! ********************************************************************************************************************************
!  Created:  7-MAR-2012 18:15:18 by OpenVMS SDL IA64-2     
!  Source:  07-MAR-2012 18:15:18 DUMPD5$:[RAMYA.FOR_ECO]TPU$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE TPU$ROUTINES IDENT X-1 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Text Processing Utility (TPU) Routines
 ! 
 ! 
 !  TPU$CLEANUP - Free System Resources Used During TPU Session
 ! 
 !  status = TPU$CLEANUP (flags)
 ! 
 !   flags - Cleanup options
 ! 
	INTEGER*4 TPU$CLEANUP
	EXTERNAL TPU$CLEANUP
 ! 
 !  TPU$CLIPARSE - Parse a command line
 ! 
 !  status = TPU$CLIPARSE (string, fileio, call_user)
 ! 
 !   string   - Command line to be parsed
 !   fileio   - Bound Procedure Value for File I/O routine
 !   call_user - Bound Procedure Value for call-user routine
 ! 
	INTEGER*4 TPU$CLIPARSE
	EXTERNAL TPU$CLIPARSE
 ! 
 !  TPU$CLOSE_TERMINAL - Close Channel to Terminal
 ! 
 !  status = TPU$CLOSE_TERMINAL ()
 ! 
	INTEGER*4 TPU$CLOSE_TERMINAL
	EXTERNAL TPU$CLOSE_TERMINAL
 ! 
 !  TPU$CONTROL - Pass Control to TPU
 ! 
 !  status = TPU$CONTROL ()
 ! 
	INTEGER*4 TPU$CONTROL
	EXTERNAL TPU$CONTROL
 ! 
 !  TPU$EDIT - Edit a file
 ! 
 !  status = TPU$EDIT (input, output)
 ! 
 !   input  - Input file name
 !   output - Output file name
 ! 
	INTEGER*4 TPU$EDIT
	EXTERNAL TPU$EDIT
 ! 
 !  TPU$EXECUTE_COMMAND - Execute One or More TPU Statements
 ! 
 !  status = TPU$EXECUTE_COMMAND (string)
 ! 
 !   string - TPU statement(s) to execute
 ! 
	INTEGER*4 TPU$EXECUTE_COMMAND
	EXTERNAL TPU$EXECUTE_COMMAND
 ! 
 !  TPU$EXECUTE_INIFILE - Execute Initialization Files
 ! 
 !  status = TPU$EXECUTE_INIFILE ()
 ! 
	INTEGER*4 TPU$EXECUTE_INIFILE
	EXTERNAL TPU$EXECUTE_INIFILE
 ! 
 !  TPU$FILEIO - Perform File Operations
 ! 
 !  status = TPU$FILEIO (code, stream, data)
 ! 
 !   code   - Item code specifying a TPU function
 !   stream - File description
 !   data   - Stream data
 ! 
	INTEGER*4 TPU$FILEIO
	EXTERNAL TPU$FILEIO
 ! 
 !  TPU$FILE_PARSE - Parse a File Specification
 ! 
 !  status = TPU$FILE_PARSE (result_string, flags, filespec,
 !                           [default_spec], [related_spec])
 ! 
 !   result_string - Resultant file specification
 !   flags         - Specifies components to be returned
 !   filespec      - File specification to parse
 !   default_spec  - Default file specification
 !   related_spec  - Related file specification
 ! 
	INTEGER*4 TPU$FILE_PARSE
	EXTERNAL TPU$FILE_PARSE
 ! 
 !  TPU$FILE_SEARCH - Search for a File Specification
 ! 
 !  status = TPU$FILE_SEARCH (result_string, flags, filespec,
 !                           [default_spec], [related_spec])
 ! 
 !   result_string - Resultant file specification
 !   flags         - Specifies components to be returned
 !   filespec      - File specification to parse
 !   default_spec  - Default file specification
 !   related_spec  - Related file specification
 ! 
	INTEGER*4 TPU$FILE_SEARCH
	EXTERNAL TPU$FILE_SEARCH
 ! 
 !  TPU$HANDLER - TPU Condition Handler
 ! 
 !  status = TPU$HANDLER (signal_vector, mechanism_vector)
 ! 
 !   signal_vector    - Signal vector
 !   mechanism_vector - Mechanism vector
 ! 
	INTEGER*4 TPU$HANDLER
	EXTERNAL TPU$HANDLER
 ! 
 !  TPU$INITIALIZE - Initialize TPU for Editing
 ! 
 !  status = TPU$INITIALIZE (callback [, user_arg)
 ! 
 !   callback - Callback routine bound procedure value
 !   user_arg - User argument
 ! 
	INTEGER*4 TPU$INITIALIZE
	EXTERNAL TPU$INITIALIZE
 ! 
 !  TPU$MESSAGE - Write Message String
 ! 
 !  status = TPU$MESSAGE (string)
 ! 
 !   string - Formatted message
 ! 
	INTEGER*4 TPU$MESSAGE
	EXTERNAL TPU$MESSAGE
 ! 
 !  TPU$PARSEINFO - Parse Command Line and Build Item List
 ! 
 !  status = TPU$PARSEINFO (fileio, call_user)
 ! 
 !   fileio   - Bound Procedure Value File I/O routine
 !   call_user - Bound Procedure Value for call-user routine
 ! 
	INTEGER*4 TPU$PARSEINFO
	EXTERNAL TPU$PARSEINFO
 ! 
 !  TPU$SIGNAL - Signal a TPU Status
 ! 
 !  status = TPU$SIGNAL (condition_code)
 ! 
 !   condition_code - Condition code to signal
 ! 
	INTEGER*4 TPU$SIGNAL
	EXTERNAL TPU$SIGNAL
 ! 
 !  TPU$SPECIFY_ASYNC_ACTION - Register an Asynchronous Action
 ! 
 !  status = TPU$SPECIFY_ASYNC_ACTION (facility_index [, tpu_statement])
 ! 
 !   facility_index - Index number of this action
 !   tpu_statement  - TPU statement to execute for action
 ! 
	INTEGER*4 TPU$SPECIFY_ASYNC_ACTION
	EXTERNAL TPU$SPECIFY_ASYNC_ACTION
 ! 
 !  TPU$TPU - Invoke TPU
 ! 
 !  status = TPU$TPU (command)
 ! 
 !   command - Command string
 ! 
	INTEGER*4 TPU$TPU
	EXTERNAL TPU$TPU
 ! 
 !  TPU$TRIGGER_ASYNC_ACTION - Trigger an Asynchronous Action
 ! 
 !  status = TPU$TRIGGER_ASYNC_ACTION (facility_index)
 ! 
 !   facility_index - Index number of this action
 ! 
	INTEGER*4 TPU$TRIGGER_ASYNC_ACTION
	EXTERNAL TPU$TRIGGER_ASYNC_ACTION
!DEC$ END OPTIONS