% VAX-11 Librarian V04-00~,CN&'  %I( ITMLST_DECL ITMLST_INIT MDM_CLOSEF MDM_MKDATE MDM_OPENF MDM_PARSE MDM_READF MDM_RWNDF& MDM_STRANSMDM_SYS_TRNLNM MDM_WRITEFS_DESC  VMS_TYPES _MDMDEF  ,/* _MDMDEF, [MDMLIB], RPI CICG, 09-JUN-1987, Definitions of constants used by MDMLIB.: Copyright (c) 1987, M. Madison */E/*** Message codes: use the GLOBALREF VALUEs so as to force inclusion= of the messages module at link time. */ DECLARE (MDM__INVFUNC,9 MDM__INVFSPEC) FIXED BINARY(31) GLOBALREF VALUE;/*** Used by MDM_OPENF ***/ %REPLACE MDM_M_READ BY 1;! %REPLACE MDM_M_WRITE BY 2;/*** Used by MDM_STRANS ***/! %REPLACE MDM_M_ASCEBC BY 1;! %REPLACE MDM_M_EBCASC BY 2;! %REPLACE MDM_M_ASCPRI BY 3;! %REPLACE MDM_M_PRIASC BY 4;/*** Used by MDM_PARSE ***/, %REPLACE MDM_M_NODE BY '80000000'B4;+ %REPLACE MDM_M_DEV BY '40000000'B4;+ %REPLACE MDM_M_DIR BY '20000000'B4;, %REPLACE MDM_M_NAME BY '10000000'B4;, %REPLACE MDM_M_TYPE BY '08000000'B4;+ %REPLACE MDM_M_VER BY '04000000'B4;+ %REPLACE MDM_M_ALL BY 'FC000000'B4;. %REPLACE MDM_M_SYNCHK BY '00800000'B4;+ %REPLACE MDM_M_PWD BY '00400000'B4;/ %REPLACE MDM_M_NOCONCEAL BY '00200000'B4;ww% @^ MADISON _MDMDEF MADISON S_DESC$ຊ MADISON ITMLST_INIT$ MADISON ITMLST_DECL"rd MADISON MDM_OPENF"@ MADISON MDM_READF# MADISON MDM_CLOSEF# VMS_COND_VALUE, VMS_CONTEXT, VMS_DATE_TIME, VMS_EF_NUMBER,9 VMS_FILE_PROTECTION, VMS_FUNCTION_CODE, VMS_NULL_ARG,L VMS_IDENTIFIER, VMS_IO_STATUS_BLOCK, VMS_LOCK_ID, VMS_LOCK_STATUS_BLOCK,> VMS_LONGWORD_SIGNED, VMS_LONGWORD_UNSIGNED, VMS_MASK_BYTE,M VMS_MASK_LONGWORD, VMS_MASK_QUADWORD, VMS_MASK_WORD, VMS_OCTAWORD_SIGNED,? VMS_OCTAWORD "_UNSIGNED, VMS_PAGE_PROTECTION, VMS_PROCESS_ID,B VMS_QUADWORD_SIGNED, VMS_QUADWORD_UNSIGNED, VMS_RIGHTS_HOLDER,A VMS_RIGHTS_ID, VMS_SECTION_ID, VMS_SYSTEM_ACCESS_ID, VMS_UIC,2 VMS_WORD_SIGNED, VMS_WORD_UNSIGNED) CHARACTER;&%VMS_BYTE_SIGNED = 'FIXED BINARY (7)';(%VMS_BYTE_UNSIGNED = 'FIXED BINARY (7)';'%VMS_WORD_SIGNED = 'FIXED BINARY (15)';)%VMS_WORD_UNSIGNED = 'FIXED BINARY (15)';+%VMS_LONGWORD_SIGNED = 'FIXED BINARY (31)';-%VMS_LONGWORD_UNSIGNED = 'FIXED BINARY (31)';*%VMS#_QUADWORD_SIGNED = 'BIT (64) ALIGNED';,%VMS_QUADWORD_UNSIGNED = 'BIT (64) ALIGNED';+%VMS_OCTAWORD_SIGNED = 'BIT (128) ALIGNED';-%VMS_OCTAWORD_UNSIGNED = 'BIT (128) ALIGNED';%%VMS_ACCESS_MODE = VMS_BYTE_UNSIGNED;%VMS_ADDRESS = 'POINTER';#%VMS_ADDRESS_RANGE = '(2) POINTER';!%VMS_CHANNEL = VMS_WORD_UNSIGNED;(%VMS_COND_VALUE = VMS_LONGWORD_UNSIGNED;%%VMS_CONTEXT = VMS_LONGWORD_UNSIGNED;%%VMS_DATE_TIME = VMS_QUADWORD_SIGNED;'%VMS_EF_NUMBER = VMS_LONGWORD_UNSIGNED;*%VMS_FILE_PROTECTI$ON = 'BIT (16) ALIGNED';(%VMS_FUNCTION_CODE = 'BIT (32) ALIGNED';&%VMS_IDENTIFIER = 'FIXED BINARY (31)';%%VMS_LOCK_ID = VMS_LONGWORD_UNSIGNED;#%VMS_MASK_BYTE = 'BIT (8) ALIGNED';(%VMS_MASK_LONGWORD = 'BIT (32) ALIGNED';(%VMS_MASK_QUADWORD = 'BIT (64) ALIGNED';$%VMS_MASK_WORD = 'BIT (16) ALIGNED';%VMS_NULL_ARG = '';-%VMS_PAGE_PROTECTION = VMS_LONGWORD_UNSIGNED;!%VMS_PID = VMS_LONGWORD_UNSIGNED;(%VMS_PROCESS_ID = VMS_LONGWORD_UNSIGNED;'%VMS_RIGHTS_ID = VMS_LONGWORD_UNSIGNED;%%VMS_SECTION_ID = 'BIT (64) ALIGNED';+%VMS_SYSTEM_ACCESS_ID = 'BIT (64) ALIGNED';%VMS_UIC = VMS_LONGWORD_SIGNED;wwof0 MADISON VMS_TYPES#@|CN MADISON MDM_STRANS,CN: DECLARE MDM_STRANS ENTRY (ANY VALUE, ANY CHARACTER(*),7 ANY CHARACTER(*)) RETURNS (FIXED BINARY(31));ww