!*** MODULE $TPUDEF IDENT V03-006 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 !  Item list codes for TPU$INITIALIZE
	PARAMETER TPU$_CHAIN = -1		 !  Chain entry - Matches other VMS CHAIN entries
	PARAMETER TPU$_ENDLIST = '00000000'X	 !  End of list [*** Must be zero ***]
	PARAMETER TPU$_OPTIONS = '00000001'X	 !  Command line options (see below)
	PARAMETER TPU$_FILENAME = '00000006'X	 !  File name
	PARAMETER TPU$_OTHER_FILENAMES = '00000007'X  !  more filenames 
	PARAMETER TPU$_FILEIO = '0000000E'X	 !  File I/O routine
	PARAMETER TPU$_CALLUSER = '0000000F'X	 !  CALL_USER routine
	PARAMETER TPU$_JOURNALFILE = '00000010'X  !  /JOURNAL= file name
	PARAMETER TPU$_SECTIONFILE = '00000013'X  !  /SECTION= file name
	PARAMETER TPU$_OUTPUTFILE = '00000014'X	 !  /OUTPUT= file name
	PARAMETER TPU$_COMMANDFILE = '00000015'X  !  /COMMAND= file name
	PARAMETER TPU$_DISPLAYFILE = '00000016'X  !  /DISPLAY= keyword -or- file name
	PARAMETER TPU$_CTRL_C_ROUTINE = '00000017'X  !  CTRL/C routine
	PARAMETER TPU$_FREEITEMLIST = '00000018'X  !  Free the item list
	PARAMETER TPU$_DEBUGFILE = '00000019'X	 !  /DEBUG= file name
	PARAMETER TPU$_FILE_PARSE = '0000001A'X	 !  FILE_PARSE routine
	PARAMETER TPU$_FILE_SEARCH = '0000001B'X  !  FILE_SEARCH routine
	PARAMETER TPU$_TERMINAL_INPUT = '0000001C'X  !  Terminal input routine
	PARAMETER TPU$_KANJI_DICFILE = '0000001D'X  !  /KANJI_DICTIONARY= file name
	PARAMETER TPU$_TEXT_LANGUAGE = '0000001E'X  !  /TEXT_LANGUAGE= language name
	PARAMETER TPU$_DEFAULTSFILE = '0000001F'X  !  /DEFAULTS= file name
	PARAMETER TPU$_PARENT_WIDGET = '00000020'X  !  DECwindows widget to use as our parent
	PARAMETER TPU$_EXTENSION = '00000021'X	 !  Extension Table Entry
	PARAMETER TPU$_GET_DEFAULT = '00000022'X  !  GET_DEFAULT routine
	PARAMETER TPU$_SET_DEFAULT = '00000023'X  !  SET_DEFAULT routine
	PARAMETER TPU$_WORKFILE = '00000024'X	 !  /WORK= file name
	PARAMETER TPU$_APPLICATION_CONTEXT = '00000025'X  !  Decwindows application context
	PARAMETER TPU$_CHARACTERSET = '00000026'X  !  /CHARACTER_SET= character set name
	PARAMETER TPU$_LANGUAGE = '00000101'X	 !  LSE's /LANGUAGE= file name
	PARAMETER TPU$_ENVFILE = '00000102'X	 !  LSE's /ENVIRONMENT= file name
	PARAMETER TPU$_INIT_FILE = '00000103'X	 !  /INITIALIZATION= file name
	PARAMETER TPU$_START_LINE = '00000104'X	 !  /START_POSITION= line
	PARAMETER TPU$_START_CHAR = '00000105'X	 !  /START_POSITION= character
	PARAMETER TPU$_SYSTEM_ENVFILE = '00000106'X  !  LSE's /SYSTEM_ENVIROMENT= file name
 !  Item list codes for file I/O
	PARAMETER TPU$_ACCESS = '00000004'X	 !  File access type (see below)
	PARAMETER TPU$_FLUSH = '00000005'X	 !  Flush after Puts
	PARAMETER TPU$_FILESIZE = '00000007'X	 !  File size
	PARAMETER TPU$_RECORD_ATTR = '00000008'X  !  Record attributes
	PARAMETER TPU$_RECORD_FORM = '00000009'X  !  Record format
	PARAMETER TPU$_MAXIMIZE_VER = '0000000A'X  !  Maximize version number
	PARAMETER TPU$_DEFAULTFILE = '00000011'X  !  Default file name
	PARAMETER TPU$_RELATEDFILE = '00000012'X  !  Related file name
	PARAMETER TPU$_FILE_RECOVERABLE = '00000013'X  !  File available upon recovery
	PARAMETER TPU$_TRN_TPT = '00000014'X	 !  File will allow truncates - journal files only
	PARAMETER TPU$_CREATE_TIME = '00000101'X  !  Creation date/time
	PARAMETER TPU$_EOF_BLOCK = '00000102'X	 !  EOF block
	PARAMETER TPU$_EOF_FFB = '00000103'X	 !  EOF first free byte
 !  TPU$_OPTIONS flags
	PARAMETER TPU$M_RECOVER = '00000001'X
	PARAMETER TPU$M_JOURNAL = '00000002'X
	PARAMETER TPU$M_READ = '00000004'X
	PARAMETER TPU$M_SECTION = '00000008'X
	PARAMETER TPU$M_OUTPUT = '00000010'X
	PARAMETER TPU$M_COMMAND = '00000020'X
	PARAMETER TPU$M_DISPLAY = '00000040'X
	PARAMETER TPU$M_CREATE = '00000080'X
	PARAMETER TPU$M_STARTPOS = '00000100'X
	PARAMETER TPU$M_COMMAND_DFLTED = '00000200'X
	PARAMETER TPU$M_DEBUG = '00000400'X
	PARAMETER TPU$M_NOKANJI_DIC = '00000800'X
	PARAMETER TPU$M_TEXT_LANGUAGE = '00001000'X
	PARAMETER TPU$M_DEFAULTS = '00002000'X
	PARAMETER TPU$M_NODEFAULTS = '00004000'X
	PARAMETER TPU$M_ENVIRONMENT = '00010000'X
	PARAMETER TPU$M_INIT = '00020000'X
	PARAMETER TPU$M_SYSTEM_ENV = '00040000'X
	PARAMETER TPU$M_CURRENT_FILE = '00080000'X
	PARAMETER TPU$M_WRITE = '00100000'X
	PARAMETER TPU$M_MODIFY = '00200000'X
	PARAMETER TPU$M_NOMODIFY = '00400000'X
	PARAMETER TPU$M_NOMAP = '00800000'X
	PARAMETER TPU$M_WORK = '01000000'X
	PARAMETER TPU$M_SEC_LNM_MODE = '02000000'X
	PARAMETER TPU$M_CHARSET = '04000000'X
	STRUCTURE /TPU$$FILL_32_/
	UNION
	    MAP
	    INTEGER*4 TPU$L_OPTIONS
	    END MAP
	    MAP
	        PARAMETER TPU$S_RECOVER = 1
	        PARAMETER TPU$V_RECOVER = 0		 !  /RECOVER
	        PARAMETER TPU$S_JOURNAL = 1
	        PARAMETER TPU$V_JOURNAL = 1		 !  /JOURNAL
	        PARAMETER TPU$S_READ = 1
	        PARAMETER TPU$V_READ = 2		 !  /READ_ONLY
	        PARAMETER TPU$S_SECTION = 1
	        PARAMETER TPU$V_SECTION = 3		 !  /SECTION
	        PARAMETER TPU$S_OUTPUT = 1
	        PARAMETER TPU$V_OUTPUT = 4		 !  /OUTPUT
	        PARAMETER TPU$S_COMMAND = 1
	        PARAMETER TPU$V_COMMAND = 5		 !  /COMMAND
	        PARAMETER TPU$S_DISPLAY = 1
	        PARAMETER TPU$V_DISPLAY = 6		 !  /DISPLAY
	        PARAMETER TPU$S_CREATE = 1
	        PARAMETER TPU$V_CREATE = 7		 !  /CREATE
	        PARAMETER TPU$S_STARTPOS = 1
	        PARAMETER TPU$V_STARTPOS = 8		 !  /START_POSITION
	        PARAMETER TPU$S_COMMAND_DFLTED = 1
	        PARAMETER TPU$V_COMMAND_DFLTED = 9	 !  /COMMAND defaulted
	        PARAMETER TPU$S_DEBUG = 1
	        PARAMETER TPU$V_DEBUG = 10		 !  /DEBUG
	        PARAMETER TPU$S_NOKANJI_DIC = 1
	        PARAMETER TPU$V_NOKANJI_DIC = 11	 !  /KANJI_DICTIONARY
	        PARAMETER TPU$S_TEXT_LANGUAGE = 1
	        PARAMETER TPU$V_TEXT_LANGUAGE = 12	 !  /TEXT_LANGUAGE
	        PARAMETER TPU$S_DEFAULTS = 1
	        PARAMETER TPU$V_DEFAULTS = 13		 !  Explicit /DEFAULTS
	        PARAMETER TPU$S_NODEFAULTS = 1
	        PARAMETER TPU$V_NODEFAULTS = 14		 !  Explicit /NODEFAULTS
	        PARAMETER TPU$S_ENVIRONMENT = 1
	        PARAMETER TPU$V_ENVIRONMENT = 16	 !  LSE's /ENVIRONMENT
	        PARAMETER TPU$S_INIT = 1
	        PARAMETER TPU$V_INIT = 17		 !  /INITIALIZATION
	        PARAMETER TPU$S_SYSTEM_ENV = 1
	        PARAMETER TPU$V_SYSTEM_ENV = 18		 !  LSE's /SYSTEM_ENVIRONMENT
	        PARAMETER TPU$S_CURRENT_FILE = 1
	        PARAMETER TPU$V_CURRENT_FILE = 19	 !  LSE's /CURRENT_FILE
	        PARAMETER TPU$S_WRITE = 1
	        PARAMETER TPU$V_WRITE = 20		 !  /WRITE
	        PARAMETER TPU$S_MODIFY = 1
	        PARAMETER TPU$V_MODIFY = 21		 !  Explicit /MODIFY
	        PARAMETER TPU$S_NOMODIFY = 1
	        PARAMETER TPU$V_NOMODIFY = 22		 !  Explicit /NOMODFIY
	        PARAMETER TPU$S_NOMAP = 1
	        PARAMETER TPU$V_NOMAP = 23		 !  Don't map top DECwindows widget
	        PARAMETER TPU$S_WORK = 1
	        PARAMETER TPU$V_WORK = 24		 !  /WORK
	        PARAMETER TPU$S_SEC_LNM_MODE = 1
	        PARAMETER TPU$V_SEC_LNM_MODE = 25	 !  Section logical name mode
	        PARAMETER TPU$S_CHARSET = 1
	        PARAMETER TPU$V_CHARSET = 26		 !  /CHARACTER_SET
	    BYTE %FILL (4)
	    END MAP
	END UNION
	END STRUCTURE	! TPU$$FILL_32_
 !  Access codes for TPU$_ACCESS
	PARAMETER TPU$K_INPUT = '00000000'X	 !  Open file for input only
	PARAMETER TPU$K_OUTPUT = '00000001'X	 !  Open file for output only
	PARAMETER TPU$K_IO = '00000002'X	 !  Open file for both input and output
	PARAMETER TPU$K_OUTPUT_DDIF = '00000003'X  !  Open file for DDIF output only
 !  Codes for file I/O
	PARAMETER TPU$K_OPEN = '00000000'X	 !  Open a file
	PARAMETER TPU$K_CLOSE = '00000001'X	 !  Close a file
	PARAMETER TPU$K_CLOSE_DELETE = '00000002'X  !  Close and delete a file
	PARAMETER TPU$K_PUT = '00000003'X	 !  Put a record to a file
	PARAMETER TPU$K_GET = '00000004'X	 !  Get a record from a file
	PARAMETER TPU$K_REWIND = '00000005'X	 !  Rewind the file
 !  FILE_PARSE and FILE_SEARCH item flags
	PARAMETER TPU$M_NODE = '00000001'X
	PARAMETER TPU$M_DEV = '00000002'X
	PARAMETER TPU$M_DIR = '00000004'X
	PARAMETER TPU$M_NAME = '00000008'X
	PARAMETER TPU$M_TYPE = '00000010'X
	PARAMETER TPU$M_VER = '00000020'X
	PARAMETER TPU$M_HEAD = '00000040'X
	PARAMETER TPU$M_TAIL = '00000080'X
	PARAMETER TPU$M_REPARSE = '00010000'X
	STRUCTURE /TPU$$FILL_34_/
	UNION
	    MAP
	    INTEGER*4 TPU$L_ITEM_FLAGS
	    END MAP
	    MAP
	        PARAMETER TPU$S_NODE = 1
	        PARAMETER TPU$V_NODE = 0		 !  Return node
	        PARAMETER TPU$S_DEV = 1
	        PARAMETER TPU$V_DEV = 1			 !  Return device
	        PARAMETER TPU$S_DIR = 1
	        PARAMETER TPU$V_DIR = 2			 !  Return directory
	        PARAMETER TPU$S_NAME = 1
	        PARAMETER TPU$V_NAME = 3		 !  Return name
	        PARAMETER TPU$S_TYPE = 1
	        PARAMETER TPU$V_TYPE = 4		 !  Return type
	        PARAMETER TPU$S_VER = 1
	        PARAMETER TPU$V_VER = 5			 !  Return version
	        PARAMETER TPU$S_HEAD = 1
	        PARAMETER TPU$V_HEAD = 6		 !  Return head (Ultrix node+dev+dir)
	        PARAMETER TPU$S_TAIL = 1
	        PARAMETER TPU$V_TAIL = 7		 !  Return tail (Ultrix name+type+ver)
	        PARAMETER TPU$S_REPARSE = 1
	        PARAMETER TPU$V_REPARSE = 16		 !  Reparse (FILE_SEARCH only)
	    BYTE %FILL (2)
	    END MAP
	END UNION
	END STRUCTURE	! TPU$$FILL_34_
 !  Codes for terminal input
	PARAMETER TPU$K_INITIALIZE_INPUT = '00000000'X  !  Initialize terminal input
	PARAMETER TPU$K_TYPEAHEAD_COUNT = '00000001'X  !  Fetch typeahead count
	PARAMETER TPU$K_CANCEL_INPUT = '00000002'X  !  Cancel outstanding terminal input
	PARAMETER TPU$K_READ_CHARACTER = '00000003'X  !  Read a single character
	PARAMETER TPU$K_READ_STRING = '00000004'X  !  Read a string of characters
	PARAMETER TPU$K_READ_LINE = '00000005'X	 !  Read a line with prompting
	PARAMETER TPU$K_TERMINATE_INPUT = '00000006'X  !  Terminate terminal input
	PARAMETER TPU$K_READ_TYPEAHEAD_NOECHO = '00000007'X  !  Read the typeahead and don't echo
 !  TPU$CLEANUP flags
	PARAMETER TPU$M_DELETE_JOURNAL = '00000001'X
	PARAMETER TPU$M_DELETE_EXITH = '00000002'X
	PARAMETER TPU$M_DELETE_BUFFERS = '00000004'X
	PARAMETER TPU$M_DELETE_WINDOWS = '00000008'X
	PARAMETER TPU$M_DELETE_CACHE = '00000010'X
	PARAMETER TPU$M_PRUNE_CACHE = '00000020'X
	PARAMETER TPU$M_EXECUTE_FILE = '00000040'X
	PARAMETER TPU$M_EXECUTE_PROC = '00000080'X
	PARAMETER TPU$M_DELETE_CONTEXT = '00000100'X
	PARAMETER TPU$M_RESET_TERMINAL = '00000200'X
	PARAMETER TPU$M_KILL_PROCESSES = '00000400'X
	PARAMETER TPU$M_CLOSE_SECTION = '00000800'X
	PARAMETER TPU$M_DELETE_OTHERS = '00001000'X
	PARAMETER TPU$M_LAST_TIME = '00002000'X
	PARAMETER TPU$M_CLOSE_KANJI_DIC = '00004000'X
	STRUCTURE /TPU$$FILL_37_/
	UNION
	    MAP
	    INTEGER*4 TPU$L_CLEANUP
	    END MAP
	    MAP
	        PARAMETER TPU$S_DELETE_JOURNAL = 1
	        PARAMETER TPU$V_DELETE_JOURNAL = 0	 !  Delete journal
	        PARAMETER TPU$S_DELETE_EXITH = 1
	        PARAMETER TPU$V_DELETE_EXITH = 1	 !  Delete exit handler
	        PARAMETER TPU$S_DELETE_BUFFERS = 1
	        PARAMETER TPU$V_DELETE_BUFFERS = 2	 !  Delete buffers
	        PARAMETER TPU$S_DELETE_WINDOWS = 1
	        PARAMETER TPU$V_DELETE_WINDOWS = 3	 !  Delete windows
	        PARAMETER TPU$S_DELETE_CACHE = 1
	        PARAMETER TPU$V_DELETE_CACHE = 4	 !  Delete caches
	        PARAMETER TPU$S_PRUNE_CACHE = 1
	        PARAMETER TPU$V_PRUNE_CACHE = 5		 !  Purge caches
	        PARAMETER TPU$S_EXECUTE_FILE = 1
	        PARAMETER TPU$V_EXECUTE_FILE = 6	 !  Re-execute command file
	        PARAMETER TPU$S_EXECUTE_PROC = 1
	        PARAMETER TPU$V_EXECUTE_PROC = 7	 !  Re-execute TPU$INIT_PROCEDURE
	        PARAMETER TPU$S_DELETE_CONTEXT = 1
	        PARAMETER TPU$V_DELETE_CONTEXT = 8	 !  Delete all context
	        PARAMETER TPU$S_RESET_TERMINAL = 1
	        PARAMETER TPU$V_RESET_TERMINAL = 9	 !  Reset terminal state
	        PARAMETER TPU$S_KILL_PROCESSES = 1
	        PARAMETER TPU$V_KILL_PROCESSES = 10	 !  Delete subprocesses
	        PARAMETER TPU$S_CLOSE_SECTION = 1
	        PARAMETER TPU$V_CLOSE_SECTION = 11	 !  Close section file
	        PARAMETER TPU$S_DELETE_OTHERS = 1
	        PARAMETER TPU$V_DELETE_OTHERS = 12	 !  Delete miscellaneous
	        PARAMETER TPU$S_LAST_TIME = 1
	        PARAMETER TPU$V_LAST_TIME = 13		 !  Last call
	        PARAMETER TPU$S_CLOSE_KANJI_DIC = 1
	        PARAMETER TPU$V_CLOSE_KANJI_DIC = 14	 !  Close dictionary
	    BYTE %FILL (2)
	    END MAP
	END UNION
	END STRUCTURE	! TPU$$FILL_37_
!DEC$ END OPTIONS