!*** MODULE $LNMDEF *** PARAMETER LNM$M_NO_ALIAS = '00000001'X PARAMETER LNM$M_CONFINE = '00000002'X PARAMETER LNM$M_CRELOG = '00000004'X PARAMETER LNM$M_TABLE = '00000008'X PARAMETER LNM$M_CONCEALED = '00000100'X PARAMETER LNM$M_TERMINAL = '00000200'X PARAMETER LNM$M_EXISTS = '00000400'X PARAMETER LNM$M_SHAREABLE = '00010000'X PARAMETER LNM$M_CREATE_IF = '01000000'X PARAMETER LNM$M_CASE_BLIND = '02000000'X STRUCTURE /LNMDEF/ ! Logical name attributes -- bits 0-7 PARAMETER LNM$S_NO_ALIAS = 1 PARAMETER LNM$V_NO_ALIAS = 0 ! Do not allow outer mode alias PARAMETER LNM$S_CONFINE = 1 PARAMETER LNM$V_CONFINE = 1 ! Do not copy into subprocess PARAMETER LNM$S_CRELOG = 1 PARAMETER LNM$V_CRELOG = 2 ! Created with old $CRELOG service PARAMETER LNM$S_TABLE = 1 PARAMETER LNM$V_TABLE = 3 ! This is a table name ! Logical name translation attributes -- bits 8-15 PARAMETER LNM$S_CONCEALED = 1 PARAMETER LNM$V_CONCEALED = 8 ! Do not display result of translation PARAMETER LNM$S_TERMINAL = 1 PARAMETER LNM$V_TERMINAL = 9 ! Do not retranslate result of translation PARAMETER LNM$S_EXISTS = 1 PARAMETER LNM$V_EXISTS = 10 ! Translation does exist at this index ! Logical name table characteristics -- bits 16-23 PARAMETER LNM$S_SHAREABLE = 1 PARAMETER LNM$V_SHAREABLE = 16 ! Logical name table is shareable (S0 space) ! System service options -- bits 24-31 PARAMETER LNM$S_CREATE_IF = 1 PARAMETER LNM$V_CREATE_IF = 24 ! May map to existing logical name table PARAMETER LNM$S_CASE_BLIND = 1 PARAMETER LNM$V_CASE_BLIND = 25 ! Perform case-insensitive translation BYTE %FILL (2) END STRUCTURE ! LNMDEF PARAMETER LNM$C_TABNAMLEN = '0000001F'X ! Maximum length of a name contained within a directory table PARAMETER LNM$C_NAMLENGTH = '000000FF'X ! Maximum logical name / translation length PARAMETER LNM$C_MAXDEPTH = '0000000A'X ! Maximum logical name recursion depth PARAMETER LNM$_INDEX = '00000001'X ! Translation index PARAMETER LNM$_STRING = '00000002'X ! Translation string PARAMETER LNM$_ATTRIBUTES = '00000003'X ! Attribute bits PARAMETER LNM$_TABLE = '00000004'X ! Logical name table name PARAMETER LNM$_LENGTH = '00000005'X ! Length of translation string PARAMETER LNM$_ACMODE = '00000006'X ! Access mode of name PARAMETER LNM$_MAX_INDEX = '00000007'X ! Maximum translation index PARAMETER LNM$_PARENT = '00000008'X ! Parent logical name table name PARAMETER LNM$_LNMB_ADDR = '00000009'X ! Return LNM block address ! internal use by MTL ! and mailbox UCB ! Define item list codes PARAMETER LNM$_CHAIN = 'FFFFFFFF'X ! Chain to next list