% Librarian A09-23Ԧ;ΦMΦKL!===(f"$ACCDEF) $ACCESSDEF,$ACEDEFM$ACLDEFU$ACMEDEF  $ACMEMSGDEFP $ACMEVMSDEFb$ACRDEF$AFRDEF4$AGNDEFb $ALPHADEFn$ARGDEF*$ARMDEF$ATRDEF $BREAKDEFF$BRKDEF$CAPDEFF$CBODEF$CHFDEFn $CHKPNTDEFX$CHPDEF$CIADEF $CLIDEF0X $CLIMSGDEFM $CLISERVDEFQ $CLIVERBDEFXb$CLSDEFj $CLUEVTDEFk$CMBDEFl4$CONVDEFv $CONVMSGDEFH$CPUIDEFaM $CLISERVDEFQ $CLIVERBDEFXb$CLSDEFj $CLUEVTDEFk$CMBDEFl4$CONVDEFv $CONVMSGDEFH$CPUIDEF $CQUALDEF$CRDEF$CREDEF$CRFDEF$CRFMSG $CSHDEF$CSTDEF$CVTDEF $CVTFNMDEF>$CVTMSG$DCDEF$DDTMDEF R $DDTMMSGDEFb $DELPRCSYMDEF($DEVDEF)$DIBDEF, $DIRENTDEF/h$DMTDEF3$DPSDEF4$DSCDEFw4$DSTDEF|F$DTIDEF:$DTKDEF*$DTKMSG$DVIDEF $CLIMSGDEF$DEVDEF$EOMDEF$FORDEF$ISSDEF $LIBWAITDEF $MSGDEF $POSIX_SERVICEDEF $RMIDEF $SMGMSG $TTDEF $XABPRODEF LIB$ROUTINES UTIL$ROUTINES^)$DIBDEF, $DIRENTDEF/h$DMTDEF3$DPSDEF4$DSCDEFw4$DSTDEF|F$DTIDEF:$DTKDEF*$DTKMSG$DVIDEF4$DVSDEFJ$EEOMDEF$EFNDEF$EGPSDEF$EGSDEF$EGSTDEF$EGSYDEF$EIDCDEF $ELFDATYP,$ELFDEFq0$EMHDEFsL$ENVDEFu $EOBJRECDEFyR$EOMDEF|8$EOMWDEFL$EPMDEF$EPMMDEF<$EPMVDEFZ$EPMWDEFB$ERADEF$ESDFDEF $ESDFMDEF $ESDFVDEFv$ESFDEFc|8$EOMWDEFL$EPMDEF$EPMMDEF<$EPMVDEFZ$EPMWDEFB$ERADEF$ESDFDEF $ESDFMDEF $ESDFVDEFv$ESFDEFR $ESGPSDEF$ESRFDEF$ETIRDEF $EVENTDEF$FABDEF>$FALDEF^$FDLDEF $FDLMSGDEF$FDSCDEF $FIBDEFTX$FIDDEFW$FLTDEFY^$FMLDEFZ$FORDEFJ $FORIOSDEFP $FOR_FP_CLASS$FSCNDEF $GEN64DEF $GETSPIDEFS $GLOCKDEFfF$GPSDEFkT$GSDEFo$GSYDEF[J $FORIOSDEFP $FOR_FP_CLASS$FSCNDEF $GEN64DEF $GETSPIDEFS $GLOCKDEFfF$GPSDEFkT$GSDEFo$GSYDEFr>$HLPDEFy$HWDEFy $IA64REGDEF$IACDEF$ICCDEF$IDCDEF$IEEEDEF$ILEDEF $INDICTDEFv$INITDEF$IODEF$IOSADEF$IOSBDEF$ISSDEF+ $JBCMSGDEFFR$JPIDEFl $JPIFDEFp$KGBDEFz$LADEF$LATDEF~ $LATMSGDEF  $LBRCTLTBL$LBRDEF$LCKDEF_+ $JBCMSGDEFFR$JPIDEFl $JPIFDEFp$KGBDEFz$LADEF$LATDEF~ $LATMSGDEF  $LBRCTLTBL$LBRDEF$LCKDEF$LDDEFB$LEPMDEFl$LGIDEF$8$LHIDEF( $LIBCLIDEF* $LIBDCFDEF1>$LIBDEFL  $LIBDTDEFW< $LIBFILDEFY $LIBFISDEF[j$LIBICB $LIBVMDEFv $LIBWAITDEF $LICENSEDEF<$LKIDEF$LKSBDEF<$LMFDEF6$LNKDEF$LNMDEF  $LOGTYPDEFT$LPDEFZ$LPRODEF$LSDFDEFh $LICENSEDEF<$LKIDEF$LKSBDEF<$LMFDEF6$LNKDEF$LNMDEF  $LOGTYPDEFT$LPDEFZ$LPRODEF$LSDFDEF@$LSRFDEF$LSYDEF $MACIDDEF$MAILDEF $MAILMSGDEF  $MAPPINGDEF X$MHDDEF $MHDEF" $MMEDEF4 0 $MMEMSGDEF@ $MMIDEFC $MNTDEFd $MOUNDEF $MSGDEF 8 $MSGHLPDEF $MT2DEF $MT3DEF $MTADEF f$MTDEF $$MTHDEF @$NAMDEF $NCSDEF |$NETDEFh 8 $MSGHLPDEF $MT2DEF $MT3DEF $MTADEF f$MTDEF $$MTHDEF @$NAMDEF $NCSDEF |$NETDEF @$NSADEF B $NSAMSGDEF H $NSARECDEF# l $OBJRECDEF; $OPCDEFc d$OPCMSG $OPRDEF $OSSDDEF $OSSDEF F$OTSDEF $PAGEDEF F$PCCDEF $PDSCDEF $PMMDEF Z$POSIX_SERVICEDEF $PPROPDEF $PQLDEF $PRCDEF $PRDEF j$PRODEF 8$PROMDEF V$PROVDEF r$PROWDEF X$PRTDEF\ $PPROPDEF $PQLDEF $PRCDEF $PRDEF j$PRODEF 8$PROMDEF V$PROVDEF r$PROWDEF X$PRTDEF $PRVDEF' $PRXDEF0 v $PSCANDEF8 $PSIGDEFD $PSLDEFG  $PSMMSGDEFO $PTDDEFR $QSRVDEF T$QUIDEF $RABDEF $RBLDDEF" 2$REGDEFJ $REGMSG] $RMEDEF^ $RMIDEF!,$RMSDEF] $RNHBLKDEF^`$RSDMDEF`L $S2DGBDEFi$SBKDEFm$SCRDEFs$SDBDEFuz$SDDEF$SDFDEFD$SDFMDEFY!,$RMSDEF] $RNHBLKDEF^`$RSDMDEF`L $S2DGBDEFi$SBKDEFm$SCRDEFs$SDBDEFuz$SDDEF$SDFDEFD$SDFMDEF$SDFVDEF$SDFWDEF4$SDVDEF$SECDEFN $SECIDDEF $SECSRVDEFn $SECSRVMSGDEF6$SGPSDEF$SHRDEF$SJCDEF8 $SMBMSGDEF>f$SMGDEF$SMGMSGV $SMGTRMPTR$SMRDEFj $SNAPEVTDEF0$SORDEF$SRFDEF$SRMDEF B$SSDEF$SSIODEFJ $STENVDEF$STRDEF^V $SMGTRMPTR$SMRDEFj $SNAPEVTDEF0$SORDEF$SRFDEF$SRMDEF B$SSDEF$SSIODEFJ $STENVDEF$STRDEF$STSDEF$SYIDEF4" $SYSEVTDEF7R $SYSSRVNAM0$TBKDEF$TEBDEF$TIRDEF$TPADEF$TPUDEFF$TRMDEF($TT2DEF2$TT3DEF3$TTCDEF6x$TTDEFE> $TTYDPORTDEFHJ $UAF070DEF]$UAIDEFt$UICDEFz$UIDDEF~$USGDEF$USRIDEFd $UTCBLKDEF$VADEF`E> $TTYDPORTDEFHJ $UAF070DEF]$UAIDEFt$UICDEFz$UIDDEF~$USGDEF$USRIDEFd $UTCBLKDEF$VADEF$VAXDEFF $VA_RANGEDEFt$WWIDDEF $XABALLDEF> $XABCXFDEF $XABCXRDEF : $XABDATDEF$XABDEF $XABFHCDEFl $XABITMDEFA $XABJNLDEFF $XABKEYDEFU  $XABPRODEF\ $XABRDTDEF^j $XABRUDEFa $XABSUMDEFcp $XABTRMDEFe$XADEFfN $XKDEVDEFh` $XKSTSDEFm$XMDEF|$XWDEF[\ $XABRDTDEF^j $XABRUDEFa $XABSUMDEFcp $XABTRMDEFe$XADEFfN $XKDEVDEFh` $XKSTSDEFm$XMDEF|$XWDEFPACLEDIT$ROUTINES CLI$ROUTINESCMA$DEF CONV$ROUTINES CVT$ROUTINES DCX$ROUTINES DTK$ROUTINES EDT$ROUTINES~ FDL$ROUTINES LBR$ROUTINES LIB$ROUTINESf MAIL$ROUTINES MTH$ROUTINES NCS$ROUTINES' OTS$ROUTINESoPPL$DEFyrPPL$MSGn PPL$ROUTINES` PSM$ROUTINESf MAIL$ROUTINES MTH$ROUTINES NCS$ROUTINES' OTS$ROUTINESoPPL$DEFyrPPL$MSGn PPL$ROUTINES` PSM$ROUTINES@ SMB$ROUTINES SMG$ROUTINES SOR$ROUTINES  STR$ROUTINES; TBK$ROUTINES<l TPU$ROUTINESG UTIL$ROUTINES ! #]Φ!*** MODULE $ACCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNF PARAMETER ACC$K_TERMLEN = '00000054'X ! TERMINATION MESSAGE LENGTH F PARAMETER ACC$C_TERMLEN = '00000054'X ! TERMINATION MESSAGE LENGTH , ! AND ACCOUNTING RECORD FOR NON BATCH JOBSQ PARAMETER ACC$K_JOB_LEN = '0000006C'X ! LENGTH OF BATCH JOB ACCOUNTING RECORD Q PARAMETER ACC$C_JOB_LEN = '0000006C'X ! LENGTH OF BATCH JOB ACCOUNTING RECORD  STRUCTURE /ACCDEF/4 INTEGER*2 ACC$W$_MSGTYP ! MESSAGE TYPE CODE P INTEGER*2 ACC$W_MSGSIZ ! LENGTH OF DATA MESSAGE (VALID ONLY IN ACCLOG) 5 INTEGER*4 ACC$L_FINALSTS ! FINAL EXIT STATUS * INTEGER*4 ACC$L_PID ! PROCESS ID K INTEGER*4 ACC$L_JOBID ! JOB IDENTIFICATION (VALID ONLY IN ACCLOG) E INTEGER*4 ACC$Q_TERMTIME(2) ! TERMINATION TIME (100NS UNITS) G CHARACTER*8 ACC$T_ACCOUNT ! ACCOUNT NAME STRING (BLANK FILLED) F CHARACTER*12 ACC$T_USERNAME ! USER NAME STRING (BLANK FILL %ED) 7 INTEGER*4 ACC$L_CPUTIM ! CPUTIM IN 10MS UNITS 5 INTEGER*4 ACC$L_PAGEFLTS ! TOTAL PAGE FAULTS : INTEGER*4 ACC$L_PGFLPEAK ! PEAK PAGING FILE USAGE 8 INTEGER*4 ACC$L_WSPEAK ! PEAK WORKING SET SIZE C INTEGER*4 ACC$L_BIOCNT ! COUNT OF BUFFERED I/O OPERATIONS A INTEGER*4 ACC$L_DIOCNT ! COUNT OF DIRECT I/O OPERATIONS < INTEGER*4 ACC$L_VOLUMES ! COUNT OF VOLUMES MOUNTED < INTEGER*4 ACC$Q_LOGIN(2) ! LOGIN TIME (100NS UNITS) 9 I &NTEGER*4 ACC$L_OWNER ! PID OF SUBPROCESS OWNER  ! END OF TERMINATION MESSAGE= CHARACTER*8 ACC$T_JOB_NAME ! JOB NAME (BLANK FILLED) 9 CHARACTER*16 ACC$T_JOB_QUE ! QUEUE NAME (.ASCIC)  END STRUCTURE ! ACCDEFM PARAMETER ACC$K_PRT_LEN = '00000058'X ! LENGTH OF PRINT ACCOUNTING RECORD M PARAMETER ACC$C_PRT_LEN = '00000058'X ! LENGTH OF PRINT ACCOUNTING RECORD  !  STRUCTURE /ACCDEF1/ BYTE %FILL(1:48)6 INTEGER*4 ACC$L_PAGCNT ! SYMBIONT PAGE COUNT '5 INTEGER*4 ACC$L_QIOCNT ! SYMBIONT QIO COUNT 5 INTEGER*4 ACC$L_GETCNT ! SYMBIONT GET COUNT 9 INTEGER*4 ACC$Q_QUETIME(2) ! TIME JOB WAS QUEUED 7 CHARACTER*8 ACC$T_PRT_NAME ! NAME OF PRINT JOB 9 CHARACTER*12 ACC$T_PRT_QUE ! NAME OF PRINT QUEUE , ! DEFINE USER ACCOUNTING MESSAGE DATA AREA !  END STRUCTURE ! ACCDEF1D PARAMETER ACC$K_INS_LEN = '000000B0'X ! LENGTH OF INSERT MESSAGE D PARAMETER ACC$C_INS_LEN = '000000B0'X ! LENGTH OF INSERT MESSAG (E  ! : PARAMETER ACC$K_PRCTRM = '00000001'X ! JOB TERMINATION @ PARAMETER ACC$K_BATTRM = '00000002'X ! BATCH JOB TERMINATION F PARAMETER ACC$K_INTTRM = '00000003'X ! INTERACTIVE JOB TERMINATION L PARAMETER ACC$K_LOGTRM = '00000004'X ! LOGIN FAILURE PROCESS TERMINATION < PARAMETER ACC$K_IMGTRM = '00000005'X ! IMAGE TERMINATION A PARAMETER ACC$K_SUBTRM = '00000006'X ! SUBPROCESS TERMINATION G PARAMETER ACC$K_DETTRM = '00000007'X ! DETACHED PROCESS TERMINATION F PARAMETER ACC$K )_NETTRM = '00000008'X ! NETWORK PROCESS TERMINATION  ! MISC ACCOUNTING RECORDS ? PARAMETER ACC$K_PRTJOB = '00000010'X ! PRINT JOB ACCOUNTING ; PARAMETER ACC$K_INSMSG = '00000011'X ! INSERTED MESSAGE  ! O PARAMETER ACC$K_INSMESG = '00000001'X ! INSERT MESSAGE INTO ACCOUNTING FILE E PARAMETER ACC$K_NEWFILE = '00000002'X ! CREATE A NEW ACCOUNT FILE = PARAMETER ACC$K_ENABACC = '00000003'X ! ENABLE ACCOUNTING > PARAMETER ACC$K_DISAACC = '00000004'X ! DISABLE ACCOUNTING G PAR*AMETER ACC$K_ENABSEL = '00000005'X ! ENABLE SELECTIVE ACCOUNTING H PARAMETER ACC$K_DISASEL = '00000006'X ! DISABLE SELECTIVE ACCOUNTING  STRUCTURE /ACCDEF2/ BYTE %FILL(1:44)K CHARACTER*132 ACC$T_USER_DATA ! ALLOW UP TO 132 BYTES OF USER DATA @ ! ASSIGN RECORD TYPE CODES FOR RECORDS IN THE ACCOUNT LOG FILE !  ! PROCESS ACCOUNTING RECORDS + ! DEFINE ACCOUNTING MANAGER MESSAGE CODES !  !  END STRUCTURE ! ACCDEF2!DEC$ END OPTIONS ww*^+!*** MODULE $ACCESSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! B ! Definitions for Acmode arugment to several MMG system services ! , PARAMETER ACCESS$M_LOCK_IMAGE = '00000040'X. PARAMETER ACCESS$M_LKWSET_EXACT = '00000080'X STRUCTURE /ACCESS/ UNION MAPZ INTEGER*4 ACCESS$Q_QUAD(2) ! Combined acmode/arch/prot argument - full 64-bits END MAP MAP6 BYTE ACCESS$B_MODE ! Access mode> , BYTE ACCESS$B_ARCH ! Architecture 3=IA64Q INTEGER*2 ACCESS$W_PROT ! Page protection in architecture format7 INTEGER*4 ACCESS$L_RESERVED1 ! Reserved END MAP MAP. PARAMETER ACCESS$S_LOCK_IMAGE = 1U PARAMETER ACCESS$V_LOCK_IMAGE = 6 ! For $LKWSET_64 and $ULWSET_64 only0 PARAMETER ACCESS$S_LKWSET_EXACT = 1` PARAMETER ACCESS$V_LKWSET_EXACT = 7 ! For $LKWSET[_64] and $ULWSET[_64] IA64 on-ly" ! Alpha always performs exact BYTE %FILL (1) END MAP END UNION END STRUCTURE ! ACCESS/ PARAMETER ACCESS$C_IA64 = '00000003'X ! IA64!DEC$ END OPTIONS wwv^Φ!*** MODULE $ACEDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! 3 ! Access Control list Entry structure definitions !  ! -> PARAMETER ACE$C_KEYID = '00000001'X ! Key identifier entry ; PARAMETER ACE$C_RMSJNL_BI = '00000002'X ! RMS BI jo .urnal; PARAMETER ACE$C_RMSJNL_AI = '00000003'X ! RMS AI journal; PARAMETER ACE$C_RMSJNL_AT = '00000004'X ! RMS AT journalE PARAMETER ACE$C_AUDIT = '00000005'X ! Security audit journal entry= PARAMETER ACE$C_ALARM = '00000006'X ! Security alarm entryC PARAMETER ACE$C_INFO = '00000007'X ! General purpose informationN PARAMETER ACE$C_RMSJNL_RU_DEFAULT = '00000008'X ! RU journal default volumeF PARAMETER ACE$C_DIRDEF = '00000009'X ! Directory default protectionG PARAMETER ACE$C/_RMSJNL_RU = '0000000A'X ! RU journal (many per file)H PARAMETER ACE$C_SUBSYSTEM_IDS = '0000000B'X ! Protected subsystem ids? PARAMETER ACE$C_OIL = '0000000C'X ! Object Information LabelE PARAMETER ACE$C_NEW_OWNER = '0000000D'X ! Protection for owner ACEQ PARAMETER ACE$C_POSIX_OWNER = '0000000E'X ! Posix UID/GID (persona) from imageH PARAMETER ACE$C_MAX_CODE = '0000000F'X ! Maximum ACE type code plus 1= PARAMETER ACE$C_RESERVED = '000000FF'X ! Reserved ACE typeM PARAMETER ACE 0$C_APPLICATION = '00000007'X ! Alternate application ACE code8 PARAMETER ACE$C_CUST = '00000001'X ! Customer defined2 PARAMETER ACE$C_CSS = '00000002'X ! CSS defined2 PARAMETER ACE$C_VMS = '00000003'X ! VMS defined& PARAMETER ACE$M_SUCCESS = '00000001'X& PARAMETER ACE$M_FAILURE = '00000002'X& PARAMETER ACE$M_DEFAULT = '00000100'X( PARAMETER ACE$M_PROTECTED = '00000200'X% PARAMETER ACE$M_HIDDEN = '00000400'X* PARAMETER ACE$M_NOPROPAGATE = '00000800'X# PARAMETER ACE$M_READ = '0000000 11'X$ PARAMETER ACE$M_WRITE = '00000002'X& PARAMETER ACE$M_EXECUTE = '00000004'X% PARAMETER ACE$M_DELETE = '00000008'X& PARAMETER ACE$M_CONTROL = '00000010'XF PARAMETER ACE$K_LENGTH = '00000008'X ! Length of the overhead area F PARAMETER ACE$C_LENGTH = '00000008'X ! Length of the overhead area T PARAMETER ACE$C_RMS_ATTRIBUTES = '00000000'X ! variant of ACE for file attributesT PARAMETER ACE$K_RMS_ATTRIBUTES = '00000000'X ! variant of ACE for file attributesH PARAMETER ACE$K_RMSATR_MI 2NOR_V50 = '00000002'X ! minor ID for VMS 5.0P PARAMETER ACE$K_RMSATR_MINOR_VDW = '00000002'X ! minor ID for DECwindows V1.0U PARAMETER ACE$C_RMSATR_MINOR_ID = '00000002'X ! current minor ID (obsolete symbol). PARAMETER ACE$K_RMSATR_MINOR_ID = '00000002'XC PARAMETER ACE$C_RMSATR_MAJOR_ID = '00000001'X ! current major ID. PARAMETER ACE$K_RMSATR_MAJOR_ID = '00000001'X) PARAMETER ACE$M_STATISTICS = '00000001'X( PARAMETER ACE$M_XLATE_DEC = '00000002'XX PARAMETER ACE$S_RMSATR = '00000014'3X ! size of RMS file attributes ACE (fixed fields)\ PARAMETER ACE$S_RMSATR_V50 = '00000014'X ! size of RMS file attributes ACE (fixed fields)\ PARAMETER ACE$S_RMSATR_VDW = '00000014'X ! size of RMS file attributes ACE (fixed fields)G ! Beyond the fixed fields, variable length information will by storedY PARAMETER ACE$_RMSATR_ORGANIZATION = '00000001'X ! organizational extension object ID K PARAMETER ACE$_RMSATR_SEMANTICS = '00000002'X ! file semantics object ID1 PARAMETER ACE$K_RMS 4ATR_ORG_MAX_LEN = '00000040'X1 PARAMETER ACE$K_RMSATR_SEM_MAX_LEN = '00000040'XT PARAMETER ACE$S_RMSJNL_RU_DEFAULT = '00000011'X ! length of RMSJNL RU default ACE/ PARAMETER ACE$M_JOURNAL_DISABLED = '00000001'X* PARAMETER ACE$M_BACKUP_DONE = '00000002'XD PARAMETER ACE$S_RMSJNL_RU = '00000026'X ! length of RMSJNL RU ACEG PARAMETER ACE$S_RMSJNL = '00000032'X ! length of RMSJNL AI/BI/AT ACEF PARAMETER ACE$S_OIL_S64I64 = '00000020'X ! Length of Type 0 OIL ACED PARAMETER ACE$S_OIL_S128 5= '00000020'X ! Length of Type 1 OIL ACE; PARAMETER ACE$S_OIL = '00000020'X ! Maximum OIL ACE Size- PARAMETER ACE$M_USERNAME_VALID = '00000001'X( PARAMETER ACE$M_UIC_VALID = '00000002'X( PARAMETER ACE$M_UID_VALID = '00000004'X( PARAMETER ACE$M_GID_VALID = '00000008'X/ PARAMETER ACE$M_GROUP_MODE_VALID = '00000010'X$ PARAMETER ACE$M_OTHER = '00000007'X$ PARAMETER ACE$M_GROUP = '00000038'X# PARAMETER ACE$M_USER = '000001C0'X& PARAMETER ACE$M_S_IXOTH = '00000001'X& PARAMETER ACE$M_S_IWO 6TH = '00000002'X& PARAMETER ACE$M_S_IROTH = '00000004'X& PARAMETER ACE$M_S_IXGRP = '00000008'X& PARAMETER ACE$M_S_IWGRP = '00000010'X& PARAMETER ACE$M_S_IRGRP = '00000020'X& PARAMETER ACE$M_S_IXUSR = '00000040'X& PARAMETER ACE$M_S_IWUSR = '00000080'X& PARAMETER ACE$M_S_IRUSR = '00000100'X& PARAMETER ACE$M_S_ISGID = '00000400'X& PARAMETER ACE$M_S_ISUID = '00000800'XO PARAMETER ACE$S_POSIX_OWNER_LENGTH = '0000003C'X ! Length of POSIX_OWNER ACE STRUCTURE /ACEDEF/2 BYTE ACE$B_SIZ7E ! Size of the entry . BYTE ACE$B_TYPE ! Type of entry UNION MAPH INTEGER*2 ACE$W_FLAGS ! Type dependent & independent flags  END MAP MAP* PARAMETER ACE$S_INFO_TYPE = 4@ PARAMETER ACE$V_INFO_TYPE = 0 ! INFO ACE subtype BYTE %FILL (1) END MAP MAP) PARAMETER ACE$S_RESERVED = 4J PARAMETER ACE$V_RESERVED = 0 ! Count of reserved longwords B8YTE %FILL (1) END MAP MAP( PARAMETER ACE$S_SUCCESS = 1I PARAMETER ACE$V_SUCCESS = 0 ! Audit or alarm upon success( PARAMETER ACE$S_FAILURE = 1I PARAMETER ACE$V_FAILURE = 1 ! Audit ot alarm upon failure BYTE %FILL (1) END MAP MAP( PARAMETER ACE$S_DEFAULT = 1F PARAMETER ACE$V_DEFAULT = 8 ! Directory default entry * PARAMETER ACE$S_PROTECTED = 1= 9 PARAMETER ACE$V_PROTECTED = 9 ! Protected ACE' PARAMETER ACE$S_HIDDEN = 18 PARAMETER ACE$V_HIDDEN = 10 ! Hidden ACE, PARAMETER ACE$S_NOPROPAGATE = 1Q PARAMETER ACE$V_NOPROPAGATE = 11 ! No propagation between versions BYTE %FILL (1) END MAP END UNION UNION MAP UNION MAPD INTEGER*4 ACE$L_ACCESS ! Access rights bitmask  END : MAP MAP- PARAMETER ACE$S_READ = 1C PARAMETER ACE$V_READ = 0 ! Allowed to read . PARAMETER ACE$S_WRITE = 1E PARAMETER ACE$V_WRITE = 1 ! Allowed to write 0 PARAMETER ACE$S_EXECUTE = 1I PARAMETER ACE$V_EXECUTE = 2 ! Allowed to execute / PARAMETER ACE$S_DELETE = 1G PARAMETER ACE$V_DELETE = 3 ! Allowed to ;delete 0 PARAMETER ACE$S_CONTROL = 1R PARAMETER ACE$V_CONTROL = 4 ! All privileges of the owner  BYTE %FILL (1) END MAP END UNION UNION MAPB INTEGER*4 ACE$L_KEY ! Start of the key fields END MAP MAPU CHARACTER*16 ACE$T_AUDITNAME ! Start of the security journal name END MAP < END UNION END MAP MAP UNION MAPL INTEGER*4 ACE$L_INFO_FLAGS ! INFO type application flags END MAP MAPU INTEGER*2 ACE$W_APPLICATION_FLAGS ! VMS application flags word[ INTEGER*2 ACE$W_APPLICATION_FACILITY ! VMS application facility code END MAP END UNION UNION MAPK = CHARACTER*1 ACE$T_INFO_START ! Start of the information END MAP MAP` INTEGER*2 ACE$W_RMSATR_VARIANT ! Which variant of the RMS attributes ACEU BYTE ACE$B_RMSATR_FIXLEN ! length of fixed format fields$ ! (introduced at minor ID 3. Older, ! ACE's are assumed to be all fixed form)< BYTE %FILL ! currectly unusedZ INTEGER*2 ACE$W_RMSATR_MINOR_ID ! RMS >file attributes ACE minor IDZ INTEGER*2 ACE$W_RMSATR_MAJOR_ID ! RMS file attributes ACE major ID UNION MAPf INTEGER*4 ACE$L_RMS_ATTRIBUTE_FLAGS ! RMS file attributes flags definitions END MAP MAP; PARAMETER ACE$S_STATISTICS = 1d PARAMETER ACE$V_STATISTICS = 0 ! Statistics monitoring enabled o?n th: PARAMETER ACE$S_XLATE_DEC = 1\ PARAMETER ACE$V_XLATE_DEC = 1 ! File semantics are DEC-local' BYTE %FILL (1) END MAP END UNIONJ ! using a {field-type, length, value} scheme. This allows extensibility ! and compact representation. !  ! field types are: END MAP END UNION END MAP MAPG CHARA @CTER*12 ACE$T_VOLNAM ! Volume name of journal fileR BYTE ACE$B_VOLNAM_LEN ! Length of volume name of journal fileJ BYTE ACE$B_RJRVER ! RMS journal file structure level UNION MAP7 INTEGER*2 ACE$W_FID(1:3) ! file id  END MAP MAP? INTEGER*2 ACE$W_FID_NUM ! file number C INTEGER*2 ACE$W_FID_SEQ ! sequence number  A UNION MAPN INTEGER*2 ACE$W_FID_RVN ! relative volume number END MAP MAPP BYTE ACE$B_FID_RVN ! alternate format RVN b BYTE ACE$B_FID_NMX ! alternate format file number extension END MAP END UNION END MAP END UNION B UNION MAP- INTEGER*2 ACE$W_RMSJNL_FLAGS END MAP MAP9 PARAMETER ACE$S_JOURNAL_DISABLED = 1Q PARAMETER ACE$V_JOURNAL_DISABLED = 0 ! journaling disabled$ ! (AI, BI, AT only; set by BACKUP)4 PARAMETER ACE$S_BACKUP_DONE = 1S PARAMETER ACE$V_BACKUP_DONE = 1 ! BACKUP done on this file;& ! RMS needs to write a backup marker$ ! (AI, BI, AT on Cly; set by BACKUP) BYTE %FILL (1) END MAP END UNIONE INTEGER*4 ACE$L_JNLIDX ! journal stream index numberH INTEGER*4 ACE$Q_CDATE(2) ! creation date/time of journalI INTEGER*4 ACE$L_BACKUP_SEQNO ! BACKUP sequence number (to$ ! find where to start in journal).V INTEGER*4 ACE$Q_MODIFICATION_TIME(2) ! timestamp of last backup or last ! journal entry recovered. END MAP D MAP7 INTEGER*4 ACE$L_SPARE1 ! For alignmentD INTEGER*4 ACE$L_SYS_PROT ! Default system protectionC INTEGER*4 ACE$L_OWN_PROT ! Default owner protectionC INTEGER*4 ACE$L_GRP_PROT ! Default group protectionC INTEGER*4 ACE$L_WOR_PROT ! Default world protection END MAP MAP7 INTEGER*4 ACE$L_SPARE2 ! For alignmentH INTEGER*4 ACE$Q_IMAGE_IDS(2) ! Start of the image ids E(a! ! quadword for each identifier) END MAP MAP9 INTEGER*4 ACE$L_OIL_FLAGS ! For AlignmentC INTEGER*4 ACE$L_BRAND_NAME ! OIL Type-Specific Info> CHARACTER*1 ACE$R_CLASS_PROT ! OIL Class Block END MAP, ! - POSIX_OWNER ACE, Persona from Image -< ! Process effective persona derived from image activation.? ! Support for POSIX/COE effective UID/GID identities granted < ! to a process if the image has this ACE and iFt is valid. A ! The UID and GID are extensions to the Persona Security Block ! (PSBDEF). ! > ! Currently, only the SUID, SGID, GID and POSIX_MODE (GROUP)? ! fields are supported. VMS_GRP_PROT is also used internally. ! MAP UNION MAPC INTEGER*4 ACE$L_POSIX_FLAGS ! POSIX_OWNER Flags END MAP MAP7 PARAMETER ACE$S_USERNAME_VALID = 1U PARAMETER ACEG$V_USERNAME_VALID = 0 ! Validates Posix username 2 PARAMETER ACE$S_UIC_VALID = 1K PARAMETER ACE$V_UIC_VALID = 1 ! Validates Posix UIC2 PARAMETER ACE$S_UID_VALID = 1O PARAMETER ACE$V_UID_VALID = 2 ! Validates Posix User ID2 PARAMETER ACE$S_GID_VALID = 1P PARAMETER ACE$V_GID_VALID = 3 ! Validates Posix Group ID9 PARAMETER ACE$S_GROUP_MODE_VALID H= 1d PARAMETER ACE$V_GROUP_MODE_VALID = 4 ! Validates Posix mode for Group file pr BYTE %FILL (1) END MAP END UNIONA CHARACTER*32 ACE$T_POSIX_USERNAME ! Posix Username UNION MAP9 INTEGER*4 ACE$L_POSIX_UIC ! Posix UIC END MAP MAPH INTEGER*2 ACE$W_POSIX_MEM ! Member number in UICG I INTEGER*2 ACE$W_POSIX_GRP ! Group number in UIC END MAP END UNION9 INTEGER*4 ACE$L_POSIX_UID ! Posix User ID: INTEGER*4 ACE$L_POSIX_GID ! Posix Group ID UNION MAPM INTEGER*4 ACE$L_POSIX_MODE ! Posix file protection (mode) END MAP MAP. PARAMETER ACE$S_OTHER = 3F PARAMETER ACE$V_OTHER = 0 ! Other Permissi Jons . PARAMETER ACE$S_GROUP = 3F PARAMETER ACE$V_GROUP = 3 ! Group Permissions - PARAMETER ACE$S_USER = 3D PARAMETER ACE$V_USER = 6 ! User Permissions  BYTE %FILL (2) END MAP MAP ! - Other Permissions -0 PARAMETER ACE$S_S_IXOTH = 1Q PARAMETER ACE$V_S_IXOTH = 0 ! Posix mode - other execute0 K PARAMETER ACE$S_S_IWOTH = 1O PARAMETER ACE$V_S_IWOTH = 1 ! Posix mode - other write0 PARAMETER ACE$S_S_IROTH = 1N PARAMETER ACE$V_S_IROTH = 2 ! Posix mode - other read ! - Group Permissions -0 PARAMETER ACE$S_S_IXGRP = 1Q PARAMETER ACE$V_S_IXGRP = 3 ! Posix mode - group execute0 PARAMETER ACE$S_S_IWGRP = 1O PARAMETER ACE$V_S_IWGRP = 4 L ! Posix mode - group write0 PARAMETER ACE$S_S_IRGRP = 1N PARAMETER ACE$V_S_IRGRP = 5 ! Posix mode - group read ! - User Permissions -0 PARAMETER ACE$S_S_IXUSR = 1P PARAMETER ACE$V_S_IXUSR = 6 ! Posix mode - user execute0 PARAMETER ACE$S_S_IWUSR = 1N PARAMETER ACE$V_S_IWUSR = 7 ! Posix mode - user write0 PARAMETER ACE$S_S_IRUSR = 1M M PARAMETER ACE$V_S_IRUSR = 8 ! Posix mode - user read0 PARAMETER ACE$S_S_SPARE = 1E PARAMETER ACE$V_S_SPARE = 9 ! Blank bit field ! - SxID Bits -0 PARAMETER ACE$S_S_ISGID = 1W PARAMETER ACE$V_S_ISGID = 10 ! Posix set group ID on execution0 PARAMETER ACE$S_S_ISUID = 1V PARAMETER ACE$V_S_ISUID = 11 ! Posix set user ID on execution N BYTE %FILL (2) END MAP END UNIONG INTEGER*4 ACE$L_VMS_GRP_PROT ! Posix to VMS Group Prot. END MAP ! End - POSIX_OWNER ACE  END UNION END STRUCTURE ! ACEDEF!DEC$ END OPTIONS ww9^Φ!*** MODULE $ACLDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNF PARAMETER ACL$K_LENGTH = '0000000C'X ! Length of the overhead area F PARAMETER ACL$C_LENGTH = '0000000C'X ! Length of the overhead O area - PARAMETER ACL$C_FILE = '00000001'X ! Files; PARAMETER ACL$C_DEVICE = '00000002'X ! MBX, MT, TT, etc.D PARAMETER ACL$C_JOBCTL_QUEUE = '00000003'X ! Job controller queueO PARAMETER ACL$C_COMMON_EF_CLUSTER = '00000004'X ! Common event flag clustersI PARAMETER ACL$C_LOGICAL_NAME_TABLE = '00000005'X ! Logical name tables2 PARAMETER ACL$C_PROCESS = '00000006'X ! ProcessM PARAMETER ACL$C_GROUP_GLOBAL_SECTION = '00000007'X ! Group global sectionsO PARAMETER ACL$C_SYSTEM_GLOB PAL_SECTION = '00000008'X ! System global sections8 PARAMETER ACL$C_CAPABILITY = '00000009'X ! Capability@ PARAMETER ACL$C_EVENT_FACILITY = '0000000A'X ! Event facility; PARAMETER ACL$C_LOCK = '0000000B'X ! Lock block/resource; PARAMETER ACL$C_VOLUME = '0000000C'X ! Disk volume (set)= PARAMETER ACL$C_MAX_OBJECT = '0000000D'X ! max object code@ PARAMETER ACL$C_NUM_OBJECTS = '0000000C'X ! number of objects@ PARAMETER ACL$K_NUM_OBJECTS = '0000000C'X ! number of objects ! Acti Qon codes= PARAMETER ACL$C_ADDACLENT = '00000001'X ! Add an ACL entry@ PARAMETER ACL$C_DELACLENT = '00000002'X ! Delete an ACL entry@ PARAMETER ACL$C_MODACLENT = '00000003'X ! Modify an ACL entry@ PARAMETER ACL$C_FNDACLENT = '00000004'X ! Locate an ACL entryE PARAMETER ACL$C_FNDACETYP = '00000005'X ! Locate specific ACE typeJ PARAMETER ACL$C_DELETEACL = '00000006'X ! Delete ACL, leaving protected7 PARAMETER ACL$C_READACL = '00000007'X ! Read the ACLA PARAMETER ACL$C_ACLLENGTH = R '00000008'X ! Get the ACL's length< PARAMETER ACL$C_READACE = '00000009'X ! Read a single ACE= PARAMETER ACL$C_RLOCK_ACL = '0000000A'X ! Read lock on ACL> PARAMETER ACL$C_WLOCK_ACL = '0000000B'X ! Write lock on ACLD PARAMETER ACL$C_UNLOCK_ACL = '0000000C'X ! Release exclusive lock@ PARAMETER ACL$C_GRANT_ACE = '0000000D'X ! ACE granting access@ PARAMETER ACL$C_NEXT_ACE = '0000000E'X ! Increment ACE number? PARAMETER ACL$C_DELETE_ALL = '0000000F'X ! Delete entire ACLE PARAMETSER ACL$C_RESERVED_ITEM_2 = '00000010'X ! Reserved item codeE PARAMETER ACL$C_RESERVED_ITEM_3 = '00000011'X ! Reserved item code= PARAMETER ACL$S_ADDACLENT = '000000FF'X ! Add an ACL entry@ PARAMETER ACL$S_DELACLENT = '000000FF'X ! Delete an ACL entry@ PARAMETER ACL$S_MODACLENT = '000000FF'X ! Modify an ACL entry@ PARAMETER ACL$S_FNDACLENT = '000000FF'X ! Locate an ACL entryE PARAMETER ACL$S_FNDACETYP = '000000FF'X ! Locate specific ACE typeJ PARAMETER ACL$S_DELETEACL = '000000 TFF'X ! Delete ACL, leaving protected7 PARAMETER ACL$S_READACL = '00000200'X ! Read the ACLA PARAMETER ACL$S_ACLLENGTH = '00000004'X ! Get the ACL's length< PARAMETER ACL$S_READACE = '000000FF'X ! Read a single ACE= PARAMETER ACL$S_RLOCK_ACL = '00000004'X ! Read lock on ACL> PARAMETER ACL$S_WLOCK_ACL = '00000004'X ! Write lock on ACL@ PARAMETER ACL$S_UNLOCK_ACL = '00000004'X ! Remove lock on ACL@ PARAMETER ACL$S_GRANT_ACE = '000000FF'X ! ACE granting access@ PARAMETER ACL$S_NUEXT_ACE = '00000004'X ! Increment ACE number? PARAMETER ACL$S_DELETE_ALL = '000000FF'X ! Delete entire ACLE PARAMETER ACL$S_RESERVED_ITEM_2 = '000000FF'X ! Reserved item codeE PARAMETER ACL$S_RESERVED_ITEM_3 = '000000FF'X ! Reserved item codeL PARAMETER ACL$C_MAX_SEGMENT_SIZE = '00000200'X ! Maximum ACL segemnt sizeL PARAMETER ACL$K_MAX_SEGMENT_SIZE = '00000200'X ! Maximum ACL segemnt size STRUCTURE /ACLDEF/H INTEGER*4 ACL$L_FLINK ! Forward link to next list in the queuVe E INTEGER*4 ACL$L_BLINK ! Back link to previous list in queue 7 INTEGER*2 ACL$W_SIZE ! Total size of the list 4 BYTE ACL$B_TYPE ! Structure type code . BYTE %FILL ! Spare unused byte D INTEGER*4 ACL$L_LIST ! Start of the Access Control Entries  ! Object types END STRUCTURE ! ACLDEF!DEC$ END OPTIONS ww5_Φ"!*** MODULE $acmedef IDENT X-8 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + !  W ! Miscellaneous constants !  ! -O PARAMETER acme$k_maxchar_ITEM = '00003FFF'X ! Maximum length (in characters) ! of an itemS PARAMETER acme$k_maxchar_doi_name = '00000020'X ! Maximum length (in characters) ! of a DOI name stringY PARAMETER acme$k_maxchar_principal_name = '00000200'X ! Maximum length (in characters) ! of a principal name stringP PARAMETER acme$k_max_num_agents = '00000020'X ! Maximum number of ACME agents ! that can be loadedN PARAMETER acme$Xk_max_cred_type = '00000020'X ! Maximum number of credential ! types supported ! + !  ! ACME agent id ! E ! An ACME agent id is a 32-bit unsigned value, encoded as follows: ! M ! Remote host address type is a 16-bit unsigned value, encoded as follows: ! ' ! 3 2 2 1 1E ! 1 4 3 6 5 8 7 0F ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+F ! | | | | | | | | | | | | | |Y | | | | | | | | | | | | | | | | | | |F ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+E ! ^.............................^ ^ ^...........................^E ! | | | | |a ! | | | +---------------------------+-- Bit [14:0] = ACME number' ! | | |d ! | | +-------------------------------- Bit [15] = 0 ==> AncillarC ! Z | | +------------------------d ! | | 1 ==> RegisterC ! | | % ! | |c ! +-----------------------------+---------------------------------- Bit [31:16] = Server number !  ! -* PARAMETER acmeid$m_acme_num = '00007FFF'X0 PARAMETER acmeid$m_doi_designator = '00008000'X, PARAMETER acmeid$m_se[rver_num = 'FFFF0000'X STRUCTURE /acmeid/ UNION MAP6 INTEGER*4 acmeid$l_agent_id ! Composite id END MAP MAP- PARAMETER acmeid$S_acme_num = 15C PARAMETER acmeid$V_acme_num = 0 ! ACME agent number2 PARAMETER acmeid$S_doi_designator = 1F PARAMETER acmeid$V_doi_designator = 15 ! Registered DOI/ PARAMETER acmeid$S_server_num = 16/ PARAMETER acmeid$V_server_num = 160 \ BYTE %FILL (4) ! Server number END MAP END UNION END STRUCTURE ! acmeid( PARAMETER acmeid$k_length = '00000004'X ! + ! & ! $ACM Function Codes and Modifiers ! G ! Function code plus modifiers form a 32-bit unsigned value, encoded ! as follows: ! ' ! 3 2 2 1 1E ! 1 4 3 6 5 8 7 0F ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+F ! | | | | | |] | | | | | | | | | | | | | | | | | | | | | | | | | | |F ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+E ! ^.............................^ ^.................^ ^.........^E ! | | | | | |c ! | | | | +---------+-- Bit [5:0] = function code9 ! | | | |d ! | | +-----------------+-------------- ^Bit [15:06] = cross functionC ! | | +-----------------+------% ! | |d ! +-----------------------------+---------------------------------- Bit [31:16] = function speciC ! +-----------------------------+-------------------------- ! - !  ! Function codes !  ! Function code valuesP PARAMETER acme$_authenticate_principal = '00000001'X ! AUTHENTICATE_PRINCIPALB PARAMETER acme$_change_password = '00000002'X _! CHANGE_PASSWORDJ PARAMETER acme$_release_credentials = '00000003'X ! RELEASE_CREDENTIALS. PARAMETER acme$_query = '00000004'X ! QUERY. PARAMETER acme$_event = '00000005'X ! EVENT ! Function code value< PARAMETER acme$_free_context = '0000003F'X ! FREE_CONTEXT ! Function code valuesS PARAMETER acme$_fc_authenticate_principal = '00000001'X ! AUTHENTICATE_PRINCIPALE PARAMETER acme$_fc_change_password = '00000002'X ! CHANGE_PASSWORDM PARAMETER acme$_fc_release_credentials = `'00000003'X ! RELEASE_CREDENTIALS1 PARAMETER acme$_fc_query = '00000004'X ! QUERY1 PARAMETER acme$_fc_event = '00000005'X ! EVENT ! Function code value? PARAMETER acme$_fc_free_context = '0000003F'X ! FREE_CONTEXT* PARAMETER acmefc$m_function = '0000003F'X+ PARAMETER acmefc$m_modifiers = 'FFFFFFC0'X' PARAMETER acme$m_noaudit = '00000040'X' PARAMETER acme$m_timeout = '00000080'X& PARAMETER acme$m_ucs2_4 = '00008000'X3 PARAMETER acme$m_acquire_credentials = '00010000'X- PARaAMETER acme$m_merge_persona = '00020000'X, PARAMETER acme$m_copy_persona = '00040000'X0 PARAMETER acme$m_override_mapping = '00080000'X5 PARAMETER acme$m_native_authentication = '00100000'X/ PARAMETER acme$m_noauthorization = '00200000'X4 PARAMETER acme$m_foreign_policy_hints = '00400000'X1 PARAMETER acme$m_default_principal = '00800000'X STRUCTURE /acmefc/ UNION ! - ! Overall function code/modifiers structure ! MAP UNION MAPA b INTEGER*4 acmefc$l_fcode_struct ! Composite field END MAP MAP0 PARAMETER acmefc$S_function = 60 PARAMETER acmefc$V_function = 0 ! Function code2 PARAMETER acmefc$S_modifiers = 261 PARAMETER acmefc$V_modifiers = 6 ! Function modifiers BYTE %FILL (4) END MAP END UNION END MAP ! . ! Modifiers applicable to all function codes ! MAP c UNION MAP INTEGER*4 %FILL END MAP MAP- PARAMETER acme$S_noaudit = 1D PARAMETER acme$V_noaudit = 6 ! Suppress auditing- PARAMETER acme$S_timeout = 1B PARAMETER acme$V_timeout = 7 ! Timed operation, PARAMETER acme$S_ucs2_4 = 1U PARAMETER acme$V_ucs2_4 = 15 ! Strings are in 4-byte UCS-2 format BYTE %FILL (1) d END MAP END UNION END MAP ! B ! Modifiers applicable to AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ! MAP UNION MAP INTEGER*4 %FILL END MAP MAP9 PARAMETER acme$S_acquire_credentials = 1R PARAMETER acme$V_acquire_credentials = 16 ! Acquire credentials3 PARAMETER acme$S_merge_persona = 1T PARAMETER acme$V_merge_persona = 17e ! Merge with base credentials2 PARAMETER acme$S_copy_persona = 1M PARAMETER acme$V_copy_persona = 18 ! Copy base credentials6 PARAMETER acme$S_override_mapping = 1` PARAMETER acme$V_override_mapping = 19 ! Override VMS username mapping checks; PARAMETER acme$S_native_authentication = 1` PARAMETER acme$V_native_authentication = 20 ! Allow native DOI authentication5 PARAMETER f acme$S_noauthorization = 1T PARAMETER acme$V_noauthorization = 21 ! Skip authorization checks: PARAMETER acme$S_foreign_policy_hints = 1a PARAMETER acme$V_foreign_policy_hints = 22 ! Honor NOAUDIT and NOAUTHORIZATION# ! for non-native authentications7 PARAMETER acme$S_default_principal = 1W PARAMETER acme$V_default_principal = 23 ! Use principal name and DOI ! designator defined by the ! primary gpersona extension BYTE %FILL (1) END MAP END UNION END MAP END UNION END STRUCTURE ! acmefc( PARAMETER acmefc$k_length = '00000004'X ! + !  ! $ACM Item Codes ! ? ! Item codes are 16-bit unsigned values, encoded as follows: !  ! 1% ! 5 8 7 0& ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+& ! | | | | | | | | | | | | | | | | |& ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+% ! ^ ^ ^ ^ h ^% ! | | | | |9 ! | | | +-----------------------+-- Bit [12:0] = item ! | | |b ! | | +---------------------------- Bit [13] = 0 ==> not subject to VTF-7 <-> UCS conversion^ ! | | 1 ==> subject to VTF-7 <-> UCS conversion ! | |E ! | +------------------------------ Bit [14] = 0 ==> input itemF ! | 1 ==> output item ! |F ! +-------------i------------------- Bit [15] = 0 ==> common itemM ! 1 ==> ACME specific item !  ! - ! Specialty ! Cross function* ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ! RELEASE_CREDENTIALS ! QUERY ! EVENT& PARAMETER acmeic$M_ITEM = '00001FFF'X% PARAMETER acmeic$m_ucs = '00002000'X( PARAMETER acmeic$m_output = '00004000'X/ PARAMETER acmeic$m_acme_specific = '00008000'X STRUCTURE /acmeic/ UNION MAP: INT jEGER*2 acmeic$w_item_code ! Composite field END MAP MAP) PARAMETER acmeic$S_ITEM = 13: PARAMETER acmeic$V_ITEM = 0 ! Ranged value' PARAMETER acmeic$S_ucs = 1[ PARAMETER acmeic$V_ucs = 13 ! 0 ==> not subject to VTF-7 <-> UCS conversion- ! 1 ==> subject to VTF-7 <-> UCS conversion* PARAMETER acmeic$S_output = 1A PARAMETER acmeic$V_output = 14 ! 0 ==> input item ! 1 ==> output item1 k PARAMETER acmeic$S_acme_specific = 1H PARAMETER acmeic$V_acme_specific = 15 ! 0 ==> common item ! 1 ==> ACME specific item BYTE %FILL (2) END MAP END UNION END STRUCTURE ! acmeic( PARAMETER acmeic$k_length = '00000002'X ! < ! Input item codes not subject to VTF-7 <-> UCS conversion ! * PARAMETER acme$_min_spec_in = '00000001'X ! Specialty itemsS PARAMETER acme$_null = '00000001'X ! Place holder item (skip entry in item list) lK PARAMETER acme$_chain = '00000002'X ! Chain to another item list segment* PARAMETER acme$_max_spec_in = '00000002'X) PARAMETER acme$_min_gen_in = '00000100'X ! Generic itemsQ PARAMETER acme$_access_mode = '00000100'X ! Access mode for persona operationsI PARAMETER acme$_dialogue_support = '00000101'X ! Dialogue capabilitiesR PARAMETER acme$_context_acme_id = '00000102'X ! ID of ACME for specific contextC PARAMETER acme$_persona_handle_in = '00000103'X ! Target personaN PAR mAMETER acme$_target_doi_id = '00000104'X ! ID of DOI for a directed callO PARAMETER acme$_timeout_interval = '00000105'X ! Timeout interval in seconds) PARAMETER acme$_max_gen_in = '00000105'X. PARAMETER acme$_min_auth_pwd_in = '00000200'X0 ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD itemsJ PARAMETER acme$_auth_mechanism = '00000200'X ! Authentication mechanism@ PARAMETER acme$_challenge_data = '00000201'X ! Challenge data8 PARAMETER acme$_logon_type = '00000202'X ! Logon typeX PARAMnETER acme$_new_password_flags = '00000203'X ! New password request/control flagsJ PARAMETER acme$_remote_host_address = '00000204'X ! Remote host address[ PARAMETER acme$_remote_host_address_type = '00000205'X ! Remote host address type/format> PARAMETER acme$_response_data = '00000206'X ! Response data. PARAMETER acme$_max_auth_pwd_in = '00000206'X. PARAMETER acme$_min_rel_cred_in = '00000300'X ! RELEASE_CREDENTIALS items[ PARAMETER acme$_credentials_type = '00000300'X ! Index as osociated with persona extension. PARAMETER acme$_max_rel_cred_in = '00000300'X+ PARAMETER acme$_min_query_in = '00000400'X ! QUERY items: PARAMETER acme$_query_key_type = '00000400'X ! Key type< PARAMETER acme$_query_key_value = '00000401'X ! Key valueX PARAMETER acme$_query_type = '00000402'X ! Type of data to be returned via QUERY_DATA+ PARAMETER acme$_max_query_in = '00000402'X+ PARAMETER acme$_min_event_in = '00000500'X ! EVENT itemsJ PARAMETER acme$_event_data_in = '0000 p0500'X ! Event function input data8 PARAMETER acme$_event_type = '00000501'X ! Event type+ PARAMETER acme$_max_event_in = '00000501'X ! 8 ! Input item codes subject to VTF-7 <-> UCS conversion ! - PARAMETER acme$_min_gen_in_ucs = '00002100'X ! Generic itemsV PARAMETER acme$_context_acme_name = '00002100'X ! Name of ACME for specific contextG PARAMETER acme$_locale = '00002101'X ! Language specifier (location)R PARAMETER acme$_target_doi_name = '00002102'X ! Name of DOI f qor a directed callK PARAMETER acme$_server_name_in = '00002103'X ! ACME relative server nameE PARAMETER acme$_service_name = '00002104'X ! Caller's service name- PARAMETER acme$_max_gen_in_ucs = '00002104'X2 PARAMETER acme$_min_auth_pwd_in_ucs = '00002200'X0 ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD items? PARAMETER acme$_access_port = '00002200'X ! Access port nameF PARAMETER acme$_new_password_1 = '00002201'X ! New primary passwordH PARAMETER acme$_new_password_2 = '00002202'X !r New secondary passwordJ PARAMETER acme$_new_password_system = '00002203'X ! New system password> PARAMETER acme$_password_1 = '00002204'X ! Primary password@ PARAMETER acme$_password_2 = '00002205'X ! Secondary passwordB PARAMETER acme$_password_system = '00002206'X ! System passwordC PARAMETER acme$_principal_name_in = '00002207'X ! Principal nameQ PARAMETER acme$_remote_host_fullname = '00002208'X ! Remote host expanded nameD PARAMETER acme$_remote_host_name = '00002209'X ! sRemote host nameB PARAMETER acme$_remote_username = '0000220A'X ! Remote username2 PARAMETER acme$_max_auth_pwd_in_ucs = '0000220A'X2 PARAMETER acme$_min_rel_cred_in_ucs = '00002300'X ! RELEASE_CREDENTIALS itemsZ PARAMETER acme$_credentials_name = '00002300'X ! Name associated with persona extension2 PARAMETER acme$_max_rel_cred_in_ucs = '00002300'X ! = ! Output item codes not subject to VTF-7 <-> UCS conversion ! + PARAMETER acme$_min_spec_out = '00004001'X ! Specialty item ts/ PARAMETER acme$_phase_transition = '00004001'X+ PARAMETER acme$_max_spec_out = '00004001'X* PARAMETER acme$_min_gen_out = '00004100'X ! Generic itemsH PARAMETER acme$_persona_handle_out = '00004100'X ! Persona acted upon* PARAMETER acme$_max_gen_out = '00004100'X/ PARAMETER acme$_min_auth_pwd_out = '00004200'X0 ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD itemsV PARAMETER acme$_authenticating_doi_id = '00004200'X ! ID of DOI accepting principalF PARAMETER acme$_logon_information = u '00004201'X ! Logon informationO PARAMETER acme$_mapping_acme_id = '00004202'X ! ID of ACME mapping principal/ PARAMETER acme$_max_auth_pwd_out = '00004202'X, PARAMETER acme$_min_query_out = '00004400'X ! QUERY itemsH PARAMETER acme$_query_data = '00004400'X ! Query function output data, PARAMETER acme$_max_query_out = '00004400'X, PARAMETER acme$_min_event_out = '00004500'X ! EVENT itemsL PARAMETER acme$_event_data_out = '00004500'X ! Event function output data, PARAMETER a vcme$_max_event_out = '00004500'X ! 9 ! Output item codes subject to VTF-7 <-> UCS conversion ! . PARAMETER acme$_min_gen_out_ucs = '00006100'X ! Generic itemsL PARAMETER acme$_server_name_out = '00006100'X ! ACME relative server name. PARAMETER acme$_max_gen_out_ucs = '00006100'X3 PARAMETER acme$_min_auth_pwd_out_ucs = '00006200'X0 ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD itemsZ PARAMETER acme$_authenticating_doi_name = '00006200'X ! Name of DOI accepting principalM PARAMETER w acme$_mapped_vms_username = '00006201'X ! Resultant VMS UsernameS PARAMETER acme$_mapping_acme_name = '00006202'X ! Name of ACME mapping principalN PARAMETER acme$_principal_name_out = '00006203'X ! Processed principal name3 PARAMETER acme$_max_auth_pwd_out_ucs = '00006203'X !  ! Logon (Job) Type Values ! ' PARAMETER acme$k_network = '00000001'X% PARAMETER acme$k_batch = '00000002'X% PARAMETER acme$k_local = '00000003'X& PARAMETER acme$k_dialup = '00000004'X& PARAMETER axcme$k_remote = '00000005'X ! + !  ! Revision Level ! C ! Revision level is a 16-bit unsigned value, encoded as follows: !  ! 1% ! 5 8 7 0& ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+& ! | | | | | | | | | | | | | | | | |& ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+% ! ^.............^ ^.............^% ! | | | |F ! | | +-------------+-- Bit [7:0] = revision minor id ! | |F ! +---------y----+------------------ Bit [15:8] = revision major id !  ! -5 PARAMETER acmerevlvl$k_minor_id_bitpos = '00000000'X5 PARAMETER acmerevlvl$k_major_id_bitpos = '00000008'X STRUCTURE /acmerevlvl/ UNION MAPB INTEGER*2 acmerevlvl$w_revision_level ! Composite field END MAP MAPI BYTE acmerevlvl$b_minor_id ! Revision level minor idI BYTE acmerevlvl$b_major_id ! Revision level major id END MAP z END UNION END STRUCTURE ! acmerevlvl, PARAMETER acmerevlvl$k_length = '00000002'X ! + !  ! Authentication Mechanism ! M ! Authentication mechanism is a 16-bit unsigned value, encoded as follows: ! ' ! 3 2 2 1 1E ! 1 4 3 6 5 8 7 0F ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+F ! | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |F ! +-+-+-+-+-+-+-+-+-+{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+E ! ^.............................^ ^ ^...........................^E ! | | | | |d ! | | | +---------------------------+-- Bit [14:0] = authenticationC ! | | | +----------------------' ! | | |d ! | | +-------------------------------- Bit [15] = 0 ==> standard |C ! | | +------------------------d ! | | 1 ==> vendor sC ! | | % ! | |d ! +-----------------------------+---------------------------------- Bit [31:16] = vendor's facilC ! +-----------------------------+-------------------------- !  ! - !  ! Standard mechanism types ! } B PARAMETER acmemech$k_password = '00000001'X ! Username-PasswordM PARAMETER acmemech$k_challenge_response = '00000002'X ! Challenge-Response2 PARAMETER acmemech$m_mechanism_type = '00007FFF'X5 PARAMETER acmemech$m_facility_specific = '00008000'X STRUCTURE /acmemech/ UNION MAP< INTEGER*2 acmemech$w_mechanism ! Composite field END MAP MAP5 PARAMETER acmemech$S_mechanism_type = 15Q PARAMETER acmemech$V_mechanism_~type = 0 ! Authentication mechanism7 PARAMETER acmemech$S_facility_specific = 1U PARAMETER acmemech$V_facility_specific = 15 ! 0 ==> standard mechanism% ! 1 ==> facility specific mechanism BYTE %FILL (2) END MAP END UNIONG INTEGER*2 acmemech$w_facility ! Vendor's assigned facility code END STRUCTURE ! acmemech* PARAMETER acmemech$k_length = '00000004'X ! + !  ! Remote Host Address Type ! M ! Remote host address  type is a 16-bit unsigned value, encoded as follows: ! ' ! 3 2 2 1 1E ! 1 4 3 6 5 8 7 0F ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+F ! | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |F ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+E ! ^.............................^ ^ ^...........................^E ! | | | |  |d ! | | | +---------------------------+-- Bit [14:0] = network protocC ! | | | +----------------------' ! | | |d ! | | +-------------------------------- Bit [15] = 0 ==> standardC ! | | +------------------------d ! | | 1 == > vendor sC ! | | % ! | |d ! +-----------------------------+---------------------------------- Bit [31:16] = vendor's facilC ! +-----------------------------+-------------------------- !  ! - !  ! Standard protocol types ! @ PARAMETER acmehat$k_decnet_iv = '00000001'X ! DECnet Phase IV< PARAMETER acmehat$k_decnet_osi = '00000002'X ! DECnet OSIA PARAMETER acmehat$k_ip_v4 = ' 00000003'X ! Internet Protocol V4A PARAMETER acmehat$k_ip_v6 = '00000004'X ! Internet Protocol V60 PARAMETER acmehat$m_protocol_type = '00007FFF'X4 PARAMETER acmehat$m_facility_specific = '00008000'X STRUCTURE /acmehat/ UNION MAP: INTEGER*2 acmehat$w_protocol ! Composite field END MAP MAP3 PARAMETER acmehat$S_protocol_type = 15V PARAMETER acmehat$V_protocol_type = 0 ! Network protocol/address format6 PARAMETER acmehat$S_facility_specific = 1S PARAMETER acmehat$V_facility_specific = 15 ! 0 ==> standard protocol$ ! 1 ==> facility specific protocol BYTE %FILL (2) END MAP END UNIONF INTEGER*2 acmehat$w_facility ! Vendor's assigned facility code END STRUCTURE ! acmehat) PARAMETER acmehat$k_length = '00000004'X ! + ! * ! Password change request control flags !  ! -, PARAMETER acmepwdflg$k_system = '00000000'X, PARAMETER acmepwdflg$m_ system = '00000001'X0 PARAMETER acmepwdflg$k_password_1 = '00000001'X0 PARAMETER acmepwdflg$m_password_1 = '00000002'X0 PARAMETER acmepwdflg$k_password_2 = '00000002'X0 PARAMETER acmepwdflg$m_password_2 = '00000004'X/ PARAMETER acmepwdflg$k_max_flags = '00000003'X/ PARAMETER acmepwdflg$k_specified = '0000001F'X/ PARAMETER acmepwdflg$m_specified = '80000000'X1 PARAMETER acmepwdflg$m_valid_flags = '00000007'X4 PARAMETER acmepwdflg$m_password_flags = '7FFFFFFF'X STRUCTURE /acmepwdflg/ UNION MAP UNION MAPD INTEGER*4 acmepwdflg$l_flags_struct ! Composite field END MAP MAP2 PARAMETER acmepwdflg$S_system = 1U PARAMETER acmepwdflg$V_system = 0 ! Request system password change6 PARAMETER acmepwdflg$S_password_1 = 1T PARAMETER acmepwdflg$V_password_1 = 1 ! Request password 1 change6 PARAMETER acmepwdflg$S_password_2 = 1T PARAMETER acmepwdflg$V_password_2 = 2 ! Request password 2 change5 PARAMETER acmepwdflg$S_specified = 1Y PARAMETER acmepwdflg$V_specified = 31 ! Used internally by the service% ! to indicate flags reflect caller& ! specified NEW_PASSWORD_FLAGS item ! Caller's setting is ignored BYTE %FILL (1) END MAP END UNION END MAP MAP/ PARAMETER acmepwdflg$S_valid_flags = 3K  PARAMETER acmepwdflg$V_valid_flags = 0 ! Currently defined flags BYTE %FILL (1) END MAP MAP3 PARAMETER acmepwdflg$S_password_flags = 312 PARAMETER acmepwdflg$V_password_flags = 01 BYTE %FILL (4) ! Non-reserved flags END MAP END UNION END STRUCTURE ! acmepwdflg, PARAMETER acmepwdflg$k_length = '00000004'X ! + ! # ! $ACM Item Set Message Category ! G ! Message Categories are 16-bit unsigned values , encoded as follows: !  ! 1% ! 5 8 7 0& ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+& ! | | | | | | | | | | | | | | | | |& ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+% ! ^ ^ ^ ^% ! | | | |A ! | | +-------------------------+-- Bit [13:0] = message type ! | |b ! | +------------------------------ Bit [14] = 0 ==> not subject to VTF-7 <-> UCS conversion^ ! |  = 1 ==> subject to VTF-7 <-> UCS conversion ! |F ! +-------------------------------- Bit [15] = 0 ==> common itemM ! 1 ==> ACME specific item !  ! -& PARAMETER acmemc$m_type = '00003FFF'X% PARAMETER acmemc$m_ucs = '00004000'X/ PARAMETER acmemc$m_acme_specific = '00008000'X STRUCTURE /acmemc/ UNION MAP9 INTEGER*2 acmemc$w_msg_code ! Composite field END MAP MAP) PARAMETER acmemc$S_type = 14: PARAMETER acmemc$V_type = 0 ! Ranged value' PARAMETER acmemc$S_ucs = 1[ PARAMETER acmemc$V_ucs = 14 ! 0 ==> not subject to VTF-7 <-> UCS conversion- ! 1 ==> subject to VTF-7 <-> UCS conversion1 PARAMETER acmemc$S_acme_specific = 1L PARAMETER acmemc$V_acme_specific = 15 ! 0 ==> common category ! 1 ==> ACME specific category BYTE %FILL (2) END MAP END UNION END S TRUCTURE ! acmemc( PARAMETER acmemc$k_length = '00000002'X ! % ! Generic output message categories ! + ! These are all subject to UCS conversion ! - PARAMETER acmemc$k_min_gen_msg = '00004000'X: PARAMETER acmemc$k_general = '00004000'X ! General text8 PARAMETER acmemc$k_header = '00004001'X ! Header text: PARAMETER acmemc$k_trailer = '00004002'X ! Trailer textB PARAMETER acmemc$k_selection = '00004003'X ! Acceptable choicesE PARAMETER acmemc$k_dialogue_alert = '00004004 'X ! Alert (advisory)- PARAMETER acmemc$k_max_gen_msg = '00004004'X ! . ! LOGINOUT related output message categories ! + ! These are all subject to UCS conversion ! / PARAMETER acmemc$k_min_logon_msg = '00004100'XV PARAMETER acmemc$k_system_identification = '00004100'X ! System identification textC PARAMETER acmemc$k_system_notices = '00004101'X ! System noticesF PARAMETER acmemc$k_welcome_notices = '00004102'X ! Welcome notices,A PARAMETER acmemc$k_logon_notices = '000 04103'X ! Logon noticesG PARAMETER acmemc$k_password_notices = '00004104'X ! Password notices? PARAMETER acmemc$k_mail_notices = '00004105'X ! MAIL notices/ PARAMETER acmemc$k_max_logon_msg = '00004105'X ! + !  ! ACMESB - ACM Status Block !  ! - STRUCTURE /acmesb/2 INTEGER*4 acmesb$l_status ! Primary statusJ INTEGER*4 acmesb$l_secondary_status ! Auxillary (privileged) statusR RECORD /acmeid/ acmesb$l_acme_id ! ID of ACME/DOI reporting specific statusA INTEGER*4 acmesb$l_acme_status ! ACME/DOI specific status END STRUCTURE ! acmesb( PARAMETER acmesb$k_length = '00000010'X ! + ! & ! ACMECB - ACM Communications Buffer !  ! -, PARAMETER acmedlogflg$m_input = '00000001'X- PARAMETER acmedlogflg$m_noecho = '00000002'X0 PARAMETER acmedlogflg$m_specified = '80000000'X2 PARAMETER acmedlogflg$m_valid_flags = '00000003'X5 PARAMETER acmedlogflg$m_dialogue_flags = '7FFFFFFF'X STRUCTURE /acmedlogflg/ UNION MAP UNION MAPE INTEGER*4 acmedlogflg$l_flags_struct ! Composite field END MAP MAP2 PARAMETER acmedlogflg$S_input = 1H PARAMETER acmedlogflg$V_input = 0 ! Response required3 PARAMETER acmedlogflg$S_noecho = 1\ PARAMETER acmedlogflg$V_noecho = 1 ! When prompting, do not echo response6 PARAMETER acmedlogflg$S_specified = 1Z PARAMETER acmedlogflg$V_specified = 31 ! Used internally by the service% ! to indicate flags reflect caller$ ! specified DIALOGUE_SUPPORT item ! Caller's setting is ignored BYTE %FILL (1) END MAP END UNION END MAP MAP0 PARAMETER acmedlogflg$S_valid_flags = 2L PARAMETER acmedlogflg$V_valid_flags = 0 ! Currently defined flags BYTE %FILL (1) END MAP MAP4 PARAMETER acmedlogflg$S_dialogue_flags = 313 PARAMETER acmedlogflg$V_dialogue_flags = 01 BYTE %FILL (4) ! Non-reserved flags END MAP END UNION END STRUCTURE ! acmedlogflg- PARAMETER acmedlogflg$k_length = '00000004'X STRUCTURE /acmeitmset/F RECORD /acmedlogflg/ acmeis$l_flags ! Item set processing flagsN RECORD /acmeic/ acmeis$w_item_code ! Item code reflecting the nature of# ! information provided/requested UNION MAPK INTEGER*2 acmeis$w_max_le ngth ! Maximum length of an input data END MAP MAPO RECORD /acmemc/ acmeis$w_msg_type ! Message category for output data END MAP END UNION; INTEGER*4 acmeis$q_data_1(2) ! Data 1 (prompt text)@ INTEGER*4 acmeis$q_data_2(2) ! Data 2 (default response) END STRUCTURE ! acmeitmset( PARAMETER acmeis$k_length = '00000018'X. PARAMETER acmecb$k_minor_id_000 = '00000000'X* PARAMETER acmecb$k_minor_id = '00000000'X. PARAMETER acmecb$k_ma jor_id_001 = '00000001'X* PARAMETER acmecb$k_major_id = '00000001'X* PARAMETER acmecb$k_revision = '00000100'X STRUCTURE /acmecb/L INTEGER*4 acmecb$q_context_id(2) ! ID of associated ACM Request Block; INTEGER*2 acmecb$w_size ! Structure size, in bytesM RECORD /acmerevlvl/ acmecb$w_revision_level ! Structure revision levelL RECORD /acmeid/ acmecb$l_acme_id ! ID of ACME/DOI requesting dialogueE INTEGER*4 acmecb$l_item_set_count ! Number of item set entries! INTEGER*4 acmecb$ps_item_set ! Pointer to item set array END STRUCTURE ! acmecb( PARAMETER acmecb$k_length = '00000018'X ! + ! ( ! ACMELI - ACM Logon Information Block !  ! -+ PARAMETER acmelgiflg$k_min_logon_flag = -17 PARAMETER acmelgiflg$k_new_mail_at_login = '00000000'X7 PARAMETER acmelgiflg$m_new_mail_at_login = '00000001'X6 PARAMETER acmelgiflg$k_password_changed = '00000001'X6 PARAMETER acmelgiflg$m_password_changed = '00000002'X6 PARAMETER acmelgiflg$k_passwo rd_expired = '00000002'X6 PARAMETER acmelgiflg$m_password_expired = '00000004'X6 PARAMETER acmelgiflg$k_password_warning = '00000003'X6 PARAMETER acmelgiflg$m_password_warning = '00000008'X7 PARAMETER acmelgiflg$k_password2_changed = '00000004'X7 PARAMETER acmelgiflg$m_password2_changed = '00000010'X7 PARAMETER acmelgiflg$k_password2_expired = '00000005'X7 PARAMETER acmelgiflg$m_password2_expired = '00000020'X7 PARAMETER acmelgiflg$k_password2_warning = '00000006'X7 PARAMETER acmelgiflg$ m_password2_warning = '00000040'X4 PARAMETER acmelgiflg$k_max_logon_flag = '00000006'X STRUCTURE /acmelgiflg/ UNION MAP? INTEGER*4 acmelgiflg$l_logon_flags ! Composite field END MAP MAP9 PARAMETER acmelgiflg$S_new_mail_at_login = 1Z PARAMETER acmelgiflg$V_new_mail_at_login = 0 ! User had new MAIL message(s)8 PARAMETER acmelgiflg$S_password_changed = 1U PARAMETER acmelgiflg$V_password_changed = 1 ! Primary password changed8 PARAMETER acmelgiflg$S_password_expired = 1^ PARAMETER acmelgiflg$V_password_expired = 2 ! Primary password expired on login8 PARAMETER acmelgiflg$S_password_warning = 1a PARAMETER acmelgiflg$V_password_warning = 3 ! Primary password expiration imminent9 PARAMETER acmelgiflg$S_password2_changed = 1X PARAMETER acmelgiflg$V_password2_changed = 4 ! Secondary password changed9 PARAMETER acmelgiflg$S_password2_expired = 1a PARAMETER acmelgiflg$V_password2_expired = 5 ! Secondary password expired on login9 PARAMETER acmelgiflg$S_password2_warning = 1d PARAMETER acmelgiflg$V_password2_warning = 6 ! Secondary password expiration imminent BYTE %FILL (1) END MAP END UNION END STRUCTURE ! acmelgiflg, PARAMETER acmelgiflg$k_length = '00000004'X1 PARAMETER acmelivms$k_minor_id_000 = '00000000'X- PARAMET ER acmelivms$k_minor_id = '00000000'X1 PARAMETER acmelivms$k_major_id_001 = '00000001'X- PARAMETER acmelivms$k_major_id = '00000001'X- PARAMETER acmelivms$k_revision = '00000100'X STRUCTURE /acmelivms/X RECORD /acmeid/ acmelivms$l_acme_id ! ID of ACME which reported logon informationQ INTEGER*4 acmelivms$l_phase ! Phase during which information was reported= INTEGER*2 acmelivms$w_size ! Structure size, in bytesP RECORD /acmerevlvl/ acmelivms$w_revision_level ! Structure revision levelL INTEGER*4 acmelivms$l_logfail_count ! Number of failed logon attemptsM RECORD /UTCBLK/ acmelivms$o_logon_int ! Time of last interactive logonT RECORD /UTCBLK/ acmelivms$o_logon_nonint ! Time of last non-interactive logon END STRUCTURE ! acmelivms+ PARAMETER acmelivms$k_length = '00000030'X1 PARAMETER acmelidoi$k_minor_id_000 = '00000000'X- PARAMETER acmelidoi$k_minor_id = '00000000'X1 PARAMETER acmelidoi$k_major_id_001 = '00000001'X- PARAMETER acmelidoi$k_major_id = '00000001'X- PARAMETER acmelidoi$k_revision = '00000100'X STRUCTURE /acmelidoi/X RECORD /acmeid/ acmelidoi$l_acme_id ! ID of ACME which reported logon informationQ INTEGER*4 acmelidoi$l_phase ! Phase during which information was reported= INTEGER*2 acmelidoi$w_size ! Structure size, in bytesP RECORD /acmerevlvl/ acmelidoi$w_revision_level ! Structure revision levelL INTEGER*4 acmelidoi$l_logfail_count ! Number of failed logon attempts= RECORD /UTCBLK/ acmelidoi$o_logon ! Time of last logonM RECORD /UTCBLK/ acmelidoi$o_logon_int ! Time of last interactive logonT RECORD /UTCBLK/ acmelidoi$o_logon_nonint ! Time of last non-interactive logonG RECORD /UTCBLK/ acmelidoi$o_logfail ! Time of last logon failureW RECORD /UTCBLK/ acmelidoi$o_logfail_int ! Time of last interactive logon failure^ RECORD /UTCBLK/ acmelidoi$o_logfail_nonint ! Time of last non-interactive logon failure END STRUCTURE ! acmelidoi+ PARAMETER acmelidoi$k_length = '00000070'X. PARAMETER acmeli$k_minor_id_000 = '00000000'X* PARAMETER acmeli$k_minor_id = '00000000'X. PARAMETER acmeli$k_major_id_001 = '00000001'X* PARAMETER acmeli$k_major_id = '00000001'X* PARAMETER acmeli$k_revision = '00000100'X STRUCTURE /acmeli/ UNION MAP- INTEGER*8 acmeli$pq_logon_info_doi64 END MAP. ! Non-native (non-OpenVMS) logon information MAP1 INTEGER*4 acmeli$ps_logon_info_doi32. ! Non-native (non-OpenVMS) logon information2 INTEGER*4 acmeli$l_logon_info_doi32se ! Sign extension field END MAP END UNION; INTEGER*2 acmeli$w_size ! Structure size, in bytesM RECORD /acmerevlvl/ acmeli$w_revision_level ! Structure revision level= RECORD /acmelgiflg/ acmeli$l_logon_flags ! Logon flags UNION MAP- INTEGER*8 acmeli$pq_logon_info_vms64 END MAP& ! Native (OpenVMS) logon information MAP1 INTEGER*4 acmeli$ps_logon_info_vms32& ! Native (OpenVMS) logon information2 INTEGER*4 acmeli$l_logon_info_vms32se ! Sign extension field END MAP END UNIONV RECORD /acmelivms/ acmeli$r_logon_info_vms ! Native (OpenVMS) logon information^ RECORD /acmelidoi/ acmeli$r_logon_info_doi ! Non-native (non-OpenVMS) logon information END STRUCTURE ! acmeli( PARAMETER acmeli$k_length = '000000B8'XO PARAMETER acme$k_query_revision_l evel = '00000001'X ! Service revision levelP PARAMETER acme$k_query_acme_count = '00000002'X ! Number of registered agentsI PARAMETER acme$k_query_acme_id = '00000003'X ! Specify/report agent idM PARAMETER acme$k_query_acme_name = '00000004'X ! Specify/reprot agent name8 PARAMETER acme$k_service_revision_001_000 = '00000100'X !  ! Pre-$ACM definitions... ! I ! Definitions for the $AUTHENTICATE[W], $LOGON[W], and $SET_PASSWORD[W] ! system services. !  !  ! $LOGON[W] function codes. ! I PARAMETER ACME$_MAP_TO_USERNAME = '00000001'X ! Map userid to usernameM PARAMETER ACME$_VERIFY_PASSWORD_ONLY = '00000002'X ! Authenticate passwordT PARAMETER ACME$_MAX_FUNCTION_CODE = '00000003'X ! maximum legal function code + 1 ! A ! Item codes. Codes specific to a particular service are noted: !  ! $AU = $AUTHENTICATE[W] ! $LO = $LOGON[W] ! $SP = $SET_PASSWORD[W] ! ? PARAMETER ACME$_DOMAIN = '00000002'X ! Authentication domain1 PARAMETER ACME$_USERID = '00000003'X ! User ID; PARAMETER ACME$_PASSWORD = '00000004'X ! Single password> PARAMETER ACME$_PASSWORD_LIST = '00000005'X ! Password listB PARAMETER ACME$_NEW_PASSWORD = '00000006'X ! New password ($SP)T PARAMETER ACME$_OUTPUT_VMS_USERNAME = '00000007'X ! Mapped OpenVMS username ($LO)T PARAMETER ACME$_NOAUTHENTICATION = '00000008'X ! No password authentication ($SP)Q PARAMETER ACME$_OVERRIDE_POLICY = '00000009'X ! Override password policy ($SP)P PARAMETER ACME$_SYNCHRONIZE = '0000000A'X ! Set password in all domains ($SP)H PARAMETER ACME$_REASON_CODE = '0000000B'X ! ACME-specific reason codeN PARAMETER ACME$_VALIDATE_ONLY = '0000000C'X ! Validate user can login ($LO)] PARAMETER ACME$_UAF_RECORD_LOCKED = '0000000D'X ! Advisory that UAF record is locked ($LO)= PARAMETER ACME$_RESERVED_ITEM_1 = '0000000E'X ! Reserved 1= PARAMETER ACME$_RESERVED_ITEM_2 = '0000000F'X ! Reserved 2L PARAMETER ACME$_MAX_ITEM_CODE = '00000010'X ! maximum legal item code + 1 !  ! Structures and constants. ! D PARAMETER ACME$C_MAJOR_VERSION = '00000001'X ! Major ACME versionD PARAMETER ACME$C_MINOR_VERSION = '00000000'X ! Minor ACME versionD PARAMETER ACME$S_MAX_DOMAIN = '00000100'X ! Maximum domain lengthD PARAMETER ACME$S_MAX_USERID = '00000100'X ! Maximum userid lengthH PARAMETER ACME$S_MAX_PASSWORD = '00000100'X ! Maximum password length ! K ! The PASSWORD_LIST item code requires a list of password items with eachK ! item specified by a PWDITM structure definition. The list is terminated ! by a longword zero. !  STRUCTURE /ACME$R_PWDITM/ UNION MAP> INTEGER*4 ACME$L_TERMINATOR ! Termination longword END MAP MAPL INTEGER*2 ACME$W_PWDNUM ! Password number (1=primary, etc.)G INTEGER*2 ACME$W_RSRVD1 ! reserved for future use, MBZ END MAP END UNIONF INTEGER*4 ACME$A_OLDPWD ! Descriptor address for old passwordF INTEGER*4 ACME$A_NEWPWD ! Descriptor address for new password END STRUCTURE ! ACME$R_PWDITM ! 7 ! Maximum password number to be used in password list ! 0 PARAMETER ACME$C_MAX_PASSWORD_NUM = '00000008'X!DEC$ END OPTIONS wwӏΦ!*** MODULE $ACMEMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:50.18 !  ! M ! *************************************************************************M ! * *M ! * COPYRIGHT 2000, 2001 COMPAQ COMPUTER CORPORATION *M ! * *M ! * COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. *M ! * *M ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ OR *M ! * AUTHORIZED SUBLICENSOR REQUIRED FOR POSSESSION, USE OR COPYING. *M ! * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *M ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *M ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *M ! * COMMERCIAL LICENSE. *M ! * *M ! * COMPAQ SHALL NOT BE LIABLE FOR TECHNICAL OR EDITORIAL ERRORS OR *M ! * OMISSIONS CONTAINED HEREIN. THE INFORMATION IN THIS DOCUMENT IS *M ! * SUBJECT TO CHANGE WITHOUT NOTICE. *M ! * *M ! ************************************************************************* !  ! ++ ! ! FACILITY: ! ! STARLET ! ! ABSTRACT: ! G ! THIS MODULE DEFINES THE MESSAGE CODES USED BY THE $AUTHENTICATE[W],< ! $LOGON[W], $SET_PASSWORD[W] AND $ACM[W] SYSTEM SERVICES. !  ! ENVIRONMENT: ! ? ! VMS PROTECTED SHAREABLE IMAGE ($AUTHENTICATE[W], $LOGON[W], ! $SET_PASSWORD[W])% ! VMS EXECUTIVE ($ACM[W] SERVICE)0 ! VMS AUTHENTICIATION SERVER ($ACM[W] SERVICE) ! ! AUTHOR: ! & ! RICHARD J. BARRY DECEMBER 15, 1995 !  ! ! NOTE:0 ! THIS MODULE IS COMMON BETWEEN ALPHA AND VAX. !  ! MODIFICATIONS: ! $ ! X-20 DOUGLAS FYFE 22-MAY-2003 ! ADD DIALOGUELM ERROR CODE. ! ' ! X-19 RICHARD J. BARRY 14-NOV-20019 ! TWEEK THE ACME$_FAILURE MESSAGE DESCRIPTION ONE LAST: ! TIME TO COMMUNICATE THE FACT THAT ACME SERVER LOGGING ! MAY NEED TO BE ENABLED. ! $ ! X-18 DOUGLAS FYFE 5-OCT-20018 ! X-17 ADD ERROR CODES FOR CONFIGURATION/RESTART FILE + ! OPEN FAILURES. FIX CUT-N-PASTE ERROR.  ! . ! X-16 RJB0129 RICHARD J. BARRY 6-AUG-2001' ! CORRECT MESSAGE DESCRIPTION TYPOS. ! 3 ! X-15 LJK0204 LAWRENCE J. KILGALLEN 4-JAN-20019 ! CHANGE FAILURE TEXT TO MENTION ACME$SERVER LOG FILE. ! 3 ! X-14 LJK0182 LAWRENCE J. KILGALLEN 31-AUG-2000 ! ADD BADSTRUCTLEN.* ! ADD CONTACTSYSMGR, PER PTR 75-43-211. ! . ! X-13 AJM00701 ANDREW J. MOSKAL 24-JUL-2000 ! ADD NOAGENTINIT. ! . ! X-12 AJM00602 ANDREW J. MOSKAL 21-JUN-20007 ! ADD WASCLR, WASSET AND LOCKED ALTERNATIVE SUCCESS.! ! ADD INVITMSEQ AND NOACMECTX. ! ADD NOTOUTITEM. ! ADD AGENTLOADFAIL.7 ! UPDATE COPYRIGHT NOTICE PER MANAGEMENT DIRECTIVES. ! . ! X-11 AJM63405 ANDREW J. MOSKAL 13-APR-1999 ! ADD INCOMPATSTATE. ! . ! X-10 AJM62A07 ANDREW J. MOSKAL 29-OCT-1998 ! ADD BUSY. ! - ! X-9 AJM62602 ANDREW J. MOSKAL 23-JUN-19980 ! MOVE ERROPNLOGFIL, RENAME TO ERROPENLOGFIL.+ ! ADD ERRCLOSELOGFIL AND ERRWRITELOGFIL.$ ! ADD SERVERSTART AND SERVEREXIT.3 ! CORRECT TYPO: DOIUNAVAILBLE ==> DOIUNAVAILBLE. ! - ! X-8 AJM62307 ANDREW J. MOSKAL 16-MAR-1998 ! REINSTATE PERFORMDIALOGUE. ! - ! X-7 AJM62301 ANDREW J. MOSKAL 11-MAR-19984 ! MOVE TRACE MESSAGES TO [ACMESRV]ACMESRVMSG.MSG. ! - ! X-6 AJM62202 ANDREW J. MOSKAL 12-FEB-1998( ! ADD GENERAL FAILURE STATUS MESSAGE. ! - ! X-5 AJM62120 ANDREW J. MOSKAL 23-JAN-19985 ! ADD SET SERVER (DCL INTERFACE) RELATED MESSAGES. ! FIX FAO DIRECTIVES:/ ! - !XQ SHOULD BE !@XQ (INDIRECT REFERENCES) ! - %UL SHOULD BE !UL. ! REVISE AUTHDOWN TEXT. ! - ! X-4 AJM62103 ANDREW J. MOSKAL 8-JAN-1998) ! INCORPORATE $ACM[W] RELATED MESSAGE.> ! (LEFT PRE-$ACM MESSAGES INTACT TO ALLOW FOR THE CONTINUED? ! BUILDING OF PREVIOUS SUPPORT. MAY REVISIT PRIOR TO SSB.) ! . ! X-3 JACH0036 JEREMY A. C. HITT 5-AUG-1996% ! ADDED MESSAGES FOR ACME MODULES. ! . ! X-2 JACH0014 JEREMY A. C. HITT 4-MAR-1996- ! INITIAL VERSION MERGED FROM ACME STREAM. ! --' PARAMETER ACME$_FACILITY = '0000074A'X ! ++ ! ? ! ADD NEW MESSAGE CODES AT THE END OF THE APPROPRIATE LIST. !  ! ASSIGNED RANGES: ! ( ! 0 - 99 SUCCESS ( 100 MESSAGES)- ! 100 - 199 INFORMATIONAL ( 100 MESSAGES)( ! 200 - 1199 WARNING (1000 MESSAGES)& ! 1200 - 2199 ERROR (1000 MESSAGES)& ! 2200 - 2559 FATAL ( 360 MESSAGES) ! 8 ! 2560 - 3071 AUTHENTICATION SERVER EXECUTION CONTROL.D ! 3072 - 4095 AUTHENTICATION SERVER EXECUTION CONTROL AND TRACING.7 ! (MESSAGES ARE DEFINED BY [ACMESRV]ACMESRVMSG.MSG) !  ! --% PARAMETER ACME$_NORMAL = '074A8001'X% PARAMETER ACME$_WASCLR = '074A8009'X% PARAMETER ACME$_WASSET = '074A8011'X% PARAMETER ACME$_LOCKED = '074A8019'X' PARAMETER ACME$_CONTINUE = '074A8001'X' PARAMETER ACME$_PWDSYNCH = '074A8323'X) PARAMETER ACME$_PWDNOSYNCH = '074A832B'X' PARAMETER ACME$_LOCLOGIN = '074A8333'X !  ! $ACM MESSAGES ! ( PARAMETER ACME$_BUFFEROVF = '074A833B'X* PARAMETER ACME$_SERVERSTART = '074A8343'X) PARAMETER ACME$_SERVEREXIT = '074A834B'X !  ! $ACM MESSAGES ! ( PARAMETER ACME$_OPINCOMPL = '074A8640'X+ PARAMETER ACME$_NOSUCHUSERID = '074AA582'X' PARAMETER ACME$_PWDWRONG = '074AA58A'X) PARAMETER ACME$_ACCEXPIRED = '074AA592'X) PARAMETER ACME$_PWDEXPIRED = '074AA59A'X* PARAMETER ACME$_INVALIDTIME = '074AA5A2'X* PARAMETER ACME$_UNSPECIFIED = '074AA5AA'X+ PARAMETER ACME$_PWDINHISTORY = '074AA5B2'X( PARAMETER ACME$_PWDINDICT = '074AA5BA'X* PARAMETER ACME$_PWDTOOSHORT = '074AA5C2'X) PARAMETER ACME$_PWDTOOLONG = '074AA5CA'X) PARAMETER ACME$_PWDINVCHAR = '074AA5D2'X) PARAMETER ACME$_PWDTOOEASY = '074AA5DA'X) PARAMETER ACME$_PWDINVALID = '074AA5E2'X, PARAMETER ACME$_PWDCANTCHANGE = '074AA5EA'X( PARAMETER ACME$_NOLOCAUTH = '074AA5F2'X) PARAMETER ACME$_USERIDRQRD = '074AA5FA'X& PARAMETER ACME$_PWDRQRD = '074AA602'X' PARAMETER ACME$_INSUFITM = '074AA60A'X !  ! $ACM MESSAGES ! * PARAMETER ACME$_AUTHFAILURE = '074AA612'X* PARAMETER ACME$_ACCOUNTLOCK = '074AA61A'X) PARAMETER ACME$_NOSUCHUSER = '074AA622'X) PARAMETER ACME$_I NVALIDPWD = '074AA62A'X( PARAMETER ACME$_INVNEWPWD = '074AA632'X( PARAMETER ACME$_PWDNOTCHG = '074AA63A'X) PARAMETER ACME$_INVMAPPING = '074AA642'X* PARAMETER ACME$_MAPCONFLICT = '074AA64A'X, PARAMETER ACME$_NOTAUTHORIZED = '074AA652'X( PARAMETER ACME$_NOEXTAUTH = '074AA65A'X' PARAMETER ACME$_INTRUDER = '074AA662'X) PARAMETER ACME$_INVPERSONA = '074AA66A'X+ PARAMETER ACME$_NOTARGETCRED = '074AA672'X, PARAMETER ACME$_NOCREDENTIALS = '074AA67A'X. PARAMETER ACME$_INSFDIALSUPPORT = '074AA6 82'X) PARAMETER ACME$_INVALIDCTX = '074AA68A'X) PARAMETER ACME$_INVREQUEST = '074AA692'X) PARAMETER ACME$_INVALIDTLV = '074AA69A'X% PARAMETER ACME$_NOPRIV = '074AA6A2'X- PARAMETER ACME$_DOIUNAVAILABLE = '074AA6AA'X( PARAMETER ACME$_NOSUCHDOI = '074AA6B2'X& PARAMETER ACME$_TIMEOUT = '074AA6BA'X. PARAMETER ACME$_UNSUPPORTED = '074AA6C2'X ! O ! THIS MESSAGE IS SENT TO THE SYSTEM MANAGER WHEN DETAILS ARE IN THE LOG FILE ! & PARAMETER ACME$_FAILURE = '074AA6CA'X, PARAMETER ACME$_ERROPENLOGFIL = '074AA6D2'X- PARAMETER ACME$_ERRCLOSELOGFIL = '074AA6DA'X- PARAMETER ACME$_ERRWRITELOGFIL = '074AA6E2'X( PARAMETER ACME$_INVITMSEQ = '074AA6EA'X( PARAMETER ACME$_NOACMECTX = '074AA6F2'X ! I ! THIS MESSAGE IS SENT TO THE END USER WHEN DETAILS ARE IN THE LOG FILE ! , PARAMETER ACME$_CONTACTSYSMGR = '074AA6FA'X ! @ ! ERROR MESSAGES TO REPORT FAILURES OPENING AUTO-RESTART FILES ! 0 PARAMETER ACME$_ERROPENRESTARTFIL = '074AA702'X0 PARAMETER ACME$_ERROPENCONFIGSFIL = '074AA70A'X) PARAMETER ACME$_DIALOGUELM = '074AA712'X ! , ! CONTROL (DCL) INTERFACE RELATED MESSAGES ! % PARAMETER ACME$_ACTIVE = '074ABE82'X' PARAMETER ACME$_INACTIVE = '074ABE8A'X) PARAMETER ACME$_NOTSTARTED = '074ABE92'X ! * PARAMETER ACME$_AGENTDBFULL = '074ABE9A'X& PARAMETER ACME$_DUPACME = '074ABEA2'X# PARAMETER ACME$_BUSY = '074ABEAA'X, PARAMETER ACME$_INCOMPATSTATE = '074ABEB2'X, PARAMETER ACME$_AGENTLOADFAIL = '074ABEBA'X* PARAMETER ACME$_NOAGENTINIT = '074ABEC2'X' PARAMETER ACME$_AUTHDOWN = '074AC4C4'X) PARAMETER ACME$_INCONSTATE = '074AC4CC'X ! ++ ! L ! MESSAGE CODES 2560 THROUGH 4095 ARE RESERVED FOR INTERNAL (NOT VISIBLEM ! AT THE $ACM[W] SERVICE INTERFACE) USE WITHIN THE AUTHENTICATION SERVER. !  ! ASSIGNED RANGES: ! ! ! 2560 - 3071 EXECUTION CONTROL ! (DEFINED HEREIN)4 ! 3072 - 4095 EXECUTION CONTROL AND TRACE MESSAGES* ! (DEFINED BY [ACMESRV]ACMESRVMSG.MSG) !  ! --. PARAMETER ACME$_PERFORMDIALOGUE = '074AD400 'X+ PARAMETER ACME$_PERFORMPHASE = '074AD408'X' PARAMETER ACME$_RETRYPWD = '074AD410'X& PARAMETER ACME$_WAITAST = '074AD418'X+ PARAMETER ACME$_WAITRESOURCE = '074AD420'X+ PARAMETER ACME$_ASTCTXNOTFND = '074AD802'X* PARAMETER ACME$_BUFTOOSMALL = '074AD80A'X) PARAMETER ACME$_DIALOGFULL = '074AD812'X) PARAMETER ACME$_DUPCREDTYP = '074AD81A'X) PARAMETER ACME$_INVCREDTYP = '074AD822'X& PARAMETER ACME$_INVFLAG = '074AD82A'X+ PARAMETER ACME$_INVPARAMETER = '074AD832'X' PARAMETER ACME$_NOMSGFND = '074AD83A'X( PARAMETER ACME$_NULLVALUE = '074AD842'X/ PARAMETER ACME$_RESOURCENOTAVAIL = '074AD84A'X* PARAMETER ACME$_UNSUPREVLVL = '074AD852'X) PARAMETER ACME$_NOTOUTITEM = '074AD85A'X+ PARAMETER ACME$_BADSTRUCTLEN = '074AD862'X ! FATAL* PARAMETER ACME$_THREADERROR = '074ADC04'X!DEC$ END OPTIONSww_Φ&!*** MODULE $acmevmsdef IDENT X-11 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Item code biasing factors !  ! Backward-compatibility ! Not for initial call ! Contemporary supported ! $CREPRC argument items ! UAI data ! # ! ACME-specific output data types ! 7 ! These codes are provided by the VMS ACME for return. ! in field MAX_LENGTH of an output Item Set. ! 8 ! The field MAX_LENGTH is named for its purpose within7 ! Input Item Sets, but for Output Item Sets it allows< ! SYS$ACM[W] clients to categorize the output they receive) ! and dispatch to specialized handling. ! A ! These ACME-specific values are provided only where the caller@ ! is one the VMS ACME knows can handle these particular binary ! codes, i.e. LOGINOUT. ! N ! These data types are defined exclusively to provide backward compatibilityJ ! with interface methods used prior to the introduction of SYS$ACM[W] byI ! TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces.E ! They will not be provided to other clients which call SYS$ACM[W]. ! / PARAMETER acmevms$k_min_msg_type = '00008000'XS PARAMETER acmevms$k_old_decw_pwd_exp_1 = '00008000'X ! Binary expiration warningS PARAMETER acmevms$k_old_decw_pwd_exp_2 = '00008001'X ! Binary expiration warningZ PARAMETER acmevms$k_old_decw_pwd_quality = '00008002'X ! Binary password quality statusJ PARAMETER acmevms$k_old_sysuaf_070 = '00008003'X ! Authorization RecordP PARAMETER acmevms$k_old_auth_flags = '00008004'X ! Password requirement flagsU PARAMETER acmevms$k_old_terminal_connect = '00008005'X ! UIC, Username and Account/ PARAMETER acmevms$k_max_msg_type = '00008005'X ! - ! ACME-specific Item Codes for the VMS ACME ! < ! Items with these codes from the callr of SYS$ACM[W] will< ! be provided to the VMS ACME (exclusively) if they follow> ! an instance of General Item Code ACME_TARGET_ACME_ID which ! specifies the VMS ACME. ! @ ! ACME-specific Item Codes have the high bit (15) set, whereas% ! General Item Codes have it clear. !  !  ! Input Item Codes ! = ! While SYS$ACM does not specify semantics for the handlingA ! of multiple input item codes of the same value, the semantics; ! of the VMS ACME are uniform for all input item codes --; ! the value associated with the last input item prevails. !  ! < ! Input item codes not subject to VTF-7 <-> UCS conversion !  ! + ! Backward-compatibility Input Item Codes ! I ! These codes are defined exclusively to provide backward compatibilityJ ! with interface methods used prior to the introduction of SYS$ACM[W] byI ! TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces.F ! They will not be honored from other clients which call SYS$ACM[W]. ! , PARAMETER acmevms$_min_old_in = '00008000'Xa PARAMETER acmevms$_old_decwindows_flag = '00008000'X ! old DECwindows authentication mechanism^ PARAMETER acmevms$_old_hashed_password_1 = '00008001'X ! old ARGUS authentication mechanism^ PARAMETER acmevms$_old_hashed_password_2 = '00008002'X ! old ARGUS auth entication mechanism\ PARAMETER acmevms$_old_lgi_phase = '00008003'X ! old LGI-callout authentication mechanism] PARAMETER acmevms$_old_lgi_status = '00008004'X ! old LGI-callout authentication mechanism, PARAMETER acmevms$_max_old_in = '00008004'X !  ! Solicited Input Item Codes ! E ! These codes support historic LOGINOUT behavour and in addition toE ! being retricted to LOGINOUT are not honored on initial calls fromJ ! LOGINOUT. They can only be provided in response to an I nput Item Set. ! 2 PARAMETER acmevms$_min_solicited_in = '00008100'X[ PARAMETER acmevms$_loginout_cli_flags = '00008100'X ! LOGINOUT received these qualifiersU PARAMETER acmevms$_old_connection_flag = '00008101'X ! LOGINOUT did a reconnection^ PARAMETER acmevms$_old_process_name = '00008102'X ! the process name after LOGINOUT $SETPRN2 PARAMETER acmevms$_max_solicited_in = '00008102'X !  ! General Input Items ! @ ! These non-converting input item codes are permanent features A ! of the VMS ACME, although some require particular privileges. ! A ! LOGINOUT_CREPRC_FLAGS is only honored from LOGINOUT, althoughF ! other clients can achieve the same results using other Item Codes.A ! The reason LOGINOUT_CREPRC_FLAGS exists is to minimize coding? ! changes for the transition of LOGINOUT to using SYS$ACM[W]. ! 0 PARAMETER acmevms$_min_general_in = '00008200'Xb PARAMETER acmevms$_autologin_allowed_flag = '00008200'X ! autologin is allowed for this requestO PARAMETER acmevms$_spare_1 = '00008201'X ! originally default_principal_flagX PARAMETER acmevms$_genpwd_count = '00008202'X ! desired number of generated passwords] PARAMETER acmevms$_genpwd_mandatory_flag = '00008203'X ! generated password must be chosen[ PARAMETER acmevms$_genpwd_maxlength = '00008204'X ! maximum length of generated password[ PARAMETER acmevms$_genpwd_minlength = '00008205'X ! minimum length of generated password] PARAMETER acmevms$_loginout_creprc_flags = '00008206'X ! CTL$GL_CREPRC_FLAGS from LOGINOUTd PARAMETER acmevms$_requestor_pid = '00008207'X ! PID of client process (make spare after Kestrel)U PARAMETER acmevms$_preauthentication_flag = '00008208'X ! preauthenticated request` PARAMETER acmevms$_uses_system_password = '00008209'X ! this connection uses system passwordsd PARAMETER acmevms$_requestor_uic = '0000820A'X ! UIC of client process (make spare after Kestrel)0 PARAMETER acmevms$_max_general_in = '0000820A'X ! 8 ! Input item codes subject to VTF-7 <-> UCS conversion ! 4 PARAMETER acmevms$_min_general_in_ucs = '0000A200'X[ PARAMETER acmevms$_net_proxy = '0000A200'X ! network proxy username string from LOGINOUTd PARAMETER acmevms$_requestor_username = '0000A201'X ! Username of client process (make spare afteV PARAMETER acmevms$_confirm_password_sys = '0000A202'X ! Reenter New System PasswordU PARAMETER acmevms$_confirm_password_1 = '0000A203'X ! Reenter New Primary PasswordW PARAMETER acmevms$_confirm_password_2 = '0000A204'X ! Reenter New Secondary Password4 PARAMETER acmevms$_max_general_in_ucs = '0000A204'X !  ! Output Item Codes ! = ! While SYS$ACM does not specify semantics for the handlingB ! of multiple output item codes of the same value, the semantics< ! of the VMS ACME are uniform for all output item codes --- ! all such codes are honored independently. !  ! = ! Output item codes not subject to VTF-7 <-> UCS conversion !  !  ! General Output Items ! A ! These non-converting output item codes are permanent features ! of the VMS ACME. ! 1 PARAMETER acmevms$_min_general_out = '0000C200'XU PARAMETER acmevms$_class_days = '0000C200'X ! primary days for the scheduler classO PARAMETER acmevms$_class_flags = '0000C201'X ! flags for the scheduler classP PARAMETER acmevms$_class_number = '0000C202'X ! number of the scheduler classc PARAMETER acmevms$_class_primeday_limit = '0000C203'X ! hourly quantum percentage on primary day e PARAMETER acmevms$_class_seconday_limit = '0000C204'X ! hourly quantum percentage on secondary day1 PARAMETER acmevms$_max_general_out = '0000C204'X !  ! CREPRC-based output items ! D ! These Output Item Codes provide information in a format suitableE ! for passing to the $CREPRC System service, freeing callers of any= ! need to track the introduction of new VMS process quotas. ! 0 PARAMETER acmevms$_min_creprc_out = '0000C300'XI PARAMETER acmevms$_creprc_baspri = '0000C 300'X ! Process base priorityH PARAMETER acmevms$_creprc_image = '0000C301'X ! Image name (LOGINOUT)H PARAMETER acmevms$_creprc_prcnam = '0000C302'X ! Process name (blank)E PARAMETER acmevms$_creprc_prvadr = '0000C303'X ! Process privilegeE PARAMETER acmevms$_creprc_quota = '0000C304'X ! Process quota listI PARAMETER acmevms$_creprc_uic = '0000C305'X ! UIC for detached process0 PARAMETER acmevms$_max_creprc_out = '0000C305'X !  ! UAI-based output items ! A ! These code s provide the same information returned by $GETUAI,B ! but synchronized with the UAI data as used for authentication. ! ? ! Correspondence between these codes and those from UAIDEF isB ! tested in the private part of module STARLET_WE_USE_ by arrays? ! ENSURE_UAI_NO_BIGGER_THAN_ACMEVMS_UAI and also by the array* ! ENSURE_ACMEVMS_UAI_NO_BIGGER_THAN_UAI. ! D ! The UAI_BASE constant defined below, added to normal UAI$_ codesA ! used for the $SETUAI and $GETUAI system services will produce ! the following values: ! - PARAMETER acmevms$_min_uai_out = '0000C400'X? PARAMETER acmevms$_uai_rtype = '0000C400'X ! UAF record typeD PARAMETER acmevms$_uai_version = '0000C401'X ! UAF format versionY PARAMETER acmevms$_uai_usrdatoff = '0000C402'X ! offset of counted string of user data; PARAMETER acmevms$_uai_username = '0000C403'X ! usernameS PARAMETER acmevms$_uai_username_tag = '0000C404'X ! tag to differentiate records: PARAMETER acmevms$_uai_uic = '0000C40 5'X ! user ID code= PARAMETER acmevms$_uai_mem = '0000C406'X ! member subfield< PARAMETER acmevms$_uai_grp = '0000C407'X ! group subfieldD PARAMETER acmevms$_uai_sub_id = '0000C408'X ! user sub-identifierW PARAMETER acmevms$_uai_parent_id = '0000C409'X ! identifier of owner of this account> PARAMETER acmevms$_uai_account = '0000C40A'X ! account name< PARAMETER acmevms$_uai_owner = '0000C40B'X ! owner's name? PARAMETER acmevms$_uai_defdev = '0000C40C'X ! default deviceB PARAMETER acmevms$_uai_defdir = '0000C40D'X ! default directoryC PARAMETER acmevms$_uai_lgicmd = '0000C40E'X ! login command fileL PARAMETER acmevms$_uai_defcli = '0000C40F'X ! default command interpreterC PARAMETER acmevms$_uai_clitables = '0000C410'X ! user CLI tables= PARAMETER acmevms$_uai_pwd = '0000C411'X ! hashed password> PARAMETER acmevms$_uai_pwd2 = '0000C412'X ! second passwordJ PARAMETER acmevms$_uai_logfails = '0000C413'X ! count of login failuresC PARAMETER acmevms$_uai_salt = '0000C414'X ! random password saltQ PARAMETER acmevms$_uai_encrypt = '0000C415'X ! primary password hash algorithmT PARAMETER acmevms$_uai_encrypt2 = '0000C416'X ! secondary password hash algorithmL PARAMETER acmevms$_uai_pwd_length = '0000C417'X ! minimum password lengthP PARAMETER acmevms$_uai_expiration = '0000C418'X ! expiration date for accountH PARAMETER acmevms$_uai_pwd_lifetime = '0000C419'X ! password lifetimeJ PARAMETER acmevms$_uai_pwd_date = '0000C41A'X ! date of password changeO PARAMETER acmevms$_uai_pwd2_date = '0000C41B'X ! date of 2nd password changeT PARAMETER acmevms$_uai_lastlogin_i = '0000C41C'X ! date of last interactive loginX PARAMETER acmevms$_uai_lastlogin_n = '0000C41D'X ! date of last non-interactive loginG PARAMETER acmevms$_uai_priv = '0000C41E'X ! process privilege vectorM PARAMETER acmevms$_uai_def_priv = '0000C41F'X ! default process privilegesJ PARAMETER acmevms$_uai_min_class = '0000C420'X ! minimum security classJ PARAMETER acmevms$_uai_max_class = '0000C421'X ! maximum security classC PARAMETER acmevms$_uai_flags = '0000C422'X ! user flags longwordY PARAMETER acmevms$_uai_network_access_p = '0000C423'X ! hourly network access, primary[ PARAMETER acmevms$_uai_network_access_s = '0000C424'X ! hourly network access, secondaryU PARAMETER acmevms$_uai_batch_access_p = '0000C425'X ! hourly batch access, primaryW PARAMETER acmevms$_uai_batch_access_s = '0000C426'X ! hourly batch access, secondaryU PARAMETER acmevms$_uai_local_access_p = '0000C427'X ! hourly local access, primaryW PARAMETER acmevms$_uai_local_access_s = '0000C428'X ! hourly local access, secondaryW PARAMETER acmevms$_uai_dialup_access_p = '0000C429'X ! hourly dialup access, primaryY PARAMETER acmevms$_uai_dialup_access_s = '0000C42A'X ! hourly dialup access, secondaryW PARAMETER acmevms$_uai_remote_access_p = '0000C42B'X ! hourly remote access, primaryY PARAMETER acmevms$_uai_remote_access_s = '0000C42C'X ! hourly remote access, secondaryR PARAMETER acmevms$_uai_primedays = '0000C42D'X ! bits representing primary daysC PARAMETER acmevms$_uai_pri = '0000C42E'X ! base process priorityM PARAMETER acmevms$_uai_quepri = '0000C42F'X ! maximum job queuing priorityN PARAMETER acmevms$_uai_maxjobs = '0000C430'X ! maximum jobs for UIC allowedV PARAMETER acmevms$_uai_maxacctjobs = '0000C431'X ! maximum jobs for account allowedV PARAMETER acmevms$_uai_maxdetach = '0000C432'X ! maximum detached processes for UICJ PARAMETER acmevms$_uai_prccnt = '0000C433'X ! subprocess creation limitB PARAMETER acmevms$_uai_biolm = '0000C434'X ! buffered I/O limit@ PARAMETER acmevms$_uai_diolm = '0000C435'X ! direct I/O limitG PARAMETER acmevms$_uai_tqcnt = '0000C436'X ! timer queue entry limit? PARAMETER acmevms$_uai_astlm = '0000C437'X ! AST queue limit= PARAMETER acmevms$_uai_enqlm = '0000C438'X ! enqueue limit? PARAMETER acmevms$_uai_fillm = '0000C439'X ! open file limitD PARAMETER acmevms$_uai_shrfillm = '0000C43A'X ! shared file limitH PARAMETER acmevms$_uai_wsquota = '0000C43B'X ! working set size quotaJ PARAMETER acmevms$_uai_dfwscnt = '0000C43C'X ! default working set sizeI PARAMETER acmevms$_uai_wsextent = '0000C43D'X ! working set size limitC PARAMETER acmevms$_uai_pgflquota = '0000C43E'X ! page file quota? PARAMETER acmevms$_uai_cputim = '0000C43F'X ! CPU time quotaM PARAMETER acmevms$_uai_bytlm = '0000C440'X ! buffered I/O byte count limitR PARAMETER acmevms$_uai_pbytlm = '0000C441'X ! paged buffer I/O byte count limit\ PARAMETER acmevms$_uai_jtquota = '0000C442'X ! job-wide logical name table creation quotaT PARAMETER acmevms$_uai_proxy_lim = '0000C443'X ! number of proxies user can grantK PARAMETER acmevms$_uai_proxies = '0000C444'X ! number of proxies grantedT PARAMETER acmevms$_uai_account_lim = '0000C445'X ! number of sub-accounts allowedP PARAMETER acmevms$_uai_accounts = '0000C446'X ! number of sub-accounts in useB PARAMETER acmevms$_uai_user_data = '0000C447'X ! user data area+ ! Next two codes not supported for outputM PARAMETER acmevms$_uai_password = '0000C448'X ! plaintext primary passwordP PARAMETER acmevms$_uai_password2 = '0000C449'X ! plaintext secondary password/ ! Previous two codes not supported for outputS PARAMETER acmevms$_uai_def_class = '0000C44A'X ! default security classification_ PARAMETER acmevms$_uai_audit_flags = '0000C44B'X ! audit flags to be used when changing data- PARAMETER acmevms$_max_uai_out = '0000C44B'X ! 9 ! Output item codes subject to VTF-7 <-> UCS conversion ! 5 PARAMETER acmevms$_min_general_out_ucs = '0000E200'XL PARAMETER acmevms$_class_name = '0000E200'X ! name of the scheduler class5 PARAMETER acmevms$_max_general_out_ucs = '0000E200'X ! + !  ! Bit mask types !  ! - ! 1 ! Flags indicating CLI qualifiers were supplied ! 8 ! Most of these are passed to the VMS ACME to possibly5 ! trigger (audited) rejection of the login attempt. ! ' PARAMETER acmevms$m_disk = '00000001'X& PARAMETER acmevms$m_cli = '00000002'X) PARAMETER acmevms$m_tables = '00000004'X* PARAMETER acmevms$m_command = '00000008'X* PARAMETER acmevms$m_connect = '00000010'X/ PARAMETER acmevms$m_new_password = '00000020'X1 PARAMETER acmevms$m_local_password = '00000040'X STRUCTURE /cli_flags/! PARAMETER acmevms$S_disk = 1- PARAMETER acmevms$V_disk = 0 ! /DISK= PARAMETER acmevms$S_cli = 1 + PARAMETER acmevms$V_cli = 1 ! /CLI=# PARAMETER acmevms$S_tables = 11 PARAMETER acmevms$V_tables = 2 ! /TABLES=$ PARAMETER acmevms$S_command = 13 PARAMETER acmevms$V_command = 3 ! /COMMAND=$ PARAMETER acmevms$S_connect = 15 PARAMETER acmevms$V_connect = 4 ! /CONNECT[=]) PARAMETER acmevms$S_new_password = 1; PARAMETER acmevms$V_new_password = 5 ! /NEW_PASSWORD+ PARAMETER acmevms$S_local_password = 1? PARAMETER acmevms$V_local_password = 6 ! /LOCAL_PASSWORD BYTE %FILL (1) END STRUCTURE ! cli_flags) PARAMETER acmevms$k_length = '00000004'X ! + !  ! Miscellaneous constants !  ! -+ ! Authentication mechanism for TNT$SERVERJ PARAMETER acmevms$k_auth_mech_argus = '00D38000'X ! Only for TNT$SERVER@ ! Base to which UAI$_ codes can be added for use in SYS$ACM[W]> PARAMETER acmevms$k_uai_base = '0000C3FF'X ! Item Code Base; ! Maximum length (in characters) of a Mapped VMS UsernameI PARAMETER acmevms$k_maxchar_vms_username = '00000020'X ! in characters!DEC$ END OPTIONS ww@`Φ!*** MODULE $ACRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +* ! ACRDEF - ACCOUNTING RECORD DEFINITIONS ! I ! NOTE: IF ANY FIELDS CHANGE, A NEW VERSION NUMBER MUST BE ADDED AND *P ! "ACR$K_CURVER" EQUATED TO IT. * !  ! -+ ! RECORD/PACKET VERSIONS (ACR$V_VERSION) L PARAMETER ACR$K_VERSION2 = '0000000 0'X ! VMS VERSION 2 ACCOUNTING FORMAT F PARAMETER ACR$K_VERSION3T = '00000001'X ! VMS VERSION 3 FIELD TEST L PARAMETER ACR$K_VERSION3 = '00000002'X ! VMS VERSION 3 ACCOUNTING FORMAT H PARAMETER ACR$K_CURVER = '00000002'X ! CURRENT FORMAT VERSION NUMBER % PARAMETER ACR$M_PACKET = '00000001'X# PARAMETER ACR$M_TYPE = '000000FE'X& PARAMETER ACR$M_SUBTYPE = '00000F00'X& PARAMETER ACR$M_VERSION = '00007000'X' PARAMETER ACR$M_CUSTOMER = '00008000'X9 PARAMETER ACR$K_PRCDEL = '00000001'X ! PROCESS DELETE 8 PARAMETER ACR$K_PRCPUR = '00000002'X ! PROCESS PURGE 7 PARAMETER ACR$K_IMGDEL = '00000003'X ! IMAGE DELETE 6 PARAMETER ACR$K_IMGPUR = '00000004'X ! IMAGE PURGE A PARAMETER ACR$K_SYSINIT = '00000005'X ! SYSTEM INITIALIZATION ; PARAMETER ACR$K_SETTIME = '00000006'X ! SET SYSTEM TIME D PARAMETER ACR$K_LOGFAIL = '00000007'X ! LOGIN VALIDATION FAILURE 3 PARAMETER ACR$K_PRINT = '00000008'X ! PRINT JOB ; PARAMETER ACR$K_USER = '00000009'X ! USER SUPPLIED DATA E PARAMETER ACR$K_ENABLE = '0000000A'X ! ACC. MANG. FUNCTION ENABLE G PARAMETER ACR$K_DISABLE = '0000000B'X ! ACC. MANG. FUNCTION DISABLE G PARAMETER ACR$K_ALTACM = '0000000C'X ! DECLARE ALTERNATE ACC. MANG. J PARAMETER ACR$K_FILE_FL = '0000000D'X ! ACCOUNTING FILE - FORWARD LINK K PARAMETER ACR$K_FILE_BL = '0000000E'X ! ACCOUNTING FILE - BACKWARD LINK - ! RECORD SUBTYPE (ACR$V_SUBTYPE) CONSTANTS C PARAMETER ACR$K_INTERACTIVE = '00000001'X ! INTERACTIVE PROCESS 9 PARAMETER A CR$K_SUBPROCESS = '00000002'X ! SUBPROCESS = PARAMETER ACR$K_DETACHED = '00000003'X ! DETACHED PROCESS 7 PARAMETER ACR$K_BATCH = '00000004'X ! BATCH PROCESS ; PARAMETER ACR$K_NETWORK = '00000005'X ! NETWORK PROCESS ' ! PACKET TYPE (ACR$V_TYPE) CONSTANTS < PARAMETER ACR$K_ID = '00000001'X ! IDENTIFICATION PACKET B PARAMETER ACR$K_RESOURCE = '00000002'X ! RESOURCE USAGE PACKET > PARAMETER ACR$K_IMAGENAME = '00000003'X ! IMAGENAME PACKET < PARAMETER ACR$K_FILENAME = '00000004'X ! FILENAME PACKET > PARAMETER ACR$K_USER_DATA = '00000005'X ! USER DATA PACKET  STRUCTURE /ACRDEF/ UNION MAP7 INTEGER*2 ACR$W_TYPE ! RECORD/PACKET TYPE  END MAP MAP' PARAMETER ACR$S_PACKET = 1A PARAMETER ACR$V_PACKET = 0 ! RECORD(0)/PACKET(1) % PARAMETER ACR$S_TYPE = 7> PARAMETER ACR$V_TYPE = 1 ! RECORD/PACKET TYPE ( PARAMETER ACR$S_SUBTYPE = 4D PARAMETER ACR$V_SUBTYPE = 8 ! RECORD/PACKET SUBTYPE ( PARAMETER ACR$S_VERSION = 3L PARAMETER ACR$V_VERSION = 12 ! RECORD/PACKET VERSION NUMBER ) PARAMETER ACR$S_CUSTOMER = 1* PARAMETER ACR$V_CUSTOMER = 15: BYTE %FILL (2) ! DIGITAL(0)/CUSTOMER(1)  END MAP' ! RECORD TYPE (ACR$V_TYPE) CONSTANTS  END UNION: INTEGER*2 ACR$W_LENGTH ! RECORD OR PACKET LENGTH  !  ! RECORD HEADER !  END STRUCTURE ! ACRDEF ? PARAMETER ACR$K_HDRLEN = '0000000C'X ! RECORD HEADER LENGTH ? PARAMETER ACR$C_HDRLEN = '0000000C'X ! RECORD HEADER LENGTH  !  STRUCTURE /ACRDEF1/ BYTE %FILL(1:4)7 INTEGER*4 ACR$Q_SYSTIME(2) ! EVENT SYSTEM TIME  ! IDENTIFICATION PACKET !  END STRUCTURE ! ACRDEF1' PARAMETER ACR$M_FULLNAME = '00000001'X% PARAMETER ACR$M_UIDGID = '00000002'X% PARAMETER ACR$M_FILL_1 = '000000FC'XL PARAMETER ACR$K_IDVAR = '0000003A'X ! BEGINNING OF VARIABLE STORAGE AREA L PARAMETER ACR$C_IDVAR = '0000003A'X ! BEGINNING OF VARIABLE STORAGE AREA  !  STRUCTURE /ACRDEF2/ BYTE %FILL(1:4)* INTEGER*4 ACR$L_PID ! PROCESS ID 1 INTEGER*4 ACR$L_OWNER ! OWNER PROCES ID UNION MAP/ INTEGER*4 ACR$L_UIC ! PROCESS UIC  END MAP MAP2 INTEGER*2 ACR$W_MEM ! MEMBER UIC 1 INTEGER*2 ACR$W_GRP ! GROUP UIC  END MAP END UNION0 INTEGER*4 ACR$Q_PRIV(2) ! PROCESS PRIV 0 BYTE ACR$B_PRI ! PROCESS PRIORITY UNION MAP4 BYTE ACR$B_IDFLGS ! FLAGS BIT MASK END MAP MAP) PARAMETER ACR$S_FULLNAME = 1I PARAMETER ACR$V_FULLNAME = 0 ! NOT PRESENT (0)/PRESENT(1)' PARAMETER ACR$S_UIDGID = 1G PARAMETER ACR$V_UIDGID = 1 ! NOT PRESENT (0)/PRESENT(1)' PARAMETER ACR$S_FILL_1 = 6' PARAMETER ACR$V_FILL_1 = 2- BYTE %FILL (1) ! SPARE BITS END MAP END UNION3 INTEGER*2 ACR$W_USERNAME ! USERNAME OFFSET 7 INTEGER*2 ACR$W_ACCOUNT ! ACCOUNT NAME OFFSET 4 INTEGER*2 ACR$W_NODENAME ! NODE NAME OFFSET 8 INTEGER*2 ACR$W_TERMINAL ! TERMINAL NAME OFFSET 3 INTEGER*2 ACR$W_JOBNAME ! JOB NAME OFFSET ( INTEGER*4 ACR$L_JOBID ! JOB ID 3 INTEGER*2 ACR$W_QUEUE ! QUEUE NAME OFFSET 7 INTEGER*2 ACR$W_NODEADDR ! REMOTE NODE ADDRESS 4 INTEGER*2 ACR$W_REMOTEID ! REMOTE ID OFFSET 9 INTEGER*2 ACR$W_FULLADDR ! REMOTE PHASE V ADDRESS: INTEGER*2 ACR$W_FULLNAME ! REMOTE PHASE V FULLNAME- INTEGER*4 ACR$L_POSIX_UID ! POSIX UID- INTEGER*4 ACR$L_POSIX_GID ! POSIX GID ! RESOURCE PACKET !  END STRUCTURE ! ACRDEF2 STRUCTURE /ACRDEF3/ BYTE %FILL(1:4)< INTEGER*4 ACR$Q_LOGIN(2) ! PROCESS/IMAGE START TIME = INTEGER*4 ACR$L_STATUS ! PROCESS/IMAGE FINAL STATUS H INTEGER*4 ACR$L_IMGCNT ! IMAGE EXECUTION COUNT/SEQUENCE NUMBER : INTEGER*4 ACR$L_CPUTIME ! PROCESS/IMAGE CPU TIME A INTEGER*4 ACR$L_FAULTS ! PROCESS/IMAGE PAGE FAULT COUNT F INTEGER*4 ACR$L_FAULTIO ! PROCESS/IMAGE PAGE FAULT I/O COUNT A INTEGER*4 ACR$L_WSPEAK ! PROCESS/IMAGE WORKING SET PEAK E INTEGER*4 ACR$L_PAGEFL ! PROCESS/IMAGE PEAK PAGE FILE USAGE A INTEGER*4 ACR$L_DIOCNT ! PROCESS/IMAGE DIRECT I/O COUNT C INTEGER*4 ACR$L_BIOCNT ! PROCESS/IMAGE BUFFERED I/O COUNT D INTEGER*4 ACR$L_VOLUMES ! PROCESS/IMAGE VOLUME MOUNT COUNT B INTEGER*4 ACR$L_VP_CPUTIME ! PROCESS/IMAGE VECTOR CPU TIME !  ! IMAGENAME PACKET !  END STRUCTURE ! ACRDEF3 STRUCTURE /ACRDEF4/ BYTE %FILL(1:4)2 CHARACTER*256 ACR$T_IMAGENAME ! IMAGENAME  !  ! PRINT RESOURCE PACKET !  END STRUCTURE ! ACRDEF4 STRUCTURE /ACRDEF5/ BYTE %FILL(1:4). INTEGER*4 ACR$L_PRINTSTS ! JOB STATUS 9 INTEGER*4 ACR$Q_QUETIME(2) ! TIME JOB WAS QUEUED 8 INTEGER*4 ACR$Q_BEGTIME(2) ! TIME JOB WAS BEGUN 6 INTEGER*4 ACR$L_SYMCPUTIM ! SYMBIONT CPU TIME 7 INTEGER*4 ACR$L_PAGECNT ! TOTAL PAGES PRINTED 4 INTEGER*4 ACR$L_QIOCNT ! TOTAL QIOS ISSUED 4 INTEGER*4 ACR$L_GETCNT ! TOTAL GETS ISSUED  !  ! FILENAME PACKET !  END STRUCTURE ! ACRDEF5 STRUCTURE /ACRDEF6/ BYTE %FILL(1:4)0 CHARACTER*256 ACR$T_FILENAME ! FILENAME  !  ! USER DATA PACKET !  END STRUCTURE ! ACRDEF6 STRUCTURE /ACRDEF7/ BYTE %FILL(1:4)2 CHARACTER*256 ACR$T_USER_DATA ! USER DATA  END STRUCTURE ! ACRDEF7!DEC$ END OPTIONS ww`Φ!*** MODULE $AFRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNC PARAMETER AFR$K_USER_LENGTH = '00000010'X ! Length of user entryC PARAMETER AFR$C_USER_LENGTH = '00000010'X ! Length of user entryA PARAMETER AFR$K_VMS_LENGTH = '00000018'X ! Length of VMS entryA PARAMETER AFR$C_VMS_LENGTH = '00000018'X ! Length of VMS entryB PARAMETER AFR$K_EXTENDED_LENGTH = '00000128'X ! Extended lengthB PARAMETER AFR$C_EXTENDED_LENGTH = '00000128'X ! Extended length, PARAMETER AFR$C_UNINITIALIZED = '00000000'X' PARAMETER AFR$C_BUFFERED = '00000001'XR PARAMETER AFR$C_EXCEPTION = '00000002'X ! Values passed to start system service STRUCTURE /AFRDEF/ UNION MAP? INTEGER*4 AFR$Q_FAULT_PC(2) ! PC of alignment fault END MAP MAP' INTEGER*4 AFR$L_FAULT_PC_L' INTEGER*4 AFR$L_FAULT_PC_H END MAP END UNION UNION MAPC INTEGER*4 AFR$Q_FAULT_VA(2) ! Unaligned virtual address END MAP MAP' INTEGER*4 AFR$L_FAULT_VA_L' INTEGER*4 AFR$L_FAULT_VA_H END MAP END UNION UNION MAP: INTEGER*4 AFR$Q_RESERVED(2) ! Reserved for VMS END MAP  MAP' INTEGER*4 AFR$L_RESERVED_L' INTEGER*4 AFR$L_RESERVED_H END MAP END UNION3 CHARACTER*256 AFR$T_IMAGE_NAME ! Image name0 CHARACTER*16 AFR$T_USER_NAME ! User name END STRUCTURE ! AFRDEF& PARAMETER AFR$M_ENABLED = '00000001'X+ PARAMETER AFR$M_TEMP_ENABLED = '00000002'X+ PARAMETER AFR$M_PERM_ENABLED = '00000004'X' PARAMETER AFR$M_DISABLED = '00000000'X( PARAMETER AFR$M_USER_INFO = '00000008'X STRUCTURE /AFREDEF/ P ARAMETER AFR$S_ENABLED = 10 PARAMETER AFR$V_ENABLED = 0 ! Enable bit% PARAMETER AFR$S_TEMP_ENABLED = 1H PARAMETER AFR$V_TEMP_ENABLED = 1 ! TRUE if enabled image by image% PARAMETER AFR$S_PERM_ENABLED = 1E PARAMETER AFR$V_PERM_ENABLED = 2 ! TRUE if permanently enabled" PARAMETER AFR$S_USER_INFO = 1B PARAMETER AFR$V_USER_INFO = 3 ! If set, user info is saved BYTE %FILL (1) END STRUCTURE ! AFREDEF* PARAMETER AME$M_KERNEL_MODE = '00000001'X( PARAMETER AME$M_EXEC_MODE = '00000002'X) PARAMETER AME$M_SUPER_MODE = '00000004'X( PARAMETER AME$M_USER_MODE = '00000008'X& PARAMETER AME$M_USER_VA = '00000010'X( PARAMETER AME$M_SYSTEM_VA = '00000020'X& PARAMETER AME$M_USER_PC = '00000040'X( PARAMETER AME$M_SYSTEM_PC = '00000080'X) PARAMETER AME$M_USER_VA_P0 = '00000100'X) PARAMETER AME$M_USER_VA_P1 = '00000200'X) PARAMETER AME$M_USER_VA_P2 = '00000400'X@ PARAMETER AME$C_SIZE = '00000004'X ! Length in bytes for mask@ PARAMETER AME$K_SIZE = '00000004'X ! Length in bytes for mask STRUCTURE /AMEDEF/$ PARAMETER AME$S_KERNEL_MODE = 1$ PARAMETER AME$V_KERNEL_MODE = 0" PARAMETER AME$S_EXEC_MODE = 1" PARAMETER AME$V_EXEC_MODE = 1# PARAMETER AME$S_SUPER_MODE = 1# PARAMETER AME$V_SUPER_MODE = 2" PARAMETER AME$S_USER_MODE = 1" PARAMETER AME$V_USER_MODE = 3 PARAMETER AME$S_USER_VA = 1 PARAMETER AME$V_USER_VA = 4" PARAMETER AME$S_SYSTEM_VA = 1" PARAMETER AME$V_SYSTEM_VA = 5 PARAMETER AME$S_USER_PC = 1 PARAMETER AME$V_USER_PC = 6" PARAMETER AME$S_SYSTEM_PC = 1" PARAMETER AME$V_SYSTEM_PC = 7# PARAMETER AME$S_USER_VA_P0 = 1# PARAMETER AME$V_USER_VA_P0 = 8# PARAMETER AME$S_USER_VA_P1 = 1# PARAMETER AME$V_USER_VA_P1 = 9# PARAMETER AME$S_USER_VA_P2 = 1$ PARAMETER AME$V_USER_VA_P2 = 10 BYTE %FILL (2) END STRUCTURE ! AMEDEF ! , ! AFLDEF defines which region a VA lies in ! $ PARAMETER AFL$M_P0_VA = '00000001'X$ PARAMETER AFL$M_P1_VA = '00000002'X$ PARAMETER AFL$M_P2_VA = '00000004'X& PARAMETER AFL$M_S0S1_VA = '00000008'X$ PARAMETER AFL$M_S2_VA = '00000010'X) PARAMETER AFL$M_PROCESS_VA = '00000020'X( PARAMETER AFL$M_SYSTEM_VA = '00000040'X2 STRUCTURE /AFLDEF/ ! Alignment fault location UNION MAP INTEGER*4 AFL$L_VA_LOC END MAP MAP& PARAMETER AFL$S_P0_VA = 1B PARAMETER AFL$V_P0_VA = 0 ! Address is in P0 space& PARAMET ER AFL$S_P1_VA = 1B PARAMETER AFL$V_P1_VA = 1 ! Address is in P1 space& PARAMETER AFL$S_P2_VA = 1B PARAMETER AFL$V_P2_VA = 2 ! Address is in P2 space( PARAMETER AFL$S_S0S1_VA = 1J PARAMETER AFL$V_S0S1_VA = 3 ! Address is in S0 or S1 space& PARAMETER AFL$S_S2_VA = 1B PARAMETER AFL$V_S2_VA = 4 ! Address is in S2 space+ PARAMETER AFL$S_PROCESS_VA = 1Z PARAMETER AFL$V_PROCESS_VA = 5 ! Address is in P0,P1,or P2 (process space)* PARAMETER AFL$S_SYSTEM_VA = 1X PARAMETER AFL$V_SYSTEM_VA = 6 ! Address is in S0,S1,or S2 (system space) BYTE %FILL (1) END MAP END UNION END STRUCTURE ! AFLDEF!DEC$ END OPTIONS ww?`Φ!*** MODULE $AGNDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +! ! $ASSIGN FLAGS bit definitions ! -' PARAMETER AGN$M_READONLY = '00000001'X( PARAMET ER AGN$M_WRITEONLY = '00000002'X$ PARAMETER AGN$M_CLONE = '00000004'X STRUCTURE /AGNDEF/ UNION MAP% PARAMETER AGN$S_READONLY = 1Y PARAMETER AGN$V_READONLY = 0 ! Channel to be assigned to device is READ ONLY.& PARAMETER AGN$S_WRITEONLY = 1[ PARAMETER AGN$V_WRITEONLY = 1 ! Channel to be assigned to device is WRITE ONLY." PARAMETER AGN$S_CLONE = 1O PARAMETER AGN$V_CLONE = 2 ! Channel will be cloned by POSIX fork(). BYTE %FILL (1) END MAP END UNION END STRUCTURE ! AGNDEF!DEC$ END OPTIONS wwd%aΦ!*** MODULE $ALPHADEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! E ! Not all of what you see here was built, shipped and/or announced.G ! So-called Whitebox (Microsoft Windows-Only) systems are not listed.C ! Various systems listed here are not supported by OpenVMS Alpha. ! J PARAMETER ALPHA$K_NOT_A_VAX = '00000400'X ! A pseudo-SMM sometimes seen_ PARAMETER ALPHA$K_MIN_ALPHA = '00000400'X ! The smallest architecturally-permitted Alpha SMMC PARAMETER ALPHA$K_MIN_SMM = '00000401'X ! The smallest Alpha SMM( PARAMETER ALPHA$K_ID_BASE = '00000401'XA PARAMETER ALPHA$K_A7000_610 = '00000401'X ! DEC 7000 Model 610A PARAMETER ALPHA$K_A7000_620 = '00000402'X ! DEC 7000 Model 620A PARAMETER ALPHA$K_A7000_630 = '00000403'X ! DEC 7000 Model 630A PARAMETER ALPHA$K_A7000_640 = '00000404'X ! DEC 7000 Model 640C PARAMETER ALPHA$K_A10000_610 = '00000405'X ! DEC 10000 Model 610C PARAMETER ALPHA$K_A10000_620 = '00000406'X ! DEC 10000 Model 620C PARAMETER ALPHA$K_A10000_630 = '00000407'X ! DEC 10000 Model 630C PARAMETER ALPHA$K_A10000_640 = '00000408'X ! DEC 10000 Model 640B PARAMETER ALPHA$K_A3000_500W = '00000409'X ! DEC 3000 Model 500C PARAMETER ALPHA$K_A3000_500S = '0000040A'X ! DEC 3000 Model 500SB PARAMETER ALPHA$K_A3000_400W = '0000040B'X ! DEC 3000 Model 400C PARAMETER ALPHA$K_A3000_400S = '0000040C'X ! DEC 3000 Model 400SA PARAMETER ALPHA$K_A4000_610 = '0000040D'X ! DEC 4000 Model 610A PARAMETER ALPHA$K_A4000_620 = '0000040E'X ! DEC 4000 Model 620* PARAMETER ALPHA$K_A4000_810 = '0000040F'X* PARAMETER ALPHA$K_A4000_820 = '00000410'X% PARAMETER ALPHA$K_AADU = '00000411'XA PARAMETER ALPHA$K_A3000_300 = '00000412'X ! DEC 3000 Model 300C PARAMETER ALPHA$K_A3000_300L = '00000413'X ! DEC 3000 Model 300LA PARAMETER ALPHA$K_A2000_300 = '00000414'X ! DEC 2000 Model 300C PARAMETER A LPHA$K_A2000_300S = '00000415'X ! DEC 2000 Model 300SA PARAMETER ALPHA$K_A7000_650 = '00000416'X ! DEC 7000 Model 650A PARAMETER ALPHA$K_A7000_660 = '00000417'X ! DEC 7000 Model 660C PARAMETER ALPHA$K_A10000_650 = '00000418'X ! DEC 10000 Model 650C PARAMETER ALPHA$K_A10000_660 = '00000419'X ! DEC 10000 Model 660* PARAMETER ALPHA$K_A4000_630 = '0000041A'X* PARAMETER ALPHA$K_A4000_640 = '0000041B'X* PARAMETER ALPHA$K_A4000_650 = '0000041C'X* PARAMETER ALPHA$K_A4000_660 = '0000041D 'X* PARAMETER ALPHA$K_A2000_200 = '0000041E'X+ PARAMETER ALPHA$K_A2000_200S = '0000041F'XC PARAMETER ALPHA$K_A3000_500X = '00000420'X ! DEC 3000 Model 500X ! W ! The following Alpha System entries have been added to this file for REFERENCE ONLY.R ! Please note that the Alpha system model name string and System Marketing ModelS ! value (SMM) are now passed by the SRM console to the Operating System through aQ ! structure called the HWRPB (hardware restart parameter block); by the Dy namicT ! System Recognition (DSR) support that is present within all but the most ancientQ ! of Alpha systems and the correspondingly ancient versions of the SRM console. ! V ! The following symbol-naming convention was derived from the Alpha System ReferenceF ! Manual (SRM) Registry of Alpha Platforms, Systems, and Processors: !  ! ASa1a2b1b2c1c2d1d2e1e2 ! " ! AS = Alpha SystemV ! a1a2 = Family ID (2 digit hex value), Example: 0C (TurboLaser family)d ! b1b2 = Processor Type (2 digit hex value), Example: 02 (EV4) , 05 (EV5), 06 (EV45),C ! b1b2 = Processor Type (2 digit hex value), ExaO ! c1c2 = Member ID (2 digit hex value), Example: 04 (Rack Mount)d ! d1d2 = SRM Variant (2 digit hex value) for each Family ID/Processor Type/Member ID.C ! d1d2 = SRM Variant (2 digit hex value) for eacd ! differentiating between same platforms with different chip speed (MHz) and/oC ! differentiating between same platforms d ! size and/or expansion capabilities and/or AlphaStation/AlphaServer variants.C ! size and/or expansion capabilities and/d ! specific cases, there is the potential for the CPU count to spill into this C ! specific cases, there is the potential d ! e1e2 = Number of CPUs (2 digit hex value), Ex ample: 0A (10 cpus), or maximum numberC ! e1e2 = Number of CPUs (2 digit hex value), Exa ! D PARAMETER ALPHA$K_AS0202020001 = '00000421'X ! DEC 4000 Model 710D PARAMETER ALPHA$K_AS0202020002 = '00000422'X ! DEC 4000 Model 720O PARAMETER ALPHA$K_AS0902020001 = '00000423'X ! AlphaServer 2100 4/200 (1cpu)O PARAMETER ALPHA$K_AS0902020002 = '00000424'X ! AlphaServer 2100 4/200 (2cpu)O PARAMETER ALPHA$K_AS0902020003 = '00000425'X ! AlphaServer 2100 4/200 (3cpu)O PARAMETER ALPHA$K_AS0902020004 = '00000426'X ! AlphaServer 2100 4/200 (4cpu)D PARAMETER ALPHA$K_AS0402040001 = '00000427'X ! DEC 3000 Model 800D PARAMETER ALPHA$K_AS0402060001 = '00000428'X ! DEC 3000 Model 600D PARAMETER ALPHA$K_AS0602010001 = '00000429'X ! DEC 2000 Model 500= PARAMETER ALPHA$K_AS0B04000001 = '0000042B'X ! DECAXPpci33E PARAMETER ALPHA$K_AS0702020001 = '0000042C'X ! DEC 3000 Model 300XF PARAMETER ALPHA$K_AS0702030001 = '0000042D'X ! DEC 3000 Model 300LXD PARAMETER ALPHA$K_AS0406070001 = '0000042E'X ! DEC 3000 Model 700D PARAMETER ALPHA$K_AS0406080001 = '0000042F'X ! DEC 3000 Model 900A PARAMETER ALPHA$K_AS0706040001 = '00000430'X ! DEC 3000 seriesA PARAMETER ALPHA$K_AS0706050001 = '00000431'X ! DEC 3000 seriesD PARAMETER ALPHA$K_AS0306030001 = '00000432'X ! DEC 7000 Model 710D PARAMETER ALPHA$K_AS0306030002 = '00000433'X ! DEC 7000 Model 720D PARAMETER ALPHA$K_AS0306030003 = '00000434'X ! DEC 7000 Model 730D PARAMETER ALPHA$K_AS0306030004 = '00000435'X ! DEC 7000 Model 740D PARAMETER ALPHA$K_AS0306030005 = '00000436'X ! DEC 7000 Model 750D PARAMETER ALPHA$K_AS0306030006 = '00000437'X ! DEC 7000 Model 760H PARAMETER ALPHA$K_AS0D02010001 = '0000043E'X ! AlphaStation 400 4/166H PARAMETER ALPHA$K_AS0D02020001 = '0000043F'X ! AlphaStation 200 4/166H PARAMETER ALPHA$K_AS0D02030001 = '00000440'X ! AlphaStation 200 4/133H PARAMETER ALPHA$K_AS0F05010001 = '00000441'X ! AlphaStation 600 5/300H PARAMETER ALPHA$K_AS1102010001 = '00000442'X ! AlphaServer 1000 4/200H PARAMETER ALPHA$K_AS1106020001 = '00000443'X ! AlphaServer 1000 4/233O PARAMETER ALPHA$K_AS0C05000001 = '00000445'X ! AlphaServer 8200 5/300 (1cpu)O PARAMETER ALPHA$K_AS0C05000002 = '00000446'X ! AlphaServer 8200 5/300 (2cpu)O PARAMETER ALPHA$K_AS0C05000003 = '00000447'X ! AlphaServer 8200 5/300 (3cpu)O PARAMETER ALPHA$K_AS0C05000004 = '00000448'X ! AlphaServer 8200 5/300 (4cpu)O PARAMETER ALPHA$K_AS0C05000005 = '00000449'X ! AlphaServer 8200 5/300 (5cpu)O PARAMETER ALPHA$K_AS0C05000006 = '0000044A'X ! AlphaServer 8200 5/300 (6cpu)O PARAMETER ALPHA$K_AS0C05010001 = '0000044B'X ! AlphaServer 8400 5/300 (1cpu)O PARAMETER ALPHA$K_AS0C05010002 = '0000044C'X ! AlphaServer 8400 5/300 (2cpu)O PARAMETER ALPHA$K_AS0C05010003 = '0000044D'X ! AlphaServer 8400 5/300 (3cpu)O PARAMETER ALPHA$K_AS0C05010004 = '0000044E'X ! AlphaServer 8400 5/300 (4cpu)O PARAMETER ALPHA$K_AS0C05010005 = '0000044F'X ! AlphaServer 8400 5/300 (5cpu)O PARAMETER ALPHA$K_AS0C05010006 = '00000450'X ! AlphaServer 8400 5/300 (6cpu)O PARAMETER ALPHA$K_AS0C05010007 = '00000451'X ! AlphaServer 8400 5/300 (7cpu)O PARAMETER ALPHA$K_AS0C05010008 = '00000452'X ! AlphaServer 8400 5/300 (8cpu)O PARAMETER ALPHA$K_AS0C05010009 = '00000453'X ! AlphaServer 8400 5/300 (9cpu)P PARAMETER ALPHA$K_AS0C0501000A = '00000454'X ! AlphaServer 8400 5/300 (10cpu)P PARAMETER ALPHA$K_AS0C0501000B = '00000455'X ! AlphaServer 8400 5/300 (11cpu)P PARAMETER ALPHA$K_AS0C0501000C = '00000456'X ! AlphaServer 8400 5/300 (12cpu)O PARAMETER ALPHA$K_AS0906020001 = '0000045B'X ! AlphaServer 2100 4/275 (1cpu)O PARAMETER ALPHA$K_AS0906020002 = '0000045C'X ! AlphaServer 2100 4/275 (2cpu)O PARAMETER ALPHA$K_AS0906020003 = '0000045D'X ! AlphaServer 2100 4/275 (3cpu)O PARAMETER ALPHA$K_AS0906020004 = '0000045E'X ! AlphaServer 2100 4/275 (4cpu)O PARAMETER ALPHA$K_AS0905020001 = '0000045F'X ! AlphaServer 2100 5/250 (1cpu)O PARAMETER ALPHA$K_AS0905020002 = '00000460'X ! AlphaServer 2100 5/250 (2cpu)O PARAMETER ALPHA$K_AS0905020003 = '00000461'X ! AlphaServer 2100 5/250 (3cpu)O PARAMETER ALPHA$K_AS0905020004 = '00000462'X ! AlphaServer 2100 5/250 (4cpu)O PARAMETER ALPHA$K_AS0902010001 = '00000463'X ! AlphaServer 2000 4/200 (1cpu)O PARAMETER ALPHA$K_AS0902010002 = '00000464'X ! AlphaServer 2000 4/200 (2cpu)O PARAMETER ALPHA$K_AS0902010003 = '00000465'X ! AlphaServer 2000 4/200 (3cpu)O PARAMETER ALPHA$K_AS0902010004 =  '00000466'X ! AlphaServer 2000 4/200 (4cpu)O PARAMETER ALPHA$K_AS0906010001 = '00000467'X ! AlphaServer 2000 4/275 (1cpu)O PARAMETER ALPHA$K_AS0906010002 = '00000468'X ! AlphaServer 2000 4/275 (2cpu)O PARAMETER ALPHA$K_AS0906010003 = '00000469'X ! AlphaServer 2000 4/275 (3cpu)O PARAMETER ALPHA$K_AS0906010004 = '0000046A'X ! AlphaServer 2000 4/275 (4cpu)O PARAMETER ALPHA$K_AS0905010001 = '0000046B'X ! AlphaServer 2000 5/250 (1cpu)O PARAMETER ALPHA$K_AS0905010002 = '0000046C'X !  AlphaServer 2000 5/250 (2cpu)O PARAMETER ALPHA$K_AS0905010003 = '0000046D'X ! AlphaServer 2000 5/250 (3cpu)O PARAMETER ALPHA$K_AS0905010004 = '0000046E'X ! AlphaServer 2000 5/250 (4cpu)V PARAMETER ALPHA$K_AS0902030001 = '0000046F'X ! AlphaServer 2100 4/200 (1cpu) (rack)V PARAMETER ALPHA$K_AS0902030002 = '00000470'X ! AlphaServer 2100 4/200 (2cpu) (rack)V PARAMETER ALPHA$K_AS0902030003 = '00000471'X ! AlphaServer 2100 4/200 (3cpu) (rack)V PARAMETER ALPHA$K_AS0902030004 = '00000472' X ! AlphaServer 2100 4/200 (4cpu) (rack)V PARAMETER ALPHA$K_AS0906030001 = '00000473'X ! AlphaServer 2100 4/275 (1cpu) (rack)V PARAMETER ALPHA$K_AS0906030002 = '00000474'X ! AlphaServer 2100 4/275 (2cpu) (rack)V PARAMETER ALPHA$K_AS0906030003 = '00000475'X ! AlphaServer 2100 4/275 (3cpu) (rack)V PARAMETER ALPHA$K_AS0906030004 = '00000476'X ! AlphaServer 2100 4/275 (4cpu) (rack)V PARAMETER ALPHA$K_AS0905030001 = '00000477'X ! AlphaServer 2100 5/250 (1cpu) (rack)V PARAMETER ALPHA$K_AS0 905030002 = '00000478'X ! AlphaServer 2100 5/250 (2cpu) (rack)V PARAMETER ALPHA$K_AS0905030003 = '00000479'X ! AlphaServer 2100 5/250 (3cpu) (rack)V PARAMETER ALPHA$K_AS0905030004 = '0000047A'X ! AlphaServer 2100 5/250 (4cpu) (rack)H PARAMETER ALPHA$K_AS0D06040001 = '0000047F'X ! AlphaStation 200 4/233H PARAMETER ALPHA$K_AS0D06050001 = '00000480'X ! AlphaStation 400 4/233M PARAMETER ALPHA$K_AS0D06060001 = '00000481'X ! AlphaStation 400 4/266 (2M)P PARAMETER ALPHA$K_AS0D06070001 = '0 0000482'X ! AlphaStation 400 4/266 (512kb)- PARAMETER ALPHA$K_AS0D06080001 = '00000483'XH PARAMETER ALPHA$K_AS0D02090001 = '00000484'X ! AlphaStation 200 4/100H PARAMETER ALPHA$K_AS0D060A0001 = '00000485'X ! AlphaStation 200 4/300O PARAMETER ALPHA$K_AS0D060B0001 = '00000486'X ! AlphaStation 200 4/266, 512KB- PARAMETER ALPHA$K_AS0D060C0001 = '00000487'XH PARAMETER ALPHA$K_AS0D060D0001 = '00000488'X ! AlphaStation 400 4/300H PARAMETER ALPHA$K_AS0F05020001 = '00000489'X ! AlphaStation 600 5/266- PARAMETER ALPHA$K_AS1706010001 = '0000048F'XO PARAMETER ALPHA$K_AS0906010101 = '00000493'X ! AlphaServer 2000 4/233 (1cpu)O PARAMETER ALPHA$K_AS0906010102 = '00000494'X ! AlphaServer 2000 4/233 (2cpu)O PARAMETER ALPHA$K_AS0906010103 = '00000495'X ! AlphaServer 2000 4/233 (3cpu)O PARAMETER ALPHA$K_AS0906010104 = '00000496'X ! AlphaServer 2000 4/233 (4cpu)O PARAMETER ALPHA$K_AS0905010101 = '00000497'X ! AlphaServer 2000 5/300 (1cpu)O PARAMETER ALPHA$K_AS0905010102 = '00000498'X ! AlphaServer 2000 5/300 (2cpu)O PARAMETER ALPHA$K_AS0905010103 = '00000499'X ! AlphaServer 2000 5/300 (3cpu)O PARAMETER ALPHA$K_AS0905010104 = '0000049A'X ! AlphaServer 2000 5/300 (4cpu)O PARAMETER ALPHA$K_AS0906020101 = '0000049B'X ! AlphaServer 2100 4/233 (1cpu)O PARAMETER ALPHA$K_AS0906020102 = '0000049C'X ! AlphaServer 2100 4/233 (2cpu)O PARAMETER ALPHA$K_AS0906020103 = '0000049D'X ! AlphaServer 2100 4/233 (3cpu)O PARAMETER ALPHA$K_AS0906020104 = '0000049E'X ! AlphaServer 2100 4/233 (4cpu)O PARAMETER ALPHA$K_AS0905020101 = '0000049F'X ! AlphaServer 2100 5/300 (1cpu)O PARAMETER ALPHA$K_AS0905020102 = '000004A0'X ! AlphaServer 2100 5/300 (2cpu)O PARAMETER ALPHA$K_AS0905020103 = '000004A1'X ! AlphaServer 2100 5/300 (3cpu)O PARAMETER ALPHA$K_AS0905020104 = '000004A2'X ! AlphaServer 2100 5/300 (4cpu)V PARAMETER ALPHA$K_AS0906030101 = '000004A3'X ! AlphaServer 2100 4/233 (1cpu) (rack)V PARAMETER ALPHA$K_AS0906030102 = '000004A4'X ! AlphaServer 2100 4/233 (2cpu) (rack)V PARAMETER ALPHA$K_AS0906030103 = '000004A5'X ! AlphaServer 2100 4/233 (3cpu) (rack)V PARAMETER ALPHA$K_AS0906030104 = '000004A6'X ! AlphaServer 2100 4/233 (4cpu) (rack)V PARAMETER ALPHA$K_AS0905030101 = '000004A7'X ! AlphaServer 2100 5/300 (1cpu) (rack)V PARAMETER ALPHA$K_AS0905030102 = '000004A8'X ! AlphaServer 2100 5/300 (2cpu) (rack)V PARAMETER ALPHA$K_AS0905030103 = '000004A9'X ! AlphaServer 2100 5/300 (3cpu) (rack)V PARAMETER ALPHA$K_AS0905030104 = '000004AA'X ! AlphaServer 2100 5/300 (4cpu) (rack)P PARAMETER ALPHA$K_AS1806010001 = '000004AB'X ! AlphaServer 2000A 4/233 (1cpu)P PARAMETER ALPHA$K_AS1806010002 = '000004AC'X ! AlphaServer 2000A 4/233 (2cpu)P PARAMETER ALPHA$K_AS1806010003 = '000004AD'X ! AlphaServer 2000A 4/233 (3cpu)P PARAMETER ALPHA$K_AS1806010004 = '000004AE'X ! AlphaServer 2000A 4/233 (4cpu)P PARAMETER ALPHA$K_AS1806010101 = '000004AF'X ! AlphaServer 2000A 4/275 (1cpu)P PARAMETER ALPHA$K_AS1806010102 = '000004B0'X ! AlphaServer 2000A 4/275 (2cpu)P PARAMETER ALPHA$K_AS1806010103 = '000004B1'X ! AlphaServer 2000A 4/275 (3cpu)P PARAMETER ALPHA$K_AS1806010104 = '000004B2'X ! AlphaServer 2000A 4/275 (4cpu)P PARAMETER ALPHA$K_AS1805010001 = '000004B3'X ! AlphaServer 2000A 5/250 (1cpu)P PARAMETER ALPHA$K_AS1805010002 = '000004B4'X ! AlphaServer 2000A 5/250 (2cpu)P PARAMETER ALPHA$K_AS1805010003 = '000004B5'X ! AlphaServer 2000A 5/250 (3cpu)P PARAMETER ALPHA$K_AS1805010004 = '000004B6'X ! AlphaServer 2000A 5/250 (4cpu)P PARAMETER ALPHA$K_AS1805010101 = '000004B7'X ! AlphaServer 2000A 5/300 (1cpu)P PARAMETER ALPHA$K_AS1805010102 = '000004B8'X ! AlphaServer 2000A 5/300 (2cpu)P PARAMETER ALPHA$K_AS1805010103 = '000004B9'X ! AlphaServer 2000A 5/300 (3cpu)P PARAMETER ALPHA$K_AS1805010104 = '000004BA'X ! AlphaServer 2000A 5/300 (4cpu)P PARAMETER ALPHA$K_AS1806020001 = '000004BB'X ! AlphaServer 2100A 4/233 (1cpu)P PARAMETER ALPHA$K_AS1806020002 = '000004BC'X ! AlphaServer 2100A 4/233 (2cpu)P PARAMETER ALPHA$K_AS1806020003 = '000004BD'X ! AlphaServer 2100A 4/233 (3cpu)P PARAMETER ALPHA$K_AS1806020004 = '000004BE'X ! AlphaServer 2100A 4/233 (4cpu)P PARAMETER ALPHA$K_AS1806020101 = '000004BF'X ! AlphaServer 2100A 4/275 (1cpu)P PARAMETER ALPHA$K_AS1806020102 = '000004C0'X ! AlphaServer 2100A 4/275 (2cpu)P PARAMETER ALPHA$K_AS1806020103 = '000004C1'X ! AlphaServer 2100A 4/275 (3cpu)P PARAMETER ALPHA$K_AS1806020104 = '000004C2'X ! AlphaServer 2100A 4/275 (4cpu)P PARAMETER ALPHA$K_AS1805020001 = '000004C3'X ! AlphaServer 2100A 5/250 (1cpu)P PARAMETER ALPHA$K_AS1805020002 = '000004C4'X ! AlphaServer 2100A 5/250 (2cpu)P PARAMETER ALPHA$K_AS1805020003 = '000004C5'X ! AlphaServer 2100A 5/250 (3cpu)P PARAMETER ALPHA$K_AS1805020004 = '000004C6'X ! AlphaServer 2100A 5/250 (4cpu)P PARAMETER ALPHA$K_AS1805020101 = '000004C7'X ! AlphaServer 2100A 5/300 (1cpu)P PARAMETER ALPHA$K_AS1805020102 = '000004C8'X ! AlphaServer 2100A 5/300 (2cpu)P PARAMETER ALPHA$K_AS1805020103 = '000004C9'X ! AlphaServer 2100A 5/300 (3cpu)P PARAMETER ALPHA$K_AS1805020104 = '000004CA'X ! AlphaServer 2100A 5/300 (4cpu)W PARAMETER ALPHA$K_AS1806030001 = '000004CB'X ! AlphaServer 2100A 4/233 (1cpu) (rack)W PARAMETER ALPHA$K_AS1806030002 = '000004CC'X ! AlphaServer 2100A 4/233 (2cpu) (rack)W PARAMETER ALPHA$K_AS1806030003 = '000004CD'X ! AlphaServer 2100A 4/233 (3cpu) (rack)W PARAMETER ALPHA$K_AS1806030004 = '000004CE'X ! AlphaServer 2100A 4/233 (4cpu) (rack)W PARAMETER ALPHA$K_AS1806030101 = '000004CF'X ! AlphaServer 2100A 4/275 (1cpu) (rack)W PARAMETER ALPHA$K_AS1806030102 = '000004D0'X ! AlphaServer 2100A 4/275 (2cpu) (rack)W PARAMETER ALPHA$K_AS1806030103 = '000004D1'X ! AlphaServer 2100A 4/275 (3cpu) (rack)W PARAMETER ALPHA$K_AS1806030104 = '000004D2'X ! AlphaServer 2100A 4/275 (4cpu) (rack)W PARAMETER ALPHA$K_AS1805030001 = '000004D3'X ! AlphaServer 2100A 5/250 (1cpu) (rack)W PARAMETER ALPHA$K_AS1805030002 = '000004D4'X ! AlphaServer 2100A 5/250 (2cpu) (rack)W PARAMETER ALPHA$K_AS1805030003 = '000004D5'X ! AlphaServer 2100A 5/250 (3cpu) (rack)W PARAMETER ALPHA$K_AS1805030004 = '000004D6'X ! AlphaServer 2100A 5/250 (4cpu) (rack)W PARAMETER ALPHA$K_AS1805030101 = '000004D7'X ! AlphaServer 2100A 5/300 (1cpu) (rack)W PARAMETER ALPHA$K_AS1805030102 = '000004D8'X ! AlphaServer 2100A 5/300 (2cpu) (rack)W PARAMETER ALPHA$K_AS1805030103 = '000004D9'X ! AlphaServer 2100A 5/300 (3cpu) (rack)W PARAMETER ALPHA$K_AS1805030104 = '000004DA'X ! AlphaServer 2100A 5/300 (4cpu) (rack); PARAMETER ALPHA$K_AS1A05010001 = '000004DD'X ! EB164 266; PARAMETER ALPHA$K_AS1A05020001 = '000004DE'X ! EB164 300H PARAMETER ALPHA$K_AS0D06200001 = '000004E2'X ! AlphaStation 205 4/133H PARAMETER ALPHA$K_AS0D06210001 = '000004E3'X ! AlphaStation 205 4/166H PARAMETER ALPHA$K_AS0D06220001 = '000004E4'X ! AlphaStation 205 4/200H PARAMETER ALPHA$K_AS0D06230001 = '000004E5'X ! AlphaStation 205 4/233H PARAMETER ALPHA$K_AS0D06240001 = '000004E6'X ! AlphaStation 205 4/266H PARAMETER ALPHA$K_AS0D06250001 = '000004E7'X ! AlphaStation 205 4/300H PARAMETER ALPHA$K_AS0D06260001 = '000004E8'X ! AlphaStation 205 4/333H PARAMETER ALPHA$K_AS0D06270001 = '000004E9'X ! AlphaStation 255 4/133H PARAMETER ALPHA$K_AS0D06280001 = '000004EA'X ! AlphaStation 255 4/166H PARAMETER ALPHA$K_AS0D06290001 = '000004EB'X ! AlphaStation 255 4/200H PARAMETER ALPHA$K_AS0D062A0001 = '000004EC'X ! AlphaStation 255 4/233H PARAMETER ALPHA$K_AS0D062B0001 = '000004ED'X ! AlphaStation 255 4/266H PARAMETER ALPHA$K_AS0D062C0001 = '000004EE'X ! AlphaStation 255 4/300H PARAMETER ALPHA$K_AS0D062D0001 = '000004EF'X ! AlphaStation 255 4/333H PARAMETER ALPHA$K_AS1106030001 = '000004F0'X ! AlphaServer 1000 4/266I PARAMETER ALPHA$K_AS1B06010001 = '000004F1'X ! AlphaServer 1000A 4/266H PARAMETER ALPHA$K_AS0F05030001 = '000004F2'X ! AlphaStation 500 5/266H PARAMETER ALPHA$K_AS0F05040001 = '000004F3'X ! AlphaStation 500 5/300H PARAMETER ALPHA$K_AS0F05050001 = '000004F4'X ! AlphaStation 500 5/333H PARAMETER ALPHA$K_AS1105040001 = '000004F5'X ! AlphaServer 1000 5/300I PARAMETER ALPHA$K_AS1B05020001 = '000004F6'X ! AlphaServer 1000A 5/300H PARAMETER ALPHA$K_AS0F05060001 = '000004FB'X ! AlphaStation 600 5/333H PARAMETER ALPHA$K_AS0F05070001 = '000004FC'X ! AlphaStation 600 5/366H PARAMETER ALPHA$K_AS0F05080001 = '000004FD'X ! AlphaStation 600 5/400H PARAMETER ALPHA$K_AS0F05090001 = '000004FE'X ! AlphaStation 600 5/433H PARAMETER ALPHA$K_AS0F050A0001 = '000004FF'X ! AlphaStation 600 5/466H PARAMETER ALPHA$K_AS0F050B0001 = '00000500'X ! AlphaStation 600 5/500F PARAMETER ALPHA$K_AS0F070C0001 = '00000501'X ! AlphaStation 500/333F PARAMETER ALPHA$K_AS0F070D0001 = '00000502'X ! AlphaStation 500/366F PARAMETER ALPHA$K_AS0F070E0001 = '00000503'X ! AlphaStation 500/400F PARAMETER ALPHA$K_AS0F070F0001 = '00000504'X ! AlphaStation 500/433F PARAMETER ALPHA$K_AS0F07100001 = '00000505'X  ! AlphaStation 500/466F PARAMETER ALPHA$K_AS0F07110001 = '00000506'X ! AlphaStation 500/500O PARAMETER ALPHA$K_AS0C05020001 = '0000050C'X ! AlphaServer 8200 5/350 (1cpu)O PARAMETER ALPHA$K_AS0C05020002 = '0000050D'X ! AlphaServer 8200 5/350 (2cpu)O PARAMETER ALPHA$K_AS0C05020003 = '0000050E'X ! AlphaServer 8200 5/350 (3cpu)O PARAMETER ALPHA$K_AS0C05020004 = '0000050F'X ! AlphaServer 8200 5/350 (4cpu)O PARAMETER ALPHA$K_AS0C05020005 = '00000510'X ! AlphaServer 8200 5/350 (5cpu) O PARAMETER ALPHA$K_AS0C05020006 = '00000511'X ! AlphaServer 8200 5/350 (6cpu)O PARAMETER ALPHA$K_AS0C05030001 = '00000512'X ! AlphaServer 8400 5/350 (1cpu)O PARAMETER ALPHA$K_AS0C05030002 = '00000513'X ! AlphaServer 8400 5/350 (2cpu)O PARAMETER ALPHA$K_AS0C05030003 = '00000514'X ! AlphaServer 8400 5/350 (3cpu)O PARAMETER ALPHA$K_AS0C05030004 = '00000515'X ! AlphaServer 8400 5/350 (4cpu)O PARAMETER ALPHA$K_AS0C05030005 = '00000516'X ! AlphaServer 8400 5/350 (5cpu)O PARAMETER A!LPHA$K_AS0C05030006 = '00000517'X ! AlphaServer 8400 5/350 (6cpu)O PARAMETER ALPHA$K_AS0C05030007 = '00000518'X ! AlphaServer 8400 5/350 (7cpu)O PARAMETER ALPHA$K_AS0C05030008 = '00000519'X ! AlphaServer 8400 5/350 (8cpu)O PARAMETER ALPHA$K_AS0C05030009 = '0000051A'X ! AlphaServer 8400 5/350 (9cpu)P PARAMETER ALPHA$K_AS0C0503000A = '0000051B'X ! AlphaServer 8400 5/350 (10cpu)P PARAMETER ALPHA$K_AS0C0503000B = '0000051C'X ! AlphaServer 8400 5/350 (11cpu)P PARAMETER ALPHA$K_AS0C050"3000C = '0000051D'X ! AlphaServer 8400 5/350 (12cpu)G PARAMETER ALPHA$K_AS1B07040001 = '0000051E'X ! AlphaServer 600 5/333I PARAMETER ALPHA$K_AS1B07030001 = '0000051F'X ! AlphaServer 1000A 5/400H PARAMETER ALPHA$K_AS1107050001 = '00000520'X ! AlphaServer 1000 5/400S PARAMETER ALPHA$K_AS1605020001 = '00000521'X ! AlphaServer 4100 5/266 0MB (1cpu)S PARAMETER ALPHA$K_AS1605020002 = '00000522'X ! AlphaServer 4100 5/266 0MB (2cpu)S PARAMETER ALPHA$K_AS1605020003 = '00000523'X ! Alph#aServer 4100 5/266 0MB (3cpu)S PARAMETER ALPHA$K_AS1605020004 = '00000524'X ! AlphaServer 4100 5/266 0MB (4cpu)S PARAMETER ALPHA$K_AS1605010001 = '00000525'X ! AlphaServer 4100 5/266 0MB (1cpu)S PARAMETER ALPHA$K_AS1605010002 = '00000526'X ! AlphaServer 4100 5/266 0MB (2cpu)S PARAMETER ALPHA$K_AS1605010003 = '00000527'X ! AlphaServer 4100 5/266 0MB (3cpu)S PARAMETER ALPHA$K_AS1605010004 = '00000528'X ! AlphaServer 4100 5/266 0MB (4cpu)S PARAMETER ALPHA$K_AS1605020101 = '00000529'$X ! AlphaServer 4100 5/300 0MB (1cpu)S PARAMETER ALPHA$K_AS1605020102 = '0000052A'X ! AlphaServer 4100 5/300 0MB (2cpu)S PARAMETER ALPHA$K_AS1605020103 = '0000052B'X ! AlphaServer 4100 5/300 0MB (3cpu)S PARAMETER ALPHA$K_AS1605020104 = '0000052C'X ! AlphaServer 4100 5/300 0MB (4cpu)S PARAMETER ALPHA$K_AS1605010101 = '0000052D'X ! AlphaServer 4100 5/300 0MB (1cpu)S PARAMETER ALPHA$K_AS1605010102 = '0000052E'X ! AlphaServer 4100 5/300 0MB (2cpu)S PARAMETER ALPHA$K_AS1605010103 = %'0000052F'X ! AlphaServer 4100 5/300 0MB (3cpu)S PARAMETER ALPHA$K_AS1605010104 = '00000530'X ! AlphaServer 4100 5/300 0MB (4cpu)S PARAMETER ALPHA$K_AS1607020001 = '00000531'X ! AlphaServer 4100 5/400 0MB (1cpu)S PARAMETER ALPHA$K_AS1607020002 = '00000532'X ! AlphaServer 4100 5/400 0MB (2cpu)S PARAMETER ALPHA$K_AS1607020003 = '00000533'X ! AlphaServer 4100 5/400 0MB (3cpu)S PARAMETER ALPHA$K_AS1607020004 = '00000534'X ! AlphaServer 4100 5/400 0MB (4cpu)S PARAMETER ALPHA$K_AS160&7010001 = '00000535'X ! AlphaServer 4100 5/400 0MB (1cpu)S PARAMETER ALPHA$K_AS1607010002 = '00000536'X ! AlphaServer 4100 5/400 0MB (2cpu)S PARAMETER ALPHA$K_AS1607010003 = '00000537'X ! AlphaServer 4100 5/400 0MB (3cpu)S PARAMETER ALPHA$K_AS1607010004 = '00000538'X ! AlphaServer 4100 5/400 0MB (4cpu)S PARAMETER ALPHA$K_AS1605020201 = '00000539'X ! AlphaServer 4100 5/266 1MB (1cpu)S PARAMETER ALPHA$K_AS1605020202 = '0000053A'X ! AlphaServer 4100 5/266 1MB (2cpu)S PARAMETER ALP'HA$K_AS1605020203 = '0000053B'X ! AlphaServer 4100 5/266 1MB (3cpu)S PARAMETER ALPHA$K_AS1605020204 = '0000053C'X ! AlphaServer 4100 5/266 1MB (4cpu)S PARAMETER ALPHA$K_AS1605010201 = '0000053D'X ! AlphaServer 4100 5/266 1MB (1cpu)S PARAMETER ALPHA$K_AS1605010202 = '0000053E'X ! AlphaServer 4100 5/266 1MB (2cpu)S PARAMETER ALPHA$K_AS1605010203 = '0000053F'X ! AlphaServer 4100 5/266 1MB (3cpu)S PARAMETER ALPHA$K_AS1605010204 = '00000540'X ! AlphaServer 4100 5/266 1MB (4cpu)S PAR(AMETER ALPHA$K_AS1605020301 = '00000541'X ! AlphaServer 4100 5/300 1MB (1cpu)S PARAMETER ALPHA$K_AS1605020302 = '00000542'X ! AlphaServer 4100 5/300 1MB (2cpu)S PARAMETER ALPHA$K_AS1605020303 = '00000543'X ! AlphaServer 4100 5/300 1MB (3cpu)S PARAMETER ALPHA$K_AS1605020304 = '00000544'X ! AlphaServer 4100 5/300 1MB (4cpu)S PARAMETER ALPHA$K_AS1605010301 = '00000545'X ! AlphaServer 4100 5/300 1MB (1cpu)S PARAMETER ALPHA$K_AS1605010302 = '00000546'X ! AlphaServer 4100 5/300 1MB (2c)pu)S PARAMETER ALPHA$K_AS1605010303 = '00000547'X ! AlphaServer 4100 5/300 1MB (3cpu)S PARAMETER ALPHA$K_AS1605010304 = '00000548'X ! AlphaServer 4100 5/300 1MB (4cpu)S PARAMETER ALPHA$K_AS1607020101 = '00000549'X ! AlphaServer 4100 5/400 1MB (1cpu)S PARAMETER ALPHA$K_AS1607020102 = '0000054A'X ! AlphaServer 4100 5/400 1MB (2cpu)S PARAMETER ALPHA$K_AS1607020103 = '0000054B'X ! AlphaServer 4100 5/400 1MB (3cpu)S PARAMETER ALPHA$K_AS1607020104 = '0000054C'X ! AlphaServer 4100 5/4*00 1MB (4cpu)S PARAMETER ALPHA$K_AS1607010101 = '0000054D'X ! AlphaServer 4100 5/400 1MB (1cpu)S PARAMETER ALPHA$K_AS1607010102 = '0000054E'X ! AlphaServer 4100 5/400 1MB (2cpu)S PARAMETER ALPHA$K_AS1607010103 = '0000054F'X ! AlphaServer 4100 5/400 1MB (3cpu)S PARAMETER ALPHA$K_AS1607010104 = '00000550'X ! AlphaServer 4100 5/400 1MB (4cpu)S PARAMETER ALPHA$K_AS1605020401 = '00000551'X ! AlphaServer 4100 5/266 2MB (1cpu)S PARAMETER ALPHA$K_AS1605020402 = '00000552'X ! AlphaServe+r 4100 5/266 2MB (2cpu)S PARAMETER ALPHA$K_AS1605020403 = '00000553'X ! AlphaServer 4100 5/266 2MB (3cpu)S PARAMETER ALPHA$K_AS1605020404 = '00000554'X ! AlphaServer 4100 5/266 2MB (4cpu)S PARAMETER ALPHA$K_AS1605010401 = '00000555'X ! AlphaServer 4100 5/266 2MB (1cpu)S PARAMETER ALPHA$K_AS1605010402 = '00000556'X ! AlphaServer 4100 5/266 2MB (2cpu)S PARAMETER ALPHA$K_AS1605010403 = '00000557'X ! AlphaServer 4100 5/266 2MB (3cpu)S PARAMETER ALPHA$K_AS1605010404 = '00000558'X ! ,AlphaServer 4100 5/266 2MB (4cpu)S PARAMETER ALPHA$K_AS1605020501 = '00000559'X ! AlphaServer 4100 5/300 2MB (1cpu)S PARAMETER ALPHA$K_AS1605020502 = '0000055A'X ! AlphaServer 4100 5/300 2MB (2cpu)S PARAMETER ALPHA$K_AS1605020503 = '0000055B'X ! AlphaServer 4100 5/300 2MB (3cpu)S PARAMETER ALPHA$K_AS1605020504 = '0000055C'X ! AlphaServer 4100 5/300 2MB (4cpu)S PARAMETER ALPHA$K_AS1605010501 = '0000055D'X ! AlphaServer 4100 5/300 2MB (1cpu)S PARAMETER ALPHA$K_AS1605010502 = '00000-55E'X ! AlphaServer 4100 5/300 2MB (2cpu)S PARAMETER ALPHA$K_AS1605010503 = '0000055F'X ! AlphaServer 4100 5/300 2MB (3cpu)S PARAMETER ALPHA$K_AS1605010504 = '00000560'X ! AlphaServer 4100 5/300 2MB (4cpu)S PARAMETER ALPHA$K_AS1607020201 = '00000561'X ! AlphaServer 4100 5/400 2MB (1cpu)S PARAMETER ALPHA$K_AS1607020202 = '00000562'X ! AlphaServer 4100 5/400 2MB (2cpu)S PARAMETER ALPHA$K_AS1607020203 = '00000563'X ! AlphaServer 4100 5/400 2MB (3cpu)S PARAMETER ALPHA$K_AS160702020.4 = '00000564'X ! AlphaServer 4100 5/400 2MB (4cpu)S PARAMETER ALPHA$K_AS1607010201 = '00000565'X ! AlphaServer 4100 5/400 2MB (1cpu)S PARAMETER ALPHA$K_AS1607010202 = '00000566'X ! AlphaServer 4100 5/400 2MB (2cpu)S PARAMETER ALPHA$K_AS1607010203 = '00000567'X ! AlphaServer 4100 5/400 2MB (3cpu)S PARAMETER ALPHA$K_AS1607010204 = '00000568'X ! AlphaServer 4100 5/400 2MB (4cpu)S PARAMETER ALPHA$K_AS1605020601 = '00000569'X ! AlphaServer 4100 5/266 4MB (1cpu)S PARAMETER ALPHA$K_A/S1605020602 = '0000056A'X ! AlphaServer 4100 5/266 4MB (2cpu)S PARAMETER ALPHA$K_AS1605020603 = '0000056B'X ! AlphaServer 4100 5/266 4MB (3cpu)S PARAMETER ALPHA$K_AS1605020604 = '0000056C'X ! AlphaServer 4100 5/266 4MB (4cpu)S PARAMETER ALPHA$K_AS1605010601 = '0000056D'X ! AlphaServer 4100 5/266 4MB (1cpu)S PARAMETER ALPHA$K_AS1605010602 = '0000056E'X ! AlphaServer 4100 5/266 4MB (2cpu)S PARAMETER ALPHA$K_AS1605010603 = '0000056F'X ! AlphaServer 4100 5/266 4MB (3cpu)S PARAMETER0 ALPHA$K_AS1605010604 = '00000570'X ! AlphaServer 4100 5/266 4MB (4cpu)S PARAMETER ALPHA$K_AS1605020701 = '00000571'X ! AlphaServer 4100 5/300 4MB (1cpu)S PARAMETER ALPHA$K_AS1605020702 = '00000572'X ! AlphaServer 4100 5/300 4MB (2cpu)S PARAMETER ALPHA$K_AS1605020703 = '00000573'X ! AlphaServer 4100 5/300 4MB (3cpu)S PARAMETER ALPHA$K_AS1605020704 = '00000574'X ! AlphaServer 4100 5/300 4MB (4cpu)S PARAMETER ALPHA$K_AS1605010701 = '00000575'X ! AlphaServer 4100 5/300 4MB (1cpu)S1 PARAMETER ALPHA$K_AS1605010702 = '00000576'X ! AlphaServer 4100 5/300 4MB (2cpu)S PARAMETER ALPHA$K_AS1605010703 = '00000577'X ! AlphaServer 4100 5/300 4MB (3cpu)S PARAMETER ALPHA$K_AS1605010704 = '00000578'X ! AlphaServer 4100 5/300 4MB (4cpu)S PARAMETER ALPHA$K_AS1607020301 = '00000579'X ! AlphaServer 4100 5/400 4MB (1cpu)S PARAMETER ALPHA$K_AS1607020302 = '0000057A'X ! AlphaServer 4100 5/400 4MB (2cpu)S PARAMETER ALPHA$K_AS1607020303 = '0000057B'X ! AlphaServer 4100 5/400 4MB2 (3cpu)S PARAMETER ALPHA$K_AS1607020304 = '0000057C'X ! AlphaServer 4100 5/400 4MB (4cpu)S PARAMETER ALPHA$K_AS1607010301 = '0000057D'X ! AlphaServer 4100 5/400 4MB (1cpu)S PARAMETER ALPHA$K_AS1607010302 = '0000057E'X ! AlphaServer 4100 5/400 4MB (2cpu)S PARAMETER ALPHA$K_AS1607010303 = '0000057F'X ! AlphaServer 4100 5/400 4MB (3cpu)S PARAMETER ALPHA$K_AS1607010304 = '00000580'X ! AlphaServer 4100 5/400 4MB (4cpu)S PARAMETER ALPHA$K_AS1605040001 = '00000581'X ! AlphaServer 40003 5/266 0MB (1cpu)S PARAMETER ALPHA$K_AS1605040002 = '00000582'X ! AlphaServer 4000 5/266 0MB (2cpu)S PARAMETER ALPHA$K_AS1605030001 = '00000583'X ! AlphaServer 4000 5/266 0MB (1cpu)S PARAMETER ALPHA$K_AS1605030002 = '00000584'X ! AlphaServer 4000 5/266 0MB (2cpu)S PARAMETER ALPHA$K_AS1605040101 = '00000585'X ! AlphaServer 4000 5/300 0MB (1cpu)S PARAMETER ALPHA$K_AS1605040102 = '00000586'X ! AlphaServer 4000 5/300 0MB (2cpu)S PARAMETER ALPHA$K_AS1605030101 = '00000587'X ! AlphaS4erver 4000 5/300 0MB (1cpu)S PARAMETER ALPHA$K_AS1605030102 = '00000588'X ! AlphaServer 4000 5/300 0MB (2cpu)S PARAMETER ALPHA$K_AS1607040001 = '00000589'X ! AlphaServer 4000 5/400 0MB (1cpu)S PARAMETER ALPHA$K_AS1607040002 = '0000058A'X ! AlphaServer 4000 5/400 0MB (2cpu)S PARAMETER ALPHA$K_AS1607030001 = '0000058B'X ! AlphaServer 4000 5/400 0MB (1cpu)S PARAMETER ALPHA$K_AS1607030002 = '0000058C'X ! AlphaServer 4000 5/400 0MB (2cpu)S PARAMETER ALPHA$K_AS1605040201 = '0000058D'X 5 ! AlphaServer 4000 5/266 1MB (1cpu)S PARAMETER ALPHA$K_AS1605040202 = '0000058E'X ! AlphaServer 4000 5/266 1MB (2cpu)S PARAMETER ALPHA$K_AS1605030201 = '0000058F'X ! AlphaServer 4000 5/266 1MB (1cpu)S PARAMETER ALPHA$K_AS1605030202 = '00000590'X ! AlphaServer 4000 5/266 1MB (2cpu)S PARAMETER ALPHA$K_AS1605040301 = '00000591'X ! AlphaServer 4000 5/300 1MB (1cpu)S PARAMETER ALPHA$K_AS1605040302 = '00000592'X ! AlphaServer 4000 5/300 1MB (2cpu)S PARAMETER ALPHA$K_AS1605030301 = '060000593'X ! AlphaServer 4000 5/300 1MB (1cpu)S PARAMETER ALPHA$K_AS1605030302 = '00000594'X ! AlphaServer 4000 5/300 1MB (2cpu)S PARAMETER ALPHA$K_AS1607040101 = '00000595'X ! AlphaServer 4000 5/400 1MB (1cpu)S PARAMETER ALPHA$K_AS1607040102 = '00000596'X ! AlphaServer 4000 5/400 1MB (2cpu)S PARAMETER ALPHA$K_AS1607030101 = '00000597'X ! AlphaServer 4000 5/400 1MB (1cpu)S PARAMETER ALPHA$K_AS1607030102 = '00000598'X ! AlphaServer 4000 5/400 1MB (2cpu)S PARAMETER ALPHA$K_AS16050740401 = '00000599'X ! AlphaServer 4000 5/266 2MB (1cpu)S PARAMETER ALPHA$K_AS1605040402 = '0000059A'X ! AlphaServer 4000 5/266 2MB (2cpu)S PARAMETER ALPHA$K_AS1605030401 = '0000059B'X ! AlphaServer 4000 5/266 2MB (1cpu)S PARAMETER ALPHA$K_AS1605030402 = '0000059C'X ! AlphaServer 4000 5/266 2MB (2cpu)S PARAMETER ALPHA$K_AS1605040501 = '0000059D'X ! AlphaServer 4000 5/300 2MB (1cpu)S PARAMETER ALPHA$K_AS1605040502 = '0000059E'X ! AlphaServer 4000 5/300 2MB (2cpu)S PARAMETER ALPHA8$K_AS1605030501 = '0000059F'X ! AlphaServer 4000 5/300 2MB (1cpu)S PARAMETER ALPHA$K_AS1605030502 = '000005A0'X ! AlphaServer 4000 5/300 2MB (2cpu)S PARAMETER ALPHA$K_AS1607040201 = '000005A1'X ! AlphaServer 4000 5/400 2MB (1cpu)S PARAMETER ALPHA$K_AS1607040202 = '000005A2'X ! AlphaServer 4000 5/400 2MB (2cpu)S PARAMETER ALPHA$K_AS1607030201 = '000005A3'X ! AlphaServer 4000 5/400 2MB (1cpu)S PARAMETER ALPHA$K_AS1607030202 = '000005A4'X ! AlphaServer 4000 5/400 2MB (2cpu)S PARAM9ETER ALPHA$K_AS1605040601 = '000005A5'X ! AlphaServer 4000 5/266 4MB (1cpu)S PARAMETER ALPHA$K_AS1605040602 = '000005A6'X ! AlphaServer 4000 5/266 4MB (2cpu)S PARAMETER ALPHA$K_AS1605030601 = '000005A7'X ! AlphaServer 4000 5/266 4MB (1cpu)S PARAMETER ALPHA$K_AS1605030602 = '000005A8'X ! AlphaServer 4000 5/266 4MB (2cpu)S PARAMETER ALPHA$K_AS1605040701 = '000005A9'X ! AlphaServer 4000 5/300 4MB (1cpu)S PARAMETER ALPHA$K_AS1605040702 = '000005AA'X ! AlphaServer 4000 5/300 4MB (2cpu:)S PARAMETER ALPHA$K_AS1605030701 = '000005AB'X ! AlphaServer 4000 5/300 4MB (1cpu)S PARAMETER ALPHA$K_AS1605030702 = '000005AC'X ! AlphaServer 4000 5/300 4MB (2cpu)S PARAMETER ALPHA$K_AS1607040301 = '000005AD'X ! AlphaServer 4000 5/400 4MB (1cpu)S PARAMETER ALPHA$K_AS1607040302 = '000005AE'X ! AlphaServer 4000 5/400 4MB (2cpu)S PARAMETER ALPHA$K_AS1607030301 = '000005AF'X ! AlphaServer 4000 5/400 4MB (1cpu)S PARAMETER ALPHA$K_AS1607030302 = '000005B0'X ! AlphaServer 4000 5/400; 4MB (2cpu)T PARAMETER ALPHA$K_AS1605060001 = '000005B1'X ! AlphaServer 4000A 5/266 0MB (1cpu)T PARAMETER ALPHA$K_AS1605060002 = '000005B2'X ! AlphaServer 4000A 5/266 0MB (2cpu)T PARAMETER ALPHA$K_AS1605050001 = '000005B3'X ! AlphaServer 4000A 5/266 0MB (1cpu)T PARAMETER ALPHA$K_AS1605050002 = '000005B4'X ! AlphaServer 4000A 5/266 0MB (2cpu)T PARAMETER ALPHA$K_AS1605060101 = '000005B5'X ! AlphaServer 4000A 5/300 0MB (1cpu)T PARAMETER ALPHA$K_AS1605060102 = '000005B6'X ! AlphaServer <4000A 5/300 0MB (2cpu)T PARAMETER ALPHA$K_AS1605050101 = '000005B7'X ! AlphaServer 4000A 5/300 0MB (1cpu)T PARAMETER ALPHA$K_AS1605050102 = '000005B8'X ! AlphaServer 4000A 5/300 0MB (2cpu)T PARAMETER ALPHA$K_AS1607060001 = '000005B9'X ! AlphaServer 4000A 5/400 0MB (1cpu)T PARAMETER ALPHA$K_AS1607060002 = '000005BA'X ! AlphaServer 4000A 5/400 0MB (2cpu)T PARAMETER ALPHA$K_AS1607050001 = '000005BB'X ! AlphaServer 4000A 5/400 0MB (1cpu)T PARAMETER ALPHA$K_AS1607050002 = '000005BC'X ! Al=phaServer 4000A 5/400 0MB (2cpu)T PARAMETER ALPHA$K_AS1605060201 = '000005BD'X ! AlphaServer 4000A 5/266 1MB (1cpu)T PARAMETER ALPHA$K_AS1605060202 = '000005BE'X ! AlphaServer 4000A 5/266 1MB (2cpu)T PARAMETER ALPHA$K_AS1605050201 = '000005BF'X ! AlphaServer 4000A 5/266 1MB (1cpu)T PARAMETER ALPHA$K_AS1605050202 = '000005C0'X ! AlphaServer 4000A 5/266 1MB (2cpu)T PARAMETER ALPHA$K_AS1605060301 = '000005C1'X ! AlphaServer 4000A 5/300 1MB (1cpu)T PARAMETER ALPHA$K_AS1605060302 = '000005C>2'X ! AlphaServer 4000A 5/300 1MB (2cpu)T PARAMETER ALPHA$K_AS1605050301 = '000005C3'X ! AlphaServer 4000A 5/300 1MB (1cpu)T PARAMETER ALPHA$K_AS1605050302 = '000005C4'X ! AlphaServer 4000A 5/300 1MB (2cpu)T PARAMETER ALPHA$K_AS1607060101 = '000005C5'X ! AlphaServer 4000A 5/400 1MB (1cpu)T PARAMETER ALPHA$K_AS1607060102 = '000005C6'X ! AlphaServer 4000A 5/400 1MB (2cpu)T PARAMETER ALPHA$K_AS1607050101 = '000005C7'X ! AlphaServer 4000A 5/400 1MB (1cpu)T PARAMETER ALPHA$K_AS1607050102 ?= '000005C8'X ! AlphaServer 4000A 5/400 1MB (2cpu)T PARAMETER ALPHA$K_AS1605060401 = '000005C9'X ! AlphaServer 4000A 5/266 2MB (1cpu)T PARAMETER ALPHA$K_AS1605060402 = '000005CA'X ! AlphaServer 4000A 5/266 2MB (2cpu)T PARAMETER ALPHA$K_AS1605050401 = '000005CB'X ! AlphaServer 4000A 5/266 2MB (1cpu)T PARAMETER ALPHA$K_AS1605050402 = '000005CC'X ! AlphaServer 4000A 5/266 2MB (2cpu)T PARAMETER ALPHA$K_AS1605060501 = '000005CD'X ! AlphaServer 4000A 5/300 2MB (1cpu)T PARAMETER ALPHA$K_AS1@605060502 = '000005CE'X ! AlphaServer 4000A 5/300 2MB (2cpu)T PARAMETER ALPHA$K_AS1605050501 = '000005CF'X ! AlphaServer 4000A 5/300 2MB (1cpu)T PARAMETER ALPHA$K_AS1605050502 = '000005D0'X ! AlphaServer 4000A 5/300 2MB (2cpu)T PARAMETER ALPHA$K_AS1607060201 = '000005D1'X ! AlphaServer 4000A 5/400 2MB (1cpu)T PARAMETER ALPHA$K_AS1607060202 = '000005D2'X ! AlphaServer 4000A 5/400 2MB (2cpu)T PARAMETER ALPHA$K_AS1607050201 = '000005D3'X ! AlphaServer 4000A 5/400 2MB (1cpu)T PARAMETER AALPHA$K_AS1607050202 = '000005D4'X ! AlphaServer 4000A 5/400 2MB (2cpu)T PARAMETER ALPHA$K_AS1605060601 = '000005D5'X ! AlphaServer 4000A 5/266 4MB (1cpu)T PARAMETER ALPHA$K_AS1605060602 = '000005D6'X ! AlphaServer 4000A 5/266 4MB (2cpu)T PARAMETER ALPHA$K_AS1605050601 = '000005D7'X ! AlphaServer 4000A 5/266 4MB (1cpu)T PARAMETER ALPHA$K_AS1605050602 = '000005D8'X ! AlphaServer 4000A 5/266 4MB (2cpu)T PARAMETER ALPHA$K_AS1605060701 = '000005D9'X ! AlphaServer 4000A 5/300 4MB (1cpu)T PBARAMETER ALPHA$K_AS1605060702 = '000005DA'X ! AlphaServer 4000A 5/300 4MB (2cpu)T PARAMETER ALPHA$K_AS1605050701 = '000005DB'X ! AlphaServer 4000A 5/300 4MB (1cpu)T PARAMETER ALPHA$K_AS1605050702 = '000005DC'X ! AlphaServer 4000A 5/300 4MB (2cpu)T PARAMETER ALPHA$K_AS1607060301 = '000005DD'X ! AlphaServer 4000A 5/400 4MB (1cpu)T PARAMETER ALPHA$K_AS1607060302 = '000005DE'X ! AlphaServer 4000A 5/400 4MB (2cpu)T PARAMETER ALPHA$K_AS1607050301 = '000005DF'X ! AlphaServer 4000A 5/400 4MB C(1cpu)T PARAMETER ALPHA$K_AS1607050302 = '000005E0'X ! AlphaServer 4000A 5/400 4MB (2cpu)O PARAMETER ALPHA$K_AS0907010001 = '000005E1'X ! AlphaServer 2000 5/375 (1cpu)O PARAMETER ALPHA$K_AS0907010002 = '000005E2'X ! AlphaServer 2000 5/375 (2cpu)O PARAMETER ALPHA$K_AS0907010003 = '000005E3'X ! AlphaServer 2000 5/375 (3cpu)O PARAMETER ALPHA$K_AS0907010004 = '000005E4'X ! AlphaServer 2000 5/375 (4cpu)O PARAMETER ALPHA$K_AS0907020001 = '000005E5'X ! AlphaServer 2100 5/375 (1cpu)O PDARAMETER ALPHA$K_AS0907020002 = '000005E6'X ! AlphaServer 2100 5/375 (2cpu)O PARAMETER ALPHA$K_AS0907020003 = '000005E7'X ! AlphaServer 2100 5/375 (3cpu)O PARAMETER ALPHA$K_AS0907020004 = '000005E8'X ! AlphaServer 2100 5/375 (4cpu)V PARAMETER ALPHA$K_AS0907030001 = '000005E9'X ! AlphaServer 2100 5/375 (1cpu) (rack)V PARAMETER ALPHA$K_AS0907030002 = '000005EA'X ! AlphaServer 2100 5/375 (2cpu) (rack)V PARAMETER ALPHA$K_AS0907030003 = '000005EB'X ! AlphaServer 2100 5/375 (3cpu) (rack)EV PARAMETER ALPHA$K_AS0907030004 = '000005EC'X ! AlphaServer 2100 5/375 (4cpu) (rack)O PARAMETER ALPHA$K_AS0907010101 = '000005ED'X ! AlphaServer 2000 5/400 (1cpu)O PARAMETER ALPHA$K_AS0907010102 = '000005EE'X ! AlphaServer 2000 5/400 (2cpu)O PARAMETER ALPHA$K_AS0907010103 = '000005EF'X ! AlphaServer 2000 5/400 (3cpu)O PARAMETER ALPHA$K_AS0907010104 = '000005F0'X ! AlphaServer 2000 5/400 (4cpu)O PARAMETER ALPHA$K_AS0907020101 = '000005F1'X ! AlphaServer 2100 5/400 (1cpu)O PARAMFETER ALPHA$K_AS0907020102 = '000005F2'X ! AlphaServer 2100 5/400 (2cpu)O PARAMETER ALPHA$K_AS0907020103 = '000005F3'X ! AlphaServer 2100 5/400 (3cpu)O PARAMETER ALPHA$K_AS0907020104 = '000005F4'X ! AlphaServer 2100 5/400 (4cpu)V PARAMETER ALPHA$K_AS0907030101 = '000005F5'X ! AlphaServer 2100 5/400 (1cpu) (rack)V PARAMETER ALPHA$K_AS0907030102 = '000005F6'X ! AlphaServer 2100 5/400 (2cpu) (rack)V PARAMETER ALPHA$K_AS0907030103 = '000005F7'X ! AlphaServer 2100 5/400 (3cpu) (rack)V PGARAMETER ALPHA$K_AS0907030104 = '000005F8'X ! AlphaServer 2100 5/400 (4cpu) (rack)P PARAMETER ALPHA$K_AS1807010001 = '000005F9'X ! AlphaServer 2000A 5/375 (1cpu)P PARAMETER ALPHA$K_AS1807010002 = '000005FA'X ! AlphaServer 2000A 5/375 (2cpu)P PARAMETER ALPHA$K_AS1807010003 = '000005FB'X ! AlphaServer 2000A 5/375 (3cpu)P PARAMETER ALPHA$K_AS1807010004 = '000005FC'X ! AlphaServer 2000A 5/375 (4cpu)P PARAMETER ALPHA$K_AS1807020001 = '000005FD'X ! AlphaServer 2100A 5/375 (1cpu)P PARAMETERH ALPHA$K_AS1807020002 = '000005FE'X ! AlphaServer 2100A 5/375 (2cpu)P PARAMETER ALPHA$K_AS1807020003 = '000005FF'X ! AlphaServer 2100A 5/375 (3cpu)P PARAMETER ALPHA$K_AS1807020004 = '00000600'X ! AlphaServer 2100A 5/375 (4cpu)W PARAMETER ALPHA$K_AS1807030001 = '00000601'X ! AlphaServer 2100A 5/375 (1cpu) (rack)W PARAMETER ALPHA$K_AS1807030002 = '00000602'X ! AlphaServer 2100A 5/375 (2cpu) (rack)W PARAMETER ALPHA$K_AS1807030003 = '00000603'X ! AlphaServer 2100A 5/375 (3cpu) (rack)WI PARAMETER ALPHA$K_AS1807030004 = '00000604'X ! AlphaServer 2100A 5/375 (4cpu) (rack)P PARAMETER ALPHA$K_AS1807010101 = '00000605'X ! AlphaServer 2000A 5/400 (1cpu)P PARAMETER ALPHA$K_AS1807010102 = '00000606'X ! AlphaServer 2000A 5/400 (2cpu)P PARAMETER ALPHA$K_AS1807010103 = '00000607'X ! AlphaServer 2000A 5/400 (3cpu)P PARAMETER ALPHA$K_AS1807010104 = '00000608'X ! AlphaServer 2000A 5/400 (4cpu)P PARAMETER ALPHA$K_AS1807020101 = '00000609'X ! AlphaServer 2100A 5/400 (1cpu)P PARAMJETER ALPHA$K_AS1807020102 = '0000060A'X ! AlphaServer 2100A 5/400 (2cpu)P PARAMETER ALPHA$K_AS1807020103 = '0000060B'X ! AlphaServer 2100A 5/400 (3cpu)P PARAMETER ALPHA$K_AS1807020104 = '0000060C'X ! AlphaServer 2100A 5/400 (4cpu)W PARAMETER ALPHA$K_AS1807030101 = '0000060D'X ! AlphaServer 2100A 5/400 (1cpu) (rack)W PARAMETER ALPHA$K_AS1807030102 = '0000060E'X ! AlphaServer 2100A 5/400 (2cpu) (rack)W PARAMETER ALPHA$K_AS1807030103 = '0000060F'X ! AlphaServer 2100A 5/400 (3cpu) (rackK)W PARAMETER ALPHA$K_AS1807030104 = '00000610'X ! AlphaServer 2100A 5/400 (4cpu) (rack)P PARAMETER ALPHA$K_AS1406030001 = '00000611'X ! AlphaPCI64 275, EV45 2MB CacheL PARAMETER ALPHA$K_AS1E07010001 = '00000612'X ! Personal Workstation 433auL PARAMETER ALPHA$K_AS1E07020001 = '00000613'X ! Personal Workstation 466auL PARAMETER ALPHA$K_AS1E07030001 = '00000614'X ! Personal Workstation 500auL PARAMETER ALPHA$K_AS1E07040001 = '00000615'X ! Personal Workstation 533auI PARAMETER ALPHA$KL_AS1B07030101 = '00000616'X ! AlphaServer 1000A 5/333H PARAMETER ALPHA$K_AS1107050101 = '00000617'X ! AlphaServer 1000 5/333O PARAMETER ALPHA$K_AS0C07040001 = '00000618'X ! AlphaServer 8200 5/440 (1cpu)O PARAMETER ALPHA$K_AS0C07040002 = '00000619'X ! AlphaServer 8200 5/440 (2cpu)O PARAMETER ALPHA$K_AS0C07040003 = '0000061A'X ! AlphaServer 8200 5/440 (3cpu)O PARAMETER ALPHA$K_AS0C07040004 = '0000061B'X ! AlphaServer 8200 5/440 (4cpu)O PARAMETER ALPHA$K_AS0C07040005 = '0000061C'X M ! AlphaServer 8200 5/440 (5cpu)O PARAMETER ALPHA$K_AS0C07040006 = '0000061D'X ! AlphaServer 8200 5/440 (6cpu)O PARAMETER ALPHA$K_AS0C07050001 = '0000061E'X ! AlphaServer 8400 5/440 (1cpu)O PARAMETER ALPHA$K_AS0C07050002 = '0000061F'X ! AlphaServer 8400 5/440 (2cpu)O PARAMETER ALPHA$K_AS0C07050003 = '00000620'X ! AlphaServer 8400 5/440 (3cpu)O PARAMETER ALPHA$K_AS0C07050004 = '00000621'X ! AlphaServer 8400 5/440 (4cpu)O PARAMETER ALPHA$K_AS0C07050005 = '00000622'X ! AlphaServeNr 8400 5/440 (5cpu)O PARAMETER ALPHA$K_AS0C07050006 = '00000623'X ! AlphaServer 8400 5/440 (6cpu)O PARAMETER ALPHA$K_AS0C07050007 = '00000624'X ! AlphaServer 8400 5/440 (7cpu)O PARAMETER ALPHA$K_AS0C07050008 = '00000625'X ! AlphaServer 8400 5/440 (8cpu)O PARAMETER ALPHA$K_AS0C07050009 = '00000626'X ! AlphaServer 8400 5/440 (9cpu)P PARAMETER ALPHA$K_AS0C0705000A = '00000627'X ! AlphaServer 8400 5/440 (10cpu)P PARAMETER ALPHA$K_AS0C0705000B = '00000628'X ! AlphaServer 8400 5/440 (O11cpu)P PARAMETER ALPHA$K_AS0C0705000C = '00000629'X ! AlphaServer 8400 5/440 (12cpu)B PARAMETER ALPHA$K_AS1F05010001 = '0000062A'X ! XXM, EV5 266 MHzI PARAMETER ALPHA$K_AS2007010001 = '0000062B'X ! DIGITAL 21164 PICMG SBCS PARAMETER ALPHA$K_AS1B07030201 = '0000062C'X ! AlphaServer 1000A 5/500 2MB CacheS PARAMETER ALPHA$K_AS1B07030301 = '0000062D'X ! AlphaServer 1000A 5/500 8MB CacheR PARAMETER ALPHA$K_AS1107050201 = '0000062E'X ! AlphaServer 1000 5/500 2MB CacheR PARAMETER ALPHAP$K_AS1107050301 = '0000062F'X ! AlphaServer 1000 5/500 8MB CacheQ PARAMETER ALPHA$K_AS1B07040101 = '00000630'X ! AlphaServer 800 5/400 2MB CacheQ PARAMETER ALPHA$K_AS1B07040201 = '00000631'X ! AlphaServer 800 5/500 2MB CacheK PARAMETER ALPHA$K_AS1A07060001 = '00000632'X ! AlphaPC 164, EV56 466 MHzK PARAMETER ALPHA$K_AS1A07070001 = '00000633'X ! AlphaPC 164, EV56 500 MHzF PARAMETER ALPHA$K_AS2107000001 = '00000634'X ! AlphaVME 5/320, EV56F PARAMETER ALPHA$K_AS2107010001 = '0000063Q5'X ! AlphaVME 5/480, EV56S PARAMETER ALPHA$K_AS1B07030401 = '00000636'X ! AlphaStation 600A 5/500 8MB CacheP PARAMETER ALPHA$K_AS0C0705000D = '00000637'X ! AlphaServer 8400 5/440 (13cpu)P PARAMETER ALPHA$K_AS0C0705000E = '00000638'X ! AlphaServer 8400 5/440 (14cpu)G PARAMETER ALPHA$K_AS0D06080101 = '00000639'X ! AlphaServer 300 4/266Z PARAMETER ALPHA$K_AS1607020401 = '0000063A'X ! AlphaServer 4100 5/466 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607020402 = '0000063B'X ! AlphaServeRr 4100 5/466 4MB (2cpu) (rack)Z PARAMETER ALPHA$K_AS1607020403 = '0000063C'X ! AlphaServer 4100 5/466 4MB (3cpu) (rack)Z PARAMETER ALPHA$K_AS1607020404 = '0000063D'X ! AlphaServer 4100 5/466 4MB (4cpu) (rack)^ PARAMETER ALPHA$K_AS1607010401 = '0000063E'X ! AlphaServer 4100 5/466 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010402 = '0000063F'X ! AlphaServer 4100 5/466 4MB (2cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010403 = '00000640'X ! AlphaServer 4100 5/466 4MB (3cpu) (pedestal)^ PSARAMETER ALPHA$K_AS1607010404 = '00000641'X ! AlphaServer 4100 5/466 4MB (4cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607020501 = '00000642'X ! AlphaServer 4100 5/533 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607020502 = '00000643'X ! AlphaServer 4100 5/533 4MB (2cpu) (rack)Z PARAMETER ALPHA$K_AS1607020503 = '00000644'X ! AlphaServer 4100 5/533 4MB (3cpu) (rack)Z PARAMETER ALPHA$K_AS1607020504 = '00000645'X ! AlphaServer 4100 5/533 4MB (4cpu) (rack)^ PARAMETER ALPHA$K_AS1607010501 = '00000646'TX ! AlphaServer 4100 5/533 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010502 = '00000647'X ! AlphaServer 4100 5/533 4MB (2cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010503 = '00000648'X ! AlphaServer 4100 5/533 4MB (3cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010504 = '00000649'X ! AlphaServer 4100 5/533 4MB (4cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607020601 = '0000064A'X ! AlphaServer 4100 5/533 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607020602 = '0000064B'X ! AlphaServer 4100 5/533 8UMB (2cpu) (rack)Z PARAMETER ALPHA$K_AS1607020603 = '0000064C'X ! AlphaServer 4100 5/533 8MB (3cpu) (rack)Z PARAMETER ALPHA$K_AS1607020604 = '0000064D'X ! AlphaServer 4100 5/533 8MB (4cpu) (rack)^ PARAMETER ALPHA$K_AS1607010601 = '0000064E'X ! AlphaServer 4100 5/533 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010602 = '0000064F'X ! AlphaServer 4100 5/533 8MB (2cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010603 = '00000650'X ! AlphaServer 4100 5/533 8MB (3cpu) (pedestal)^ PARAMETER ALPHAV$K_AS1607010604 = '00000651'X ! AlphaServer 4100 5/533 8MB (4cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607020701 = '00000652'X ! AlphaServer 4100 5/600 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607020702 = '00000653'X ! AlphaServer 4100 5/600 8MB (2cpu) (rack)Z PARAMETER ALPHA$K_AS1607020703 = '00000654'X ! AlphaServer 4100 5/600 8MB (3cpu) (rack)Z PARAMETER ALPHA$K_AS1607020704 = '00000655'X ! AlphaServer 4100 5/600 8MB (4cpu) (rack)^ PARAMETER ALPHA$K_AS1607010701 = '00000656'X ! AlphaSerWver 4100 5/600 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010702 = '00000657'X ! AlphaServer 4100 5/600 8MB (2cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010703 = '00000658'X ! AlphaServer 4100 5/600 8MB (3cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010704 = '00000659'X ! AlphaServer 4100 5/600 8MB (4cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607020801 = '0000065A'X ! AlphaServer 4100 5/666 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607020802 = '0000065B'X ! AlphaServer 4100 5/666 8MB (2cpu) (racXk)Z PARAMETER ALPHA$K_AS1607020803 = '0000065C'X ! AlphaServer 4100 5/666 8MB (3cpu) (rack)Z PARAMETER ALPHA$K_AS1607020804 = '0000065D'X ! AlphaServer 4100 5/666 8MB (4cpu) (rack)^ PARAMETER ALPHA$K_AS1607010801 = '0000065E'X ! AlphaServer 4100 5/666 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010802 = '0000065F'X ! AlphaServer 4100 5/666 8MB (2cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607010803 = '00000660'X ! AlphaServer 4100 5/666 8MB (3cpu) (pedestal)^ PARAMETER ALPHA$K_AS160701080Y4 = '00000661'X ! AlphaServer 4100 5/666 8MB (4cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607040401 = '00000662'X ! AlphaServer 4000 5/466 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607040402 = '00000663'X ! AlphaServer 4000 5/466 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607030401 = '00000664'X ! AlphaServer 4000 5/466 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607030402 = '00000665'X ! AlphaServer 4000 5/466 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607040501 = '00000666'X ! AlphaServer 40Z00 5/533 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607040502 = '00000667'X ! AlphaServer 4000 5/533 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607030501 = '00000668'X ! AlphaServer 4000 5/533 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607030502 = '00000669'X ! AlphaServer 4000 5/533 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607040601 = '0000066A'X ! AlphaServer 4000 5/533 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607040602 = '0000066B'X ! AlphaServer 4000 5/533 8MB (2cpu) (rack)^ PARAMETER[ ALPHA$K_AS1607030601 = '0000066C'X ! AlphaServer 4000 5/533 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607030602 = '0000066D'X ! AlphaServer 4000 5/533 8MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607040701 = '0000066E'X ! AlphaServer 4000 5/600 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607040702 = '0000066F'X ! AlphaServer 4000 5/600 8MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607030701 = '00000670'X ! AlphaServer 4000 5/600 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607030702 = '00000671'\X ! AlphaServer 4000 5/600 8MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607040801 = '00000672'X ! AlphaServer 4000 5/666 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607040802 = '00000673'X ! AlphaServer 4000 5/666 8MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607030801 = '00000674'X ! AlphaServer 4000 5/666 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607030802 = '00000675'X ! AlphaServer 4000 5/666 8MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607060401 = '00000676'X ! AlphaServer 4000 5/466 4MB (]1cpu) (rack)Z PARAMETER ALPHA$K_AS1607060402 = '00000677'X ! AlphaServer 4000 5/466 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607050401 = '00000678'X ! AlphaServer 4000 5/466 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607050402 = '00000679'X ! AlphaServer 4000 5/466 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607060501 = '0000067A'X ! AlphaServer 4000 5/533 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607060502 = '0000067B'X ! AlphaServer 4000 5/533 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS160^7050501 = '0000067C'X ! AlphaServer 4000 5/533 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607050502 = '0000067D'X ! AlphaServer 4000 5/533 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607060601 = '0000067E'X ! AlphaServer 4000 5/533 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607060602 = '0000067F'X ! AlphaServer 4000 5/533 8MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607050601 = '00000680'X ! AlphaServer 4000 5/533 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607050602 = '00000681'X ! AlphaSer_ver 4000 5/533 8MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607060701 = '00000682'X ! AlphaServer 4000 5/600 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607060702 = '00000683'X ! AlphaServer 4000 5/600 8MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607050701 = '00000684'X ! AlphaServer 4000 5/600 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607050702 = '00000685'X ! AlphaServer 4000 5/600 8MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607060801 = '00000686'X ! AlphaServer 4000 5/666 8MB (1cpu) (rack)Z` PARAMETER ALPHA$K_AS1607060802 = '00000687'X ! AlphaServer 4000 5/666 8MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607050801 = '00000688'X ! AlphaServer 4000 5/666 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607050802 = '00000689'X ! AlphaServer 4000 5/666 8MB (2cpu) (pedestal)O PARAMETER ALPHA$K_AS0C07060001 = '0000068A'X ! AlphaServer 8200 5/622 (1cpu)O PARAMETER ALPHA$K_AS0C07060002 = '0000068A'X ! AlphaServer 8200 5/622 (2cpu)O PARAMETER ALPHA$K_AS0C07060003 = '0000068A'X ! AlphaSeraver 8200 5/622 (3cpu)O PARAMETER ALPHA$K_AS0C07060004 = '0000068A'X ! AlphaServer 8200 5/622 (4cpu)O PARAMETER ALPHA$K_AS0C07060005 = '0000068A'X ! AlphaServer 8200 5/622 (5cpu)O PARAMETER ALPHA$K_AS0C07060006 = '0000068A'X ! AlphaServer 8200 5/622 (6cpu)O PARAMETER ALPHA$K_AS0C07070001 = '00000690'X ! AlphaServer 8400 5/622 (1cpu)O PARAMETER ALPHA$K_AS0C07070002 = '00000691'X ! AlphaServer 8400 5/622 (2cpu)O PARAMETER ALPHA$K_AS0C07070003 = '00000692'X ! AlphaServer 8400 5/622b (3cpu)O PARAMETER ALPHA$K_AS0C07070004 = '00000693'X ! AlphaServer 8400 5/622 (4cpu)O PARAMETER ALPHA$K_AS0C07070005 = '00000694'X ! AlphaServer 8400 5/622 (5cpu)O PARAMETER ALPHA$K_AS0C07070006 = '00000695'X ! AlphaServer 8400 5/622 (6cpu)O PARAMETER ALPHA$K_AS0C07070007 = '00000696'X ! AlphaServer 8400 5/622 (7cpu)O PARAMETER ALPHA$K_AS0C07070008 = '00000697'X ! AlphaServer 8400 5/622 (8cpu)O PARAMETER ALPHA$K_AS0C07070009 = '00000698'X ! AlphaServer 8400 5/622 (9cpu)P PARcAMETER ALPHA$K_AS0C0707000A = '00000699'X ! AlphaServer 8400 5/622 (10cpu)P PARAMETER ALPHA$K_AS0C0707000B = '0000069A'X ! AlphaServer 8400 5/622 (11cpu)P PARAMETER ALPHA$K_AS0C0707000C = '0000069B'X ! AlphaServer 8400 5/622 (12cpu)P PARAMETER ALPHA$K_AS0C0707000D = '0000069C'X ! AlphaServer 8400 5/622 (13cpu)P PARAMETER ALPHA$K_AS0C0707000E = '0000069D'X ! AlphaServer 8400 5/622 (14cpu)Q PARAMETER ALPHA$K_AS1A07080001 = '0000069E'X ! AlphaPC 164LX 400, EV56 400 MHzQ PARAMETER ALPHAd$K_AS1A07090001 = '0000069F'X ! AlphaPC 164LX 466, EV56 466 MHzQ PARAMETER ALPHA$K_AS1A070A0001 = '000006A0'X ! AlphaPC 164LX 533, EV56 533 MHzQ PARAMETER ALPHA$K_AS1A070B0001 = '000006A1'X ! AlphaPC 164LX 600, EV56 600 MHzQ PARAMETER ALPHA$K_AS1A070C0001 = '000006A2'X ! AlphaPC 164SX 400, EV56 400 MHzQ PARAMETER ALPHA$K_AS1A070D0001 = '000006A3'X ! AlphaPC 164SX 466, EV56 466 MHzQ PARAMETER ALPHA$K_AS1A070E0001 = '000006A4'X ! AlphaPC 164SX 533, EV56 533 MHzQ PARAMETER ALPHA$Ke_AS1A070F0001 = '000006A5'X ! AlphaPC 164SX 600, EV56 600 MHzL PARAMETER ALPHA$K_AS1E07050001 = '000006A6'X ! Personal Workstation 566auL PARAMETER ALPHA$K_AS1E07060001 = '000006A7'X ! Personal Workstation 600auL PARAMETER ALPHA$K_AS1E07070001 = '000006A8'X ! Personal Workstation 633auL PARAMETER ALPHA$K_AS1E07080001 = '000006A9'X ! Personal Workstation 666auL PARAMETER ALPHA$K_AS1E07090001 = '000006AA'X ! Personal Workstation 700auL PARAMETER ALPHA$K_AS1E070A0001 = '000006AB'X ! fPersonal Workstation 733auL PARAMETER ALPHA$K_AS1E070B0001 = '000006AC'X ! Personal Workstation 766auL PARAMETER ALPHA$K_AS1E070C0001 = '000006AD'X ! Personal Workstation 800auL PARAMETER ALPHA$K_AS1E070D0001 = '000006AE'X ! Personal Workstation 833auL PARAMETER ALPHA$K_AS1E070E0001 = '000006AF'X ! Personal Workstation 866auL PARAMETER ALPHA$K_AS1E070F0001 = '000006B0'X ! Personal Workstation 900auL PARAMETER ALPHA$K_AS1E07100001 = '000006B1'X ! Personal Workstation 933auL PARAMETERg ALPHA$K_AS1E07110001 = '000006B2'X ! Personal Workstation 966auM PARAMETER ALPHA$K_AS1E07120001 = '000006B3'X ! Personal Workstation 1000auL PARAMETER ALPHA$K_AS1E07130001 = '000006B4'X ! Personal Workstation 466auL PARAMETER ALPHA$K_AS1E07140001 = '000006B5'X ! Personal Workstation 533auL PARAMETER ALPHA$K_AS1E07150001 = '000006B6'X ! Personal Workstation 600auL PARAMETER ALPHA$K_AS1E07160001 = '000006B7'X ! Personal Workstation 666auL PARAMETER ALPHA$K_AS1E09140001 = '000006B8'X h ! Personal Workstation 466auL PARAMETER ALPHA$K_AS1E09140101 = '000006B9'X ! Personal Workstation 550auZ PARAMETER ALPHA$K_AS1605080001 = '000006BA'X ! AlphaServer 1200 5/300 2MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1605080002 = '000006BB'X ! AlphaServer 1200 5/300 2MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1605070001 = '000006BC'X ! AlphaServer 1200 5/300 2MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1605070002 = '000006BD'X ! AlphaServer 1200 5/300 2MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AiS1607080101 = '000006BE'X ! AlphaServer 1200 5/400 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607080102 = '000006BF'X ! AlphaServer 1200 5/400 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607070101 = '000006C0'X ! AlphaServer 1200 5/400 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607070102 = '000006C1'X ! AlphaServer 1200 5/400 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607080201 = '000006C2'X ! AlphaServer 1200 5/466 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607080202 = '000006C3'X ! AlphaSerjver 1200 5/466 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607070201 = '000006C4'X ! AlphaServer 1200 5/466 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607070202 = '000006C5'X ! AlphaServer 1200 5/466 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607080301 = '000006C6'X ! AlphaServer 1200 5/533 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607080302 = '000006C7'X ! AlphaServer 1200 5/533 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607070301 = '000006C8'X ! AlphaServer 1200 5/533 4MB (1cpu) (pedestal)^k PARAMETER ALPHA$K_AS1607070302 = '000006C9'X ! AlphaServer 1200 5/533 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607080401 = '000006CA'X ! AlphaServer 1200 5/600 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607080402 = '000006CB'X ! AlphaServer 1200 5/600 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607070401 = '000006CC'X ! AlphaServer 1200 5/600 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607070402 = '000006CD'X ! AlphaServer 1200 5/600 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607080501 = l'000006CE'X ! AlphaServer 1200 5/666 4MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607080502 = '000006CF'X ! AlphaServer 1200 5/666 4MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607070501 = '000006D0'X ! AlphaServer 1200 5/666 4MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607070502 = '000006D1'X ! AlphaServer 1200 5/666 4MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607080601 = '000006D2'X ! AlphaServer 1200 5/533 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607080602 = '000006D3'X ! AlphaServer 1200 5/533m 8MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607070601 = '000006D4'X ! AlphaServer 1200 5/533 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607070602 = '000006D5'X ! AlphaServer 1200 5/533 8MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607080701 = '000006D6'X ! AlphaServer 1200 5/600 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607080702 = '000006D7'X ! AlphaServer 1200 5/600 8MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607070701 = '000006D8'X ! AlphaServer 1200 5/600 8MB (1cpu) (pedestal)^ PARAMETER ALPnHA$K_AS1607070702 = '000006D9'X ! AlphaServer 1200 5/600 8MB (2cpu) (pedestal)Z PARAMETER ALPHA$K_AS1607080801 = '000006DA'X ! AlphaServer 1200 5/666 8MB (1cpu) (rack)Z PARAMETER ALPHA$K_AS1607080802 = '000006DB'X ! AlphaServer 1200 5/666 8MB (2cpu) (rack)^ PARAMETER ALPHA$K_AS1607070801 = '000006DC'X ! AlphaServer 1200 5/666 8MB (1cpu) (pedestal)^ PARAMETER ALPHA$K_AS1607070802 = '000006DD'X ! AlphaServer 1200 5/666 8MB (2cpu) (pedestal)[ PARAMETER ALPHA$K_AS16070A0101 = '000006DE'X !o AlphaStation 1200 5/400 4MB (1cpu) (rack)[ PARAMETER ALPHA$K_AS16070A0102 = '000006DF'X ! AlphaStation 1200 5/400 4MB (2cpu) (rack)_ PARAMETER ALPHA$K_AS1607090101 = '000006E0'X ! AlphaStation 1200 5/400 4MB (1cpu) (pedestal)_ PARAMETER ALPHA$K_AS1607090102 = '000006E1'X ! AlphaStation 1200 5/400 4MB (2cpu) (pedestal)[ PARAMETER ALPHA$K_AS16070A0201 = '000006E2'X ! AlphaStation 1200 5/466 4MB (1cpu) (rack)[ PARAMETER ALPHA$K_AS16070A0202 = '000006E3'X ! AlphaStation 1200 5/466 4MpB (2cpu) (rack)_ PARAMETER ALPHA$K_AS1607090201 = '000006E4'X ! AlphaStation 1200 5/466 4MB (1cpu) (pedestal)_ PARAMETER ALPHA$K_AS1607090202 = '000006E5'X ! AlphaStation 1200 5/466 4MB (2cpu) (pedestal)[ PARAMETER ALPHA$K_AS16070A0301 = '000006E6'X ! AlphaStation 1200 5/533 4MB (1cpu) (rack)[ PARAMETER ALPHA$K_AS16070A0302 = '000006E7'X ! AlphaStation 1200 5/533 4MB (2cpu) (rack)_ PARAMETER ALPHA$K_AS1607090301 = '000006E8'X ! AlphaStation 1200 5/533 4MB (1cpu) (pedestal)_ PARAMqETER ALPHA$K_AS1607090302 = '000006E9'X ! AlphaStation 1200 5/533 4MB (2cpu) (pedestal)[ PARAMETER ALPHA$K_AS16070A0401 = '000006EA'X ! AlphaStation 1200 5/600 4MB (1cpu) (rack)[ PARAMETER ALPHA$K_AS16070A0402 = '000006EB'X ! AlphaStation 1200 5/600 4MB (2cpu) (rack)_ PARAMETER ALPHA$K_AS1607090401 = '000006EC'X ! AlphaStation 1200 5/600 4MB (1cpu) (pedestal)_ PARAMETER ALPHA$K_AS1607090402 = '000006ED'X ! AlphaStation 1200 5/600 4MB (2cpu) (pedestal)[ PARAMETER ALPHA$K_AS16070A050r1 = '000006EE'X ! AlphaStation 1200 5/666 4MB (1cpu) (rack)[ PARAMETER ALPHA$K_AS16070A0502 = '000006EF'X ! AlphaStation 1200 5/666 4MB (2cpu) (rack)_ PARAMETER ALPHA$K_AS1607090501 = '000006F0'X ! AlphaStation 1200 5/666 4MB (1cpu) (pedestal)_ PARAMETER ALPHA$K_AS1607090502 = '000006F1'X ! AlphaStation 1200 5/666 4MB (2cpu) (pedestal)[ PARAMETER ALPHA$K_AS16070A0601 = '000006F2'X ! AlphaStation 1200 5/533 8MB (1cpu) (rack)[ PARAMETER ALPHA$K_AS16070A0602 = '000006F3'X ! AlphaStastion 1200 5/533 8MB (2cpu) (rack)_ PARAMETER ALPHA$K_AS1607090601 = '000006F4'X ! AlphaStation 1200 5/533 8MB (1cpu) (pedestal)_ PARAMETER ALPHA$K_AS1607090602 = '000006F5'X ! AlphaStation 1200 5/533 8MB (2cpu) (pedestal)[ PARAMETER ALPHA$K_AS16070A0701 = '000006F6'X ! AlphaStation 1200 5/600 8MB (1cpu) (rack)[ PARAMETER ALPHA$K_AS16070A0702 = '000006F7'X ! AlphaStation 1200 5/600 8MB (2cpu) (rack)_ PARAMETER ALPHA$K_AS1607090701 = '000006F8'X ! AlphaStation 1200 5/600 8MB (1cpu) (tpedestal)_ PARAMETER ALPHA$K_AS1607090702 = '000006F9'X ! AlphaStation 1200 5/600 8MB (2cpu) (pedestal)[ PARAMETER ALPHA$K_AS16070A0801 = '000006FA'X ! AlphaStation 1200 5/666 8MB (1cpu) (rack)[ PARAMETER ALPHA$K_AS16070A0802 = '000006FB'X ! AlphaStation 1200 5/666 8MB (2cpu) (rack)_ PARAMETER ALPHA$K_AS1607090801 = '000006FC'X ! AlphaStation 1200 5/666 8MB (1cpu) (pedestal)_ PARAMETER ALPHA$K_AS1607090802 = '000006FD'X ! AlphaStation 1200 5/666 8MB (2cpu) (pedestal)L PARAMETER AuLPHA$K_AS1E07190001 = '000006FE'X ! Personal Workstation 433auL PARAMETER ALPHA$K_AS1E071A0001 = '000006FF'X ! Personal Workstation 500auL PARAMETER ALPHA$K_AS1E071B0001 = '00000700'X ! Personal Workstation 600auO PARAMETER ALPHA$K_AS0C07080001 = '00000701'X ! AlphaServer 8200 5/625 (1cpu)O PARAMETER ALPHA$K_AS0C07080002 = '00000702'X ! AlphaServer 8200 5/625 (2cpu)O PARAMETER ALPHA$K_AS0C07080003 = '00000703'X ! AlphaServer 8200 5/625 (3cpu)O PARAMETER ALPHA$K_AS0C07080004 = '000v00704'X ! AlphaServer 8200 5/625 (4cpu)O PARAMETER ALPHA$K_AS0C07080005 = '00000705'X ! AlphaServer 8200 5/625 (5cpu)O PARAMETER ALPHA$K_AS0C07080006 = '00000706'X ! AlphaServer 8200 5/625 (6cpu)O PARAMETER ALPHA$K_AS0C07090001 = '00000707'X ! AlphaServer 8400 5/625 (1cpu)O PARAMETER ALPHA$K_AS0C07090002 = '00000708'X ! AlphaServer 8400 5/625 (2cpu)O PARAMETER ALPHA$K_AS0C07090003 = '00000709'X ! AlphaServer 8400 5/625 (3cpu)O PARAMETER ALPHA$K_AS0C07090004 = '0000070A'X ! AlwphaServer 8400 5/625 (4cpu)O PARAMETER ALPHA$K_AS0C07090005 = '0000070B'X ! AlphaServer 8400 5/625 (5cpu)O PARAMETER ALPHA$K_AS0C07090006 = '0000070C'X ! AlphaServer 8400 5/625 (6cpu)O PARAMETER ALPHA$K_AS0C07090007 = '0000070D'X ! AlphaServer 8400 5/625 (7cpu)O PARAMETER ALPHA$K_AS0C07090008 = '0000070E'X ! AlphaServer 8400 5/625 (8cpu)O PARAMETER ALPHA$K_AS0C07090009 = '0000070F'X ! AlphaServer 8400 5/625 (9cpu)P PARAMETER ALPHA$K_AS0C0709000A = '00000710'X ! AlphaServer 8400x 5/625 (10cpu)P PARAMETER ALPHA$K_AS0C0709000B = '00000711'X ! AlphaServer 8400 5/625 (11cpu)P PARAMETER ALPHA$K_AS0C0709000C = '00000712'X ! AlphaServer 8400 5/625 (12cpu)P PARAMETER ALPHA$K_AS0C0709000D = '00000713'X ! AlphaServer 8400 5/625 (13cpu)P PARAMETER ALPHA$K_AS0C0709000E = '00000714'X ! AlphaServer 8400 5/625 (14cpu)d PARAMETER ALPHA$K_AS2208050001 = '00000715'X ! AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 8-slot O PARAMETER ALPHA$K_AS2208050002 = '00000716'X ! AlphaServeyr ES40 6/500 (2cpu)O PARAMETER ALPHA$K_AS2208050003 = '00000717'X ! AlphaServer ES40 6/500 (3cpu)O PARAMETER ALPHA$K_AS2208050004 = '00000718'X ! AlphaServer ES40 6/500 (4cpu)d PARAMETER ALPHA$K_AS2208050101 = '00000719'X ! AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 8-slot O PARAMETER ALPHA$K_AS2208050102 = '0000071A'X ! AlphaServer ES40 6/667 (2cpu)O PARAMETER ALPHA$K_AS2208050103 = '0000071B'X ! AlphaServer ES40 6/667 (3cpu)O PARAMETER ALPHA$K_AS2208050104 = '0000071C'X ! AlphzaServer ES40 6/667 (4cpu)W PARAMETER ALPHA$K_AS2208050201 = '0000071D'X ! Professional Workstation XP1000 6/500X PARAMETER ALPHA$K_AS220B090001 = '0000071E'X ! Professional Workstation XP1000 67/667L PARAMETER ALPHA$K_AS1E071C0001 = '0000071F'X ! Personal Workstation 466auL PARAMETER ALPHA$K_AS1E071D0001 = '00000720'X ! Personal Workstation 533auL PARAMETER ALPHA$K_AS1E071E0001 = '00000721'X ! Personal Workstation 600auL PARAMETER ALPHA$K_AS1E071F0001 = '00000722'X ! Personal Works{tation 666auL PARAMETER ALPHA$K_AS1E07200001 = '00000723'X ! Personal Workstation 700auL PARAMETER ALPHA$K_AS1E07210001 = '00000724'X ! Personal Workstation 733auL PARAMETER ALPHA$K_AS1E07220001 = '00000725'X ! Personal Workstation 767auL PARAMETER ALPHA$K_AS1E07230001 = '00000726'X ! Personal Workstation 800auL PARAMETER ALPHA$K_AS1E07240001 = '00000727'X ! Personal Workstation 833auL PARAMETER ALPHA$K_AS1E07250001 = '00000728'X ! Personal Workstation 867auL PARAMETER ALPHA$K_AS1E0|7260001 = '00000729'X ! Personal Workstation 900auL PARAMETER ALPHA$K_AS1E07270001 = '0000072A'X ! Personal Workstation 933auL PARAMETER ALPHA$K_AS1E07280001 = '0000072B'X ! Personal Workstation 967auM PARAMETER ALPHA$K_AS1E07290001 = '0000072C'X ! Personal Workstation 1000auM PARAMETER ALPHA$K_AS2508010001 = '0000072D'X ! SMARTengine Alpha 21264 SBCH PARAMETER ALPHA$K_AS2208060001 = '0000072E'X ! AlphaServer DS20 6/500H PARAMETER ALPHA$K_AS2208070001 = '0000072F'X ! AlphaServer }DS10 6/466I PARAMETER ALPHA$K_AS2208080001 = '00000730'X ! AlphaServer DS20E 6/500O PARAMETER ALPHA$K_AS0C080A0001 = '00000731'X ! AlphaServer GS60 6/525 (1cpu)O PARAMETER ALPHA$K_AS0C080A0002 = '00000732'X ! AlphaServer GS60 6/525 (2cpu)O PARAMETER ALPHA$K_AS0C080A0003 = '00000733'X ! AlphaServer GS60 6/525 (3cpu)O PARAMETER ALPHA$K_AS0C080A0004 = '00000734'X ! AlphaServer GS60 6/525 (4cpu)O PARAMETER ALPHA$K_AS0C080A0005 = '00000735'X ! AlphaServer GS60 6/525 (5cpu)O PARAMET~ER ALPHA$K_AS0C080A0006 = '00000736'X ! AlphaServer GS60 6/525 (6cpu)P PARAMETER ALPHA$K_AS0C080B0001 = '00000737'X ! AlphaServer GS140 6/525 (1cpu)P PARAMETER ALPHA$K_AS0C080B0002 = '00000738'X ! AlphaServer GS140 6/525 (2cpu)P PARAMETER ALPHA$K_AS0C080B0003 = '00000739'X ! AlphaServer GS140 6/525 (3cpu)P PARAMETER ALPHA$K_AS0C080B0004 = '0000073A'X ! AlphaServer GS140 6/525 (4cpu)P PARAMETER ALPHA$K_AS0C080B0005 = '0000073B'X ! AlphaServer GS140 6/525 (5cpu)P PARAMETER ALPHA$K_AS0C080B0006 = '0000073C'X ! AlphaServer GS140 6/525 (6cpu)P PARAMETER ALPHA$K_AS0C080B0007 = '0000073D'X ! AlphaServer GS140 6/525 (7cpu)P PARAMETER ALPHA$K_AS0C080B0008 = '0000073E'X ! AlphaServer GS140 6/525 (8cpu)P PARAMETER ALPHA$K_AS0C080B0009 = '0000073F'X ! AlphaServer GS140 6/525 (9cpu)Q PARAMETER ALPHA$K_AS0C080B000A = '00000740'X ! AlphaServer GS140 6/525 (10cpu)Q PARAMETER ALPHA$K_AS0C080B000B = '00000741'X ! AlphaServer GS140 6/525 (11cpu)Q PARAMETER ALPHA$K_AS0C080B000C = '00000742'X ! AlphaServer GS140 6/525 (12cpu)Q PARAMETER ALPHA$K_AS0C080B000D = '00000743'X ! AlphaServer GS140 6/525 (13cpu)Q PARAMETER ALPHA$K_AS0C080B000E = '00000744'X ! AlphaServer GS140 6/525 (14cpu)d PARAMETER ALPHA$K_AS2208050301 = '00000745'X ! AlphaServer ES40 6/500 (1cpu, 6-slot PCI, 8-slot MO PARAMETER ALPHA$K_AS2208050302 = '00000746'X ! AlphaServer ES40 6/500 (2cpu)O PARAMETER ALPHA$K_AS2208050303 = '00000747'X ! AlphaServer ES40 6/500 (3cpu)O PARAMETER ALPHA$K_AS2208050304 = '00000748'X ! AlphaServer ES40 6/500 (4cpu)d PARAMETER ALPHA$K_AS2208050401 = '00000749'X ! AlphaServer ES40 6/667 (1cpu, 6-slot PCI, 8-slot MO PARAMETER ALPHA$K_AS2208050402 = '0000074A'X ! AlphaServer ES40 6/667 (2cpu)O PARAMETER ALPHA$K_AS2208050403 = '0000074B'X ! AlphaServer ES40 6/667 (3cpu)O PARAMETER ALPHA$K_AS2208050404 = '0000074C'X ! AlphaServer ES40 6/667 (4cpu)d PARAMETER ALPHA$K_AS2208050501 = '0000074D'X ! AlphaServer ES40 6/500 (1cpu, 6-slot PCI, 4-slot MO PARAMETER ALPHA$K_AS2208050502 = '0000074E'X ! AlphaServer ES40 6/500 (2cpu)O PARAMETER ALPHA$K_AS2208050503 = '0000074F'X ! AlphaServer ES40 6/500 (3cpu)O PARAMETER ALPHA$K_AS2208050504 = '00000750'X ! AlphaServer ES40 6/500 (4cpu)d PARAMETER ALPHA$K_AS2208050601 = '00000751'X ! AlphaServer ES40 6/667 (1cpu, 6-slot PCI, 4-slot MO PARAMETER ALPHA$K_AS2208050602 = '00000752'X ! AlphaServer ES40 6/667 (2cpu)O PARAMETER ALPHA$K_AS2208050603 = '00000753'X ! AlphaServer ES40 6/667 (3cpu)O PARAMETER ALPHA$K_AS2208050604 = '00000754'X ! AlphaServer ES40 6/667 (4cpu)I PARAMETER ALPHA$K_AS2107040001 = '00000755'X ! AlphaVME 5/480A, 5/480UA PARAMETER ALPHA$K_AS2107050001 = '00000756'X ! AlphaVME 5/320UQ PARAMETER ALPHA$K_AS2208070101 = '00000757'X ! AlphaStation XP900, DS10, 6/466P PARAMETER ALPHA$K_AS0C080C0001 = '00000758'X ! AlphaServer GS60e 6/525 (1cpu)P PARAMETER ALPHA$K_AS0C080C0002 = '00000759'X ! AlphaServer GS60e 6/525 (2cpu)P PARAMETER ALPHA$K_AS0C080C0003 = '0000075A'X ! AlphaServer GS60e 6/525 (3cpu)P PARAMETER ALPHA$K_AS0C080C0004 = '0000075B'X ! AlphaServer GS60e 6/525 (4cpu)P PARAMETER ALPHA$K_AS0C080C0005 = '0000075C'X ! AlphaServer GS60e 6/525 (5cpu)P PARAMETER ALPHA$K_AS0C080C0006 = '0000075D'X ! AlphaServer GS60e 6/525 (6cpu)P PARAMETER ALPHA$K_AS0C080C0007 = '0000075E'X ! AlphaServer GS60e 6/525 (7cpu)P PARAMETER ALPHA$K_AS0C080C0008 = '0000075F'X ! AlphaServer GS60e 6/525 (8cpu)P PARAMETER ALPHA$K_AS0C0B0D0001 = '00000762'X ! AlphaServer GS60 67/700 (1cpu)P PARAMETER ALPHA$K_AS0C0B0D0002 = '00000763'X ! AlphaServer GS60 67/700 (2cpu)P PARAMETER ALPHA$K_AS0C0B0D0003 = '00000764'X ! AlphaServer GS60 67/700 (3cpu)P PARAMETER ALPHA$K_AS0C0B0D0004 = '00000765'X ! AlphaServer GS60 67/700 (4cpu)P PARAMETER ALPHA$K_AS0C0B0D0005 = '00000766'X ! AlphaServer GS60 67/700 (5cpu)P PARAMETER ALPHA$K_AS0C0B0D0006 = '00000767'X ! AlphaServer GS60 67/700 (6cpu)Q PARAMETER ALPHA$K_AS0C0B0E0001 = '00000768'X ! AlphaServer GS140 67/700 (1cpu)Q PARAMETER ALPHA$K_AS0C0B0E0002 = '00000769'X ! AlphaServer GS140 67/700 (2cpu)Q PARAMETER ALPHA$K_AS0C0B0E0003 = '0000076A'X ! AlphaServer GS140 67/700 (3cpu)Q PARAMETER ALPHA$K_AS0C0B0E0004 = '0000076B'X ! AlphaServer GS140 67/700 (4cpu)Q PARAMETER ALPHA$K_AS0C0B0E0005 = '0000076C'X ! AlphaServer GS140 67/700 (5cpu)Q PARAMETER ALPHA$K_AS0C0B0E0006 = '0000076D'X ! AlphaServer GS140 67/700 (6cpu)Q PARAMETER ALPHA$K_AS0C0B0E0007 = '0000076E'X ! AlphaServer GS140 67/700 (7cpu)Q PARAMETER ALPHA$K_AS0C0B0E0008 = '0000076F'X ! AlphaServer GS140 67/700 (8cpu)Q PARAMETER ALPHA$K_AS0C0B0E0009 = '00000770'X ! AlphaServer GS140 67/700 (9cpu)R PARAMETER ALPHA$K_AS0C0B0E000A = '00000771'X ! AlphaServer GS140 67/700 (10cpu)R PARAMETER ALPHA$K_AS0C0B0E000B = '00000772'X ! AlphaServer GS140 67/700 (11cpu)R PARAMETER ALPHA$K_AS0C0B0E000C = '00000773'X ! AlphaServer GS140 67/700 (12cpu)R PARAMETER ALPHA$K_AS0C0B0E000D = '00000774'X ! AlphaServer GS140 67/700 (13cpu)R PARAMETER ALPHA$K_AS0C0B0E000E = '00000775'X ! AlphaServer GS140 67/700 (14cpu)Q PARAMETER ALPHA$K_AS0C0B0F0001 = '00000776'X ! AlphaServer GS60e 67/700 (1cpu)Q PARAMETER ALPHA$K_AS0C0B0F0002 = '00000777'X ! AlphaServer GS60e 67/700 (2cpu)Q PARAMETER ALPHA$K_AS0C0B0F0003 = '00000778'X ! AlphaServer GS60e 67/700 (3cpu)Q PARAMETER ALPHA$K_AS0C0B0F0004 = '00000779'X ! AlphaServer GS60e 67/700 (4cpu)Q PARAMETER ALPHA$K_AS0C0B0F0005 = '0000077A'X ! AlphaServer GS60e 67/700 (5cpu)Q PARAMETER ALPHA$K_AS0C0B0F0006 = '0000077B'X ! AlphaServer GS60e 67/700 (6cpu)Q PARAMETER ALPHA$K_AS0C0B0F0007 = '0000077C'X ! AlphaServer GS60e 67/700 (7cpu)Q PARAMETER ALPHA$K_AS0C0B0F0008 = '0000077D'X ! AlphaServer GS60e 67/700 (8cpu)Z PARAMETER ALPHA$K_AS2208060002 = '00000780'X ! AlphaServer DS20 6/500 (2cpu) (pedestal)V PARAMETER ALPHA$K_AS2208080002 = '00000781'X ! AlphaServer DS20 6/500 (2cpu) (rack)X PARAMETER ALPHA$K_AS220B050001 = '0000071E'X ! Professional Workstation XP1000 67/750d PARAMETER ALPHA$K_AS2208050701 = '00000783'X ! AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 4-slot O PARAMETER ALPHA$K_AS2208050702 = '00000784'X ! AlphaServer ES40 6/500 (2cpu)O PARAMETER ALPHA$K_AS2208050703 = '00000785'X ! AlphaServer ES40 6/500 (3cpu)O PARAMETER ALPHA$K_AS2208050704 = '00000786'X ! AlphaServer ES40 6/500 (4cpu)d PARAMETER ALPHA$K_AS2208050801 = '00000787'X ! AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 4-slot O PARAMETER ALPHA$K_AS2208050802 = '00000788'X ! AlphaServer ES40 6/667 (2cpu)O PARAMETER ALPHA$K_AS2208050803 = '00000789'X ! AlphaServer ES40 6/667 (3cpu)O PARAMETER ALPHA$K_AS2208050804 = '0000078A'X ! AlphaServer ES40 6/667 (4cpu)d PARAMETER ALPHA$K_AS2208050901 = '0000078B'X ! AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 4-slot O PARAMETER ALPHA$K_AS2208050902 = '0000078C'X ! AlphaServer ES40 6/500 (2cpu)O PARAMETER ALPHA$K_AS2208050903 = '0000078D'X ! AlphaServer ES40 6/500 (3cpu)O PARAMETER ALPHA$K_AS2208050904 = '0000078E'X ! AlphaServer ES40 6/500 (4cpu)d PARAMETER ALPHA$K_AS2208050A01 = '0000078F'X ! AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 4-slot O PARAMETER ALPHA$K_AS2208050A02 = '00000790'X ! AlphaServer ES40 6/667 (2cpu)O PARAMETER ALPHA$K_AS2208050A03 = '00000791'X ! AlphaServer ES40 6/667 (3cpu)O PARAMETER ALPHA$K_AS2208050A04 = '00000792'X ! AlphaServer ES40 6/667 (4cpu)X PARAMETER ALPHA$K_AS220B080001 = '00000793'X ! AlphaServer DS20E 67/667 (1cpu) (rack)X PARAMETER ALPHA$K_AS220B080002 = '00000794'X ! AlphaServer DS20E 67/667 (2cpu) (rack)X PARAMETER ALPHA$K_AS2208080101 = '00000795'X ! AlphaStation DS20E 6/500 (1cpu) (rack)X PARAMETER ALPHA$K_AS2208080102 = '00000796'X ! AlphaStation DS20E 6/500 (2cpu) (rack)Y PARAMETER ALPHA$K_AS220B080101 = '00000797'X ! AlphaStation DS20E 67/667 (1cpu) (rack)Y PARAMETER ALPHA$K_AS220B080102 = '00000798'X ! AlphaStation DS20E 67/667 (2cpu) (rack)d PARAMETER ALPHA$K_AS2208050B01 = '00000799'X ! AlphaStation XP4000 6/500 (1cpu) (6-slot PCI, 4-slR PARAMETER ALPHA$K_AS2208050B02 = '0000079A'X ! AlphaStation XP4000 6/500 (2cpu)R PARAMETER ALPHA$K_AS2208050B03 = '0000079B'X ! AlphaStation XP4000 6/500 (3cpu)R PARAMETER ALPHA$K_AS2208050B04 = '0000079C'X ! AlphaStation XP4000 6/500 (4cpu)d PARAMETER ALPHA$K_AS220B050101 = '0000079D'X ! AlphaStation ES40 67/667 (1cpu) (6-slot PCI, 4-sloQ PARAMETER ALPHA$K_AS220B050102 = '0000079E'X ! AlphaStation ES40 67/667 (2cpu)Q PARAMETER ALPHA$K_AS220B050103 = '0000079F'X ! AlphaStation ES40 67/667 (3cpu)Q PARAMETER ALPHA$K_AS220B050104 = '000007A0'X ! AlphaStation ES40 67/667 (4cpu)d PARAMETER ALPHA$K_AS2208050C01 = '000007A1'X ! AlphaStation XP4000 6/500 (1cpu) (10-slot PCI, 8-sR PARAMETER ALPHA$K_AS2208050C02 = '000007A2'X ! AlphaStation XP4000 6/500 (2cpu)R PARAMETER ALPHA$K_AS2208050C03 = '000007A3'X ! AlphaStation XP4000 6/500 (3cpu)R PARAMETER ALPHA$K_AS2208050C04 = '000007A4'X ! AlphaStation XP4000 6/500 (4cpu)d PARAMETER ALPHA$K_AS220B050201 = '000007A5'X ! AlphaStation ES40 67/667 (1cpu) (10-slot PCI, 8-slQ PARAMETER ALPHA$K_AS220B050202 = '000007A6'X ! AlphaStation ES40 67/667 (2cpu)Q PARAMETER ALPHA$K_AS220B050203 = '000007A7'X ! AlphaStation ES40 67/667 (3cpu)Q PARAMETER ALPHA$K_AS220B050204 = '000007A8'X ! AlphaStation ES40 67/667 (4cpu)I PARAMETER ALPHA$K_AS2208070201 = '000007A9'X ! AlphaServer DS10L 6/466J PARAMETER ALPHA$K_AS220B070001 = '000007AA'X ! AlphaServer DS10L 67/616J PARAMETER ALPHA$K_AS220B070101 = '000007AA'X ! AlphaStation DS10 67/616Y PARAMETER ALPHA$K_AS220D080001 = '000007AC'X ! AlphaServer DS20E 68A/833 (1cpu) (rack)Y PARAMETER ALPHA$K_AS220D080002 = '000007AD'X ! AlphaServer DS20E 68A/833 (2cpu) (rack)I PARAMETER ALPHA$K_AS230B080000 = '000007AE'X ! AlphaServer GS40 67/728I PARAMETER ALPHA$K_AS230B080100 = '000007AF'X ! AlphaServer GS80 67/728J PARAMETER ALPHA$K_AS230B080200 = '000007B0'X ! AlphaServer GS160 67/728J PARAMETER ALPHA$K_AS230B080300 = '000007B1'X ! AlphaServer GS320 67/728I PARAMETER ALPHA$K_AS220B070201 = '000007B2'X ! AlphaServer DS10 67/616V PARAMETER ALPHA$K_AS260C010001 = '000007B3'X ! AlphaServer ES45/3B 68CB/1000 (1cpu)V PARAMETER ALPHA$K_AS260C010002 = '000007B4'X ! AlphaServer ES45/3B 68CB/1000 (2cpu)V PARAMETER ALPHA$K_AS260C010003 = '000007B5'X ! AlphaServer ES45/3B 68CB/1000 (3cpu)V PARAMETER ALPHA$K_AS260C010004 = '000007B6'X ! AlphaServer ES45/3B 68CB/1000 (4cpu)Y PARAMETER ALPHA$K_AS260C010101 = '000007B7'X ! AlphaServer ES45/2, 2B 68CB/1000 (1cpu)Y PARAMETER ALPHA$K_AS260C010102 = '000007B8'X ! AlphaServer ES45/2, 2B 68CB/1000 (2cpu)Y PARAMETER ALPHA$K_AS260C010103 = '000007B9'X ! AlphaServer ES45/2, 2B 68CB/1000 (3cpu)Y PARAMETER ALPHA$K_AS260C010104 = '000007BA'X ! AlphaServer ES45/2, 2B 68CB/1000 (4cpu)S PARAMETER ALPHA$K_AS260D020002 = '000007BB'X ! AlphaServer TS202c 68A/933 (2cpu)S PARAMETER ALPHA$K_AS260D030001 = '000007BC'X ! AlphaServer TS212c 68A/933 (1cpu)S PARAMETER ALPHA$K_AS260D030002 = '000007BD'X ! AlphaServer TS212c 68A/933 (2cpu)] PARAMETER ALPHA$K_AS220D080101 = '000007BE'X ! AlphaServer DS20E 68A/833 (1cpu) (pedestal)] PARAMETER ALPHA$K_AS220D080102 = '000007BF'X ! AlphaServer DS20E 68A/833 (2cpu) (pedestal)_ PARAMETER ALPHA$K_AS220C050001 = '000007C0'X ! AlphaStation ES40 68/833 (1cpu) (10-slot PCI)Q PARAMETER ALPHA$K_AS220C050002 = '000007C1'X ! AlphaStation ES40 68/833 (2cpu)Q PARAMETER ALPHA$K_AS220C050003 = '000007C2'X ! AlphaStation ES40 68/833 (3cpu)Q PARAMETER ALPHA$K_AS220C050004 = '000007C3'X ! AlphaStation ES40 68/833 (4cpu)^ PARAMETER ALPHA$K_AS220C050101 = '000007C4'X ! AlphaStation ES40 68/833 (1cpu) (6-slot PCI)Q PARAMETER ALPHA$K_AS220C050102 = '000007C5'X ! AlphaStation ES40 68/833 (2cpu)Q PARAMETER ALPHA$K_AS220C050103 = '000007C6'X ! AlphaStation ES40 68/833 (3cpu)Q PARAMETER ALPHA$K_AS220C050104 = '000007C7'X ! AlphaStation ES40 68/833 (4cpu)S PARAMETER ALPHA$K_AS260C040101 = '000007C8'X ! AlphaServer DS25 68CB/1000 (1cpu)T PARAMETER ALPHA$K_AS260C040201 = '000007C9'X ! AlphaStation DS25 68CB/1000 (1cpu)S PARAMETER ALPHA$K_AS260C040102 = '000007CA'X ! AlphaServer DS25 68CB/1000 (1cpu)T PARAMETER ALPHA$K_AS260C040202 = '000007CB'X ! AlphaStation DS25 68CB/1000 (1cpu)V PARAMETER ALPHA$K_AS260C010201 = '000007D2'X ! AlphaServer ES45/1B 68CB/1000 (1cpu)V PARAMETER ALPHA$K_AS260C010202 = '000007D3'X ! AlphaServer ES45/1B 68CB/1000 (2cpu)V PARAMETER ALPHA$K_AS260C010203 = '000007D4'X ! AlphaServer ES45/1B 68CB/1000 (3cpu)V PARAMETER ALPHA$K_AS260C010204 = '000007D5'X ! AlphaServer ES45/1B 68CB/1000 (4cpu)] PARAMETER ALPHA$K_AS220D0C0002 = '000007D6'X ! AlphaServer DS20L, API CS20, 68A/833 (2cpu)U PARAMETER ALPHA$K_AS260C020002 = '000007D7'X ! AlphaServer TS202c 68CB/1250 (2cpu)_ PARAMETER ALPHA$K_AS220C050201 = '000007D8'X ! AlphaStation TS40 68/833 (1cpu) (14-slot PCI)Q PARAMETER ALPHA$K_AS220C050202 = '000007D9'X ! AlphaStation TS40 68/833 (2cpu)Q PARAMETER ALPHA$K_AS220C050203 = '000007DA'X ! AlphaStation TS40 68/833 (3cpu)Q PARAMETER ALPHA$K_AS220C050204 = '000007DB'X ! AlphaStation TS40 68/833 (4cpu)V PARAMETER ALPHA$K_AS260C010301 = '000007DD'X ! AlphaServer ES45/3B 68CB/1250 (1cpu)V PARAMETER ALPHA$K_AS260C010302 = '000007DE'X ! AlphaServer ES45/3B 68CB/1250 (2cpu)V PARAMETER ALPHA$K_AS260C010303 = '000007DF'X ! AlphaServer ES45/3B 68CB/1250 (3cpu)V PARAMETER ALPHA$K_AS260C010304 = '000007E0'X ! AlphaServer ES45/3B 68CB/1250 (4cpu)Y PARAMETER ALPHA$K_AS260C010401 = '000007E1'X ! AlphaServer ES45/2, 2B 68CB/1250 (1cpu)Y PARAMETER ALPHA$K_AS260C010402 = '000007E2'X ! AlphaServer ES45/2, 2B 68CB/1250 (2cpu)Y PARAMETER ALPHA$K_AS260C010403 = '000007E3'X ! AlphaServer ES45/2, 2B 68CB/1250 (3cpu)Y PARAMETER ALPHA$K_AS260C010404 = '000007E4'X ! AlphaServer ES45/2, 2B 68CB/1250 (4cpu)V PARAMETER ALPHA$K_AS260C010501 = '000007E5'X ! AlphaServer ES45/1B 68CB/1250 (1cpu)V PARAMETER ALPHA$K_AS260C010502 = '000007E6'X ! AlphaServer ES45/1B 68CB/1250 (2cpu)V PARAMETER ALPHA$K_AS260C010503 = '000007E7'X ! AlphaServer ES45/1B 68CB/1250 (3cpu)V PARAMETER ALPHA$K_AS260C010504 = '000007E8'X ! AlphaServer ES45/1B 68CB/1250 (4cpu)K PARAMETER ALPHA$K_AS270F010000 = '000007E9'X ! AlphaServer TS212c SeriesB PARAMETER ALPHA$K_AS270F020000 = '000007ED'X ! AlphaServer TS80B PARAMETER ALPHA$K_AS270F000104 = '000007EE'X ! AlphaServer ES47B PARAMETER ALPHA$K_AS270F000208 = '000007EF'X ! AlphaServer GS80S PARAMETER ALPHA$K_AS270F000008 = '000007F6'X ! AlphaServer GS1280 (8cpu capable)T PARAMETER ALPHA$K_AS270F000010 = '000007F7'X ! AlphaServer GS1280 (16cpu capable)T PARAMETER ALPHA$K_AS270F000020 = '000007F8'X ! AlphaServer GS1280 (32cpu capable)T PARAMETER ALPHA$K_AS270F000040 = '000007F9'X ! AlphaServer GS1280 (64cpu capable)U PARAMETER ALPHA$K_AS270F000080 = '000007FA'X ! AlphaServer GS1280 (128cpu capable)L PARAMETER ALPHA$K_AS260C050001 = '000007FF'X ! AlphaServer DS15 68CB/1000M PARAMETER ALPHA$K_AS260C050101 = '00000800'X ! AlphaStation DS15 68CB/1000L PARAMETER ALPHA$K_AS260C050201 = '00000801'X ! AlphaServer TS15 68CB/1000( PARAMETER ALPHA$K_MAX_SMM = '00000803'X* PARAMETER ALPHA$K_MAX_MODEL = '00000420'X* PARAMETER ALPHA$K_MAX_ALPHA = '00001FFF'X!DEC$ END OPTIONS ww苁Φ!*** MODULE $ARGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! * ! ARG$ - The argument descriptors ! B PARAMETER ARG$C_UNKNOWN = '00000000'X ! Unspecified or unknown 9 PARAMETER ARG$C_VALUE = '00000001'X ! Passed by value ; PARAMETER ARG$C_REF = '00000002'X ! Passed by reference = PARAMETER ARG$C_DESC = '00000003'X ! Passed by descriptor # PARAMETER ARG$K_SIZE = '00000002'X# PARAMETER ARG$C_SIZE = '00000002'X STRUCTURE /ARGDEF/ UNION MAP= BYTE ARG$B_VALCTL ! Validation control byte  END MAP MAP) PARAMETER ARG$S_PASSMECH = 2@ PARAMETER ARG$V_PASSMECH = 0 ! Passing mechanism  BYTE %FILL (1) END MAP ! Passing mechanisms  END UNION7 BYTE ARG$B_BYTECNT ! Remaining byte count  END STRUCTURE ! ARGDEF!DEC$ END OPTIONS wwB bΦ!*** MODULE $ARMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ++ ! Access Rights Mask longword definitions ! -# PARAMETER ARM$M_READ = '00000001'X$ PARAMETER ARM$M_WRITE = '00000002'X& PARAMETER ARM$M_EXECUTE = '00000004'X% PARAMETER ARM$M_DELETE = '00000008'X& PARAMETER ARM$M_CONTROL = '00000010'X% PARAMETER ARM$M_CREATE = '00000004'X# PARAMETER ARM$M_LOCK = '00000004'X' PARAMETER ARM$M_PHYSICAL = '00000004'X& PARAMETER ARM$M_LOGICAL = '00000008'X( PARAMETER ARM$M_ASSOCIATE = '00000001'X% PARAMETER ARM$M_SUBMIT = '00000002'X% PARAMETER ARM$M_MANAGE = '00000004'X STRUCTURE /ARMDEF/ UNION MAP UNION MAP INT EGER*4 %FILL END MAP MAP% PARAMETER ARM$S_READ = 16 PARAMETER ARM$V_READ = 0 ! Read access& PARAMETER ARM$S_WRITE = 18 PARAMETER ARM$V_WRITE = 1 ! Write access( PARAMETER ARM$S_EXECUTE = 1< PARAMETER ARM$V_EXECUTE = 2 ! Execute access' PARAMETER ARM$S_DELETE = 1: PARAMETER ARM$V_DELETE = 3 ! Delete access( PARAMETER ARM$S_CONTROL = 1< PARAMETER ARM$V_CONTROL = 4 ! Control access& PARAMETER ARM$S_FILL = 27% PARAMETER ARM$V_FILL = 5P BYTE %FILL (4) ! [LOADSS]SYSACLSRV depends on this being here! END MAP END UNION END MAP MAP UNION MAP INTEGER*4 %FILL END MAP MAP' PARAMETER ARM$S_CREATE = 1C PARAMETER ARM$V_CREATE = 2 ! Create access (volume) BYTE %FILL (1) END MAP  END UNION END MAP MAP UNION MAP INTEGER*4 %FILL END MAP MAP% PARAMETER ARM$S_LOCK = 1H PARAMETER ARM$V_LOCK = 2 ! Lock access (resource domain) BYTE %FILL (1) END MAP END UNION END MAP MAP UNION MAP INTEGER*4 %FILL END MAP MAP) PARAMETER ARM$S_PHYSICAL = 1K PARAMETER ARM$V_PHYSICAL = 2 ! Physical I/O access (device)( PARAMETER ARM$S_LOGICAL = 1I PARAMETER ARM$V_LOGICAL = 3 ! Logical I/O access (device) BYTE %FILL (1) END MAP END UNION END MAP MAP UNION MAP INTEGER*4 %FILL END MAP MAP* PARAMETER ARM$S_ASSOCIATE = 1W PARAMETER ARM$V_ASSOCIATE = 0 ! Associate access (common event cluster) BYTE %FILL (1) END MAP END UNION END MAP MAP UNION MAP INTEGER*4 %FILL END MAP MAP' PARAMETER ARM$S_SUBMIT = 1B PARAMETER ARM$V_SUBMIT = 1 ! Submit access (queue)' PARAMETER ARM$S_MANAGE = 1B PARAMETER ARM$V_MANAGE = 2 ! Manage access (queue) BYTE %FILL (1) END MAP END UNION END MAP END UNION END STRUCTURE ! ARMDEF!DEC$ END OPTIONS wwVbΦ!*** MODULE $ATRDEF *** :!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! ATTRIBUTE LIST DESCRIPTION. THE ATTRIBUTE CONTROL LIST IS USED TO READ ANDO ! WRITE FILE ATTRIBUTES. IT CONSISTS OF CONCATENATED ATTRIBUTE CONTROL BLOCKS) ! TERMINATED BY A SINGLE ZERO LONGWORD. ! J PARAMETER ATR$C_UCHAR = '00000003'X ! 4 BYTE USER FILE CHARACTERISTICS F PARAMETER ATR$C_RECATTR = '00000004'X ! 32 BYTES RECORD ATTRIBUTES B PARAMETER ATR$C_FILNAM = '00000005'X ! 6 BYTE RAD-50 FILE NAME B PARAMETER ATR$C_FILTYP = '00000006'X ! 2 BYTE RAD-50 FILE TYPE E PARAMETER ATR$C_FILVER = '00000007'X ! 2 BYTE BINARY FILE VERSION G PARAMETER ATR$C_EXPDAT = '00000008'X ! 7 BYTE ASCII EXPIRATION DATE D PARAMETER ATR$C_STATBLK = '00000009'X ! 32 BYTE STATISTICS BLOCK ? PARAMETER ATR$C_HEADER = '0000000A'X ! 512 BYTE FILE HEADER @ PARAMETER ATR$C_BLOCKSIZE = '0000000B'X ! MAGTAPE BLOCK SIZE = PARAMETER ATR$C_USERLABEL = '0000000C'X ! USER FILE LABEL R PARAMETER ATR$C_ASCDATES = '0000000D'X ! REVISION COUNT THRU EXP DATE IN ASCII P PARAMETER ATR$C_ALCONTROL = '0000000E'X ! COMPATIBILITY MODE ALLOCATION DATA d PARAMETER ATR$C_ENDLBLAST = '0000000F'X ! END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL C ! END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCN PARAMETER ATR$C_ASCNAME = '00000010'X ! FILE NAME, TYPE & VERSION IN ASCII @ PARAMETER ATR$C_CREDATE = '00000011'X ! 64 BIT CREATION DATE @ PARAMETER ATR$C_REVDATE = '00000012'X ! 64 BIT REVISION DATE B PARAMETER ATR$C_EXPDATE = '00000013'X ! 64 BIT EXPIRATION DATE > PARAMETER ATR$C_BAKDATE = '00000014'X ! 64 BIT BACKUP DATE = PARAMETER ATR$C_UIC = '00000015'X ! 4 BYTE FILE OWNER UIC ? PARAMETER ATR$C_FPRO = '00000016'X ! 2 BYTE FILE PROTECTION A PARAMETER ATR$C_RPRO = '00000017'X ! 2 BYTE RECORD PROTECTION D PARAMETER ATR$C_ACLEVEL = '00000018'X ! 1 BYTE FILE ACCESS LEVEL G PARAMETER ATR$C_SEMASK = '00000019'X ! FILE SECURITY MASK AND LIMIT 8 PARAMETER ATR$C_UIC_RO = '000 0001A'X ! READ ONLY UIC J PARAMETER ATR$C_DIRSEQ = '0000001B'X ! DIRECTORY UPDATE SEQUENCE COUNT C PARAMETER ATR$C_BACKLINK = '0000001C'X ! FILE BACK LINK POINTER A PARAMETER ATR$C_JOURNAL = '0000001D'X ! JOURNAL CONTROL FLAGS M PARAMETER ATR$C_HDR1_ACC = '0000001E'X ! ANSI TAPE HEADER 1 ACCESSIBILITY  ! CHARACTERI PARAMETER ATR$C_ADDACLENT = '0000001F'X ! ADD AN ACCESS CONTROL ENTRY L PARAMETER ATR$C_DELACLENT = '00000020'X ! REMOVE AN ACCESS CONTROL ENTRY A PARAMETER ATR$C_MODACLENT = '00000021'X ! MODIFY AN ACL ENTRY A PARAMETER ATR$C_FNDACLENT = '00000022'X ! LOCATE AN ACL ENTRY I PARAMETER ATR$C_FNDACLTYP = '00000023'X ! FIND A SPECIFIC TYPE OF ACE I PARAMETER ATR$C_DELETEACL = '00000024'X ! DELETE ACL LEAVING PROTECTED? PARAMETER ATR$C_READACL = '00000025'X ! READ THE ENTIRE ACL I PARAMETER ATR$C_ACLLENGTH = '00000026'X ! RETURN THE LENGTH OF THE ACL< PARAMETER ATR$C_READACE = '00000027'X ! READ A SINGLE ACE@ PARAMETER ATR$C_RESERVED = '00000028'X ! MODIFY RESERVED AREAP PARAMETER ATR$C_HIGHWATER = '00000029'X ! HIGHWATER MARK (USER READ ONLY) = PARAMETER ATR$C_DUMMY_0 = '0000002A'X ! *** AVAILABLE CODEL PARAMETER ATR$C_PRIVS_USED = '0000002B'X ! PRIVILEGES USED TO GAIN ACCESSP PARAMETER ATR$C_MATCHING_ACE = '0000002C'X ! ACE USED TO GAIN ACCESS (IF ANY)^ PARAMETER ATR$C_ACCESS_MODE = '0000002D'X ! ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORSE PARAMETER ATR$C_FILE_SPEC = '0000002E'X ! CONVERT FID TO FILE-SPECS PARAMETER ATR$C_CLASS_MASK = '0000002F'X ! Non-discretionary classification maskd PARAMETER ATR$C_BUFFER_OFFSET = '00000030'X ! For magnetic tape only length of buffer offset of bC ! For magnetic tape only length of buffer offset of block in d PARAMETER ATR$C_RU_ACTIVE = '00000031'X ! Recoverable facility id number (if non-zero, means file3 ! active recovery units managed by that facility)@ PARAMETER ATR$C_GRANT_ACE = '00000032'X ! ACE granting access@ PARAMETER ATR$C_NEX T_ACE = '00000033'X ! Increment ACE numberD PARAMETER ATR$C_DELETE_ALL = '00000034'X ! Delete the entire ACL X PARAMETER ATR$C_BACKUP_DONE = '00000035'X ! Alter backup info in RMS journaling ACEs  ! ISO 9660 Descriptors? PARAMETER ATR$C_EFFDATE = '00000036'X ! ISO 9660 Backup DateA PARAMETER ATR$C_RCDDATE = '00000037'X ! ISO 9660 Recorded Date8 PARAMETER ATR$C_VD = '00000038'X ! Volume Descriptor A PARAMETER ATR$C_PVD = '00000039'X ! Primary Volume Descriptor G PARAMETER ATR $C_SVD = '0000003A'X ! Supplementary Volume Descriptor C PARAMETER ATR$C_VPD = '0000003B'X ! Volume Partition Descriptor I PARAMETER ATR$C_VDST = '0000003C'X ! Volume Descriptor Set Terminator 4 PARAMETER ATR$C_BOOT = '0000003D'X ! Boot Record 9 PARAMETER ATR$C_PTR = '0000003E'X ! Path Table Record 8 PARAMETER ATR$C_DIR = '0000003F'X ! Directory Record A PARAMETER ATR$C_XAR = '00000040'X ! Extended Attribute Record  ! ISO 9660 Descriptors Fields> PARAMETER ATR$C_VOLUME_ID = '00000041'X ! Volume Identifier< PARAMETER ATR$C_VOLUME_FLAGS = '00000042'X ! Volume FlagsD PARAMETER ATR$C_ESCAPE_SEQUENCES = '00000043'X ! Escape SequencesF PARAMETER ATR$C_VOLUME_SET_ID = '00000044'X ! Volume Set IdentifierJ PARAMETER ATR$C_COPYRIGHT_FID = '00000045'X ! Copyright File IdentifierI PARAMETER ATR$C_ABSTRACT_FID = '00000046'X ! Abstract File Identifier S PARAMETER ATR$C_BIBLIOGRAPHIC_FID = '00000047'X ! Bibliographic File Identifier B PARAMETER ATR$C_CACHE_SEQ = '00000048'X ! Cache sequence numberO PARAMETER ATR$C_FILE_SYSTEM_INFO = '00000049'X ! File system structure levelL PARAMETER ATR$C_FILE_ATTR_CACHING_POLICY = '0000004A'X ! F64 caching onlyL PARAMETER ATR$C_FILE_DATA_CACHING_POLICY = '0000004B'X ! F64 caching onlyO PARAMETER ATR$C_CACHING_OPTIONS = '0000004C'X ! Spiralog/VDC caching optionsE PARAMETER ATR$C_POSIX_DATA = '0000004D'X ! POSIX private data areaA PARAMETER ATR$C_ACCDATE = '0000004E'X ! ODS-5 last access timeH PARAMETER ATR$C_ATTDATE = '0000004F'X ! ODS-5 last attribute mod timeJ PARAMETER ATR$C_LENGTH_HINT = '00000050'X ! ODS-5 file length hint areaV PARAMETER ATR$C_EX_RECATTR = '00000051'X ! ODS-5 extended RMS attributes - Reserved- ! to Digital for future use. Must be zero.B PARAMETER ATR$C_EXTFLAGS = '00000052'X ! PATHWORKS MS-DOS flagsC PARAMETER ATR$C_MODDATE = '00000053'X ! ODS-5 last data mod timeD PARAMETER ATR$C_LINKCOUNT = '00000054'X ! ODS-5 (hard) link count= PARAMETER ATR$C _SYMLINK = '00000055'X ! ODS-5 symlink data ! All new attributes should be ! added here before MAX_PLUS1C PARAMETER ATR$C_MAX_PLUS1 = '00000056'X ! Maximum code plus one ' PARAMETER ATR$C_MAX_CODE = '00000055'X( PARAMETER ATR$C_FNDACETYP = '00000023'X) ! Valid values for ATR$C_CACHING_POLICY5 PARAMETER ATR$C_CACHE_POLICY_WRITETHRU = '00000001'X5 PARAMETER ATR$C_CACHE_POLICY_WRITEBACK = '00000002'X3 PARAMETER ATR$C_CACHE_POLICY_DEFAULT = '00000003'X ! ATTRIBUTE MAXIMUM LENG THS J PARAMETER ATR$S_UCHAR = '00000004'X ! 4 BYTE USER FILE CHARACTERISTICS F PARAMETER ATR$S_RECATTR = '00000020'X ! 32 BYTES RECORD ATTRIBUTES B PARAMETER ATR$S_FILNAM = '00000006'X ! 6 BYTE RAD-50 FILE NAME B PARAMETER ATR$S_FILTYP = '00000002'X ! 2 BYTE RAD-50 FILE TYPE E PARAMETER ATR$S_FILVER = '00000002'X ! 2 BYTE BINARY FILE VERSION G PARAMETER ATR$S_EXPDAT = '00000007'X ! 7 BYTE ASCII EXPIRATION DATE D PARAMETER ATR$S_STATBLK = '00000020'X ! 32 BYTE STATISTICS BLOCK ? PARAMETER ATR$S_HEADER = '00000200'X ! 512 BYTE FILE HEADER @ PARAMETER ATR$S_BLOCKSIZE = '00000002'X ! MAGTAPE BLOCK SIZE = PARAMETER ATR$S_USERLABEL = '00000050'X ! USER FILE LABEL R PARAMETER ATR$S_ASCDATES = '00000023'X ! REVISION COUNT THRU EXP DATE IN ASCII P PARAMETER ATR$S_ALCONTROL = '0000000E'X ! COMPATIBILITY MODE ALLOCATION DATA d PARAMETER ATR$S_ENDLBLAST = '00000004'X ! END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL C ! END OF MAGTAPE LABEL PROCESSING AN D SUPPLY AST CONTROL BLOCD PARAMETER ATR$S_ASCNAME = '000000FC'X ! FILE NAME, TYPE & VERSION@ PARAMETER ATR$S_CREDATE = '00000008'X ! 64 BIT CREATION DATE @ PARAMETER ATR$S_REVDATE = '00000008'X ! 64 BIT REVISION DATE B PARAMETER ATR$S_EXPDATE = '00000008'X ! 64 BIT EXPIRATION DATE > PARAMETER ATR$S_BAKDATE = '00000008'X ! 64 BIT BACKUP DATE = PARAMETER ATR$S_UIC = '00000004'X ! 4 BYTE FILE OWNER UIC ? PARAMETER ATR$S_FPRO = '00000002'X ! 2 BYTE FILE PROTECTION A PARAMETER ATR$S_RPRO = '00000002'X ! 2 BYTE RECORD PROTECTION D PARAMETER ATR$S_ACLEVEL = '00000001'X ! 1 BYTE FILE ACCESS LEVEL G PARAMETER ATR$S_SEMASK = '00000008'X ! FILE SECURITY MASK AND LIMIT 8 PARAMETER ATR$S_UIC_RO = '00000004'X ! READ ONLY UIC J PARAMETER ATR$S_DIRSEQ = '00000002'X ! DIRECTORY UPDATE SEQUENCE COUNT C PARAMETER ATR$S_BACKLINK = '00000006'X ! FILE BACK LINK POINTER A PARAMETER ATR$S_JOURNAL = '00000001'X ! JOURNAL CONTROL FLAGS M PARAMETER ATR$S_HDR1_ACC = '0000000 1'X ! ANSI TAPE HEADER 1 ACCESSIBILITY  ! CHARACTERI PARAMETER ATR$S_ADDACLENT = '000000FF'X ! ADD AN ACCESS CONTROL ENTRY L PARAMETER ATR$S_DELACLENT = '000000FF'X ! REMOVE AN ACCESS CONTROL ENTRY A PARAMETER ATR$S_MODACLENT = '000000FF'X ! MODIFY AN ACL ENTRY A PARAMETER ATR$S_FNDACLENT = '000000FF'X ! LOCATE AN ACL ENTRY I PARAMETER ATR$S_FNDACLTYP = '000000FF'X ! FIND A SPECIFIC TYPE OF ACE I PARAMETER ATR$S_FNDACETYP = '000000FF'X ! FIND A SPECIFIC TYPE OF ACE I PARAMETER ATR$S_DELETEACL = '000000FF'X ! DELETE ACL LEAVING PROTECTED? PARAMETER ATR$S_READACL = '00000200'X ! READ THE ENTIRE ACL I PARAMETER ATR$S_ACLLENGTH = '00000004'X ! RETURN THE LENGTH OF THE ACL< PARAMETER ATR$S_READACE = '000000FF'X ! READ A SINGLE ACE@ PARAMETER ATR$S_RESERVED = '0000017C'X ! MODIFY RESERVED AREAV PARAMETER ATR$S_HIGHWATER = '00000004'X ! FILE HIGH WATER MARK (USER READ ONLY) = PARAMETER ATR$S_DUMMY_0 = '00000004'X ! *** AVAILABLE CODEG PARAMETER ATR$S_PRIVS_USED = '00000004'X ! PRIVS USED TO GAIN ACCESSG PARAMETER ATR$S_MATCHING_ACE = '000000FF'X ! ACE USED TO GAIN ACCESS^ PARAMETER ATR$S_ACCESS_MODE = '00000001'X ! ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORSE PARAMETER ATR$S_FILE_SPEC = '00001002'X ! CONVERT FID TO FILE-SPECS PARAMETER ATR$S_CLASS_MASK = '00000014'X ! Non-discretionary classification maskK PARAMETER ATR$S_BUFFER_OFFSET = '00000002'X ! Buffer offset length fieldR PARAMETER ATR$S_RU_ACTIVE = '00000001 'X ! Recoverable facility id if RUs active@ PARAMETER ATR$S_GRANT_ACE = '000000FF'X ! ACE granting access@ PARAMETER ATR$S_NEXT_ACE = '00000004'X ! Increment ACE numberD PARAMETER ATR$S_DELETE_ALL = '000000FF'X ! Delete the entire ACL W PARAMETER ATR$S_BACKUP_DONE = '00000001'X ! Alter backup info in RMS journaling ACEs ! ISO 9660 Descriptors@ PARAMETER ATR$S_EFFDATE = '00000008'X ! 64 BIT EFFECTIVE DATE@ PARAMETER ATR$S_RCDDATE = '00000008'X ! 64 BIT RECORDED DATE 8 PARAMETER ATR$S_VD = '00000007'X ! Volume Descriptor A PARAMETER ATR$S_PVD = '00000573'X ! Primary Volume Descriptor G PARAMETER ATR$S_SVD = '00000573'X ! Supplementary Volume Descriptor C PARAMETER ATR$S_VPD = '00000058'X ! Volume Partition Descriptor I PARAMETER ATR$S_VDST = '00000007'X ! Volume Descriptor Set Terminator 4 PARAMETER ATR$S_BOOT = '00000047'X ! Boot Record 9 PARAMETER ATR$S_PTR = '0000002D'X ! Path Table Record 8 PARAMETER ATR$S_DIR = '00000200'X ! Directory Record A PARAMETER ATR$S_XAR = '00000200'X ! Extended Attribute Record  ! ISO 9660 Descriptors Fields> PARAMETER ATR$S_VOLUME_ID = '00000020'X ! Volume Identifier< PARAMETER ATR$S_VOLUME_FLAGS = '00000001'X ! Volume FlagsD PARAMETER ATR$S_ESCAPE_SEQUENCES = '00000020'X ! Escape SequencesF PARAMETER ATR$S_VOLUME_SET_ID = '00000080'X ! Volume Set IdentifierJ PARAMETER ATR$S_COPYRIGHT_FID = '00000025'X ! Copyright File IdentifierI PARAMETER ATR$S_ABSTRACT_FID = '00000025'X ! Abstract File Identifier S PARAMETER ATR$S_BIBLIOGRAPHIC_FID = '00000025'X ! Bibliographic File Identifier B PARAMETER ATR$S_CACHE_SEQ = '00000008'X ! Cache sequence numberO PARAMETER ATR$S_FILE_SYSTEM_INFO = '00000002'X ! file system structure levelL PARAMETER ATR$S_FILE_ATTR_CACHING_POLICY = '00000001'X ! F64 caching onlyL PARAMETER ATR$S_FILE_DATA_CACHING_POLICY = '00000001'X ! F64 caching only> PARAMETER ATR$S_POSIX_DATA = '00000040'X ! F64 caching onlyO PARAMETER ATR$S_CACHING_OPTIONS = '00000004'X ! Spiralog/VDC caching optionsA PARAMETER ATR$S_ACCDATE = '00000008'X ! ODS-5 last access timeH PARAMETER ATR$S_ATTDATE = '00000008'X ! ODS-5 last attribute mod timeJ PARAMETER ATR$S_LENGTH_HINT = '00000010'X ! ODS-5 file length hint areaK PARAMETER ATR$S_EX_RECATTR = '00000008'X ! ODS-5 extended RMS attributesB PARAMETER ATR$S_EXTFLAGS = '00000002'X ! PATHWORKS MS-DOS flagsD PARAMETER ATR$S_LINKCOUNT = '00000002'X ! ODS-5 (hard) link countC PARAMETER ATR$S_MODDA TE = '00000008'X ! ODS-5 last data mod time= PARAMETER ATR$S_SYMLINK = '00000400'X ! ODS-5 symlink data STRUCTURE /ATRDEF/; INTEGER*2 ATR$W_SIZE ! SIZE OF ATTRIBUTE IN BYTES 4 INTEGER*2 ATR$W_TYPE ! ATTRIBUTE TYPE CODE : INTEGER*4 ATR$L_ADDR ! ADDRESS OF ATTRIBUTE TEXT  ! ATTRIBUTE CODES  END STRUCTURE ! ATRDEFH ! Define fields and constant values for ATR$_CACHING_OPTIONS longword.0 ! These must match [STARLET]FIBDEF.SDL exactly. PARAMETER ATR$M_FILE_AT TRIBUTES = '0000000F'X, PARAMETER ATR$M_FILE_CONTENTS = '000000F0'X& PARAMETER ATR$C_DEFAULT = '00000000'X+ PARAMETER ATR$C_WRITETHROUGH = '00000001'X* PARAMETER ATR$C_WRITEBEHIND = '00000002'X( PARAMETER ATR$C_NOCACHING = '00000003'X- PARAMETER ATR$M_FLUSH_ON_CLOSE = '00000F00'X$ PARAMETER ATR$C_FLUSH = '00000001'X& PARAMETER ATR$C_NOFLUSH = '00000002'X2 PARAMETER ATR$M_CACHING_OPTIONS_MBZ = 'FFFFF000'X& STRUCTURE /ATR_CACHING_OPTIONS_FLAGS/( PARAMETER ATR$S_FILE_ATTRIBUTES = 4(  PARAMETER ATR$V_FILE_ATTRIBUTES = 0& PARAMETER ATR$S_FILE_CONTENTS = 4& PARAMETER ATR$V_FILE_CONTENTS = 4' PARAMETER ATR$S_FLUSH_ON_CLOSE = 4' PARAMETER ATR$V_FLUSH_ON_CLOSE = 8- PARAMETER ATR$S_CACHING_OPTIONS_MBZ = 20- PARAMETER ATR$V_CACHING_OPTIONS_MBZ = 12 BYTE %FILL (4)* END STRUCTURE ! ATR_CACHING_OPTIONS_FLAGSD ! Define fields and constant values for ATR$_FILESYSTEM_INFO word., ! These must match [LIB]F11DEF.SDL exactly# PARAMETER ATR$C_ODS1 = '00000001'X# PARAMETER ATR$C_ODS2 = '00000002'X$ PARAMETER ATR$C_ODS64 = '00000040'X' STRUCTURE /ATR_FILESYSTEM_INFO_FIELDS/ BYTE ATR$B_STRUCVER BYTE ATR$B_STRUCLEV+ END STRUCTURE ! ATR_FILESYSTEM_INFO_FIELDS!DEC$ END OPTIONS ww֢bΦ!*** MODULE $BREAKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +% ! BREAK Immediate value definitions !  ! - ! BASE AND OFFSET OF 1 * PARAMETER BREAK$C_ARCH_BASE = '00000000'X- P ARAMETER BREAK$C_ARCH_UNKNOWN = '00000000'X, PARAMETER BREAK$C_ARCH_INTDIV = '00000001'X, PARAMETER BREAK$C_ARCH_INTOVR = '00000002'X, PARAMETER BREAK$C_ARCH_SUBRNG = '00000003'X/ PARAMETER BREAK$C_ARCH_NULPTRERR = '00000004'X. PARAMETER BREAK$C_ARCH_BADALIGN = '00000005'X, PARAMETER BREAK$C_ARCH_DECOVF = '00000006'X, PARAMETER BREAK$C_ARCH_DECDIV = '00000007'X+ PARAMETER BREAK$C_ARCH_PKDEC = '00000008'X, PARAMETER BREAK$C_ARCH_DECINV = '00000009'X. PARAMETER BREAK$C_ARCH_PKDECINV = '0000 000A'X. PARAMETER BREAK$C_ARCH_PPSTKOVF = '0000000B'X) PARAMETER BREAK$C_ARCH_MAX = '0003FFFF'X* PARAMETER BREAK$C_APPL_BASE = '00040000'X: ! Values in this range produce a signal of SS$_BREAKAPPL) PARAMETER BREAK$C_APPL_MAX = '0007FFFF'X) PARAMETER BREAK$C_DBG_BASE = '00080000'X, PARAMETER BREAK$C_DBG_PAL_BPT = '00080000'X0 PARAMETER BREAK$C_DBG_INSTRUCTION = '00080001'X) PARAMETER BREAK$C_DBG_LINE = '00080002'X+ PARAMETER BREAK$C_DBG_INIBRK = '00080003'X= ! Meanings in this range a re defined by the debugger in use( PARAMETER BREAK$C_DBG_MAX = '000FFFFF'X) PARAMETER BREAK$C_SYS_BASE = '00100000'X+ PARAMETER BREAK$C_SYS_UNUSED = '00100000'X, PARAMETER BREAK$C_SYS_GENTRAP = '00100001'X- PARAMETER BREAK$C_SYS_BUGCHECK = '00100002'X) PARAMETER BREAK$C_SYS_HALT = '00100003'X, PARAMETER BREAK$C_SYS_CHKASTS = '00100004'X( PARAMETER BREAK$C_SYS_RFI = '00100005'X- PARAMETER BREAK$C_SYS_SWIS_LOG = '00100006'X7 ! The remainder of codes in this range are OS-defined( PARAMETER BREAK$C_SYS_MAX = '001FFFFF'X!DEC$ END OPTIONS ww bΦ!*** MODULE $BRKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! / ! Breakthru system service input definitions. !  ! -5 PARAMETER BRK$C_DEVICE = '00000001'X ! device name5 PARAMETER BRK$C_USERNAME = '00000002'X ! user name5 PARAMETER BRK$C_ALLUSERS = '00000003'X ! all users? PARAMETER BRK$C_ALLTERMS = '00000004'X ! all logged in users* PARAMETER BRK$C_MAXSENDTYPE  = '00000004'X ! ' ! Requestor ID's, DEC use only (0-31) ! C PARAMETER BRK$C_GENERAL = '00000000'X ! GENERAL (OR UNSPECIFIED). PARAMETER BRK$C_PHONE = '00000001'X ! PHONE, PARAMETER BRK$C_MAIL = '00000002'X ! MAIL6 PARAMETER BRK$C_QUEUE = '00000003'X ! QUEUE MANAGER; PARAMETER BRK$C_SHUTDOWN = '00000004'X ! SYSTEM SHUTDOWN8 PARAMETER BRK$C_URGENT = '00000005'X ! URGENT MESSAGE6 PARAMETER BRK$C_DCL = '00000006'X ! DCL (control T)9 PARAMETER BRK$C_OPCOM = '00000007'X !  OPERATOR MESSAGE> ! Note that only first 16 are really stored by TTDRIVER now = PARAMETER BRK$C_USER1 = '00000020'X ! reserved to customer= PARAMETER BRK$C_USER2 = '00000021'X ! reserved to customer= PARAMETER BRK$C_USER3 = '00000022'X ! reserved to customer= PARAMETER BRK$C_USER4 = '00000023'X ! reserved to customer= PARAMETER BRK$C_USER5 = '00000024'X ! reserved to customer= PARAMETER BRK$C_USER6 = '00000025'X ! reserved to customer= PARAMETER BRK$C_USER7 = '00000026'X ! reserved to customer= PARAMETER BRK$C_USER8 = '00000027'X ! reserved to customer= PARAMETER BRK$C_USER9 = '00000028'X ! reserved to customer> PARAMETER BRK$C_USER10 = '00000029'X ! reserved to customer> PARAMETER BRK$C_USER11 = '0000002A'X ! reserved to customer> PARAMETER BRK$C_USER12 = '0000002B'X ! reserved to customer> PARAMETER BRK$C_USER13 = '0000002C'X ! reserved to customer> PARAMETER BRK$C_USER14 = '0000002D'X ! reserved to customer> PARAMETER BRK$C_USER15 = '00000 02E'X ! reserved to customer> PARAMETER BRK$C_USER16 = '0000002F'X ! reserved to customer% PARAMETER BRK$M_SCREEN = '00000100'X% PARAMETER BRK$M_BOTTOM = '00000200'X( PARAMETER BRK$M_NOREFRESH = '00000400'X& PARAMETER BRK$M_CLUSTER = '00000800'X0 STRUCTURE /FLAGS_INPUT/ ! mimics $BRDCSTDEF$ PARAMETER BRK$S_ERASE_LINES = 8B PARAMETER BRK$V_ERASE_LINES = 0 ! number of lines to erase PARAMETER BRK$S_SCREEN = 1> PARAMETER BRK$V_SCREEN = 8 ! Do screen formatted write PARAMETER BRK$S_BOTTOM = 1? PARAMETER BRK$V_BOTTOM = 9 ! "screen" message at bottom" PARAMETER BRK$S_NOREFRESH = 1D PARAMETER BRK$V_NOREFRESH = 10 ! Refresh an interrupted read PARAMETER BRK$S_CLUSTER = 1; PARAMETER BRK$V_CLUSTER = 11 ! broadcast to cluster BYTE %FILL (2) END STRUCTURE ! FLAGS_INPUT!DEC$ END OPTIONS wwacΦ!*** MODULE $CAPDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + PARAMETER CAP$K_ALL_USER = -1" PARAMETER CAP$K_ALL_USER_ADD = -1! PARAMETER CAP$K_ALL_CPU_ADD = -1% PARAMETER CAP$K_ALL_ACTIVE_CPUS = -1. PARAMETER CAP$K_ALL_USER_REMOVE = '00000000'X- PARAMETER CAP$K_ALL_CPU_REMOVE = '00000000'X+ PARAMETER CAP$K_GET_FREE_CAP = '00000000'X ! / ! Constants defining user capability numbers  ! $ PARAMETER CAP$M_USER1 = '00000001'X$ PARAMETER CAP$M_USER2 = '00000002'X$ PARAMETER CAP$M_USER3 = '00000004'X$ PARAMETER CAP$M_USER4 = '00000008'X$ PARAMETER CAP$M_USER5 = '00000010'X$ PARAMETER CAP$M_USER6 = '00000020'X$ PARAMETER CAP$M_USER7 = '00000040'X$ PARAMETER CAP$M_USER8 = '00000080'X$ PARAMETER CAP$M_USER9 = '00000100'X% PARAMETER CAP$M_USER10 = '00000200'X% PARAMETER CAP$M_USER11 = '00000400'X% PARAMETER CAP$M_USER12 = '00000800'X% PARAMETER CAP$M_USER13 = '00001000'X% PARAMETER CAP$M_USER14 = '00002000'X% PARAMETER CAP$M_USER15 = '00004000'X% PARAMETER CAP$M_USER16 = '00008000'X STRUCTURE /CAP/ UNION MAP  INTEGER*4 CAP$L_CAP END MAP MAP& PARAMETER CAP$S_USER1 = 1& PARAMETER CAP$V_USER1 = 0& PARAMETER CAP$S_USER2 = 1& PARAMETER CAP$V_USER2 = 1& PARAMETER CAP$S_USER3 = 1& PARAMETER CAP$V_USER3 = 2& PARAMETER CAP$S_USER4 = 1& PARAMETER CAP$V_USER4 = 3& PARAMETER CAP$S_USER5 = 1& PARAMETER CAP$V_USER5 = 4& PARAMETER CAP$S_USER6 = 1&  PARAMETER CAP$V_USER6 = 5& PARAMETER CAP$S_USER7 = 1& PARAMETER CAP$V_USER7 = 6& PARAMETER CAP$S_USER8 = 1& PARAMETER CAP$V_USER8 = 7& PARAMETER CAP$S_USER9 = 1& PARAMETER CAP$V_USER9 = 8' PARAMETER CAP$S_USER10 = 1' PARAMETER CAP$V_USER10 = 9' PARAMETER CAP$S_USER11 = 1( PARAMETER CAP$V_USER11 = 10' PARAMETER CAP$S_USER12 = 1( PARAMETER CAP$V_USER12 = 11' PARAMETER CAP$S_USER13 = 1( PARAMETER CAP$V_USER13 = 12' PARAMETER CAP$S_USER14 = 1( PARAMETER CAP$V_USER14 = 13' PARAMETER CAP$S_USER15 = 1( PARAMETER CAP$V_USER15 = 14' PARAMETER CAP$S_USER16 = 1( PARAMETER CAP$V_USER16 = 15 BYTE %FILL (2) END MAP END UNION END STRUCTURE ! CAP ! ( ! Constants defining user CPU numbers  ! # PARAMETER CAP$M_CPU0 = '00000001'X# PARAMETER CAP$M_CPU1 = '00000002'X# PARAMETER CAP$M_CPU2 = '00000004'X# PARAMETER CAP$M_CPU3 = '00000008'X# PARAMETER CAP$M_CPU4 = '00000010'X# PARAMETER CAP$M_CPU5 = '00000020'X# PARAMETER CAP$M_CPU6 = '00000040'X# PARAMETER CAP$M_CPU7 = '00000080'X# PARAMETER CAP$M_CPU8 = '00000100'X# PARAMETER CAP$M_CPU9 = '00000200'X$ PARAMETER CAP$M_CPU10 = '00000400'X$ PARAMETER CAP$M_CPU11 = '00000800'X$ PARAMETER CAP$M_CPU12 = '00001000'X$ PARAMETER CAP$M_CPU13 = '00002000'X$ PARAMETER CAP$M_CPU14 = '00004000'X$ PARAMETER CAP$M_CPU15 = '00008000'X$ PARAMETER CAP$M_CPU16 = '00010000'X$ PARAMETER CAP$M_CPU17 = '00020000'X$ PARAMETER CAP$M_CPU18 = '00040000'X$ PARAMETER CAP$M_CPU19 = '00080000'X$ PARAMETER CAP$M_CPU20 = '00100000'X$ PARAMETER CAP$M_CPU21 = '00200000'X$ PARAMETER CAP$M_CPU22 = '00400000'X$ PARAMETER CAP$M_CPU23 = '00800000'X$ PARAMETER CAP$M_CPU24 = '01000000'X$ PARAMETER CAP$M_CPU25 = '02000000'X$ PARAMETER CAP$M_CPU26 = '04000000'X$ PARAMETER CAP$M_CPU27 = '08000000'X$ PARAMETER CAP$M_CPU28 = '10000000'X$ PARAMETER CAP$M_CPU29 = '20000000'X$ PARAMETER CAP$M_CPU30 = '40000000'X$ PARAMETER CAP$M_CPU31 = '80000000'X STRUCTURE /CAP_CPUS/ UNION MAP! INTEGER*4 CAP$L_CAP_CPUS END MAP MAP% PARAMETER CAP$S_CPU0 = 1% PARAMETER CAP$V_CPU0 = 0% PARAMETER CAP$S_CPU1 = 1% PARAMETER CAP$V_CPU1 = 1% PARAMETER CAP$S_CPU2 = 1%  PARAMETER CAP$V_CPU2 = 2% PARAMETER CAP$S_CPU3 = 1% PARAMETER CAP$V_CPU3 = 3% PARAMETER CAP$S_CPU4 = 1% PARAMETER CAP$V_CPU4 = 4% PARAMETER CAP$S_CPU5 = 1% PARAMETER CAP$V_CPU5 = 5% PARAMETER CAP$S_CPU6 = 1% PARAMETER CAP$V_CPU6 = 6% PARAMETER CAP$S_CPU7 = 1% PARAMETER CAP$V_CPU7 = 7% PARAMETER CAP$S_CPU8 = 1% PARAMETER CAP$V_CPU8 = 8% PARAMETER CAP$S_CPU9 = 1% PARAMETER CAP$V_CPU9 = 9& PARAMETER CAP$S_CPU10 = 1' PARAMETER CAP$V_CPU10 = 10& PARAMETER CAP$S_CPU11 = 1' PARAMETER CAP$V_CPU11 = 11& PARAMETER CAP$S_CPU12 = 1' PARAMETER CAP$V_CPU12 = 12& PARAMETER CAP$S_CPU13 = 1' PARAMETER CAP$V_CPU13 = 13& PARAMETER CAP$S_CPU14 = 1' PARAMETER CAP$V_CPU14 = 14&  PARAMETER CAP$S_CPU15 = 1' PARAMETER CAP$V_CPU15 = 15& PARAMETER CAP$S_CPU16 = 1' PARAMETER CAP$V_CPU16 = 16& PARAMETER CAP$S_CPU17 = 1' PARAMETER CAP$V_CPU17 = 17& PARAMETER CAP$S_CPU18 = 1' PARAMETER CAP$V_CPU18 = 18& PARAMETER CAP$S_CPU19 = 1' PARAMETER CAP$V_CPU19 = 19& PARAMETER CAP$S_CPU20 = 1' PARAMETER CAP$V_CPU20 = 20& PARAMET ER CAP$S_CPU21 = 1' PARAMETER CAP$V_CPU21 = 21& PARAMETER CAP$S_CPU22 = 1' PARAMETER CAP$V_CPU22 = 22& PARAMETER CAP$S_CPU23 = 1' PARAMETER CAP$V_CPU23 = 23& PARAMETER CAP$S_CPU24 = 1' PARAMETER CAP$V_CPU24 = 24& PARAMETER CAP$S_CPU25 = 1' PARAMETER CAP$V_CPU25 = 25& PARAMETER CAP$S_CPU26 = 1' PARAMETER CAP$V_CPU26 = 26& PARAMETER CAP$S_CPU27 = 1' PARAMETER CAP$V_CPU27 = 27& PARAMETER CAP$S_CPU28 = 1' PARAMETER CAP$V_CPU28 = 28& PARAMETER CAP$S_CPU29 = 1' PARAMETER CAP$V_CPU29 = 29& PARAMETER CAP$S_CPU30 = 1' PARAMETER CAP$V_CPU30 = 30& PARAMETER CAP$S_CPU31 = 1' PARAMETER CAP$V_CPU31 = 31 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! CAP_CPUS6 PARAMETER CAP$M_IMPLICIT_AFFINITY_CLE AR = '00000001'X4 PARAMETER CAP$M_IMPLICIT_AFFINITY_SET = '00000002'X4 PARAMETER CAP$M_IMPLICIT_DEFAULT_ONLY = '00000004'X3 PARAMETER CAP$M_IMPLICIT_ALL_THREADS = '00000008'X STRUCTURE /IMP_FLAGS/4 PARAMETER CAP$S_IMPLICIT_AFFINITY_CLEAR = 1S PARAMETER CAP$V_IMPLICIT_AFFINITY_CLEAR = 0 ! Shut implicit affinity off2 PARAMETER CAP$S_IMPLICIT_AFFINITY_SET = 1P PARAMETER CAP$V_IMPLICIT_AFFINITY_SET = 1 ! Turn implicit affinity on2 PARAMETER CAP$S_IMP LICIT_DEFAULT_ONLY = 1R PARAMETER CAP$V_IMPLICIT_DEFAULT_ONLY = 2 ! Only system default changed1 PARAMETER CAP$S_IMPLICIT_ALL_THREADS = 1b PARAMETER CAP$V_IMPLICIT_ALL_THREADS = 3 ! Change affects all kernel threads in process BYTE %FILL (1) END STRUCTURE ! IMP_FLAGS ! J ! Note: the following flags structure must mimic that of [LIB]CPBDEF.SDL ! - PARAMETER CAP$M_FLAG_CHECK_CPU = '00000001'X- PARAMETER CAP$M_FLAG_PERMANENT = '00000002'X4 PARAMETER CAP$M _FLAG_CHECK_CPU_ACTIVE = '00000008'X0 PARAMETER CAP$M_FLAG_DEFAULT_ONLY = '00000010'X* PARAMETER CAP$M_ALL_THREADS = '00000020'X2 PARAMETER CAP$M_PURGE_WS_IF_NEW_RAD = '00000040'X STRUCTURE /CAP_FLAGS/+ PARAMETER CAP$S_FLAG_CHECK_CPU = 1J PARAMETER CAP$V_FLAG_CHECK_CPU = 0 ! Check that process can run+ PARAMETER CAP$S_FLAG_PERMANENT = 1E PARAMETER CAP$V_FLAG_PERMANENT = 1 ! Affect permanent mask2 PARAMETER CAP$S_FLAG_CHECK_CPU_ACTIVE = 1U  PARAMETER CAP$V_FLAG_CHECK_CPU_ACTIVE = 3 ! Check all selected CPUs active. PARAMETER CAP$S_FLAG_DEFAULT_ONLY = 1N PARAMETER CAP$V_FLAG_DEFAULT_ONLY = 4 ! Only system default changed( PARAMETER CAP$S_ALL_THREADS = 1Z PARAMETER CAP$V_ALL_THREADS = 5 ! Change affects all kernel threads in process0 PARAMETER CAP$S_PURGE_WS_IF_NEW_RAD = 1d PARAMETER CAP$V_PURGE_WS_IF_NEW_RAD = 6 ! If the home RAD was changed, purge the working  BYTE %FILL (1) END STRUCTURE ! CAP_FLAGS!DEC$ END OPTIONS ww٭cΦ!*** MODULE $CBODEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +$ ! Define Create Buffer Object bits ! -% PARAMETER CBO$M_RETSVA = '00000001'X' PARAMETER CBO$M_EXMAXLIM = '00000002'X% PARAMETER CBO$M_SVA_32 = '00000004'X$ PARAMETER CBO$M_NOSVA = '00000008'X( PARAMETER CBO$M_SYSBUFOBJ = '00000010'X' STRUCTURE /CREATE_BUFFER_OBJECT_FLAGS/ PARAMETER CBO$S_RETSVA = 1J PAR AMETER CBO$V_RETSVA = 0 ! (Priv) Return SVA, not PVA, of object! PARAMETER CBO$S_EXMAXLIM = 1_ PARAMETER CBO$V_EXMAXLIM = 1 ! (Priv) Bypass MAXBOBMEM check (VMS development use only) PARAMETER CBO$S_SVA_32 = 1W PARAMETER CBO$V_SVA_32 = 2 ! Allocate SVA from S0 space, $CREATE_BUFOBJ_64 only PARAMETER CBO$S_NOSVA = 1D PARAMETER CBO$V_NOSVA = 3 ! Do not allocate any system space" PARAMETER CBO$S_SYSBUFOBJ = 1N PARAMETER CBO$V_SYSBUFOBJ = 4 ! System buffer object (no process ties) BYTE %FILL (1)+ END STRUCTURE ! CREATE_BUFFER_OBJECT_FLAGS!DEC$ END OPTIONS ww#cΦ!*** MODULE $CHFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! , ! CONDITION HANDLING ARGUMENT LIST OFFSETSH ! THERE ARE FOUR CONDITIONAL HANDLING STRUCTURES: THE PRIMARY ARGUMENTH ! LIST, THE SIGNAL AND MECHANISM ARRAYS AND THE ALPHA EXCEPTION RECORD0 ! ALL ARE IDENTIFIED BY THE SAME BLOCK PREFIX. !  STRUCTURE /CHFDEF/2 INTEGER*4 %FILL ! Primary Argument Count? INTEGER*4 CHF$L_SIGARGLST ! ADDRESS OF SIGNAL ARGUMENTS A INTEGER*4 CHF$L_MCHARGLST ! ADDRESS OF MECHANISM ARGUMENTS END STRUCTURE ! CHFDEF STRUCTURE /CHFDEF1/ UNION MAPA INTEGER*4 CHF$IS_SIG_ARGS ! NUMBER OF SIGNAL ARGUMENTS END MAP MAP2 INTEGER*4 CHF$L_SIG_ARGS ! obsolete def END MAP END UNION UNION MAP2 INTEGER*4 CHF$IS_SIG_NAME ! SIGNAL NAME END MAP MAP2 INTEGER*4 CHF$L_SIG_NAME ! obsolete def END MAP END UNION UNION MAPE INTEGER*4 CHF$IS_SIG_ARG1 ! FIRST SIGNAL SPECIFIC ARGUMENT END MAP MAP2 INTEGER*4 CHF$L_SIG_ARG1 ! obsolete def END MAP END UNION END STRUCTURE ! CHFDEF1+ PARAMETER CHF$M_FPREGS_VALID = '00000001'X, PARAMETER CHF$M_FPREGS2_VALID = '00000002'X STRUCTURE /CHFDEF2/ UNION MAPE INTEGER*4 CHF$IS_MCH_ARGS ! NUMBER OF MECHANISM ARGUMENTS  END MAP END UNION UNION MAP- INTEGER*4 CHF$IS_MCH_FLAGS ! Flags END MAP MAP- PARAMETER CHF$S_FPREGS_VALID = 1L PARAMETER CHF$V_FPREGS_VALID = 0 ! FP registers stored in MCH.. PARAMETER CHF$S_FPREGS2_VALID = 1. PARAMETER CHF$V_FPREGS2_VALID = 1 BYTE %FILL (1) END MAP END UNION UNION MAPB INTEGER*8 CHF$PH_MCH_FRAME ! ESTABLISHER FRAME ADDRESS  END MAP END UNION UNION MAPC INTEGER*4 CHF$IS_MCH_DEPTH ! FRAME DEPTH OF ESTABLISHER  END MAP MAP, INTEGER*4 CHF$IH_MCH_DEPTH ! temp END MAP END UNION@ INTEGER*4 CHF$IS_MCH_RESVD1 ! reserved, paired with DEPTHA INTEGER*8 CHF$PH_MCH_DADDR ! ESTABLISHER HANDLER DATA CELLH INTEGER*8 CHF$PH_MCH_ESF_ADDR ! ESTABLISHER EXCEPTION STACK FRAMEH INTEGER*8 CHF$PH_MCH_SIG_ADDR ! ESTABLISHER EXCEPTION STACK FRAME UNION MAP$ INTEGER*8 CHF$IH_MCH_RETVAL END MAP MAP UNION MAP> INTEGER*8 CHF$IH_MCH_SAVR0 ! SAVED REGISTER R0  END MAP MAPE INTEGER*4 CHF$IL_MCH_SAVR0_LOW ! LOW ORDER 32 BITSG INTEGER*4 CHF$IL_MCH_SAVR0_HIGH ! HIGH ORDER 32 BITS  END MAP END UNION END MAP END UNION UNION MAP% INTEGER*8 CHF$IH_MCH_RETVAL2 END MAP MAP UNION MAP> INTEGER*8 CHF$IH_MCH_SAVR1 ! SAVED REGISTER R1  END MAP MAPE INTEGER*4 CHF$IL_MCH_SAVR1_LOW ! LOW ORDER 32 BITSG INTEGER*4 CHF$IL_MCH_SAVR1_HIGH ! HIGH ORDER 32 BITS END MAP END UNION END MAP END UNION= INTEGER*8 CHF$PH_MCH_SIG64_ADDR ! 64-bit sig array ptr( INTEGER*8 CHF$PH_MCH_SAVF32_SAVF127, BYTE CHF$FH_MCH_RETVAL_FLOAT(1:16)- BYTE CHF$FH_MCH_RETVAL2_FLOAT(1:16)% BYTE CHF$FH_MCH_SAVF2(1:16)% BYTE CHF$FH_MCH_SAVF3(1:16)% BYTE CHF$FH_MCH_SAVF4(1:16)% BYTE CHF$FH_MCH_SAVF5(1:16)& BYTE CHF$FH_MCH_SAVF12(1:16)& BYTE CHF$FH_MCH_SAVF13(1:16)& BYTE CHF$FH_MCH_SAVF14(1:16)&  BYTE CHF$FH_MCH_SAVF15(1:16)& BYTE CHF$FH_MCH_SAVF16(1:16)& BYTE CHF$FH_MCH_SAVF17(1:16)& BYTE CHF$FH_MCH_SAVF18(1:16)& BYTE CHF$FH_MCH_SAVF19(1:16)& BYTE CHF$FH_MCH_SAVF20(1:16)& BYTE CHF$FH_MCH_SAVF21(1:16)& BYTE CHF$FH_MCH_SAVF22(1:16)& BYTE CHF$FH_MCH_SAVF23(1:16)& BYTE CHF$FH_MCH_SAVF24(1:16)& BYTE CHF$FH_MCH_SAVF25(1:16)& BYTE CHF$FH_MCH_SAVF26(1:16)& BYTE CHF$FH_MCH_SAVF27(1:16)& BYTE CHF$FH_MCH_SAVF28(1:16)& BYTE CHF$FH_MCH_SAVF29(1:16)& BYTE CHF$FH_MCH_SAVF30(1:16)& BYTE CHF$FH_MCH_SAVF31(1:16) INTEGER*8 CHF$IH_MCH_SAVB1 INTEGER*8 CHF$IH_MCH_SAVB2 INTEGER*8 CHF$IH_MCH_SAVB3 INTEGER*8 CHF$IH_MCH_SAVB4 INTEGER*8 CHF$IH_MCH_SAVB5 INTEGER*8 CHF$IH_MCH_AR_LC INTEGER*8 CHF$IH_MCH_AR_EC INTEGER*8 CHF$PH_MCH_OSSD' INTEGER*4 CHF$Q_MCH_INVO_HANDLE(2)# INTEGER*8 CHF$PH_MC H_UWR_START INTEGER*8 CHF$IH_MCH_FPSR INTEGER*8 CHF$IH_MCH_FPSS END STRUCTURE ! CHFDEF2, PARAMETER CHF$M_CALEXT_CANCEL = '00000001'X* PARAMETER CHF$M_CALEXT_LAST = '00000002'XN PARAMETER CHF$K_CALEXT_LENGTH = '00000010'X ! LENGTH OF CATCH-ALL DESC BLOCKN PARAMETER CHF$C_CALEXT_LENGTH = '00000010'X ! LENGTH OF CATCH-ALL DESC BLOCK STRUCTURE /CHFDEF3/= INTEGER*4 CHF$L_CALEXT_LINK ! CATCH-ALL EXTENSION LINKF INTEGER*4 CHF$L_CALEXT_ADDRESS ! ADDRESS OF CATCH-ALL EXTENSION UNION MAP/ INTEGER*4 CHF$L_CALEXT_FLAGS ! FLAGS END MAP MAP. PARAMETER CHF$S_CALEXT_CANCEL = 1L PARAMETER CHF$V_CALEXT_CANCEL = 0 ! REMOVE CATCH-ALL EXTENSION, PARAMETER CHF$S_CALEXT_LAST = 1I PARAMETER CHF$V_CALEXT_LAST = 1 ! LAST CATCH-ALL EXTENSION BYTE %FILL (1) END MAP END UNION1 INTEGER*4 CHF$L_CALEXT_RESERVED ! RESERVED END STRUCTURE ! CHFDEF3 STRUC TURE /CHFDEF6/ UNION MAPK INTEGER*4 CHF64$L_SIG_ARGS ! Longword including count & options END MAP MAPK INTEGER*2 CHF64$W_SIG_ARG_COUNT ! Word holding count itselfR INTEGER*2 CHF64$W_SIG_MSG_OPTIONS ! Word containing message options END MAP END UNIONW INTEGER*4 CHF64$L_SIGNAL64 ! 64-bit array tag: overlays sig_name of 32b version4 INTEGER*4 CHF64$Q_SIG_NAME(2) ! Signal value= INTEGER*4 CHF64$Q_SIG_ARG1(2) ! First signal argument END STRUCTURE ! CHFDEF6!DEC$ END OPTIONS wwmFdΦ!*** MODULE $CHKPNTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! - ! = ! Define flags for calls to create checkpointable processes ! +. PARAMETER CHKPNT$M_AUTO_RESTART = '00000001'X' PARAMETER CHKPNT$M_DEBUG = '00000002'X' PARAMETER CHKPNT$M_ASYNC = '00000004'X STRUCTURE /CHKPNTDEF/( PARAMETER CHKPNT$S_AUTO_RESTART = 1J PARAMETER CHKPNT$V_AUTO_RESTART = 0 ! auto-restart detached process! PARAMETER CHKPNT$S_DEBUG = 15 PARAMETER CHKPNT$V_DEBUG = 1 ! merge in DEBUG! PARAMETER CHKPNT$S_ASYNC = 1G PARAMETER CHKPNT$V_ASYNC = 2 ! asynchronous checkpoint process  BYTE %FILL (1) END STRUCTURE ! CHKPNTDEF!DEC$ END OPTIONS wwdΦ!*** MODULE $CHPDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! K ! Item code definition for the $CHKPRO (check protecti on) system service. ! . PARAMETER CHP$_END = '00000000'X ! list end8 PARAMETER CHP$_ACCESS = '00000001'X ! intended access: PARAMETER CHP$_FLAGS = '00000002'X ! read / write flags5 PARAMETER CHP$_PRIV = '00000003'X ! privilege mask= PARAMETER CHP$_ACMODE = '00000004'X ! accessor access modeJ PARAMETER CHP$_ACCLASS = '00000005'X ! accessor security classification4 PARAMETER CHP$_RIGHTS = '00000006'X ! rights listL PARAMETER CHP$_ADD_RIGHTS = '00000007'X ! additional rights  list segments9 PARAMETER CHP$_MODE = '00000008'X ! simple access mode> PARAMETER CHP$_MODES = '00000009'X ! per action access modeK PARAMETER CHP$_MIN_CLASS = '0000000A'X ! minimum security classificationK PARAMETER CHP$_MAX_CLASS = '0000000B'X ! maximum security classification8 PARAMETER CHP$_OWNER = '0000000C'X ! object owner UIC6 PARAMETER CHP$_PROT = '0000000D'X ! protection maskA PARAMETER CHP$_ACL = '0000000E'X ! access control list segmentA PARAMETER CHP$_AUDIT_NAME = '0000000F'X ! audit names returnedA PARAMETER CHP$_ALARM_NAME = '00000010'X ! alarm names returnedE PARAMETER CHP$_MATCHED_ACE = '00000011'X ! address of matching ACEM PARAMETER CHP$_PRIVUSED = '00000012'X ! address of mask of privileges usedT PARAMETER CHP$_AUDIT_LIST = '00000013'X ! address of supplemental audit item listD PARAMETER CHP$_OBJECT_NAME = '00000014'X ! object name descriptorK PARAMETER CHP$_OBJECT_CLASS = '00000015'X ! object class name descriptor2 PARAMETER C HP$_UIC = '00000016'X ! accessor UICT PARAMETER CHP$_OBJECT_SPECIFIC = '00000017'X ! object specific longword (for OSR)" ! add new item codes before hereA PARAMETER CHP$_MAX_CODE = '00000018'X ! highest CHP$ item code' PARAMETER CHP$_ADDRIGHTS = '00000007'X& PARAMETER CHP$_MINCLASS = '0000000A'X& PARAMETER CHP$_MAXCLASS = '0000000B'X' PARAMETER CHP$_AUDITNAME = '0000000F'X' PARAMETER CHP$_ALARMNAME = '00000010'X( PARAMETER CHP$_MATCHEDACE = '00000011'X# PARAMETER CHP$_CLASS = '000 00005'X1 PARAMETER CHP$K_MATCHED_ACE_LENGTH = '000000FF'X+ PARAMETER CHP$K_ALARM_LENGTH = '00000300'X+ PARAMETER CHP$K_AUDIT_LENGTH = '00000618'X% PARAMETER CHP$M_SYSPRV = '00000001'X% PARAMETER CHP$M_BYPASS = '00000002'X& PARAMETER CHP$M_UPGRADE = '00000004'X( PARAMETER CHP$M_DOWNGRADE = '00000008'X% PARAMETER CHP$M_GRPPRV = '00000010'X& PARAMETER CHP$M_READALL = '00000020'X# PARAMETER CHP$M_OPER = '00000040'X% PARAMETER CHP$M_GRPNAM = '00000080'X% PARAMETER CHP$M_SYSNAM = '00000 100'X$ PARAMETER CHP$M_GROUP = '00000200'X$ PARAMETER CHP$M_WORLD = '00000400'X% PARAMETER CHP$M_PRMCEB = '00000800'X. PARAMETER CHP$K_NUMBER_OF_PRIVS = '0000000C'X STRUCTURE /PRIVS_USED_BITS/ PARAMETER CHP$S_SYSPRV = 1@ PARAMETER CHP$V_SYSPRV = 0 ! access via SYSPRV privilege PARAMETER CHP$S_BYPASS = 1@ PARAMETER CHP$V_BYPASS = 1 ! access via BYPASS privilege PARAMETER CHP$S_UPGRADE = 1B PARAMETER CHP$V_UPGRADE = 2 ! access via UPGRADE privilege"  PARAMETER CHP$S_DOWNGRADE = 1F PARAMETER CHP$V_DOWNGRADE = 3 ! access via DOWNGRADE privilege PARAMETER CHP$S_GRPPRV = 1@ PARAMETER CHP$V_GRPPRV = 4 ! access via GRPPRV privilege PARAMETER CHP$S_READALL = 1B PARAMETER CHP$V_READALL = 5 ! access via READALL privilege PARAMETER CHP$S_OPER = 1< PARAMETER CHP$V_OPER = 6 ! access via OPER privilege PARAMETER CHP$S_GRPNAM = 1@ PARAMETER CHP$V_GRPNAM = 7 ! access via GRPNAM privilege  PARAMETER CHP$S_SYSNAM = 1@ PARAMETER CHP$V_SYSNAM = 8 ! access via SYSNAM privilege PARAMETER CHP$S_GROUP = 1> PARAMETER CHP$V_GROUP = 9 ! access via GROUP privilege PARAMETER CHP$S_WORLD = 1? PARAMETER CHP$V_WORLD = 10 ! access via WORLD privilege PARAMETER CHP$S_PRMCEB = 1A PARAMETER CHP$V_PRMCEB = 11 ! access via PRMCEB privilege BYTE %FILL (2) END STRUCTURE ! PRIVS_USED_BITS& PARAMETER CHP$M_OBSERVE = '00000001'X$ PARAMETER CHP$M_ALTER = '00000002'X# PARAMETER CHP$M_READ = '00000001'X$ PARAMETER CHP$M_WRITE = '00000002'X) PARAMETER CHP$M_USEREADALL = '00000004'X$ PARAMETER CHP$M_AUDIT = '00000008'X( PARAMETER CHP$M_NOFAILAUD = '00000010'X( PARAMETER CHP$M_NOSUCCAUD = '00000020'X% PARAMETER CHP$M_DELETE = '00000040'X( PARAMETER CHP$M_MANDATORY = '00000080'X$ PARAMETER CHP$M_FLUSH = '00000100'X% PARAMETER CHP$M_CREATE = '00000200'X' PARAMETER CHP$M_INTERNAL = '00000400'X% PARAMETER CHP$M_SERVER = '00000800'X STRUCTURE /FLAG_BITS/ UNION MAP$ PARAMETER CHP$S_OBSERVE = 1G PARAMETER CHP$V_OBSERVE = 0 ! non-discretionary read access" PARAMETER CHP$S_ALTER = 1F PARAMETER CHP$V_ALTER = 1 ! non-discretionary write access BYTE %FILL (1) END MAP MAP! PARAMETER CHP$S_READ = 1D PARAMETER CHP$V_READ = 0 ! non-discretionary read access" PARAMETER CHP$S_WRITE = 1F PARAMETER CHP$V_WRITE = 1 ! non-discretionary writ e access' PARAMETER CHP$S_USEREADALL = 1F PARAMETER CHP$V_USEREADALL = 2 ! READALL privilege applies" PARAMETER CHP$S_AUDIT = 1> PARAMETER CHP$V_AUDIT = 3 ! access audit requested& PARAMETER CHP$S_NOFAILAUD = 1N PARAMETER CHP$V_NOFAILAUD = 4 ! do not perform failed access audit& PARAMETER CHP$S_NOSUCCAUD = 1R PARAMETER CHP$V_NOSUCCAUD = 5 ! do not perform successful access audit# PARAMETER CHP$S_DELETE = 1K  PARAMETER CHP$V_DELETE = 6 ! perform audit as delete event type& PARAMETER CHP$S_MANDATORY = 1C PARAMETER CHP$V_MANDATORY = 7 ! perform mandatory audit" PARAMETER CHP$S_FLUSH = 1J PARAMETER CHP$V_FLUSH = 8 ! force buffer flush in AUDIT_SERVER# PARAMETER CHP$S_CREATE = 1K PARAMETER CHP$V_CREATE = 9 ! perform audit as create event type% PARAMETER CHP$S_INTERNAL = 1F PARAMETER CHP$V_INTERNAL = 10 ! audit on behalf of VMS TCB# PARAMETER CHP$S_SERVER = 1P PARAMETER CHP$V_SERVER = 11 ! audit originates in TCB server process BYTE %FILL (2) END MAP END UNION END STRUCTURE ! FLAG_BITS' PARAMETER CHP$M_NOACCESS = '00000001'X' PARAMETER CHP$M_REMDUPID = '00000002'X' PARAMETER CHP$M_INCSYSID = '00000004'X' PARAMETER CHP$M_INCIMGID = '00000008'X& PARAMETER CHP$M_DEFPRIV = '00000010'X' PARAMETER CHP$M_DEFCLASS = '00000020'X STRUCTURE /PROFILE_FLAGS/! PARAM ETER CHP$S_NOACCESS = 1I PARAMETER CHP$V_NOACCESS = 0 ! do not access UAF to build profile! PARAMETER CHP$S_REMDUPID = 1I PARAMETER CHP$V_REMDUPID = 1 ! remove duplicate system rights IDs! PARAMETER CHP$S_INCSYSID = 1@ PARAMETER CHP$V_INCSYSID = 2 ! include system rights IDs! PARAMETER CHP$S_INCIMGID = 1? PARAMETER CHP$V_INCIMGID = 3 ! include image rights IDs PARAMETER CHP$S_DEFPRIV = 1H PARAMETER CHP$V_DEFPRIV = 4 ! initialize privs from default mask! PARAMETER CHP$S_DEFCLASS = 1I PARAMETER CHP$V_DEFCLASS = 5 ! initialize class from default mask BYTE %FILL (1) END STRUCTURE ! PROFILE_FLAGS!DEC$ END OPTIONS ww&eΦ !*** MODULE CIADEF IDENT x-4 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN# PARAMETER CIA$K_SCAN = '00000001'X% PARAMETER CIA$K_DELETE = '00000002'X# PARAMETER CIA$K_SHOW = '00000003'X* PARAMETER CIA$K_PERFORMANCE = '00000004'X/ PARAMETER CIA$K_ZERO_PERFORMANCE = '00000005'X, PARAMETER CIA$K_SCAN_EXTENDED = '00000006'X. PARAMETER CIA$K_DELETE_EXTENDED = '00000007'X, PARAMETER CIA$K_SHOW_EXTENDED = '00000008'X+ PARAMETER CIA$K_MAX_CIA_CODE = '00000009'X1 PARAMETER CIA$K_PERFORMANCE_LENGTH = '00000028'X STRUCTURE /PERFORMANCE/# INTEGER*4 CIA$L_TOTAL_MESSAGES% INTEGER*4 CIA$L_TOTAL_EXCEPTIONS INTEGER*4 CIA$L_SHOWS INTEGER*4 CIA$L_SCANS INTEGER*4 CIA$L_DELETES INTEGER*4 CIA$L_PERFORMANCE INTEGER*4 C IA$L_AUDITS% INTEGER*4 CIA$L_INVALID_MESSAGES INTEGER*4 CIA$L_INTRUDERS INTEGER*4 CIA$L_SUSPECTS END STRUCTURE ! PERFORMANCE5 PARAMETER CIA$K_SOURCE_TERMINAL_LENGTH = '00000040'X5 PARAMETER CIA$K_SOURCE_NODE_MAX_LENGTH = '00000400'X3 PARAMETER CIA$K_USER_SPEC_MAX_LENGTH = '00000422'X5 PARAMETER CIA$K_USER_STRING_MAX_LENGTH = '00000020'X2 PARAMETER CIA$K_PASSWORD_MAX_LENGTH = '00000020'X8 PARAMETER CIA$K_SOURCE_ADDRESS_MAX_LENGTH = '00000080'X- PARAMETER CIA$K_SCSNODE_L ENGTH = '00000008'X3 PARAMETER CIA$K_SCSNODE_REPLY_LENGTH = '0000000C'X. PARAMETER CIA$K_USERDATA_LENGTH = '00000100'X STRUCTURE /CIA$GENERIC_DESC/ INTEGER*2 CIA$W_DESC_LENGTH INTEGER*2 %FILL CHARACTER*1 CIA$T_DESC_DATA! END STRUCTURE ! CIA$GENERIC_DESC( PARAMETER CIAEXT$S_PACKET = '00000004'X STRUCTURE /EXTENSION_PACKET/. INTEGER*2 CIAEXT$W_TYPE ! packet typeI INTEGER*2 CIAEXT$W_LENGTH ! packet length NOT including T/L wordsD ! unsupported type CH ARACTER*0 CIAEXT$R_VALUE ! start of data! END STRUCTURE ! EXTENSION_PACKET* PARAMETER CIAEXT$_USER_DATA = '00000064'X( PARAMETER CIAEXT$_SCSNODE = '00000065'X. PARAMETER CIAEXT$_SCSNODE_REPLY = '00000066'X+ PARAMETER CIAEXT$_IMAGE_NAME = '00000067'X0 PARAMETER CIAEXT$_MAX_CIAEXT_CODE = '00000068'XM PARAMETER CIA$_SCSNODE_LIST = '000000C8'X ! List of nodes for which to act> PARAMETER CIA$_SCSNODE = '000000C9'X ! Single node for SCANN PARAMETER CIA$_OUTPUT_LIST = '000000CA'X ! List o f nodes records occured onJ PARAMETER CIA$_USER_DATA = '000000CB'X ! Opaque Data. We don't use it.V PARAMETER CIA$_USER_CRITERIAL = '000000CC'X ! Existing argument passed by item listX PARAMETER CIA$_FAILED_USERNAME = '000000CD'X ! Existing argument passsed by item listG PARAMETER CIA$_IMAGE_NAME = '000000CE'X ! Image name performing scan* PARAMETER CIA$_MAX_CIA_ITEM = '000000CF'X2 PARAMETER CIA$K_IMAGE_NAME_MAX_SIZE = '00001000'X STRUCTURE /IMAGE_NAME/! INTEGER*2 CIA$W_IMAGE_LENGTH INTEGER*2 %FILL& CHARACTER*4096 CIA$T_IMAGE_STRING END STRUCTURE ! IMAGE_NAME, PARAMETER CIA$M_IGNORE_RETURN = '00000001'X) PARAMETER CIA$M_RESERVED_1 = '000000FE'X' PARAMETER CIA$M_SUSPECTS = '00000100'X( PARAMETER CIA$M_INTRUDERS = '00000200'X1 PARAMETER CIA$M_SECONDARY_PASSWORD = '00000400'X& PARAMETER CIA$M_NOAUDIT = '00000800'X, PARAMETER CIA$M_REAL_USERNAME = '00001000'X( PARAMETER CIA$M_SHOW_NODE = '00002000'X' PARAMETER CIA$M_ITEMLIST = '00004000'X% PARAMETER CIA$M_FILL_1 = 'FFFF8000'X, PARAMETER CIA$K_HEADER_LENGTH = '00000008'X STRUCTURE /HEADER/ INTEGER*4 CIA$L_CONTEXT UNION MAP% INTEGER*4 CIA$L_HEADER_FLAGS END MAP MAP. PARAMETER CIA$S_IGNORE_RETURN = 1. PARAMETER CIA$V_IGNORE_RETURN = 0+ PARAMETER CIA$S_RESERVED_1 = 7+ PARAMETER CIA$V_RESERVED_1 = 1) PARAMETER CIA$S_SUSPECTS = 1) PARAMETER CIA$V_SUSPECTS = 8*  PARAMETER CIA$S_INTRUDERS = 1* PARAMETER CIA$V_INTRUDERS = 93 PARAMETER CIA$S_SECONDARY_PASSWORD = 14 PARAMETER CIA$V_SECONDARY_PASSWORD = 10( PARAMETER CIA$S_NOAUDIT = 1) PARAMETER CIA$V_NOAUDIT = 11. PARAMETER CIA$S_REAL_USERNAME = 1/ PARAMETER CIA$V_REAL_USERNAME = 12* PARAMETER CIA$S_SHOW_NODE = 1+ PARAMETER CIA$V_SHOW_NODE = 13) PARAMETER CIA$S_ITEMLIST = 1* PARAMETER CIA$V_ITEMLIST = 14( PARAMETER CIA$S_FILL_1 = 17( PARAMETER CIA$V_FILL_1 = 15 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! HEADER0 PARAMETER CIA$K_SHOW_INPUT_LENGTH = '00000426'X2 PARAMETER CIA$K_DELETE_INPUT_LENGTH = '00000426'X STRUCTURE /CONTENTS/ INTEGER*2 CIA$W_LENGTH INTEGER*2 %FILL CHARACTER*1058 CIA$T_NAME END STRUCTURE ! CONTENTS3 PARAMETER CIA$K_SCAN_CONTENTS_LENGTH = '0000056A'X STRUCTURE /SCAN_CONTENTS/ INTEGER*4 CIA$L_PARENT_ID INTEGER*4 CIA$L_JOB_TYPE! INTEGER*4 CIA$L_LOGIN_STATUS UNION MAP+ CHARACTER*68 CIA$T_SOURCE_TERMINAL END MAP MAP/ INTEGER*2 CIA$W_SOURCE_TERM_LENGTH INTEGER*2 %FILL0 CHARACTER*64 CIA$T_SOURCE_TERM_NAME END MAP END UNION UNION MAP' CHARACTER*36 CIA$T_SOURCE_USER END MAP MAP/  INTEGER*2 CIA$W_SOURCE_USER_LENGTH INTEGER*2 %FILL0 CHARACTER*32 CIA$T_SOURCE_USER_NAME END MAP END UNION UNION MAP+ CHARACTER*132 CIA$T_SOURCE_ADDRESS END MAP MAP/ INTEGER*2 CIA$W_SOURCE_ADDR_LENGTH INTEGER*2 %FILL4 CHARACTER*128 CIA$T_SOURCE_ADDRESS_NAME END MAP END UNION INTEGER*2 %FILL+ INTEGER*2 CIA$W_FAILED_USER_LENGTH  INTEGER*2 %FILL, CHARACTER*32 CIA$T_FAILED_USER_NAME UNION MAP+ CHARACTER*36 CIA$T_FAILED_PASSWORD END MAP MAP/ INTEGER*2 CIA$W_FAILED_PASS_LENGTH INTEGER*2 %FILL0 CHARACTER*32 CIA$T_FAILED_PASS_NAME END MAP END UNION UNION MAP' CHARACTER*36 CIA$T_PARENT_USER END MAP MAP/ INTEGER*2 CIA$W_PARENT_USER_LENGTH INTEGER *2 %FILL0 CHARACTER*32 CIA$T_PARENT_USER_NAME END MAP END UNION UNION MAP) CHARACTER*1028 CIA$T_SOURCE_NODE END MAP MAP/ INTEGER*2 CIA$W_SOURCE_NODE_LENGTH INTEGER*2 %FILL2 CHARACTER*1024 CIA$T_SOURCE_NODE_NAME END MAP END UNION END STRUCTURE ! SCAN_CONTENTS' PARAMETER CIA$M_INTRUDER = '00000001'X& PARAMETER CIA$M_SUSPECT = '00000002'X& PARAMETER CIA$M_NETWORK = '00 000004'X( PARAMETER CIA$M_TERM_USER = '00000008'X' PARAMETER CIA$M_TERMINAL = '00000010'X' PARAMETER CIA$M_USERNAME = '00000020'X% PARAMETER CIA$M_FILL_2 = 'FFFFFFC0'X1 PARAMETER CIA$K_SHOW_OUTPUT_LENGTH = '0000043E'X STRUCTURE /SHOW_OUTPUT/ INTEGER*4 CIA$L_STATUS% INTEGER*4 CIA$L_RETURNED_CONTEXT' INTEGER*4 CIA$Q_EXPIRATION_TIME(2) UNION MAP INTEGER*4 CIA$L_FLAGS END MAP MAP) PARAMETER CIA$S_INTRUDER = 1)  PARAMETER CIA$V_INTRUDER = 0( PARAMETER CIA$S_SUSPECT = 1( PARAMETER CIA$V_SUSPECT = 1( PARAMETER CIA$S_NETWORK = 1( PARAMETER CIA$V_NETWORK = 2* PARAMETER CIA$S_TERM_USER = 1* PARAMETER CIA$V_TERM_USER = 3) PARAMETER CIA$S_TERMINAL = 1) PARAMETER CIA$V_TERMINAL = 4) PARAMETER CIA$S_USERNAME = 1) PARAMETER CIA$V_USERNAME = 5 BYTE %FILL (1) E ND MAP END UNION" INTEGER*4 CIA$L_ATTEMPT_COUNT UNION MAP' CHARACTER*1062 CIA$T_USER_SPEC END MAP MAP- INTEGER*2 CIA$W_USER_SPEC_LENGTH INTEGER*2 %FILL0 CHARACTER*1058 CIA$T_USER_SPEC_NAME END MAP END UNION END STRUCTURE ! SHOW_OUTPUT STRUCTURE /BREAKIN_BLOCK/ INTEGER*4 CIA$L_BREAK_FLAGS INTEGER*4 CIA$L_BREAK_COUNT" INTEGER*4 CIA$Q_BREAK_TIME(2) END STRUCTURE ! BREAK IN_BLOCK STRUCTURE /CIA$GENERIC_REPLY/8 INTEGER*4 CIA$L_REPLY_STATUS ! status of request" END STRUCTURE ! CIA$GENERIC_REPLY!DEC$ END OPTIONS wwpQeΦ!*** MODULE $CLIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ++ ! 5 ! $CLIDEF --- COMMAND LAGUAGE INTERFACE DEFINITIONS ! A ! THIS MODULE DEFINES THE OFFSET VALUES FOR THE DATA STRUCTURES@ ! USED TO COMMUNICATED COMMAND INFORMATION BETWEEN THE CLI AND< ! THE UTILITY THAT WAS REQUESTED TO PERFORM THE OPERATION. !  ! --$ PARAMETER CLI$M_DEBUG = '00000001'X% PARAMETER CLI$M_DBGTRU = '00000002'X% PARAMETER CLI$M_VERIFY = '00000004'X$ PARAMETER CLI$M_BATCH = '00000008'X' PARAMETER CLI$M_INDIRECT = '00000010'X% PARAMETER CLI$M_VFYINP = '00000020'X' PARAMETER CLI$M_TRMVRBLV = '00000300'X& PARAMETER CLI$M_DBGEXCP = '00010000'X STRUCTURE /CLIDEF/6 INTEGER*4 CLI$L_INIARGCNT ! INITIAL ARG COUNT C INTEGER*4 CLI$A_PROGXFER ! PROGRAM TRANSFER VECTOR  ADDRESS B INTEGER*4 CLI$A_UTILSERV ! ADDRESS OF CLI UTILITY SERVICE ; INTEGER*4 CLI$A_IMGHDADR ! ADDRESS OF IMAGE HEADER > INTEGER*4 CLI$A_IMGFILED ! ADDRESS OF IMAGE FILE DATA 6 INTEGER*4 CLI$L_LINKFLAG ! LINK FLAG LONGWORD UNION MAP9 INTEGER*4 CLI$L_CLIFLAG ! CLI FLAG LONGWORD  END MAP MAP& PARAMETER CLI$S_DEBUG = 1A PARAMETER CLI$V_DEBUG = 0 ! DEBUG QUALIFIER SEEN ' PARAM ETER CLI$S_DBGTRU = 1< PARAMETER CLI$V_DBGTRU = 1 ! DEBUG WAS TRUE ' PARAMETER CLI$S_VERIFY = 1: PARAMETER CLI$V_VERIFY = 2 ! VERIFY IS ON & PARAMETER CLI$S_BATCH = 1H PARAMETER CLI$V_BATCH = 3 ! THIS PROCESS IS A BATCH JOB ) PARAMETER CLI$S_INDIRECT = 1P PARAMETER CLI$V_INDIRECT = 4 ! INDIRECT LEVEL NOT EQUAL TO ZERO ' PARAMETER CLI$S_VFYINP = 1I PARAMETER CLI$V_VFYINP = 5 ! UTILITY SHOULD VERFIY INPUT ) PARAMETER CLI$S_TRMVRBLV = 2H PARAMETER CLI$V_TRMVRBLV = 8 ! TERMINAL VERBOSITY LEVEL ( PARAMETER CLI$S_DBGEXCP = 1U PARAMETER CLI$V_DBGEXCP = 16 ! DEBUGGER CALLED VIA "DEBUG" EXCEPTION  BYTE %FILL (2) END MAPF ! THE FOLLOWING ARGUMENTS ARE OPTIONAL DEPENDING ON INIARGCNT END UNIONH INTEGER*4 CLI$L_ARGLIST ! ADDRESS OF APPLICATION ARGUMENT LIST ( ! (USED FOR MERGED IMAGE ARG. PASSING) ! 5 ! DEFINE CLI COMMAND INTERFACE REQUEST BLOCK !  END STRUCTURE ! CLIDEF& PARAMETER CLI$M_PARMREQ = '00000001'X% PARAMETER CLI$M_ABSADR = '00000002'X% PARAMETER CLI$M_EXPNAM = '00000004'X& PARAMETER CLI$M_LASTVAL = '00000001'X$ PARAMETER CLI$M_DUMMY = '00000002'X& PARAMETER CLI$M_PARMPRS = '00000001'X( PARAMETER CLI$M_CONCATINP = '00000002'X& PARAMETER CLI$M_MOREINP = '00000004'X& PARAMETER CLI$M_PARMDEF = '00000008'X' PARAMETER CLI$M_MOREVALS = '00000001'X& PARAMETER CLI$M_KEYVALU = '00000002'XA PARAMETER CLI$K_REQDESC = '0000001C'X ! SIZE OF THE STRUCTURE A PARAMETER CLI$C_REQDESC = '0000001C'X ! SIZE OF THE STRUCTURE  !  STRUCTURE /CLIDEF1/ UNION MAP* INTEGER*4 %FILL ! DUMMY ARG  END MAP MAP UNION MAPI BYTE CLI$B_RQTYPE ! TYPE OF REQUEST BEING MADE  END MAP MAP/  PARAMETER CLI$S_SUBTYP = 4D PARAMETER CLI$V_SUBTYP = 0 ! SUB TYPE VIELD / PARAMETER CLI$S_PRITYP = 4/ PARAMETER CLI$V_PRITYP = 49 BYTE %FILL (1) ! PRIMARY TYPYE  END MAP END UNION UNION MAP@ INTEGER*2 CLI$W_SERVCOD ! CLI SERVICE CODE  END MAP MAP UNION  MAPU BYTE CLI$B_RQINDX ! OFFSET FOR VALUE KEYWORD INDEX END MAP MAPY BYTE CLI$B_BITNUM ! BIT TO SET IF REQUEST IS SUCESSFUL END MAP END UNION UNION MAPU BYTE CLI$B_RQFLGS ! INPUT FLAGS CONCERNING REQUEST E ND MAP MAP8 PARAMETER CLI$S_PARMREQ = 1T PARAMETER CLI$V_PARMREQ = 0 ! PARAMATER IS REQUIRED 7 PARAMETER CLI$S_ABSADR = 1V PARAMETER CLI$V_ABSADR = 1 ! ALL ADDRESS ARE ABSOLUTE 7 PARAMETER CLI$S_EXPNAM = 1X PARAMETER CLI$V_EXPNAM = 2 ! RETURN EXPLICIT NAMES ONLY ' BYTE %FILL (1) END MAP MAP8 PARAMETER CLI$S_LASTVAL = 1Q PARAMETER CLI$V_LASTVAL = 0 ! LAST VALUE ALLOWED 6 PARAMETER CLI$S_DUMMY = 1[ PARAMETER CLI$V_DUMMY = 1 ! *** SAVE PLACE FOR ABS ADR *** ' BYTE %FILL (1) END MAP END UNION END MAP  END UNION UNION MAPB BYTE CLI$B_RQSTAT ! OUTPUT STATUS FLAGS  END MAP MAP0 PARAMETER CLI$S_PARMPRS = 1K PARAMETER CLI$V_PARMPRS = 0 ! PARAMETER IS PRESENT 2 PARAMETER CLI$S_CONCATINP = 1S PARAMETER CLI$V_CONCATINP = 1 ! INPUT CONCATONATION EXISTS 0 PARAMETER CLI$S_MOREINP = 1V  PARAMETER CLI$V_MOREINP = 2 ! ANOTHER SET OF INPUT PARAMETERS 0 PARAMETER CLI$S_PARMDEF = 1V PARAMETER CLI$V_PARMDEF = 3 ! PARAMETER WAS DEFAULTED PRESENT  BYTE %FILL (1) END MAP MAP1 PARAMETER CLI$S_MOREVALS = 1Q PARAMETER CLI$V_MOREVALS = 0 ! UNPROCESSED VALUES REMAIN 0 PARAMETER CLI$S_KEYVALU = 1X PARAMETER CLI$V_KEYVALU = 1 ! SUBSEQUENT TOKEN IS VALUE FOR KEY  BYTE %FILL (1) END MAP END UNION END MAP END UNIONB INTEGER*4 CLI$A_ERRACT ! ADDRESS OF ERROR ACTION ROUTINE UNION MAPD INTEGER*4 CLI$Q_RQDESC(2) ! QUADWORD REQUEST DESCRIPTOR  END MAP MAPF INTEGER*2 CLI$W_RQSIZE ! RESULTANT SIZE OF PARAMETER = INTEGER*2 %FILL ! SPARE WORD IN DESCRIPTOR  UNION MAPP INTEGER*4 CLI$L_RQVALU ! ACTUAL VALUE IN VALUE CONVERSTION  END MAP MAPM INTEGER*4 CLI$A_RQADDR ! ADDRESS OF RESULTANT PARAMETER  END MAP END UNION END MAP END UNIONC INTEGER*4 CLI$A_PRSACT ! PARAMETER PRESENT ACTION ROUTINE B INTEGER*4 CLI$A_ABSACT ! PARAMETER ABSENT ACTION ROUTINE 8 INTEGER*4 CLI$A_Q UALST ! ADDRESS OF QUALIFIERS C ! Define the Descriptor Used by Symbol and Logical-name Callbacks !  END STRUCTURE ! CLIDEF1 STRUCTURE /CLIDEF2/ BYTE %FILL(1:4)A INTEGER*4 CLI$Q_NAMDESC(2) ! Logical name or symbol name F INTEGER*4 CLI$Q_VALDESC(2) ! Equivalence name or symbol value ? INTEGER*4 CLI$Q_TABDESC(2) ! Name of logical name table6 INTEGER*4 CLI$L_ITMLST ! Address of item list= INTEGER*4 CLI$L_ATTR ! Address of attribute longword ! 8 ! Define the Descriptor Locations Used for the Old/New" ! Out-of-Band Character(s) Masks !  END STRUCTURE ! CLIDEF2 STRUCTURE /CLIDEF3/ BYTE %FILL(1:4)7 INTEGER*4 CLI$L_NEW_MASK ! Enable/disable mask @ INTEGER*4 CLI$L_OLD_MASK ! Previous enabled values mask  ! 2 ! Define the descriptor used for ATTACH callback !  END STRUCTURE ! CLIDEF3 STRUCTURE /CLIDEF4/ BYTE %FILL(1:4)< INTEGER*4 CLI$L_PID ! PID of "destination" process  ! 1 ! Define the descriptor used for SPAWN callback !  END STRUCTURE ! CLIDEF4% PARAMETER CLI$M_NOWAIT = '00000001'X' PARAMETER CLI$M_NOCLISYM = '00000002'X' PARAMETER CLI$M_NOLOGNAM = '00000004'X' PARAMETER CLI$M_NOKEYPAD = '00000008'X% PARAMETER CLI$M_NOTIFY = '00000010'X( PARAMETER CLI$M_NOCONTROL = '00000020'X& PARAMETER CLI$M_TRUSTED = '00000040'X' PARAMETER CLI$M_AUTHPRIV = '00000080'X( PARAMETER CLI$M_SUBSYSTEM = '00000100'X' PARAMETER CLI$M_DETACHED = '00000200'X? PARAMETER CLI$K_SPAWN_VERSION = '00000001'X ! Latest version? PARAMETER CLI$C_SPAWN_VERSION = '00000001'X ! Latest versionP PARAMETER CLI$K_SRVDESC = '00000054'X ! Length of longest "service" callback P PARAMETER CLI$C_SRVDESC = '00000054'X ! Length of longest "service" callback  !  STRUCTURE /CLIDEF5/ BYTE %FILL(1:4) UNION MAP4 BYTE CLI$B_FLAGS ! Flags (as byte) END MAP MAP4 INTEGER*2 CLI$W_FLAGS ! Flags (as word) END MAP MAP' PARAMETER CLI$S_NOWAIT = 1S PARAMETER CLI$V_NOWAIT = 0 ! Do not wait for subprocess completion ) PARAMETER CLI$S_NOCLISYM = 1U PARAMETER CLI$V_NOCLISYM = 1 ! Do not copy CLI symbols to subprocess ) PARAMETER CLI$S_NOLOGNAM = 1W PARAMETER CLI$V_NOLOGNAM = 2 ! Do not copy logical names to subprocess ) PARAMETER CLI$S_NOKEYPAD = 1U PAR !AMETER CLI$V_NOKEYPAD = 3 ! Do not copy keypad state to subprocess' PARAMETER CLI$S_NOTIFY = 1H PARAMETER CLI$V_NOTIFY = 4 ! Output notification message* PARAMETER CLI$S_NOCONTROL = 1Z PARAMETER CLI$V_NOCONTROL = 5 ! Do not put CR/LF in front of prompt string( PARAMETER CLI$S_TRUSTED = 1X PARAMETER CLI$V_TRUSTED = 6 ! Allow spawn regardless of UAF CAPTIVE flag) PARAMETER CLI$S_AUTHPRIV = 1O " PARAMETER CLI$V_AUTHPRIV = 7 ! Propagate AUTHPRIV to subprocess* PARAMETER CLI$S_SUBSYSTEM = 1Z PARAMETER CLI$V_SUBSYSTEM = 8 ! Copy protected subsystem IDs to subprocess) PARAMETER CLI$S_DETACHED = 1G PARAMETER CLI$V_DETACHED = 9 ! Spawn a detached process BYTE %FILL (2) END MAP END UNION' BYTE %FILL(1:2) ! Unused > INTEGER*4 CLI$L_OUTPID ! PID of subprocess on return M INTEG#ER*4 CLI$L_LSTSTATUS ! Address to store final subprocess status A INTEGER*4 CLI$Q_CMDSTR(2) ! Descriptor of command string @ INTEGER*4 CLI$Q_INPUT(2) ! Descriptor of input filespec B INTEGER*4 CLI$Q_OUTPUT(2) ! Descriptor of output filespec F INTEGER*4 CLI$Q_PRCNAM(2) ! Descriptor of name for subprocess E INTEGER*4 CLI$L_ASTADR ! Address of termination AST routine C INTEGER*4 CLI$L_ASTPRM ! Address of AST routine parameter @ BYTE CLI$B $_EFN ! Event flag to set on termination 9 BYTE CLI$B_VERSION ! Data structure version' BYTE %FILL(1:2) ! Unused ? INTEGER*4 CLI$Q_PROMPT(2) ! Descriptor of prompt string8 INTEGER*4 CLI$Q_CLI(2) ! Descriptor of cli name? INTEGER*4 CLI$Q_TABLE(2) ! Descriptor of cli table name ! M ! Define the length of the longest "supervisor-mode service" request block,H ! so that programs can allocate a fixed amount of space for the block. ! - ! % DEFINE THE PARAMETER QUALIFIER DESCRIPTOR !  END STRUCTURE ! CLIDEF5' PARAMETER CLI$M_ALLOCCUR = '00000001'X% PARAMETER CLI$M_QDUSRV = '00000002'X% PARAMETER CLI$M_QDEXPA = '00000004'X& PARAMETER CLI$M_QUALTRU = '00000001'X& PARAMETER CLI$M_QUALEXP = '00000002'XK PARAMETER CLI$K_QUALDEF = '00000014'X ! SIZE OF FIXED PART OF STRUCTURE K PARAMETER CLI$C_QUALDEF = '00000014'X ! SIZE OF FIXED PART OF STRUCTURE O PARAMETER CLI$K_QDBITS = '00000014'X ! START OF BIT LISTS(VARIALBLE & LENGTH) O PARAMETER CLI$C_QDBITS = '00000014'X ! START OF BIT LISTS(VARIALBLE LENGTH)  STRUCTURE /CLIDEF6/; BYTE CLI$B_QDBLKSIZ ! SIZE OF THE FINAL BLOCK < BYTE CLI$B_QDCODE ! ID CODE FOR THE QUALIFIER UNION MAP1 BYTE CLI$B_QDFLGS ! FLAGS BYTE  END MAP MAP) PARAMETER CLI$S_ALLOCCUR = 1M PARAMETER CLI$V_ALLOCCUR = 0 ! TAKE ACTION ON ALL OCCURANCES ' PARAMETER CLI$S_QDU'SRV = 1J PARAMETER CLI$V_QDUSRV = 1 ! USER CONTEX VALUE IS PRESENT ' PARAMETER CLI$S_QDEXPA = 1P PARAMETER CLI$V_QDEXPA = 2 ! TAKE ACTION ON EXPLICIT OCCURANCES  BYTE %FILL (1) END MAP END UNION UNION MAP7 BYTE CLI$B_QDSTAT ! QUALIFIER STATUS  END MAP MAP( PARAMETER CLI$S_QUALTRU = 1@ PARAMETER CLI$V_QUALTRU = 0 ! QUALIFIER IS TRUE ( ( PARAMETER CLI$S_QUALEXP = 1J PARAMETER CLI$V_QUALEXP = 1 ! QUALIFIER EXPLICITLY STATED  BYTE %FILL (1) END MAP END UNION UNION MAPF INTEGER*4 CLI$Q_QDVALDESC(2) ! QUALIFIER VALUE DESCRIPTOR  END MAP MAP9 INTEGER*2 CLI$W_QDVALSIZ ! SIZE OF VALUE / INTEGER*2 %FILL ! SPARE WORD C INTEGER*4 CLI$A_QDVALADR ! ADDRESS OF VALUE STRING  END MAP END UNI )ON@ INTEGER*4 CLI$A_TRUACT ! QUALIFIER TRUE ACTION ROUTINE A INTEGER*4 CLI$A_FLSACT ! QUALIFIER FALSE ACTION ROUTINE ? INTEGER*4 CLI$L_USRVAL ! OPTION USER VALUE IF PRESENT  ! / ! DEFINE SPACE FOR THE RESULT PARSE WORK AREA !  END STRUCTURE ! CLIDEF6; PARAMETER CLI$K_WORKAREA = '00000080'X ! SIZE OF HEADER ; PARAMETER CLI$C_WORKAREA = '00000080'X ! SIZE OF HEADER  ! > PARAMETER CLI$K_UTILOPR = '00000000'X ! UTILITY OPERATIONS N PARAMETER CLI$K_INP *SPEC = '00000001'X ! REQUEST FOR AN INPUT SPECIFICATION H PARAMETER CLI$K_OUTSPEC = '00000002'X ! AN OUTPUT FILE SPECIFICATION B PARAMETER CLI$K_PARDONE = '00000003'X ! PARAMETER DONE REQUEST F PARAMETER CLI$K_VALCONV = '00000004'X ! REQUEST A VALUE CONVERSION : PARAMETER CLI$K_CLINT = '00000005'X ! CLINT OPERATIONS  ! K PARAMETER CLI$K_INITPRS = '00000000'X ! REQUEST INITIALIZATION OF PARSE D PARAMETER CLI$K_GETCMD = '00000001'X ! GET COMMAND BUFFER LIMITS F PARAMETER CLI$K_G +ETQUAL = '00000002'X ! OPTAIN STATE OF QUALIFIERS @ PARAMETER CLI$K_GETOPT = '00000003'X ! DECODE COMMAND OPTION < PARAMETER CLI$K_GETLINE = '00000004'X ! GET COMMAND LINE  ! L ! THE CLISERV REQUEST TYPE APPEARS HERE, INSTEAD OF WITH THE OTHER REQUESTK ! TYPES, BECAUSE IT HAS NO SUBFUNCTIONS ASSOCIATED WITH IT, AND BECAUSE AI ! DAY 1 CODING ERROR CAUSES DCL TO EXPECT THAT THIS REQUEST NUMBER WILLI ! APPEAR IN THE SUBFUNCTION BITS. THIS MEANS THAT NO UTILITY OPERATION1 ! CAN BE , DEFINED WITH THE SUBFUNCTION NUMBER 5. ! J PARAMETER CLI$K_CLISERV = '00000005'X ! REQUEST A SERVICE FROM THE CLI  ! 8 PARAMETER CLI$K_INPUT1 = '00000010'X ! PRIMARY INPUT : PARAMETER CLI$K_INPUT2 = '00000011'X ! SECONDARY INPUT 1 PARAMETER CLI$K_INPUT3 = '00000012'X ! THIRD, 6 PARAMETER CLI$K_INPUT4 = '00000013'X ! ETC,ETC,ETC  ! 8 PARAMETER CLI$K_OUTPUT1 = '00000020'X ! FIRST OUTPUT 9 PARAMETER CLI$K_OUTPUT2 = '00000021'X ! SECOND OUTPUT 3 PARAMETER CLI$K_OUTPUT3 = - '00000022'X ! THIRD,- 7 PARAMETER CLI$K_OUTPUT4 = '00000023'X ! ETC,ETC,ETC  ! E PARAMETER CLI$K_ENDPRM1 = '00000030'X ! COMPLETED PARAMETER SET 1 E PARAMETER CLI$K_ENDPRM2 = '00000031'X ! COMPLETED PARAMETER SET 2 E PARAMETER CLI$K_ENDPRM3 = '00000032'X ! COMPLETED PARAMETER SET 3 E PARAMETER CLI$K_ENDPRM4 = '00000033'X ! COMPLETED PARAMETER SET 4  ! ; PARAMETER CLI$K_NUMERVAL = '00000040'X ! NUMBERIC VALUE 8 PARAMETER CLI$K_ASCIIVAL = '00000041'X ! ASCII VALUE 9 . PARAMETER CLI$K_KEYWORD = '00000042'X ! KEYWORD VALUE = PARAMETER CLI$K_KEYVAL = '00000043'X ! KEYWORD WITH VALUE ? PARAMETER CLI$K_FILSPEC = '00000044'X ! VALUE IS A FILESPEC  ! J PARAMETER CLI$K_PRESENT = '00000050'X ! DETERMINE IF ENTITY IS PRESENT @ PARAMETER CLI$K_GETVALUE = '00000051'X ! GET VALUE OF ENTITY K PARAMETER CLI$K_ENDPARSE = '00000052'X ! CLEAN UP AFTER PARSING COMMAND D PARAMETER CLI$K_DCLPARSE = '00000053'X ! PARSE USER COMMAND LINE G PARAMETER CLI$K_DIS/PATCH = '00000054'X ! DISPATCH TO ACTION ROUTINE B PARAMETER CLI$K_NEXTQUAL = '00000055'X ! PROCESS NEXT QUALIFIER !  STRUCTURE /CLIDEF7/ UNION MAP@ INTEGER*4 CLI$L_WORKAREA(1:32) ! ALLOCATE 32 LONG WORDS END MAP$ ! DEFINE CLI UTILITY REQUEST CODES ! 9 ! CODES ARE 8 BITS, CONSISTING OF 2 4 BIT FIELDS5 ! THE LEAST 4 BITS ARE SUBFUCTION DEFINITONS; ! AND THE MOST SIGNIFICANT 4 BITS ARE REQUEST TYPE !  ! DEFINE REQUEST TYPE CODES 00 ! DEFINE COMPLETE CODES FOR UTILITY OPERATIONS ! 2 ! DEFINE COMPLETE CODES FOR INPUT SPECIFICATIONS ! 3 ! DEFINE COMPLETE CODES FOR OUTPUT SPECIFICATIONS ! 6 ! DEFINE CODES FOR RESULT PARSE PARAMETER COMPLETION ! . ! DEFINE CODES FOR VALUE CONVERSION REQUESTS ! 0 ! DEFINE COMPLETE CODES FOR UTILITY OPERATIONS ! % ! DEFINE SET CODE SET REQUEST BLOCK ! END UNION END STRUCTURE ! CLIDEF7 STRUCTURE /CLIDEF8/ BYTE %FILL(1:4)1 INTEGER*4 CLI$L_COD1ESET ! CODE SET VALUE END STRUCTURE ! CLIDEF8!DEC$ END OPTIONS ww~Φ!*** MODULE $CLIMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:33:03.26 !  !  ! VERSION: 'V01-010' !  ! * *J ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1992, 1993 BY * C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RES 2ERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O 3 ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! MODIFIED BY: ! / ! X-10 NYK578 NITIN Y. KARKHANIS 8-MAR-1996< ! ADD UNSUP4ITEM WARNING MESSAGE; USED WHEN AN UNSUPPORTED= ! ITEM CODE IS SUPPLIED TO THE F$GETXXI LEXICAL FUNCTIONS. ! " ! X-9 STEVE T. LEE 06-FEB-1996" ! UPDATE MESSAGES FOR DCL PIPE. ! 0 ! X-8 STL0200 STEVE T. LEE 30-AUG-1995$ ! ADD NEW MESSAGES FOR DCL PIPE. ! 0 ! X-7 DCP DAVID C. PASTERCHIK 25-AUG-19943 ! CLARIFY TEXT OF GBLNDF MESSAGE (V6 QAR 00787). ! * ! X-6 RAB RICHARD A. BISHOP 21-OCT-19933 ! REVERSE ORDER OF PREVIOUS CHANGE TO MAT 5CH V1.5& ! REQUIRES CORRESPONDING FIX ON VAX ! - ! X-5 DBM0010 DAVID B. MILLER 13-SEP-19931 ! ALIGN REVISION NUMBER WITH CMS. , ! CORAL PARITY - ADD INVNOD.  ! 5 ! X01-003 TH THOMAS J. HOEY 22-JUL-1993 ( ! COMPLETE BLADE MERGE. 4 ! X-15 RNM0119 RUSS MURRAY 10-OCT-1990 7 ! MAKE IVPROT MESSAGE TEXT MORE GENERIC.  ! ; ! X01-002 DBM0001 DAVID B. MILLER 23 6-NOV-1992 ! ADD CMDSEG2.  ! 7 ! V01-001 DAG DARYL A. GLEASON 1-APR-1992 D ! EVMS QAR 1872: CHANGE IVPROT TO BE IN SYNCH WITH VAX.  ! 4 ! X-3 RAB RICHARD A. BISHOP 29-JAN-1992 > ! MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS. E ! SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION F ! OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), WHAT B ! FOLLOWS 7 IS THE AUDIT TRAIL FROM THE VMS MASTERPACK.  ! M ! ===============================================================  ! 8 ! X-7 CRB0239 COLIN R. BLAKE 18-DEC-1991 11:38:24.769 ! THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. ! / ! X-6A1 FAK001 FORREST A. KENNEY 23-SEP-1991A ! MERGE C2 CHANGES INTO BLADE. MAKE MODULE IDENT AND REVISION: ! HISTORY AGREE WITH CMS AFTER THE MASTER PACK CLEANUP. ! > ! T-2 LBB 8 LEE BARTON 22-MAY-1991* ! PICK UP PHOENIX CHANGE: ! ( ! X-18 TNF0094 TODD FLOLO 23 FEB 1991 ! ADD MESSAGE FOR SET PREFIX. ! ) ! X-14 RNM0109 RUSS MURRAY 25-MAY-1990B ! ADD MSNGENDS TO FLAG MISSING ENDSUBROUTINES ON A FORWARD SCAN ! FOR A CALL TARGET. ! D ! INCLUDE THE TARGET LABEL NAME IN THE USCALL MESSAGE, AND CHANGE< ! THE TEXT OF THE MESSAGE TO INDICATE THE LABEL COULD BE  ! INACCESSIBLE. ! ) ! X-13 RNM0102 RUSS MURRAY 28-FEB-19899. ! ADD NOREADCP ERROR MESSAGE TO FLAG FILES ! NOT OPENED FOR READ ACCESS. ! ) ! X-12 RNM0090 RUSS MURRAY 11-OCT-19897 ! ADD THE CURRENT DISK FILE NAME (IF ONE EXISTS) TO ( ! THE MISSPELL INFORMATIONAL MESSAGE. ! ) ! X-11 RNM0086 RUSS MURRAY 20-SEP-19891 ! SUPPORT FOR COMMAND VERB/QUALIFIER SPELLING 4 ! CHECKS: ADD MISSPELL INFORMATIONAL MESSAGE FOR ) ! COMMAND VERB/QUALIFIER MISSPELLINGS. ! ' ! X-10 TNF0056 TODD FLOLO 6-FEB-1989/ ! ADD MESSAGE FOR D:ISABLED RUN & MCR COMMAND ! & ! X-9 TNF0053 TODD FLOLO 2-DEC-19881 ! ADD MESSAGES FOR CAPTIVE & DISIMAGE ACCOUNTS ! ' ! X-8 TNF0047 TODD FLOLO 06-OCT-19884 ! ADD NEW MESSAGES FOR CONTEXT SYMBOL PROCESSING. ! + ! X-7 HWS0263 HAROLD SCHULTZ 08-DEC-19861 ! ADD INVIFNEST ERROR MESSAGE FOR IF-THEN-ELSE ! CONSTRUCTS. ! + ! X-6 HWS0188 HAROLD SCHULTZ 03-OCT-1985+ ! ADD USCALL AND USGOSUB ERROR MESSAGES. ! + ! X-5 HWS0178 HAROLD SCHULTZ 09-SEP-19852 ! C;HANGE THE INVCALL AND STKOVF ERROR MESSAGES. ! ADD INVGOSUB AND GOSUBMAX. ! + ! X-4 HWS0168 HAROLD SCHULTZ 04-SEP-1985 ! ADD INVDEF AND INVCALL ! + ! X-3 HWS0161 HAROLD SCHULTZ 19-AUG-1985 ! ADD PERMSYM AND GBLNDF ! / ! V04-002 HWS0130 HAROLD SCHULLZ 29-MAY-1985 ! ADD INVOUTSPE ! / ! V04-001 HWS0117 HAROLD SCHULTZ 09-MAR-1985 ! ADD ATTRMBX  !  ! --- ! $ ! DEFINE CLI RELATED STATUS VALUES ! & PARAMETER CLI$_FACILITY = '00000003'X$ PARAM <ETER CLI$_ABVERB = '00038008'X$ PARAMETER CLI$_ABKEYW = '00038010'X$ PARAMETER CLI$_BUFOVF = '00038018'X$ PARAMETER CLI$_COMPLX = '00038020'X$ PARAMETER CLI$_DEFOVF = '00038028'X$ PARAMETER CLI$_DIRECT = '00038030'X$ PARAMETER CLI$_EXPSYN = '00038038'XC PARAMETER CLI$_IMCHNG = '00038040'X ! NOT USED BY DCL NOR BY MCR% PARAMETER CLI$_INSFPRM = '00038048'X$ PARAMETER CLI$_IVCHAR = '00038050'X# PARAMETER CLI$_SPARE = '00038058'X$ PARAMETER CLI$_IVKEYW = '00038060'X$ PARAMETER CLI$_IVOPER= = '00038068'X$ PARAMETER CLI$_IVPROT = '00038070'X$ PARAMETER CLI$_IVQLOC = '00038078'X$ PARAMETER CLI$_IVSYMB = '00038080'X$ PARAMETER CLI$_IVVALU = '00038088'X$ PARAMETER CLI$_IVVERB = '00038090'X% PARAMETER CLI$_MAXPARM = '00038098'XD PARAMETER CLI$_NOATFIL = '000380A0'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_NOCCAT = '000380A8'X$ PARAMETER CLI$_NOCOMD = '000380B0'X$ PARAMETER CLI$_NOKEYW = '000380B8'X$ PARAMETER CLI$_NOLIST = '000380C0'X$ PARAMETER CLI$_NOQUAL = '000380C8'X$> PARAMETER CLI$_NOVALU = '000380D0'X$ PARAMETER CLI$_NOTNEG = '000380D8'X$ PARAMETER CLI$_NULFIL = '000380E0'X$ PARAMETER CLI$_NUMBER = '000380E8'X$ PARAMETER CLI$_ONCOMD = '000380F0'X# PARAMETER CLI$_ONERR = '000380F8'X$ PARAMETER CLI$_ONLEVL = '00038100'X# PARAMETER CLI$_ONOVF = '00038108'X% PARAMETER CLI$_PARMDEL = '00038110'X$ PARAMETER CLI$_RSLOVF = '00038118'X$ PARAMETER CLI$_SKPDAT = '00038120'X$ PARAMETER CLI$_STKOVF = '00038128'X$ PARAMETER CLI$_SYMDEL = '00038130'X$ PARAMETER ? CLI$_SYMOVF = '00038138'X$ PARAMETER CLI$_UNDSYM = '00038140'X$ PARAMETER CLI$_USGOTO = '00038148'X$ PARAMETER CLI$_VALREQ = '00038150'X$ PARAMETER CLI$_ONEVAL = '00038158'X$ PARAMETER CLI$_OVRFLW = '00038160'XD PARAMETER CLI$_UNPROQUAL = '00038168'X ! OLD CLI INTERFACE STATUSD PARAMETER CLI$_UNPROPARM = '00038170'X ! OLD CLI INTERFACE STATUSG PARAMETER CLI$_INVKEY = '00038178'X ! OLD MCR STATUS GOING AWAY SOONC PARAMETER CLI$_INVRSP = '00038180'X ! NOT USED BY DCL NOR BY MCR$ PAR @AMETER CLI$_UNDFIL = '00038188'XC PARAMETER CLI$_FILOPN = '00038190'X ! NOT USED BY DCL NOR BY MCRC PARAMETER CLI$_BADRET = '00038198'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_ABSYMD = '000381A0'X$ PARAMETER CLI$_INVUIC = '000381A8'XD PARAMETER CLI$_BADTEXT = '000381B0'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_ABFNAM = '000381B8'X$ PARAMETER CLI$_IVFNAM = '000381C0'XG PARAMETER CLI$_BLKOVRFLOW = '000381C8'X ! NOT USED BY DCL NOR BY MCRG PARAMETER CLI$_BLKUNDFLOW = '000381 AD0'X ! NOT USED BY DCL NOR BY MCRC PARAMETER CLI$_BADBLK = '000381D8'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_NOLBLS = '000381E0'X: PARAMETER CLI$_NOCHANGE = '000381E8'X ! MCR-ONLY STATUSA PARAMETER CLI$_ABSENT = '000381F0'X ! NEW CLI INTERFACE STATUSB PARAMETER CLI$_NEGATED = '000381F8'X ! NEW CLI INTERFACE STATUS' PARAMETER CLI$_INVFILSPE = '00038200'XF PARAMETER CLI$_INVLOGFIL = '00038208'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_NOTHEN = '00038210'X' PARAMETER C BLI$_SYMTOOLNG = '00038218'X8 PARAMETER CLI$_ASTDCL = '00038220'X ! GOES AWAY IN V4& PARAMETER CLI$_INVRANGE = '00038228'XA PARAMETER CLI$_LOCNEG = '00038230'X ! NEW CLI INTERFACE STATUS' PARAMETER CLI$_CMDNOTFND = '00038238'X$ PARAMETER CLI$_IVQUAL = '00038240'X$ PARAMETER CLI$_CMDSEG = '00038248'X$ PARAMETER CLI$_NOTIFY = '00038250'X& PARAMETER CLI$_CONFLICT = '00038258'X$ PARAMETER CLI$_UNDKEY = '00038260'X$ PARAMETER CLI$_ARGREQ = '00038268'X$ PARAMETER CLI$_SYMLNG = '00038270'X$ C PARAMETER CLI$_SYMABR = '00038278'X& PARAMETER CLI$_IVKEYNAM = '00038280'X% PARAMETER CLI$_NOPAREN = '00038288'X% PARAMETER CLI$_IVATIME = '00038290'X% PARAMETER CLI$_IVDTIME = '00038298'X$ PARAMETER CLI$_TKNOVF = '000382A0'X; PARAMETER CLI$_CMDFILERR = '000382A8'X ! MCR-ONLY STATUS' PARAMETER CLI$_INVOUTSPE = '000382B0'X% PARAMETER CLI$_PERMSYM = '000382B8'X$ PARAMETER CLI$_GBLNDF = '000382C0'X& PARAMETER CLI$_INVGOSUB = '000382C8'X& PARAMETER CLI$_GOSUBMAX = '000382D0'X$ PARAMET DER CLI$_USCALL = '000382D8'X% PARAMETER CLI$_USGOSUB = '000382E0'X% PARAMETER CLI$_FRZNCTX = '000382E8'X$ PARAMETER CLI$_NOTCTX = '000382F0'X' PARAMETER CLI$_INVCTXTYP = '000382F8'X% PARAMETER CLI$_CMDSEG2 = '00038300'X$ PARAMETER CLI$_INVNOD = '00038308'X& PARAMETER CLI$_NULLPIPE = '00038310'X( PARAMETER CLI$_INVNULLCMD = '00038318'X) PARAMETER CLI$_WRGSUBSHSYN = '00038320'X) PARAMETER CLI$_UNTERMSUBSH = '00038328'X' PARAMETER CLI$_DUPREDSYN = '00038330'X' PARAMETER CLI$_INCREDSYN E= '00038338'X' PARAMETER CLI$_INVREDSYN = '00038340'X( PARAMETER CLI$_INVCONCHAR = '00038348'X, PARAMETER CLI$_CMDNOTALLINPIP = '00038350'X, PARAMETER CLI$_LBLNOTALLINPIP = '00038358'X+ PARAMETER CLI$_TOOMANYPIPCMD = '00038360'X+ PARAMETER CLI$_UNSUPITEM = '00038368'X ! 0 ! DEFINE CLI RELATED "ERROR" LEVEL ERROR CODES) ! BEGIN ERROR CODE 2048 FROM WARNING TO ! LEAVE ROOM FOR 256 WARNINGS. ! C PARAMETER CLI$_CONFQUAL = '00038802'X ! OLD CLI INTERFACE STATUSB PARAMETER CLI$_INFVQUAL = '0003880A'X ! OLD CLI INTERFACE STATUSD PARAMETER CLI$_REQPRMABS = '00038812'X ! OLD CLI INTERFACE STATUSE PARAMETER CLI$_INVQUALNUM = '0003881A'X ! OLD CLI INTERFACE STATUS> PARAMETER CLI$_INVREQTYP = '00038822'X ! USED BY CALL BACKSB PARAMETER CLI$_NOVALUE = '0003882A'X ! OLD CLI INTERFACE STATUSD PARAMETER CLI$_VALCNVERR = '00038832'X ! OLD CLI INTERFACE STATUS; PARAMETER CLI$_ILLVAL = '0003883A'X ! USED BY CALL BACKSC PARAMETER CLI$_NOOPTPRS = '00038842'X ! OLD CLI G INTERFACE STATUSF PARAMETER CLI$_CREQUEJOB = '0003884A'X ! NOT USED BY DCL NOR BY MCRF PARAMETER CLI$_SUBMITERR = '00038852'X ! NOT USED BY DCL NOR BY MCRE PARAMETER CLI$_DEVALSPL = '0003885A'X ! NOT USED BY DCL NOR BY MCRF PARAMETER CLI$_DEVNOTSPL = '00038862'X ! NOT USED BY DCL NOR BY MCR; PARAMETER CLI$_IVDEVTYPE = '0003886A'X ! MCR-ONLY STATUS8 PARAMETER CLI$_IMGFNF = '00038872'X ! MCR-ONLY STATUSF PARAMETER CLI$_DEVNOTFOR = '0003887A'X ! NOT USED BY DCL NOR BY MCR? PARAMHETER CLI$_PWDNOTVAL = '00038882'X ! SET PASSWORD STATUS? PARAMETER CLI$_PWDNOTVER = '0003888A'X ! SET PASSWORD STATUS? PARAMETER CLI$_PWDLOCKED = '00038892'X ! SET PASSWORD STATUSG PARAMETER CLI$_NOTFR = '0003889A'X ! IMAGE ACTIVATION ERROR - PART 2? PARAMETER CLI$_PWDSYNTAX = '000388A2'X ! SET PASSWORD STATUSI PARAMETER CLI$_IMGNAME = '000388AA'X ! IMAGE ACTIVATION ERROR - PART 2J PARAMETER CLI$_IMAGEFNF = '000388B2'X ! IMAGE ACTIVATION ERROR - PART 2F PARAMETER CLI$_BADSTR ILVL = '000388BA'X ! NOT USED BY DCL NOR BY MCR% PARAMETER CLI$_REFUSED = '000388C2'X> PARAMETER CLI$_BADCTLMSK = '000388CA'X ! USED BY CALL BACKS$ PARAMETER CLI$_INVRFM = '000388D2'X9 PARAMETER CLI$_NOCLINT = '000388DA'X ! MCR-ONLY STATUS9 PARAMETER CLI$_NOSPAWN = '000388E2'X ! MCR-ONLY STATUS$ PARAMETER CLI$_SPWNIO = '000388EA'X$ PARAMETER CLI$_TRMMBX = '000388F2'X' PARAMETER CLI$_STRTOOLNG = '000388FA'X9 PARAMETER CLI$_CMDGONE = '00038902'X ! MCR-ONLY STATUS' PARAMETER CLI$_JNOCMDPROC = '0003890A'X% PARAMETER CLI$_INVROUT = '00038912'X$ PARAMETER CLI$_OLDTAB = '0003891A'X$ PARAMETER CLI$_INVTAB = '00038922'X' PARAMETER CLI$_NOTDISCON = '0003892A'X# PARAMETER CLI$_ENTNF = '00038932'X% PARAMETER CLI$_ATTRMBX = '0003893A'X% PARAMETER CLI$_INVCALL = '00038942'X' PARAMETER CLI$_INVIFNEST = '0003894A'X% PARAMETER CLI$_CAPTINT = '00038952'X% PARAMETER CLI$_CAPTINQ = '0003895A'X& PARAMETER CLI$_NOFORCMD = '00038962'X& PARAMETER CLI$_NORUNMCR = '0003896A'X& PKARAMETER CLI$_NOREADCP = '00038972'X' PARAMETER CLI$_INVPREFIX = '0003897A'X' PARAMETER CLI$_CAPTSPAWN = '00038982'X ! " ! DEFINE INFORMATIONAL MESSAGES. ! $ PARAMETER CLI$_DEFKEY = '0003DDC3'X$ PARAMETER CLI$_DELKEY = '0003DDCB'X$ PARAMETER CLI$_SETKEY = '0003DDD3'X; PARAMETER CLI$_SPARE1 = '0003DDDB'X ! NOT CURRENTLY USED# PARAMETER CLI$_ALLOC = '0003DDE3'X' PARAMETER CLI$_SUPERSEDE = '0003DDEB'X9 PARAMETER CLI$_INSPRIV = '0003DDF3'X ! MCR-ONLY STATUS: PARAMETER CLI$_NODILRCHG = '0003DDFB'X ! MCR-ONLY STATUS% PARAMETER CLI$_IGNQUAL = '0003DE03'X& PARAMETER CLI$_TABEXIST = '0003DE0B'X& PARAMETER CLI$_TABSUPER = '0003DE13'X' PARAMETER CLI$_TABNOTFND = '0003DE1B'X$ PARAMETER CLI$_DELSYM = '0003DE23'X& PARAMETER CLI$_SYMTRUNC = '0003DE2B'X$ PARAMETER CLI$_KEYCNV = '0003DE33'X$ PARAMETER CLI$_INVDEF = '0003DE3B'X& PARAMETER CLI$_MISSPELL = '0003DE43'X& PARAMETER CLI$_MSNGENDS = '0003DE4B'X !  ! DEFINE SUCCESSFUL MESSAGES ! % PARAMETER CLI$_SPAWNED = M'0003FD01'X& PARAMETER CLI$_ATTACHED = '0003FD09'X& PARAMETER CLI$_RETURNED = '0003FD11'XB PARAMETER CLI$_PRESENT = '0003FD19'X ! NEW CLI INTERFACE STATUSD PARAMETER CLI$_DEFAULTED = '0003FD21'X ! NEW CLI INTERFACE STATUSA PARAMETER CLI$_CONCAT = '0003FD29'X ! NEW CLI INTERFACE STATUSB PARAMETER CLI$_LOCPRES = '0003FD31'X ! NEW CLI INTERFACE STATUS@ PARAMETER CLI$_COMMA = '0003FD39'X ! NEW CLI INTERFACE STATUSE PARAMETER CLI$_OKTAB = '0003FD41'X ! CDU CONVERSION ROUTINE STATUSFN PARAMETER CLI$_UPGTAB = '0003FD49'X ! CDU CONVERSION ROUTINE STATUSD PARAMETER CLI$_PROC_ID = '0003FFF1'X ! NOT USED BY DCL NOR BY MCRF PARAMETER CLI$_QUEJOBCRE = '0003FFF9'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_NORMAL = '00030001'X!DEC$ END OPTIONSwweΦ!*** MODULE $CLISERVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! $ ! DEFINE CLI SERVICE REQUEST CODES !  ! DEFINE CLI SERVICE CODES 9 PARAMETER CLI$K_PAUSE = '00000001'XO ! PAUSE THE IMAGE O PARAMETER CLI$K_DEFLOCAL = '00000002'X ! DEFINE A SYMBOL IN THE LOCAL TABLE Q PARAMETER CLI$K_DEFGLOBAL = '00000003'X ! DEFINE A SYMBOL IN THE GLOBAL TABLE M PARAMETER CLI$K_CHAIN = '00000004'X ! PASS AN IMAGE TO RUN AFTER THIS ONE P PARAMETER CLI$K_COMMAND = '00000005'X ! PASS A COMMAND LINE TO LATER EXECUTE I PARAMETER CLI$K_CREALOG = '00000006'X ! DEFINE A PROCESS LOGICAL NAME I PARAMETER CLI$K_DELELOG = '00000007'X ! DELETE A PROCESS LOGICAL NAME N PPARAMETER CLI$K_DISACTRLY = '00000008'X ! DISABLE DCL CONTROL Y PROCESSING M PARAMETER CLI$K_ENABCTRLY = '00000009'X ! ENABLE DCL CONTROL Y PROCESSING C PARAMETER CLI$K_GETSYM = '0000000A'X ! RETURN VALUE OF A SYMBOL A PARAMETER CLI$K_DELELCL = '0000000B'X ! DELETE A LOCAL SYMBOL B PARAMETER CLI$K_DELEGBL = '0000000C'X ! DELETE A GLOBAL SYMBOL L PARAMETER CLI$K_DISAOOB = '0000000D'X ! DISABLE OUT-OF-BAND CHARACTER(S) N PARAMETER CLI$K_ENABOOB = '0000000E'X ! RE-ENABLE OUT-OF-BANDQ CHARACTER(S) < PARAMETER CLI$K_SPAWN = '0000000F'X ! SPAWN A SUBPROCESS > PARAMETER CLI$K_ATTACH = '00000010'X ! ATTACH TO A PROCESS b PARAMETER CLI$K_LIBDEFLOCAL = '00000011'X ! DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOLd PARAMETER CLI$K_LIBDEFGLOBAL = '00000012'X ! DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOLT PARAMETER CLI$K_LIBGETSYM = '00000013'X ! GET A SYMBOL VALUE USING LIB$GET_SYMBOLU PARAMETER CLI$K_LIBDELELCL = '00000014'X ! DELETE A SYMBOL USING LIB$DELERTE_SYMBOL\ PARAMETER CLI$K_LIBDELEGBL = '00000015'X ! DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOL: PARAMETER CLI$K_SETCODESET = '00000016'X ! SET CODE SET ! 6 ! Define local/global symbol flag returned by GETSYM ! : PARAMETER CLI$K_LOCAL_SYM = '00000001'X ! Local symbol < PARAMETER CLI$K_GLOBAL_SYM = '00000002'X ! Global symbol !DEC$ END OPTIONS ww)fΦ!*** MODULE $CLIVERBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! " ! DE SFINE GENERIC CODES FOR VERBS !  ! DEFINE VERB QENERIC CODES 6 PARAMETER CLI$K_VERB_ALLO = '00000001'X ! ALLOCATE 5 PARAMETER CLI$K_VERB_ANAL = '00000002'X ! ANALIZE 4 PARAMETER CLI$K_VERB_ASSI = '00000003'X ! ASSIGN 3 PARAMETER CLI$K_VERB_BASI = '00000004'X ! BASIC 3 PARAMETER CLI$K_VERB_BLIS = '00000005'X ! BLISS 3 PARAMETER CLI$K_VERB_COBO = '00000006'X ! COBOL 6 PARAMETER CLI$K_VERB_CONT = '00000007'X ! CONTINUE 2 PARAMETER CLI$K_VERB_COPY = '00000008'X ! COPY 4 P TARAMETER CLI$K_VERB_CREA = '00000009'X ! CREATE 2 PARAMETER CLI$K_VERB_DATA = '0000000A'X ! DATA 8 PARAMETER CLI$K_VERB_DEAL = '0000000B'X ! DEALLOCATE 6 PARAMETER CLI$K_VERB_DEAS = '0000000C'X ! DEASSIGN 3 PARAMETER CLI$K_VERB_DEBU = '0000000D'X ! DEBUG 4 PARAMETER CLI$K_VERB_DEFI = '0000000E'X ! DEFINE 4 PARAMETER CLI$K_VERB_DELE = '0000000F'X ! DELETE 5 PARAMETER CLI$K_VERB_DEPO = '00000010'X ! DEPOSIT @ PARAMETER CLI$K_VERB_DIFF = '00000011'X ! DIFFERENCE COMMAND 7 PAR UAMETER CLI$K_VERB_DIRE = '00000012'X ! DIRECTORY 6 PARAMETER CLI$K_VERB_DISM = '00000013'X ! DISMOUNT 2 PARAMETER CLI$K_VERB_EDIT = '00000014'X ! EDIT 0 PARAMETER CLI$K_VERB_EOD = '00000015'X ! EOD 5 PARAMETER CLI$K_VERB_EXAM = '00000016'X ! EXAMINE 2 PARAMETER CLI$K_VERB_EXIT = '00000017'X ! EXIT 5 PARAMETER CLI$K_VERB_FORT = '00000018'X ! FORTRAN 2 PARAMETER CLI$K_VERB_GOTO = '00000019'X ! GOTO 2 PARAMETER CLI$K_VERB_HELP = '0000001A'X ! HELP . PARAMETER CLI$K_VERB_IF = V '0000001B'X ! IF 8 PARAMETER CLI$K_VERB_INIT = '0000001C'X ! INITIALIZE 5 PARAMETER CLI$K_VERB_INQU = '0000001D'X ! INQUIRE 2 PARAMETER CLI$K_VERB_LINK = '0000001E'X ! LINK 4 PARAMETER CLI$K_VERB_LOGO = '0000001F'X ! LOGOUT 3 PARAMETER CLI$K_VERB_MACR = '00000020'X ! MACRO 0 PARAMETER CLI$K_VERB_MCR = '00000021'X ! MCR . PARAMETER CLI$K_VERB_ON = '00000022'X ! ON 3 PARAMETER CLI$K_VERB_PRIN = '00000023'X ! PRINT 0 PARAMETER CLI$K_VERB_RUN = '00000024'X ! RUN 0 PARAMET WER CLI$K_VERB_SET = '00000025'X ! SET 2 PARAMETER CLI$K_VERB_SHOW = '00000026'X ! SHOW 3 PARAMETER CLI$K_VERB_STAR = '00000027'X ! START 2 PARAMETER CLI$K_VERB_STOP = '00000028'X ! STOP 4 PARAMETER CLI$K_VERB_SUBM = '00000029'X ! SUBMIT 2 PARAMETER CLI$K_VERB_TYPE = '0000002A'X ! TYPE 3 PARAMETER CLI$K_VERB_MOUN = '0000002B'X ! MOUNT 3 PARAMETER CLI$K_VERB_PATC = '0000002C'X ! PATCH 4 PARAMETER CLI$K_VERB_REPL = '0000002D'X ! REPLAY 4 PARAMETER CLI$K_VERB_UNLO = '0000002E X'X ! UNLOCK < PARAMETER CLI$K_VERB_APPE = '0000002F'X ! APPEND COMMAND 2 PARAMETER CLI$K_VERB_DUMP = '00000030'X ! DUMP 3 PARAMETER CLI$K_VERB_PURG = '00000031'X ! PURGE 4 PARAMETER CLI$K_VERB_RENA = '00000032'X ! RENAME 4 PARAMETER CLI$K_VERB_CANC = '00000033'X ! CANCEL 5 PARAMETER CLI$K_VERB_LIBR = '00000034'X ! LIBRARY 2 PARAMETER CLI$K_VERB_SORT = '00000035'X ! SORT 5 PARAMETER CLI$K_VERB_REQU = '00000036'X ! REQUEST 8 PARAMETER CLI$K_VERB_SYNC = '00000037'X ! SYNCRYONIZE 3 PARAMETER CLI$K_VERB_CORA = '00000038'X ! CORAL 4 PARAMETER CLI$K_VERB_PASC = '00000039'X ! PASCAL 1 PARAMETER CLI$K_VERB_PLI = '0000003A'X ! PL/1 5 PARAMETER CLI$K_VERB_MESS = '0000003B'X ! MESSAGE  ! DEFINE VERB QENERIC CODES = PARAMETER CLI$K_VERB_FORE = '000000FF'X ! FOREIGN COMMAND !DEC$ END OPTIONS wwfΦ!*** MODULE $CLSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! B ! Security classification block. Cont Zains secrecy and integrityK ! level and categories for non-discretionary (mandatory) access controls. !  ! -N PARAMETER CLS$S_CLSDEF_TLVRNG = '00000004'X ! Preserve previous size symbol> STRUCTURE /CLS_TLVRNG/ ! Range specifier field references3 INTEGER*2 CLS$W_RANGE_LOW ! Range low limit5 INTEGER*2 CLS$W_RANGE_HIGH ! Range high limit END STRUCTURE ! CLS_TLVRNG6 PARAMETER CLS$K_END = '00000000'X ! List terminatorP PARAMETER CLS$K_SC_ENUMERATE = '00000001'X ! [Secrecy category enumerated listG PARAMETER CLS$K_SC_RANGE = '00000002'X ! Secrecy category range listC PARAMETER CLS$K_SC_MASK = '00000003'X ! Secrecy category bitmaskR PARAMETER CLS$K_IC_ENUMERATE = '00000011'X ! Integrity category enumerated listI PARAMETER CLS$K_IC_RANGE = '00000012'X ! Integirty category range listE PARAMETER CLS$K_IC_MASK = '00000013'X ! Integrity category bitmask4 PARAMETER CLS$K_VOID = '000000FF'X ! Voided entryK PARAMETER CLS$S_CLSDEF_TLV = '00000008'X \ ! Preserve previous size symbol5 STRUCTURE /CLS_TLV/ ! TLV entry field references UNION MAP. BYTE CLS$B_TAG ! Format code UNION ! dependent: MAPI BYTE CLS$B_COUNT ! # entries in an enumerated list END MAP" ! # range pairs in a range list' ! # longwords following voided entry MAPE BYTE CLS$B_MASK_SIZE ! # longwords in a bitmask END MAP E]ND UNION UNION MAPS INTEGER*2 CLS$W_CATLST(1:1) ! Vector of enumerated cat. END MAP MAP INTEGER*2 %FILLQ INTEGER*4 CLS$L_RNGLST(1:1) ! Vector of high:low word ! range pairs END MAP MAP6 INTEGER*2 CLS$W_BASE ! Bias valueI INTEGER*4 CLS$L_MASK(1:1) ! <32 * MASK_SIZE> bit mask END MAP ^ MAP% INTEGER*2 %FILL(1:3) END MAP MAPE INTEGER*2 CLS$W_VOID(1:1) ! words END MAP END UNION END MAP END UNION END STRUCTURE ! CLS_TLVE PARAMETER CLS$K_MIN_SEC_LEV = '00000000'X ! Minimum secrecy level G PARAMETER CLS$K_MIN_INT_LEV = '00000000'X ! Minimum integrity level E PARAMETER CLS$K_MAX_SEC_LEV = '000000FF'X ! Maximum secrecy level G PARAMETER CLS$K_MAX_INT_LEV =_ '000000FF'X ! Maximum integrity level H PARAMETER CLS$K_MIN_SEC_CAT = '00000001'X ! Minimum secrecy category J PARAMETER CLS$K_MIN_INT_CAT = '00000001'X ! Minimum integrity category R PARAMETER CLS$K_MAX_SEC_CAT = '00010000'X ! Maximum supported secrecy category T PARAMETER CLS$K_MAX_INT_CAT = '00010000'X ! Maximum supported integrity category V PARAMETER CLS$K_MAX_SEC_CAT_S64I64 = '00000040'X ! Maximum type 0 secrecy category X PARAMETER CLS$K_MAX_INT_CAT_S64I64 = '00000040'X ! `Maximum type 0 integrity category T PARAMETER CLS$K_MAX_SEC_CAT_S128 = '00000080'X ! Maximum type 1 secrecy category W PARAMETER CLS$K_MAX_SEC_CAT_DYN_CAT = '00010000'X ! Maximum type 2 secrecy category Y PARAMETER CLS$K_MAX_INT_CAT_DYN_CAT = '00010000'X ! Maximum type 2 integrity category K PARAMETER CLS$K_TYP_S64I64 = '00000000'X ! Type 0 class block identifierI PARAMETER CLS$K_TYP_S128 = '00000001'X ! Type 1 class block identifierL PARAMETER CLS$K_TYP_DYN_CAT = '00000002'X ! T aype 2 class blook identifierC PARAMETER CLS$K_LENGTH_HDR = '00000004'X ! Size of common headerL PARAMETER CLS$K_LENGTH_S64I64 = '00000014'X ! Size of type 0 class blockJ PARAMETER CLS$K_LENGTH_S128 = '00000014'X ! Size of type 1 class blockM PARAMETER CLS$K_LENGTH_DYN_CAT = '00000004'X ! Size of type 2 class block ! fixed portionK PARAMETER CLS$S_CLSDEF = '00000014'X ! Preserve previous size definition= PARAMETER CLS$K_LENGTH = '00000014'X ! length of structure STRUCTUREb /CLS/ UNION MAP4 BYTE CLS$B_SEC_LEV ! Secrecy level6 BYTE CLS$B_INT_LEV ! Integrity level4 BYTE CLS$B_TYPE ! Class block type ! Class block type identifiersJ BYTE CLS$B_TLVLST_SIZE ! Size in longwords of TLV list in ! a type 2 class block. UNION ! J ! Usage of the ..._S64I64 and ..._S128 symbolic name forms is preferred.L ! Previous name forms have been retained for backwards compatibility only. ! c  MAPM INTEGER*4 CLS$Q_SEC_CAT_S64I64(2) ! Secrecy category maskO INTEGER*4 CLS$Q_INT_CAT_S64I64(2) ! Integrity category mask END MAP MAPL INTEGER*4 CLS$O_SEC_CAT_S128(4) ! Secrecy category mask END MAP MAPK INTEGER*4 CLS$L_TLVLST(1:1) ! Tag-Length-Value_set list END MAP ! d ! The following definitions have been superseded and are d being retained for backwards compatibilitC ! The following definitions have been superseded and are beinE ! Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. !  MAPd INTEGER*4 CLS$Q_SEC_CAT_0(2) ! Secrecy category mask - Usage of CLS$Q_SEC_CAT_C ! Secrecy category mask - Usage of CLS$Q_SEC_CAT_S64I64 pred INTEGER*4 CLS$Q_INT_CAT_0(2) ! Integrity category mask - Usage of CLS$Q_INT_CATC ! Integrity cat eegory mask - Usage of CLS$Q_INT_CAT_S64I64 pr END MAP MAPd INTEGER*4 CLS$O_SEC_CAT_1(4) ! Secrecy category mask - Usage of CLS$O_SEC_CAT_SC ! Secrecy category mask - Usage of CLS$O_SEC_CAT_S128 prefer END MAP END UNION END MAP ! d ! The following definitions have been superseded and are being retained for backwards compatibilitC ! The following definitions have been superseded and are beinE ! Usage of f the ..._S64I64 and ..._S128 symbolic names is preferred. !  MAPY BYTE CLS$B_SECUR_LEV ! Security level - Usage of CLS$B_SEC_LEV preferredZ BYTE CLS$B_INTEG_LEV ! Integrity level - Usage of CLS$B_INT_LEV preferred( INTEGER*2 %FILL ! Reservedd INTEGER*4 CLS$Q_SECUR_CAT(2) ! Security category mask - Usage of CLS$Q_SEC_CAT_S64I64/CLC ! Security category mask - Usage of CLS$Q_SEC_CAT_S64I64/CLS$d INTEGER*4 CLS$Q_INTEG_C gAT(2) ! Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 pC ! Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 pre END MAP ! M ! The CLS$S_CLSDEF definition is provided for backwards compatibility only.d ! Usage of the CLS$K_LENGTH_S64I64, CLS$K_LENGTH_S128 and CLS$K_LENGTH_DYN_CAT definitions is prefC ! Usage of the CLS$K_LENGTH_S64I64, CLS$K_LENGTH_S128 and CLS ! END UNION END STRUCTURE ! CLS ! G ! $CHANGE_CLASS, PARSE_CLASS, FORMAT_CLASS sy hstem service item codes ! H PARAMETER CLS$_SECSTR = '00000001'X ! Textual secrecy/security stringA PARAMETER CLS$_INTSTR = '00000002'X ! Textual integrity stringD PARAMETER CLS$_CLSBLK = '00000003'X ! Simple classification blockH PARAMETER CLS$_MINCLSBLK = '00000004'X ! Minimum classification blockH PARAMETER CLS$_MAXCLSBLK = '00000005'X ! Maximum classification blockJ PARAMETER CLS$_WIDTH = '00000006'X ! Width of display for $FORMAT_CLASSJ PARAMETER CLS$_TRMDSC = '00000007'X i! Line terminator for $FORMAT_CLASSI PARAMETER CLS$_INDENT = '00000008'X ! Line indenting for $FORMAT_CLASSI PARAMETER CLS$_OLDCLSBLK = '00000009'X ! Previous classification blockH PARAMETER CLS$_OLDMINCLS = '0000000A'X ! Previous minimum class blockH PARAMETER CLS$_OLDMAXCLS = '0000000B'X ! Previous maximum class blockb PARAMETER CLS$_TRANQUIL = '0000000C'X ! Override tranquility checks - Usage reserved to Digital@ PARAMETER CLS$_FLAGS = '0000000D'X ! Formatting control flags& !j ADD ITEM-CODES BEFORE THIS COMMENT+ PARAMETER CLS$_MIN_ITEM_CODE = '00000001'X+ PARAMETER CLS$_MAX_ITEM_CODE = '0000000D'X' PARAMETER CLS$M_COMPRESS = '00000001'X% PARAMETER CLS$M_EXPAND = '00000002'X STRUCTURE /CLS$$FILL_112_/ UNION MAP< INTEGER*4 CLS$L_FLAGS ! $FORMAT_CLASS control flags END MAP MAP% PARAMETER CLS$S_COMPRESS = 1J PARAMETER CLS$V_COMPRESS = 0 ! Compress category range strings# PARAMETER CLS$S_EXPAND = 1G k PARAMETER CLS$V_EXPAND = 1 ! Expande category range strings BYTE %FILL (1) END MAP END UNION END STRUCTURE ! CLS$$FILL_112_!DEC$ END OPTIONS wwfΦ!*** MODULE $CLUEVTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNB PARAMETER CLUEVTHNDL$K_LENGTH = '00000008'X ! Length of block. B PARAMETER CLUEVTHNDL$C_LENGTH = '00000008'X ! Length of block.  STRUCTURE /CLUEVTHNDL/' INTEGER*4 cluevthndl$l_cluacb_addr# INTEGER*4 clluevthndl$l_seq_num END STRUCTURE ! CLUEVTHNDL% PARAMETER CLUEVT$C_ADD = '00000001'X( PARAMETER CLUEVT$C_REMOVE = '00000002'X!DEC$ END OPTIONS ww,gΦ!*** MODULE $CMBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +! ! $CREMBX FLAGS bit definitions ! -' PARAMETER CMB$M_READONLY = '00000001'X( PARAMETER CMB$M_WRITEONLY = '00000002'X STRUCTURE /CMBDEF/ UNION MAP% PARAMETER CMB$S_READONLY = 1Z PARAMETER CMB$V_RmEADONLY = 0 ! Channel to be assigned to mailbox is READ ONLY.& PARAMETER CMB$S_WRITEONLY = 1\ PARAMETER CMB$V_WRITEONLY = 1 ! Channel to be assigned to mailbox is WRITE ONLY. BYTE %FILL (1) END MAP END UNION END STRUCTURE ! CMBDEF!DEC$ END OPTIONS wwܻΦ"!*** MODULE $CONVDEF IDENT X-4 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN& PARAMETER CONV$M_SIGNAL = '00000001'X* PARAMETER CONV$M_FDL_STRING = '00000002'X STRnUCTURE /CONVDEF/ UNION MAP INTEGER*2 %FILL END MAP MAP$ PARAMETER CONV$S_SIGNAL = 1$ PARAMETER CONV$V_SIGNAL = 0( PARAMETER CONV$S_FDL_STRING = 1( PARAMETER CONV$V_FDL_STRING = 1 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! CONVDEF- PARAMETER CONV$K_OPTIONS_COUNT = '00000000'X& PARAMETER CONV$K_CREATE = '00000001'X% PARAMETER CONV$K_SHARE = '00000002'X$ PARAMETER CONV$K_FAST = '00000003'X% PARAMETER CONV$K_MERGE o= '00000004'X& PARAMETER CONV$K_APPEND = '00000005'X$ PARAMETER CONV$K_SORT = '00000006'X* PARAMETER CONV$K_WORK_FILES = '00000007'X# PARAMETER CONV$K_KEY = '00000008'X# PARAMETER CONV$K_PAD = '00000009'X- PARAMETER CONV$K_PAD_CHARACTER = '0000000A'X( PARAMETER CONV$K_TRUNCATE = '0000000B'X$ PARAMETER CONV$K_EXIT = '0000000C'X- PARAMETER CONV$K_FIXED_CONTROL = '0000000D'X, PARAMETER CONV$K_FILL_BUCKETS = '0000000E'X* PARAMETER CONV$K_READ_CHECK = '0000000F'X+ PARAMETER CONV$K_WRITE_CHpECK = '00000010'X# PARAMETER CONV$K_FDL = '00000011'X) PARAMETER CONV$K_EXCEPTION = '00000012'X( PARAMETER CONV$K_PROLOGUE = '00000013'X/ PARAMETER CONV$K_IGNORE_PROLOGUE = '00000014'X) PARAMETER CONV$K_SECONDARY = '00000015'X+ PARAMETER CONV$K_MAX_OPTIONS = '00000015'X+ PARAMETER CONV$C_MAX_OPTIONS = '00000015'X' PARAMETER CONV$S_OPTIONS = '00000058'X STRUCTURE /CONV$OPTIONS/# INTEGER*4 CONV$L_OPTIONS_COUNT INTEGER*4 CONV$L_CREATE INTEGER*4 CONV$L_SHARE INTqEGER*4 CONV$L_FAST INTEGER*4 CONV$L_MERGE INTEGER*4 CONV$L_APPEND INTEGER*4 CONV$L_SORT INTEGER*4 CONV$L_WORK_FILES INTEGER*4 CONV$L_KEY INTEGER*4 CONV$L_PAD# INTEGER*4 CONV$L_PAD_CHARACTER INTEGER*4 CONV$L_TRUNCATE INTEGER*4 CONV$L_EXIT# INTEGER*4 CONV$L_FIXED_CONTROL" INTEGER*4 CONV$L_FILL_BUCKETS INTEGER*4 CONV$L_READ_CHECK! INTEGER*4 CONV$L_WRITE_CHECK INTEGER*4 CONV$L_FDL INTEGER*4 CONV$L_EXCEPTION r INTEGER*4 CONV$L_PROLOGUE% INTEGER*4 CONV$L_IGNORE_PROLOGUE INTEGER*4 CONV$L_SECONDARY END STRUCTURE ! CONV$OPTIONS0 PARAMETER CONV$K_STATISTICS_COUNT = '00000000'X* PARAMETER CONV$K_FILE_COUNT = '00000001'X, PARAMETER CONV$K_RECORD_COUNT = '00000002'X, PARAMETER CONV$K_EXCEPT_COUNT = '00000003'X+ PARAMETER CONV$K_VALID_COUNT = '00000004'X. PARAMETER CONV$K_MAX_STATISTICS = '00000004'X. PARAMETER CONV$C_MAX_STATISTICS = '00000004'X* PARAMETER CONV$S_STATISTICS = '00000014'X* s PARAMETER CONV$K_KEY_NUMBER = '00000005'X' PARAMETER CONV$K_REC_OUT = '00000006'X% PARAMETER CONV$K_NODES = '00000007'X' PARAMETER CONV$K_WRK_ALQ = '00000008'X( PARAMETER CONV$K_INI_RUNS = '00000009'X) PARAMETER CONV$K_MRG_ORDER = '0000000A'X* PARAMETER CONV$K_MRG_PASSES = '0000000B'X. PARAMETER CONV$K_SORT_DIO_COUNT = '0000000C'X. PARAMETER CONV$K_SORT_BIO_COUNT = '0000000D'X1 PARAMETER CONV$K_SORT_ELAPSED_TIME = '0000000E'X- PARAMETER CONV$K_SORT_CPU_TIME = '00000010'X- PARAMETER C tONV$K_SORT_PF_COUNT = '00000012'X. PARAMETER CONV$K_LOAD_DIO_COUNT = '00000013'X. PARAMETER CONV$K_LOAD_BIO_COUNT = '00000014'X1 PARAMETER CONV$K_LOAD_ELAPSED_TIME = '00000015'X- PARAMETER CONV$K_LOAD_CPU_TIME = '00000017'X- PARAMETER CONV$K_LOAD_PF_COUNT = '00000019'X. PARAMETER CONV$K_EXT_STATISTICS = '00000019'X. PARAMETER CONV$C_EXT_STATISTICS = '00000019'X. PARAMETER CONV$S_EXT_STATISTICS = '00000068'X STRUCTURE /CONV$STATISTICS/& INTEGER*4 CONV$L_STATISTICS_COUNT INTEGERu*4 CONV$L_FILE_COUNT" INTEGER*4 CONV$L_RECORD_COUNT" INTEGER*4 CONV$L_EXCEPT_COUNT! INTEGER*4 CONV$L_VALID_COUNT INTEGER*4 CONV$L_KEY_NUMBER INTEGER*4 CONV$L_REC_OUT INTEGER*4 CONV$L_NODES INTEGER*4 CONV$L_WRK_ALQ INTEGER*4 CONV$L_INI_RUNS INTEGER*4 CONV$L_MRG_ORDER INTEGER*4 CONV$L_MRG_PASSES$ INTEGER*4 CONV$L_SORT_DIO_COUNT$ INTEGER*4 CONV$L_SORT_BIO_COUNT* INTEGER*4 CONV$Q_SORT_ELAPSED_TIME(2)& INTEGER*4 CONV$Q_SORT_C vPU_TIME(2)# INTEGER*4 CONV$L_SORT_PF_COUNT$ INTEGER*4 CONV$L_LOAD_DIO_COUNT$ INTEGER*4 CONV$L_LOAD_BIO_COUNT* INTEGER*4 CONV$Q_LOAD_ELAPSED_TIME(2)& INTEGER*4 CONV$Q_LOAD_CPU_TIME(2)# INTEGER*4 CONV$L_LOAD_PF_COUNT END STRUCTURE ! CONV$STATISTICS0 PARAMETER RECL$K_STATISTICS_COUNT = '00000000'X* PARAMETER RECL$K_SCAN_COUNT = '00000001'X* PARAMETER RECL$K_DATA_COUNT = '00000002'X+ PARAMETER RECL$K_INDEX_COUNT = '00000003'X+ PARAMETER RECL$K_TOTAL_COUNT = '0000000w4'X. PARAMETER RECL$K_MAX_STATISTICS = '00000004'X. PARAMETER RECL$C_MAX_STATISTICS = '00000004'X* PARAMETER RECL$S_STATISTICS = '00000014'X STRUCTURE /RECL$STATISTICS/& INTEGER*4 RECL$L_STATISTICS_COUNT INTEGER*4 RECL$L_SCAN_COUNT INTEGER*4 RECL$L_DATA_COUNT! INTEGER*4 RECL$L_INDEX_COUNT! INTEGER*4 RECL$L_TOTAL_COUNT END STRUCTURE ! RECL$STATISTICS!DEC$ END OPTIONSww=ƀΦ! ******************************************************************** x************************************************************;! Created: 30-AUG-2007 11:29:34 by OpenVMS SDL IA64-2 ]! Source: 30-AUG-2007 11:29:33 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]$CONVMSGDEF.SDI;1 ! ******************************************************************************************************************************** !*** MODULE $CONVMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 o yn 28-AUG-2007 13:35:04.75 ! L ! *************************************************************************L ! * *L ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978, 1980, 1982, 1984, * ! * 1991,1992 *L ! * ALL RIGHTS RESERVED. *L ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *L ! * STATES. z *L ! * *L ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *L ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *L ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *L ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *L ! * DIGITAL EQUIPMENT CORPORATION. *L ! * { *L ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *L ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *L ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *L ! * *L ! ************************************************************************* !  ! ++ !  ! FACILITY: VAX-11 CONVERT ! | ! ENVIRONMENT: !  ! VAX/VMS OPERATING SYSTEM ! ! ABSTRACT:/ ! CONVERT AND CONVERT/RECLAIM ERROR MESSAGES !  ! 7 ! AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980 !  !  ! MODIFIED BY: ! ) ! X-4 BP026 BOB PREMOVICH 29-MAY-19988 ! CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT5 ! WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO7 ! FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET ! FACILITY. ! * ! X-3 CW002 CHRIS WHITAKER 2}6-AUG-1992 ! MERGE IN AMBER CHANGES. ! - ! X-2 SBL1003 STEVEN B. LIONEL 13-DEC-1991" ! SET MACRO NAME TO $CONVMSGDEF ! 0 ! X-2 RMM0004 RICHARD M. MARSHALL 9-AUG-1991/ ! PORTED TO ALPHA. CORRECTED MORE SPELLING. ! . ! V03-005 RAS0318 RON SCHAEFER 27-JUN-1984( ! FIX SPELLINGS AND TEXT OF MESSAGES. ! 2 ! V03-004 KBT0468 KEITH B. THOMPSON 21-JAN-1983 ! CHANGE THE TEXT OF RSZ ! 2 ! V03-003 KBT0438 KEITH B. THOMPSON 30-DEC-1982 ! CHANGE THE TEXT OF CR~EA_ERR ! 2 ! V03-002 KBT0394 KEITH B. THOMPSON 29-OCT-19829 ! CHANGE THE MESSGAE TEXT OF PROERR TO INCLUDE VBN AND% ! MAKE THE SIGNED VALUES UNSIGNED. ! / ! V03-001 KBT0039 KEITH THOMPSON 3-APR-1982* ! CHANGE THE EXCEPTION MESSAGES TO INFO !  ! ***** PARAMETER CONVERT$_FACILITY = '000000B2'X[ PARAMETER CONV$_CREATEDSTM = '00B212FB'X ! /FAO=1I PARAMETER CONV$_INSVIRMEM = '00B212F2'X ! D PARAMETER CONV$_OPENERR = '00B2138A'X ! /FAO=1L PARAMETER CONV$_OPENIN = '00B2109A'X ! /FAO=1N PARAMETER CONV$_OPENOUT = '00B210A2'X ! /FAO=1D PARAMETER CONV$_READERR = '00B210B2'X ! /FAO=1E PARAMETER CONV$_WRITEERR = '00B210D2'X ! /FAO=1M PARAMETER CONV$_CLOSEIN = '00B21052'X ! /FAO=1O PARAMETER CONV$_CLOSEOUT = '00B2105A'X ! /FAO=1J PARAMETER CONV$_BADLOGIC = '00B21122'X ! @ PARAMETER CONV$_NOWILD = '00B2112A'X ! P PARAMETER CONV$_VALERR = '00B211EA'X ! C PARAMETER CONV$_CONFQUAL = '00B212E2'X ! & PARAMETER CONV$_FAO_MAX = '00000002'X! PARAMETER CONV$_NI = '00B2800B'X" PARAMETER CONV$_PAD = '00B28013'X" PARAMETER CONV$_RMS = '00B2801B'X" PARAMETER CONV$_RTL = '00B28023'X" PARAMETER CONV$_RTS = '00B2802B'X" PARAMETER CONV$_VFC = '00B28033'X" PARAMETER CONV$_DUP = '00B2803B'X" PARAMETER CONV$_KEY = '00B28043'X" PARAMETER CONV$_REX = '00B2804B'X" PARAMETER CONV$_RSK = '00B28053'X" PARAMETER CONV$_RSZ = '00B2805B'X" PARAMETER CONV$_SEQ = '00B28063'X% PARAMETER CONV$_BADBLK = '00B2806A'X' PARAMETER CONV$_CREA_ERR = '00B28072'X5 PARAMETER CONV$_DELPRI = '00B2807A'X ! UNUSED IN V4' PARAMETER CONV$_EXTN_ERR = '00B28082'X' PARAMETER CONV$_FATALEXC = '00B2808A'X& PARAMET ER CONV$_BADSORT = '00B28092'X% PARAMETER CONV$_FILLIM = '00B2809A'X& PARAMETER CONV$_IDX_LIM = '00B280A2'X& PARAMETER CONV$_ILL_KEY = '00B280AA'X( PARAMETER CONV$_ILL_VALUE = '00B280B2'X( PARAMETER CONV$_INP_FILES = '00B280BA'X5 PARAMETER CONV$_KEYREF = '00B280C2'X ! UNUSED IN V4& PARAMETER CONV$_LOADIDX = '00B280CA'X# PARAMETER CONV$_NARG = '00B280D2'X$ PARAMETER CONV$_NOKEY = '00B280DA'X% PARAMETER CONV$_NOTIDX = '00B280E2'X% PARAMETER CONV$_NOTSEQ = '00B280EA'X$ PARAMETER CONV$_ORDER = '00B280F2'X& PARAMETER CONV$_OPENEXC = '00B280FA'X% PARAMETER CONV$_PROERR = '00B28102'X' PARAMETER CONV$_PROL_WRT = '00B2810A'X& PARAMETER CONV$_UDF_BKS = '00B28112'X& PARAMETER CONV$_UDF_BLK = '00B2811A'X% PARAMETER CONV$_INVBKT = '00B28122'X" PARAMETER CONV$_PLV = '00B2812A'X!DEC$ END OPTIONSwwvggΦ!*** MODULE $CPUIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN= PARAMETER CPUI$K_TICKS = '00000001'X ! Get CPU's tick info ! + ! CPUI Flags Definitions  ! -& PARAMETER CPUI$M_SEARCH = '00000001'X( PARAMETER CPUI$M_RESERVED = 'FFFFFFFE'X STRUCTURE /CPUI_FLAGS/ UNION MAP INTEGER*4 CPUI$L_FLAGS END MAP MAP( PARAMETER CPUI$S_SEARCH = 1T PARAMETER CPUI$V_SEARCH = 0 ! If CPU not active, search for next CPU+ PARAMETER CPUI$S_RESERVED = 31* PARAMETER CPUI$V_RESERVED = 1F BYTE %FILL (4) ! No other flags defined at  this time END MAP END UNION END STRUCTURE ! CPUI_FLAGSF PARAMETER CPUI$K_KERNEL_TICKS_INDEX = '00000000'X ! 0 - kernel modeB PARAMETER CPUI$K_EXEC_TICKS_INDEX = '00000001'X ! 1 - exec modeD PARAMETER CPUI$K_SUPER_TICKS_INDEX = '00000002'X ! 2 - super modeB PARAMETER CPUI$K_USER_TICKS_INDEX = '00000003'X ! 3 - user modeA PARAMETER CPUI$K_INT_TICKS_INDEX = '00000004'X ! 4 - interruptC PARAMETER CPUI$K_MPSYNCH_TICKS_INDEX = '00000005'X ! 5 - mpsynch= PARAMETER CPUI$K_IDLE_TICKS_INDEX = '00000006'X ! 6 - idleM PARAMETER CPUI$K_TICKS_ENTRIES = '00000007'X ! 7 - Total number of entries!DEC$ END OPTIONS ww"Φ!*** MODULE $CQUALDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN+ PARAMETER UTIL$M_CQF_CONFIRM = '00000001'X+ PARAMETER UTIL$M_CQF_EXCLUDE = '00000002'X* PARAMETER UTIL$M_CQF_BEFORE = '00000004'X) PARAMETER UTIL$M_CQF_SINCE = '00000008'X+ PARAMETER UTIL$M_CQF_CREATED = '00000010'X, PARAMETER UTI L$M_CQF_MODIFIED = '00000020'X+ PARAMETER UTIL$M_CQF_EXPIRED = '00000040'X* PARAMETER UTIL$M_CQF_BACKUP = '00000080'X+ PARAMETER UTIL$M_CQF_BYOWNER = '00000100'X, PARAMETER UTIL$M_CQF_ACCESSED = '00000200'X. PARAMETER UTIL$M_CQF_ATTRIBUTES = '00000400'X/ PARAMETER UTIL$M_CQF_UPDATE_DATA = '00000800'X STRUCTURE /CFQUALS/ UNION MAP- PARAMETER UTIL$S_CQF_CONFIRM = 12 PARAMETER UTIL$V_CQF_CONFIRM = 0 ! - PARAMETER UTIL$S_CQF_EXCLUDE = 1 2 PARAMETER UTIL$V_CQF_EXCLUDE = 1 ! , PARAMETER UTIL$S_CQF_BEFORE = 12 PARAMETER UTIL$V_CQF_BEFORE = 2 ! + PARAMETER UTIL$S_CQF_SINCE = 11 PARAMETER UTIL$V_CQF_SINCE = 3 ! - PARAMETER UTIL$S_CQF_CREATED = 12 PARAMETER UTIL$V_CQF_CREATED = 4 ! . PARAMETER UTIL$S_CQF_MODIFIED = 13 PARAMETER UTIL$V_CQF_MODIFIED = 5 ! - PARAMETER UTIL$S_CQF_EXPIRED = 12  PARAMETER UTIL$V_CQF_EXPIRED = 6 ! , PARAMETER UTIL$S_CQF_BACKUP = 12 PARAMETER UTIL$V_CQF_BACKUP = 7 ! - PARAMETER UTIL$S_CQF_BYOWNER = 11 PARAMETER UTIL$V_CQF_BYOWNER = 8 ! . PARAMETER UTIL$S_CQF_ACCESSED = 12 PARAMETER UTIL$V_CQF_ACCESSED = 9 ! 0 PARAMETER UTIL$S_CQF_ATTRIBUTES = 15 PARAMETER UTIL$V_CQF_ATTRIBUTES = 10 ! 1 PARAMETER UTIL$S_CQF_UPDATE_DATA = 16  PARAMETER UTIL$V_CQF_UPDATE_DATA = 11 !  BYTE %FILL (2) END MAP MAP/ PARAMETER UTIL$S_CQF_ASSIGNED = 12. PARAMETER UTIL$V_CQF_ASSIGNED = 01 PARAMETER UTIL$S_CQF_UNASSIGNED = 201 PARAMETER UTIL$V_CQF_UNASSIGNED = 12 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! CFQUALS ! " ! define prompt parameter values ! / PARAMETER UTIL$K_CQF_UNSPECIFIED = '00000000'X) PARAM ETER UTIL$K_CQF_SHORT = '00000001'X( PARAMETER UTIL$K_CQF_LONG = '00000002'X- PARAMETER UTIL$K_CQF_CONDENSED = '00000001'X, PARAMETER UTIL$K_CQF_EXPANDED = '00000002'X, PARAMETER UTIL$K_CQF_MAX_FORM = '00000002'X !  ! TO BE REMOVED* PARAMETER LIB$M_CQF_CONFIRM = '00000001'X* PARAMETER LIB$M_CQF_EXCLUDE = '00000002'X) PARAMETER LIB$M_CQF_BEFORE = '00000004'X( PARAMETER LIB$M_CQF_SINCE = '00000008'X* PARAMETER LIB$M_CQF_CREATED = '00000010'X+ PARAMETER LIB$M_CQF_MODIFIED = '00000020'X* PARAMETER LIB$M_CQF_EXPIRED = '00000040'X) PARAMETER LIB$M_CQF_BACKUP = '00000080'X* PARAMETER LIB$M_CQF_BYOWNER = '00000100'X STRUCTURE /CQUALS/ UNION MAP, PARAMETER LIB$S_CQF_CONFIRM = 12 PARAMETER LIB$V_CQF_CONFIRM = 0 ! , PARAMETER LIB$S_CQF_EXCLUDE = 12 PARAMETER LIB$V_CQF_EXCLUDE = 1 ! + PARAMETER LIB$S_CQF_BEFORE = 11 PARAMETER LIB$V_CQF_BEFORE = 2 ! * PARAMETER LIB$S _CQF_SINCE = 10 PARAMETER LIB$V_CQF_SINCE = 3 ! , PARAMETER LIB$S_CQF_CREATED = 12 PARAMETER LIB$V_CQF_CREATED = 4 ! - PARAMETER LIB$S_CQF_MODIFIED = 12 PARAMETER LIB$V_CQF_MODIFIED = 5 ! , PARAMETER LIB$S_CQF_EXPIRED = 12 PARAMETER LIB$V_CQF_EXPIRED = 6 ! + PARAMETER LIB$S_CQF_BACKUP = 11 PARAMETER LIB$V_CQF_BACKUP = 7 ! , PARAMETER LIB$S_CQF_BYOWNER = 11 PARAMETER LIB$V_CQF_BYOWNER = 8 !  BYTE %FILL (2) END MAP MAP- PARAMETER LIB$S_CQF_ASSIGNED = 9- PARAMETER LIB$V_CQF_ASSIGNED = 00 PARAMETER LIB$S_CQF_UNASSIGNED = 23/ PARAMETER LIB$V_CQF_UNASSIGNED = 9 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! CQUALS!DEC$ END OPTIONSwwgΦ!*** MODULE $CRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! CARD READER STATUS BITS ! -# PARAMETER CR$M_TMODE = '0000000F'XA PARAMETER CR$K_T026 = '00000000'X ! 026 PUNCH CODE TRANSLATION A PARAMETER CR$K_T029 = '00000001'X ! 029 PUNCH CODE TRANSLATION  STRUCTURE /CRDEF/ UNION MAP! PARAMETER CR$S_TMODE = 48 PARAMETER CR$V_TMODE = 0 ! TRANSLATION MODE  BYTE %FILL (1) END MAP ! ! TRANSLATION MODE DEFINITIONS !  ! END UNION END STRUCTURE ! CRDEF!DEC$ END OPTIONS ww %>Φ!*** MODULE $CREDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Create options table ! D PARAMETER CRE$C_VMSV2 = '00000002'X ! VMS version V04-000 format > PARAMETER CRE$C_VMSV3 = '00000003'X ! VMS version 3 format O PARAMETER CRE$C_VMSV4 = '00000004'X ! VMS version 4 format for an ELF files.O PARAMETER CRE$C_VMSV5 = '00000005'X ! VMS version 5 format for an ELF files.O PARAMETER CRE$C_VMSV6 = '00000006'X ! VMS versi on 6 format for an ELF files.( PARAMETER CRE$M_NOCASECMP = '00000001'X( PARAMETER CRE$M_NOCASENTR = '00000002'X( PARAMETER CRE$M_UPCASNTRY = '00000004'XW PARAMETER CRE$C_HLPCASING = '00000006'X ! Treat upper casing as it is for HELP libs Y PARAMETER CRE$C_OBJCASING = '00000003'X ! Treat upper casing as it is for OBJECT libs a PARAMETER CRE$C_MACTXTCAS = '00000000'X ! Treat upper casing as it is for MACRO and TEXT libs * PARAMETER CRE$K_LENGTH = '00000050'X ! * PARAMETER CRE$C_LENGT H = '00000050'X !  STRUCTURE /CREDEF/0 INTEGER*4 CRE$L_TYPE ! Type of library ' ! (library types defined in $LBRDEF)< INTEGER*4 CRE$L_KEYLEN ! Length of keys in library 9 INTEGER*4 CRE$L_ALLOC ! Initial file allocation < INTEGER*4 CRE$L_IDXMAX ! Maximum number of indices H INTEGER*4 CRE$L_UHDMAX ! Size of additional module header data J INTEGER*4 CRE$L_ENTALL ! Number of index entries to pre-allocate T INTEGER*4 CRE$L_LUHMAX ! Nu mber of library update history records to store D INTEGER*4 CRE$L_VERTYP ! Version type of library to create UNION MAP4 INTEGER*4 CRE$L_IDXOPT ! Index options  END MAP MAP* PARAMETER CRE$S_NOCASECMP = 1P PARAMETER CRE$V_NOCASECMP = 0 ! Do not upper case the match key * PARAMETER CRE$S_NOCASENTR = 1d PARAMETER CRE$V_NOCASENTR = 1 ! Do not upper case the index key when comparing with C  ! Do not upper case the index key when comparing with a match* PARAMETER CRE$S_UPCASNTRY = 1d PARAMETER CRE$V_UPCASNTRY = 2 ! Upper case the index key when entering it into the l BYTE %FILL (1) END MAP END UNION7 INTEGER*4 %FILL(1:11) ! Reserved 11 longwords  END STRUCTURE ! CREDEF!DEC$ END OPTIONSwwΦ!*** MODULE $CRFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! CRF$IN SRTREF ARGUMENT LIST !  STRUCTURE /CRFDEF/+ INTEGER*4 %FILL ! ARGUMENT COUNT : INTEGER*4 CRF$L_IR_CTLTBL ! CRF CONTROL TABLE ADR 0 INTEGER*4 CRF$L_IR_KEYADR ! KEY ADDRESS < INTEGER*4 CRF$L_IR_REFADR ! REFERENCE INDICATOR ADR > INTEGER*2 CRF$W_IR_REFLAG ! REFERENCE INDICATOR FLAGS ' BYTE %FILL(1:2) ! UNUSED 9 BYTE CRF$B_IR_DEFIND ! DEFINITION INDICATOR ' BYTE %FILL(1:3) ! UNUSED  END STRUCTURE ! CRFDEF !  ! CRF$INSRTKEY ARGUMENT LIST !  STRUCTURE /CRFDEF1/+ INTEGER*4 %FILL ! ARGUMENT COUNT : INTEGER*4 CRF$L_IK_CTLTBL ! CRF CONTROL TABLE ADR 3 INTEGER*4 CRF$L_IK_KEYADR ! ADDRESS OF KEY 5 INTEGER*4 CRF$L_IK_VALADR ! ADDRESS OF VALUE 0 INTEGER*2 CRF$W_IK_VALFLG ! VALUE FLAGS ' BYTE %FILL(1:2) ! UNUSED  END STRUCTURE ! CRFDEF1 !  ! CRF$OUT ARGUMENT LIST !  STRUCTURE /CRFDEF2/+ INTEGER*4 %FILL ! ARGUMENT COUNT :  INTEGER*4 CRF$L_OU_CTLTBL ! CRF CONTROL TABLE ADR 6 INTEGER*4 CRF$L_OU_LINWID ! OUTPUT LINE WIDTH 2 BYTE CRF$B_OU_PAG1 ! ! LINES/PAGE 1 ' BYTE %FILL(1:3) ! UNUSED = BYTE CRF$B_OU_SUCPAG ! ! LINES/SUCCESSIVE PAGES ' BYTE %FILL(1:3) ! UNUSED 8 BYTE CRF$B_OU_PRTIND ! REF PRINT INDICATOR ' BYTE %FILL(1:3) ! UNUSED 3 BYTE CRF$B_OU_SAVIND ! SAVE INDICATOR  END STRUCTURE ! CRFDEF2 !  ! CRF CONTROL TABLE OFFSETS ! % PARAMETER CRF$M_MULDEF = '00000001'X STRUCTURE /CRFDEF3/4 INTEGER*4 CRF$L_HASHT ! HASH TABLE ADDRESS > INTEGER*4 CRF$L_LASTKEY ! LAST KEY LOOKED AT ADDRESS UNION MAP< BYTE CRF$B_KEYTYPE ! TYPE OF KEY IN TABLE  END MAP MAP' PARAMETER CRF$S_BINARY = 1X PARAMETER CRF$V_BINARY = 0 ! OBSOLETE FIELD. RETAINED FOR COMPATIBLILTY BYTE %FILL (1) END MAP END UNION UNION MAPE BYTE CRF$B_FLAGS ! MISC. FLAGS FOR FUTURE EXPANSION END MAP MAP' PARAMETER CRF$S_MULDEF = 1; PARAMETER CRF$V_MULDEF = 0 ! Multi-Definers BYTE %FILL (1) END MAP END UNION> INTEGER*2 CRF$W_ERRSTS ! SECONDARY ERROR STATUS CODE H INTEGER*4 CRF$L_ENTRIES ! NUMBER OF ENTRIES IN CROSS REFERENCE A INTEGER*4 CRF$L_DYNMEM(1:2) ! LISTHEAD OF DYNAMI C MEMORY G INTEGER*4 CRF$L_MAXBLK ! SIZE (IN BYTES) OF BLOCK TO ALLOCATE G INTEGER*4 CRF$L_MEMEXP ! SIZE (IN PAGES) OF BLOCK TO ALLOCATE < INTEGER*2 CRF$W_CTLTABVER ! VERSION OF CONTROL TABLEK BYTE CRF$B_VALTYPE ! SYMBOL VALUE DATA TYPE (Ver 1 and later)O BYTE CRF$B_REFTYPE ! SYMBOL REFERENCE DATA TYPE (Ver 1 and later)' INTEGER*4 %FILL(1:7) ! SPARES 7 INTEGER*4 CRF$L_ERROR ! ERROR ROUTINE ADDRESS 9 INTEGER*4 CRF$L_OUT PUT ! OUTPUT ROUTINE ADDRESS = INTEGER*4 CRF$L_K1FMTBL ! KEY1 FIELD FORMAT TBL ADR = INTEGER*4 CRF$L_K2FMTBL ! KEY2 FIELD FORMAT TBL ADR = INTEGER*4 CRF$L_V1FMTBL ! VAL1 FIELD FORMAT TBL ADR = INTEGER*4 CRF$L_V2FMTBL ! VAL2 FIELD FORMAT TBL ADR = INTEGER*4 CRF$L_R1FMTBL ! REF1 FIELD FORMAT TBL ADR = INTEGER*4 CRF$L_R2FMTBL ! REF2 FIELD FORMAT TBL ADR  END STRUCTURE ! CRFDEF3!DEC$ END OPTIONSwwx6Φ!*** MODULE $CRFMSG ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.98 !  !  !  ! VERSION: 'V04-004' !  ! F ! COPYRIGHT 1978-2004 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. !  ! RESTRICTED RIGHTS LEGEND ! J ! USE, DUPLICATION OR DISCLOSURE BY THE U.S. GOVERNMENT IS SUBJECT TOI ! RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH (C)(1)(II) OF THE RIGHTSL ! IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE IN DFARS 252.227-7013. ! / ! HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P ! 3000 HANOVER STREET ! PALO ALTO, CA 94304 ! U.S.A. ! I ! RIGHTS FOR NON-DOD U.S. GOVERNMENT DEPARTMENTS AND AGENCIES ARE AS* ! SET FORTH IN FAR 52.227-19(C)(1,2).2 ! UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. !  ! 3 ! RETURN STATUS CODES FOR CROSS REFERENCE PROGRAM !  ! MODIFIED BY: ! 0 ! V04-004 TMS0569 TODD SCHOELLER 27-DEC-2004 ! ADD NOFOOTNOTES. ! 0 ! V04-003 TMS0567 TODD SCHOELLER 6-OCT-2004, ! ADD MULDEFFMT FOR MULTI-DEFINER SUPPORT ! 0 ! V04-002 TMS0532 TODD SCHOELLER 16-OCT-20032 ! ADD CROPPING FOR CROPPING/FOOTNOTING SUPPORT. ! 0 ! V04-001 TMS0294 TODD SCHOELLER 4-NOV-1994. ! ADD ARGCOUNT FOR ARGUMENT COUNT CHECKING. ! / ! V02-002 BLS0156 BENN SCHREIBER 1-MAR-1982 ! REMOVE UNUSED MESSAGES ! / ! V02-001 BLS0123 BENN SCHREIBER 19-DEC-1981 ! CHANGE TEXT OF FAOFAIL !  ! % ! SUCCESS CODES (SEVERITY LEVEL 1) ! ' PARAMETER CREF$_FACILITY = '00000065'X% PARAMETER CRF$_SUCCESS = '00658001'X( PARAMETER CRF$_KEYPRVENTR = '00658009'X( PARAMETER CRF$_KEY1STENTR = '00658011'X( PARAMETER CRF$_REFPRVENTR = '00658019'X% PARAMETER CRF$_UNUSERR = '00658021'X" PARAMETER CRF$_CROP = '00658029'X ! * ! SEVERE ERROR CODES (SEVERITY LEVEL 2) ! % PARAMETER CRF$_UNUERR1 = '00658052'X% PARAMETER CRF$_UNUERR2 = '0065805A'X% PARAMETER CRF$_UNUERR3 = '00658062'X% PARAMETER CRF$_UNUERR4 = '0065806A'X% PARAMETER CRF$_UNUERR5 = '00658072'X% PARAMETER CRF$_UNUERR6 = '0065807A'X% PARAMETER CRF$_UNUERR7 = '00658082'X' PARAMETER CRF$_NO_OUTRTN = '0065808A'X% PARAMETER CRF$_LINELNG = '00658092'X% PARAMETER CRF$_FAOFAIL = '0065809A'X% PARAMETER CRF$_UNUERR8 = '006580A2'X% PARAMETER CRF$_BADTYPE = '006580AA'X& PARAMETER CRF$_ARGCOUNT = '006580B2'X' PARAMETER CRF$_MULDEFFMT = '006580BA'X) PARAMETER CRF$_NOFOOTNOTES = '006580C2'X!DEC$ END OPTIONSww hΦ !*** MODULE CSHDEF IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! $SCHED function codesE PARAMETER CSH$_READ_ALL = '00000017'X ! Read data on all processesE PARAMETER CSH$_READ_NEW = '00000018'X ! Read data on new processesL PARAMETER CSH$_SET_CLASS = '00000019'X ! Place process(es) into class(es)" PARAMETER CSH$_RES1 = '0000001A'X" PARAMETER CSH$_RES2 = '0000001B'X" PARAMETER CSH$_RES3 = '0000001C'X" PARAMET ER CSH$_RES4 = '0000001D'XF PARAMETER CSH$_SET_NEW = '0000001E'X ! Define this process as "new"? PARAMETER CSH$_SET_TIMEOUT = '0000001F'X ! Set deadman timer" PARAMETER CSH$_RES5 = '00000020'X" PARAMETER CSH$_RES6 = '00000021'X" PARAMETER CSH$_RES7 = '00000022'X" PARAMETER CSH$_RES8 = '00000023'XL PARAMETER CSH$_READ_QUANT = '00000024'X ! Read per-class quanta remainingC PARAMETER CSH$_SET_QUANT = '00000025'X ! Define per-class quanta" PARAMETER CSH$_RES9 = '00000026'X" PARAMETER C SH$_RESA = '00000027'X" PARAMETER CSH$_RESB = '00000028'X" PARAMETER CSH$_RESC = '00000029'XF PARAMETER CSH$_SET_ATTN_AST = '0000002A'X ! Establish attention AST" PARAMETER CSH$_RSED = '0000002B'X" PARAMETER CSH$_RESE = '0000002C'X" PARAMETER CSH$_RESF = '0000002D'X" PARAMETER CSH$_RES0 = '0000002E'XD PARAMETER CSH$_CLEAR_ATTN_AST = '0000002F'X ! Clear attention AST, PARAMETER CSH$_MAX_SCHED_FUNC = '00000030'X ! AST reason mask@ PARAMETER CSH$V_NEW_PROC = '00000001'X ! Possible new  process( ! CSHC -- Class ScHeduler Class block  ! K ! Used to communicate from user to system, defining process/class mapping& PARAMETER CSHC$K_LENGTH = '00000008'X& PARAMETER CSHC$C_LENGTH = '00000008'X STRUCTURE /CSHC/7 INTEGER*4 CSHC$L_EPID ! EPID of target processC INTEGER*2 CSHC$W_CLASS ! Class number, 0-N, %X'FFFF' means" ! `Take out of class scheduling'; INTEGER*2 CSHC$W_WINDFALL ! Windfall ticks to grant END STRUCTURE ! CSHC4 ! CSHP -- Class Sc Heduler data block for Processes ! L ! Used to communicate from system to user, showing various characteristics ! of processes.& PARAMETER CSHP$K_LENGTH = '00000018'X& PARAMETER CSHP$C_LENGTH = '00000018'X STRUCTURE /CSHP/4 INTEGER*4 CSHP$L_STATUS ! Copy of PCB$L_STS2 INTEGER*2 CSHP$W_PIX ! Process index slot; BYTE CSHP$B_PRI ! Current priority (internal)A BYTE CSHP$B_PRIB ! Current base priority (internal)1 INTEGER*4 CSHP$L_EPID !  The official PID< CHARACTER*8 CSHP$T_ACCOUNT ! Account string from PCB3 INTEGER*4 CSHP$L_CPUTIM ! CPU time charged END STRUCTURE ! CSHP!DEC$ END OPTIONS wwTLhΦ!*** MODULE $CSTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! 3 ! Constants defining single-transition operations ! ' PARAMETER CST$K_CPU_STOP = '00000001'X* PARAMETER CST$K_CPU_MIGRATE = '00000002'X( PARAMETER CST$K_CPU_START = '00000003'X) PARAMETER C ST$K_CPU_ASSIGN = '00000004'X+ PARAMETER CST$K_CPU_DEASSIGN = '00000005'X+ PARAMETER CST$K_CPU_FAILOVER = '00000006'X, PARAMETER CST$K_CPU_POWER_OFF = '00000007'X+ PARAMETER CST$K_CPU_POWER_ON = '00000008'X ! > ! Constants defining multiple operation masks. The starting> ! position of these values must be in the upper word to save+ ! space for future single-operation codes ! ( PARAMETER CST$m_reserved1 = '000000FF'X' PARAMETER CST$M_CPU_STOP = '00000100'X* PARAMETER CST$M_CPU _MIGRATE = '00000200'X( PARAMETER CST$M_CPU_START = '00000400'X) PARAMETER CST$M_CPU_ASSIGN = '00000800'X+ PARAMETER CST$M_CPU_DEASSIGN = '00001000'X+ PARAMETER CST$M_CPU_FAILOVER = '00002000'X, PARAMETER CST$M_CPU_POWER_OFF = '00004000'X+ PARAMETER CST$M_CPU_POWER_ON = '00008000'X STRUCTURE /CST_MASK/& PARAMETER CST$S_reserved1 = 8& PARAMETER CST$V_reserved1 = 0% PARAMETER CST$S_CPU_STOP = 1% PARAMETER CST$V_CPU_STOP = 8( PARAMETER CST$S_CPU _MIGRATE = 1( PARAMETER CST$V_CPU_MIGRATE = 9& PARAMETER CST$S_CPU_START = 1' PARAMETER CST$V_CPU_START = 10' PARAMETER CST$S_CPU_ASSIGN = 1( PARAMETER CST$V_CPU_ASSIGN = 11) PARAMETER CST$S_CPU_DEASSIGN = 1* PARAMETER CST$V_CPU_DEASSIGN = 12) PARAMETER CST$S_CPU_FAILOVER = 1* PARAMETER CST$V_CPU_FAILOVER = 13* PARAMETER CST$S_CPU_POWER_OFF = 1+ PARAMETER CST$V_CPU_POWER_OFF = 14) PARAMETER CST$S_CPU_POWER_ON = 1* PARAMETER CST$V_CPU_POWER_ON = 15 BYTE %FILL (2) END STRUCTURE ! CST_MASK ! = ! Constants defining target software nodes for reassignment !  PARAMETER CST$K_PARTITION = -1 PARAMETER CST$K_COMMUNITY = -2$ PARAMETER CST$K_HARD_PARTITION = -3 PARAMETER CST$K_SW_ROOT = -4 ! ! Constants defining CPU types ! # PARAMETER CST$K_ANY_OWNED_CPU = -1$ PARAMETER CST$K_ANY_ACTIVE_CPU = -2% PARAMETER CST$K_ANY_STOPPED_CPU = -3% PARAMETER CST$K_ANY_UNOWNED_CPU = -4 ! 5 ! Constants defining flag parameter characteristics ! 7 PARAMETER CST$M_CPU_DEFAULT_CAPABILITIES = '00000001'X0 PARAMETER CST$M_CPU_ALLOW_ORPHANS = '00000002'X STRUCTURE /CST_FLAGS/5 PARAMETER CST$S_CPU_DEFAULT_CAPABILITIES = 15 PARAMETER CST$V_CPU_DEFAULT_CAPABILITIES = 0. PARAMETER CST$S_CPU_ALLOW_ORPHANS = 1. PARAMETER CST$V_CPU_ALLOW_ORPHANS = 1 BYTE %FILL (1) END STRUCTURE ! CST_FLAGS!DEC$ END OPTIONS  wwȘΦ!*** MODULE $cvtdef ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNF PARAMETER CVT$K_VAX_F = '00000000'X ! VAX F Floating point dataF PARAMETER CVT$K_VAX_D = '00000001'X ! VAX D Floating point dataF PARAMETER CVT$K_VAX_G = '00000002'X ! VAX G Floating point dataF PARAMETER CVT$K_VAX_H = '00000003'X ! VAX H Floating point dataG PARAMETER CVT$K_IEEE_S = '00000004'X ! IEEE S Floating point dataG PARAMETER CVT$K_IEEE_T = '00000005'X ! IEEE T Floating point dataI PARAMETER CVT$K_IBM_LONG = '00000006'X ! IBM Long Floating point dataJ PARAMETER CVT$K_IBM_SHORT = '00000007'X ! IBM Short Floating point dataE PARAMETER CVT$K_CRAY = '00000008'X ! Cray Floating point dataG PARAMETER CVT$K_IEEE_X = '00000009'X ! IEEE X Floating point dataR PARAMETER CVT$K_BIG_ENDIAN_IEEE_S = '0000000A'X ! IEEE S Floating point dataR PARAMETER CVT$K_BIG_ENDIAN_IEEE_T = '0000000B'X ! IEEE S Floating point dataR PARAMETER CVT$K_BIG_ENDIAN_IEEE_X = '0000000C'X ! IEEE S Floating point data* PARAMETER CVT$K_CRAY_SINGLE = '00000008'X ! " ! Function Return Status Values: ! % PARAMETER CVT$K_NORMAL = '00000000'X1 PARAMETER CVT$M_INVALID_INPUT_TYPE = '00000001'X2 PARAMETER CVT$M_INVALID_OUTPUT_TYPE = '00000002'X- PARAMETER CVT$M_INVALID_OPTION = '00000004'X. PARAMETER CVT$M_RESULT_INFINITE = '00000008'X2 PARAMETER CVT$M_RESULT_DENORMALIZED = '00000010'X4 PARAMETER CVT$M_RESULT_OVERFLOW _RANGE = '00000020'X5 PARAMETER CVT$M_RESULT_UNDERFLOW_RANGE = '00000040'X2 PARAMETER CVT$M_RESULT_UNNORMALIZED = '00000080'X- PARAMETER CVT$M_RESULT_INVALID = '00000100'X. PARAMETER CVT$M_RESULT_OVERFLOW = '00000200'X/ PARAMETER CVT$M_RESULT_UNDERFLOW = '00000400'X- PARAMETER CVT$M_RESULT_INEXACT = '00000800'X STRUCTURE /CVT$R_RETURN_STATUS/+ PARAMETER CVT$S_INVALID_INPUT_TYPE = 1+ PARAMETER CVT$V_INVALID_INPUT_TYPE = 0, PARAMETER CVT$S_INVALID_OUTPUT_TYPE = 1, PARAM ETER CVT$V_INVALID_OUTPUT_TYPE = 1' PARAMETER CVT$S_INVALID_OPTION = 1' PARAMETER CVT$V_INVALID_OPTION = 2( PARAMETER CVT$S_RESULT_INFINITE = 1( PARAMETER CVT$V_RESULT_INFINITE = 3, PARAMETER CVT$S_RESULT_DENORMALIZED = 1, PARAMETER CVT$V_RESULT_DENORMALIZED = 4. PARAMETER CVT$S_RESULT_OVERFLOW_RANGE = 1. PARAMETER CVT$V_RESULT_OVERFLOW_RANGE = 5/ PARAMETER CVT$S_RESULT_UNDERFLOW_RANGE = 1/ PARAMETER CVT$V_RESULT_UNDERFLOW_RANGE = 6, PARAMETER CVT$S_RESULT_UNNORMALIZED = 1, PARAMETER CVT$V_RESULT_UNNORMALIZED = 7' PARAMETER CVT$S_RESULT_INVALID = 1' PARAMETER CVT$V_RESULT_INVALID = 8( PARAMETER CVT$S_RESULT_OVERFLOW = 1( PARAMETER CVT$V_RESULT_OVERFLOW = 9) PARAMETER CVT$S_RESULT_UNDERFLOW = 1* PARAMETER CVT$V_RESULT_UNDERFLOW = 10' PARAMETER CVT$S_RESULT_INEXACT = 1( PARAMETER CVT$V_RESULT_INEXACT = 11 BYTE %FILL (2)$ END STRUCTURE ! CVT$R_RETURN_STATUS !  ! Conversion Options:  ! / PARAMETER CVT$M_ROUND_TO_NEAREST = '00000001'X' PARAMETER CVT$M_TRUNCATE = '00000002'X+ PARAMETER CVT$M_ROUND_TO_POS = '00000004'X+ PARAMETER CVT$M_ROUND_TO_NEG = '00000008'X+ PARAMETER CVT$M_VAX_ROUNDING = '00000010'X) PARAMETER CVT$M_BIG_ENDIAN = '00000020'X, PARAMETER CVT$M_ERR_UNDERFLOW = '00000040'X4 PARAMETER CVT$M_FORCE_INVALID_TO_ZERO = '00000080'X3 PARAMETER CVT$M_FORCE_DENORM_TO_ZERO = '00000100'X5 PARAMETER CVT$M_FORCE_INF_TO_MAX_FLOAT = '00000200'X7 PARAMETER CVT$M_FORCE_ALL_SPECIAL_VALUES = '00000400'X8 PARAMETER CVT$M_ALLOW_OVRFLW_RANGE_VALUES = '00000800'X8 PARAMETER CVT$M_ALLOW_UDRFLW_RANGE_VALUES = '00001000'X8 PARAMETER CVT$M_ALLOW_UNNORMALIZED_VALUES = '00002000'X) PARAMETER CVT$M_REPORT_ALL = '00004000'X% PARAMETER CVT$m_spare2 = 'FFFF8000'X% STRUCTURE /CVT$R_CONVERSION_OPTIONS/ !  ! Rounding Mode Options: ! ) PARAMETER CVT$S_ROUND_TO_NEAREST = 1) PARAMETER CVT$V_ROUND_TO_NEAREST = 0! PARAMETER CVT$S_TRUNCATE = 1!  PARAMETER CVT$V_TRUNCATE = 1% PARAMETER CVT$S_ROUND_TO_POS = 1% PARAMETER CVT$V_ROUND_TO_POS = 2% PARAMETER CVT$S_ROUND_TO_NEG = 1% PARAMETER CVT$V_ROUND_TO_NEG = 3% PARAMETER CVT$S_VAX_ROUNDING = 1% PARAMETER CVT$V_VAX_ROUNDING = 4 ! * ! Options exclusive to CVT$CONVERT_FLOAT ! # PARAMETER CVT$S_BIG_ENDIAN = 1# PARAMETER CVT$V_BIG_ENDIAN = 5& PARAMETER CVT$S_ERR_UNDERFLOW = 1& PARAMETER CVT$V_ERR_UNDERFLOW = 6 !  ! Forcing Results Options: ! . PARAMETER CVT$S_FORCE_INVALID_TO_ZERO = 1. PARAMETER CVT$V_FORCE_INVALID_TO_ZERO = 7- PARAMETER CVT$S_FORCE_DENORM_TO_ZERO = 1- PARAMETER CVT$V_FORCE_DENORM_TO_ZERO = 8/ PARAMETER CVT$S_FORCE_INF_TO_MAX_FLOAT = 1/ PARAMETER CVT$V_FORCE_INF_TO_MAX_FLOAT = 91 PARAMETER CVT$S_FORCE_ALL_SPECIAL_VALUES = 12 PARAMETER CVT$V_FORCE_ALL_SPECIAL_VALUES = 10 ! % ! Allowing Special Results Options: ! 2 PARAMETER CVT$S_ALLOW_OVRFLW_RANGE_VALUES = 13 PARAMETER CVT$V_ALLOW_OVRFLW_RANGE_VALUES = 112 PARAMETER CVT$S_ALLOW_UDRFLW_RANGE_VALUES = 13 PARAMETER CVT$V_ALLOW_UDRFLW_RANGE_VALUES = 122 PARAMETER CVT$S_ALLOW_UNNORMALIZED_VALUES = 13 PARAMETER CVT$V_ALLOW_UNNORMALIZED_VALUES = 13 !  ! Status Selection Options: ! # PARAMETER CVT$S_REPORT_ALL = 1$ PARAMETER CVT$V_REPORT_ALL = 14 !  ! Everything else. ! PARAMETER CVT$S_spare2 = 17 PARAMETER CVT$V_spare2 = 15  BYTE %FILL (4)) END STRUCTURE ! CVT$R_CONVERSION_OPTIONS3 PARAMETER CVT$M_ALT_ROUND_TO_NEAREST = '00000001'X, PARAMETER CVT$M_ROUND_TO_ZERO = '00000002'X/ PARAMETER CVT$M_ALT_ROUND_TO_POS = '00000004'X/ PARAMETER CVT$M_ALT_ROUND_TO_NEG = '00000008'X. PARAMETER CVT$M_BIASED_ROUNDING = '00000010'X% PARAMETER CVT$m_spare3 = 'FFFFFFE0'X) STRUCTURE /CVT$R_ALT_CONVERSION_OPTIONS/ !  ! Rounding Mode Options: ! - PARAMETER CVT$S_ALT_ROUND_TO_NEAREST = 1- PARAMETER CVT$V_ALT_ROUND_TO_NEAREST = 0& PARAMETER CVT$S_ROUND_TO_ZERO = 1& PARAMETER CVT$V_ROUND_TO_ZERO = 1) PARAMETER CVT$S_ALT_ROUND_TO_POS = 1) PARAMETER CVT$V_ALT_ROUND_TO_POS = 2) PARAMETER CVT$S_ALT_ROUND_TO_NEG = 1) PARAMETER CVT$V_ALT_ROUND_TO_NEG = 3( PARAMETER CVT$S_BIASED_ROUNDING = 1( PARAMETER CVT$V_BIASED_ROUNDING = 4 PARAMETER CVT$S_spare3 = 27 PARAMETER CVT$V_spare3 = 5 BYTE %FILL (4)- END STRUCTURE ! CVT$R_ALT_CONVERSION_OPTIONS!DEC$ END OPTIONSww/Φ!*** MODULE $CVTFNMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 6 ! String characteristic flags for SYS$CVT_FILENAME ! , PARAMETER CVTFNM$M_WORD_CHARS = '00000001'X/ PARAMETER CVTFNM$M_NO_DELIMITERS = '00000002'X. PARAMETER CVTFNM$M_FORCE_UPCASE = '00000004'X STRUCTURE /INOUTFLAGS/& PARAMETER CVTFNM$S_WORD_CHARS = 1D PARAMETER CVTFNM$V_WORD_CHARS = 0 ! characters are word-width) PARAMETER CVTFNM$S_NO _DELIMITERS = 1Z PARAMETER CVTFNM$V_NO_DELIMITERS = 1 ! string does/should contain no fnm delimiters( PARAMETER CVTFNM$S_FORCE_UPCASE = 1N PARAMETER CVTFNM$V_FORCE_UPCASE = 2 ! do upcasing (ACPQIO-to-RMS onoly) BYTE %FILL (1) END STRUCTURE ! INOUTFLAGS ! ( ! Control codes for SYS$CVT_FILENAME ! / PARAMETER CVTFNM$C_RMS_TO_ACPQIO = '00000001'X/ PARAMETER CVTFNM$C_ACPQIO_TO_RMS = '00000002'X/ PARAMETER CVTFNM$K_RMS_TO_ACPQIO = '00000001'X/ PARAMETER CVTFNM$K_ACPQIO_TO_RMS = '00000002'X!DEC$ END OPTIONS ww1ӁΦ!*** MODULE $CVTMSG ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.57 !  ! O ! * *O ! * COPYRIGHT (C) 1991 *O ! * BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *O ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *O ! * TRANSFERRED. *O ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *O ! * CORPORATION. *O ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *O ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *O ! * *O ! ============================================================================ !  ! FILE: CVTMSG.MSG !  ! VERSION: 1-001 ! 8 ! FACILITY: CVTRTL - VMS CONVERSION RUN TIME LIBRARY ! 9 ! ABSTRACT: MESSAGE DEFINITIONS FOR THE CVT FACILITY. !  ! AUTHOR: JEFFREY S. YOUNG !  ! CREATION DATE: 25-JUN-1991 !  ! MODIFICATION HISTORY:O ! --------------------------------------------------------------------------, ! 1-001 25-JUN-1991 JSY ORIGINAL VERSION. ! O ! ============================================================================O ! ============================================================================ ! @ ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! CVT$_ABCMNOXYZ ! M ! IN A DDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",O ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR4 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! N ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR8 ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. ! O ! ============================================================================ ! & PARAMETER CVT$_FACILITY = '000005FA'X$ PARAMETER CVT$_NORMAL = '05FA8009'X' PARAMETER CVT$_INPCONERR = '05FA8012'X' PARAMETER CVT$_INVINPTYP = '05FA801A'X$ PARAMETER CVT$_INVOPT = '05FA8022'X' PARAMETER CVT$_INVOUTTYP = '05FA802A'X$ PARAMETER CVT$_INVVAL = '05FA8032'X$ PARAMETER CVT$_NEGINF = '05FA803A'X' PARAMETER CVT$_OUTCONERR = '05FA8042'X& PARAMETER CVT$_OVERFLOW = '05FA804A'X$ PARAMETER CVT$_POSINF = '05FA8052'X' PARAMETER CVT$_UNDERFLOW = '05FA805A'X!DEC$ END OPTIONSwwhΦ!*** MODULE $DCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! / ! DEVICE ADAPTER, CLASS, AND TYPE DEFINITIONS !  !  ! DEFINE ADAPTER TYPESL ! When adding a new adapter type, make sure a corresponding entry is addedP ! to the ADP_TBL_UP and ADP_TBL_DWN tables in any affected [SYSLOA]ERRSUB*.MAR ! modules. ! L ! FURTHERMORE, when altering the list of AT$_ symbols, you MUST update the$ ! module [MANAGE]SMIIOGEN-UTILS.C. ! DEFINE ADAPTER TYPES5 PARAMETER AT$_MBA = '00000000'X ! MASSBUS ADAPTER4 PARAMETER AT$_UBA = '00000001'X ! UNIBUS ADAPTER1 PARAMETER AT$_DR = '00000002'X ! DR32 ADAPTER7 PARAMETER AT$_MPM = '00000003'X ! MULTI-PORT MEMORY+ PARAMETER AT$_CI = '00000004'X ! CI BUS= PARAMETER AT$_NULL = '00000005'X ! NULL (SOFTWARE) ADAPTER< PARAMETER AT$_BDA = '00000006'X ! BI DISK ADAPTER(KDB50)4 PARAMETER AT$_DMB32 = '00000007'X ! DMB32 ADAPTER4 PARAMETER AT$_DRB32 = '00000008'X ! DRB32 ADAPTER9 PARAMETER AT$_BVP = '00000009'X ! BVP GENERIC AD APTERA PARAMETER AT$_BVP_SSP = '0000000A'X ! BVP STORAGE SYSTEMS PORT4 PARAMETER AT$_BVP_NIP = '0000000B'X ! BVP NI PORT5 PARAMETER AT$_KA410 = '0000000C'X ! VAXstar system; PARAMETER AT$_KA420 = '0000000C'X ! PVAX/CVAXstar system8 PARAMETER AT$_GENBI = '0000000D'X ! Generic BI device1 PARAMETER AT$_NBI = '0000000E'X ! NBIB on BI." PARAMETER AT$_DISK9 = '0000000F'X PARAMETER AT$_XBI = '00000010'X" PARAMETER AT$_TERM9 = '00000011'X" PARAMETER AT$_TAPE9 = '00000012'X" PARAMETER AT$_PRTR9 = '00000013'X" PARAMETER AT$_SFUN9 = '00000014'X" PARAMETER AT$_USER9 = '00000015'X# PARAMETER AT$_MBUSIO = '00000016'X$ PARAMETER AT$_MBUSGFX = '00000017'X" PARAMETER AT$_KA640 = '00000018'X# PARAMETER AT$_XWATCH = '00000019'X) PARAMETER AT$_XBI_PLUS_XMI = '0000001A'X( PARAMETER AT$_XBI_PLUS_BI = '0000001B'X PARAMETER AT$_XJA = '0000001C'X" PARAMETER AT$_HSX50 = '0000001D'X" PARAMETER AT$_KDM70 = '0000001D'X PARAMETER AT$_NI = '0000001E'X! PARAMETER AT$_KA43 = '0000001F'X PARAMETER AT$_SJA = '00000020'X# PARAMETER AT$_GENXMI = '00000021'X" PARAMETER AT$_KA440 = '00000022'X! PARAMETER AT$_KA46 = '00000022'X" PARAMETER AT$_KA520 = '00000023'X PARAMETER AT$_XSA = '00000024'X PARAMETER AT$_XZA = '00000025'X% PARAMETER AT$_XZA_SCSI = '00000025'X PARAMETER AT$_VME = '00000026'X PARAMETER AT$_IOP = '00000027'X! PARAMETER AT$_LAMB = '00000028'X! PARAMETER AT$_KA49 = '00000029'X PARAMETER AT$_TC = '0000002A'X" PARAMETER AT$_X1303 = '0000002B'X  PARAMETER AT$_XMI = '0000002C'X! PARAMETER AT$_FBUS = '0000002D'X# PARAMETER AT$_COREIO = '0000002E'X# PARAMETER AT$_KA0202 = '0000002F'X( PARAMETER AT$_KA0202_LBUS = '00000030'X# PARAMETER AT$_KA0302 = '00000031'X# PARAMETER AT$_KA0402 = '00000032'X' PARAMETER AT$_TURBO_SCSI = '00000033'X" PARAMETER AT$_CIMNA = '00000034'X% PARAMETER AT$_XZA_DSSI = '00000035'X" PARAMETER AT$_DEMNA = '00000036'X PARAMETER AT$_FFA = '00000037'X# PARAMETER AT$_KA0602 = '00000038'X! PARAMETER AT$_EISA = '00000039'X& PARAMETER AT$_VTI_COMBO = '0000003A'X# PARAMETER AT$_KA0702 = '00000040'X( PARAMETER AT$_TC_MULTI_NI = '00000041'X& PARAMETER AT$_AHA_1742A = '00000042'X# PARAMETER AT$_KA0902 = '00000043'X PARAMETER AT$_PCI = '00000044'X# PARAMETER AT$_KA0802 = '00000045'X. PARAMETER AT$_MULTIFUNCTION_PCI = '00000046'X PARAMETER AT$_ISA = '00000047'X! PARAMETER AT$_XBUS = '00000048'X# PARAMETER AT$_KA0C05 = '00000049'X# PARAMETER AT$_KA0E04 = '0000004A'X# PARAMETER AT$_KA0D02 = '0000004B'X( PARAMETER AT$_THIRDPARTY0 = '0000004C'X( PARAMETER AT$_THIRDPARTY1 = '0000004D'X( PARAMETER AT$_THIRDPARTY2 = '0000004E'X( PARAMETER AT$_THIRDPARTY3 = '0000004F'X( PARAMETER AT$_THIRDPARTY4 = '00000050'X( PARAMETER AT$_THIRDPARTY5 = '00000051'X( PARAMETER AT$_THIRDPARTY6 = '00000052'X( PARAMETER AT$_THIRDPARTY7 = '00000053'X. PARAMETER AT$_MULTIFUNCTION_ISA = '00000054'X# PARAMETER AT$_KA0F05 = '00000055'X! PARAMETER AT$_LMCP = '00000056'X! PARAMETER AT$_TIOP = '00000057'X" PARAMETER AT$_ITIOP = '00000058'X# PARAMETER AT$_KA1102 = '00000059'X# PARAMETER AT$_KA1504 = '0000005A'X PARAMETER AT$_HPC = '0000005B'X# PARAMETER AT$_PCMCIA = '0000005C'X# PARAMETER AT$_KA1402 = '0000005D'X# PARAMETER AT$_KA0905 = '0000005E'X# PARAMETER AT$_KA1802 = '0000005F'X# PARAMETER AT$_KA1805 = '00000060'X$ PARAMETER AT$_MEMCHAN = '00000061'X# PARAMETER AT$_KA1B02 = '00000062'X# PARAMETER AT$_KA1B05 = '00000063'X# PARAMETER AT$_KA1A05 = '00000064'X# PARAMETER AT$_KA1605 = '00000065'X# PARAMETER AT$_MC_BUS = '00000066'X# PARAMETER AT$_KA1105 = '00000067'X# PARAMETER AT$_KA1702 = '00000068'X# PARAMETER AT$_KA1E07 = '00000069'X# PARAMETER AT$_KA2005 = '0000006A'X# PARAMETER AT$_KA2405 = '0000006B'X# PARAMETER AT$_KA2208 = '0000006C'X# PARAMETER AT$_KA2508 = '0000006D'X# PARAMETER AT$_KA2308 = '0000006E'X" PARAMETER AT$_WFQBB = '0000006F'X" PARAMETER AT$_WFIOP = '00000070'X" PARAMETER AT$_WFPCA = '00000071'X# PARAMETER AT$_KA2608 = '00000072'X# PARAMETER AT$_KA270F = '00000073'X PARAMETER AT$_IO7 = '00000074'X" PARAMETER AT$_I2000 = '00000075'X- PARAMETER AT$_ACPI_IA64_PLTFRM = '00000076'X. PARAMETER AT$_ACPI_IA64_CONTAIN = '00000077'X- PARAMETER AT$_ACPI_IA64_SYSBUS = '00000078'X. PARAMETER AT$_ACPI_IA64_BUSLESS = '00000079'X* PARAMETER AT$_ACPI_IA64_IOC = '0000007A'X! PARAMETER AT$_PCIE = '0000007B'X !  ! DEFINE DEVICE CLASSES !  ! DEFINE DEVICE CLASSES) PARAMETER DC$_ANY = '00000000'X ! ANY& ! NOTE:  This "special" device class* ! is only used by [SYS]SYSGETDVI.MAR for+ ! item code validation. It should not be* ! used for anything else, especially for& ! device creation by driver writers!* PARAMETER DC$_DISK = '00000001'X ! DISK+ PARAMETER DC$_TAPE = '00000002'X ! TAPESH PARAMETER DC$_SCOM = '00000020'X ! SYNCHRONOUS COMMUNICATIONS DEVICES1 PARAMETER DC$_CARD = '00000041'X ! CARD READER. PARAMETER DC$_TERM = '00000042'X ! TERMINAL1 PARAMETER DC$_LP = '00000043'X ! L INE PRINTER9 PARAMETER DC$_WORKSTATION = '00000046'X ! WORKSTATIONS3 PARAMETER DC$_REALTIME = '00000060'X ! REAL-TIME; PARAMETER DC$_DECVOICE = '00000061'X ! DECVOICE products4 PARAMETER DC$_AUDIO = '00000062'X ! General audio4 PARAMETER DC$_VIDEO = '00000063'X ! General video4 PARAMETER DC$_BUS = '00000080'X ! BUSES, E.G, CI0 PARAMETER DC$_MAILBOX = '000000A0'X ! MAILBOXF PARAMETER DC$_REMCSL_STORAGE = '000000AA'X ! REMOTE CONSOLE STORAGE; PARAMETER DC$_MISC = '000000C8'X ! MISCELLANEOUS DEVICES !  ! DEFINE DEVICE TYPES !  !  ! DISK DEVICES ! . PARAMETER DT$_RK06 = '00000001'X ! RK06 DISK. PARAMETER DT$_RK07 = '00000002'X ! RK07 DISK. PARAMETER DT$_RP04 = '00000003'X ! RP04 DISK. PARAMETER DT$_RP05 = '00000004'X ! RP05 DISK. PARAMETER DT$_RP06 = '00000005'X ! RP06 DISK. PARAMETER DT$_RM03 = '00000006'X ! RM03 DISK. PARAMETER DT$_RP07 = '00000007'X ! RP07 DISK@ PARAMETER DT$_RP07HT = '00000008'X ! RP07 DISK WITH HEAD/TRACK. PARAM ETER DT$_RL01 = '00000009'X ! RL01 DISK. PARAMETER DT$_RL02 = '0000000A'X ! RL02 DISK. PARAMETER DT$_RX02 = '0000000B'X ! RX02 DISK. PARAMETER DT$_RX04 = '0000000C'X ! RX04 DISK. PARAMETER DT$_RM80 = '0000000D'X ! RM80 DISK) PARAMETER DT$_TU58 = '0000000E'X ! TU58. PARAMETER DT$_RM05 = '0000000F'X ! RM05 DISK. PARAMETER DT$_RX01 = '00000010'X ! RX01 DISK. PARAMETER DT$_ML11 = '00000011'X ! ML11 disk1 PARAMETER DT$_RB02 = '00000012'X ! R02 ON RB7301 PARAMETER DT$_RB80 = '00000013' X ! R80 ON RB730B PARAMETER DT$_RA80 = '00000014'X ! R80 ON INTELLIGENT CONTROLLERB PARAMETER DT$_RA81 = '00000015'X ! R81 ON INTELLIGENT CONTROLLERD PARAMETER DT$_RA60 = '00000016'X ! PINON ON INTELLIGENT CONTROLLER? PARAMETER DT$_RZ01 = '00000017'X ! AZTEC REMOVABLE (Old name)? PARAMETER DT$_RC25 = '00000017'X ! AZTEC REMOVABLE (New name)< PARAMETER DT$_RZF01 = '00000018'X ! AZTEC FIXED (Old name)< PARAMETER DT$_RCF25 = '00000018'X ! AZTEC FIXED (New name): PARAMETER DT$_RD51 = '0 0000019'X ! RD51 FIXED DISK DRIVE; PARAMETER DT$_RX50 = '0000001A'X ! RX50 FLOPPY DISK DRIVE: PARAMETER DT$_RD52 = '0000001B'X ! RD52 FIXED DISK DRIVE: PARAMETER DT$_RD53 = '0000001C'X ! RD53 FIXED DISK DRIVE: PARAMETER DT$_RD26 = '0000001D'X ! RD26 FIXED DISK DRIVE: PARAMETER DT$_RA82 = '0000001E'X ! RA82 FIXED DISK DRIVE: PARAMETER DT$_RD31 = '0000001F'X ! RD31 FIXED DISK DRIVE: PARAMETER DT$_RD54 = '00000020'X ! RD54 FIXED DISK DRIVE2 PARAMETER DT$_CRX50 = '00000021'X ! Console RX50+ PARAMETER DT$_RRD50 = '00000022'X ! RRD507 PARAMETER DT$_GENERIC_DU = '00000023'X ! Brand X Disk8 PARAMETER DT$_RX33 = '00000024'X ! RX33 DISKETTE DRIVE) PARAMETER DT$_RX18 = '00000025'X ! RX18! PARAMETER DT$_RA70 = '00000026'X! PARAMETER DT$_RA90 = '00000027'X! PARAMETER DT$_RD32 = '00000028'X" PARAMETER DT$_DISK9 = '00000029'X! PARAMETER DT$_RX35 = '0000002A'X! PARAMETER DT$_RF30 = '0000002B'X! PARAMETER DT$_RF70 = '0000002C'X! PARAMETER DT$_RF71 = '0000002C'X! PARAMETER DT$_RD33 = '0000002D'X" PARAMETER DT$_ESE20 = '0000002E'X! PARAMETER DT$_TU56 = '0000002F'X! PARAMETER DT$_RZ22 = '00000030'X! PARAMETER DT$_RZ23 = '00000031'X! PARAMETER DT$_RZ24 = '00000032'X! PARAMETER DT$_RZ55 = '00000033'X# PARAMETER DT$_RRD40S = '00000034'X" PARAMETER DT$_RRD40 = '00000035'X' PARAMETER DT$_GENERIC_DK = '00000036'X! PARAMETER DT$_RX23 = '00000037'X! PARAMETER DT$_RF31 = '00000038'X! PARAMETER DT$_RF72 = '00000039'X% PARAMETER DT$_RAM_DISK = '0000003A'X! PARAMETER DT$_RZ25 = '0000003B'X! PARAMETER DT$_RZ56 = '0000003C'X! PARAMETER DT$_RZ57 = '0000003D'X" PARAMETER DT$_RX23S = '0000003E'X" PARAMETER DT$_RX33S = '0000003F'X! PARAMETER DT$_RA92 = '00000040'X$ PARAMETER DT$_SSTRIPE = '00000041'X" PARAMETER DT$_RZ23L = '00000042'X! PARAMETER DT$_RX26 = '00000043'X" PARAMETER DT$_RZ57I = '00000044'X! PARAMETER DT$_RZ31 = '00000045'X! PARAMETER DT$_RZ58 = '00000046'X$ PARAMETER DT$_SCSI_MO = '00000047'X" PARAMETER DT$_RWZ01 = '00000047'X" PARAMETER DT$_RRD42 = '00000048'X( PARAMETER DT$_CD_LOADER_1 = '00000049'X" PARAMETER DT$_ESE25 = '0000004A'X" PARAMETER DT$_RFH31 = '0000004B'X" PARAMETER DT$_RFH72 = '0000004C'X! PARAMETER DT$_RF73 = '0000004D'X" PARAMETER DT$_RFH73 = '0000004E'X! PARAMETER DT$_RA72 = '0000004F'X! PARAMETER DT$_RA71 = '00000050'X" PARAMETER DT$_RAH72 = '00000050'X! PARAMETER DT$_RF32 = '00000051'X! PARAMETER DT$_RF35 = '00000051'X" PARAMETER DT$_RFH32 = '00000052'X" PARAMETER DT$_RFH35 = '00000052'X" PARAMETER DT$_RFF31 = '00000053'X" PARAMETER DT$_RF31F = '00000053'X! PARAMETER DT$_RZ72 = '00000054'X! PARAMETER DT$_RZ73 = '00000055'X! PARAMETER DT$_RZ35 = '00000056'X" PARAMETER DT$_RZ24L = '00000057'X" PARAMETER DT$_RZ25L = '00000058'X" PARAMETER DT$_RZ55L = '00000059'X" PARAMETER DT$_RZ56L = '0000005A'X" PARAMETER DT$_RZ57L = '0000005B'X! PARAMETER DT$_RA73 = '0000005C'X! PARAMETER DT$_RZ26 = '0000005D'X! PARAMETER DT$_RZ36 = '0000005E'X! PARAMETER DT$_RZ74 = '0000005F'X" PARAMETER DT$_ESE52 = '00000060'X" PARAMETER DT$_ESE56 = '00000061'X" PARAMETER DT$_ESE58 = '00000062'X! PARAMETER DT$_RZ27 = '00000063'X! PARAMETER DT$_RZ37 = '00000064'X" PARAMETER DT$_RZ34L = '00000065'X" PARAMETER DT$_RZ35L = '00000066'X" PARAMETER DT$_RZ36L = '00000067'X! PARAMETER DT$_RZ38 = '00000068'X! PARAMETER DT$_RZ75 = '00000069'X! PARAMETER DT$_RZ59 = '0000006A'X! PARAMETER DT$_RZ13 = '0000006B'X! PARAMETER DT$_RZ14 = '0000006C'X! PARAMETER DT$_RZ15 = '0000006D'X! PARAMETER DT$_RZ16 = '0000006E'X! PARAMETER DT$_RZ17 = '0000006F'X! PARAMETER DT$_RZ18 = '00000070'X! PARAMETER DT$_EZ51 = '00000071'X! PARAMETER DT$_EZ52 = '00000072'X! PARAMETER DT$_EZ53 = '00000073'X! PARAMETER DT$_EZ54 = '00000074'X! PARAMETER DT$_EZ58 = '00000075'X! PARAMETER DT$_EF51 = '00000076'X! PARAMETER DT$_EF52 = '00000077'X! PARAMETER DT$_EF53 = '00000078'X! PARAMETER DT$_EF54 = '00000079'X! PARAMETER DT$_EF58 = '0000007A'X! PARAMETER DT$_RF36 = '0000007B'X ! PARAMETER DT$_RF37 = '0000007C'X! PARAMETER DT$_RF74 = '0000007D'X! PARAMETER DT$_RF75 = '0000007E'X" PARAMETER DT$_HSZ10 = '0000007F'X! PARAMETER DT$_RZ28 = '00000080'X' PARAMETER DT$_GENERIC_RX = '000000B4'X8 PARAMETER DT$_FD1 = '00000081'X ! FOREIGN DISK TYPE 18 PARAMETER DT$_FD2 = '00000082'X ! FOREIGN DISK TYPE 28 PARAMETER DT$_FD3 = '00000083'X ! FOREIGN DISK TYPE 38 PARAMETER DT$_FD4 = '00000084'X ! FOREIGN DISK TYPE 48 PARAMETER DT$_FD5 = '00000085'X ! FOREIGN DISK TYPE 58 PARAMETER DT$_FD6 = '00000086'X ! FOREIGN DISK TYPE 68 PARAMETER DT$_FD7 = '00000087'X ! FOREIGN DISK TYPE 78 PARAMETER DT$_FD8 = '00000088'X ! FOREIGN DISK TYPE 8! PARAMETER DT$_RZ29 = '00000089'X" PARAMETER DT$_RZ26L = '0000008A'X" PARAMETER DT$_RRD43 = '0000008B'X" PARAMETER DT$_RRD44 = '0000008C'X" PARAMETER DT$_HSX00 = '0000008D'X" PARAMETER DT$_HSX01 = '0000008E'X" PARAMETER DT$_RZ26B = '0000008F'X" PARAMETER DT$_RZ27B = '00000090'X" PARAMETER DT$_RZ28B = '00000091'X" PARAMETER DT$_RZ29B = '00000092'X" PARAMETER DT$_RZ73B = '00000093'X" PARAMETER DT$_RZ74B = '00000094'X" PARAMETER DT$_RZ75B = '00000095'X" PARAMETER DT$_RWZ21 = '00000096'X" PARAMETER DT$_RZ27L = '00000097'X" PARAMETER DT$_HSZ20 = '00000098'X" PARAMETER DT$_HSZ40 = '00000099'X" PARAMETER DT$_HSZ15 = '0000009A'X" PARAMETER DT$_RZ26M = '0000009B'X" PARAMETER DT$_RW504 = '0000009C'X" PARAMETER DT$_RW510 = '0000009D'X" PARAMETER DT$_RW514 = '0000009E'X" PARAMETER DT$_RW516 = '0000009F'X" PARAMETER DT$_RWZ52 = '000000A0'X" PARAMETER DT$_RWZ53 = '000000A1'X" PARAMETER DT$_RWZ54 = '000000A2'X" PARAMETER DT$_RWZ31 = '000000A3'X! PARAMETER DT$_EZ31 = '000000A4'X! PARAMETER DT$_EZ32 = '000000A5'X! PARAMETER DT$_EZ33 = '000000A6'X! PARAMETER DT$_EZ34 = '000000A7'X! PARAMETER DT$_EZ35 = '000000A8'X" PARAMETER DT$_EZ31L = '000000A9'X" PARAMETER DT$_EZ32L = '000000AA'X" PARAMETER DT$_EZ33L = '000000AB'X" PARAMETER DT$_RZ28L = '000000AC'X" PARAMETER DT$_RWZ51 = '000000AD'X" PARAMETER DT$_EZ56R = '000000AE'X" PARAMETER DT$_RAID0 = '000000AF'X" PARAMETER DT$_RAID5 = '000000B0'X- PARAMETER DT$_CONSOLE_CALLBACK = '000000B1'X% PARAMETER DT$_FILES_64 = '000000B2'X" PARAMETER DT$_SWXCR = '000000B3'X( PARAMETER DT$_SNAPPY_DISK = '000000B4'X( PARAMETER DT$_SNAPPY_POOL = '000000B5'X( PARAMETER DT$_USB_CB_DISK = '000000B6'X !  ! TAPE DEVICES ! 1 PARAMETER DT$_TE16 = '00000001'X ! TE16 MAGTAPE1 PARAMETER DT$_TU45 = '00000002'X ! TU45 MAGTAPE1 PARAMETER DT$_TU7 7 = '00000003'X ! TU77 MAGTAPE1 PARAMETER DT$_TS11 = '00000004'X ! TS11 MAGTAPE1 PARAMETER DT$_TU78 = '00000005'X ! TU78 MAGTAPE1 PARAMETER DT$_TA78 = '00000006'X ! TA78 MAGTAPE1 PARAMETER DT$_TU80 = '00000007'X ! TU80 MAGTAPE1 PARAMETER DT$_TU81 = '00000008'X ! TU81 MAGTAPE! PARAMETER DT$_TA81 = '00000009'X8 PARAMETER DT$_TK50 = '0000000A'X ! TK50 CARTRIDGE TAPE< PARAMETER DT$_MR_TU70 = '0000000B'X ! TU70 STC TAPE (DX20)5 PARAMETER DT$_MR_TU72 = '0000000C'X ! TU72 STC TAPE9  PARAMETER DT$_MW_TSU05 = '0000000D'X ! TSU05 TAPE (CSS)9 PARAMETER DT$_MW_TSV05 = '0000000E'X ! TSV05 TAPE (CSS)8 PARAMETER DT$_TK70 = '0000000F'X ! TK70 CARTRIDGE TAPE! PARAMETER DT$_RV20 = '00000010'X! PARAMETER DT$_RV80 = '00000010'X8 PARAMETER DT$_TK60 = '00000011'X ! TK60 CARTRIDGE TAPE7 PARAMETER DT$_GENERIC_TU = '00000012'X ! Brand X Tape) PARAMETER DT$_TA79 = '00000013'X ! TA79" PARAMETER DT$_TAPE9 = '00000014'X! PARAMETER DT$_TA90 = '00000015'X! PARAMETER DT$_TF30 = '00000016'X! PARAMETER DT$_TF85 = '00000016'X! PARAMETER DT$_TF70 = '00000017'X! PARAMETER DT$_RV60 = '00000018'X! PARAMETER DT$_TZ30 = '00000019'X! PARAMETER DT$_TM32 = '0000001A'X! PARAMETER DT$_TZX0 = '0000001B'X" PARAMETER DT$_TSZ05 = '0000001B'X' PARAMETER DT$_GENERIC_MK = '0000001C'X" PARAMETER DT$_TK50S = '0000001D'X" PARAMETER DT$_TZ30S = '0000001E'X" PARAMETER DT$_TK70L = '0000001F'X" PARAMETER DT$_TLZ04 = '00000020'X" PARAMETER DT$_TZK10 = '00000021'X" PARAMETER DT$_TSZ07 = '00000022'X" PARAMETER DT$_TSZ08 = '00000023'X" PARAMETER DT$_TA90E = '00000024'X" PARAMETER DT$_TZK11 = '00000025'X! PARAMETER DT$_TZ85 = '00000026'X! PARAMETER DT$_TZ86 = '00000027'X! PARAMETER DT$_TZ87 = '00000028'X" PARAMETER DT$_TZ857 = '00000029'X$ PARAMETER DT$_EXABYTE = '0000002A'X* PARAMETER DT$_TAPE_LOADER_1 = '0000002B'X! PARAMETER DT$_TA91 = '0000002C'X" PARAMETER DT$_TLZ06 = '0000002D'X! PARAMETER DT$_TA85 = '0000002E'X" PARAMETER DT$_TKZ60 = '0000002F'X! PARAMETER DT$_TLZ6 = '00000030'X" PARAMETER DT$_TZ867 = '00000031'X" PARAMETER DT$_TZ877 = '00000032'X" PARAMETER DT$_TAD85 = '00000033'X! PARAMETER DT$_TF86 = '00000034'X" PARAMETER DT$_TKZ09 = '00000035'X! PARAMETER DT$_TA86 = '00000036'X! PARAMETER DT$_TA87 = '00000037'X! PARAMETER DT$_TD34 = '00000038'X! PARAMETER DT$_TD44 = '00000039'X" PARAMETER DT$_HST00 = '0000003A'X" PARAMETER DT$_HST01 = '0000003B'X" PARAMETER DT$_TLZ07 = '0000003C'X! PARAMETER DT$_TLZ7 = '0000003D'X! PARAMETER DT$_TZ88 = '0000003E'X" PARAMETER DT$_TZ885 = '0000003F'X" PARAMETER DT$_TZ887 = '00000040'X! PARAMETER DT$_TZ89 = '00000041'X" PARAMETER DT$_TZ895 = '00000042'X" PARAMETER DT$_TZ897 = '00000043'X" PARAMETER DT$_TZ875 = '00000044'X" PARAMETER DT$_TL810 = '00000045'X" PARAMETER DT$_TL820 = '00000046'X" PARAMETER DT$_TZ865 = '00000047'X !  ! TERMINAL DEVICE TYPES ! F ! new definitions for terminal types should be placed in $ttdef only4 ! this table remains around for compatibility only !  ! **** MATCHES $TTDEF *****9 PARAMETER DT$_TTYUNKN = '00000000'X ! UNKNOWN TERMINAL* PARAMETER DT$_VT05 = '00000001'X ! VT05< PARAMETER DT$_FT1 = '00000010'X ! FOREIGN TERMINAL TYPES PARAMETER DT$_FT2 = '00000011'X PARAMETER DT$_FT3 = '00000012'X PARAMETER DT$_FT4 = '00000013'X PARAMETER DT$_FT5 = '00000014'X PARAMETER DT$_FT6 = '00000015'X PARAMETER DT$_FT7 = '00000016'X: PARAMETER DT$_FT8 = '00000017'X ! END OF FOREIGN TYPES( ! RESERVE REST UP TO 32 FOR EX TENSIONS6 PARAMETER DT$_LAX = '00000020'X ! LA TYPE TERMINAL* PARAMETER DT$_LA36 = '00000020'X ! LA36" PARAMETER DT$_LA120 = '00000021'X/ PARAMETER DT$_VT5X = '00000040'X ! VT5X TYPE* PARAMETER DT$_VT52 = '00000040'X ! VT52* PARAMETER DT$_VT55 = '00000041'X ! VT55. PARAMETER DT$_TQ_BTS = '00000004'X ! TQ_BTS7 PARAMETER DT$_TEK401X = '0000000A'X ! TEK401X series, PARAMETER DT$_VT100 = '00000060'X ! VT100" PARAMETER DT$_VK100 = '00000002'X" PARAMETER DT$_VT173 = '00000003'X! PARAMETER DT$_LA34 = '00000022'X! PARAMETER DT$_LA38 = '00000023'X! PARAMETER DT$_LA12 = '00000024'X! PARAMETER DT$_LA24 = '00000025'X" PARAMETER DT$_LA100 = '00000025'X" PARAMETER DT$_LQP02 = '00000026'X" PARAMETER DT$_VT101 = '00000061'X" PARAMETER DT$_VT102 = '00000062'X" PARAMETER DT$_VT105 = '00000063'X" PARAMETER DT$_VT125 = '00000064'X" PARAMETER DT$_VT131 = '00000065'X" PARAMETER DT$_VT132 = '00000066'X5 PARAMETER DT$_DZ11 = '00000042'X ! DZ11 CONTROLLER5 PARAMETER DT$_D Z32 = '00000043'X ! DZ32 CONTROLLER? PARAMETER DT$_DZ730 = '00000044'X ! DZ730 (COMBO) CONTROLLER7 PARAMETER DT$_DMZ32 = '00000045'X ! DMZ32 CONTROLLER4 PARAMETER DT$_DHV = '00000046'X ! DHV CONTROLLER4 PARAMETER DT$_DHU = '00000047'X ! DHU CONTROLLER> PARAMETER DT$_SLU = '00000048'X ! Onboard Serial Line Unit5 PARAMETER DT$_TERM9 = '00000049'X ! Terminal on 0093 PARAMETER DT$_LAT = '0000004A'X ! LAT terminals !  ! Terminal WORKSTATIONS ! 5 PARAMETER DT$_VS100  = '00000001'X ! VAXstation 1005 PARAMETER DT$_VS125 = '00000002'X ! VAXstation 125A PARAMETER DT$_VL_VS8200 = '00000003'X ! VAXstation 8200 (Lynx); PARAMETER DT$_VD = '00000004'X ! VAXstation Vir. Device( PARAMETER DT$_DECW_OUTPUT = '00000005'X' PARAMETER DT$_DECW_INPUT = '00000006'X( PARAMETER DT$_DECW_PSEUDO = '00000007'X ! + ! SYNCHRONOUS COMMUNICATIONS DEVICE TYPES ! , PARAMETER DT$_DMC11 = '00000001'X ! DMC11, PARAMETER DT$_DMR11 = '00000002'X ! DMR11J PARAMET ER DT$_XK_3271 = '00000003'X ! DUP-11 FOR 3271 PROTOCOL EMULATOR< PARAMETER DT$_XJ_2780 = '00000004'X ! DUP-11 FOR 2780 " "= PARAMETER DT$_NW_X25 = '00000005'X ! X25 PROTOCOL EMULATOR/ PARAMETER DT$_NV_X29 = '00000006'X ! X29 " "< PARAMETER DT$_SB_ISB11 = '00000007'X ! ISB-11 DEC datawayD PARAMETER DT$_MX_MUX200 = '00000008'X ! MUX-200 PROTOCOL EMULATOR, PARAMETER DT$_DMP11 = '00000009'X ! DMP11, PARAMETER DT$_DMF32 = '0000000A'X ! DMF32E PARAMETER DT$_XV_3271 = '0000000B'X ! DV-11 3271 PROTOCOL EMULATOR? PARAMETER DT$_CI = '0000000C'X ! CI - Computer Interconnect> PARAMETER DT$_NI = '0000000D'X ! NI - Network Interconnect; PARAMETER DT$_UNA11 = '0000000E'X ! UNIBUS to NI adapter; PARAMETER DT$_DEUNA = '0000000E'X ! UNIBUS to NI adapter8 PARAMETER DT$_YN_X25 = '0000000F'X ! KMS11 X.25 P. E.- PARAMETER DT$_YO_X25 = '00000010'X ! " " "6 PARAMETER DT$_YP_ADCCP = '00000011'X ! " ADCCP P.E.. PARAMETER DT$_YQ_3271 = '00000012'X ! " " "1 PARAMET ER DT$_YR_DDCMP = '00000013'X ! " DDCMP/ PARAMETER DT$_YS_SDLC = '00000014'X ! " SDLC1 PARAMETER DT$_UK_KTC32 = '00000015'X ! " KTC32: PARAMETER DT$_DEQNA = '00000016'X ! Q-BUS to NI adapter, PARAMETER DT$_DMV11 = '00000017'X ! DMV11? PARAMETER DT$_ES_LANCE = '00000018'X ! SCORPIO to NI adapter; PARAMETER DT$_DELUA = '00000019'X ! LSI version of DEUNA- PARAMETER DT$_NQ_3271 = '0000001A'X ! DHCF6 PARAMETER DT$_DMB32 = '0000001B'X ! DMB32 (BICombo)O PARAMETER DT$_YI_KMS11K = '0000001C'X ! not a product, used by field service? PARAMETER DT$_ET_DEBNT = '0000001D'X ! DEBNT (DEBNA grandpa)? PARAMETER DT$_ET_DEBNA = '0000001D'X ! DEBNA (BI-NI adapter)B PARAMETER DT$_SJ_DSV11 = '0000001E'X ! DSV11 Q-BUS sync adapter? PARAMETER DT$_SL_DSB32 = '0000001F'X ! DSB32 BI sync adaptor4 PARAMETER DT$_ZS_DST32 = '00000020'X ! DST32, X25E PARAMETER DT$_XQ_DELQA = '00000021'X ! DELQA - Q-BUS to NI adaptor? PARAMETER DT$_ET_DEBNI = '00000022'X ! DEBNI (BI-NI  adapter)C PARAMETER DT$_EZ_SGEC = '00000023'X ! SGEC CVAX to ethernet chip% PARAMETER DT$_EX_DEMNA = '00000024'X" PARAMETER DT$_DIV32 = '00000025'X% PARAMETER DT$_XQ_DEQTA = '00000026'X" PARAMETER DT$_FT_NI = '00000027'X% PARAMETER DT$_EP_LANCE = '00000028'X" PARAMETER DT$_KWV32 = '00000029'X% PARAMETER DT$_SM_DSF32 = '0000002A'X% PARAMETER DT$_FX_DEMFA = '0000002B'XL PARAMETER DT$_SF_DSF32 = '0000002C'X ! FT unit for DSF32 CIRRUS sync commI PARAMETER DT$_SE_DUP11 = '0000002D'X  ! SEDRIVER common DUP11 sync commI PARAMETER DT$_SE_DPV11 = '0000002E'X ! SEDRIVER common DPV11 sync comm< PARAMETER DT$_ZT_DSW = '0000002F'X ! Generic DSW sync com> PARAMETER DT$_FC_DEFZA = '00000030'X ! Turbochannel to FDDIA PARAMETER DT$_EC_PMAD = '00000031'X ! Turbochannel to Ethernet; PARAMETER DT$_EZ_TGEC = '00000032'X ! TGEC ethernet chip? PARAMETER DT$_EA_DEANA = '00000033'X ! Futurebus to EthernetB PARAMETER DT$_EY_NITC2 = '00000034'X ! Turbochannel to Ethernet> PARAMETER DT$_ER_DE422 = '00000035'X ! EISA bus to Ethernet= PARAMETER DT$_ER_DE200 = '00000036'X ! ISA bus to EthernetL PARAMETER DT$_EW_TULIP = '00000037'X ! Integral PCI bus to TULIP Ethernet; PARAMETER DT$_FA_DEFAA = '00000038'X ! Futurebus to FDDI> PARAMETER DT$_FC_DEFTA = '00000039'X ! Turbochannel to FDDI7 PARAMETER DT$_FQ_DEFQA = '0000003A'X ! Q-bus to FDDI: PARAMETER DT$_FR_DEFEA = '0000003B'X ! EISA bus to FDDI9 PARAMETER DT$_FW_DEFPA = '0000003C'X ! PCI bus to FDDID PARAMETER DT$_IC_DETRA = '0000003D'X ! Turbochannel to Token Ring= PARAMETER DT$_IQ_DEQRA = '0000003E'X ! Q-bus to Token Ring@ PARAMETER DT$_IR_DW300 = '0000003F'X ! EISA bus to Token Ring? PARAMETER DT$_ZR_SCC = '00000040'X ! SCC on AXP workstationsF PARAMETER DT$_ZY_DSYT1 = '00000041'X ! Turbo channel sync interface= PARAMETER DT$_ZE_DNSES = '00000042'X ! EISA sync interfaceD PARAMETER DT$_ER_DE425 = '00000043'X ! EISA bus to TULIP EthernetC PARAMETER DT$_EW_DE435 = '00000 044'X ! PCI bus to TULIP EthernetC PARAMETER DT$_ER_DE205 = '00000045'X ! ISA bus to LEMAC Ethernet< PARAMETER DT$_HC_OTTO = '00000046'X ! Turbochannel to ATM= PARAMETER DT$_ZS_PBXDI = '00000047'X ! ISA sync comms cardD PARAMETER DT$_EL_ELAN = '00000048'X ! Emulated CSMACD LAN for ATM3 PARAMETER DT$_HW_OTTO = '00000049'X ! PCI to ATM< PARAMETER DT$_EO_3C598 = '0000004A'X ! PCMCIA to Ethernet; PARAMETER DT$_IW_TC4048 = '0000004B'X ! PCI to TokenRingA PARAMETER DT$_EW_DE450 = '0000004C'X ! PCI to DC21040 EthernetA PARAMETER DT$_EW_DE500 = '0000004D'X ! PCI to DC21140 Ethernet> PARAMETER DT$_CL_CLIP = '0000004E'X ! Classical IP over ATM= PARAMETER DT$_ZW_PBXDP = '0000004F'X ! PCI sync comms card? PARAMETER DT$_HW_METEOR = '00000050'X ! PCI-ATM ATMworks 351= PARAMETER DT$_ER_DE305 = '00000051'X ! ISA bus to EthernetI PARAMETER DT$_EW_DEGPA = '00000052'X ! PCI to Gigabit Ethernet (DEGPA)D PARAMETER DT$_IW_RACORE = '00000053'X ! PCI to TokenRing (Racore)@ PARAMETER DT$_EB_SMLAN = '00000054'X ! Shared Memory (Galaxy)F PARAMETER DT$_EI_82558 = '00000055'X ! PCI to Fast Ethernet (82558)F PARAMETER DT$_EI_82559 = '00000056'X ! PCI to Fast Ethernet (82559)< PARAMETER DT$_HW_HE622 = '00000057'X ! PCI to ATM (HE622)< PARAMETER DT$_HW_HE155 = '00000058'X ! PCI to ATM (HE155)K PARAMETER DT$_EW_BCM5703 = '00000059'X ! PCI/PCIX to GBE (Broadcom 5703)K PARAMETER DT$_EW_BCM5704 = '0000005A'X ! PCI/PCIX to GBE (Broadcom 5704)A PARAM ETER DT$_EW_XFRAME = '0000005B'X ! PCI/PCIX 10 GBE (S2io)K PARAMETER DT$_EW_BCM5701 = '0000005C'X ! PCI/PCIX to GBE (Broadcom 5701)? PARAMETER DT$_LL_LLAN = '0000005D'X ! Logical LAN (failover)B PARAMETER DT$_EG_ELP_FC = '0000005E'X ! Emulex LP Fibre Channel= PARAMETER DT$_EG_Q_FC = '0000005F'X ! Qlogic Fibre Channel? PARAMETER DT$_EI_82540 = '00000060'X ! Intel Gigabit (8254x)- PARAMETER DT$_VL_VLAN = '00000061'X ! VLAN ! - ! LINE PRINTER AND CARD READER DEVICE TYPES ! * PARAMETER DT$_LP11 = '00000001'X ! LP11* PARAMETER DT$_LA11 = '00000002'X ! LA11, PARAMETER DT$_LA180 = '00000003'X ! LA180/ PARAMETER DT$_LC_DMF32 = '00000004'X ! DMF32/ PARAMETER DT$_LI_DMB32 = '00000005'X ! DMB324 PARAMETER DT$_PRTR9 = '00000006'X ! Printer on 009< PARAMETER DT$_SCSI_SCANNER_1 = '00000007'X ! SCSI Scanner5 PARAMETER DT$_PC_PRINTER = '00000008'X ! PC Printer6 PARAMETER DT$_CR11 = '00000001'X ! CR11 CARD READER !  ! MAILBOX DEVICE TYPES ! : PARAMETER DT$_MBX = '00000001'X ! LOCAL MEMORY MAILBOX= PARAMETER DT$_SHRMBX = '00000002'X ! SHARED MEMORY MAILBOX5 PARAMETER DT$_NULL = '00000003'X ! The NULL DEVICE1 PARAMETER DT$_PIPE = '00000004'X ! PIPE DEVICE ! ' ! REMOTE CONSOLE STORAGE DEVICE TYPES ! ? PARAMETER DT$_DAP_DEVICE = '00000001'X ! DAP-ACCESSED DEVICE !  ! REALTIME DEVICE TYPES ! - PARAMETER DT$_LPA11 = '00000001'X ! LPA-11, PARAMETER DT$_DR780 = '00000002'X ! DR780, PARAMETER DT$_DR750  = '00000003'X ! DR750, PARAMETER DT$_DR11W = '00000004'X ! DR11W< PARAMETER DT$_PCL11R = '00000005'X ! PCL11 RECEIVER (CSS)> PARAMETER DT$_PCL11T = '00000006'X ! PCL11 TRANSMTTER (CSS)? PARAMETER DT$_DR11C = '00000007'X ! DR11C PARALLEL INTERFACE6 PARAMETER DT$_BS_DT07 = '00000008'X ! UNIBUS SWITCHR PARAMETER DT$_XP_PCL11B = '00000009'X ! PCL-11B (DECNET and NONDECNET mode CSS)F PARAMETER DT$_IX_IEX11 = '0000000A'X ! IEEE-488 to UNIBUS INTERFACEF PARAMETER DT$_FP_FEPCM = '000 0000B'X ! FEPCM CSS frontend processorD PARAMETER DT$_TK_FCM = '0000000C'X ! FEPCM CSS frontend processorF PARAMETER DT$_XI_DR11C = '0000000D'X ! PARALLEL INTERFACE ON DMF-32B PARAMETER DT$_XA_DRV11WA = '0000000E'X ! DMA Parallel Interface5 PARAMETER DT$_DRB32 = '0000000F'X ! DRB32 (or MFA)B PARAMETER DT$_HX_DRQ3B = '00000010'X ! DRQ3B PARALLEL INTERFACE !  ! DECVOICE DEVICES ! C PARAMETER DT$_DECVOICE = '00000001'X ! VQ- DECVOICE class driverF PARAMETER DT$_DTC04 = '00000002'X ! VX DECvoice 1 M7132 port driverH PARAMETER DT$_DTC05 = '00000003'X ! VM Decvoice III M3135 port driverH PARAMETER DT$_DTCN5 = '00000004'X ! VN Decvoice III M3136 port driver !  ! AUDIO DEVICES ! C PARAMETER DT$_AMD79C30A = '00000001'X ! AMD79C30A on VLC/PMARIAH !  ! BUS CLASS DEVICES ! , PARAMETER DT$_CI780 = '00000001'X ! CI780, PARAMETER DT$_CI750 = '00000002'X ! CI750= PARAMETER DT$_UQPORT = '00000003'X ! UQPORT is generic UDA, PARAMETER DT$_UDA 50 = '00000003'X ! UDA50. PARAMETER DT$_UDA50A = '00000004'X ! UDA50A5 PARAMETER DT$_LESI = '00000005'X ! Low end storage0 PARAMETER DT$_TU81P = '00000006'X ! TU81 port/ PARAMETER DT$_RDRX = '00000007'X ! RDRX port0 PARAMETER DT$_TK50P = '00000008'X ! TK50 port2 PARAMETER DT$_RUX50P = '00000009'X ! RUX50 port1 PARAMETER DT$_RC26P = '0000000A'X ! RC26P port< PARAMETER DT$_QDA50 = '0000000B'X ! KDA50 port (old name)1 PARAMETER DT$_KDA50 = '0000000B'X ! KDA50 port< PARAM ETER DT$_BDA50 = '0000000C'X ! KDB50 port (old name)? PARAMETER DT$_KDB50 = '0000000C'X ! KDB50 port (alias BDA50)2 PARAMETER DT$_RRD50P = '0000000D'X ! RRD50 port< PARAMETER DT$_QDA25 = '0000000E'X ! KDA25 port (old name)1 PARAMETER DT$_KDA25 = '0000000E'X ! KDA25 port5 PARAMETER DT$_BCI750 = '0000000F'X ! BI-CI750 port0 PARAMETER DT$_BCA = '00000010'X ! BI-CI port1 PARAMETER DT$_RQDX3 = '00000011'X ! RQDX3 port2 PARAMETER DT$_NISCA = '00000012'X ! NI-SCA port2 PARAMET ER DT$_AIO = '00000013'X ! BVP SSP port3 PARAMETER DT$_KFBTA = '00000013'X ! BVP SSP port4 PARAMETER DT$_AIE = '00000014'X ! BVP multi-port5 PARAMETER DT$_DEBNT = '00000014'X ! BVP multi-port PARAMETER DT$_BSA = '00000015'X" PARAMETER DT$_KSB50 = '00000015'X0 PARAMETER DT$_TK70P = '00000016'X ! TK70 port" PARAMETER DT$_RV20P = '00000017'X" PARAMETER DT$_RV80P = '00000017'X0 PARAMETER DT$_TK60P = '00000018'X ! TK60 port PARAMETER DT$_SII = '00000019'X# PARAMETER DT$_KFSQSA = '0000001A'X" PARAMETER DT$_KFQSA = '0000001A'X! PARAMETER DT$_SHAC = '0000001B'X" PARAMETER DT$_CIXCD = '0000001C'X" PARAMETER DT$_N5380 = '0000001D'X" PARAMETER DT$_SCSII = '0000001E'X" PARAMETER DT$_HSX50 = '0000001F'X" PARAMETER DT$_KDM70 = '0000001F'X" PARAMETER DT$_TM32P = '00000020'X" PARAMETER DT$_TK7LP = '00000021'X" PARAMETER DT$_SWIFT = '00000022'X# PARAMETER DT$_N53C94 = '00000023'X" PARAMETER DT$_KFMSA = '00000024'X( PARAMETER DT$_SCSI_XTENDR = '00000025'X) PARAMETER DT$_FT_TRACE_RAM = '00000026'X! PARAMETER DT$_XVIB = '00000027'X% PARAMETER DT$_XZA_SCSI = '00000028'X% PARAMETER DT$_XZA_DSSI = '00000029'X& PARAMETER DT$_N710_SCSI = '0000002A'X& PARAMETER DT$_N710_DSSI = '0000002B'X% PARAMETER DT$_AHA1742A = '0000002C'X% PARAMETER DT$_TZA_SCSI = '0000002D'X& PARAMETER DT$_N810_SCSI = '0000002E'X" PARAMETER DT$_CIPCA = '0000002F'X$ PARAMETER DT$_ISP1020 = '00000030'X$ PARAMETER DT$_MC_SPUR = '00000031'X% PARAMETER DT$_PZA_SCSI = '00000032'X; PARAMET ER DT$_MCSCA = '00000033'X ! MC-SCA port pmdriver: PARAMETER DT$_SMCI = '00000034'X ! SMCI port (pbdriver)' PARAMETER DT$_KZPCM_SCSI = '00000035'X( PARAMETER DT$_SYM896_SCSI = '00000036'X% PARAMETER DT$_FCP_SCSI = '00000037'X& PARAMETER DT$_LP7000_FC = '00000038'X( PARAMETER DT$_SYM895_SCSI = '00000039'X' PARAMETER DT$_KZPCA_SCSI = '0000003A'X- PARAMETER DT$_ADAPTEC7892_SCSI = '0000003B'X- PARAMETER DT$_ADAPTEC7895_SCSI = '0000003C'X- PARAMETER DT$_ADAPTEC7897_SCSI = '0000003D'X- PARAMETER DT$_ADAPTEC7899_SCSI = '0000003E'X! PARAMETER DT$_CISS = '0000003F'X' PARAMETER DT$_ISP23XX_FC = '00000040'X) PARAMETER DT$_LSI1010_SCSI = '00000041'X) PARAMETER DT$_LSI1030_SCSI = '00000042'X' PARAMETER DT$_ISP24XX_FC = '00000043'X( PARAMETER DT$_LSI106X_SAS = '00000044'X% PARAMETER DT$_SW_ISCSI = '00000045'X !  ! MISCELLANEOUS DEVICES ! 0 PARAMETER DT$_DN11 = '00000001'X ! AUTODIALER4 PARAMETER DT$_PV = '00000002'X ! Pseudo keyboard" PARAMETER DT$_SFUN9 = '00000003'X" PARAMETER DT$_USER9 = '00000004'X) PARAMETER DT$_GENERIC_SCSI = '00000005'X$ PARAMETER DT$_DMA_520 = '00000006'X" PARAMETER DT$_T3270 = '00000007'X! PARAMETER DT$_IPMI = '00000009'X$ PARAMETER DT$_ACPI_SE = '0000000A'X!DEC$ END OPTIONS wwjΦ!*** MODULE $DDTMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 7 ! Transaction Manager services structure definitions ! ( ! ** INTEGER*4 DDTM$X_TRANSACTION_ID(4) ! Transaction Id type' ! ** INTEGER*4 DDTM$X_UTC_DATE_TIME(4) ! UTC type@ PARAMETER DDTM$S_TID = '00000010'X ! Size of a transaction id ! " ! System services modifier flags ! $ PARAMETER DDTM$M_SYNC = '00000001'X* PARAMETER DDTM$M_NONDEFAULT = '00000002'X' PARAMETER DDTM$M_PROCESS = '00000004'X( PARAMETER DDTM$M_VOLATILE = '00000008'X' PARAMETER DDTM$M_RUNDOWN = '00000010'X& PARAMETER DDTM$M_CANCEL = '00000020'X* PARAMETER DDTM$M_FULL_STATE = '00000040'X0 PARAMETER DDTM$M_BRANCH_UNSYNCHED = ' 00000080'X+ PARAMETER DDTM$M_COORDINATOR = '00000100'X& PARAMETER DDTM$M_NOWAIT = '00000200'X+ PARAMETER DDTM$M_FINAL_STATE = '00000400'X$ PARAMETER DDTM$M_LATE = '80000000'X STRUCTURE /DDTM$R_FLAGS/ PARAMETER DDTM$S_SYNC = 1@ PARAMETER DDTM$V_SYNC = 0 ! Synchronous status requested$ PARAMETER DDTM$S_NONDEFAULT = 1E PARAMETER DDTM$V_NONDEFAULT = 1 ! Not the default transaction! PARAMETER DDTM$S_PROCESS = 1; PARAMETER DDTM$V_PROCESS = 2 ! Process-perma nent RM" PARAMETER DDTM$S_VOLATILE = 1; PARAMETER DDTM$V_VOLATILE = 3 ! volatile-only state! PARAMETER DDTM$S_RUNDOWN = 15 PARAMETER DDTM$V_RUNDOWN = 4 ! forget all RMs PARAMETER DDTM$S_CANCEL = 1: PARAMETER DDTM$V_CANCEL = 5 ! Cancel GET operation$ PARAMETER DDTM$S_FULL_STATE = 1@ PARAMETER DDTM$V_FULL_STATE = 6 ! Full state information* PARAMETER DDTM$S_BRANCH_UNSYNCHED = 1H PARAMETER DDTM$V_BRANCH_UNSYNCHED = 7 ! Don't need to syn c branch% PARAMETER DDTM$S_COORDINATOR = 1> PARAMETER DDTM$V_COORDINATOR = 8 ! Join Coordinating RM PARAMETER DDTM$S_NOWAIT = 1@ PARAMETER DDTM$V_NOWAIT = 9 ! Don't wait for termination% PARAMETER DDTM$S_FINAL_STATE = 1H PARAMETER DDTM$V_FINAL_STATE = 10 ! Get final transaction outcome PARAMETER DDTM$S_LATE = 1 PARAMETER DDTM$V_LATE = 313 BYTE %FILL (2) ! Phase one branch or join END STRUCTURE ! DDTM$R_FLAGS ! * ! Resource manager  event request options ! * PARAMETER DDTM$M_EV_PREPARE = '00000001'X( PARAMETER DDTM$M_EV_ABORT = '00000002'X) PARAMETER DDTM$M_EV_COMMIT = '00000004'X0 PARAMETER DDTM$M_EV_DEFAULT_TRANS = '00000008'X. PARAMETER DDTM$M_EV_TRANS_START = '00000010'X STRUCTURE /DDTM$R_EVENT_MASK/$ PARAMETER DDTM$S_EV_PREPARE = 1? PARAMETER DDTM$V_EV_PREPARE = 0 ! Vote request required" PARAMETER DDTM$S_EV_ABORT = 1; PARAMETER DDTM$V_EV_ABORT = 1 ! Abort notificiation# PARAMETER  DDTM$S_EV_COMMIT = 1= PARAMETER DDTM$V_EV_COMMIT = 2 ! Commit notificiation* PARAMETER DDTM$S_EV_DEFAULT_TRANS = 1> PARAMETER DDTM$V_EV_DEFAULT_TRANS = 3 ! New default TID( PARAMETER DDTM$S_EV_TRANS_START = 1M PARAMETER DDTM$V_EV_TRANS_START = 4 ! Request transaction start events BYTE %FILL (1)" END STRUCTURE ! DDTM$R_EVENT_MASK ! + ! $TRANS_EVENT system service event types ! J PARAMETER DDTM$K_TX_PREPARE = '00000001'X ! Prepare transaction requestF  PARAMETER DDTM$K_TX_COMMIT = '00000002'X ! Commit transaction orderD PARAMETER DDTM$K_TX_ABORT = '00000003'X ! Abort transaction orderN PARAMETER DDTM$K_TX_RECOVER_COMMIT = '00000004'X ! Commit order on recoveryL PARAMETER DDTM$K_TX_RECOVER_ABORT = '00000005'X ! Abort order on recovery ! ' ! Resource manager event report types ! = PARAMETER DDTM$K_PREPARE = '00000001'X ! Prepare operation; PARAMETER DDTM$K_COMMIT = '00000002'X ! Commit operation9 PARAMETER DDTM$K_ABORT =  '00000003'X ! Abort operationE PARAMETER DDTM$K_ONE_PHASE_COMMIT = '00000004'X ! One-phase commitI PARAMETER DDTM$K_DEFAULT_CLEARED = '00000005'X ! Tid no longer defaultG PARAMETER DDTM$K_DEFAULT_SET = '00000006'X ! Tid now process defaultS PARAMETER DDTM$K_STARTED_DEFAULT = '00000007'X ! New process default transactionQ PARAMETER DDTM$K_STARTED_NONDEFAULT = '00000008'X ! New nondefault transactionK PARAMETER DDTM$K_RECOVER_COMMITTED = '00000009'X ! Transaction committedG P ARAMETER DDTM$K_RECOVER_ERROR = '0000000A'X ! Error during recoveryJ PARAMETER DDTM$K_RECOVER_INDOUBT = '0000000B'X ! Transaction is indoubtP PARAMETER DDTM$K_RECOVER_RESOLVE = '0000000C'X ! RM resposible for resolution ! . ! Transaction report structure (DECdtm V1.0) ! ? STRUCTURE /DDTM$R_ASTDEF/ ! Transaction event AST parameter3 INTEGER*4 DDTM$L_ARGLEN ! Structure length. INTEGER*4 DDTM$A_TID ! Transaction id9 INTEGER*4 DDTM$L_PART_ID ! Participant i dentifier2 INTEGER*4 DDTM$L_RM_CTX ! RM event ASTPRM1 INTEGER*4 DDTM$L_OPTYPE ! Operation type= INTEGER*4 DDTM$L_REASON ! Abort extended reason code= INTEGER*4 DDTM$O_UTC_CMT_TIME(4) ! Reserved to Digital< INTEGER*4 DDTM$O_UTC_LATEST(4) ! Reserved to Digital END STRUCTURE ! DDTM$R_ASTDEF ! ! Transaction report structure !  STRUCTURE /DDTM$R_REPORTDEF/6 INTEGER*4 DDTM$L_REPORT_LEN ! Structure length1 INTEGER*4 DDTM$A_TID_PTR !  Transaction id6 INTEGER*4 DDTM$L_REPORT_ID ! Report identifier5 INTEGER*4 DDTM$L_RM_CONTEXT ! RM event ASTPRM7 INTEGER*4 DDTM$L_EVENT_TYPE ! Event report typeB INTEGER*4 DDTM$L_ABORT_REASON ! Abort extended reason code= INTEGER*4 DDTM$O_COMMIT_TIME(4) ! Reserved to Digital= INTEGER*4 DDTM$O_LATEST_TIME(4) ! Reserved to DigitalC INTEGER*4 DDTM$Q_TX_CLASS(2) ! Transaction class descriptor> INTEGER*4 DDTM$Q_PART_NAME(2) ! RM Instance descriptor! END STRUCTURE ! DDTM$R_REPORTDEF!DEC$ END OPTIONS ww5Φ!*** MODULE $DDTMMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:11.31 ! > ! .TITLE DDTMMSGDEF -- DECDTM SERVICES EXTENDED REASON CODES ! L ! * *L ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1991, 1993 *L ! * ALL RIGHTS RESERVED. *L ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *L ! * STATES. *L ! * *L ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *L ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *L ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *L ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *L ! * DIGITAL EQUIPMENT CORPORATION. *L ! * *L ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *L ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *L ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *L ! * * !  ! ++ ! FACILITY: DDTM ! ! ABSTRACT: ! K ! THIS MODULE DEFINES THE EXTENDED TRANSACTION ABORT REASON CODES FOR THE ! DECDTM TRANSACTION MANAGER. !  ! ENVIRONMENT: ! VMS V5.4 OR LATER. ! 9 ! AUTHOR: JAMES E JOHNSON CREATION DATE: 27-FEB-1990 !  ! MODIFIED BY: ! ( ! A-4 KJP KEVIN PLAYFORD 15-SEP-1993@ ! UPDATED ALPHA VERSION OF DECDTM MESSAGES TO REFLECT MESSAGE( ! TEXT AS FOUND IN HELP MESSAGE TEXT. ! ( ! A-3 KJP KEVIN PLAYFORD 23-AUG-1993< ! UPDATED ALPHA VERSION OF DECDTM MESSAGES TO DECDTM V1.2 ! FUNCTIONALITY. ! ( ! *** VAX CHANGES PICKED UP FOR ALPHA ! $ ! X-6 RM RUDI MARTIN 9-AUG-19935 ! UPDATE SYNCH_FAIL AND ORPHAN_BRANCH MESSAGES TO, ! CORRESPOND TO THEIR HELP/MESSAGE TEXT. ! ( ! A-2 KJP KEVIN PLAYFORD 20-JUL-1993< ! UPDATED ALPHA VERSION OF DECDTM MESSAGES TO DECDTM V1.2 ! FUNCTIONALITY. ! ( ! *** VAX CHANGES PICKED UP FOR ALPHA ! $ ! X-5 RM RUDI MARTIN 25-FEB-1993 ! ADD XA ERROR CODES. ! ' ! X-4 CW CHRIS WHITAKER 26-FEB-19913 ! MODIFY WORDING ON SOME MESSAGES TO CONFORM TO. ! FUNCTIONAL SPECIFICATION OF DECDTM V1.2. ! + ! X-3 CW1023 CHRIS WHITAKER 21-MAY-1990( ! ADD RESERVED CODE AS FIRST MESSAGE. ! - ! X-2 JEJ0599 JAMES E JOHNSON 23-APR-1990/ ! ADD LOG_FAIL, SYNC_FAIL, AND ORPHAN_BRANCH !  ! --' PARAMETER DDTM$_FACILITY = '000004A3'XD PARAMETER DDTM$_UNKNOWN = '00000000'X ! NO EXTENDED CODE PROVIDED ! ERROR CODES: ! ' PARAMETER DDTM$_RESERVED = '04A38002'X& PARAMETER DDTM$_TIMEOUT = '04A3800A'X+ PARAMETER DDTM$_PART_TIMEOUT = '04A38012'X' PARAMETER DDTM$_SEG_FAIL = '04A3801A'X( PARAMETER DDTM$_COMM_FAIL = '04A38022'X% PARAMETER DDTM$_VETOED = '04A3802A'X& PARAMETER DDTM$_ABORTED = '04A38032'X, PARAMETER DDTM$_SERIALIZATION = '04A3803A'X* PARAMETER DDTM$_PART_SERIAL = '04A38042'X( PARAMETER DDTM$_INTEGRITY = '04A3804A'X' PARAMETER DDTM$_LOG_FAIL = '04A38052'X( PARAMETER DDTM$_SYNC_FAIL = '04A3805A'X, PARAMETER DDTM$_ORPHAN_BRANCH = '04A38062'X' PARAMETER DDTM$_DEADLOCK = '04A3806A'X( PARAMETER DDTM$_PROTERROR = '04A38072'X' PARAMETER DDTM$_ROLLBACK = '04A3807A'X( PARAMETER DDTM$_TRANSIENT = '04A38082'X!DEC$ END OPTIONSww;RlΦ!*** MODULE $DELPRCSYMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! / ! $DELPRCSYMDEF - $DELPRC symbol definitions  !  ! -& PARAMETER DELPRC$M_EXIT = '00000004'X( PARAMETER DELPRC$M_NOEXIT = '00000008'X STRUCTURE /DELPRCFLAGS/ PARAMETER DELPRC$S_MODE = 2R PARAMETER DELPRC$V_MODE = 0 ! Access mode to start exit functionality with PARAMETER DELPRC$S_EXIT = 1? PARAMETER DELPRC$V_EXIT = 2 ! Enable exit functionality" PARAMETER DELPRC$S_NOEXIT = 1H PARAMETER DELPRC$V_NOEXIT = 3 ! Do not enable exit functionality BYTE %FILL (1) END STRUCTURE ! DELPRCFLAGS!DEC$ END OPTIONS wwlΦ!*** MODULE $DEVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! = ! THE FOLLOWING BITS DEFINE THE DEVICE CHARACTERISTICS FOR ! BOTH THE UCBS AND RMS. ! " PARAMETER DEV$M_REC = '00000001'X" PARAMETER DEV$M_CCL = '00000002'X" PARAMETER DEV$M_TRM = '00000004'X" PARAMETER DEV$M_DIR = '00000008'X" PARAMETER DEV$M_SDI = '00000010'X" PARAMETER DEV$M_SQD = '00000020'X" PARAMETER DEV$M_SPL = '00000040'X" PARAMETER DEV$M_OPR = '00000080'X" PARAMETER DEV$M_RCT = '00000100'X# PARAMETER DEV$M_QSVD = '00000200'X$ PARAMETER DEV$M_QSVBL = '00000400'X. PARAMETER DEV$M_MPDEV_SECONDARY = '00000800'X+ PARAMETER DEV$M_MPDEV_MEMBER = '00001000'X" PARAMETER DEV$M_NET = '00002000'X" PARAMETER DEV$M_FOD = '00004000'X" PARAMETER DEV$M_DUA = '00008000'X" PARAMETER DEV$M_SHR = '00010000'X" PARAMETER DEV$M_GEN = '00020000'X" PARAMETER DEV$M_AVL = '00040000'X" PARAMETER DEV$M_MNT = '00080000'X" PARAMETER DEV$M_MBX = '00100000'X" PARAMETER DEV$M_DMT = '00200000'X" PARAMETER DEV$M_ELG = '00400000'X" PARAMETER DEV$M_ALL = '00800000'X" PARAMETER DEV$M_FOR = '01000000'X" PARAMETER DEV$M_SWL = '02000000'X" PARAMETER DEV$M_IDV = '04000000'X" PARAMETER DEV$M_ODV = '08000000'X" PARAMETER DEV$M_RND = '10000000'X" PARAMETER DEV$M_RTM = '20000000'X" PARAMETER DEV$M_RCK = '40000000'X" PARAMETER DEV$M_WCK = '80000000'X" PARAMETER DEV$M_CLU = '00000001'X" PARAMETER DEV$M_DET = '00000002'X" PARAMETER DEV$M_RTT = '00000004'X" PARAMETER DEV$M_CDP = '00000008'X! PARAMETER DEV$M_2P = '00000010'X# PARAMETER DEV$M_MSCP = '00000020'X" PARAMETER DEV$M_SSM = '00000040'X" PARAMETER DEV$M_SRV = '00000080'X" PARAMETER DEV$M_RED = '00000100'X" PARAMETER DEV$M_NNM = '00000200'X" PARAMETER DEV$M_WBC = '00000400'X" PARAMETER DEV$M_WTC = '00000800'X" PARAMETER DEV$M_HOC = '00001000'X" PARAMETER DEV$M_LOC = '00002000'X" PARAMETER DEV$M_DFS = '00004000'X" PARAMETER DEV$M_DAP = '00008000'X" PARAMETER DEV$M_NLT = '00010000'X" PARAMETER DEV$M_SEX = '00020000'X" PARAMETER DEV$M_SHD = '00040000'X" PARAMETER DEV$M_VRT = '00080000'X" PARAMETER DEV$M_LDR = '00100000'X# PARAMETER DEV$M_NOLB = '00200000'X$ PARAMETER DEV$M_NOCLU = '00400000'X# PARAMETER DEV$M_VMEM = '00800000'X# PARAMETER DEV$M_SCSI = '01000000'X" PARAMETER DEV$M_WLG = '02000000'X# PARAMETER DEV$M_NOFE = '04000000'X% PARAMETER DEV$M_FILL_2 = '08000000'X% PARAMETER DEV$M_CRAMIO = '10000000'X" PARAMETER DEV$M_DTN = '20000000'X% PARAM ETER DEV$M_FILL_3 = '40000000'X' PARAMETER DEV$M_POOL_MBR = '80000000'X STRUCTURE /DEVDEF/ UNION MAP PARAMETER DEV$S_REC = 1> PARAMETER DEV$V_REC = 0 ! DEVICE RECORD ORIENTED PARAMETER DEV$S_CCL = 1? PARAMETER DEV$V_CCL = 1 ! CARRIAGE CONTROL DEVICE PARAMETER DEV$S_TRM = 1< PARAMETER DEV$V_TRM = 2 ! DEVICE IS A TERMINAL PARAMETER DEV$S_DIR = 1F PARAMETER DEV$V_DIR = 3 ! DEVICE IS DIRECTORY STR UCTURED PARAMETER DEV$S_SDI = 1M PARAMETER DEV$V_SDI = 4 ! DEVICE IS SINGLE DIRECTORY STRUCTURED PARAMETER DEV$S_SQD = 1X PARAMETER DEV$V_SQD = 5 ! SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) PARAMETER DEV$S_SPL = 1< PARAMETER DEV$V_SPL = 6 ! DEVICE BEING SPOOLED PARAMETER DEV$S_OPR = 1= PARAMETER DEV$V_OPR = 7 ! DEVICE IS AN OPERATOR PARAMETER DEV$S_RCT = 1Q PARAMETER DEV$V_RCT =  8 ! DISK CONTAINS RCT (DEC STANDARD 166 DISK) ! PARAMETER DEV$S_QSVD = 1K PARAMETER DEV$V_QSVD = 9 ! Client device is served by QIOserver" PARAMETER DEV$S_QSVBL = 1O PARAMETER DEV$V_QSVBL = 10 ! Server device is servable by QIOserver, PARAMETER DEV$S_MPDEV_SECONDARY = 1] PARAMETER DEV$V_MPDEV_SECONDARY = 11 ! Indicates secondary unit in a multipath set) PARAMETER DEV$S_MPDEV_MEMBER = 1Q PARAMETER DEV$V_MPDEV_MEM BER = 12 ! Device is part of a multipath set. PARAMETER DEV$S_NET = 16 PARAMETER DEV$V_NET = 13 ! NETWORK DEVICE PARAMETER DEV$S_FOD = 1Q PARAMETER DEV$V_FOD = 14 ! FILES-ORIENTED DEVICE (I.E., DISK AND MT) PARAMETER DEV$S_DUA = 1= PARAMETER DEV$V_DUA = 15 ! DEVICE IS DUAL PORTED PARAMETER DEV$S_SHR = 18 PARAMETER DEV$V_SHR = 16 ! DEVICE SHAREABLE PARAMETER DEV$S_GEN = 1B PARAMETER DEV$V _GEN = 17 ! DEVICE IS A GENERIC DEVICE PARAMETER DEV$S_AVL = 1@ PARAMETER DEV$V_AVL = 18 ! DEVICE AVAILABLE FOR USE PARAMETER DEV$S_MNT = 19 PARAMETER DEV$V_MNT = 19 ! DEVICE IS MOUNTED PARAMETER DEV$S_MBX = 1; PARAMETER DEV$V_MBX = 20 ! DEVICE IS A MAILBOX PARAMETER DEV$S_DMT = 1B PARAMETER DEV$V_DMT = 21 ! DEVICE MARKED FOR DISMOUNT PARAMETER DEV$S_ELG = 1H PARAMETER DEV$V_ELG = 22 !! DEVICE HAS ERROR LOGGING ENABLED PARAMETER DEV$S_ALL = 1; PARAMETER DEV$V_ALL = 23 ! DEVICE IS ALLOCATED PARAMETER DEV$S_FOR = 1] PARAMETER DEV$V_FOR = 24 ! DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) PARAMETER DEV$S_SWL = 1G PARAMETER DEV$V_SWL = 25 ! DEVICE IS SOFTWARE WRITE LOCKED PARAMETER DEV$S_IDV = 1I PARAMETER DEV$V_IDV = 26 ! DEVICE CAPABLE OF PROVIDING INPUT PARAMETER DEV$S "_ODV = 1J PARAMETER DEV$V_ODV = 27 ! DEVICE CAPABLE OF PROVIDING OUTPUT PARAMETER DEV$S_RND = 1C PARAMETER DEV$V_RND = 28 ! DEVICE ALLOWS RANDOM ACCESS PARAMETER DEV$S_RTM = 1D PARAMETER DEV$V_RTM = 29 ! DEVICE IS REALTIME IN NATURE PARAMETER DEV$S_RCK = 1H PARAMETER DEV$V_RCK = 30 ! DEVICE HAS READ CHECKING ENABLED PARAMETER DEV$S_WCK = 1! PARAMETER DEV$V_WCK = 31A BYTE %FILL (4) ! DEV #ICE HAS WRITE CHECKING ENABLED END MAP MAP PARAMETER DEV$S_CLU = 1G PARAMETER DEV$V_CLU = 0 ! DEVICE IS AVAILABLE CLUSTER-WIDE PARAMETER DEV$S_DET = 1B PARAMETER DEV$V_DET = 1 ! DEVICE IS DETACHED TERMINAL PARAMETER DEV$S_RTT = 1O PARAMETER DEV$V_RTT = 2 ! DEVICE HAS REMOTE TERMINAL UCB EXTENSION PARAMETER DEV$S_CDP = 1C PARAMETER DEV$V_CDP = 3 ! DUAL PATH DEVICE WITH 2 UCBs PARAMETER $ DEV$S_2P = 1H PARAMETER DEV$V_2P = 4 ! TWO PATHS ARE KNOWN TO THIS DEVICE! PARAMETER DEV$S_MSCP = 1P PARAMETER DEV$V_MSCP = 5 ! DEVICE ACCESSED USING MSCP (disk or tape) PARAMETER DEV$S_SSM = 1V PARAMETER DEV$V_SSM = 6 ! this bit was set for Phase I (controller-based)- ! shadowing only. This bit is not set for- ! Phase II (host-based) shadowing; Phase II! ! sets the SHD bit (see below). PARAMETER DEV$S_SRV = 1K P %ARAMETER DEV$V_SRV = 7 ! DEVICE IS SERVED VIA THE MSCP SERVER PARAMETER DEV$S_RED = 1D PARAMETER DEV$V_RED = 8 ! DEVICE IS redirected terminal PARAMETER DEV$S_NNM = 1A PARAMETER DEV$V_NNM = 9 ! DEVICE HAS "node$" PREFIX PARAMETER DEV$S_WBC = 1I PARAMETER DEV$V_WBC = 10 ! DEVICE SUPPORTS WRITE-BACK CACHING PARAMETER DEV$S_WTC = 1L PARAMETER DEV$V_WTC = 11 ! DEVICE SUPPORTS WRITE-THROUGH CACHING P &ARAMETER DEV$S_HOC = 1C PARAMETER DEV$V_HOC = 12 ! DEVICE SUPPORTS HOST CACHING PARAMETER DEV$S_LOC = 1\ PARAMETER DEV$V_LOC = 13 ! DEVICE ACCESSIBLE VIA LOCAL (NON-EMULATED) CONTROLLER PARAMETER DEV$S_DFS = 1; PARAMETER DEV$V_DFS = 14 ! DEVICE IS DFS-SERVED PARAMETER DEV$S_DAP = 1= PARAMETER DEV$V_DAP = 15 ! DEVICE IS DAP ACCESSED PARAMETER DEV$S_NLT = 1Y PARAMETER DEV$V_NLT = 16 ! DEVICE IS NOT-LAS 'T-TRACK (I.E. IT HAS NO BAD BLOCK" ! INFORMATION ON ITS LAST TRACK) PARAMETER DEV$S_SEX = 1X PARAMETER DEV$V_SEX = 17 ! DEVICE (tape) SUPPORTS SERIOUS EXCEPTION HANDLING PARAMETER DEV$S_SHD = 1T PARAMETER DEV$V_SHD = 18 ! DEVICE IS A MEMBER OF A HOST BASED SHADOW SET PARAMETER DEV$S_VRT = 1J PARAMETER DEV$V_VRT = 19 ! DEVICE IS A SHADOW SET VIRTUAL UNIT PARAMETER DEV$S_LDR = 1= PARAMETER DEV$V_LDR = 20 ! LOADER (PRESENT (TAPES)! PARAMETER DEV$S_NOLB = 1U PARAMETER DEV$V_NOLB = 21 ! DEVICE IGNORES SERVER LOAD BALANCING REQUESTS" PARAMETER DEV$S_NOCLU = 1T PARAMETER DEV$V_NOCLU = 22 ! DEVICE WILL NEVER BE AVAILABLE CLUSTER-WIDE! PARAMETER DEV$S_VMEM = 1K PARAMETER DEV$V_VMEM = 23 ! Virtual member of a constituent set! PARAMETER DEV$S_SCSI = 1? PARAMETER DEV$V_SCSI = 24 ! DEVICE IS A SCSI DEVICE PARAMETER DEV$S_W )LG = 1_ PARAMETER DEV$V_WLG = 25 ! DEVICE HAS MSCP Based (Phase I) WRITE LOGGING CAPABILITY! PARAMETER DEV$S_NOFE = 1K PARAMETER DEV$V_NOFE = 26 ! DEVICE DOESN'T SUPPORT FORCED ERROR# PARAMETER DEV$S_FILL_2 = 1T PARAMETER DEV$V_FILL_2 = 27 ! Reserved for: Allocation in progress (MME)# PARAMETER DEV$S_CRAMIO = 1> PARAMETER DEV$V_CRAMIO = 28 ! Performs Mailbox I/O PARAMETER DEV$S_DTN = 1P PARAMETER DEV$V_D*TN = 29 ! Device has DDR Device Type Name available% PARAMETER DEV$S_POOL_MBR = 1& PARAMETER DEV$V_POOL_MBR = 31> BYTE %FILL (4) ! Unit is bound to a storage pool END MAP END UNION END STRUCTURE ! DEVDEF!DEC$ END OPTIONS wwmΦ!*** MODULE $DIBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +( ! DEVICE INFORMATION BLOCK DEFINITIONS ! -@ PARAMETER DIB$K_LENGTH = '00000074'X ! LENGTH OF TOTAL BUFFER @ + PARAMETER DIB$C_LENGTH = '00000074'X ! LENGTH OF TOTAL BUFFER  STRUCTURE /DIBDEF/9 INTEGER*4 DIB$L_DEVCHAR ! DEVICE CHARACTERISTICS / BYTE DIB$B_DEVCLASS ! DEVICE CLASS . BYTE DIB$B_DEVTYPE ! DEVICE TYPE 6 INTEGER*2 DIB$W_DEVBUFSIZ ! DEVICE BUFFER SIZE UNION MAPD INTEGER*4 DIB$L_DEVDEPEND ! DEVICE DEPENDENT INFORMATION  END MAP MAPH BYTE DIB$B_SECTORS ! (DISK ONLY) SECTORS PER TRACK @ , BYTE DIB$B_TRACKS ! " TRACKS PER CYLINDER B INTEGER*2 DIB$W_CYLINDERS ! " NUMBER OF CYLINDERS  END MAP END UNION2 INTEGER*2 DIB$W_UNIT ! DEVICE UNIT NUMBER H INTEGER*2 DIB$W_DEVNAMOFF ! OFFSET TO DEVICE NAME COUNTED STRING B INTEGER*4 DIB$L_PID ! DEVICE OWNER PROCESS IDENTIFICATION G INTEGER*4 DIB$L_OWNUIC ! DEVICE OWNER USER IDENTIFICATION CODE 7 INTEGER*2 DIB$W_VPROT ! DEVICE PROTECTION MASK 4 INTEGER*2 - DIB$W_ERRCNT ! DEVICE ERROR COUNT 8 INTEGER*4 DIB$L_OPCNT ! DEVICE OPERATIONS COUNT I INTEGER*2 DIB$W_VOLNAMOFF ! OFFSET TO VOLUME LABEL COUNTED STRING 5 INTEGER*2 DIB$W_RECSIZ ! BLOCKED RECORD SIZE H CHARACTER*76 DIB$T_DEVNAME ! SPACE FOR DEVNAME AND LABEL (64+12) = INTEGER*4 DIB$L_MAXBLOCK ! DISK VOLUME SIZE IN BLOCKS  END STRUCTURE ! DIBDEF!DEC$ END OPTIONS ww>]mΦ!*** MODULE $DIRENTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,.COMMONS=PACKED)/NOWARN& PARAMETER dirent$k_name = '00000001'X) PARAMETER dirent$k_version = '00000002'X STRUCTURE /dirent/ INTEGER*2 dirent$iw_size INTEGER*2 dirent$iw_type END STRUCTURE ! dirent STRUCTURE /dirent_nam/! INTEGER*2 dirent_nam$iw_size! INTEGER*2 dirent_nam$iw_type* INTEGER*2 dirent_nam$iw_version_limit INTEGER*2 %FILL( INTEGER*4 dirent_nam$il_name_length' CHARACTER*1 dirent_nam$t_name(1:1) END STRUCTURE ! dirent_nam& PARAMET/ER dirent$k_file = '00000001'X+ PARAMETER dirent$k_directory = '00000002'X STRUCTURE /dirent_ver/! INTEGER*2 dirent_ver$iw_size! INTEGER*2 dirent_ver$iw_type$ INTEGER*2 dirent_ver$iw_version% INTEGER*2 dirent_ver$iw_obj_type INTEGER*2 %FILL UNION MAP) INTEGER*2 dirent_ver$iw_fid(1:3) END MAP MAP, INTEGER*2 dirent_ver$iw_fid_num, INTEGER*2 dirent_ver$iw_fid_seq UNION 0 MAP0 INTEGER*2 dirent_ver$iw_fid_rvn END MAP MAP4 INTEGER*1 dirent_ver$ib_fid_rvn4 INTEGER*1 dirent_ver$ib_fid_nmx END MAP END UNION END MAP END UNION END STRUCTURE ! dirent_ver!DEC$ END OPTIONS wwmΦ!*** MODULE $DMTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 8 ! FLAG BITS FOR THE $DISMOU (DISMOUNT)1 SYSTEM SERVICE. ! ' PARAMETER DMT$M_NOUNLOAD = '00000001'X# PARAMETER DMT$M_UNIT = '00000002'X$ PARAMETER DMT$M_ABORT = '00000004'X& PARAMETER DMT$M_CLUSTER = '00000008'X% PARAMETER DMT$M_UNLOAD = '00000010'X) PARAMETER DMT$M_OVR_CHECKS = '00000020'X) PARAMETER DMT$M_CHECK_ONLY = '00000040'X% PARAMETER DMT$M_REMOTE = '00000080'X0 PARAMETER DMT$M_MINICOPY_REQUIRED = '00000100'X0 PARAMETER DMT$M_MINICOPY_OPTIONAL = '00000200'X$ PARAMETER DMT$M_FORCE = '00000400'X STRUCTURE /DMTDEF 2/ UNION MAP% PARAMETER DMT$S_NOUNLOAD = 1P PARAMETER DMT$V_NOUNLOAD = 0 ! DO NOT UNLOAD (SPIN DOWN) THE VOLUME ! PARAMETER DMT$S_UNIT = 1J PARAMETER DMT$V_UNIT = 1 ! DISMOUNT ONLY THE SPECIFIED VOLUME " PARAMETER DMT$S_ABORT = 18 PARAMETER DMT$V_ABORT = 2 ! FORCED DISMOUNT $ PARAMETER DMT$S_CLUSTER = 1? PARAMETER DMT$V_CLUSTER = 3 ! CLUSTER-WIDE DISMOUNT# PARAMETER DMT$S_UNLOAD = 1P PARAM 3ETER DMT$V_UNLOAD = 4 ! EXPLICIT UNLOAD (OVERRIDE UCB$x_UNLOAD)' PARAMETER DMT$S_OVR_CHECKS = 1F PARAMETER DMT$V_OVR_CHECKS = 5 ! OVERRIDE OPEN FILE CHECKS' PARAMETER DMT$S_CHECK_ONLY = 1W PARAMETER DMT$V_CHECK_ONLY = 6 ! CHECK ONLY FOR OPEN FILES - DON'T DISMOUNT# PARAMETER DMT$S_REMOTE = 1` PARAMETER DMT$V_REMOTE = 7 ! CURRENT DISMOUNTER IS REMOTE WITH RESPECT TO ORIGINATOR. PARAMETER DMT$S_MINICOPY_REQUIRED = 1B 4 PARAMETER DMT$V_MINICOPY_REQUIRED = 8 ! BITMAP REQUIRED. PARAMETER DMT$S_MINICOPY_OPTIONAL = 1B PARAMETER DMT$V_MINICOPY_OPTIONAL = 9 ! BITMAP OPTIONAL" PARAMETER DMT$S_FORCE = 1> PARAMETER DMT$V_FORCE = 10 ! FORCE dismount of SSM BYTE %FILL (2) END MAP END UNION END STRUCTURE ! DMTDEF!DEC$ END OPTIONS wwmΦ!*** MODULE $DPSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + !  ! Get De5vice path information !  ! **** NOTE **** ! H ! New items must always be added at the END of the list so that* ! users will not have to rebuild. !  ! -W PARAMETER DPS$_MP_PATHNAME = '00000001'X ! Device path name  ! ? ! *** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** ! !DEC$ END OPTIONS wwW Φ!*** MODULE $DSCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN( ! Define Procedu 6re argument data types> ! The following encoding is used for atomic data elements:+ ! Mnemonic Code DescriptionP PARAMETER DSC$K_DTYPE_Z = '00000000'X ! Unspecified. The calling program has Y PARAMETER DSC64$K_DTYPE_Z = '00000000'X ! specified no data type/* the called/ ! procedure should assume the argument is of ! the correct type.S PARAMETER DSC$K_DTYPE_BU = '00000002'X ! Byte Logical. 8-bit unsigned quantity. ) PARAMETER DSC64$K_DTYPE_BU = '0000000 72'XT PARAMETER DSC$K_DTYPE_WU = '00000003'X ! Word Logical. 16-bit unsigned quantity. ) PARAMETER DSC64$K_DTYPE_WU = '00000003'XN PARAMETER DSC$K_DTYPE_LU = '00000004'X ! Longword Logical. 32-bit unsigned 7 PARAMETER DSC64$K_DTYPE_LU = '00000004'X ! quantity.N PARAMETER DSC$K_DTYPE_QU = '00000005'X ! Quadword Logical. 64-bit unsigned 7 PARAMETER DSC64$K_DTYPE_QU = '00000005'X ! quantity.O PARAMETER DSC$K_DTYPE_OU = '00000019'X ! Octaword Logical. 128-bit unsigned 7 PARAMETER D8SC64$K_DTYPE_OU = '00000019'X ! quantity.U PARAMETER DSC$K_DTYPE_B = '00000006'X ! Byte Integer. 8-bit signed 2's-complement 5 PARAMETER DSC64$K_DTYPE_B = '00000006'X ! integer.V PARAMETER DSC$K_DTYPE_W = '00000007'X ! Word Integer. 16-bit signed 2's-complement 5 PARAMETER DSC64$K_DTYPE_W = '00000007'X ! integer.K PARAMETER DSC$K_DTYPE_L = '00000008'X ! Longword Integer. 32-bit signed D PARAMETER DSC64$K_DTYPE_L = '00000008'X ! 2's-complement integer.K PARAMETER DSC$K_DTYPE_Q9 = '00000009'X ! Quadword Integer. 64-bit signed D PARAMETER DSC64$K_DTYPE_Q = '00000009'X ! 2's-complement integer.L PARAMETER DSC$K_DTYPE_O = '0000001A'X ! Octaword Integer. 128-bit signed D PARAMETER DSC64$K_DTYPE_O = '0000001A'X ! 2's-complement integer._ PARAMETER DSC$K_DTYPE_F = '0000000A'X ! F_floating. 32-bit F_floating quantity representing G PARAMETER DSC64$K_DTYPE_F = '0000000A'X ! a single-precision number._ PARAMETER DSC$K_DTYPE_D = '0000000B'X ! D_floating. 64-bit :D_floating quantity representing G PARAMETER DSC64$K_DTYPE_D = '0000000B'X ! a double-precision number._ PARAMETER DSC$K_DTYPE_G = '0000001B'X ! G_floating. 64-bit G_floating quantity representing G PARAMETER DSC64$K_DTYPE_G = '0000001B'X ! a double-precision number.` PARAMETER DSC$K_DTYPE_H = '0000001C'X ! H_floating. 128-bit H_floating quantity representing J PARAMETER DSC64$K_DTYPE_H = '0000001C'X ! a quadruple-precision number.[ PARAMETER DSC$K_DTYPE_FC = '0000000C'X ! F_floa;ting complex. Ordered pair of F_floating ` PARAMETER DSC64$K_DTYPE_FC = '0000000C'X ! quantities representing a single-precision complex0 ! number. The lower addressed quantity is the4 ! real part, the higher addressed quantity is the ! imaginary part.[ PARAMETER DSC$K_DTYPE_DC = '0000000D'X ! D_floating complex. Ordered pair of D_floating ` PARAMETER DSC64$K_DTYPE_DC = '0000000D'X ! quantities representing a double-precision complex0 ! number. The lower addressed quantity is t <he4 ! real part, the higher addressed quantity is the ! imaginary part.[ PARAMETER DSC$K_DTYPE_GC = '0000001D'X ! G_floating complex. Ordered pair of G_floating ` PARAMETER DSC64$K_DTYPE_GC = '0000001D'X ! quantities representing a double-precision complex0 ! number. The lower addressed quantity is the4 ! real part, the higher addressed quantity is the ! imaginary part.[ PARAMETER DSC$K_DTYPE_HC = '0000001E'X ! H_floating complex. Ordered pair of H_floating c PARAMETER DSC=64$K_DTYPE_HC = '0000001E'X ! quantities representing a quadruple-precision complex0 ! number. The lower addressed quantity is the4 ! real part, the higher addressed quantity is the ! imaginary part.d PARAMETER DSC$K_DTYPE_FS = '00000034'X ! IEEE floating basic single S. 32-bit quantity representiH PARAMETER DSC64$K_DTYPE_FS = '00000034'X ! a single-precision number.d PARAMETER DSC$K_DTYPE_FT = '00000035'X ! IEEE floating basic double T. 64-bit quantity representiH PARAMETER DSC>64$K_DTYPE_FT = '00000035'X ! a double-precision number.d PARAMETER DSC$K_DTYPE_FSC = '00000036'X ! IEEE floating basic single S complex. Ordered pair of SC ! IEEE floating basic single S complex. Ordered pair of S_floa PARAMETER DSC64$K_DTYPE_FSC = '00000036'X ! quantities representing a single-precision complex0 ! number. The lower addressed quantity is the4 ! real part, the higher addressed quantity is the ! imaginary part.d PARAMETER DSC$K_DTYPE_FTC = '00000037'X ! IEE?E floating basic double T complex. Ordered pair of TC ! IEEE floating basic double T complex. Ordered pair of T_floa PARAMETER DSC64$K_DTYPE_FTC = '00000037'X ! quantities representing a double-precision complex0 ! number. The lower addressed quantity is the4 ! real part, the higher addressed quantity is the ! imaginary part.d PARAMETER DSC$K_DTYPE_FX = '00000039'X ! IEEE floating basic quadruple X. 128-bit quantity represC ! IEEE floating basic quadruple X. 128-bit quant @ity representK PARAMETER DSC64$K_DTYPE_FX = '00000039'X ! an extended-precision number.d PARAMETER DSC$K_DTYPE_FXC = '0000003A'X ! IEEE floating basic quadruple X complex. Ordered pair oC ! IEEE floating basic quadruple X complex. Ordered pair of X_d PARAMETER DSC64$K_DTYPE_FXC = '0000003A'X ! quantities representing an extended-precision complex0 ! number. The lower addressed quantity is the4 ! real part, the higher addressed quantity is the ! imaginary part.Z PARAMETER DASC$K_DTYPE_CIT = '0000001F'X ! COBOL Intermediate Temporary. Floating point X PARAMETER DSC64$K_DTYPE_CIT = '0000001F'X ! datum with an 18 digit normalized decimal1 ! fraction and a 2 digit decimal exponent. The/ ! fraction is represented as a packed decimal- ! number. The exponent is represented as a$ ! 16-bit 2's complement integer. K ! The following string types are ordinarily described by a stringG ! descriptor. The data type codes below occur in those descriptors B:Z PARAMETER DSC$K_DTYPE_T = '0000000E'X ! Character-coded text. A single 8-bit character U PARAMETER DSC64$K_DTYPE_T = '0000000E'X ! (atomic data type) or a sequence of 0 to0 ! 2**16-1 8-bit characters (string data type).T PARAMETER DSC$K_DTYPE_VT = '00000025'X ! Varying Character-coded Text Data Type. ) PARAMETER DSC64$K_DTYPE_VT = '00000025'XL PARAMETER DSC$K_DTYPE_T2 = '00000026'X ! 16-bit Text (Asian workstations)) PARAMETER DSC64$K_DTYPE_T2 = '00000026'XF PARAMETER DSC$K_DTY CPE_NU = '0000000F'X ! Numeric string, unsigned. ) PARAMETER DSC64$K_DTYPE_NU = '0000000F'XP PARAMETER DSC$K_DTYPE_NL = '00000010'X ! Numeric string, left separate sign. ) PARAMETER DSC64$K_DTYPE_NL = '00000010'XT PARAMETER DSC$K_DTYPE_NLO = '00000011'X ! Numeric string, left overpunched sign. * PARAMETER DSC64$K_DTYPE_NLO = '00000011'XQ PARAMETER DSC$K_DTYPE_NR = '00000012'X ! Numeric string, right separate sign. ) PARAMETER DSC64$K_DTYPE_NR = '00000012'XU PARAMETER DSC$K_DTYPE_NRO D = '00000013'X ! Numeric string, right overpunched sign. * PARAMETER DSC64$K_DTYPE_NRO = '00000013'XH PARAMETER DSC$K_DTYPE_NZ = '00000014'X ! Numeric string, zoned sign. ) PARAMETER DSC64$K_DTYPE_NZ = '00000014'XB PARAMETER DSC$K_DTYPE_P = '00000015'X ! Packed decimal string. ( PARAMETER DSC64$K_DTYPE_P = '00000015'XG PARAMETER DSC$K_DTYPE_V = '00000001'X ! Bit. An aligned bit string. ( PARAMETER DSC64$K_DTYPE_V = '00000001'X; PARAMETER DSC$K_DTYPE_VU = '00000022'X ! Bit Unaligne Ed. ) PARAMETER DSC64$K_DTYPE_VU = '00000022'XB ! The following encodings are used for miscellaneous data types:F PARAMETER DSC$K_DTYPE_ZI = '00000016'X ! Sequence of instructions. ) PARAMETER DSC64$K_DTYPE_ZI = '00000016'XC PARAMETER DSC$K_DTYPE_ZEM = '00000017'X ! Procedure entry mask. * PARAMETER DSC64$K_DTYPE_ZEM = '00000017'X\ PARAMETER DSC$K_DTYPE_DSC = '00000018'X ! Descriptor. This data type allows a descriptor \ PARAMETER DSC64$K_DTYPE_DSC = '00000018'X ! to be an argument F data type, thereby allowing% ! the use of levels of descriptors.Z PARAMETER DSC$K_DTYPE_BPV = '00000020'X ! Bound Procedure Value. A two longword entity _ PARAMETER DSC64$K_DTYPE_BPV = '00000020'X ! in which the first longword contains the address5 ! of a procedure entry mask and the second longword5 ! contains the environment value. The environmeent. ! value is determined in a language specific3 ! fashion when the original Bound Procedure Value. ! is generated. When the boun Gd procedure is1 ! invoked, the calling program loads the second3 ! longword into R1. This data type can be passed0 ! using the immediate value mechanism when the2 ! environment value is not needed. In this case3 ! the argument list entry contains the address of4 ! the procedure entry mask and the second longword ! is omitted.@ PARAMETER DSC$K_DTYPE_BLV = '00000021'X ! Bound label value. * PARAMETER DSC64$K_DTYPE_BLV = '00000021'XD PARAMETER DSC$K_DTYPE_ADT = '00000023'X ! A Hbsolute Date and Time * PARAMETER DSC64$K_DTYPE_ADT = '00000023'XS ! K DTYPE_???,36 /* DTYPE code 36 is reserved for future definitionE ! The following types are used by the VAX/VMS Debug Facility: \FORI ! INTERNAL DOCUMENTATION ONLY. For details, see VAX/VMS Debug Facility ! Documentation.\I PARAMETER DSC$K_DTYPE_CAD = '000000B2'X ! Address calculation command * PARAMETER DSC64$K_DTYPE_CAD = '000000B2'XE PARAMETER DSC$K_DTYPE_ENT = '000000B3'X ! Entry global defi Inition * PARAMETER DSC64$K_DTYPE_ENT = '000000B3'XF PARAMETER DSC$K_DTYPE_GBL = '000000B4'X ! Global symbol definition * PARAMETER DSC64$K_DTYPE_GBL = '000000B4'XE PARAMETER DSC$K_DTYPE_EPT = '000000B5'X ! Entry point to routine. * PARAMETER DSC64$K_DTYPE_EPT = '000000B5'XU PARAMETER DSC$K_DTYPE_R11 = '000000B6'X ! Line number relative to R11 correlation 5 PARAMETER DSC64$K_DTYPE_R11 = '000000B6'X ! table.? PARAMETER DSC$K_DTYPE_FLD = '000000B7'X ! BLISS FIELD name. * PARAMETER J DSC64$K_DTYPE_FLD = '000000B7'X@ PARAMETER DSC$K_DTYPE_PCT = '000000B8'X ! PSECT information. * PARAMETER DSC64$K_DTYPE_PCT = '000000B8'XR PARAMETER DSC$K_DTYPE_DPC = '000000B9'X ! PC correlation table for FORTRAN IV+ * PARAMETER DSC64$K_DTYPE_DPC = '000000B9'X> PARAMETER DSC$K_DTYPE_LBL = '000000BA'X ! LITERAL or LABEL * PARAMETER DSC64$K_DTYPE_LBL = '000000BA'XT PARAMETER DSC$K_DTYPE_SLB = '000000BB'X ! Label in non-assembly language modules * PARAMETER DSC64$K_DTYPE_SLB = '000000BB K'XE PARAMETER DSC$K_DTYPE_MOD = '000000BC'X ! Beginning of new module * PARAMETER DSC64$K_DTYPE_MOD = '000000BC'X; PARAMETER DSC$K_DTYPE_EOM = '000000BD'X ! End of module * PARAMETER DSC64$K_DTYPE_EOM = '000000BD'XF PARAMETER DSC$K_DTYPE_RTN = '000000BE'X ! Beginning of new routine * PARAMETER DSC64$K_DTYPE_RTN = '000000BE'X< PARAMETER DSC$K_DTYPE_EOR = '000000BF'X ! End of routine * PARAMETER DSC64$K_DTYPE_EOR = '000000BF'X; ! The following type codes are RESERVED for future use L:/ ! 37-177 RESERVED to DEC> ! 192-255 RESERVED to CSS and customers ! J ! A uniform descriptor mechanism is defined for use by all proceduresJ ! which conform to this standard. Descriptors are uniformly typed andJ ! the mechanism is extensible. As new varieties of descriptor become4 ! necessary, they will be added to this catalogue. ! Note: ! E ! All fields represent unsigned quantities unless explicitly stated ! otherwMise. !  ! 32-bit Descriptor Prototype ! I ! Each class of 32-bit descriptor consists of at least 2 longwords in ! the following format: ! * ! +-------+-------+---------------+7 ! | CLASS | DTYPE | LENGTH | :Descriptor* ! +-------+-------+---------------+* ! | POINTER |* ! +-------------------------------+ ! C ! DSC$W_LENGTH A one-word field specific to the descriptorF ! <0,15:0> class/* tNypically a 16-bit (unsigned) length. ! 9 ! DSC$B_DTYPE A one-byte atomic data type code  ! <0,23:16> ! D ! DSC$B_CLASS A one-byte descriptor class code (see below) ! <0,31:24> ! D ! DSC$A_POINTER A longword pointing to the first byte of the/ ! <1,31:0> data element described. !  ! 64-bit Descriptor Prototype ! B ! Each class of 64-bit descriptor consists of at least 3 aligned& ! quadwords in the following format: ! * O ! +-------+-------+---------------+7 ! | CLASS | DTYPE | MBO (=1) | :Descriptor* ! +-------+-------+---------------+* ! | MBMO (=-1) |* ! +-------------------------------+/ ! | | : 8* ! +- LENGTH -+* ! | |* ! +-------------------------------+0 ! | | : 16* ! +- POINTER P-+* ! | |* ! +-------------------------------+ ! H ! DSC64$W_MBO A one-word field which must contain the value 1. ! <0,15:0>  ! 9 ! DSC64$B_DTYPE A one-byte atomic data type code  ! <0,23:16> ! D ! DSC64$B_CLASS A one-byte descriptor class code (see below) ! <0,31:24> ! I ! DSC$L_MBMO A longword field which must contain the value -1. ! <1,31:0> ! @ ! DSC64$Q_L QENGTH A quadword containing the length of the/ ! <2,63:0> data element described. ! G ! DSC64$PQ_POINTER A quadword pointing to the first byte of the/ ! <4,63:0> data element described. ! % ! Define the descriptor class codes ! 7 PARAMETER DSC$K_CLASS_Z = '00000000'X ! Unspecified 9 PARAMETER DSC64$K_CLASS_Z = '00000000'X ! Unspecified E PARAMETER DSC$K_CLASS_S = '00000001'X ! Scalar, String Descriptor G PARAMETER DSC64$K_CLASS_S = '000000R01'X ! Scalar, String Descriptor E PARAMETER DSC$K_CLASS_D = '00000002'X ! Dynamic String Descriptor G PARAMETER DSC64$K_CLASS_D = '00000002'X ! Dynamic String Descriptor G PARAMETER DSC$K_CLASS_V = '00000003'X ! Reserved for use by Digital I PARAMETER DSC64$K_CLASS_V = '00000003'X ! Reserved for use by Digital < PARAMETER DSC$K_CLASS_A = '00000004'X ! Array Descriptor > PARAMETER DSC64$K_CLASS_A = '00000004'X ! Array Descriptor @ PARAMETER DSC$K_CLASS_P = '00000005'X ! ProScedure Descriptor B PARAMETER DSC64$K_CLASS_P = '00000005'X ! Procedure Descriptor M PARAMETER DSC$K_CLASS_PI = '00000006'X ! Procedure Incarnation Descriptor O PARAMETER DSC64$K_CLASS_PI = '00000006'X ! Procedure Incarnation Descriptor G PARAMETER DSC$K_CLASS_J = '00000007'X ! Reserved for use by Digital I PARAMETER DSC64$K_CLASS_J = '00000007'X ! Reserved for use by Digital 5 PARAMETER DSC$K_CLASS_JI = '00000008'X ! Obsolete M PARAMETER DSC$K_CLASS_SD = '00000009'X ! DecimaTl Scalar String Descriptor O PARAMETER DSC64$K_CLASS_SD = '00000009'X ! Decimal Scalar String Descriptor M PARAMETER DSC$K_CLASS_NCA = '0000000A'X ! Non-contiguous Array Descriptor O PARAMETER DSC64$K_CLASS_NCA = '0000000A'X ! Non-contiguous Array Descriptor F PARAMETER DSC$K_CLASS_VS = '0000000B'X ! Varying String Descriptor H PARAMETER DSC64$K_CLASS_VS = '0000000B'X ! Varying String Descriptor M PARAMETER DSC$K_CLASS_VSA = '0000000C'X ! Varying String Array Descriptor O PARAMUETER DSC64$K_CLASS_VSA = '0000000C'X ! Varying String Array Descriptor M PARAMETER DSC$K_CLASS_UBS = '0000000D'X ! Unaligned Bit String Descriptor O PARAMETER DSC64$K_CLASS_UBS = '0000000D'X ! Unaligned Bit String Descriptor L PARAMETER DSC$K_CLASS_UBA = '0000000E'X ! Unaligned Bit Array Descriptor N PARAMETER DSC64$K_CLASS_UBA = '0000000E'X ! Unaligned Bit Array Descriptor J PARAMETER DSC$K_CLASS_SB = '0000000F'X ! String with Bounds Descriptor L PARAMETER DSC64$K_CLASS_SB = '000V0000F'X ! String with Bounds Descriptor Z PARAMETER DSC$K_CLASS_UBSB = '00000010'X ! Unaligned Bit String with Bounds Descriptor \ PARAMETER DSC64$K_CLASS_UBSB = '00000010'X ! Unaligned Bit String with Bounds Descriptor  ! F ! The following descriptor class is FOR INTERNAL USE ONLY by the VAXH ! Common Run-Time Library and Debugger. This descriptor is not passedF ! between separately compiled modules. For further information, seeA ! VAX-11 BASIC Description of Generated Code, Soft Wware Document ! Retrieval Number JBS-79-004.I PARAMETER DSC$K_CLASS_BFA = '000000BF'X ! BASIC File Array Descriptor ; ! Descriptor classes 17-190 are RESERVED to DEC. Classes6 ! 192 through 255 are RESERVED to CSS and customers. ! & ! Array Descriptor (DSC$K_CLASS_A) ! I ! An array descriptor consists of 3 contiguous blocks. The first blockK ! contains the descriptor prototype information and is part of everyK ! array descriptor. The second and third blocks are Xoptional. If the2 ! third block is present then so is the second. ! 6 ! A complete 32-bit array descriptor has the form: ! + ! +-------+-------+---------------+8 ! | 4 | DTYPE | LENGTH | :Descriptor+ ! +-------+-------+---------------++ ! | POINTER |+ ! +-------+-------+---------------+H ! | DIMCT | AFLAGS|DIGITS | SCALE | Block 1 - Prototype+ ! +-------+-------+---------------++ ! Y | ARSIZE |+ ! +-------------------------------+ ! + ! +-------------------------------++ ! | A0 |+ ! +-------------------------------++ ! | M1 |+ ! +-------------------------------+J ! | ... | Block 2 - Multipliers+ ! +-------------------------------++ ! | M(n-1) |+ ! +- Z------------------------------++ ! | Mn |+ ! +-------------------------------+ ! + ! +-------------------------------++ ! | L1 |+ ! +-------------------------------++ ! | U1 |+ ! +-------------------------------+E ! | ... | Block 3 - Bounds+ ! +-------------------------------++ ! | L [n |+ ! +-------------------------------++ ! | Un |+ ! +-------------------------------+ ! < ! Block 1 of a 64-bit array descriptor has the following7 ! form. Blocks 2 and 3 have the same form as above,7 ! EXCEPT that the entries are QUADWORDS rather than ! longwords. ! + ! +-------+-------+---------------+8 ! | 4 | DTYPE | MBO | :Descriptor+ ! +-------+-------+--------- \------++ ! | MBMO |+ ! +-------+-------+---------------+0 ! | | : 8+ ! +- LENGTH -++ ! | |+ ! +-------------------------------+1 ! | | : 16+ ! +- POINTER -++ ! | |+ ! +-------------------------------+1 ! | DIMCT | AFLAGS]|DIGITS | SCALE | : 24+ ! +-------+-------+---------------++ ! | MBZ |+ ! +-------+-------+---------------+1 ! | | : 32+ ! +- ARSIZE -++ ! | |+ ! +-------------------------------+ !  ! J ! Define descriptor fields. 32-bit versions are defined first, followed ! by the 64-bit equivalents. ! = ! \The following three f ^ields are only valid for descriptor( ! class DSC$K_CLASS_BFA (see above). \ STRUCTURE /DSCDEF/Q INTEGER*4 DSC$A_HANDLE ! The address of a vector of data concerning the 3 ! current state of processing of the array. This( ! is set to zero by the creator of the0 ! descriptor, and maintained thereafter by the* ! BASIC file array processing functions.P INTEGER*4 DSC$L_BYTEOFF ! Byte offset in the file of element 0,0,...,0 . ! of the array. This need not be within the/ _ ! array, or even within the file if the array ! does not have zero origin.N INTEGER*4 DSC$L_LOGUNIT ! The logical unit number (BASIC channel) on + ! which the file containing the array has3 ! been opened. This is set by the creator of the2 ! descriptor before first referencing the array. ! F ! End of BASIC File Array specific descriptor fields. The remaining/ ! fields are common to all array descriptors. !  ! V INTEGER*2 DSC$W_LENGTH ! A one-word field s `pecifiec to the descriptor class; ) ! typically a 16-bit (unsigned) length. END STRUCTURE ! DSCDEF STRUCTURE /DSCDEF1/W INTEGER*2 DSC$W_MAXSTRLEN ! Max length of the BODY field of the varying string ' ! in bytes in the range 0 to 2**16-1. ! (Classes VS, VSA)A BYTE DSC$B_DTYPE ! A one-byte atomic data type code7 ! Symbols used in this filed have form: DSC$K_DTYPE_t0 ! where t is the data type mnemonic from above' ! and agrees with methodology manual.O a BYTE DSC$B_CLASS ! A one-byte descriptor class code (see above). 7 ! Symbols used in this field have form: DSC$K_CLASS_f4 ! where f is the argument form mnemonic from above+ ! and agrees with the methodology manual.U INTEGER*4 DSC$A_POINTER ! An address pointing to the first byte of the data  ! element described. END STRUCTURE ! DSCDEF1R PARAMETER DSC$K_Z_BLN = '00000008'X ! Block length in bytes for Z class descr. R PARAMETER DSC$C_Z_BLN = '00000008'X ! Block lbength in bytes for Z class descr. R PARAMETER DSC$K_S_BLN = '00000008'X ! Block length in bytes for S class descr. R PARAMETER DSC$C_S_BLN = '00000008'X ! Block length in bytes for S class descr. R PARAMETER DSC$K_D_BLN = '00000008'X ! Block length in bytes for D class descr. R PARAMETER DSC$C_D_BLN = '00000008'X ! Block length in bytes for D class descr. R PARAMETER DSC$K_P_BLN = '00000008'X ! Block length in bytes for P class descr. R PARAMETER DSC$C_P_BLN = '00000008'X ! Block lencgth in bytes for P class descr. R PARAMETER DSC$K_J_BLN = '00000008'X ! Block length in bytes for J class descr. R PARAMETER DSC$C_J_BLN = '00000008'X ! Block length in bytes for J class descr. T PARAMETER DSC$K_VS_BLN = '00000008'X ! Block length in bytes for VS class descr. T PARAMETER DSC$C_VS_BLN = '00000008'X ! Block length in bytes for VS class descr.  STRUCTURE /DSCDEF2/ BYTE %FILL(1:4)V INTEGER*4 DSC$A_BASE ! Base of address relative to which the signed relat dive 8 ! bit position, POS, is used to locate the bit string. ! (Classes UBS, UBA and UBSB) END STRUCTURE ! DSCDEF2 ! +2 ! End of common definitions for all descriptors. ! -V PARAMETER DSC$K_UBS_BLN = '0000000C'X ! Block length in bytes for UBS class descr. V PARAMETER DSC$C_UBS_BLN = '0000000C'X ! Block length in bytes for UBS class descr.  STRUCTURE /DSCDEF3/ BYTE %FILL(1:8)E INTEGER*4 DSC$L_POS ! Signed longword relative bit position ) ! with respect to eBASE of the first bit ! of unaligned bit string2 ! WARNING!! Do not use this symbol to reference1 ! class UBA descriptors! The DSC$L_POS in that2 ! descriptor is at a variable location after the! ! bounds and multiplier blocks. END STRUCTURE ! DSCDEF3 ! +1 ! *Obsolete* Varying type descriptor definition! ! This form should not be used. ! - STRUCTURE /DSCDEF4/ BYTE %FILL(1:8)B INTEGER*2 DSC$W_MAXLEN ! An unsigned word specifying the # ! maximum leng fth of the data item ! (i.e., the space allocated)* INTEGER*2 %FILL ! reserved word  END STRUCTURE ! DSCDEF4 ! + ! Array Descriptor definitions ! -T PARAMETER DSC$K_SD_BLN = '0000000C'X ! Block length in bytes for SD class descr. T PARAMETER DSC$C_SD_BLN = '0000000C'X ! Block length in bytes for SD class descr.  STRUCTURE /DSCDEF5/ BYTE %FILL(1:8)O BYTE DSC$B_SCALE ! Signed power of ten multiplier to convert the 1 ! internal form to external gform. For example,. ! if internal number is 123 and scale is +1,1 ! then the represented external number is 1230.J BYTE DSC$B_DIGITS ! If non-zero, unsigned number of decimal . ! digits in the external representation. If. ! zero, the number of digits can be computed ! based on DSC$W_LENGTH. UNION MAP7 BYTE DSC$B_AFLAGS ! Array flag bits.  END MAP MAP) PARAMETER DSC$S_FL_REDIM = 1W PARAMETER D hSC$V_FL_REDIM = 4 ! If set, the array can be redimensioned; + ! i.e., DSC$A_A0, DSC$L_Mi, DSC$L_Li, and/ ! DSC$L_Ui may be changed. The redimensioned- ! array cannot exceed the size allocated to" ! the array (i.e. DSC$L_ARSIZE).* PARAMETER DSC$S_FL_COLUMN = 1V PARAMETER DSC$V_FL_COLUMN = 5 ! If set, the elements of the array are + ! stored by columns (FORTRAN)> Otherwise$ ! the elements are stored by rows.) PARAMETER DSC$S_FL_COEFF = 1Z i PARAMETER DSC$V_FL_COEFF = 6 ! If set, the multiplicative coefficients in  ! Block 2 are present.* PARAMETER DSC$S_FL_BOUNDS = 1Z PARAMETER DSC$V_FL_BOUNDS = 7 ! If set, the bounds information in Block 3  ! is present. BYTE %FILL (1) END MAP END UNION6 BYTE DSC$B_DIMCT ! Number of dimensions P INTEGER*4 DSC$L_ARSIZE ! Total size of array (in bytes unless DTYPE is ) ! EQUL DSC$K_DTYPE_V or DSC$K_DTYP jE_P).D INTEGER*4 DSC$A_A0 ! Address of element A(0,0,...,0). This , ! need not be within the actual array/* it- ! is the same as DSC$A_POINTER for 0-origin ! arrays. END STRUCTURE ! DSCDEF5 STRUCTURE /DSCDEF6/ BYTE %FILL(1:16)L INTEGER*4 DSC$L_V0 ! Signed bit offset of element A(0,0,...0) with ! ! respect to BASE. (Class UBA)A ! The following two fields have meaning only if the array is of1 ! class DSC$K_CLASS_NCA (Non-contiguous array).F INTEG kER*4 DSC$L_S1 ! Stride of the first dimension, i.e. the ' ! difference between the addresses of/ ! successive elements of the first dimension.> INTEGER*4 DSC$L_S2 ! Stride of the second dimension.  END STRUCTURE ! DSCDEF6 STRUCTURE /DSCDEF7/ BYTE %FILL(1:20)B INTEGER*4 DSC$L_M1 ! Addressing coefficient M1 = U1-L1+1 B INTEGER*4 DSC$L_M2 ! Addressing coefficient M2 = U2-L2+1  END STRUCTURE ! DSCDEF7 ! +9 ! Procedure Incarnation descriptor (DSC$K_ lCLASS_PI) and2 ! Label Incarnation descriptor (DSC$K_CLASS_JI). ! -T PARAMETER DSC$K_PI_BLN = '0000000C'X ! Block length in bytes for PI class descr. T PARAMETER DSC$C_PI_BLN = '0000000C'X ! Block length in bytes for PI class descr. T PARAMETER DSC$K_JI_BLN = '0000000C'X ! block length in bytes for JI class descr. T PARAMETER DSC$C_JI_BLN = '0000000C'X ! block length in bytes for JI class descr.  STRUCTURE /DSCDEF8/ BYTE %FILL(1:8)2 INTEGER*4 DSC$A_FRAME ! Addremss of frame  END STRUCTURE ! DSCDEF8 ! +3 ! String with Bounds descriptor (DSC$K_CLASS_SB). ! - STRUCTURE /DSCDEF9/ BYTE %FILL(1:8)F INTEGER*4 DSC$L_SB_L1 ! Signed lower bound of first dimensionF INTEGER*4 DSC$L_SB_U1 ! Signed upper bound of first dimension END STRUCTURE ! DSCDEF9 ! +C ! Unaligned Bit String with Bounds descriptor (DSC$K_CLASS_UBSB). ! - STRUCTURE /DSCDEF10/ BYTE %FILL(1:12)H INTEGER*4 DSC$L_UBSB_L1 ! Signed lowe nr bound of first dimensionH INTEGER*4 DSC$L_UBSB_U1 ! Signed upper bound of first dimension END STRUCTURE ! DSCDEF10 ! H ! 64-bit versions of the descriptors defined above. These are expected ! to be quadword aligned. ! - STRUCTURE /DSCDEF64/L BYTE %FILL(1:8) ! No 64-bit versions of handle/byteoff/logunit9 INTEGER*4 DSC64$Q_LENGTH(2) ! 64-bit LENGTH field END STRUCTURE ! DSCDEF64 STRUCTURE /DSCDEF1_64/K INTEGER*2 DSC64$W_MBO ! 32-bit LENG oTH field is MBO in 64-bit descs; BYTE DSC64$B_DTYPE ! Identical to 32-bit form; BYTE DSC64$B_CLASS ! Identical to 32-bit formN INTEGER*4 DSC64$L_MBMO ! 32-bit POINTER field is MBMO in 64-bit descs? INTEGER*4 DSC64$Q_MAXSTRLEN(2) ! 64-bit MAXSTRLEN field9 INTEGER*8 DSC64$PQ_POINTER ! 64-bit pointer field END STRUCTURE ! DSCDEF1_64[ PARAMETER DSC64$K_Z_BLN = '00000018'X ! Block length in bytes for 64-bit Z class descr. [ PARAMETER DSC64$Cp_Z_BLN = '00000018'X ! Block length in bytes for 64-bit Z class descr. [ PARAMETER DSC64$K_S_BLN = '00000018'X ! Block length in bytes for 64-bit S class descr. [ PARAMETER DSC64$C_S_BLN = '00000018'X ! Block length in bytes for 64-bit S class descr. [ PARAMETER DSC64$K_D_BLN = '00000018'X ! Block length in bytes for 64-bit D class descr. [ PARAMETER DSC64$C_D_BLN = '00000018'X ! Block length in bytes for 64-bit D class descr. [ PARAMETER DSC64$K_P_BLN = '00000018'X ! Block lengtqh in bytes for 64-bit P class descr. [ PARAMETER DSC64$C_P_BLN = '00000018'X ! Block length in bytes for 64-bit P class descr. [ PARAMETER DSC64$K_J_BLN = '00000018'X ! Block length in bytes for 64-bit J class descr. [ PARAMETER DSC64$C_J_BLN = '00000018'X ! Block length in bytes for 64-bit J class descr. ] PARAMETER DSC64$K_VS_BLN = '00000018'X ! Block length in bytes for 64-bit VS class descr. ] PARAMETER DSC64$C_VS_BLN = '00000018'X ! Block length in bytes for 64-bit VS class de rscr.  STRUCTURE /DSCDEF2_64/ BYTE %FILL(1:16)4 INTEGER*8 DSC64$PQ_BASE ! 64-bit BASE field END STRUCTURE ! DSCDEF2_64 ! +2 ! End of common definitions for all descriptors. ! -_ PARAMETER DSC64$K_UBS_BLN = '00000020'X ! Block length in bytes for 64-bit UBS class descr. _ PARAMETER DSC64$C_UBS_BLN = '00000020'X ! Block length in bytes for 64-bit UBS class descr.  STRUCTURE /DSCDEF3_64/ BYTE %FILL(1:24)3 INTEGER*4 DSC64$Q_POS(2) ! 64-bit POS sfield END STRUCTURE ! DSCDEF3_64 ! + ! 64-bit version of the array descriptor  ! ] PARAMETER DSC64$K_SD_BLN = '00000020'X ! Block length in bytes for 64-bit SD class descr. ] PARAMETER DSC64$C_SD_BLN = '00000020'X ! Block length in bytes for 64-bit SD class descr.  STRUCTURE /DSCDEF5_64/ BYTE %FILL(1:24): BYTE DSC64$B_SCALE ! 64-bit descriptor SCALE; BYTE DSC64$B_DIGITS ! 64-bit descriptor DIGITS UNION MAP? BYTE t DSC64$B_AFLAGS ! 64-bit descriptor AFLAGS END MAP MAP+ PARAMETER DSC64$S_FL_REDIM = 1+ PARAMETER DSC64$V_FL_REDIM = 4, PARAMETER DSC64$S_FL_COLUMN = 1, PARAMETER DSC64$V_FL_COLUMN = 5+ PARAMETER DSC64$S_FL_COEFF = 1+ PARAMETER DSC64$V_FL_COEFF = 6, PARAMETER DSC64$S_FL_BOUNDS = 1, PARAMETER DSC64$V_FL_BOUNDS = 7 BYTE %FILL (1) END MAP END u UNION: BYTE DSC64$B_DIMCT ! 64-bit descriptor DIMCT> INTEGER*4 DSC64$L_MBZ ! MBZ field for quad alignment.? INTEGER*4 DSC64$Q_ARSIZE(2) ! 64-bit descriptor ARSIZE 5 INTEGER*8 DSC64$PQ_A0 ! 64-bit descriptor A0 END STRUCTURE ! DSCDEF5_64 STRUCTURE /DSCDEF6_64/ BYTE %FILL(1:40)7 INTEGER*4 DSC64$Q_V0(2) ! 64-bit descriptor V0@ INTEGER*4 DSC64$Q_S1(2) ! Stride of the first dimensionC INTEGER*4 DSC64$Q_S2(2) ! Stride of v the second dimension.  END STRUCTURE ! DSCDEF6_64 STRUCTURE /DSCDEF7_64/ BYTE %FILL(1:48)G INTEGER*4 DSC64$Q_M1(2) ! Addressing coefficient M1 = U1-L1+1 G INTEGER*4 DSC64$Q_M2(2) ! Addressing coefficient M2 = U2-L2+1  END STRUCTURE ! DSCDEF7_64] PARAMETER DSC64$K_PI_BLN = '00000020'X ! Block length in bytes for 64-bit PI class descr. ] PARAMETER DSC64$C_PI_BLN = '00000020'X ! Block length in bytes for 64-bit PI class descr. ] PARAMETER DSC64$K_JI_BLN w= '00000020'X ! block length in bytes for 64-bit JI class descr. ] PARAMETER DSC64$C_JI_BLN = '00000020'X ! block length in bytes for 64-bit JI class descr.  STRUCTURE /DSCDEF8_64/ BYTE %FILL(1:24)4 INTEGER*8 DSC64$PQ_FRAME ! Address of frame  END STRUCTURE ! DSCDEF8_64 STRUCTURE /DSCDEF9_64/ BYTE %FILL(1:24)J INTEGER*4 DSC64$Q_SB_L1(2) ! Signed lower bound of first dimensionJ INTEGER*4 DSC64$Q_SB_U1(2) ! Signed upper bound of first dimensixon END STRUCTURE ! DSCDEF9_64 STRUCTURE /DSCDEF10_64/ BYTE %FILL(1:32)L INTEGER*4 DSC64$Q_UBSB_L1(2) ! Signed lower bound of first dimensionL INTEGER*4 DSC64$Q_UBSB_U1(2) ! Signed upper bound of first dimension END STRUCTURE ! DSCDEF10_64!DEC$ END OPTIONS ww-lΦ!*** MODULE $DSTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN! ! Use a K to indicate constant J PARAMETER DST$K_LOCOMMAND = '00000000'X ! Low value for ran yge checking @ PARAMETER DST$K_STA_R00 = '00000000'X ! Stack contents of R0 @ PARAMETER DST$K_STA_R01 = '00000001'X ! Stack contents of R1 @ PARAMETER DST$K_STA_R02 = '00000002'X ! Stack contents of R2 @ PARAMETER DST$K_STA_R03 = '00000003'X ! Stack contents of R3 @ PARAMETER DST$K_STA_R04 = '00000004'X ! Stack contents of R4 @ PARAMETER DST$K_STA_R05 = '00000005'X ! Stack contents of R5 @ PARAMETER DST$K_STA_R06 = '00000006'X ! Stack contents of R6 @ PARAMETER DST$K_STA_R07 = '00z000007'X ! Stack contents of R7 @ PARAMETER DST$K_STA_R08 = '00000008'X ! Stack contents of R8 @ PARAMETER DST$K_STA_R09 = '00000009'X ! Stack contents of R9 A PARAMETER DST$K_STA_R10 = '0000000A'X ! Stack contents of R10 A PARAMETER DST$K_STA_R11 = '0000000B'X ! Stack contents of R11 F PARAMETER DST$K_STA_R12 = '0000000C'X ! Stack contents of R12 (AP) F PARAMETER DST$K_STA_R13 = '0000000D'X ! Stack contents of R13 (FP) F PARAMETER DST$K_STA_R14 = '0000000E'X ! Stack contents {of R14 (SP) F PARAMETER DST$K_STA_R15 = '0000000F'X ! Stack contents of R15 (PC) L PARAMETER DST$K_STA_IMM_B = '00000010'X ! Stack contents of byte operand ! ! sign extending to longwordL PARAMETER DST$K_STA_IMM_W = '00000011'X ! Stack contents of word operand ! ! sign extending to longwordP PARAMETER DST$K_STA_IMM_L = '00000012'X ! Stack contents of longword operand C PARAMETER DST$K_OPR_ADD = '00000013'X ! Pop two operands, add ,  ! stack longword resultR PARAMETER | DST$K_STA_REP_B = '00000014'X ! Pop top item and stack sign extended  ! byte at that addressR PARAMETER DST$K_STA_REP_W = '00000015'X ! Pop top item and stack sign extended  ! word at that addressP PARAMETER DST$K_STA_REP_L = '00000016'X ! Pop top item and stack longword at  ! that addressO PARAMETER DST$K_OPR_STOP = '00000017'X ! Terminate command string. Longword ' ! at top of stack contains address ! of data item.I PARAMETER DST$K_HICOMMAND = '00000017}'X ! Hi value for range checking !DEC$ END OPTIONSwwnΦ!*** MODULE $DTIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! DTI flag definitions !  ! Item list definitions? PARAMETER DTI$_ENDITEM = '00000000'X ! End of item list codeQ PARAMETER DTI$_TRANSACTION_INFORMATION = '00000001'X ! Active transaction listL PARAMETER DTI$_CURRENT_TID = '00000002'X ! Current transaction identifierQ PARAMETER DTI$_MEMBERSHIP_COUNT = '0000 ~0003'X ! # members still in transactionN PARAMETER DTI$_BRANCH_COUNT = '00000004'X ! # branches still in transaction: PARAMETER DTI$_ROOT_NODE_NAME = '00000005'X ! Root nodeF PARAMETER DTI$_STARTING_TIME = '00000006'X ! Transaction start time, PARAMETER dti$K_MAX_ITEM_CODE = '00000006'X ! Transaction states# PARAMETER DTI$K_NULL = '00000000'X: PARAMETER DTI$K_STARTING = '00000001'X ! Starting state6 PARAMETER DTI$K_ACTIVE = '00000002'X ! Active stateJ PARAMETER DTI$K_ONE_P_COM MITTING = '00000003'X ! Committing (one-phase)< PARAMETER DTI$K_PREPARING = '00000004'X ! Preparing state: PARAMETER DTI$K_PREPARED = '00000005'X ! Prepared state> PARAMETER DTI$K_COMMITTING = '00000006'X ! Committing state< PARAMETER DTI$K_COMMITTED = '00000007'X ! Committed stateH PARAMETER DTI$K_ONE_P_COMMITTED = '00000008'X ! Committed (one-phase): PARAMETER DTI$K_ABORTING = '00000009'X ! Aborting stateE PARAMETER DTI$K_ABORTED = '0000000A'X ! Aborted or forgotten stateN P ARAMETER DTI$K_IN_DOUBT = '0000000B'X ! Transaction has prepared and RM is& ! coordinator; resolution must come ! from external entity ! SET item codes> PARAMETER DTI$K_ILLEGAL = '00000000'X ! Make code 0 illegalH PARAMETER DTI$K_DELETE_TRANSACTION = '00000001'X ! Delete transactionI PARAMETER DTI$K_DELETE_RM_NAME = '00000002'X ! Delete resource managerH PARAMETER DTI$K_MODIFY_STATE = '00000003'X ! Modify transaction stateH PARAMETER DTI$K_DELETE_BRANCH_NODE = '00000004'X !  Delete branch nodeY PARAMETER DTI$K_SET_CURRENT_TID = '00000005'X ! Set the current transaction identifier+ PARAMETER DTI$K_MAX_SET_CODE = '00000005'X. PARAMETER DTI$M_SEARCH_STARTING = '00000001'X, PARAMETER DTI$M_SEARCH_ACTIVE = '00000002'X2 PARAMETER DTI$M_SEARCH_1P_COMITTING = '00000004'X/ PARAMETER DTI$M_SEARCH_PREPARING = '00000008'X. PARAMETER DTI$M_SEARCH_PREPARED = '00000010'X0 PARAMETER DTI$M_SEARCH_COMMITTING = '00000020'X/ PARAMETER DTI$M_SEARCH_COMMITTED = '00000040'X2 PARAMETER DTI$M_SEARCH_1P_COMMITTED = '00000080'X. PARAMETER DTI$M_SEARCH_ABORTING = '00000100'X- PARAMETER DTI$M_SEARCH_ABORTED = '00000200'X> PARAMETER DTI$_ENDSEARCH = '00000000'X ! End of search list? PARAMETER DTI$_SEARCH_AS_NODE = '00000001'X ! Search as nodeZ PARAMETER DTI$_SEARCH_CURRENT_TID = '00000002'X ! Search current transaction identifierJ PARAMETER DTI$_SEARCH_TID = '00000003'X ! Search transaction identifierH PARAMETER DTI$_SEARCH_RM_NAME = '00000004'X ! Search resour ce managerM PARAMETER DTI$_SEARCH_BRANCH_NAME = '00000005'X ! Search branch node names; PARAMETER DTI$_SEARCH_STATE = '00000006'X ! Search stateM PARAMETER DTI$_SEARCH_RESOLVED_STATE = '00000007'X ! Search resolved state. PARAMETER DTI$K_MAX_SEARCH_CODE = '00000007'X0 STRUCTURE /DTISEARCHDEF/ ! Search list codes( PARAMETER DTI$S_SEARCH_STARTING = 1; PARAMETER DTI$V_SEARCH_STARTING = 0 ! Starting state& PARAMETER DTI$S_SEARCH_ACTIVE = 17 PARAMETER DTI$V_SEARCH_AC TIVE = 1 ! Active state, PARAMETER DTI$S_SEARCH_1P_COMITTING = 1D PARAMETER DTI$V_SEARCH_1P_COMITTING = 2 ! 1P Committing state) PARAMETER DTI$S_SEARCH_PREPARING = 1= PARAMETER DTI$V_SEARCH_PREPARING = 3 ! Preparing state( PARAMETER DTI$S_SEARCH_PREPARED = 1; PARAMETER DTI$V_SEARCH_PREPARED = 4 ! Prepared state* PARAMETER DTI$S_SEARCH_COMMITTING = 1? PARAMETER DTI$V_SEARCH_COMMITTING = 5 ! Committing state) PARAMETER DTI$S_SEARCH_COMMITTED = 1= PARAMETER DTI$V_SEARCH_COMMITTED = 6 ! Committed state, PARAMETER DTI$S_SEARCH_1P_COMMITTED = 1C PARAMETER DTI$V_SEARCH_1P_COMMITTED = 7 ! 1P Committed state( PARAMETER DTI$S_SEARCH_ABORTING = 1; PARAMETER DTI$V_SEARCH_ABORTING = 8 ! Aborting state' PARAMETER DTI$S_SEARCH_ABORTED = 19 PARAMETER DTI$V_SEARCH_ABORTED = 9 ! Aborted state ! Search item list definitions BYTE %FILL (2) END STRUCTURE ! DTISEARCHDEF% PARAMETER DTI$M_UPDATE = '00000 001'X' PARAMETER DTI$M_LOCAL_RM = '00000002'Xc PARAMETER DTI$S_TRANSACTION_INFORMATION = '00000054'X ! length of transaction information recordG STRUCTURE /DTIRECDEF/ ! Transaction information record definitions UNION MAP3 INTEGER*2 DTI$W_FLAGS ! Modifier flags END MAP MAP' PARAMETER DTI$S_UPDATE = 1U PARAMETER DTI$V_UPDATE = 0 ! Delete resource manager from transaction) PARAMETER DTI$S_LOCAL_RM = 1R PARAMETER DTI$V_LOCAL_RM = 1 ! Participant type (1 = RM, 0 = node) BYTE %FILL (1) END MAP END UNION2 BYTE DTI$B_STATE ! Transaction stateB BYTE DTI$B_PART_NAME_LEN ! Length of participant name7 CHARACTER*32 DTI$T_PART_NAME ! Participant name; CHARACTER*16 DTI$T_PART_LOG_ID ! Participant log id0 CHARACTER*16 DTI$T_TID ! Transaction ID; INTEGER*4 DTI$O_UTC_COMMIT_TIME(4) ! UTC commit time END STRUCTURE ! DTIRECDEF!DEC$ END OPTIONS ww ЂΦ!*** MODULE $DTKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN* ! Definitions for RTL DECtalk Management !  ! Phone keypad keys. ! ' PARAMETER DTK$K_TRM_ZERO = '00000030'X& PARAMETER DTK$K_TRM_ONE = '00000031'X& PARAMETER DTK$K_TRM_TWO = '00000032'X( PARAMETER DTK$K_TRM_THREE = '00000033'X' PARAMETER DTK$K_TRM_FOUR = '00000034'X' PARAMETER DTK$K_TRM_FIVE = '00000035'X& PARAMETER DTK$K_TRM _SIX = '00000036'X( PARAMETER DTK$K_TRM_SEVEN = '00000037'X( PARAMETER DTK$K_TRM_EIGHT = '00000038'X' PARAMETER DTK$K_TRM_NINE = '00000039'X$ PARAMETER DTK$K_TRM_A = '00000041'X$ PARAMETER DTK$K_TRM_B = '00000042'X$ PARAMETER DTK$K_TRM_C = '00000043'X$ PARAMETER DTK$K_TRM_D = '00000044'X. PARAMETER DTK$K_TRM_NUMBER_SIGN = '00000023'X+ PARAMETER DTK$K_TRM_ASTERISK = '0000002A'X ! Conditions? PARAMETER DTK$K_TRM_CANCELLED = '000001FC'X ! I/O cancelled E PARAMETER DTK$K_TRM_TIMEOUT = '000001FD'X ! Timeout period expiredA PARAMETER DTK$K_TRM_BUFFER_FULL = '000001FE'X ! Buffer is fullA PARAMETER DTK$K_TRM_UNKNOWN = '000001FF'X ! Unknown terminator !  ! Self-test constants. ! ) PARAMETER DTK$K_TEST_POWER = '00000001'X) PARAMETER DTK$K_TEST_HDATA = '00000002'X, PARAMETER DTK$K_TEST_HCONTROL = '00000003'X( PARAMETER DTK$K_TEST_DATA = '00000004'X) PARAMETER DTK$K_TEST_SPEAK = '00000005'X !  ! Phone dialing constants. ! ( PARAMETER DTK$K_DIAL_TONE = '00000000'X) PARAMETER DTK$K_DIAL_PULSE = '00000001'X !  ! DECtalk types. ! * PARAMETER DTK$K_DTC_UNKNOWN = '00000000'X% PARAMETER DTK$K_DTC_01 = '00000001'X% PARAMETER DTK$K_DTC_03 = '00000002'X !  ! Keypad modes. ! ) PARAMETER DTK$K_KEYPAD_OFF = '00000000'X( PARAMETER DTK$K_KEYPAD_ON = '00000001'X* PARAMETER DTK$K_KEYPAD_AUTO = '00000002'X ! ! Voices. ! ) PARAMETER DTK$K_VOICE_MALE = '00000000'X+ PARAMETER DTK$K_VOICE_FEMALE = '00000001'X* PARAMETER DTK$K_VOICE_CHILD = '00000002'X. PARAMETER DTK$K_VOICE_DEEP_MALE = '00000003'X0 PARAMETER DTK$K_VOICE_DEEP_FEMALE = '00000004'X/ PARAMETER DTK$K_VOICE_OLDER_MALE = '00000005'X1 PARAMETER DTK$K_VOICE_LIGHT_FEMALE = '00000006'X !  ! Speaking modes. ! $ PARAMETER DTK$K_SPEAK = '00000000'X# PARAMETER DTK$K_STOP = '00000001'X# PARAMETER DTK$K_HALT = '00000002'X !  ! Return modes. ! N PARAMETER DTK$K_IMMED = '00000000'X ! Return immedately after sending text.Z PARAMETER DTK$K_W AIT = '00000001'X ! Wait until text is completely spoken be returning.] PARAMETER DTK$K_STATUS = '00000002'X ! Wait for text to be spoken and return phone status. ! : ! DEFINE BIT MASKS AND VALUES FOR MODE ATTRIBUTES ! % PARAMETER DTK$M_SQUARE = '00000001'X$ PARAMETER DTK$M_ASCII = '00000002'X$ PARAMETER DTK$M_MINUS = '00000004'X% PARAMETER DTK$M_EUROPE = '00000008'X$ PARAMETER DTK$M_SPELL = '00000010'X6 PARAMETER DTK$M_NORMAL = '00000000'X ! no bits set E PARAMETER DTK $K_SQUARE = '00000000'X ! Mode square bitvector index2 PARAMETER DTK$K_ASCII = '00000001'X ! asky modeJ PARAMETER DTK$K_MINUS = '00000002'X ! Say dash as minus bitvector index? PARAMETER DTK$K_EUROPE = '00000003'X ! European type numbers8 PARAMETER DTK$K_SPELL = '00000004'X ! Spell all words# PARAMETER DTK$M_HOST = '00000001'X( PARAMETER DTK$M_SPEAK_ALL = '00000002'X% PARAMETER DTK$M_EDITED = '00000004'X# PARAMETER DTK$M_HARD = '00000008'X$ PARAMETER DTK$M_SETUP = '00000010'X% PARAMETER DTK$M_FILTER = '00000020'XE PARAMETER DTK$K_HOST = '00000000'X ! Send all chars typed to host.C PARAMETER DTK$K_SPEAK_ALL = '00000001'X ! Speak all chars typed.D PARAMETER DTK$K_EDITED = '00000002'X ! Line edit all chars typed.I PARAMETER DTK$K_HARD = '00000003'X ! Do local echo in hardcopy format.Q PARAMETER DTK$K_SETUP = '00000004'X ! Speak all chars displayed in setup mode.P PARAMETER DTK$K_FILTER = '00000005'X ! Don't send DECtalk specific sequences.# PARAMETER D TK$M_TEXT = '00000001'X& PARAMETER DTK$M_PHONEME = '00000002'X& PARAMETER DTK$M_RAWHOST = '00000004'X% PARAMETER DTK$M_INHOST = '00000008'X& PARAMETER DTK$M_OUTHOST = '00000010'X$ PARAMETER DTK$M_ERROR = '00000020'X$ PARAMETER DTK$M_TRACE = '00000040'X$ PARAMETER DTK$M_DEBUG = '00000080'X7 PARAMETER DTK$K_TEXT = '00000000'X ! Log ASCII text.= PARAMETER DTK$K_PHONEME = '00000001'X ! Log phonemic text.L PARAMETER DTK$K_RAWHOST = '00000002'X ! Log all chars without inspection.B PARAM ETER DTK$K_INHOST = '00000003'X ! Log text read from host.A PARAMETER DTK$K_OUTHOST = '00000004'X ! Log text sent to host.< PARAMETER DTK$K_ERROR = '00000005'X ! Log error messages.C PARAMETER DTK$K_TRACE = '00000006'X ! Log sequences symbolically1 PARAMETER DTK$K_DEBUG = '00000007'X ! Reserved STRUCTURE /DTKDEF/ UNION ! 9 ! DEFINE BITS, MASKS, AND FIELDS FOR THE CONTROL MODES. !  MAP# PARAMETER DTK$S_SQUARE = 1; PARAMETER DTK$V_SQUARE = 0 ! Set mode square on" PARAMETER DTK$S_ASCII = 11 PARAMETER DTK$V_ASCII = 1 ! asky mode" PARAMETER DTK$S_MINUS = 19 PARAMETER DTK$V_MINUS = 2 ! Say dash as minus# PARAMETER DTK$S_EUROPE = 10 PARAMETER DTK$V_EUROPE = 3 ! Europe " PARAMETER DTK$S_SPELL = 17 PARAMETER DTK$V_SPELL = 4 ! Spell all words BYTE %FILL (1) END MAP MAP! PARAMETER DTK$S_HOST = 1D PARAMETER DTK$V_HOST = 0 !  Send all chars typed to host.& PARAMETER DTK$S_SPEAK_ALL = 1B PARAMETER DTK$V_SPEAK_ALL = 1 ! Speak all chars typed.# PARAMETER DTK$S_EDITED = 1C PARAMETER DTK$V_EDITED = 2 ! Line edit all chars typed.! PARAMETER DTK$S_HARD = 1H PARAMETER DTK$V_HARD = 3 ! Do local echo in hardcopy format." PARAMETER DTK$S_SETUP = 1P PARAMETER DTK$V_SETUP = 4 ! Speak all chars displayed in setup mode.# PARAMETER DTK$S_FILTE R = 1O PARAMETER DTK$V_FILTER = 5 ! Don't send DECtalk specific sequences. BYTE %FILL (1) END MAP MAP! PARAMETER DTK$S_TEXT = 16 PARAMETER DTK$V_TEXT = 0 ! Log ASCII text.$ PARAMETER DTK$S_PHONEME = 1< PARAMETER DTK$V_PHONEME = 1 ! Log phonemic text.$ PARAMETER DTK$S_RAWHOST = 1K PARAMETER DTK$V_RAWHOST = 2 ! Log all chars without inspection.# PARAMETER DTK$S_INHOST = 1A PARAMETER DTK$V _INHOST = 3 ! Log text read from host.$ PARAMETER DTK$S_OUTHOST = 1@ PARAMETER DTK$V_OUTHOST = 4 ! Log text sent to host." PARAMETER DTK$S_ERROR = 1; PARAMETER DTK$V_ERROR = 5 ! Log error messages." PARAMETER DTK$S_TRACE = 1B PARAMETER DTK$V_TRACE = 6 ! Log sequences symbolically" PARAMETER DTK$S_DEBUG = 1" PARAMETER DTK$V_DEBUG = 7' BYTE %FILL (1) ! Reserved END MAP END UNION END STRUCTURE ! DTKDEF!DEC$ END OPTIONSww Φ!*** MODULE $DTKMSG ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.66 ! " ! FILE: DTKMSG.MSG EDIT: TS1004 !  ! * *K ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1988 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE I S SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! 2 ! 1-004 ADD DSR STATUS MESSAGES. TS 29-AUG-1986; ! 1-003 ADD /MACRO=$DTKMSG FOR STARLETSD. TS 30-JUL-1986, ! 1-002 ADD DTK$_TLKINUSE. TS 10-APR-1986" ! 1-001 ORIGINAL. TS 6-AUG-1985 ! - ! +@ ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! DTK$_ABCMNOXYZ ! M ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",O ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR4 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! N ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR8 ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: ! ! $DTKDEF ! > ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.< ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;A ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. !  ! -& ! TEMPLATE FOR DOCUMENTING MESSAGES.: ! EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND ! IS FOLLOWED BY A BLANK LINE.H ! BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "!" IN REGULAR COMMENTS? ! AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE: ! SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE$ ! DOCUMENTATION BECOMES AUTOMATED. ! ++ ! FACILITY: DTK ! EXPLANATION: X ! USER ACTION: Y ! -- ! ; SET LH TO 419 (DECIMAL).& PARAMETER DTK$_FACILITY = '000001A3'X$ PARAMETER DTK$_NORMAL = '01A38001'X ! ++ ! FACILITY: DTK. ! EXPLANATION: NORMAL SUCCESSFUL COMPLETION. ! USER ACTION: NONE ! --' PARAMETER DTK$_VOIALREXI = '01A38011'X ! ++ ! FACILITY: DTKE ! EXPLANATION: A USER TRIED TO CREATE A NEW VOICE_ID FOR A DECTALK 8 ! DEVICE, WHEN ONE ALREADY EXISTS. THIS IS NORMAL IN2 ! A MODULAR ENVIRONMENT. THE EXISTING VOICE ID ! IS RETURNED.< ! USER ACTION: NONE. MAKE SURE YOU DON'T DELETE A VOICE_ID% ! THAT YOU ACTUALLY DIDN'T CREATE. ! --' PARAMETER DTK$_NOT_A_TRM = '01A38019'X ! ++ ! FACILITY: DTKB ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT) ! THE OUTPUT DEVICE IS NOT A TERMINAL. ! USER ACTION: NONE. ! -- ! +; ! NOTE:: DO NOT ADD ANY ADDITIONAL SUCCESS MESSAGES HERE.: ! ADD THEM BELOW AFTER THE REMAINING .SUCCESS MESSAGES. ! -" PARAMETER DTK$_BUSY = '01A38023'X ! ++ ! FACILITY: DTKF ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE" ! NUMBER AND THE LINE WAS BUSY.# ! USER ACTION: TRY CALLING AGAIN. ! --& PARAMETER DTK$_NOANSWER = '01A3802B'X ! ++ ! FACILITY: DTKF ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE) ! NUMBER AND NO ONE ANSWERED THE CALL.# ! USER ACTION: TRY CALLING AGAIN. ! --' PARAMETER DTK$_NODIATONE = '01A38033'X ! ++ ! FACILITY: DTKF ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE0 ! NUMBER AND NO DIAL TONE WAS DETECTED ON THE ! PHONE LINE. C ! USER ACTION: CORRECT THE TELEPHONE LINE PROBLEM AND CALL AGAIN. ! --% PARAMETER DTK$_OFFHOOK = '01A3803B'X ! ++ ! FACILITY: DTKB ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT- ! THE PHONE IS OFFHOOK (A CALL IS ACTIVE). ! USER ACTION: NONE. ! --$ PARAMETER DTK$_ONHOOK = '01A38043'X ! ++ ! FACILITY: DTKB ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT- ! THE PHONE IS ONHOOK (NO CALL IS ACTIVE). ! USER ACTION: NONE. ! --% PARAMETER DTK$_TIMEOUT = '01A3804B'X ! ++ ! FACILITY: DTKB ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT% ! THE OUTPUT DEVICE HAS TIMED OUT. ! USER ACTION: NONE. ! --" PARAMETER DTK$_WINK = '01A38053'X ! ++ ! FACILITY: DTK> ! EXPLANATION: A WINK (POSSIBLE TIMEOUT) WAS DETECTED ON THE8 ! PHONE LINE. THE CALLER MAY HAVE HUNG UP THE PHONE. ! USER ACTION: NONE. ! --% PARAMETER DTK$_COMFAIL = '01A3805B'X ! ++ ! FACILITY: DTKE ! EXPLANATION: A COMMUNICATIONS MALFUNCTION HAS OCCURRED SINCE THE ! DECTALK UNIT WAS TURNED ON., ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --' PARAMETER DTK$_INPBUFOVR = '01A38063'X ! ++ ! FACILITY: DTKI ! EXPLANATION: AN INPUT BUFFER OVERFLOW MALFUNCTION HAS OCCURRED SINCE $ ! THE DECTALK UNIT WAS TURNED ON., ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --' PARAMETER DTK$_NVROPRFAI = '01A3806B'X ! ++ ! FACILITY: DTK< ! EXPLANATION: A NVR OPERATION FAILURE HAS OCCURRED SINCE $ ! THE DECTALK UNIT WAS TURNED ON., ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --' PARAMETER DTK$_ERRPHOTRA = '01A38073'X ! ++ ! FACILITY: DTKI ! EXPLANATION: A PHONEMIC TRANSCRIPTION MALFUNCTION HAS OCCURRED SINCE $ ! THE DECTALK UNIT WAS TURNED ON., ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --' PARAMETER DTK$_CONSEQERR = '01A3807B'X ! ++ ! FACILITY: DTKD ! EXPLANATION: A DECTALK PRIVATE CONTROL SEQUENCE MALFUNCTION HAS 3 ! OCCURRED SINCE THE DECTALK UNIT WAS TURNED ON., ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --' PARAMETER DTK$_DECTSTFAI = '01A38083'X ! ++ ! FACILITY: DTKB ! EXPLANATION: A LOCAL SELF-TEST MALFUNCTION HAS OCCURRED SINCE $ ! THE DECTALK UNIT WAS TURNED ON., ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --' PARAMETER DTK$_FATERRLIB = '01A38204'X ! ++ ! FACILITY: DTK: ! EXPLANATION: AN INTERNAL ERROR HAS OCCURED WITHIN DTK.6 ! USER ACTION: SUBMIT AN SPR DESCRIBING THE PROBLEM. ! --' PARAMETER DTK$_FILTOOLON = '01A3820C'X ! ++ ! FACILITY: DTK3 ! EXPLANATION: THE LENGTH OF THE SPECIFIED STRING ! WAS TOO LONG.@ ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE$ ! NAME OF 255 CHARACTERS OR LESS. ! --$ PARAMETER DTK$_INVARG = '01A38214'X ! ++ ! FACILITY: DTKH ! EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE.> ! USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS+ ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --% PARAMETER DTK$_INVMODE = '01A3821C'X ! ++ ! FACILITY: DTK> ! EXPLANATION: THE VALUE OF THE MODE ARGUMENT IS NOT IN THE  ! CORRECT RANGE.8 ! USER ACTION: EXAMINE THE ARGUMENT. DETERMINE WHAT IS+ ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --' PARAMETER DTK$_INVVOI_ID = '01A38224'X ! ++ ! FACILITY: DTK3 ! EXPLANATION: AN INVALID VOICE-ID WAS SPECIFIED.E ! USER ACTION: CHECK THAT YOU ARE PASSING THE VOICE ID BY REFERENCE/ ! NOT BY VALUE. ENSURE THAT THE VOICE ID WAS3 ! PREVIOUSLY SET UP BY A CALL TO DTK$INITIALIZE. ! --$ PARAMETER DTK$_NOROOM = '01A3822C'X ! ++ ! FACILITY: DTKA ! EXPLANATION: THERE IS NO ROOM LEFT IN THE DICTIONARY FOR THIS ! DEFINITION.@ ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS FEWER 9 ! DICTIONARY ENTRIES OR SO THAT EACH ENTRY IS SMALLER. ! --$ PARAMETER DTK$_NOTIMP = '01A38234'X ! ++ ! FACILITY: DTKC ! EXPLANATION: YOU TRIED TO USE A FEATURE THAT IS NOT IMPLEMENTED ! IN THIS VERSION OF DTK$.5 ! USER ACTION: GET THE APPROPRIATE VERSION OF DTK$. ! --' PARAMETER DTK$_PROTOOLON = '01A3823C'X ! ++  ! FACILITY: DTKG ! EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS.> ! USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. ! --' PARAMETER DTK$_STRTERESC = '01A38244'X ! ++ ! FACILITY: DTKE ! EXPLANATION: AN DTK OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE% ! EMBEDDED IN THE OUTPUT STRING. B ! USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE7 ! SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION4 ! PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST; ! LIKELY A DTK ROUTINE THAT PROVIDES THAT FUNCTIONALITY. ! --% PARAMETER DTK$_TOOLONG = '01A3824C'X ! ++ ! FACILITY: DTKA ! EXPLANATION: THE LENGTH OF THE SPECIFIED STRING WAS TOO LONG.H ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A PHONE NUMBER: ! OR DICTIONARY SUBSTITUTION OF 255 CHARACTERS OR LESS. ! --' PARAMETER DTK$_UNKESCSEQ = '01A38254'X ! ++ ! FACILITY: DTKC ! EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE& ! THAT IT WAS UNABLE TO UNDERSTAND. ! USER ACTION: ???? ! --& PARAMETER DTK$_UNKREPLY = '01A3825C'X ! ++ ! FACILITY: DTKC ! EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE' ! THAT IT COULD NOT PARSE CORRECTLY. ! USER ACTION: ???? ! --' PARAMETER DTK$_WRONUMARG = '01A38264'X ! ++ ! FACILITY: DTK@ ! EXPLANATION: A DTK ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS1 ! (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) ! OR TOO MANY ARGUMENTS.: ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH$ ! THE PROPER NUMBER OF ARGUMENTS. ! --& PARAMETER DTK$_TLKINUSE = '01A3826C'X ! ++ ! FACILITY: DTK= ! EXPLANATION: A DTK ROUTINE WAS CALLED FROM AN AST ROUTINE1 ! THAT INTERRUPTED A DTK ROUTINE WITH THE SAME ! VOICE_ID.: ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH ! THE PROPER SYNCHRONIZATION. ! --' PARAMETER DTK$_NOTLCLTRM = '01A38274'X ! ++ ! FACILITY: DTK; ! EXPLANATION: THE OUTPUT DEVICE IS NOT A TERMINAL ON THE ! LOCAL VMS NODE.1 ! USER ACTION: SPECIFY A LOCAL TERMINAL DEVICE. ! --' PARAMETER DTK$_NOMALFUN1 = '01A38801'X ! ++ ! FACILITY: DTKB ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT4 ! NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK2 ! UNIT WAS TURNED ON. THIS IS THE FIRST REPLY. ! USER ACTION: NONE. ! --' PARAMETER DTK$_NOMALFUN2 = '01A38809'X ! ++ ! FACILITY: DTKB ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT4 ! NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK< ! UNIT WAS TURNED ON. THIS IS THE SECOND OR LATER REPLY. ! USER ACTION: NONE. ! --!DEC$ END OPTIONSwwAhnΦ!*** MODULE $DVIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! A ! Get Device and Volume Information Data Identifier Definitions !  ! **** NOTE **** ! H ! New items must always be added at the END of the list so that* ! use rs will not have to rebuild. !  ! -S PARAMETER DVI$_DEVCHAR = '00000002'X ! Device characteristics - VALUE - 4 bytes I PARAMETER DVI$_DEVCLASS = '00000004'X ! Device class - VALUE - 1 byte G PARAMETER DVI$_DEVTYPE = '00000006'X ! Device type - VALUE - 1 byte Q PARAMETER DVI$_DEVBUFSIZ = '00000008'X ! Device buffer size - VALUE - 2 bytes [ PARAMETER DVI$_DEVDEPEND = '0000000A'X ! Device dependent information - VALUE - 4 bytes E PARAMETER DVI$_UNIT = '0000000C'X ! Unit number - VALUE - 4 bytes _ PARAMETER DVI$_PID = '0000000E'X ! Process identification of device owner - VALUE - 4 bytes O PARAMETER DVI$_OWNUIC = '00000010'X ! UIC of device owner - VALUE - 4 bytes Q PARAMETER DVI$_VPROT = '00000012'X ! Volume protection mask - VALUE - 2 bytes G PARAMETER DVI$_ERRCNT = '00000014'X ! Error count - VALUE - 2 bytes J PARAMETER DVI$_OPCNT = '00000016'X ! Operation count - VALUE - 4 bytes O PARAMETER DVI$_RECSIZ = '00000018'X ! Blocked record size - VALUE - 2 bytes d PARAMETER DVI$_MAXBLOCK = '0000001A'X ! Number of logical blocks on the volume (disk) - VALUE - 4C ! Number of logical blocks on the volume (disk) - VALUE - 4 b` PARAMETER DVI$_DEVDEPEND2 = '0000001C'X ! Additional device dependent data - VALUE - 4 bytes X PARAMETER DVI$_REFCNT = '0000001E'X ! Reference count of processes - VALUE - 2 bytes I PARAMETER DVI$_DEVNAM = '00000020'X ! Device name - STRING - 64 bytes I PARAMETER DVI$_VOLNAM = '00000022'X ! Volume name - STRING - 12 bytes ^ PARAMETER DVI$_SECTORS = '00000024'X ! Number of sectors per track (disk) - VALUE - 1 byte _ PARAMETER DVI$_TRACKS = '00000026'X ! Number of tracks per cylinder (disk) - VALUE - 1 byte d PARAMETER DVI$_CYLINDERS = '00000028'X ! Number of cylinders on the volume (disk) - VALUE - 2 bytd PARAMETER DVI$_FREEBLOCKS = '0000002A'X ! Number of free blocks on the volume (disk) - VALUE - 4 C ! Number of free blocks on the volume (disk) - VALUE - 4 byteT PARAMETER DVI$_LOGVOLNAM = '0000002C'X ! Logical volume name - STRING - 64 bytes d PARAMETER DVI$_VOLNUMBER = '0000002E'X ! Number of this volume in volume set (disk) - VALUE - 4 bC ! Number of this volume in volume set (disk) - VALUE - 4 byteb PARAMETER DVI$_VOLCOUNT = '00000030'X ! Count of volumes in volume set (disk) - VALUE - 4 byte d PARAMETER DVI$_ROOTDEVNAM = '00000032'X ! Device name of root volume in volume set (disk) - STRINC ! Device name of root volume in volume set (disk) - STRING - d PARAMETER DVI$_NEXTDEVNAM = '00000034'X ! Device name of next volume in volume set (disk) - STRINC ! Device name of next volume in volume set (disk) - STRING - V PARAMETER DVI$_TRANSCNT = '00000036'X ! Volume Transaction Count - VALUE - 2 bytes I PARAMETER DVI$_MOUNTCNT = '00000038'X ! Mount count - VALUE - 2 bytes W PARAMETER DVI$_CLUSTER = '0000003A'X ! Volume Cluster Size (disk) - VALUE - 2 bytes \ PARAMETER DVI$_MAXFILES = '0000003C'X ! Maximum Files on Volume (disk) - VALUE - 4 bytes Z PARAMETER DVI$_SERIALNUM = '0000003E'X ! Volume Serial Number (disk) - VALUE - 4 bytes J PARAMETER DVI$_ACPPID = '00000040'X ! ACP Process ID - VALUE - 4 bytes I PARAMETER DVI$_ACPTYPE = '00000042'X ! ACP type code - VALUE - 1 byte [ PARAMETER DVI$_CONCEALED = '00000044'X ! Device is a concealed device - BOOLEAN - 1 byte ! H ! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVCHAR LONGWORD ! = PARAMETER DVI$_REC = '00000046'X ! DEVICE RECORD ORIENTED > PARAMETER DVI$_CCL = '00000048'X ! CARRIAGE CONTROL DEVICE ; PARAMETER DVI$_TRM = '0000004A'X ! DEVICE IS A TERMINAL E PARAMETER DVI$_DIR = '0000004C'X ! DEVICE IS DIRECTORY STRUCTURED L PARAMETER DVI$_SDI = '0000004E'X ! DEVICE IS SINGLE DIRECTORY STRUCTURED W PARAMETER DVI$_SQD = '00000050'X ! SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) ; PARAMETER DVI$_SPL = '00000052'X ! DEVICE BEING SPOOLED < PARAMETER DVI$_OPR = '00000054'X ! DEVICE IS AN OPERATOR P PARAMETER DVI$_RCT = '00000056'X ! DISK CONTAINS RCT (DEC STANDARD 166 DISK) 5 PARAMETER DVI$_NET = '00000058'X ! NETWORK DEVICE P PARAMETER DVI$_FOD = '0000005A'X ! FILES-ORIENTED DEVICE (I.E., DISK AND MT) < PARAMETER DVI$_DUA = '0000005C'X ! DEVICE IS DUAL PORTED 7 PARAMETER DVI$_SHR = '0000005E'X ! DEVICE SHAREABLE A PARAMETER DVI$_GEN = '00000060'X ! DEVICE IS A GENERIC DEVICE ? PARAMETER DVI$_AVL = '00000062'X ! DEVICE AVAILABLE FOR USE 8 PARAMETER DVI$_MNT = '00000064'X ! DEVICE IS MOUNTED : PARAMETER DVI$_MBX = '00000066'X ! DEVICE IS A MAILBOX A PARAMETER DVI$_DMT = '00000068'X ! DEVICE MARKED FOR DISMOUNT G PARAMETER DVI$_ELG = '0000006A'X ! DEVICE HAS ERROR LOGGING ENABLED : PARAMETER DVI$_ALL = '0000006C'X ! DEVICE IS ALLOCATED \ PARAMETER DVI$_FOR = '0000006E'X ! DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) F PARAMETER DVI$_SWL = '00000070'X ! DEVICE IS SOFTWARE WRITE LOCKED H PARAMETER DVI$_IDV = '00000072'X ! DEVICE CAPABLE OF PROVIDING IN PUT I PARAMETER DVI$_ODV = '00000074'X ! DEVICE CAPABLE OF PROVIDING OUTPUT B PARAMETER DVI$_RND = '00000076'X ! DEVICE ALLOWS RANDOM ACCESS C PARAMETER DVI$_RTM = '00000078'X ! DEVICE IS REALTIME IN NATURE G PARAMETER DVI$_RCK = '0000007A'X ! DEVICE HAS READ CHECKING ENABLED H PARAMETER DVI$_WCK = '0000007C'X ! DEVICE HAS WRITE CHECKING ENABLED  ! K ! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND LONGWORD8 ! * (AS DEFINED FOR TERMINALS: TTDEF IN STARDEFQZ.SDL) ! ( PARAMETER DVI$_TT_PASSALL = '0000007E'X' PARAMETER DVI$_TT_NOECHO = '00000080'X* PARAMETER DVI$_TT_NOTYPEAHD = '00000082'X' PARAMETER DVI$_TT_ESCAPE = '00000084'X) PARAMETER DVI$_TT_HOSTSYNC = '00000086'X' PARAMETER DVI$_TT_TTSYNC = '00000088'X' PARAMETER DVI$_TT_SCRIPT = '0000008A'X& PARAMETER DVI$_TT_LOWER = '0000008C'X( PARAMETER DVI$_TT_MECHTAB = '0000008E'X% PARAMETER DVI$_TT_WRAP = '00000090'X' PARAMETER DVI$_TT_CRFILL = '00000092'X' PARAMETER DVI$_TT_LFFILL = '00000094'X& PARAMETER DVI$_TT_SCOPE = '00000096'X' PARAMETER DVI$_TT_REMOTE = '00000098'X) PARAMETER DVI$_TT_EIGHTBIT = '0000009A'X) PARAMETER DVI$_TT_MBXDSABL = '0000009C'X) PARAMETER DVI$_TT_NOBRDCST = '0000009E'X) PARAMETER DVI$_TT_READSYNC = '000000A0'X) PARAMETER DVI$_TT_MECHFORM = '000000A2'X( PARAMETER DVI$_TT_HALFDUP = '000000A4'X& PARAMETER DVI$_TT_MODEM = '000000A6'X% PARAMETER DVI$_TT_OPER = '000000A8'X% PARAMETER DVI$_TT_PAGE = '000000AA'X ! L ! * THE FOLLOWING CODES AR E THE INDIVIDUAL BITS OF THE DEVDEPEND2 LONGWORD9 ! * (AS DEFINED FOR TERMINALS: TT2DEF IN STARDEFQZ.SDL) ! * PARAMETER DVI$_TT_LOCALECHO = '000000AC'X) PARAMETER DVI$_TT_AUTOBAUD = '000000AE'X' PARAMETER DVI$_TT_HANGUP = '000000B0'X* PARAMETER DVI$_TT_MODHANGUP = '000000B2'X* PARAMETER DVI$_TT_BRDCSTMBX = '000000B4'X$ PARAMETER DVI$_TT_DMA = '000000B6'X* PARAMETER DVI$_TT_ALTYPEAHD = '000000B8'X) PARAMETER DVI$_TT_SETSPEED = '000000BA'XO PARAMETER DVI$_TT_DCL_MAILBX = '000000BC'X !  TEMP DEFINITIONS FOR DCL SPAWN ( PARAMETER DVI$_TT_EDITING = '000000BE'X' PARAMETER DVI$_TT_INSERT = '000000C0'X) PARAMETER DVI$_TT_FALLBACK = '000000C2'X' PARAMETER DVI$_TT_DIALUP = '000000C4'X' PARAMETER DVI$_TT_SECURE = '000000C6'X+ PARAMETER DVI$_TT_DISCONNECT = '000000C8'X( PARAMETER DVI$_TT_PASTHRU = '000000CA'X& PARAMETER DVI$_TT_SIXEL = '000000CC'X% PARAMETER DVI$_TT_DRCS = '000000CE'X( PARAMETER DVI$_TT_PRINTER = '000000D0'X+ PARAMETER DVI$_TT_APP_KEYPAD = '000000D2'X' P ARAMETER DVI$_TT_SYSPWD = '000000D4'X( PARAMETER DVI$_TT_ANSICRT = '000000D6'X& PARAMETER DVI$_TT_REGIS = '000000D8'X& PARAMETER DVI$_TT_BLOCK = '000000DA'X$ PARAMETER DVI$_TT_AVO = '000000DC'X% PARAMETER DVI$_TT_EDIT = '000000DE'X' PARAMETER DVI$_TT_DECCRT = '000000E0'X ! + ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! 5 PARAMETER DVI$_STS = '000000E2'X ! STATUS LONGWORD; PARAMETER DVI$_DEVSTS = '000000E4'X ! DEVICE STATUS WORDd PARAMETER DVI$_DEVCHAR2 = '000000E6'X ! Secon d device characteristics longword - VALUE - 4 bytes H PARAMETER DVI$_FULLDEVNAM = '000000E8'X ! Fully qualified device nameI PARAMETER DVI$_LOCKID = '000000EA'X ! Device lock id - VALUE - 4 bytesJ PARAMETER DVI$_ALLDEVNAM = '000000EC'X ! Allocation class + device name= PARAMETER DVI$_VOLSETMEM = '000000EE'X ! Volume set member= PARAMETER DVI$_DEVLOCKNAM = '000000F0'X ! Device lock name ! M ! * THE FOLLOWING CODES SUPPORT FEATURES OF DUAL-PATH AND SHADOW-SET DEVICES ! I PARAMETER DVI$_ALLOCLASS = '000000F2'X ! Allocation class of host(s) I PARAMETER DVI$_ALT_HOST_AVAIL = '000000F4'X ! Alternate host is activeS PARAMETER DVI$_ALT_HOST_NAME = '000000F6'X ! Name of host serving alternate pathF PARAMETER DVI$_ALT_HOST_TYPE = '000000F8'X ! Type of alternate hostC PARAMETER DVI$_HOST_AVAIL = '000000FA'X ! Primary host is activeJ PARAMETER DVI$_HOST_COUNT = '000000FC'X ! Number of paths to the deviceQ PARAMETER DVI$_HOST_NAME = '000000FE'X ! Name of host serving the primary pathd PARAMETER DVI$_HOST_TYPE = '00000100'X ! Type of primary host (today one of "V785", "V780", "V750C ! Type of primary host (today one of "V785", "V780", "V750" oU PARAMETER DVI$_REMOTE_DEVICE = '00000102'X ! Device is not connected to local nodeO PARAMETER DVI$_SERVED_DEVICE = '00000104'X ! Device is served to the clusterS PARAMETER DVI$_SHDW_CATCHUP_COPYING = '00000106'X ! Catch-up copy is in progress^ PARAMETER DVI$_SHDW_MASTER = '00000108'X ! Devi ce is "virtual" master device for shadow setd PARAMETER DVI$_SHDW_MASTER_NAME = '0000010A'X ! Name of the "virtual" master device for a shadow ^ PARAMETER DVI$_SHDW_MEMBER = '0000010C'X ! Device is one of the volumes making a shadow setN PARAMETER DVI$_SHDW_MERGE_COPYING = '0000010E'X ! Merge copy is in progressZ PARAMETER DVI$_SHDW_NEXT_MBR_NAME = '00000110'X ! Name of the next device in shadow set ! + ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! ` PARAMETER DVI$_TT_PHYDEVNAM = '00000112'X ! Terminal physical device name - STRING - 64 bytes] PARAMETER DVI$_TT_DECCRT2 = '00000114'X ! DEC_CRT level 2 part of devdepend2 longword for  ! terminals.e PARAMETER DVI$_MEDIA_NAME = '00000116'X ! Decoded media name from UCB$L_MEDIA_ID field (ie. RK07 )c PARAMETER DVI$_MEDIA_TYPE = '00000118'X ! Decoded media type from UCB$L_MEDIA_ID field (ie. DM )R PARAMETER DVI$_MEDIA_ID = '0000011A'X ! NONdecoded media id from UCB$L_MEDIA_ID ! d PARAMETER DVI$_SHDW_FAILED_MEMBER = '0000011C'X ! Member unit has been failed out from shadow set\ PARAMETER DVI$_MSCP_UNIT_NUMBER = '0000011E'X ! MSCP unit number of device (internal hash5 ! value, not useful for customers or applications)[ PARAMETER DVI$_DISPLAY_DEVNAM = '00000120'X ! A displayable device name, useful for user! ! displays but not for $ASSIGN\ PARAMETER DVI$_TT_ACCPORNAM = '00000122'X ! Name of local port on remote system. Counted1 ! string in remote native format, ie: LAT, X.29H PARAMETER DVI$_DEVDEPEND3 = '00000124'X ! Device dependent longword 3H PARAMETER DVI$_TT_MULTISESSION = '00000126'X ! Multi-session terminalB PARAMETER DVI$_TT_DECCRT3 = '00000128'X ! VT3xx series terminalR PARAMETER DVI$_SET_HOST_TERMINAL = '0000012A'X ! SET HOST session terminal K PARAMETER DVI$_DFS_ACCESS = '0000012C'X ! DFS client access point deviceU PARAMETER DVI$_DAPDEVNAM = '0000012E'X ! DAP device name, used to store the remote0 ! name string of a device that is accessed via.  ! the DAP protocol (without DECnet), such as ! certain console disks.B PARAMETER DVI$_TT_DECCRT4 = '00000130'X ! VT4xx series terminalO PARAMETER DVI$_TT_CHARSET = '00000132'X ! Terminal character set information ! L ! * The following codes are the individual bits of the TT_CHARSET longword0 ! * in the terminal UCB (as defined in TTCDEF) ! G PARAMETER DVI$_TT_CS_KANA = '00000134'X ! Support Kana character setI PARAMETER DVI$_TT_CS_KANJI = '00000136'X ! Support Kanji charac ter setI PARAMETER DVI$_TT_CS_HANZI = '00000138'X ! Support Hanzi character setK PARAMETER DVI$_TT_CS_HANGUL = '0000013A'X ! Support Hangul character setI PARAMETER DVI$_TT_CS_HANYU = '0000013C'X ! Support Hanyu character setG PARAMETER DVI$_TT_CS_THAI = '0000013E'X ! Support Thai character set ! + ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! H PARAMETER DVI$_DEVDEPEND4 = '00000140'X ! Device dependent longword 4G PARAMETER DVI$_DEVICE_TYPE_NAME = '00000142'X ! DDR Device type nameR PARAMETER DVI$_TT_ASIAN_MODE = '00000144'X ! Asian terminal I/O characteristicsM PARAMETER DVI$_PREFERRED_CPU = '00000146'X ! Return CPU affinity of deviceB PARAMETER DVI$_TT_DECCRT5 = '00000148'X ! VT5xx series terminal] PARAMETER DVI$_TT_ANSI_COLOR = '0000014A'X ! Terminal supports ANSI color escape sequencesQ PARAMETER DVI$_MT3_SUPPORTED = '0000014C'X ! Tape UCB owned by an MTD enhanced ! driver? (longword)F PARAMETER DVI$_MT3_DENSITY = '0000014E'X ! Tape density. (longword)O PARAMETER DVI$_DRIVER_IMAGE_NAME = '00000150'X ! Driver image name -- STRINGM PARAMETER DVI$_CLIENT_DEVICE = '00000152'X ! Client device flag -- BOOLEANP PARAMETER DVI$_FC_PORT_NAME = '00000154'X ! Fibre Channel Port Name -- STRINGP PARAMETER DVI$_FC_NODE_NAME = '00000156'X ! Fibre Channel Node Name -- STRINGS PARAMETER DVI$_WWID = '00000158'X ! SCSI Fibre Channel Device (Disk, Tape, etc.)% ! World Wide Identifier -- STRINGK PARAMETER DVI$_VOLCHAR = '0000015A'X  ! Volume Characteristics (16 bytes)b PARAMETER DVI$_HBVS_MASTER_MEMBER = '0000015C'X ! This device is master member of of shadow setV PARAMETER DVI$_MULTIPATH = '0000015E'X ! this device is a member of a multipath setZ PARAMETER DVI$_MPDEV_CURRENT_PATH = '00000160'X ! the current path of the multipath setI PARAMETER DVI$_VOLSIZE = '00000162'X ! the current logical volume sizeH PARAMETER DVI$_EXPSIZE = '00000164'X ! the growth limit of the volumeE PARAMETER DVI$_QLEN = '00000166'X ! the queue length on the device\ PARAMETER DVI$_SHDW_SITE = '00000168'X ! the shadowing site-specific value for the device] PARAMETER DVI$_SHDW_MBR_COUNT = '0000016A'X ! the number of full members in a virtual unit[ PARAMETER DVI$_SHDW_DEVICE_COUNT = '0000016C'X ! the number of members in a virtual unitO PARAMETER DVI$_SHDW_MBR_READ_COST = '0000016E'X ! the read cost for a member` PARAMETER DVI$_SHDW_READ_SOURCE = '00000170'X ! the name of the member from which reads occurO PARAMETER DVI$_SHDW_TIMEOUT = '00000172'X ! the timeout value for the deviceH PARAMETER DVI$_DVI_UNUSED_1 = '00000174'X ! Had been shdw_start_delayG PARAMETER DVI$_SHDW_GENERATION = '00000176'X ! the generation number] PARAMETER DVI$_SHDW_STATUS = '00000178'X ! the status of either the member or virtual unitY PARAMETER DVI$_SHDW_MBR_COPY_DONE = '0000017A'X ! the percent done of a copy operation` PARAMETER DVI$_SHDW_MBR_MERGE_DONE = '0000017C'X ! the percent done of a full merge operationd PARAMETER DVI$_SHDW_MINIMERGE_ENABLE = '0000017E'X ! is this virtual unit enabled for mini-merge?N PARAMETER DVI$_DVI_UNUSED_2 = '00000180'X ! had been shdw_minimerge_capable[ PARAMETER DVI$_SHDW_COPIER_NODE = '00000182'X ! the node on which the copy is being doned PARAMETER DVI$_SHDW_MASTER_MBR = '00000184'X ! the device that is the master member of the virtuad PARAMETER DVI$_MPDEV_AUTO_PATH_SW_CNT = '00000186'X ! number of times the device switched paths dC ! number of times the device switched paths due to an I/O errd PARAMETER DVI$_MPDEV_MAN_PATH_SW_CNT = '00000188'X ! number of times the device switched paths duC ! number of times the device switched paths due to $SET DEVICI PARAMETER DVI$_WRITETHRU_CACHE_ENABLED = '0000018A'X ! vcb$v_writethruA PARAMETER DVI$_NOCACHE_ON_VOLUME = '0000018C'X ! vcb$v_nocacheB PARAMETER DVI$_MOUNTVER_ELIGIBLE = '0000018E'X ! vcb$v_mountver= PARAMETER DVI$_ERASE_ON_DELETE = '00000190'X ! vcb$v_erase? PARAMETER DVI$_NOHIGHWATER = '00000192'X ! vcb$v_nohighwater? PARAMETER DVI$_NOSHARE_MOUNTED = '00000194'X ! vcb$v_noshare9 PARAMETER DVI$_CLUSLOCK = '00000196'X ! vcb$v_cluslock< PARAMETER DVI$_ODS2_SUBSET0 = '00000198'X ! vcb$v_subset0H PARAMETER DVI$_PROT_SUBSYSTEM_ENABLED = '0000019A'X ! vcb$v_subsystem7 PARAMETER DVI$_ODS5 = '0000019C'X ! vcb$v_struc_ods5H PARAMETER DVI$_ACCESSTIMES_RECORDED = '0000019E'X ! vcb$v_accesstimesE PARAMETER DVI$_HARDLINKS_SUPPORTED = '000001A0'X ! vcb$v_hardlinksc PARAMETER DVI$_SCSI_DEVICE_FIRMWARE_REV = '000001A2'X ! firmware revision level for SCSI devicesW PARAMETER DVI$_TOTAL_PATH_COUNT = '000001A4'X ! number of configured multipath pathsZ PARAMETER DVI$_AVAILABLE_PATH_COUNT = '000001A6'X ! number of working and enabled pathsW PARAMETER DVI$_VOLUME_EXTEND_QUANTITY = '000001A8'X ! default volume extend quantityH PARAMETER DVI$_MOUNT_TIME = '000001AA'X ! time the volume was mounted? PARAMETER DVI$_VOLUME_MOUNT_SYS = '000001 AC'X ! vcb$v_system@ PARAMETER DVI$_VOLUME_MOUNT_GROUP = '000001AE'X ! vcb$v_group1 PARAMETER DVI$_PATH_AVAILABLE = '000001B0'X ! 4 PARAMETER DVI$_PATH_USER_DISABLED = '000001B2'X ! J PARAMETER DVI$_PATH_NOT_RESPONDING = '000001B4'X ! sud$v_not_responding3 PARAMETER DVI$_PATH_POLL_ENABLED = '000001B6'X ! > PARAMETER DVI$_MVSUPMSG = '000001B8'X ! sud$v_mvsupmsg_auto1 PARAMETER DVI$_PATH_SWITCH_TO_TIME = '000001BA'X3 PARAMETER DVI$_PATH_SWITCH_FROM_TIME = '000001BC'X. PARAMETER  DVI$_ERROR_RESET_TIME = '000001BE'X0 PARAMETER DVI$_DEVICE_MAX_IO_SIZE = '000001C0'X/ PARAMETER DVI$_VOLUME_RETAIN_MAX = '000001C2'X/ PARAMETER DVI$_VOLUME_RETAIN_MIN = '000001C4'XV PARAMETER DVI$_PREFERRED_CPU_BITMAP = '000001C6'X ! Bitmap indicating Fast Path CPU3 PARAMETER DVI$_MAILBOX_INITIAL_QUOTA = '000001C8'X2 PARAMETER DVI$_MAILBOX_BUFFER_QUOTA = '000001CA'X+ PARAMETER DVI$_VOLUME_WINDOW = '000001CC'X4 PARAMETER DVI$_VOLUME_SPOOLED_DEV_CNT = '000001CE'X6 PARAMETER DVI$_VOLUME_P ENDING_WRITE_ERR = '000001D0'X' PARAMETER DVI$_LAN_SPEED = '000001D2'X) PARAMETER DVI$_LAN_LINK_UP = '000001D4'X5 PARAMETER DVI$_LAN_DEFAULT_MAC_ADDRESS = '000001D6'X- PARAMETER DVI$_LAN_MAC_ADDRESS = '000001D8'X- PARAMETER DVI$_LAN_FULL_DUPLEX = '000001DA'X4 PARAMETER DVI$_LAN_ALL_MULTICAST_MODE = '000001DC'X2 PARAMETER DVI$_LAN_PROMISCUOUS_MODE = '000001DE'X6 PARAMETER DVI$_LAN_JUMBO_FRAMES_ENABLED = '000001E0'X1 PARAMETER DVI$_LAN_AUTONEG_ENABLED = '000001E2'X/ PARAMETER DVI$_LAN_PROTOCOL_TYPE = '000001E4'X/ PARAMETER DVI$_LAN_PROTOCOL_NAME = '000001E6'X2 PARAMETER DVI$_LAN_LINK_STATE_VALID = '000001E8'X1 PARAMETER DVI$_FC_HBA_FIRMWARE_REV = '000001EA'X+ PARAMETER DVI$_ADAPTER_IDENT = '000001EC'X. PARAMETER DVI$_MOUNTCNT_CLUSTER = '000001EE'X ! ? ! *** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** !  ! & ! Define flag bits in the item code. ! ( PARAMETER DVI$M_SECONDARY = '00000001'X) PARAMETER DVI$M_NOREDIRECT = '00008000'X STRUCTURE /DV IDEF/" PARAMETER DVI$S_SECONDARY = 1L PARAMETER DVI$V_SECONDARY = 0 ! Use secondary device characteristics# PARAMETER DVI$S_ITEM_CODE = 14; PARAMETER DVI$V_ITEM_CODE = 1 ! Space for item codeB ! Define additional flags here, subtracting the space out of theD ! above item code. (The item code must contain all the unused bits* ! for proper validation in the service.)# PARAMETER DVI$S_NOREDIRECT = 1$ PARAMETER DVI$V_NOREDIRECT = 15= BYTE %FILL (2) !  Don't redirect to virtual terminal END STRUCTURE ! DVIDEF ! = ! Define flag bits in the volume characteristics item code. ! * PARAMETER DVI$M_VOL_READDIR = '0000000F'Xd PARAMETER DVI$C_READDIR_NONE = '00000000'X ! directory cannot be read (scan with repeated IO$_ACCN PARAMETER DVI$C_READDIR_VIO = '00000001'X ! read directory via IO$_READVBLKL PARAMETER DVI$C_READDIR_IO = '00000002'X ! read directory via IO$_READDIRN PARAMETER DVI$C_READDIR_ACP = '00000003'X ! read directory via IO$_ACPCNTRL. PARAMETER DVI$M_VOL_LENGTH_HINT = '00000010'X/ PARAMETER DVI$M_VOL_CACHING_ATTR = '00000020'X. PARAMETER DVI$M_VOL_ACCESS_DATE = '00000040'X+ PARAMETER DVI$M_VOL_HARDLINK = '00000080'X/ PARAMETER DVI$M_VOL_SET_SECURITY = '00000100'X. PARAMETER DVI$M_VOL_FID_TO_NAME = '00000200'X3 PARAMETER DVI$M_VOL_ODS1_STYLE_PURGE = '00000400'X2 PARAMETER DVI$M_VOL_SHARED_TRUNCATE = '00000800'X0 PARAMETER DVI$M_VOL_WRITE_BARRIER = '00001000'X- PARAMETER DVI$M_VOL_DIRSEQ_QIO = '00002000'X& PARAMETER DVI$M_VOL_EFS = '00004000'X' PARAMETER DVI$M_VOL_UCS2 = '00008000'X/ PARAMETER DVI$M_VOL_CASE_VARIANT = '00010000'X* PARAMETER DVI$M_VOL_MODDATE = '00020000'X/ PARAMETER DVI$M_VOL_SPECIAL_FILE = '00040000'X' PARAMETER DVI$M_VOL_SSIO = '00080000'X STRUCTURE /DVIVOLDEF/ UNION MAP BYTE %FILL(1:16) END MAP MAP, PARAMETER DVI$S_VOL_READDIR = 4V PARAMETER DVI$V_VOL_READDIR = 0 ! Read/scan a directory (4 bit field):0 PARAMETER DVI$S_VOL_LENGTH_HINT = 1E PARAMETER DVI$V_VOL_LENGTH_HINT = 4 ! file length hint1 PARAMETER DVI$S_VOL_CACHING_ATTR = 1d PARAMETER DVI$V_VOL_CACHING_ATTR = 5 ! support 'caching attribute' (contents, atttribC ! support 'caching attribute' (contents, atttribute, on_close0 PARAMETER DVI$S_VOL_ACCESS_DATE = 1@ PARAMETER DVI$V_VOL_ACCESS_DATE = 6 ! access date- PARAMETER DVI$S_VOL_HARDLINK = 1: PARAMETER DVI$V_VOL_HARDLINK = 7 ! hardlink1 PARAMETER DVI$S_VOL_SET_SECURITY = 1Y PARAMETER DVI$V_VOL_SET_SECURITY = 8 ! set volume security profile support0 PARAMETER DVI$S_VOL_FID_TO_NAME = 1` PARAMETER DVI$V_VOL_FID_TO_NAME = 9 ! ATR$C_FILE_SPEC attribute (lib$fid_to_name)5 PARAMETER DVI$S_VOL_ODS1_STYLE_PURGE = 1Z PARAMETER DVI$V_VOL_ODS1_STYLE_PURGE = 10 ! post ODS1 style pur ge operation4 PARAMETER DVI$S_VOL_SHARED_TRUNCATE = 1d PARAMETER DVI$V_VOL_SHARED_TRUNCATE = 11 ! Support truncate when open shared (Spiralo2 PARAMETER DVI$S_VOL_WRITE_BARRIER = 1d PARAMETER DVI$V_VOL_WRITE_BARRIER = 12 ! Support IO$M_WRITE_BARRIER (vs IO$M_BARRIER)/ PARAMETER DVI$S_VOL_DIRSEQ_QIO = 1K PARAMETER DVI$V_VOL_DIRSEQ_QIO = 13 ! read/arm DIRSEQ by QIO( PARAMETER DVI$S_VOL_EFS = 1J  PARAMETER DVI$V_VOL_EFS = 14 ! extended file specification) PARAMETER DVI$S_VOL_UCS2 = 1? PARAMETER DVI$V_VOL_UCS2 = 15 ! ucs2 file names1 PARAMETER DVI$S_VOL_CASE_VARIANT = 1I PARAMETER DVI$V_VOL_CASE_VARIANT = 16 ! case variant names, PARAMETER DVI$S_VOL_MODDATE = 1` PARAMETER DVI$V_VOL_MODDATE = 17 ! support for modification date (ATR$C_MODDATE).1 PARAMETER DVI$S_VOL_SPECIAL_FILE = 1d  PARAMETER DVI$V_VOL_SPECIAL_FILE = 18 ! special file support including symbolic links) PARAMETER DVI$S_VOL_SSIO = 1T PARAMETER DVI$V_VOL_SSIO = 19 ! support for shared stream I/O (SSIO) BYTE %FILL (3) END MAP END UNION END STRUCTURE ! DVIVOLDEF ! 1 ! Constant form of name for past compatibility. ! ( PARAMETER DVI$C_SECONDARY = '00000001'X ! @ ! The following ACP type codes are formally defined in $AQBDEF> ! These synony ms are available to user programs and they areD ! guaranteed to be consistent by ASSUME's in SYSGETDVI. AdditionsA ! to the ACP type codes in $AQBDEF should be reflected here and ! in the ASSUMES in SYSGETDVI. ! A ! If you add ACP codes here, you must also update the ACP_TYPES? ! text translation table embedded over in [lib]liblexica.bli. ! H PARAMETER DVI$C_ACP_F11V1 = '00000001'X ! FILES-11 STRUCTURE LEVEL 1 H PARAMETER DVI$C_ACP_F11V2 = '00000002'X ! FILES-11 STRUCTURE LE VEL 2 3 PARAMETER DVI$C_ACP_MTA = '00000003'X ! MAGTAPE 4 PARAMETER DVI$C_ACP_NET = '00000004'X ! NETWORKS 6 PARAMETER DVI$C_ACP_REM = '00000005'X ! REMOTE I/O ? PARAMETER DVI$C_ACP_HBS = '00000006'X ! HOST BASED SHADOWINGN PARAMETER DVI$C_ACP_F11V3 = '00000007'X ! Files-11 presentation of ISO 9660Q PARAMETER DVI$C_ACP_F11V4 = '00000008'X ! Files-11 presentation of High SierraF PARAMETER DVI$C_ACP_F64 = '00000009'X ! Files 64 support for DollarN PARAMETER DVI$C_ACP_UCX = '0000000A'X ! ACP for TCP/IP Services for OpenVMSH PARAMETER DVI$C_ACP_F11V5 = '0000000B'X ! FILES-11 STRUCTURE LEVEL 5 G PARAMETER DVI$C_ACP_F11V6 = '0000000C'X ! FILES-11 STRUCTURE LEVEL 6K PARAMETER DVI$C_ACP_HBVS = '0000000D'X ! Host Based Volume Shadowing SCP!DEC$ END OPTIONS wwioΦ!*** MODULE $DVSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! + ! Device Scan Data Identifier Definitions !  ! **** NOTE **** ! C ! New items must always be added at the END of the list so that% ! users will not have to rebuild. !  ! -Y PARAMETER DVS$_DEVCLASS = '00000001'X ! Device class - VALUE - 4 bytes (only one used)W PARAMETER DVS$_DEVTYPE = '00000002'X ! Device type - VALUE - 4 bytes (only one used)!DEC$ END OPTIONS wwd鋁Φ!*** MODULE $EEOMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! $ ! EVAX End of module record (EEOM) ! B PARAMETER EEOM$C_SUCCESS = '00000000'X ! Successful (no errors) ; PARAMETER EEOM$C_WARNING = '00000001'X ! Warnings issued 9 PARAMETER EEOM$C_ERROR = '00000002'X ! Errors detected 8 PARAMETER EEOM$C_ABORT = '00000003'X ! Abort the link C PARAMETER EEOM$K_EOMMIN = '0000000A'X ! Min length of EOM record C PARAMETER EEOM$C_EOMMIN = '0000000A'X ! Min length of EOM record R PARAMETER EEOM$K_EOMMX1 = '0000000A'X ! Length of EOM record w/o transfer flags R PARAMETER EEOM$C_EOMMX1 = '0000000A'X ! Length of EOM reco rd w/o transfer flags % PARAMETER EEOM$M_WKTFR = '00000001'XG PARAMETER EEOM$K_EOMMAX = '00000018'X ! Maximum length of EOM record G PARAMETER EEOM$C_EOMMAX = '00000018'X ! Maximum length of EOM record  STRUCTURE /EEOMDEF/: INTEGER*2 EEOM$W_RECTYP ! Record type (OBJ$C_EOM) 2 INTEGER*2 EEOM$W_SIZE ! size of this EEMODU INTEGER*4 EEOM$L_TOTAL_LPS ! Number of conditional linkage pairs - max-index/2; INTEGER*2 EEOM$W_COMCOD ! Compiler completion code ! Values  UNION MAP= BYTE EEOM$B_TFRFLG ! Transfer address flags  END MAP MAP' PARAMETER EEOM$S_WKTFR = 1E PARAMETER EEOM$V_WKTFR = 0 ! Transfer address is weak  BYTE %FILL (1) END MAP END UNION3 BYTE EEOM$B_TEMP ! pad to align PSINDX= INTEGER*4 EEOM$L_PSINDX ! P-sect of transfer address UNION MAP9 INTEGER*4 EEOM$Q_TFRADR(2) ! Transfer address   END MAP MAP6 INTEGER*4 EEOM$L_TFRADR ! Transfer address END MAP END UNION END STRUCTURE ! EEOMDEF!DEC$ END OPTIONS wwoΦ!*** MODULE $EFNDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNF PARAMETER EFN$C_ENF = '00000080'X ! Event No Flag (no stored state)7 PARAMETER EFN$C_CTX = '00000081'X ! Wait for context!DEC$ END OPTIONS ww鋁Φ!*** MODULE $EGPSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ) ! EVAX GSD entry - P-section definition ! # PARAMETER EGPS$M_PIC = '00000001'X# PARAMETER EGPS$M_LIB = '00000002'X# PARAMETER EGPS$M_OVR = '00000004'X# PARAMETER EGPS$M_REL = '00000008'X# PARAMETER EGPS$M_GBL = '00000010'X# PARAMETER EGPS$M_SHR = '00000020'X# PARAMETER EGPS$M_EXE = '00000040'X" PARAMETER EGPS$M_RD = '00000080'X# PARAMETER EGPS$M_WRT = '00000100'X# PARAMETER EGPS$M_VEC = '00000200'X% PARAMETER EGPS$M_NOMOD = '00000400'X# PARAMETER EGPS$M_COM = '00000800'X+ PARAMETER EGPS$M_ALLOC_64BIT = '00001000'X$ PARAMETER EGPS$K_NAME = '0000000C'X$ PARAMETER EGPS$C_NAME = '0000000C'X STRUCTURE /EGPSDEF/ UNION MAP0 INTEGER*2 EGPS$W_GSDTYP ! Typ field  END MAP MAP8 ! unsupported type CHARACTER*0 EGPS$T_START INTEGER*2 %FILL END MAP END UNION1 INTEGER*2 EGPS$W_SIZE ! size of this EGPS2 BYTE EGPS$B_ALIGN ! P-sect alignment 0 BYTE EGPS$B_TEMP ! pad for aligning UNION MAP2 INTEGER*2 EGPS$W_FLAGS ! P-sect flags  END MAP MAP% PARAMETER EGPS$S_PIC = 1? PARAMETER EGPS$V_PIC = 0 ! Position independent % PARAMETER EGPS$S_LIB = 1A PARAMETER EGPS$V_LIB = 1 ! From a shareable image % PARAMETER EGPS$S_OVR = 1E PARAMETER EGPS$V_OVR = 2 ! Overlaid memory allocation %  PARAMETER EGPS$S_REL = 16 PARAMETER EGPS$V_REL = 3 ! Relocatable % PARAMETER EGPS$S_GBL = 17 PARAMETER EGPS$V_GBL = 4 ! Global scope % PARAMETER EGPS$S_SHR = 14 PARAMETER EGPS$V_SHR = 5 ! Shareable % PARAMETER EGPS$S_EXE = 15 PARAMETER EGPS$V_EXE = 6 ! Executable $ PARAMETER EGPS$S_RD = 13 PARAMETER EGPS$V_RD = 7 ! Readable % PARAMETER EGPS$S_WRT = 14 PARAMETER EGPS$V_WRT = 8 ! Writeable % PARAMETER EGPS$S_VEC = 17 PARAMETER EGPS$V_VEC = 9 ! Vector psect ' PARAMETER EGPS$S_NOMOD = 1< PARAMETER EGPS$V_NOMOD = 10 ! Not stored into% PARAMETER EGPS$S_COM = 1C PARAMETER EGPS$V_COM = 11 ! Associated with COMM sym- PARAMETER EGPS$S_ALLOC_64BIT = 1F PARAMETER EGPS$V_ALLOC_64BIT = 12 ! Load in 64-bit space BYTE %FILL (2) END MAP END UNION= INTEGER*4 EGPS$L_ALLOC ! Length of this contribution 8 BYTE EGPS$B_NAMLNG ! Length of p-sect name - CHARACTER*31 EGPS$T_NAME ! Name field  END STRUCTURE ! EGPSDEF ! 0 ! EVAX GSD entry - 64-Bit P-section definition ! % PARAMETER EGPS64$M_PIC = '00000001'X% PARAMETER EGPS64$M_LIB = '00000002'X% PARAMETER EGPS64$M_OVR = '00000004'X% PARAMETER EGPS64$M_REL = '00000008'X% PARAMETER EGPS64$M_GBL = '00000010'X% PARAMETER EGPS64$M_SHR = '00000020'X% PARAMETER EGPS64$M_EXE = '00000040'X$ PARAMETER EGPS64$M_RD = '00000080'X% PARAMETER EGPS64$M_WRT = '00000100'X% PARAMETER EGPS64$M_VEC = '00000200'X' PARAMETER EGPS64$M_NOMOD = '00000400'X% PARAMETER EGPS64$M_COM = '00000800'X- PARAMETER EGPS64$M_ALLOC_64BIT = '00001000'X& PARAMETER EGPS64$K_NAME = '00000010'X& PARAMETER EGPS64$C_NAME = '00000010'X STRUCTURE /EGPS64DEF/ UNION MAP1 INTEGER*2 EGPS64$W_GSDTYP ! Typ field  END MAP MAP: ! unsupported type CHARACTER*0 EGPS64$T_START INTEGER*2 %FILL END MAP END UNION3 INTEGER*2 EGPS64$W_SIZE ! size of this EGPS3 BYTE EGPS64$B_ALIGN ! P-sect alignment 2 BYTE EGPS64$B_TEMP ! pad for aligning UNION MAP3 INTEGER*2 EGPS64$W_FLAGS ! P-sect flags  END MAP MAP' PARAMETER EGPS64$S_PIC = 1A PARAMETER EGPS64$V_PIC = 0 ! Position independent ' PARAMETER EGPS64$S_LIB = 1C PARAMETER EGPS64$V_LIB = 1 ! From a shareable image ' PARAMETER EGPS64$S_OVR = 1G PARAMETER EGPS64$V_OVR = 2 ! Overlaid memory allocation ' PARAMETER EGPS64$S_REL = 18 PARAMETER EGPS64$V_REL = 3 ! Relocatable ' PARAMETER EGPS64$S_GBL = 19 PARAMETER EGPS64$V_GBL = 4 ! Global scope ' PARAMETER EGPS64$S_SHR = 16  PARAMETER EGPS64$V_SHR = 5 ! Shareable ' PARAMETER EGPS64$S_EXE = 17 PARAMETER EGPS64$V_EXE = 6 ! Executable & PARAMETER EGPS64$S_RD = 14 PARAMETER EGPS64$V_RD = 7 ! Readable ' PARAMETER EGPS64$S_WRT = 16 PARAMETER EGPS64$V_WRT = 8 ! Writeable ' PARAMETER EGPS64$S_VEC = 19 PARAMETER EGPS64$V_VEC = 9 ! Vector psect ) PARAMETER EGPS64$S_NOMOD = 1> PARAMETER EGPS64$V_NOMOD = 10 ! Not stored into' PARAMETER EGPS64$S_COM = 1E PARAMETER EGPS64$V_COM = 11 ! Associated with COMM sym/ PARAMETER EGPS64$S_ALLOC_64BIT = 1H PARAMETER EGPS64$V_ALLOC_64BIT = 12 ! Load in 64-bit space BYTE %FILL (2) END MAP END UNION UNION MAPE INTEGER*4 EGPS64$Q_ALLOC(2) ! Length of this contribution  END MAP MAP3 INTEGER*4 EGPS64$L_ALLOC ! Low Longword END MAP END UNION9 BYTE EGPS64$B_NAMLNG ! Length of p-sect name / CHARACTER*31 EGPS64$T_NAME ! Name field  END STRUCTURE ! EGPS64DEF!DEC$ END OPTIONS wwꋁΦ!*** MODULE $EGSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! / ! EVAX Global symbol definition record (EGSD) ! K PARAMETER EGSD$K_ENTRIES = '00000002'X ! Offset to first entry in record K PARAMETER EGSD$C_ENTRIES = '00000002'X ! Offset to first entry in record 8 PARAMETER EGSD$C_PSC = '00000000'X ! Psect definition < PARAMETER EGSD$C_SYM = '00000001'X ! Symbol specification ; PARAMETER EGSD$C_IDC = '00000002'X ! Random entity check I PARAMETER EGSD$C_SPSC = '00000005'X ! Shareable image psect definition O PARAMETER EGSD$C_SYMV = '00000006'X ! Vectored (dual-valued) versions of SYM,? PARAMETER EGSD$C_SYMM = '00000007'X ! Masked versions of SYM,A PARAMETER EGSD$C_SYMG = '00000008'X ! EGST - gst versi on of SYMA PARAMETER EGSD$C_PSC64 = '00000009'X ! Psect with 64-bit lengthY PARAMETER EGSD$C_SPSC64 = '0000000A'X ! Shareable image psect definition w/64b len/baseH PARAMETER EGSD$C_MAXRECTYP = '0000000A'X ! Maximum entry type defined  STRUCTURE /EGSDEF/: INTEGER*2 EGSD$W_RECTYP ! Record type (OBJ$C_GSD) 9 INTEGER*2 EGSD$W_RECSIZ ! Size of theis EVAX EGSDG INTEGER*4 EGSD$L_ALIGNLW ! Insure that subrecords are QW alignedF INTEGER*2 EGSD$W_GSDTYP ! Type of entry (first byte of entry) 5 INTEGER*2 EGSD$W_GSDSIZ ! Size of this entry  END STRUCTURE ! EGSDEF!DEC$ END OPTIONS wwSꋁΦ!*** MODULE $EGSTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! R ! EVAX Universal Symbol Definition - used by the linker instead of ESDF$ recordsP ! when building the global symbol table. The def and univ. bits should always ! be set for these records. ! $ PARAMETER EGST$K_NAME = '00000025'X$ PARAMETER EGST$C_NAME = '00000025'X STRUCTURE /EGSTDEF/ UNION MAP= INTEGER*2 EGST$W_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 EGST$T_START INTEGER*2 %FILL END MAP END UNION1 INTEGER*2 EGST$W_SIZE ! size of this EGST6 BYTE EGST$B_DATYP ! Maps over GSY$B_DATYP2 BYTE EGST$B_TEMP ! pad for alignment 7 INTEGER*2 EGST$W_FLAGS ! Maps over GSY$W_FLAGS  UNION MAP" INTEGER*4 EGST$Q_VALUE(2) END MAP MAP INTEGER*4 EGST$L_VALUE END MAP END UNION UNION MAP! INTEGER*4 EGST$Q_LP_1(2) END MAP MAP INTEGER*4 EGST$L_LP_1 END MAP END UNION UNION MAP! INTEGER*4 EGST$Q_LP_2(2) END MAP MAP INTEGER*4 EGST$L_LP_2 END MAP END UNION6 INTEGER*4 EGST$L_PSINDX ! Owning psect number 1 BYTE EGST$B_NAMLNG ! Length of name . CHARACTER*31 EGST$T_NAME ! Symbol name  END STRUCTURE ! EGSTDEF!DEC$ END OPTIONS wwgꋁΦ!*** MODULE $EGSYDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! & ! EVAX GSD entry - Symbol definition ! 0 ! common to definitions, references, and entry ! point definitions. ! $ PARAMETER EGSY$M_WEAK = '00000001'X# PARAMETER EGSY$M_DEF = '00000002'X# PARAMETER EGSY$M_UNI = '00000004'X# PARAMETER EGSY$M_REL = '00000008'X$ PARAMETER EGSY$M_COMM = '00000010'X% PARAMETER EGSY$M_VECEP = '00000020'X$ PARAMETER EGSY$M_NORM = '00000040'X( PARAMETER EGSY$M_QUAD_VAL = '00000080'X STRUCTURE /EGSYDEF/ UNION MAP1 INTEGER*2 EGSY$W_GSDTYP ! Type field  END MAP MAP8 ! unsupported type CHARACTER*0 EGSY$T_START BYTE %FILL END MAP END UNION1 INTEGER*2 EGSY$W_SIZE ! size of this EGSY2 BYTE EGSY$B_DATYP ! Symbol data type 1 BYTE EGSY$B_TEMP ! pad for alignment UNION MAP2 INTEGER*2 EGSY$W_FLAGS ! Symbol flags  END MAP MAP& PARAMETER EGSY$S_WEAK = 17 PARAMETER EGSY$V_WEAK = 0 ! Weak symbol % PARAMETER EGSY$S_DEF = 15 PARAMETER EGSY$V_DEF = 1 ! Definition % PARAMETER EGSY$S_UNI = 14 PARAMETER EGSY$ V_UNI = 2 ! Universal % PARAMETER EGSY$S_REL = 16 PARAMETER EGSY$V_REL = 3 ! Relocatable & PARAMETER EGSY$S_COMM = 1= PARAMETER EGSY$V_COMM = 4 ! C common globaldef' PARAMETER EGSY$S_VECEP = 1@ PARAMETER EGSY$V_VECEP = 5 ! Vectored Entry Point& PARAMETER EGSY$S_NORM = 1? PARAMETER EGSY$V_NORM = 6 ! Normal Procedure(FD)* PARAMETER EGSY$S_QUAD_VAL = 1* PARAMETER EGSY$V_QUAD_VAL = 73 BYTE %FILL (1) ! Value is quadword END MAP END UNION END STRUCTURE ! EGSYDEF!DEC$ END OPTIONS wwꋁΦ!*** MODULE $EIDCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 4 ! EVAX IDC - Random entity ident consistency check ! # PARAMETER EIDC$C_LEQ = '00000000'X% PARAMETER EIDC$C_EQUAL = '00000001'X STRUCTURE /EIDCDEF/, INTEGER*2 EIDC$W_GSDTYP ! Type field5 INTEGER*2 EIDC$W_SI ZE ! size of this EIDCDEF UNION MAP+ INTEGER*4 EIDC$L_FLAGS ! Flags  END MAP MAP* PARAMETER EIDC$S_BINIDENT = 1Z PARAMETER EIDC$V_BINIDENT = 0 ! Ident is binary longword rather than ASCIC ) PARAMETER EIDC$S_IDMATCH = 2\ PARAMETER EIDC$V_IDMATCH = 1 ! Field for ident match control if binary ident ( PARAMETER EIDC$S_ERRSEV = 3S PARAMETER EIDC$V_ERRSEV = 3 ! Error severity (default is warning-0)  BYTE %FILL (1) END MAP ! Match control values  END UNION UNION MAP< BYTE EIDC$B_NAMLNG ! Length of entity name  END MAP MAP BYTE %FILL< ! unsupported type CHARACTER*0 EIDC$T_NAME !  ! Followed by entity name0 ! Followed by byte of length of name of object ! Followed by the object name ! Followed by ! byte of ident length8 !  ident string (length = string length) ! or2 ! ident binary value (length = 4) END MAP END UNION END STRUCTURE ! EIDCDEF!DEC$ END OPTIONS ww pΦ"!*** MODULE ELFDATYP IDENT X-4 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ** INTEGER*8 Elf64_Addr ! ** INTEGER*4 Elf64_Off(2) ! ** INTEGER*2 Elf64_Half ! ** INTEGER*4 Elf64_Word ! ** INTEGER*4 Elf64_Sword ! ** INTEGER*4 Elf64_Xword(2) ! ** INTEGER*4 Elf64_Sxword(2) ! ** INTEGER*4 Elf64_Section ! ** INTEGER*4 Elf64_Symndx STRUCTURE /subsys_majmin/ INTEGER*2 ver$w_minor_id INTEGER*2 ver$w_major_id END STRUCTURE ! subsys_majmin STRUCTURE /sysver_majmin/" PARAMETER ver$S_minor_id = 24! PARAMETER ver$V_minor_id = 0! PARAMETER ver$S_major_id = 8" PARAMETER ver$V_major_id = 24 BYTE %FILL (4) END STRUCTURE ! sysver_majmin* PARAMETER lnkg_desc1$m_type = '00000001'X. PARAMETER  lnkg_desc1$m_notused0 = '00000002'X( PARAMETER lnkg_desc1$M_GP = '00000004'X. PARAMETER lnkg_desc1$m_notused1 = '00000008'X( PARAMETER lnkg_desc1$M_R2 = '00000030'X( PARAMETER lnkg_desc1$M_R3 = '000000C0'X( PARAMETER lnkg_desc1$M_R4 = '00000300'X( PARAMETER lnkg_desc1$M_R5 = '00000C00'X( PARAMETER lnkg_desc1$M_R6 = '00003000'X( PARAMETER lnkg_desc1$M_R7 = '0000C000'X( PARAMETER lnkg_desc1$M_R8 = '00030000'X( PARAMETER lnkg_desc1$M_R9 = '000C0000'X) PARAMETER lnkg_desc1$M_R10 = '00300000'X ) PARAMETER lnkg_desc1$M_R11 = '00C00000'X) PARAMETER lnkg_desc1$M_R12 = '03000000'X) PARAMETER lnkg_desc1$M_R13 = '0C000000'X) PARAMETER lnkg_desc1$M_R14 = '30000000'X) PARAMETER lnkg_desc1$M_R15 = 'C0000000'X) PARAMETER lnkg_desc1$M_R16 = '00000000'X) PARAMETER lnkg_desc1$M_R17 = '00000000'X) PARAMETER lnkg_desc1$M_R18 = '00000000'X) PARAMETER lnkg_desc1$M_R19 = '00000000'X) PARAMETER lnkg_desc1$M_R20 = '00000000'X) PARAMETER lnkg_desc1$M_R21 = '00000000'X) PARAMETER lnkg_desc 1$M_R22 = '00000000'X) PARAMETER lnkg_desc1$M_R23 = '00000000'X) PARAMETER lnkg_desc1$M_R24 = '00000000'X( PARAMETER lnkg_desc1$M_AI = '00000000'X/ PARAMETER lnkg_desc1$m_notused25 = '00000000'X) PARAMETER lnkg_desc1$M_R26 = '00000000'X) PARAMETER lnkg_desc1$M_R27 = '00000000'X) PARAMETER lnkg_desc1$M_R28 = '00000000'X) PARAMETER lnkg_desc1$M_R29 = '00000000'X) PARAMETER lnkg_desc1$M_R30 = '00000000'X) PARAMETER lnkg_desc1$M_R31 = '00000000'X* PARAMETER LNKG_DESC1$K_SIZE = '00000008'X* PARAMETER LNKG_DESC1$C_SIZE = '00000008'X STRUCTURE /vms_lnkg_desc1/$ PARAMETER lnkg_desc1$S_type = 1$ PARAMETER lnkg_desc1$V_type = 0( PARAMETER lnkg_desc1$S_notused0 = 1( PARAMETER lnkg_desc1$V_notused0 = 1" PARAMETER lnkg_desc1$S_GP = 1" PARAMETER lnkg_desc1$V_GP = 2( PARAMETER lnkg_desc1$S_notused1 = 1( PARAMETER lnkg_desc1$V_notused1 = 3" PARAMETER lnkg_desc1$S_R2 = 2" PARAMETER lnkg_desc1$V_R2 = 4" PARAMETER lnkg_desc1$S_R3 = 2"  PARAMETER lnkg_desc1$V_R3 = 6" PARAMETER lnkg_desc1$S_R4 = 2" PARAMETER lnkg_desc1$V_R4 = 8" PARAMETER lnkg_desc1$S_R5 = 2# PARAMETER lnkg_desc1$V_R5 = 10" PARAMETER lnkg_desc1$S_R6 = 2# PARAMETER lnkg_desc1$V_R6 = 12" PARAMETER lnkg_desc1$S_R7 = 2# PARAMETER lnkg_desc1$V_R7 = 14" PARAMETER lnkg_desc1$S_R8 = 2# PARAMETER lnkg_desc1$V_R8 = 16" PARAMETER lnkg_desc1$S_R9 = 2# PARAMETER lnkg_desc1$V_R9 = 18# PARAMETER lnkg_desc1$S_R10 = 2$ PARAMETER lnkg_desc1$V_R10 = 20# PARAMETER lnkg_desc1$S_R11 = 2$ PARAMETER lnkg_desc1$V_R11 = 22# PARAMETER lnkg_desc1$S_R12 = 2$ PARAMETER lnkg_desc1$V_R12 = 24# PARAMETER lnkg_desc1$S_R13 = 2$ PARAMETER lnkg_desc1$V_R13 = 26# PARAMETER lnkg_desc1$S_R14 = 2$ PARAMETER lnkg_desc1$V_R14 = 28# PARAMETER lnkg_desc1$S_R15 = 2$ PARAMETER lnkg_desc1$V_R15 = 30# PARAMETER lnkg_desc1$S_R16 = 2$ PARAMETER lnkg_desc1$V_R16 = 32#  PARAMETER lnkg_desc1$S_R17 = 2$ PARAMETER lnkg_desc1$V_R17 = 34# PARAMETER lnkg_desc1$S_R18 = 2$ PARAMETER lnkg_desc1$V_R18 = 36# PARAMETER lnkg_desc1$S_R19 = 2$ PARAMETER lnkg_desc1$V_R19 = 38# PARAMETER lnkg_desc1$S_R20 = 2$ PARAMETER lnkg_desc1$V_R20 = 40# PARAMETER lnkg_desc1$S_R21 = 2$ PARAMETER lnkg_desc1$V_R21 = 42# PARAMETER lnkg_desc1$S_R22 = 2$ PARAMETER lnkg_desc1$V_R22 = 44# PARAMETER lnkg_desc1$S_R23 = 2$ PARAMETER lnkg_desc1$V_R23 = 46# PARAMETER lnkg_desc1$S_R24 = 2$ PARAMETER lnkg_desc1$V_R24 = 48" PARAMETER lnkg_desc1$S_AI = 1# PARAMETER lnkg_desc1$V_AI = 50) PARAMETER lnkg_desc1$S_notused25 = 1* PARAMETER lnkg_desc1$V_notused25 = 51# PARAMETER lnkg_desc1$S_R26 = 2$ PARAMETER lnkg_desc1$V_R26 = 52# PARAMETER lnkg_desc1$S_R27 = 2$ PARAMETER lnkg_desc1$V_R27 = 54# PARAMETER lnkg_desc1$S_R28 = 2$ PARAMETER lnkg_desc1$V_R28 = 56# PARAMETER lnkg_desc1$S_R29 = 2$ PARAMETER lnkg_desc1$V_R29 = 58# PARAMETER lnkg_desc1$S_R30 = 2$ PARAMETER lnkg_desc1$V_R30 = 60# PARAMETER lnkg_desc1$S_R31 = 2$ PARAMETER lnkg_desc1$V_R31 = 62 BYTE %FILL (8) END STRUCTURE ! vms_lnkg_desc1!DEC$ END OPTIONS ww"XpΦ!!*** MODULE ELFDEF IDENT X-39 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN) PARAMETER EHDR$K_EI_NIDENT = '00000010'X. PARAMETER EHDR$SC_EF_VMS_COMCOD = '00000000'X- PAR AMETER ehdr$m_ef_vms_comcod = '00000003'X0 PARAMETER EHDR$SC_EF_VMS_LINKAGES = '00000002'X/ PARAMETER ehdr$m_ef_vms_linkages = '00000004'X) PARAMETER ehdr$m_ef_fill_1 = '00000008'X/ PARAMETER EHDR$SC_EF_IA_64_ABI64 = '00000004'X. PARAMETER ehdr$m_ef_ia_64_abi64 = '00000010'X3 PARAMETER EHDR$SC_EF_IA_64_REDUCEDFP = '00000005'X2 PARAMETER ehdr$m_ef_ia_64_reducedfp = '00000020'X1 PARAMETER EHDR$SC_EF_IA_64_CONS_GP = '00000006'X0 PARAMETER ehdr$m_ef_ia_64_cons_gp = '00000040'X6 PARAMETER E HDR$SC_EF_IA_64_NOFD_CONS_GP = '00000007'X5 PARAMETER ehdr$m_ef_ia_64_nofd_cons_gp = '00000080'X2 PARAMETER EHDR$SC_EF_IA_64_ABSOLUTE = '00000008'X1 PARAMETER ehdr$m_ef_ia_64_absolute = '00000100'X) PARAMETER ehdr$m_ef_fill_2 = '00FFFE00'X. PARAMETER EHDR$SC_EF_IA_64_ARCH = '00000018'X- PARAMETER ehdr$m_ef_ia_64_arch = 'FF000000'X. PARAMETER EHDR$SC_EF_IA_64_LOOS = '00000000'X- PARAMETER ehdr$m_ef_ia_64_loos = '0000000F'X* PARAMETER ehdr$m_ef_fill_1a = '0000FFF0'X. PARAMETER EHDR$SC_EF_ IA_64_HIOS = '00000010'X- PARAMETER ehdr$m_ef_ia_64_hios = '00FF0000'X, PARAMETER ELF64_EHDR$K_E_SIZE = '00000040'X, PARAMETER ELF64_EHDR$C_E_SIZE = '00000040'X3 PARAMETER ELF64_EHDR$S_VMS_OBJECT_V1 = '00000040'X2 PARAMETER ELF64_EHDR$S_VMS_IMAGE_V1 = '00000048'X STRUCTURE /Elf64_Ehdr/ UNION MAP' BYTE ehdr$t_e_ident(1:16) END MAP MAP% BYTE ehdr$b_ei_mag0% BYTE ehdr$b_ei_mag1% BYTE ehdr$ b_ei_mag2% BYTE ehdr$b_ei_mag3& BYTE ehdr$b_ei_class% BYTE ehdr$b_ei_data( BYTE ehdr$b_ei_version& BYTE ehdr$b_ei_osabi+ BYTE ehdr$b_ei_abiversion) BYTE ehdr$b_ei_pad(1:7) END MAP END UNION4 INTEGER*2 ehdr$w_e_type ! type is "Elf64_Half"7 INTEGER*2 ehdr$w_e_machine ! type is "Elf64_Half"7 INTEGER*4 ehdr$l_e_version ! type is "Elf64_Word" 6 INTEGER*8 ehdr$pq_e_entry ! type is "Elf64_Addr"7 INTEGER*4 ehdr$q_e_phoff(2) ! type is "Elf64_Off"7 INTEGER*4 ehdr$q_e_shoff(2) ! type is "Elf64_Off" UNION MAP9 INTEGER*4 ehdr$l_e_flags ! type is "Elf64_Word" END MAP MAP/ PARAMETER ehdr$S_ef_vms_comcod = 2/ PARAMETER ehdr$V_ef_vms_comcod = 01 PARAMETER ehdr$S_ef_vms_linkages = 11 PARAMETER ehdr$V_ef_vms_linkages = 2+  PARAMETER ehdr$S_ef_fill_1 = 1+ PARAMETER ehdr$V_ef_fill_1 = 30 PARAMETER ehdr$S_ef_ia_64_abi64 = 10 PARAMETER ehdr$V_ef_ia_64_abi64 = 44 PARAMETER ehdr$S_ef_ia_64_reducedfp = 14 PARAMETER ehdr$V_ef_ia_64_reducedfp = 52 PARAMETER ehdr$S_ef_ia_64_cons_gp = 12 PARAMETER ehdr$V_ef_ia_64_cons_gp = 67 PARAMETER ehdr$S_ef_ia_64_nofd_cons_gp = 17 PARAMETER ehdr$V_ef_ia_64_nofd_cons_gp = 73 PARAMETER ehdr$S_ef_ia_64_absolute = 13 PARAMETER ehdr$V_ef_ia_64_absolute = 8, PARAMETER ehdr$S_ef_fill_2 = 15+ PARAMETER ehdr$V_ef_fill_2 = 9/ PARAMETER ehdr$S_ef_ia_64_arch = 80 PARAMETER ehdr$V_ef_ia_64_arch = 24 BYTE %FILL (4) END MAP MAP/ PARAMETER ehdr$S_ef_ia_64_loos = 4/ PARAMETER ehdr$V_ef_ia_64_loos = 0- PARAMETER ehdr$S_ef_fill_1a  = 12, PARAMETER ehdr$V_ef_fill_1a = 4/ PARAMETER ehdr$S_ef_ia_64_hios = 80 PARAMETER ehdr$V_ef_ia_64_hios = 16 BYTE %FILL (3) END MAP END UNION6 INTEGER*2 ehdr$w_e_ehsize ! type is "Elf64_Half"9 INTEGER*2 ehdr$w_e_phentsize ! type is "Elf64_Half"5 INTEGER*2 ehdr$w_e_phnum ! type is "Elf64_Half"9 INTEGER*2 ehdr$w_e_shentsize ! type is "Elf64_Half"5 INTEGER*2 ehdr$w_e_shnum ! type is "Elf64_Half"8  INTEGER*2 ehdr$w_e_shstrndx ! type is "Elf64_Half"B INTEGER*4 ehdr$q_e_vms_needed_cnt(2) ! type is "Elf64_Xword" END STRUCTURE ! Elf64_Ehdr' PARAMETER EHDR$K_EI_MAG0 = '00000000'X' PARAMETER EHDR$K_EI_MAG1 = '00000001'X' PARAMETER EHDR$K_EI_MAG2 = '00000002'X' PARAMETER EHDR$K_EI_MAG3 = '00000003'X( PARAMETER EHDR$K_EI_CLASS = '00000004'X' PARAMETER EHDR$K_EI_DATA = '00000005'X* PARAMETER EHDR$K_EI_VERSION = '00000006'X( PARAMETER EHDR$K_EI_OSABI = '00000007'X- PARAMETER E HDR$K_EI_ABIVERSION = '00000008'X& PARAMETER EHDR$K_EI_PAD = '00000009'X' PARAMETER EHDR$K_ELFMAG0 = '0000007F'X' PARAMETER EHDR$K_ELFMAG1 = '00000045'X' PARAMETER EHDR$K_ELFMAG2 = '0000004C'X' PARAMETER EHDR$K_ELFMAG3 = '00000046'X, PARAMETER EHDR$K_ELFCLASSNONE = '00000000'X* PARAMETER EHDR$K_ELFCLASS32 = '00000001'X* PARAMETER EHDR$K_ELFCLASS64 = '00000002'X+ PARAMETER EHDR$K_ELFDATANONE = '00000000'X+ PARAMETER EHDR$K_ELFDATA2LSB = '00000001'X+ PARAMETER EHDR$K_ELFDATA2MSB = '000 00002'X- PARAMETER EHDR$K_ELFOSABI_NONE = '00000000'X0 PARAMETER EHDR$K_ELFOSABI_OPENVMS = '0000000D'X6 PARAMETER EHDR$K_ELFABIVERSION_VMS_CURR = '00000002'X5 PARAMETER EHDR$K_ELFABIVERSION_VMS_OBJ = '00000002'X5 PARAMETER EHDR$K_ELFABIVERSION_VMS_IMG = '00000002'X' PARAMETER EHDR$K_ET_NONE = '00000000'X& PARAMETER EHDR$K_ET_REL = '00000001'X' PARAMETER EHDR$K_ET_EXEC = '00000002'X& PARAMETER EHDR$K_ET_DYN = '00000003'X' PARAMETER EHDR$K_ET_CORE = '00000004'X' PARAMETER EHDR$K_ET_LOO S = '0000FE00'X' PARAMETER EHDR$K_ET_HIOS = '0000FEFF'X) PARAMETER EHDR$K_ET_LOPROC = '0000FF00'X) PARAMETER EHDR$K_ET_HIPROC = '0000FFFF'X/ PARAMETER EHDR$K_ET_VMS_LINK_STB = '0000FE00'X* PARAMETER EHDR$K_ET_VMS_DSF = '0000FE01'X' PARAMETER EHDR$K_EM_NONE = '00000000'X( PARAMETER EHDR$K_EM_IA_64 = '00000032'X, PARAMETER IIHA$K_VMSXFER_SIZE = '00000030'X, PARAMETER IIHA$C_VMSXFER_SIZE = '00000030'X STRUCTURE /transfer_address/2 INTEGER*4 iiha$l_size ! type is "Elf64_Word"3  INTEGER*4 iiha$l_spare ! type is "Elf64_Word" UNION MAP> INTEGER*8 iiha$ar_tfradr(1:5) ! type is "Elf64_Addr" END MAP MAP> INTEGER*8 iiha$pq_tfradr1 ! type is "Elf64_Addr"> INTEGER*8 iiha$pq_tfradr2 ! type is "Elf64_Addr"> INTEGER*8 iiha$pq_tfradr3 ! type is "Elf64_Addr"> INTEGER*8 iiha$pq_tfradr4 ! type is "Elf64_Addr"> INTEGER*8 iiha$pq_tfradr5 ! type is "Elf64_Addr" END M AP END UNION! END STRUCTURE ! transfer_address$ PARAMETER IIHA$C_INIT = '00000001'X$ PARAMETER IIHA$C_MAIN = '00000002'X( PARAMETER IIHA$C_EXE_INIT = '00000003'X' PARAMETER EHDR$K_EV_NONE = '00000000'X* PARAMETER EHDR$K_EV_CURRENT = '00000001'X2 PARAMETER EHDR$K_VMS_COMCOD_SUCCESS = '00000000'X2 PARAMETER EHDR$K_VMS_COMCOD_WARNING = '00000001'X0 PARAMETER EHDR$K_VMS_COMCOD_ERROR = '00000002'X0 PARAMETER EHDR$K_VMS_COMCOD_ABORT = '00000003'X/ PARAMETER EHDR$K_EF_IA_64_MASKOS = '00FF0 00F'X4 PARAMETER EHDR$K_EF_IA_64_ARCHVERSION = '00000001'X* PARAMETER SHDR$SC_SHF_WRITE = '00000000'X) PARAMETER shdr$m_shf_write = '00000001'X* PARAMETER SHDR$SC_SHF_ALLOC = '00000001'X) PARAMETER shdr$m_shf_alloc = '00000002'X. PARAMETER SHDR$SC_SHF_EXECINSTR = '00000002'X- PARAMETER shdr$m_shf_execinstr = '00000004'X1 PARAMETER shdr$m_shf_f64_bitfill_1 = '00000008'X* PARAMETER SHDR$SC_SHF_MERGE = '00000004'X) PARAMETER shdr$m_shf_merge = '00000010'X, PARAMETER SHDR$SC_SHF_STRINGS =  '00000005'X+ PARAMETER shdr$m_shf_strings = '00000020'X. PARAMETER SHDR$SC_SHF_INFO_LINK = '00000006'X- PARAMETER shdr$m_shf_info_link = '00000040'X/ PARAMETER SHDR$SC_SHF_LINK_ORDER = '00000007'X. PARAMETER shdr$m_shf_link_order = '00000080'X5 PARAMETER SHDR$SC_SHF_OS_NONCONFORMING = '00000008'X4 PARAMETER shdr$m_shf_os_nonconforming = '00000100'X* PARAMETER SHDR$SC_SHF_GROUP = '00000009'X) PARAMETER shdr$m_shf_group = '00000200'X( PARAMETER SHDR$SC_SHF_TLS = '0000000A'X' PARAMETER s hdr$m_shf_tls = '00000400'X1 PARAMETER shdr$m_shf_f64_bitfill_2 = '0FFFF800'X0 PARAMETER SHDR$SC_SHF_IA_64_SHORT = '0000001C'X/ PARAMETER shdr$m_shf_ia_64_short = '10000000'X2 PARAMETER SHDR$SC_SHF_IA_64_NORECOV = '0000001D'X1 PARAMETER shdr$m_shf_ia_64_norecov = '20000000'X1 PARAMETER shdr$m_shf_f64_bitfill_3 = 'C0000000'X/ PARAMETER SHDR$SC_SHF_VMS_GLOBAL = '00000020'X. PARAMETER shdr$m_shf_vms_global = '00000000'X1 PARAMETER SHDR$SC_SHF_VMS_OVERLAID = '00000021'X0 PARAMETER shdr$m_ shf_vms_overlaid = '00000000'X/ PARAMETER SHDR$SC_SHF_VMS_SHARED = '00000022'X. PARAMETER shdr$m_shf_vms_shared = '00000000'X/ PARAMETER SHDR$SC_SHF_VMS_VECTOR = '00000023'X. PARAMETER shdr$m_shf_vms_vector = '00000000'X4 PARAMETER SHDR$SC_SHF_VMS_ALLOC_64BIT = '00000024'X3 PARAMETER shdr$m_shf_vms_alloc_64bit = '00000000'X2 PARAMETER SHDR$SC_SHF_VMS_PROTECTED = '00000025'X1 PARAMETER shdr$m_shf_vms_protected = '00000000'X1 PARAMETER shdr$m_shf_f64_bitfill_4 = '00000000'X0 PARAMETER shd r$m_shf_f64_osfill_1 = '000FFFFF'X. PARAMETER SHDR$SC_SHF_MASK_LOOS = '00000014'X- PARAMETER shdr$m_shf_mask_loos = '0FF00000'X0 PARAMETER shdr$m_shf_f64_osfill_2 = 'F0000000'X. PARAMETER SHDR$SC_SHF_MASK_HIOS = '00000020'X- PARAMETER shdr$m_shf_mask_hios = '00000000'X2 PARAMETER shdr$m_shf_f64_procfill_1 = '0FFFFFFF'X/ PARAMETER SHDR$SC_SHF_MASKLOPROC = '0000001C'X. PARAMETER shdr$m_shf_maskloproc = 'F0000000'X/ PARAMETER SHDR$SC_SHF_MASKHIPROC = '00000020'X. PARAMETER shdr$m_shf_maskhiproc = '00000000'X- PARAMETER ELF64_SHDR$K_SH_SIZE = '00000040'X- PARAMETER ELF64_SHDR$C_SH_SIZE = '00000040'X STRUCTURE /Elf64_Shdr/5 INTEGER*4 shdr$l_sh_name ! type is "Elf64_Word"5 INTEGER*4 shdr$l_sh_type ! type is "Elf64_Word" UNION MAP> INTEGER*4 shdr$q_sh_flags(2) ! type is "Elf64_Xword" END MAP MAP+ PARAMETER shdr$S_shf_write = 1+ PARAMETER shdr$V_shf_write = 0+ PARAMETER shdr$S_shf_allo c = 1+ PARAMETER shdr$V_shf_alloc = 1/ PARAMETER shdr$S_shf_execinstr = 1/ PARAMETER shdr$V_shf_execinstr = 23 PARAMETER shdr$S_shf_f64_bitfill_1 = 13 PARAMETER shdr$V_shf_f64_bitfill_1 = 3+ PARAMETER shdr$S_shf_merge = 1+ PARAMETER shdr$V_shf_merge = 4- PARAMETER shdr$S_shf_strings = 1- PARAMETER shdr$V_shf_strings = 5/ PARAMETER shdr$S_shf_info_link = 1/  PARAMETER shdr$V_shf_info_link = 60 PARAMETER shdr$S_shf_link_order = 10 PARAMETER shdr$V_shf_link_order = 76 PARAMETER shdr$S_shf_os_nonconforming = 16 PARAMETER shdr$V_shf_os_nonconforming = 8+ PARAMETER shdr$S_shf_group = 1+ PARAMETER shdr$V_shf_group = 9) PARAMETER shdr$S_shf_tls = 1* PARAMETER shdr$V_shf_tls = 104 PARAMETER shdr$S_shf_f64_bitfill_2 = 174 PAR AMETER shdr$V_shf_f64_bitfill_2 = 111 PARAMETER shdr$S_shf_ia_64_short = 12 PARAMETER shdr$V_shf_ia_64_short = 283 PARAMETER shdr$S_shf_ia_64_norecov = 14 PARAMETER shdr$V_shf_ia_64_norecov = 293 PARAMETER shdr$S_shf_f64_bitfill_3 = 24 PARAMETER shdr$V_shf_f64_bitfill_3 = 300 PARAMETER shdr$S_shf_vms_global = 11 PARAMETER shdr$V_shf_vms_global = 322 PARAMETER shdr$S_shf_vms_overlaid  = 13 PARAMETER shdr$V_shf_vms_overlaid = 330 PARAMETER shdr$S_shf_vms_shared = 11 PARAMETER shdr$V_shf_vms_shared = 340 PARAMETER shdr$S_shf_vms_vector = 11 PARAMETER shdr$V_shf_vms_vector = 355 PARAMETER shdr$S_shf_vms_alloc_64bit = 16 PARAMETER shdr$V_shf_vms_alloc_64bit = 363 PARAMETER shdr$S_shf_vms_protected = 14 PARAMETER shdr$V_shf_vms_protected = 374 PARAMETER  shdr$S_shf_f64_bitfill_4 = 264 PARAMETER shdr$V_shf_f64_bitfill_4 = 38 BYTE %FILL (8) END MAP MAP3 PARAMETER shdr$S_shf_f64_osfill_1 = 202 PARAMETER shdr$V_shf_f64_osfill_1 = 0/ PARAMETER shdr$S_shf_mask_loos = 80 PARAMETER shdr$V_shf_mask_loos = 202 PARAMETER shdr$S_shf_f64_osfill_2 = 43 PARAMETER shdr$V_shf_f64_osfill_2 = 280 PARAMETER shdr$S_shf_mask_hios =  320 PARAMETER shdr$V_shf_mask_hios = 32 BYTE %FILL (8) END MAP MAP5 PARAMETER shdr$S_shf_f64_procfill_1 = 284 PARAMETER shdr$V_shf_f64_procfill_1 = 00 PARAMETER shdr$S_shf_maskloproc = 41 PARAMETER shdr$V_shf_maskloproc = 281 PARAMETER shdr$S_shf_maskhiproc = 321 PARAMETER shdr$V_shf_maskhiproc = 32 BYTE %FILL (8) END MAP END UNION6 INTEG !ER*8 shdr$pq_sh_addr ! type is "Elf64_Addr"9 INTEGER*4 shdr$q_sh_offset(2) ! type is "Elf64_Off"9 INTEGER*4 shdr$q_sh_size(2) ! type is "Elf64_Xword"5 INTEGER*4 shdr$l_sh_link ! type is "Elf64_Word"5 INTEGER*4 shdr$l_sh_info ! type is "Elf64_Word"> INTEGER*4 shdr$q_sh_addralign(2) ! type is "Elf64_Xword"< INTEGER*4 shdr$q_sh_entsize(2) ! type is "Elf64_Xword" END STRUCTURE ! Elf64_Shdr) PARAMETER SHDR$K_SHN_UNDEF = '00000000'X- PARAMETER SHDR$K_SHN_LORESE "RVE = '0000FF00'X* PARAMETER SHDR$K_SHN_LOPROC = '0000FF00'X* PARAMETER SHDR$K_SHN_HIPROC = '0000FF1F'X( PARAMETER SHDR$K_SHN_LOOS = '0000FF20'X. PARAMETER SHDR$K_SHN_VMS_SYMVEC = '0000FF20'X( PARAMETER SHDR$K_SHN_HIOS = '0000FF3F'X' PARAMETER SHDR$K_SHN_ABS = '0000FFF1'X* PARAMETER SHDR$K_SHN_COMMON = '0000FFF2'X* PARAMETER SHDR$K_SHN_XINDEX = '0000FFFF'X- PARAMETER SHDR$K_SHN_HIRESERVE = '0000FFFF'X( PARAMETER SHDR$K_SHT_NULL = '00000000'X, PARAMETER SHDR$K_SHT_PROGBITS = '00000001'X* # PARAMETER SHDR$K_SHT_SYMTAB = '00000002'X* PARAMETER SHDR$K_SHT_STRTAB = '00000003'X( PARAMETER SHDR$K_SHT_RELA = '00000004'X( PARAMETER SHDR$K_SHT_HASH = '00000005'X+ PARAMETER SHDR$K_SHT_DYNAMIC = '00000006'X( PARAMETER SHDR$K_SHT_NOTE = '00000007'X* PARAMETER SHDR$K_SHT_NOBITS = '00000008'X' PARAMETER SHDR$K_SHT_REL = '00000009'X) PARAMETER SHDR$K_SHT_SHLIB = '0000000A'X* PARAMETER SHDR$K_SHT_DYNSYM = '0000000B'X- PARAMETER SHDR$K_SHT_UNUSED_12 = '0000000C'X- PARAMETER SHDR$K_SHT_UN $USED_13 = '0000000D'X. PARAMETER SHDR$K_SHT_INIT_ARRAY = '0000000E'X. PARAMETER SHDR$K_SHT_FINI_ARRAY = '0000000F'X1 PARAMETER SHDR$K_SHT_PREINIT_ARRAY = '00000010'X) PARAMETER SHDR$K_SHT_GROUP = '00000011'X0 PARAMETER SHDR$K_SHT_SYMTAB_SHNDX = '00000012'X- PARAMETER GRPSEC$M_COMDAT_FLAG = '00000001'X( PARAMETER SHDR$K_SHT_LOOS = '60000000'X( PARAMETER SHDR$K_SHT_HIOS = '6FFFFFFF'X* PARAMETER SHDR$K_SHT_LOPROC = '70000000'X* PARAMETER SHDR$K_SHT_HIPROC = '7FFFFFFF'X* PARAMETER SHDR$K_SH %T_LOUSER = '80000000'X! PARAMETER SHDR$K_SHT_HIUSER = -1- PARAMETER SHDR$K_SHT_VMS_TRACE = '60000000'X6 PARAMETER SHDR$K_SHT_VMS_TIE_SIGNATURES = '60000001'X- PARAMETER SHDR$K_SHT_VMS_DEBUG = '60000002'X1 PARAMETER SHDR$K_SHT_VMS_DEBUG_STR = '60000003'X0 PARAMETER SHDR$K_SHT_VMS_LINKAGES = '60000004'X5 PARAMETER SHDR$K_SHT_VMS_SYMBOL_VECTOR = '60000005'X- PARAMETER SHDR$K_SHT_VMS_FIXUP = '60000006'X8 PARAMETER SHDR$K_SHT_VMS_DISPLAY_NAME_INF = '60000007'X1 PARAMETER SHDR$K_SHT_IA_64_LO &PSREG = '78000000'X1 PARAMETER SHDR$K_SHT_IA_64_HIPSREG = '7FFFFFFF'X- PARAMETER SHDR$K_SHT_IA_64_EXT = '70000000'X0 PARAMETER SHDR$K_SHT_IA_64_UNWIND = '70000001'X7 PARAMETER SHDR$K_SHT_IA_64_PRIORITY_INIT = '79000000'X' PARAMETER VMSSIG$$K_SIZE = '00000008'X' PARAMETER VMSSIG$$C_SIZE = '00000008'X STRUCTURE /VMSSigEntry/9 INTEGER*4 vmssig$l_se_symbol ! type is "Elf64_Word"9 INTEGER*4 vmssig$l_se_offset ! type is "Elf64_Word" END STRUCTURE ! VMSSigEntry& PARAMETER UNWIN 'D$K_SIZE = '00000018'X& PARAMETER UNWIND$C_SIZE = '00000018'X STRUCTURE /IA_64_Unwind_Entry/9 INTEGER*8 unwind$pq_ue_start ! type is "Elf64_Addr"7 INTEGER*8 unwind$pq_ue_end ! type is "Elf64_Addr"8 INTEGER*8 unwind$pq_ue_info ! type is "Elf64_Addr"# END STRUCTURE ! IA_64_Unwind_Entry- PARAMETER ELF64_NHDR$K_NH_SIZE = '00000018'X- PARAMETER ELF64_NHDR$C_NH_SIZE = '00000018'X STRUCTURE /Elf64_Nhdr/; INTEGER*4 nhdr$q_nh_namesz(2) ! type is "Elf64_Xword"; INTEG (ER*4 nhdr$q_nh_descsz(2) ! type is "Elf64_Xword"9 INTEGER*4 nhdr$q_nh_type(2) ! type is "Elf64_Xword" END STRUCTURE ! Elf64_Nhdr- PARAMETER ELF64_MHDR$K_MH_SIZE = '00000022'X- PARAMETER ELF64_MHDR$C_MH_SIZE = '00000022'X STRUCTURE /Elf64_Mhdr/* BYTE mhdr$b_mh_create_date(1:17)) BYTE mhdr$b_mh_patch_date(1:17)% BYTE mhdr$b_mh_name_version BYTE %FILL(0:4) END STRUCTURE ! Elf64_Mhdr1 PARAMETER ELF64_ORIGDYN$K_MAJOR_ID = '00000001'X1 PAR)AMETER ELF64_ORIGDYN$K_MINOR_ID = '00000003'X STRUCTURE /Elf64_OrigDyn/! INTEGER*4 origdyn$l_major_id! INTEGER*4 origdyn$l_minor_id- INTEGER*4 origdyn$q_manipulation_date(2)& INTEGER*4 origdyn$q_link_flags(2)" INTEGER*4 origdyn$l_elf_flags INTEGER*4 %FILL# BYTE origdyn$b_imgid(1:1) BYTE %FILL(0:6) END STRUCTURE ! Elf64_OrigDyn* PARAMETER NHDR$K_NT_VMS_MHD = '00000001'X* PARAMETER NHDR$K_NT_VMS_LNM = '00000002'X* PARAMETER NHDR$K_NT_VMS_S *RC = '00000003'X, PARAMETER NHDR$K_NT_VMS_TITLE = '00000004'X+ PARAMETER NHDR$K_NT_VMS_EIDC = '00000005'X- PARAMETER NHDR$K_NT_VMS_FPMODE = '00000006'X/ PARAMETER NHDR$K_NT_VMS_LINKTIME = '00000065'X- PARAMETER NHDR$K_NT_VMS_IMGNAM = '00000066'X, PARAMETER NHDR$K_NT_VMS_IMGID = '00000067'X- PARAMETER NHDR$K_NT_VMS_LINKID = '00000068'X- PARAMETER NHDR$K_NT_VMS_IMGBID = '00000069'X- PARAMETER NHDR$K_NT_VMS_GSTNAM = '0000006A'X/ PARAMETER NHDR$K_NT_VMS_ORIG_DYN = '0000006B'X0 PARAMETER + NHDR$K_NT_VMS_PATCHTIME = '0000006C'X7 PARAMETER NHDR$K_VMS_EIDC_ERRSEV_WARNING = '00000000'X7 PARAMETER NHDR$K_VMS_EIDC_ERRSEV_SUCCESS = '00000001'X5 PARAMETER NHDR$K_VMS_EIDC_ERRSEV_ERROR = '00000002'X6 PARAMETER NHDR$K_VMS_EIDC_ERRSEV_SEVERE = '00000004'X, PARAMETER ELF64_SYM$K_ST_SIZE = '00000018'X, PARAMETER ELF64_SYM$C_ST_SIZE = '00000018'X STRUCTURE /Elf64_Sym/7 INTEGER*4 symtab$l_st_name ! type is "Elf64_Word" BYTE symtab$b_st_info BYTE symtab$b_st_oth ,er8 INTEGER*2 symtab$w_st_shndx ! type is "Elf64_Half"9 INTEGER*8 symtab$pq_st_value ! type is "Elf64_Addr"; INTEGER*4 symtab$q_st_size(2) ! type is "Elf64_Xword" END STRUCTURE ! Elf64_Sym+ PARAMETER SYMTAB$K_STB_LOCAL = '00000000'X, PARAMETER SYMTAB$K_STB_GLOBAL = '00000001'X* PARAMETER SYMTAB$K_STB_WEAK = '00000002'X* PARAMETER SYMTAB$K_STB_LOOS = '0000000A'X. PARAMETER SYMTAB$K_STB_VMS_WEAK = '0000000B'X0 PARAMETER SYMTAB$K_STB_VMS_SYSTEM = '0000000C'X* PARAMETER SYMTA -B$K_STB_HIOS = '0000000C'X, PARAMETER SYMTAB$K_STB_LOPROC = '0000000D'X, PARAMETER SYMTAB$K_STB_HIPROC = '0000000F'X, PARAMETER SYMTAB$K_STT_NOTYPE = '00000000'X, PARAMETER SYMTAB$K_STT_OBJECT = '00000001'X* PARAMETER SYMTAB$K_STT_FUNC = '00000002'X- PARAMETER SYMTAB$K_STT_SECTION = '00000003'X* PARAMETER SYMTAB$K_STT_FILE = '00000004'X, PARAMETER SYMTAB$K_STT_COMMON = '00000005'X) PARAMETER SYMTAB$K_STT_TLS = '00000006'X* PARAMETER SYMTAB$K_STT_LOOS = '0000000A'X* PARAMETER SYMTAB$K_STT_ .HIOS = '0000000C'X, PARAMETER SYMTAB$K_STT_LOPROC = '0000000D'X, PARAMETER SYMTAB$K_STT_HIPROC = '0000000F'X- PARAMETER SYMTAB$K_STV_DEFAULT = '00000000'X. PARAMETER SYMTAB$K_STV_INTERNAL = '00000001'X, PARAMETER SYMTAB$K_STV_HIDDEN = '00000002'X/ PARAMETER SYMTAB$K_STV_PROTECTED = '00000003'X/ PARAMETER SYMTAB$K_STV_UNIVERSAL = '00000003'X4 PARAMETER SYMTAB$K_VMS_STO_VISIBILITY = '00000003'X3 PARAMETER SYMTAB$K_VMS_STO_FUNC_TYPE = '00000030'X1 PARAMETER SYMTAB$K_VMS_STO_LINKAGE = '00000 /0C0'X3 PARAMETER SYMTAB$K_VMS_SFT_CODE_ADDR = '00000000'X2 PARAMETER SYMTAB$K_VMS_SFT_SYMV_IDX = '00000001'X, PARAMETER SYMTAB$K_VMS_SFT_FD = '00000002'X1 PARAMETER SYMTAB$K_VMS_SFT_RESERVE = '00000003'X0 PARAMETER SYMTAB$K_VMS_STL_IGNORE = '00000000'X2 PARAMETER SYMTAB$K_VMS_STL_RESERVED = '00000001'X- PARAMETER SYMTAB$K_VMS_STL_STD = '00000002'X- PARAMETER SYMTAB$K_VMS_STL_LNK = '00000003'X. PARAMETER ELF64_RELA64$K_R_SIZE = '00000018'X. PARAMETER ELF64_RELA64$C_R_SIZE = '00000018'X0 STRUCTURE /Elf64_Rela64/7 INTEGER*8 rela$pq_r_offset ! type is "Elf64_Addr" UNION MAP< INTEGER*4 rela$q_r_info(2) ! type is "Elf64_Xword" END MAP MAP< INTEGER*4 rela$l_r_type ! type is "Elf64_Word"; INTEGER*4 rela$l_r_sym ! type is "Elf64_Word" END MAP END UNION; INTEGER*4 rela$q_r_addend(2) ! type is "Elf64_Sxword" END STRUCTURE ! Elf64_Rela64, PARAMETER RELA$K_R_IA_64_NONE = '00000000'X- P 1ARAMETER RELA$K_R_IA_64_IMM14 = '00000021'X- PARAMETER RELA$K_R_IA_64_IMM22 = '00000022'X- PARAMETER RELA$K_R_IA_64_IMM64 = '00000023'X0 PARAMETER RELA$K_R_IA_64_DIR32MSB = '00000024'X0 PARAMETER RELA$K_R_IA_64_DIR32LSB = '00000025'X0 PARAMETER RELA$K_R_IA_64_DIR64MSB = '00000026'X0 PARAMETER RELA$K_R_IA_64_DIR64LSB = '00000027'X/ PARAMETER RELA$K_R_IA_64_GPREL22 = '0000002A'X0 PARAMETER RELA$K_R_IA_64_GPREL64I = '0000002B'X2 PARAMETER RELA$K_R_IA_64_GPREL32MSB = '0000002C'X2 PARAMETER R 2ELA$K_R_IA_64_GPREL32LSB = '0000002D'X2 PARAMETER RELA$K_R_IA_64_GPREL64MSB = '0000002E'X2 PARAMETER RELA$K_R_IA_64_GPREL64LSB = '0000002F'X/ PARAMETER RELA$K_R_IA_64_LTOFF22 = '00000032'X0 PARAMETER RELA$K_R_IA_64_LTOFF64I = '00000033'X0 PARAMETER RELA$K_R_IA_64_PLTOFF22 = '0000003A'X1 PARAMETER RELA$K_R_IA_64_PLTOFF64I = '0000003B'X3 PARAMETER RELA$K_R_IA_64_PLTOFF64MSB = '0000003E'X3 PARAMETER RELA$K_R_IA_64_PLTOFF64LSB = '0000003F'X/ PARAMETER RELA$K_R_IA_64_FPTR64I = '00000043'X1 P 3ARAMETER RELA$K_R_IA_64_FPTR32MSB = '00000044'X1 PARAMETER RELA$K_R_IA_64_FPTR32LSB = '00000045'X1 PARAMETER RELA$K_R_IA_64_FPTR64MSB = '00000046'X1 PARAMETER RELA$K_R_IA_64_FPTR64LSB = '00000047'X0 PARAMETER RELA$K_R_IA_64_PCREL60B = '00000048'X0 PARAMETER RELA$K_R_IA_64_PCREL21B = '00000049'X0 PARAMETER RELA$K_R_IA_64_PCREL21M = '0000004A'X0 PARAMETER RELA$K_R_IA_64_PCREL21F = '0000004B'X2 PARAMETER RELA$K_R_IA_64_PCREL32MSB = '0000004C'X2 PARAMETER RELA$K_R_IA_64_PCREL32LSB = '0000004D 4'X2 PARAMETER RELA$K_R_IA_64_PCREL64MSB = '0000004E'X2 PARAMETER RELA$K_R_IA_64_PCREL64LSB = '0000004F'X4 PARAMETER RELA$K_R_IA_64_LTOFF_FPTR22 = '00000052'X5 PARAMETER RELA$K_R_IA_64_LTOFF_FPTR64I = '00000053'X7 PARAMETER RELA$K_R_IA_64_LTOFF_FPTR32MSB = '00000054'X7 PARAMETER RELA$K_R_IA_64_LTOFF_FPTR32LSB = '00000055'X7 PARAMETER RELA$K_R_IA_64_LTOFF_FPTR64MSB = '00000056'X7 PARAMETER RELA$K_R_IA_64_LTOFF_FPTR64LSB = '00000057'X3 PARAMETER RELA$K_R_IA_64_SEGREL32MSB = '0000005C'X3 P 5ARAMETER RELA$K_R_IA_64_SEGREL32LSB = '0000005D'X3 PARAMETER RELA$K_R_IA_64_SEGREL64MSB = '0000005E'X3 PARAMETER RELA$K_R_IA_64_SEGREL64LSB = '0000005F'X3 PARAMETER RELA$K_R_IA_64_SECREL32MSB = '00000064'X3 PARAMETER RELA$K_R_IA_64_SECREL32LSB = '00000065'X3 PARAMETER RELA$K_R_IA_64_SECREL64MSB = '00000066'X3 PARAMETER RELA$K_R_IA_64_SECREL64LSB = '00000067'X0 PARAMETER RELA$K_R_IA_64_REL32MSB = '0000006C'X0 PARAMETER RELA$K_R_IA_64_REL32LSB = '0000006D'X0 PARAMETER RELA$K_R_IA_64_REL6 64MSB = '0000006E'X0 PARAMETER RELA$K_R_IA_64_REL64LSB = '0000006F'X0 PARAMETER RELA$K_R_IA_64_LTV32MSB = '00000074'X0 PARAMETER RELA$K_R_IA_64_LTV32LSB = '00000075'X0 PARAMETER RELA$K_R_IA_64_LTV64MSB = '00000076'X0 PARAMETER RELA$K_R_IA_64_LTV64LSB = '00000077'X1 PARAMETER RELA$K_R_IA_64_PCREL21BI = '00000079'X/ PARAMETER RELA$K_R_IA_64_PCREL22 = '0000007A'X0 PARAMETER RELA$K_R_IA_64_PCREL64I = '0000007B'X/ PARAMETER RELA$K_R_IA_64_IPLTMSB = '00000080'X/ PARAMETER RELA$K_R_IA_64_IPLTLSB 7= '00000081'X, PARAMETER RELA$K_R_IA_64_COPY = '00000084'X+ PARAMETER RELA$K_R_IA_64_SUB = '00000085'X0 PARAMETER RELA$K_R_IA_64_LTOFF22X = '00000086'X. PARAMETER RELA$K_R_IA_64_LDXMOV = '00000087'X/ PARAMETER RELA$K_R_IA_64_TPREL14 = '00000091'X/ PARAMETER RELA$K_R_IA_64_TPREL22 = '00000092'X0 PARAMETER RELA$K_R_IA_64_TPREL64I = '00000093'X2 PARAMETER RELA$K_R_IA_64_TPREL64MSB = '00000096'X2 PARAMETER RELA$K_R_IA_64_TPREL64LSB = '00000097'X2 PARAMETER RELA$K_R_IA_64_LTOFF_TP22 = '000000 89A'X3 PARAMETER RELA$K_R_IA_64_DTPMOD64MSB = '000000A6'X3 PARAMETER RELA$K_R_IA_64_DTPMOD64LSB = '000000A7'X6 PARAMETER RELA$K_R_IA_64_LTOFF_DTPMOD22 = '000000AA'X0 PARAMETER RELA$K_R_IA_64_DTPREL14 = '000000B1'X0 PARAMETER RELA$K_R_IA_64_DTPREL22 = '000000B2'X1 PARAMETER RELA$K_R_IA_64_DTPREL64I = '000000B3'X3 PARAMETER RELA$K_R_IA_64_DTPREL32MSB = '000000B4'X3 PARAMETER RELA$K_R_IA_64_DTPREL32LSB = '000000B5'X3 PARAMETER RELA$K_R_IA_64_DTPREL64MSB = '000000B6'X3 PARAMETER RELA$K_R_IA 9_64_DTPREL64LSB = '000000B7'X6 PARAMETER RELA$K_R_IA_64_LTOFF_DTPREL22 = '000000BA'X, PARAMETER RELA$K_R_IA_64_LOOS = '70000000'X# PARAMETER RELA$K_R_IA_64_HIOS = -1, PARAMETER RELA$K_R_IA_64_DIR8 = '70000000'X0 PARAMETER RELA$K_R_IA_64_DIR16LSB = '70000001'X4 PARAMETER RELA$K_R_IA_64_VMS_CALL_SIG = '70000002'X8 PARAMETER RELA$K_R_IA_64_VMS_EXECLET_FUNC = '70000003'X8 PARAMETER RELA$K_R_IA_64_VMS_EXECLET_DATA = '70000004'X0 PARAMETER RELA$K_R_IA_64_VMS_FIX8 = '70000005'X1 PARAMETER RELA$K_ :R_IA_64_VMS_FIX16 = '70000006'X1 PARAMETER RELA$K_R_IA_64_VMS_FIX32 = '70000007'X1 PARAMETER RELA$K_R_IA_64_VMS_FIX64 = '70000008'X1 PARAMETER RELA$K_R_IA_64_VMS_FIXFD = '70000009'X4 PARAMETER RELA$K_R_IA_64_VMS_ACC_LOAD = '7000000A'X3 PARAMETER RELA$K_R_IA_64_VMS_ACC_ADD = '7000000B'X3 PARAMETER RELA$K_R_IA_64_VMS_ACC_SUB = '7000000C'X3 PARAMETER RELA$K_R_IA_64_VMS_ACC_MUL = '7000000D'X3 PARAMETER RELA$K_R_IA_64_VMS_ACC_DIV = '7000000E'X3 PARAMETER RELA$K_R_IA_64_VMS_ACC_AND = '70000 ;00F'X3 PARAMETER RELA$K_R_IA_64_VMS_ACC_IOR = '70000010'X3 PARAMETER RELA$K_R_IA_64_VMS_ACC_EOR = '70000011'X3 PARAMETER RELA$K_R_IA_64_VMS_ACC_ASH = '70000012'X4 PARAMETER RELA$K_R_IA_64_VMS_ACC_STO8 = '70000014'X8 PARAMETER RELA$K_R_IA_64_VMS_ACC_STO16LSB = '70000015'X8 PARAMETER RELA$K_R_IA_64_VMS_ACC_STO32LSB = '70000016'X8 PARAMETER RELA$K_R_IA_64_VMS_ACC_STO64LSB = '70000017'X: ! Display Name Info (dni) - aka Demangler info - entriesC ! Internally some more structures and names ar <e used. However, a ; ! developer should only use the types Elf64_vms_dni32 andE ! Elf64_vms_dni64, both contain all necessary fields. In C notation' ! all the necesary 32 bit fields are: ! dni32$l_dni_format. ! dni32$l_fmt1_info[i].fmt1$l_dni_demangler+ ! dni32$l_fmt1_info[i].fmt1$l_dni_symbol) ! dni32$l_fmt1_info[i].fmt1$l_dni_data+ ! dni32$l_fmt2_info[i].fmt2$l_dni_symbol) ! dni32$l_fmt2_info[i].fmt2$l_dni_data& ! dni32$l_fmt3.fmt3$l_dni_demangler& ! dni32$l_f =mt4.fmt4$l_dni_demangler+ ! dni32$l_fmt4_info[i].fmt4$l_dni_symbol) ! dni32$l_fmt4_info[i].fmt4$l_dni_data% PARAMETER DNI$_SUCCESS = '00000001'XM PARAMETER DNI$_NORMAL = '00000001'X ! demangled string is in result buffer; PARAMETER DNI$_ERROR = '00000002'X ! error in demangling/ PARAMETER DNI$_ALTERNATE_SUCCESS = '00000009'XQ PARAMETER DNI$_SAME = '00000009'X ! demangled string identical to input string ! Data representations (0,4,8)B PARAMETER DNI$_DATA_ULEB = '00000000'X > ! ULEBs (see DWARF spec)D PARAMETER DNI$_DATA_WORD = '00000004'X ! ELF64_Word, VMS LongwordF PARAMETER DNI$_DATA_XWORD = '00000008'X ! ELF64_Xword, VMS Quadword ! DNI formats (1, ..., 4)" PARAMETER DNI$_FMT1 = '00000001'X" PARAMETER DNI$_FMT2 = '00000002'X" PARAMETER DNI$_FMT3 = '00000003'X" PARAMETER DNI$_FMT4 = '00000004'X !  ! 32 bit variants ! ! STRUCTURE /Elf64_vms_dni32_fmt1/; INTEGER*4 fmt1$l_dni_demangler ! type is "Elf64_Word"8 INTEGER*4 fmt1$l_dni_symb ?ol ! type is "Elf64_Word"6 INTEGER*4 fmt1$l_dni_data ! type is "Elf64_Word"% END STRUCTURE ! Elf64_vms_dni32_fmt1! STRUCTURE /Elf64_vms_dni32_fmt2/8 INTEGER*4 fmt2$l_dni_symbol ! type is "Elf64_Word"6 INTEGER*4 fmt2$l_dni_data ! type is "Elf64_Word"% END STRUCTURE ! Elf64_vms_dni32_fmt2! STRUCTURE /Elf64_vms_dni32_fmt3/; INTEGER*4 fmt3$l_dni_demangler ! type is "Elf64_Word"% END STRUCTURE ! Elf64_vms_dni32_fmt3! STRUCTURE /Elf64_vms_dni32_fmt4/; INTEGER*4 fmt@4$l_dni_demangler ! type is "Elf64_Word"% END STRUCTURE ! Elf64_vms_dni32_fmt4% STRUCTURE /Elf64_vms_dni32_fmt4_sub/8 INTEGER*4 fmt4$l_dni_symbol ! type is "Elf64_Word"6 INTEGER*4 fmt4$l_dni_data ! type is "Elf64_Word") END STRUCTURE ! Elf64_vms_dni32_fmt4_sub STRUCTURE /Elf64_vms_dni32/9 INTEGER*4 dni32$l_dni_format ! type is "Elf64_Word" UNION MAPA RECORD /Elf64_vms_dni32_fmt1/ dni32$l_fmt1_info(1:1) END MAP MAPA A RECORD /Elf64_vms_dni32_fmt2/ dni32$l_fmt2_info(1:1) END MAP MAP7 RECORD /Elf64_vms_dni32_fmt3/ dni32$l_fmt3 END MAP MAP7 RECORD /Elf64_vms_dni32_fmt4/ dni32$l_fmt4E RECORD /Elf64_vms_dni32_fmt4_sub/ dni32$l_fmt4_info(1:1) END MAP END UNION END STRUCTURE ! Elf64_vms_dni32 !  ! 64 bit variants ! ! STRUCTURE /Elf64_vms_dni64_fmt1/? INTEGER*4 fmt1$q_dni_demangler(2) ! type is "Elf64 B_Xword"< INTEGER*4 fmt1$q_dni_symbol(2) ! type is "Elf64_Xword": INTEGER*4 fmt1$q_dni_data(2) ! type is "Elf64_Xword"% END STRUCTURE ! Elf64_vms_dni64_fmt1! STRUCTURE /Elf64_vms_dni64_fmt2/< INTEGER*4 fmt2$q_dni_symbol(2) ! type is "Elf64_Xword": INTEGER*4 fmt2$q_dni_data(2) ! type is "Elf64_Xword"% END STRUCTURE ! Elf64_vms_dni64_fmt2! STRUCTURE /Elf64_vms_dni64_fmt3/? INTEGER*4 fmt3$q_dni_demangler(2) ! type is "Elf64_Xword"% END STRUCTURE ! Elf64_vms_dni64_f Cmt3! STRUCTURE /Elf64_vms_dni64_fmt4/? INTEGER*4 fmt4$q_dni_demangler(2) ! type is "Elf64_Xword"% END STRUCTURE ! Elf64_vms_dni64_fmt4% STRUCTURE /Elf64_vms_dni64_fmt4_sub/< INTEGER*4 fmt4$q_dni_symbol(2) ! type is "Elf64_Xword": INTEGER*4 fmt4$q_dni_data(2) ! type is "Elf64_Xword") END STRUCTURE ! Elf64_vms_dni64_fmt4_sub STRUCTURE /Elf64_vms_dni64/= INTEGER*4 dni64$q_dni_format(2) ! type is "Elf64_Xword" UNION MAPA RECORD /Elf64_vms_dDni64_fmt1/ dni64$q_fmt1_info(1:1) END MAP MAPA RECORD /Elf64_vms_dni64_fmt2/ dni64$q_fmt2_info(1:1) END MAP MAP7 RECORD /Elf64_vms_dni64_fmt3/ dni64$q_fmt3 END MAP MAP7 RECORD /Elf64_vms_dni64_fmt4/ dni64$q_fmt4E RECORD /Elf64_vms_dni64_fmt4_sub/ dni64$q_fmt4_info(1:1) END MAP END UNION END STRUCTURE ! Elf64_vms_dni64% PARAMETER PHDR$SC_PF_X = '00000000'X$ PARAMETER E phdr$m_pf_x = '00000001'X% PARAMETER PHDR$SC_PF_W = '00000001'X$ PARAMETER phdr$m_pf_w = '00000002'X% PARAMETER PHDR$SC_PF_R = '00000002'X$ PARAMETER phdr$m_pf_r = '00000004'X- PARAMETER phdr$m_pf_fill_3to19 = '000FFFF8'X4 PARAMETER PHDR$SC_PF_VMS_NOWRIT_RELOC = '00000014'X3 PARAMETER phdr$m_pf_vms_nowrit_reloc = '00100000'X3 PARAMETER PHDR$SC_PF_VMS_INITIALCODE = '00000015'X2 PARAMETER phdr$m_pf_vms_initialcode = '00200000'X0 PARAMETER PHDR$SC_PF_VMS_RESIDENT = '00000016'X/ PARAMETER F phdr$m_pf_vms_resident = '00400000'X. PARAMETER PHDR$SC_PF_VMS_VECTOR = '00000017'X- PARAMETER phdr$m_pf_vms_vector = '00800000'X/ PARAMETER PHDR$SC_PF_VMS_PROTECT = '00000018'X. PARAMETER phdr$m_pf_vms_protect = '01000000'X4 PARAMETER PHDR$SC_PF_VMS_NOWRIT_FIXUP = '00000019'X3 PARAMETER phdr$m_pf_vms_nowrit_fixup = '02000000'X- PARAMETER PHDR$SC_PF_VMS_SHORT = '0000001A'X, PARAMETER phdr$m_pf_vms_short = '04000000'X. PARAMETER PHDR$SC_PF_VMS_SHARED = '0000001B'X- PARAMETER phdr$m_pf_v Gms_shared = '08000000'X1 PARAMETER PHDR$SC_PF_IA_64_NORECOV = '0000001F'X0 PARAMETER phdr$m_pf_ia_64_norecov = '80000000'X& PARAMETER phdr$m_fill_1 = '000FFFFF'X* PARAMETER PHDR$SC_PF_MASKOS = '00000014'X) PARAMETER phdr$m_pf_maskos = '0FF00000'X, PARAMETER PHDR$SC_PF_MASKPROC = '0000001C'X+ PARAMETER phdr$m_pf_maskproc = 'F0000000'X* PARAMETER ELF64_PHDR$K_SIZE = '00000038'X* PARAMETER ELF64_PHDR$C_SIZE = '00000038'X STRUCTURE /Elf64_Phdr/4 INTEGER*4 phdr$l_p_type ! type is "ElfH64_Word" UNION MAP9 INTEGER*4 phdr$l_p_flags ! type is "Elf64_Word" END MAP MAP& PARAMETER phdr$S_pf_x = 1& PARAMETER phdr$V_pf_x = 0& PARAMETER phdr$S_pf_w = 1& PARAMETER phdr$V_pf_w = 1& PARAMETER phdr$S_pf_r = 1& PARAMETER phdr$V_pf_r = 20 PARAMETER phdr$S_pf_fill_3to19 = 17/ PARAMETER phdr$V_pf_fill_3to19 = 35 PARAMETER phdr$S_pf_vms_n Iowrit_reloc = 16 PARAMETER phdr$V_pf_vms_nowrit_reloc = 204 PARAMETER phdr$S_pf_vms_initialcode = 15 PARAMETER phdr$V_pf_vms_initialcode = 211 PARAMETER phdr$S_pf_vms_resident = 12 PARAMETER phdr$V_pf_vms_resident = 22/ PARAMETER phdr$S_pf_vms_vector = 10 PARAMETER phdr$V_pf_vms_vector = 230 PARAMETER phdr$S_pf_vms_protect = 11 PARAMETER phdr$V_pf_vms_protect = 245 PAR JAMETER phdr$S_pf_vms_nowrit_fixup = 16 PARAMETER phdr$V_pf_vms_nowrit_fixup = 25. PARAMETER phdr$S_pf_vms_short = 1/ PARAMETER phdr$V_pf_vms_short = 26/ PARAMETER phdr$S_pf_vms_shared = 10 PARAMETER phdr$V_pf_vms_shared = 270 PARAMETER phdr$S_pf_fill_24to30 = 31 PARAMETER phdr$V_pf_fill_24to30 = 282 PARAMETER phdr$S_pf_ia_64_norecov = 13 PARAMETER phdr$V_pf_ia_64_norecov = 31 K BYTE %FILL (4) END MAP MAP) PARAMETER phdr$S_fill_1 = 20( PARAMETER phdr$V_fill_1 = 0+ PARAMETER phdr$S_pf_maskos = 8, PARAMETER phdr$V_pf_maskos = 20- PARAMETER phdr$S_pf_maskproc = 4. PARAMETER phdr$V_pf_maskproc = 28 BYTE %FILL (4) END MAP END UNION8 INTEGER*4 phdr$q_p_offset(2) ! type is "Elf64_Off"6 INTEGER*8 phdr$pq_p_vaddr ! type is "Elf64_Add Lr"6 INTEGER*8 phdr$pq_p_paddr ! type is "Elf64_Addr": INTEGER*4 phdr$q_p_filesz(2) ! type is "Elf64_Xword"9 INTEGER*4 phdr$q_p_memsz(2) ! type is "Elf64_Xword"9 INTEGER*4 phdr$q_p_align(2) ! type is "Elf64_Xword" END STRUCTURE ! Elf64_Phdr' PARAMETER PHDR$K_PT_NULL = '00000000'X' PARAMETER PHDR$K_PT_LOAD = '00000001'X* PARAMETER PHDR$K_PT_DYNAMIC = '00000002'X) PARAMETER PHDR$K_PT_INTERP = '00000003'X' PARAMETER PHDR$K_PT_NOTE = '00000004'X( PARAMETER PHDR$K_PT_S MHLIB = '00000005'X' PARAMETER PHDR$K_PT_PHDR = '00000006'X& PARAMETER PHDR$K_PT_TLS = '00000007'X' PARAMETER PHDR$K_PT_LOOS = '60000000'X' PARAMETER PHDR$K_PT_HIOS = '6FFFFFFF'X) PARAMETER PHDR$K_PT_LOPROC = '70000000'X) PARAMETER PHDR$K_PT_HIPROC = '7FFFFFFF'X7 PARAMETER DYNSEG$SC_DT_VMS_LF_CALL_DEBUG = '00000000'X6 PARAMETER dynseg$m_dt_vms_lf_call_debug = '00000001'X5 PARAMETER DYNSEG$SC_DT_VMS_LF_NOP0BUFS = '00000001'X4 PARAMETER dynseg$m_dt_vms_lf_nop0bufs = '00000002'X4 PARAMET NER DYNSEG$SC_DT_VMS_LF_P0IMAGE = '00000002'X3 PARAMETER dynseg$m_dt_vms_lf_p0image = '00000004'X6 PARAMETER DYNSEG$SC_DT_VMS_LF_MKTHREADS = '00000003'X5 PARAMETER dynseg$m_dt_vms_lf_mkthreads = '00000008'X4 PARAMETER DYNSEG$SC_DT_VMS_LF_UPCALLS = '00000004'X3 PARAMETER dynseg$m_dt_vms_lf_upcalls = '00000010'X3 PARAMETER DYNSEG$SC_DT_VMS_LF_IMGSTA = '00000005'X2 PARAMETER dynseg$m_dt_vms_lf_imgsta = '00000020'X7 PARAMETER DYNSEG$SC_DT_VMS_LF_INITIALIZE = '00000006'X6 PARAMETER dynseg$m_dt O_vms_lf_initialize = '00000040'X1 PARAMETER DYNSEG$SC_DT_VMS_LF_MAIN = '00000007'X0 PARAMETER dynseg$m_dt_vms_lf_main = '00000080'X3 PARAMETER DYNSEG$SC_DT_VMS_LF_UNUSED = '00000008'X2 PARAMETER dynseg$m_dt_vms_lf_unused = '00000100'X5 PARAMETER DYNSEG$SC_DT_VMS_LF_EXE_INIT = '00000009'X4 PARAMETER dynseg$m_dt_vms_lf_exe_init = '00000200'X7 PARAMETER DYNSEG$SC_DT_VMS_LF_TBK_IN_IMG = '0000000A'X6 PARAMETER dynseg$m_dt_vms_lf_tbk_in_img = '00000400'X7 PARAMETER DYNSEG$SC_DT_VMS_LF_DBG_IN_IM PG = '0000000B'X6 PARAMETER dynseg$m_dt_vms_lf_dbg_in_img = '00000800'X7 PARAMETER DYNSEG$SC_DT_VMS_LF_TBK_IN_DSF = '0000000C'X6 PARAMETER dynseg$m_dt_vms_lf_tbk_in_dsf = '00001000'X7 PARAMETER DYNSEG$SC_DT_VMS_LF_DBG_IN_DSF = '0000000D'X6 PARAMETER dynseg$m_dt_vms_lf_dbg_in_dsf = '00002000'X7 PARAMETER DYNSEG$SC_DT_VMS_LF_SIGNATURES = '0000000E'X6 PARAMETER dynseg$m_dt_vms_lf_signatures = '00004000'X8 PARAMETER DYNSEG$SC_DT_VMS_LF_REL_SEG_OFF = '0000000F'X7 PARAMETER dynseg$m_dt_vms_lf_reQl_seg_off = '00008000'X6 PARAMETER DYNSEG$SC_DT_VMS_LF_SSI_INCAP = '00000010'X5 PARAMETER dynseg$m_dt_vms_lf_ssi_incap = '00010000'X& PARAMETER DYNSEG$K_SIZE = '00000010'X& PARAMETER DYNSEG$C_SIZE = '00000010'X STRUCTURE /Elf64_Dyn/: INTEGER*4 dynseg$q_d_tag(2) ! type is "Elf64_Sxword" UNION MAP= INTEGER*4 dynseg$q_d_val(2) ! type is "Elf64_Xword" END MAP MAP: INTEGER*8 dynseg$pq_d_ptr ! type is "Elf64_Addr" END MAP R MAP8 PARAMETER dynseg$S_dt_vms_lf_call_debug = 18 PARAMETER dynseg$V_dt_vms_lf_call_debug = 06 PARAMETER dynseg$S_dt_vms_lf_nop0bufs = 16 PARAMETER dynseg$V_dt_vms_lf_nop0bufs = 15 PARAMETER dynseg$S_dt_vms_lf_p0image = 15 PARAMETER dynseg$V_dt_vms_lf_p0image = 27 PARAMETER dynseg$S_dt_vms_lf_mkthreads = 17 PARAMETER dynseg$V_dt_vms_lf_mkthreads = 35 PARAMETER dynseg$S_dt_vms_l Sf_upcalls = 15 PARAMETER dynseg$V_dt_vms_lf_upcalls = 44 PARAMETER dynseg$S_dt_vms_lf_imgsta = 14 PARAMETER dynseg$V_dt_vms_lf_imgsta = 58 PARAMETER dynseg$S_dt_vms_lf_initialize = 18 PARAMETER dynseg$V_dt_vms_lf_initialize = 62 PARAMETER dynseg$S_dt_vms_lf_main = 12 PARAMETER dynseg$V_dt_vms_lf_main = 76 PARAMETER dynseg$S_dt_vms_lf_exe_init = 16 PARAMETER dynseg$V_dt_vms_lf_exe_init T = 98 PARAMETER dynseg$S_dt_vms_lf_tbk_in_img = 19 PARAMETER dynseg$V_dt_vms_lf_tbk_in_img = 108 PARAMETER dynseg$S_dt_vms_lf_dbg_in_img = 19 PARAMETER dynseg$V_dt_vms_lf_dbg_in_img = 118 PARAMETER dynseg$S_dt_vms_lf_tbk_in_dsf = 19 PARAMETER dynseg$V_dt_vms_lf_tbk_in_dsf = 128 PARAMETER dynseg$S_dt_vms_lf_dbg_in_dsf = 19 PARAMETER dynseg$V_dt_vms_lf_dbg_in_dsf = 138 PARAMETER dynse Ug$S_dt_vms_lf_signatures = 19 PARAMETER dynseg$V_dt_vms_lf_signatures = 149 PARAMETER dynseg$S_dt_vms_lf_rel_seg_off = 1: PARAMETER dynseg$V_dt_vms_lf_rel_seg_off = 157 PARAMETER dynseg$S_dt_vms_lf_ssi_incap = 18 PARAMETER dynseg$V_dt_vms_lf_ssi_incap = 16 BYTE %FILL (2) END MAP END UNION END STRUCTURE ! Elf64_Dyn) PARAMETER DYNSEG$K_DT_NULL = '00000000'X+ PARAMETER DYNSEG$K_DT_NEEDED = '00000001'X* P VARAMETER DYNSEG$K_DT_STRSZ = '0000000A'X6 PARAMETER DYNSEG$K_DT_IA_64_PLT_RESERVE = '70000000'X) PARAMETER DYNSEG$K_DT_LOOS = '6000000D'X0 PARAMETER DYNSEG$K_DT_VMS_SUBTYPE = '6000000D'X5 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_1 = '6000000E'X1 PARAMETER DYNSEG$K_DT_VMS_IMGIOCNT = '6000000F'X5 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_3 = '60000010'X5 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_4 = '60000011'X5 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_5 = '60000012'X5 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_ W6 = '60000013'X5 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_7 = '60000014'X1 PARAMETER DYNSEG$K_DT_VMS_LNKFLAGS = '60000015'X5 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_9 = '60000016'X8 PARAMETER DYNSEG$K_DT_VMS_VIR_MEM_BLK_SIZ = '60000017'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_11 = '60000018'X. PARAMETER DYNSEG$K_DT_VMS_IDENT = '60000019'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_13 = '6000001A'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_14 = '6000001B'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_15 = '600000 X1C'X5 PARAMETER DYNSEG$K_DT_VMS_NEEDED_IDENT = '6000001D'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_17 = '6000001E'X5 PARAMETER DYNSEG$K_DT_VMS_IMG_RELA_CNT = '6000001F'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_19 = '60000020'X5 PARAMETER DYNSEG$K_DT_VMS_SEG_RELA_CNT = '60000021'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_21 = '60000022'X7 PARAMETER DYNSEG$K_DT_VMS_FIXUP_RELA_CNT = '60000023'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_23 = '60000024'X5 PARAMETER DYNSEG$K_DT_VMS_FIXUP_NEEDED = '6000002 Y5'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_25 = '60000026'X3 PARAMETER DYNSEG$K_DT_VMS_SYMVEC_CNT = '60000027'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_27 = '60000028'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_28 = '60000029'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_29 = '6000002A'X/ PARAMETER DYNSEG$K_DT_VMS_XLATED = '6000002B'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_31 = '6000002C'X2 PARAMETER DYNSEG$K_DT_VMS_STACKSIZE = '6000002D'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_33 = '6000002E'X1 PARAMET ZER DYNSEG$K_DT_VMS_UNWINDSZ = '6000002F'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_35 = '60000030'X6 PARAMETER DYNSEG$K_DT_VMS_UNWIND_CODSEG = '60000031'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_37 = '60000032'X7 PARAMETER DYNSEG$K_DT_VMS_UNWIND_INFOSEG = '60000033'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_39 = '60000034'X1 PARAMETER DYNSEG$K_DT_VMS_LINKTIME = '60000035'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_41 = '60000036'X/ PARAMETER DYNSEG$K_DT_VMS_SEG_NO = '60000037'X6 PARAMETER DYNSEG$K_DT [_VMS_DTLOOSPLUS_43 = '60000038'X6 PARAMETER DYNSEG$K_DT_VMS_SYMVEC_OFFSET = '60000039'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_45 = '6000003A'X3 PARAMETER DYNSEG$K_DT_VMS_SYMVEC_SEG = '6000003B'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_47 = '6000003C'X6 PARAMETER DYNSEG$K_DT_VMS_UNWIND_OFFSET = '6000003D'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_49 = '6000003E'X3 PARAMETER DYNSEG$K_DT_VMS_UNWIND_SEG = '6000003F'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_51 = '60000040'X6 PARAMETER DYNSEG$K_DT_VMS_S \TRTAB_OFFSET = '60000041'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_53 = '60000042'X6 PARAMETER DYNSEG$K_DT_VMS_SYSVER_OFFSET = '60000043'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_55 = '60000044'X5 PARAMETER DYNSEG$K_DT_VMS_IMG_RELA_OFF = '60000045'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_57 = '60000046'X5 PARAMETER DYNSEG$K_DT_VMS_SEG_RELA_OFF = '60000047'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_59 = '60000048'X7 PARAMETER DYNSEG$K_DT_VMS_FIXUP_RELA_OFF = '60000049'X6 PARAMETER DYNSEG$K_DT_VMS_D ]TLOOSPLUS_61 = '6000004A'X6 PARAMETER DYNSEG$K_DT_VMS_PLTGOT_OFFSET = '6000004B'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_63 = '6000004C'X3 PARAMETER DYNSEG$K_DT_VMS_PLTGOT_SEG = '6000004D'X6 PARAMETER DYNSEG$K_DT_VMS_DTLOOSPLUS_65 = '6000004E'X/ PARAMETER DYNSEG$K_DT_VMS_FPMODE = '6000004F'X4 PARAMETER DYNSEG$K_DT_VMS_SUBTYPE_CLI = '00000001'X STRUCTURE /vms_ident/ INTEGER*4 IDENTl_minor_id INTEGER*2 IDENTw_major_id BYTE IDENTb_match BYTE IDENTb_unused END ^ STRUCTURE ! vms_ident, PARAMETER TBK$K_RECTYPE_HDR32 = '00000001'X, PARAMETER TBK$K_RECTYPE_RTN32 = '00000002'X* PARAMETER TBK$K_RECTYPE_FIL = '00000003'X* PARAMETER TBK$K_RECTYPE_LN1 = '00000004'X* PARAMETER TBK$K_RECTYPE_LN2 = '00000005'X* PARAMETER TBK$K_RECTYPE_LN4 = '00000006'X* PARAMETER TBK$K_RECTYPE_PC1 = '00000007'X* PARAMETER TBK$K_RECTYPE_PC2 = '00000008'X* PARAMETER TBK$K_RECTYPE_PC4 = '00000009'X. PARAMETER TBK$K_RECTYPE_VERSION = '0000000A'X, PARAMETER TBK$K_RECTYPE_HDR64 = ' _0000000B'X, PARAMETER TBK$K_RECTYPE_RTN64 = '0000000C'X* PARAMETER TBK$K_RECTYPE_PC8 = '0000000D'X! STRUCTURE /system_version_array/+ PARAMETER sysver$S_subsystem_mask = 32* PARAMETER sysver$V_subsystem_mask = 0: BYTE %FILL (4) ! Bit mask of valid array entriesM RECORD /sysver_majmin/ sysver$r_system_ver ! Version of sys$base_imageW RECORD /subsys_majmin/ sysver$r_subsys_ver(1:31) ! Version of various subsystems% END STRUCTURE ! system_version_array( PARAMET `ER SYSVER$K_LENGTH = '00000021'X( PARAMETER SYSVER$C_LENGTH = '00000021'X# PARAMETER IMF$K_SIZE = '00000020'X# PARAMETER IMF$C_SIZE = '00000020'X STRUCTURE /image_fixup/= INTEGER*4 imf$q_fixup_offset(2) ! type is "Elf64_Xword"1 INTEGER*4 imf$l_type ! type is "Elf64_Word"6 INTEGER*4 imf$l_fixup_seg ! type is "Elf64_Word"8 INTEGER*4 imf$q_addend(2) ! type is "Elf64_Sxword"9 INTEGER*4 imf$l_symvec_index ! type is "Elf64_Word"6 INTEGER*4 imf$l_data_type ! type a is "Elf64_Word" END STRUCTURE ! image_fixup# PARAMETER IMR$K_SIZE = '00000028'X# PARAMETER IMR$C_SIZE = '00000028'X STRUCTURE /image_rela/< INTEGER*4 imr$q_rela_offset(2) ! type is "Elf64_Xword"1 INTEGER*4 imr$l_type ! type is "Elf64_Word"5 INTEGER*4 imr$l_rela_seg ! type is "Elf64_Word"8 INTEGER*4 imr$q_addend(2) ! type is "Elf64_Sxword"; INTEGER*4 imr$q_sym_offset(2) ! type is "Elf64_Xword"4 INTEGER*4 imr$l_sym_seg ! type is "Elf64_Word"3 INTEGER b*4 imr$l_fill_1 ! type is "Elf64_Word" END STRUCTURE ! image_rela# PARAMETER SGR$K_SIZE = '00000020'X# PARAMETER SGR$C_SIZE = '00000020'X STRUCTURE /segment_rela/< INTEGER*4 sgr$q_rela_offset(2) ! type is "Elf64_Xword"1 INTEGER*4 sgr$l_type ! type is "Elf64_Word"5 INTEGER*4 sgr$l_rela_seg ! type is "Elf64_Word"8 INTEGER*4 sgr$q_addend(2) ! type is "Elf64_Sxword" UNION MAP? INTEGER*4 sgr$q_gp_offset(2) ! type is "Elf64_Sxword" E cND MAP MAPA INTEGER*4 sgr$l_symvec_index ! type is "Elf64_Word"A INTEGER*4 sgr$l_needed_index ! type is "Elf64_Word" END MAP END UNION END STRUCTURE ! segment_rela) PARAMETER VMS_FIXUP$K_SIZE = '00000018'X) PARAMETER VMS_FIXUP$C_SIZE = '00000018'X STRUCTURE /vms_fixup/: INTEGER*8 vms_fixup$pq_offset ! type is "Elf64_Addr"> INTEGER*4 vms_fixup$q_addend(2) ! type is "Elf64_Sxword": INTEGER*4 vms_fixup$l_symindx ! type is d"Elf64_Word"7 INTEGER*4 vms_fixup$l_type ! type is "Elf64_Word" END STRUCTURE ! vms_fixup$ PARAMETER LNKG$K_SIZE = '00000008'X$ PARAMETER LNKG$C_SIZE = '00000008'X STRUCTURE /vms_linkages_header/2 INTEGER*4 lnkg$l_type ! type is "Elf64_Word"8 INTEGER*4 lnkg$l_decl_count ! type is "Elf64_Word"$ END STRUCTURE ! vms_linkages_header+ PARAMETER LNKG_ENTRY1$K_SIZE = '0000000C'X+ PARAMETER LNKG_ENTRY1$C_SIZE = '0000000C'X STRUCTURE /vms_lnkg_entry1/; INTEGER*4 lnkg_entry1e$l_symidx ! type is "Elf64_Word" UNION MAP4 RECORD /vms_lnkg_desc1/ lnkg_entry1$ps_desc END MAP MAPK INTEGER*4 lnkg_entry1$q_vms_linkage_qw(2) ! type is "Elf64_Xword" END MAP END UNION END STRUCTURE ! vms_lnkg_entry14 PARAMETER VMSLNKG$K_VMS_LINKAGE_TYPE1 = '00000001'X. PARAMETER VMSLNKG$K_REG_POL_VOL = '00000000'X. PARAMETER VMSLNKG$K_REG_POL_SCR = '00000001'X. PARAMETER VMSLNKG$K_REG_POL_OUT = '00000002'X. PARAMETER VMS fLNKG$K_REG_POL_PRE = '00000003'X STRUCTURE /func_descr/4 INTEGER*8 fd$pq_entryVA ! type is "Elf64_Addr"1 INTEGER*8 fd$pq_GPtr ! type is "Elf64_Addr" END STRUCTURE ! func_descr. PARAMETER UNWIND$K_DESC_VERSION = '00000001'X, PARAMETER unwind$m_unw_length = 'FFFFFFFF'X4 PARAMETER UNWIND$SC_UNW_FLAG_EHANDLER = '00000020'X3 PARAMETER unwind$m_unw_flag_ehandler = '00000000'X4 PARAMETER UNWIND$SC_UNW_FLAG_UHANDLER = '00000021'X3 PARAMETER unwind$m_unw_flag_uhandler = '00000000'X5 g PARAMETER unwind$m_unw_flag_rsvd_43_34 = '00000000'X4 PARAMETER UNWIND$SC_UNW_FLAG_VMS_OSDA = '0000002C'X3 PARAMETER unwind$m_unw_flag_vms_osda = '00000000'X7 PARAMETER UNWIND$SC_UNW_FLAG_VMS_HANDLER = '0000002D'X6 PARAMETER unwind$m_unw_flag_vms_handler = '00000000'X0 PARAMETER UNWIND$SC_UNW_FLAG_MASK = '00000020'X/ PARAMETER unwind$m_unw_flag_mask = '00000000'X/ PARAMETER unwind$m_osmask_unused = '00000000'X2 PARAMETER UNWIND$SC_UNW_FLAG_OSMASK = '0000002C'X1 PARAMETER unwind$m_unw_flhag_osmask = '00000000'X1 PARAMETER unwind$m_ivmsmode_unused = '00000000'X0 PARAMETER UNWIND$SC_UNW_IVMS_MODE = '0000002C'X/ PARAMETER unwind$m_unw_ivms_mode = '00000000'X0 PARAMETER unwind$m_version_unused = '00000000'X. PARAMETER UNWIND$SC_UNW_VERSION = '00000030'X- PARAMETER unwind$m_unw_version = '00000000'X+ PARAMETER UNWIND$K_DESC_SIZE = '00000008'X+ PARAMETER UNWIND$C_DESC_SIZE = '00000008'X STRUCTURE /exceptn_unwind/ UNION MAP UNION i MAPF INTEGER*4 unwind$l_unw_length ! type is "Elf64_Word" END MAP MAP7 PARAMETER unwind$S_unw_length = 326 PARAMETER unwind$V_unw_length = 0# BYTE %FILL (4) END MAP END UNIONA INTEGER*2 unwind$w_unw_flags ! type is "Elf64_Half"C INTEGER*2 unwind$w_unw_version ! type is "Elf64_Half" END MAP MAP j UNION MAP4 PARAMETER unwind$S_unused_31_0 = 323 PARAMETER unwind$V_unused_31_0 = 09 PARAMETER unwind$S_unw_flag_ehandler = 1: PARAMETER unwind$V_unw_flag_ehandler = 329 PARAMETER unwind$S_unw_flag_uhandler = 1: PARAMETER unwind$V_unw_flag_uhandler = 339 PARAMETER unwind$S_unw_flag_vms_osda = 1: PARAMETER unwind$V_unw_flag_vms_osda = 44< k PARAMETER unwind$S_unw_flag_vms_handler = 1= PARAMETER unwind$V_unw_flag_vms_handler = 45 BYTE %FILL (5) END MAP MAP6 PARAMETER unwind$S_unw_flag_mask = 166 PARAMETER unwind$V_unw_flag_mask = 32 BYTE %FILL (2) END MAP MAP7 PARAMETER unwind$S_unw_flag_osmask = 48 PARAMETER unwind$V_unw_flag_osmask = 44 BlYTE %FILL (1) END MAP MAP5 PARAMETER unwind$S_unw_ivms_mode = 26 PARAMETER unwind$V_unw_ivms_mode = 44 BYTE %FILL (1) END MAP MAP4 PARAMETER unwind$S_unw_version = 164 PARAMETER unwind$V_unw_version = 48 BYTE %FILL (2) END MAP END UNION END MAP END UNION END STRUCTURE ! exceptn_unwind/ PARAMETER UNWIN mD$K_FLAGS_UNUSED0 = '00000000'X/ PARAMETER UNWIND$K_FLAGS_UNUSED1 = '00000001'X1 PARAMETER UNWIND$K_FLAGS_SEMANTICS = '00000002'X6 PARAMETER UNWIND$K_FLAGS_SEMANTICS_DATA = '00000003'X* PARAMETER UNWIND$K_ABI_UNIX = '00000000'X* PARAMETER UNWIND$K_ABI_HPUX = '00000001'X) PARAMETER UNWIND$K_ABI_WNT = '00000002'X) PARAMETER UNWIND$K_ABI_VMS = '00000003'X- PARAMETER UNWIND$K_HDR_PATTERN = '00000000'X* PARAMETER UNWIND$M_HDR_MASK = '00000080'X, PARAMETER UNWIND$K_R1_PATTERN = '00000000'X) n PARAMETER UNWIND$M_R1_MASK = '000000C0'X, PARAMETER UNWIND$K_R2_PATTERN = '00000040'X) PARAMETER UNWIND$M_R2_MASK = '000000F8'X, PARAMETER UNWIND$K_R3_PATTERN = '00000060'X) PARAMETER UNWIND$M_R3_MASK = '000000FC'X, PARAMETER UNWIND$K_P1_PATTERN = '00000080'X) PARAMETER UNWIND$M_P1_MASK = '000000E0'X, PARAMETER UNWIND$K_P2_PATTERN = '000000A0'X) PARAMETER UNWIND$M_P2_MASK = '000000F0'X, PARAMETER UNWIND$K_P3_PATTERN = '000000B0'X) PARAMETER UNWIND$M_P3_MASK = '000000F8'X, PARAMETER U oNWIND$K_P4_PATTERN = '000000B8'X) PARAMETER UNWIND$M_P4_MASK = '000000FF'X, PARAMETER UNWIND$K_P5_PATTERN = '000000B9'X) PARAMETER UNWIND$M_P5_MASK = '000000FF'X, PARAMETER UNWIND$K_P6_PATTERN = '000000C0'X) PARAMETER UNWIND$M_P6_MASK = '000000E0'X, PARAMETER UNWIND$K_P7_PATTERN = '000000E0'X) PARAMETER UNWIND$M_P7_MASK = '000000F0'X, PARAMETER UNWIND$K_P8_PATTERN = '000000F0'X) PARAMETER UNWIND$M_P8_MASK = '000000FF'X, PARAMETER UNWIND$K_P9_PATTERN = '000000F1'X) PARAMETER UNWIND$M_P9 p_MASK = '000000FF'X- PARAMETER UNWIND$K_P10_PATTERN = '000000FF'X* PARAMETER UNWIND$M_P10_MASK = '000000FF'X, PARAMETER UNWIND$K_B1_PATTERN = '00000080'X) PARAMETER UNWIND$M_B1_MASK = '000000C0'X, PARAMETER UNWIND$K_B2_PATTERN = '000000C0'X) PARAMETER UNWIND$M_B2_MASK = '000000E0'X, PARAMETER UNWIND$K_B3_PATTERN = '000000E0'X) PARAMETER UNWIND$M_B3_MASK = '000000FF'X, PARAMETER UNWIND$K_B4_PATTERN = '000000F0'X) PARAMETER UNWIND$M_B4_MASK = '000000F7'X, PARAMETER UNWIND$K_X1_PATTERN = q '000000F9'X) PARAMETER UNWIND$M_X1_MASK = '000000FF'X, PARAMETER UNWIND$K_X2_PATTERN = '000000FA'X) PARAMETER UNWIND$M_X2_MASK = '000000FF'X, PARAMETER UNWIND$K_X3_PATTERN = '000000FB'X) PARAMETER UNWIND$M_X3_MASK = '000000FF'X, PARAMETER UNWIND$K_X4_PATTERN = '000000FC'X) PARAMETER UNWIND$M_X4_MASK = '000000FF'X. PARAMETER UNWIND$K_P10_ABI_UNIX = '00000000'X. PARAMETER UNWIND$K_P10_ABI_HPUX = '00000001'X- PARAMETER UNWIND$K_P10_ABI_WNT = '00000002'X- PARAMETER UNWIND$K_P10_ABI_VMS = r'00000003'X!DEC$ END OPTIONS ww7닁Φ!*** MODULE $EMHDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! # ! EVAX Module header record (EMH) ! 9 PARAMETER EMH$C_MHD = '00000000'X ! Main header record @ PARAMETER EMH$C_LNM = '00000001'X ! Language name and version @ PARAMETER EMH$C_SRC = '00000002'X ! Source file specification ; PARAMETER EMH$C_TTL = '00000003'X ! Title text of module 7 PARAMETER EMH$C_CPR = '00000004'X ! Copyright notice s 9 PARAMETER EMH$C_MTC = '00000005'X ! Maintenence status 3 PARAMETER EMH$C_GTX = '00000006'X ! General text C PARAMETER EMH$C_MAXHDRTYP = '00000006'X ! Maximum allowable type  STRUCTURE /EMHDEF/9 INTEGER*2 EMH$W_RECTYP ! Record type (OBJ$C_MHD) 1 INTEGER*2 EMH$W_SIZE ! length of this EMH4 INTEGER*2 EMH$W_HDRTYP ! Type field for MHD  ! Types of header records 1 BYTE EMH$B_STRLVL ! Structure level , BYTE EMH$B_TEMP ! temp pad byte7 t INTEGER*4 EMH$L_ARCH1 ! target architecture LW17 INTEGER*4 EMH$L_ARCH2 ! target architecture LW25 INTEGER*4 EMH$L_RECSIZ ! Maximum record size 4 BYTE EMH$B_NAMLNG ! Module name length . CHARACTER*31 EMH$T_NAME ! Module name  END STRUCTURE ! EMHDEF!DEC$ END OPTIONS wwE닁Φ!*** MODULE $ENVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ) ! ENV - Define/reference an environment ! " PARAMETER ENV$M_DuEF = '00000001'X% PARAMETER ENV$M_NESTED = '00000002'X STRUCTURE /ENVDEF/, BYTE ENV$B_GSDTYP ! Type field UNION MAP6 INTEGER*2 ENV$W_FLAGS ! Environment flags  END MAP MAP$ PARAMETER ENV$S_DEF = 1D PARAMETER ENV$V_DEF = 0 ! Definition of environment ' PARAMETER ENV$S_NESTED = 1E PARAMETER ENV$V_NESTED = 1 ! Nested environment if set BYTE %FILL (1) END MAPv END UNION> INTEGER*2 ENV$W_ENVINDX ! Index of parent environment < BYTE ENV$B_NAMLNG ! Length of environment name 3 CHARACTER*31 ENV$T_NAME ! Environment name  END STRUCTURE ! ENVDEF!DEC$ END OPTIONS wwj닁Φ!*** MODULE $EOBJRECDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! G ! These are the record types defined for VAX and EVAX object records.D ! Some types are only recognized in one format of object file, b wut5 ! the types must be a single set of distinct codes. ! A PARAMETER EOBJ$C_EMH = '00000008'X ! EVAX module header record B PARAMETER EOBJ$C_EEOM = '00000009'X ! EVAX end of module record M PARAMETER EOBJ$C_EGSD = '0000000A'X ! EVAX global symbol definition record E PARAMETER EOBJ$C_ETIR = '0000000B'X ! EVAX text information record I PARAMETER EOBJ$C_EDBG = '0000000C'X ! EVAX Debugger information record J PARAMETER EOBJ$C_ETBT = '0000000D'X ! EVAX Traceback information record G x PARAMETER EOBJ$C_MAXRECTYP = '0000000D'X ! Last assigned record type & PARAMETER EOBJ$K_SUBTYP = '00000004'X& PARAMETER EOBJ$C_SUBTYP = '00000004'XG PARAMETER EOBJ$C_MAXRECSIZ = '00002000'X ! Maximum legal record size : PARAMETER EOBJ$C_STRLVL = '00000002'X ! Structure level ; PARAMETER EOBJ$C_STRLVL64 = '00000003'X ! Structure level@ PARAMETER EOBJ$C_SYMSIZ = '00000040'X ! Maximum symbol length L PARAMETER EOBJ$C_STOREPLIM = -1 ! Maximum repeat count on store commands F PARAMETER E yOBJ$C_PSCALILIM = '00000010'X ! Maximum p-sect alignment  STRUCTURE /EOBJRECDEF/ ! > ! These are the record types defined for VAX object records. ! @ INTEGER*2 EOBJ$W_RECTYP ! First byte always record type < INTEGER*2 EOBJ$W_SIZE ! Second is always record size ! Permissable record types 7 INTEGER*2 EOBJ$W_SUBTYP ! Record sub-type byte 3 BYTE EOBJ$B_MHD_STRLV ! Structure level2 BYTE EOBJ$B_MHD_HOLD ! alignment temp UNION MzAP< INTEGER*2 EOBJ$W_MHD_RECSZ ! Maximum record size  END MAP MAP! BYTE %FILL(1:2)Q ! unsupported type CHARACTER*0 EOBJ$T_MHD_NAME ! Module name field  ! Misc. constants  END MAP END UNION END STRUCTURE ! EOBJRECDEF!DEC$ END OPTIONS ww닁Φ!*** MODULE $EOMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! End of module record (EOM) ! A PARAMETER EOM$C_SUCCESS{ = '00000000'X ! Successful (no errors) : PARAMETER EOM$C_WARNING = '00000001'X ! Warnings issued 8 PARAMETER EOM$C_ERROR = '00000002'X ! Errors detected 7 PARAMETER EOM$C_ABORT = '00000003'X ! Abort the link B PARAMETER EOM$K_EOMMIN = '00000002'X ! Min length of EOM record B PARAMETER EOM$C_EOMMIN = '00000002'X ! Min length of EOM record Q PARAMETER EOM$K_EOMMX1 = '00000007'X ! Length of EOM record w/o transfer flags Q PARAMETER EOM$C_EOMMX1 = '00000007'X ! Length of EOM record w/o |transfer flags F PARAMETER EOM$K_EOMMAX = '00000008'X ! Maximum length of EOM record F PARAMETER EOM$C_EOMMAX = '00000008'X ! Maximum length of EOM record $ PARAMETER EOM$M_WKTFR = '00000001'X STRUCTURE /EOMDEF/9 BYTE EOM$B_RECTYP ! Record type (OBJ$C_EOM) : BYTE EOM$B_COMCOD ! Compiler completion code ! Values < BYTE EOM$B_PSINDX ! P-sect of transfer address 2 INTEGER*4 EOM$L_TFRADR ! Transfer address UNION MAP< BYT}E EOM$B_TFRFLG ! Transfer address flags  END MAP MAP& PARAMETER EOM$S_WKTFR = 1D PARAMETER EOM$V_WKTFR = 0 ! Transfer address is weak  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! EOMDEF!DEC$ END OPTIONS ww싁Φ!*** MODULE $EOMWDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 2 ! End of module record with word of psect (EOMW) ! C PARAMETER EOMW$K_EOMMIN = '00 ~000002'X ! Min length of EOM record C PARAMETER EOMW$C_EOMMIN = '00000002'X ! Min length of EOM record S PARAMETER EOMW$K_EOMMX1 = '00000008'X ! Length of EOMW record w/o transfer flags S PARAMETER EOMW$C_EOMMX1 = '00000008'X ! Length of EOMW record w/o transfer flags H PARAMETER EOMW$K_EOMMAX = '00000009'X ! Maximum length of EOMW record H PARAMETER EOMW$C_EOMMAX = '00000009'X ! Maximum length of EOMW record % PARAMETER EOMW$M_WKTFR = '00000001'X STRUCTURE /EOMWDEF/: BYTE  EOMW$B_RECTYP ! Record type (OBJ$C_EOM) ; BYTE EOMW$B_COMCOD ! Compiler completion code = INTEGER*2 EOMW$W_PSINDX ! P-sect of transfer address 3 INTEGER*4 EOMW$L_TFRADR ! Transfer address UNION MAP= BYTE EOMW$B_TFRFLG ! Transfer address flags  END MAP MAP' PARAMETER EOMW$S_WKTFR = 1E PARAMETER EOMW$V_WKTFR = 0 ! Transfer address is weak  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! EOMWDEF!DEC$ END OPTIONS ww#i싁Φ!*** MODULE $EPMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 6 ! GSD entry - Entry point definition, normal symbols ! # PARAMETER EPM$K_NAME = '0000000C'X# PARAMETER EPM$C_NAME = '0000000C'X STRUCTURE /EPMDEF/ UNION MAP< BYTE EPM$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP7 ! unsupported type CHARACTER*0 EPM$T_START BYTE %FILL END MAP END UNION6 BYTE EPM$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 EPM$W_FLAGS ! Maps over GSY$W_FLAGS 8 BYTE EPM$B_PSINDX ! Maps over SDF$B_PSINDX K INTEGER*4 EPM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE 0 INTEGER*2 EPM$W_MASK ! Entry point mask 0 BYTE EPM$B_NAMLNG ! Length of name . CHARACTER*31 EPM$T_NAME ! Symbol name  END STRUCTURE ! EPMDEF!DEC$ END OPTIONS wwm싁Φ!*** MODULE $EPMMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! < ! GSD entry - Entry point definition, version mask symbols ! $ PARAMETER EPMM$K_NAME = '00000010'X$ PARAMETER EPMM$C_NAME = '00000010'X STRUCTURE /EPMMDEF/ UNION MAP= BYTE EPMM$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 EPMM$T_START BYTE %FI LL END MAP END UNION7 BYTE EPMM$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 EPMM$W_FLAGS ! Maps over GSY$W_FLAGS 9 BYTE EPMM$B_PSINDX ! Maps over SDF$B_PSINDX L INTEGER*4 EPMM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE < INTEGER*4 EPMM$L_VERSION_MASK ! Mask value for symbol1 INTEGER*2 EPMM$W_MASK ! Entry point mask 1 BYTE EPMM$B_NAMLNG ! Length of name . CHARACTER*31 EPMM$T_NAME ! Symbol name  END STRUCTURE ! EPMMDEF!DEC$ END OPTIONS ww틁Φ!*** MODULE $EPMVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 8 ! GSD entry - Entry point definition, vectored symbols ! $ PARAMETER EPMV$K_NAME = '00000010'X$ PARAMETER EPMV$C_NAME = '00000010'X STRUCTURE /EPMVDEF/ UNION MAP= BYTE EPMV$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 EPMV$T_START  BYTE %FILL END MAP END UNION7 BYTE EPMV$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 EPMV$W_FLAGS ! Maps over GSY$W_FLAGS 9 BYTE EPMV$B_PSINDX ! Maps over SDF$B_PSINDX L INTEGER*4 EPMV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE > INTEGER*4 EPMV$L_VECTOR ! Vectored entry point address1 INTEGER*2 EPMV$W_MASK ! Entry point mask 1 BYTE EPMV$B_NAMLNG ! Length of name . CHARACTER*31 EPMV$T_NAME ! Symbol name  END STRUCTURE ! EPMVDEF!DEC$ END OPTIONS ww)Φ!*** MODULE $EPMWDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ? ! GSD entry - Entry point definition with word of psect value ! $ PARAMETER EPMW$K_NAME = '0000000D'X$ PARAMETER EPMW$C_NAME = '0000000D'X STRUCTURE /EPMWDEF/ UNION MAP= BYTE EPMW$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! uns upported type CHARACTER*0 EPMW$T_START BYTE %FILL END MAP END UNION7 BYTE EPMW$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 EPMW$W_FLAGS ! Maps over GSY$W_FLAGS : INTEGER*2 EPMW$W_PSINDX ! Maps over SDFW$W_PSINDX M INTEGER*4 EPMW$L_ADDRS ! Entry point address, maps over SDFW$L_VALUE 1 INTEGER*2 EPMW$W_MASK ! Entry point mask 1 BYTE EPMW$B_NAMLNG ! Length of name . CHARACTER*31 EPMW$T_NAME ! Symbol name  END STRUCTURE ! EPMWDEF!DEC$ END OPTIONS wwqΦ!*** MODULE $ERADEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! ? ! Define erase type codes. The codes LODUMMY and HIDUMMY areA ! used as placeholders, to make the definition of the upper andC ! lower bound erase type symbols automatic. New erase type codes? ! should be added at the end of the list, but before HIDUMMY. !  ! + PARAMETER ERA$K_LODUMMY = '00000000'X ! ;  PARAMETER ERA$K_MEMORY = '00000001'X ! Erase main memory? PARAMETER ERA$K_DISK = '00000002'X ! Erase disk mass storageH PARAMETER ERA$K_TAPE = '00000003'X ! Erase magnetic tape mass storage* PARAMETER ERA$K_HIDUMMY = '00000004'X ! J PARAMETER ERA$K_MINTYPE = '00000001'X ! Lower bound of erase type codesJ PARAMETER ERA$K_MAXTYPE = '00000003'X ! Upper bound of erase type codes!DEC$ END OPTIONS wwsΦ!*** MODULE $ESDFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! EVAX Symbol definition ! $ PARAMETER ESDF$K_NAME = '00000021'X$ PARAMETER ESDF$C_NAME = '00000021'X STRUCTURE /ESDFDEF/ UNION MAP= INTEGER*2 ESDF$W_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 ESDF$T_START INTEGER*2 %FILL END MAP END UNION1 INTEGER*2 ESDF$W_SIZE ! size of this ESDF6 BYTE ESDF$B_DATYP ! Maps over GSY$B_DATYP2 BYTE ESDF$B_TEMP ! pad for alignment 7 INTEGER*2 ESDF$W_FLAGS ! Maps over GSY$W_FLAGS UNION MAP" INTEGER*4 ESDF$Q_VALUE(2) END MAP MAP INTEGER*4 ESDF$L_VALUE END MAP END UNION UNION MAP) INTEGER*4 ESDF$Q_CODE_ADDRESS(2) END MAP MAP& INTEGER*4 ESDF$L_CODE_ADDRESS END MAP END UNIONP INTEGER*4 ESDF$L_CA_PSINDX ! Psect index of the code address (which is in ! LP_1 if the norm bit is set).6 INTEGER*4 ESDF$L_PSINDX ! Owning psect number 1 BYTE ESDF$B_NAMLNG ! Length of name . CHARACTER*31 ESDF$T_NAME ! Symbol name  END STRUCTURE ! ESDFDEF!DEC$ END OPTIONS wwΦ!*** MODULE $ESDFMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 3 ! EVAX Symbol definition for version mask symbols ! % PARAMETER ESDFM$K_NAME = '00000019'X% PARAMETER ESDFM$C_NAME = '00000019'X STRUCTURE /ESDFMDEF/ UNION MAP= INTEGER*2 ESDFM$W_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP9 ! unsupported type CHARACTER*0 ESDFM$T_START BYTE %FILL END MAP END UNION3 INTEGER*2 ESDFM$W_SIZE ! size of this ESDFM7 BYTE ESDFM$B_DATYP ! Maps over GSY$B_DATYP3 BYTE ESDFM$B_TEMP ! pad for alignment 8 INTEGER*2 ESDFM$W_FLAGS ! Maps over GSY$W_FLAGS UNION MAP# INTEGER*4 ESDFM$Q_VALUE(2) END MAP MAP INTEGER*4 ESDFM$L_VALUE END MAP END UNION6 INTEGER*4 ESDFM$L_PSINDX ! Owning psect number 7 INTEGER*4 ESDFM$L_VERSION_MASK ! Mask for symbol1 BYTE ESDFM$B_NAMLNG ! Length of name / CHARACTER*31 ESDFM$T_NAME ! Symbol name  END STRUCTURE ! ESDFMDEF!DEC$ END OPTIONS ww=Φ!*** MODULE $ESDFVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! / ! EVAX Symbol definition for vectored symbols ! % PARAMETER ESDFV$K_NAME = '00000019'X% PARAMETER ESDFV$C_NAME = '00000019'X STRUCTURE /ESDFVDEF/ UNION MAP= INTEGER*2 ESDFV$W_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP9 ! unsupported type CHARACTER*0 ESDFV$T_START BYTE %FILL END MAP END UNION2 INTEGER*2 ESDFV$W_SIZE ! size of this SDFV7 BYTE ESDFV$B_DATYP ! Maps over GSY$B_DATYP3 BYTE ESDFV$B_TEMP ! pad for alignment 8 INTEGER*2 ESDFV$W_FLAGS ! Maps over GSY$W_FLAGS UNION MAP# INTEGER*4 ESDFV$Q_VALUE(2) END MAP MAP INTEGER*4 ESDFV$L_VALUE END MAP END UNION6 INTEGER*4 ESDFV$L_PSINDX ! Owning psect number : INTEGER*4 ESDFV$L_VECTOR ! Vectored value of symbol1 BYTE ESDFV$B_NAMLNG ! Length of name / CHARACTER*31 ESDFV$T_NAME ! Symbol name  END STRUCTURE ! ESDFVDEF!DEC$ END OPTIONS ww%cqΦ!*** MODULE ESFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! L ! Enumerate Item Codes for the various types of Environmental Sensor FRUs. ! # PARAMETER ESF$K_TEMP = '00001000'X$ PARAMETER ESF$K_POWER = '00001001'X" PARAMETER ESF$K_FAN = '00001002'X ! J ! The sys$get_env_sensors system service will populate the user's bufferK ! with an array of the following structure. The dimension of the array isL ! determined by the number of sensors corresponding to the item code by a L ! run-time call to sys$get_env_sensors() with a buffer address of zero or M ! buffer size of zero. sys$get_env_sensors() will pass the dimensions back G ! to the caller so he can allocate buffers to contain the arrays for L ! subsequent calls to sys$get_env_sensors() with valid buffer pointers and ! sizes." ! See [SYS]SYS_GET_ENV_SENSORS.C ! + PARAMETER esf$m_valid_status = '00000001'X* PARAMETER esf$m_valid_value = '00000002'X, PARAMETER esf$m_feat_reserved = '000000FC'X STRUCTURE /esfitem/: BYTE esf$b_type ! CFG_NODE config type field@ BYTE esf$b_subtype ! CFG_NODE config subtype field+ BYTE esf$B_VALUE ! Value byte- BYTE esf$b_status ! Status byte UNION MAPA BYTE esf$b_features ! Features of the Sensor FRU END MAP  MAP- PARAMETER esf$S_valid_status = 1- PARAMETER esf$V_valid_status = 0, PARAMETER esf$S_valid_value = 1, PARAMETER esf$V_valid_value = 1. PARAMETER esf$S_feat_reserved = 6. PARAMETER esf$V_feat_reserved = 2 BYTE %FILL (1) END MAP END UNION !  ! Pad out to next quad word ! $ BYTE esf$b_reserved_1(1:3) ! C ! fru_node_id contains FRU Descriptor Node ID information to h elpG ! identify the location of the associated sensor. See "Alpha Systems K ! Configuration Tree Implementation Specification" Table 1-79 on Page 50.H ! The byte fields in this 8-byte structure are declared in CFGDEF.H as? ! struct cfg$_cfg_node_id_fru_desc in the CFG_NODE structure. ! # INTEGER*4 esf$q_fru_node_id(2) ! K ! fru_flags contains the Node Flags for the FRU. See "Alpha Configuration5 ! Tree Specification" Release T6.0-0023 page 7-45. + ! See also cfg$iq_node_flags in CFGDEF.H. ! ! INTEGER*4 esf$q_fru_flags(2) ! K ! console_id is a quadword that contains the offset and bitfield elementsK ! to be used to access the low-level hardware status or value information ! UNION MAP< INTEGER*4 esf$q_console_id(2) ! Whole Console ID END MAP MAPC INTEGER*4 esf$l_offset ! Offset part of Console IDF INTEGER*4 esf$L_BITFIELD ! Bitfield part of Console ID END MAP END UNION END STRUCTURE ! esfitem!DEC$ END OPTIONS ww,Φ!*** MODULE $ESGPSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! < ! EVAX GSD entry - P-section definition in shareable image ! $ PARAMETER ESGPS$M_PIC = '00000001'X$ PARAMETER ESGPS$M_LIB = '00000002'X$ PARAMETER ESGPS$M_OVR = '00000004'X$ PARAMETER ESGPS$M_REL = '00000008'X$ PARAMETER ESGPS$M_GBL = '00000010'X$ PARAMETER ESGPS$M_SHR = '00000020'X$ PARAMETER ESGPS$M_EXE = '00000040'X# PARAMETER ESGPS$M_RD = '00000080'X$ PARAMETER ESGPS$M_WRT = '00000100'X$ PARAMETER ESGPS$M_VEC = '00000200'X& PARAMETER ESGPS$M_NOMOD = '00000400'X$ PARAMETER ESGPS$M_COM = '00000800'X, PARAMETER ESGPS$M_ALLOC_64BIT = '00001000'X% PARAMETER ESGPS$K_NAME = '00000019'X% PARAMETER ESGPS$C_NAME = '00000019'X STRUCTURE /ESGPSDEF/ UNION MAP0 INTEGER*2 ESGPS$W_GSDTYP ! Typ field  END MAP MAP9 ! unsupported type CHARACTER*0 ESGPS$T_START BYTE %FILL END MAP END UNION3 INTEGER*2 ESGPS$W_SIZE ! size of this ESGPS3 BYTE ESGPS$B_ALIGN ! P-sect alignment 3 BYTE ESGPS$B_TEMP ! pad for allignment UNION MAP3 INTEGER*2 ESGPS$W_FLAGS ! P-sect flags  END MAP MAP& PARAMETER ESGPS$S_PIC = 1@ PARAMETER ESGPS$V_PIC = 0 ! Position independent & PARAMETER ESGPS$S_LIB = 1B  PARAMETER ESGPS$V_LIB = 1 ! From a shareable image & PARAMETER ESGPS$S_OVR = 1F PARAMETER ESGPS$V_OVR = 2 ! Overlaid memory allocation & PARAMETER ESGPS$S_REL = 17 PARAMETER ESGPS$V_REL = 3 ! Relocatable & PARAMETER ESGPS$S_GBL = 18 PARAMETER ESGPS$V_GBL = 4 ! Global scope & PARAMETER ESGPS$S_SHR = 15 PARAMETER ESGPS$V_SHR = 5 ! Shareable & PARAMETER ESGPS$S_EXE  = 16 PARAMETER ESGPS$V_EXE = 6 ! Executable % PARAMETER ESGPS$S_RD = 13 PARAMETER ESGPS$V_RD = 7 ! Readable & PARAMETER ESGPS$S_WRT = 15 PARAMETER ESGPS$V_WRT = 8 ! Writeable & PARAMETER ESGPS$S_VEC = 18 PARAMETER ESGPS$V_VEC = 9 ! Vector psect ( PARAMETER ESGPS$S_NOMOD = 1= PARAMETER ESGPS$V_NOMOD = 10 ! Not stored into& PARAMETER ESGPS$S_COM = 1D  PARAMETER ESGPS$V_COM = 11 ! Associated with COMM sym. PARAMETER ESGPS$S_ALLOC_64BIT = 1G PARAMETER ESGPS$V_ALLOC_64BIT = 12 ! Load in 64-bit space BYTE %FILL (2) END MAP END UNIOND INTEGER*4 ESGPS$L_ALLOC ! Length of this psect in shr image P INTEGER*4 ESGPS$L_BASE ! Offset into img of psect, copy of symbol vector UNION MAP# INTEGER*4 ESGPS$Q_VALUE(2) END MAP MAP INTEGER*4 ESGPS$L_VALUE END MAP END UNION8 BYTE ESGPS$B_NAMLNG ! Length of p-sect name . CHARACTER*31 ESGPS$T_NAME ! Name field  END STRUCTURE ! ESGPSDEF ! C ! EVAX GSD entry - 64-Bit P-section definition in shareable image ! & PARAMETER ESGPS64$M_PIC = '00000001'X& PARAMETER ESGPS64$M_LIB = '00000002'X& PARAMETER ESGPS64$M_OVR = '00000004'X& PARAMETER ESGPS64$M_REL = '00000008'X& PARAMETER ESGPS64$M_GBL = '00000010'X& PARAMETER ESGPS64$M_SHR = '00000020'X& PARAMETER ESGPS64$M_EXE = '00000040'X% PARAMETER ESGPS64$M_RD = '00000080'X& PARAMETER ESGPS64$M_WRT = '00000100'X& PARAMETER ESGPS64$M_VEC = '00000200'X( PARAMETER ESGPS64$M_NOMOD = '00000400'X& PARAMETER ESGPS64$M_COM = '00000800'X. PARAMETER ESGPS64$M_ALLOC_64BIT = '00001000'X' PARAMETER ESGPS64$K_NAME = '00000021'X' PARAMETER ESGPS64$C_NAME = '00000021'X STRUCTURE /ESGPS64DEF/ UNION MAP2 INTEGER*2 ESGPS64$W_GSDTYP ! Typ field  END MAP  MAP; ! unsupported type CHARACTER*0 ESGPS64$T_START BYTE %FILL END MAP END UNION4 INTEGER*2 ESGPS64$W_SIZE ! size of this ESGPS4 BYTE ESGPS64$B_ALIGN ! P-sect alignment 4 BYTE ESGPS64$B_TEMP ! pad for allignment UNION MAP4 INTEGER*2 ESGPS64$W_FLAGS ! P-sect flags  END MAP MAP( PARAMETER ESGPS64$S_PIC = 1B PARAMETER ESGPS64$V_PIC = 0 ! Position inde pendent ( PARAMETER ESGPS64$S_LIB = 1D PARAMETER ESGPS64$V_LIB = 1 ! From a shareable image ( PARAMETER ESGPS64$S_OVR = 1H PARAMETER ESGPS64$V_OVR = 2 ! Overlaid memory allocation ( PARAMETER ESGPS64$S_REL = 19 PARAMETER ESGPS64$V_REL = 3 ! Relocatable ( PARAMETER ESGPS64$S_GBL = 1: PARAMETER ESGPS64$V_GBL = 4 ! Global scope ( PARAMETER ESGPS64$S_SHR = 17 PARAMETER  ESGPS64$V_SHR = 5 ! Shareable ( PARAMETER ESGPS64$S_EXE = 18 PARAMETER ESGPS64$V_EXE = 6 ! Executable ' PARAMETER ESGPS64$S_RD = 15 PARAMETER ESGPS64$V_RD = 7 ! Readable ( PARAMETER ESGPS64$S_WRT = 17 PARAMETER ESGPS64$V_WRT = 8 ! Writeable ( PARAMETER ESGPS64$S_VEC = 1: PARAMETER ESGPS64$V_VEC = 9 ! Vector psect * PARAMETER ESGPS64$S_NOMOD = 1? PARAMETER ESGPS64$V_NOMOD = 10 ! Not stored into( PARAMETER ESGPS64$S_COM = 1F PARAMETER ESGPS64$V_COM = 11 ! Associated with COMM sym0 PARAMETER ESGPS64$S_ALLOC_64BIT = 1I PARAMETER ESGPS64$V_ALLOC_64BIT = 12 ! Load in 64-bit space BYTE %FILL (2) END MAP END UNION UNION MAPL INTEGER*4 ESGPS64$Q_ALLOC(2) ! Length of this psect in shr image  END MAP MAP4 INTEGER*4 ESGPS64$L_ALLOC ! Low Longword END MAP END UNION UNION MAPX INTEGER*4 ESGPS64$Q_BASE(2) ! Offset into img of psect, copy of symbol vector END MAP MAP3 INTEGER*4 ESGPS64$L_BASE ! Low Longword END MAP END UNION UNION MAP% INTEGER*4 ESGPS64$Q_VALUE(2) END MAP MAP" INTEGER*4 ESGPS64$L_VALUE END MAP END UNION: BYTE ESGPS64$B_NAMLNG ! Length of p-sect name 0 CHARACTER*31 ESGPS64$T_NAME ! Name field  END STRUCTURE ! ESGPS64DEF!DEC$ END OPTIONS wwvΦ!*** MODULE $ESRFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! : ! EVAX Symbol reference (SYM$M_DEF in EGSY$W_FLAGS is 0) ! $ PARAMETER ESRF$K_NAME = '00000009'X$ PARAMETER ESRF$C_NAME = '00000009'X STRUCTURE /ESRFDEF/ UNION MAP= INTEGER*2 ESRF$W_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP  MAP8 ! unsupported type CHARACTER*0 ESRF$T_START INTEGER*2 %FILL END MAP END UNION1 INTEGER*2 ESRF$W_SIZE ! size of this ESRF6 BYTE ESRF$B_DATYP ! Maps over GSY$B_DATYP2 BYTE ESRF$B_TEMP ! pad for alignment 7 INTEGER*2 ESRF$W_FLAGS ! Maps over GSY$W_FLAGS 8 BYTE ESRF$B_NAMLNG ! Length of symbol name . CHARACTER*31 ESRF$T_NAME ! Symbol name  END STRUCTURE ! ESRFDEF!DEC$ END OPTIONS  ww"Φ!*** MODULE $ETIRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 7 ! EVAX Text, information and relocation record (ETIR) ! @ PARAMETER ETIR$C_MINSTACOD = '00000000'X ! Minimum store code E PARAMETER ETIR$C_STA_GBL = '00000000'X ! Stack global symbol value 9 PARAMETER ETIR$C_STA_LW = '00000001'X ! Stack longword 9 PARAMETER ETIR$C_STA_QW = '00000002'X ! Stack quadword P PARAMETER ETIR$C_STA_PQ = '00000003'X ! Stack psect base plu s quadword offset 8 PARAMETER ETIR$C_STA_LI = '00000004'X ! Stack literal 7 PARAMETER ETIR$C_STA_MOD = '00000005'X ! Stack module< PARAMETER ETIR$C_STA_CKARG = '00000006'X ! Check Arguments@ PARAMETER ETIR$C_MAXSTACOD = '00000006'X ! Maximum stack code @ PARAMETER ETIR$C_MINSTOCOD = '00000032'X ! Minimum store code 4 PARAMETER ETIR$C_STO_B = '00000032'X ! Store byte 4 PARAMETER ETIR$C_STO_W = '00000033'X ! Store word 9 PARAMETER ETIR$C_STO_LW = '00000034'X ! Store longword 8 PARAMETER ETIR$C_STO_QW = '00000035'X ! Store quadwordD PARAMETER ETIR$C_STO_IMMR = '00000036'X ! Store immediate Repeated8 PARAMETER ETIR$C_STO_GBL = '00000037'X ! Store global = PARAMETER ETIR$C_STO_CA = '00000038'X ! Store code address @ PARAMETER ETIR$C_STO_RB = '00000039'X ! Store relative branch @ PARAMETER ETIR$C_STO_AB = '0000003A'X ! Store absolute branch E PARAMETER ETIR$C_STO_OFF = '0000003B'X ! Store offset within psect ; PARAMETER ETIR$C_STO_IMM = '0000003D'X ! Store immediate C PARAMETER ETIR$C_STO_GBL_LW = '0000003E'X ! Store global Longword1 ! STO_LP_PSB not valid in level 2 use STC_LP_PSBX PARAMETER ETIR$C_STO_BR_GBL = '00000040'X ! Store 21 bit displayment to global addressW PARAMETER ETIR$C_STO_BR_PS = '00000041'X ! Store 21 bit displayment to psect + offset@ PARAMETER ETIR$C_MAXSTOCOD = '00000041'X ! Maximum store code B PARAMETER ETIR$C_MINOPRCOD = '00000064'X ! Minimum operate code 1 PARAMETER ETIR$C_OPR_NOP = '00000064'X ! No-op / PARAMETER ETIR$ C_OPR_ADD = '00000065'X ! Add 4 PARAMETER ETIR$C_OPR_SUB = '00000066'X ! Subtract 4 PARAMETER ETIR$C_OPR_MUL = '00000067'X ! Multiply 2 PARAMETER ETIR$C_OPR_DIV = '00000068'X ! Divide 7 PARAMETER ETIR$C_OPR_AND = '00000069'X ! Logical AND @ PARAMETER ETIR$C_OPR_IOR = '0000006A'X ! Logical inclusive OR @ PARAMETER ETIR$C_OPR_EOR = '0000006B'X ! Logical exclusive OR 2 PARAMETER ETIR$C_OPR_NEG = '0000006C'X ! Negate 6 PARAMETER ETIR$C_OPR_COM = '0000006D'X ! Complement = PARAMETER ETIR$C_OPR_INSV = '0000006E'X ! Insert bit field < PARAMETER ETIR$C_OPR_ASH = '0000006F'X ! Arithmetic shift : PARAMETER ETIR$C_OPR_USH = '00000070'X ! Unsigned shift 2 PARAMETER ETIR$C_OPR_ROT = '00000071'X ! Rotate Y PARAMETER ETIR$C_OPR_SEL = '00000072'X ! Select one of three longwords on top of stack O PARAMETER ETIR$C_OPR_REDEF = '00000073'X ! Redefine this symbol after pass 2 > PARAMETER ETIR$C_OPR_DFLIT = '00000074'X ! Define a literal B PARAMETER ETIR$C_MAXOPRCOD = '00000074'X !  Maximum operate code B PARAMETER ETIR$C_MINCTLCOD = '00000096'X ! Minimum control code A PARAMETER ETIR$C_CTL_SETRB = '00000096'X ! Set relocation base E PARAMETER ETIR$C_CTL_AUGRB = '00000097'X ! Augment relocation base C PARAMETER ETIR$C_CTL_DFLOC = '00000098'X ! Define debug location @ PARAMETER ETIR$C_CTL_STLOC = '00000099'X ! Set debug location B PARAMETER ETIR$C_CTL_STKDL = '0000009A'X ! Stack debug location B PARAMETER ETIR$C_MAXCTLCOD = '0000009A'X ! Maximum control code K PARAMETER ETIR$C_MINSTCCOD = '000000C8'X ! Minimum store-conditional codeH PARAMETER ETIR$C_STC_LP = '000000C8'X ! Store-conditional Linkage Paire PARAMETER ETIR$C_STC_LP_PSB = '000000C9'X ! Store-conditional Linkage Pair with Procedure SignatureV PARAMETER ETIR$C_STC_GBL = '000000CA'X ! Store-conditional Address at global address[ PARAMETER ETIR$C_STC_GCA = '000000CB'X ! Store-conditional Code Address at global addressU PARAMETER ETIR$C_STC_PS = '000000CC'X ! Store-conditional Address at psect + offsetY PARAMETER ETIR$C_STC_NOP_GBL = '000000CD'X ! Store-conditional NOP at address of globalT PARAMETER ETIR$C_STC_NOP_PS = '000000CE'X ! Store-conditional NOP at pect + offsetV PARAMETER ETIR$C_STC_BSR_GBL = '000000CF'X ! Store-conditional BSR at global addressT PARAMETER ETIR$C_STC_BSR_PS = '000000D0'X ! Store-conditional BSR at pect + offsetV PARAMETER ETIR$C_STC_LDA_GBL = '000000D1'X ! Store-conditional LDA at global addressU PARAMETER ETIR$C_STC_LDA_PS = '000000D2'X ! Store-conditional LDA at psect + offset^ PARAMETER ETIR$C_STC_BOH_GBL = '000000D3'X ! Store-conditional BSR or Hint at global address\ PARAMETER ETIR$C_STC_BOH_PS = '000000D4'X ! Store-conditional BSR or Hint at pect + offsetb PARAMETER ETIR$C_STC_NBH_GBL = '000000D5'X ! Store-conditional NOP,BSR or HINT at global addressa PARAMETER ETIR$C_STC_NBH_PS = '000000D6'X ! Store-conditional NOP,BSR or HINT at psect + offsetK PARAMETER ETIR$C_MAXSTCCOD = '000000D6'X ! Maximum store-conditional code  STRUCTURE /ETIRDEF/; INTEGER*2 ETIR$W_RECTYP ! Record type (OBJ$C_ETIR), INTEGER*2 ETIR$W_SIZE ! Record size ! Define relocation commands  ! ETIR descriptions !  ! : ! MNEUMONIC DESCRIPTION FORMAT STACK EFFECT: ! --------- ----------- ------ ------------3 ! 0 2 4 6 8 12 16 20 242 ! | | | | | | | | |2 ! v v v v v v v v v ! N ! STA_GBL pushes symbol value on stack |type|size|counted string... +1 ! G ! STA_LW pushes longword value on stack |type|size|longword | +1 ! O ! STA_QW pushes quadword value on stack |type|size| quadword | +1 ! T ! STA_PQ pushes image offset associated |type|size| psect | quadword | +1* ! with psect index + quadword  ! offset on stackM ! STA_LI pushes literal value on stack |type|size|counted string... +1 ! N ! STA_MOD pushes image offset associated |type|size|counted string... +1 ! with module on stack ! R ! STA_CKARG compares poped stack element to |type|size|counted string... 0 # ! symbol value and pushes result ! on stack ! = ! STO_B pops stack and stores low byte |type|size| -1 ! at location pointer ! = ! STO_W pops stack and stores low word |type|size| -1 ! at location pointer ! > ! STO_LW pops stack and stores low |type|size| -1% ! longword at location pointer ! > ! STO_QW pops stack and stores qwadword |type|size| -1 ! at location pointer ! M ! STO_GBL stores value associated with |type|size|counted string... 0# ! global symbol at location  ! pointer ! M ! STO_CA stores contents of value |type|size|counted string... 0& ! associated with global symbol ! +8 at location pointer ! L ! STO_RB adds offset from location |type|s ize|psect| quadword | 0 & ! pointer to image offset value& ! associated with psect index +$ ! quadword offset to low word ! at location pointer ! M ! STO_AB stores value associated with |type|size|counted string... 0% ! global symbol in low 21 bits ! at location pointer ! ^ ! STO_OFF pops offset into image from |type|size| -1) ! stack and stores the value in& ! the linker's location counter ! S ! STO_IMMR pops repeat count and stores |type|size| size |immediate... -1( ! this number of immediates at ! location counter ! D ! STO_LP stores code address at |type|size|counted string... 0 ! location pointer and global ! symbol value at location ! pointer + 8 ! Q ! STO_IMM stores this number of |type|size| size |immediate... 0* ! immediates at location counter ! P ! STO_GBL_LW stores low  order 32 bits of |type|size|counted string... 0% ! value associated with global# ! symbol at location pointer ! _ ! STO_LP_PSB stores code address at |type|size|counted string...|size|signature block...| 0 ! location pointer and global ! symbol value at location ! pointer + 8 and signature- ! information in fixup section/ ! (following the LP_PSB fixups). ! Z ! STO_BR_GBL Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 |6 ! signed offset from virtual |counted string 0 ! address signified by ps2 + ! off2 to virtual address of# ! global symbol shifted two bits- ! to the right into the 21 bit2 ! displacement field of instruction( ! at location ps1 + off1. ! Z ! STO_BR_PS Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 |K ! signed offset from virtual |ps3 |off3 | 0 ! address signified by ps2 + ! off2 to virtual address$ ! signified by ps3 + off3 shifted ! two bits to the right into" ! the 21 bit displacement field ! of instruction at location ! ps1 + off1. ! / ! OPR_NOP nothing |type|size| 0 ! A ! OPR_ADD pop two elements from stack |type|size| -1 ! adds and push results ! A ! OPR_SUB pop two elements from stack |type|size| -1# ! subtracts and push results ! @  ! OPR_MUL pop two elements from stack |type|size| -1" ! multiplys and push results ! A ! OPR_DIV pop two elements from stack |type|size| -1! ! divides and push results ! A ! OPR_AND pop two elements from stack |type|size| -1 ! ANDs and push results ! A ! OPR_IOR pop two elements from stack |type|size| -1' ! inclusive ors and push results ! A ! OPR_EOR pop two elements from stack |type|size| -1' ! exclusive ors and push results ! @ ! OPR_NEG pop one element from stack |type|size| 0! ! negates and push results ! @ ! OPR_COM pop one element from stack |type|size| 0% ! compliments and push results ! A ! OPR_INSV pop two elements from stack |type|size| -1% ! inserts bit field from first% ! into second and push results ! A ! OPR_USH pop two elements from stack |type|size| -1( ! unsigned shift and push results ! A ! OPR_ASH pop two elements from stack |type|size| -1# ! arithmetic shift and push  ! results ! A ! OPR_ROT pop two elements from stack |type|size| -1 ! rotate and push results ! E ! OPR_SEL pop three elements from stack |type|size| -2 ! if first is true  ! then push third ! else push second ! T ! OPR_REDEF pop value from stack and |type|size|counted string... -1$ ! assign this value to global ! symbol ! T ! OPR_DFLIT pop value from stack and |type|size|counted string... -1% ! assign this value to literal !  ! E ! CTL_SETRB pop value from stack and move |type|size| -1 ! to location pointer ! R ! CTL_AUGRB add quadword to location |type|size| quadword | 0  ! pointer ! U ! CTL_DFLOC pop index from stack and save |type|size|  quadword index | -1$ ! current location pointer in ! debug table using index ! X ! CTL_STLOC pop index from stack, get |type|size| quadword index | -1# ! saved location pointer in$ ! debug table using index and$ ! move it to current location ! pointer ! X ! CTL_STKDL pop index from stack, get |type|size| quadword index | 0" ! saved location pointer in$ ! debug table using index and ! p ush it !  ! : ! MNEUMONIC DESCRIPTION FORMAT STACK EFFECT: ! --------- ----------- ------ ------------3 ! 0 2 4 6 8 12 16 20 242 ! | | | | | | | | |2 ! v v v v v v v v v ! f ! STC_LP If the linkage pair specified |type|size|lp index |counted string... 0, ! by the index is referenced,/ ! i.e. all instructions ref'ing 1 ! it weren't successfully replaced/ ! by other STC_** commands, then/ ! store code address at location0 ! pointer and global symbol value) ! at location pointer + 8. ! f ! STC_LP_PSB If the linkage pair specified |type|size|lp index |counted string...|- 0U ! by the index is referenced, |size|signature block...| / ! i.e. all instructions ref'ing 1 !  it weren't successfully replaced/ ! by other STC_** commands, then/ ! store code address at location0 ! pointer and global symbol value/ ! at location pointer + 8. Store/ ! signature information in fixup- ! section following the LP_PSB ! fixups. ! f ! STC_GBL store value associated with |type|size|lp index |counted string... 0. ! global symbol  (if norm bit is0 ! set this is the procedure desc.- ! address) in the linkage pair- ! pointed to by the index only8 ! if that part of the lp is referenced. 8 ! When the norm bit is set the index will0 ! point to the second quadword of" ! the linkage pair. ! f ! STC_GCA store the value from the field |type|size|lp index |counted string... 0* ! ESDF$L_LP_1 o f the global+ ! symbol in the linkage pair- ! pointed to by the index only8 ! if that part of the lp is referenced. 7 ! The global symbol must be a procedure,. ! and the norm bit must be set./ ! The lp index must point to the4 ! first quadword of the linkage pair. !  ! f ! STC_PS store the address associated |type|size|lp index |psct|qw offset|  0/ ! with the psect + offset in the, ! lp pointed to by the index.. ! The index may point to either ! quadword. ! b ! STC_NOP_GBL Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - f ! compiler) at the location |repl inst|psc2|qw off2 |counted string 0+ ! pointed to by PS1, offset1* ! if the displacement from - ! ps2, offset2 to the value in- ! the EGSY$L_LP_1 field of the/ ! global symbol + its psect base. ! can be squished into 21 bits. !  ! b ! STC_NOP_PS Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - Y ! compiler) at the location |repl inst|psc2|qw off2 | - f ! pointed to by PS1, offset1 |psc3|qw off3 | 0* ! if the displaceme nt from , ! ps2, offset2 to ps3,offset3. ! can be squished into 21 bits. ! b ! STC_BSR_GBL Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - f ! repl inst) at the location |repl inst|psc2|qw off2 |counted string 0f ! pointed to by PS1, offset1 * ! if the displacement from - ! ps2, offset2 to the value i n- ! the EGSY$L_LP_1 field of the/ ! global symbol + its psect base. ! can be squished into 21 bits./ ! Insert the 21 bit displacement& ! into the instruction. ! b ! STC_BSR_PS Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - Y ! repl inst) at the location |repl inst|psc2|qw off2 | - f ! pointed to by PS1, offset1  |psc3|qw off3 | 0* ! if the displacement from , ! ps2, offset2 to ps3,offset3. ! can be squished into 21 bits./ ! Insert the 21 bit displacement& ! into the instruction. ! b ! STC_LDA_GBL Store a LDA (specified in |type|size|lp index |psc1|qw off1 | - f ! repl inst) at the location |repl inst|psc2|qw off2 |counted string 0f ! pointed to by P S1, offset1 * ! if the displacement from - ! ps2, offset2 to the value in. ! the EGSY$L_VALUE field of the/ ! global symbol + its psect base. ! can be squished into 16 bits.1 ! The global symbol cannot be from# ! a shareable image./ ! Insert the 16 bit displacement& ! into the instruction.1 !  The index is only nonzero if the0 ! instruction being replaced refs ! a linkage pair. ! b ! STC_LDA_PS Store a LDA (specified in |type|size|lp index |psc1|qw off1 | - Y ! repl inst) at the location |repl inst|psc2|qw off2 | - f ! pointed to by PS1, offset1 |psc3|qw off3 | 0* ! if the displacement from , ! ps2, offset2 to ps3,off set3. ! can be squished into 16 bits.7 ! PS3 cannot be a shareable image psect./ ! Insert the 16 bit displacement& ! into the instruction.1 ! The index is only nonzero if the0 ! instruction being replaced refs ! a linkage pair. ! b ! STC_BOH_GBL Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - f ! repl inst) at the location |re pl inst|ps2 |qw off2 |counted string 0c ! pointed to by ps1, off1 * ! if the displacement from * ! ps2, off2 to the value in- ! the EGSY$L_LP_1 field of the/ ! global symbol + its psect base. ! can be squished into 21 bits./ ! Insert the 21 bit displacement/ ! into the instruction. If the 0 ! displacemen t is too large, then/ ! store the low order 16 bits of2 ! the virtual address of the global/ ! symbol shifted two bits to the( ! right into the location ! ps1 + off1. ! b ! STC_BOH_PS Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - W ! repl inst) at the location |repl inst|ps2 |qw off2 | -f ! pointed to by PS1, off1  |ps3 |qw off3 | 0) ! if the displacement from& ! ps2, off2 to ps3,off3. ! can be squished into 21 bits./ ! Insert the 21 bit displacement/ ! into the instruction. If the 0 ! displacement is too large, then/ ! store the low order 16 bits of2 ! the virtual address of the global/ ! symbol shifted two bits to the( ! right into the location ! ps1, off1. ! b ! STC_NBH_GBL Equivalent to STC_NOP_GBL, |type|size|lp index |ps1 |qw off1 | - Y ! index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - f ! off2 + 4, counted string, |repl ins2|counted string... 00 ! followed by STC_BOH_GBL, index,0 ! ps2, off2, ins2, ps2, off2 + 4, ! counted string.- ! Implicit assu mption is that 5 ! the original instructions (LDQ, JSR) ! are contiguous. ! b ! STC_NBH_PS Equivalent to STC_NOP_PS, |type|size|lp index |ps1 |qw off1 | - Y ! index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - f ! off2 + 4, ps3, off3, |repl ins2|ps3 |qw off3 | 0/ ! followed by STC_BOH_PS, index,0 ! ps2, off2, ins2, ps2, off2 + 4, ! ps3, off3.- ! Implicit assumption is that 5 ! the original instructions (LDQ, JSR) ! are contiguous. !  END STRUCTURE ! ETIRDEF!DEC$ END OPTIONSwwoqΦ!*** MODULE $EVENTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! EVSB - Event Status BlockP ! The Event Status Block receives $EVENT service VMS and NT completion status  STRUCTURE /EVSB/: INTEGER*4 EVT$L_VMS_STA TUS ! VMS completion status8 INTEGER*4 EVT$L_NT_STATUS ! NT completion status END STRUCTURE ! EVSB9 PARAMETER EVSB$K_LENGTH = '00000008'X ! Length of EVSB9 PARAMETER EVSB$C_LENGTH = '00000008'X ! Length of EVSB ! J ! +-------------------------------------------------------------------+ ! | function codesJ ! +-------------------------------------------------------------------+ ! O PARAMETER EVT$FC_REGISTER_EVENT_SOURCE = '00000001'X ! register event source= P ARAMETER EVT$FC_REPORT_EVENT = '00000002'X ! report eventS PARAMETER EVT$FC_DEREGISTER_EVENT_SOURCE = '00000003'X ! deregister event source[ PARAMETER EVT$FC_FUNCTION_CODE_TOO_BIG = '00000004'X ! Always keep as last function code@ ! J ! +-------------------------------------------------------------------+ ! | item codesJ ! +-------------------------------------------------------------------+ ! P PARAMETER EVT$_SERVER_NAME = '00000001'X ! PW server name - currently ignored8 PARAMETER EVT$_SOURCE = '00000002'X ! Event source idK PARAMETER EVT$_HANDLE = '00000003'X ! handle of registered event channelC PARAMETER EVT$_EVENT_TYPE = '00000004'X ! info, warning or error? PARAMETER EVT$_EVENT_CATEGORY = '00000005'X ! Event category3 PARAMETER EVT$_EVENT_ID = '00000006'X ! Event ID9 PARAMETER EVT$_USER_SID = '00000007'X ! NT security IDN PARAMETER EVT$_NUMSTRINGS = '00000008'X ! # counted str ings in STRING_ARRAY> PARAMETER EVT$_DATASIZE = '00000009'X ! # bytes in RAW_DATAD PARAMETER EVT$_STRING_ARRAY = '0000000A'X ! event log string dataD PARAMETER EVT$_RAW_DATA = '0000000B'X ! event log non-string dataQ PARAMETER EVT$_ITEM_CODE_TOO_BIG = '0000000C'X ! Always keep as last item code ! B ! max length of SERVER_NAME string is 8 wchars, 32 bytes (4 * 8) ! 1 PARAMETER EVT$_MAX_SERVER_NAME_LEN = '00000020'X ! M ! Values for EVT$_EVENT_TYPE. NOTE! These values must b e kept in sync with3 ! the corresponding values in Microsoft's winnt.h ! = PARAMETER EVT$_SUCCESS = '00000000'X ! MS EVENTLOG_SUCCESS> PARAMETER EVT$_ERROR = '00000001'X ! MS EVENTLOG_ERROR_TYPEB PARAMETER EVT$_WARNING = '00000002'X ! MS EVENTLOG_WARNING_TYPEC PARAMETER EVT$_INFO = '00000004'X ! MS EVENTLOG_INFORMATION_TYPEI PARAMETER EVT$_AUDIT_SUCCESS = '00000008'X ! MS EVENTLOG_AUDIT_SUCCESSI PARAMETER EVT$_AUDIT_FAILURE = '00000010'X ! MS EVENTLOG_AUDIT_FAILURE!DEC$ END OPTIONS wwΦ!*** MODULE $FABDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! ' ! file access block (fab) definitions ! 5 ! the fields thru ctx must not be modified due to% ! commonality between fab/rab/xab ! 3 PARAMETER FAB$C_BID = '00000003'X ! code for fab& PARAMETER FAB$M_PPF_RAT = '00003FC0'X& PARAMETER FAB$M_PPF_IND = '00004000'X$ PARAMETER FAB$M_PPIFI = '00008000'X" PARAMETER FAB$M_ASY = '00000001'X" PARAMETER FAB$M_MXV = '00000002'X" PARAMETER FAB$M_SUP = '00000004'X" PARAMETER FAB$M_TMP = '00000008'X" PARAMETER FAB$M_TMD = '00000010'X" PARAMETER FAB$M_DFW = '00000020'X" PARAMETER FAB$M_SQO = '00000040'X" PARAMETER FAB$M_RWO = '00000080'X" PARAMETER FAB$M_POS = '00000100'X" PARAMETER FAB$M_WCK = '00000200'X" PARAMETER FAB$M_NEF = '00000400'X" PARAMETER FAB$M_RWC = '00000800'X" PARAMETER FAB$M_DMO = '00001000'X" PARAMETER FAB$M_SPL = '00002000'X" PARAMETER FAB$M_SCF = '00004000'X" PARAMETER FAB$M_DLT = '00008000'X" PARAMETER FAB$M_NFS = '00010000'X" PARAMETER FAB$M_UFO = '00020000'X" PARAMETER FAB$M_PPF = '00040000'X" PARAMETER FAB$M_INP = '00080000'X" PARAMETER FAB$M_CTG = '00100000'X" PARAMETER FAB$M_CBT = '00200000'X& PARAMETER FAB$M_SYNCSTS = '00400000'X" PARAMETER FAB$M_RCK = '00800000'X" PARAMETER FAB$M_NAM = '01000000'X" PARAMETER FAB$M_CIF = '02000000'X" PARAMETER FAB$M_ESC = '08000000'X" PARAMETER FAB$M_TEF = '10000000'X" PARAMETER FAB$M_OFP = '20000000'X" PARAMETER FAB$M_KFO = '40000000'X) PARAMETER FAB$M_EXTEND_FOP = '80000000'X" PARAMETER FAB$M_ERL = '00008000'X" PARAMETER FAB$M_PUT = '00000001'X" PARAMETER FAB$M_GET = '00000002'X" PARAMETER FAB$M_DEL = '00000004'X" PARAMETER FAB$M_UPD = '00000008'X" PARAMETER FAB$M_TRN = '00000010'X" PARAMETER FAB$M_BIO = '00000020'X" PARAMETER FAB$M_BRO = '00000040'X" PARAMETER FAB$M_EXE = '00000080'X% PARAMETER FAB$M_SHRPUT = '00000001'X% PARAMETER FAB$M_SHRGET = '00000002'X% PARAMETER FAB$M_SHRDEL = '000 00004'X% PARAMETER FAB$M_SHRUPD = '00000008'X" PARAMETER FAB$M_MSE = '00000010'X" PARAMETER FAB$M_NIL = '00000020'X" PARAMETER FAB$M_UPI = '00000040'X" PARAMETER FAB$M_NQL = '00000080'X" PARAMETER FAB$M_ORG = '000000F0'X1 PARAMETER FAB$C_SEQ = '00000000'X ! sequential/ PARAMETER FAB$C_REL = '00000010'X ! relative. PARAMETER FAB$C_IDX = '00000020'X ! indexed- PARAMETER FAB$C_HSH = '00000030'X ! hashed7 PARAMETER FAB$C_SPECIAL = '00000040'X ! special file" PARAMETER FAB$M_FTN  = '00000001'X! PARAMETER FAB$M_CR = '00000002'X" PARAMETER FAB$M_PRN = '00000004'X" PARAMETER FAB$M_BLK = '00000008'X" PARAMETER FAB$M_MSB = '00000010'X9 PARAMETER FAB$C_FIFO = '00000001'X ! FIFO special fileF PARAMETER FAB$C_CHAR_SPECIAL = '00000002'X ! character special fileC PARAMETER FAB$C_BLOCK_SPECIAL = '00000003'X ! block special fileR PARAMETER FAB$C_SYMLINK = '00000004'X ! symbolic link special file for pre-V8.2_ PARAMETER FAB$C_SYMBOLIC_LINK = '00000005'X ! symbolic link special file for V8.2 and beyond> PARAMETER FAB$C_RFM_DFLT = '00000002'X ! var len is defaultE PARAMETER FAB$C_UDF = '00000000'X ! undefined (also stream binary); PARAMETER FAB$C_FIX = '00000001'X ! fixed length records> PARAMETER FAB$C_VAR = '00000002'X ! variable length records= PARAMETER FAB$C_VFC = '00000003'X ! variable fixed controlT PARAMETER FAB$C_STM = '00000004'X ! RMS-11 stream (valid only for sequential org)R PARAMETER FAB$C_STMLF = '00000005'X ! LF stream (vali d only for sequential org)R PARAMETER FAB$C_STMCR = '00000006'X ! CR stream (valid only for sequential org)? PARAMETER FAB$C_MAXRFM = '00000006'X ! maximum rfm supported& PARAMETER FAB$M_ONLY_RU = '00000001'X! PARAMETER FAB$M_RU = '00000002'X! PARAMETER FAB$M_BI = '00000004'X! PARAMETER FAB$M_AI = '00000008'X! PARAMETER FAB$M_AT = '00000010'X' PARAMETER FAB$M_NEVER_RU = '00000020'X+ PARAMETER FAB$M_JOURNAL_FILE = '00000040'X( PARAMETER FAB$M_SSIO_RQST = '00000001'X+ PARAMETER FAB$M_SSIO_GRANTED = '00000002'X' PARAMETER FAB$M_SSIO_FOC = '00000004'X% PARAMETER FAB$M_RCF_RU = '00000001'X% PARAMETER FAB$M_RCF_AI = '00000002'X% PARAMETER FAB$M_RCF_BI = '00000004'X STRUCTURE /FABDEF/' BYTE FAB$B_BID ! block id( BYTE FAB$B_BLN ! block len UNION MAP6 INTEGER*2 FAB$W_IFI ! internal file index END MAP MAP( PARAMETER FAB$S_PPF_RAT = 8S PARAMETER FAB$V_PPF_RAT = 6 ! rat value for process-permanent files( PARAMETER FAB$S_PPF_IND = 1X PARAMETER FAB$V_PPF_IND = 14 ! indirect access to process-permanent file! ! (i.e., restricted operations)& PARAMETER FAB$S_PPIFI = 1' PARAMETER FAB$V_PPIFI = 15B BYTE %FILL (2) ! indicates that this is PPF file END MAP END UNION UNION MAP/ INTEGER*4 FAB$L_FOP ! file options END MAP MAP$  PARAMETER FAB$S_ASY = 1B PARAMETER FAB$V_ASY = 0 ! asynchronous operations$ PARAMETER FAB$S_MXV = 1B PARAMETER FAB$V_MXV = 1 ! maximize version number$ PARAMETER FAB$S_SUP = 1B PARAMETER FAB$V_SUP = 2 ! supersede existing file$ PARAMETER FAB$S_TMP = 1@ PARAMETER FAB$V_TMP = 3 ! create temporary file$ PARAMETER FAB$S_TMD = 1M PARAMETER FAB$V_TMD = 4 ! create temp f ile marked for delete$ PARAMETER FAB$S_DFW = 1G PARAMETER FAB$V_DFW = 5 ! deferred write (rel and idx)$ PARAMETER FAB$S_SQO = 1A PARAMETER FAB$V_SQO = 6 ! sequential access only$ PARAMETER FAB$S_RWO = 1< PARAMETER FAB$V_RWO = 7 ! rewind mt on open$ PARAMETER FAB$S_POS = 1D PARAMETER FAB$V_POS = 8 ! use next magtape position$ PARAMETER FAB$S_WCK = 19 PARAM ETER FAB$V_WCK = 9 ! write checking$ PARAMETER FAB$S_NEF = 1J PARAMETER FAB$V_NEF = 10 ! inhibit end of file positioning$ PARAMETER FAB$S_RWC = 1= PARAMETER FAB$V_RWC = 11 ! rewind mt on close$ PARAMETER FAB$S_DMO = 1Q PARAMETER FAB$V_DMO = 12 ! dismount mt on close (not implemented)$ PARAMETER FAB$S_SPL = 1> PARAMETER FAB$V_SPL = 13 ! spool file on close$ PARAMETER F AB$S_SCF = 1G PARAMETER FAB$V_SCF = 14 ! submit command file on close$ PARAMETER FAB$S_DLT = 1< PARAMETER FAB$V_DLT = 15 ! delete sub-option$ PARAMETER FAB$S_NFS = 1H PARAMETER FAB$V_NFS = 16 ! non-file structured operation$ PARAMETER FAB$S_UFO = 1M PARAMETER FAB$V_UFO = 17 ! user file open - no rms operations$ PARAMETER FAB$S_PPF = 1O PARAMETER FAB$V_PPF = 18 ! process  permanent file (pio segment)$ PARAMETER FAB$S_INP = 1L PARAMETER FAB$V_INP = 19 ! process-permanent file is 'input'$ PARAMETER FAB$S_CTG = 1? PARAMETER FAB$V_CTG = 20 ! contiguous extension$ PARAMETER FAB$S_CBT = 1> PARAMETER FAB$V_CBT = 21 ! contiguous best try( PARAMETER FAB$S_SYNCSTS = 1d PARAMETER FAB$V_SYNCSTS = 22 ! Synchronous status notification for asynchronous rout$  PARAMETER FAB$S_RCK = 18 PARAMETER FAB$V_RCK = 23 ! read checking$ PARAMETER FAB$S_NAM = 1^ PARAMETER FAB$V_NAM = 24 ! use name block dvi, did, and/or fid fields for open$ PARAMETER FAB$S_CIF = 1A PARAMETER FAB$V_CIF = 25 ! create if non-existent$ PARAMETER FAB$S_ESC = 1V PARAMETER FAB$V_ESC = 27 ! 'escape' to non-standard function ($modify)$ PARAMETER FAB$S_TEF = 1d P ARAMETER FAB$V_TEF = 28 ! truncate at eof on close (write-accessed seq. disk file oC ! truncate at eof on close (write-accessed seq. disk file onl$ PARAMETER FAB$S_OFP = 1T PARAMETER FAB$V_OFP = 29 ! output file parse (only name type sticky)$ PARAMETER FAB$S_KFO = 1[ PARAMETER FAB$V_KFO = 30 ! known file open (image activator only release 1)+ PARAMETER FAB$S_EXTEND_FOP = 1, PARAMETER FAB$V_EXTEND_FOP = 31- BYTE %FILL (4) ! extend FOP END MAP MAP$ PARAMETER FAB$S_ERL = 1C PARAMETER FAB$V_ERL = 15 ! Erase Regardless of Lock BYTE %FILL (1) END MAP END UNION% INTEGER*4 FAB$L_STS ! status+ INTEGER*4 FAB$L_STV ! status value2 INTEGER*4 FAB$L_ALQ ! allocation quantity: INTEGER*2 FAB$W_DEQ ! default allocation quantity UNION MAP. BYTE FAB$B_FAC !  file access END MAP MAP$ PARAMETER FAB$S_PUT = 15 PARAMETER FAB$V_PUT = 0 ! put access$ PARAMETER FAB$S_GET = 15 PARAMETER FAB$V_GET = 1 ! get access$ PARAMETER FAB$S_DEL = 18 PARAMETER FAB$V_DEL = 2 ! delete access$ PARAMETER FAB$S_UPD = 18 PARAMETER FAB$V_UPD = 3 ! update access$ PARAMETER FAB$S_TRN = 1: PARAMETER FAB$V_TRN = 4 !  truncate access$ PARAMETER FAB$S_BIO = 1; PARAMETER FAB$V_BIO = 5 ! block i/o access$ PARAMETER FAB$S_BRO = 1F PARAMETER FAB$V_BRO = 6 ! block and record i/o access$ PARAMETER FAB$S_EXE = 1^ PARAMETER FAB$V_EXE = 7 ! execute access (caller must be exec or kernel mode, ! ufo must also be set) BYTE %FILL (1) END MAP END UNION UNION MAP/ BYTE FAB$B_SHR  ! file sharing END MAP MAP' PARAMETER FAB$S_SHRPUT = 17 PARAMETER FAB$V_SHRPUT = 0 ! put access' PARAMETER FAB$S_SHRGET = 17 PARAMETER FAB$V_SHRGET = 1 ! get access' PARAMETER FAB$S_SHRDEL = 1: PARAMETER FAB$V_SHRDEL = 2 ! delete access' PARAMETER FAB$S_SHRUPD = 1: PARAMETER FAB$V_SHRUPD = 3 ! update access$ PARAMETER FAB$S_MSE = 1H  PARAMETER FAB$V_MSE = 4 ! multi-stream connects enabled$ PARAMETER FAB$S_NIL = 15 PARAMETER FAB$V_NIL = 5 ! no sharing$ PARAMETER FAB$S_UPI = 1V PARAMETER FAB$V_UPI = 6 ! user provided interlocking (allows multiple ! writers to seq. files)$ PARAMETER FAB$S_NQL = 1$ PARAMETER FAB$V_NQL = 7@ BYTE %FILL (1) ! no query locking (file level) END MAP END UNION+ INTEGER*4 FAB$L_CTX ! user context ! -----*****4 BYTE FAB$B_RTV ! retrieval window size UNION MAP4 BYTE FAB$B_ORG ! file organization END MAP MAP$ PARAMETER FAB$S_ORG = 4$ PARAMETER FAB$V_ORG = 4 BYTE %FILL (1) END MAP END UNION UNION MAP0 BYTE FAB$B_RAT ! record format END MAP MAP$ PARAMETER FAB$S_FTN = 1?  PARAMETER FAB$V_FTN = 0 ! fortran carriage-ctl# PARAMETER FAB$S_CR = 1C PARAMETER FAB$V_CR = 1 ! lf-record-cr carriage ctl$ PARAMETER FAB$S_PRN = 1B PARAMETER FAB$V_PRN = 2 ! print-file carriage ctl$ PARAMETER FAB$S_BLK = 1O PARAMETER FAB$V_BLK = 3 ! records don't cross block boundaries$ PARAMETER FAB$S_MSB = 1C PARAMETER FAB$V_MSB = 4 ! MSB formatted byte count  BYTE %FILL (1) END MAP MAP? BYTE FAB$B_SPECIAL_TYPE ! type of special file END MAP END UNION, BYTE FAB$B_RFM ! record format UNION MAPN BYTE FAB$B_JOURNAL ! journaling options (from FH2$B_JOURNAL) END MAP MAP ! may be set at a time( PARAMETER FAB$S_ONLY_RU = 1V PARAMETER FAB$V_ONLY_RU = 0 ! file is accessible only in recovery unit# PAR AMETER FAB$S_RU = 1F PARAMETER FAB$V_RU = 1 ! enable recovery unit journal# PARAMETER FAB$S_BI = 1E PARAMETER FAB$V_BI = 2 ! enable before image journal# PARAMETER FAB$S_AI = 1D PARAMETER FAB$V_AI = 3 ! enable after image journal# PARAMETER FAB$S_AT = 1D PARAMETER FAB$V_AT = 4 ! enable audit trail journal) PARAMETER FAB$S_NEVER_RU = 1X PARAMETER FAB$V_NEVER_RU = 5  ! file is never accessible in recovery unit- PARAMETER FAB$S_JOURNAL_FILE = 1H PARAMETER FAB$V_JOURNAL_FILE = 6 ! this is a journal file BYTE %FILL (1) END MAP END UNIOND BYTE FAB$B_RU_FACILITY ! recoverable facility id number UNION MAP3 INTEGER*2 FAB$W_FOPEXT ! FOP extension END MAP MAP* PARAMETER FAB$S_SSIO_RQST = 1E PARAMETER FAB$V_SSIO_RQST = 0 ! SSIO access requested- PARAMETER FAB$S_SSIO_GRANTED = 1E PARAMETER FAB$V_SSIO_GRANTED = 1 ! SSIO access granted) PARAMETER FAB$S_SSIO_FOC = 1B PARAMETER FAB$V_SSIO_FOC = 2 ! SSIO flush-on-close BYTE %FILL (1) END MAP END UNION* INTEGER*4 FAB$L_XAB ! xab address UNION MAP4 INTEGER*4 FAB$L_NAM ! nam block address END MAP MAP6 INTEGER*4 FAB$L_NAML ! naml block address END MAP END UNION7 INTEGER*4 FAB$L_FNA ! file name string address< INTEGER*4 FAB$L_DNA ! default file name string addr4 BYTE FAB$B_FNS ! file name string size7 BYTE FAB$B_DNS ! default name string size2 INTEGER*2 FAB$W_MRS ! maximum record size4 INTEGER*4 FAB$L_MRN ! maximum record number1 INTEGER*2 FAB$W_BLS ! blocksize for tape* BYTE FAB$B_BKS ! bucket size0 BYTE FAB $B_FSZ ! fixed header size5 INTEGER*4 FAB$L_DEV ! device characteristics> INTEGER*4 FAB$L_SDC ! spooling device characteristics2 INTEGER*2 FAB$W_GBC ! Global buffer count UNION MAP9 BYTE FAB$B_ACMODES ! agent access modes END MAP MAP) PARAMETER FAB$S_LNM_MODE = 2B PARAMETER FAB$V_LNM_MODE = 0 ! ACMODE for log nams* PARAMETER FAB$S_CHAN_MODE = 2B PARAMETER FAB$V _CHAN_MODE = 2 ! ACMODE for channel* PARAMETER FAB$S_FILE_MODE = 2` PARAMETER FAB$V_FILE_MODE = 4 ! ACMODE to use for determining file accessibility- PARAMETER FAB$S_CALLERS_MODE = 2T PARAMETER FAB$V_CALLERS_MODE = 6 ! ACMODE for user structure probing;( ! maximized with actual mode of caller BYTE %FILL (1) END MAP END UNION UNION MAPA BYTE FAB$B_RCF ! (only for use by RMS Recove ry) END MAP MAP' PARAMETER FAB$S_RCF_RU = 1C PARAMETER FAB$V_RCF_RU = 0 ! recovery unit recovery' PARAMETER FAB$S_RCF_AI = 1A PARAMETER FAB$V_RCF_AI = 1 ! after image recovery' PARAMETER FAB$S_RCF_BI = 1B PARAMETER FAB$V_RCF_BI = 2 ! before image recovery BYTE %FILL (1) END MAP END UNIONS INTEGER*2 FAB$W_GBC_INITIAL ! Initial Global Buffer Count declared for fileJ INTEGER*2 FAB$W_RESERVED_MBZ ! MBZ - reserved to HP for future use END STRUCTURE ! FABDEF> ! basealign on aggregate FABDEF operates after aggregate end4 PARAMETER FAB$K_BLN = '00000050'X ! length of fab4 PARAMETER FAB$C_BLN = '00000050'X ! length of fab!DEC$ END OPTIONS wwhVRΦ!*** MODULE $FALDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:47.03  !  !  ! VERSION: 'X-1' !  ! * *6 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES T HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! ++ ! FACILITY: ! H ! MESSAGES ARE FOR THE FAL (DECNET FILE ACCESS LISTENER) FACILITY, BUT* ! ARE GENERATED ON BEHALF OF FAL BY RMS. ! ! ABSTRACT: ! I ! THIS MODULE DEFINES FAL STATUS CODE SYMBOLS AND CORRESPONDING MESSAGEH ! TEXT. NOTE THAT THIS MESSAGE FILE IS MAINTAINED BY THE RMS FACILITY,H ! NOT THE FAL FACILITY, BECAUSE RMS DOES THE TRANSLATION OF DAP STATUSL ! INTO FAL STATUS CODES WHICH ARE REPORTED AS SECONDARY STATUS INFORMATIONK ! TO THE RMS$_NETFAIL AND RMS$_SUPPORT COMPLETION CODES ON BEHALF OF FAL. !  ! ENVIRONMENT: VAX/VMS ! 7 ! AUTHOR: JAMES A. KRYCKA, CREATION DATE: 15-JAN-1982 !  ! MODIFIED BY: ! * ! X-1 RAB RICHARD A. BISHOP 24-JUN-1991 ! MOVED TO [STARLET] FACILITY ! & ! ================================== ! OLD AUDIT TRAIL FOLLOWS: ! . ! X-3 SAD009 STUART A. DAVIDSON 06-OCT-1986! ! ADD STATUS CODES FOR SNADTF. ! ) ! X-2 DAS DAVID A. SOLOMON 01-AUG-1986: ! REMOVE /MACRO= ON .FACILITY SO THE PROPER MACROS WILL" ! BE GENERATED IN THE SDL FILE. ! + ! V03-001 JAK0147 J A KRYCKA 09-JUL-1984? ! ADD ERROR CODES THAT CORRESPOND TO DAP MICCODES 416 TO 470= ! (OCTAL) FOR MACCODES 4 THROUGH 7 DEFINED IN THE DAP V7.0 ! SPECIFICATION. !  ! -- ! ++E ! DEFINE FAL STATUS CODES FOR USE BY RMS AS SECONDARY STATUS CODES. !  ! LAYOUT OF MESSAGE SPACE: ! 1 ! MSG NUMBERS MSG NUMBERS MSG CODES DESCRIPTION) ! (DECIMAL) (HEXADECIMAL) (HEXADECIMAL) ! . ! 0 - 1023 0000 - 03FF 8000 - 9FFF UNUSED8 ! 1024 - 2047 0400 - 07FF A000 - BFFF FOR RMS$_NETFAIL8 ! 2048 - 4095 0800 - 0FFF C000 - FFFF FOR RMS$_SUPPORT ! --& PARAMETER FAL$_FACILITY = '000001F7'X ! +P ! DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_NETFAIL COMPLETION9 ! CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. ! J ! USE THE FOLLOWING FORMUL A TO MAP A DAP STATUS CODE (STSCODE FIELD WITHN ! MACCODE = 4 THRU 7) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): ! D ! MESSAGE-CODE = (2**15 + ((MICCODE + 1024) * 8) + SEVERITY-LEVEL) ! K ! NOTE: THE FIRST THREE CHARACTERS OF THE MESSAGE IDENTIFICATION MNEMONICF ! FOR EACH MESSAGE CODE IN THIS SET INDICATES ITS ORIGIN AS FOLLOWS: ! I ! RMS --- THE CODE IS DEFINED FOR RMS-11 OR RMS-20, BUT NOT FOR RMS-32.9 ! (RMS-32 COMPLETION CODES ARE DEFINED IN RMSDEF.MDL.); ! FCS --- THE CODE IS DEFINED FOR THE FCS-11 ENVIRONMENT.< ! TEN --- THE CODE IS DEFINED FOR THE TOPS-10 ENVIRONMENT.7 ! DAP --- ORIGIN IN THE DAP SPECIFICATION IS UNKNOWN. ! -& PARAMETER FAL$_OFFSET_A = '00000400'X ! MICCODE = 0000 (OCTAL)% PARAMETER FAL$_DAPFAIL = '01F7A004'X$ PARAMETER FAL$_RMSABO = '01F7A00C'X ! MICCODE = 0011 (OCTAL)$ PARAMETER FAL$_RMSAST = '01F7A04C'X$ PARAMETER FAL$_RMSBPA = '01F7A054'X$ PARAMETER FAL$_RMSBPS = '01F7A05C'X ! MICCODE = 0026 (OCTAL)$ PARAMETER FAL$_RMSCLS = '01F7A0B4'X ! MICCODE = 0056 (OCTAL)$ PARAMETER FAL$_RMSFID = '01F7A174'X ! MICCODE = 0071 (OCTAL)$ PARAMETER FAL$_RMSINI = '01F7A1CC'X ! MICCODE = 0102 (OCTAL)$ PARAMETER FAL$_RMSLBL = '01F7A214'X$ PARAMETER FAL$_RMSLBY = '01F7A21C'X$ PARAMETER FAL$_RMSLCH = '01F7A224'X ! MICCODE = 0106 (OCTAL)$ PARAMETER FAL$_RMSLOC = '01F7A234'X$ PARAMETER FAL$_RMSMAP = '01F7A23C'X ! MICCODE = 0115 (OCTAL)$ PARAMETER FAL$_RMSNID = '01F7A26C'X ! MICCODE = 0117 (OCTAL)$ PARAMETER FAL$_RMSOPN = '01F7A27C'X ! MICCIDE = 0124 (OCTAL)$ PARAMETER FAL$_RMSPRM = '01F7A2A4'X ! MICCODE = 0153 (OCTAL)$ PARAMETER FAL$_RMSSTK = '01F7A35C'X ! MICCODE = 0162 (OCTAL)$ PARAMETER FAL$_RMSVOL = '01F7A394'X ! MICCODE = 0170 (OCTAL)$ PARAMETER FAL$_RMSCAA = '01F7A3C4'X ! MICCODE = 0231 (OCTAL)$ PARAMETER FAL$_RMSBLK = '01F7A4CC'X$ PARAMETER FAL$_RMSBSZ = '01F7A4D4'X$ PARAMETER FAL$_RMSCDR = '01F7A4DC'X$ PARAMETER FAL$_RMSCGJ = '01F7A4E4'X$ PARAMETER FAL$_RMSCOF = '01F7A4EC'X$ PARAMETER FAL$_RMSJFN = '01F7A4F4'X$ PARAMETER FAL$_RMSPEF = '01F7A4FC'X$ PARAMETER FAL$_RMSTRU = '01F7A504'X$ PARAMETER FAL$_RMSUDF = '01F7A50C'X$ PARAMETER FAL$_RMSXCL = '01F7A514'X' PARAMETER FAL$_DAPDIRFUL = '01F7A51C'X$ PARAMETER FAL$_FCSHWR = '01F7A524'X$ PARAMETER FAL$_FCSFHE = '01F7A52C'X' PARAMETER FAL$_DAPWRTEOF = '01F7A534'X$ PARAMETER FAL$_FCSONP = '01F7A53C'X$ PARAMETER FAL$_FCSDNA = '01F7A544'X$ PARAMETER FAL$_FCSDAA = '01F7A54C'X$ PARAMETER FAL$_FCSDUN = '01F7A554'X$ PARAMETER FAL$_FCSRSU = '01F7A55C'X$ PARAMETER FAL$_FCSOVR = '01F7A564'X$ PARAMETER FAL$_FCSBCC = '01F7A56C'X$ PARAMETER FAL$_FCSNOD = '01F7A574'X$ PARAMETER FAL$_FCSIFU = '01F7A57C'X$ PARAMETER FAL$_FCSHFU = '01F7A584'X$ PARAMETER FAL$_FCSWAC = '01F7A58C'X$ PARAMETER FAL$_FCSCKS = '01F7A594'X$ PARAMETER FAL$_FCSWAT = '01F7A59C'X$ PARAMETER FAL$_FCSALN = '01F7A5A4'X$ PARAMETER FAL$_FCSBTF = '01F7A5AC'X$ PARAMETER FAL$_FCSILL = '01F7A5B4'X$ PARAMETER FAL$_FCS2DV = '01F7A5BC'X$ PARAMETER FAL$_FCSFEX = '01F7A5C4'X$ PARAMETER FAL$_FCSRNM = '01F7A5CC'X$ PARAMETER FAL$_FCSFOP = '01F7A5D4'X$ PARAMETER FAL$_FCSVER = '01F7A5DC'X$ PARAMETER FAL$_FCSEOV = '01F7A5E4'X$ PARAMETER FAL$_FCSDAO = '01F7A5EC'X$ PARAMETER FAL$_FCSBBE = '01F7A5F4'X$ PARAMETER FAL$_FCSEOT = '01F7A5FC'X$ PARAMETER FAL$_FCSNBF = '01F7A604'X$ PARAMETER FAL$_FCSNBK = '01F7A60C'X$ PARAMETER FAL$_FCSNST = '01F7A614'X$ PARAMETER FAL$_FCSULK = '01F7A61C'X$ PARAMETER FAL$_FCSNLN = '01F7A624'X$ PARAMETER FAL$_FCSSRE = '01F7A62C'X ! MICCODE = 0311 (OCTAL)' PARAMETER FAL$_DAPQUOEXC = '01F7A64C'X ! MICCODE = 0346 (OCTAL)' PARAMETER FAL$_DAPDIRCAF = '01F7A734'X' PARAMETER FAL$_DAPDIRCRA = '01F7A73C'X' PARAMETER FAL$_DAPDIRPRO = '01F7A744'X' PARAMETER FAL$_DAPDIRPRA = '01F7A74C'X' PARAMETER FAL$_DAPDIRNFA = '01F7A754'X' PARAMETER FAL$_DAPDIRCON = '01F7A75C'X ! MICCODE = 0416 (OCTAL)' PARAMETER FAL$_TENFILMOD = '01F7A874'X& PARAMETER FAL$_TENDEVNA = '01F7A87C'X& PARAMETER FAL$_TENDEVNF = '01F7A884'X' PARAMETER FAL$_TENPARALL = '01F7A88C'X' PARAMETER FAL$_TENBNFREE = '01F7A894'X% PARAMETER FAL$_TENCSDF = '01F7A89C'X% PARAMETER FAL$_TENCDDF = '01F7A8A4'X& PARAMETER FAL$_TENSFDNF = '01F7A8AC'X$ PARAMETER FAL$_TENSLE = '01F7A8B4'X' PARAMETER FAL$_TENSFDCNT = '01F7A8BC'X& PARAMETER FAL$_TENNCESL = '01F7A8C4'X' PARAMETER FAL$_TENCUPFIL = '01F7A8CC'X' PARAMETER FAL$_TENNETCAP = '01F7A8D4'X& PARAMETER FAL$_TENTSKNA = '01F7A8DC'X& PARAMETER FAL$_TENNODNF = '01F7A8E4'X' P ARAMETER FAL$_TENSFDREN = '01F7A8EC'X' PARAMETER FAL$_TENCDFNDR = '01F7A8F4'X' PARAMETER FAL$_TENJCREAD = '01F7A8FC'X' PARAMETER FAL$_TENRENSFD = '01F7A904'X' PARAMETER FAL$_TENDEVDWN = '01F7A90C'X' PARAMETER FAL$_TENDEVRES = '01F7A914'X' PARAMETER FAL$_TENDEVMDA = '01F7A91C'X' PARAMETER FAL$_TENDEVALL = '01F7A924'X& PARAMETER FAL$_TENILLDM = '01F7A92C'X' PARAMETER FAL$_TENLPTPAG = '01F7A934'X' PARAMETER FAL$_TENLPTVFU = '01F7A93C'X' PARAMETER FAL$_TENLPTCHR = '01F7A944'X' PARAMETER FAL$_TENLPTRAM = '01F7A94C'X' PARAMETER FAL$_TENFILSPC = '01F7A954'X ! MICCODE = 0453 (OCTAL)& PARAMETER FAL$_TENNSNOD = '01F7A95C'X& PARAMETER FAL$_TENANODI = '01F7A964'X& PARAMETER FAL$_TENSNODI = '01F7A96C'X& PARAMETER FAL$_TENNSDEV = '01F7A974'X& PARAMETER FAL$_TENADEVI = '01F7A97C'X& PARAMETER FAL$_TENSDEVI = '01F7A984'X& PARAMETER FAL$_TENNSDIR = '01F7A98C'X& PARAMETER FAL$_TENADIRI = '01F7A994'X& PARAMETER FAL$_TENSDIRI = '01F7A99C'X& PARAMETER FAL$_TENNSFIL = '01F7A9A4'X& PARAMETER FAL$_TENAFILI = '01F7A9AC'X& PARAMETER FAL$_TENSFILI = '01F7A9B4'X& PARAMETER FAL$_TENAFILR = '01F7A9BC'X& PARAMETER FAL$_TENSFILR = '01F7A9C4'X ! MICCODE = 475 (OCTAL)' PARAMETER FAL$_DTFFALSHT = '01F7A9EC'X& PARAMETER FAL$_DTFNOFIL = '01F7A9F4'X& PARAMETER FAL$_DTFNOREC = '01F7A9FC'X' PARAMETER FAL$_DTFNOTREG = '01F7AA04'X' PARAMETER FAL$_DTFOPRABO = '01F7AA0C'X ! MICCODE = 504 (OCTAL)& PARAMETER FAL$_DTFRDCKP = '01F7AA24'X ! +P ! DEFINE FAL STATUS CODES THAT ARE A SSOCIATED WITH THE RMS$_SUPPORT COMPLETION9 ! CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. ! J ! USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITHG ! MACCODE = 2) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): ! D ! MESSAGE-CODE = (2**15 + ((MICCODE + 2048) * 8) + SEVERITY-LEVEL) ! O ! NOTE: THE INTENT IN THIS SECTION IS TO DEFINE FAL STATUS CODES ONLY FOR DAPH ! FIELDS THAT CORRESPOND DIRECTLY TO RMS CONTROL BLOCK FIELDS USED FORI ! INPU T. FOR OTHER DAP FIELDS THAT MAY BE REJECTED BY THE REMOTE FAL ASJ ! BEING UNSUPPORTED, THE RMS$_SUP COMPLETION CODE IS RETURNED IN THE STSI ! FIELD OF THE FAB OR RAB WITH AN ASSOCIATED DAP CODE IN THE STV FIELD. ! -& PARAMETER FAL$_OFFSET_B = '00000800'X ! MICCODE = 0222 (OCTAL)! PARAMETER FAL$_ORG = '01F7C494'X! PARAMETER FAL$_RFM = '01F7C49C'X! PARAMETER FAL$_RAT = '01F7C4A4'X! PARAMETER FAL$_BLS = '01F7C4AC'X! PARAMETER FAL$_MRS = '01F7C4B4'X" PARAMETER FAL$_ALQ1 = '01F7C4BC 'X! PARAMETER FAL$_BKS = '01F7C4C4'X! PARAMETER FAL$_FSZ = '01F7C4CC'X! PARAMETER FAL$_MRN = '01F7C4D4'X ! MICCODE = 0234 (OCTAL)" PARAMETER FAL$_DEQ1 = '01F7C4E4'X" PARAMETER FAL$_FOP1 = '01F7C4EC'X ! MICCODE = 0241 (OCTAL)! PARAMETER FAL$_LRL = '01F7C50C'X ! MICCODE = 0320 (OCTAL)% PARAMETER FAL$_ACCFUNC = '01F7C684'X ! MICCODE = 0323 (OCTAL)! PARAMETER FAL$_FAC = '01F7C69C'X! PARAMETER FAL$_SHR = '01F7C6A4'X ! MICCODE = 0420 (OCTAL)% PARAMETER FAL$_CTLFUNC = '01F7C88 4'X ! MICCODE = 0422 (OCTAL)! PARAMETER FAL$_RAC = '01F7C894'X! PARAMETER FAL$_KEY = '01F7C89C'X! PARAMETER FAL$_KRF = '01F7C8A4'X! PARAMETER FAL$_ROP = '01F7C8AC'X ! MICCODE = 0520 (OCTAL)% PARAMETER FAL$_CONFUNC = '01F7CA84'X ! MICCODE = 0720 (OCTAL)% PARAMETER FAL$_CMPFUNC = '01F7CE84'X" PARAMETER FAL$_FOP2 = '01F7CE8C'X ! MICCODE = 1221 (OCTAL)! PARAMETER FAL$_FLG = '01F7D48C'X! PARAMETER FAL$_DFL = '01F7D494'X! PARAMETER FAL$_IFL = '01F7D49C'X ! MICCODE = 1225 ( OCTAL)! PARAMETER FAL$_POS = '01F7D4AC'X! PARAMETER FAL$_SIZ = '01F7D4B4'X! PARAMETER FAL$_REF = '01F7D4BC'X! PARAMETER FAL$_KNM = '01F7D4C4'X! PARAMETER FAL$_NUL = '01F7D4CC'X! PARAMETER FAL$_IAN = '01F7D4D4'X! PARAMETER FAL$_LAN = '01F7D4DC'X! PARAMETER FAL$_DAN = '01F7D4E4'X! PARAMETER FAL$_DTP = '01F7D4EC'X ! MICCODE = 1321 (OCTAL)! PARAMETER FAL$_VOL = '01F7D68C'X! PARAMETER FAL$_ALN = '01F7D694'X! PARAMETER FAL$_AOP = '01F7D69C'X! PARAMETER FAL$_LOC = '01F7D6A4'X ! MICCODE = 1326 (OCTAL)" PARAMETER FAL$_ALQ2 = '01F7D6B4'X! PARAMETER FAL$_AID = '01F7D6BC'X! PARAMETER FAL$_BKZ = '01F7D6C4'X" PARAMETER FAL$_DEQ2 = '01F7D6CC'X ! MICCODE = 1521 (OCTAL)! PARAMETER FAL$_CDT = '01F7DA8C'X! PARAMETER FAL$_RDT = '01F7DA94'X! PARAMETER FAL$_EDT = '01F7DA9C'X! PARAMETER FAL$_RVN = '01F7DAA4'X ! MICCODE = 1621 (OCTAL)# PARAMETER FAL$_OWNER = '01F7DC8C'X% PARAMETER FAL$_PROTSYS = '01F7DC94'X% PARAMETER FAL$_PROTOWN = '01F7DC9C'X% PARAMETER FAL$_PROTGRP = '01F7DCA4'X% PARAMETER FAL$_PROTWLD = '01F7DCAC'X!DEC$ END OPTIONSww[=Φ!*** MODULE $FDLDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +6 ! Define the version level of the FDL file structure ! -& PARAMETER FDL$C_VERSION = '00000002'X& PARAMETER FDL$K_VERSION = '00000002'X ! +$ ! FDL CALL INTERFACE CONTROL FLAGS ! -% PARAMETER FDL$M_SIGNAL = '00000001'X) PARAMETER FDL$M_FDL_STRING = '00000002'X- PARAMETER FDL$M_DEFAULT_STRIN G = '00000004'X* PARAMETER FDL$M_FULL_OUTPUT = '00000008'X( PARAMETER FDL$M_$CALLBACK = '00000010'X) PARAMETER FDL$M_LONG_NAMES = '00000020'X STRUCTURE /FDLDEF/ UNION MAP# PARAMETER FDL$S_SIGNAL = 1D PARAMETER FDL$V_SIGNAL = 0 ! SIGNAL ERRORS, DON'T RETURN' PARAMETER FDL$S_FDL_STRING = 1K PARAMETER FDL$V_FDL_STRING = 1 ! MAIN FDL SPEC IS A CHAR STRING+ PARAMETER FDL$S_DEFAULT_STRING = 1Q PARAMETER FDL$V_DEFAULT_STRING = 2  ! DEFAULT FDL SPEC IS A CHAR STRING( PARAMETER FDL$S_FULL_OUTPUT = 1K PARAMETER FDL$V_FULL_OUTPUT = 3 ! PRODUCE A 'COMPLETE' FDL SPEC& PARAMETER FDL$S_$CALLBACK = 1K PARAMETER FDL$V_$CALLBACK = 4 ! USED BY EDF ON INPUT (DEC ONLY)' PARAMETER FDL$S_LONG_NAMES = 1P PARAMETER FDL$V_LONG_NAMES = 5 ! Allocate and use NAML for FDL$PARSE BYTE %FILL (1) END MAP END UNION END STRUCTURE ! FDLDEF!DEC$ END OPTIONS ww Φ!*** MODULE $FDLMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:04.86 !  !  ! VERSION: 'X-4' ! M ! *************************************************************************M ! * *M ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978, 1979, 1980, 1981, *M ! * 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 *M ! * ALL RIGHTS RESERVED. *M ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *M ! * STATES. *M ! * *M ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *M ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *M ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *M ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *M ! * DIGITAL EQUIPMENT CORPORATION. *M ! * *M ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *M ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *M ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *M ! * *M ! ************************************************************************* ! ++ ! " ! FACILITY: VAX-11 FDL UTILITIES !  ! ENVIRONMENT: !  ! VAX/VMS OPERATING SYSTEM ! ! ABSTRACT: ! FDL ERROR MESSAGES !  !  ! -- ! 7 ! AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980 !  !  ! MODIFIED BY: ! ) ! X-4 BP026 BOB PREMOVICH 28-MAY-19989 ! CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT 5 ! WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO7 ! FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET ! FACILITY. ! * ! X-3 CW002 CHRIS WHITAKER 26-AUG-1992 ! MERGE IN AMBER CHANGES. ! - ! X-3 SBL1003 STEVEN B. LIONEL 13-DEC-1991! ! SET MACRO NAME TO $FDMLSGDEF ! , ! X-2 RNM0063 RUSSELL MURRAY 13-APR-1988; ! ADD TAGGED FILE SUPPORT. ADD MESSAGE FDL$_UNKNOWN_TAG ! / ! V03-004 KFH0003 KEN HENDERSON 21 DEC 1982% ! REWORDED "key word" TO "keyword" ! / ! V03-003 KFH0002 KEN HENDERSON 22-NOV-1982) ! REWORDED "on line" TO "in statement" ! / ! V03-002 KFH0001 KEN HENDERSON 25-OCT-1982 ! ADDED INVBLK MESSAGE ! 0 ! V03-001 KBT0033 KEITH THOMPSON 31-MAR-1982 ! ADD INVDATIM MESSAGE !  ! ****& PARAMETER FDL$_FACILITY = '000000B4'XI PARAMETER FDL$_BADLOGIC = '00B41122'X ! L PARAMETER FDL$_CLOSEIN = '00B41052'X ! /FAO=1N PARAMETER FDL$_CLOSEOUT = '00B4105A'X ! /FAO=1= PARAMETER FDL$_CREATED = '00B41073'X ! /FAO=1Z PARAMETER FDL$_CREATEDSTM = '00B412FB'X ! /FAO=1H PARAMETER FDL$_INSVIRMEM = '00B412F2'X ! K PARAMETER FDL$_OPENIN = '00B4109A'X ! /FAO=1M PARAMETER FDL$_OPENOUT = '00B 410A2'X ! /FAO=1C PARAMETER FDL$_READERR = '00B410B2'X ! /FAO=1O PARAMETER FDL$_VALERR = '00B411EA'X ! D PARAMETER FDL$_WRITEERR = '00B410D2'X ! /FAO=1% PARAMETER FDL$_FAO_MAX = '00000005'X# PARAMETER FDL$_TITLE = '00B4800B'X" PARAMETER FDL$_ABKW = '00B48010'X& PARAMETER FDL$_INVDATIM = '00B48018'X$ PARAMETER FDL$_MULSEC = '00B48020'X$ PARAMETER FDL$_NOQUAL = '00B48028'X% PAR AMETER FDL$_NULLPRI = '00B48030'X# PARAMETER FDL$_RFLOC = '00B48038'X$ PARAMETER FDL$_VALPRI = '00B48040'X% PARAMETER FDL$_UNQUAKW = '00B48048'X% PARAMETER FDL$_UNSECKW = '00B48050'X% PARAMETER FDL$_WARNING = '00B48058'X% PARAMETER FDL$_ABPRIKW = '00B48062'X$ PARAMETER FDL$_CREATE = '00B4806A'X& PARAMETER FDL$_FDLERROR = '00B48072'X% PARAMETER FDL$_ILL_ARG = '00B4807A'X$ PARAMETER FDL$_MULPRI = '00B48082'X% PARAMETER FDL$_OPENFDL = '00B4808A'X& PARAMETER FDL$_OUTORDER = '00B48092'X$ PARAMETER FDL$_SYNTAX = '00B4809A'X% PARAMETER FDL$_UNPRIKW = '00B480A2'X$ PARAMETER FDL$_INVBLK = '00B480AA'X) PARAMETER FDL$_UNKNOWN_TAG = '00B480B2'X!DEC$ END OPTIONSwwʊ=Φ!*** MODULE $FDSCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! C ! Function descriptor offset definitions for the IA64 VMS callingA ! standard. This definition includes the offsets and fields forG ! local, official, translated/native, and bound function descriptors. ! . ! Function descriptor kind quadwords in FD ! + ! Local FD w/o translated image support 2, ! Local FD with translated image support 4> ! Official FD w/o translated image support 2 or 3 (see note)/ ! Official FD with translated image support 3 ! Bound FD 6 ! A ! Note: the official FD w/o translated image support could be 2A ! quadwords if the linker knows it's not a universal symbol and? ! that no module exports its address. Until there's a way for> ! compilers to notify the linker of this, all such FDs are 3 ! quadwords in length. ! Q PARAMETER FDSC$K_BOUND_SIZE = '00000030'X ! Size of bound procedure descriptor STRUCTURE /FDSCDEF/ UNION MAPC INTEGER*8 FDSC$Q_ENTRY ! Simple FD: Entry code address END MAP MAP INTEGER*4 FDSC$L_ENTRY END MAP MAPX INTEGER*8 FDSC$Q_OTS_ENTRY ! Bound FD: Entry code address of OTS$JUMP_TO_BPV END MAP  MAP# INTEGER*4 FDSC$L_OTS_ENTRY END MAP END UNION UNION MAP< INTEGER*8 FDSC$Q_GP ! Simple FD: Global pointer END MAP MAP INTEGER*4 FDSC$L_GP END MAP MAPd INTEGER*8 FDSC$Q_OTS_PSEUDO_GP ! Bound FD: Global pointer for OTS$JUMP_TO_BPV (ie. addreC ! Bound FD: Global pointer for OTS$JUMP_TO_BPV (ie. address o END MAP MAP' INTEGER*4 FDSC$L_OTS_PSEUDO_GP END MAP END UNION UNION MAPG INTEGER*4 FDSC$Q_SIGNATURE(2) ! Signature information field END MAP MAP) INTEGER*4 FDSC$L_SIGNATURE_L) INTEGER*4 FDSC$L_SIGNATURE_H END MAP END UNION UNION MAPd INTEGER*8 FDSC$Q_TARGET_ENTRY ! PD address of translated routine or entry code address oC ! PD address of translated routine or entry code address of b END MAP   MAP& INTEGER*4 FDSC$L_TARGET_ENTRY END MAP END UNION UNION MAPK INTEGER*8 FDSC$Q_TARGET_GP ! Global pointer for bound procedure END MAP MAP# INTEGER*4 FDSC$L_TARGET_GP END MAP END UNION UNION MAPd INTEGER*8 FDSC$Q_TARGET_ENVIR ! Environment value for bound procedure (uplevel-addressinC ! Environment value for bound procedure (uplevel-addressing p END M!AP MAP& INTEGER*4 FDSC$L_TARGET_ENVIR END MAP END UNION END STRUCTURE ! FDSCDEF!DEC$ END OPTIONS ww9=Φ!*** MODULE $FIBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ---- ! 1 ! LAYOUT OF THE FILE IDENTIFICATION BLOCK (FIB) !  ! **** ! W ! NOTE: If the size of the FIB is changed the following must be changed) ! to reflect the change: ! ; ! In Mo"dule: [RMS.SRC]RMSFWADEF.SDL ! 5 ! Field: FWA$T_FIBBUF ! 0 ! Constant: FWA$C_FIBLEN ! I ! Both the field and constant must be GEQ to the size ofJ ! the FIB, i.e. FIB$C_LENGTH. FIB length is currently 96. !  ! **** ! & PARAMETER FIB$M_NOWRITE = '00000001'X$ PARAMETER FIB$M_DLOCK = '00000002'X' PARAMETER FIB$M_BLK_LOCK = '00000004'X* PARAMETER FIB$M_FASTRDSQNOS = '00000008'X$ PARAM #ETER FIB$M_SPOOL = '00000010'X& PARAMETER FIB$M_WRITECK = '00000020'X& PARAMETER FIB$M_SEQONLY = '00000040'X$ PARAMETER FIB$M_SEQNO = '00000080'X$ PARAMETER FIB$M_WRITE = '00000100'X% PARAMETER FIB$M_READCK = '00000200'X% PARAMETER FIB$M_NOREAD = '00000400'X& PARAMETER FIB$M_NOTRUNC = '00000800'X& PARAMETER FIB$M_CONTROL = '00001000'X+ PARAMETER FIB$M_NO_READ_DATA = '00002000'X# PARAMETER FIB$M_SSIO = '00004000'X& PARAMETER FIB$M_SYMLINK = '00008000'X& PARAMETER FIB$M_EXECUTE = '000100 $00'X( PARAMETER FIB$M_PRSRV_ATR = '00020000'X& PARAMETER FIB$M_RMSLOCK = '00040000'X( PARAMETER FIB$M_WRITETHRU = '00080000'X% PARAMETER FIB$M_NOLOCK = '00100000'X' PARAMETER FIB$M_NORECORD = '00200000'X' PARAMETER FIB$M_NOVERIFY = '00400000'X) PARAMETER FIB$M_CHANGE_VOL = '00800000'X% PARAMETER FIB$M_REWIND = '00000008'X% PARAMETER FIB$M_CURPOS = '00000010'X% PARAMETER FIB$M_UPDATE = '00000040'XK PARAMETER FIB$K_ACCDATA = '0000000A'X ! ABOVE DATA NECESSARY FOR ACCESS K PARAMETER % FIB$C_ACCDATA = '0000000A'X ! ABOVE DATA NECESSARY FOR ACCESS R PARAMETER FIB$K_DIRDATA = '00000016'X ! ABOVE DATA NECESSARY FOR DIRECTORY OPS R PARAMETER FIB$C_DIRDATA = '00000016'X ! ABOVE DATA NECESSARY FOR DIRECTORY OPS ) PARAMETER FIB$M_NAMES_8BIT = '00000001'X* PARAMETER FIB$M_NAMES_16BIT = '00000002'X. PARAMETER FIB$M_PERCENT_LITERAL = '00000004'X% PARAMETER FIB$M_ALLVER = '00000008'X% PARAMETER FIB$M_ALLTYP = '00000010'X% PARAMETER FIB$M_ALLNAM = '00000020'X- PARAMETER FIB &$M_CASE_SENSITIVE = '00000040'X% PARAMETER FIB$M_SEARCH = '00000080'X# PARAMETER FIB$M_WILD = '00000100'X% PARAMETER FIB$M_NEWVER = '00000200'X( PARAMETER FIB$M_SUPERSEDE = '00000400'X& PARAMETER FIB$M_FINDFID = '00000800'X& PARAMETER FIB$M_FINDDIR = '00001000'X+ PARAMETER FIB$M_CASE_VARIANT = '00002000'X% PARAMETER FIB$M_LOWVER = '00004000'X& PARAMETER FIB$M_HIGHVER = '00008000'X$ PARAMETER FIB$M_ALCON = '00000001'X% PARAMETER FIB$M_ALCONB = '00000002'X% PARAMETER FIB$M_FILCON = '0 '0000004'X$ PARAMETER FIB$M_ALDEF = '00000008'X' PARAMETER FIB$M_ALLOCATR = '00000010'X% PARAMETER FIB$M_EXTEND = '00000080'X$ PARAMETER FIB$M_TRUNC = '00000100'X' PARAMETER FIB$M_NOHDREXT = '00000200'X& PARAMETER FIB$M_MARKBAD = '00000400'X& PARAMETER FIB$M_NOPLACE = '00004000'X' PARAMETER FIB$M_NOCHARGE = '00008000'XT PARAMETER FIB$K_EXTDATA = '00000020'X ! ABOVE NECESSARY FOR BASIC FILE EXTENSION T PARAMETER FIB$C_EXTDATA = '00000020'X ! ABOVE NECESSARY FOR BASIC FILE EXTENSION $ ( PARAMETER FIB$M_EXACT = '00000001'X$ PARAMETER FIB$M_ONCYL = '00000002'XB PARAMETER FIB$C_CYL = '00000001'X ! CYLINDER ADDRESS SPECIFIED 5 PARAMETER FIB$C_LBN = '00000002'X ! LBN SPECIFIED ? PARAMETER FIB$C_VBN = '00000003'X ! PROXIMATE VBN SPECIFIED A PARAMETER FIB$C_RFI = '00000004'X ! RELATED FILE ID SPECIFIED N PARAMETER FIB$K_ALCDATA = '0000002C'X ! ABOVE DATA NECESSARY FOR PLACEMENT N PARAMETER FIB$C_ALCDATA = '0000002C'X ! ABOVE DATA NECESSARY FOR PLACEMENT & PARAMETER F )IB$M_ALT_REQ = '00000001'X* PARAMETER FIB$M_ALT_GRANTED = '00000002'X% PARAMETER FIB$M_DIRACL = '00000004'X( PARAMETER FIB$M_PROPAGATE = '00000008'X( PARAMETER FIB$M_NOCOPYACL = '00000010'X* PARAMETER FIB$M_NOCOPYOWNER = '00000020'X) PARAMETER FIB$M_NOCOPYPROT = '00000040'X+ PARAMETER FIB$M_EXCLPREVIOUS = '00000080'X* PARAMETER FIB$M_ALIAS_ENTRY = '00000100'X+ PARAMETER FIB$M_WILDFID_FLAG = '00000200'X+ PARAMETER FIB$M_DID_FILESPEC = '00000400'X+ PARAMETER FIB$M_SYMLINKENTRY = '0000080 *0'XK PARAMETER FIB$K_MOVEFILE = '00000048'X ! end of FIB required by MOVEFILEK PARAMETER FIB$C_MOVEFILE = '00000048'X ! end of FIB required by MOVEFILE. PARAMETER FIB$M_FILE_ATTRIBUTES = '0000000F'X, PARAMETER FIB$M_FILE_CONTENTS = '000000F0'XD PARAMETER FIB$C_DEFAULT = '00000000'X ! Use default caching policyG PARAMETER FIB$C_WRITETHROUGH = '00000001'X ! Use writethrough cachingE PARAMETER FIB$C_WRITEBEHIND = '00000002'X ! Use writebehind caching= PARAMETER FIB$C_NOCACHING = '0000 +0003'X ! Do not cache file- PARAMETER FIB$M_FLUSH_ON_CLOSE = '00000F00'XN PARAMETER FIB$C_FLUSH = '00000001'X ! Flush file from cache when file closedO PARAMETER FIB$C_NOFLUSH = '00000002'X ! Retain file in cache when file closed2 PARAMETER FIB$M_CACHING_OPTIONS_MBZ = 'FFFFF000'XI PARAMETER FIB$C_ODS2 = '00000000'X ! Name is ODS-2 legal ASCII encodedC PARAMETER FIB$C_ISL1 = '00000001'X ! Name is 8-bit (ISO Latin 1)= PARAMETER FIB$C_ISO_LATIN = '00000001'X ! Synonym for ISL11 ! ,NOTE - Name format type 2 reserved (was UTF8)D PARAMETER FIB$C_UCS2 = '00000003'X ! Name is UCS-2 encoded (both)W PARAMETER FIB$C_NAMETYPE_LEN = '00000060'X ! Length of FIB including NAMETYPE fields% PARAMETER FIB$K_LENGTH = '00000060'X% PARAMETER FIB$C_LENGTH = '00000060'X% PARAMETER FIB$K_F64LEN = '00000060'X% PARAMETER FIB$C_F64LEN = '00000060'X STRUCTURE /FIBDEF/ UNION MAP9 INTEGER*4 FIB$L_ACCTL ! ACCESS CONTROL BITS  END MAP MAP -( PARAMETER FIB$S_NOWRITE = 1? PARAMETER FIB$V_NOWRITE = 0 ! NO OTHER WRITERS & PARAMETER FIB$S_DLOCK = 1A PARAMETER FIB$V_DLOCK = 1 ! ENABLE DEACCESS LOCK ) PARAMETER FIB$S_BLK_LOCK = 1K PARAMETER FIB$V_BLK_LOCK = 2 ! ENABLE RMS-11 BLOCK LOCKING , PARAMETER FIB$S_FASTRDSQNOS = 1N PARAMETER FIB$V_FASTRDSQNOS = 3 ! READ HDRSEQ AND DATASEQ VALS& PARAMETER FIB$S_SPOOL = 1@ . PARAMETER FIB$V_SPOOL = 4 ! SPOOL FILE ON CLOSE ( PARAMETER FIB$S_WRITECK = 1A PARAMETER FIB$V_WRITECK = 5 ! ENABLE WRITE CHECK ( PARAMETER FIB$S_SEQONLY = 1E PARAMETER FIB$V_SEQONLY = 6 ! SEQUENTIAL ONLY ACCESS & PARAMETER FIB$S_SEQNO = 1F PARAMETER FIB$V_SEQNO = 7 ! STORE SEQNOS FOR THIS FILE& PARAMETER FIB$S_WRITE = 19 PARAMETER FIB$V_WRITE = 8 ! WRITE ACCESS ' / PARAMETER FIB$S_READCK = 1? PARAMETER FIB$V_READCK = 9 ! ENABLE READ CHECK ' PARAMETER FIB$S_NOREAD = 1? PARAMETER FIB$V_NOREAD = 10 ! NO OTHER READERS ( PARAMETER FIB$S_NOTRUNC = 1I PARAMETER FIB$V_NOTRUNC = 11 ! FILE MAY NOT BE TRUNCATED ( PARAMETER FIB$S_CONTROL = 1E PARAMETER FIB$V_CONTROL = 12 ! CONTROL ACCESS TO FILE- PARAMETER FIB$S_NO_READ_DATA = 1N P 0ARAMETER FIB$V_NO_READ_DATA = 13 ! NO READ ACCESS TO FILE DATA% PARAMETER FIB$S_SSIO = 1J PARAMETER FIB$V_SSIO = 14 ! File is opened for SSIO access( PARAMETER FIB$S_SYMLINK = 1S PARAMETER FIB$V_SYMLINK = 15 ! Caller understands symlink semantics$ ! THE HIGH 8 BITS CANNOT BE COPIED+ ! INTO THE ACCESS MODE WORD IN THE WINDOW( PARAMETER FIB$S_EXECUTE = 1[ PARAMETER FIB$V_EXECUTE = 16 ! ACCESS FOR EXECUTE (USE 1 EXECUTE PROTECTION) * PARAMETER FIB$S_PRSRV_ATR = 1V PARAMETER FIB$V_PRSRV_ATR = 17 ! PRESERVE ORIGINAL ATTRIBUTES OF FILE ( PARAMETER FIB$S_RMSLOCK = 1L PARAMETER FIB$V_RMSLOCK = 18 ! OPEN WITH RMS RECORD LOCKING * PARAMETER FIB$S_WRITETHRU = 1X PARAMETER FIB$V_WRITETHRU = 19 ! FORCE CACHE WRITE-THROUGH ON OPERATION ' PARAMETER FIB$S_NOLOCK = 1I PARAMETER FIB$V_NOLOCK = 20 ! OVERRIDE 2 ACCESS INTERLOCKS ) PARAMETER FIB$S_NORECORD = 1J PARAMETER FIB$V_NORECORD = 21 ! DO NOT RECORD FILE ACCESS ) PARAMETER FIB$S_NOVERIFY = 1O PARAMETER FIB$V_NOVERIFY = 22 ! Do not perform compare on move.+ PARAMETER FIB$S_CHANGE_VOL = 1, PARAMETER FIB$V_CHANGE_VOL = 23P BYTE %FILL (3) ! Allow Movefile move between volumes in a set. END MAP MAP' PARAMETER FIB$S_REW3IND = 19 PARAMETER FIB$V_REWIND = 3 ! REWIND TAPE ' PARAMETER FIB$S_CURPOS = 1M PARAMETER FIB$V_CURPOS = 4 ! CREATE AT CURRENT TAPE POSITION ' PARAMETER FIB$S_UPDATE = 1U PARAMETER FIB$V_UPDATE = 6 ! UPDATE MODE (POSITION TO START OF FILE)  BYTE %FILL (1) END MAP MAP! BYTE %FILL(1:3)5 BYTE FIB$B_WSIZE ! WINDOW SIZE  END MAP END UNION 4 UNION MAP/ INTEGER*2 FIB$W_FID(1:3) ! FILE ID  END MAP MAP7 INTEGER*2 FIB$W_FID_NUM ! FILE NUMBER @ INTEGER*2 FIB$W_FID_SEQ ! FILE SEQUENCE NUMBER  UNION MAPF INTEGER*2 FIB$W_FID_RVN ! RELATIVE VOLUME NUMBER  END MAP MAPB BYTE FIB$B_FID_RVN ! SHORT FORM RVN H BYTE FIB$B_FID_NMX5 ! EXTENDED FILE NUMBER  END MAP END UNION END MAP MAPH INTEGER*2 FIB$W_FID_DIRNUM ! Directory number of File-IdE INTEGER*4 FIB$L_FID_RECNUM ! Record number of File-ID END MAP END UNION UNION MAP4 INTEGER*2 FIB$W_DID(1:3) ! DIRECTORY ID  END MAP MAP7 INTEGER*2 FIB$W_DID_NUM ! FILE NUMBER @ INTEGER*2 FIB$W_DID_SEQ ! F6ILE SEQUENCE NUMBER  UNION MAPF INTEGER*2 FIB$W_DID_RVN ! RELATIVE VOLUME NUMBER  END MAP MAPB BYTE FIB$B_DID_RVN ! SHORT FORM RVN H BYTE FIB$B_DID_NMX ! EXTENDED FILE NUMBER  END MAP END UNION END MAP MAPH INTEGER*2 FIB$W_DID_DIRNUM ! Directory number of File-IdE INTEGER*4 F7IB$L_DID_RECNUM ! Record number of File-ID END MAP END UNION1 INTEGER*4 FIB$L_WCC ! WILD CARD CONTEXT UNION MAP7 INTEGER*2 FIB$W_NMCTL ! NAME CONTROL BITS  END MAP MAP+ PARAMETER FIB$S_NAMES_8BIT = 1M PARAMETER FIB$V_NAMES_8BIT = 0 ! RETURN 8BIT FILENAMES (HFS), PARAMETER FIB$S_NAMES_16BIT = 1N PARAMETER FIB$V_NAMES_16BIT = 1 ! RETURN 16BIT FILENAMES (HFS)0 8 PARAMETER FIB$S_PERCENT_LITERAL = 1Q PARAMETER FIB$V_PERCENT_LITERAL = 2 ! PERCENT IS LITERAL (HFS)' PARAMETER FIB$S_ALLVER = 1@ PARAMETER FIB$V_ALLVER = 3 ! MATCH ALL VERSIONS ' PARAMETER FIB$S_ALLTYP = 1= PARAMETER FIB$V_ALLTYP = 4 ! MATCH ALL TYPES ' PARAMETER FIB$S_ALLNAM = 1= PARAMETER FIB$V_ALLNAM = 5 ! MATCH ALL NAMES / PARAMETER FIB$S_CASE_SENSITIVE = 1I 9 PARAMETER FIB$V_CASE_SENSITIVE = 6 ! case sensitive lookup' PARAMETER FIB$S_SEARCH = 1U PARAMETER FIB$V_SEARCH = 7 ! Match names in purely case blind manner.0 ! (intended for search operations; normal file2 ! access should give preference to exact match)% PARAMETER FIB$S_WILD = 1C PARAMETER FIB$V_WILD = 8 ! WILD CARDS IN FILE NAME ' PARAMETER FIB$S_NEWVER = 1E PARAMETER FIB$V_NEWVER = 9 ! MAXIMIZ :E VERSION NUMBER * PARAMETER FIB$S_SUPERSEDE = 1I PARAMETER FIB$V_SUPERSEDE = 10 ! SUPERSEDE EXISTING FILE ( PARAMETER FIB$S_FINDFID = 1B PARAMETER FIB$V_FINDFID = 11 ! SEARCH FOR FILE ID ( PARAMETER FIB$S_FINDDIR = 1[ PARAMETER FIB$V_FINDDIR = 12 ! SEARCH FOR DIR EXTENTION (Internal use only), ! the following bits are output, not input- PARAMETER FIB$S_CASE_VARIANT = 1Y PARAMETER FIB;$V_CASE_VARIANT = 13 ! A case variant of this filename exists' PARAMETER FIB$S_LOWVER = 1K PARAMETER FIB$V_LOWVER = 14 ! LOWER VERSION OF FILE EXISTS ( PARAMETER FIB$S_HIGHVER = 1) PARAMETER FIB$V_HIGHVER = 15A BYTE %FILL (2) ! HIGHER VERSION OF FILE EXISTS  END MAP END UNION UNION MAP4 INTEGER*2 FIB$W_EXCTL ! EXTEND CONTROL  END MAP MAP& PARAMET <ER FIB$S_ALCON = 1@ PARAMETER FIB$V_ALCON = 0 ! ALLOCATE CONTIGUOUS ' PARAMETER FIB$S_ALCONB = 1D PARAMETER FIB$V_ALCONB = 1 ! CONTIGUOUS BEST EFFORT ' PARAMETER FIB$S_FILCON = 1B PARAMETER FIB$V_FILCON = 2 ! MARK FILE CONTIGUOUS & PARAMETER FIB$S_ALDEF = 1D PARAMETER FIB$V_ALDEF = 3 ! ALLOCATE DEFAULT AMOUNT ) PARAMETER FIB$S_ALLOCATR = 1X PARAMETER FIB$V_ALLOCATR = 4 =! PLACEMENT DATA PRESENT IN ATTRIBUTE LIST ' PARAMETER FIB$S_EXTEND = 1> PARAMETER FIB$V_EXTEND = 7 ! ENABLE EXTENSION & PARAMETER FIB$S_TRUNC = 1> PARAMETER FIB$V_TRUNC = 8 ! ENABLE TRUNCATION ) PARAMETER FIB$S_NOHDREXT = 1I PARAMETER FIB$V_NOHDREXT = 9 ! INHIBIT EXTENSION HEADERS ( PARAMETER FIB$S_MARKBAD = 1? PARAMETER FIB$V_MARKBAD = 10 ! MARK BLOCKS BAD ( PARAMETER> FIB$S_NOPLACE = 1W PARAMETER FIB$V_NOPLACE = 14 ! DON'T ADD PLACEMENT POINTERS IN MOVEFILE) PARAMETER FIB$S_NOCHARGE = 1* PARAMETER FIB$V_NOCHARGE = 15: BYTE %FILL (2) ! DON'T CHARGE DISKQUOTA  END MAP END UNION, INTEGER*4 FIB$L_EXSZ ! EXTEND SIZE / INTEGER*4 FIB$L_EXVBN ! EXTENSION VBN UNION MAP9 BYTE FIB$B_ALOPTS ! ALLOCATION OPTIONS  END MAP MAP&? PARAMETER FIB$S_EXACT = 1E PARAMETER FIB$V_EXACT = 0 ! EXACT PLACEMENT REQUIRED & PARAMETER FIB$S_ONCYL = 1K PARAMETER FIB$V_ONCYL = 1 ! PUT ALLOCATION ON ONE CYLINDER  BYTE %FILL (1) END MAP END UNION8 BYTE FIB$B_ALALIGN ! ALLOCATION ALIGNMENT UNION MAP= INTEGER*2 FIB$W_ALLOC(1:5) ! ALLOCATION LOCATION  END MAP MAP UNION @ MAPC INTEGER*2 FIB$W_LOC_FID(1:3) ! RELATED FILE ID  END MAP MAPG INTEGER*2 FIB$W_LOC_NUM ! RELATED FILE NUMBER H INTEGER*2 FIB$W_LOC_SEQ ! FILE SEQUENCE NUMBER  UNION MAPC INTEGER*2 FIB$W_LOC_RVN ! RELATED RVN END MAP MAPJ BYTE FIB A$B_LOC_RVN ! SHORT FORM RVN P BYTE FIB$B_LOC_NMX ! EXTENDED FILE NUMBER END MAP END UNION END MAP END UNIONL INTEGER*4 FIB$L_LOC_ADDR ! LOCATION ADDRESS (VBN, LBN, CYL)  END MAP END UNIONA INTEGER*2 FIB$W_VERLIMIT ! DIRECTORY ENTRY VERSION LIMIT 7 BYTE FIB$B_AGENT_MODE ! AGENTS ACCESS MODE? BYTE FIB$B_RU_FACILITY ! B RECOVERABLE-FACILITY CODE7 INTEGER*4 FIB$L_ACLCTX ! ACL CONTEXT FOR READ E INTEGER*4 FIB$L_ACL_STATUS ! RETURN STATUS FROM ACL OPERATION UNION MAP= INTEGER*4 FIB$L_STATUS ! GENERAL STATUS LONGWORD END MAP MAP( PARAMETER FIB$S_ALT_REQ = 1G PARAMETER FIB$V_ALT_REQ = 0 ! ALTERNATE ACCESS REQUIRED, PARAMETER FIB$S_ALT_GRANTED = 1J PARAMETER FIB$V_ALT_GRANTED = 1 ! ALTERNATE AC CCESS GRANTED' PARAMETER FIB$S_DIRACL = 1I PARAMETER FIB$V_DIRACL = 2 ! DO DIRECTORY ACL PROPAGATION* PARAMETER FIB$S_PROPAGATE = 1N PARAMETER FIB$V_PROPAGATE = 3 ! DO PROPAGATION ON ENTER/MODIFY* PARAMETER FIB$S_NOCOPYACL = 1G PARAMETER FIB$V_NOCOPYACL = 4 ! DON'T PROPAGATE THE ACL, PARAMETER FIB$S_NOCOPYOWNER = 1O PARAMETER FIB$V_NOCOPYOWNER = 5 ! DON'T PROPAGATE THE OWNER UIC+ D PARAMETER FIB$S_NOCOPYPROT = 1T PARAMETER FIB$V_NOCOPYPROT = 6 ! DON'T PROPAGATE THE SOGW PROTECTION- PARAMETER FIB$S_EXCLPREVIOUS = 1_ PARAMETER FIB$V_EXCLPREVIOUS = 7 ! EXCLUDE THE PREVIOUS VERSION FROM PROPAGATION, PARAMETER FIB$S_ALIAS_ENTRY = 1\ PARAMETER FIB$V_ALIAS_ENTRY = 8 ! FILE ACCESSED VIA AN ALIAS DIRECTORY ENTRY- PARAMETER FIB$S_WILDFID_FLAG = 1C PARAMETER FIB$V_WILDFID_FLAG = E9 ! WILDCARD FID FLAG- PARAMETER FIB$S_DID_FILESPEC = 1K PARAMETER FIB$V_DID_FILESPEC = 10 ! FILESPEC HAD BEEN DID'ED- PARAMETER FIB$S_SYMLINKENTRY = 1Z PARAMETER FIB$V_SYMLINKENTRY = 11 ! FILESPEC DIRECTORY ENTRY WAS A SYMLINK. BYTE %FILL (2) END MAP END UNION: INTEGER*4 FIB$L_ALT_ACCESS ! ALTERNATE ACCESS MASK UNION MAPB INTEGER*4 FIB$L_MOV_SVBN ! starting VBN (MOVEFILE)EF INTEGER*4 FIB$L_MOV_VBNCNT ! count of VBNs (MOVEFILE) END MAP END UNIONO INTEGER*2 FIB$W_FILE_HDRSEQ_INCR ! header seq no increment for indiv fileS INTEGER*2 FIB$W_DIR_HDRSEQ_INCR ! header seq no increment for directory fileN INTEGER*2 FIB$W_FILE_DATASEQ_INCR ! data seq no increment for indiv fileQ INTEGER*2 FIB$W_DIR_DATASEQ_INCR ! data seq no increment for driectory fileJ ! Define fields and constant values for FIB$L_CACHING_OPTIONS lon Ggword.0 ! These must match [STARLET]ATRDEF.SDL exactly UNION MAPK INTEGER*4 FIB$L_CACHING_OPTIONS ! F64XQP cache control bitvector END MAP MAP0 PARAMETER FIB$S_FILE_ATTRIBUTES = 4Q PARAMETER FIB$V_FILE_ATTRIBUTES = 0 ! File attributes caching field. PARAMETER FIB$S_FILE_CONTENTS = 4M PARAMETER FIB$V_FILE_CONTENTS = 4 ! File contents caching field/ PARAMETER FIB$S_FLUSH_ON_CLOSE = 4L H PARAMETER FIB$V_FLUSH_ON_CLOSE = 8 ! Flush file on close field5 PARAMETER FIB$S_CACHING_OPTIONS_MBZ = 205 PARAMETER FIB$V_CACHING_OPTIONS_MBZ = 12. BYTE %FILL (4) ! Must be zero END MAP END UNION UNION MAP2 INTEGER*2 FIB$W_SD_FID(1:3) ! FILE ID  END MAP MAP9 INTEGER*2 FIB$W_SD_FID_NUM ! FILE NUMBER B INTEGER*2 FIB$W_SD_FID_SEQ ! FILE SEQUENCE NUMBEIR  UNION MAPH INTEGER*2 FIB$W_SD_FID_RVN ! RELATIVE VOLUME NUMBER  END MAP MAPD BYTE FIB$B_SD_FID_RVN ! SHORT FORM RVN J BYTE FIB$B_SD_FID_NMX ! EXTENDED FILE NUMBER  END MAP END UNION END MAP END UNION9 INTEGER*2 %FILL ! Pad up to a longword boundaryC BYTE FIB$B_NAME_FORMAT_IN ! Inbound J file name encodingI BYTE FIB$B_NAME_FORMAT_OUT ! Returned file name encoding C BYTE FIB$B_ASCNAME_FORMAT ! ASCNAME attribute encodingL BYTE FIB$B_RESERVED_2 ! For alignment. NOTE - Must be zero.  END STRUCTURE ! FIBDEF? PARAMETER FIB$C_REWINDVOL = '00000001'X ! REWIND VOLUME SET H PARAMETER FIB$C_POSEND = '00000002'X ! POSITION TO END OF VOLUME SET = PARAMETER FIB$C_NEXTVOL = '00000003'X ! FORCE NEXT VOLUME = PARAMETER FIB$C_SPACE = '0000 K0004'X ! SPACE MAGNETIC TAPE + PARAMETER FIB$C_ILLEGAL = '00000005'X ! 9 PARAMETER FIB$C_REWINDFIL = '00000006'X ! REWIND FILE K PARAMETER FIB$C_LOCK_VOL = '00000007'X ! LOCK VOLUME AGAINST ALLOCATION : PARAMETER FIB$C_UNLK_VOL = '00000008'X ! UNLOCK VOLUME  ! QUOTA FILE OPERATIONS? PARAMETER FIB$C_ENA_QUOTA = '00000009'X ! ENABLE QUOTA FILE @ PARAMETER FIB$C_DSA_QUOTA = '0000000A'X ! DISABLE QUOTA FILE B PARAMETER FIB$C_ADD_QUOTA = '0000000B'X ! ADD QUOTA FILE ENTRY FL PARAMETER FIB$C_EXA_QUOTA = '0000000C'X ! EXAMINE QUOTA FILE ENTRY E PARAMETER FIB$C_MOD_QUOTA = '0000000D'X ! MODIFY QUOTA FILE ENTRY E PARAMETER FIB$C_REM_QUOTA = '0000000E'X ! REMOVE QUOTA FILE ENTRY L PARAMETER FIB$C_USEREOT = '0000000F'X ! ENABLE USER END OF TAPE HANDLING ; PARAMETER FIB$C_REMAP = '00000010'X ! REMAP FILE WINDOW e PARAMETER FIB$C_CLSEREXCP = '00000011'X ! ALLOW THE USER TO CLEAR A SERIOUS EXCP FROM A TAPE DRIVEC PARAMETER FIB$C_FLUSH_CACHE = '00000012'X ! M FLUSH SELECTED CACHEM PARAMETER FIB$C_FORCE_MV = '00000013'X ! FORCE MOUNT VERIFICATION TO OCCURc PARAMETER FIB$C_VALIDATE_VOLUME = '00000014'X ! VALIDATE VOLUME SET FOLLOWING SNAPSHOT FILE BOOT[ PARAMETER FIB$C_VALIDATE_FILE = '00000015'X ! VALIDATE FILE FOLLOWING SNAPSHOT FILE BOOTd PARAMETER FIB$C_UPDATE_VOL_PROFILE = '00000016'X ! UPDATE A VOLUME'S (PERMANENT) SECURITY PROFILEb PARAMETER FIB$C_UPDATE_FIL_PROFILE = '00000017'X ! UPDATE A FILE'S (PERMANENT) SECURITY PROFILE[ PARNAMETER FIB$C_CHECK_PROTECTION = '00000018'X ! PERFORM FILE OR VOLUME PROTECTION CHECK> PARAMETER FIB$C_ADD_THREAD = '00000019'X ! ADD A NEW THREAD= PARAMETER FIB$C_REM_THREAD = '0000001A'X ! REMOVE A THREADC PARAMETER FIB$C_EXA_THREAD = '0000001B'X ! INQUIRE ABOUT THREADSL PARAMETER FIB$C_CHECK_PATH = '0000001C'X ! FIND DIRSEQ VAL AND ARM BLKAST? PARAMETER FIB$C_ENA_DW = '0000001D'X ! ENABLE DEFERRED WRITE@ PARAMETER FIB$C_DSA_DW = '0000001E'X ! DISABLE DEFERRED WRITE> PARAMETOER FIB$C_WRITEBACK_CACHE = '0000001F'X ! F64 caching> PARAMETER FIB$C_WRITETHRU_CACHE = '00000020'X ! F64 cachingM PARAMETER FIB$C_FILE_SYNCH = '00000021'X ! VDC/Spiralog flush file to diskS PARAMETER FIB$C_CACHING_OPTIONS = '00000022'X ! VDC/Spiralog select caching modeZ PARAMETER FIB$C_WRITE_BARRIER = '00000023'X ! VDC/Spiralog barrier writes to this pointM PARAMETER FIB$C_VOL_FLUSH = '00000024'X ! VDC volume flush local node onlyV PARAMETER FIB$C_VOL_FLUSH_ALL = '00000025'X ! P VDC flush all volumes local node onlyd PARAMETER FIB$C_CLONE_FIL_PROFILE = '00000026'X ! RETURN A COPY OF A FILE'S CURRENT SECURITY PROFC PARAMETER FIB$C_STRUC_LEVEL2 = '00000027'X ! Set the vcb to ods2C PARAMETER FIB$C_STRUC_LEVEL5 = '00000028'X ! Set the vcb to ods5G PARAMETER FIB$C_EXPAND_VOLUME = '00000029'X ! Expand the volume sizeM PARAMETER FIB$C_EXPAND_BITMAP = '0000002A'X ! Increase the BITMAP.SYS size@ PARAMETER FIB$K_MTALEN = '0000001C'X ! LENGTH OF MTAACP DATA @ PAR QAMETER FIB$C_MTALEN = '0000001C'X ! LENGTH OF MTAACP DATA  ! @ PARAMETER FIB$C_FID_CACHE = '00000001'X ! FLUSH THE FID CACHEF PARAMETER FIB$C_EXTENT_CACHE = '00000002'X ! FLUSH THE EXTENT CACHED PARAMETER FIB$C_QUOTA_CACHE = '00000003'X ! FLUSH THE QUOTA CACHEB PARAMETER FIB$C_BFRD_CACHE = '00000004'X ! FLUSH THE BFRD CACHE@ PARAMETER FIB$C_VBN_CACHE = '00000005'X ! FLUSH THE VBN CACHE ! S PARAMETER FIB$C_FLUSH_FILE_ATTRIBUTES = '00000001'X ! Only flush file attributesO PAR RAMETER FIB$C_FLUSH_FILE_CONTENTS = '00000002'X ! Only flush file contents@ PARAMETER FIB$C_FLUSH_FILE = '00000003'X ! Flush all of file  ! & PARAMETER FIB$M_ALL_MEM = '00000001'X& PARAMETER FIB$M_ALL_GRP = '00000002'X& PARAMETER FIB$M_MOD_USE = '00000004'X' PARAMETER FIB$M_MOD_PERM = '00000008'X' PARAMETER FIB$M_MOD_OVER = '00000010'X STRUCTURE /FIBDEF1/ BYTE %FILL(1:22)9 INTEGER*2 FIB$W_CNTRLFUNC ! ACP CONTROL FUNCTION % ! DEFINE ACP CONTROL FUNCTION CODES !S UNION MAPL INTEGER*4 FIB$L_CNTRLVAL ! ACP CONTROL FUNCTION VALUE PARAMETER  END MAP* ! CACHE IDENTIFIER CODES FOR FLUSH_CACHE ! 1 ! Files-64 CACHE IDENTIFIER CODES FOR FILE_SYNC ! * ! CONTROL BITS FOR QUOTA FILE OPERATIONS ! MAP( PARAMETER FIB$S_ALL_MEM = 1G PARAMETER FIB$V_ALL_MEM = 0 ! MATCH ALL MEMBER NUMBERS ( PARAMETER FIB$S_ALL_GRP = 1F PARAMETER FIB$V_ALL_GRP = 1 ! MATC TH ALL GROUP NUMBERS ( PARAMETER FIB$S_MOD_USE = 1@ PARAMETER FIB$V_MOD_USE = 2 ! MODIFY USAGE DATA ) PARAMETER FIB$S_MOD_PERM = 1F PARAMETER FIB$V_MOD_PERM = 3 ! MODIFY PERMANENT QUOTA ) PARAMETER FIB$S_MOD_OVER = 1F PARAMETER FIB$V_MOD_OVER = 4 ! MODIFY OVERDRAFT LIMIT  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! FIBDEF1A ! Add a synonym for FIB$C_FILE_SYNCH to keep naming consUistency) PARAMETER FIB$C_FILE_FLUSH = '00000021'X!DEC$ END OPTIONS wwo>Φ!*** MODULE $FIDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! STRUCTURE OF A FILE ID (FID) ! % PARAMETER FID$K_LENGTH = '00000006'X% PARAMETER FID$C_LENGTH = '00000006'X5 PARAMETER FID$C_INDEXF = '00000001'X ! INDEX FILE ; PARAMETER FID$C_BITMAP = '00000002'X ! STORAGE MAP FILE 9 PARAMETER FID$C_BADBLK = '00000003'X ! BAD BLOCK FILE = PARAMETER FID V$C_MFD = '00000004'X ! MASTER FILE DIRECTORY : PARAMETER FID$C_CORIMG = '00000005'X ! CORE IMAGE FILE ? PARAMETER FID$C_VOLSET = '00000006'X ! VOLUME SET LIST FILE E PARAMETER FID$C_CONTIN = '00000007'X ! STANRARD CONTINUATION FILE : PARAMETER FID$C_BACKUP = '00000008'X ! BACKUP LOG FILE = PARAMETER FID$C_BADLOG = '00000009'X ! BAD BLOCK LOG FILE 9 PARAMETER FID$C_SECURITY = '0000000A'X ! SECURITY FILE/ PARAMETER FID$C_GPT = '0000000B'X ! GPT FILE: PARAMETER FID$C_FREFIL W= '0000000A'X ! FREE SPACE FILE  STRUCTURE /FIDDEF/ UNION MAPA INTEGER*2 FID$W_FID(1:3) ! File Identification Number END MAP MAP3 INTEGER*2 FID$W_NUM ! FILE NUMBER < INTEGER*2 FID$W_SEQ ! FILE SEQUENCE NUMBER  UNION MAPB INTEGER*2 FID$W_RVN ! RELATIVE VOLUME NUMBER  END MAP MAP@ BYTE FID$B_RVN ! BXYTE FORM OF RVN E BYTE FID$B_NMX ! FILE NUMBER EXTENSION # ! FILE ID'S OF THE RESERVED FILES END MAP END UNION END MAP MAPE INTEGER*2 FID$W_DIRNUM ! Directory number of File-IdB INTEGER*4 FID$L_RECNUM ! Record number of File-ID END MAP END UNION END STRUCTURE ! FIDDEF!DEC$ END OPTIONS ww>Φ!*** MODULE $FLTDEF ***:!DEC$ OPTIONS/ALIGN=(RYECORDS=PACKED,COMMONS=PACKED)/NOWARN ! - ! FLAG BITS FOR THE $SETFLT SYSTEM SERVICE. ! ) PARAMETER FLT$M_NO_EXECUTE = '00000001'X+ PARAMETER FLT$M_EXECUTE_ONLY = '00000002'X# PARAMETER FLT$M_PERM = '00000004'X) PARAMETER FLT$M_EXECUTABLE = '00000008'X STRUCTURE /FLTDEF/ UNION MAP' PARAMETER FLT$S_NO_EXECUTE = 17 PARAMETER FLT$V_NO_EXECUTE = 0 ! No Execute) PARAMETER FLT$S_EXECUTE_ONLY = 1K PARAMETER FLT$V_EXECUTE_ONLY = 1 ! ExecutZe Only (for future use)! PARAMETER FLT$S_PERM = 1A PARAMETER FLT$V_PERM = 2 ! Permanent (for future use)' PARAMETER FLT$S_EXECUTABLE = 1C PARAMETER FLT$V_EXECUTABLE = 3 ! Set page to executable BYTE %FILL (1) END MAP END UNION END STRUCTURE ! FLTDEF!DEC$ END OPTIONS ww/Φ!*** MODULE $FMLDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! @ ! Appended to a procedure definition are the for[mal arguments:D ! FML$ - The fixed part of the formal arguments description ! # PARAMETER FML$K_SIZE = '00000002'X# PARAMETER FML$C_SIZE = '00000002'X STRUCTURE /FMLDEF/> BYTE FML$B_MINARGS ! Minimum number of arguments U BYTE FML$B_MAXARGS ! Maximum which include function if procedure is one  END STRUCTURE ! FMLDEF!DEC$ END OPTIONS www߃Φ!*** MODULE $FORDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! \O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.04 !  ! FILE: FOR_MSG.MSG  ! H ! ** *H ! ** COPYRIGHT 2001 COMPAQ COMPUTER CORPORATION *H ! ** *H ! ** COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION *H ! ** TECHNOLOGIES GROUP, L.P. *H ! ** ] *H ! ** CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ *H ! ** REQUIRED FOR POSSESSION, USE OR COPYING. CONSISTENT WITH FAR *H ! ** 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, COMPUTER *H ! ** SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS *H ! ** ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *H ! ** COMMERCIAL LICENSE. *H ! ^ ** * ! ; ! 1-014 - ADD ERRORS 17-19 FOR NAMELIST. SBL 10-NOV-19807 ! 1-015 - CORRECT TYPO IN TOOMANVAL. SBL 15-DEC-1980P ! 1-016 - RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015. ! SBL 6-JAN-1981N ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM FORMSG.MDL% ! VERSION 1-016. SBL 22-APR-1981F ! 2-002 - ADD UNFIO_FMT, FMTIO_UNF, DIRIO_KEY, SEQIO_DIR, KEYIO_DIR,7 ! IO_NON _FOR, INVTXTREC, FLOUNDEXC. JAW 23-AUG-1981; ! 2-003 - CHANGE INVTXTREC TO INVTEXREC. JAW 24-AUG-1981S ! 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXEDQ ! AND INTERNAL FILES THAT DO NOT HAVE A VALID RECORD NUMBER. DGP 21-DEC-1981( ! 2-005 - ADD .TITLE. SBL 28-AUG-19828 ! 2-006 - ADD OPEREQDIS AND OPEREQSEQ. SBL 2-JUN-19834 ! 2-007 - ADD ULTRIX SPECIFIC ERRORS AND WARNINGS., ! 2-008 - ADD INVMATKEY. DJM 14-SEP-1987.2 ! 2-009 - ADD FORRTL2 MESS `AGES. CHH 22-SEP-1987 ! X-4 STEVE LIONEL 16-OCT-1989 ! ADD SUBPRCDEL,UNAWAKSUB. ! X-5 2 ! A LONG TIME AGO, IN A GALAXY FAR, FAR AWAY ...( ! X-6 SBL1001 22-OCT-1991 STEVE LIONEL ! ADD FOR$_VECALIGNEXC) ! X-7 EBF1002 08-OCT-1992 ED FLECCHIA3 ! ADDED DEC FORTRAN MESSAGES FOR OTHER PLATFORMS.M ! X-8 ADD FOR$_ENDRECDUR, END OF RECORD DURING READ. CHANGE IDENT TO VM.N-O ! SYNTAX. BRR 10-NOV-1993.; ! X-9 ADD MISSING ALPHA GENTRAP MESSAGES. TCM 02-JUN-94.* ! X-10 ADD a INVREALLOC. JDR 11-JUL-1994.) ! X-11 ADD RESACQFAI. JDR 23-NOV-1994.* ! X-12 ADD INVDEALLOC. TCM 13-MAR-1995.H ! X-13 MAKE MESSAGE ENDRECDUR, END OF RECORD DURING READ FATAL INSTEADJ ! ERROR, LIKE THE OTHER OPERATING SYSTEMS. THE STANDARD SAYS FATAL, AND0 ! THIS SHOULD FIX BUG DFB2234. TCM 24-MAR-1995K ! X-14 ADD POINTERS TO THE MESSAGE TEXT FOR INVDEALLOC. TCM 19-JUN-1995.2 ! X-15 FIX THE MESSAGE TEXT OF ERROR 69 (SIGINT)? ! INTERRUPT WAS SPELLED WRONG, MISSING AN R. TCM 29-M bAR-19960 ! X-16 ADD PRELIMINARY VISUAL FORTRAN SUPPORT./ ! THUS, ADDING ALL OF THE MSF ERROR MESSAGES./ ! NOTE: THESE MESSAGES MUST BE CONTIGUOUS, SO- ! THAT THE MAPPING OF MSF ERRORS TO VISUAL5 ! FORTRAN CAN BE DONE WITH EASE. TCM 26-APR-1996 7 ! X-17 FIX THE MESSAGE TEXT OF MSF ERRORS 6970, 6971.0 ! IT SHOULD BE D FIELD NOT M FIELD, ETC. ALSO: ! FIX F6750-52, REMOVE UNIX IN THE TEXT. TCM 07-NOV-1996+ ! X-18 ADD INVDEALLOC2. WCH 15-JUL-1999.? ! X-19 CHANGE PRODUCT NAMcE FROM DEC TO COMPAQ PMK 8-NOV-1999E ! X-20 REPLACE DEC WITH COMPAQ IN RESACQFAI MESSAGE. PMK 9-NOV-1999I ! X-21 ADD SHORTDATEARG, SHORTTIMEARG, & SHORTZONEARG. PMK 31-JUL-20009 ! X-22 ADD COUNTING FLTING INEXACTS. WCH 10-AUG-2000.S ! X-23 ADD NEW ERRORS FOR COMPILER GENERATED RUNTIME MESSAGES. WCH 16-AUG-2000.O ! X-24 ADD A GENERIC DIVIDE BY ZERO MESSAGE FOR CASES WHEN WE CANNOT TELL IFJ ! IT WAS A TRUE FLOATING POINT DIV0 OR AN INTEGER DIV0. AS OF GEM BL46,M ! GEM SOMETIME dS DOES INTEGER DIV IN THE FP UNIT ON ALPHA. WCH 06-OCT-2000.M ! X-25 ADD A NEW MESSAGE FOR ATTEMPTED ARRAY ALLOCATIONS THAT OVERFLOW MAX4 ! ARRAY SIZE (32/64 BITS). WCH 13-OCT-2000. ! -- ! +@ ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! FOR$_ABCMNOXYZ ! M ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",O ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR4 ! MESSAGE, NOT COUNTING ARTICLESe AND PREPOSITIONS. ! N ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR8 ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: ! ! $FORDEF ! > ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.8 ! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).@ ! THESE SYMBOLS ARE DECLARED EXTERNAL BY THE RUN-TIME LIBRARY,A ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. f ! -3 ! ; MAKE ALL ERRORS BE SEVERE (EXCEPT AS NOTED)3 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE ! ; SET LH TO 24 (DECIMAL).& PARAMETER FOR$_FACILITY = '00000018'X' PARAMETER FOR$_NOTFORSPE = '0018800C'X3 ! ; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR4 ! ; NUMBER FOR ERRSNS TO MEAN SOME OTHER FACILITY, ! ; THAN FOR$ OR MTH$ DETECTED THE ERROR.$ PARAMETER FOR$_NOTIMP = '00188014'X% PARAMETER FOR$_IGNORED = '00188018'X' PARAMETER FOR$_IGNNOTDEL = '00188020'X% g PARAMETER FOR$_VERSION = '00188033'X' PARAMETER FOR$_BUG_CHECK = '00188044'X' PARAMETER FOR$_PERACCFIL = '0018804C'X' PARAMETER FOR$_CANOVEEXI = '00188054'X' PARAMETER FOR$_UNINOTCON = '0018805B'X' PARAMETER FOR$_SYNERRNAM = '0018808C'X' PARAMETER FOR$_TOOMANVAL = '00188094'X' PARAMETER FOR$_INVREFVAR = '0018809C'X$ PARAMETER FOR$_REWERR = '001880A4'X' PARAMETER FOR$_DUPFILSPE = '001880AC'X' PARAMETER FOR$_INPRECTOO = '001880B4'X$ PARAMETER FOR$_BACERR = '001880BC'X' PARAMETER F hOR$_ENDDURREA = '001880C4'X' PARAMETER FOR$_RECNUMOUT = '001880CC'X' PARAMETER FOR$_OPEDEFREQ = '001880D4'X' PARAMETER FOR$_TOOMANREC = '001880DC'X$ PARAMETER FOR$_CLOERR = '001880E4'X' PARAMETER FOR$_FILNOTFOU = '001880EC'X$ PARAMETER FOR$_OPEFAI = '001880F4'X' PARAMETER FOR$_MIXFILACC = '001880FC'X' PARAMETER FOR$_INVLOGUNI = '00188104'X' PARAMETER FOR$_ENDFILERR = '0018810C'X' PARAMETER FOR$_UNIALROPE = '00188114'X' PARAMETER FOR$_SEGRECFOR = '0018811C'X' PARAMETER FOR$_ATTACC iNON = '00188124'X' PARAMETER FOR$_INCRECLEN = '0018812C'X' PARAMETER FOR$_ERRDURWRI = '00188134'X' PARAMETER FOR$_ERRDURREA = '0018813C'X' PARAMETER FOR$_RECIO_OPE = '00188144'X' PARAMETER FOR$_INSVIRMEM = '0018814C'X' PARAMETER FOR$_NO_SUCDEV = '00188154'X' PARAMETER FOR$_FILNAMSPE = '0018815C'X' PARAMETER FOR$_INCRECTYP = '00188164'X' PARAMETER FOR$_KEYVALERR = '0018816C'X' PARAMETER FOR$_INCOPECLO = '00188174'X' PARAMETER FOR$_WRIREAFIL = '0018817C'X' PARAMETER FOR$_INVARGFOjR = '00188184'X' PARAMETER FOR$_INVKEYSPE = '0018818C'X' PARAMETER FOR$_INCKEYCHG = '00188194'X' PARAMETER FOR$_INCFILORG = '0018819C'X' PARAMETER FOR$_SPERECLOC = '001881A4'X' PARAMETER FOR$_NO_CURREC = '001881AC'X' PARAMETER FOR$_REWRITERR = '001881B4'X$ PARAMETER FOR$_DELERR = '001881BC'X$ PARAMETER FOR$_UNLERR = '001881C4'X$ PARAMETER FOR$_FINERR = '001881CC'X' PARAMETER FOR$_MORONEREC = '001880DC'X' PARAMETER FOR$_ATTREANON = '00188124'X$ PARAMETER FOR$_FMTSYN = '001881D3'X' k PARAMETER FOR$_LISIO_SYN = '001881DC'X' PARAMETER FOR$_INFFORLOO = '001881E4'X' PARAMETER FOR$_FORVARMIS = '001881EC'X' PARAMETER FOR$_SYNERRFOR = '001881F4'X' PARAMETER FOR$_OUTCONERR = '001881FA'X' PARAMETER FOR$_INPCONERR = '00188204'X$ PARAMETER FOR$_FLTINV = '0018820C'X' PARAMETER FOR$_OUTSTAOVE = '00188214'X' PARAMETER FOR$_INPSTAREQ = '0018821C'X' PARAMETER FOR$_VFEVALERR = '00188224'X$ PARAMETER FOR$_SIGINT = '0018822A'X$ PARAMETER FOR$_INTOVF = '00188234'X$ PARAMETER FORl$_INTDIV = '0018823C'X$ PARAMETER FOR$_FLTOVF = '00188242'X$ PARAMETER FOR$_FLTDIV = '0018824A'X$ PARAMETER FOR$_FLTUND = '00188252'X$ PARAMETER FOR$_SIGFPE = '0018825A'X$ PARAMETER FOR$_SIGIOT = '00188262'X$ PARAMETER FOR$_SUBRNG = '0018826C'X% PARAMETER FOR$_SIGTERM = '00188272'X% PARAMETER FOR$_SIGQUIT = '0018827A'X' PARAMETER FOR$_WRONUMARG = '00188284'X' PARAMETER FOR$_INVARGMAT = '0018828C'X$ PARAMETER FOR$_UNDEXP = '00188294'X' PARAMETER FOR$_LOGZERNEG = '0018829C'X' PARAMETER m FOR$_SQUROONEG = '001882A4'X' PARAMETER FOR$_SIGLOSMAT = '001882BC'X' PARAMETER FOR$_FLOOVEMAT = '001882C4'X' PARAMETER FOR$_FLOUNDMAT = '001882CA'X' PARAMETER FOR$_ADJARRDIM = '001882EC'X' PARAMETER FOR$_INVMATKEY = '001882F4'X' PARAMETER FOR$_FLOCONFAI = '001882FA'X' PARAMETER FOR$_CANSTAFIL = '00188364'X' PARAMETER FOR$_OPEREQSEE = '001883C4'X( PARAMETER FOR$_BRK_USERBP = '00188414'X* PARAMETER FOR$_BRK_KERNELBP = '0018841C'X* PARAMETER FOR$_BRK_BD_TAKEN = '0018842C'X- PARAMET nER FOR$_BRK_BD_NOTTAKEN = '00188434'X) PARAMETER FOR$_BRK_SSTEPBP = '0018843C'X* PARAMETER FOR$_BRK_OVERFLOW = '00188444'X) PARAMETER FOR$_BRK_DIVZERO = '0018844C'X' PARAMETER FOR$_BRK_RANGE = '00188454'X( PARAMETER FOR$_BRK_RANGE2 = '0018845C'X ! **********F ! [X-9] THE FOLLOWING ERRORS REFER TO GENTRAP EXCEPTIONS OR SIGNALS # ! AND ARE NOT RETURNED BY IOSTAT.$ PARAMETER FOR$_FLTINE = '00188464'X$ PARAMETER FOR$_DECOVF = '0018846C'X$ PARAMETER FOR$_DECDIV = '00188474'X$ PARAMETERo FOR$_DECINV = '0018847C'X% PARAMETER FOR$_ROPRAND = '00188484'X' PARAMETER FOR$_ASSERTERR = '0018848C'X' PARAMETER FOR$_NULPTRERR = '00188494'X$ PARAMETER FOR$_STKOVF = '0018849C'X' PARAMETER FOR$_STRLENERR = '001884A4'X' PARAMETER FOR$_SUBSTRERR = '001884AC'X& PARAMETER FOR$_RANGEERR = '001884B4'X ! **********G ! [X-10] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYS( PARAMETER FOR$_INVREALLOC = '001884BC'X ! ********** ! [X-11]' PARAMETER FOR$_RESACQFAI = '001 p884C4'X ! **********G ! [X-12] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYSP ! [X-14] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS.( PARAMETER FOR$_INVDEALLOC = '001884CC'X ! **********P ! [X-18] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS.) PARAMETER FOR$_INVDEALLOC2 = '0018856C'X ! **********Y ! [X-21] NEW ERRORS GENERATED FOR ARGUMENT LENGTHS SHORTER THAN STANDARD SPECIFIES FOR # ! INTRINSIC DATE_AND_TI qME.0 ! [X-24] NEW ERROR FOR GENERIC DIVIDE BY ZERO.8 ! [X-25] NEW ERROR FOR ARRAY ALLOCATION SIZE OVERFLOW.* PARAMETER FOR$_SHORTDATEARG = '0018857C'X* PARAMETER FOR$_SHORTTIMEARG = '00188584'X* PARAMETER FOR$_SHORTZONEARG = '0018858C'X! PARAMETER FOR$_DIV = '00188594'X( PARAMETER FOR$_ARRSIZEOVF = '0018859C'X ! **********F ! THE FOLLOWING MESSAGES ARE SECONDARY MESSAGES, OR ARE USED ONLY INF ! EXIT HANDLERS, AND THEREFORE DO NOT NEED TO BE (AND SHOULD NOT BE)' ! CONTIGUOUS WITH TH rE MESSAGES ABOVE.J ! THE NEXT SIX MESSAGES ARE SECONDARY MESSAGES FOR USE WITH MIXFILACC IN ! FOR$$IO_BEG AND FOR$$CB.' PARAMETER FOR$_UNFIO_FMT = '00188804'X' PARAMETER FOR$_FMTIO_UNF = '0018880C'X' PARAMETER FOR$_DIRIO_KEY = '00188814'X' PARAMETER FOR$_SEQIO_DIR = '0018881C'X' PARAMETER FOR$_KEYIO_DIR = '00188824'X' PARAMETER FOR$_IO_NONFOR = '0018882C'XJ ! THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN ! FOR$$UDF_WF AND FOR$$UDF_WL.' PARAMETER FOR$_IN sVTEXREC = '00188834'X$ PARAMETER FOR$_INVTEX = '0018883C'X! ! ADDITIONAL SECONDARY MESSAGES' PARAMETER FOR$_OPEREQDIS = '00188844'X' PARAMETER FOR$_OPEREQSEQ = '0018884C'X' PARAMETER FOR$_PROABOUSE = '00188852'X( PARAMETER FOR$_FLOCONFAIU = '0018885A'X ! **********Q ! [X-13] THE FOLLOWING MESSAGE IS A FATAL MESSAGE ACCORDING TO THE F90 STANDARD' PARAMETER FOR$_ENDRECDUR = '00188864'XX ! THESE NEXT 4 MESSAGES ARE USED IN THE EXIT HANDLER WHICH IS DECLARED BY FOR$HANDLER.' PARAMETtER FOR$_FLOINEEXC = '00188943'X' PARAMETER FOR$_FLOINVEXC = '0018894B'X' PARAMETER FOR$_FLOOVFEXC = '00188953'X( PARAMETER FOR$_FLODIV0EXC = '0018895B'X' PARAMETER FOR$_FLOUNDEXC = '00188963'X) PARAMETER FOR$_VECALIGNEXC = '0018896B'X ! END OF SPECIAL MESSAGES ! ********** ! **********D ! RESERVE A NUMBER FOR A MESSAGE TO REPORT COMPILED CODE GENERATED ! RUNTIME ERRORS.' PARAMETER FOR$_MSGBUFOVF = '00188C7C'X( PARAMETER FOR$_DIAGNOSTIC = '00188C84'X ! **********A ! TH uE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE 6 ! VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT.  ! ' PARAMETER FOR$_FATINTERR = '00189004'X( PARAMETER FOR$_SUBPRCDIED = '0018900C'X' PARAMETER FOR$_NOTIMPRET = '00189014'X( PARAMETER FOR$_FAIOWNERID = '0018901C'X& PARAMETER FOR$_FAIPRCID = '00189024'X( PARAMETER FOR$_FAIPRCNAME = '0018902C'X' PARAMETER FOR$_FAIACTCPU = '00189034'X& PARAMETER FOR$_FAIIDPRC = '0018903C'X) PARAMETER FOR$_FAIIMAGNAME = '00189044'X( PARAM vETER FOR$_FAIDCLEXIT = '0018904C'X' PARAMETER FOR$_FAISUBPRC = '00189054'X' PARAMETER FOR$_INVNUMPRC = '0018905C'X' PARAMETER FOR$_MEMSHRERR = '00189064'X) PARAMETER FOR$_LOCALSHRERR = '0018906C'X) PARAMETER FOR$_LOCALACCESS = '00189074'X' PARAMETER FOR$_INVLCLADR = '0018907C'X' PARAMETER FOR$_COMSHRERR = '00189084'X' PARAMETER FOR$_INVCOMADR = '0018908C'X( PARAMETER FOR$_PARINITERR = '00189094'X) PARAMETER FOR$_STACKSHRERR = '0018909C'X) PARAMETER FOR$_FAISHRSTACK = '001890A4'X' w PARAMETER FOR$_INVUNWIND = '001890AC'X' PARAMETER FOR$_STKBUFOVR = '001890B4'X' PARAMETER FOR$_SUBPRCDEL = '001890BC'X7 PARAMETER FOR$_ASSERTFAIL = '001890C4'X ! **********M ! THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM MICORSOFT FORTRAN AND NOW ! VISUAL FORTRAN. ! < ! [X-16] THE FOLLOWING ERRORS REFER TO MSF ERROR MESSAGES.= ! THESE MESSAGES MUST REMAIN IN CONTIGUOUS ORDER SO THAT AN@ ! OFFSET INTO A MAPPING ARRAY CAN BE COMPUTED FROM THE MESSAGE@ ! BASE NUMBER, WHICH x IS 540 FOR MSF MESSAGES. THAT WAY VISUAL; ! FORTRAN CAN RETURN IOSTAT NUMBERS SIMILAR TO MSF. ALSO> ! WE PUT THESE MESSAGES THIS FAR DOWN TO KEEP IN SYNCH WITH ? ! THE VMS MESSAGE FILE. IT HAS CONTIGUOUS OPENINGS UP TO 768@ ! IN THIS RANGE. THE NEXT CONTIGUOUS OPENING BEGINS FROM 1024.# PARAMETER FOR$_F6096 = '001890E4'X# PARAMETER FOR$_F6097 = '001890EC'X# PARAMETER FOR$_F6098 = '001890F4'X# PARAMETER FOR$_F6099 = '001890FC'X# PARAMETER FOR$_F6100 = '00189104'X# PARAMETER FORy$_F6101 = '0018910C'X# PARAMETER FOR$_F6102 = '00189114'X# PARAMETER FOR$_F6103 = '0018911C'X# PARAMETER FOR$_F6104 = '00189124'X# PARAMETER FOR$_F6105 = '0018912C'X# PARAMETER FOR$_F6106 = '00189134'X# PARAMETER FOR$_F6200 = '0018913C'X# PARAMETER FOR$_F6201 = '00189144'X# PARAMETER FOR$_F6202 = '0018914C'X# PARAMETER FOR$_F6203 = '00189154'X# PARAMETER FOR$_F6204 = '0018915C'X# PARAMETER FOR$_F6205 = '00189164'X# PARAMETER FOR$_F6206 = '0018916C'X# PARAMETER FOR$_F6207 = '0z0189174'X# PARAMETER FOR$_F6208 = '0018917C'X# PARAMETER FOR$_F6209 = '00189184'X# PARAMETER FOR$_F6210 = '0018918C'X# PARAMETER FOR$_F6211 = '00189194'X# PARAMETER FOR$_F6212 = '0018919C'X# PARAMETER FOR$_F6213 = '001891A4'X# PARAMETER FOR$_F6214 = '001891AC'X# PARAMETER FOR$_F6300 = '001891B4'X# PARAMETER FOR$_F6301 = '001891BC'X# PARAMETER FOR$_F6302 = '001891C4'X# PARAMETER FOR$_F6303 = '001891CC'X# PARAMETER FOR$_F6304 = '001891D4'X# PARAMETER FOR$_F6305 = '001891DC'X#{ PARAMETER FOR$_F6306 = '001891E4'X# PARAMETER FOR$_F6307 = '001891EC'X# PARAMETER FOR$_F6308 = '001891F4'X# PARAMETER FOR$_F6309 = '001891FC'X# PARAMETER FOR$_F6310 = '00189204'X# PARAMETER FOR$_F6311 = '0018920C'X# PARAMETER FOR$_F6312 = '00189214'X# PARAMETER FOR$_F6313 = '0018921C'X# PARAMETER FOR$_F6314 = '00189224'X# PARAMETER FOR$_F6315 = '0018922C'X# PARAMETER FOR$_F6316 = '00189234'X# PARAMETER FOR$_F6317 = '0018923C'X# PARAMETER FOR$_F6318 = '00189244'X# PARAMETER F|OR$_F6319 = '0018924C'X# PARAMETER FOR$_F6400 = '00189254'X# PARAMETER FOR$_F6401 = '0018925C'X# PARAMETER FOR$_F6402 = '00189264'X# PARAMETER FOR$_F6403 = '0018926C'X# PARAMETER FOR$_F6404 = '00189274'X# PARAMETER FOR$_F6405 = '0018927C'X# PARAMETER FOR$_F6406 = '00189284'X# PARAMETER FOR$_F6407 = '0018928C'X# PARAMETER FOR$_F6408 = '00189294'X# PARAMETER FOR$_F6409 = '0018929C'X# PARAMETER FOR$_F6410 = '001892A4'X# PARAMETER FOR$_F6411 = '001892AC'X# PARAMETER FOR$_F6412 = }'001892B4'X# PARAMETER FOR$_F6413 = '001892BC'X# PARAMETER FOR$_F6414 = '001892C4'X# PARAMETER FOR$_F6415 = '001892CC'X# PARAMETER FOR$_F6416 = '001892D4'X# PARAMETER FOR$_F6417 = '001892DC'X# PARAMETER FOR$_F6418 = '001892E4'X# PARAMETER FOR$_F6419 = '001892EC'X# PARAMETER FOR$_F6420 = '001892F4'X# PARAMETER FOR$_F6421 = '001892FC'X# PARAMETER FOR$_F6422 = '00189304'X# PARAMETER FOR$_F6423 = '0018930C'X# PARAMETER FOR$_F6424 = '00189314'X# PARAMETER FOR$_F6425 = '0018931C'X~# PARAMETER FOR$_F6500 = '00189324'X# PARAMETER FOR$_F6501 = '0018932C'X# PARAMETER FOR$_F6502 = '00189334'X# PARAMETER FOR$_F6503 = '0018933C'X# PARAMETER FOR$_F6504 = '00189344'X# PARAMETER FOR$_F6505 = '0018934C'X# PARAMETER FOR$_F6506 = '00189354'X# PARAMETER FOR$_F6507 = '0018935C'X# PARAMETER FOR$_F6508 = '00189364'X# PARAMETER FOR$_F6509 = '0018936C'X# PARAMETER FOR$_F6510 = '00189374'X# PARAMETER FOR$_F6511 = '0018937C'X# PARAMETER FOR$_F6512 = '00189384'X# PARAMETER FOR$_F6513 = '0018938C'X# PARAMETER FOR$_F6514 = '00189394'X# PARAMETER FOR$_F6515 = '0018939C'X# PARAMETER FOR$_F6516 = '001893A4'X# PARAMETER FOR$_F6600 = '001893AC'X# PARAMETER FOR$_F6601 = '001893B4'X# PARAMETER FOR$_F6602 = '001893BC'X# PARAMETER FOR$_F6700 = '001893C4'X# PARAMETER FOR$_F6701 = '001893CC'X# PARAMETER FOR$_F6970 = '001893D4'X# PARAMETER FOR$_F6971 = '001893DC'X# PARAMETER FOR$_F6972 = '001893E4'X# PARAMETER FOR$_F6980 = '001893EC'X# PARAMETER FOR$_F6981 = '001893F4'X# PARAMETER FOR$_F6982 = '001893FC'X# PARAMETER FOR$_F6983 = '00189404'X# PARAMETER FOR$_F6984 = '0018940C'X# PARAMETER FOR$_F6985 = '00189414'X# PARAMETER FOR$_F6986 = '0018941C'X# PARAMETER FOR$_F6987 = '00189424'X# PARAMETER FOR$_F6988 = '0018942C'X# PARAMETER FOR$_F6989 = '00189434'X# PARAMETER FOR$_F6990 = '0018943C'X# PARAMETER FOR$_F6991 = '00189444'X# PARAMETER FOR$_F6992 = '0018944C'X# PARAMETER FOR$_F6993 = '00189454'X# PARAMETER FOR$_F6994 = '0018945C'X# PARAMETER FOR$_F6995 = '00189464'X# PARAMETER FOR$_F6996 = '0018946C'X# PARAMETER FOR$_F6997 = '00189474'X# PARAMETER FOR$_F6998 = '0018947C'X# PARAMETER FOR$_F6999 = '00189484'X# PARAMETER FOR$_F6702 = '0018948C'X# PARAMETER FOR$_F6703 = '00189494'X# PARAMETER FOR$_F6704 = '0018949C'X# PARAMETER FOR$_F6705 = '001894A4'X# PARAMETER FOR$_F6706 = '001894AC'X# PARAMETER FOR$_F6707 = '001894B4'X# PARAMETER FOR$_F6708 = '001894BC'X# PARAMETER FOR$_F6709 = '001894C4'X# PARAMETER FOR$_F6710 = '001894CC'X# PARAMETER FOR$_F6711 = '001894D4'X# PARAMETER FOR$_F6712 = '001894DC'X# PARAMETER FOR$_F6713 = '001894E4'X# PARAMETER FOR$_F6714 = '001894EC'X# PARAMETER FOR$_F6715 = '001894F4'X# PARAMETER FOR$_F6716 = '001894FC'X# PARAMETER FOR$_F6717 = '00189504'X# PARAMETER FOR$_F6718 = '0018950C'X# PARAMETER FOR$_F6719 = '00189514'X# PARAMETER FOR$_F6720 = '0018951C'X# PARAMETER FOR$_F6721 = '00189524'X# PARAMETER FOR$_F6722 = '0018952C'X# PARAMETER FOR$_F6723 = '00189534'X# PARAMETER FOR$_F6724 = '0018953C'X# PARAMETER FOR$_F6725 = '00189544'X# PARAMETER FOR$_F6726 = '0018954C'X# PARAMETER FOR$_F6727 = '00189554'X# PARAMETER FOR$_F6728 = '0018955C'X# PARAMETER FOR$_F6729 = '00189564'X# PARAMETER FOR$_F6730 = '0018956C'X# PARAMETER FOR$_F6731 = '00189574'X# PARAMETER FOR$_F6732 = '0018957C'X# PARAMETER FOR$_F6733 = '00189584'X# PARAMETER FOR$_F6734 = '0018958C'X# PARAMETER FOR$_F6735 = '00189594'X# PARAMETER FOR$_F6736 = '0018959C'X# PARAMETER FOR$_F6737 = '001895A4'X# PARAMETER FOR$_F6738 = '001895AC'X# PARAMETER FOR$_F6739 = '001895B4'X# PARAMETER FOR$_F6740 = '001895BC'X# PARAMETER FOR$_F6741 = '001895C4'X# PARAMETER FOR$_F6742 = '001895CC'X# PARAMETER FOR$_F6743 = '001895D4'X# PARAMETER FOR$_F6744 = '001895DC'X# PARAMETER FOR$_F6745 = '001895E4'X# PARAMETER FOR$_F6746 = '001895EC'X# PARAMETER FOR$_F6747 = '001895F4'X# PARAMETER FOR$_F6748 = '001895FC'X# PARAMETER FOR$_F6749 = '00189604'X# PARAMETER FOR$_F6750 = '0018960C'X# PARAMETER FOR$_F6751 = '00189614'X# PARAMETER FOR$_F6752 = '0018961C'X# PARAMETER FOR$_F6753 = '00189624'X# PARAMETER FOR$_F6754 = '0018962C'X# PARAMETER FOR$_F6755 = '00189634'X# PARAMETER FOR$_F6756 = '0018963C'X# PARAMETER FOR$_F6757 = '00189644'X# PARAMETER FOR$_F6758 = '0018964C'X# PARAMETER FOR$_F6759 = '00189654'X# PARAMETER FOR$_F6760 = '0018965C'X# PARAMETER FOR$_F6761 = '00189664'X# PARAMETER FOR$_F6762 = '0018966C'X# PARAMETER FOR$_F6763 = '00189674'X# PARAMETER FOR$_F6764 = '0018967C'X# PARAMETER FOR$_F6765 = '00189684'X# PARAMETER FOR$_F6766 = '0018968C'X# PARAMETER FOR$_F6767 = '00189694'X# PARAMETER FOR$_F6768 = '0018969C'X# PARAMETER FOR$_F6769 = '001896A4'X# PARAMETER FOR$_F6770 = '001896AC'X# PARAMETER FOR$_F6771 = '001896B4'X# PARAMETER FOR$_F6772 = '001896BC'X# PARAMETER FOR$_F6773 = '001896C4'X# PARAMETER FOR$_F6774 = '001896CC'X# PARAMETER FOR$_F6775 = '001896D4'X# PARAMETER FOR$_F6776 = '001896DC'X# PARAMETER FOR$_F6777 = '001896E4'X# PARAMETER FOR$_F6778 = '001896EC'X# PARAMETER FOR$_F6779 = '001896F4'X# PARAMETER FOR$_F6780 = '001896FC'X# PARAMETER FOR$_F6781 = '00189704'X# PARAMETER FOR$_F6782 = '0018970C'X# PARAMETER FOR$_F6783 = '00189714'X# PARAMETER FOR$_F6784 = '0018971C'X# PARAMETER FOR$_F6785 = '00189724'X# PARAMETER FOR$_F6786 = '0018972C'X# PARAMETER FOR$_F6787 = '00189734'X# PARAMETER FOR$_F6788 = '0018973C'X# PARAMETER FOR$_F6789 = '00189744'X# PARAMETER FOR$_F6790 = '0018974C'X# PARAMETER FOR$_F6791 = '00189754'X# PARAMETER FOR$_F6792 = '0018975C'X# PARAMETER FOR$_F6793 = '00189764'X# PARAMETER FOR$_F6794 = '0018976C'X# PARAMETER FOR$_F6795 = '00189774'X# PARAMETER FOR$_F6796 = '0018977C'X# PARAMETER FOR$_F6797 = '00189784'X# PARAMETER FOR$_F6798 = '0018978C'X# PARAMETER FOR$_F6799 = '00189794'X# PARAMETER FOR$_F6800 = '0018979C'X# PARAMETER FOR$_F6801 = '001897A4'X# PARAMETER FOR$_F6802 = '001897AC'X# PARAMETER FOR$_F6803 = '001897B4'X# PARAMETER FOR$_F6804 = '001897BC'X, ! END OF SPECIAL MISCROSOFT ERROR MESSAGES ! **********' PARAMETER FOR$_INVLOGNAM = '00189802'X' PARAMETER FOR$_TOOMANPRC = '0018980A'X) PARAMETER FOR$_INVDSTRSIZE = '00189812'X( PARAMETER FOR$_DEFVALUSED = '0018A803'X( PARAMETER FOR$_UNIPROCESS = '0018A80B'X' PARAMETER FOR$_NOPARINIT = '0018A813'X( PARAMETER FOR$_NOTRUNINPP = '0018A81B'X( PARAMETER FOR$_NESTPPLOOP = '0018A823'X' PARAMETER FOR$_UNAWAKSUB = '0018A82B'X ! END OF FORRTL2 MESSAGES ! **********!DEC$ END OPTIONSww!Φ!F! ********************************************************************F! * *F! * Copyright 2001 Compaq Computer Corporation *F! * *F! * Compaq and the Compaq logo are trademarks of Compaq Information *F! * Technologies Group, L.P.  *F! * *F! * Confidential computer software. Valid license from Compaq *F! * required for possession, use or copying. Consistent with FAR *F! * 12.211 and 12.212, Commercial Computer Software, Computer *F! * Software Documentation, and Technical Data for Commercial Items *F! * are licensed to the U.S. Government under vendor's standard *F! * commercial license.  *F! * *F! ********************************************************************! (!*** MODULE $foriosdef IDENT V1.0-12 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN PARAMETER FOR$IOS_EOR = -2 PARAMETER FOR$IOS_EOF = -1( PARAMETER FOR$IOS_SUCCESS = '00000000'X* PARAMETER FOR$IOS_NOTFORSPE = '00000001'X' PARAMETER FOR$IOS_NOTIMP = '00000002'X( PARAMETER FOR$IOS_IGNORED = '00000003'X* PARAM ETER FOR$IOS_IGNNOTDEL = '00000004'X% PARAMETER FOR$IOS_INFO = '00000005'X( PARAMETER FOR$IOS_VERSION = '00000006'X) PARAMETER FOR$IOS_RESERVE7 = '00000007'X* PARAMETER FOR$IOS_BUG_CHECK = '00000008'X* PARAMETER FOR$IOS_PERACCFIL = '00000009'X* PARAMETER FOR$IOS_CANOVEEXI = '0000000A'X* PARAMETER FOR$IOS_UNINOTCON = '0000000B'X* PARAMETER FOR$IOS_RESERVE12 = '0000000C'X* PARAMETER FOR$IOS_RESERVE13 = '0000000D'X* PARAMETER FOR$IOS_RESERVE14 = '0000000E'X* PARAMETER FOR$IOS_RESERVE15 = '00 00000F'X* PARAMETER FOR$IOS_RESERVE16 = '00000010'X* PARAMETER FOR$IOS_SYNERRNAM = '00000011'X* PARAMETER FOR$IOS_TOOMANVAL = '00000012'X* PARAMETER FOR$IOS_INVREFVAR = '00000013'X' PARAMETER FOR$IOS_REWERR = '00000014'X* PARAMETER FOR$IOS_DUPFILSPE = '00000015'X* PARAMETER FOR$IOS_INPRECTOO = '00000016'X' PARAMETER FOR$IOS_BACERR = '00000017'X* PARAMETER FOR$IOS_ENDDURREA = '00000018'X* PARAMETER FOR$IOS_RECNUMOUT = '00000019'X* PARAMETER FOR$IOS_OPEDEFREQ = '0000001A'X* PARAMETER FOR$I OS_TOOMANREC = '0000001B'X' PARAMETER FOR$IOS_CLOERR = '0000001C'X* PARAMETER FOR$IOS_FILNOTFOU = '0000001D'X' PARAMETER FOR$IOS_OPEFAI = '0000001E'X* PARAMETER FOR$IOS_MIXFILACC = '0000001F'X* PARAMETER FOR$IOS_INVLOGUNI = '00000020'X* PARAMETER FOR$IOS_ENDFILERR = '00000021'X* PARAMETER FOR$IOS_UNIALROPE = '00000022'X* PARAMETER FOR$IOS_SEGRECFOR = '00000023'X* PARAMETER FOR$IOS_ATTACCNON = '00000024'X* PARAMETER FOR$IOS_INCRECLEN = '00000025'X* PARAMETER FOR$IOS_ERRDURWRI = '00000026'X * PARAMETER FOR$IOS_ERRDURREA = '00000027'X* PARAMETER FOR$IOS_RECIO_OPE = '00000028'X* PARAMETER FOR$IOS_INSVIRMEM = '00000029'X* PARAMETER FOR$IOS_NO_SUCDEV = '0000002A'X* PARAMETER FOR$IOS_FILNAMSPE = '0000002B'X* PARAMETER FOR$IOS_INCRECTYP = '0000002C'X* PARAMETER FOR$IOS_KEYVALERR = '0000002D'X* PARAMETER FOR$IOS_INCOPECLO = '0000002E'X* PARAMETER FOR$IOS_WRIREAFIL = '0000002F'X* PARAMETER FOR$IOS_INVARGFOR = '00000030'X* PARAMETER FOR$IOS_INVKEYSPE = '00000031'X* PARAMETER FOR$IOS_I NCKEYCHG = '00000032'X* PARAMETER FOR$IOS_INCFILORG = '00000033'X* PARAMETER FOR$IOS_SPERECLOC = '00000034'X* PARAMETER FOR$IOS_NO_CURREC = '00000035'X* PARAMETER FOR$IOS_REWRITERR = '00000036'X' PARAMETER FOR$IOS_DELERR = '00000037'X' PARAMETER FOR$IOS_UNLERR = '00000038'X' PARAMETER FOR$IOS_FINERR = '00000039'X' PARAMETER FOR$IOS_FMTSYN = '0000003A'X* PARAMETER FOR$IOS_LISIO_SYN = '0000003B'X* PARAMETER FOR$IOS_INFFORLOO = '0000003C'X* PARAMETER FOR$IOS_FORVARMIS = '0000003D'X* PARAM ETER FOR$IOS_SYNERRFOR = '0000003E'X* PARAMETER FOR$IOS_OUTCONERR = '0000003F'X* PARAMETER FOR$IOS_INPCONERR = '00000040'X' PARAMETER FOR$IOS_FLTINV = '00000041'X* PARAMETER FOR$IOS_OUTSTAOVE = '00000042'X* PARAMETER FOR$IOS_INPSTAREQ = '00000043'X* PARAMETER FOR$IOS_VFEVALERR = '00000044'X' PARAMETER FOR$IOS_SIGINT = '00000045'X' PARAMETER FOR$IOS_INTOVF = '00000046'X' PARAMETER FOR$IOS_INTDIV = '00000047'X' PARAMETER FOR$IOS_FLTOVF = '00000048'X' PARAMETER FOR$IOS_FLTDIV = '00000049' X' PARAMETER FOR$IOS_FLTUND = '0000004A'X' PARAMETER FOR$IOS_SIGFPE = '0000004B'X' PARAMETER FOR$IOS_SIGIOT = '0000004C'X' PARAMETER FOR$IOS_SUBRNG = '0000004D'X( PARAMETER FOR$IOS_SIGTERM = '0000004E'X( PARAMETER FOR$IOS_SIGQUIT = '0000004F'X* PARAMETER FOR$IOS_WRONUMARG = '00000050'X* PARAMETER FOR$IOS_INVARGMAT = '00000051'X' PARAMETER FOR$IOS_UNDEXP = '00000052'X* PARAMETER FOR$IOS_LOGZERNEG = '00000053'X* PARAMETER FOR$IOS_SQUROONEG = '00000054'X* PARAMETER FOR$IOS_RESERVE85 = ' 00000055'X* PARAMETER FOR$IOS_RESERVE86 = '00000056'X* PARAMETER FOR$IOS_SIGLOSMAT = '00000057'X* PARAMETER FOR$IOS_FLOOVEMAT = '00000058'X* PARAMETER FOR$IOS_FLOUNDMAT = '00000059'X* PARAMETER FOR$IOS_RESERVE90 = '0000005A'X* PARAMETER FOR$IOS_RESERVE91 = '0000005B'X* PARAMETER FOR$IOS_RESERVE92 = '0000005C'X* PARAMETER FOR$IOS_ADJARRDIM = '0000005D'X* PARAMETER FOR$IOS_INVMATKEY = '0000005E'X* PARAMETER FOR$IOS_RESERVE95 = '0000005F'X* PARAMETER FOR$IOS_RESERVE96 = '00000060'X* PARAMETER  FOR$IOS_RESERVE97 = '00000061'X* PARAMETER FOR$IOS_RESERVE98 = '00000062'X* PARAMETER FOR$IOS_RESERVE99 = '00000063'X+ PARAMETER FOR$IOS_RESERVE100 = '00000064'X+ PARAMETER FOR$IOS_RESERVE101 = '00000065'X+ PARAMETER FOR$IOS_RESERVE102 = '00000066'X+ PARAMETER FOR$IOS_RESERVE103 = '00000067'X+ PARAMETER FOR$IOS_RESERVE104 = '00000068'X+ PARAMETER FOR$IOS_RESERVE105 = '00000069'X+ PARAMETER FOR$IOS_RESERVE106 = '0000006A'X+ PARAMETER FOR$IOS_RESERVE107 = '0000006B'X* PARAMETER FOR$I OS_CANSTAFIL = '0000006C'X+ PARAMETER FOR$IOS_RESERVE109 = '0000006D'X+ PARAMETER FOR$IOS_RESERVE110 = '0000006E'X+ PARAMETER FOR$IOS_RESERVE111 = '0000006F'X+ PARAMETER FOR$IOS_RESERVE112 = '00000070'X+ PARAMETER FOR$IOS_RESERVE113 = '00000071'X+ PARAMETER FOR$IOS_RESERVE114 = '00000072'X+ PARAMETER FOR$IOS_RESERVE115 = '00000073'X+ PARAMETER FOR$IOS_RESERVE116 = '00000074'X+ PARAMETER FOR$IOS_RESERVE117 = '00000075'X+ PARAMETER FOR$IOS_RESERVE118 = '00000076'X+ PARAMETER FOR$IOS _RESERVE119 = '00000077'X* PARAMETER FOR$IOS_OPEREQSEE = '00000078'X+ PARAMETER FOR$IOS_RESERVE121 = '00000079'X+ PARAMETER FOR$IOS_RESERVE122 = '0000007A'X+ PARAMETER FOR$IOS_RESERVE123 = '0000007B'X+ PARAMETER FOR$IOS_RESERVE124 = '0000007C'X+ PARAMETER FOR$IOS_RESERVE125 = '0000007D'X+ PARAMETER FOR$IOS_RESERVE126 = '0000007E'X+ PARAMETER FOR$IOS_RESERVE127 = '0000007F'X+ PARAMETER FOR$IOS_RESERVE128 = '00000080'X+ PARAMETER FOR$IOS_RESERVE129 = '00000081'X+ PARAMETER FOR$IOS_B RK_USERBP = '00000082'X- PARAMETER FOR$IOS_BRK_KERNELBP = '00000083'X+ PARAMETER FOR$IOS_RESERVE132 = '00000084'X- PARAMETER FOR$IOS_BRK_BD_TAKEN = '00000085'X0 PARAMETER FOR$IOS_BRK_BD_NOTTAKEN = '00000086'X, PARAMETER FOR$IOS_BRK_SSTEPBP = '00000087'X- PARAMETER FOR$IOS_BRK_OVERFLOW = '00000088'X, PARAMETER FOR$IOS_BRK_DIVZERO = '00000089'X* PARAMETER FOR$IOS_BRK_RANGE = '0000008A'X+ PARAMETER FOR$IOS_BRK_RANGE2 = '0000008B'X' PARAMETER FOR$IOS_FLTINE = '0000008C'X' PARAMETER FOR$I OS_DECOVF = '0000008D'X' PARAMETER FOR$IOS_DECDIV = '0000008E'X' PARAMETER FOR$IOS_DECINV = '0000008F'X( PARAMETER FOR$IOS_ROPRAND = '00000090'X* PARAMETER FOR$IOS_ASSERTERR = '00000091'X* PARAMETER FOR$IOS_NULPTRERR = '00000092'X' PARAMETER FOR$IOS_STKOVF = '00000093'X* PARAMETER FOR$IOS_STRLENERR = '00000094'X* PARAMETER FOR$IOS_SUBSTRERR = '00000095'X) PARAMETER FOR$IOS_RANGEERR = '00000096'X+ PARAMETER FOR$IOS_INVREALLOC = '00000097'X* PARAMETER FOR$IOS_RESACQFAI = '00000098'X+ P ARAMETER FOR$IOS_INVDEALLOC = '00000099'X+ PARAMETER FOR$IOS_RESERVE154 = '0000009A'X+ PARAMETER FOR$IOS_RESERVE155 = '0000009B'X+ PARAMETER FOR$IOS_RESERVE156 = '0000009C'X+ PARAMETER FOR$IOS_RESERVE157 = '0000009D'X+ PARAMETER FOR$IOS_RESERVE158 = '0000009E'X+ PARAMETER FOR$IOS_RESERVE159 = '0000009F'X+ PARAMETER FOR$IOS_RESERVE160 = '000000A0'X+ PARAMETER FOR$IOS_RESERVE161 = '000000A1'X+ PARAMETER FOR$IOS_RESERVE162 = '000000A2'X+ PARAMETER FOR$IOS_RESERVE163 = '000000A3'X+ P ARAMETER FOR$IOS_RESERVE164 = '000000A4'X+ PARAMETER FOR$IOS_RESERVE165 = '000000A5'X+ PARAMETER FOR$IOS_RESERVE166 = '000000A6'X+ PARAMETER FOR$IOS_RESERVE167 = '000000A7'X+ PARAMETER FOR$IOS_RESERVE168 = '000000A8'X+ PARAMETER FOR$IOS_RESERVE169 = '000000A9'X+ PARAMETER FOR$IOS_RESERVE170 = '000000AA'X+ PARAMETER FOR$IOS_RESERVE171 = '000000AB'X+ PARAMETER FOR$IOS_RESERVE172 = '000000AC'X, PARAMETER FOR$IOS_INVDEALLOC2 = '000000AD'X+ PARAMETER FOR$IOS_RESERVE174 = '000000AE'X- P ARAMETER FOR$IOS_SHORTDATEARG = '000000AF'X- PARAMETER FOR$IOS_SHORTTIMEARG = '000000B0'X- PARAMETER FOR$IOS_SHORTZONEARG = '000000B1'X$ PARAMETER FOR$IOS_DIV = '000000B2'X+ PARAMETER FOR$IOS_ARRSIZEOVF = '000000B3'X+ PARAMETER FOR$IOS_RESERVE180 = '000000B4'X+ PARAMETER FOR$IOS_RESERVE181 = '000000B5'X+ PARAMETER FOR$IOS_RESERVE182 = '000000B6'X+ PARAMETER FOR$IOS_RESERVE183 = '000000B7'X+ PARAMETER FOR$IOS_RESERVE184 = '000000B8'X+ PARAMETER FOR$IOS_RESERVE185 = '000000B9'X+ PAR AMETER FOR$IOS_RESERVE186 = '000000BA'X+ PARAMETER FOR$IOS_RESERVE187 = '000000BB'X+ PARAMETER FOR$IOS_RESERVE188 = '000000BC'X+ PARAMETER FOR$IOS_RESERVE189 = '000000BD'X+ PARAMETER FOR$IOS_RESERVE190 = '000000BE'X+ PARAMETER FOR$IOS_RESERVE191 = '000000BF'X+ PARAMETER FOR$IOS_RESERVE192 = '000000C0'X+ PARAMETER FOR$IOS_RESERVE193 = '000000C1'X+ PARAMETER FOR$IOS_RESERVE194 = '000000C2'X+ PARAMETER FOR$IOS_RESERVE195 = '000000C3'X+ PARAMETER FOR$IOS_RESERVE196 = '000000C4'X+ PAR AMETER FOR$IOS_RESERVE197 = '000000C5'X+ PARAMETER FOR$IOS_RESERVE198 = '000000C6'X+ PARAMETER FOR$IOS_RESERVE199 = '000000C7'X+ PARAMETER FOR$IOS_RESERVE200 = '000000C8'X+ PARAMETER FOR$IOS_RESERVE201 = '000000C9'X+ PARAMETER FOR$IOS_RESERVE202 = '000000CA'X+ PARAMETER FOR$IOS_RESERVE203 = '000000CB'X+ PARAMETER FOR$IOS_RESERVE204 = '000000CC'X+ PARAMETER FOR$IOS_RESERVE205 = '000000CD'X+ PARAMETER FOR$IOS_RESERVE206 = '000000CE'X+ PARAMETER FOR$IOS_RESERVE207 = '000000CF'X+ PAR AMETER FOR$IOS_RESERVE208 = '000000D0'X+ PARAMETER FOR$IOS_RESERVE209 = '000000D1'X+ PARAMETER FOR$IOS_RESERVE210 = '000000D2'X+ PARAMETER FOR$IOS_RESERVE211 = '000000D3'X+ PARAMETER FOR$IOS_RESERVE212 = '000000D4'X+ PARAMETER FOR$IOS_RESERVE213 = '000000D5'X+ PARAMETER FOR$IOS_RESERVE214 = '000000D6'X+ PARAMETER FOR$IOS_RESERVE215 = '000000D7'X+ PARAMETER FOR$IOS_RESERVE216 = '000000D8'X+ PARAMETER FOR$IOS_RESERVE217 = '000000D9'X+ PARAMETER FOR$IOS_RESERVE218 = '000000DA'X+ PAR AMETER FOR$IOS_RESERVE219 = '000000DB'X+ PARAMETER FOR$IOS_RESERVE220 = '000000DC'X+ PARAMETER FOR$IOS_RESERVE221 = '000000DD'X+ PARAMETER FOR$IOS_RESERVE222 = '000000DE'X+ PARAMETER FOR$IOS_RESERVE223 = '000000DF'X+ PARAMETER FOR$IOS_RESERVE224 = '000000E0'X+ PARAMETER FOR$IOS_RESERVE225 = '000000E1'X+ PARAMETER FOR$IOS_RESERVE226 = '000000E2'X+ PARAMETER FOR$IOS_RESERVE227 = '000000E3'X+ PARAMETER FOR$IOS_RESERVE228 = '000000E4'X+ PARAMETER FOR$IOS_RESERVE229 = '000000E5'X+ PAR AMETER FOR$IOS_RESERVE230 = '000000E6'X+ PARAMETER FOR$IOS_RESERVE231 = '000000E7'X+ PARAMETER FOR$IOS_RESERVE232 = '000000E8'X+ PARAMETER FOR$IOS_RESERVE233 = '000000E9'X+ PARAMETER FOR$IOS_RESERVE234 = '000000EA'X+ PARAMETER FOR$IOS_RESERVE235 = '000000EB'X+ PARAMETER FOR$IOS_RESERVE236 = '000000EC'X+ PARAMETER FOR$IOS_RESERVE237 = '000000ED'X+ PARAMETER FOR$IOS_RESERVE238 = '000000EE'X+ PARAMETER FOR$IOS_RESERVE239 = '000000EF'X+ PARAMETER FOR$IOS_RESERVE240 = '000000F0'X+ PAR AMETER FOR$IOS_RESERVE241 = '000000F1'X+ PARAMETER FOR$IOS_RESERVE242 = '000000F2'X+ PARAMETER FOR$IOS_RESERVE243 = '000000F3'X+ PARAMETER FOR$IOS_RESERVE244 = '000000F4'X+ PARAMETER FOR$IOS_RESERVE245 = '000000F5'X+ PARAMETER FOR$IOS_RESERVE246 = '000000F6'X+ PARAMETER FOR$IOS_RESERVE247 = '000000F7'X+ PARAMETER FOR$IOS_RESERVE248 = '000000F8'X+ PARAMETER FOR$IOS_RESERVE249 = '000000F9'X+ PARAMETER FOR$IOS_RESERVE250 = '000000FA'X+ PARAMETER FOR$IOS_RESERVE251 = '000000FB'X+ PAR AMETER FOR$IOS_RESERVE252 = '000000FC'X+ PARAMETER FOR$IOS_RESERVE253 = '000000FD'X+ PARAMETER FOR$IOS_RESERVE254 = '000000FE'X+ PARAMETER FOR$IOS_RESERVE255 = '000000FF'X* PARAMETER FOR$IOS_UNFIO_FMT = '00000100'X* PARAMETER FOR$IOS_FMTIO_UNF = '00000101'X* PARAMETER FOR$IOS_DIRIO_KEY = '00000102'X* PARAMETER FOR$IOS_SEQIO_DIR = '00000103'X* PARAMETER FOR$IOS_KEYIO_DIR = '00000104'X+ PARAMETER FOR$IOS_RESERVE261 = '00000105'X+ PARAMETER FOR$IOS_RESERVE262 = '00000106'X* PARAMETER FOR $IOS_OPEREQDIS = '00000107'X* PARAMETER FOR$IOS_OPEREQSEQ = '00000108'X* PARAMETER FOR$IOS_PROABOUSE = '00000109'X* PARAMETER FOR$IOS_FLOCONFAI = '0000010A'X+ PARAMETER FOR$IOS_RESERVE267 = '0000010B'X* PARAMETER FOR$IOS_ENDRECDUR = '0000010C'X+ PARAMETER FOR$IOS_RESERVE269 = '0000010D'X+ PARAMETER FOR$IOS_RESERVE270 = '0000010E'X+ PARAMETER FOR$IOS_RESERVE271 = '0000010F'X+ PARAMETER FOR$IOS_RESERVE272 = '00000110'X+ PARAMETER FOR$IOS_RESERVE273 = '00000111'X+ PARAMETER FOR$IOS_RESER VE274 = '00000112'X+ PARAMETER FOR$IOS_RESERVE275 = '00000113'X+ PARAMETER FOR$IOS_RESERVE276 = '00000114'X+ PARAMETER FOR$IOS_RESERVE277 = '00000115'X+ PARAMETER FOR$IOS_RESERVE278 = '00000116'X+ PARAMETER FOR$IOS_RESERVE279 = '00000117'X+ PARAMETER FOR$IOS_RESERVE280 = '00000118'X+ PARAMETER FOR$IOS_RESERVE281 = '00000119'X+ PARAMETER FOR$IOS_RESERVE282 = '0000011A'X+ PARAMETER FOR$IOS_RESERVE283 = '0000011B'X+ PARAMETER FOR$IOS_RESERVE284 = '0000011C'X+ PARAMETER FOR$IOS_RESER VE285 = '0000011D'X+ PARAMETER FOR$IOS_RESERVE286 = '0000011E'X+ PARAMETER FOR$IOS_RESERVE287 = '0000011F'X+ PARAMETER FOR$IOS_RESERVE288 = '00000120'X+ PARAMETER FOR$IOS_RESERVE289 = '00000121'X+ PARAMETER FOR$IOS_RESERVE290 = '00000122'X+ PARAMETER FOR$IOS_RESERVE291 = '00000123'X+ PARAMETER FOR$IOS_RESERVE292 = '00000124'X+ PARAMETER FOR$IOS_RESERVE293 = '00000125'X+ PARAMETER FOR$IOS_RESERVE294 = '00000126'X+ PARAMETER FOR$IOS_RESERVE295 = '00000127'X* PARAMETER FOR$IOS_FLOIN EEXC = '00000128'X* PARAMETER FOR$IOS_FLOINVEXC = '00000129'X* PARAMETER FOR$IOS_FLOOVFEXC = '0000012A'X+ PARAMETER FOR$IOS_FLODIV0EXC = '0000012B'X* PARAMETER FOR$IOS_FLOUNDEXC = '0000012C'X+ PARAMETER FOR$IOS_RESERVE301 = '0000012D'X+ PARAMETER FOR$IOS_RESERVE302 = '0000012E'X+ PARAMETER FOR$IOS_RESERVE303 = '0000012F'X+ PARAMETER FOR$IOS_RESERVE304 = '00000130'X+ PARAMETER FOR$IOS_RESERVE305 = '00000131'X+ PARAMETER FOR$IOS_RESERVE306 = '00000132'X+ PARAMETER FOR$IOS_RESERVE307 = '00000133'X+ PARAMETER FOR$IOS_RESERVE308 = '00000134'X+ PARAMETER FOR$IOS_RESERVE309 = '00000135'X+ PARAMETER FOR$IOS_RESERVE310 = '00000136'X+ PARAMETER FOR$IOS_RESERVE311 = '00000137'X+ PARAMETER FOR$IOS_RESERVE312 = '00000138'X+ PARAMETER FOR$IOS_RESERVE313 = '00000139'X+ PARAMETER FOR$IOS_RESERVE314 = '0000013A'X+ PARAMETER FOR$IOS_RESERVE315 = '0000013B'X+ PARAMETER FOR$IOS_RESERVE316 = '0000013C'X+ PARAMETER FOR$IOS_RESERVE317 = '0000013D'X+ PARAMETER FOR$IOS_RESERVE318 = '0000013E'X+ PARAMETER FOR$IOS_RESERVE319 = '0000013F'X+ PARAMETER FOR$IOS_RESERVE320 = '00000140'X+ PARAMETER FOR$IOS_RESERVE321 = '00000141'X+ PARAMETER FOR$IOS_RESERVE322 = '00000142'X+ PARAMETER FOR$IOS_RESERVE323 = '00000143'X+ PARAMETER FOR$IOS_RESERVE324 = '00000144'X+ PARAMETER FOR$IOS_RESERVE325 = '00000145'X+ PARAMETER FOR$IOS_RESERVE326 = '00000146'X+ PARAMETER FOR$IOS_RESERVE327 = '00000147'X+ PARAMETER FOR$IOS_RESERVE328 = '00000148'X+ PARAMETER FOR$IOS_RESERVE329 = '00000149'X+ PARAMETER FOR$IOS_RESERVE330 = '0000014A'X+ PARAMETER FOR$IOS_RESERVE331 = '0000014B'X+ PARAMETER FOR$IOS_RESERVE332 = '0000014C'X+ PARAMETER FOR$IOS_RESERVE333 = '0000014D'X+ PARAMETER FOR$IOS_RESERVE334 = '0000014E'X+ PARAMETER FOR$IOS_RESERVE335 = '0000014F'X+ PARAMETER FOR$IOS_RESERVE336 = '00000150'X+ PARAMETER FOR$IOS_RESERVE337 = '00000151'X+ PARAMETER FOR$IOS_RESERVE338 = '00000152'X+ PARAMETER FOR$IOS_RESERVE339 = '00000153'X+ PARAMETER FOR$IOS_RESERVE340 = '00000154'X+ PARAMETER FOR$IOS_RESERVE341 = '00000155'X+ PARAMETER FOR$IOS_RESERVE342 = '00000156'X+ PARAMETER FOR$IOS_RESERVE343 = '00000157'X+ PARAMETER FOR$IOS_RESERVE344 = '00000158'X+ PARAMETER FOR$IOS_RESERVE345 = '00000159'X+ PARAMETER FOR$IOS_RESERVE346 = '0000015A'X+ PARAMETER FOR$IOS_RESERVE347 = '0000015B'X+ PARAMETER FOR$IOS_RESERVE348 = '0000015C'X+ PARAMETER FOR$IOS_RESERVE349 = '0000015D'X+ PARAMETER FOR$IOS_RESERVE350 = '0000015E'X+ PARAMETER FOR$IOS_RESERVE351 = '0000015F'X+ PARAMETER FOR$IOS_RESERVE352 = '00000160'X+ PARAMETER FOR$IOS_RESERVE353 = '00000161'X+ PARAMETER FOR$IOS_RESERVE354 = '00000162'X+ PARAMETER FOR$IOS_RESERVE355 = '00000163'X+ PARAMETER FOR$IOS_RESERVE356 = '00000164'X+ PARAMETER FOR$IOS_RESERVE357 = '00000165'X+ PARAMETER FOR$IOS_RESERVE358 = '00000166'X+ PARAMETER FOR$IOS_RESERVE359 = '00000167'X+ PARAMETER FOR$IOS_RESERVE360 = '00000168'X+ PARAMETER FOR$IOS_RESERVE361 = '00000169'X+ PARAMETER FOR$IOS_RESERVE362 = '0000016A'X+ PARAMETER FOR$IOS_RESERVE363 = '0000016B'X+ PARAMETER FOR$IOS_RESERVE364 = '0000016C'X+ PARAMETER FOR$IOS_RESERVE365 = '0000016D'X+ PARAMETER FOR$IOS_RESERVE366 = '0000016E'X+ PARAMETER FOR$IOS_RESERVE367 = '0000016F'X+ PARAMETER FOR$IOS_RESERVE368 = '00000170'X+ PARAMETER FOR$IOS_RESERVE369 = '00000171'X+ PARAMETER FOR$IOS_RESERVE370 = '00000172'X+ PARAMETER FOR$IOS_RESERVE371 = '00000173'X+ PARAMETER FOR$IOS_RESERVE372 = '00000174'X+ PARAMETER FOR$IOS_RESERVE373 = '00000175'X+ PARAMETER FOR$IOS_RESERVE374 = '00000176'X+ PARAMETER FOR$IOS_RESERVE375 = '00000177'X+ PARAMETER FOR$IOS_RESERVE376 = '00000178'X+ PARAMETER FOR$IOS_RESERVE377 = '00000179'X+ PARAMETER FOR$IOS_RESERVE378 = '0000017A'X+ PARAMETER FOR$IOS_RESERVE379 = '0000017B'X+ PARAMETER FOR$IOS_RESERVE380 = '0000017C'X+ PARAMETER FOR$IOS_RESERVE381 = '0000017D'X+ PARAMETER FOR$IOS_RESERVE382 = '0000017E'X+ PARAMETER FOR$IOS_RESERVE383 = '0000017F'X+ PARAMETER FOR$IOS_RESERVE384 = '00000180'X+ PARAMETER FOR$IOS_RESERVE385 = '00000181'X+ PARAMETER FOR$IOS_RESERVE386 = '00000182'X+ PARAMETER FOR$IOS_RESERVE387 = '00000183'X+ PARAMETER FOR$IOS_RESERVE388 = '00000184'X+ PARAMETER FOR$IOS_RESERVE389 = '00000185'X+ PARAMETER FOR$IOS_RESERVE390 = '00000186'X+ PARAMETER FOR$IOS_RESERVE391 = '00000187'X+ PARAMETER FOR$IOS_RESERVE392 = '00000188'X+ PARAMETER FOR$IOS_RESERVE393 = '00000189'X+ PARAMETER FOR$IOS_RESERVE394 = '0000018A'X+ PARAMETER FOR$IOS_RESERVE395 = '0000018B'X+ PARAMETER FOR$IOS_RESERVE396 = '0000018C'X+ PARAMETER FOR$IOS_RESERVE397 = '0000018D'X+ PARAMETER FOR$IOS_RESERVE398 = '0000018E'X* PARAMETER FOR$IOS_MSGBUFOVF = '0000018F'X+ PARAMETER FOR$IOS_DIAGNOSTIC = '00000190'X+ PARAMETER FOR$IOS_RESERVE401 = '00000191'X+ PARAMETER FOR$IOS_RESERVE402 = '00000192'X+ PARAMETER FOR$IOS_RESERVE403 = '00000193'X+ PARAMETER FOR$IOS_RESERVE404 = '00000194'X+ PARAMETER FOR$IOS_RESERVE405 = '00000195'X+ PARAMETER FOR$IOS_RESERVE406 = '0 0000196'X+ PARAMETER FOR$IOS_RESERVE407 = '00000197'X+ PARAMETER FOR$IOS_RESERVE408 = '00000198'X+ PARAMETER FOR$IOS_RESERVE409 = '00000199'X+ PARAMETER FOR$IOS_RESERVE410 = '0000019A'X+ PARAMETER FOR$IOS_RESERVE411 = '0000019B'X+ PARAMETER FOR$IOS_RESERVE412 = '0000019C'X+ PARAMETER FOR$IOS_RESERVE413 = '0000019D'X+ PARAMETER FOR$IOS_RESERVE414 = '0000019E'X+ PARAMETER FOR$IOS_RESERVE415 = '0000019F'X+ PARAMETER FOR$IOS_RESERVE416 = '000001A0'X+ PARAMETER FOR$IOS_RESERVE417 = '0 00001A1'X+ PARAMETER FOR$IOS_RESERVE418 = '000001A2'X+ PARAMETER FOR$IOS_RESERVE419 = '000001A3'X+ PARAMETER FOR$IOS_RESERVE420 = '000001A4'X+ PARAMETER FOR$IOS_RESERVE421 = '000001A5'X+ PARAMETER FOR$IOS_RESERVE422 = '000001A6'X+ PARAMETER FOR$IOS_RESERVE423 = '000001A7'X+ PARAMETER FOR$IOS_RESERVE424 = '000001A8'X+ PARAMETER FOR$IOS_RESERVE425 = '000001A9'X+ PARAMETER FOR$IOS_RESERVE426 = '000001AA'X+ PARAMETER FOR$IOS_RESERVE427 = '000001AB'X+ PARAMETER FOR$IOS_RESERVE428 = '0 00001AC'X+ PARAMETER FOR$IOS_RESERVE429 = '000001AD'X+ PARAMETER FOR$IOS_RESERVE430 = '000001AE'X+ PARAMETER FOR$IOS_RESERVE431 = '000001AF'X+ PARAMETER FOR$IOS_RESERVE432 = '000001B0'X+ PARAMETER FOR$IOS_RESERVE433 = '000001B1'X+ PARAMETER FOR$IOS_RESERVE434 = '000001B2'X+ PARAMETER FOR$IOS_RESERVE435 = '000001B3'X+ PARAMETER FOR$IOS_RESERVE436 = '000001B4'X+ PARAMETER FOR$IOS_RESERVE437 = '000001B5'X+ PARAMETER FOR$IOS_RESERVE438 = '000001B6'X+ PARAMETER FOR$IOS_RESERVE439 = '0 00001B7'X+ PARAMETER FOR$IOS_RESERVE440 = '000001B8'X+ PARAMETER FOR$IOS_RESERVE441 = '000001B9'X+ PARAMETER FOR$IOS_RESERVE442 = '000001BA'X+ PARAMETER FOR$IOS_RESERVE443 = '000001BB'X+ PARAMETER FOR$IOS_RESERVE444 = '000001BC'X+ PARAMETER FOR$IOS_RESERVE445 = '000001BD'X+ PARAMETER FOR$IOS_RESERVE446 = '000001BE'X+ PARAMETER FOR$IOS_RESERVE447 = '000001BF'X+ PARAMETER FOR$IOS_RESERVE448 = '000001C0'X+ PARAMETER FOR$IOS_RESERVE449 = '000001C1'X+ PARAMETER FOR$IOS_RESERVE450 = '0 00001C2'X+ PARAMETER FOR$IOS_RESERVE451 = '000001C3'X+ PARAMETER FOR$IOS_RESERVE452 = '000001C4'X+ PARAMETER FOR$IOS_RESERVE453 = '000001C5'X+ PARAMETER FOR$IOS_RESERVE454 = '000001C6'X+ PARAMETER FOR$IOS_RESERVE455 = '000001C7'X+ PARAMETER FOR$IOS_RESERVE456 = '000001C8'X+ PARAMETER FOR$IOS_RESERVE457 = '000001C9'X+ PARAMETER FOR$IOS_RESERVE458 = '000001CA'X+ PARAMETER FOR$IOS_RESERVE459 = '000001CB'X+ PARAMETER FOR$IOS_RESERVE460 = '000001CC'X+ PARAMETER FOR$IOS_RESERVE461 = '0 00001CD'X+ PARAMETER FOR$IOS_RESERVE462 = '000001CE'X+ PARAMETER FOR$IOS_RESERVE463 = '000001CF'X+ PARAMETER FOR$IOS_RESERVE464 = '000001D0'X+ PARAMETER FOR$IOS_RESERVE465 = '000001D1'X+ PARAMETER FOR$IOS_RESERVE466 = '000001D2'X+ PARAMETER FOR$IOS_RESERVE467 = '000001D3'X+ PARAMETER FOR$IOS_RESERVE468 = '000001D4'X+ PARAMETER FOR$IOS_RESERVE469 = '000001D5'X+ PARAMETER FOR$IOS_RESERVE470 = '000001D6'X+ PARAMETER FOR$IOS_RESERVE471 = '000001D7'X+ PARAMETER FOR$IOS_RESERVE472 = '0 00001D8'X+ PARAMETER FOR$IOS_RESERVE473 = '000001D9'X+ PARAMETER FOR$IOS_RESERVE474 = '000001DA'X+ PARAMETER FOR$IOS_RESERVE475 = '000001DB'X+ PARAMETER FOR$IOS_RESERVE476 = '000001DC'X+ PARAMETER FOR$IOS_RESERVE477 = '000001DD'X+ PARAMETER FOR$IOS_RESERVE478 = '000001DE'X+ PARAMETER FOR$IOS_RESERVE479 = '000001DF'X+ PARAMETER FOR$IOS_RESERVE480 = '000001E0'X+ PARAMETER FOR$IOS_RESERVE481 = '000001E1'X+ PARAMETER FOR$IOS_RESERVE482 = '000001E2'X+ PARAMETER FOR$IOS_RESERVE483 = '0 00001E3'X+ PARAMETER FOR$IOS_RESERVE484 = '000001E4'X+ PARAMETER FOR$IOS_RESERVE485 = '000001E5'X+ PARAMETER FOR$IOS_RESERVE486 = '000001E6'X+ PARAMETER FOR$IOS_RESERVE487 = '000001E7'X+ PARAMETER FOR$IOS_RESERVE488 = '000001E8'X+ PARAMETER FOR$IOS_RESERVE489 = '000001E9'X+ PARAMETER FOR$IOS_RESERVE490 = '000001EA'X+ PARAMETER FOR$IOS_RESERVE491 = '000001EB'X+ PARAMETER FOR$IOS_RESERVE492 = '000001EC'X+ PARAMETER FOR$IOS_RESERVE493 = '000001ED'X+ PARAMETER FOR$IOS_RESERVE494 = '0 00001EE'X+ PARAMETER FOR$IOS_RESERVE495 = '000001EF'X+ PARAMETER FOR$IOS_RESERVE496 = '000001F0'X+ PARAMETER FOR$IOS_RESERVE497 = '000001F1'X+ PARAMETER FOR$IOS_RESERVE498 = '000001F2'X+ PARAMETER FOR$IOS_RESERVE499 = '000001F3'X+ PARAMETER FOR$IOS_RESERVE500 = '000001F4'X+ PARAMETER FOR$IOS_RESERVE501 = '000001F5'X+ PARAMETER FOR$IOS_RESERVE502 = '000001F6'X+ PARAMETER FOR$IOS_RESERVE503 = '000001F7'X+ PARAMETER FOR$IOS_RESERVE504 = '000001F8'X+ PARAMETER FOR$IOS_RESERVE505 = '0 00001F9'X+ PARAMETER FOR$IOS_RESERVE506 = '000001FA'X+ PARAMETER FOR$IOS_RESERVE507 = '000001FB'X+ PARAMETER FOR$IOS_RESERVE508 = '000001FC'X+ PARAMETER FOR$IOS_RESERVE509 = '000001FD'X+ PARAMETER FOR$IOS_RESERVE510 = '000001FE'X+ PARAMETER FOR$IOS_RESERVE511 = '000001FF'X+ PARAMETER FOR$IOS_RESERVE512 = '00000200'X+ PARAMETER FOR$IOS_RESERVE513 = '00000201'X+ PARAMETER FOR$IOS_RESERVE514 = '00000202'X+ PARAMETER FOR$IOS_RESERVE515 = '00000203'X+ PARAMETER FOR$IOS_RESERVE516 = '0 0000204'X+ PARAMETER FOR$IOS_RESERVE517 = '00000205'X+ PARAMETER FOR$IOS_RESERVE518 = '00000206'X+ PARAMETER FOR$IOS_RESERVE519 = '00000207'X+ PARAMETER FOR$IOS_RESERVE520 = '00000208'X+ PARAMETER FOR$IOS_RESERVE521 = '00000209'X+ PARAMETER FOR$IOS_RESERVE522 = '0000020A'X+ PARAMETER FOR$IOS_RESERVE523 = '0000020B'X+ PARAMETER FOR$IOS_RESERVE524 = '0000020C'X+ PARAMETER FOR$IOS_RESERVE525 = '0000020D'X+ PARAMETER FOR$IOS_RESERVE526 = '0000020E'X+ PARAMETER FOR$IOS_RESERVE527 = '0 000020F'X+ PARAMETER FOR$IOS_RESERVE528 = '00000210'X+ PARAMETER FOR$IOS_RESERVE529 = '00000211'X+ PARAMETER FOR$IOS_RESERVE530 = '00000212'X+ PARAMETER FOR$IOS_RESERVE531 = '00000213'X+ PARAMETER FOR$IOS_RESERVE532 = '00000214'X+ PARAMETER FOR$IOS_RESERVE533 = '00000215'X+ PARAMETER FOR$IOS_RESERVE534 = '00000216'X+ PARAMETER FOR$IOS_RESERVE535 = '00000217'X+ PARAMETER FOR$IOS_RESERVE536 = '00000218'X+ PARAMETER FOR$IOS_RESERVE537 = '00000219'X+ PARAMETER FOR$IOS_RESERVE538 = '0000021A'X+ PARAMETER FOR$IOS_RESERVE539 = '0000021B'X& PARAMETER FOR$IOS_F6096 = '0000021C'X& PARAMETER FOR$IOS_F6097 = '0000021D'X& PARAMETER FOR$IOS_F6098 = '0000021E'X& PARAMETER FOR$IOS_F6099 = '0000021F'X& PARAMETER FOR$IOS_F6100 = '00000220'X& PARAMETER FOR$IOS_F6101 = '00000221'X& PARAMETER FOR$IOS_F6102 = '00000222'X& PARAMETER FOR$IOS_F6103 = '00000223'X& PARAMETER FOR$IOS_F6104 = '00000224'X& PARAMETER FOR$IOS_F6105 = '00000225'X& PARAMETER FOR$IOS_F6106 = '00000226'X& PARAMET ER FOR$IOS_F6200 = '00000227'X& PARAMETER FOR$IOS_F6201 = '00000228'X& PARAMETER FOR$IOS_F6202 = '00000229'X& PARAMETER FOR$IOS_F6203 = '0000022A'X& PARAMETER FOR$IOS_F6204 = '0000022B'X& PARAMETER FOR$IOS_F6205 = '0000022C'X& PARAMETER FOR$IOS_F6206 = '0000022D'X& PARAMETER FOR$IOS_F6207 = '0000022E'X& PARAMETER FOR$IOS_F6208 = '0000022F'X& PARAMETER FOR$IOS_F6209 = '00000230'X& PARAMETER FOR$IOS_F6210 = '00000231'X& PARAMETER FOR$IOS_F6211 = '00000232'X& PARAMETER FOR$IOS_F6212 = '00000233'X& PARAMETER FOR$IOS_F6213 = '00000234'X& PARAMETER FOR$IOS_F6214 = '00000235'X& PARAMETER FOR$IOS_F6300 = '00000236'X& PARAMETER FOR$IOS_F6301 = '00000237'X& PARAMETER FOR$IOS_F6302 = '00000238'X& PARAMETER FOR$IOS_F6303 = '00000239'X& PARAMETER FOR$IOS_F6304 = '0000023A'X& PARAMETER FOR$IOS_F6305 = '0000023B'X& PARAMETER FOR$IOS_F6306 = '0000023C'X& PARAMETER FOR$IOS_F6307 = '0000023D'X& PARAMETER FOR$IOS_F6308 = '0000023E'X& PARAMETER FOR$IOS_F6309 = '0000023F'X& PARAMETER FOR$IOS_F6310 = '00000240'X& PARAMETER FOR$IOS_F6311 = '00000241'X& PARAMETER FOR$IOS_F6312 = '00000242'X& PARAMETER FOR$IOS_F6313 = '00000243'X& PARAMETER FOR$IOS_F6314 = '00000244'X& PARAMETER FOR$IOS_F6315 = '00000245'X& PARAMETER FOR$IOS_F6316 = '00000246'X& PARAMETER FOR$IOS_F6317 = '00000247'X& PARAMETER FOR$IOS_F6318 = '00000248'X& PARAMETER FOR$IOS_F6319 = '00000249'X& PARAMETER FOR$IOS_F6400 = '0000024A'X& PARAMETER FOR$IOS_F6401 = '0000024B'X& PARAMETER FOR$IOS_F6402 = '0000024C'X& PARAM ETER FOR$IOS_F6403 = '0000024D'X& PARAMETER FOR$IOS_F6404 = '0000024E'X& PARAMETER FOR$IOS_F6405 = '0000024F'X& PARAMETER FOR$IOS_F6406 = '00000250'X& PARAMETER FOR$IOS_F6407 = '00000251'X& PARAMETER FOR$IOS_F6408 = '00000252'X& PARAMETER FOR$IOS_F6409 = '00000253'X& PARAMETER FOR$IOS_F6410 = '00000254'X& PARAMETER FOR$IOS_F6411 = '00000255'X& PARAMETER FOR$IOS_F6412 = '00000256'X& PARAMETER FOR$IOS_F6413 = '00000257'X& PARAMETER FOR$IOS_F6414 = '00000258'X& PARAMETER FOR$IOS_F6415 = '00000259'X& PARAMETER FOR$IOS_F6416 = '0000025A'X& PARAMETER FOR$IOS_F6417 = '0000025B'X& PARAMETER FOR$IOS_F6418 = '0000025C'X& PARAMETER FOR$IOS_F6419 = '0000025D'X& PARAMETER FOR$IOS_F6420 = '0000025E'X& PARAMETER FOR$IOS_F6421 = '0000025F'X& PARAMETER FOR$IOS_F6422 = '00000260'X& PARAMETER FOR$IOS_F6423 = '00000261'X& PARAMETER FOR$IOS_F6424 = '00000262'X& PARAMETER FOR$IOS_F6425 = '00000263'X& PARAMETER FOR$IOS_F6500 = '00000264'X& PARAMETER FOR$IOS_F6501 = '00000265'X& PARAMETER FOR$IOS_F6502 = '00000266'X& PARAMETER FOR$IOS_F6503 = '00000267'X& PARAMETER FOR$IOS_F6504 = '00000268'X& PARAMETER FOR$IOS_F6505 = '00000269'X& PARAMETER FOR$IOS_F6506 = '0000026A'X& PARAMETER FOR$IOS_F6507 = '0000026B'X& PARAMETER FOR$IOS_F6508 = '0000026C'X& PARAMETER FOR$IOS_F6509 = '0000026D'X& PARAMETER FOR$IOS_F6510 = '0000026E'X& PARAMETER FOR$IOS_F6511 = '0000026F'X& PARAMETER FOR$IOS_F6512 = '00000270'X& PARAMETER FOR$IOS_F6513 = '00000271'X& PARAMETER FOR$IOS_F6514 = '00000272'X& PAR AMETER FOR$IOS_F6515 = '00000273'X& PARAMETER FOR$IOS_F6516 = '00000274'X& PARAMETER FOR$IOS_F6600 = '00000275'X& PARAMETER FOR$IOS_F6601 = '00000276'X& PARAMETER FOR$IOS_F6602 = '00000277'X& PARAMETER FOR$IOS_F6700 = '00000278'X& PARAMETER FOR$IOS_F6701 = '00000279'X& PARAMETER FOR$IOS_F6970 = '0000027A'X& PARAMETER FOR$IOS_F6971 = '0000027B'X& PARAMETER FOR$IOS_F6972 = '0000027C'X& PARAMETER FOR$IOS_F6980 = '0000027D'X& PARAMETER FOR$IOS_F6981 = '0000027E'X& PARAMETER FOR$IOS_F6982 = '0000027F'X& PARAMETER FOR$IOS_F6983 = '00000280'X& PARAMETER FOR$IOS_F6984 = '00000281'X& PARAMETER FOR$IOS_F6985 = '00000282'X& PARAMETER FOR$IOS_F6986 = '00000283'X& PARAMETER FOR$IOS_F6987 = '00000284'X& PARAMETER FOR$IOS_F6988 = '00000285'X& PARAMETER FOR$IOS_F6989 = '00000286'X& PARAMETER FOR$IOS_F6990 = '00000287'X& PARAMETER FOR$IOS_F6991 = '00000288'X& PARAMETER FOR$IOS_F6992 = '00000289'X& PARAMETER FOR$IOS_F6993 = '0000028A'X& PARAMETER FOR$IOS_F6994 = '0000028B'X& PARAMETER FOR$IOS_F6995 = '0000028C'X& PARAMETER FOR$IOS_F6996 = '0000028D'X& PARAMETER FOR$IOS_F6997 = '0000028E'X& PARAMETER FOR$IOS_F6998 = '0000028F'X& PARAMETER FOR$IOS_F6999 = '00000290'X& PARAMETER FOR$IOS_F6702 = '00000291'X& PARAMETER FOR$IOS_F6703 = '00000292'X& PARAMETER FOR$IOS_F6704 = '00000293'X& PARAMETER FOR$IOS_F6705 = '00000294'X& PARAMETER FOR$IOS_F6706 = '00000295'X& PARAMETER FOR$IOS_F6707 = '00000296'X& PARAMETER FOR$IOS_F6708 = '00000297'X& PARAMETER FOR$IOS_F6709 = '00000298'X& P ARAMETER FOR$IOS_F6710 = '00000299'X& PARAMETER FOR$IOS_F6711 = '0000029A'X& PARAMETER FOR$IOS_F6712 = '0000029B'X& PARAMETER FOR$IOS_F6713 = '0000029C'X& PARAMETER FOR$IOS_F6714 = '0000029D'X& PARAMETER FOR$IOS_F6715 = '0000029E'X& PARAMETER FOR$IOS_F6716 = '0000029F'X& PARAMETER FOR$IOS_F6717 = '000002A0'X& PARAMETER FOR$IOS_F6718 = '000002A1'X& PARAMETER FOR$IOS_F6719 = '000002A2'X& PARAMETER FOR$IOS_F6720 = '000002A3'X& PARAMETER FOR$IOS_F6721 = '000002A4'X& PARAMETER FOR$IOS_F6722 = '000002A5'X& PARAMETER FOR$IOS_F6723 = '000002A6'X& PARAMETER FOR$IOS_F6724 = '000002A7'X& PARAMETER FOR$IOS_F6725 = '000002A8'X& PARAMETER FOR$IOS_F6726 = '000002A9'X& PARAMETER FOR$IOS_F6727 = '000002AA'X& PARAMETER FOR$IOS_F6728 = '000002AB'X& PARAMETER FOR$IOS_F6729 = '000002AC'X& PARAMETER FOR$IOS_F6730 = '000002AD'X& PARAMETER FOR$IOS_F6731 = '000002AE'X& PARAMETER FOR$IOS_F6732 = '000002AF'X& PARAMETER FOR$IOS_F6733 = '000002B0'X& PARAMETER FOR$IOS_F6734 = '000002B1'X& PARAMETER FOR$IOS_F6735 = '000002B2'X& PARAMETER FOR$IOS_F6736 = '000002B3'X& PARAMETER FOR$IOS_F6737 = '000002B4'X& PARAMETER FOR$IOS_F6738 = '000002B5'X& PARAMETER FOR$IOS_F6739 = '000002B6'X& PARAMETER FOR$IOS_F6740 = '000002B7'X& PARAMETER FOR$IOS_F6741 = '000002B8'X& PARAMETER FOR$IOS_F6742 = '000002B9'X& PARAMETER FOR$IOS_F6743 = '000002BA'X& PARAMETER FOR$IOS_F6744 = '000002BB'X& PARAMETER FOR$IOS_F6745 = '000002BC'X& PARAMETER FOR$IOS_F6746 = '000002BD'X& PARAMETER FOR$IOS_F6747 = '000002BE'X&  PARAMETER FOR$IOS_F6748 = '000002BF'X& PARAMETER FOR$IOS_F6749 = '000002C0'X& PARAMETER FOR$IOS_F6750 = '000002C1'X& PARAMETER FOR$IOS_F6751 = '000002C2'X& PARAMETER FOR$IOS_F6752 = '000002C3'X& PARAMETER FOR$IOS_F6753 = '000002C4'X& PARAMETER FOR$IOS_F6754 = '000002C5'X& PARAMETER FOR$IOS_F6755 = '000002C6'X& PARAMETER FOR$IOS_F6756 = '000002C7'X& PARAMETER FOR$IOS_F6757 = '000002C8'X& PARAMETER FOR$IOS_F6758 = '000002C9'X& PARAMETER FOR$IOS_F6759 = '000002CA'X& PARAMETER FOR$IOS_F6760 = '000002CB'X& PARAMETER FOR$IOS_F6761 = '000002CC'X& PARAMETER FOR$IOS_F6762 = '000002CD'X& PARAMETER FOR$IOS_F6763 = '000002CE'X& PARAMETER FOR$IOS_F6764 = '000002CF'X& PARAMETER FOR$IOS_F6765 = '000002D0'X& PARAMETER FOR$IOS_F6766 = '000002D1'X& PARAMETER FOR$IOS_F6767 = '000002D2'X& PARAMETER FOR$IOS_F6768 = '000002D3'X& PARAMETER FOR$IOS_F6769 = '000002D4'X& PARAMETER FOR$IOS_F6770 = '000002D5'X& PARAMETER FOR$IOS_F6771 = '000002D6'X& PARAMETER FOR$IOS_F6772 = '000002D7'X& PARAMETER F OR$IOS_F6773 = '000002D8'X& PARAMETER FOR$IOS_F6774 = '000002D9'X& PARAMETER FOR$IOS_F6775 = '000002DA'X& PARAMETER FOR$IOS_F6776 = '000002DB'X& PARAMETER FOR$IOS_F6777 = '000002DC'X& PARAMETER FOR$IOS_F6778 = '000002DD'X& PARAMETER FOR$IOS_F6779 = '000002DE'X& PARAMETER FOR$IOS_F6780 = '000002DF'X& PARAMETER FOR$IOS_F6781 = '000002E0'X& PARAMETER FOR$IOS_F6782 = '000002E1'X& PARAMETER FOR$IOS_F6783 = '000002E2'X& PARAMETER FOR$IOS_F6784 = '000002E3'X& PARAMETER FOR$IOS_F6785 = '000002E4'X & PARAMETER FOR$IOS_F6786 = '000002E5'X& PARAMETER FOR$IOS_F6787 = '000002E6'X& PARAMETER FOR$IOS_F6788 = '000002E7'X& PARAMETER FOR$IOS_F6789 = '000002E8'X& PARAMETER FOR$IOS_F6790 = '000002E9'X& PARAMETER FOR$IOS_F6791 = '000002EA'X& PARAMETER FOR$IOS_F6792 = '000002EB'X& PARAMETER FOR$IOS_F6793 = '000002EC'X& PARAMETER FOR$IOS_F6794 = '000002ED'X& PARAMETER FOR$IOS_F6795 = '000002EE'X& PARAMETER FOR$IOS_F6796 = '000002EF'X& PARAMETER FOR$IOS_F6797 = '000002F0'X& PARAMETER FOR$IOS_F6798 = '000002F1'X& PARAMETER FOR$IOS_F6799 = '000002F2'X& PARAMETER FOR$IOS_F6800 = '000002F3'X& PARAMETER FOR$IOS_F6801 = '000002F4'X& PARAMETER FOR$IOS_F6802 = '000002F5'X& PARAMETER FOR$IOS_F6803 = '000002F6'X& PARAMETER FOR$IOS_F6804 = '000002F7'X0 PARAMETER FOR$IOS_MESSAGE_MAXIMUM = '000002F8'X!DEC$ END OPTIONSww7*Φ!F! ********************************************************************F! * *F! * Copyright 2001 Compaq Computer Corporation *F! * *F! * Compaq and the Compaq logo are trademarks of Compaq Information *F! * Technologies Group, L.P. *F! * *F! * Confidential computer software. Valid license from Compaq *F! * required for possession, use or copying. Consistent with FAR *F! * 12.21 1 and 12.212, Commercial Computer Software, Computer *F! * Software Documentation, and Technical Data for Commercial Items *F! * are licensed to the U.S. Government under vendor's standard *F! * commercial license. *F! * *F! ********************************************************************! +!*** MODULE for_fp_class IDENT JDR1-001 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN& PARAMETER FOR_K_FP_SNAN = '00000000'X& PARAMETER FOR_K_FP_QNAN = '00000001'X) PARAMETER FOR_K_FP_POS_INF = '00000002'X) PARAMETER FOR_K_FP_NEG_INF = '00000003'X* PARAMETER FOR_K_FP_POS_NORM = '00000004'X* PARAMETER FOR_K_FP_NEG_NORM = '00000005'X, PARAMETER FOR_K_FP_POS_DENORM = '00000006'X, PARAMETER FOR_K_FP_NEG_DENORM = '00000007'X* PARAMETER FOR_K_FP_POS_ZERO = '00000008'X* PARAMETER FOR_K_FP_NEG_ZERO = '00000009'X!DEC$ END OPTIONSww !*** MODULE $FSCNDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! , ! Descriptor codes for SYS$FILESCAN ! $ PARAMETER FSCN$M_NODE = '00000001'X& PARAMETER FSCN$M_DEVICE = '00000002'X$ PARAMETER FSCN$M_ROOT = '00000004'X) PARAMETER FSCN$M_DIRECTORY = '00000008'X$ PARAMETER FSCN$M_NAME = '00000010'X$ PARAMETER FSCN$M_TYPE = '00000020'X' PARAMETER FSCN$M_VERSION = '00000040'X, PARAMETER FSCN$M_NODE_PRIMARY = '00000080'X( PARAMETER FSCN$M_NODE_ACS = '0000 0100'X. PARAMETER FSCN$M_NODE_SECONDARY = '00000200'X STRUCTURE /FLDFLAGS/ PARAMETER FSCN$S_NODE = 15 PARAMETER FSCN$V_NODE = 0 ! Node name present PARAMETER FSCN$S_DEVICE = 19 PARAMETER FSCN$V_DEVICE = 1 ! Device name present PARAMETER FSCN$S_ROOT = 1: PARAMETER FSCN$V_ROOT = 2 ! Root directory present# PARAMETER FSCN$S_DIRECTORY = 1: PARAMETER FSCN$V_DIRECTORY = 3 ! Directory present PARAMETER FSCN$S_NAME = 15 PARAMETER FSCN$V_ NAME = 4 ! File name present PARAMETER FSCN$S_TYPE = 15 PARAMETER FSCN$V_TYPE = 5 ! File type present! PARAMETER FSCN$S_VERSION = 1; PARAMETER FSCN$V_VERSION = 6 ! File version present& PARAMETER FSCN$S_NODE_PRIMARY = 1G PARAMETER FSCN$V_NODE_PRIMARY = 7 ! Primary (first) node present" PARAMETER FSCN$S_NODE_ACS = 1; PARAMETER FSCN$V_NODE_ACS = 8 ! Primary ACS present( PARAMETER FSCN$S_NODE_SECONDARY = 1C PARAMETER FSCN$V_NODE_SECON DARY = 9 ! Secondary node present BYTE %FILL (2) END STRUCTURE ! FLDFLAGS= PARAMETER FSCN$_FILESPEC = '00000001'X ! complete filespec4 PARAMETER FSCN$_NODE = '00000002'X ! node:: field7 PARAMETER FSCN$_DEVICE = '00000003'X ! device: field5 PARAMETER FSCN$_ROOT = '00000004'X ! [root.] field> PARAMETER FSCN$_DIRECTORY = '00000005'X ! [directory] field2 PARAMETER FSCN$_NAME = '00000006'X ! name field2 PARAMETER FSCN$_TYPE = '00000007'X ! .typ field9 PARAMETER FSCN$_VERSI ON = '00000008'X ! ;version fieldB PARAMETER FSCN$_NODE_PRIMARY = '00000009'X ! primary node field@ PARAMETER FSCN$_NODE_ACS = '0000000A'X ! acc. cont. str. fld.F PARAMETER FSCN$_NODE_SECONDARY = '0000000B'X ! secondary node field( PARAMETER FSCN$S_ITEM_LEN = '00000008'X STRUCTURE /FSCNDEF/5 INTEGER*2 FSCN$W_LENGTH ! return length word4 INTEGER*2 FSCN$W_ITEM_CODE ! item code value2 INTEGER*4 FSCN$L_ADDR ! component address END STRUCTURE ! FSCNDEF!DEC$ END OPTIONS ww<?Φ!*** MODULE $GEN64DEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +* ! Define the generic quadword structure. ! - STRUCTURE /GENERIC_64/ UNION MAPH INTEGER*4 GEN64$Q_QUADWORD(2) ! ...a single 64-bit value, or END MAP MAPF INTEGER*4 GEN64$L_LONGWORD(1:2) ! ...two 32-bit values, or END MAP MAP? INTEGER*2 GEN64$W_WORD(1:4) ! ...four 16-bit values END MAP END UNION END STRUCTURE ! GENERIC_64E PARAMETER GEN64$K_LENGTH = '00000008'X ! Length of GEN64 structureE PARAMETER GEN64$C_LENGTH = '00000008'X ! Length of GEN64 structure!DEC$ END OPTIONS wwT?Φ!*** MODULE $GETSPIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +B ! Get System Performance Information Data Identifier Definitions ! C ! The following constants define the items which can be collectedA ! with the Get System Performance Information service (GETSPI)., ! The item numbers are defined as follows: ! & ! 16 12 0& ! +------------------+-------------+& ! | Structure number | Item number |& ! +------------------+-------------+ ! I ! The top four bits represent the structure of the item and the last 122 ! bits represent the item within the structure.  ! ! Caution! @ ! The SPIDEF in the [montor] facility contained the followingH ! instruc tions on adding new symbols. With this interface being addedK ! to STARLET, changing any item number is unacceptable. Some spare itemM ! number exist in each range; if these are ever exhausted, new ranges mustE ! be defined and support added, rather than changing item numbers. !  ! * The item numbers startL ! * at 0 and increase sequentially to the last item (even across tables).L ! * If new items are added to a table, programs MUST be relinked to allowJ ! * the old defin itions to change. This was done to simplify some tableK ! * lookups in the Monitor Utility. To get around this, new items can be$ ! * added at the end of the list. ! *M ! * Each table has one item at the end to act as a place holder. It shouldK ! * have the same item number as the first item of the next table. TheseQ ! * items are not counters in the total number of SPI items GETSPI$_TABLESIZE. ! - ! DEFINE TABLE TYPES= PARAMETER GETSPI$C_EXETYPE = '00000001'X ! Executiv e cellsM PARAMETER GETSPI$C_EWSTYPE = '00000002'X ! Executive writable storage areaD PARAMETER GETSPI$C_MONTYPE = '00000003'X ! Monitor specific itemsH PARAMETER GETSPI$C_RMSTYPE = '00000004'X ! Monitor RMS specific items? PARAMETER GETSPI$C_LISTEND = '00000000'X ! End of table list ! R ! The following section defines items which are collected during initialization.N ! There items include general system information, and server version number.3 ! The server version number is als o defined here. ! = PARAMETER GETSPI$_initial = -1 ! Initialization item listE PARAMETER GETSPI$_data_collection = -2 ! Data collection item list< PARAMETER GETSPI$_sysinfo = -3 ! System information itemA PARAMETER GETSPI$_version_number = -4 ! Monitor version number5 PARAMETER GETSPI$_rms_file = -5 ! Parse file name> PARAMETER GETSPI$_rms_gs = -6 ! Get global section address! PARAMETER GETSPI$_last_type = -7/ PARAMETER GETSPI$_server_version = '00000005'X ! F ! Define bits in the PMS flags field PMS$GL_FLAGS. These are used toC ! synchronize access to some PMS field and enable other activity. !  STRUCTURE /getspi$pms_flags/+ PARAMETER GETSPI$S_disk_enable = 1Z PARAMETER GETSPI$V_disk_enable = 0 ! YES => Enable disk queue length collection9 ! This field must be accessed via an interlocked ! bit instruction.' PARAMETER GETSPI$S_filler1 = 7M PARAMETER GETSPI$V_filler1 = 1 ! Fill out remain der of first byte) PARAMETER GETSPI$S_disk_sync = 1_ PARAMETER GETSPI$V_disk_sync = 8 ! YES => Synchronize access to several PMS counters7 ! used in the collection of disk queue length.9 ! This field must be accessed via an interlocked5 ! bit instruction, AND MUST BE IN A SEPARATE5 ! BYTE from the disk_enable bit (required by9 ! the architecture to maintain synchronization).( PARAMETER GETSPI$S_filler2 = 23' PAR AMETER GETSPI$V_filler2 = 9: BYTE %FILL (4) ! Fill out remainder of field! END STRUCTURE ! getspi$pms_flags ! H ! Define two contants to handle help handle large lookaside lists. The< ! maximum number that SPISHR will count to is defined withE ! GETSPI$K_MAX_PACKET and the value returned when this threshold is, ! reached is defined as GETSPI$K_POOL_OVF. ! , PARAMETER GETSPI$k_max_packet = '000001F4'X* PARAMETER GETSPI$k_pool_ovf = '80000001'X ! E ! Define item identifier numbers. Each data item has an associatedG ! value which is used to find its entry in the EXETBL. The item tableJ ! is defined by the macros SPI_GENERATE_TABLE which makes multiple calls? ! to the macro SPI_ITEM_CODE defined in the SYSGETSPI module. ! J PARAMETER GETSPI$_MODES = '00001000'X ! All modes counters on all CPU'sQ PARAMETER GETSPI$_INTERRUPT = '00001001'X ! time on interrupt stack -- primaryJ PARAMETER GETSPI$_KERNEL = '00001002'X ! time in kernel mode -- primaryF PARAMETER GETSPI$_EXEC = '00001003'X ! time in exec mode -- primaryM PARAMETER GETSPI$_SUPER = '00001004'X ! time in supervisor mode -- primaryF PARAMETER GETSPI$_USER = '00001005'X ! time in user mode -- primaryK PARAMETER GETSPI$_COMPAT = '00001006'X ! time in compat. mode -- primary^ PARAMETER GETSPI$_INTERRUPT_BUSY = '00001007'X ! Time spent spinning on the interrupt stackX PARAMETER GETSPI$_KERNEL_BUSY = '00001008'X ! Time spent spinning on the lernel stack> PARAMETER G ETSPI$_IDLE = '00001009'X ! idle time -- primaryE PARAMETER GETSPI$_CPUBUSY = '0000100A'X ! RETIRED ITEM - RETURNS 0= PARAMETER GETSPI$_COLPG = '0000100B'X ! collided page wait6 PARAMETER GETSPI$_MWAIT = '0000100C'X ! memory wait? PARAMETER GETSPI$_CEF = '0000100D'X ! common event flag wait2 PARAMETER GETSPI$_PFW = '0000100E'X ! page wait> PARAMETER GETSPI$_LEF = '0000100F'X ! local event flag waitB PARAMETER GETSPI$_LEFO = '00001010'X ! lef wait out of bal. set4 PARAMETER G ETSPI$_HIB = '00001011'X ! hibernating@ PARAMETER GETSPI$_HIBO = '00001012'X ! hibernating outswapped3 PARAMETER GETSPI$_SUSP = '00001013'X ! suspended? PARAMETER GETSPI$_SUSPO = '00001014'X ! suspended outswapped7 PARAMETER GETSPI$_FPG = '00001015'X ! free page wait2 PARAMETER GETSPI$_COM = '00001016'X ! computing? PARAMETER GETSPI$_COMO = '00001017'X ! computable outswapped0 PARAMETER GETSPI$_CUR = '00001018'X ! currentE PARAMETER GETSPI$_OTHSTAT = '00001019'X ! RETIRED  ITEM - RETURNS 0I PARAMETER GETSPI$_PROCS = '0000101A'X ! process count for SYSTEM classI PARAMETER GETSPI$_PROC = '0000101B'X ! collect all process information= PARAMETER GETSPI$_FRLIST = '0000101C'X ! size of free listB PARAMETER GETSPI$_MODLIST = '0000101D'X ! size of modified list< PARAMETER GETSPI$_FAULTS = '0000101E'X ! page fault count6 PARAMETER GETSPI$_PREADS = '0000101F'X ! page reads8 PARAMETER GETSPI$_PWRITES = '00001020'X ! page writesF PARAMETER GETSPI$_PWRITIO = '00001021'X ! physical page write I/O'sE PARAMETER GETSPI$_PREADIO = '00001022'X ! physical page read I/O'sA PARAMETER GETSPI$_GVALFLTS = '00001023'X ! global valid faultsL PARAMETER GETSPI$_WRTINPROG = '00001024'X ! faults from write in progressB PARAMETER GETSPI$_FREFLTS = '00001025'X ! faults from free listF PARAMETER GETSPI$_MFYFLTS = '00001026'X ! faults from modified list@ PARAMETER GETSPI$_DZROFLTS = '00001027'X ! demand zero faultsA PARAMETER GETSPI$_SYSFAULTS = '00001028'X ! system page faultsK PARAMETER GETSPI$_LRPCNT = '00001029'X ! number of LRP packets availableC PARAMETER GETSPI$_LRPINUSE = '0000102A'X ! number of LRPs in useK PARAMETER GETSPI$_IRPCNT = '0000102B'X ! number of IRP packets availableC PARAMETER GETSPI$_IRPINUSE = '0000102C'X ! number of IRPs in useK PARAMETER GETSPI$_SRPCNT = '0000102D'X ! number of SRP packets availableC PARAMETER GETSPI$_SRPINUSE = '0000102E'X ! number of SRPs in useL PARAMETER GETSPI$_HOLECNT = '0000102F'X ! number of blocks in dyn. memory9 PARAMETER GETSPI$_BIGHOLE = '00001030'X ! largest hole< PARAMETER GETSPI$_SMALLHOLE = '00001031'X ! smallest holeQ PARAMETER GETSPI$_HOLESUM = '00001032'X ! total space in dyn. memory availableI PARAMETER GETSPI$_DYNINUSE = '00001033'X ! dynamic memory space in useQ PARAMETER GETSPI$_SMALLCNT = '00001034'X ! number of blocks < 32 bytes in size: PARAMETER GETSPI$_ISWPCNT = '00001035'X ! total inswaps? PARAMETER GETSPI$_DIRIO = '00001036'X ! count of direct I/OsA PARAMETER GETSPI$_BUFIO = '00001037'X ! count of buffered I/Os@ PARAMETER GETSPI$_MBREADS = '00001038'X ! total mailbox readsB PARAMETER GETSPI$_MBWRITES = '00001039'X ! total mailbox writesE PARAMETER GETSPI$_LOGNAM = '0000103A'X ! logical name translations= PARAMETER GETSPI$_FCPCALLS = '0000103B'X ! total fcp callsH PARAMETER GETSPI$_FCPREAD = '0000103C'X ! number of disk reads by FCPJ PARAMETER GETSPI$_FCPWRITE = '0000103D'X ! number of disk writes by FCPF PARAMETER GETSPI$_FCPCACHE = '0000103E'X ! number of FCP cache hitsE PARAMETER GETSPI$_FCPCPU = '0000103F'X ! number of CPU tics by FCPA PARAMETER GETSPI$_FCPHIT = '00001040'X ! number of window hitsG PARAMETER GETSPI$_FCPSPLIT = '00001041'X ! number of split transfersG PARAMETER GETSPI$_FCPFAULT = '00001042'X ! number of FCP page faultsA PARAMETER GETSPI$_ENQNEW = '00001043'X ! number of ENQ's (new)I PARAMETER GETSPI$_ENQCVT = '00001044'X ! number of ENQ's (c onversions)8 PARAMETER GETSPI$_DEQ = '00001045'X ! number of DEQ'sD PARAMETER GETSPI$_BLKAST = '00001046'X ! number of blocking AST'sK PARAMETER GETSPI$_ENQWAIT = '00001047'X ! number of ENQ's forced to waitH PARAMETER GETSPI$_ENQNOTQD = '00001048'X ! number of ENQ's not queuedI PARAMETER GETSPI$_DLCKSRCH = '00001049'X ! number of deadlock searchesF PARAMETER GETSPI$_DLCKFND = '0000104A'X ! number of deadlocks found9 PARAMETER GETSPI$_NUMLOCKS = '0000104B'X ! total locks; PARAMETER GETSPI$_NUMRES = '0000104C'X ! total resourcesD PARAMETER GETSPI$_ARRLOCPK = '0000104D'X ! arriving local packetsE PARAMETER GETSPI$_DEPLOCPK = '0000104E'X ! departing local packetsF PARAMETER GETSPI$_ARRTRAPK = '0000104F'X ! arriving transit packetsE PARAMETER GETSPI$_TRCNGLOS = '00001050'X ! transit congestion lossF PARAMETER GETSPI$_RCVBUFFL = '00001051'X ! receiver buffer failuresF PARAMETER GETSPI$_RESERVED1 = '00001052'X ! Reserved PMS location 1F PARAMETER GETSPI$_RESERVED2 = '00001053'X ! Reserved PMS location 2F PARAMETER GETSPI$_RESERVED3 = '00001054'X ! Reserved PMS location 3F PARAMETER GETSPI$_RESERVED4 = '00001055'X ! Reserved PMS location 4F PARAMETER GETSPI$_RESERVED5 = '00001056'X ! Reserved PMS location 5F PARAMETER GETSPI$_RESERVED6 = '00001057'X ! Reserved PMS location 6F PARAMETER GETSPI$_RESERVED7 = '00001058'X ! Reserved PMS location 7F PARAMETER GETSPI$_RESERVED8 = '00001059'X ! Reserved PMS location 8F PARAMETER GETSPI$_RESERVED9 = '0000105A'X ! Reserved PMS location 9H PARAMETER GETSPI$_RESERVED10 = '0000105B'X ! Reserved PMS location 10H PARAMETER GETSPI$_RESERVED11 = '0000105C'X ! Reserved PMS location 11H PARAMETER GETSPI$_RESERVED12 = '0000105D'X ! Reserved PMS location 12H PARAMETER GETSPI$_RESERVED13 = '0000105E'X ! Reserved PMS location 13H PARAMETER GETSPI$_RESERVED14 = '0000105F'X ! Reserved PMS location 14H PARAMETER GETSPI$_RESERVED15 = '00001060'X ! Reserved PMS location 15H PARAMETER GETSPI$_RESERVED16 = '00001061'X ! Reserved PMS location 16H PARAMETER GETSPI$_RESERVED17 = '00001062'X ! Reserved PMS location 17H PARAMETER GETSPI$_RESERVED18 = '00001063'X ! Reserved PMS location 18N PARAMETER GETSPI$_FID_TRIES = '00001064'X ! count of File Id cache attemptsU PARAMETER GETSPI$_FILHDR_TRIES = '00001065'X ! count of File header cache attemptsY PARAMETER GETSPI$_DIRFCB_TRIES = '00001066'X ! count of Directory block cache attemptsY PARAMETER GETSPI$_DIRDATA_TRIES = '00001067'X ! count of Directory data cache attemptsM PARAMETER GETSPI$_EXT_TRIES = '00001068'X ! count of Extent cache attemptsL PARAMETER GETSPI$_QUO_TRIES = '00001069'X ! count of Quota cache attempts[ PARAMETER GETSPI$_STORAGMAP_TRIES = '0000106A'X ! count of storage bitmap cache attempts8 PARAMETER GETSPI$_DISKS = '0000106B'X ! all disk datad PARAMETER GETSPI$_TOTAL_LOCKS = '0000106C'X ! Total of all locking activity - NOT COLLECTED BY SPC ! Total of all locking activity - NOT COLLECTED BY SPI - COMPH PARAMETER GETSPI$_ENQNEWLOC = '0000106D'X ! new lock requests (local)J PARAMETER GETSPI$_ENQNEWIN = '0000106E'X ! new lock requests (incoming)K PARAMETER GETSPI$_ENQNEWOUT = '0000106F'X ! new lock requests (outgoing)O PARAMETER GETSPI$_ENQCVTLOC = '00001070'X ! lock conversion requests (local)Q PARAMETER GETSPI$_ENQCVTIN = '00001071'X ! lock conversion requests (incoming)R PARAMETER GETSPI$_ENQCVTOUT = '00001072'X ! lock conversion requests (outgo ing)< PARAMETER GETSPI$_DEQLOC = '00001073'X ! dequeues (local)> PARAMETER GETSPI$_DEQIN = '00001074'X ! dequeues (incoming)? PARAMETER GETSPI$_DEQOUT = '00001075'X ! dequeues (outgoing)H PARAMETER GETSPI$_BLKLOC = '00001076'X ! blocking ASTs queued (local)J PARAMETER GETSPI$_BLKIN = '00001077'X ! blocking ASTs queued (incoming)K PARAMETER GETSPI$_BLKOUT = '00001078'X ! blocking ASTs queued (outgoing)J PARAMETER GETSPI$_DIRIN = '00001079'X ! directory operations (incoming)K PARAMETER GETSPI$_DIROUT = '0000107A'X ! directory operations (outgoing)T PARAMETER GETSPI$_DLCKMSGS = '0000107B'X ! deadlock detection messages (in & out)< PARAMETER GETSPI$_SCS = '0000107C'X ! All SCS information@ PARAMETER GETSPI$_SYSTIME = '0000107D'X ! Current system timeT PARAMETER GETSPI$_MSCP_REQUEST = '0000107E'X ! IO request rate to the MSCP serverS PARAMETER GETSPI$_MSCP_READ = '0000107F'X ! Read request rate to the MSCP serverU PARAMETER GETSPI$_MSCP_WRITE = '00001080'X ! Write request rate to the MSCP serverU PARAMETER GETSPI$_MSCP_FRAGMENT = '00001081'X ! Rate at which I/O's are fragmentedM PARAMETER GETSPI$_MSCP_SPLIT = '00001082'X ! Rate at which I/O's are splitd PARAMETER GETSPI$_MSCP_BUFWAIT = '00001083'X ! Rate at which incoming requests have to wait for aM PARAMETER GETSPI$_MSCP_SIZE1 = '00001084'X ! I/O rate for sizes 1-2 blocksM PARAMETER GETSPI$_MSCP_SIZE2 = '00001085'X ! I/O rate for sizes 2-3 blocksM PARAMETER GETSPI$_MSCP_SIZE3 = '00001086'X ! I/O rate for sizes 4-7 blocksN PARAMETER GETSPI$_MSCP_SIZE4 = '00001087'X ! I/O rate for sizes 8-15 blocksO PARAMETER GETSPI$_MSCP_SIZE5 = '00001088'X ! I/O rate for sizes 16-31 blocksO PARAMETER GETSPI$_MSCP_SIZE6 = '00001089'X ! I/O rate for sizes 32-63 blocksP PARAMETER GETSPI$_MSCP_SIZE7 = '0000108A'X ! I/O rate for sizes 64-127 blocks_ PARAMETER GETSPI$_MSCP_ALL = '0000108B'X ! Dummy item to collect all MSCP server class itemsI PARAMETER GETSPI$_DDTM_STARTS = '0000108C'X ! Local Transaction startsR PARAMETER GETSPI$_DDTM_PREPARES = '0000108D'X ! Local Transaction prepare eventV PARAMETER GETSPI$_DDTM_ONE_PHASE = '0000108E'X ! Transaction ONE_PHASE commit eventP PARAMETER GETSPI$_DDTM_COMMITS = '0000108F'X ! Local Transaction commit eventN PARAMETER GETSPI$_DDTM_ABORTS = '00001090'X ! Local Transaction abort eventE PARAMETER GETSPI$_DDTM_ENDS = '00001091'X ! Local Transaction endsD PARAMETER GETSPI$_DDTM_BRANCHS = '00001092'X ! Start bran ch event? PARAMETER GETSPI$_DDTM_ADDS = '00001093'X ! Add branch eventC PARAMETER GETSPI$_DDTM_BUCKETS1 = '00001094'X ! TPS rate for < 1C PARAMETER GETSPI$_DDTM_BUCKETS2 = '00001095'X ! TPS rate for 1-2C PARAMETER GETSPI$_DDTM_BUCKETS3 = '00001096'X ! TPS rate for 2-3C PARAMETER GETSPI$_DDTM_BUCKETS4 = '00001097'X ! TPS rate for 3-4C PARAMETER GETSPI$_DDTM_BUCKETS5 = '00001098'X ! TPS rate for 4-5C PARAMETER GETSPI$_DDTM_BUCKETS6 = '00001099'X ! TPS rate for > 6_ PARAMETER  GETSPI$_DDTM_ALL = '0000109A'X ! Dummy item to collect all TRANSACTION class itemsL PARAMETER GETSPI$_VECTORP = '0000109B'X ! Vector Processor tics scheduled? PARAMETER GETSPI$_VBYTE_READ = '0000109C'X ! VBS bytes readC PARAMETER GETSPI$_VBYTE_WRITE = '0000109D'X ! VBS bytes written* PARAMETER GETSPI$_VVBS_TRAN = '0000109E'X* PARAMETER GETSPI$_VRBS_TRAN = '0000109F'X) PARAMETER GETSPI$_VDIO_SEL = '000010A0'X. PARAMETER GETSPI$_VDIOMAP_ALLOC = '000010A1'X+ PARAMETER GETSPI$_VRBS_ AVAIL = '000010A2'X* PARAMETER GETSPI$_VSEL_FAIL = '000010A3'X* PARAMETER GETSPI$_VVBSM_HIT = '000010A4'X, PARAMETER GETSPI$_VVBSM_CACHE = '000010A5'X* PARAMETER GETSPI$_VFLUIDBAL = '000010A6'X( PARAMETER GETSPI$_VRECOPY = '000010A7'X* PARAMETER GETSPI$_VCPUTICKS = '000010A8'XD PARAMETER GETSPI$_RESERVEDEXE1 = '000010A9'X ! Reserved EXE itemsD PARAMETER GETSPI$_RESERVEDEXE2 = '000010AA'X ! Reserved EXE itemsD PARAMETER GETSPI$_RESERVEDEXE3 = '000010AB'X ! Reserved EXE itemsD PARAMETER GETSPI$_RESERVEDEXE4 = '000010AC'X ! Reserved EXE itemsD PARAMETER GETSPI$_RESERVEDEXE5 = '000010AD'X ! Reserved EXE itemsD PARAMETER GETSPI$_RESERVEDEXE6 = '000010AE'X ! Reserved EXE itemsD PARAMETER GETSPI$_RESERVEDEXE7 = '000010AF'X ! Reserved EXE itemsD PARAMETER GETSPI$_RESERVEDEXE8 = '000010B0'X ! Reserved EXE itemsD PARAMETER GETSPI$_RESERVEDEXE9 = '000010B1'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE10 = '000010B2'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE11 = '000010B3'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE12 = '000010B4'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE13 = '000010B5'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE14 = '000010B6'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE15 = '000010B7'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE16 = '000010B8'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE17 = '000010B9'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE18 = '000010BA'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE19 = '000010BB'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE20 = '000010BC'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE21 = '000010BD'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE22 = '000010BE'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE23 = '000010BF'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE24 = '000010C0'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE25 = '000010C1'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE26 = '000010C2'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE27 = '000010C3'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE28 = '000010C4'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE29 = '000010C5'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE30 = '000010C6'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE31 = '000010C7'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE32 = '000010C8'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE33 = '000010C9'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE34 = '000010CA'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE35 = '000010CB'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE36 = '000010CC'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE37 = '000010CD'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE38 = '000010CE'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE39 = '000010CF'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE40 = '000010D0'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE41 = '000010D1'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE42 = '000010D2'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE43 = '000010D3'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE44 = '000010D4'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE45 = '000010D5'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE46 = '000010D6'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE47 = '000010D7'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE48 = '000010D8'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE49 = '000010D9'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE50 = '000010DA'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE51 = '000010DB'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE52 = '000010DC'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE53 = '000010DD'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE54 = '000010DE'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE55 = '000010DF'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE56 = '000010E0'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE57 = '000010E1'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE58 = '000010E2'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE59 = '000010E3'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE60 = '000010E4'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE61 = '000010E5'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE62 = '000010E6'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE63 = '000010E7'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE64 = '000010E8'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE65 = '000010E9'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE66 = '000010EA'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE67 = '0000 10EB'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE68 = '000010EC'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE69 = '000010ED'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE70 = '000010EE'X ! Reserved EXE itemsE PARAMETER GETSPI$_RESERVEDEXE71 = '000010EF'X ! Reserved EXE itemsG PARAMETER GETSPI$_LASTEXE = '000010F0'X ! Last item in the EXE table ! H ! These next items are located in an executive writable page in memory ! C PARAMETER GETSPI$_ACCESS = '000020F0'X ! number of file accessesA PARAMETER GETSPI$_ALLOC = '000020F1'X ! number of file extendsG PARAMETER GETSPI$_FCPCREATE = '000020F2'X ! number of file creationsR PARAMETER GETSPI$_VOLWAIT = '000020F3'X ! # of times XQP waited for volume lockC PARAMETER GETSPI$_FCPTURN = '000020F4'X ! number of window turnsC PARAMETER GETSPI$_FCPERASE = '000020F5'X ! number of erase calls? PARAMETER GETSPI$_OPENS = '000020F6'X ! number of file opensG PARAMETER GETSPI$_FIDHIT = '000020F7'X ! count of File Id cache hitsJ PARAMETER GETSPI$_FIDMISS = '000020F8'X ! count of File Id cache missesO PARAMETER GETSPI$_FILHDR_HIT = '000020F9'X ! count of File header cache hitsS PARAMETER GETSPI$_DIRFCB_HIT = '000020FA'X ! count of Directory block cache hitsV PARAMETER GETSPI$_DIRFCB_MISS = '000020FB'X ! count of Directory block cache missesS PARAMETER GETSPI$_DIRDATA_HIT = '000020FC'X ! count of Directory data cache hitsF PARAMETER GETSPI$_EXTHIT = '000020FD'X ! count of Extent cache hitsI PARAMETER GETSPI$_EXTMISS = '000020FE'X ! count of Extent cache missesE PARAMETER GETSPI$_QUOHIT = '000020FF'X ! count of Quota cache hitsH PARAMETER GETSPI$_QUOMISS = '00002100'X ! count of Quota cache missesU PARAMETER GETSPI$_STORAGMAP_HIT = '00002101'X ! count of storage bitmap cache hits> PARAMETER GETSPI$_VOLLCK = '00002102'X ! Volume synch locksL PARAMETER GETSPI$_SYNCHLCK = '00002103'X ! directory and file synch locksd PARAMETER GETSPI$_SYNCHWAIT = '00002104'X ! # of times XQP waited for a directory or file synch l8 PARAMETER GETSPI$_ACCLCK = '00002105'X ! access locksf PARAMETER GETSPI$_XQPCACHEWAIT = '00002106'X ! # of times XQP had to wait for free space in a cacheD PARAMETER GETSPI$_RESERVEDEWS1 = '00002107'X ! Reserved EWS itemsD PARAMETER GETSPI$_RESERVEDEWS2 = '00002108'X ! Reserved EWS itemsD PARAMETER GETSPI$_RESERVEDEWS3 = '00002109'X ! Reserved EWS itemsD PARAMETER GETSPI$_RESERVEDEWS4 = '0000210A'X ! Reserved  EWS itemsD PARAMETER GETSPI$_RESERVEDEWS5 = '0000210B'X ! Reserved EWS itemsD PARAMETER GETSPI$_RESERVEDEWS6 = '0000210C'X ! Reserved EWS itemsD PARAMETER GETSPI$_RESERVEDEWS7 = '0000210D'X ! Reserved EWS itemsD PARAMETER GETSPI$_RESERVEDEWS8 = '0000210E'X ! Reserved EWS itemsD PARAMETER GETSPI$_RESERVEDEWS9 = '0000210F'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS10 = '00002110'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS11 = '00002111'X ! Reserved EWS itemsE  PARAMETER GETSPI$_RESERVEDEWS12 = '00002112'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS13 = '00002113'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS14 = '00002114'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS15 = '00002115'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS16 = '00002116'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS17 = '00002117'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS18 = '00002118'X ! Reserved EWS itemsE P ARAMETER GETSPI$_RESERVEDEWS19 = '00002119'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS20 = '0000211A'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS21 = '0000211B'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS22 = '0000211C'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS23 = '0000211D'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS24 = '0000211E'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS25 = '0000211F'X ! Reserved EWS itemsE PAR AMETER GETSPI$_RESERVEDEWS26 = '00002120'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS27 = '00002121'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS28 = '00002122'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS29 = '00002123'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS30 = '00002124'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS31 = '00002125'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS32 = '00002126'X ! Reserved EWS itemsE PARAM ETER GETSPI$_RESERVEDEWS33 = '00002127'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS34 = '00002128'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS35 = '00002129'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS36 = '0000212A'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS37 = '0000212B'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS38 = '0000212C'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS39 = '0000212D'X ! Reserved EWS itemsE PARAMET ER GETSPI$_RESERVEDEWS40 = '0000212E'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS41 = '0000212F'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS42 = '00002130'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS43 = '00002131'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS44 = '00002132'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS45 = '00002133'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS46 = '00002134'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS47 = '00002135'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS48 = '00002136'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS49 = '00002137'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS50 = '00002138'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS51 = '00002139'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS52 = '0000213A'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS53 = '0000213B'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS54 = '0000213C'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS55 = '0000213D'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS56 = '0000213E'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS57 = '0000213F'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS58 = '00002140'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS59 = '00002141'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS60 = '00002142'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS61 = '00002143'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS62 = '00002144'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS63 = '00002145'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS64 = '00002146'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS65 = '00002147'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS66 = '00002148'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS67 = '00002149'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS68 = '0000214A'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS69 = '0000214B'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS70 = '0000214C'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS71 = '0000214D'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS72 = '0000214E'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS73 = '0000214F'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS74 = '00002150'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS75 = '00002151'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS76 = '00002152'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS77 = '00002153'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS78 = '00002154'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS79 = '00002155'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS80 = '00002156'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS81 = '00002157'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS82 = '00002158'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS83 = '00002159'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS84 = '0000215A'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS85 = '0000215B'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS86 = '0000215C'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS87 = '0000215D'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS88 = '0000215E'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS89 = '0000215F'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS90 = '00002160'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS91 = '00002161'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS92 = '00002162'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS93 = '00002163'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS94 = '00002164'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS95 = '00002165'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESER VEDEWS96 = '00002166'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS97 = '00002167'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS98 = '00002168'X ! Reserved EWS itemsE PARAMETER GETSPI$_RESERVEDEWS99 = '00002169'X ! Reserved EWS itemsF PARAMETER GETSPI$_RESERVEDEWS100 = '0000216A'X ! Reserved EWS itemsQ PARAMETER GETSPI$_LASTEWS = '0000216B'X ! Last item in the exec writable table ! A ! Begin monitor specific data items. The items listed below areH ! NOT collected by the SPI as individual items. Some are NOT collected' ! at all but are computed by MONITOR. ! \ PARAMETER GETSPI$_FIDHITPCNT = '0000316B'X ! percentage of file id cache hits/hits+missesd PARAMETER GETSPI$_FILHDR_HITPCNT = '0000316C'X ! percentage of file header cache hits/hits+missesd PARAMETER GETSPI$_DIRFCB_HITPCNT = '0000316D'X ! percentage of directory block cache hits/hits+mid PARAMETER GETSPI$_DIRDATA_HITPCNT = '0000316E'X ! percentage of directory data cache hits/hits+mi[ PARAMETER GETSPI$_EXTHITPCNT = '0000316F'X ! percentage of extent cache hits/hits+missesZ PARAMETER GETSPI$_QUOHITPCNT = '00003170'X ! percentage of quota cache hits/hits+missesd PARAMETER GETSPI$_STORAGMAP_HITPCNT = '00003171'X ! percentage of storage map cache hits/hits+misB PARAMETER GETSPI$_OPCNT = '00003172'X ! disk io operation countB PARAMETER GETSPI$_IOQUELEN = '00003173'X ! disk io queue lengthL PARAMETER GETSPI$_IOAQUELEN = '00003174'X ! Accurate disk io queue lengthF PARAMETER GETSPI$_DISKRESPTIM = '00003175'X ! disk io response timeW PARAMETER GETSPI$_JNLIOCNT = '00003176'X ! journaling io operation count (for disks)K PARAMETER GETSPI$_JDNQLEN = '00003177'X ! jdevice normal io queue lengthJ PARAMETER GETSPI$_JDWQLEN = '00003178'X ! jdevice wait irp queue lengthJ PARAMETER GETSPI$_JDFQLEN = '00003179'X ! jdevice force io queue lengthA PARAMETER GETSPI$_JDEXCNT = '0000317A'X ! jdevice extend count6 PARAMETER GETSPI$_JNLWRTSS = '0000317B'X ! obsolete6 PARAMETER GETSPI$_JNLBUFWR = '0000317C'X ! obsoleteJ PARAMETER GETSPI$_DGSENT = '0000317D'X ! SCS application datagrams sentN PARAMETER GETSPI$_DGRCVD = '0000317E'X ! SCS application datagrams receivedR PARAMETER GETSPI$_DGDISCARD = '0000317F'X ! SCS application datagrams discardedJ PARAMETER GETSPI$_MSGSENT = '00003180'X ! SCS application messages sentN PARAMETER GETSPI$_MSGRCVD = '00003181'X ! SCS application messages receivedJ PARAMETER GETSPI$_SNDATS = '00003182'X ! SCS block send datas initiatedL PARAMETER GETSPI$_KBYTSENT = '00003183'X ! SCS kbytes sent via send datasN PARAMETER GETSPI$_REQDATS = '00003184'X ! SCS block request datas initiatedS PARAMETER GETSPI$_KBYTREQD = '00003185'X ! SCS kbytes received via request datasR PARAMETER GETSPI$_KBYTMAPD = '00003186'X ! SCS kbytes mapped for block transferX PARAMETER GETSPI$_QCR_CNT = '00003187'X ! SCS times connection queued for send credit_ PARAMETER GETSPI$_QBDT_CNT = '00003188'X ! SCS times connection queued for buffer descriptor> PARAMETER GETSPI$_DIRLOOK = '00003189'X ! directory lookups= PARAMETER GETSPI$_DIRINS = '0000318A'X ! directory inserts= PARAMETER GETSPI$_DIRDEL = '0000318B'X ! directory deletesD PARAMETER GETSPI$_PACKETS = '0000318C'X ! Ethernet packets/second9 PARAMETER GETSPI$_KBYTES = '0000318D'X ! Kbytes/secondD PARAMETER GETSPI$_PACKETSIZE = '0000318E'X ! Packets size (bytes)F PARAMETER GETSPI$_MPACKETS = '0000318F'X ! Multicast packets/secondD PARAMETER GETSPI$_MKBYTES = '00003190'X ! Multicast Kbytes/secondN PARAMETER GETSPI$_MPACKETSIZE = '00003191'X ! Multicast packet size (bytes)R PARAMETER GETSPI$_SINGLECOLL = '00003192'X ! Transmit single collision detectedQ PARAMETER GETSPI$_MULTICOLL = '00003193'X ! Transmit multi collisions detectedJ PARAMETER GETSPI$_INITDEFER = '00003194'X ! Transmit initially deferredQ PARAMETER GETSPI$_INTERNALBUFERR = '00003195'X ! Receive internal buffer errorI PARAMETER GETSPI$_LOCBUFERR = '00003196'X ! Receive local buffer errorJ PARAMETER GETSPI$_BUFFUNAVAIL = '00003197'X ! System buffer unavailable: PARAMETER GETSPI$_FILLER = '00003198'X ! Dummy pad itemD PARAMETER GETSPI$_RESERVEDMON1 = '00003199'X ! Reserved MON itemsD PARAMETER GETSPI$_RESERVEDMON2 = '0000319A'X ! Reserved MON itemsD PARAMETER GETSPI$_RESERVEDMON3 = '0000319B'X ! Reserved MON itemsD PARAMETER GETSPI$_RESERVEDMON4 = '0000319C'X ! Reserved MON itemsD PARAMETER GETSPI$_RESERVEDMON5 = '0000319D'X ! Reserved MON itemsD PARAMETER GETSPI$_RESERVEDMON6 = '0000319E'X ! Reserved MON itemsD PARAMETER GETSPI$_RESERVEDMON7 = '0000319F'X ! Reserved MON itemsD PARAMETER GETSPI$_RESERVEDMON8 = '000031A0'X ! Reserved MON itemsD PARAMETER GETSPI$_RESERVEDMON9 = '000031A1'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON10 = '000031A2'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON11 = '000031A3'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON12 = '000031A4'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON13 = '000031A5'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON14 = '000031A6'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON15 = '000031A7'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON16 = '000031A8'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON17 = '000031A9'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON18 = '000031AA'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON19 = '000031AB'X ! Reser ved MON itemsE PARAMETER GETSPI$_RESERVEDMON20 = '000031AC'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON21 = '000031AD'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON22 = '000031AE'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON23 = '000031AF'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON24 = '000031B0'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON25 = '000031B1'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON26 = '000031B2'X ! Reserve!d MON itemsE PARAMETER GETSPI$_RESERVEDMON27 = '000031B3'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON28 = '000031B4'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON29 = '000031B5'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON30 = '000031B6'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON31 = '000031B7'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON32 = '000031B8'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON33 = '000031B9'X ! Reserved "MON itemsE PARAMETER GETSPI$_RESERVEDMON34 = '000031BA'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON35 = '000031BB'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON36 = '000031BC'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON37 = '000031BD'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON38 = '000031BE'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON39 = '000031BF'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON40 = '000031C0'X ! Reserved MO#N itemsE PARAMETER GETSPI$_RESERVEDMON41 = '000031C1'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON42 = '000031C2'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON43 = '000031C3'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON44 = '000031C4'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON45 = '000031C5'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON46 = '000031C6'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON47 = '000031C7'X ! Reserved MON $itemsE PARAMETER GETSPI$_RESERVEDMON48 = '000031C8'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON49 = '000031C9'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON50 = '000031CA'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON51 = '000031CB'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON52 = '000031CC'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON53 = '000031CD'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON54 = '000031CE'X ! Reserved MON it%emsE PARAMETER GETSPI$_RESERVEDMON55 = '000031CF'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON56 = '000031D0'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON57 = '000031D1'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON58 = '000031D2'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON59 = '000031D3'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON60 = '000031D4'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON61 = '000031D5'X ! Reserved MON item&sE PARAMETER GETSPI$_RESERVEDMON62 = '000031D6'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON63 = '000031D7'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON64 = '000031D8'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON65 = '000031D9'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON66 = '000031DA'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON67 = '000031DB'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON68 = '000031DC'X ! Reserved MON items'E PARAMETER GETSPI$_RESERVEDMON69 = '000031DD'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON70 = '000031DE'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON71 = '000031DF'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON72 = '000031E0'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON73 = '000031E1'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON74 = '000031E2'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON75 = '000031E3'X ! Reserved MON itemsE( PARAMETER GETSPI$_RESERVEDMON76 = '000031E4'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON77 = '000031E5'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON78 = '000031E6'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON79 = '000031E7'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON80 = '000031E8'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON81 = '000031E9'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON82 = '000031EA'X ! Reserved MON itemsE P)ARAMETER GETSPI$_RESERVEDMON83 = '000031EB'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON84 = '000031EC'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON85 = '000031ED'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON86 = '000031EE'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON87 = '000031EF'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON88 = '000031F0'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON89 = '000031F1'X ! Reserved MON itemsE PAR*AMETER GETSPI$_RESERVEDMON90 = '000031F2'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON91 = '000031F3'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON92 = '000031F4'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON93 = '000031F5'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON94 = '000031F6'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON95 = '000031F7'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON96 = '000031F8'X ! Reserved MON itemsE PARAM+ETER GETSPI$_RESERVEDMON97 = '000031F9'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON98 = '000031FA'X ! Reserved MON itemsE PARAMETER GETSPI$_RESERVEDMON99 = '000031FB'X ! Reserved MON itemsF PARAMETER GETSPI$_RESERVEDMON100 = '000031FC'X ! Reserved MON itemsT PARAMETER GETSPI$_LASTMON = '000031FD'X ! Last item in the monitor specific table ! M ! Begin items specific to the Monitor RMS class. These items are maintainedP ! by RMS and collected from a global section with ,the following naming scheme:M ! _RMS$xxxxxxxxyyyyyy where x is the volume lock id and y is the fid of the ! file being monitored. ! R PARAMETER GETSPI$_RMS_STATS = '000041FD'X ! All of the following rms statisticsG PARAMETER GETSPI$_SEQGETS = '000041FE'X ! Total # of sequential getsB PARAMETER GETSPI$_KEYGETS = '000041FF'X ! Total # of keyed getsC PARAMETER GETSPI$_RFAGETS = '00004200'X ! Total # of gets by RFAM PARAMETER GETSPI$_GETBYTES = '00004201'X ! Total size in bytes -of all GETSG PARAMETER GETSPI$_SEQPUTS = '00004202'X ! Total # of sequential putsC PARAMETER GETSPI$_KEYPUTS = '00004203'X ! Total # of puts by keyJ PARAMETER GETSPI$_PUTBYTES = '00004204'X ! Total # of bytes put to fileK PARAMETER GETSPI$_UPDATES = '00004205'X ! Total # of updates to the fileQ PARAMETER GETSPI$_UPDATEBYTES = '00004206'X ! Total # of bytes updated in fileG PARAMETER GETSPI$_DELETES = '00004207'X ! Total # of deletes to fileW PARAMETER GETSPI$_TRUNCATES = '0000.4208'X ! Total # of times file has been truncatedX PARAMETER GETSPI$_TRUNCBLKS = '00004209'X ! Total # of blocks file has been truncatedI PARAMETER GETSPI$_SEQFINDS = '0000420A'X ! Total # of sequential findsD PARAMETER GETSPI$_KEYFINDS = '0000420B'X ! Total # of keyed findsB PARAMETER GETSPI$_RFAFINDS = '0000420C'X ! Total # of RFA finds< PARAMETER GETSPI$_READS = '0000420D'X ! Total # of $READSP PARAMETER GETSPI$_READBYTES = '0000420E'X ! Total # of bytes read from $READSD PAR/AMETER GETSPI$_CONNECTS = '0000420F'X ! Total connect requestsJ PARAMETER GETSPI$_DISCONNECTS = '00004210'X ! Total disconnect requests: PARAMETER GETSPI$_EXTENDS = '00004211'X ! Total extends\ PARAMETER GETSPI$_EXTBLOCKS = '00004212'X ! Total number of blocks file has been extendedK PARAMETER GETSPI$_FLUSHES = '00004213'X ! Total number of calls to flushL PARAMETER GETSPI$_REWINDS = '00004214'X ! Total number of calls to REWINDK PARAMETER GETSPI$_WRITES = '00004215'X ! Total numb0er of calls to $WRITEP PARAMETER GETSPI$_WRITEBYTES = '00004216'X ! Total bytes written using $WRITEM PARAMETER GETSPI$_FLCKENQS = '00004217'X ! Total number of file lock ENQ'sM PARAMETER GETSPI$_FLCKDEQS = '00004218'X ! Total number of file lock DEQ'sS PARAMETER GETSPI$_FLCKCNVS = '00004219'X ! Total number of file lock conversionsV PARAMETER GETSPI$_LBLCKENQS = '0000421A'X ! Total number of local buffer lock ENQ'sV PARAMETER GETSPI$_LBLCKDEQS = '0000421B'X ! Total number of loc1al buffer lock DEQ's\ PARAMETER GETSPI$_LBLCKCNVS = '0000421C'X ! Total number of local buffer lock conversionsW PARAMETER GETSPI$_GBLCKENQS = '0000421D'X ! Total number of global buffer lock ENQ'sW PARAMETER GETSPI$_GBLCKDEQS = '0000421E'X ! Total number of global buffer lock DEQ's] PARAMETER GETSPI$_GBLCKCNVS = '0000421F'X ! Total number of global buffer lock conversionsX PARAMETER GETSPI$_GSLCKENQS = '00004220'X ! Total number of global section lock ENQ'sX PARAMETER GETSPI$_GSLCK2DEQS = '00004221'X ! Total number of global section lock DEQ's^ PARAMETER GETSPI$_GSLCKCNVS = '00004222'X ! Total number of global section lock conversionsO PARAMETER GETSPI$_RLCKENQS = '00004223'X ! Total number of record lock ENQ'sO PARAMETER GETSPI$_RLCKDEQS = '00004224'X ! Total number of record lock DEQ'sU PARAMETER GETSPI$_RLCKCNVS = '00004225'X ! Total number of record lock conversionsQ PARAMETER GETSPI$_APPLCKENQS = '00004226'X ! Total number of append lock ENQ'sQ PARAMET3ER GETSPI$_APPLCKDEQS = '00004227'X ! Total number of append lock DEQ'sW PARAMETER GETSPI$_APPLCKCNVS = '00004228'X ! Total number of append lock conversionsV PARAMETER GETSPI$_FLBLKASTS = '00004229'X ! Total number of file lock blocking ASTs_ PARAMETER GETSPI$_LBLBLKASTS = '0000422A'X ! Total number of local buffer lock blocking ASTs` PARAMETER GETSPI$_GBLBLKASTS = '0000422B'X ! Total number of global buffer lock blocking ASTs` PARAMETER GETSPI$_APPBLKASTS = '0000422C'X ! Total nu4mber of shared append lock blocking ASTs\ PARAMETER GETSPI$_LCACHEHITS = '0000422D'X ! Total cache hits on buckets in local buffersa PARAMETER GETSPI$_LCACHETRIES = '0000422E'X ! Total cache attempts on buckets in local buffers] PARAMETER GETSPI$_GCACHEHITS = '0000422F'X ! Total cache hits on buckets in global buffersb PARAMETER GETSPI$_GCACHETRIES = '00004230'X ! Total cache attempts on buckets in global buffersd PARAMETER GETSPI$_GBRDIRIOS = '00004231'X ! Total direct IO's causes by5 global buffer cache readse PARAMETER GETSPI$_GBWDIRIOS = '00004232'X ! Total direct IO's causes by global buffer cache writesc PARAMETER GETSPI$_LBRDIRIOS = '00004233'X ! Total direct IO's causes by local buffer cache readsd PARAMETER GETSPI$_LBWDIRIOS = '00004234'X ! Total direct IO's causes by local buffer cache writes_ PARAMETER GETSPI$_BKTSPLT = '00004235'X ! Total number of 2 bucket splits done for this filed PARAMETER GETSPI$_MBKTSPLT = '00004236'X ! Total number of multi-buck6et splits done for this fileX PARAMETER GETSPI$_RMSOPENS = '00004237'X ! Total number of times file has been openedV PARAMETER GETSPI$_CLOSES = '00004238'X ! Total number of times file has been closedK PARAMETER GETSPI$_GSBLKASTS = '00004239'X ! Global Section Blocking ASTSJ PARAMETER GETSPI$_FLWAITS = '0000423A'X ! File lock ENQs forced to waitM PARAMETER GETSPI$_LBWAITS = '0000423B'X ! Local buffer ENQs forced to waitN PARAMETER GETSPI$_GBWAITS = '0000423C'X ! Global buffer ENQs 7forced to waitO PARAMETER GETSPI$_GSWAITS = '0000423D'X ! Global section ENQs forced to waitL PARAMETER GETSPI$_RLWAITS = '0000423E'X ! Record lock ENQs forced to waitL PARAMETER GETSPI$_APWAITS = '0000423F'X ! Append lock ENQs forced to waitG PARAMETER GETSPI$_TOTWAITS = '00004240'X ! Total ENQs forced to waita PARAMETER GETSPI$_OUTBUFQUO = '00004241'X ! Number of times a process runs out of buffer quota\ PARAMETER GETSPI$_RMSDEV1 = '00004242'X ! Reserved for RMS development priv8ate monitoring\ PARAMETER GETSPI$_RMSDEV2 = '00004243'X ! Reserved for RMS development private monitoring\ PARAMETER GETSPI$_RMSDEV3 = '00004244'X ! Reserved for RMS development private monitoring\ PARAMETER GETSPI$_RMSDEV4 = '00004245'X ! Reserved for RMS development private monitoring\ PARAMETER GETSPI$_RMSDEV5 = '00004246'X ! Reserved for RMS development private monitoring\ PARAMETER GETSPI$_RMSDEV6 = '00004247'X ! Reserved for RMS development private monitoring\ PARAMETER GETSPI$_R9MSDEV7 = '00004248'X ! Reserved for RMS development private monitoring\ PARAMETER GETSPI$_RMSDEV8 = '00004249'X ! Reserved for RMS development private monitoring\ PARAMETER GETSPI$_RMSDEV9 = '0000424A'X ! Reserved for RMS development private monitoring] PARAMETER GETSPI$_RMSDEV10 = '0000424B'X ! Reserved for RMS development private monitoring] PARAMETER GETSPI$_RMSDEV11 = '0000424C'X ! Reserved for RMS development private monitoring] PARAMETER GETSPI$_RMSDEV12 = '0000424D'X ! Reserv:ed for RMS development private monitoring] PARAMETER GETSPI$_RMSDEV13 = '0000424E'X ! Reserved for RMS development private monitoring] PARAMETER GETSPI$_RMSDEV14 = '0000424F'X ! Reserved for RMS development private monitoring] PARAMETER GETSPI$_RMSDEV15 = '00004250'X ! Reserved for RMS development private monitoringZ PARAMETER GETSPI$_XQPQIOS = '00004251'X ! Number of XQP operations for this file by RMSO PARAMETER GETSPI$_LCACHEHITPCNT = '00004252'X ! Local RMS buffer hit percentP; PARAMETER GETSPI$_GCACHEHITPCNT = '00004253'X ! Global RMS buffer hit percentB PARAMETER GETSPI$_TOTALGET = '00004254'X ! Total $GET call rateB PARAMETER GETSPI$_TOTALPUT = '00004255'X ! Total $PUT call rateD PARAMETER GETSPI$_TOTALFIND = '00004256'X ! Total $FIND call rate< PARAMETER GETSPI$_BYTESGET = '00004257'X ! Bytes per $GET< PARAMETER GETSPI$_BYTESPUT = '00004258'X ! Bytes per $PUTB PARAMETER GETSPI$_BYTESUPDATE = '00004259'X ! Bytes per $UPDATE> PARAMETER GETSPI$_BYTESRE<AD = '0000425A'X ! Bytes per $READ@ PARAMETER GETSPI$_BYTESWRITE = '0000425B'X ! Bytes per $WRITEG PARAMETER GETSPI$_BLOCKSTRUNCATE = '0000425C'X ! Bytes per $TRUNCATEC PARAMETER GETSPI$_BLOCKSEXTEND = '0000425D'X ! Bytes per $EXTENDK PARAMETER GETSPI$_ACTIVE_STREAMS = '0000425E'X ! Active connects to file> PARAMETER GETSPI$_TOTAL_ENQS = '0000425F'X ! Total new ENQs: PARAMETER GETSPI$_TOTAL_DEQS = '00004260'X ! Total DEQsE PARAMETER GETSPI$_TOTAL_CNVS = '00004261'X ! Total EN=Q conversionsE PARAMETER GETSPI$_TOTAL_BLKAST = '00004262'X ! Total blocking ASTs9 PARAMETER GETSPI$_RMS_ORG = '00004263'X ! RMS File orgb PARAMETER GETSPI$_INTCOL_HSHTBL = '00004264'X ! Interlock collision on global buffer hash table[ PARAMETER GETSPI$_INTCOL_GBH = '00004265'X ! Interlock Collision on global buffer headerb PARAMETER GETSPI$_INTRES_SETIMR = '00004266'X ! Interlock Collision resolved by call to $SETIMRb PARAMETER GETSPI$_INTNOTRES = '00004267'X ! Interlock collisi>on not resolved by call to $SETIMRD PARAMETER GETSPI$_RESERVEDRMS5 = '00004268'X ! Reserved RMS itemsD PARAMETER GETSPI$_RESERVEDRMS6 = '00004269'X ! Reserved RMS itemsD PARAMETER GETSPI$_RESERVEDRMS7 = '0000426A'X ! Reserved RMS itemsD PARAMETER GETSPI$_RESERVEDRMS8 = '0000426B'X ! Reserved RMS itemsD PARAMETER GETSPI$_RESERVEDRMS9 = '0000426C'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS10 = '0000426D'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS11 = '0000426E'X ?! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS12 = '0000426F'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS13 = '00004270'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS14 = '00004271'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS15 = '00004272'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS16 = '00004273'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS17 = '00004274'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS18 = '00004275'X ! @ Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS19 = '00004276'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS20 = '00004277'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS21 = '00004278'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS22 = '00004279'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS23 = '0000427A'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS24 = '0000427B'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS25 = '0000427C'X ! RAeserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS26 = '0000427D'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS27 = '0000427E'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS28 = '0000427F'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS29 = '00004280'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS30 = '00004281'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS31 = '00004282'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS32 = '00004283'X ! ResBerved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS33 = '00004284'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS34 = '00004285'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS35 = '00004286'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS36 = '00004287'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS37 = '00004288'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS38 = '00004289'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS39 = '0000428A'X ! ReserCved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS40 = '0000428B'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS41 = '0000428C'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS42 = '0000428D'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS43 = '0000428E'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS44 = '0000428F'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS45 = '00004290'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS46 = '00004291'X ! ReserveDd RMS itemsE PARAMETER GETSPI$_RESERVEDRMS47 = '00004292'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS48 = '00004293'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS49 = '00004294'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS50 = '00004295'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS51 = '00004296'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS52 = '00004297'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS53 = '00004298'X ! Reserved ERMS itemsE PARAMETER GETSPI$_RESERVEDRMS54 = '00004299'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS55 = '0000429A'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS56 = '0000429B'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS57 = '0000429C'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS58 = '0000429D'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS59 = '0000429E'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS60 = '0000429F'X ! Reserved RMFS itemsE PARAMETER GETSPI$_RESERVEDRMS61 = '000042A0'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS62 = '000042A1'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS63 = '000042A2'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS64 = '000042A3'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS65 = '000042A4'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS66 = '000042A5'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS67 = '000042A6'X ! Reserved RMS GitemsE PARAMETER GETSPI$_RESERVEDRMS68 = '000042A7'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS69 = '000042A8'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS70 = '000042A9'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS71 = '000042AA'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS72 = '000042AB'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS73 = '000042AC'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS74 = '000042AD'X ! Reserved RMS itHemsE PARAMETER GETSPI$_RESERVEDRMS75 = '000042AE'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS76 = '000042AF'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS77 = '000042B0'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS78 = '000042B1'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS79 = '000042B2'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS80 = '000042B3'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS81 = '000042B4'X ! Reserved RMS itemIsE PARAMETER GETSPI$_RESERVEDRMS82 = '000042B5'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS83 = '000042B6'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS84 = '000042B7'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS85 = '000042B8'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS86 = '000042B9'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS87 = '000042BA'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS88 = '000042BB'X ! Reserved RMS itemsJE PARAMETER GETSPI$_RESERVEDRMS89 = '000042BC'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS90 = '000042BD'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS91 = '000042BE'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS92 = '000042BF'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS93 = '000042C0'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS94 = '000042C1'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS95 = '000042C2'X ! Reserved RMS itemsEK PARAMETER GETSPI$_RESERVEDRMS96 = '000042C3'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS97 = '000042C4'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS98 = '000042C5'X ! Reserved RMS itemsE PARAMETER GETSPI$_RESERVEDRMS99 = '000042C6'X ! Reserved RMS itemsF PARAMETER GETSPI$_RESERVEDRMS100 = '000042C7'X ! Reserved RMS itemsT PARAMETER GETSPI$_LASTRMS = '000042C8'X ! Last item in the monitor specific table ! M ! Add new data items specific to MONITOR (not collec Lted by the SPI on a per! ! item basis) above this point. ! * PARAMETER GETSPI$_TABLESIZE = '000002C8'X: STRUCTURE /getspi$scs_offsets/ ! SCS class information< INTEGER*4 GETSPI$q_scs_nodename(2) ! System node nameB INTEGER*4 GETSPI$l_scs_dgsent ! Application datagrams sentF INTEGER*4 GETSPI$l_scs_dgrcvd ! Application datagrams receivedI INTEGER*4 GETSPI$l_scs_dgdiscard ! Application datagrams discardedB INTEGER*4 GETSPI$l_scs_msgsent ! Application mesMsages sentF INTEGER*4 GETSPI$l_scs_msgrcvd ! Application messages receivedC INTEGER*4 GETSPI$l_scs_snddats ! Block send datas initiatedD INTEGER*4 GETSPI$l_scs_kbytsent ! Kbytes sent via send datasF INTEGER*4 GETSPI$l_scs_reqdats ! Block request datas initiatedK INTEGER*4 GETSPI$l_scs_kbytreqd ! Kbytes received via request datasK INTEGER*4 GETSPI$l_scs_kbytmapd ! Kbytes mapped for block transfersP INTEGER*4 GETSPI$l_scs_qcr_cnt ! Times connect Nion queued for send creditW INTEGER*4 GETSPI$l_scs_qbdt_cnt ! Times connection queued for buffer descriptor# END STRUCTURE ! getspi$scs_offsets\ PARAMETER GETSPI$c_scs_minsize = '00000038'X ! Size of one collection block for scs class@ STRUCTURE /getspi$disk_offsets/ ! DISK class information for ! the current revision level; INTEGER*2 GETSPI$w_disk_alloclass ! Allocation class5 INTEGER*4 GETSPI$l_disk_devname ! Device name5 INTEGER*2 GETSPI$w_disk_unitnum ! O Unit numberQ BYTE GETSPI$b_disk_flags ! Flags byte (low bit indicates served disk5 INTEGER*4 GETSPI$q_disk_nodename(2) ! Nodename> INTEGER*4 GETSPI$q_disk_volnamel(2) ! Volume name (low)< INTEGER*4 GETSPI$l_disk_volnameh ! Volume name (high)8 INTEGER*4 GETSPI$l_disk_optcnt ! Operation countA INTEGER*4 GETSPI$l_disk_qcount ! Queue length accumulator$ END STRUCTURE ! getspi$disk_offsetsD PARAMETER GETSPI$c_disk_minsize = '00000025'X ! Size of o Pne block@ STRUCTURE /getspi$disk_offsets_rev4/ ! DISK class information ! for "revision level 4"@ BYTE GETSPI$b_disk_alloclass_rev4 ! Allocation class9 INTEGER*4 GETSPI$l_disk_devname_rev4 ! Device name9 INTEGER*2 GETSPI$w_disk_unitnum_rev4 ! Unit numberU BYTE GETSPI$b_disk_flags_rev4 ! Flags byte (low bit indicates served disk: INTEGER*4 GETSPI$q_disk_nodename_rev4(2) ! NodenameC INTEGER*4 GETSPI$q_disk_volnamel_rev4(2) ! Volume name (low)QA INTEGER*4 GETSPI$l_disk_volnameh_rev4 ! Volume name (high)< INTEGER*4 GETSPI$l_disk_optcnt_rev4 ! Operation countE INTEGER*4 GETSPI$l_disk_qcount_rev4 ! Queue length accumulator) END STRUCTURE ! getspi$disk_offsets_rev4I PARAMETER GETSPI$c_disk_minsize_rev4 = '00000024'X ! Size of one block> STRUCTURE /getspi$proc_class/ ! PROCESSES Class Data Block3 INTEGER*4 GETSPI$l_proc_ipid ! Internal PIDD INTEGER*4 GETSPI$l_proc_uic ! UIC (Member is low-order w Rord)3 INTEGER*2 GETSPI$w_proc_state ! State value? BYTE GETSPI$b_proc_pri ! Priority (negative value)G INTEGER*4 GETSPI$o_proc_lname(4) ! Process name (counted string): INTEGER*4 GETSPI$l_proc_gpgcnt ! Global page count; INTEGER*4 GETSPI$l_proc_ppgcnt ! Process page count7 INTEGER*4 GETSPI$l_proc_sts ! PCB Status Vector* ! (PCB$V_RES bit clear => swapped out)9 INTEGER*4 GETSPI$l_proc_diocnt ! Direct I/O count: INTEGER*4 GETSPI$ Sl_proc_pageflts ! Page fault countH INTEGER*4 GETSPI$l_proc_cputim ! Accumulated CPU time (in ticks); INTEGER*4 GETSPI$l_proc_biocnt ! Buffered I/O count3 INTEGER*4 GETSPI$l_proc_epid ! Extended PIDH INTEGER*4 GETSPI$l_proc_efwm ! Event flag wait mask (for MWAITs)G INTEGER*4 GETSPI$l_proc_rbstran ! Real balance slot transitions ! Size of process data block" END STRUCTURE ! getspi$proc_class. PARAMETER GETSPI$c_proc_minsize = '00000043'X!DEC$ END OPTI TONS ww?@Φ!*** MODULE $GLOCKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNL PARAMETER glock$c_nowait = '00000001'X ! $acquire_lock will not auto-waitG PARAMETER glock$c_nospin = '00000002'X ! $acquire_lock will not spinX PARAMETER glock$c_nobreak = '00000004'X ! $acquire_lock will not break lock ownershipY PARAMETER glock$c_auto_wait = '00000008'X ! kernel mode code waints an automatic wait M PARAMETER glock$c_num_nodes = '00000040'X ! max U number of gnodes supportedP PARAMETER glcktbl$c_process = '00000000'X ! lock region is mapped in P2 spaceO PARAMETER glcktbl$c_system = '00000001'X ! lock region is mapped in S2 spaceK PARAMETER glcktbl$c_private = '00000002'X ! lock region is pre-allocated STRUCTURE /glock_hist/ INTEGER*4 glock_hist$l_pc# INTEGER*4 glock_hist$q_lock(2) END STRUCTURE ! glock_hist- PARAMETER glock_hist$c_entries = '0000000A'X& PARAMETER glock$m_owned = '00000001'X' PARAMETER glock$m_b Vroken = '00000002'X( PARAMETER glock$m_waiters = '00000004'X( PARAMETER glock$m_process = '00000008'X- PARAMETER glock$m_reserved_4_7 = '000000F0'X, PARAMETER glock$m_owner_count = '0000FF00'X% PARAMETER glock$m_node = '00FF0000'X) PARAMETER glock$m_node_seq = '00000000'X& PARAMETER glock$m_owner = '00000000'X STRUCTURE /GLOCK/= INTEGER*4 glock$l_flink ! Forward link (lock handle)+ INTEGER*4 glock$l_spare1 ! not used3 INTEGER*2 glock$w_size ! size of structureW0 BYTE glock$b_type ! Structure type+ BYTE glock$b_subtype ! subtype; BYTE glock$b_ipl ! IPL to raise to on acquire? BYTE glock$b_prev_ipl ! IPL to lower to on release. BYTE glock$b_rank ! Rank of lock+ BYTE glock$b_spare2 ! not used UNION MAP0 INTEGER*4 glock$q_lock(2) ! the lock END MAP MAP UNION MAP- PARAMETER glock$bS_ Xflags = 8- PARAMETER glock$bV_flags = 01 BYTE %FILL (1) ! lock flags END MAP MAP0 PARAMETER glock$S_owned = 1C PARAMETER glock$V_owned = 0 ! lock is owned1 PARAMETER glock$S_broken = 1O PARAMETER glock$V_broken = 1 ! lock ownership is broken2 PARAMETER glock$S_waiters = 1I PARAMETER glock$V_w Yaiters = 2 ! there are waiters2 PARAMETER glock$S_process = 1X PARAMETER glock$V_process = 3 ! lock is owned in process context7 PARAMETER glock$S_reserved_4_7 = 47 PARAMETER glock$V_reserved_4_7 = 4: BYTE %FILL (1) ! the unused bits END MAP END UNION/ PARAMETER glock$bS_owner_count = 8F PARAMETER glock$bV_owner_count = 8 ! Znested owner count( PARAMETER glock$bS_node = 8G PARAMETER glock$bV_node = 16 ! node where lock is owned- PARAMETER glock$wS_node_seq = 16F PARAMETER glock$wV_node_seq = 24 ! node sequence number) PARAMETER glock$S_owner = 24) PARAMETER glock$V_owner = 406 BYTE %FILL (7) ! owner EPID or CPU # END MAP END UNION@ INTEGER*4 glock$q_thread_id(2) ! thread id of lock owner9 I [NTEGER*4 glock$q_waiters(2) ! bitmask of waiters0 INTEGER*4 glock$l_timeout ! wait timeout- CHARACTER*16 glock$t_name ! lock name+ INTEGER*4 glock$l_spare4 ! not used+ INTEGER*4 glock$l_spare5 ! not usedH INTEGER*4 glock$l_history_idx ! next history longword to be usedL RECORD /glock_hist/ glock$r_history(1:10) ! acquire - release history END STRUCTURE ! GLOCK3 PARAMETER glock$c_length = '00000040'X ! Length 3 PARAMETER glock$k_length = '000 \00040'X ! Length ; PARAMETER glock$c_max_length = '000000C0'X ! max length ; PARAMETER glock$k_max_length = '000000C0'X ! max length + PARAMETER glock_lock$m_owned = '00000001'X, PARAMETER glock_lock$m_broken = '00000002'X- PARAMETER glock_lock$m_waiters = '00000004'X- PARAMETER glock_lock$m_process = '00000008'X2 PARAMETER glock_lock$m_reserved_4_7 = '000000F0'X1 PARAMETER glock_lock$m_owner_count = '0000FF00'X* PARAMETER glock_lock$m_node = '00FF0000'X. PARAMETER glock_lock$m_]node_seq = '00000000'X+ PARAMETER glock_lock$m_owner = '00000000'X STRUCTURE /glock_lock/ UNION MAP5 INTEGER*4 glock_lock$q_lock(2) ! the lock END MAP MAP UNION MAP2 PARAMETER glock_lock$bS_flags = 82 PARAMETER glock_lock$bV_flags = 01 BYTE %FILL (1) ! lock flags END MAP MAP5 PARAMETER glock_lock$S_owned ^= 1G PARAMETER glock_lock$V_owned = 0 ! lock is owned6 PARAMETER glock_lock$S_broken = 1S PARAMETER glock_lock$V_broken = 1 ! lock ownership is broken7 PARAMETER glock_lock$S_waiters = 1M PARAMETER glock_lock$V_waiters = 2 ! there are waiters7 PARAMETER glock_lock$S_process = 1\ PARAMETER glock_lock$V_process = 3 ! lock is owned in process con _text< PARAMETER glock_lock$S_reserved_4_7 = 4< PARAMETER glock_lock$V_reserved_4_7 = 4: BYTE %FILL (1) ! the unused bits END MAP END UNION4 PARAMETER glock_lock$bS_owner_count = 8K PARAMETER glock_lock$bV_owner_count = 8 ! nested owner count- PARAMETER glock_lock$bS_node = 8K PARAMETER glock_lock$bV_node = 16 ! node where lock is owned2 ` PARAMETER glock_lock$wS_node_seq = 16K PARAMETER glock_lock$wV_node_seq = 24 ! node sequence number. PARAMETER glock_lock$S_owner = 24. PARAMETER glock_lock$V_owner = 406 BYTE %FILL (7) ! owner EPID or CPU # END MAP END UNION END STRUCTURE ! glock_lock( PARAMETER glcktbl$m_valid = '00000001'X* PARAMETER glcktbl$m_private = '00000002'X( PARAMETER glcktbl$m_space = '00000004'X/ PARAMETER glcktbl$m_reserved_3_7 = '000 a000F8'X STRUCTURE /GLCKTBL/@ INTEGER*4 glcktbl$l_flink ! Forward link (region offset)C INTEGER*2 glcktbl$w_lock_size ! size of locks for the table UNION MAP8 BYTE glcktbl$b_flags ! lock table flags END MAP MAP* PARAMETER glcktbl$S_valid = 1C PARAMETER glcktbl$V_valid = 0 ! lock table is valid, PARAMETER glcktbl$S_private = 1L PARAMETER glcktbl$V_private = 1 ! user allocat bed lock memory* PARAMETER glcktbl$S_space = 1R PARAMETER glcktbl$V_space = 2 ! clear for process, set for system 1 PARAMETER glcktbl$S_reserved_3_7 = 51 PARAMETER glcktbl$V_reserved_3_7 = 32 BYTE %FILL (1) ! the unused bits END MAP END UNIOND BYTE glcktbl$b_accmode ! access mode of global section B INTEGER*4 glcktbl$q_reg_id(2) ! ID of shared memory regionS INTEGER*4 glcktbl$q_reg_phys_csize(2) ! physical size of shared memory regionR INTEGER*4 glcktbl$q_reg_virt_size(2) ! virtual size of shared memory regionG INTEGER*4 glcktbl$q_num_locks(2) ! number of locks in the region7 INTEGER*4 glcktbl$l_free_list ! free glock list7 INTEGER*4 glcktbl$l_used_list ! used glock listA INTEGER*4 glcktbl$q_nodes(2) ! bitmask of connected nodesE INTEGER*4 glcktbl$q_glock_handle(2) ! handle of embedded glock8 BYTE glcktbl$b_glock(1:64) ! d embedded GLOCKC INTEGER*2 glcktbl$w_ref_counts(1:64) ! per-node ref counters END STRUCTURE ! GLCKTBL5 PARAMETER glcktbl$c_length = '00000100'X ! Length 5 PARAMETER glcktbl$k_length = '00000100'X ! Length  STRUCTURE /glock_nodeb/D INTEGER*4 glock_nodeb$q_lock_handle(2) ! lockhandle for ipint= BYTE glock_nodeb$b_spares(1:24) ! pad to 32 bytes END STRUCTURE ! glock_nodeb8 PARAMETER glock_nodeb$c_length = '00000020'X ! length STRUCTURE /gmdb_glock/9 IeNTEGER*4 gmdb_glock$q_nodes(2) ! connected nodes@ INTEGER*4 gmdb_glock$q_max_nodes(2) ! max nodes supported/ INTEGER*4 gmdb_glock$q_flags(2) ! flags6 INTEGER*4 gmdb_glock$q_handle(2) ! lock handle T BYTE gmdb_glock$b_lock(1:64) ! GLOCK for the locking portion of the GMDBT BYTE gmdb_glock$b_lcktbl(1:256) ! embedded GLCKTBL for locks in the GMDBU INTEGER*4 gmdb_glock$q_num_tables(2,1:2) ! number of locktables in the regionsH INTEGER*4 gmdb_fglock$l_free_list(1:2) ! lists of free lock tablesH INTEGER*4 gmdb_glock$l_used_list(1:2) ! lists of used lock tablesW INTEGER*4 gmdb_glock$q_reg_handle(2,1:2) ! lock handles for locktable list locksP BYTE gmdb_glock$b_prc_lock(1:64) ! GLOCK for process locktable listsO BYTE gmdb_glock$b_sys_lock(1:64) ! GLOCK for system locktable listsE RECORD /glock_nodeb/ gmdb_glock$r_nodeb(1:64) ! per node cells END STRUCTURE ! gmdb_glock8 PARAMETER gmdb_glock$gc_length = '00000A10'X ! Length !DEC$ END OPTIONS wwyΦ!*** MODULE $GPSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! $ ! GSD entry - P-section definition ! " PARAMETER GPS$M_PIC = '00000001'X" PARAMETER GPS$M_LIB = '00000002'X" PARAMETER GPS$M_OVR = '00000004'X" PARAMETER GPS$M_REL = '00000008'X" PARAMETER GPS$M_GBL = '00000010'X" PARAMETER GPS$M_SHR = '00000020'X" PARAMETER GPS$M_EXE = '00000040'X! PARAMETER GPS$M_RD = '00000080'Xh" PARAMETER GPS$M_WRT = '00000100'X" PARAMETER GPS$M_VEC = '00000200'X$ PARAMETER GPS$M_NOMOD = '00000400'X" PARAMETER GPS$M_COM = '00000800'X# PARAMETER GPS$K_NAME = '00000009'X# PARAMETER GPS$C_NAME = '00000009'X STRUCTURE /GPSDEF/ UNION MAP/ BYTE GPS$B_GSDTYP ! Typ field  END MAP MAP7 ! unsupported type CHARACTER*0 GPS$T_START BYTE %FILL END MAP END UNION1 BYTE GPS$B_ALIGN i! P-sect alignment UNION MAP1 INTEGER*2 GPS$W_FLAGS ! P-sect flags  END MAP MAP$ PARAMETER GPS$S_PIC = 1? PARAMETER GPS$V_PIC = 0 ! Position independent $ PARAMETER GPS$S_LIB = 1A PARAMETER GPS$V_LIB = 1 ! From a shareable image $ PARAMETER GPS$S_OVR = 1E PARAMETER GPS$V_OVR = 2 ! Overlaid memory allocation $ PARAMETER GPS$S_REL = 16 PAR jAMETER GPS$V_REL = 3 ! Relocatable $ PARAMETER GPS$S_GBL = 17 PARAMETER GPS$V_GBL = 4 ! Global scope $ PARAMETER GPS$S_SHR = 14 PARAMETER GPS$V_SHR = 5 ! Shareable $ PARAMETER GPS$S_EXE = 15 PARAMETER GPS$V_EXE = 6 ! Executable # PARAMETER GPS$S_RD = 12 PARAMETER GPS$V_RD = 7 ! Readable $ PARAMETER GPS$S_WRT = 14 PARAMETER GPS$V_WRT = 8 ! Writeable $ k PARAMETER GPS$S_VEC = 17 PARAMETER GPS$V_VEC = 9 ! Vector psect & PARAMETER GPS$S_NOMOD = 1; PARAMETER GPS$V_NOMOD = 10 ! Not stored into$ PARAMETER GPS$S_COM = 1B PARAMETER GPS$V_COM = 11 ! Associated with COMM sym BYTE %FILL (2) END MAP END UNION< INTEGER*4 GPS$L_ALLOC ! Length of this contribution 7 BYTE GPS$B_NAMLNG ! Length of p-sect name - CHARACTER*31 GPS$T_lNAME ! Name field  END STRUCTURE ! GPSDEF!DEC$ END OPTIONS ww-Φ!*** MODULE $GSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ) ! Global symbol definition record (GSD) ! J PARAMETER GSD$K_ENTRIES = '00000001'X ! Offset to first entry in record J PARAMETER GSD$C_ENTRIES = '00000001'X ! Offset to first entry in record 7 PARAMETER GSD$C_PSC = '00000000'X ! Psect definition ; PARAMETER GSD$C_SYM = '00000001'X ! Symbol specification m F PARAMETER GSD$C_EPM = '00000002'X ! Entry point and mask definition F PARAMETER GSD$C_PRO = '00000003'X ! Procedure with formal arguments L PARAMETER GSD$C_SYMW = '00000004'X ! Symbol specification with word psect H PARAMETER GSD$C_EPMW = '00000005'X ! Entry point mask with word psect A PARAMETER GSD$C_PROW = '00000006'X ! Procedure with word psect : PARAMETER GSD$C_IDC = '00000007'X ! Random entity check 9 PARAMETER GSD$C_ENV = '00000008'X ! Define environment 3 PARAMETER GSD$C_L nSY = '00000009'X ! Local symbol K PARAMETER GSD$C_LEPM = '0000000A'X ! Local symbol entry point definition I PARAMETER GSD$C_LPRO = '0000000B'X ! Local symbol procedure definition H PARAMETER GSD$C_SPSC = '0000000C'X ! Shareable image psect definition  ! 4 PARAMETER GSD$C_VECTOR_TYPE_INCREMENT = '0000000C'XN PARAMETER GSD$C_SYMV = '0000000D'X ! Vectored (dual-valued) versions of SYM,, PARAMETER GSD$C_EPMV = '0000000E'X ! EPM,+ PARAMETER GSD$C_PROV = '0000000F'X ! PRO ! 2 PAR oAMETER GSD$C_MASK_TYPE_INCREMENT = '0000000F'X> PARAMETER GSD$C_SYMM = '00000010'X ! Masked versions of SYM,1 PARAMETER GSD$C_EPMM = '00000011'X ! EPM,0 PARAMETER GSD$C_PROM = '00000012'X ! PROG PARAMETER GSD$C_MAXRECTYP = '00000012'X ! Maximum entry type defined  STRUCTURE /GSDEF/9 BYTE GSD$B_RECTYP ! Record type (OBJ$C_GSD) E BYTE GSD$B_GSDTYP ! Type of entry (first byte of entry) L ! Vectored symbol types are (regular + 12). For example, SYMV =p SYM + 12. ! H ! Mask symbol types are (regular + 15). For example, SYMM = SYM + 15. !  END STRUCTURE ! GSDEF!DEC$ END OPTIONS ww zΦ!*** MODULE $GSYDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! ! GSD entry - Symbol definition ! 0 ! common to definitions, references, and entry ! point definitions. ! # PARAMETER GSY$M_WEAK = '00000001'X" PARAMETER GSY$M_DEF = '00000002'X" PARAMETER GSY$M_UNI = '00000004'X" PARAMETER GqSY$M_REL = '00000008'X# PARAMETER GSY$M_COMM = '00000010'X STRUCTURE /GSYDEF/ UNION MAP0 BYTE GSY$B_GSDTYP ! Type field  END MAP MAP7 ! unsupported type CHARACTER*0 GSY$T_START BYTE %FILL END MAP END UNION1 BYTE GSY$B_DATYP ! Symbol data type UNION MAP1 INTEGER*2 GSY$W_FLAGS ! Symbol flags  END MAP MAP% PARAMETER GSY$S_W rEAK = 16 PARAMETER GSY$V_WEAK = 0 ! Weak symbol $ PARAMETER GSY$S_DEF = 15 PARAMETER GSY$V_DEF = 1 ! Definition $ PARAMETER GSY$S_UNI = 14 PARAMETER GSY$V_UNI = 2 ! Universal $ PARAMETER GSY$S_REL = 16 PARAMETER GSY$V_REL = 3 ! Relocatable % PARAMETER GSY$S_COMM = 1< PARAMETER GSY$V_COMM = 4 ! C common globaldef BYTE %FILL (1) END MAP END UNIONs END STRUCTURE ! GSYDEF!DEC$ END OPTIONS ww|>Φ!*** MODULE $HLPDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ' ! Data structures for help processing ! % PARAMETER HLP$M_PROMPT = '00000001'X& PARAMETER HLP$M_PROCESS = '00000002'X$ PARAMETER HLP$M_GROUP = '00000004'X% PARAMETER HLP$M_SYSTEM = '00000008'X& PARAMETER HLP$M_LIBLIST = '00000010'X# PARAMETER HLP$M_HELP = '00000020'X% PARAMETER HLP$M_SPARE1 = '00000040'X( PARAMETER HLPt$M_PAGE_SAVE = '00000080'X# PARAMETER HLP$M_PAGE = '00000100'X% PARAMETER HLP$M_OUTPUT = '00000200'X& PARAMETER HLP$M_LIBRARY = '00000400'X" PARAMETER HLP$M_ALL = '00000800'X& PARAMETER HLP$M_PAGEDEF = '00001000'X& PARAMETER HLP$M_PMPTDEF = '00002000'X& PARAMETER HLP$M_NOTTERM = '00004000'X STRUCTURE /HLPDEF/ UNION MAP# PARAMETER HLP$S_PROMPT = 1; PARAMETER HLP$V_PROMPT = 0 ! Prompting enabled $ PARAMETER HLP$S_PROCESS = 1V PARAMETER HLP$V_P uROCESS = 1 ! Process logical name table searches enabled " PARAMETER HLP$S_GROUP = 1R PARAMETER HLP$V_GROUP = 2 ! Group logical name table searches enabled # PARAMETER HLP$S_SYSTEM = 1T PARAMETER HLP$V_SYSTEM = 3 ! System logical name table searched enabled $ PARAMETER HLP$S_LIBLIST = 1K PARAMETER HLP$V_LIBLIST = 4 ! Output list of default libraries ! PARAMETER HLP$S_HELP = 1R PARAMETER HLP$V_HELP = 5 ! Display h velp on help before list of topics # PARAMETER HLP$S_SPARE1 = 1# PARAMETER HLP$V_SPARE1 = 6& PARAMETER HLP$S_PAGE_SAVE = 1= PARAMETER HLP$V_PAGE_SAVE = 7 ! Page=Save enabled! PARAMETER HLP$S_PAGE = 1; PARAMETER HLP$V_PAGE = 8 ! Page breaks enabled # PARAMETER HLP$S_OUTPUT = 1E PARAMETER HLP$V_OUTPUT = 9 ! Output listing file enabled $ PARAMETER HLP$S_LIBRARY = 1J PARAMETER HLP$V_LIBRARY = 10 ! M wain library specified by user PARAMETER HLP$S_ALL = 1P PARAMETER HLP$V_ALL = 11 ! Some logical name table searches enabled $ PARAMETER HLP$S_PAGEDEF = 1I PARAMETER HLP$V_PAGEDEF = 12 ! Page flag defaulting disabled $ PARAMETER HLP$S_PMPTDEF = 1K PARAMETER HLP$V_PMPTDEF = 13 ! Prompt flag defaulting disabled $ PARAMETER HLP$S_NOTTERM = 1J PARAMETER HLP$V_NOTTERM = 14 ! Input device is not a terminal  BYTE %FILxL (2) END MAP END UNION END STRUCTURE ! HLPDEF' PARAMETER HLP$M_NOHLPTXT = '00000001'X( PARAMETER HLP$M_KEYNAMLIN = '00000002'X( PARAMETER HLP$M_OTHERINFO = '00000004'X STRUCTURE /HLPDEF1/F INTEGER*4 HLP$L_DESC ! Address of string descriptor for line UNION MAP+ INTEGER*4 HLP$L_FLAGS ! Flags  END MAP MAP) PARAMETER HLP$S_NOHLPTXT = 1Y PARAMETER HLP$V_NOHLPTXT = 0 ! Line is part of text due to no yhelp found * PARAMETER HLP$S_KEYNAMLIN = 1U PARAMETER HLP$V_KEYNAMLIN = 1 ! Line contains keynames to be printed * PARAMETER HLP$S_OTHERINFO = 1W PARAMETER HLP$V_OTHERINFO = 2 ! Line is part of "other info available"  BYTE %FILL (1) END MAP END UNIONH INTEGER*4 HLP$L_DATA ! Address of user data passed to GET_HELP 4 INTEGER*4 HLP$L_LEVEL ! Level of this help  END STRUCTURE ! HLPDEF1!DEC$ END OPzTIONS ww_@Φ!*** MODULE $HWDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN6 PARAMETER HW$_VAX = '00000001'X ! VAX architecture9 PARAMETER HW$_ALPHA = '00000002'X ! Alpha architecture!DEC$ END OPTIONS wwӫ@Φ!*** MODULE $IA64REGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! Special Registers5 PARAMETER IA64_REG$_IP = '000003F8'X ! getReg only) PARAMETER IA64_REG$_PSR_UM = '000003F9'X& PARAMET {ER IA64_REG$_PSR = '000003FB'X( PARAMETER IA64_REG$_PSR_L = '000003FB'X ! General Integer Registers, PARAMETER IA64_REG$_GP = '00000401'X ! R1- PARAMETER IA64_REG$_SP = '0000040C'X ! R12- PARAMETER IA64_REG$_TP = '0000040D'X ! R13$ ! Constants for 'hint' instruction, PARAMETER IA64_REG$HINT_PAUSE = '00000000'X+ PARAMETER IA64_REG$HINT_WAIT = '00000040'X ! Application Registers) PARAMETER IA64_REG$_AR_KR0 = '00000C00'X) PARAMETER IA64_REG$_AR_KR1 = '00000C01'X) PARAMETER I |A64_REG$_AR_KR2 = '00000C02'X) PARAMETER IA64_REG$_AR_KR3 = '00000C03'X) PARAMETER IA64_REG$_AR_KR4 = '00000C04'X) PARAMETER IA64_REG$_AR_KR5 = '00000C05'X) PARAMETER IA64_REG$_AR_KR6 = '00000C06'X) PARAMETER IA64_REG$_AR_KR7 = '00000C07'X) PARAMETER IA64_REG$_AR_RSC = '00000C10'X) PARAMETER IA64_REG$_AR_BSP = '00000C11'X. PARAMETER IA64_REG$_AR_BSPSTORE = '00000C12'X* PARAMETER IA64_REG$_AR_RNAT = '00000C13'X) PARAMETER IA64_REG$_AR_FCR = '00000C15'X+ PARAMETER IA64_REG$_AR_EFLAG }= '00000C18'X) PARAMETER IA64_REG$_AR_CSD = '00000C19'X) PARAMETER IA64_REG$_AR_SSD = '00000C1A'X+ PARAMETER IA64_REG$_AR_CFLAG = '00000C1B'X) PARAMETER IA64_REG$_AR_FSR = '00000C1C'X) PARAMETER IA64_REG$_AR_FIR = '00000C1D'X) PARAMETER IA64_REG$_AR_FDR = '00000C1E'X) PARAMETER IA64_REG$_AR_CCV = '00000C20'X* PARAMETER IA64_REG$_AR_UNAT = '00000C24'X* PARAMETER IA64_REG$_AR_FPSR = '00000C28'X) PARAMETER IA64_REG$_AR_ITC = '00000C2C'X) PARAMETER IA64_REG$_AR_PFS = '00000C40'X( PAR ~AMETER IA64_REG$_AR_LC = '00000C41'X( PARAMETER IA64_REG$_AR_EC = '00000C42'X ! Control Registers) PARAMETER IA64_REG$_CR_DCR = '00001000'X) PARAMETER IA64_REG$_CR_ITM = '00001001'X) PARAMETER IA64_REG$_CR_IVA = '00001002'X) PARAMETER IA64_REG$_CR_PTA = '00001008'X* PARAMETER IA64_REG$_CR_IPSR = '00001010'X) PARAMETER IA64_REG$_CR_ISR = '00001011'X) PARAMETER IA64_REG$_CR_IIP = '00001013'X) PARAMETER IA64_REG$_CR_IFA = '00001014'X* PARAMETER IA64_REG$_CR_ITIR = '00001015'X* PARAM ETER IA64_REG$_CR_IIPA = '00001016'X) PARAMETER IA64_REG$_CR_IFS = '00001017'X) PARAMETER IA64_REG$_CR_IIM = '00001018'X) PARAMETER IA64_REG$_CR_IHA = '00001019'X) PARAMETER IA64_REG$_CR_LID = '00001040'X9 PARAMETER IA64_REG$_CR_IVR = '00001041'X ! getReg only) PARAMETER IA64_REG$_CR_TPR = '00001042'X) PARAMETER IA64_REG$_CR_EOI = '00001043'X: PARAMETER IA64_REG$_CR_IRR0 = '00001044'X ! getReg only: PARAMETER IA64_REG$_CR_IRR1 = '00001045'X ! getReg only: PARAMETER IA64_REG$_CR_ IRR2 = '00001046'X ! getReg only: PARAMETER IA64_REG$_CR_IRR3 = '00001047'X ! getReg only) PARAMETER IA64_REG$_CR_ITV = '00001048'X) PARAMETER IA64_REG$_CR_PMV = '00001049'X* PARAMETER IA64_REG$_CR_CMCV = '0000104A'X* PARAMETER IA64_REG$_CR_LRR0 = '00001050'X* PARAMETER IA64_REG$_CR_LRR1 = '00001051'X6 ! Indirect Registers for getIndReg() and setIndReg()@ PARAMETER IA64_REG$_INDR_CPUID = '00002328'X ! getIndReg only+ PARAMETER IA64_REG$_INDR_DBR = '00002329'X+ PARAMETER IA64_REG$_INDR_IBR = '0000232A'X+ PARAMETER IA64_REG$_INDR_PKR = '0000232B'X+ PARAMETER IA64_REG$_INDR_PMC = '0000232C'X+ PARAMETER IA64_REG$_INDR_PMD = '0000232D'X* PARAMETER IA64_REG$_INDR_RR = '0000232E'X!DEC$ END OPTIONS ww@Φ!*** MODULE $IACDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +" ! IMAGE ACTIVATION CONTROL FLAGS ! -$ PARAMETER IAC$M_NOACT = '00000001'X' PARAMETER IAC$M_WRITABLE = '00000002'X( PARAMETER IAC$M_SHAREABLE = '00000004'X( PARAMETER IAC$M_PRIVILEGE = '00000008'X$ PARAMETER IAC$M_MERGE = '00000010'X% PARAMETER IAC$M_EXPREG = '00000020'X& PARAMETER IAC$M_P1MERGE = '00000040'X' PARAMETER IAC$M_PARANOID = '00000080'X& PARAMETER IAC$M_LASTCLU = '00000100'X" PARAMETER IAC$M_LIM = '00000200'X$ PARAMETER IAC$M_RETRY = '00000400'X' PARAMETER IAC$M_NOCMKRNL = '00000800'X( PARAMETER IAC$M_SEQDEVLOD = '00001000'X& PARAMETER IAC$M_XLINKER = '00002000'X( PARAMETER IAC$M_KP_RESHDR = '00004000'X( PARAMETER IAC$M_IS_ RESHDR = '00008000'X( PARAMETER IAC$M_NOTSHARED = '00010000'X( PARAMETER IAC$M_GBLCLUSTR = '00020000'X' PARAMETER IAC$M_SHMIDENT = '00040000'X% PARAMETER IAC$M_NOCOPY = '00080000'X( PARAMETER IAC$M_P1MERG_P0 = '00100000'X( PARAMETER IAC$M_SETVECTOR = '00200000'X( PARAMETER IAC$M_PROTECTED = '00400000'X' PARAMETER IAC$M_P1DIRECT = '00800000'X$ PARAMETER IAC$M_DEBUG = '01000000'X( PARAMETER IAC$M_PERMANENT = '02000000'X& PARAMETER IAC$M_NOTRANS = '04000000'X/ PARAMETER IAC$M_NO_SHARE_LINK AGE = '08000000'X+ PARAMETER IAC$M_PAGE_PROTECT = '10000000'XJ PARAMETER IAC$C_LARGEST = '00000006'X ! LARGEST FLAG CALLER MAY SPECIFY  STRUCTURE /IACDEF/ UNION MAP" PARAMETER IAC$S_NOACT = 1O PARAMETER IAC$V_NOACT = 0 ! DO NOT ACTIVATE THE IMAGE (FOR INSTALL) % PARAMETER IAC$S_WRITABLE = 1C PARAMETER IAC$V_WRITABLE = 1 ! MAKE IMAGE FILE WRITABLE & PARAMETER IAC$S_SHAREABLE = 1S PARAMETER IAC$V_SHAREABLE = 2 ! ACT. SHAREABL E IMAGE FOR EXECUTABLE IMG & PARAMETER IAC$S_PRIVILEGE = 1S PARAMETER IAC$V_PRIVILEGE = 3 ! ACT. SHARE. IMG FOR PRIV EXECUTABLE IMG " PARAMETER IAC$S_MERGE = 1M PARAMETER IAC$V_MERGE = 4 ! ACT 2ND EXECUTABLE IMG INTO ADR SPACE # PARAMETER IAC$S_EXPREG = 1J PARAMETER IAC$V_EXPREG = 5 ! MAP IMAGE INTO NEXT FREE VA SPACE $ PARAMETER IAC$S_P1MERGE = 1Q PARAMETER IAC$V_P1MERGE = 6 ! P1 MERGED ACTIVATION (LEGAL INPUT FLAG) % PARAMETER IAC$S_PARANOID = 1? PARAMETER IAC$V_PARANOID = 7 ! GO INTO PARANOIA MODE$ PARAMETER IAC$S_LASTCLU = 1; PARAMETER IAC$V_LASTCLU = 8 ! LAST CLUSTER FLAG PARAMETER IAC$S_LIM = 15 PARAMETER IAC$V_LIM = 9 ! LINKABLE IMAGE " PARAMETER IAC$S_RETRY = 1? PARAMETER IAC$V_RETRY = 10 ! RETRY IMAGE ACTIVATION % PARAMETER IAC$S_NOCMKRNL = 1N PARAMETER IAC$V_NOCMKRNL = 11 ! SHUT OFF CMKRNL,CMEXEC- SYSVER DIFF & PARAMETER IAC$S_SEQDEVLOD = 1Q PARAMETER IAC$V_SEQDEVLOD = 12 ! LOADING FROM SEQUENTIAL DEVICE (NET) $ PARAMETER IAC$S_XLINKER = 1> PARAMETER IAC$V_XLINKER = 13 ! CROSS LINKER FORMAT & PARAMETER IAC$S_KP_RESHDR = 1G PARAMETER IAC$V_KP_RESHDR = 14 ! MAKE IMAGE HEADER RESIDENT & PARAMETER IAC$S_IS_RESHDR = 1E PARAMETER IAC$V_IS_RESHDR = 15 ! IMAGE HEADER IS RESIDENT & PARAMETER IAC$S_NOTSHARED = 1N  PARAMETER IAC$V_NOTSHARED = 16 ! DO NOT SET IS_SHARED IN KFI ENTRY & PARAMETER IAC$S_GBLCLUSTR = 1Q PARAMETER IAC$V_GBLCLUSTR = 17 ! CURRENTLY PROCESSING GBL ISD CLUSTER % PARAMETER IAC$S_SHMIDENT = 1P PARAMETER IAC$V_SHMIDENT = 18 ! SHARED MEMORY IDENT USED FOR GBL SEC # PARAMETER IAC$S_NOCOPY = 1P PARAMETER IAC$V_NOCOPY = 19 ! NO PRIVATE COPY OF SECTION IN EXEC IMG & PARAMETER IAC$S_P1MERG_P0 = 1Q PARAMETER I AC$V_P1MERG_P0 = 20 ! P1 MERGED ACTIVATION WITH P0 ADDRESS  ! RANGE (INTERNAL FLAG ONLY)& PARAMETER IAC$S_SETVECTOR = 1R PARAMETER IAC$V_SETVECTOR = 21 ! SIGNAL ATLERNATE ENTRY TO SET VECTORS & PARAMETER IAC$S_PROTECTED = 1L PARAMETER IAC$V_PROTECTED = 22 ! REQUIRE SHAREABLES BE /PROTECTED% PARAMETER IAC$S_P1DIRECT = 1: PARAMETER IAC$V_P1DIRECT = 23 ! DIRECT P1 MERGE" PARAMETER IAC$S_DEBUG = 1G PARAMETER IAC$V_DEBUG =  24 ! DEBUG SPECIFIED WITH ACTIVATION& PARAMETER IAC$S_PERMANENT = 1C PARAMETER IAC$V_PERMANENT = 25 ! MAKE P1 IMAGE PERMANENT$ PARAMETER IAC$S_NOTRANS = 1N PARAMETER IAC$V_NOTRANS = 26 ! DO LOOKUP ON UNTRANSLATED IMAGE NAME- PARAMETER IAC$S_NO_SHARE_LINKAGE = 1Q PARAMETER IAC$V_NO_SHARE_LINKAGE = 27 ! Activate without shared linkage) PARAMETER IAC$S_PAGE_PROTECT = 1U PARAMETER IAC$V_PAGE_PROTECT = 28 ! Protect image pages according to acmode BYTE %FILL (4) END MAP END UNION END STRUCTURE ! IACDEF!DEC$ END OPTIONS wwgDAΦ!!*** MODULE $ICCDEF IDENT X-4 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 6 ! ICC IOSB data structure for data transfer routines ! K ! Past the 1st longword, the IOC_ICC fields vary depending on the type ofK ! request/operation. The diagram attempts to picture those relationshipsK ! below. Longwords 2-5 are done i n columns, each column representing the> ! value of that longword for that type of request/operation. !  ! +4 +2 +0@ ! +---------------------------------------------------------+D ! L1: | Undefined | Return status code |@ ! |---------------------------------------------------------|@ ! |---------------------------------------------------------| ! | | | | |@ ! | RECEIVE | REPLY | TRANSCEIVE | CONNECT | ! | | | | |D ! L2: | rcv_len | replyto_handle| txrcv_len | RemStat |D ! |---------------|---------------|---------------|---------|D ! L3: | req_handle | Unused | | Unused |D ! |---------------|---------------| reply_buffer | |D ! L4: | reply_len | Unused | | |D ! |---------------|---------------|---------------| |D ! L5: | Unused | Unused | txreply_len  | |D ! |---------------+---------------+---------------+---------| !  STRUCTURE /IOS_ICC/2 INTEGER*2 IOS_ICC$w_status ! return status/ INTEGER*2 IOS_ICC$w_reserved ! reserved UNION MAPF INTEGER*4 IOS_ICC$l_remstat ! remote status (returned)! INTEGER*4 %FILL(1:3) END MAP MAPF INTEGER*4 IOS_ICC$l_rcv_len ! return len (returned)K INTEGER*4 IOS_ICC$l_req_handle ! reque st handle (returned)J INTEGER*4 IOS_ICC$l_reply_len ! reply len (returned) INTEGER*4 %FILL END MAP MAPK INTEGER*4 IOS_ICC$l_replyto_handle ! request_handle (input)! INTEGER*4 %FILL(1:3) END MAP MAPL INTEGER*4 IOS_ICC$l_txrcv_len ! return length (returned)K INTEGER*8 IOS_ICC$A_reply_buffer ! 64-bit bfr addr (Alpha)H INTEGER*4 IOS_ICC$l_txreply_len ! reply len (input) END MAP END UNION END STRUCTURE ! IOS_ICC* PARAMETER ICC$C_receive_len = '00000010'X( PARAMETER ICC$C_reply_len = '00000008'X- PARAMETER ICC$C_transceive_len = '00000014'X !  ! Length constants ! , PARAMETER ICC$C_MAX_ASSOC_LEN = '0000001F'X0 PARAMETER ICC$C_MAX_CONN_DATA_LEN = '000003E8'X ! A ! Connection flag bit definitions (for connect/accept services) ! ) PARAMETER ICC$M_Synch_Mode = '00000001'X! STRUCTURE /ICC_CONNECTION_FLAGS/# PARAMETER ICC$S_Synch_Mode = 1J PARAMETER ICC$V_Synch_Mode = 0 ! Set (1) if data transfer routines% ! are allowed to return SS$_SYNCH ! to the user. BYTE %FILL (1)% END STRUCTURE ! ICC_CONNECTION_FLAGS ! I ! ICC event codes (first parameter) for the connect/disconnect routines ! ) PARAMETER ICC$C_EV_CONNECT = '00000000'X, PARAMETER ICC$C_EV_DISCONNECT = '00000001'X( PARAMETER ICC$C_min_event = '00000000'X( PARAMETER ICC$C_max_event = '00000001'X ! " ! Default ICC association handle ! 0 PARAMETER ICC$C_DFLT_ASSOC_HANDLE = '00000001'X !  ! Default flow control value ! M PARAMETER ICC$C_DEFAULT_MAXFLOWBUFCNT = '00000005'X ! Pending inbound msgs!DEC$ END OPTIONS wwWΦ!*** MODULE $IDCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! / ! IDC - Random entity ident consistency check ! " PARAMETER IDC$C_LEQ = '00000000'X$ PARAMETER IDC$C_EQUAL = '00000001'X STRUCTURE /IDCD EF/, BYTE IDC$B_GSDTYP ! Type field UNION MAP* INTEGER*2 IDC$W_FLAGS ! Flags  END MAP MAP) PARAMETER IDC$S_BINIDENT = 1Y PARAMETER IDC$V_BINIDENT = 0 ! Ident is binary longword rather than ASCIC ( PARAMETER IDC$S_IDMATCH = 2[ PARAMETER IDC$V_IDMATCH = 1 ! Field for ident match control if binary ident ' PARAMETER IDC$S_ERRSEV = 3R PARAMETER IDC$V_ERRSEV = 3 ! Error severity (default is warning-0)  BYTE %FILL (1) END MAP ! Match control values  END UNION UNION MAP; BYTE IDC$B_NAMLNG ! Length of entity name  END MAP MAP BYTE %FILL; ! unsupported type CHARACTER*0 IDC$T_NAME !  ! Followed by entity name ! Followed by ! byte of ident length8 ! ident string (length = string length) !  or2 ! ident binary value (length = 4)0 ! Followed by byte of length of name of object ! Followed by the object name END MAP END UNION END STRUCTURE ! IDCDEF!DEC$ END OPTIONS wwAΦ!*** MODULE $IEEEDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN. PARAMETER IEEE$K_VERSION_NUMBER = '00000002'X ! , ! IEEE Floating Point control definitions. !  ! ^ ! The following values are used to set the precision  control and rounding control fields via[ ! SYS$IEEE_SET_PRECISION_MODE and SYS$IEEE_SET_ROUNDING_MODE. (Note that one can not set ! precision mode on Alpha). ! K PARAMETER IEEE$C_PM_NO_CHANGE = -1 ! No change. Just get previous value> PARAMETER IEEE$C_PM_SINGLE = '00000000'X ! Single PrecisionG PARAMETER IEEE$C_PM_UNUSED = '00000001'X ! This value has no meaning> PARAMETER IEEE$C_PM_DOUBLE = '00000002'X ! Double PrecisionP PARAMETER IEEE$C_PM_DOUBLE_EXTENDED = '00000003'X ! Double-Extended Precision> PARAMETER IEEE$C_PM_MAX = '00000003'X ! Maximum legal valueK PARAMETER IEEE$C_RM_NO_CHANGE = -1 ! No change. Just get previous value@ PARAMETER IEEE$C_RM_NEAREST = '00000000'X ! Nearest (or even)< PARAMETER IEEE$C_RM_DOWN = '00000001'X ! -Infinity (down)8 PARAMETER IEEE$C_RM_UP = '00000002'X ! +Infinity (up)D PARAMETER IEEE$C_RM_TRUNCATE = '00000003'X ! Zero (truncate/chop)> PARAMETER IEEE$C_RM_MAX = '00000003'X ! Maximum legal value ! P ! The following structure defines bits for the (software) IEEE Floating Point S ! control register on Alpha, and for the values passed to SYS$IEEE_SET_FP_CONTROL> ! on all architectures (except VAX where it does not exist). ! / PARAMETER IEEE$M_TRAP_ENABLE_INV = '00000002'X/ PARAMETER IEEE$M_TRAP_ENABLE_DZE = '00000004'X/ PARAMETER IEEE$M_TRAP_ENABLE_OVF = '00000008'X/ PARAMETER IEEE$M_TRAP_ENABLE_UNF = '00000010'X/ PARAMETER IEEE$M_TRAP_ENABLE_INE = '00000020'X0 PARAMETER IEEE$M_TRAP_ENA BLE_DNOE = '00000040'X' PARAMETER IEEE$M_MAP_DNZ = '00002000'X' PARAMETER IEEE$M_MAP_UMZ = '00004000'X' PARAMETER IEEE$M_INHERIT = '00008000'X* PARAMETER IEEE$M_STATUS_INV = '00020000'X* PARAMETER IEEE$M_STATUS_DZE = '00040000'X* PARAMETER IEEE$M_STATUS_OVF = '00080000'X* PARAMETER IEEE$M_STATUS_UNF = '00100000'X* PARAMETER IEEE$M_STATUS_INE = '00200000'X* PARAMETER IEEE$M_STATUS_DNO = '00400000'X" PARAMETER IEEE$M_PC = '01800000'X" PARAMETER IEEE$M_RC = '06000000'X$ PARAMETER IEEE$M_WPFP = '08000000'X STRUCTURE /IEEE/ UNION MAP6 INTEGER*4 IEEE$Q_FLAGS(2) ! Internal flags END MAP MAP ! Trap enable flags1 PARAMETER IEEE$S_TRAP_ENABLE_INV = 1G PARAMETER IEEE$V_TRAP_ENABLE_INV = 1 ! invalid operation1 PARAMETER IEEE$S_TRAP_ENABLE_DZE = 1D PARAMETER IEEE$V_TRAP_ENABLE_DZE = 2 ! divide by zero1 PARAMETER IEEE$S_TRAP_ENABLE_OVF = 1> PARAMETER IEEE$V_ TRAP_ENABLE_OVF = 3 ! overflow1 PARAMETER IEEE$S_TRAP_ENABLE_UNF = 1? PARAMETER IEEE$V_TRAP_ENABLE_UNF = 4 ! underflow1 PARAMETER IEEE$S_TRAP_ENABLE_INE = 1= PARAMETER IEEE$V_TRAP_ENABLE_INE = 5 ! inexact2 PARAMETER IEEE$S_TRAP_ENABLE_DNOE = 1X PARAMETER IEEE$V_TRAP_ENABLE_DNOE = 6 ! denormal operand exception enable) PARAMETER IEEE$S_MAP_DNZ = 1O PARAMETER IEEE$V_MAP_DNZ = 13 ! deno rmal operands mapped to 0.0) PARAMETER IEEE$S_MAP_UMZ = 1I PARAMETER IEEE$V_MAP_UMZ = 14 ! underflows mapped to 0.0 ) PARAMETER IEEE$S_INHERIT = 1Q PARAMETER IEEE$V_INHERIT = 15 ! inherit FP state on thread create, PARAMETER IEEE$S_STATUS_INV = 1C PARAMETER IEEE$V_STATUS_INV = 17 ! invalid operation, PARAMETER IEEE$S_STATUS_DZE = 1@ PARAMETER IEEE$V_STATUS_DZE = 18 ! divide by zero,  PARAMETER IEEE$S_STATUS_OVF = 1: PARAMETER IEEE$V_STATUS_OVF = 19 ! overflow, PARAMETER IEEE$S_STATUS_UNF = 1; PARAMETER IEEE$V_STATUS_UNF = 20 ! underflow, PARAMETER IEEE$S_STATUS_INE = 19 PARAMETER IEEE$V_STATUS_INE = 21 ! inexact, PARAMETER IEEE$S_STATUS_DNO = 1B PARAMETER IEEE$V_STATUS_DNO = 22 ! denormal operandH ! Precision, rounding, and WPFP are not currently supported on Alpha.$ PARAMETER IEEE$S_PC = 2< PARAMETER IEEE$V_PC = 23 ! Precision control$ PARAMETER IEEE$S_RC = 2; PARAMETER IEEE$V_RC = 25 ! Rounding control& PARAMETER IEEE$S_WPFP = 1N PARAMETER IEEE$V_WPFP = 27 ! Whole program floating point mode BYTE %FILL (3) END MAP END UNION END STRUCTURE ! IEEE!DEC$ END OPTIONS wwAΦ!*** MODULE $ILEDEF ***:!DEC$ OPTIONS/ALIGN=(RECOR DS=PACKED,COMMONS=PACKED)/NOWARN ! +1 ! Define the 32-bit Item List Entry 3 structure ! - STRUCTURE /ILE3/< INTEGER*2 ILE3$W_LENGTH ! Length of buffer in bytes0 INTEGER*2 ILE3$W_CODE ! Item code value2 INTEGER*4 ILE3$PS_BUFADDR ! Buffer addressK INTEGER*4 ILE3$PS_RETLEN_ADDR ! Address of word for returned length END STRUCTURE ! ILE39 PARAMETER ILE3$K_LENGTH = '0000000C'X ! Length of ILE39 PARAMETER ILE3$C_LENGTH = '0000000C'X ! Length of ILE3 !  +F ! Define the 64-Bit Item List Entry B structure. This is the 64-bit4 ! counterpart of the 32-bit item list 3 structure. ! - STRUCTURE /ILEB_64/4 INTEGER*2 ILEB_64$W_MBO ! Must be One field2 INTEGER*2 ILEB_64$W_CODE ! Item code value: INTEGER*4 ILEB_64$L_MBMO ! Must be Minus One fieldA INTEGER*4 ILEB_64$Q_LENGTH(2) ! Length of buffer in bytes5 INTEGER*8 ILEB_64$PQ_BUFADDR ! Buffer addressQ INTEGER*8 ILEB_64$PQ_RETLEN_ADDR ! Address of quadw ord for returned length END STRUCTURE ! ILEB_64< PARAMETER ILEB_64$K_LENGTH = '00000020'X ! Length of ILEB< PARAMETER ILEB_64$C_LENGTH = '00000020'X ! Length of ILEB ! +1 ! Define the 32-bit Item List Entry 2 structure ! - STRUCTURE /ILE2/< INTEGER*2 ILE2$W_LENGTH ! Length of buffer in bytes0 INTEGER*2 ILE2$W_CODE ! Item code value2 INTEGER*4 ILE2$PS_BUFADDR ! Buffer address END STRUCTURE ! ILE29 PARAMETER ILE2$K_LENGTH = '00000008'X ! Length of ILE2 9 PARAMETER ILE2$C_LENGTH = '00000008'X ! Length of ILE2 ! +F ! Define the 64-Bit Item List Entry 2 structure. This is the 64-bit4 ! counterpart of the 32-bit item list 2 structure. ! - STRUCTURE /ILEA_64/4 INTEGER*2 ILEA_64$W_MBO ! Must be One field2 INTEGER*2 ILEA_64$W_CODE ! Item code value: INTEGER*4 ILEA_64$L_MBMO ! Must be Minus One fieldA INTEGER*4 ILEA_64$Q_LENGTH(2) ! Length of buffer in bytes5 INTEGER*8 ILEA_64$PQ_BUFADDR ! Buffer address END STRUCTURE ! ILEA_64< PARAMETER ILEA_64$K_LENGTH = '00000018'X ! Length of ILEA< PARAMETER ILEA_64$C_LENGTH = '00000018'X ! Length of ILEA!DEC$ END OPTIONS wwE)BΦ!*** MODULE $INDICTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! ! ! Object Indictment Definitions ! H ! This file is in [STARLET] to allow other outside developers call theI ! sys$indict_object call properly. Today the only group who calls that ! object  is Compaq Analyze. !  ! **** NOTE **** ! F ! New items must always be added to the END of each item list1 ! so that users will not have to relink. !  ! -H PARAMETER INDICT$_VERSION = '00000001'X ! Request information versionC PARAMETER INDICT$_OBJTYPE = '00000002'X ! Indictment Object typeO PARAMETER INDICT$_HANDLE = '00000003'X ! Indicted object or failing PFN PageE PARAMETER INDICT$_COMPONENT_ID = '00000004'X ! Component Handle IDI PARAMETER INDICT$_COMPONENT_TYPE = '00000005'X ! Component Handle TypeO PARAMETER INDICT$_COMPONENT_SUBTYPE = '00000006'X ! Component Handle Subtype? PARAMETER INDICT$_MODULE_ID = '00000007'X ! Module Handle IdC PARAMETER INDICT$_MODULE_TYPE = '00000008'X ! Module Handle TypeI PARAMETER INDICT$_MODULE_SUBTYPE = '00000009'X ! Module Handle SubtypeN PARAMETER INDICT$_URGENCY = '0000000A'X ! Urgency of the indictment requestM PARAMETER INDICT$_PROBABILITY = '0000000B'X ! Probability of correct fa ultQ PARAMETER INDICT$_TOTALINDICTMENTS = '0000000C'X ! Total number to be indictedT PARAMETER INDICT$_DESCRIPTION = '0000000D'X ! Readable description of the problemL PARAMETER INDICT$_REPORTHANDLE = '0000000E'X ! report_handle program nameT PARAMETER INDICT$_INITIATOR = '0000000F'X ! Who called us (e.g. Compaq Analyze). !DEC$ END OPTIONS wwuBΦ!*** MODULE $INITDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ' ! Values for INIT$_DENSI TY item code. ! @ PARAMETER INIT$K_DENSITY_800_BPI = '00000001'X ! 800 bpi tapeB PARAMETER INIT$K_DENSITY_1600_BPI = '00000002'X ! 1600 bpi tapeB PARAMETER INIT$K_DENSITY_6250_BPI = '00000003'X ! 6250 bpi tapeK PARAMETER INIT$K_DENSITY_SINGLE_DISK = '00000004'X ! Single-density RX02S PARAMETER INIT$K_DENSITY_DOUBLE_DISK = '00000005'X ! RX33 or double-density RX02` PARAMETER INIT$K_DENSITY_DD_DISK = '00000006'X ! "Double density" (lower than "High Density")I PARAMETER INIT$K_DE NSITY_HD_DISK = '00000007'X ! High density disketteQ PARAMETER INIT$K_DENSITY_COMPACT = '00000008'X ! TA90 with data compaction on H PARAMETER INIT$K_DENSITY_ED_DISK = '00000009'X ! New density for RX26 ! * ! Values for INIT$_HOMEBLOCKS item code. ! J PARAMETER INIT$K_HOMEBLOCKS_GEOMETRY = '00000001'X ! geometry dependentC PARAMETER INIT$K_HOMEBLOCKS_FIXED = '00000002'X ! fixed positionD PARAMETER INIT$K_HOMEBLOCKS_CONTIGUOUS = '00000003'X ! contiguous ! ( ! Item codes  for $INIT_VOL parameters. !  STRUCTURE /BADBLOCKS_LBN_DEF/; INTEGER*4 INIT$L_BADBLOCKS_LBN ! LBN of first blockJ INTEGER*4 INIT$L_BADBLOCKS_LBN_COUNT ! Count of blocks to be marked" END STRUCTURE ! BADBLOCKS_LBN_DEF STRUCTURE /BADBLOCKS_SEC_DEF/@ INTEGER*4 INIT$L_BADBLOCKS_SECTOR ! Sector of first blockJ INTEGER*4 INIT$L_BADBLOCKS_SEC_COUNT ! Count of blocks to be marked> INTEGER*4 INIT$L_BADBLOCKS_TRACK ! Track of first blockD INTEGER*4 INIT$L_BADBLOCKS_CYLINDER ! Cylinder of first block" END STRUCTURE ! BADBLOCKS_SEC_DEF ! Define codes as constantsQ PARAMETER INIT$_ACCESSED = '00000001'X ! Number of directories in system spaceX PARAMETER INIT$_BADBLOCKS_LBN = '00000002'X ! Bad block areas by logical block number[ PARAMETER INIT$_BADBLOCKS_SEC = '00000003'X ! Bad block areas by sector, track, cylinderF PARAMETER INIT$_CLUSTERSIZE = '00000004'X ! Minimum allocation unitF PARAMETER INIT$_COMPACTION = '00000005'X ! Data compaction for TA90C PARAMETER INIT$_NO_COMPACTION = '00000006'X ! No data compaction1 PARAMETER INIT$_DENSITY = '00000007'X ! FormatS PARAMETER INIT$_DIRECTORIES = '00000008'X ! Preallocated entries for directories? PARAMETER INIT$_ERASE = '00000009'X ! Destroy data on volumeI PARAMETER INIT$_NO_ERASE = '0000000A'X ! Do not destroy data on volumeM PARAMETER INIT$_EXTENSION = '0000000B'X ! Default extension size for filesE PARAMETER INIT$_FPROT = '0000000C'X ! Default protection for filesP PARAMETER INIT$_HEADERS = '0000000D'X ! Number of file headers for index fileR PARAMETER INIT$_HIGHWATER = '0000000E'X ! Set the file highwater mark attribute\ PARAMETER INIT$_NO_HIGHWATER = '0000000F'X ! Do not set the file highwater mark attributeZ PARAMETER INIT$_INDEX_BEGINNING = '00000010'X ! Place index file at beginning of volumeA PARAMETER INIT$_INDEX_BLOCK = '00000011'X ! LBN for index fileN PARAMETER INIT$_INDEX_END = '00000012'X ! Place index file at end of volumeT PARAMETER INIT$_INDEX_MIDDLE = '00000013'X ! Place index file at middle of volumeT PARAMETER INIT$_INTERCHANGE = '00000014'X ! Do not write VMS-specific informationP PARAMETER INIT$_NO_INTERCHANGE = '00000015'X ! Write VMS-specific informationV PARAMETER INIT$_LABEL_ACCESS = '00000016'X ! Character for ANSI accessability fieldJ PARAMETER INIT$_LABEL_VOLO = '00000017'X ! Text for ANSI owner ID fieldM PARAMETER INIT$_MAXFILES = '00000018'X ! Maximum number of files on volumeO PARAMETER INIT$_OVR_ACCESS = '00000019'X ! Override ANSI accessability fieldY PARAMETER INIT$_NO_OVR_ACCESS = '0000001A'X ! Do not override ANSI accessability fieldC PARAMETER INIT$_OVR_EXP = '0000001B'X ! Override expiration dateM PARAMETER INIT$_NO_OVR_EXP = '0000001C'X ! Do not override expiration dateH PARAMETER INIT$_OVR_VOLO = '0000001D'X ! Override ANSI owner ID fieldR PARAMETER INIT$_NO_OVR_VOLO = '0000001E'X ! Do not override ANSI owner ID field7 PARAMETER INIT$_OWNER = '0000001F'X ! UIC for volumeF PARAMETER INIT$_READCHECK = '00000020'X ! Check all read operationsP PARAMETER INIT$_NO_READCHECK = '00000021'X ! Do not check all read operations8 PARAMETER INIT$_SIZE = '00000022'X ! Size of RAM diskO PARAMETER INIT$_STRUCTURE_LEVEL_1 = '00000023'X ! Format in Files-11 level 1O PARAMETER INIT$_STRUCTURE_LEVEL_2 = '00000024'X ! Format in Files-11 level 2_ PARAMETER INIT$_STRUCTURE_LEVEL_2_SUB_0 = '00000025'X ! Format in subset of Files-11 level 2A PARAMETER INIT$_USER_NAME = '00000026'X ! User name for volumeH PARAMETER INIT$_VERIFIED = '00000027'X ! Use bad block data on volumeN PARAMETER INIT$_NO_VERIFIED = '00000028'X ! Ignore bad block data on volume: PARAMETER INIT$_VPROT = '00000029'X ! Volume protectionU PARAMETER INIT$_WINDOW = '0000002A'X ! Number of mapping pointers for file windowsH PARAMETER INIT$_WRITECHECK = '0000002B'X ! Check all write operationsR PARAMETER INIT$_NO_WRITECHECK = '0000002C'X ! Do not check all write operationsK PARAMETER INIT$_MIN_CLASS = '0000002D'X ! Minimum security classficationK PARAMETER INIT$_MAX_CLASS = '0000002E'X ! Maximum security classficationS PARAMETER INIT$_NO_PROTECTION = '0000002F'X ! No default security classificationQ PARAMETER INIT$_HOMEBLOCKS = '00000030'X ! Homeblock placement strategy to useO PARAMETER INIT$_STRUCTURE_LEVEL_5 = '00000031'X ! Format in Files-11 level 5J PARAMETER INIT$_SHADOW = '00000032'X ! Format disks with Shadowing SCBs[ PARAMETER INIT$_HARDLINKS = '00000033'X ! Use a linkcount in creating files (ODS-5 only)\ PARAMETER INIT$_ACCESS_DATES = '00000034'X ! Use access dates for attributes (ODS-5 only)$ PARAMETER INIT$_SPARE = '00000035'XK PARAMETER INIT$_VOLUME_LIMIT = '00000036'X ! Maximum logical volume sizeO PARAMETER INIT$_GPT = '00000037'X ! Create a GUID Partition Table Structure.> PARAMETER INIT$_NO_GPT = '00000038'X ! Do not create a GPT F PARAMETER INIT$_ERASE_ON_DELETE = '00000039'X ! Set HM2$V_ERASE bitF PARAMETER INIT$_ERASE_ON_INIT = '0000003A'X ! Perform DSE erase now_ PARAMETER INIT$_STRUCTURE_LEVEL_6 = '0000003B'X ! Format in Files-11 level 6 (CFS container)< PARAMETER INIT$_LOGSIZE = '0000003C'X ! CFS log file size^ PARAMETER INIT$_LAST_INIT_ITEM = '0000003D'X ! Note add all new INIT items before this one.C PARAMETER INIT$_MAX_ITEM_CODE = '0000003C'X ! Maximum item code.M PARAMETER INIT$S_USER_NAME = '0000000C'X ! Max size of user name on volumeH PARAMETER INIT$S_DEVICE_NAME = '00000040'X ! Max size of device namesP PARAMETER INIT$C_MIN_SECURITY_BLKCNT = '00000006'X ! Min size of SECURITY.SYSF PARAMETER INIT$C_MIN_GPT_BLKCNT = '00000022'X ! Min size of GPT.SYS!DEC$ END OPTIONS wwBΦ!*** MODULE $IODEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +! ! I/O FUNCTION CODE DEFINITIONS ! - ! - ! *** START PHYSICAL I/O FUNCTION CODES *** ! 2 PARAMETER IO$_NOP = '00000000'X ! NO OPERATION 4 PARAMETER IO$_UNLOAD = '00000001'X ! UNLOAD DRIVE 9 PARAMETER IO$_LOADMCODE = '00000001'X ! LOAD MICROCODE 8 PARAMETER IO$_START_BUS = '00000001'X ! START LAVC BUS3 PARAMETER IO$_SEEK = '00000002'X ! SEEK CYLINDER 6 PARAMETER IO$_SPACEFILE = '00000002'X ! SPACE FILES @ PARAMETER IO$_STARTMPROC = '00000002'X ! START MICROPROCESSOR 6 PARAMETER IO$_STOP_BUS = '00000002'X ! STOP LAVC BUS8 PARAMETER IO$_RECAL = '00000003'X ! RECALIBRATE DRIVE 8 PARAMETER IO$_DUPLEX = '00000003'X ! ENT ER DUPLEX MODE* PARAMETER IO$_STOP = '00000003'X ! STOP A PARAMETER IO$_DEF_COMP = '00000003'X ! DEFINE NETWORK COMPONENT3 PARAMETER IO$_DRVCLR = '00000004'X ! DRIVE CLEAR 6 PARAMETER IO$_INITIALIZE = '00000004'X ! INITIALIZE 6 PARAMETER IO$_MIMIC = '00000004'X ! ENTER MIMIC MODEK PARAMETER IO$_DEF_COMP_LIST = '00000004'X ! DEFINE NETWORK COMPONENT LIST= PARAMETER IO$_FLUSH_ERROR = '00000004'X ! FLUSH SCSI ERRORS5 PARAMETER IO$_RELEASE = '00000005'X ! RELEASE PORT ? PARAMETER IO$_SETCLOCKP = '00000005'X ! SET CLOCK (PHYSICAL) J PARAMETER IO$_START_ANALYSIS = '00000005'X ! START LAVC FAILURE ANALYSISC PARAMETER IO$_BIND = '00000005'X ! BIND UNITS INTO A STORAGE POOLB PARAMETER IO$_PATH_VERIFY = '00000005'X ! VERIFY PATH TO DEVICE 9 PARAMETER IO$_OFFSET = '00000006'X ! OFFSET READ HEADS 5 PARAMETER IO$_ERASETAPE = '00000006'X ! ERASE TAPE J PARAMETER IO$_STARTDATAP = '00000006'X ! START DATA TRANSFER (PHYSICAL) H PARAMETER IO$_STOP_ANALYSIS = '00000006'X ! ST OP LAVC FAILURE ANALYSISG PARAMETER IO$_UNBIND = '00000006'X ! REMOVE UNITS FROM A STORAGE POOL? PARAMETER IO$_RETCENTER = '00000007'X ! RETURN TO CENTERLINE 9 PARAMETER IO$_QSTOP = '00000007'X ! QUEUE STOP REQUEST I PARAMETER IO$_START_MONITOR = '00000007'X ! START LAVC CHANNEL MONITOR.G PARAMETER IO$_CREDISK = '00000007'X ! CREATE A DISK IN A STORAGE POOL: PARAMETER IO$_LOCAL_DRAIN = '00000007'X ! DRAIN LOCAL IO9 PARAMETER IO$_PACKACK = '00000008'X ! PACK ACKNOWLEDGE G PARAMETER IO$_STOP_MONITOR = '00000008'X ! STOP LAVC CHANNEL MONITOR.9 PARAMETER IO$_SEARCH = '00000009'X ! SEARCH FOR SECTOR : PARAMETER IO$_SPACERECORD = '00000009'X ! SPACE RECORDS H PARAMETER IO$_READRCT = '00000009'X ! READ REPLACEMENT & CACHING TABLEI PARAMETER IO$_REMDISK = '00000009'X ! REMOVE A DISK FROM A STORAGE POOL< PARAMETER IO$_WRITECHECK = '0000000A'X ! WRITE CHECK DATA H PARAMETER IO$_EXPORT = '0000000A'X ! EXPORT A DISK FROM A STORAGE POOL? PARAMETER IO$_WRITEPBLK = '0000000B 'X ! WRITE PHYSICAL BLOCK = PARAMETER IO$_READPBLK = '0000000C'X ! READ PHYSICAL BLOCK @ PARAMETER IO$_WRITEHEAD = '0000000D'X ! WRITE HEADER AND DATA 8 PARAMETER IO$_RDSTATS = '0000000D'X ! READ STATISTICS ; PARAMETER IO$_CRESHAD = '0000000D'X ! CREATE A SHADOW SET> PARAMETER IO$_READHEAD = '0000000E'X ! READ HEADER AND DATA @ PARAMETER IO$_ADDSHAD = '0000000E'X ! ADD MEMBER TO SHADOW SET= PARAMETER IO$_WRITETRACKD = '0000000F'X ! WRITE TRACK DATA K PARAMETER IO$_COPYSHAD = '0000000F'X ! PERFORM SHADOW SET COPY OPERATIONS; PARAMETER IO$_READTRACKD = '00000010'X ! READ TRACK DATA E PARAMETER IO$_REMSHAD = '00000010'X ! REMOVE MEMBER FROM SHADOW SETJ PARAMETER IO$_AVAILABLE = '00000011'X ! AVAILABLE (DISK AND TAPE CLASS) = PARAMETER IO$_SETPRFPATH = '00000012'X ! SET PREFERRED PATH< PARAMETER IO$_DISPLAY = '00000013'X ! DISPLAY VOLUME LABELH PARAMETER IO$_REMSHADMBR = '00000014'X ! REMOVE MEMBER FROM SHADOW SETF PARAMETER IO$_DSE = '00000015'X ! DATA SECURITY  ERASE (AND REWIND) 4 PARAMETER IO$_REREADN = '00000016'X ! REREAD NEXT = PARAMETER IO$_DISK_COPY_DATA = '00000016'X ! DISK_COPY_DATA= PARAMETER IO$_MOUNTSHAD = '00000017'X ! CREATE A SHADOW SET8 PARAMETER IO$_REREADP = '00000017'X ! REREAD PREVIOUS = PARAMETER IO$_WHM = '00000017'X ! WRITE HISTORY MANAGEMENTD PARAMETER IO$_AS_SETCHAR = '00000017'X ! ASIAN SET CHARACTERISTICS5 PARAMETER IO$_WRITERET = '00000018'X ! WRITE RETRY H PARAMETER IO$_WRITECHECKH = '00000018'X ! WRITE CHEC K HEADER AND DATA H PARAMETER IO$_AS_SENSECHAR = '00000018'X ! ASIAN SENSE CHARACTERISTICSC PARAMETER IO$_ADDSHADMBR = '00000019'X ! ADD MEMBER TO SHADOW SET9 PARAMETER IO$_READPRESET = '00000019'X ! READIN PRESET 9 PARAMETER IO$_STARTSPNDL = '00000019'X ! START SPINDLE < PARAMETER IO$_SETCHAR = '0000001A'X ! SET CHARACTERISTICS E PARAMETER IO$_SENSECHAR = '0000001B'X ! SENSE TAPE CHARACTERISTICS : PARAMETER IO$_WRITEMARK = '0000001C'X ! WRITE TAPE MARK 3 PARAMETER IO$_COPYMEM = '00 00001C'X ! COPY MEMORYD PARAMETER IO$_PSXSETCHAR = '0000001C'X ! POSIX SET CHARACTERISTICS> PARAMETER IO$_WRTTMKR = '0000001D'X ! WRITE TAPE MARK RETRY 2 PARAMETER IO$_DIAGNOSE = '0000001D'X ! DIAGNOSE G PARAMETER IO$_SHADMV = '0000001D'X ! PREFORM MOUNT VER. ON SHADOW SETH PARAMETER IO$_PSXSENSECHAR = '0000001D'X ! POSIX SENSE CHARACTERISTICS. PARAMETER IO$_FORMAT = '0000001E'X ! FORMAT 1 PARAMETER IO$_CLEAN = '0000001E'X ! CLEAN TAPE > PARAMETER IO$_UPSHAD = '0000001E'X ! UPDATE SHADOW SYSDEVICEL PARAMETER IO$_PHYSICAL = '0000001F'X ! HIGHEST PHYSICAL I/O FUNCTION CODE  ! , ! *** START LOGICAL I/O FUNCTION CODES *** ! > PARAMETER IO$_WRITELBLK = '00000020'X ! WRITE LOGICAL BLOCK < PARAMETER IO$_READLBLK = '00000021'X ! READ LOGICAL BLOCK A PARAMETER IO$_REWINDOFF = '00000022'X ! REWIND AND SET OFFLINE = PARAMETER IO$_READRCTL = '00000022'X ! READ RCT SECTOR ZERO1 PARAMETER IO$_SETMODE = '00000023'X ! SET MODE 3 PARAMETER IO$_REWIND = '00000024'X ! REW IND TAPE 4 PARAMETER IO$_SKIPFILE = '00000025'X ! SKIP FILES 9 PARAMETER IO$_PSXSETMODE = '00000025'X ! POSIX SET MODE8 PARAMETER IO$_SKIPRECORD = '00000026'X ! SKIP RECORDS = PARAMETER IO$_PSXSENSEMODE = '00000026'X ! POSIX SENSE MODE: PARAMETER IO$_SENSEMODE = '00000027'X ! SENSE TAPE MODE : PARAMETER IO$_WRITEOF = '00000028'X ! WRITE END OF FILE U PARAMETER IO$_TTY_PORT_BUFIO = '00000028'X ! BUFFERED I/O TERMINAL PORT FDT ROUTINEB PARAMETER IO$_TTY_PORT = '00000029'X ! TERMINAL PORT FDT ROUTINE< PARAMETER IO$_FREECAP = '00000029'X ! RETURN FREE CAPACITY< PARAMETER IO$_FLUSH = '0000002A'X ! FLUSH CONTROLLER CACHE9 PARAMETER IO$_AS_SETMODE = '0000002A'X ! ASIAN SET MODEC PARAMETER IO$_READLCHUNK = '0000002B'X ! READ LARGE LOGICAL BLOCK= PARAMETER IO$_AS_SENSEMODE = '0000002B'X ! ASIAN SENSE MODEE PARAMETER IO$_WRITELCHUNK = '0000002C'X ! WRITE LARGE LOGICAL BLOCKJ PARAMETER IO$_LOGICAL = '0000002F'X ! HIGHEST LOGICAL I/O FUNCTION CODE  ! ( ! *** START VI RTUAL I/O FUNCTION CODES ! ! NOTE: P ! Virtual IO operations to a non-file oriented device require that the processJ ! has READ access priviledges for that device. Specificly, EXE$QIO callsJ ! EXE$CHECK_DEVICE_ACCESS for the following virtual IO function codes to7 ! verify that the the process has read access rights:G ! READPBLK,READLBLK,READVBLK, READHEAD,READTRACKD,REREADN,REREADP,( ! READPROMPT,TTYREADALL,TTYREADPALL> PARAMETER IO$_WRITEVBLK = '00000030'X ! WRITE VIRTUA L BLOCK < PARAMETER IO$_READVBLK = '00000031'X ! READ VIRTUAL BLOCK 3 PARAMETER IO$_ACCESS = '00000032'X ! ACCESS FILE @ PARAMETER IO$_PSXWRITEVBLK = '00000032'X ! POSIX WRITE VIRTUAL3 PARAMETER IO$_CREATE = '00000033'X ! CREATE FILE 7 PARAMETER IO$_DEACCESS = '00000034'X ! DEACCESS FILE > PARAMETER IO$_PSXREADVBLK = '00000034'X ! POSIX READ VIRTUAL3 PARAMETER IO$_DELETE = '00000035'X ! DELETE FILE 3 PARAMETER IO$_MODIFY = '00000036'X ! MODIFY FILE H PARAMETER IO$_NETCONTROL = '0 0000036'X ! X25 NETWORK CONTROL FUNCTION E PARAMETER IO$_READPROMPT = '00000037'X ! READ TERMINAL WITH PROMPT 3 PARAMETER IO$_SETCLOCK = '00000037'X ! SET CLOCK 2 PARAMETER IO$_AUDIO = '00000037'X ! CD-ROM AUDIOE PARAMETER IO$_ACPCONTROL = '00000038'X ! MISCELLANEOUS ACP CONTROL 5 PARAMETER IO$_STARTDATA = '00000038'X ! START DATA C PARAMETER IO$_IOCTLV = '00000038'X ! GENERIC UNIX IOCTL FUNCTIONS4 PARAMETER IO$_MANAGE = '00000038'X ! MANAGE DEVICE3 PARAMETER IO$_MOUNT = '00000039 'X ! MOUNT VOLUME B PARAMETER IO$_TTYREADALL = '0000003A'X ! TERMINAL READ PASSALL 6 PARAMETER IO$_DISMOUNT = '0000003A'X ! F64 dismountH PARAMETER IO$_TTYREADPALL = '0000003B'X ! TERM READ W/PROMPT PASSALL > PARAMETER IO$_USBATTR = '0000003B'X ! USB device attributesJ PARAMETER IO$_CONINTREAD = '0000003C'X ! Connect to interrupt readonly M PARAMETER IO$_CONINTWRITE = '0000003D'X ! Connect to interrupt with write ? PARAMETER IO$_READDIR = '0000003E'X ! READ DIRECTORY CONTENTSE PARAMETER IO$_VIRTUAL = '0000003F'X ! HIGHEST VIRTUAL I/O FUNCTION  ! % ! FUNCTION MODIFIER BIT DEFINITIONS ! # PARAMETER IO$M_FCODE = '0000003F'X( PARAMETER IO$M_FMODIFIERS = '0000FFC0'X& PARAMETER IO$M_INHERLOG = '00000800'X# PARAMETER IO$M_ERASE = '00000400'X$ PARAMETER IO$M_EXFUNC = '00002000'X' PARAMETER IO$M_DATACHECK = '00004000'X& PARAMETER IO$M_INHRETRY = '00008000'X% PARAMETER IO$M_SYNCSTS = '00010000'X& PARAMETER IO$M_NOVCACHE = '00020000'X$ PARAMETER IO$M_BUFOBJ =  '00040000'X% PARAMETER IO$M_TRUSTED = '00080000'X( PARAMETER IO$M_FILE_FLUSH = '00100000'X% PARAMETER IO$M_BARRIER = '00200000'X& PARAMETER IO$M_RAH_HINT = '00400000'X% PARAMETER IO$M_INHSEEK = '00001000'X) PARAMETER IO$M_READ_TO_EOF = '00200000'X% PARAMETER IO$M_REVERSE = '00000040'X$ PARAMETER IO$M_NOWAIT = '00000080'X' PARAMETER IO$M_INHEXTGAP = '00001000'X' PARAMETER IO$M_RETENSION = '00002000'X' PARAMETER IO$M_ALLOWFAST = '00004000'X) PARAMETER IO$M_MT3_DENSITY = '00008000'X ( PARAMETER IO$M_MSCPMODIFS = '00000100'X$ PARAMETER IO$M_SHADOW = '00000040'X$ PARAMETER IO$M_LOCATE = '00000080'X) PARAMETER IO$M_MSCP_FORMAT = '00000040'X& PARAMETER IO$M_ALLHOSTS = '00000040'X& PARAMETER IO$M_DISSOLVE = '00000080'X' PARAMETER IO$M_NOCLEANUP = '00000100'X& PARAMETER IO$M_SPINDOWN = '00000040'X* PARAMETER IO$M_EST_COM_PATH = '00000040'X* PARAMETER IO$M_LCL_SRC_UNIT = '00000080'X* PARAMETER IO$M_RTN_COM_PATH = '00000100'X' PARAMETER IO$M_DEALC_ALL = '00000040'X' PARAM ETER IO$M_DEALC_HRN = '00000080'X* PARAMETER IO$M_DEALC_ENTLOC = '00000100'X& PARAMETER IO$M_DECR_AFC = '00000200'X& PARAMETER IO$M_READ_ALL = '00000400'X& PARAMETER IO$M_READ_HRN = '00000800'X( PARAMETER IO$M_BREAK_CONN = '00001000'X& PARAMETER IO$M_STEPOVER = '00000040'X$ PARAMETER IO$M_COPYOP = '00000100'X$ PARAMETER IO$M_EXISTS = '00000040'X! PARAMETER IO$M_CBS = '00000080'X% PARAMETER IO$M_BOOTING = '00000100'X* PARAMETER IO$M_REQ_MINICOPY = '00000200'X* PARAMETER IO$M_OPT_MINICOPY  = '00000400'X( PARAMETER IO$M_NOMINICOPY = '00000800'X/ PARAMETER IO$M_EXPECT_MOUNT_DONE = '00002000'X% PARAMETER IO$M_VUEX_FC = '00000200'X' PARAMETER IO$M_WRITE_SCB = '00000200'X( PARAMETER IO$M_UPD_SCBLBN = '00002000'X' PARAMETER IO$M_FORCEPATH = '00000040'X+ PARAMETER IO$M_PREFERRED_CPU = '00000080'X, PARAMETER IO$M_SYS_ASSIGNABLE = '00000100'X$ PARAMETER IO$M_COMMOD = '00000040'X( PARAMETER IO$M_MOVETRACKD = '00000080'X( PARAMETER IO$M_DIAGNOSTIC = '00000100'X' PARAMETER IO$M_SKPSECINH = '00000200'X% PARAMETER IO$M_DELDATA = '00000040'X$ PARAMETER IO$M_NOMRSP = '00000040'X" PARAMETER IO$M_SWAP = '00000100'X& PARAMETER IO$M_OPPOSITE = '00000200'X' PARAMETER IO$M_CLSEREXCP = '00000200'X' PARAMETER IO$M_CHUNKDIAG = '00000040'X! PARAMETER IO$M_TBC = '00000400'X$ PARAMETER IO$M_ENAREP = '00000040'X$ PARAMETER IO$M_ACCESS = '00000040'X$ PARAMETER IO$M_CREATE = '00000080'X$ PARAMETER IO$M_DELETE = '00000100'X# PARAMETER IO$M_MOUNT = '00000200'X$ PARAMETER IO$M_DMOUNT = '00000400'X% PARAMETER IO$M_REMOUNT = '00000800'X& PARAMETER IO$M_MOVEFILE = '00001000'X' PARAMETER IO$M_RWSHELVED = '00004000'X$ PARAMETER IO$M_SETDIR = '00008000'X$ PARAMETER IO$M_BINARY = '00000040'X$ PARAMETER IO$M_PACKED = '00000080'X! PARAMETER IO$M_NOW = '00000040'X$ PARAMETER IO$M_STREAM = '00000080'X) PARAMETER IO$M_READERCHECK = '00000100'X) PARAMETER IO$M_WRITERCHECK = '00000200'X& PARAMETER IO$M_NORSWAIT = '00000400'X, PARAMETER IO$M_MB_ROOM_NOTIFY = '00000040'X& P ARAMETER IO$M_READATTN = '00000080'X% PARAMETER IO$M_WRTATTN = '00000100'X% PARAMETER IO$M_SETPROT = '00000200'X( PARAMETER IO$M_READERWAIT = '00000400'X( PARAMETER IO$M_WRITERWAIT = '00000800'X$ PARAMETER IO$M_NOECHO = '00000040'X# PARAMETER IO$M_TIMED = '00000080'X$ PARAMETER IO$M_CVTLOW = '00000100'X% PARAMETER IO$M_NOFILTR = '00000200'X& PARAMETER IO$M_DSABLMBX = '00000400'X# PARAMETER IO$M_PURGE = '00000800'X' PARAMETER IO$M_TRMNOECHO = '00001000'X% PARAMETER IO$M_REFRESH = '00002000'X$ PARAMETER IO$M_ESCAPE = '00004000'X$ PARAMETER IO$M_EXTEND = '00008000'X& PARAMETER IO$M_CANCTRLO = '00000040'X& PARAMETER IO$M_ENABLMBX = '00000080'X& PARAMETER IO$M_NOFORMAT = '00000100'X' PARAMETER IO$M_BREAKTHRU = '00000200'X% PARAMETER IO$M_NEWLINE = '00000400'X( PARAMETER IO$M_TYPEAHDCNT = '00000040'X# PARAMETER IO$M_MAINT = '00000040'X& PARAMETER IO$M_CTRLYAST = '00000080'X& PARAMETER IO$M_CTRLCAST = '00000100'X$ PARAMETER IO$M_HANGUP = '00000200'X% PARAMETER IO$M_OUTBAND = '00000400'X( PARAMETER IO$M_TT_CONNECT = '00000800'X' PARAMETER IO$M_TT_DISCON = '00001000'X( PARAMETER IO$M_TT_PROCESS = '00002000'X$ PARAMETER IO$M_BRDCST = '00004000'X" PARAMETER IO$M_LOOP = '00000080'X$ PARAMETER IO$M_UNLOOP = '00000100'X& PARAMETER IO$M_LINE_OFF = '00000200'X' PARAMETER IO$M_SET_MODEM = '00000400'X% PARAMETER IO$M_LINE_ON = '00000800'X& PARAMETER IO$M_LOOP_EXT = '00001000'X( PARAMETER IO$M_AUTXOF_ENA = '00002000'X( PARAMETER IO$M_AUTXOF_DIS = '00004000'X% P ARAMETER IO$M_INCLUDE = '00000800'X& PARAMETER IO$M_TT_ABORT = '00001000'X' PARAMETER IO$M_POSIXINIT = '00000040'X' PARAMETER IO$M_POSIXFLOW = '00000080'X' PARAMETER IO$M_SET_POSIX = '00000080'X) PARAMETER IO$M_CLEAR_POSIX = '00000100'X) PARAMETER IO$M_SET_TERMIOS = '00000200'X% PARAMETER IO$M_SET_PTC = '00000400'X' PARAMETER IO$M_CLEAR_PTC = '00000800'X' PARAMETER IO$M_FLUSH_TAB = '00001000'X* PARAMETER IO$M_FLUSH_OUTPUT = '00002000'X( PARAMETER IO$M_UPDATE_PTC = '00004000'X& PAR AMETER IO$M_OUT_XOFF = '00000100'X% PARAMETER IO$M_OUT_XON = '00000200'X% PARAMETER IO$M_IN_XOFF = '00000400'X$ PARAMETER IO$M_IN_XON = '00000800'X( PARAMETER IO$M_O_NONBLOCK = '00000040'X' PARAMETER IO$M_INTERRUPT = '00000040'X& PARAMETER IO$M_MULTIPLE = '00000080'X% PARAMETER IO$M_LOCKBUF = '00000100'X% PARAMETER IO$M_NOBLOCK = '00000200'X# PARAMETER IO$M_ABORT = '00000100'X# PARAMETER IO$M_SYNCH = '00000200'X& PARAMETER IO$M_RESPONSE = '00000040'X% PARAMETER IO$M_STARTUP = '00000040'X& PARAMETER IO$M_SHUTDOWN = '00000080'X% PARAMETER IO$M_ATTNAST = '00000100'X" PARAMETER IO$M_CTRL = '00000200'X% PARAMETER IO$M_SET_MAC = '00000800'X( PARAMETER IO$M_UPDATE_MAP = '00001000'X# PARAMETER IO$M_ROUTE = '00002000'X$ PARAMETER IO$M_RD_MEM = '00000040'X& PARAMETER IO$M_RD_MODEM = '00000080'X& PARAMETER IO$M_RD_COUNT = '00000100'X' PARAMETER IO$M_CLR_COUNT = '00000400'X' PARAMETER IO$M_SENSE_MAC = '00000800'X& PARAMETER IO$M_SHOW_MAP = '00001000'X( PARAMETER IO$M_SHOW _ROUTE = '00002000'XH PARAMETER IO$K_SRRUNOUT = '00000000'X ! Send or rcv until cnt runout D PARAMETER IO$K_PTPBSC = '00002000'X ! Point to point BSC control 5 PARAMETER IO$K_LOOPTEST = '0000E000'X ! Loop test / ! X25 driver WRITEBLK function modifier bits." PARAMETER IO$M_MORE = '00000040'X' PARAMETER IO$M_QUALIFIED = '00000080'X& PARAMETER IO$M_REDIRECT = '00000040'X$ PARAMETER IO$M_ACCEPT = '00000080'X$ PARAMETER IO$M_SETEVF = '00000040'X" PARAMETER IO$M_WORD = '00000040'X% PAR AMETER IO$M_SETFNCT = '00000200'X& PARAMETER IO$M_DATAPATH = '00000400'X# PARAMETER IO$M_CYCLE = '00001000'X# PARAMETER IO$M_RESET = '00002000'X& PARAMETER IO$M_SETCUADR = '00000100'X& PARAMETER IO$M_SETBSIZE = '00000200'X' PARAMETER IO$M_SETPOOLSZ = '00000400'X' PARAMETER IO$M_SETENQCNT = '00000800'X# PARAMETER IO$M_CLEAR = '00001000'X$ PARAMETER IO$M_LPBEXT = '00002000'X$ PARAMETER IO$M_LPBINT = '00004000'X% PARAMETER IO$M_READCSR = '00008000'X' PARAMETER IO$M_NOCTSWAIT = '0000004 0'X& PARAMETER IO$M_SLAVLOOP = '00000080'X' PARAMETER IO$M_NODSRWAIT = '00000100'X' PARAMETER IO$M_MAINTLOOP = '00000200'X' PARAMETER IO$M_LASTBLOCK = '00000400'X& PARAMETER IO$M_INTCLOCK = '00001000'X( PARAMETER IO$M_LT_CONNECT = '00000040'X' PARAMETER IO$M_LT_DISCON = '00000080'X) PARAMETER IO$M_LT_READPORT = '00000100'X) PARAMETER IO$M_LT_MAP_PORT = '00000200'X' PARAMETER IO$M_LT_RATING = '00000400'X) PARAMETER IO$M_LT_SOL_INFO = '00000800'X) PARAMETER IO$M_LT_RCV_INFO = '00001 000'X( PARAMETER IO$M_LT_SETMODE = '00002000'X* PARAMETER IO$M_LT_SENSEMODE = '00004000'X. PARAMETER IO$M_LT_QUE_CHG_NOTIF = '00008000'X+ PARAMETER IO$M_LT_MAP_FILLER = '00000001'X+ PARAMETER IO$M_LT_MAP_NODNAM = '00000002'X+ PARAMETER IO$M_LT_MAP_PORNAM = '00000004'X+ PARAMETER IO$M_LT_MAP_SRVNAM = '00000008'X+ PARAMETER IO$M_LT_MAP_LNKNAM = '00000010'X+ PARAMETER IO$M_LT_MAP_NETADR = '00000020'X# PARAMETER IO$M_FLUSH = '00000040'X+ PARAMETER IO$M_WRITE_BARRIER = '00000080'X% PARAMETER IO$M_MKFILL1 = '00000040'X- PARAMETER IO$M_ALLOWFAST_NEVER = '00000080'X. PARAMETER IO$M_ALLOWFAST_PER_IO = '00000100'X. PARAMETER IO$M_ALLOWFAST_ALWAYS = '00000200'X! PARAMETER IO$M_ADD = '00000040'X& PARAMETER IO$M_IDSTRING = '00000040'X' PARAMETER IO$M_SERIALNUM = '00000080'X. PARAMETER IO$M_BYPASS_VALID_CHK = '00000080'X STRUCTURE /IODEF/ UNION/ ! Basic I/O function code/modifiers structure MAP! PARAMETER IO$S_FCODE = 6: PARAMETER IO$V_FCODE = 0 ! Function Code Field' PARAMETER IO$S_FMODIFIERS = 10& PARAMETER IO$V_FMODIFIERS = 67 BYTE %FILL (2) ! Function Modifiers Field END MAPC ! Function modifiers common to all drivers which do error logging MAP$ PARAMETER IO$S_INHERLOG = 1@ PARAMETER IO$V_INHERLOG = 11 ! Inhibit error logging BYTE %FILL (1) END MAP1 ! General disk and tape function code modifiers MAP! PARAMETER IO$S_ERASE = 12 P ARAMETER IO$V_ERASE = 10 ! Erase data" PARAMETER IO$S_EXFUNC = 1> PARAMETER IO$V_EXFUNC = 13 ! func<31:16> are valid% PARAMETER IO$S_DATACHECK = 1K PARAMETER IO$V_DATACHECK = 14 ! Write check data after transfer$ PARAMETER IO$S_INHRETRY = 1> PARAMETER IO$V_INHRETRY = 15 ! Inhibit error retry1 ! the following are only valid if EXFUNC is set# PARAMETER IO$S_SYNCSTS = 1F PARAMETER IO$V_SYNCSTS = 16 ! allow synchr onous completion$ PARAMETER IO$S_NOVCACHE = 1? PARAMETER IO$V_NOVCACHE = 17 ! do not use VBN cache" PARAMETER IO$S_BUFOBJ = 1: PARAMETER IO$V_BUFOBJ = 18 ! Buffer object I/O# PARAMETER IO$S_TRUSTED = 1D PARAMETER IO$V_TRUSTED = 19 ! I/O from trusted component& PARAMETER IO$S_FILE_FLUSH = 1? PARAMETER IO$V_FILE_FLUSH = 20 ! Flush file to disk# PARAMETER IO$S_BARRIER = 1J PARAMETER IO$V_BARRIER = 21 ! Insert a barrier after the write$ PARAMETER IO$S_RAH_HINT = 1G PARAMETER IO$V_RAH_HINT = 22 ! Readahead hint (used by XFC) BYTE %FILL (2) END MAP( ! General disk function code modifiers MAP# PARAMETER IO$S_INHSEEK = 1T PARAMETER IO$V_INHSEEK = 12 ! Inhibit implied seek on physical functions BYTE %FILL (1) END MAP- ! General disk READ function code modifiers MAP1 ! the following are only valid if EXFUNC is se t' PARAMETER IO$S_READ_TO_EOF = 1M PARAMETER IO$V_READ_TO_EOF = 21 ! Reserved for Internal Use only. BYTE %FILL (1) END MAP( ! General tape function code modifiers MAP# PARAMETER IO$S_REVERSE = 1: PARAMETER IO$V_REVERSE = 6 ! Reverse operation" PARAMETER IO$S_NOWAIT = 1F PARAMETER IO$V_NOWAIT = 7 ! No wait for rewind to complete% PARAMETER IO$S_INHEXTGAP = 1N PARAMETER IO$V_INHEXTGAP = 12 ! In hibit extended inter-record gap % PARAMETER IO$S_RETENSION = 1d PARAMETER IO$V_RETENSION = 13 ! Traverse the entire tape to uniformly set the tape's tenC ! Traverse the entire tape to uniformly set the tape's tensio3 ! Applies only to IO$_REWIND/REWINDOFF functions% PARAMETER IO$S_ALLOWFAST = 1U PARAMETER IO$V_ALLOWFAST = 14 ! Allow fast skip by filemarks when enabled5 ! Applies only to IO$_SKIPFILE/SPACEFILE functions' PARAMETER IO$S_MT3_DENSITY = 1( PARAMETER IO$V_MT3_DENSITY = 15[ BYTE %FILL (1) ! Density Setmode and Sensemode for MTD enhanced tape drivers. END MAPF ! DU & TU, disk & tape class driver transfer function modifier bits MAP& PARAMETER IO$S_MSCPMODIFS = 1D PARAMETER IO$V_MSCPMODIFS = 8 ! Use MSCP modifiers in P5 BYTE %FILL (1) END MAP MAP" PARAMETER IO$S_SHADOW = 1; PARAMETER IO$V_SHADOW = 6 ! Shadowing SENSECHAR" PARAMETER IO$S_LOCATE = 1" PARAMETER IO$V_LOCATE = 78 BYTE %FILL (1) ! Shadowing Locate function END MAP MAP' PARAMETER IO$S_MSCP_FORMAT = 1I PARAMETER IO$V_MSCP_FORMAT = 6 ! PACKACK media for formatting BYTE %FILL (1) END MAP MAP$ PARAMETER IO$S_ALLHOSTS = 1O PARAMETER IO$V_ALLHOSTS = 6 ! Do available as for all class drivers$ PARAMETER IO$S_DISSOLVE = 1= PARAMETER IO$V_DISSOLVE = 7 ! Dissolve shadow set% PARAMETER IO$S_NOCLEANUP = 1R PARAMETER IO$V_NOCLEANUP = 8 ! Normal shadow set cleanup not necessary BYTE %FILL (1) END MAP MAP$ PARAMETER IO$S_SPINDOWN = 1B PARAMETER IO$V_SPINDOWN = 6 ! Spin down removed member BYTE %FILL (1) END MAP MAP( PARAMETER IO$S_EST_COM_PATH = 1J PARAMETER IO$V_EST_COM_PATH = 6 ! Establish Communication Path( PARAMETER IO$S_LCL_SRC_ UNIT = 1? PARAMETER IO$V_LCL_SRC_UNIT = 7 ! Local Source Unit( PARAMETER IO$S_RTN_COM_PATH = 1G PARAMETER IO$V_RTN_COM_PATH = 8 ! Retain Communication Path BYTE %FILL (1) END MAP MAP% PARAMETER IO$S_DEALC_ALL = 19 PARAMETER IO$V_DEALC_ALL = 6 ! Deallocate All% PARAMETER IO$S_DEALC_HRN = 1N PARAMETER IO$V_DEALC_HRN = 7 ! Deallocate by Host Reference Number( PARAMETER IO$S_DEALC_ENTLOC = 1I  PARAMETER IO$V_DEALC_ENTLOC = 8 ! Deallocate by Entry Locator$ PARAMETER IO$S_DECR_AFC = 1L PARAMETER IO$V_DECR_AFC = 9 ! Decrement Allocation Failure Count$ PARAMETER IO$S_READ_ALL = 13 PARAMETER IO$V_READ_ALL = 10 ! Read All$ PARAMETER IO$S_READ_HRN = 1H PARAMETER IO$V_READ_HRN = 11 ! Read by Host Reference Number& PARAMETER IO$S_BREAK_CONN = 1= PARAMETER IO$V_BREAK_CONN = 12 ! Break Connection BYTE %FILL (1) END MAP. ! HBS driver transfer function modifier bits@ ! Make sure that IO$V_SHADOW .ne. IO$V_LOCATE .ne. IO$V_COPYOP MAP$ PARAMETER IO$S_STEPOVER = 1: PARAMETER IO$V_STEPOVER = 6 ! Stepover SCBLBN." PARAMETER IO$S_COPYOP = 1A PARAMETER IO$V_COPYOP = 8 ! Shad Server Cpy Operation BYTE %FILL (1) END MAP MAP" PARAMETER IO$S_EXISTS = 1: PARAMETER IO$V_EXISTS = 6 ! VU already exists. PARAM ETER IO$S_CBS = 1A PARAMETER IO$V_CBS = 7 ! Controller based shadowing.# PARAMETER IO$S_BOOTING = 1A PARAMETER IO$V_BOOTING = 8 ! Creshad for system disk.( PARAMETER IO$S_REQ_MINICOPY = 1? PARAMETER IO$V_REQ_MINICOPY = 9 ! MINICOPY required( PARAMETER IO$S_OPT_MINICOPY = 1? PARAMETER IO$V_OPT_MINICOPY = 10 ! MINICOPY optional& PARAMETER IO$S_NOMINICOPY = 17 PARAMETER IO$V_NOMINICOPY = 11 ! NOMINICOPY- PARAMETER IO$S_EXPECT_MOUNT_DONE = 1X PARAMETER IO$V_EXPECT_MOUNT_DONE = 13 ! All SSMs on command line sent to HBVS BYTE %FILL (1) END MAP MAP# PARAMETER IO$S_VUEX_FC = 1B PARAMETER IO$V_VUEX_FC = 9 ! Exclude Full copy members BYTE %FILL (1) END MAP MAP% PARAMETER IO$S_WRITE_SCB = 18 PARAMETER IO$V_WRITE_SCB = 9 ! Write the SCB& PARAMETER IO$S_UPD_SCBLBN = 1S PARAMETER IO$V_UPD_SC BLBN = 13 ! Update HVBS on new location of the SCB BYTE %FILL (1) END MAP3 ! Function modifier bits for Set Preferred Path.  MAP; ! No modifiers set, passes in a preferred path (DUDRIVER)% PARAMETER IO$S_FORCEPATH = 1M PARAMETER IO$V_FORCEPATH = 6 ! Make path change happen (DUDRIVER)) PARAMETER IO$S_PREFERRED_CPU = 1^ PARAMETER IO$V_PREFERRED_CPU = 7 ! Set Fast Path CPU affinity of port (port driver)* PARAMETER IO$S_SYS_ ASSIGNABLE = 1E PARAMETER IO$V_SYS_ASSIGNABLE = 8 ! system assignable port BYTE %FILL (1) END MAP% ! DR driver function modifier bits. MAP" PARAMETER IO$S_COMMOD = 1: PARAMETER IO$V_COMMOD = 6 ! Diagnostic command& PARAMETER IO$S_MOVETRACKD = 1A PARAMETER IO$V_MOVETRACKD = 7 ! Move track descriptor& PARAMETER IO$S_DIAGNOSTIC = 1? PARAMETER IO$V_DIAGNOSTIC = 8 ! Diagnostic function% PARAMETER IO$S_SKPSECINH = 1> PARAMETER IO$V_SKPSECINH = 9 ! Skip sector inhibit BYTE %FILL (1) END MAP% ! DY driver function modifier bits. MAP# PARAMETER IO$S_DELDATA = 1@ PARAMETER IO$V_DELDATA = 6 ! Write deleted data mark BYTE %FILL (1) END MAP, ! DD driver (TU58) function modifier bits. MAP" PARAMETER IO$S_NOMRSP = 1J PARAMETER IO$V_NOMRSP = 6 ! Do not use MRSP for this operation BYTE %FILL (1) END MAP: ! Magnetic tape I/O function modifier bits for the TS11. MAP PARAMETER IO$S_SWAP = 17 PARAMETER IO$V_SWAP = 8 ! Swap byte (TS11)$ PARAMETER IO$S_OPPOSITE = 1I PARAMETER IO$V_OPPOSITE = 9 ! Opposite bit for rereads (TS11) BYTE %FILL (1) END MAP$ ! TU driver function modifier bits MAP% PARAMETER IO$S_CLSEREXCP = 1L PARAMETER IO$V_CLSEREXCP = 9 ! Clear serious exception condition BYTE %FILL (1)  END MAP@ ! Tape class driver segmented and large transfer modifier bits MAP% PARAMETER IO$S_CHUNKDIAG = 1C PARAMETER IO$V_CHUNKDIAG = 6 ! Allow diagnostic buffers PARAMETER IO$S_TBC = 1? PARAMETER IO$V_TBC = 10 ! To be continued modifier BYTE %FILL (1) END MAP, ! TUDRIVER SETMODE function modifier bits. MAP" PARAMETER IO$S_ENAREP = 1< PARAMETER IO$V_ENAREP = 6 ! Enable media quality BYTE %FILL (1) END MAP ! reporting. ! ACP function modifier bits. MAP" PARAMETER IO$S_ACCESS = 13 PARAMETER IO$V_ACCESS = 6 ! Access file" PARAMETER IO$S_CREATE = 13 PARAMETER IO$V_CREATE = 7 ! Create file" PARAMETER IO$S_DELETE = 13 PARAMETER IO$V_DELETE = 8 ! Delete file! PARAMETER IO$S_MOUNT = 13 PARAMETER IO$V_MOUNT = 9 ! Mount volume" PARAMETER IO$S_DMOUNT = 18 PARAMETER IO$V_DMOUNT  = 10 ! Dismount volume# PARAMETER IO$S_REMOUNT = 18 PARAMETER IO$V_REMOUNT = 11 ! Remount volume$ PARAMETER IO$S_MOVEFILE = 16 PARAMETER IO$V_MOVEFILE = 12 ! Move a file% PARAMETER IO$S_RWSHELVED = 1@ PARAMETER IO$V_RWSHELVED = 14 ! Access shelved files" PARAMETER IO$S_SETDIR = 1@ PARAMETER IO$V_SETDIR = 15 ! Set file as a directory ! Bit 19 used for TRUSTED BYTE %FILL (2) END MAP3 ! CR (card reader) driver function modifier bits. MAP" PARAMETER IO$S_BINARY = 13 PARAMETER IO$V_BINARY = 6 ! Binary read" PARAMETER IO$S_PACKED = 1" PARAMETER IO$V_PACKED = 7* BYTE %FILL (1) ! Packed read END MAP/ ! MB (mailbox) driver function modifier bits.D ! The following modifers are for the QIO READ, WRITE and SENSEMODE ! functions. MAP PARAMETER IO$S_NOW = 1H PARAMETER IO$V_NOW = 6 ! Do not wait for op eration complete" PARAMETER IO$S_STREAM = 1W PARAMETER IO$V_STREAM = 7 ! Perform stream mode operation (vs. record mode)' PARAMETER IO$S_READERCHECK = 1d PARAMETER IO$V_READERCHECK = 8 ! Perform operation if no read channel is assigned to theC ! Perform operation if no read channel is assigned to the mai' PARAMETER IO$S_WRITERCHECK = 1d PARAMETER IO$V_WRITERCHECK = 9 ! Perform operation if no write channel is assigned to thC  ! Perform operation if no write channel is assigned to the ma$ PARAMETER IO$S_NORSWAIT = 1F PARAMETER IO$V_NORSWAIT = 10 ! Do not allow resource waits ! Bit 13 used for EXFUNC ! Bit 19 used for TRUSTED BYTE %FILL (1) END MAP4 ! More MB (mailbox) driver function modifier bits.+ ! Mailbox QIO SETMODE function modifiers. MAP* PARAMETER IO$S_MB_ROOM_NOTIFY = 1d PARAMETER IO$V_MB_ROOM_NOTIFY = 6 ! Notify when some (any) space in the  mailbox is availa$ PARAMETER IO$S_READATTN = 1G PARAMETER IO$V_READATTN = 7 ! Request ast on waiting reader# PARAMETER IO$S_WRTATTN = 1F PARAMETER IO$V_WRTATTN = 8 ! Request ast on waiting writer# PARAMETER IO$S_SETPROT = 1> PARAMETER IO$V_SETPROT = 9 ! Set volume protection& PARAMETER IO$S_READERWAIT = 1c PARAMETER IO$V_READERWAIT = 10 ! Wait for a read channel to be assigned to the mailbox.& PARAMETER I O$S_WRITERWAIT = 1d PARAMETER IO$V_WRITERWAIT = 11 ! Wait for a write channel to be assigned to the mailbox. BYTE %FILL (1) END MAP* ! TT driver READ function modifier bits. MAP" PARAMETER IO$S_NOECHO = 1. PARAMETER IO$V_NOECHO = 6 ! Noecho! PARAMETER IO$S_TIMED = 1, PARAMETER IO$V_TIMED = 7 ! Timed" PARAMETER IO$S_CVTLOW = 1: PARAMETER IO$V_CVTLOW = 8 ! Convert lower case# PARAMETER IO$S_NOFILTR = 12 PARAMETER IO$V_NOFILTR = 9 ! No filter$ PARAMETER IO$S_DSABLMBX = 1: PARAMETER IO$V_DSABLMBX = 10 ! Disable mailbox! PARAMETER IO$S_PURGE = 17 PARAMETER IO$V_PURGE = 11 ! Purge typeahead% PARAMETER IO$S_TRMNOECHO = 1F PARAMETER IO$V_TRMNOECHO = 12 ! Terminators are not echoed# PARAMETER IO$S_REFRESH = 1D PARAMETER IO$V_REFRESH = 13 ! Control-R interrupted read" PARAMETER IO$S_ESCAPE = 1J  PARAMETER IO$V_ESCAPE = 14 ! Terminate read on escape sequence" PARAMETER IO$S_EXTEND = 1# PARAMETER IO$V_EXTEND = 15> BYTE %FILL (2) ! Used by alternate class drivers END MAP+ ! TT driver WRITE function modifier bits. MAP$ PARAMETER IO$S_CANCTRLO = 1: PARAMETER IO$V_CANCTRLO = 6 ! Cancel control O$ PARAMETER IO$S_ENABLMBX = 18 PARAMETER IO$V_ENABLMBX = 7 ! Enable mailbox$ PARAMETER IO$S_NOFORMAT = 1> PARAMETER IO$V_NOFORMAT = 8 ! Do not format output% PARAMETER IO$S_BREAKTHRU = 18 PARAMETER IO$V_BREAKTHRU = 9 ! Broadcast I/O# PARAMETER IO$S_NEWLINE = 1: PARAMETER IO$V_NEWLINE = 10 ! Output a newline BYTE %FILL (1) END MAP/ ! TT driver SENSEMODE function modifier bits. MAP& PARAMETER IO$S_TYPEAHDCNT = 1G PARAMETER IO$V_TYPEAHDCNT = 6 ! Sense typeahead information BYTE %FILL (1)  END MAP0 ! TT driver SETMODE subfunction modifier bits. MAP! PARAMETER IO$S_MAINT = 1A PARAMETER IO$V_MAINT = 6 ! Enable maint sub modifiers$ PARAMETER IO$S_CTRLYAST = 1; PARAMETER IO$V_CTRLYAST = 7 ! Set control Y AST$ PARAMETER IO$S_CTRLCAST = 17 PARAMETER IO$V_CTRLCAST = 8 ! Set Control C" PARAMETER IO$S_HANGUP = 1A PARAMETER IO$V_HANGUP = 9 ! Set mode and hang up line# PARAMETER IO$S_OUTBAND = 1= PARAMETER IO$V_OUTBAND = 10 ! Set out of band AST& PARAMETER IO$S_TT_CONNECT = 1I PARAMETER IO$V_TT_CONNECT = 11 ! Connect to detached terminal% PARAMETER IO$S_TT_DISCON = 1H PARAMETER IO$V_TT_DISCON = 12 ! Disconnect detached terminal& PARAMETER IO$S_TT_PROCESS = 1G PARAMETER IO$V_TT_PROCESS = 13 ! Define controlling process" PARAMETER IO$S_BRDCST = 1> PARAMETER IO$V_BRDCST = 14 ! Define broadcas t mask BYTE %FILL (2) END MAP6 ! TT driver MAINTIANCE subfunction submodifier bits. MAP PARAMETER IO$S_LOOP = 1: PARAMETER IO$V_LOOP = 7 ! Diagnostic loopback" PARAMETER IO$S_UNLOOP = 1A PARAMETER IO$V_UNLOOP = 8 ! Diagnostic reset loopback$ PARAMETER IO$S_LINE_OFF = 16 PARAMETER IO$V_LINE_OFF = 9 ! Disable line% PARAMETER IO$S_SET_MODEM = 1D PARAMETER IO$V_SET_MODEM = 10 ! Diagnostic modem con trol# PARAMETER IO$S_LINE_ON = 15 PARAMETER IO$V_LINE_ON = 11 ! Enable line$ PARAMETER IO$S_LOOP_EXT = 1G PARAMETER IO$V_LOOP_EXT = 12 ! Diagnostic external loopback& PARAMETER IO$S_AUTXOF_ENA = 1= PARAMETER IO$V_AUTXOF_ENA = 13 ! Enable auto XOFF& PARAMETER IO$S_AUTXOF_DIS = 1> PARAMETER IO$V_AUTXOF_DIS = 14 ! Disable auto XOFF BYTE %FILL (1) END MAP( ! TT driver out-of-band modifier bits. MAP # PARAMETER IO$S_INCLUDE = 1E PARAMETER IO$V_INCLUDE = 11 ! Include character in stream$ PARAMETER IO$S_TT_ABORT = 1< PARAMETER IO$V_TT_ABORT = 12 ! Abort current I/O BYTE %FILL (1) END MAP< ! Posix terminal driver SETMODE subfunction modifier bits. MAP% PARAMETER IO$S_POSIXINIT = 1M PARAMETER IO$V_POSIXINIT = 6 ! Enable initialization subfunctions% PARAMETER IO$S_POSIXFLOW = 1% PARAMETER IO$V_PO SIXFLOW = 7? BYTE %FILL (1) ! Enable flow control subfunctions END MAP< ! Posix terminal driver INIT subfunction submodifier bits. MAP% PARAMETER IO$S_SET_POSIX = 1I PARAMETER IO$V_SET_POSIX = 7 ! Set TT3$M_POSIX and set up PTC' PARAMETER IO$S_CLEAR_POSIX = 1P PARAMETER IO$V_CLEAR_POSIX = 8 ! Clear TT3$M_POSIX (opt. delete PTC)' PARAMETER IO$S_SET_TERMIOS = 1; PARAMETER IO$V_SET_TERMIOS = 9 ! Set up termio s# PARAMETER IO$S_SET_PTC = 1; PARAMETER IO$V_SET_PTC = 10 ! Set up all of PTC% PARAMETER IO$S_CLEAR_PTC = 15 PARAMETER IO$V_CLEAR_PTC = 11 ! clear PTC% PARAMETER IO$S_FLUSH_TAB = 1B PARAMETER IO$V_FLUSH_TAB = 12 ! flush typeahead buffer( PARAMETER IO$S_FLUSH_OUTPUT = 1F PARAMETER IO$V_FLUSH_OUTPUT = 13 ! flush outstanding writes& PARAMETER IO$S_UPDATE_PTC = 17 PARAMETER IO$V_UPDATE_PTC = 14 !  update PTC BYTE %FILL (1) END MAP< ! Posix terminal driver FLOW subfunction submodifier bits. MAP$ PARAMETER IO$S_OUT_XOFF = 1> PARAMETER IO$V_OUT_XOFF = 8 ! Simulate output XOFF# PARAMETER IO$S_OUT_XON = 1< PARAMETER IO$V_OUT_XON = 9 ! Simulate output XON# PARAMETER IO$S_IN_XOFF = 1= PARAMETER IO$V_IN_XOFF = 10 ! Simulate input XOFF" PARAMETER IO$S_IN_XON = 1; PARAMETER IO$V_IN_XON = 11 ! Simulate input XON BYTE %FILL (1) END MAP6 ! Posix terminal driver READ function modifier bits. MAP& PARAMETER IO$S_O_NONBLOCK = 14 PARAMETER IO$V_O_NONBLOCK = 6 ! Nonblock BYTE %FILL (1) END MAP: ! Network WRITE and READ VIRTUAL function modifier bits. MAP% PARAMETER IO$S_INTERRUPT = 1< PARAMETER IO$V_INTERRUPT = 6 ! Interrupt message$ PARAMETER IO$S_MULTIPLE = 1F PARAMETER IO$V_MULTIPLE = 7 ! Multiple write/read request # PARAMETER IO$S_LOCKBUF = 1; PARAMETER IO$V_LOCKBUF = 8 ! Direct I/O request# PARAMETER IO$S_NOBLOCK = 1E PARAMETER IO$V_NOBLOCK = 9 ! Segment message w/o blocking ! Bit 13 used for EXFUNC ! Bit 19 used for TRUSTED BYTE %FILL (1) END MAP3 ! Network ACCESS/DEACCESS function modifier bits. MAP! PARAMETER IO$S_ABORT = 1F PARAMETER IO$V_ABORT = 8 ! Disconnect abort/connect reject!  PARAMETER IO$S_SYNCH = 1= PARAMETER IO$V_SYNCH = 9 ! Synchronous disconnect BYTE %FILL (1) END MAP4 ! DATALINK driver WRITE subfunction modifier bits. MAP$ PARAMETER IO$S_RESPONSE = 1L PARAMETER IO$V_RESPONSE = 6 ! Transmit this packet as a response BYTE %FILL (1) END MAP7 ! DATALINK driver SETMODE subfunction modifier bits.  MAP# PARAMETER IO$S_STARTUP = 17 PARAMETER IO$V_STARTUP = 6 ! Start proto col$ PARAMETER IO$S_SHUTDOWN = 17 PARAMETER IO$V_SHUTDOWN = 7 ! Stop protocol# PARAMETER IO$S_ATTNAST = 16 PARAMETER IO$V_ATTNAST = 8 ! Attention AST PARAMETER IO$S_CTRL = 1L PARAMETER IO$V_CTRL = 9 ! Controller (ie. not station) function# PARAMETER IO$S_SET_MAC = 1< PARAMETER IO$V_SET_MAC = 11 ! Set MAC parameters& PARAMETER IO$S_UPDATE_MAP = 1@ PARAMETER IO$V_UPDATE_MAP = 12 ! Functional Addr Map! PARAMETER IO$S_ROUTE = 1: PARAMETER IO$V_ROUTE = 13 ! Source Routing Ops BYTE %FILL (1) END MAP8 ! DATALINK driver SENSEMODE subfunction modifier bits. MAP" PARAMETER IO$S_RD_MEM = 1: PARAMETER IO$V_RD_MEM = 6 ! Read device memory$ PARAMETER IO$S_RD_MODEM = 1; PARAMETER IO$V_RD_MODEM = 7 ! Read modem status$ PARAMETER IO$S_RD_COUNT = 17 PARAMETER IO$V_RD_COUNT = 8 ! Read counters%  PARAMETER IO$S_CLR_COUNT = 1: PARAMETER IO$V_CLR_COUNT = 10 ! Clear counters% PARAMETER IO$S_SENSE_MAC = 1@ PARAMETER IO$V_SENSE_MAC = 11 ! Sense MAC parameters$ PARAMETER IO$S_SHOW_MAP = 1> PARAMETER IO$V_SHOW_MAP = 12 ! Functional Addr Map& PARAMETER IO$S_SHOW_ROUTE = 1? PARAMETER IO$V_SHOW_ROUTE = 13 ! Source Routing Ops BYTE %FILL (1) END MAP MAP PARAMETER IO$S_MORE = 1@ PARAMETER  IO$V_MORE = 6 ! More data follows (M-bit)% PARAMETER IO$S_QUALIFIED = 1% PARAMETER IO$V_QUALIFIED = 7@ BYTE %FILL (1) ! Use qualified sub-channel (Q-bit) END MAP- ! X25 driver ACCESS function modifier bits. MAP$ PARAMETER IO$S_REDIRECT = 1? PARAMETER IO$V_REDIRECT = 6 ! Redirect virtual call" PARAMETER IO$S_ACCEPT = 1" PARAMETER IO$V_ACCEPT = 72 BYTE %FILL (1) ! Accept virtual call END MAP * ! LPA-11 driver STARTDATA modifier bits. MAP" PARAMETER IO$S_SETEVF = 16 PARAMETER IO$V_SETEVF = 6 ! Set event flag BYTE %FILL (1) END MAP. ! XA (DR11-W) driver function modifier bits. MAP PARAMETER IO$S_WORD = 1R PARAMETER IO$V_WORD = 6 ! Word (interrupt)/block (DMA) mode specifier# PARAMETER IO$S_SETFNCT = 1F PARAMETER IO$V_SETFNCT = 9 ! Set "FNCT" bits in device CSR$ PARAMETER IO$S_DATAPATH = 1 P PARAMETER IO$V_DATAPATH = 10 ! Change UBA datapath (direct/buffered)! PARAMETER IO$S_CYCLE = 1E PARAMETER IO$V_CYCLE = 12 ! Set "cycle" bit in device CSR! PARAMETER IO$S_RESET = 1> PARAMETER IO$V_RESET = 13 ! Device reset specifier BYTE %FILL (1) END MAP' ! 3271 driver function modifier bits. MAP$ PARAMETER IO$S_SETCUADR = 1> PARAMETER IO$V_SETCUADR = 8 ! Set a new CU address$ PARAMETER IO$S_ SETBSIZE = 1G PARAMETER IO$V_SETBSIZE = 9 ! Set a new maximum buffer size% PARAMETER IO$S_SETPOOLSZ = 1? PARAMETER IO$V_SETPOOLSZ = 10 ! Set a new pool size% PARAMETER IO$S_SETENQCNT = 1C PARAMETER IO$V_SETENQCNT = 11 ! Set a new ENQ threshold! PARAMETER IO$S_CLEAR = 1< PARAMETER IO$V_CLEAR = 12 ! Zero status counters" PARAMETER IO$S_LPBEXT = 1F PARAMETER IO$V_LPBEXT = 13 ! Loopback is external loopba ck" PARAMETER IO$S_LPBINT = 1N PARAMETER IO$V_LPBINT = 14 ! Loopback is internal loopback (DUP11)# PARAMETER IO$S_READCSR = 1$ PARAMETER IO$V_READCSR = 151 BYTE %FILL (1) ! Read CSRs on DUP11 END MAP% ! XW driver function modifier bits. MAP% PARAMETER IO$S_NOCTSWAIT = 1? PARAMETER IO$V_NOCTSWAIT = 6 ! Diagnostic function $ PARAMETER IO$S_SLAVLOOP = 1> PARAMETER IO$V_SLAVLOOP = 7 ! Diagnost ic function % PARAMETER IO$S_NODSRWAIT = 1F PARAMETER IO$V_NODSRWAIT = 8 ! Do not wait for DSR (diag) % PARAMETER IO$S_MAINTLOOP = 1? PARAMETER IO$V_MAINTLOOP = 9 ! Internal maint loop % PARAMETER IO$S_LASTBLOCK = 1B PARAMETER IO$V_LASTBLOCK = 10 ! Last block of message $ PARAMETER IO$S_INTCLOCK = 1: PARAMETER IO$V_INTCLOCK = 12 ! Internal clock  BYTE %FILL (1) END MAP& ! LAT driver function modifier  bits. MAP& PARAMETER IO$S_LT_CONNECT = 1S PARAMETER IO$V_LT_CONNECT = 6 ! Solicit connection to remote LAT device% PARAMETER IO$S_LT_DISCON = 1A PARAMETER IO$V_LT_DISCON = 7 ! Disconnect LAT session' PARAMETER IO$S_LT_READPORT = 1A PARAMETER IO$V_LT_READPORT = 8 ! Read LAT device info' PARAMETER IO$S_LT_MAP_PORT = 1A PARAMETER IO$V_LT_MAP_PORT = 9 ! Map application port% PARAMETER IO$S_LT_RATING = 1> PARAMETER IO$V_LT_RATING = 10 ! Set service rating' PARAMETER IO$S_LT_SOL_INFO = 1B PARAMETER IO$V_LT_SOL_INFO = 11 ! Request solicit info' PARAMETER IO$S_LT_RCV_INFO = 1C PARAMETER IO$V_LT_RCV_INFO = 12 ! Setup to recive reply& PARAMETER IO$S_LT_SETMODE = 1B PARAMETER IO$V_LT_SETMODE = 13 ! SETMODE on LTA device( PARAMETER IO$S_LT_SENSEMODE = 1E PARAMETER IO$V_LT_SENSEMODE = 14 ! SENSEMODE on LTA d evice, PARAMETER IO$S_LT_QUE_CHG_NOTIF = 1- PARAMETER IO$V_LT_QUE_CHG_NOTIF = 15/ BYTE %FILL (2) ! Queue change AST END MAP* ! LAT item list definitions for MAP_PORT MAP) PARAMETER IO$S_LT_MAP_FILLER = 1= PARAMETER IO$V_LT_MAP_FILLER = 0 ! Item 0 not used) PARAMETER IO$S_LT_MAP_NODNAM = 1> PARAMETER IO$V_LT_MAP_NODNAM = 1 ! Server node name) PARAMETER IO$S_LT_MAP_PORNAM = 1> PARAMETER IO$V_LT _MAP_PORNAM = 2 ! Server port name) PARAMETER IO$S_LT_MAP_SRVNAM = 1A PARAMETER IO$V_LT_MAP_SRVNAM = 3 ! Server service name) PARAMETER IO$S_LT_MAP_LNKNAM = 17 PARAMETER IO$V_LT_MAP_LNKNAM = 4 ! Link name) PARAMETER IO$S_LT_MAP_NETADR = 1B PARAMETER IO$V_LT_MAP_NETADR = 5 ! Server Ethernet Add. BYTE %FILL (1) END MAP+ ! FSDRIVER function modifiers for Dollar. MAP! PARAMETER IO$S_FLUSH = 13 PARAM ETER IO$V_FLUSH = 6 ! Flush writes) PARAMETER IO$S_WRITE_BARRIER = 1) PARAMETER IO$V_WRITE_BARRIER = 7; BYTE %FILL (1) ! Barrier writes to this point END MAP+ ! MKDRIVER function modifiers for SETMODE MAP# PARAMETER IO$S_MKFILL1 = 1] PARAMETER IO$V_MKFILL1 = 6 ! Filler to not coincide with TU modifier (for safety)+ PARAMETER IO$S_ALLOWFAST_NEVER = 1M PARAMETER IO$V_ALLOWFAST_NEVER = 7 ! Disable all skip b y filemarks, PARAMETER IO$S_ALLOWFAST_PER_IO = 1_ PARAMETER IO$V_ALLOWFAST_PER_IO = 8 ! Enable skip by filemarks with i/o fcn modifier, PARAMETER IO$S_ALLOWFAST_ALWAYS = 1b PARAMETER IO$V_ALLOWFAST_ALWAYS = 9 ! Default all IO$_SKIPFILE to use skip by filemarks BYTE %FILL (1) END MAP= ! Snapshot-capable disk (SD) driver function modifier bits. MAP PARAMETER IO$S_ADD = 1B PARAMETER IO$V_ADD = 6 ! Add UNIT to an existing pool BYTE %FILL (1) END MAP ! USB usbattr modifiers MAP$ PARAMETER IO$S_IDSTRING = 1U PARAMETER IO$V_IDSTRING = 6 ! Request for printer's 1284 device ID string% PARAMETER IO$S_SERIALNUM = 1% PARAMETER IO$V_SERIALNUM = 7Q BYTE %FILL (1) ! Request for printer's serial number (if supported) END MAP$ ! Disk-specific PACKACK modifiers  MAP, PARAMETER IO$S_BYPASS_VALID_CHK = 1, PARAMETER IO$V_BYPASS_VALID_CHK = 7^ BYTE %FILL (1) ! Send PACKACK to driver even if UCB$M_VALID is set (LCLDSKVALID) END MAP END UNION END STRUCTURE ! IODEF!DEC$ END OPTIONS wwmZCΦ!*** MODULE $IOSADEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! Define I/O Status Area ! -9 PARAMETER IOSA$K_LENGTH = '00000020'X ! Length of IOSA9 PARAMETER IOSA$C_LENGTH = '00000020'X ! Length of IOSA8 PARAMETER IOSA$S_IOSADEF = '00000020'X ! Size of IOSA STRUCTURE /IOSA/ UNION MAP? INTEGER*2 IOSA$W_IOSB_STATUS ! Final I/O status UNION MAPF INTEGER*2 IOSA$W_IOSB_BCNT ! 16-bit byte count UNION MAPZ INTEGER*4 IOSA$L_IOSB_DEV_DEPEND ! 32-bit device dependent info END MAP MAPB INTEGER*4 IOSA$L_IOSB_PID  ! 32-bit pid END MAP END UNION END MAP MAPR INTEGER*4 IOSA$L_IOSB_BCNT ! 32-bit byte count (unaligned)[ INTEGER*2 IOSA$W_IOSB_DEV_DEPEND_HIGH ! 16-bit device dependent info END MAP END UNION END MAP MAP1 INTEGER*4 IOSA$L_STATUS ! Status: INTEGER*4 IOSA$L_RESD ! Reserved (driver)  END MAP END UNION UNION MAP4 INTEGER*4 IOSA$Q_COUNT_Q(2) ! Force size END MAP MAP6 INTEGER*8 IOSA$IH_COUNT ! Number of bytes END MAP END UNION UNION MAP6 INTEGER*4 IOSA$Q_CONTEXT_Q(2) ! Force size END MAP MAP; INTEGER*8 IOSA$PH_CONTEXT_P ! User context area END MAP MAP9 INTEGER*8 IOSA$IH_CONTEXT ! User context area  END MAP MAPQ INTEGER*8 IOSA$PH_UPDSEC_NOWRT_VA ! First VA not written by $UPDSEC_64 END MAP END UNION UNION MAP< INTEGER*4 IOSA$L_RESL(1:2) ! in the future some END MAP MAP6 INTEGER*8 IOSA$Q_RESQ ! additional space END MAP MAP9 INTEGER*8 IOSA$Q_CONTEXT_ID ! User context ID END MAP END UNION END STRUCTURE ! IOSA ! + ! $IO_SETUP flag bits ! -' PARAMETER FIO$M_EXPEDITE = '00000001'X* PARAMETER FIO$M_AST_NOFLOAT = '00000002'X" PARAMETER FIO$M_CTX = '00000004'X STRUCTURE /SETUP_FLAGS/ UNION MAP# INTEGER*4 FIO$L_FLAGS_LONGWORD END MAP MAP% PARAMETER FIO$S_EXPEDITE = 1H PARAMETER FIO$V_EXPEDITE = 0 ! Make this a high-priority I/O( PARAMETER FIO$S_AST_NOFLOAT = 1T PARAMETER FIO$V_AST_NOFLOAT = 1 ! The AST routine does not use f.p. regs PARAMETER FIO$S_CTX = 1Q PARAMETER FIO$V_CTX = 2 ! Completion notification done via EFN$C_CTX BYTE %FILL (1) END MAP END UNION END STRUCTURE ! SETUP_FLAGS!DEC$ END OPTIONS wwCΦ!*** MODULE $IOSBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! Define I/O Status Block ! - STRUCTURE /IOSB/ UNION MAP; INTEGER*2 IOSB$W_STATUS ! Final I/O status UNION MAPB  INTEGER*2 IOSB$W_BCNT ! 16-bit byte count UNION MAPV INTEGER*4 IOSB$L_DEV_DEPEND ! 32-bit device dependent info END MAP MAP> INTEGER*4 IOSB$L_PID ! 32-bit pid END MAP END UNION END MAP MAPN INTEGER*4 IOSB$L_BCNT ! 32-bit byte count (unaligned)V INTEGER*2 IOSB$W_DEV_DEPEND_HIGH ! 16-bit device dependent info END MAP END UNION END MAP MAP UNION MAPH INTEGER*4 IOSB$L_GETXXI_STATUS ! Final GETxxI status END MAP MAPH INTEGER*4 IOSB$L_REG_STATUS ! Final $Registry status END MAP END UNION2 INTEGER*4 %FILL ! Reserved field END MAP END UNION END STRUCTURE ! IOSB9 PARAMETER IOSB$K_LENGTH = '00000008'X ! Length of IOSB9 PARAMETER IOSB$C_LENGTH = '00000008'X ! Length of IOSB!DEC$ END OPTIONS ww&DΦ!*** MODULE $ISSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +< ! $PERSONA_CREATE, $PERSONA_CREATE_INT itemlist item codesE ! These item codes must match the TLV item codes in [LIB]PSBDEF.SDL !  ! - ! +M ! At the time of t his modules creation there are four CHP$ item codes whichM ! must have the same value as their ISS$ counterparts. They are as follows: ! ) ! ISS$_WORKPRIV = CHP$_PRIV = 3) ! ISS$_CLASS = CHP$_CLASS = 5) ! ISS$_ADD_RIGHTS = CHP$_ADD_RIGHTS = 7* ! ISS$_UIC = CHP$_UIC = 22 ! H ! This is to preserve backward comptibility with $CREATE_USER_PROFILE. ! -8 PARAMETER ISS$_FLAGS = '00000001'X ! 1 Persona flags4 PARAMETER ISS$_ARBFLAGS = '00000002'X ! 2 Unused@ PARAMETER ISS$_WORKPRIV = '00000003'X ! 3 Working privileges5 PARAMETER ISS$_MODE = '00000004'X ! 4 Access modeE PARAMETER ISS$_WORKCLASS = '00000005'X ! 5 Working classification2 PARAMETER ISS$_RIGHTS = '00000006'X ! 6 RightsA PARAMETER ISS$_ADD_RIGHTS = '00000007'X ! 7 Add to the RightsI PARAMETER ISS$_ADD_AUTHRIGHTS = '00000008'X ! 8 Add to the AuthRights6 PARAMETER ISS$_USERNAME = '00000009'X ! 9 Username4 PARAMETER ISS$_ACCOUNT = '0000000A'X ! 10 A ccount= PARAMETER ISS$_NOAUDIT = '0000000B'X ! 11 No Audit settingC PARAMETER ISS$_AUTHPRIV = '0000000C'X ! 12 Authorized privilegesB PARAMETER ISS$_PERMPRIV = '0000000D'X ! 13 Permanent privilegesL PARAMETER ISS$_IMAGE_WORKPRIV = '0000000E'X ! 14 Image working privileges@ PARAMETER ISS$_ENABLED = '0000000F'X ! 15 Rights enabled maskA PARAMETER ISS$_AUTHRIGHTS = '00000010'X ! 16 Authorized rightsD PARAMETER ISS$_MINCLASS = '00000011'X ! 17 Minimum classificationD PARAMETER ISS$_MAXCLASS = '00000012'X ! 18 Maximum classification, PARAMETER ISS$_UID = '00000013'X ! 19 UID: PARAMETER ISS$_PERSONA_ID = '00000014'X ! 20 Persona ID= PARAMETER ISS$_PRINCIPAL = '00000015'X ! 21 Principal Name, PARAMETER ISS$_UIC = '00000016'X ! 22 UICP PARAMETER ISS$_SWITCH_EXTENSION = '00000017'X ! 23 Switch Extension directiveL PARAMETER ISS$_PRIMARY_EXTENSION = '00000018'X ! 24 PSB Primary ExtensionN PARAMETER ISS$_EXTENSION_COUNT = '00000019'X ! 25 Count of valid extens ionsQ PARAMETER ISS$_EXTENSION_ARRAY = '0000001A'X ! 26 Array of valid extension IDsO PARAMETER ISS$_RIGHTS_INDEX = '0000001B'X ! 27 Rights Chain Index - sets the" ! chain for all rights list  ! operations. O PARAMETER ISS$_INPUT_DATA = '0000001C'X ! 28 Generic buffer for IN/OUT query< PARAMETER ISS$_POSIX_UID = '0000001D'X ! 29 POSIX User ID= PARAMETER ISS$_POSIX_GID = '0000001E'X ! 30 POSIX Group ID+ PARAMETER ISS$_MIN_ITEM_CODE = '00000001'X+ PARAMETER ISS$_MAX_ITEM_CODE = '0000001E'X ! +$ ! Bits within item code ISS$_FLAGS ! -- PARAMETER ISS$M_FLAG_PERMANENT = '00000001'X, PARAMETER ISS$M_FLAG_SECAUDIT = '00000002'X STRUCTURE /ISSFLAGSDEF/ UNION MAP+ PARAMETER ISS$S_FLAG_PERMANENT = 1+ PARAMETER ISS$V_FLAG_PERMANENT = 0* PARAMETER ISS$S_FLAG_SECAUDIT = 1* PARAMETER ISS$V_FLAG_SECAUDIT = 1 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! ISSFLAGSDEF< ! Codes that represent common attr ibutes that are normally% ! present in all persona extensions4 PARAMETER ISS$_COMMON_FLAGS = '00000400'X ! Flags: PARAMETER ISS$_COMMON_USERNAME = '00000401'X ! Username8 PARAMETER ISS$_COMMON_ACCOUNT = '00000402'X ! Account/ PARAMETER ISS$_DOMAIN = '00000403'X ! Domain< PARAMETER ISS$_COMMON_PRINCIPAL = '00000404'X ! principal! PARAMETER ISS$_DOI = '00000405'X: PARAMETER ISS$_EXTENSION = '00000406'X ! Extension name; PARAMETER ISS$_MAKE_TLV = '00000407'X ! For NSA$MAKE_TLV !2 PARAMETER ISS$_MIN_COMMON_ITEM_CODE = '00000400'X2 PARAMETER ISS$_MAX_COMMON_ITEM_CODE = '00000407'XG ! Codes that represent attributes specific to each persona extension.- ! These codes are shared by all extensions.# ! NT Persona extension item codes0 PARAMETER ISS$_NT_TOKEN = '00002000'X ! tokenF PARAMETER ISS$_NT_SECURITY_SUBJECT = '00002001'X ! securtiy context& PARAMETER ISS$_NT_FLAGS = '00002002'X. PARAMETER ISS$_NT_USER_REFCOUNT = '00002003'X* PARAMETER ISS$_NT_PRINCIPAL = " '00002004'XP PARAMETER ISS$_NT_CREDENTIALS = '00002005'X ! access token + security context4 PARAMETER ISS$_NT_NT_OWF_PASSWORD = '00002006'X ! 4 PARAMETER ISS$_NT_LM_OWF_PASSWORD = '00002007'X ! 1 PARAMETER ISS$_NT_UNPACK_CRED_SIZE = '00002008'X. PARAMETER ISS$_NT_TOKEN_TOKENID = '00002009'X7 PARAMETER ISS$_NT_TOKEN_IMPERSONATELEVEL = '0000200A'X7 PARAMETER ISS$_NT_TOKEN_AUTHENTICATIONID = '0000200B'X8 PARAMETER ISS$_NT_TOKEN_USERANDGROUPCOUNT = '0000200C'X5 PARAMETER ISS$_NT_TOKEN_VAR #IABLELENGTH = '0000200D'X4 PARAMETER ISS$_NT_TOKEN_USERANDGROUPS = '0000200E'X8 PARAMETER ISS$_NT_TOKEN_USERANDGROUPS_SID = '0000200F'X3 PARAMETER ISS$_NT_TOKEN_PRIMARYGROUP = '00002010'X1 PARAMETER ISS$_NT_TOKEN_PRIVILEGES = '00002011'X2 PARAMETER ISS$_NT_TOKEN_DEFAULTDACL = '00002012'X. PARAMETER ISS$_NT_TOKEN_UNIXUID = '00002013'X. PARAMETER ISS$_NT_TOKEN_UNIXGID = '00002014'X. PARAMETER ISS$_NT_TOKEN_GIDINFO = '00002015'X3 PARAMETER ISS$_NT_TOKEN_GIDINFO_GIDS = '00002016'X/ PARAMETER $ ISS$_NT_TOKEN_UNIXNAME = '00002017'X1 PARAMETER ISS$_NT_TOKEN_DOMAINNAME = '00002018'X/ PARAMETER ISS$_NT_TOKEN_USERNAME = '00002019'X5 PARAMETER ISS$_NT_TOKEN_USERSESSIONKEY = '0000201A'X3 PARAMETER ISS$_NT_TOKEN_LMSESSIONKEY = '0000201B'X3 PARAMETER ISS$_NT_TOKEN_VARIABLEPART = '0000201C'X1 PARAMETER ISS$_NT_TOKEN_GROUP_LIST = '0000201D'X6 PARAMETER ISS$_NT_TOKEN_PRIVILEGES_LIST = '0000201E'X3 PARAMETER ISS$_NT_SECURITY_SIGNATURE = '0000201F'X0 PARAMETER ISS$_NT_SECURITY_SMBUID = ' %00002020'X8 PARAMETER ISS$_NT_SECURITY_PROCESSAUDITID = '00002021'X3 PARAMETER ISS$_NT_SECURITY_PROCESSID = '00002022'X1 PARAMETER ISS$_NT_SECURITY_LOGONID = '00002023'X3 PARAMETER ISS$_NT_SECURITY_LOGONTYPE = '00002024'X6 PARAMETER ISS$_NT_SECURITY_SUBJECTFLAGS = '00002025'X7 PARAMETER ISS$_NT_SECURITY_CONTEXT_OTHER = '00002026'X. PARAMETER ISS$_MIN_NT_ITEM_CODE = '00002000'X. PARAMETER ISS$_MAX_NT_ITEM_CODE = '00002026'X ! +& ! Bits within item code ISS$_ENABLED ! -. PARAMETER ISS&$M_ENABLED_PERSONA = '00000001'X0 PARAMETER ISS$M_ENABLED_SUBSYSTEM = '00000002'X, PARAMETER ISS$M_ENABLED_IMAGE = '00000004'X- PARAMETER ISS$M_ENABLED_SYSTEM = '00000008'X0 PARAMETER ISS$M_ENABLED_TEMPORARY = '00000010'X STRUCTURE /ISSENABLEDDEF/ UNION MAP, PARAMETER ISS$S_ENABLED_PERSONA = 1, PARAMETER ISS$V_ENABLED_PERSONA = 0. PARAMETER ISS$S_ENABLED_SUBSYSTEM = 1. PARAMETER ISS$V_ENABLED_SUBSYSTEM = 1* PARAMETER ISS$S_ENABLED_IMAGE = 1*' PARAMETER ISS$V_ENABLED_IMAGE = 2+ PARAMETER ISS$S_ENABLED_SYSTEM = 1+ PARAMETER ISS$V_ENABLED_SYSTEM = 3. PARAMETER ISS$S_ENABLED_TEMPORARY = 1. PARAMETER ISS$V_ENABLED_TEMPORARY = 4 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! ISSENABLEDDEF ! ARB_SUPPORT constants% PARAMETER ISS$C_ARB_UNSPECIFIED = -1' PARAMETER ISS$C_ARB_NONE = '00000000'X( PARAMETER ISS$C_ARB_CLEAR = '00000001'X, PARAMETER ISS$C_ARB_READ_ONLY = '00000002('X' PARAMETER ISS$C_ARB_FULL = '00000003'XS PARAMETER ISS$C_ARB_FORCE = '00000004'X ! Ignore multiple usermode persona check+ PARAMETER ISS$C_ARB_MAX_CODE = '00000004'X+ PARAMETER ISS$C_ARB_MIN_CODE = '00000000'X ! Reserved Persona Ids) PARAMETER ISS$C_ID_NATURAL = '00000001'X# PARAMETER ISS$C_ID_POSIX_REAL = -2& PARAMETER ISS$C_ID_IMAGE_PERSONA = -2 ! +" ! Persona services control flags ! -( PARAMETER ISS$M_IMP_FLAGS = '0000007F'X1 PARAMETER ISS$M_ASSUME_NODEREF_OLD = '00010)000'X/ PARAMETER ISS$M_ASSUME_NOREF_NEW = '00020000'X- PARAMETER ISS$M_CREATE_DEFPRIV = '00000008'X. PARAMETER ISS$M_CREATE_DEFCLASS = '00000010'X. PARAMETER ISS$M_CREATE_AUTHPRIV = '00000020'X' PARAMETER ISS$M_NOACCESS = '00100000'X STRUCTURE /ISSSRVCFLG/ UNION !  ! Common flags !  MAP& PARAMETER ISS$S_IMP_FLAGS = 7H PARAMETER ISS$V_IMP_FLAGS = 0 ! Previously defined IMP flags BYTE %FILL (1) END MAP ! ! ASSUME service control flags* !  MAP/ PARAMETER ISS$S_ASSUME_NODEREF_OLD = 1O PARAMETER ISS$V_ASSUME_NODEREF_OLD = 16 ! Do not drop a reference to ! the old (pre-ASSUME) persona- PARAMETER ISS$S_ASSUME_NOREF_NEW = 1L PARAMETER ISS$V_ASSUME_NOREF_NEW = 17 ! Do not add a reference to! ! the new (post-ASSUME) persona BYTE %FILL (1) END MAP ! ! CREATE service control flags !  MAP+ PARAMETER ISS$S_CREATE_DEFPRIV = 1I PARAMETER ISS +$V_CREATE_DEFPRIV = 3 ! Create psb w/ def. privs., PARAMETER ISS$S_CREATE_DEFCLASS = 1J PARAMETER ISS$V_CREATE_DEFCLASS = 4 ! Create psb w/ def. class., PARAMETER ISS$S_CREATE_AUTHPRIV = 1K PARAMETER ISS$V_CREATE_AUTHPRIV = 5 ! Create psb w/ auth. privs. ! and the assume flags.% PARAMETER ISS$S_NOACCESS = 1C PARAMETER ISS$V_NOACCESS = 20 ! When set, do not access ! the SYSUAF or RIGHTSLIST. ! This is similar to  ! C,REATE_USER_PROFILE. BYTE %FILL (1) END MAP END UNION END STRUCTURE ! ISSSRVCFLG ! NT TLV version number + PARAMETER ISS$K_NT_VERSION_1 = '00000001'X!DEC$ END OPTIONS wwZΦ!*** MODULE $JBCMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:02.67 !  !  ! VERSION: 'X-5' ! M ! ******************************************************************-*******M ! * *M ! * COPYRIGHT 2004 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *M ! * *M ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR *M ! * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. *M ! * *M ! * CONSISTENT. WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *M ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *M ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *M ! * COMMERCIAL LICENSE. *M ! * *M ! * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL *M ! * OR EDITORIAL ERRORS OR OMISSIONS CON/TAINED HEREIN. THE INFORMATION *M ! * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND *M ! * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS *M ! * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING *M ! * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN *M ! * ADDITIONAL WARRANTY. *M ! * 0 *M ! ************************************************************************* !  ! MODIFIED BY: ! D ! X-5 CAK ASWIN CHALUPADI 28-FEB-2006H ! ADD NEW LMFLICERR TO SIGNAL WHEN NON-COMPLIANT LICENSEQ ! IS DETECTED. ALSO ADD TWO OTHER GENERIC ERRORS FOR FURTHER USE. ! / ! X-4 DJS DAVID J. SWEENEY 16-FEB-2001? ! ADD NOTIMZONRUL TO BE SIGNALLED WHEN THE SYS$TIMEZONE_RULE@ ! LOGICAL IS NOT DEFINED, MEANI 1NG DAYLIGHT SAVINGS TIME CLOCK! ! ADJUSTMENT WILL NOT BE MADE. ! D ! X-3 LAD LORI A. DESMARAIS 03-JUN-1993K ! ADD ACCNOTENB, TO BE USED WHEN ACCOUNTING IS DISABLED AND3 ! SJC$_NEW_VERSION ITEM IS PRESENT. ! + ! X-2 RAB RICHARD A. BISHOP 19-MAY-1992* ! PICK UP QMANABORT MESSAGE FROM BLADE: ! ) ! X-18 TNF0319 TODD FLOLO 12 FEB 1992D ! ADD QMANABORT, DENOTING THAT A REQUEST CAUSED THE QUEUE MANAGER ! TO ABORT. 2 !  ! OLD AUDIT TRAIL..... ! , ! X-17 RG40209 RAY GUZMAN 11-NOV-1991C ! ADD THREE NEW MESSAGES TO RETURN TO THE USER. QMGREXISTS ISC ! RETURNED WHEN AN ATTEMPT TO ADD A QUEUE MANAGER NAME THAT ISC ! ALREADY DEFINED IS MADE. TWOQMGRS IS RETURNED WHEN A REQUESTC ! IS MADE THAT WOULD REQUIRE INFORMATION FROM TWO DIFFERENTC ! QUEUE MANAGERS. INVQMANNAM IS RETURNED FOR INVALIDE QUEUEE ! MANAGER NAMES. NOMOREQMGR IS RETURNED DURING WILDCARD SEARCHES. 3 ! , ! X-16 RG40126 RAY GUZMAN 4-APR-1991C ! MODIFY THE TEXT OF TWO MESSAGES INVMSG, NOAUTOSTART &C ! QUEDISABLED. ALSO REMOVE BADMSG, NOMASTER, & BADLOCK FROMC ! THIS FILE SINCE THEY ARE NO LONGER USEFUL AND NEVER WENT WITHC ! ANY SHIPPED RELEASE. ALSO ADD FAILCREPRC TO THE LIST OF ! MESSAGES TO BE SIGNALLED. ! , ! X-15 RG40063 RAY GUZMAN 8-FEB-1991C ! ADD TWO NEW MESSAGES ONE FOR UNEXPECTED QUEUE MANAGER FAILURES5 ! AND ANOTHER F 4OR RESOLVING LOST DELPROC MESSAGES. ! , ! X-14 RG40052 RAY GUZMAN 22-JAN-19913 ! MODIFY JBC$_NOTSUPPORTED TO BE A SEVERE ERROR. ! , ! X-13 RG40043 RAY GUZMAN 11-JAN-1991C ! ADD BUFTOOSMALL TO INDICATE THAT ALL THE DESIRED DATA COULDC ! NOT BE RETURNED BECAUSE OF A LIMITTED BUFFER SIZE. ALSO ADDC ! QMANNOTSTARTED TO INDICATE THAT THE QUEUE MANAGER COULD NOT BE ! STARTED. ! - ! X-12 SEH0032 SUSAN HEIMBACH 6-SEP-1990) ! MODIFY NOTSUPPORTED AND T5OOMUCHINFO., ! ADD INITFAIL AND NOMASTER. ! - ! X-11 SEH0020 SUSAN HEIMBACH 12-OCT-1989 ! ADD MESSAGES FOR VERSION 6. ! ( ! X-10 JAK0579 J A KRYCKA 18-NOV-1987 ! ADD MESSAGE JOBCTLABORT. ! ) ! X-9 JES0038 JACK SPEIGHT 07-JAN-1987+ ! ADD NEW ERRORS - NOSUCHENT, NOMOREENT. ! , ! X-8 JES0037 JACK SPEIGHT 23-OCT-19866 ! FIX ERROR NFYQUESTATE TO ALLOW A PARAMETER, WHERE4 ! THAT PARAMETER WILL BE USED TO SPECIFY A NUMBER4 ! OF QUEUE STATES6 - STALLED, STOPPED, PAUSED ETC. ! ) ! X-7 JES0036 JACK SPEIGHT 08-SEP-19865 ! ADD NEW MESSAGES FOR VERSION 5.0 - BASE LEVEL 1. ! - ! V04-007 JES0035 JACK SPEIGHT 04-OCT-1985% ! CHANGE TEXT FOR JBC$_NOSUCHNODE. ! - ! V04-006 JES0034 JACK SPEIGHT 05-SEP-1985* ! ADD JBC$_NOSUCHNODE, JBC$_RESTARTCOM. ! + ! V04-005 JAK0407 J A KRYCKA 29-APR-1985A ! MOVE JBC$_NOCMKRNL, JBC$_NOOPER, AND JBC$_SYSNAM DEFINITIONS ! HERE FROM JOBCTLDEF.REQ. ! + ! V04-004 JAK0 7405 J A KRYCKA 26-APR-1985; ! ADD JBC$_NOMORECHAR, JBC$_NOMOREFILE, JBC$_NOMOREFORM,E ! JBC$_NOMOREJOB, JBC$_NOMOREQUE, JBC$_NOJOBCTX, AND JBC$_NOQUECTX ! MESSAGES. ! - ! V04-003 JES0033 JACK SPEIGHT 26-APR-1985> ! SPECIFY AN EXPLICIT SEVERITY LEVEL FOR EACH ERROR MESSAGE= ! SO THAT THE DEFINITIONS HERE AGREE WITH WHAT IS ACTUALLYC ! RETURNED BY THE JOB CONTROLLER IN THE USER'S I/O STATUS BLOCK.A ! PRIOR TO THIS CHANGE ALL NON-SUCCESS CODES WERE DEFINED HEREB ! W 8ITH A SEVERITY LEVEL OF WARNING AND THE JOB CONTROLLER ADDED@ ! THE PROPER SEVERITY LEVEL. ALSO MAKE MINOR EDITS TO CERTAIN ! MESSAGE TEXT. ! 0 ! V04-002 JES0032 JACK SPEIGHT 03-APR-1985: ! ADD JBC$_RESTRICT, JBC$_NFY_FAILURE, JBC$_NFY_CPULIM,! ! AND JBC$_NFY_WSVAL MESSAGES. ! 0 ! V04-001 JES0031 JACK SPEIGHT 15-MAR-1985! ! ADD JBC$_QUENOTSTOP MESSAGE.& PARAMETER JBC$_FACILITY = '00000004'X ! R ! THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SND 9JBC, AND $SNDSMB6 ! SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. ! H ! THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. ! Q ! NOTE: ERROR CODES WITH ASSOCIATED TEXT OF <> ARE RETIRED ERROR CODES AND HAVE ! A SEVERITY LEVEL OF SEVERE. ! D PARAMETER JBC$_NORMAL = '00040001'X ! P PARAMETER JBC$_NOCMKRNL = '00042802'X ! L PARAMETER JBC$_NOOPER = '00042892'X ! P PARAMETER JBC$_NOSYSNAM = '00042812'X ! ' PARAMETER JBC$_ILLDEVNAM = '00048004'X' PARAMETER JBC$_UNSDEVTYP = '0004800C'X' PARAMETER JBC$_ILLFILNAM = '00048014'X' PARAMETER JBC$_INVQUENAM = '0004801C'X$ PARAMETER JBC$_NOPRIV = '00048022'X& PARAMETER JBC$_NOQUEHDR = '0004802C'X( PARAMETER JBC$_NOQUESPACE = '00048032'X' PARAMETER JBC$_NOSUCHQUE = '0004803A'X' PARAMETER JBC$_NOSUCHJOB = '00048042'X' PARAMETER JBC$_NOOPENJOB = '0004804A'X( P ;ARAMETER JBC$_REFERENCED = '00048052'X% PARAMETER JBC$_STARTED = '0004805A'X' PARAMETER JBC$_INVITMCOD = '00048064'X' PARAMETER JBC$_INVFUNCOD = '0004806C'X& PARAMETER JBC$_EMPTYJOB = '00048072'X' PARAMETER JBC$_JOBQUEDIS = '0004807A'X& PARAMETER JBC$_JOBABORT = '00048084'X& PARAMETER JBC$_ACMINVOP = '0004808C'X' PARAMETER JBC$_INVPARLEN = '00048094'X' PARAMETER JBC$_TRMMBXUSE = '0004809C'X' PARAMETER JBC$_MAXSYMEXD = '000480A4'X' PARAMETER JBC$_SCTTABFUL = '000480AC'X' PARAMETER J <BC$_CREPRCFAL = '000480B4'X' PARAMETER JBC$_SYMNTBFUL = '000480BC'X& PARAMETER JBC$_NODSTQUE = '000480C2'X' PARAMETER JBC$_INVDSTQUE = '000480CC'X' PARAMETER JBC$_JOBDELETE = '000480D4'X' PARAMETER JBC$_NORESTART = '000480DA'X( PARAMETER JBC$_JOBREQUEUE = '000480E4'X& PARAMETER JBC$_QUERESET = '000480EC'X% PARAMETER JBC$_SYSFAIL = '000480F4'X' PARAMETER JBC$_EXECUTING = '000480FA'X' PARAMETER JBC$_INVMSGBUF = '00048104'X' PARAMETER JBC$_MISREQPAR = '0004810C'X' PARAMETER JBC$_INVP =ARVAL = '00048114'X' PARAMETER JBC$_INCQUETYP = '0004811C'X' PARAMETER JBC$_INCDSTQUE = '00048124'X' PARAMETER JBC$_JOBQUEENA = '0004812A'X' PARAMETER JBC$_NOTASSIGN = '00048132'X( PARAMETER JBC$_INCOMPLETE = '0004813A'X' PARAMETER JBC$_INVCHANAM = '00048144'X' PARAMETER JBC$_INVFORNAM = '0004814C'X( PARAMETER JBC$_NOSUCHCHAR = '00048152'X( PARAMETER JBC$_NOSUCHFORM = '0004815A'X% PARAMETER JBC$_DUPFORM = '00048162'X( PARAMETER JBC$_INCFORMPAR = '0004816C'X( PARAMETER JBC$_NOSUCHFI >LE = '00048172'X' PARAMETER JBC$_DELACCESS = '0004817A'X( PARAMETER JBC$_QUENOTSTOP = '00048182'X( PARAMETER JBC$_NOMORECHAR = '0004818A'X( PARAMETER JBC$_NOMOREFILE = '00048192'X( PARAMETER JBC$_NOMOREFORM = '0004819A'X' PARAMETER JBC$_NOMOREJOB = '000481A2'X' PARAMETER JBC$_NOMOREQUE = '000481AA'X& PARAMETER JBC$_NOJOBCTX = '000481B2'X& PARAMETER JBC$_NOQUECTX = '000481BA'X( PARAMETER JBC$_NOSUCHNODE = '000481C2'X% PARAMETER JBC$_GEN_MAX = '000481CA'X( PARAMETER JBC$_QUE_CLOSED = '00 ?0481D2'X' PARAMETER JBC$_NOSUCHENT = '000481DA'X' PARAMETER JBC$_NOMOREENT = '000481E2'X) PARAMETER JBC$_JOBCTLABORT = '000481EC'X* PARAMETER JBC$_NOTSUPPORTED = '000481F4'X+ PARAMETER JBC$_NOTMEANINGFUL = '000481FB'X) PARAMETER JBC$_QUEDISABLED = '00048202'X) PARAMETER JBC$_NOTDISABLED = '0004820A'X' PARAMETER JBC$_NOTENAGEN = '00048212'X' PARAMETER JBC$_ENABLEQUE = '00048218'X' PARAMETER JBC$_QUENOTMOD = '00048223'X% PARAMETER JBC$_ATT_MAX = '0004822A'X) PARAMETER JBC$_ATTNOTAV @AIL = '00048232'X% PARAMETER JBC$_QEXISTS = '0004823A'X( PARAMETER JBC$_NOSUCHQMGR = '00048242'X( PARAMETER JBC$_JOBNOTEXEC = '0004824A'X) PARAMETER JBC$_DUPCHARNAME = '00048252'X( PARAMETER JBC$_DUPCHARNUM = '0004825A'X) PARAMETER JBC$_DUPFORMNAME = '00048262'X* PARAMETER JBC$_STKNOTCHANGE = '0004826A'X( PARAMETER JBC$_ITMREMOVED = '00048273'X' PARAMETER JBC$_PRIOSMALL = '0004827B'X% PARAMETER JBC$_QMANMAX = '00048280'X) PARAMETER JBC$_NOAUTOSTART = '00048288'X) PARAMETER JBC$_NOTA ALLREQUE = '00048290'X# PARAMETER JBC$_NULL1 = '0004829C'X) PARAMETER JBC$_TOOMUCHINFO = '000482A2'X* PARAMETER JBC$_AUTONOTSTART = '000482AB'X# PARAMETER JBC$_NULL2 = '000482B2'X, PARAMETER JBC$_QMANNOTSTARTED = '000482BA'X) PARAMETER JBC$_BUFTOOSMALL = '000482C0'X+ PARAMETER JBC$_INTERNALERROR = '000482C8'X( PARAMETER JBC$_QMGREXISTS = '000482D2'X& PARAMETER JBC$_TWOQMGRS = '000482DA'X( PARAMETER JBC$_INVQMANNAM = '000482E2'X( PARAMETER JBC$_NOMOREQMGR = '000482EA'X' PARAMETER JBC$_BQMANABORT = '000482F4'X ! O ! THE FOLLOWING CODES ARE SIGNALLED TO THE CONSOLE OR BROADCAST TO THE USER'S# ! TERMINAL BY THE JOB CONTROLLER. ! J ! THESE MESSAGES ARE NOT PUBLIC AND MAY CHANGE FROM RELEASE TO REALEASE. ! P ! NOTE: THE JOB CONTROLLER ABORTS EXECUTION AND RESTARTS ITSELF WHEN A SEVERE' ! ERROR IS SIGNALLED TO THE CONSOLE. ! ' PARAMETER JBC$_ACCDISERR = '00048403'X& PARAMETER JBC$_ALLOCMEM = '0004840C'X' PARAMETER JBC$_COMREMJBC = '00048414'X& PARAMETER J CBC$_INVBLOCK = '0004841C'X$ PARAMETER JBC$_INVMSG = '00048422'X& PARAMETER JBC$_NEWQUEUE = '0004842B'X' PARAMETER JBC$_OPEJBCMBX = '00048434'X% PARAMETER JBC$_PRCREAT = '0004843C'X' PARAMETER JBC$_QUEFORMAT = '00048440'X' PARAMETER JBC$_REAJBCMBX = '0004844C'X% PARAMETER JBC$_REQUEST = '00048453'X$ PARAMETER JBC$_SETIMR = '0004845A'X' PARAMETER JBC$_SYMCREPRC = '00048462'X$ PARAMETER JBC$_SYMDEL = '0004846A'X' PARAMETER JBC$_WRIRSPMSG = '00048472'X' PARAMETER JBC$_WRISMBMBX = '00048 D47A'X* PARAMETER JBC$_NFY_COMPLETE = '00048483'X) PARAMETER JBC$_NFY_CURRENT = '0004848B'X& PARAMETER JBC$_NFY_HOLD = '00048493'X) PARAMETER JBC$_NFY_PENDING = '0004849B'X' PARAMETER JBC$_NFY_TIMER = '000484A3'X* PARAMETER JBC$_STRUCT_LEVEL = '000484AB'X( PARAMETER JBC$_DIAGNOSTIC = '000484B0'X' PARAMETER JBC$_DIAG_TEXT = '000484B8'X' PARAMETER JBC$_DIAG_DATA = '000484C0'X& PARAMETER JBC$_RESTRICT = '000484C8'X) PARAMETER JBC$_NFY_FAILURE = '000484D3'X( PARAMETER JBC$_NFY_CPULIM = ' E000484DB'X' PARAMETER JBC$_NFY_WSVAL = '000484E3'X( PARAMETER JBC$_RESTARTCOM = '000484EB'X* PARAMETER JBC$_NFY_NOACCESS = '000484F3'X( PARAMETER JBC$_NFY_CHARAC = '000484FB'X) PARAMETER JBC$_NFY_NOLOWER = '00048503'X* PARAMETER JBC$_NFY_SIZE_MIN = '0004850B'X* PARAMETER JBC$_NFY_SIZE_MAX = '00048513'X& PARAMETER JBC$_NFY_FORM = '0004851B'X* PARAMETER JBC$_NFY_QUESTATE = '00048523'X( PARAMETER JBC$_FAILCREPRC = '0004852A'X( PARAMETER JBC$_QMANCREPRC = '00048532'X& PARAMETER JBC$_INITFAIL F = '0004853C'X% PARAMETER JBC$_QMANDEL = '00048542'X) PARAMETER JBC$_NOTIMZONRUL = '00048548'X( PARAMETER JBC$_LMFPRCFAIL = '00048550'X' PARAMETER JBC$_LMFLICERR = '00048558'X* PARAMETER JBC$_LMFERROR = '00048560'X ! : ! THIS IS CONTINUATION OF THE FIRST PORTION OF MESSAGES.R ! THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB6 ! SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. ! H ! THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE.G ! ' PARAMETER JBC$_ACCNOTENB = '00048FA2'X!DEC$ END OPTIONSwwpeDΦ!*** MODULE $JPIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! ; ! Get Job Process Information Data Identifier Definitions !  ! **** NOTE **** ! F ! New items must always be added to the END of each item listH ! (preceeding the ENDlistname item) so that users will not have ! to relink. ! - ! Scheduler policy definitionsN PARAMETHER JPI$K_DEFAULT_POLICY = '00000000'X ! Native VMS scheduling policyD PARAMETER JPI$K_PSX_FIFO_POLICY = '00000001'X ! POSIX fifo policyJ PARAMETER JPI$K_PSX_RR_POLICY = '00000002'X ! POSIX round-robbin policyO PARAMETER JPI$K_ALL_THREADS = '80000000'X ! policy affectsall kernel threads ! DEFINE TABLE NUMBERS # ! STRUCTURE CODES MUST START AT 1C PARAMETER JPI$C_ADRTYPE = '00000001'X ! ITEM IS ADDRESS OF DATA E PARAMETER JPI$C_CTLTYPE = '00000002'X ! ITEM IS IN CONTROL REGION I7 PARAMETER JPI$C_PCBTYPE = '00000003'X ! ITEM IN PCB 7 PARAMETER JPI$C_PHDTYPE = '00000004'X ! ITEM IN PHD ? PARAMETER JPI$C_PCBFLDTYPE = '00000005'X ! ITEM IS BIT FIELD? PARAMETER JPI$C_PHDFLDTYPE = '00000006'X ! ITEM IS BIT FIELD@ PARAMETER JPI$C_JIBTYPE = '00000007'X ! ITEM IN JIB (SUBTYPE)7 ! NOTE: The PSB replaces the ARB within this context!@ PARAMETER JPI$C_PSBTYPE = '00000008'X ! ITEM IN PSB (SUBTYPE)@ PARAMETER JPI$C_KTBTYPE = '00000009'X ! ITEM IN KTB (SUBTYPE)= J PARAMETER JPI$C_MAXSTRUC = '00000006'X ! TOTAL OF 6 TABLESD PARAMETER JPI$C_LISTEND = '00000000'X ! DEFINE ITMLST TERMINATOR / PARAMETER JPI$_CHAIN = -1 ! CHAIN INDICATORC PARAMETER JPI$_GETJPI_CONTROL_FLAGS = -2 ! SPECIAL CONTROL ITEMS/ PARAMETER JPI$M_NO_TARGET_INSWAP = '00000001'X, PARAMETER JPI$M_NO_TARGET_AST = '00000002'X3 PARAMETER JPI$M_IGNORE_TARGET_STATUS = '00000004'X% PARAMETER JPI$M_THREAD = '00000008'X. PARAMETER JPI$M_NATURAL_PERSONA = '00000010'X$ PARAMETER JPI K$M_FILL1 = '00007FE0'X. PARAMETER JPI$M_NEED_THREAD_CAP = '00008000'X STRUCTURE /JPICTLDEF/ UNION MAP2 INTEGER*4 %FILL ! Control item flags END MAP MAP1 PARAMETER JPI$S_NO_TARGET_INSWAP = 1d PARAMETER JPI$V_NO_TARGET_INSWAP = 0 ! Do not inswap the target process, (do deliver C ! Do not inswap the target process, (do deliver ASTs if it is. PARAMETER JPI$S_NO_TARGET_AST = 1L PARAMETER JPI$VL_NO_TARGET_AST = 1 ! Do not send AST to target5 PARAMETER JPI$S_IGNORE_TARGET_STATUS = 1R PARAMETER JPI$V_IGNORE_TARGET_STATUS = 2 ! Don't check target state' PARAMETER JPI$S_THREAD = 1d PARAMETER JPI$V_THREAD = 3 ! Return information about each thread for multithreaded C ! Return information about each thread for multithreaded proc0 PARAMETER JPI$S_NATURAL_PERSONA = 1d PARAMETER JPI$V_NATURAL_PERSONA = 4 ! M Select natural persona when processing securityC ! Select natural persona when processing security profile ite' PARAMETER JPI$S_FILL1 = 10V PARAMETER JPI$V_FILL1 = 5 ! Filler so NEED_THREAD_CAP bit is in bit 15d ! NOTE: This bit is used internally by $GETJPI in cluster environments. It is not specified by theC ! NOTE: This bit is used internally by $GETJPI in cluster env0 PARAMETER JPI$S_NEED_THREAD_CAP = 1d PARAMETER JPI$V_NEED_ NTHREAD_CAP = 15 ! Indicates that target node in a cluster needs C ! Indicates that target node in a cluster needs to know about ! threads BYTE %FILL (2) END MAP END UNION END STRUCTURE ! JPICTLDEF? ! NOTE: the following constants must match values in $JIBDEF!9 PARAMETER JPI$K_OTHER = '00000000'X ! JPI$_Mode values; PARAMETER JPI$K_NETWORK = '00000001'X ! JPI$_Mode values9 PARAMETER JPI$K_BATCH = '00000002'X ! JPI$_Mode values? PARAMETER JPI$K O_INTERACTIVE = '00000003'X ! JPI$_Mode values? PARAMETER JPI$K_DETACHED = '00000000'X ! JPI$_JOBTYPE values< PARAMETER JPI$K_LOCAL = '00000003'X ! JPI$_JOBTYPE values= PARAMETER JPI$K_DIALUP = '00000004'X ! JPI$_JOBTYPE values= PARAMETER JPI$K_REMOTE = '00000005'X ! JPI$_JOBTYPE values ! (also BATCH & INTERACTIVE)0 PARAMETER JPI$M_NEW_MAIL_AT_LOGIN = '00000001'X/ PARAMETER JPI$M_PASSWORD_CHANGED = '00000002'X/ PARAMETER JPI$M_PASSWORD_EXPIRED = '00000004'X/ PARAMETER JPI$M_P PASSWORD_WARNING = '00000008'X0 PARAMETER JPI$M_PASSWORD2_CHANGED = '00000010'X0 PARAMETER JPI$M_PASSWORD2_EXPIRED = '00000020'X0 PARAMETER JPI$M_PASSWORD2_WARNING = '00000040'X STRUCTURE /JPILGIDEF/ UNION MAP9 INTEGER*4 %FILL ! Miscellaneous LOGIN flags END MAP MAP2 PARAMETER JPI$S_NEW_MAIL_AT_LOGIN = 1S PARAMETER JPI$V_NEW_MAIL_AT_LOGIN = 0 ! User had new MAIL message(s)1 PARAMETER JPI$S_PASSWORD_CHANGEQD = 1N PARAMETER JPI$V_PASSWORD_CHANGED = 1 ! Primary password changed1 PARAMETER JPI$S_PASSWORD_EXPIRED = 1W PARAMETER JPI$V_PASSWORD_EXPIRED = 2 ! Primary password expired on login1 PARAMETER JPI$S_PASSWORD_WARNING = 1Z PARAMETER JPI$V_PASSWORD_WARNING = 3 ! Primary password expiration imminent2 PARAMETER JPI$S_PASSWORD2_CHANGED = 1Q PARAMETER JPI$V_PASSWORD2_CHANGED = 4 ! Secondary password change Rd2 PARAMETER JPI$S_PASSWORD2_EXPIRED = 1Z PARAMETER JPI$V_PASSWORD2_EXPIRED = 5 ! Secondary password expired on login2 PARAMETER JPI$S_PASSWORD2_WARNING = 1] PARAMETER JPI$V_PASSWORD2_WARNING = 6 ! Secondary password expiration imminent BYTE %FILL (1) END MAP END UNION END STRUCTURE ! JPILGIDEF ! ITEM IDENTIFIERS FOR PCB G PARAMETER JPI$_ASTACT = '00000300'X ! ACCESS MODES WITH ACTIVE ASTS G PARAMETER JPI$_ SASTEN = '00000301'X ! ACCESS MODES WITH ASTS ENABLED ? PARAMETER JPI$_PRI = '00000302'X ! CURRENT PROCESS PRIORITY V PARAMETER JPI$_OWNER = '00000303'X ! Epid of owner process, if this is a subprocess5 PARAMETER JPI$_UIC = '00000304'X ! UIC OF PROCESS 5 PARAMETER JPI$_STS = '00000305'X ! PROCESS STATUS 6 PARAMETER JPI$_STATE = '00000306'X ! PROCESS STATE : PARAMETER JPI$_MEM = '00000307'X ! MEMBER FIELD OF UIC 9 PARAMETER JPI$_GRP = '00000308'X ! GROUP FIELD OF UIC = PARAMTETER JPI$_PRIB = '00000309'X ! PROCESS BASE PRIORITY A PARAMETER JPI$_APTCNT = '0000030A'X ! ACTIVE PAGE TABLE COUNT @ PARAMETER JPI$_TMBU = '0000030B'X ! TERMINATION MAILBOX UNIT J PARAMETER JPI$_GPGCNT = '0000030C'X ! GLOBAL PAGE COUNT IN WORKING SET K PARAMETER JPI$_PPGCNT = '0000030D'X ! PROCESS PAGE COUNT IN WORKING SET = PARAMETER JPI$_ASTCNT = '0000030E'X ! AST COUNT REMAINING F PARAMETER JPI$_BIOCNT = '0000030F'X ! BUFFERED I/O COUNT REMAINING ; PARAMETER JPI$_BIOLM = U'00000310'X ! BUFFERED I/O LIMIT O PARAMETER JPI$_BYTCNT = '00000311'X ! BYTE COUNT REMAINING FOR BUFFERED I/O D PARAMETER JPI$_DIOCNT = '00000312'X ! DIRECT I/O COUNT REMAINING ? PARAMETER JPI$_DIOLM = '00000313'X ! DIRECT I/O COUNT LIMIT G PARAMETER JPI$_FILCNT = '00000314'X ! COUNT REMAINING OF OPEN FILES O PARAMETER JPI$_TQCNT = '00000315'X ! COUNT REMAINING OF TIMER QUEUE ENTRIES < PARAMETER JPI$_EFWM = '00000316'X ! EVENT FLAG WAIT MASK > PARAMETER JPI$_EFCS = '00000317 V'X ! LOCAL EVENT FLAGS 0-31 ? PARAMETER JPI$_EFCU = '00000318'X ! LOCAL EVENT FLAGS 32-63 = PARAMETER JPI$_PID = '00000319'X ! PROCESS IDENTIFICATION F PARAMETER JPI$_BYTLM = '0000031A'X ! BUFFERED I/0 BYTE COUNT LIMIT : PARAMETER JPI$_PRCCNT = '0000031B'X ! SUBPROCESS COUNT 6 PARAMETER JPI$_PRCNAM = '0000031C'X ! PROCESS NAME ? PARAMETER JPI$_TERMINAL = '0000031D'X ! LOGIN TERMINAL NAME Q PARAMETER JPI$_JOBPRCCNT = '0000031E'X ! TOTAL COUNT OF SUBPROCESSES IN A JOB A PARAMWETER JPI$_ENQCNT = '0000031F'X ! ENQUEUE COUNT REMAINING < PARAMETER JPI$_ENQLM = '00000320'X ! ENQUEUE COUNT LIMIT L PARAMETER JPI$_SWPFILLOC = '00000321'X ! SWAP FILE BACKING STORE ADDRESS L PARAMETER JPI$_MODE = '00000322'X ! MODE VALUE (FROM STS) - DEFINED ABOVE7 PARAMETER JPI$_JOBTYPE = '00000323'X ! JOB TYPE CODE: PARAMETER JPI$_PROC_INDEX = '00000324'X ! PROCESS INDEX? PARAMETER JPI$_MASTER_PID = '00000325'X ! MASTER PROCESS PIDA PARAMETER JPI$_RIGHTSLIST = '00000326'X X! PSB composite rights/ PARAMETER JPI$_CPU_ID = '00000327'X ! CPU IDE PARAMETER JPI$_STS2 = '00000328'X ! Second process status longwordS PARAMETER JPI$_NODENAME = '00000329'X ! Name of node on which process is runningT PARAMETER JPI$_NODE_CSID = '0000032A'X ! CSID of node on which process is running^ PARAMETER JPI$_NODE_VERSION = '0000032B'X ! VMS version of node on which process is runningO PARAMETER JPI$_TT_PHYDEVNAM = '0000032C'X ! Physical device name of terminalK PARAMETYER JPI$_TT_ACCPORNAM = '0000032D'X ! Access port name of terminalC PARAMETER JPI$_PROCESS_RIGHTS = '0000032E'X ! PSB persona rightsA PARAMETER JPI$_SYSTEM_RIGHTS = '0000032F'X ! PSB system rightsN PARAMETER JPI$_IMAGE_RIGHTS = '00000330'X ! PSB protected sub-system rightsa PARAMETER JPI$_RIGHTS_SIZE = '00000331'X ! Approximate size (in bytes) of all PSB rights listsO PARAMETER JPI$_CLASSIFICATION = '00000332'X ! PSB current MAC classification? PARAMETER JPI$_SCHED_POLICY = '0000Z0333'X ! Scheduler policyV PARAMETER JPI$_RMS_FILEPROT = '00000334'X ! Process default file protection for RMSO PARAMETER JPI$_MULTITHREAD = '00000335'X ! Kernel threads - max thread countH PARAMETER JPI$_KT_COUNT = '00000336'X ! Kernel threads - thread countX PARAMETER JPI$_INITIAL_THREAD_PID = '00000337'X ! Kernel threads - initial thread PIDL PARAMETER JPI$_THREAD_INDEX = '00000338'X ! Kernel threads - thread indexY PARAMETER JPI$_CURRENT_USERCAP_MASK = '00000339'X ! KTB curre[nt user capabilities mask] PARAMETER JPI$_PERMANENT_USERCAP_MASK = '0000033A'X ! KTB permanent user capabilities maskQ PARAMETER JPI$_CURRENT_AFFINITY_MASK = '0000033B'X ! KTB current affinity maskU PARAMETER JPI$_PERMANENT_AFFINITY_MASK = '0000033C'X ! KTB permanent affinity mask= PARAMETER JPI$_PERSONA_ID = '0000033D'X ! Persona (PSB) idP PARAMETER JPI$_PERSONA_AUTHPRIV = '0000033E'X ! PSB authorized privilege maskY PARAMETER JPI$_PERSONA_PERMPRIV = '0000033F'X ! PSB permanent\ (default) privilege maskV PARAMETER JPI$_PERSONA_WORKPRIV = '00000340'X ! PSB working (active) privilege maskd PARAMETER JPI$_IMAGE_WORKPRIV = '00000341'X ! PSB installed image working (active) privilege maskd PARAMETER JPI$_PERSONA_RIGHTS_SIZE = '00000342'X ! Approximate size (in bytes) of PSB persona rigC PARAMETER JPI$_PERSONA_RIGHTS = '00000343'X ! PSB persona rightsd PARAMETER JPI$_SUBSYSTEM_RIGHTS_SIZE = '00000344'X ! Approximate size (in bytes) of PSB protectedC ! Approx]imate size (in bytes) of PSB protected sub-system rigR PARAMETER JPI$_SUBSYSTEM_RIGHTS = '00000345'X ! PSB protected sub-system rightsd PARAMETER JPI$_INSTALL_RIGHTS_SIZE = '00000346'X ! Approximate size (in bytes) of PSB installed iK PARAMETER JPI$_INSTALL_RIGHTS = '00000347'X ! PSB installed image rightse PARAMETER JPI$_SYSTEM_RIGHTS_SIZE = '00000348'X ! Approximate size (in bytes) of PSB system rightsP PARAMETER JPI$_CURRENT_CAP_MASK = '00000349'X ! KTB current capabilities maskT^ PARAMETER JPI$_PERMANENT_CAP_MASK = '0000034A'X ! KTB permanent capabilities maskH PARAMETER JPI$_SCHED_CLASS_NAME = '0000034B'X ! Scheduling class name7 PARAMETER JPI$_HOME_RAD = '0000034C'X ! KTB Home RADH PARAMETER JPI$_POSIX_SID = '0000034D'X ! Session ID for POSIX and COEO PARAMETER JPI$_POSIX_PGID = '0000034E'X ! Process Group ID for POSIX and COEU PARAMETER JPI$_CREATOR = '0000034F'X ! Epid of creator process (Unix-style parent)> PARAMETER JPI$_KRNLTIM = '00000350'X ! Ke_rnel mode cpu timeA PARAMETER JPI$_EXECTIM = '00000351'X ! Executive mode cpu timeB PARAMETER JPI$_SUPRTIM = '00000352'X ! Supervisor mode cpu time< PARAMETER JPI$_USERTIM = '00000353'X ! User mode cpu timeS PARAMETER JPI$_ORG_BYTLM = '00000354'X ! Original buffered I/O byte count limit Z PARAMETER JPI$_DEADLOCK_WAIT = '00000355'X ! Per-process sub-second deadlock wait value* ! ADD NEW ITEM-CODES BEFORE THIS COMMENTA PARAMETER JPI$_LASTPCB = '00000356'X ! MAX INDEX IN PCB TABLE ` ! ITEM IDENTIFIERS FOR PHD I PARAMETER JPI$_CURPRIV = '00000400'X ! CURRENT PROCESS PRIVILEGE MASK E PARAMETER JPI$_WSAUTH = '00000401'X ! AUTHORIZED WORKING SET SIZE D PARAMETER JPI$_WSQUOTA = '00000402'X ! QUOTA ON WORKING SET SIZE C PARAMETER JPI$_DFWSCNT = '00000403'X ! DEFAULT WORKING SET SIZE V PARAMETER JPI$_FREP0VA = '00000404'X ! FIRST FREE VIRTUAL ADDR. AT END OF P0 SPACE N PARAMETER JPI$_FREP1VA = '00000405'X ! FIRST FREE ADDR. AT END OF P1 SPACE C PARAMETER JPI$_aDFPFC = '00000406'X ! DEFAULT PAGE FAULT CLUSTER > PARAMETER JPI$_CPUTIM = '00000407'X ! ACCUMULATED CPU TIME 9 PARAMETER JPI$_PRCLM = '00000408'X ! SUBPROCESS QUOTA 2 PARAMETER JPI$_ASTLM = '00000409'X ! AST LIMIT @ PARAMETER JPI$_PAGEFLTS = '0000040A'X ! COUNT OF PAGE FAULTS F PARAMETER JPI$_DIRIO = '0000040B'X ! PROCESS DIRECT I/O OPERATIONS H PARAMETER JPI$_BUFIO = '0000040C'X ! PROCESS BUFFERED I/O OPERATIONS E PARAMETER JPI$_CPULIM = '0000040D'X ! LIMIT ON CPUTIM FOR PRObCESS D PARAMETER JPI$_PGFLQUOTA = '0000040E'X ! MAX. VIRTUAL PAGE COUNT 8 PARAMETER JPI$_FILLM = '0000040F'X ! OPEN FILE LIMIT 9 PARAMETER JPI$_TQLM = '00000410'X ! TIMER QUEUE LIMIT B PARAMETER JPI$_WSSIZE = '00000411'X ! CURRENT WORKING SET SIZE H PARAMETER JPI$_AUTHPRIV = '00000412'X ! PSB authorized privilege maska PARAMETER JPI$_IMAGPRIV = '00000413'X ! PHD installed image permanent (default) privilege maskV PARAMETER JPI$_PAGFILCNT = '00000414'X ! Remaining paging file qucota of the processQ PARAMETER JPI$_FREPTECNT = '00000415'X ! ROOM FOR EXPANSION OF P0 OR P1 SPACE F PARAMETER JPI$_WSEXTENT = '00000416'X ! EXTENT OF WORKING SET SIZE K PARAMETER JPI$_WSAUTHEXT = '00000417'X ! MAX EXTENT OF WORKING SET SIZE J PARAMETER JPI$_AUTHPRI = '00000418'X ! AUTHORIZED PRIORITY FOR $SETPRI L PARAMETER JPI$_PAGFILLOC = '00000419'X ! PAGE FILE BACKING STORE ADDRESS P PARAMETER JPI$_IMAGECOUNT = '0000041A'X ! IMAGE COUNTER (CLOCKED BY RUNDOWN) D PARAMETER JPI$_dPHDFLAGS = '0000041B'X ! PROCESS HEADER FLAGS WORD; PARAMETER JPI$_VP_CPUTIM = '0000041C'X ! VECTOR CPU TIMEX PARAMETER JPI$_VP_CONSUMER = '0000041D'X ! Flag -- is this process a vector consumer?O PARAMETER JPI$_P0_FIRST_FREE_VA_64 = '0000041E'X ! First free VA in P0 spaceO PARAMETER JPI$_P1_FIRST_FREE_VA_64 = '0000041F'X ! First free VA in P1 spaceO PARAMETER JPI$_P2_FIRST_FREE_VA_64 = '00000420'X ! First free VA in P2 space^ PARAMETER JPI$_IMAGE_AUTHPRIV = '00000421'X ! PHD i enstalled image authorized privilege maskd PARAMETER JPI$_IMAGE_PERMPRIV = '00000422'X ! PHD installed image permanent (default) privilege m* ! ADD NEW ITEM-CODES BEFORE THIS COMMENTF PARAMETER JPI$_LASTPHD = '00000423'X ! MAX INDEX IN PROCESS HEADER ( ! ITEM IDENTIFIERS FOR CONTROL REGION = PARAMETER JPI$_VIRTPEAK = '00000200'X ! PEAK VIRTUAL SIZE ? PARAMETER JPI$_WSPEAK = '00000201'X ! PEAK WORKING SET SIZE > PARAMETER JPI$_USERNAME = '00000202'X ! PSB username stringA PARAMETERf JPI$_ACCOUNT = '00000203'X ! PSB account name stringQ PARAMETER JPI$_PROCPRIV = '00000204'X ! PSB permanent (default) privilege mask: PARAMETER JPI$_VOLUMES = '00000205'X ! VOLUMES MOUNTED M PARAMETER JPI$_LOGINTIM = '00000206'X ! TIME OF LOGIN OR PROCESS CREATION C PARAMETER JPI$_IMAGNAME = '00000207'X ! CURRENT IMAGE FILE NAME J PARAMETER JPI$_SITESPEC = '00000208'X ! PER-PROCESS SITE-SPECIFIC CELL G PARAMETER JPI$_MSGMASK = '00000209'X ! PROCESS DEFAULT MESSAGE FLAGSK PARgAMETER JPI$_CLINAME = '0000020A'X ! COMMAND LANGUAGE INTERPRETER NAMES PARAMETER JPI$_TABLENAME = '0000020B'X ! COMMAND LANGUAGE INTERPRETER TABLE NAMEX PARAMETER JPI$_CREPRC_FLAGS = '0000020C'X ! $CREPRC FLAGS USED TO CREATE THIS PROCESSA PARAMETER JPI$_UAF_FLAGS = '0000020D'X ! FLAGS FROM UAF RECORDV PARAMETER JPI$_MAXDETACH = '0000020E'X ! MAXIMUM DETACHED PROCESSES FOR SINGLE USERR PARAMETER JPI$_MAXJOBS = '0000020F'X ! MAXIMUM ACTIVE PROCESSES FOR SINGLE USERD PARAMETER JPI$_hSHRFILLM = '00000210'X ! MAXIMUM OPEN SHARED FILESW PARAMETER JPI$_FAST_VP_SWITCH = '00000211'X ! NUMBER OF FAST VECTOR CONTEXT SWITCHESW PARAMETER JPI$_SLOW_VP_SWITCH = '00000212'X ! NUMBER OF SLOW VECTOR CONTEXT SWITCHESE PARAMETER JPI$_LAST_LOGIN_I = '00000213'X ! Last interactive loginI PARAMETER JPI$_LAST_LOGIN_N = '00000214'X ! Last non-interactive loginR PARAMETER JPI$_LOGIN_FAILURES = '00000215'X ! Number of login failures at loginG PARAMETER JPI$_LOGIN_FLAGS = '00000216'iX ! Miscellaneous login flagsJ PARAMETER JPI$_RMS_DFMBC = '00000217'X ! RMS default: multi-block countT PARAMETER JPI$_RMS_DFMBFSDK = '00000218'X ! " " multi-buffer count for disk (SEQ)N PARAMETER JPI$_RMS_DFMBFSMT = '00000219'X ! " " multi-buffer count for tapeU PARAMETER JPI$_RMS_DFMBFSUR = '0000021A'X ! " " multi-buffer count for unit recordS PARAMETER JPI$_RMS_DFMBFREL = '0000021B'X ! " " multi-buffer count for REL filesT PARAMETER JPI$_RMS_DFMBFIDX = '0000021C'X ! " " multij-buffer count for ISAM files9 PARAMETER JPI$_RMS_PROLOGUE = '0000021D'X ! " " prologJ PARAMETER JPI$_RMS_EXTEND_SIZE = '0000021E'X ! " " file extend quantityC PARAMETER JPI$_RMS_DFNBC = '0000021F'X ! " " network block countE PARAMETER JPI$_RMS_DFLRL = '00000220'X ! " " Heuristic default LRLT PARAMETER JPI$_RMS_HEURISTIC = '00000221'X ! " " Heuristic enable/disable settingR PARAMETER JPI$_PARSE_STYLE_PERM = '00000222'X ! Parse style for life of processQ PARAMETER JPI$_PARSE_STYLE_kIMAGE = '00000223'X ! Parse style for life of imageC PARAMETER JPI$_RMSD6 = '00000224'X ! RMS dynamic parameter RMSD6V PARAMETER JPI$_RMS_QUERY_LOCK = '00000225'X ! RMS QUERY_LOCK enable/disable settingW PARAMETER JPI$_CASE_LOOKUP_PERM = '00000226'X ! Case lookup mode for life of processV PARAMETER JPI$_CASE_LOOKUP_IMAGE = '00000227'X ! Case lookup mode for life of image7 PARAMETER JPI$_UNITS = '00000228'X ! Bytes or Blocks< PARAMETER JPI$_TOKEN = '00000229'X ! Small or Large T loken* ! ADD NEW ITEM-CODES BEFORE THIS COMMENTF PARAMETER JPI$_LASTCTL = '0000022A'X ! MAX INDEX IN CONTROL REGION & ! ITEM IDENTIFIERS FOR ADDRESS DATA N PARAMETER JPI$_EXCVEC = '00000100'X ! ADDRESS OF "EXCEPTION VECTOR" VECTOR T PARAMETER JPI$_FINALEXC = '00000101'X ! ADDRESS OF LAST CHANCE EXCEPTION VECTORS * ! ADD NEW ITEM-CODES BEFORE THIS COMMENTE PARAMETER JPI$_LASTADR = '00000102'X ! MAX INDEX IN ADDRESS TABLE  ! ITEM IDENTIFIERS FOR PCBFLD& ! ADD ITEM-CODES BEFORE THmIS COMMENTG PARAMETER JPI$_LASTPCBFLD = '00000500'X ! MAX INDEX IN PCBFLD TABLE  ! ITEM IDENTIFIERS FOR PHDFLD& ! ADD ITEM-CODES BEFORE THIS COMMENTG PARAMETER JPI$_LASTPHDFLD = '00000600'X ! MAX INDEX IN PHDFLD TABLE !DEC$ END OPTIONS wwEΦ!*** MODULE $JPIFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! B ! Get Job Process Information "Fast" Data Identifier Definitions !  ! -' PARAMETER JPIF$M_UASTACT = '00000001'X' PAR nAMETER JPIF$C_UASTACT = '00000000'X) PARAMETER JPIF$M_RMS_DFMBC = '00000002'X) PARAMETER JPIF$C_RMS_DFMBC = '00000001'X0 PARAMETER JPIF$M_PARSE_STYLE_PERM = '00000004'X0 PARAMETER JPIF$C_PARSE_STYLE_PERM = '00000002'X1 PARAMETER JPIF$M_PARSE_STYLE_IMAGE = '00000008'X1 PARAMETER JPIF$C_PARSE_STYLE_IMAGE = '00000003'X* PARAMETER JPIF$M_LOGINTIM_L = '00000010'X* PARAMETER JPIF$C_LOGINTIM_L = '00000004'X* PARAMETER JPIF$M_LOGINTIM_H = '00000020'X* PARAMETER JPIF$C_LOGINTIM_H = '00000005'X&o PARAMETER JPIF$M_CPUTIM = '00000040'X& PARAMETER JPIF$C_CPUTIM = '00000006'X STRUCTURE /JPIFDEF/ UNION MAP INTEGER*4 %FILL(2) END MAP MAP) PARAMETER JPIF$S_UASTACT = 1D PARAMETER JPIF$V_UASTACT = 0 ! User mode AST active + PARAMETER JPIF$S_RMS_DFMBC = 1N PARAMETER JPIF$V_RMS_DFMBC = 1 ! RMS default multi-block count2 PARAMETER JPIF$S_PARSE_STYLE_PERM = 1L PARAMETER J pPIF$V_PARSE_STYLE_PERM = 2 ! Permanent parse style3 PARAMETER JPIF$S_PARSE_STYLE_IMAGE = 1J PARAMETER JPIF$V_PARSE_STYLE_IMAGE = 3 ! Image parse style , PARAMETER JPIF$S_LOGINTIM_L = 1E PARAMETER JPIF$V_LOGINTIM_L = 4 ! Login time - low LW, PARAMETER JPIF$S_LOGINTIM_H = 1F PARAMETER JPIF$V_LOGINTIM_H = 5 ! Login time - high LW( PARAMETER JPIF$S_CPUTIM = 1J PARAMETER JPIF$V_CPUTIM = 6 !q Process accumulated CPU time BYTE %FILL (1) END MAP END UNION END STRUCTURE ! JPIFDEF!DEC$ END OPTIONS ww,/FΦ!*** MODULE $KGBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ++I ! Key Grant Block definitions: Format of records in the rights databaseF ! file. These records (1) associate identifier codes with names, and: ! (2) list the holders of all identifiers in the system. ! --O ! WARNING : If you add a rttributes, you must change the following modules: ! 8 ! [AUDSRV]FORMATBL.B32 - add name to id_attr_table ! W ! Changing these modules is necessary so that auditing will reflect the new attr name !  ! B ! WARNING : If you add any fields, or change the size of theD ! NAME, the HOLDER, or the SYS_ID, be sure to update: ! the contents at the bottom of this file. ! ' PARAMETER KGB$M_RESOURCE = '00000001'X& PARAMETER KGB$M_DYNAMIC = '00000002 s'X' PARAMETER KGB$M_NOACCESS = '00000004'X( PARAMETER KGB$M_SUBSYSTEM = '00000008'X* PARAMETER KGB$M_IMPERSONATE = '00000010'X, PARAMETER KGB$M_HOLDER_HIDDEN = '00000020'X* PARAMETER KGB$M_NAME_HIDDEN = '00000040'XC PARAMETER KGB$K_HOLD_RECORD = '00000010'X ! End of holder recordH PARAMETER KGB$K_IDENT_RECORD = '00000030'X ! End of identifier recordC PARAMETER KGB$K_LEVEL1 = '00000101'X ! Version 1 structure levelI PARAMETER KGB$K_MAINT_RECORD = '00000040'X ! End of maintenance rec tord3 PARAMETER KGB$K_NUMBER_OF_ATTRIBUTES = '00000007'X STRUCTURE /KGBDEF/; INTEGER*4 KGB$L_IDENTIFIER ! Binary identifier code UNION MAPB INTEGER*4 KGB$L_ATTRIBUTES ! Attribute bit definitions END MAP MAP) PARAMETER KGB$S_RESOURCE = 1T PARAMETER KGB$V_RESOURCE = 0 ! Resource may be charged to identifier( PARAMETER KGB$S_DYNAMIC = 1S PARAMETER KGB$V_DYNAMIC = 1 ! Identifier may be uenabled or disabled) PARAMETER KGB$S_NOACCESS = 1_ PARAMETER KGB$V_NOACCESS = 2 ! Identifier will not be used in protection checks* PARAMETER KGB$S_SUBSYSTEM = 1] PARAMETER KGB$V_SUBSYSTEM = 3 ! Identifier denotes active protected subsystem, PARAMETER KGB$S_IMPERSONATE = 1Z PARAMETER KGB$V_IMPERSONATE = 4 ! Identifier can be used for impersonation. PARAMETER KGB$S_HOLDER_HIDDEN = 1P PAR vAMETER KGB$V_HOLDER_HIDDEN = 5 ! Holder records are restricted, PARAMETER KGB$S_NAME_HIDDEN = 1` PARAMETER KGB$V_NAME_HIDDEN = 6 ! $IDTOASC or $ASCTOID translation is restricted BYTE %FILL (1) END MAP END UNION5 INTEGER*4 KGB$Q_HOLDER(2) ! Holder identifierH CHARACTER*32 KGB$T_NAME ! Identifier name (blank filled string)5 INTEGER*2 KGB$W_LEVEL ! File structure level INTEGER*2 %FILL5 INTEGER*4 KGB$Q_SYS_ID( w2) ! System identifier< INTEGER*4 KGB$L_NEXT_ID ! Next available identifier END STRUCTURE ! KGBDEF ! ++- ! Define the environmental rights ID values ! --: PARAMETER KGB$K_BATCH_ID = '80000001'X ! Batch ID value< PARAMETER KGB$K_DIALUP_ID = '80000002'X ! Dialup ID valueF PARAMETER KGB$K_INTERACTIVE_ID = '80000003'X ! Interactive ID value: PARAMETER KGB$K_LOCAL_ID = '80000004'X ! Local ID value> PARAMETER KGB$K_NETWORK_ID = '80000005'X ! Network ID value< PARAMETxER KGB$K_REMOTE_ID = '80000006'X ! Remote ID valueD PARAMETER KGB$K_DECWINDOWS_ID = '80000007'X ! Decwindows ID valueI PARAMETER KGB$K_BOBUSER_ID = '80000008'X ! Buffer Object User ID valueU PARAMETER KGB$K_MRES_USER_ID = '80000009'X ! Memory Resident Section User ID valueN PARAMETER KGB$K_SAT_ACCESS_ID = '8000000A'X ! VMS$SATELLITE_ACCESS id valueQ PARAMETER KGB$K_LAST_ENV_ID = '8000000B'X ! NOTE: Add all new ones before this ! 1 ! Define the range of environmental identifierys ! * PARAMETER KGB$K_BASE_ENV_ID = '80000001'X0 PARAMETER KGB$K_NUMBER_OF_ENV_IDS = '0000000A'X ! P ! Define the restricted range of system identifiers as lowest id (%x800000000) ! to %x80010000. ! / PARAMETER KGB$K_RESTRICTED_RANGE = '80010000'X ! + ! Define the various access class ranges. ! - PARAMETER KGB$K_SEC_LEVEL_BASE = '800003E8'X- PARAMETER KGB$K_INT_LEVEL_BASE = '800004E8'X0 PARAMETER KGB$K_SEC_CATEGORY_BASE = '800005E8'X0 PARAMETER KGB$K_INT_CATEGORY_BASE z = '80000628'X4 PARAMETER KGB$K_SEC_ACCESS_CLASS_BASE = '800003E8'X3 PARAMETER KGB$K_SEC_ACCESS_CLASS_END = '80000668'X ! H ! Define the values for the optional $GRANTID/$REVOKID FLAGS argument. ! 7 PARAMETER KGB$K_PROCESS = '00000000'X ! local rights7 PARAMETER KGB$K_SYSTEM = '00000001'X ! system rightsC PARAMETER KGB$K_EXTENDED = '00000002'X ! local rights (extended)K PARAMETER KGB$K_IMAGE = '00000003'X ! image (protected subsystem) rights& PARAMETER KGB$K_MAX_SEG = '0000{0004'XO PARAMETER KGB$K_SUBSYSTEM = '00000003'X ! image (protected subsystem) rightsC PARAMETER KGB$S_NAME = '00000020'X ! Size of KGB Identifier NameE PARAMETER KGB$S_HOLDER = '00000008'X ! Size of KGB Holder ID valueB PARAMETER KGB$S_SYS_ID = '00000008'X ! Size of KGB System Ident? PARAMETER KGB$S_KGBDEF = '00000040'X ! Size of KGB structure!DEC$ END OPTIONS wwFΦ!*** MODULE $LADEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + !| & ! LPA-11 CHARACTERISTICS DEFINITIONS !  ! - ! MICROCODE TYPE VALUES A PARAMETER LA$K_MRMCODE = '00000001'X ! MULTIREQUEST MICROCODE B PARAMETER LA$K_ADMCODE = '00000002'X ! DEDICATED A/D MICROCODE B PARAMETER LA$K_DAMCODE = '00000003'X ! DEDICATED D/A MICROCODE % PARAMETER LA$M_MCVALID = '00000001'X$ PARAMETER LA$M_CLOCKA = '00000008'X$ PARAMETER LA$M_CLOCKB = '00000010'X! PARAMETER LA$M_AD1 = '00000020'X! PARAMETER LA$M_AD2 = '00000040'X PARAMETER LA$M_DA = '00000080}'X" PARAMETER LA$M_DIO1 = '00000100'X" PARAMETER LA$M_DIO2 = '00000200'X" PARAMETER LA$M_DIO3 = '00000400'X" PARAMETER LA$M_DIO4 = '00000800'X" PARAMETER LA$M_DIO5 = '00001000'X% PARAMETER LA$M_BFROVRN = '00800000'X STRUCTURE /LADEF/ UNION MAP# PARAMETER LA$S_MCVALID = 19 PARAMETER LA$V_MCVALID = 0 ! MICROCODE VALID " PARAMETER LA$S_MCTYPE = 27 PARAMETER LA$V_MCTYPE = 1 ! MICROCODE TYPE # PARAMETER LA$S_CONFIG = 10B PARAM~ETER LA$V_CONFIG = 3 ! DEVICE CONFIGURATION BITS PARAMETER LA$S_RATE = 32 PARAMETER LA$V_RATE = 13 ! CLOCK RATE # PARAMETER LA$S_PRESET = 16# PARAMETER LA$V_PRESET = 16, BYTE %FILL (4) ! CLOCK PRESET END MAP MAP" PARAMETER LA$S_CLOCKA = 10 PARAMETER LA$V_CLOCKA = 3 ! CLOCK A " PARAMETER LA$S_CLOCKB = 10 PARAMETER LA$V_CLOCKB = 4 ! CLOCK B  PARAMETER LA$S_AD1 = 1. PARAM ETER LA$V_AD1 = 5 ! A/D ! 1  PARAMETER LA$S_AD2 = 1. PARAMETER LA$V_AD2 = 6 ! A/D ! 2  PARAMETER LA$S_DA = 1) PARAMETER LA$V_DA = 7 ! D/A PARAMETER LA$S_DIO1 = 17 PARAMETER LA$V_DIO1 = 8 ! DIGITAL I/O ! 1 PARAMETER LA$S_DIO2 = 17 PARAMETER LA$V_DIO2 = 9 ! DIGITAL I/O ! 2 PARAMETER LA$S_DIO3 = 17 PARAMETER LA$V_DIO3 = 10 ! DIGITAL I/O ! 3 PARAMETER LA$S_DIO4 = 17  PARAMETER LA$V_DIO4 = 11 ! DIGITAL I/O ! 4 PARAMETER LA$S_DIO5 = 17 PARAMETER LA$V_DIO5 = 12 ! DIGITAL I/O ! 5  BYTE %FILL (2) END MAP MAP# PARAMETER LA$S_BFROVRN = 1$ PARAMETER LA$V_BFROVRN = 23< BYTE %FILL (1) ! BUFFER OVERRUN NON-FATAL BIT END MAP END UNION END STRUCTURE ! LADEF!DEC$ END OPTIONS wwFΦ!*** MODULE $latdef ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/ NOWARN$ PARAMETER LAT$M_ETYPE = '0000FFFF'X' PARAMETER LAT$C_ENT_NODE = '00000001'X* PARAMETER LAT$C_ENT_SERVICE = '00000002'X' PARAMETER LAT$C_ENT_LINK = '00000003'X' PARAMETER LAT$C_ENT_PORT = '00000004'X- PARAMETER LAT$C_ENT_CONNECTION = '00000005'X. PARAMETER LAT$C_ENT_QUEUE_ENTRY = '00000006'X' PARAMETER LAT$C_MAXETYPE = '00000006'X& PARAMETER LAT$M_ESTATUS = '0000000F'X> PARAMETER LAT$C_ENTS_OLD = '00000000'X ! Must already existG PARAMETER LAT$C_ENTS_NEW = '00000001'X ! Must NOT exist. Create it.G PARAMETER LAT$C_ENTS_UNK = '00000002'X ! Create if it does not existB PARAMETER LAT$C_ENTS_DEL = '00000003'X ! Must exist. Delete it.) PARAMETER LAT$M_SENSE_NEXT = '00000001'X) PARAMETER LAT$M_SENSE_FULL = '00000002'X+ PARAMETER LAT$M_READ_HISTORY = '00000004'X STRUCTURE /ENTITY/ PARAMETER LAT$S_ETYPE = 16 PARAMETER LAT$V_ETYPE = 0 BYTE %FILL (2) UNION MAP$ PARAMETER LAT$S_ESTATUS = 4$ PARAMETER LAT$V_ESTATUS = 0 BYTE %FILL (1) END MAP MAP UNION MAP= BYTE LAT$B_EFLAGS ! Flags for SENSEmode END MAP MAP/ PARAMETER LAT$S_SENSE_NEXT = 1B PARAMETER LAT$V_SENSE_NEXT = 0 ! Wildcard flag/ PARAMETER LAT$S_SENSE_FULL = 1L PARAMETER LAT$V_SENSE_FULL = 1 ! Full (vs. summary) flag1 PARAMETER LAT$S_READ_HISTORY = 1M  PARAMETER LAT$V_READ_HISTORY = 2 ! Used for history buffer BYTE %FILL (1) END MAP END UNION END MAP END UNION END STRUCTURE ! ENTITY( PARAMETER LAT$M_ITEMINDEX = '00003FFF'X% PARAMETER LAT$M_STRING = '00004000'X$ PARAMETER LAT$M_CLEAR = '00008000'XF PARAMETER LAT$_ITM_STATE = '00000001'X ! Entity (node or port) stateF PARAMETER LAT$_ITM_CIRCUIT_TIMER = '00000002'X ! Circuit timer valueJ PARAMETER LAT$_ITM_KEEPALIVE_TIMER = '00000003'X ! Keepalive timer valueJ PARAMETER LAT$_ITM_MULTICAST_TIMER = '00000004'X ! Multicast timer valueG PARAMETER LAT$_ITM_NODE_LIMIT = '00000005'X ! Maximum number of nodesL PARAMETER LAT$_ITM_RETRANSMIT_LIMIT = '00000006'X ! Retransmit limit valueG PARAMETER LAT$_ITM_SERVER_MODE = '00000007'X ! Enable LAT master flagO PARAMETER LAT$_ITM_OUTGOING_SES_LIMIT = '00000008'X ! Outgoing sessions limitO PARAMETER LAT$_ITM_INCOMING_SES_LIMIT = '00000009'X ! Incoming sessions limitF PARAMETER LAT$_ITM_CONNECTIONS = '0000000A'X ! Enable LAT slave flagK PARAMETER LAT$_ITM_DECNET_ADDRESS = '0000000B'X ! Use DECnet address flagC PARAMETER LAT$_ITM_RATING = '0000000C'X ! Static LAT rating valueK PARAMETER LAT$_ITM_RATING_TYPE = '0000000D'X ! Dynamic/static rating flagJ PARAMETER LAT$_ITM_NODE_TYPE = '0000000E'X ! Local/remote node type flagK PARAMETER LAT$_ITM_NODE_STATUS = '0000000F'X ! Reachable/unreachable flagN PARAMETER LAT$_ITM_SERVICE_STATUS = '00000010'X ! Available/unavailable flag> PARAMETER LAT$_ITM_PORT_TYPE = '00000011'X ! Port type valueH PARAMETER LAT$_ITM_QUEUED = '00000012'X ! Queued/nonqueued access flagQ PARAMETER LAT$_ITM_DISCONNECT_REASON = '00000013'X ! Reason for last disconnectO PARAMETER LAT$_ITM_CONNECTED_COUNT = '00000014'X ! Number of current sessionsD PARAMETER LAT$_ITM_SERVICE_TYPE = '00000015'X ! Service type valueJ PARAMETER LAT$_ITM_CTNOD_SSZ = '00000016'X ! (node) Seconds since zeroedH PARAMETER LAT$_ITM_CTNOD_MSGR = '00000017'X ! (node) Messages receivedK PARAMETER LAT$_ITM_CTNOD_MSGT = '00000018'X ! (node) Messages transmittedE PARAMETER LAT$_ITM_CTNOD_SLTR = '00000019'X ! (node) Slots receivedH PARAMETER LAT$_ITM_CTNOD_SLTT = '0000001A'X ! (node) Slots transmittedE PARAMETER LAT$_ITM_CTNOD_BYTR = '0000001B'X ! (node) Bytes receivedH PARAMETER LAT$_ITM_CTNOD_BYTT = '0000001C'X ! (node) Bytes transmittedM PARAMETER LAT$_ITM_CTNOD_MNA = '0000001D'X ! (node) Multiple node addressesI PARAMETER LAT$_ITM_CTNOD_DUP = '0000001E'X ! (node) Duplicates receivedL PARAMETER LAT$_ITM_CTNOD_MRT = '0000001F'X ! (node) Messages retransmittedO PARAMETER LAT$_ITM_CTNOD_ILM = '00000020'X ! (node) Illegal messages receivedL PARAMETER LAT$_ITM_CTNOD_ILS = '00000021'X ! (node) Illegal slots receivedM PARAMETER LAT$_ITM_CTNOD_SLCA = '00000022'X ! (node) Solicitations acceptedM PARAMETER LAT$_ITM_CTNOD_SLCR = '00000023'X ! (node) Solicitations rejectedE PARAMETER LAT$_ITM_CTNOD_TER = '00000024'X ! (node) Transmit errorsE PARAMETER LAT$_ITM_CTNOD_RES = '00000025'X ! (node) Resource errorsH PARAMETER LAT$_ITM_CTNOD_NTB = '00000026'X ! (node) No transmit bufferN PARAMETER LAT$_ITM_CTNOD_TMO = '00000027'X ! (node) Virtual circuit timeoutsL PARAMETER LAT$_ITM_CTNOD_DOB = '00000028'X ! (node) Discarded output bytesK PARAMETER LAT$_ITM_CTNOD_LSTER = '00000029'X ! (node) Last transmit errorL PARAMETER LAT$_ITM_CTNOD_PROTO = '0000002A'X ! (node) Protocol error countW PARAMETER LAT$_ITM_CTPRO_IVM = '0000002B'X ! (protocol) Invalid message type receivedX PARAMETER LAT$_ITM_CTPRO_ISM = '0000002C'X ! (protocol) Invalid start message receivedQ PARAMETER LAT$_ITM_CTPRO_IVS = '0000002D'X ! (protocol) Invalid sequence numberR PARAMETER LAT$_ITM_CTPRO_NIZ = '0000002E'X ! (protocol) Zero node index receivedS PARAMETER LAT$_ITM_CTPRO_ICI = '0000002F'X ! (protocol) Invalid server slot indexR PARAMETER LAT$_ITM_CTPRO_CSI = '00000030'X ! (protocol) Circuit sequence invalidW PARAMETER LAT$_ITM_CTPRO_NLV = '00000031'X ! (protocol) Circuit index no longer validQ PARAMETER LAT$_ITM_CTPRO_HALT = '00000032'X ! (protocol) Circuit forced to haltS PARAMETER LAT$_ITM_CTPRO_MIZ = '00000033'X ! (protocol) Invalid master slot indexR PARAMETER LAT$_ITM_CTPRO_SIZ = '00000034'X ! (protocol) Invalid slave slot indexO PARAMETER LAT$_ITM_CTPRO_CRED = '00000035'X ! (protocol) Invalid credit fieldT PARAMETER LAT$_ITM_CTPRO_RCSM = '00000036'X ! (protocol) Repeat master slot createX PARAMETER LAT$_ITM_CTPRO_RDSM = '00000037'X ! (protocol) Repeat master slot disconnectM PARAMETER LAT$_ITM_CTSRV_SSZ = '00000038'X ! (service) Seconds since zeroedO PARAMETER LAT$_ITM_CTSRV_MCNA = '00000039'X ! (service) Connections attemptedO PARAMETER LAT$_ITM_CTSRV_MCNC = '0000003A'X ! (service) Connections completedN PARAMETER LAT$_ITM_CTSRV_SCNA = '0000003B'X ! (service) Connections acceptedN PARAMETER LAT$_ITM_CTSRV_SCNR = '0000003C'X ! (service) Connections rejectedJ PARAMETER LAT$_ITM_CTPRT_SSZ = '0000003D'X ! (port) Seconds since zeroedE PARAMETER LAT$_ITM_CTPRT_RMT = '0000003E'X ! (port) Remote accessesE PARAMETER LAT$_ITM_CTPRT_BYTR = '0000003F'X ! (port) Bytes receivedH PARAMETER LAT$_ITM_CTPRT_BYTT = '00000040'X ! (port) Bytes transmittedQ PARAMETER LAT$_ITM_MAXIMUM_UNITS = '00000041'X ! Maximum LTA device unit numberK PARAMETER LAT$_ITM_SERVICE_CLASS = '00000042'X ! Port service class itemN PARAMETER LAT$_ITM_DISPLAY_NUMBER = '00000043'X ! X Display Number (Binary); PARAMETER LAT$_ITM_CPU_RATING = '00000044'X ! CPU ratingI PARAMETER LAT$_ITM_SERVICE_RESPONDER = '00000045'X ! Service responderL PARAMETER LAT$_ITM_CTNOD_MCBXMT = '00000046'X ! (node) Multicast bytes xmtL PARAMETER LAT$_ITM_CTNOD_MCBRCV = '00000047'X ! (node) Multicast bytes rcvK PARAMETER LAT$_ITM_CTNOD_MCMXMT = '00000048'X ! (node) Multicast msgs xmtK PARAMETER LAT$_ITM_CTNOD_MCMRCV = '00000049'X ! (node) Multicast msgs rcvJ PARAMETER LAT$_ITM_CTNOD_SOLFAIL = '0000004A'X ! (node) Solicit failuresK PARAMETER LAT$_ITM_CTNOD_ATLOS = '0000004B'X ! (node) Attention slot lostG PARAMETER LAT$_ITM_CTNOD_DATLOS = '0000004C'X ! (node) User data lostK PARAMETER LAT$_ITM_CTNOD_NOREJ = '0000004D'X ! (node) No reject slot sentI PARAMETER LAT$_ITM_CTNOD_LOSCT = '0000004E'X ! (node) Node counter lostG PARAMETER LAT$_ITM_CTNOD_LOSSAM = '0000004F'X ! (node) s.a.m. lossageL PARAMETER LAT$_ITM_CTNOD_NOSAM = '00000050'X ! (node) Couldn't send s.a.m.H PARAMETER LAT$_ITM_CTNOD_NOSTS = '00000051'X ! (node) Lost node statusJ PARAMETER LAT$_ITM_CTNOD_NOXMT = '00000052'X ! (node) No link to send onI PARAMETER LAT$_ITM_HISTORY = '00000053'X ! (node) History buffer enableJ PARAMETER LAT$_ITM_CTNOD_CTLERR = '00000054'X ! (node) Controller errorsO PARAMETER LAT$_ITM_CTNOD_CERRCOD = '00000055'X ! (node) Last controller errorT PARAMETER LAT$_ITM_CTNOD_ISOLA = '00000056'X ! (node) (Incoming) solicits acceptedT PARAMETER LAT$_ITM_CTNOD_ISOLR = '00000057'X ! (node) (Incoming) solicits rejectedP PARAMETER LAT$_ITM_CONNECTED_SESSIONS = '00000058'X ! Connected session countB PARAMETER LAT$_ITM_CONNECT_TYPE = '00000059'X ! Connection typeR PARAMETER LAT$_ITM_CONNECTION_SESS_LIM = '0000005A'X ! Connection session limitF PARAMETER LAT$_ITM_CTCON_MSGRCV = '0000005B'X ! (conn) msgs receivedF PARAMETER LAT$_ITM_CTCON_DUPRCV = '0000005C'X ! (conn) dup msgs rcvdB PARAMETER LAT$_ITM_CTCON_MSGXMT = '0000005D'X ! (conn) msgs xmtdJ PARAMETER LAT$_ITM_CTCON_MSGILL = '0000005E'X ! (conn) illegal msgs rcvdK PARAMETER LAT$_ITM_CTCON_MSGRXT = '0000005F'X ! (conn) msgs retransmittedG PARAMETER LAT$_ITM_CTCON_SLTILL = '00000060'X ! (conn) ill slots rcvdG PARAMETER LAT$_ITM_CTCON_DUPNOD = '00000061'X ! (conn) duplicate nodeK PARAMETER LAT$_ITM_CTCON_SECZER = '00000062'X ! (conn) seconds since zeroG PARAMETER LAT$_ITM_CTCON_BYTRCV = '00000063'X ! (conn) bytes receivedC PARAMETER LAT$_ITM_CTCON_BYTXMT = '00000064'X ! (conn) bytes xmtdC PARAMETER LAT$_ITM_CTCON_SLTRCV = '00000065'X ! (conn) slots rcvdJ PARAMETER LAT$_ITM_CTCON_SLTXMT = '00000066'X ! (conn) slots transmittedJ PARAMETER LAT$_ITM_CTCON_SOLACP = '00000067'X ! (conn) solicits acceptedJ PARAMETER LAT$_ITM_CTCON_SOLREJ = '00000068'X ! (conn) solicits rejectedJ PARAMETER LAT$_ITM_CTCON_XERR = '00000069'X ! (conn) last transmit errorM PARAMETER LAT$_ITM_CTCON_XERRCOD = '0000006A'X ! (conn) last xmt error codeL PARAMETER LAT$_ITM_CTCON_ATTLOS = '0000006B'X ! (conn) attention slot lossB PARAMETER LAT$_ITM_CTCON_DATLOS = '0000006C'X ! (conn) data lossJ PARAMETER LAT$_ITM_CTCON_CANTREJ = '0000006D'X ! (conn) reject slot lossV PARAMETER LAT$_ITM_SESSION_NUMBER = '0000006E'X ! (conn) session number for subblockW PARAMETER LAT$_ITM_FORWARD_SESSION_LIMIT = '0000006F'X ! (node) forward session limitR PARAMETER LAT$_ITM_EXTRA_DATALINK_BUFFERS = '00000070'X ! Extra datalink buffersS PARAMETER LAT$_ITM_TRANSMIT_BUFFERS_INUSE = '00000071'X ! Transmit buffe rs in useN PARAMETER LAT$_ITM_QUE_POS_OBSOLETE = '00000072'X ! Queue position for entry ! Obsolete - node queue and ! service queue position are ! now implemented.O PARAMETER LAT$_ITM_QUEUE_DEPTH_LIMIT = '00000073'X ! (node) queue depth limitC PARAMETER LAT$_ITM_DEVICE_SEED = '00000074'X ! (node) device seedV PARAMETER LAT$_ITM_NODE_QUEUE_POSITION = '00000075'X ! (port) minimum queue positionY PARAMETER LAT$_ITM_SERVICE_QUEUE_POSITION = '00000076'X ! (port) maximum queue positionH PARAMETER LAT$_ITM_DIALUP = '00000077'X ! (port) dialup characteristicF PARAMETER LAT$_ITM_AUTOPROMPT = '00000078'X ! (port) autoprompt char_ PARAMETER LAT$_ITM_RATING_LOAD_OBSOLETE = '00000079'X ! obsolete - portion of rating for loadD PARAMETER LAT$_ITM_CTPRT_LCL = '0000007A'X ! (port) local accessesM PARAMETER LAT$_ITM_CTPRT_SLCA = '0000007B'X ! (port) Solicitations acceptedM PARAMETER LAT$_ITM_CTPRT_SLCR = '0000007C'X ! (port) Solicitations rejectedT PARAMETER LAT$_ITM_CTPRT_ISOL A = '0000007D'X ! (node) (Incoming) solicits acceptedT PARAMETER LAT$_ITM_CTPRT_ISOLR = '0000007E'X ! (node) (Incoming) solicits rejected ! D ! This next item code is only returned (it cannot be supplied as aF ! SETMODE item). It indicates whether or not a service on the local ! node is password protected. ! M PARAMETER LAT$_ITM_PASSWORD = '0000007F'X ! (svc) Password enabled/disabledH PARAMETER LAT$_ITM_HI_CIRCUITS = '00000080'X ! (node) Hi circuit countN PARAMETER LAT$_ITM_CUR_CIRCUITS = '00000081'X ! (node) Current circuit countQ PARAMETER LAT$_ITM_MAX_CIRCUITS = '00000082'X ! (node) Maximum virtual circuitsH PARAMETER LAT$_ITM_HI_SESSIONS = '00000083'X ! (node) Hi session countN PARAMETER LAT$_ITM_CUR_SESSIONS = '00000084'X ! (node) Current session countN PARAMETER LAT$_ITM_MAX_SESSIONS = '00000085'X ! (node) Maximum session countR PARAMETER LAT$_ITM_HI_OUT_QUEUE = '00000086'X ! (node) Hi outgoing queue entriesT PARAMETER LAT$_ITM_CUR_OUT_QUEUE = '00000087'X ! (node) Current outgoing q entriesT PARAMETER LAT$_ITM_MAX_OUT_QUEUE = '00000088'X ! (node) Maximum outgoing q entriesQ PARAMETER LAT$_ITM_HI_IN_QUEUE = '00000089'X ! (node) Hi incoming queue entriesS PARAMETER LAT$_ITM_CUR_IN_QUEUE = '0000008A'X ! (node) Current incoming q entriesS PARAMETER LAT$_ITM_MAX_IN_QUEUE = '0000008B'X ! (node) Maximum incoming q entriesN PARAMETER LAT$_ITM_HI_SAMS_QUEUED = '0000008C'X ! (node) Hi unprocessed SAMsT PARAMETER LAT$_ITM_CUR_SAMS_QUEUED = '0000008D'X ! (node) Current unprocessed SAMsT PARAMETER LAT$_ITM_MAX_SAMS_QUEUED = '0000008E'X ! (node) Maximum unprocessed SAMsR PARAMETER LAT$_ITM_HI_SOL_QUEUED = '0000008F'X ! (node) Hi unprocessed sol infosX PARAMETER LAT$_ITM_CUR_SOL_QUEUED = '00000090'X ! (node) Current unprocessed sol infosX PARAMETER LAT$_ITM_MAX_SOL_QUEUED = '00000091'X ! (node) Maximum unprocessed sol infosO PARAMETER LAT$_ITM_HI_AVAIL_SVCS = '00000092'X ! (node) Hi available servicesU PARAMETER LAT$_ITM_CUR_AVAIL_SVCS = '00000093'X ! (node) Current available servicesU PARAMETER LAT$_ITM_MAX_AVAIL_SVCS = '00000094'X ! (node) Maximum available servicesM PARAMETER LAT$_ITM_HI_REACH_NODES = '00000095'X ! (node) Hi reachable nodesS PARAMETER LAT$_ITM_CUR_REACH_NODES = '00000096'X ! (node) Current reachable nodesS PARAMETER LAT$_ITM_MAX_REACH_NODES = '00000097'X ! (node) Maximum reachable nodesI PARAMETER LAT$_ITM_HI_LCL_SVCS = '00000098'X ! (node) Hi local servicesO PARAMETER LAT$_ITM_CUR_LCL_SVCS = '00000099'X ! (node) Current local servicesO PARAMETER LAT$_ITM_MAX_LCL_SVCS = '0000009A'X ! (node) Maximum local servicesK PARAMETER LAT$_ITM_DISCARDED_NODES = '0000009B'X ! (node) Discarded nodesS PARAMETER LAT$_ITM_MAX_DL_BUFFERS = '0000009C'X ! (conn) Maximum datalink buffersE PARAMETER LAT$_ITM_PRODUCT_TYPE = '0000009D'X ! (conn) Product typeV PARAMETER LAT$_ITM_REM_PRODUCT_VERSION = '0000009E'X ! (conn) Remote product versionH PARAMETER LAT$_ITM_CTPRT_FRAMERR = '0000009F'X ! (port) Framing errorsF PARAMETER LAT$_ITM_CTPRT_PARERR = '000000A0'X ! (port) Parity errorsG PARAMETER LAT$_ITM_CTPRT_OVERRUN = '000000A1'X ! (port) Data overrunsc PARAMETER LAT$_ITM_CTPRO_INVCLASS = '000000A2'X ! (protocol) protocol error invalid service classe PARAMETER LAT$_ITM_CTPRO_EXCSTART = '000000A3'X ! (protocol) protocol error (excessive start slots)W PARAMETER LAT$_ITM_CTNOD_XSTR = '000000A4'X ! (node) Remote node too many START slotsW PARAMETER LAT$_ITM_PASSWORD_FAILURES = '000000A5'X ! (service,port) Password failuresI PARAMETER LAT$_ITM_CTPRO_ILLSAM = '000000A6'X ! (protocol) Illegal SAMsI PARAMETER LAT$_ITM_TYPEAHEAD = '000000A7'X ! (port) 1 = typeahd presentD PARAMETER LAT$_ITM_CTLAT_RMSG = '000000A8'X ! (link) LAT msgs rcvdE PARAMETER LAT$_ITM_CTLAT_RBYT = '000000A9'X ! (link) LAT bytes rcvdC PARAMETER LAT$_ITM_CTLAT_XMSG = '000000AA'X ! (link) LAT msgs xmtD PARAMETER LAT$_ITM_CTLAT_XBYT = '000000AB'X ! (link) LAT bytes xmtR PARAMETER LAT$_ITM_CTLAT_MUL_RMSG = '000000AC'X ! (link) LAT multicast msgs rcvdS PARAMETER LAT$_ITM_CTLAT_MUL_RBYT = '000000AD'X ! (link) LAT multicast bytes rcvdQ PARAMETER LAT$_ITM_CTLAT_MUL_XMSG = '000000AE'X ! (link) LAT multicast msgs xmtR PARAMETER LAT$_ITM_CTLAT_MUL_XBYT = '000000AF'X ! (link) LAT multicast bytes xmtC PARAMETER LAT$_ITM_PATH_STATE = '000000B0'X ! Datalink path stateR PARAMETER LAT$_ITM_LARGE_BUFFERS = '000000B1'X ! Use of large buffers by defaultX PARAMETER LAT$_ITM_ANNOUNCEMENTS = '000000B2'X ! (node) Transmit service announcementsD PARAMETER LAT$_ITM_PORT_STATE = '000000B3'X ! (port) Current stateS PARAMETER LAT$_ITM_CTPRO_BADUID = '000000B4'X ! (protocol) Invalid node UID event, PARAMETER LAT$C_ITM_MAXSCALAR = '000000B4'X[ PARAMETER LAT$_ITM_IDENTIFICATION = '00004100'X ! Entity (node or service) identification> PARAMETER LAT$_ITM_SERVICE_NAME = '00004101'X ! Service name8 PARAMETER LAT$_ITM_NODE_NAME = '00004102'X ! Node name8 PARAMETER LAT$_ITM_PORT_NAME = '00004103'X ! Port nameY PARAMETER LAT$_ITM_CONNECTED_SERVICE_NAME = '00004104'X ! Port's connected service nameS PARAMETER LAT$_ITM_CONNECTED_NODE_NAME = '00004105'X ! Port's connected node nameS PARAMETER LAT$_ITM_CONNECTED_PORT_NAME = '00004106'X ! Port's connected port nameS PARAMETER LAT$_ITM_TARGET_SERVICE_NAME = '00004107'X ! Port's target service nameM PARAMETER LAT$_ITM_TARGET_NODE_NAME = '00004108'X ! Port's target node nameM PARAMETER LAT$_ITM_TARGET_PORT_NAME = '00004109'X ! Port's target port nameR PARAMETER LAT$_ITM_SERVICE_GROUPS = '0000410A'X ! Enabled service groups bitmaskL PARAMETER LAT$_ITM_USER_GROUPS = '0000410B'X ! Enabled user groups bitmask8 PARAMETER LAT$_ITM_LINK_NAME = '0000410C'X ! Link nameF PARAMETER LAT$_ITM_SERVICE_PASSWORD = '0000410D'X ! Service passwordC PARAMETER LAT$_ITM_DEVICE_NAME = '0000410E'X ! Link's device nameT PARAMETER LAT$_ITM_DATALINK_ADDRESS = '0000410F'X ! 6-byte binary Ethernet addressQ PARAMETER LAT$_ITM_PROTOCOL_VERSION = '00004110'X ! LAT protocol version stringN PARAMETER LAT$_ITM_SVC_NODE_BLOCK = '00004111'X ! Subblock for SENSE SERVICEK PARAMETER LAT$_ITM_NODE_SVC_BLOCK = '00004112'X ! Subblock for SENSE NODEP PARAMETER LAT$_ITM_DED_PORT_BLOCK = '00004113'X ! Subblock for dedicated portsC PARAMETER LAT$_ITM_COUNTERS = '00004114'X ! Subblock for countersQ PARAMETER LAT$_ITM_PROTOCOL_ERRORS = '00004115'X ! Subblock for protocol errorsS PARAMETER LAT$_ITM_CONNECTED_LINK_NAME = '00004116'X ! Port's connected link nameL PARAMETER LAT$_ITM_HISTORY_ENTRY = '00004117'X ! Node history buffer entry? PARAMETER LAT$_ITM_CONNECT_ID = '00004118'X ! Connect ID nameP PARAMETER LAT$_ITM_SESSION_BLOCK = '00004119'X ! Subblock for SENSE CONNECTIONK PARAMETER LAT$_ITM_QUEUED_ENTRY_ID = '0000411A'X ! Queued entry ID stringN PARAMETER LAT$_ITM_LIM_PORT_BLOCK = '0000411B'X ! subblock for limited portsS PARAMETER LAT$_ITM_SERVICE_CLASSES = '0000411C'X ! service class bitmask for nodeM PARAMETER LAT$_ITM_LAT_DEV_CTR_BLOCK = '0000411D'X ! link LAT only countersI PARAMETER LAT$_ITM_PATH_BLOCK = '0000411E'X ! Datalink path information, PARAMETER LAT$C_ITM_MAXSTRING = '0000411E'X STRUCTURE /ITEM_ENTRY/ UNION MAP! INTEGER*2 LAT$W_ITEMCODE END MAP MAP+ PARAMETER LAT$S_ITEMINDEX = 14* PARAMETER LAT$V_ITEMINDEX = 0' PARAMETER LAT$S_STRING = 1( PARAMETER LAT$V_STRING = 14& PARAMETER LAT$S_CLEAR = 1' PARAMETER LAT$V_CLEAR = 15 BYTE %FILL (2) END MAP END UNION UNION MAP& BYTE LAT$B_ITEM_BCNT5 CHARACTER*1 LAT$T_ITEM_STRING_VALUE(1:1) END MAP MAP* INTEGER*4 LAT$L_ITEM_SCALAR_VALUE END MAP END UNION END STRUCTURE ! ITEM_ENTRY' PARAMETER LAT$C_DISABLED = '00000000'X& PARAMETER LAT$C_ENABLED = '00000001'X" PARAMETER LAT$C_OFF = '00000000'X!  PARAMETER LAT$C_ON = '00000001'X# PARAMETER LAT$C_SHUT = '00000002'X) PARAMETER LAT$M_FLUSH_DATA = '00000001'XF PARAMETER LAT$C_PT_FORWARD = '00000000'X ! "Forward" connection portJ PARAMETER LAT$C_PT_INTERACTIVE = '00000001'X ! Interactive incoming portA PARAMETER LAT$C_PT_APPLICATION = '00000002'X ! Application port= PARAMETER LAT$C_PT_DEDICATED = '00000003'X ! Dedicated port9 PARAMETER LAT$C_PT_LIMITED = '00000004'X ! Limited portG PARAMETER LAT$C_PT_STATE_INACTIVE = '00000000'X ! Idle, no connectionV PARAMETER LAT$C_PT_STATE_CONNECTING = '00000001'X ! Connection in progress, not doneA PARAMETER LAT$C_PT_STATE_ACTIVE = '00000002'X ! Fully connectedR PARAMETER LAT$C_PT_STATE_DISCONNECTING = '00000003'X ! In the disconnect process6 PARAMETER LAT$C_NT_LOCAL = '00000000'X ! My own node9 PARAMETER LAT$C_NT_REMOTE = '00000001'X ! The other guyH PARAMETER LAT$C_ST_GENERAL = '00000000'X ! General timesharing serviceD PARAMETER LAT$C_ST_APPLICATION = '00000001'X ! A pplication service< PARAMETER LAT$C_ST_LIMITED = '00000002'X ! Limited service= PARAMETER LAT$C_DYNAMIC = '00000000'X ! Dynamic calculation5 PARAMETER LAT$C_STATIC = '00000001'X ! Fixed rating) PARAMETER LAT$C_PS_WORKING = '00000000'X) PARAMETER LAT$C_PS_SUSPECT = '00000001'X( PARAMETER LAT$C_PS_FAILED = '00000002'XD PARAMETER LAT$C_CN_UNKNOWN = '00000000'X ! Unknown connection type> PARAMETER LAT$C_CN_INCOMING = '00000001'X ! Slave connection? PARAMETER LAT$C_CN_OUTGOING = '00000002 'X ! Master connection= PARAMETER LAT$C_UNREACHABLE = '00000000'X ! Known not thereB PARAMETER LAT$C_UNKNOWN = '00000001'X ! Haven't heard in a while< PARAMETER LAT$C_REACHABLE = '00000002'X ! I heard from him: PARAMETER LAT$C_UNAVAILABLE = '00000000'X ! Can't get it7 PARAMETER LAT$C_AVAILABLE = '00000001'X ! It IS thereG PARAMETER LAT$C_SERVCLASS_INTERACTIVE = '00000001'X ! SC1 = TTDRIVERK PARAMETER LAT$C_SERVCLASS_TESTSERVICE = '00000002'X ! SC2 = TEST SERVICEI PARAMETER LAT$C_SERVCLASS_XTRANSPORT = '00000003'X ! SC3 = X Transport? PARAMETER LAT$C_SERVCLASS_FONT = '00000004'X ! SC4 = X Fonts STRUCTURE /LATSETBITS/ UNION MAP0 ! unsupported type CHARACTER*0 LAT$T_FILLER END MAP MAP CHARACTER*1 LAT$T_FILLER2 END MAP END UNION END STRUCTURE ! LATSETBITSF PARAMETER LAT$C_RATING_VECTOR_LENGTH = '00000038'X ! Size of vector STRUCTURE /RATING_VEC/D INTEGER*4 LAT$A_CONTROL_INIT_RTN ! Address of controller init< INTEGER*4 LAT$A_UNIT_INIT_RTN ! Address of init initO INTEGER*4 LAT$A_RATING_INIT_RTN ! Address of initial call from LTDRIVER> INTEGER*4 LAT$A_TIMER_RTN ! Routine called each secondH INTEGER*4 LAT$A_CALC_RATING_RTN ! Routine that calculates ratingA INTEGER*4 LAT$A_STOP_RTN ! Routine called at LAT shutdown: INTEGER*4 LAT$A_SPARE1_RTN ! Expansion placeholder: INTEGER*4 LAT$A_SPARE2_RTN ! Expansion placeholder: INTEGER*4 LAT$A_SPARE3_RTN ! Expansion placeholder: INTEGER*4 LAT$A_SPARE4_RTN ! Expansion placeholder: INTEGER*4 LAT$A_SPARE5_RTN ! Expansion placeholder: INTEGER*4 LAT$A_SPARE6_RTN ! Expansion placeholder: INTEGER*4 LAT$A_SPARE7_RTN ! Expansion placeholder: INTEGER*4 LAT$A_SPARE8_RTN ! Expansion placeholder END STRUCTURE ! RATING_VEC!DEC$ END OPTIONS wwMΦ!*** MODULE $LATMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL Fil e Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:33:52.19 !  ! MODULE: LATMSG.MSG ! VERSION: 'V6.0-064' !  ! * *J ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1987, 1990-1995 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND  WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION.  * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * ! . ! V6.0-064 MICHAEL D. RASPUZZI 16-JAN-1995- ! ADD ERROR MESSAGE FOR INVALID PORT NAME. ! . ! V6.0-063 MICHAEL D. RASPUZZI 14-SEP-1994, ! ADD ERROR MESSAGE FOR INVALID NODE UID. ! . ! V6.0-062 MICHAEL D. RASPUZZI 16-MAY-1994@ ! ADD ERROR MESSAGES FOR NEW LAT RATING IMAGE. THIS MESSAGES@ ! ARE USED TO INDICATE THE STATE OF THE LAT$RATING IMAGE. IT= ! SHOULD BE LOADED CORRECTLY IF THE SYSTEM USED THE PROPER> ! LAT STARTUP. HOWEVER, WE ALL KNOW THAT PEOPLE LIKE TO DO ! THINGS THEIR OWN WAY ... ! . ! V05-061 MICHAEL D. RASPUZZI 22-FEB-1994? ! ADD NEW REJECT REASON FOR LTPAD. MATCHES DECSERVER REJECT# ! REASON FOR SAME FUNCTIONALITY. ! . ! V05-060 MICHAEL D. RASPUZZI 6-JAN-19946 ! ADD NEW CONNECT MESSAGE FOR LTPAD WHEN DISCONNECT ! CHARACTER IS DISABLED. ! . ! V05-059 MICHAEL D. RASPUZZI 30-AUG-19937 ! ADD NEW MESSAGE FOR INCOMPATIBLE PROTOCOL VERSION. ! . ! V05-058 MICHAEL D. RASPUZZI 3-MAY-1993. ! ADDED INCOMPATIBLE DRIVER/ACP ERROR CODE. ! . ! V05-057 MICHAEL D. RASPUZZI 16-APR-1993' ! ADD MORE CONNECT FAILURE MESSAGES. ! . ! V05-056 MICHAEL D. RASPUZZI 8-SEP-1992) ! ADD MESSAGE FOR DELETING CONNECTION. ! . ! V05-055 MICHAEL D. RASPUZZI 28-AUG-19927 ! ADD INFORMATIONAL ERROR MESSAGE FOR LTPAD TO QUEUE ! QUEUE POSITION REPORTING. ! - ! V05-54 MICHAEL D. RASPUZZI 19-AUG-1992? ! ADD ERROR MESSAGE WHEN ONE TRIES TO RUN LATACP IMPROPERLY. ! - ! V05-53 MICHAEL D. RASPUZZI 3-AUG-1992= ! ADD INFORMATIONAL RETURN FOR LIMITED SERVICE CONNECTION. ! - ! V05-52 MICHAEL D. RASPUZZI 24-JUL-1992! ! ADD "no active links" ERROR. ! - ! V05-51 MICHAEL D. RASPUZZI 13-JAN-1992" ! ADD MISSING LRJ REASON CODES. ! - ! V05-50 MICHAEL D. RASPUZZI 4-NOV-19916 ! ADD CONNECT SOLICIT CODE FOR REGULAR CONNECTIONS. ! - ! V05-49 MICHAEL D. RASPUZZI 5-SEP-1991; ! ADD LAN DRIVER ERROR MESSAGE SO LAT WON'T START IF VCI ! DRIVERS ARE ABSENT. ! - ! V05-48 MICHAEL D. RASPUZZI 19-JUN-1991> ! MAKE SDL MODULE NAME $LATMSGDEF TO PREVENT CONFLICTS WITH% ! REAL $LATDEF THAT IS IN STARLET. ! * ! V05-47 ERIC L. MERSHON 10-MAY-1991= ! MAKE GRAMMATICAL CHANGE TO DRIVERNOTSHUT AS REQUESTED BY ! VMS DOC WRITER. ! * ! V05-46 ERIC L. MERSHON 4-APR-1991< ! MAKE COSMETIC CHANGES RECOMMENDED BY VMS DOCUMENTATION. ! - ! V05-45 MICHAEL D. RASPUZZI 8-MAR-1991( ! ADD MESSAGE FOR X SOLICIT REQUESTS. ! - ! V05-44 MICHAEL D. RASPUZZI 19-JAN-1991 ! ADD QUEUED ENTRY MESSAGES. ! - ! V05-43 MICHAEL D. RASPUZZI 31-DEC-1990? ! ADD CONNECTION MESSAGES AND CHANGE "server mode disabled". ! $ ! V05-42 SHOOU YIU 28-NOV-1990/ ! ADD MESSAGE FOR LINK NAME THAT IS TOO LONG ! * ! V05-41 ERIC L. MERSHON 25-OCT-1990? ! REMOVE LNKOBS, SRVRSOBS, AND PRTOBS. ADD QUALOBS, CMDOBS. ! - ! V05-40 MICHAEL D. RASPUZZI 13-SEP-19908 ! ADD MESSAGES WHEN NODE IS SHUTTING DOWN OR INCOMING ! CONNECTIONS ARE DISABLED. ! ( ! V05-39 DAVID H. COOK 27-AUG-1990) ! ADD NODECNTRSONLY MSG FOR SENSEMODE. ! * ! V05-38 ERIC L. MERSHON 25-JUL-1990? ! ADD CONATMPT AND REMOVE CAPITILIZATION OF THE BEGINNING OF ! SOME MESSAGES. ! * ! V05-37 ERIC L. MERSHON 27-JUN-19905 ! REMOVE QUOTES FROM TODISCON, AND ADD CONFQUAVAL. ! * ! V05-36 ERIC L. MERSHON 13-JUN-1990( ! ADD CNTRSOBS, SRVRSOBS, AND PRTOBS. ! * ! V05-35 ERIC L. MERSHON 15-MAY-1990 ! ADD DEFINEKEY. ! * ! V05-34 ERIC L. MERSHON 30-JAN-1990 ! ADD LNKOBS. ! * ! V05-33 ERIC L. MERSHON 12-JAN-1990< ! MODIFIED TODISCON TO ACCEPT AN FAO PARAMETER TO DISPLAY8 ! USER'S CUSTOMIZED DISCONNECT CHARACTER (FOR LTPAD). ! - ! V05-32 MICHAEL D. RASPUZZI 9-JAN-1990 ! ADD DRIVERNOTSHUT MESSAGE ! * ! V05-31 JAMES F. CAHILL 15-NOV-19894 ! ADD NEWLOGNAME FOR CREATE PORT/LOG/LOGICAL_NAME ! - ! V05-30 MICHAEL D. RASPUZZI 16-OCT-1989: ! ADD VERMISMATCH SO WE CAN USE TO BUILD OLD COMPONENTS ! * ! V05-29 JAMES F. CAHILL 16-OCT-19892 ! ADD LATCP MESSAGES TO SUPPORT /LOG QUALIFIER. ! ( ! V05-28 DAVID H. COOK 06-OCT-19892 ! ADD ACPNOCTL, ACPNOKSTK, ACPNOVIRT, NODLIMIT. ! ( ! V05-27 DAVID H. COOK 18-SEP-19894 ! ADD NOMORENODS, NOMORESVCS, NOSELF, NOTOFFERED. ! ( ! V05-26 DAVID H. COOK 04-AUG-1989 ! ADD ENTNOTFOU. ! * ! V05-25 JAMES F. CAHILL 24-JUL-1989 ! ADD CANTATTACH. ! 0 ! V05-24 ELM032 ERIC L. MERSHON 21-JUL-1989+ ! CHANGED FAO PARAMETER OF END TO ASCID. ! 0 ! V05-23 ELM023 ERIC L. MERSHON 29-JUN-1989) ! REMOVED FAO ARGUMENTS FROM FAILOVER. ! * ! V05-22 JAMES F. CAHILL 21-JUN-1989 ! ADD CONTROLC. ! / ! V05-21 ELM012 ERIC L. MERSHON 6-JUN-1989' ! REMOVED NORESP AND ADDED TODISCON. ! . ! V05-19 DHC002 DAVID H. COOK 30-MAY-1989$ ! CREATE AN LAT SHUTDOWN MESSAGE. ! 0 ! V05-17 ELM011 ERIC L. MERSHON 23-MAY-1989; ! CHANGE CONNECTED TO HAVE A SEVERITY LEVEL INDICATOR OF> ! SUCCESS. ADD FLEXIBILITY TO SAME MESSAGE FOR CONNECTIONSA ! TO NODES WHICH HAVE THE SAME NAME AS THE SERVICE THEY OFFER. ! ) ! V0 5-16 SY001 SHOOU YIU 16-MAY-1989* ! ADD MESSAGES USED BY LTDRIVER MODULES ! 0 ! V05-15 ELM010 ERIC L. MERSHON 16-MAY-1989> ! ADD REMAINING (HOPEFULLY) LAT REJECT CODES AND PWDPROMPT,@ ! USED FOR PASSWORD PROMPTING ON PASSWORD PROTECTED SERVICES. ! + ! V05-014 JAMES F. CAHILL 2-MAY-1989> ! CHANGE SEVERITY OF REINITERR AND DRVERROR. RENAME NOTERMA ! TO NOTATERM TO AVOID CONFUSION WITH EXISING MESSAGE NOTERMS. ! 0 ! V05-013 ELM009 ERIC L. MERSHON 1-MAY-1989 ! ADD NOTERM MESSAGE. ! 1 ! V05-012 ELM008 ERIC L. MERSHON 28-APR-1989= ! ADD CTRL/Y MESSAGE, AND REMOVE SECOND FAO ARGUMENTS FROM ! CONFAIL AND CONLOST. ! 1 ! V05-011 ELM007 ERIC L. MERSHON 18-APR-1989A ! ADD MESSAGES FOR LTPAD, AND CLEAN OUT MESSAGES INTENDED, BUT ! NO LONGER NEEDED FOR DDE. ! + ! V05-010 JAMES F. CAHILL 10-APR-19898 ! CHANGE CMDERROR AND INVCMD FROM ERRORS TO WARNINGS. ! + ! V05-009 JAMES F. CAHILL 9-MAR-19899 ! SHARED MESSAGE INVCMD NOT FOUND, SO ADD LAT$_INVCMD. ! + ! V05-008 JAMES F. CAHILL 9-MAR-1989% ! ADD OUTOFRANGE, REMOVE PRSERROR. ! 1 ! V05-007 ELM006 ERIC L. MERSHON 8-MAR-19895 ! MERGE IN MESSAGES FROM LAT$MESSAGES AND ADD MORE! ! DECSERVER EMULATOR MESSAGES. ! 1 ! V05-006 ELM005 ERIC L. MERSHON 25-FEB-19898 ! ADD MESSAGES FOR DECSERVER EMULATOR SESSION CONTROL ! 1 ! V05-005 ELM002 ERIC L. MERSHON 15-FEB-1989$ ! ADD DECSERVER EMULATOR MESSAGES ! 0 ! V05-004 DHC0001 DAVID H. COOK 18-NOV-1988 ! ADD ACP MSGS ! 2 ! V05-003 JFC0025 JAMES F. CAHILL 7-SEP-1988 ! ADD TWO MESSAGES FOR LMF ! 2 ! V05-002 JFC0015 JAMES F. CAHILL 10-AUG-1987 ! FIX CAPITALIZATION PROBLEMS !  ! V05-001 (VARIOUS AUTHORS) ! INITIAL VERSION ! L ! THIS FILE REPRESENTS THE MERGE OF ERROR MESSAGES FOR LATCP, LAT, AND LGUL ! LATCP MESSAGES APPEAR FIRST AS THIS FACILITY HAS BEEN SHIPPED. WHILE THEK ! ERROR NAMES ARE CHAN GED WITH THE ASSIGNMENT OF A LAT FACILITY CODE, THEH ! ERROR MESSAGE NUMBERS/MEANINGS ARE NOT. NEW ERROR MESSAGES ARE ADDED? ! AT THE SECTION BELOW WHERE .BASE VALUES HAVE BEEN ASSIGNED. ! & PARAMETER LAT$_FACILITY = '00000176'X) PARAMETER LAT$_CMDBUFOVFLW = '0176800C'X& PARAMETER LAT$_CANTBIND = '01768012'X# PARAMETER LAT$_IVCMD = '0176801A'X# PARAMETER LAT$_IVDEV = '01768022'X$ PARAMETER LAT$_IVQUAL = '0176802A'X% PARAMETER LAT$_MAXSERV = '01768032'X% PARAMETER LAT$_NOTERMS = '0 176803A'X$ PARAMETER LAT$_NONODE = '01768042'X' PARAMETER LAT$_NOTLOADED = '0176804A'X' PARAMETER LAT$_NOTINITED = '01768052'X( PARAMETER LAT$_NOTSTARTED = '0176805A'X( PARAMETER LAT$_NOTSTOPPED = '01768062'X$ PARAMETER LAT$_NOTSET = '0176806A'X' PARAMETER LAT$_NOHISTORY = '01768072'X) PARAMETER LAT$_NOSTARTHIST = '0176807A'X( PARAMETER LAT$_NOSUCHSERV = '01768082'X( PARAMETER LAT$_NOTFROMLAT = '0176808A'X& PARAMETER LAT$_INTERNAL = '01768092'X( PARAMETER LAT$_SERVEXISTS = '0176809A'X$ PARAMETER LAT$_LOCKED = '017680A2'X' PARAMETER LAT$_UNDEFLINK = '017680AA'X( PARAMETER LAT$_LINKEXISTS = '017680B2'X( PARAMETER LAT$_LINKACTIVE = '017680BA'X& PARAMETER LAT$_MAXLINKS = '017680C2'X$ PARAMETER LAT$_IVPORT = '017680CA'X$ PARAMETER LAT$_NOLINK = '017680D0'X% PARAMETER LAT$_STARTED = '017680DB'X% PARAMETER LAT$_STOPPED = '017680E3'X! PARAMETER LAT$_SET = '017680EB'X' PARAMETER LAT$_NOSERVERS = '017680F3'X ! 5 ! NEW MESSAGES ARE ADDED ONLY IN THE SECTIONS BELOW ! ( PARAMETER LAT$_ALREADYDEF = '01768643'X$ PARAMETER LAT$_NOTDEF = '0176864B'X' PARAMETER LAT$_NOCONTEXT = '01768653'X& PARAMETER LAT$_RELNOTES = '0176865B'X% PARAMETER LAT$_ACPINIT = '01768663'X& PARAMETER LAT$_ACPSTATS = '0176866B'X& PARAMETER LAT$_FAILOVER = '01768673'X* PARAMETER LAT$_DISCONNECTED = '0176867B'X% PARAMETER LAT$_LOSTMSG = '01768683'X% PARAMETER LAT$_PWDPROT = '0176868B'X( PARAMETER LAT$_OUTOFRANGE = '01768693'X! PARAMETER LAT$_END = '0176869B'X# PARAMETER LAT$_CTRL Y = '017686A3'X' PARAMETER LAT$_PWDPROMPT = '017686AB'X& PARAMETER LAT$_TODISCON = '017686B3'X& PARAMETER LAT$_CONTROLC = '017686BB'X> PARAMETER LAT$_NEWLINK = '017686C3'X ! CREATE /LOG MESSAGES% PARAMETER LAT$_NEWPORT = '017686CB'X( PARAMETER LAT$_NEWSERVICE = '017686D3'X( PARAMETER LAT$_NEWLOGNAME = '017686DB'X> PARAMETER LAT$_DELLINK = '017686E3'X ! DELETE /LOG MESSAGES% PARAMETER LAT$_DELPORT = '017686EB'X( PARAMETER LAT$_DELSERVICE = '017686F3'X& PARAMETER LAT$_DELENTRY = '0176 86FB'X; PARAMETER LAT$_MODLINK = '01768703'X ! SET /LOG MESSAGES% PARAMETER LAT$_MODPORT = '0176870B'X( PARAMETER LAT$_MODSERVICE = '01768713'X% PARAMETER LAT$_MODNODE = '0176871B'X= PARAMETER LAT$_ZEROLINK = '01768723'X ! ZERO /LOG MESSAGES& PARAMETER LAT$_ZEROPORT = '0176872B'X) PARAMETER LAT$_ZEROSERVICE = '01768733'X& PARAMETER LAT$_ZERONODE = '0176873B'X' PARAMETER LAT$_DEFINEKEY = '01768743'X& PARAMETER LAT$_CONATMPT = '0176874B'X+ PARAMETER LAT$_NODECNTRSONLY = '01768753'X , PARAMETER LAT$_CONNECTLIMITED = '0176875B'X+ PARAMETER LAT$_CONNECTQUEUED = '01768763'X) PARAMETER LAT$_DELETEDCONN = '0176876B'X& PARAMETER LAT$_NODISCON = '01768773'X) PARAMETER LAT$_NAMETOOLONG = '01768C82'X( PARAMETER LAT$_LOGSTOPPED = '01768C8A'X) PARAMETER LAT$_CONTEXTINIT = '01768C92'X' PARAMETER LAT$_ILLSTRUCT = '01768C9A'X) PARAMETER LAT$_CONSISTANCY = '01768CA2'X$ PARAMETER LAT$_NOCNCT = '01768CAA'X' PARAMETER LAT$_BADGETJPI = '01768CB2'X' PARAMETER LAT$_BRDCSTMSG = '017 68CBA'X' PARAMETER LAT$_BRDCSTOUT = '01768CC2'X( PARAMETER LAT$_CANTATTACH = '01768CCA'X' PARAMETER LAT$_CANTSPAWN = '01768CD2'X) PARAMETER LAT$_CANTCOPYSTR = '01768CDA'X' PARAMETER LAT$_ERRCREKBD = '01768CE2'X' PARAMETER LAT$_ERRVIRDPY = '01768CEA'X( PARAMETER LAT$_NOGCDAVAIL = '01768CF2'X( PARAMETER LAT$_NOIDBAVAIL = '01768CFA'X& PARAMETER LAT$_NOITMLST = '01768D02'X' PARAMETER LAT$_NOREQUEST = '01768D0A'X& PARAMETER LAT$_DRVERROR = '01768D12'X( PARAMETER LAT$_CANTRUNACP = '01768D 1A'X$ PARAMETER LAT$_INVCMD = '017692C0'X& PARAMETER LAT$_CMDERROR = '017692C8'X' PARAMETER LAT$_REINITERR = '017692D0'X% PARAMETER LAT$_QUALOBS = '017692D8'X& PARAMETER LAT$_CNTRSOBS = '017692E0'X$ PARAMETER LAT$_CMDOBS = '017692E8'X' PARAMETER LAT$_CONNECTED = '01769901'X ! G ! LAT CONNECTION REJECTION REASON CODES. THESE MESSAGES CORRESPOND TOF ! THE REJECTION REASON CODES GENERATED BY LTDRIVER WHEN A CONNECTIONG ! REQUEST IS ABORTED (IE. FAILS). THE REASON CODE IS RETURNED IN P ARTE ! OF THE IOSB AND MAY BE TRANSLATED TO THE CORRESPONDING CODE BELOW% ! WITH A SIMPLE TRANSLATION VECTOR. ! ( PARAMETER LAT$_LRJUNKNOWN = '01769F44'X) PARAMETER LAT$_LRJSHUTDOWN = '01769F4C'X) PARAMETER LAT$_LRJRESOURCE = '01769F54'X& PARAMETER LAT$_LRJINUSE = '01769F5C'X* PARAMETER LAT$_LRJNOSERVICE = '01769F64'X( PARAMETER LAT$_LRJDISABLE = '01769F6C'X+ PARAMETER LAT$_LRJNOTOFFERED = '01769F74'X, PARAMETER LAT$_LRJNAMEUNKNOWN = '01769F7C'X- PARAMETER LAT$_LRJACCESSREJECT = '01769F84'X- PARAMETER LAT$_LRJACCESSDENIED = '01769F8C'X( PARAMETER LAT$_LRJCORRUPT = '01769F94'X+ PARAMETER LAT$_LRJNOTSUPPORT = '01769F9C'X( PARAMETER LAT$_LRJNOSTART = '01769FA4'X( PARAMETER LAT$_LRJDELETED = '01769FAC'X( PARAMETER LAT$_LRJILLEGAL = '01769FB4'X( PARAMETER LAT$_LRJUSERDIS = '01769FBC'X+ PARAMETER LAT$_LRJIVPASSWORD = '01769FC4'X( PARAMETER LAT$_CONTIMEOUT = '01769FCC'X, PARAMETER LAT$_CONAPPLICATION = '01769FD4'X) PARAMETER LAT$_LICREQUIRED = '01769FDC'X) PARAMETER  LAT$_UNREACHABLE = '01769FE4'X( PARAMETER LAT$_NOSUCHNODE = '01769FEC'X$ PARAMETER LAT$_NOSRVC = '01769FF4'X' PARAMETER LAT$_PWDSYNTAX = '01769FFC'X% PARAMETER LAT$_SERUNAV = '0176A004'X$ PARAMETER LAT$_SESLIM = '0176A00C'X& PARAMETER LAT$_SRVCNODE = '0176A014'X# PARAMETER LAT$_VCLIM = '0176A01C'X% PARAMETER LAT$_NODUNAV = '0176A024'X% PARAMETER LAT$_INITERR = '0176A02C'X& PARAMETER LAT$_OUTERROR = '0176A034'X& PARAMETER LAT$_AUTHFAIL = '0176A03C'X% PARAMETER LAT$_CONFAIL = '0176A044'X% PARAMETER LAT$_CONLOST = '0176A04C'X$ PARAMETER LAT$_INSRES = '0176A054'X& PARAMETER LAT$_NOMASTER = '0176A05C'X% PARAMETER LAT$_TIMEOUT = '0176A064'X% PARAMETER LAT$_PROTERR = '0176A06C'X$ PARAMETER LAT$_SRVDIS = '0176A074'X# PARAMETER LAT$_NOACP = '0176A07C'X$ PARAMETER LAT$_NOSLOT = '0176A084'X% PARAMETER LAT$_BADCIRC = '0176A08C'X& PARAMETER LAT$_VCSESLIM = '0176A094'X% PARAMETER LAT$_BADLINK = '0176A09C'X& PARAMETER LAT$_NOTATERM = '0176A0A4'X# PARAMETER LAT$_NOCIB = '017 6A0AC'X) PARAMETER LAT$_INSRESOURCE = '0176A0B4'X$ PARAMETER LAT$_CIBLIM = '0176A0BC'X% PARAMETER LAT$_PROTVIO = '0176A0C4'X$ PARAMETER LAT$_NOROOM = '0176A0CC'X* PARAMETER LAT$_LISTTOOSHORT = '0176A0D4'X) PARAMETER LAT$_LATSTOPPING = '0176A0DC'X) PARAMETER LAT$_NOTWITHCONN = '0176A0E4'X' PARAMETER LAT$_ENTNOTFOU = '0176A0EC'X( PARAMETER LAT$_NOMORENODS = '0176A0F4'X( PARAMETER LAT$_NOMORESVCS = '0176A0FC'X$ PARAMETER LAT$_NOSELF = '0176A104'X( PARAMETER LAT$_NOTOFFERED = '0176A10C'X & PARAMETER LAT$_ACPNOCTL = '0176A114'X' PARAMETER LAT$_ACPNOKSTK = '0176A11C'X' PARAMETER LAT$_ACPNOVIRT = '0176A124'X& PARAMETER LAT$_NODLIMIT = '0176A12C'X) PARAMETER LAT$_VERMISMATCH = '0176A134'X+ PARAMETER LAT$_DRIVERNOTSHUT = '0176A13C'X( PARAMETER LAT$_CONFQUAVAL = '0176A144'X& PARAMETER LAT$_NODESHUT = '0176A14C'X) PARAMETER LAT$_INCDISABLED = '0176A154'X) PARAMETER LAT$_CANTMODCONN = '0176A15C'X' PARAMETER LAT$_UNDEFCONN = '0176A164'X( PARAMETER LAT$_NOMORECONN = '0176A16C 'X( PARAMETER LAT$_UNDEFENTRY = '0176A174'X+ PARAMETER LAT$_NOMOREENTRIES = '0176A17C'X* PARAMETER LAT$_ENTRYDELONLY = '0176A184'X& PARAMETER LAT$_XSOLICIT = '0176A18C'X& PARAMETER LAT$_NOLANDEV = '0176A194'X' PARAMETER LAT$_SOLGENSVC = '0176A19C'X) PARAMETER LAT$_LRJUSERDISC = '0176A1A4'X* PARAMETER LAT$_LRJNOTQUEUED = '0176A1AC'X( PARAMETER LAT$_NOACTLINKS = '0176A1B4'X, PARAMETER LAT$_CONNDELETEONLY = '0176A1BC'X, PARAMETER LAT$_LRJREMDISABLED = '0176A1C4'X* PARAMETER LAT$_INCOMPDRVACP = '0176A1CC'X* PARAMETER LAT$_LRJINCOMPVER = '0176A1D4'X& PARAMETER LAT$_LRJIVMSG = '0176A1DC'X+ PARAMETER LAT$_NORATINGIMAGE = '0176A1E4'X+ PARAMETER LAT$_RATINGNOTINIT = '0176A1EC'X( PARAMETER LAT$_INVNODEUID = '0176A1F4'X!DEC$ END OPTIONSww>Φ!*** MODULE $LBRCTLTBL ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARND PARAMETER LBR$C_CTLTBLID = '000000CB'X ! Ident for control table % PARAMETER LBR$M_LOCATE = '00000001'X# PARAMETER LBR$M_OPEN = '00000002'X% PARAMETER LBR$K_LENGTH = '0000001E'X% PARAMETER LBR$C_LENGTH = '0000001E'X STRUCTURE /LBRCTLTBL// BYTE LBR$B_ID ! Control table ID 5 BYTE LBR$B_TBLSIZ ! Control table size 7 BYTE LBR$B_TYPE ! Type of library opened ? BYTE LBR$B_FUNC ! Operation (function) requested 5 BYTE %FILL(1:2) ! Reserved extra bytes UNION MAP5 INTEGER*4 LBR$L_USRFLG ! Flags longword  END MAP  MAP' PARAMETER LBR$S_LOCATE = 1R PARAMETER LBR$V_LOCATE = 0 ! Use "locate" rather than "move" mode % PARAMETER LBR$S_OPEN = 18 PARAMETER LBR$V_OPEN = 1 ! Library open  BYTE %FILL (1) END MAP END UNION< INTEGER*4 LBR$L_HDRPTR ! Pointer to in-core header C INTEGER*4 LBR$L_CTXPTR ! Pointer to context control block : INTEGER*4 LBR$L_CURIDX ! Number of current index < INTEGER*4 LBR$L_USRNAM ! Pointer to user NAM block O INTEGER*4 LBR$L_OLDHDRPTR ! Pointer to unmodified in-core header block  END STRUCTURE ! LBRCTLTBL!DEC$ END OPTIONS ww ?Φ!*** MODULE $LBRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Types of libraries !  ! Define the library types L PARAMETER LBR$C_TYP_UNK = '00000000'X ! Unknown/unspecified library type J PARAMETER LBR$C_TYP_OBJ = '00000001'X ! Object/shareable image library 9 PARAMETER LBR$C_TYP_MLB = '00000002'X ! Macro library = PARAMETER LBR$C_TYP_HLP = '00000003'X ! Help file library 8 PARAMETER LBR$C_TYP_TXT = '00000004'X ! TEXT library L PARAMETER LBR$C_TYP_SHSTB = '00000005'X ! Shareable image symbol library 7 PARAMETER LBR$C_TYP_NCS = '00000006'X ! NCS library Q PARAMETER LBR$C_TYP_DECMX = '00000006'X ! Maximum Digital library type defined@ PARAMETER LBR$C_TYP_EOBJ = '00000007'X ! Alpha object libraryR PARAMETER LBR$C_TYP_ESHSTB = '00000008'X ! Alpha Shareable image symbol library@ PARAMETER LBR$C_TYP_ELFOBJ = '00000009'X ! ELF object libraryR PARAMETER LBR$C_TYP_ELFSHSTB = '0000000A'X ! ELF Shareable image symbol libraryJ PARAMETER ELBR$C_TYP_DECMX = '0000000A'X ! Maximum library type definedM PARAMETER LBR$C_TYP_RDEC = '0000007F'X ! Types between DECMX and RDEC are  ! reserved to DigitalO PARAMETER LBR$C_TYP_USRLW = '00000080'X ! User library types range from 128 5 PARAMETER LBR$C_TYP_USRHI = '000000FF'X ! to 255.  ! ! Function codes for lbr$flush ! J PARAMETER LBR$C_FLUSHDATA = '00000001'X ! Flush data blocks from cache Q PARAMETER LBR$C_FLUSHALL = '00000000'X ! Flush data blocks, then index blocks  !  ! Librarian fixed parameters ! I PARAMETER LBR$C_MAXRECSIZ = '00000800'X ! Maximum record size allowed @ PARAMETER LBR$C_PAGESIZE = '00000200'X ! Size of memory page X PARAMETER LBR$C_HASHSIZE = '00000200'X ! Size of hash table ** Must be power of 2 ** P PARAMETER LBR$C_TEXTPAGE = '000001FC'X ! No. of useable bytes on a text page I PARAMETER LBR$C_DEXTQ = '00000032'X ! Library default extend quantity K PARAMETER LBR$C_MAXCTL = '00000040'X ! Maximum number of open libraries M PARAMETER LBR$C_MAXHDRSIZ = '00000080'X ! Maximum length of module header  ! (max user length is:# ! lbr$c_maxhdrsiz-mhd$c_length)V PARAMETER LBR$C_DEFENTALL = '0000012C'X ! Number of entries to allocate by default W PARAMETER LBR$C_RETRYOPEN = '00000078'X ! Number of times to retry open on RMS$_FLK F PARAMETER LBR$C_RETRYWAIT = '00000001'X ! Number of seconds to waitL PARAMETER LBR$C_MINREAD = '00000002'X ! Minimum number of blocks to read D PARAMETER LBR$C_MAXREAD = '00000064'X ! Max blocks can ever read d PARAMETER LBR$C_MEMXTRA = '00000032'X ! Number blocks to expand region by above and beyond lbr$glC ! Number blocks to expand region by above and beyond lbr$gl_mQ PARAMETER LBR$C_PUTBUFSIZ = '0000001E'X ! Block size of VM empty cache buffer Q PARAMETER LBR$C_FLSHBFSIZ = '00000001'X ! Block size of stack mt_cache buffer M PARAMETER LBR$C_MAXIDXRD = '00000014'X ! Maximum blocks in one index read d PARAMETER LBR$C_ELFMAXKEYLEN = '00000400'X ! Maximum length of an ASCII keyword for ELF librariesb PARAMETER LBR$C_MAXKEYLEN = '00000080'X ! Maximum length of an ASCII keyword, at most N, where  ! 3*(N+7) < or = 506Z PARAMETER LBR$C_MAXLUHREC = '00008000'X ! maximum library update history record length A PARAMETER LBR$M_SYM_WEAK = '00000001'X ! Weak symbol attributeC PARAMETER LBR$M_SYM_GROUP = '00000002'X ! Group symbol attribute; PARAMETER LBR$M_SYM_ALL = '80000000'X ! All types symbolX PARAMETER LBR$M_SYM_NGG = '00000001'X ! Symbol type bitmasks - Nongroup global symbolS PARAMETER LBR$M_SYM_UXWK = '00000002'X ! Symbol type bitmasks - Unix weak symbolT PARAMETER LBR$M_SYM_GG = '00000004'X ! Symbol type bitmasks - group global symbolZ PARAMETER LBR$M_SYM_GUXWK = '00000008'X ! Symbol ty pe bitmasks - group Unix weak symbol ! ( ! Librarian fixed parameters for ALPHA ! I PARAMETER ELBR$C_MAXRECSIZ = '00002000'X ! Maximum record size allowed ! ! ! LBR$INI_CONTROL argument list ! ? PARAMETER LBR$C_CREATE = '00000000'X ! Create a new library A PARAMETER LBR$C_READ = '00000001'X ! Read an existing library F PARAMETER LBR$C_UPDATE = '00000002'X ! Update an exisiting library B PARAMETER LBR$C_MAXFUNC = '00000002'X ! Maximum legal function  STRUCTURE /LBRDEF/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_IC_CTLTBL ! Control index address , INTEGER*4 LBR$L_IC_FUNC ! Function D INTEGER*4 LBR$L_IC_TYPE ! Type of library expected to open  !  ! LBR$OPEN argument list !  END STRUCTURE ! LBRDEF STRUCTURE /LBRDEF1/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_OP_CTLTBL ! Control index address L INTEGER*4 LBR$L_OP_FNS ! Address of string descriptor for filename D I NTEGER*4 LBR$L_OP_CREOPT ! Address of create options array P INTEGER*4 LBR$L_OP_DNS ! Address of descriptor for default name string I INTEGER*4 LBR$L_OP_RLFNA ! Address of NAM block for related file T INTEGER*4 LBR$L_OP_RNS ! Address of descriptor for related filename string b INTEGER*4 LBR$L_OP_RNSLEN ! Address of longword to store resultant filename string length  !  ! LBR$CLOSE argument list !  END STRUCTURE ! LBRDEF1 STRUCTURE /LBRDEF2/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_CL_CTLTBL ! Control index address  ! ! LBR$GET_HEADER argument list !  END STRUCTURE ! LBRDEF2 STRUCTURE /LBRDEF3/+ INTEGER*4 %FILL ! Argument count = INTEGER*4 LBR$L_GH_CTLTBL ! Address of Control index R INTEGER*4 LBR$L_GH_RETARY ! Address of 128-longword array for return info  !  ! LBR$SET_INDEX argument list !  END STRUCTURE ! LBRDEF3 STRUCTURE /LBRDEF4/+ INTEGER*4 %FILL !  Argument count : INTEGER*4 LBR$L_SI_CTLTBL ! Control index address < INTEGER*4 LBR$L_SI_IDXNUM ! Address of index number  ! ! LBR$LOOKUP_KEY argument list !  END STRUCTURE ! LBRDEF4 STRUCTURE /LBRDEF5/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_LK_CTLTBL ! Control index address Q INTEGER*4 LBR$L_LK_KEYNAM ! Address of string descriptor or binary value O INTEGER*4 LBR$L_LK_TXTRFA ! Address of quadword to return RFA if found  ! ! LBR$INSERT_KEY argument list !  END STRUCTURE ! LBRDEF5 STRUCTURE /LBRDEF6/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_IK_CTLTBL ! Control index address Q INTEGER*4 LBR$L_IK_KEYNAM ! Address of string descriptor or binary value ; INTEGER*4 LBR$L_IK_TXTRFA ! Address of RFA of text  ! ! ! LBR$REPLACE_MOD argument list !  ! ! ! LBR$REPLACE_KEY argument list !  END STRUCTURE ! LBRDEF6 STRUCTURE /LBRDEF7/+ INTEGER*4  %FILL ! Argument count : INTEGER*4 LBR$L_RK_CTLTBL ! Control index address Q INTEGER*4 LBR$L_RK_KEYNAM ! Address of string descriptor or binary value ? INTEGER*4 LBR$L_RK_OLDRFA ! Address of RFA of old text ? INTEGER*4 LBR$L_RK_NEWRFA ! Address of RFA of new text  ! ! LBR$DELETE_KEY argument list !  END STRUCTURE ! LBRDEF7 STRUCTURE /LBRDEF8/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_DK_CTLTBL ! Control index address Q INTEGER*4 LBR$L_DK_KEYNAM ! Address of string descriptor or binary value  ! ! ! LBR$DELETE_DATA argument list !  END STRUCTURE ! LBRDEF8 STRUCTURE /LBRDEF9/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_DD_CTLTBL ! Control index address B INTEGER*4 LBR$L_DD_TXTRFA ! Address of RFA to delete from  ! ! LBR$GET_RECORD argument list !  END STRUCTURE ! LBRDEF9 STRUCTURE /LBRDEF10/+ INTEGER*4 %FILL ! Argument count : INT EGER*4 LBR$L_GR_CTLTBL ! Control index address D INTEGER*4 LBR$L_GR_BUFDES ! Address of descriptor of buffer N INTEGER*4 LBR$L_GR_BUFLEN ! Address of longword to return record size  ! ! LBR$PUT_RECORD argument list !  END STRUCTURE ! LBRDEF10 STRUCTURE /LBRDEF11/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_PR_CTLTBL ! Control index address N INTEGER*4 LBR$L_PR_BUFDES ! Address of descriptor of buffer to output F INTEGER*4 LBR$L_PR_TXTRFA ! Address of quadword to return RFA  ! of text record !  ! LBR$PUT_END argument list !  END STRUCTURE ! LBRDEF11 STRUCTURE /LBRDEF12/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_PE_CTLTBL ! Control index address  !  ! LBR$SEARCH argument list !  END STRUCTURE ! LBRDEF12 STRUCTURE /LBRDEF13/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_SR_CTLTBL ! Control index address < INTEGER*4 LBR$L_SR_IDXNUM  ! Address of index number E INTEGER*4 LBR$L_SR_RFA ! Address of RFA to search index for A INTEGER*4 LBR$L_SR_USRTN ! User routine to call on match  ! 7 ! Argument list for user routine called by LBR$SEARCH !  END STRUCTURE ! LBRDEF13 STRUCTURE /LBRDEF14/+ INTEGER*4 %FILL ! Argument count Q INTEGER*4 LBR$L_SU_KEYDES ! Address of string descriptor or binary value N INTEGER*4 LBR$L_SU_TXTRFA ! Address of array containing rfa of module  !  ! LBR$GET_INDEX argument list !  END STRUCTURE ! LBRDEF14 STRUCTURE /LBRDEF15/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_GI_CTLTBL ! Control index address 1 INTEGER*4 LBR$L_GI_IDXNUM ! Index number G INTEGER*4 LBR$L_GI_USRTN ! User routine to call for each entry  ! : ! Argument list for user routine called by LBR$GET_INDEX !  END STRUCTURE ! LBRDEF15 STRUCTURE /LBRDEF16/+ INTEGER*4 %FILL ! Argument count J INT EGER*4 LBR$L_GU_KEYADR ! Address of descriptor or binary value ; INTEGER*4 LBR$L_GU_TXTRFA ! RFA of associated text  ! ! LBR$ADD_UPDATE argument list !  END STRUCTURE ! LBRDEF165 PARAMETER LBR$C_ADDMOD = '00000001'X ! Add module 8 PARAMETER LBR$C_DELMOD = '00000002'X ! Delete module 9 PARAMETER LBR$C_REPMOD = '00000003'X ! Replace module  !  STRUCTURE /LBRDEF17/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_AU_CTLTBL ! Control index ad dress ) INTEGER*4 LBR$L_AU_FLAGS ! Flags Q INTEGER*4 LBR$L_AU_KEYNAM ! Address of string descriptor or binary value  ! Types of operations logged ! ! LBR$GET_UPDATES argument list !  END STRUCTURE ! LBRDEF17 STRUCTURE /LBRDEF18/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_GU_CTLTBL ! Control index address H INTEGER*4 LBR$L_GU_USRTN ! User routine to call for each update  ! < ! Argument list for user routine called by LBR$GET_UPDATES !  END STRUCTURE ! LBRDEF18 STRUCTURE /LBRDEF19/* INTEGER*4 %FILL ! Argument list G INTEGER*4 LBR$L_UU_UPDESC ! String descriptor for history line  END STRUCTURE ! LBRDEF19 ! ! LBR$MAP_MODULE argument list !  STRUCTURE /LBRDEF20/+ INTEGER*4 %FILL ! Argument count 9 INTEGER*4 LBR$L_MM_CTLTBL ! Control index address\ INTEGER*4 LBR$Q_MM_VAADDR(2) ! 64-bit virtual Address of the specified object module= INTEGER*4 LBR$Q_MM_MODSIZ(2) ! Address of module size> INTEGER*4 LBR$L_MM_TXTRFA ! Address of RFA to map from ! ; ! Argument list for user routine called by LBR$MAP_MODULE !  END STRUCTURE ! LBRDEF20 ! " ! LBR$UNMAP_MODULE argument list !  STRUCTURE /LBRDEF21/+ INTEGER*4 %FILL ! Argument count 9 INTEGER*4 LBR$L_UM_CTLTBL ! Control index address< INTEGER*4 LBR$L_UM_TXTRFA ! Address of RFA to unmap  ! = ! Argument list for user routine called by LBR$UNMAP_MODULE !  END STRUCTURE ! LBRDEF21 ! ! ! LBR$GET_VERSION argument list !  STRUCTURE /LBRDEF22/+ INTEGER*4 %FILL ! Argument count ? INTEGER*4 LBR$L_GV_VERDESC ! Addr of Version Descriptor9 INTEGER*4 LBR$L_GV_RETLEN ! Address of ret. len.  ! < ! Argument list for user routine called by LBR$GET_VERSION !  END STRUCTURE ! LBRDEF22 ! ! ! LBR$LOOKUP_TYPE argument list !  STRUCTURE /LBRDEF23/+ INTEGER*4 %FILL ! Argument count : INTEGER*4 LBR$L_LT_CTLTBL ! Control index address Q INTEGER*4 LBR$L_LT_KEYNAM ! Address of string descriptor or binary value O INTEGER*4 LBR$L_LT_TXTRFA ! Address of quadword to return RFA if found 7 INTEGER*4 LBR$L_LT_FLAG ! Address of ret. flag ! < ! Argument list for user routine called by LBR$LOOKUP_TYPE !  END STRUCTURE ! LBRDEF23 ! ! LBR$PUT_MODULE argument list !  STRUCTURE /LBRDEF24/+ INTEGER*4 %FILL ! Argument count 9  INTEGER*4 LBR$L_PM_CTLTBL ! Control index address\ INTEGER*4 LBR$Q_PM_VAADDR(2) ! 64-bit virtual Address of the specified object module= INTEGER*4 LBR$Q_PM_MODSIZ(2) ! Address of module size9 INTEGER*4 LBR$L_PM_TXTRFA ! Address of return RFA ! ; ! Argument list for user routine called by LBR$PUT_MODULE !  END STRUCTURE ! LBRDEF24!DEC$ END OPTIONS ww/:GΦ!*** MODULE $LCKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! LOCK MANAGER DEFINITIONS ! -% PARAMETER LCK$M_VALBLK = '00000001'X& PARAMETER LCK$M_CONVERT = '00000002'X& PARAMETER LCK$M_NOQUEUE = '00000004'X& PARAMETER LCK$M_SYNCSTS = '00000008'X% PARAMETER LCK$M_SYSTEM = '00000010'X& PARAMETER LCK$M_NOQUOTA = '00000020'X% PARAMETER LCK$M_CVTSYS = '00000040'X& PARAMETER LCK$M_RECOVER = '00000080'X& PARAMETER LCK$M_PROTECT = '00000100'X' PARAMETER LCK$M_NODLCKWT = '00000200'X( PARAMETER LCK$M_NODLCKBLK = '00000400'X' PARAMETER LCK$M _EXPEDITE = '00000800'X% PARAMETER LCK$M_QUECVT = '00001000'X% PARAMETER LCK$M_BYPASS = '00002000'X( PARAMETER LCK$M_NOIOLOCK8 = '00004000'X% PARAMETER LCK$M_NOFORK = '00008000'X& PARAMETER LCK$M_XVALBLK = '00010000'X% PARAMETER LCK$M_DEQALL = '00000001'X% PARAMETER LCK$M_CANCEL = '00000002'X( PARAMETER LCK$M_INVVALBLK = '00000004'X- PARAMETER LCK$M_RESV_NOIOLOCK8 = '00004000'X* PARAMETER LCK$M_RESV_NOFORK = '00008000'X+ PARAMETER LCK$M_RESV_XVALBLK = '00010000'X/ PARAMETER LCK$K_N LMODE = '00000000'X ! NULL : PARAMETER LCK$K_CRMODE = '00000001'X ! CONCURRENT READ ; PARAMETER LCK$K_CWMODE = '00000002'X ! CONCURRENT WRITE 9 PARAMETER LCK$K_PRMODE = '00000003'X ! PROTECTED READ : PARAMETER LCK$K_PWMODE = '00000004'X ! PROTECTED WRITE 4 PARAMETER LCK$K_EXMODE = '00000005'X ! EXCLUSIVE  STRUCTURE /LCKDEF/ UNION MAP# PARAMETER LCK$S_VALBLK = 1> PARAMETER LCK$V_VALBLK = 0 ! VALUE BLOCK INCLUDED $ PARAMETER LCK$S_CONVERT = 1 = PARAMETER LCK$V_CONVERT = 1 ! CONVERSION REQUEST $ PARAMETER LCK$S_NOQUEUE = 1? PARAMETER LCK$V_NOQUEUE = 2 ! DO NOT QUEUE REQUEST $ PARAMETER LCK$S_SYNCSTS = 1G PARAMETER LCK$V_SYNCSTS = 3 ! SYNCHRONOUS STATUS REQUESTED # PARAMETER LCK$S_SYSTEM = 15 PARAMETER LCK$V_SYSTEM = 4 ! SYSTEM LOCK $ PARAMETER LCK$S_NOQUOTA = 1< PARAMETER LCK$V_NOQUOTA = 5 ! DON'T CHARGE QUOTA# PARAMETER LCK$S_CVTSY S = 1: PARAMETER LCK$V_CVTSYS = 6 ! CONVERT TO SYSTEM$ PARAMETER LCK$S_RECOVER = 1F PARAMETER LCK$V_RECOVER = 7 ! RECOVER LOCK DURING FAILOVER$ PARAMETER LCK$S_PROTECT = 1F PARAMETER LCK$V_PROTECT = 8 ! PROTECT LOCK DURING FAILOVER% PARAMETER LCK$S_NODLCKWT = 1> PARAMETER LCK$V_NODLCKWT = 9 ! NO DEADLOCK WAITING& PARAMETER LCK$S_NODLCKBLK = 1A PARAMETER LCK$V_NODLCKBLK = 10 ! NO DEADLOCK BLOCKING%  PARAMETER LCK$S_EXPEDITE = 1C PARAMETER LCK$V_EXPEDITE = 11 ! EXPEDITE NLMODE REQUEST# PARAMETER LCK$S_QUECVT = 1C PARAMETER LCK$V_QUECVT = 12 ! FORCE CONVERSION TO QUEUE# PARAMETER LCK$S_BYPASS = 1A PARAMETER LCK$V_BYPASS = 13 ! BYPASS WAITING REQUESTS& PARAMETER LCK$S_NOIOLOCK8 = 1M PARAMETER LCK$V_NOIOLOCK8 = 14 ! DO NOT LOCK IOLOCK8 FOR CALLBACK# PARAMETER LCK$S_NOFORK = 1P PARAMETER LCK$V_NOFORK = 15 ! SAFE TO PERFORM OPERATION WITHOUT FORK$ PARAMETER LCK$S_XVALBLK = 1E PARAMETER LCK$V_XVALBLK = 16 ! LONG VALUE BLOCK INCLUDED  ! J ! IFBLKING bitfield mask; /* PERFORM CONVERSION IF BLOCKING !  BYTE %FILL (3) END MAP MAP# PARAMETER LCK$S_DEQALL = 1; PARAMETER LCK$V_DEQALL = 0 ! DEQUEUE ALL LOCKS # PARAMETER LCK$S_CANCEL = 17 PARAMETER LCK$V_CANCEL = 1 ! CANCEL REQUEST& PARAMETER LCK$S_INVVALBLK = 1B PARAMETER LCK$V_INVVALBLK = 2 ! INVALIDATE VALUE BLOCK BYTE %FILL (1) END MAP ! LOCK MODES END UNION END STRUCTURE ! LCKDEF!DEC$ END OPTIONS wwyGΦ!*** MODULE $LDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN' PARAMETER IO$_LD_CONTROL = '00000014'X' PARAMETER LDIO$K_CONNECT = '00000000'X* PARAMETER LDIO$K_DISCONNECT = '00000001'X, PARAMETER LDIO$K_ENABLE_TRACE = '00000002'X- PARAMETER LDIO$ K_DISABLE_TRACE = '00000003'X) PARAMETER LDIO$K_GET_TRACE = '00000004'X+ PARAMETER LDIO$K_RESET_TRACE = '00000005'X. PARAMETER LDIO$K_GET_CONNECTION = '00000006'X( PARAMETER LDIO$K_SET_SEED = '00000007'X, PARAMETER LDIO$K_ENABLE_WATCH = '00000008'X- PARAMETER LDIO$K_DISABLE_WATCH = '00000009'X) PARAMETER LDIO$K_GET_WATCH = '0000000A'X, PARAMETER LDIO$K_RESUME_WATCH = '0000000B'X0 PARAMETER LDIO$K_GET_SUSPEND_LIST = '0000000C'X. PARAMETER LDIO$K_ENABLE_PROTECT = '0000000D'X/ PARAMETER L DIO$K_DISABLE_PROTECT = '0000000E'X- PARAMETER LDIO$K_SET_ALLOCLASS = '0000000F'X4 PARAMETER LDIO$K_GET_TRACE_PARAMETERS = '00000010'X+ PARAMETER LDIO$K_GET_VERSION = '00000011'X' PARAMETER LDIO$M_REPLACE = '00000100'X% PARAMETER LDIO$M_ABORT = '00000200'X' PARAMETER LDIO$M_INQUIRE = '00000400'X& PARAMETER LDIO$M_NOWAIT = '00000800'X% PARAMETER LDIO$M_RESET = '00001000'X% PARAMETER LDIO$M_SHARE = '00002000'X( PARAMETER LDIO$M_ACCURATE = '00004000'X( PARAMETER LDIO$M_FDTTRACE = '00008000'X# PARAMETER LDIO$M_LBN = '00010000'X( PARAMETER LDIO$M_OVERRIDE = '00020000'X$ PARAMETER LDIO$M_LOCK = '00040000'X$ PARAMETER LDIO$M_NOFE = '00080000'X STRUCTURE /LDIO/ PARAMETER LDIO$S_FUNC = 8 PARAMETER LDIO$V_FUNC = 0! PARAMETER LDIO$S_REPLACE = 1! PARAMETER LDIO$V_REPLACE = 8 PARAMETER LDIO$S_ABORT = 1 PARAMETER LDIO$V_ABORT = 9! PARAMETER LDIO$S_INQUIRE = 1" PARAMETER LDIO$V_INQUIRE = 10 PARAMETER LDIO$S_NOWAIT = 1! PARAMETER LDIO$V_NOWAIT = 11 PARAMETER LDIO$S_RESET = 1 PARAMETER LDIO$V_RESET = 12 PARAMETER LDIO$S_SHARE = 1 PARAMETER LDIO$V_SHARE = 13" PARAMETER LDIO$S_ACCURATE = 1# PARAMETER LDIO$V_ACCURATE = 14" PARAMETER LDIO$S_FDTTRACE = 1# PARAMETER LDIO$V_FDTTRACE = 15 PARAMETER LDIO$S_LBN = 1 PARAMETER LDIO$V_LBN = 16" PARAMETER LDIO$S_OVERRIDE = 1# PARAMETER LDIO$V_OVERRIDE = 17 PARAMETER LDIO$S_LOCK = 1 PARAMETER LDIO$V_LOCK = 18 PARAMETER LDIO$S_NOFE = 1 PARAMETER LDIO$V_NOFE = 19 BYTE %FILL (3) END STRUCTURE ! LDIO* PARAMETER LDRSN$K_NOTSHARED = '00000001'X( PARAMETER LDRSN$K_NOSHARE = '00000002'X* PARAMETER LDRSN$K_ALLOCLASS = '00000003'X+ PARAMETER LDRSN$K_UNITNUMBER = '00000004'X' PARAMETER LDRSN$K_TRACKS = '00000005'X( PARAMETER LDRSN$K_SECTORS = '00000006'X* PARAMETER LDRSN$K_CYLINDERS = '00000007'X) PARAMETER LDRSN$K_MAXBLOCK = '00000008'X) PARAMETER LDRSN$K_NOLBNMAP = '00000009'X)  PARAMETER LDRSN$K_STARTLBN = '0000000A'X+ PARAMETER LDRSN$K_DEVICENAME = '0000000B'X, PARAMETER LDRSN$K_NOTREPLACED = '0000000C'X+ PARAMETER LDRSN$K_RANGEINUSE = '0000000D'X, PARAMETER LDRSN$K_FILEIDINUSE = '0000000E'X* PARAMETER LDRSN$K_INCMPPROT = '0000000F'X- PARAMETER LDRSN$K_INCMPDEVTYPE = '00000010'X' PARAMETER LDTRC$C_LENGTH = '00000058'X' PARAMETER LDTRC$K_LENGTH = '00000058'X STRUCTURE /TRACE_ENT/ INTEGER*4 LDTRC$L_PID INTEGER*4 LDTRC$L_LBN INTEGER*4 LDTRC$L_BCNT INTEGER*2 LDTRC$W_FUNC INTEGER*2 LDTRC$W_RESERVED INTEGER*4 LDTRC$L_IOSB(1:2) UNION MAP( INTEGER*4 LDTRC$Q_START_TIME(2) END MAP MAP% INTEGER*4 LDTRC$L_START_TIME END MAP END UNION UNION MAP& INTEGER*4 LDTRC$Q_END_TIME(2) END MAP MAP# INTEGER*4 LDTRC$L_END_TIME END MAP END UNION# INTEGER*4 LDTRC$Q_START_SCC(2)! INTEGER*4 LDTRC$Q_END_SCC(2) INTEGER*4 LDTRC$L_STARTCPU INTEGER*4 LDTRC$L_ENDCPU UNION MAP% INTEGER*4 LDTRC$Q_ELAPSED(2) END MAP MAP" INTEGER*4 LDTRC$L_ELAPSED END MAP END UNION$ INTEGER*4 LDTRC$Q_START_USEC(2)" INTEGER*4 LDTRC$Q_END_USEC(2) END STRUCTURE ! TRACE_ENT& PARAMETER LDWTC$M_CHARS = '0000007F'X& PARAMETER LDWTC$M_NOLBN = '00000001'X% PARAMETER LDWTC$M_FILE = '00000002'X+ PARAMETER LDWTC$M_REMOVE_ALL = '00000080'X( PARAMETER LDWTC$C_SUSPEND = '00000000'X& PARAMETER LDWTC$C_CRASH = '00000001'X& PARAMETER LDWTC$C_ERROR = '00000002'X& PARAMETER LDWTC$C_OPCOM = '00000003'X$ PARAMETER LDWTC$C_MAX = '00000003'X' PARAMETER LDWTC$C_LENGTH = '00000016'X' PARAMETER LDWTC$K_LENGTH = '00000016'X STRUCTURE /WATCHPT/ INTEGER*4 LDWTC$L_LBN UNION MAP INTEGER*2 LDWTC$W_FLAGS END MAP MAP UNION MAP, PARAMET ER LDWTC$S_CHARS = 7, PARAMETER LDWTC$V_CHARS = 0 BYTE %FILL (1) END MAP MAP0 PARAMETER LDWTC$S_NOLBN = 10 PARAMETER LDWTC$V_NOLBN = 0/ PARAMETER LDWTC$S_FILE = 1/ PARAMETER LDWTC$V_FILE = 13 PARAMETER LDWTC$S_RESERVED = 53 PARAMETER LDWTC$V_RESERVED = 25 PARAMETER LDWTC$S_REMOVE_ALL = 15 PARAMETER LDWTC$V_REMOVE_ALL = 7# BYTE %FILL (1) END MAP END UNION END MAP END UNION INTEGER*2 LDWTC$W_ACTION INTEGER*2 LDWTC$W_FUNC INTEGER*2 LDWTC$W_RETCODE UNION MAP INTEGER*4 LDWTC$A_SBK END MAP MAP INTEGER*4 LDWTC$A_FCB END MAP END UNION UNION MAP# INTEGER*2 LDWTC$W_FID(1:3)  END MAP MAP& INTEGER*2 LDWTC$W_FID_NUM& INTEGER*2 LDWTC$W_FID_SEQ& INTEGER*2 LDWTC$W_FID_RVN END MAP END UNION END STRUCTURE ! WATCHPT( PARAMETER LDSUSP$C_LENGTH = '00000010'X( PARAMETER LDSUSP$K_LENGTH = '00000010'X STRUCTURE /SUSPEND_LIST/ INTEGER*4 LDSUSP$L_PID INTEGER*4 LDSUSP$L_LBN INTEGER*2 LDSUSP$W_FLAGS INTEGER*2 LDSUSP$W_ACTION INTEGER*2 LDSUSP$W_FUNC INTEGER*2 LDSUSP$W_RETCODE END STRUCTURE ! SUSPEND_LIST!DEC$ END OPTIONS ww|Φ!*** MODULE $LEPMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 3 ! GSD entry - Module local entry point definition ! $ PARAMETER LEPM$K_NAME = '0000000F'X$ PARAMETER LEPM$C_NAME = '0000000F'X STRUCTURE /LEPMDEF/ UNION MAP= BYTE LEPM$B_GSDTYP ! Maps over LSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 LEPM$T_STA RT BYTE %FILL END MAP END UNION7 BYTE LEPM$B_DATYP ! Maps over LSY$B_DATYP 7 INTEGER*2 LEPM$W_FLAGS ! Maps over LSY$W_FLAGS F INTEGER*2 LEPM$W_ENVINDX ! Environment index symbol defined in : INTEGER*2 LEPM$W_PSINDX ! Maps over LSDF$W_PSINDX ; INTEGER*4 LEPM$L_ADDRS ! Entry point address, maps  ! over LSDF$L_VALUE1 INTEGER*2 LEPM$W_MASK ! Entry point mask 1 BYTE LEPM$B_NAMLNG ! Length of name . CHARACTER*31 LEPM$T_NAME ! Symbol name  END STRUCTURE ! LEPMDEF!DEC$ END OPTIONS wwƇΦ!*** MODULE $LGIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:50.66 !  ! --- !  ! ERROR MESSAGES FOR LOGINOUT !  ! --- ! M ! *************************************************************************M ! *  *M ! * COPYRIGHT 1981 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *M ! * *M ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR *M ! * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. *M ! * *M ! * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *M ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *M ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *M ! * COMMERCIAL LICENSE. *M ! * *M ! * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL *M ! * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION *M ! * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND *M ! * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS *M ! * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING *M ! * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN *M ! * ADDITIONAL WARRANTY. *M ! * *M ! ************************************************************************* !  ! ++ ! FACILITY: LOGINOUT ! ! ABSTRACT: ! > ! THESE ARE THE ERROR MESSAGES USED BY THE LOGINOUT PROGRAM. !  ! ENVIRONMENT: ! - ! VMS OPERATING SYSTEM, PRIVILEGED UTILITY. ! ' ! AUTHOR: TIM HALVORSEN, MARCH 1981 !  ! MODIFIED BY: ! , ! X-13 JAH0504 JOHN A HARNEY 23-MAR-20055 ! D'OH. I DUPLICATED THE SPACE PADDING IN THE NEW7 ! PWDCLEARSEC MESSAGE FROM THE MESSAGE ABOVE; THAT'D6 ! HAVE BEEN WONDERFUL IF THE  MESSAGE JUST ABOVE WAS4 ! A SIMILAR MESSAGE. ADD ONE MORE SPACE, TO MAKE' ! PWDCLEARSEC JUST LIKE PWDSYNCHSEC. ! , ! X-12 JAH0504 JOHN A HARNEY 05-JAN-2005 ! ADD PWDCLEARSEC -? ! "OpenVMS secondary password has been cleared" ! - ! X-11 MAS0803 MARK A. STILES 10-NOV-2004< ! ONCE AGAIN, WE BOW TO THE LEGAL BEAGLES, BEAN COUNTERS,= ! AND SPIN DOCTORS. MAKE "hp" BE "HP" IN THE PRODUCT NAME ! IN THE BANNER. ! - ! X-10 MAS0796 MARK A. STILES 4 -APR-2004. ! FINALLY USE REAL PRODUCT NAME IN WELCOME. ! FOR TOPAZ, THIS WILL BE:C ! HP OPENVMS INDUSTRY STANDARD 64 OPERATING SYSTEM, VERSION V8.2 ! , ! X-9 MAS0784 MARK A. STILES 23-JUN-20036 ! YOU DIDN'T THINK THEY'D LET US GET OUT WITHOUT AT; ! LEAST ONE PRODUCT/BANNER/WELCOME NAME CHANGE, DO YOU??. ! FOR MAKO_BL2, THE BANNER/WELCOME BECOMES:< ! HP OPENVMS INDUSTRY STANDARD 64 EVALUATION RELEASE V8.0 ! + ! X-8 JAH0434 JOHN A HARNEY 25-FEB-2003# ! ADD IA6 4HELLO WELCOME MESSAGE. ! 2 ! X-7 LJK0200 LAWRENCE J. KILGALLEN 13-DEC-2000* ! ADD THE STATUS CODE LGI$_DECWRESTART. ! 2 ! X-6 LJK0198 LAWRENCE J. KILGALLEN 12-DEC-2000* ! ADD THE STATUS CODE LGI$_NULLNETUSER. ! 2 ! X-5 LJK0175 LAWRENCE J. KILGALLEN 26-JUN-20009 ! COPY MESSAGES FROM SET.MSG SO THEY WILL BE AVAILABLE ! TO THIRD PARTY ACME AGENTS. ! CHANGE COPYRIGHT. ! 2 ! X-4 LJK0119 LAWRENCE J. KILGALLEN 29-JAN-1999 ! ADD LGI$_LOSTSYNC MESSAGE. ! 2 !  X-3 LJK0045 LAWRENCE J. KILGALLEN 26-MAY-19988 ! CHANGE THE TWO PASSWORD SYNCHRONIZATION MESSAGES TO* ! SAY "external" RATHER THAN "network".8 ! TRIPLE THE TWO PASSWORD SYNCHRONIZATION MESSAGES TO+ ! COVER PRIMARY AND SECONDARY PASSWORDS. ! 2 ! X-2 LJK0033 LAWRENCE J. KILGALLEN 13-MAY-1998 ! ADD LGI$_LOGDISABLOPR. ! ADD SPACE TO LGI$_LOSTLGI. ! ADD SPACE TO LGI$_LOSTDEC. ! 2 ! X-1 LJK0009 LAWRENCE J. KILGALLEN 11-MAR-19983 ! INITIAL SUPPORT OF EXTERNAL AUT HENTICATION II: ! ADD LGI$_PWD2NOTSET. ! ADD LGI$_SYSPWDERR. ! ADD LGI$_LOSTDEC. ! ADD LGI$_LOSTLGI. ! ADD LGI$_NOSYSPWD. ! ADD LGI$_WRONGPRINCIPAL. ! ADD LGI$_PROCSTEP. ! ADD LGI$_SUBPROGRAM. ! ADD LGI$_OLDPOLICY.; ! CHANGE MODULE NAME TO LOGINMSG AND MOVE IT TO STARLET. ! . ! X-19 RJB0023 RICHARD J. BARRY 4-MAR-1996! ! ADD SINGLE SIGN-ON MESSAGES. ! , ! X-18 JAH0202 JOHN A HARNEY 16-JAN-1996@ ! PUT THE (TM) IN THE RIGHT PLACE IN ALPH AHELLO AND VAXHELLO. ! / ! X-17 NYK487 NITIN Y. KARKHANIS 29-SEP-1995: ! O INCREASE FIELD WIDTH FOR NUMBER DISPLAYED AFTER THE/ ! PEAK PAGE FILE SIZE TEXT IN LOGOUT/FULL.7 ! O CHANGED THE FIELD WIDTHS FOR WS PEAK AND MOUNTED: ! VOLUME COUNT SO THAT THE NUMBERS ARE ALIGNED ON THE( ! RIGHT-HAND-SIDE, FOR LOGOUT/FULL.9 ! O REPLACED THE "Peak page file size" TEXT WITH "PEAK= ! VIRTUAL SIZE" SINCE THAT IS THE VALUE THAT IS ACTUALLY ! DISPLAYED. ! 2 !  X-16 JAH0180 JOHN A HARNEY 08-MAY-1995? ! CHANGE THE ALPHA'S WELCOME MESSAGE TO REMOVE AXP REFERENCE ! + ! X-15 TNS003 TOM SCARPELLI 21-SEP-1993* ! UPDATE MESSAGES TO MATCH VAX VERSION. ! + ! X-14 TNS003 TOM SCARPELLI 29-JUN-19935 ! MOVE HARDCODED DAYS OF THE WEEK TO MESSAGE FILE. ! + ! X-13 TNS003 TOM SCARPELLI 23-JUN-1993 ! USE LOCAL DATE/TIME FORMAT. ! % ! X-12 AHM DREW MASON 29-SEP-1992) ! MAKE PRODUCT NAME FIT ON 80 COLUMNS. ! % ! X-11 AHM DREW MASON 29-SEP-1992% ! LAST PRODUCT NAME CHANGE FOR V1. ! % ! X-10 AHM DREW MASON 28-SEP-1992% ! LAST PRODUCT NAME CHANGE FOR V1. ! $ ! X-9 AHM DREW MASON 25-SEP-1992 ! CHANGE PRODUCT NAME. ! * ! X-7 TNS001 TOM SCARPELLI 19-JUN-1992+ ! FIX TEXT OF DECWCAPTIVE ERROR MESSAGE. ! 0 ! X-6 TNS001 TOM SCARPELLI 23-JAN-1992 ! MERGE THE FOLLOWING CHANGE:L ! (X-15 DDP1119 DERRELL D. PIPER 8-JAN-1992 12:16K !  ADD MESSAGE FOR WHEN LOGINOUT IS NOT PROPERLY INSTALLED.) ! 0 ! X-5 TNS001 TOM SCARPELLI 23-DEC-1991 ! MERGE THE FOLLOWING CHANGE:B ! (X-14 DDP0952 DERRELL D. PIPER 23-MAY-1991 13:40" ! FOLD SIGMA CHANGE INTO MAGIC:= ! DDP0931 DERRELL D. PIPER 6-MAY-1991 16:509 ! ADD MESSAGE FOR FAILURE TO ACCESS RIGHTS DATA BASE.) ! + ! X-4 KLN1136 KAREN L. NOEL 06-AUG-1991 ! MERGE THE FOLLOWING CHANGE:L ! (X-13 JRC1015 JOHN R. COVERT 22-FEB-1991 14:45/ ! IMPLEMENT LOGINOUT CALLOUTS.) ! 0 ! X-3 TNS001 TOM SCARPELLI 22-APR-1991) ! ADD WELCOME AND LOGOUT MESSAGE TEXT. ! @ ! X-9 DDP0352 DERRELL D. PIPER 24-FEB-1989 14:51$ ! ADD VAXCLUSTER LICENSE MESSAGE. ! @ ! X-8 DDP0303 DERRELL D. PIPER 27-JUN-1988 15:15, ! MERGE DECWINDOWS CHANGES INTO MAINLINE. ! 4 ! X-7 RJB0048 RICHARD J. BOUCHARD JR. 15-NOV-19878 ! CHANGE LOGOPRCON TO EXP LICITLY STATE THAT LOGIN WAS7 ! ALLOWED ON OPA0:, NOT A GENERIC "operator console" ! 4 ! X-6 RJB0034 RICHARD J. BOUCHARD JR. 26-OCT-19879 ! ADD MESSAGES FOR SUPPORT OF LMF CALL WITHIN LOGINOUT ! @ ! X-5 DDP0135 DERRELL D. PIPER 13-AUG-1987 20:039 ! RENAME LGI$_FRCPWDERR TO LGI$_FRCPWDHLP AND MAKE THE8 ! MESSAGE TEXT MORE READABLE. ADD LGI$_FRCPWDERR FOR$ ! FORCE PASSWORD CHANGE TIMEOUTS. ! @ ! X-4 DDP0076 DERRELL D. PIPER 18-MAY-1987 19:04: ! ADD LGI$_FRCPWDERR MESSAGE FOR FORCED PASSWORD CHANGE% ! ERRORS (POINT USER TO ). ! - ! X-3 DDP0052 DERRELL D. PIPER 01-APR-1987< ! ADD LGI$_NOTMODEM MESSAGE FOR INCORRECTLY WIRED MODEMS. ! < ! V04-001 ACG0478 ANDREW C. GOLDSTEIN, 12-APR-1985 19:416 ! ADD LGI$_EXLICENSE, LGI$_DISUSER, LGI$_AUTOLOGIN, ! AND LGI$_INVINPUT MESSAGES ! / ! V03-008 MHB0142 MARK BRAMHALL 27-APR-1984 ! ADD NOSUCHUSER AND INVPWD. ! / ! V03-007 MHB0130 MARK BRAMHALL 10-APR-1984+ ! MAKE CONNERR ONLY AN ERROR, NOT FATAL.# ! ADD CLITBLFAIL AND CLITBLPROT. ! / ! V03-006 MHB0112 MARK BRAMHALL 21-MAR-1984" ! ADD CONNERR AND DISRECONNECT. ! . ! V03-005 PCG0001 PETER GEORGE 04-FEB-1984 ! ADD ACNTEXPIR AND PWDEXPIR. ! < ! V03-004 ACG0385 ANDREW C. GOLDSTEIN, 29-DEC-1983 11:59! ! ADD NEW RESTRICTION MESSAGES ! < ! V03-003 ACG0376 ANDREW C. GOLDSTEIN, 29-NOV-1983 14:23$ ! ADD DEFCLI RESTRICTIONS MESSAGE ! - ! V03-002 GAS-162 GERRY SMITH 30-JUL-1983: ! ADD MESSAGES FOR SYSTEM PASSWORD AND BREAKIN EVASION. ! - ! V03-001 GAS0123 GERRY SMITH 20-APR-19830 ! ADD NETUAFACC, ERROR ACCESSING NETUAF FILE. ! - ! V02-003 HRJ0036 HERB JACOBS 08-DEC-19818 ! ADDED MORE MESSAGES FOR TERMINAL TYPE RESTRICTIONS. ! - ! V02-002 HRJ0031 HERB JACOBS 02-NOV-1981@ ! ADD MESSAGES FOR TIME OF DAY AND USER ACCOUNT RESTRICTIONS. ! + ! V001 TMH0001 TIM HALVORSEN 22-OCT-1981+ ! ADD ERROR MES SAGE FOR CAPTIVE ACCOUNTS/ ! CHANGE TO USE SYSTEM-WIDE FACILITY NUMBER. ! ---- ! IMPORTANT:  ! O ! THESE MESSAGES ARE MADE AVAILABLE TO INSTALLATION CALLOUT ROUTINES AND AREN ! STORED IN THE ACCOUNTING FILE AND MUST NOT CHANGE VALUE FROM NOW ON. YOUL ! MUST ADD ALL NEW MESSAGES TO THE APPROPRIATE SECTION AT THE END OF THIS ! MODULE.( PARAMETER LOGIN$_FACILITY = '000000D3'X ! DEFAULT SEVERITY IS FATAL& PARAMETER LGI$_JBCMIXUP = '00D3800C'X' PARAMETER LGI$_LOGDISABL = '00D38014'X% PARAMETER LGI$_EXQUOTA = '00D3801C'X% PARAMETER LGI$_CLIFAIL = '00D38024'X% PARAMETER LGI$_CLIPROT = '00D3802C'X' PARAMETER LGI$_CLISYMTBL = '00D38034'X& PARAMETER LGI$_NOTVALID = '00D3803C'X% PARAMETER LGI$_FILEACC = '00D38044'X& PARAMETER LGI$_USERAUTH = '00D3804C'X& PARAMETER LGI$_INPUTERR = '00D38054'X' PARAMETER LGI$_OUTPUTERR = '00D3805C'X& PARAMETER LGI$_CMDINPUT = '00D38064'X$ PARAMETER LGI$_OPENIN = '00D38068'X% PARAMETER LGI$_CAPTIVE = '00D38074'X% PARAM ETER LGI$_BADHOUR = '00D3807C'X% PARAMETER LGI$_USEREXC = '00D38084'X% PARAMETER LGI$_ACNTEXC = '00D3808C'X$ PARAMETER LGI$_BADDAY = '00D38094'X& PARAMETER LGI$_RESTRICT = '00D3809C'X' PARAMETER LGI$_NETUAFACC = '00D380A4'X' PARAMETER LGI$_SYSPWDTMO = '00D380AC'X# PARAMETER LGI$_EVADE = '00D380B4'X$ PARAMETER LGI$_DEFCLI = '00D380BC'X' PARAMETER LGI$_ACNTEXPIR = '00D380C4'X& PARAMETER LGI$_PWDEXPIR = '00D380CC'X% PARAMETER LGI$_CONNERR = '00D380D2'X* PARAMETER LGI$_DISRECONNECT = '00D380DC'X( PARAMETER LGI$_CLITBLFAIL = '00D380E4'X( PARAMETER LGI$_CLITBLPROT = '00D380EC'X( PARAMETER LGI$_NOSUCHUSER = '00D380F4'X$ PARAMETER LGI$_INVPWD = '00D380FC'X' PARAMETER LGI$_EXLICENSE = '00D38104'X% PARAMETER LGI$_DISUSER = '00D3810C'X' PARAMETER LGI$_AUTOLOGIN = '00D38114'X& PARAMETER LGI$_INVINPUT = '00D3811C'X& PARAMETER LGI$_NOTMODEM = '00D38124'X' PARAMETER LGI$_FRCPWDERR = '00D3812C'X' PARAMETER LGI$_LICCHKINV = '00D38134'X% PARAMETER LGI$_FISFAIL = '00D3813C'X) P ARAMETER LGI$_DECWCAPTIVE = '00D38144'X* PARAMETER LGI$_NOVAXCLUSTER = '00D3814C'X- ! SEVERITY OF THIS MESSAGE IS INFORMATIONAL' PARAMETER LGI$_FRCPWDHLP = '00D38153'X) ! SEVERITY OF THESE MESSAGES IS SUCCESS' PARAMETER LGI$_LICNOTREQ = '00D38159'X' PARAMETER LGI$_LOGOPRCON = '00D38161'X' PARAMETER LGI$_LICCHKVAL = '00D38169'XP ! ALL NEW MESSAGES MUST BE ADDED TO ONE OF THE FOLLOWING SECTIONS. YOU CANNOTN ! ADD A MESSAGE ABOVE AS THIS WILL CHANGE THE VALUES OF THOSE MESSAGES WHICH / ! FOLLOW YOUR NEW (PRESUMABLY FATAL) MESSAGE. ! INFORMATIONAL MESSAGES* PARAMETER LGI$_LOGDISABLOPR = '00D38193'X ! SUCCESS MESSAGESI PARAMETER LGI$_SKIPRELATED = '00D38321'X ! INTERNAL COMMUNICATION ONLY ! WARNING MESSAGES ! ERROR MESSAGES ! G ! THE FOLLOWING TWO MESSAGES DUPLICATE SET$_ MESSAGES IN SEVERITY ANDD ! TEXT (ALTHOUGH NOT IN CODE VALUE) TO ALLOW TRANSMISSION OF THEIRD ! VALUE TO SYS$ACM CLIENTS WHO DO NOT HAVE SET$_ MESSAGES CODES IND ! THEIR IMAGE. FOR THE PARTICULAR CASES OF LOGINOUT COMMUNICATINGD ! WITH AN LGI-CALLOUT PROVIDER OR SET PASSWORD RETURNING STATUS TOG ! DCL, THESE LGI$_ CODES GET CONVERTED TO THE CORRESPONDING SET CODESA ! TO PRESERVE COMPATIBILITY WITH VERSIONS OF VMS PRIOR TO V7.2. ! ( PARAMETER LGI$_PWD2NOTSET = '00D38962'X' PARAMETER LGI$_SYSPWDERR = '00D3896A'X ! FATAL ERRORS( PARAMETER LGI$_COUNTWRONG = '00D38C84'X' PARAMETER LGI$_RDBACCERR = '00D38C8C'X( PARAMETER LGI$_NOTALLPRIV = '00D38C94'X' PARAMETER LGI$_NOEXTAUTH = '00D38C9C'X' PARAMETER LGI$_NOLOCAUTH = '00D38CA4'X ! 7 ! FATAL MESSAGES ADDED FOR EXTERNAL AUTHENTICATION II ! % PARAMETER LGI$_LOSTDEC = '00D38CAC'X% PARAMETER LGI$_LOSTLGI = '00D38CB4'X& PARAMETER LGI$_NOSYSPWD = '00D38CBC'X, PARAMETER LGI$_WRONGPRINCIPAL = '00D38CC4'X& PARAMETER LGI$_LOSTSYNC = '00D38CCC'X ! : ! FAILURE MESSAGES ADDED FOR EXTERNAL AUTHENTICATION III ! ) PARAMETER LGI$_NULLNETUSER = '00D38CD4'X) PARAMETER LGI$_DECWRESTART = '00D38CDC'X ! G ! ALL ERROR MESSAGES SHOULD BE ADDED BEFORE THIS POINT. THE MESSAGESC ! FOLLOWING THE .BASE DIRECTIVE BELOW ARE TEXT OUTPUT BY LOGINOUT5 ! OR THE VMS ACME AND ARE NOT RETURNED TO THE USER. !  ! 2 ! THE FOLLOWING ARE MESSAGES OUTPUT IN LOGIN.B32 ! % PARAMETER LGI$_JOBTERM = '00D3A001'X' PARAMETER LGI$_JOBLOGOUT = '00D3A009'X% PARAMETER LGI$_PROCEND = '00D3A011'X& PARAMETER LGI$_ACNTINFO = '00D3A019'X' PARAMETER LGI$_ACNTINFO1 = '00D3A021'X' PARAMETER LGI$_ACNTINFO 2 = '00D3A029'X' PARAMETER LGI$_ACNTINFO3 = '00D3A031'X' PARAMETER LGI$_ACNTINFO4 = '00D3A039'X' PARAMETER LGI$_ACNTINFO5 = '00D3A041'X$ PARAMETER LGI$_PASEXP = '00D3A049'X' PARAMETER LGI$_PRIPASEXP = '00D3A051'X' PARAMETER LGI$_SECPASEXP = '00D3A059'X$ PARAMETER LGI$_SETPAS = '00D3A061'X' PARAMETER LGI$_SETPRIPAS = '00D3A069'X' PARAMETER LGI$_SETSECPAS = '00D3A071'X' PARAMETER LGI$_EXPSETPAS = '00D3A079'X' PARAMETER LGI$_PRISETPAS = '00D3A081'X' PARAMETER LGI$_SECSETPAS = '00D3A!089'X ! 5 ! THE FOLLOWING ARE MESSAGES OUTPUT IN INTERACT.B32 ! & PARAMETER LGI$_USERNAME = '00D3A091'X& PARAMETER LGI$_PASSWORD = '00D3A099'X& PARAMETER LGI$_VAXHELLO = '00D3A0A1'X( PARAMETER LGI$_ALPHAHELLO = '00D3A0A9'X$ PARAMETER LGI$_ONNODE = '00D3A0B1'X' PARAMETER LGI$_LASINTLOG = '00D3A0B9'X) PARAMETER LGI$_LASNOINTLOG = '00D3A0C1'X& PARAMETER LGI$_LOGFAILS = '00D3A0C9'X( PARAMETER LGI$_NEWMAILCNT = '00D3A0D1'X% PARAMETER LGI$_NEWMAIL = '00D3A0D9'X( PARAMETER LGI$_DISCON "PROC = '00D3A0E1'X) PARAMETER LGI$_DISCONPROCS = '00D3A0E9'X' PARAMETER LGI$_DISCONHDR = '00D3A0F1'X' PARAMETER LGI$_DISCONTXT = '00D3A0F9'X' PARAMETER LGI$_CONTOTERM = '00D3A101'X' PARAMETER LGI$_CONTOPROC = '00D3A109'X% PARAMETER LGI$_YESRESP = '00D3A111'X& PARAMETER LGI$_NONERESP = '00D3A119'X& PARAMETER LGI$_TERMCONN = '00D3A121'X$ PARAMETER LGI$_MONDAY = '00D3A129'X% PARAMETER LGI$_TUESDAY = '00D3A131'X' PARAMETER LGI$_WEDNESDAY = '00D3A139'X& PARAMETER LGI$_THURSDAY = '00D3A1#41'X$ PARAMETER LGI$_FRIDAY = '00D3A149'X& PARAMETER LGI$_SATURDAY = '00D3A151'X$ PARAMETER LGI$_SUNDAY = '00D3A159'X ! ! NEW SINGLE SIGN-ON MESSAGES. ! & PARAMETER LGI$_PWDSYNCH = '00D3A161'X( PARAMETER LGI$_PWDNOSYNCH = '00D3A169'X& PARAMETER LGI$_LOCLOGIN = '00D3A171'X ! 1 ! MESSAGES ADDED FOR EXTERNAL AUTHENTICATION II ! & PARAMETER LGI$_PROCSTEP = '00D3A179'X( PARAMETER LGI$_SUBPROGRAM = '00D3A181'X' PARAMETER LGI$_OLDPOLICY = '00D3A189'X) PARAMETER LGI$_PWDSYNCHPRI $= '00D3A191'X) PARAMETER LGI$_PWDSYNCHSEC = '00D3A199'X+ PARAMETER LGI$_PWDNOSYNCHPRI = '00D3A1A1'X+ PARAMETER LGI$_PWDNOSYNCHSEC = '00D3A1A9'X ! : ! MESSAGES COPIED FROM SET.MSG SO THEY WILL BE AVAILABLE ! TO THIRD PARTY ACME AGENTS. ! % PARAMETER LGI$_OLDPASS = '00D3A1B1'X% PARAMETER LGI$_NEWPASS = '00D3A1B9'X% PARAMETER LGI$_CHKPASS = '00D3A1C1'X !  ! IA64HELLO WELCOME MESSAGE ! ' PARAMETER LGI$_IA64HELLO = '00D3A1C9'X ! 8 ! ANOTHER MESSAGE ADDED FOR EXTERN%AL AUTHENTICATION II ! ) PARAMETER LGI$_PWDCLEARSEC = '00D3A1D1'X ! C ! ERROR MESSAGES SHOULD BE NOT ADDED AT THIS POINT. THE MESSAGESC ! FOLLOWING THE .BASE DIRECTIVE ABOVE ARE TEXT OUTPUT BY LOGINOUT5 ! OR THE VMS ACME AND ARE NOT RETURNED TO THE USER. ! !DEC$ END OPTIONSwwZ|?Φ!*** MODULE $LHIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! , ! Library header information array offsets !  STRUCTURE /LHIDEF/- INTEGER*4 & LHI$L_TYPE ! Library type 4 INTEGER*4 LHI$L_NINDEX ! Number of indices ; INTEGER*4 LHI$L_MAJORID ! Library format major id ; INTEGER*4 LHI$L_MINORID ! Library format minor id L CHARACTER*32 LHI$T_LBRVER ! ASCIC version of librarian that created 5 INTEGER*4 LHI$L_CREDAT ! Creation date/time INTEGER*4 %FILL ! ... ; INTEGER*4 LHI$L_UPDTIM ! Date/time of last update INTEGER*4 %FILL ! ... A INTEGER*4 LHI$L_UPDHIS ' ! VBN of start of update history ? INTEGER*4 LHI$L_FREEVBN ! 1st logically deleted block < INTEGER*4 LHI$L_FREEBLK ! Number of deleted blocks = BYTE LHI$B_NEXTRFA(1:6) ! RFA of end of library 5 INTEGER*2 LHI$W_RFAXTR ! Spare word, zeroed G INTEGER*4 LHI$L_NEXTVBN ! Next VBN to allocate at end of file N INTEGER*4 LHI$L_FREIDXBLK ! Number of free pre-allocated index blocks K INTEGER*4 LHI$L_FREEIDX ! Listhead for pre-allocated inde(x blocks F INTEGER*4 LHI$L_HIPREAL ! VBN of highest pre-allocated block A INTEGER*4 LHI$L_IDXBLKS ! Number of index blocks in use B INTEGER*4 LHI$L_IDXCNT ! Number of index entries (total) N INTEGER*4 LHI$L_MODCNT ! Number of entries in index 1 (module names) R INTEGER*4 LHI$L_MHDUSZ ! Length of user-maintained info in module header b INTEGER*4 LHI$L_MAXLUHREC ! Maximum number of library update histories records maintained E INTEGER*4 LHI$L_N )UMLUHREC ! Number of LUH records in history L INTEGER*4 LHI$L_LIBSTATUS ! False if there was an error closing lib [ BYTE LHI$B_FREEHDRS(1:6) ! Freed list header structure in RFA structure formatZ BYTE LHI$B_FREENODES(1:6) ! Freed list nodes structure in RFA struture format; INTEGER*4 LHI$L_IDX3HEAP ! VBN of third index block END STRUCTURE ! LHIDEF!DEC$ END OPTIONS ww煁Φ!*** MODULE $LIBCLIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS*=PACKED,COMMONS=PACKED)/NOWARN0 ! Definitions for LIB$ CLI callback procedures, PARAMETER LIB$K_CLI_LOCAL_SYM = '00000001'X- PARAMETER LIB$K_CLI_GLOBAL_SYM = '00000002'X( PARAMETER LIB$M_CLI_CTRLT = '00100000'X( PARAMETER LIB$M_CLI_CTRLY = '02000000'X STRUCTURE /CLI$CTRL_FIELDS/" PARAMETER LIB$S_CLI_CTRLT = 1# PARAMETER LIB$V_CLI_CTRLT = 20" PARAMETER LIB$S_CLI_CTRLY = 1# PARAMETER LIB$V_CLI_CTRLY = 25 BYTE %FILL (1) END STRUCTURE ! CLI$CTRL_FIELDS!DEC$ END OPTION+SwwLJ\Φ!*** MODULE $LIBDCFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN$ ! Definitions for LIB$DECODE_FAULT !  ! Operand definition codes ! % PARAMETER LIB$M_DCFACC = '00000007'X% PARAMETER LIB$M_DCFTYP = '000000F8'X STRUCTURE /LIB$B_DCF_OPERAND/ PARAMETER LIB$S_DCFACC = 38 PARAMETER LIB$V_DCFACC = 0 ! Operand access type PARAMETER LIB$S_DCFTYP = 5 PARAMETER LIB$V_DCFTYP = 3, BYTE %FILL (1) ! Operand d ,ata type" END STRUCTURE ! LIB$B_DCF_OPERAND !  ! Operand access type codes ! A PARAMETER LIB$K_DCFACC_R = '00000001'X ! Operand is to be readE PARAMETER LIB$K_DCFACC_M = '00000002'X ! Operand is to be modifiedD PARAMETER LIB$K_DCFACC_W = '00000003'X ! Operand is to be writtenA PARAMETER LIB$K_DCFACC_A = '00000004'X ! Operand is an address[ PARAMETER LIB$K_DCFACC_V = '00000005'X ! Operand is a field (may be register or address)L PARAMETER LIB$K_DCFACC_B = '00000006'X ! -Operand is a branch displacement !  ! Operand data type codes ! = PARAMETER LIB$K_DCFTYP_B = '00000001'X ! Operand is a byte= PARAMETER LIB$K_DCFTYP_W = '00000002'X ! Operand is a wordA PARAMETER LIB$K_DCFTYP_L = '00000003'X ! Operand is a longwordA PARAMETER LIB$K_DCFTYP_Q = '00000004'X ! Operand is a quadwordB PARAMETER LIB$K_DCFTYP_O = '00000005'X ! Operand is an octawordD PARAMETER LIB$K_DCFTYP_F = '00000006'X ! Operand is an F_floatingC PARAMETER LIB$K_DCFTYP_D = .'00000007'X ! Operand is a D_floatingC PARAMETER LIB$K_DCFTYP_G = '00000008'X ! Operand is a G_floatingD PARAMETER LIB$K_DCFTYP_H = '00000009'X ! Operand is an H_floating ! / ! Combined operand access and data type codes ! ( PARAMETER LIB$K_DCFOPR_AB = '00000008'X( PARAMETER LIB$K_DCFOPR_RB = '00000009'X( PARAMETER LIB$K_DCFOPR_MB = '0000000A'X( PARAMETER LIB$K_DCFOPR_WB = '0000000B'X( PARAMETER LIB$K_DCFOPR_VB = '0000000C'X( PARAMETER LIB$K_DCFOPR_BB = '0000000D'X( PARAMETER / LIB$K_DCFOPR_AW = '00000010'X( PARAMETER LIB$K_DCFOPR_RW = '00000011'X( PARAMETER LIB$K_DCFOPR_MW = '00000012'X( PARAMETER LIB$K_DCFOPR_WW = '00000013'X( PARAMETER LIB$K_DCFOPR_VW = '00000014'X( PARAMETER LIB$K_DCFOPR_BW = '00000015'X( PARAMETER LIB$K_DCFOPR_AL = '00000018'X( PARAMETER LIB$K_DCFOPR_RL = '00000019'X( PARAMETER LIB$K_DCFOPR_ML = '0000001A'X( PARAMETER LIB$K_DCFOPR_WL = '0000001B'X( PARAMETER LIB$K_DCFOPR_VL = '0000001C'X( PARAMETER LIB$K_DCFOPR_BL = '0000001D'X( PARAMETER L 0IB$K_DCFOPR_AQ = '00000020'X( PARAMETER LIB$K_DCFOPR_RQ = '00000021'X( PARAMETER LIB$K_DCFOPR_MQ = '00000022'X( PARAMETER LIB$K_DCFOPR_WQ = '00000023'X( PARAMETER LIB$K_DCFOPR_VQ = '00000024'X( PARAMETER LIB$K_DCFOPR_AO = '00000028'X( PARAMETER LIB$K_DCFOPR_RO = '00000029'X( PARAMETER LIB$K_DCFOPR_MO = '0000002A'X( PARAMETER LIB$K_DCFOPR_WO = '0000002B'X( PARAMETER LIB$K_DCFOPR_VO = '0000002C'X( PARAMETER LIB$K_DCFOPR_AF = '00000030'X( PARAMETER LIB$K_DCFOPR_RF = '00000031'X( PARAMETER LIB 1$K_DCFOPR_MF = '00000032'X( PARAMETER LIB$K_DCFOPR_WF = '00000033'X( PARAMETER LIB$K_DCFOPR_VF = '00000034'X( PARAMETER LIB$K_DCFOPR_AD = '00000038'X( PARAMETER LIB$K_DCFOPR_RD = '00000039'X( PARAMETER LIB$K_DCFOPR_MD = '0000003A'X( PARAMETER LIB$K_DCFOPR_WD = '0000003B'X( PARAMETER LIB$K_DCFOPR_VD = '0000003C'X( PARAMETER LIB$K_DCFOPR_AG = '00000040'X( PARAMETER LIB$K_DCFOPR_RG = '00000041'X( PARAMETER LIB$K_DCFOPR_MG = '00000042'X( PARAMETER LIB$K_DCFOPR_WG = '00000043'X( PARAMETER LIB$K2_DCFOPR_VG = '00000044'X( PARAMETER LIB$K_DCFOPR_AH = '00000048'X( PARAMETER LIB$K_DCFOPR_RH = '00000049'X( PARAMETER LIB$K_DCFOPR_MH = '0000004A'X( PARAMETER LIB$K_DCFOPR_WH = '0000004B'X( PARAMETER LIB$K_DCFOPR_VH = '0000004C'X) PARAMETER LIB$K_DCFOPR_END = '00000000'X ! !DEC$ END OPTIONSwwΦ!*** MODULE $LIBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.24 3 !  ! FILE: LIBMSG.MSG !  ! * *A ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1991 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * 4COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 5 *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! @ ! 1-013 - ADD LIB$_KEYALRINS, LIB$_KEYNOTFOU. SBL 20-MAR-1981) ! 1-014 - ADD LIB$_INVCVT. FM 24-MAR-81L ! 1-015 - ADD LIB$_INVDTYDSC, LIB$_INVCLADSC, LIB$_INVCLADTY, LIB$_INVNBDS7 ! LIB$_DESSTROVF, LIB$_OUTSTRTRU. FM 21-APR-81N ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM LIBMSG.MDL% ! VERSION 1-015. SBL 23-APR-1981? ! 2-002 6- USE LIB$ FACILITY FOR LIB$_NORMAL. SBL 27-APR-1981Q ! 2-003 - ADD LIB$_INTOVF, LIB$_FLTOVF, LIB$_FLTUND, LIB$_DECOVF, LIB$_ROPRAND./ ! 2-004 - ADD LIB$_WRONUMARG. RKR 4-SEP-1981@ ! 2-005 - ADD MESSAGES FOR LIB$CLI_CALLBACK. SBL 14-SEPT-1981N ! 2-006 - ADD LIB$_INVSYMNAM, MESSAGES FOR LIB$EXTEND_RANGE. SBL 1-OCT-1981= ! 2-007 - ADD LIB$_WASSET AND LIB$_WASCLR. SBL 16-OCT-1981< ! 2-008 - CORRECT TYPO IN LIB$_UNAEXTRAN. SBL 30-OCT-1981U ! 2-009 - REMOVE LIB$_WASSET AND LIB$_WASC 7LR. ADD LIB$_ATTREQREF. SBL 21-DEC-1981B ! 2-010 - REMOVE MESSAGES FOR LIB$EXTEND_RANGE. SBL 22-DEC-1981* ! 2-011 - CORRECT TYPO. SBL 23-DEC-1981Q ! 2-012 - ADD LIB$_INVFILSPE FOR FILE MANIPULATION PROCEDURES. MLJ 30-DEC-1981; ! 2-013 - ADD LIB$_ERRROUCAL AND .TITLE. SBL 28-AUG-1982G ! 2-014 - ADD LIB$_INVXAB, LIB$_FILFAIMAT, LIB$_NEGANS, LIB$_QUIPRO, % ! LIB$_QUICONACT. TSK 20-SEP-1982- ! 2-015 - ADD LIB$_RESTART. SBL 1-MAR-1983B ! 2-016 - ADD LIB$_NO_STRACT FOR SCREEN 8PACKAGE. PLL 19-JUL-1983J ! 2-017 - ADD SEVERAL NEW MESSAGES FOR LIB$$READ_OBJECT. BLS 25-FEB-1984C ! 2-018 - ADD NEW MESSAGES FOR FUTURE LIB$VM. BLS 11-APR-1984 - ! 2-019 - ADD LIB$_NOTIMP. MDL 11-JUL-1985/ ! 2-020 - ADD LIB$_BADZONE. SMM 09-APR-1986 ! D ! 2-021 - ADD ERROR MESSAGES FOR DATE/TIME ROUTINES. LIB$_IVTIME,F ! LIB$_ONEDELTIM, LIB$_NEGTIM, LIB$_INVARGORD, LIB$_INVOPER,5 ! LIB$_ABSTIMREQ, LIB$_DELTIMREQ JWN 14-NOV-1986H ! 2-022 - ADD SEVERAL NEW MESS 9AGES FOR LIB$DATE_FORMAT AKS 20-NOV-1986M ! 2-023 - ADD NEW MESSAGES AND UPDATES FOR LIB$DATE_STRING. EGM 12-JAN-1987N ! 2-024 - ADD NEW MESSAGES FOR VAXC MEMORY MANAGEMENT SUPPORT AKS 3-OCT-1988K ! 2-025 - ADD LITERALS FOR SHR$_ SYMBOLS USED BY LIBRTL. KC 16-OCT-1989.+ ! X-5 - MAH MARK A. HOWELL 3-AUG-1990 ! ADD LIB$UID MESSAGES+ ! X-7 - CW CHRIS WHITAKER 25-FEB-1991" ! ROLL LIB UID SUPPORT FORWARD2 ! X-8 - CORRECT TEXT FOR FLTUND. GAS 16-SEP-1991* ! X-3 RAB RICHA:RD A. BISHOP 29-JAN-19922 ! MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS.: ! SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION : ! OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), THE 5 ! PRECEDING AUDIT TRAIL IS FROM THE VMS MASTERPACK. ! + ! X-4 JAH0090 JOHN A HARNEY 28-MAR-1994' ! ADD MESSAGE FOR LIB$BUILD_NODESPEC:> ! NODTOOLNG - PRIMARY NODE NAME TOO LONG AFTER BEING QUOTED$ ! ADD MESSAGE FOR LIB$GET_HOSTNAME' ! NOHOSNAM - NO HOST NODE NAME FOUND ! - ! +@ !; SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! LIB$_ABCMNOXYZ ! M ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",O ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR4 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! N ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR8 ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MA<CROS CALL: ! ! $LIBDEF ! > ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.< ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;A ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - ! ; SET LH TO 21 (DECIMAL).& PARAMETER LIB$_FACILITY = '00000015'X$ PARAMETER LIB$_NORMAL = '00158001'X$ PARAMETER LIB$_STRTRU = '00158011'X' PARAMETER LIB$_ONEENTQUE = '00158019'X7 ! ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI' PARAMETER LIB$_KE=YALRINS = '00158021'X ! ; LIB$INSERT_TREE' PARAMETER LIB$_ERRROUCAL = '00158029'X( ! ; LIB$DELETE_FILE, LIB$RENAME_FILE% PARAMETER LIB$_RESTART = '00158031'X ! ; LIB$DECODE_FAULT: ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES!!!, ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW. ! ; SET LH TO 21 (DECIMAL).2 ! ; SO THAT EACH CODE WILL BE AN WARNING CODE., ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW.$ PARAMETER LIB$_BADSTA = '00158204'X ! ; LIB$FIXUP_FLT' PAR>AMETER LIB$_FATERRLIB = '0015820C'X ! ; LIB$VM_GET' PARAMETER LIB$_INSVIRMEM = '00158214'X% ! ; LIB$VM_GET, LIB$LOOKUP_KEY' PARAMETER LIB$_INPSTRTRU = '0015821C'X ! ; LIB$GET_INPUT' PARAMETER LIB$_INVSTRDES = '00158224'X ! ; LIB$SCOPY_XXXX' PARAMETER LIB$_INTLOGERR = '0015822C'X$ PARAMETER LIB$_INVARG = '00158234'X ! ; LIB$LOOKUP_KEY$ PARAMETER LIB$_AMBKEY = '0015823C'X ! ; LIB$LOOKUP_KEY$ PARAMETER LIB$_UNRKEY = '00158244'X' PARAMETER L?IB$_PUSSTAOVE = '0015824C'X ! ; LIB$FIXUP_FLT' PARAMETER LIB$_USEFLORES = '00158254'X ! ; LIB$LOOKUP_KEY' PARAMETER LIB$_SIGNO_ARG = '0015825C'X ! ; LIB$SIGNAL, LIB$STOP' PARAMETER LIB$_BADBLOADR = '00158264'X$ ! ; LIB$FREE_VM, LIB$VM_FREE[_P]' PARAMETER LIB$_BADBLOSIZ = '0015826C'X ! ; LIB$GET_VM$ PARAMETER LIB$_NOTFOU = '00158274'X ! ; LIB$FFS, LIB$FFC' PARAMETER LIB$_ATTCONSTO = '0015827C'X ! ; LIB$SIGNAL, LIB$STOP' PARAMETER LIB$_SYNTAXERR @= '00158284'X% PARAMETER LIB$_INVTYPE = '0015828C'X ! ; LIB$TPARSE# PARAMETER LIB$_INSEF = '00158294'X ! ; LIB$GET_EF' PARAMETER LIB$_EF_ALRFRE = '0015829C'X ! ; LIB$FREE_EF' PARAMETER LIB$_EF_ALRRES = '001582A4'X ! ; LIB$RESERVE_EF' PARAMETER LIB$_EF_RESSYS = '001582AC'X# ! ; LIB$FREE_EF, LIB$RESERVE_EF$ PARAMETER LIB$_INSLUN = '001582B4'X ! ; LIB$GET_LUN' PARAMETER LIB$_LUNALRFRE = '001582BC'X ! ; LIB$FREE_LUN' PARAMETER LIB$_LUNRESSYS = '001582C4'AX% ! ; LIB$FREE_LUN, LIB$RESERVE_LUN' PARAMETER LIB$_SCRBUFOVF = '001582CC'X ! ; SCR PACKAGE' PARAMETER LIB$_INVSCRPOS = '001582D4'X ! ; SCR PACKAGE' PARAMETER LIB$_SECINTFAI = '001582DC'X6 ! ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI$ PARAMETER LIB$_INVCHA = '001582E4'X( ! ; LIB$TRA_ASC_EBC, LIB$TRA_EBC_ASC' PARAMETER LIB$_QUEWASEMP = '001582EC'X ! ; LIB$REMQHI, LIB$REMQTI' PARAMETER LIB$_STRIS_INT = '001582F4'X ! ; LIB$SCOPY, ETC.' PARAMETER LIBB$_KEYNOTFOU = '001582FC'X ! ; LIB$LOOKUP_TREE$ PARAMETER LIB$_INVCVT = '00158304'X ! ; LIB$CVTDXDX' PARAMETER LIB$_INVDTYDSC = '0015830C'X ! ; LIB$CVTDXDX' PARAMETER LIB$_INVCLADSC = '00158314'X ! ; LIB$CVTDXDX' PARAMETER LIB$_INVCLADTY = '0015831C'X ! ; LIB$CVTDXDX% PARAMETER LIB$_INVNBDS = '00158324'X ! ; LIB$CVTDXDX' PARAMETER LIB$_DESSTROVF = '0015832C'X ! ; LIB$CVTDXDX$ PARAMETER LIB$_INTOVF = '00158334'X ! ; LIB$CVTDXDX$ PARAMETER LIBC$_DECOVF = '0015833C'X ! ; LIB$CVTDXDX$ PARAMETER LIB$_FLTOVF = '00158344'X ! ; LIB$CVTDXDX$ PARAMETER LIB$_FLTUND = '0015834C'X ! ; LIB$CVTDXDX% PARAMETER LIB$_ROPRAND = '00158354'X ! ; LIB$CVTDXDX' PARAMETER LIB$_WRONUMARG = '0015835C'X ! ; LIB$ANALYZE_SDESC' PARAMETER LIB$_NOSUCHSYM = '00158364'X ! ; LIB$CLI_CALLBACK' PARAMETER LIB$_INSCLIMEM = '0015836C'X ! ; LIB$CLI_CALLBACK' PARAMETER LIB$_AMBSYMDEF = '00158374'X ! ; LIB$CLI_CALLBACK# PARDAMETER LIB$_NOCLI = '0015837C'X ! ; LIB$CLI_CALLBACK' PARAMETER LIB$_UNECLIERR = '00158384'X ! ; LIB$CLI_CALLBACK' PARAMETER LIB$_INVSYMNAM = '0015838C'X ! ; LIB$CLI_CALLBACK' PARAMETER LIB$_ATTREQREF = '00158394'X ! ; LIB$ATTACH' PARAMETER LIB$_INVFILSPE = '0015839C'X/ ! ; LIB$FID_TO_NAME, LIB$EXTRACT_CONCEALED,: ! ; LIB$SET_FILE_PROT, LIB$UNLOCK_FILE, LIB$CREATE_DIR$ PARAMETER LIB$_INVXAB = '001583A4'X ! ; LIB$QUAL_FILE_PARSE' PARAMETER LIB$_NO_STRACT = E'001583AC'X ! ; SCR PACKAGE' PARAMETER LIB$_BADTAGVAL = '001583B4'X ! ; LIB$VM' PARAMETER LIB$_INVOPEZON = '001583BC'X ! ; LIB$VM' PARAMETER LIB$_PAGLIMEXC = '001583C4'X ! ; LIB$VM$ PARAMETER LIB$_NOTIMP = '001583CC'X ! ; LIB$NOT_IMPLEMENTED% PARAMETER LIB$_BADZONE = '001583D4'X> ! ; LIB$VERIFY_VM_ZONE, LIB$SHOW_VM_ZONE, LIB$STAT_VM_ZONE ! ; LIB$FIND_VM_ZONE$ PARAMETER LIB$_IVTIME = '001583DC'X< ! ; LIB$ADD_TIMES, LIB$SUB_TIMES, LIB$MULIPLY_DELTA_TIME F; ! ; LIB$MULTIPLY_DELTA_TIME_F, LIB$CVT_TO_INTERNAL_TIME; ! ; LIB$CVT_FROM_INTERNAL_TIME, LIB$CONVERT_DATE_STRING' PARAMETER LIB$_ONEDELTIM = '001583E4'X ! ; LIB$ADD_TIMES$ PARAMETER LIB$_NEGTIM = '001583EC'X ! ; LIB$SUB_TIMES' PARAMETER LIB$_INVARGORD = '001583F4'X ! ; LIB$SUB_TIMES' PARAMETER LIB$_ABSTIMREQ = '001583FC'X" ! ; LIB$CVT_FROM_INTERNAL_TIME' PARAMETER LIB$_DELTIMREQ = '00158404'X" ! ; LIB$CVT_FROM_INTERNAL_TIME% PARAMETER LIB$_INVOPER = '001 G5840C'X! ! ; LIB$CVT_XXX_INTERNAL_TIME( PARAMETER LIB$_REENTRANCY = '00158414'X8 ! ;LIB$FORMAT_DATE_TIME, LIB$INIT_DATE_TIME_CONTEXT,3 ! ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT' PARAMETER LIB$_UNRFORCOD = '0015841C'X5 ! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT' PARAMETER LIB$_ILLINISTR = '00158424'X! ! ;LIB$INIT_DATE_TIME_CONTEXT) PARAMETER LIB$_NUMELEMENTS = '0015842C'X! ! ;LIB$INIT_DATE_TIME_CONTEXT' PARAMETER LIB$_ELETOO HLON = '00158434'X! ! ;LIB$INIT_DATE_TIME_CONTEXT* PARAMETER LIB$_ILLCOMPONENT = '0015843C'X! ! ;LIB$INIT_DATE_TIME_CONTEXT' PARAMETER LIB$_AMBDATTIM = '00158444'X ! ;LIB$CONVERT_DATE_STRING' PARAMETER LIB$_INCDATTIM = '0015844C'X ! ;LIB$CONVERT_DATE_STRING' PARAMETER LIB$_ILLFORMAT = '00158454'X3 ! ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT& PARAMETER LIB$_UNSUPVER = '0015845C'X; ! ; LIB$ASCII_TO_UID, LIB$COMPARE_UID, LIB$UID_TO_ASCII' PARAMETER LIB$_BADFORMAIT = '00158464'X ! ; LIB$ASCII_TO_UID' PARAMETER LIB$_NODTOOLNG = '0015846C'X ! ; LIB$BUILD_NODESPEC& PARAMETER LIB$_NOHOSNAM = '00158474'X ! ; LIB$GET_HOSTNAME' PARAMETER LIB$_OUTSTRTRU = '00159000'X ! ; LIB$CVTDXDX' PARAMETER LIB$_FILFAIMAT = '00159008'X ! ; LIB$QUAL_FILE_MATCH$ PARAMETER LIB$_NEGANS = '00159010'X ! ; LIB$CONFIRM_ACT$ PARAMETER LIB$_QUIPRO = '00159018'X, ! ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH' PARAMETER LIB$_QUICONACT = '00159020'X,J ! ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH& PARAMETER LIB$_ENGLUSED = '00159028'X5 ! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT' PARAMETER LIB$_DEFFORUSE = '00159030'X5 ! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT' PARAMETER LIB$_MEMALRFRE = '00159038'X ! ;LIB$VM_FREE$ PARAMETER LIB$_BADCCC = '0015C000'X ! ; LIB$$READ_OBJECT& PARAMETER LIB$_EOMERROR = '0015C008'X ! ; LIB$$READ_OBJECT& PARAMETER LIB$_EOKMFATAL = '0015C010'X ! ; LIB$$READ_OBJECT% PARAMETER LIB$_EOMWARN = '0015C018'X ! ; LIB$$READ_OBJECT$ PARAMETER LIB$_GSDTYP = '0015C020'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_ILLFMLCNT = '0015C028'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_ILLMODNAM = '0015C030'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_ILLPSCLEN = '0015C038'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_ILLRECLEN = '0015C040'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_ILLRECLN2 = '0015C048'X ! ; LIB$$RLEAD_OBJECT' PARAMETER LIB$_ILLRECTYP = '0015C050'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_ILLRECTY2 = '0015C058'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_ILLSYMLEN = '0015C060'X ! ; LIB$$READ_OBJECT# PARAMETER LIB$_NOEOM = '0015C068'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_RECTOOSML = '0015C070'X ! ; LIB$$READ_OBJECT& PARAMETER LIB$_SEQUENCE = '0015C078'X ! ; LIB$$READ_OBJECT' PARAMETER LIB$_SEQUENCE2 = '0015C080'X ! ; LIB$$READ_OBJECT$ PARAMETER LIB$_STRLVL =M '0015C088'X ! ; LIB$$READ_OBJECT$ PARAMETER LIB$_NOWILD = '0015112A'X& PARAMETER LIB$_ACTIMAGE = '001512BA'X$ PARAMETER LIB$_OPENIN = '0015109A'X% PARAMETER LIB$_CLOSEIN = '00151050'X% PARAMETER LIB$_READERR = '001510B2'X!DEC$ END OPTIONSwwΦ!*** MODULE $LIBDTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 8 ! Interface definitions for LIB$DT (date/time) package !  ! 0 ! Request codes for LIB$INIT_DATE_TIME_CONTEXT ! E PARNAMETER LIB$K_MONTH_NAME = '00000000'X ! Pre-init the month namesI PARAMETER LIB$K_MONTH_NAME_ABB = '00000003'X ! Pre-init the month namesF PARAMETER LIB$K_WEEKDAY_NAME = '00000006'X ! Pre-init the week namesJ PARAMETER LIB$K_WEEKDAY_NAME_ABB = '00000009'X ! Pre-init the week namesM PARAMETER LIB$K_MERIDIEM_INDICATOR = '0000000C'X ! Pre-init the AM/PM namesC PARAMETER LIB$K_OUTPUT_FORMAT = '00000001'X ! Pre-init the formatB PARAMETER LIB$K_INPUT_FORMAT = '00000002'X ! Pre-init the form OatJ PARAMETER LIB$K_RELATIVE_DAY_NAME = '0000000F'X ! Pre-init "TODAY", etc.N PARAMETER LIB$K_FORMAT_MNEMONICS = '00000012'X ! Pre-init MM, DD, YYYY, etc.C PARAMETER LIB$K_LANGUAGE = '00000004'X ! Pre-init user's language ! > ! Operation codes (flags) for date time conversion routines.J ! NOTE: any new operation codes MUST be added just BEFORE MAX_OPERATION ! Z PARAMETER LIB$K_MONTH_OF_YEAR = '00000001'X ! requests output in units of month of yearT PARAMETER LIB$K_DAY_OF_YEAR = 'P00000002'X ! requests output in days of year 1-366W PARAMETER LIB$K_HOUR_OF_YEAR = '00000003'X ! requests output in hours of year 1-8784] PARAMETER LIB$K_MINUTE_OF_YEAR = '00000004'X ! requests output in minutes of year 1-527040_ PARAMETER LIB$K_SECOND_OF_YEAR = '00000005'X ! requests output in seconds of year 1-31622400T PARAMETER LIB$K_DAY_OF_MONTH = '00000006'X ! request output in days of month 1-31W PARAMETER LIB$K_HOUR_OF_MONTH = '00000007'X ! request output in hours of month Q1-744] PARAMETER LIB$K_MINUTE_OF_MONTH = '00000008'X ! request output in minutes of month 1-44640` PARAMETER LIB$K_SECOND_OF_MONTH = '00000009'X ! requests output in seconds of month 1-2678400b PARAMETER LIB$K_DAY_OF_WEEK = '0000000A'X ! requests output in days of week 1-7 with monday = 1V PARAMETER LIB$K_HOUR_OF_WEEK = '0000000B'X ! requests output in hours of week 1-168U PARAMETER LIB$K_MINUTE_OF_WEEK = '0000000C'X ! requests in minutes of week 1-10080] PARAMETER LIB$K_SECOND_OF_WREEK = '0000000D'X ! requests output in seconds of week 1-604800S PARAMETER LIB$K_HOUR_OF_DAY = '0000000E'X ! requests output in hours of day 1-24Y PARAMETER LIB$K_MINUTE_OF_DAY = '0000000F'X ! requests output in minutes of day 1-1440Y PARAMETER LIB$K_SECOND_OF_DAY = '00000010'X ! requests output in seconds of day 1-3600Y PARAMETER LIB$K_MINUTE_OF_HOUR = '00000011'X ! requests output in minutes of hour 1-60[ PARAMETER LIB$K_SECOND_OF_HOUR = '00000012'X ! requests output in minutesS of hour 1-3600^ PARAMETER LIB$K_SECOND_OF_MINUTE = '00000013'X ! requests output in seconds of minutes 1-60U PARAMETER LIB$K_JULIAN_DATE = '00000014'X ! requests output as a julian day numberS PARAMETER LIB$K_DELTA_WEEKS = '00000015'X ! input/output in terms of delta weeksQ PARAMETER LIB$K_DELTA_DAYS = '00000016'X ! input/output in terms of delta daysS PARAMETER LIB$K_DELTA_HOURS = '00000017'X ! input/output in terns of delta hoursW PARAMETER LIB$K_DELTA_MINUTES = '00000018'X ! T input/output in terms of delta minutesW PARAMETER LIB$K_DELTA_SECONDS = '00000019'X ! input/output in terms of delta seconds` PARAMETER LIB$K_DELTA_WEEKS_F = '0000001A'X ! input/output in terms of fractional delta weeks^ PARAMETER LIB$K_DELTA_DAYS_F = '0000001B'X ! input/output in terms of fractional delta days` PARAMETER LIB$K_DELTA_HOURS_F = '0000001C'X ! input/output in terms of fractional delta hourse PARAMETER LIB$K_DELTA_MINUTES_F = '0000001D'X ! input/output in terms of fracti Uonal delta minutessd PARAMETER LIB$K_DELTA_SECONDS_F = '0000001E'X ! input/output in terms of fractional delta secondsM PARAMETER LIB$K_MAX_OPERATION = '0000001F'X ! 1+ max # of conversion flags ! 1 ! Masks for outputting date or time fields only ! * PARAMETER LIB$M_TIME_FIELDS = '00000001'X* PARAMETER LIB$M_DATE_FIELDS = '00000002'X STRUCTURE /DT_PRINT_FIELDS/$ PARAMETER LIB$S_TIME_FIELDS = 1G PARAMETER LIB$V_TIME_FIELDS = 0 ! Force printing of time fields$ PARVAMETER LIB$S_DATE_FIELDS = 1G PARAMETER LIB$V_DATE_FIELDS = 1 ! Force printing of date fields BYTE %FILL (1) END STRUCTURE ! DT_PRINT_FIELDS ! , ! Masks for input defaulting flag longword ! # PARAMETER LIB$M_YEAR = '00000001'X$ PARAMETER LIB$M_MONTH = '00000002'X" PARAMETER LIB$M_DAY = '00000004'X# PARAMETER LIB$M_HOUR = '00000008'X% PARAMETER LIB$M_MINUTE = '00000010'X% PARAMETER LIB$M_SECOND = '00000020'X) PARAMETER LIB$M_HUNDREDTHS = '00000040'X STRUCTURE /DT_DEF WAULT_FIELDS/ PARAMETER LIB$S_YEAR = 1A PARAMETER LIB$V_YEAR = 0 ! Allow the year to be defaulted PARAMETER LIB$S_MONTH = 1C PARAMETER LIB$V_MONTH = 1 ! Allow the month to be defaulted PARAMETER LIB$S_DAY = 1@ PARAMETER LIB$V_DAY = 2 ! Allow the day to be defaulted PARAMETER LIB$S_HOUR = 1A PARAMETER LIB$V_HOUR = 3 ! Allow the hour to be defaulted PARAMETER LIB$S_MINUTE = 1E PARAMETER LIB$V_MINUTE = 4 ! Allow the minute to be Xdefaulted PARAMETER LIB$S_SECOND = 1E PARAMETER LIB$V_SECOND = 5 ! Allow the second to be defaulted# PARAMETER LIB$S_HUNDREDTHS = 1H PARAMETER LIB$V_HUNDREDTHS = 6 ! Allow the fract to be defaulted BYTE %FILL (1)" END STRUCTURE ! DT_DEFAULT_FIELDS!DEC$ END OPTIONSwwGΦ!*** MODULE $LIBFILDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN( ! Interface definitions for LIB$*_FILE ! " ! LIB$FIND_FILE flag definitionsC PARYAMETER LIB$M_FIL_NOWILD = '00000001'X ! No wild carding allowD PARAMETER LIB$M_FIL_MULTIPLE = '00000002'X ! Multiple input files$ ! LIB$RENAME_FILE flag definitionsC PARAMETER LIB$M_FIL_CUR_VER = '00000001'X ! Current version usedA PARAMETER LIB$M_FIL_INH_SECUR = '00000002'X ! Inherit securityE ! LIB$DELETE_FILE & LIB$FIND_FILE & LIB$RENAME_FILE flag definitionH PARAMETER LIB$M_FIL_LONG_NAMES = '00000004'X ! Handle long file namesR PARAMETER LIB$M_FIL_IGNORE_ACCESS = '00000008'XZ ! Ignore write access on deleteV PARAMETER LIB$M_FIL_OPEN_SPECIAL = '00000010'X ! Correspands to NAML$V_OPEN_SPECIAL!DEC$ END OPTIONS ww HΦ!*** MODULE $LIBFISDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN3 ! Interface definitions for LIB$FIND_IMAGE_SYMBOL ! * ! LIB$FIND_IMAGE_SYMBOL flag definitions+ PARAMETER LIB$M_FIS_PARANOID = '00000001'X- PARAMETER LIB$M_FIS_NOTRANSLOG = '00000008'X, PARAMETER LIB$M_FIS_MIXEDCASE = '00000010'X( P [ARAMETER LIB$M_FIS_TV_AV = '00000020'X STRUCTURE /LIB$FIS_FLAGS/% PARAMETER LIB$S_FIS_PARANOID = 1K PARAMETER LIB$V_FIS_PARANOID = 0 ! Force paranoid bit on for $IMGACT' PARAMETER LIB$S_FIS_NOTRANSLOG = 1R PARAMETER LIB$V_FIS_NOTRANSLOG = 3 ! $IMGACT lookup on untranslated logical& PARAMETER LIB$S_FIS_MIXEDCASE = 1= PARAMETER LIB$V_FIS_MIXEDCASE = 4 ! Mixed case symbols" PARAMETER LIB$S_FIS_TV_AV = 1I PARAMETER LIB$V_FIS_TV_AV = 5 ! Append "_TV_AV\" to the image name BYTE %FILL (1) END STRUCTURE ! LIB$FIS_FLAGS!DEC$ END OPTIONS wwv_ՆΦ!!*** MODULE LIBICB IDENT V2.0 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN. PARAMETER LIB$K_PROC_VALUE_NULL = '00000000'X/ PARAMETER LIB$K_INVO_HANDLE_NULL = '00000000'X2 PARAMETER LIBICB$K_INVO_HANDLE_SIZE = '00000008'X6 PARAMETER LIBICB$K_INVO_CONTEXT_VERSION = '00000002'X! ! The header quadword contains:- PARAMETER LIBICB$M_FFLAGS_BITS = '00FFFFFF'X1 ] PARAMETER LIBICB$M_BOTTOM_OF_STACK = '00000001'X1 PARAMETER LIBICB$M_HANDLER_PRESENT = '00000002'X- PARAMETER LIBICB$M_IN_PROLOGUE = '00000004'X- PARAMETER LIBICB$M_IN_EPILOGUE = '00000008'X3 PARAMETER LIBICB$M_HAS_MEM_STK_FRAME = '00000010'X3 PARAMETER LIBICB$M_HAS_REG_STK_FRAME = '00000020'X7 PARAMETER LIBICB$K_INVO_CONTEXT_T_LENGTH = '00000760'X1 PARAMETER LIBICB$K_SDA_COPY_LENGTH = '000007A8'X6 PARAMETER LIBICB$M_UO_FLAG_CACHE_UNWIND = '00000001'X8 PARAMETER LIBICB$M_UO_FLAG_EMUL ^ATION_MODE = '00000002'X+ PARAMETER LIBICB$K_UO_LENGTH = '00000058'X ! 6 PARAMETER LIBICB$m_using_client_memread = '00000001'X) PARAMETER LIBICB$m_my_mode = '00000006'X2 PARAMETER LIBICB$K_CONTEXT_BLK_SIZE = '00000820'XB ! The following is an "internal" area that's reserved for use by1 PARAMETER LIBICB$K_REGION_BLK_SIZE = '00000448'X6 PARAMETER LIBICB$K_REGIONLABEL_BLK_SIZE = '00000020'X5 PARAMETER LIBICB$K_DESCRIPTOR_BLK_SIZE = '00000500'X ! Action codes:d PARAMETER LIBICB$K_ACTI_ON_KP_FIND_UNWIND = '00000001'X ! override call to exe$kp_find_unwind_cont ! prototype:R ! uint64 sp = action_routine (enum action_code code, uint64 sp, uint64 ident);\ PARAMETER LIBICB$K_ACTION_USE_DEFAULT = -1 ! action routine return value to "use default"< ! Alert codes: (matches _UNW_ReturnCode enum in unwind.h)T PARAMETER LIBICB$K_AC_STEP_KRNL_SAV_STATE = -2 ! _UNW_STEP_KERNEL_SAVE_STATE = -2< PARAMETER LIBICB$K_AC_STEP_BOTTOM = -1 ! _UNW_STEP_BOTTOM7 PARAMETER LIBICB$K_AC_O`K = '00000000'X ! _UNW_OK = 0C PARAMETER LIBICB$K_AC_STEP_ERROR = '00000001'X ! _UNW_STEP_ERRORM PARAMETER LIBICB$K_AC_STEP_INVALID_IP = '00000002'X ! _UNW_STEP_INVALID_IPM PARAMETER LIBICB$K_AC_STEP_INVALID_SP = '00000003'X ! _UNW_STEP_INVALID_SPM PARAMETER LIBICB$K_AC_STEP_INVALID_GR = '00000004'X ! _UNW_STEP_INVALID_GRO PARAMETER LIBICB$K_AC_STEP_INVALID_PFS = '00000005'X ! _UNW_STEP_INVALID_PFSO PARAMETER LIBICB$K_AC_STEP_INVALID_RSC = '00000006'X ! _UNW_STEP_INVALID_RSCaO PARAMETER LIBICB$K_AC_STEP_INVALID_BSP = '00000007'X ! _UNW_STEP_INVALID_BSPU PARAMETER LIBICB$K_AC_STEP_INV_BSPSTORE = '00000008'X ! _UNW_STEP_INVALID_BSPSTOREO PARAMETER LIBICB$K_AC_STEP_INVALID_CFM = '00000009'X ! _UNW_STEP_INVALID_CFMM PARAMETER LIBICB$K_AC_STEP_INVALID_BR = '0000000A'X ! _UNW_STEP_INVALID_BRW PARAMETER LIBICB$K_AC_STEP_BAD_BSP_ALIGN = '0000000B'X ! _UNW_STEP_BAD_BSP_ALIGNMENTQ PARAMETER LIBICB$K_AC_STEP_INVALID_RNAT = '0000000C'X ! _UNW_STEP_INVALID_RNATba PARAMETER LIBICB$K_AC_STEP_NODSC4_NONLEAF = '0000000D'X ! _UNW_STEP_NO_DESCRIPTOR_FOR_NON_LEAFW PARAMETER LIBICB$K_AC_STEP_CORRUPT_DESC = '0000000E'X ! _UNW_STEP_CORRUPT_DESCRIPTORV PARAMETER LIBICB$K_AC_STEP_RSE_NOT_FLUSHD = '0000000F'X ! _UNW_STEP_RSE_NOT_FLUSHEDU PARAMETER LIBICB$K_AC_STEP_SIGNAL_CONTEXT = '00000010'X ! _UNW_STEP_SIGNAL_CONTEXTV PARAMETER LIBICB$K_AC_STEP_BAD_STATE = '00000011'X ! _UNW_STEP_NOT_ALLOWED_IN_STATEY PARAMETER LIBICB$K_AC_INIT_RANGE_ERROR = '0000001c2'X ! _UNW_INITIALIZATION_RANGE_ERRORQ PARAMETER LIBICB$K_AC_QUERY_RANGE_ERROR = '00000013'X ! _UNW_QUERY_RANGE_ERRORU PARAMETER LIBICB$K_AC_QUERY_INVALID_ERROR = '00000014'X ! _UNW_QUERY_INVALID_ERRORT PARAMETER LIBICB$K_AC_SET_BAD_STATE = '00000015'X ! _UNW_SET_NOT_ALLOWED_IN_STATEU PARAMETER LIBICB$K_AC_CURR_CTXT_FAILED = '00000016'X ! _UNW_CURRENT_CONTEXT_FAILEDf PARAMETER LIBICB$K_AC_CURR_CTXT_BAD_STATE = '00000017'X ! _UNW_CURRENT_CONTEXT_NOT_ALLOWED_IN_STATEX PARAMETER LIBdICB$K_AC_MEMORY_ALLOC_ERROR = '00000018'X ! _UNW_MEMORY_ALLOCATION_ERRORX PARAMETER LIBICB$K_AC_CLEAR_BAD_STATE = '00000019'X ! _UNW_CLEAR_NOT_ALLOWED_IN_STATEX PARAMETER LIBICB$K_AC_QUERY_BAD_STATE = '0000001A'X ! _UNW_QUERY_NOT_ALLOWED_IN_STATEK PARAMETER LIBICB$K_AC_INTERNAL_ERROR = '0000001B'X ! _UNW_INTERNAL_ERROR` PARAMETER LIBICB$K_AC_STEP_I_ABI_MISMATCH = '0000001C'X ! _UNW_STEP_INTERRUPTION_ABI_MISMATCHI PARAMETER LIBICB$K_AC_UNALIGNED_ICB = '0000001D'X ! _UNW_UNALIGNED_ICBeR PARAMETER LIBICB$K_AC_READ_MEM_FAILURE = '0000001E'X ! _UNW_READ_MEMORY_FAILURET PARAMETER LIBICB$K_AC_WRITE_MEM_FAILURE = '0000001F'X ! _UNW_WRITE_MEMORY_FAILUREV PARAMETER LIBICB$K_AC_WRITE_REG_FAILURE = '00000020'X ! _UNW_WRITE_REGISTER_FAILUREd PARAMETER LIBICB$K_AC_UO_INCON_CALLBACK = '00000021'X ! _UNW_USER_OVERRIDE_INCONSISTENT_CALLBACK_R PARAMETER LIBICB$K_AC_PUT_REG_INVALID = '00000022'X ! _UNW_PUT_REGISTER_INVALID7 PARAMETER LIBICB$K_INVO_CONTEXT_BLK_SIZE = '00000840'X SfTRUCTURE /INVO_CONTEXT_BLK/ ! = ! The length of the structure in bytes (a longword field),2 ! The frame flags (a 3 byte field of bits), and( ! The version number (a 1 byte field) UNION MAPH INTEGER*8 LIBICB$IH_HEADER ! Header (length, flags, version) END MAP MAP. INTEGER*4 LIBICB$L_CONTEXT_LENGTH UNION MAP4 PARAMETER LIBICB$S_FFLAGS_BITS = 243 PARAMETER LIBICB$V_ gFFLAGS_BITS = 0 BYTE %FILL (3) END MAP MAP; PARAMETER LIBICB$S_BOTTOM_OF_STACK = 1; PARAMETER LIBICB$V_BOTTOM_OF_STACK = 0; PARAMETER LIBICB$S_HANDLER_PRESENT = 1; PARAMETER LIBICB$V_HANDLER_PRESENT = 17 PARAMETER LIBICB$S_IN_PROLOGUE = 17 PARAMETER LIBICB$V_IN_PROLOGUE = 27 PARAMETER LIBICB$S_IN h_EPILOGUE = 17 PARAMETER LIBICB$V_IN_EPILOGUE = 3= PARAMETER LIBICB$S_HAS_MEM_STK_FRAME = 1= PARAMETER LIBICB$V_HAS_MEM_STK_FRAME = 4= PARAMETER LIBICB$S_HAS_REG_STK_FRAME = 1= PARAMETER LIBICB$V_HAS_REG_STK_FRAME = 5 BYTE %FILL (1) END MAP END UNION- BYTE LIBICB$B_BLOCK_VERSION END MAP END UNIONG INTEG iER*8 %FILL ! Start of context_t must be octaword aligned. ! ***** Start of context_t ****************** ! P ! a context_t structure should be octaword (16-byte) aligned, and is passed byK ! reference to the "get initial context" callback routine and establishesV ! the "current" state of the machine and forms the inital context for for unwinding. ! UNION MAPI INTEGER*8 LIBICB$IH_IREG(0:127) ! General (integer) Registers END MAP ! 32 static jregisters, plus' ! up to 96 stacked/rotating registers MAP0 INTEGER*8 LIBICB$ih_i_used0 ! R0N INTEGER*8 LIBICB$IH_GP ! synonym for R1 (Global Data Pointer)1 INTEGER*8 %FILL(2:11) ! R2 - R11P INTEGER*8 LIBICB$IH_SP ! synonym for R12 (Memory Stack Pointer)J INTEGER*8 LIBICB$IH_TP ! synonym for R13 (Thread Pointer)3 INTEGER*8 %FILL(14:24) ! R14 - R24Y INTEGER*8 LIBICB$IH_AI k ! synonym for R25 (Argument Information register)5 INTEGER*8 %FILL(26:127) ! R26 - R127 END MAP END UNIONR INTEGER*8 LIBICB$IH_GRNAT(0:1) ! General Register NaT Collection RegistersE INTEGER*4 LIBICB$FO_F2_F31(4,2:31) ! Floating Point Registers.' ! 32 static floating point registers.- ! Floating Point Registers are 82 bits wide! ! but stored here in octawords.N INTEGER*8 LIBICB$PH_F32_F127 ! Pointer to upper Floating Register save l ! area. Zero if not saved.: INTEGER*8 LIBICB$IH_BRANCH(0:7) ! Branch Registers ! Application Registers (ARs) ! H INTEGER*8 LIBICB$IH_RSC ! Register Stack Configuration Register8 INTEGER*8 LIBICB$IH_BSP ! Backing store pointerB INTEGER*8 LIBICB$IH_BSPSTORE ! Backing store write pointer> INTEGER*8 LIBICB$IH_RNAT ! RSE NaT Collection RegisterD INTEGER*8 LIBICB$IH_CCV ! Compare & Exchange Value Register? INTEGER*8 LIBICB$IH_UNAT ! User mNaT Collection RegisterX INTEGER*8 LIBICB$FH_FPSR ! OBSOLETE - do not rely on the contents of this field.: INTEGER*8 LIBICB$IH_PFS ! Previous Function State5 INTEGER*8 LIBICB$IH_LC ! Loop Count Register9 INTEGER*8 LIBICB$IH_EC ! Epilogue Count Register1 INTEGER*8 LIBICB$IH_CSD ! Copy of AR.CSD1 INTEGER*8 LIBICB$IH_SSD ! Copy of AR.SSD ! ! End ARsL INTEGER*4 LIBICB$Q_PRED(2) ! Predicate Collection Register, PR0-PR63I INTEGER n*8 LIBICB$IH_PC ! Current PC (Instruction Pointer + slot) UNION MAP; INTEGER*8 LIBICB$IH_CFM ! Current Frame Marker END MAP MAP' PARAMETER LIBICB$S_SOF = 7A PARAMETER LIBICB$V_SOF = 0 ! Size of stack frame ' PARAMETER LIBICB$S_SOL = 7S PARAMETER LIBICB$V_SOL = 7 ! Size of locals portion of stack frame ' PARAMETER LIBICB$S_SOR = 4V PARAMETER LIBICB$V_SOR = 14 o ! Size of rotating portion of stack frame * PARAMETER LIBICB$S_RRB_GR = 7[ PARAMETER LIBICB$V_RRB_GR = 18 ! Register Rename Base for General Registers* PARAMETER LIBICB$S_RRB_FR = 7b PARAMETER LIBICB$V_RRB_FR = 25 ! Register Rename Base for Floating-point Registers* PARAMETER LIBICB$S_RRB_PR = 6] PARAMETER LIBICB$V_RRB_PR = 32 ! Register Rename Base for Predicate Registers BYTE %FILL (5) ENDp MAP END UNION UNION MAP@ INTEGER*8 LIBICB$IH_UM ! User Mask bits of the PSR. END MAP MAP& PARAMETER LIBICB$S_BE = 1K PARAMETER LIBICB$V_BE = 1 ! Big-endian memory access enable& PARAMETER LIBICB$S_UP = 1K PARAMETER LIBICB$V_UP = 2 ! User performance monitor enable& PARAMETER LIBICB$S_AC = 1R PARAMETER LIBICB$V_AC = 3 ! Alignment check data memory references' q PARAMETER LIBICB$S_MFL = 1\ PARAMETER LIBICB$V_MFL = 4 ! Lower (F2-F31) Floating-point registers written' PARAMETER LIBICB$S_MFH = 1^ PARAMETER LIBICB$V_MFH = 5 ! Upper (F32-F127) Floating-point registers written BYTE %FILL (1) END MAP END UNIONX INTEGER*8 LIBICB$ih_next_bsp ! Next frame's Backing Store Pointer (Internal use)W INTEGER*8 LIBICB$ih_next_pfs ! Next frame's Previous Frame State (Internal r use)C ! The following two locations are used when walking from an innerP ! mode stack to an outer mode and context has been saved in a INTSK structure,\ ! but the outer mode stacked registers have bee saved on the inner mode RSE backing store. ! T INTEGER*8 LIBICB$ih_bspbase ! Base for outer mode stacked registers saved in/ ! inner mode RSE backing store (Internal use)P INTEGER*8 LIBICB$ih_intstk_rnat ! RNAT as saved in INTSTK (Internal use)B ! the following "valid" bi stmasks are used to record the validity( ! of a given register for this contextG INTEGER*4 LIBICB$O_GR_VALID(4) ! General Register validity maskK INTEGER*4 LIBICB$L_FR_VALID ! F2 - F31 validity mask (bit 2 for F2)% INTEGER*4 LIBICB$l_fr_valid_fillF INTEGER*4 LIBICB$Q_BR_VALID(2) ! Branch Register validity mask UNION MAPO INTEGER*4 LIBICB$Q_AR_VALID(2) ! Application Register validity mask END MAP MAP- PARAMET tER LIBICB$S_RSC_VALID = 1W PARAMETER LIBICB$V_RSC_VALID = 0 ! Register Stack Configuration Register- PARAMETER LIBICB$S_BSP_VALID = 1G PARAMETER LIBICB$V_BSP_VALID = 1 ! Backing store pointer2 PARAMETER LIBICB$S_BSPSTORE_VALID = 1R PARAMETER LIBICB$V_BSPSTORE_VALID = 2 ! Backing store write pointer. PARAMETER LIBICB$S_RNAT_VALID = 1N PARAMETER LIBICB$V_RNAT_VALID = 3 ! RSE NaT Collection Register- u PARAMETER LIBICB$S_CCV_VALID = 1S PARAMETER LIBICB$V_CCV_VALID = 4 ! Compare & Exchange Value Register. PARAMETER LIBICB$S_UNAT_VALID = 1O PARAMETER LIBICB$V_UNAT_VALID = 5 ! User NaT Collection Register. PARAMETER LIBICB$S_FPSR_VALID = 1R PARAMETER LIBICB$V_FPSR_VALID = 6 ! Floating Point Status Register.- PARAMETER LIBICB$S_PFS_VALID = 1I PARAMETER LIBICB$V_PFS_VALID = 7 ! Previous Funct vion State, PARAMETER LIBICB$S_LC_VALID = 1E PARAMETER LIBICB$V_LC_VALID = 8 ! Loop Count Register, PARAMETER LIBICB$S_EC_VALID = 1I PARAMETER LIBICB$V_EC_VALID = 9 ! Epilogue Count Register- PARAMETER LIBICB$S_CSD_VALID = 1A PARAMETER LIBICB$V_CSD_VALID = 10 ! Copy of AR.CSD- PARAMETER LIBICB$S_SSD_VALID = 1A PARAMETER LIBICB$V_SSD_VALID = 11 ! Copy of AR.SSD BYTE %FILL (2w) END MAP END UNION UNION MAPE INTEGER*4 LIBICB$Q_OTHER_VALID(2) ! PC, CFM validity mask END MAP MAP, PARAMETER LIBICB$S_PC_VALID = 1< PARAMETER LIBICB$V_PC_VALID = 0 ! Current PC- PARAMETER LIBICB$S_CFM_VALID = 1F PARAMETER LIBICB$V_CFM_VALID = 1 ! Current Frame Marker, PARAMETER LIBICB$S_UM_VALID = 1I PARAMETER LIBICB$V_UM_VALID = 2 ! User Mask fiel xd of PSR. BYTE %FILL (1) END MAP END UNIONI INTEGER*4 LIBICB$Q_PR_VALID(2) ! Predicate Register validity maskd INTEGER*8 LIBICB$IH_ORIGINAL_SPILL_ADDR ! Original address of GR spill area (&LIBICB$IH_IREG[. ! (needed for NaT bit podition calculations)I INTEGER*8 LIBICB$ih_true_psp ! True Previous SP (for Invo Handle)! INTEGER*8 LIBICB$ih_spare_03! INTEGER*8 LIBICB$ih_spare_04! INTEGER*8 LIBICB$ih_spare_05! INTEGER*8 LIBICB$ih y_spare_06! INTEGER*8 LIBICB$ih_spare_07! INTEGER*8 LIBICB$ih_spare_08 ! G INTEGER*8 LIBICB$IH_PSP ! SP at entry to routine (Previous SP)8 INTEGER*8 LIBICB$ih_psp_valid ! PreviousSP valid: INTEGER*8 LIBICB$IH_RETURN_PC ! Return PC for SDA.F INTEGER*8 LIBICB$IH_PREV_BSP ! BSP of preceding frame for SDA.] INTEGER*8 LIBICB$PH_CHFCTX_ADDR ! Pointer to condition handler facility context blockS INTEGER*8 LIBICB$PH_OTHER ! Pointer to other intzeresting structure (if any)M INTEGER*8 LIBICB$IH_OSSD ! Copy of OSSD from Unwind Information BlockI INTEGER*8 LIBICB$IH_HANDLER_FV ! Condition Handler Function ValueE INTEGER*8 LIBICB$PH_LSDA ! Virtual Address of LSD area of UIBY INTEGER*8 LIBICB$ph_desc ! Pointer to _Unwind_Descriptor structure (Internal use)Y INTEGER*8 LIBICB$ph_history ! Pointer to _Unwind_History structure (Internal use) ! F ! The following locations can be used to alter the defa{ult behaviorB ! Typically this would be used for cross-process unwinding, and8 ! specifying an alternative memory allocation scheme. UNION MAPC INTEGER*4 LIBICB$R_UO_BASE ! base of User Override area END MAP MAP> INTEGER*4 LIBICB$Q_UO_FLAGS(2) ! operational flags END MAP MAP8 PARAMETER LIBICB$S_UO_FLAG_CACHE_UNWIND = 18 PARAMETER LIBICB$V_UO_FLAG_CACHE_UNWIND = 0* ! cache unwind informati |on between calls ! for effiecient stack walk.: PARAMETER LIBICB$S_UO_FLAG_EMULATION_MODE = 1P PARAMETER LIBICB$V_UO_FLAG_EMULATION_MODE = 1 ! Internal use only BYTE %FILL (1) END MAP END UNIONM INTEGER*8 LIBICB$IH_UO_IDENT ! user context variable, passed by value' ! to the following callback routines.O INTEGER*8 LIBICB$PH_UO_READ_MEM ! Pointer to user "read memory" routine` INTEGER*8 LIBICB$PH_UO_GETUEINFO ! Pointer }to user "get Unwind Entry Information" routineX INTEGER*8 LIBICB$PH_UO_GETCONTEXT ! Pointer to user "get Initial Context" routineN INTEGER*8 LIBICB$PH_UO_WRITE_MEM ! Pointer to user "put memory" routineP INTEGER*8 LIBICB$PH_UO_WRITE_REG ! Pointer to user "put register" routineH INTEGER*8 LIBICB$PH_UO_MALLOC ! Pointer to user "malloc" routineD INTEGER*8 LIBICB$PH_UO_FREE ! Pointer to user "free" routineZ INTEGER*8 LIBICB$PH_UO_ACTION_ROUTINE ! Pointer to user ~ "action" routine - actions . ! are defined by "action codes" (see below).! INTEGER*8 LIBICB$ih_spare_10B ! the following locations are used internally, and should not be ! modified by the userN INTEGER*8 LIBICB$ph_most_recent_context ! Most recent user context used UNION MAPI INTEGER*4 LIBICB$l_internal_flags ! internal operational flags END MAP MAP8 PARAMETER LIBICB$S_using_client_memread = 18 PARAMETER LIB ICB$V_using_client_memread = 0+ PARAMETER LIBICB$S_my_mode = 2+ PARAMETER LIBICB$V_my_mode = 1 BYTE %FILL (1) END MAP END UNIOND INTEGER*4 LIBICB$l_interface_state ! enum InterfaceUsageState5 INTEGER*4 LIBICB$l_ip_source ! enum IP_SOURCED ! The alert code can be examined to a more detailed failure status< INTEGER*4 LIBICB$L_ALERT_CODE ! enum _UNW_ReturnCode! INTEGER*8 LIBICB$ih_spare_11) ! unsupported type CHAR ACTER*0 %FILL7 ! the operating system. It's size may vary over time., INTEGER*8 LIBICB$IH_SYSTEM_DEFINED(0:1) ! Y ! Action codes are passed as the first parameter to the UO_ACTION_ROUTINE to indicate[ ! an action to be performed. The remaining parameters to the action routine are actionK ! dependent, and usually include the ident value as the last parameter. !  ! Action routine prototype: ! Y ! uint64 return_value = action_routine (enum action_code code, ..., uint64 ident); ! V ! A return_value of ACTION_USE_DEFAULT indicates that the action was not performedQ ! and the calling standard routines should fall back to "default" processing./ ! Other return values are action dependent. ! ! END STRUCTURE ! INVO_CONTEXT_BLK4 ! Write Register callback routine - WhichReg enum. ! @ ! The Write Register callback routine is only used when a live? ! register in another (remote) process needs to be written as5 ! a result of a call to LIB$I64_PUT_INVO_REGISTERS.? ! It is permissible to implement a subset of these registers,C ! or not implement it at all if you are sure that these registers7 ! have been saved to memory before PUT_INVO is called !  ! For the General Registers:8 ! whichReg = LIBICB$K_WhichReg_GR0 + register number& ! value_1 = 64-bit register value* ! value_2 = 0, or 1 for NaT bit value ! . PARAMETER LIBICB$K_WhichReg_GR0 = '00000000'X !  ! For the Floating Registers:A !  whichReg = LIBICB$K_WhichReg_FR0 + floating register number1 ! value_1 = 64-bit lower floating fill value1 ! value_2 = 64-bit upper floating fill value ! . PARAMETER LIBICB$K_WhichReg_FR0 = '00000080'X ! ! For the Predicate Registers:B ! whichReg = LIBICB$K_WhichReg_PR0 + predicate register number, ! value_1 = 0, or 1 rgister (bit) value ! value_2 = ignored ! . PARAMETER LIBICB$K_WhichReg_PR0 = '00000100'X !  ! For the Branch Registers:? ! whichReg = LIBICB$K_WhichReg_BR0 + branch register number& ! value_1 = 64-bit register value ! value_2 = ignored ! . PARAMETER LIBICB$K_WhichReg_BR0 = '00000140'X ! + ! For the Floating Point Status Register:' ! whichReg = LIBICB$K_WhichReg_FPSR& ! value_1 = 64-bit register value ! value_2 = ignored ! / PARAMETER LIBICB$K_WhichReg_FPSR = '00000148'X!DEC$ END OPTIONSwwcMΦ!*** MODULE $LIBVMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMON S=PACKED)/NOWARN, ! Interface definitions for LIB$VM package ! & ! LIB$CREATE_VM_ZONE algorithm codes9 PARAMETER LIB$K_VM_FIRST_FIT = '00000001'X ! First fit_ PARAMETER LIB$K_VM_QUICK_FIT = '00000002'X ! Quick fit, with fixed queues of preferred sizesU PARAMETER LIB$K_VM_FREQ_SIZES = '00000003'X ! First fit, with frequent sizes cache= PARAMETER LIB$K_VM_FIXED = '00000004'X ! Fixed size blocks' ! LIB$CREATE_VM_ZONE flag definitionsJ PARAMETER LIB$M_VM_BOUNDARY_TAGS = '00000001'X ! Boundary tagged blocksE PARAMETER LIB$M_VM_GET_FILL0 = '00000002'X ! 0-fill for LIB$GET_VME PARAMETER LIB$M_VM_GET_FILL1 = '00000004'X ! 1-fill for LIB$GET_VMG PARAMETER LIB$M_VM_FREE_FILL0 = '00000008'X ! 0-fill for LIB$FREE_VMG PARAMETER LIB$M_VM_FREE_FILL1 = '00000010'X ! 1-fill for LIB$FREE_VMY PARAMETER LIB$M_VM_EXTEND_AREA = '00000020'X ! Add extent to existing area if possibleR PARAMETER LIB$M_VM_NO_EXTEND = '00000040'X ! Area is not allowed to be extendedY PARAM ETER LIB$M_VM_TAIL_LARGE = '00000080'X ! Add larger than normal areas at the tail!DEC$ END OPTIONSwwWkHΦ!*** MODULE $LIBWAITDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN& ! Interface definitions for LIB$WAIT ! K ! LIB$WAIT floating-point format codes (must equal CVT$K_VAX_F,... codes)F PARAMETER LIB$K_VAX_F = '00000000'X ! VAX F Floating point dataF PARAMETER LIB$K_VAX_D = '00000001'X ! VAX D Floating point dataF PARAMETER LIB$K _VAX_G = '00000002'X ! VAX G Floating point dataF PARAMETER LIB$K_VAX_H = '00000003'X ! VAX H Floating point dataG PARAMETER LIB$K_IEEE_S = '00000004'X ! IEEE S Floating point dataG PARAMETER LIB$K_IEEE_T = '00000005'X ! IEEE T Floating point data ! LIB$WAIT option definitionsB PARAMETER LIB$K_WAKE = '00000000'X ! WAKE option, interruptableJ PARAMETER LIB$K_NOWAKE = '00000001'X ! NOWAKE option, non-interruptable!DEC$ END OPTIONS wwyΦ!***  MODULE $LICENSEDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:33:03.96 ! M ! *************************************************************************M ! * *M ! * COPYRIGHT 2003 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *M ! * *M ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR *M ! * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. *M ! * *M ! * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *M ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *M ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *M ! * COMMERCIAL LICENSE.  *M ! * *M ! * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL *M ! * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION *M ! * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND *M ! * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS *M ! * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING *M ! * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN *M ! * ADDITIONAL WARRANTY. *M ! * *M ! ************************************************************************* ! ++ ! ! FACILITY: ! % ! VAX/VMS LICENSING SYSTEM SERVICES ! ! ABSTRACT: ! I ! THIS MODULE DEFINES THE STATUS CODES FOR THE VARIOUS ERROR CONDITIONS@ ! THAT CAN OCCUR WHILE ATTEMPTING TO DO LICENSING CHECKS FOR A# ! DSLA LICENSED SOFTWARE PRODUCT. ! ! AUTHOR: !  ! TRUDY C. MATTHEWS !  ! CREATION DATE: !  ! 26 JANUARY 1987 !  ! MODIFIED BY: ! ( ! X-10 GP030104 GUY PELEG 01-MAR-2004 ! ADD NONCOMPLIANCE. ! ' ! X-9 GP121003 GUY PELEG 10-DEC-2003& ! UPDATE ILLPRODUCER TO INCLUDE HP. ! + ! X-8 EAG2 ERIC ABIS 3-JUN-1998 ! ADDED USER_MODE.  ! * ! X- 7 EA12 ERIC ABIS 4-APR-1995 ! ADDED INVALID_TOKEN. ! , ! X-6 EA001 ERIC ABIS 29-APR-1991: ! ADDED MESSAGE FOR PRODUCTS WITH RESERVE LISTS. IT IS; ! PUT IN THE PLACE OF THE CURRENTLY UNUSED INVALID_HW_ID= ! MESSAGE BECAUSE THE SEPARATE RELEASE OF LMF 1.1 REQUIRED5 ! THE PATCHING OF SYSMSG.EXE. THIS PATCH REPLACED: ! INVALID_HW_ID WITH NOTINRSRVLIST. FUTURE RELEASES OF9 ! VMS, IF THEY INCLUDE LMF 1.1, WILL NOT HAVE TO PATCH9 ! AND NOTINRSRVLIST WILL RETAIN ITS VALUE. THE UNUSED8 ! INVALID_HW_ID WILL GET A NEW MESSAGE NUMBER AND THE ! IMPACT SHOULD BE MINIMAL ! , ! X-5 JWN009 JOHN W. NOGRADY 03-NOV-19876 ! UPDATE MESSAGE TEXT AND ALLOW FOR "room to grow". ! , ! X-4 JWN001 JOHN W. NOGRADY 14-OCT-19879 ! ADD MESSAGES NOAUTH AND SYSMGR. THESE MESSAGES WILL: ! BE THE FIRST TWO VALUES IN THE MESSAGE VECTOR USED IN! ! THE ROUTINE $LOOKUP_LICENSE. ! ' ! X-3 DKH001 KEN HOBDAY 19-SEP-19872 ! ADD ADDITIONAL MESSAGES FOR LMF$GRANT_LICENSE ! . ! X-2 TCM0002 TRUDY C. MATTHEWS 09-MAR-19877 ! REMOVE WORD WARRANTY FROM LICENSE STATUS MESSAGES. ! . ! X-1 TCM0001 TRUDY C. MATTHEWS 26-JAN-1987 ! INITIAL VERSION. ! --) PARAMETER LICENSE_FACILITY = '00000A94'X ! SUCCESS CODES" ! THESE CODES RETURN INFORMATION( PARAMETER LICENSE$_SYSMGR = '0A948323'X/ PARAMETER LICENSE$_NONCOMPLIANCE = '0A94832B'X5 ! THESE CODES RETURN SLIGHTLY DISMAYING INFORMATION- ! THESE CODES INDICATE UNRECOVERABLE ERRORS( PARAMETER LICENSE$_NOAUTH = '0A948AF2'X ! ALL OF THESE ARE FATAL+ PARAMETER LICENSE$_NOLICENSE = '0A948E14'X* PARAMETER LICENSE$_EXCEEDED = '0A948E1C'X- PARAMETER LICENSE$_NOT_STARTED = '0A948E24'X. PARAMETER LICENSE$_INVALID_DATE = '0A948E2C'X1 PARAMETER LICENSE$_INVALID_VERSION = '0A948E34'X, PARAMETER LICENSE$_TERMINATED = '0A948E3C'X/ PARAMETER LICENSE$_NOTINRSRVLIST = '0A948E44'X ! +" ! RETURNED BY SYS$LOOKUP_LICENSE ! -* PARAMETER LICENSE$_BADPARAM = '0A948E4C'X- PARAMETER LICENSE$_ILLPRODUCER = '0A948E54'X+ PARAMETER LICENSE$_WRONUMARG = '0A948E5C'X/ PARAMETER LICENSE$_INVALID_HW_ID = '0A948E64'X/ PARAMETER LICENSE$_INVALID_TOKEN = '0A948E6C'X ! + ! NEW MESSAGES ! -+ PARAMETER LICENSE$_USER_MODE = '0A948E74'X!DEC$ END OPTIONSwwHΦ!*** MODULE $LKIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! 4 ! Get Lock Information Data Identifier Definitions !  ! **** NOTE **** E ! The LKIDEF structure is defined multiple times to accomidate C! ! G ! New items can not be added to the end of LKIDEF or LKIDEF_BRB ! since this require all users to re-link. GETLKI can return = ! multiples of these structures concatenated and thus anyD ! new items returned should really be placed in a new structure. ! -U PARAMETER LKI$K_LENGTH = '00000018'X ! LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFOU PARAMETER LKI$C_LENGTH = '00000018'X ! LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFOU PARAMETER LKI$K_BR_LENGTH = '00000038'X ! LENGTH OF LIST BLOCK WITH BYTE RANGE INFOU PARAMETER LKI$C_BR_LENGTH = '00000038'X ! LENGTH OF LIST BLOCK WITH BYTE RANGE INFO STRUCTURE /LKIDEF/ UNION MAP7 INTEGER*4 LKI$L_MSTLKID ! LOCK ID ON MASTER END MAP MAP/ INTEGER*4 LKI$L_LOCKID ! OLD SYMBOL END MAP END UNION( INTEGER*4 LKI$L_PID ! PROCESS ID UNION MAP4  INTEGER*4 LKI$L_MSTCSID ! CSID OF MASTER END MAP MAP. INTEGER*4 LKI$L_SYSID ! OLD SYMBOL END MAP END UNION- BYTE LKI$B_RQMODE ! REQUEST MODE- BYTE LKI$B_GRMODE ! GRANTED MODE* BYTE LKI$B_QUEUE ! LOCK QUEUE% BYTE %FILL ! SPARE BYTE UNION MAP; INTEGER*4 LKI$L_LKID ! LOCK ID ON PROCESS NODE  END MAP MAP0 INTEGER*4 LKI$L_REMLKID ! OLD SYMBOL END MAP END UNION UNION MAP8 INTEGER*4 LKI$L_CSID ! CSID OF PROCESS NODE  END MAP MAP0 INTEGER*4 LKI$L_REMSYSID ! OLD SYMBOL END MAP END UNION8 INTEGER*4 LKI$Q_RQSTART(2) ! REQUEST RANGE START: INTEGER*4 LKI$Q_RQLENGTH(2) ! REQUEST RANGE LENGTH8 INTEGER*4 LKI$Q_GRSTART(2) ! GRANTED RANGE START: INTEGER*4 LKI$Q_GRLENGTH(2) ! GRANTED RANGE LENGTH END STRUCTURE ! LKIDEF ! DEFINE NAMSPACE FIELDS% PARAMETER LKI$M_SYSNAM = '80000000'X STRUCTURE /NAMSPACE/ UNION MAP: INTEGER*2 LKI$W_GROUP ! GROUP OF OWNER UIC= BYTE LKI$B_RMOD ! ACCESS MODE OF REQUEST; BYTE LKI$B_STATUS ! STATUS OF RESOURCE END MAP MAP' PARAMETER LKI$S_SYSNAM = 1( PARAMETER LKI$V_SYSNAM = 312 BYTE %FILL (1) ! SYSTEM WIDE RSB END MAP END UNION END S TRUCTURE ! NAMSPACE ! DEFINE STATE FIELDS STRUCTURE /STATEF/2 BYTE LKI$B_STATE_RQMODE ! REQUEST MODE2 BYTE LKI$B_STATE_GRMODE ! GRANTED MODE4 BYTE LKI$B_STATE_QUEUE ! LOCK STATE CODE END STRUCTURE ! STATEF( PARAMETER LKIUSR$K_LENGTH = '00000014'X( PARAMETER LKIUSR$C_LENGTH = '00000014'Xc PARAMETER LKIUSR$K_BLOCKER_START = '00000014'X ! OFFSET TO THE START OF THE RETURNED INFORMATION STRUCTURE /LKIUSRDEF/B INTEGER*4 LKIUSR$Q_START(2) ! STAR T OF THE REQUESTED RANGED INTEGER*4 LKIUSR$Q_LENGTH(2) ! LENGTH OF THE REQUESTED RANGE2 BYTE LKIUSR$B_RQMODE ! REQUESTED MODEY BYTE LKIUSR$B_IGNORE_OWN ! FLAG TO IGNORE LOCKS OWNED BY THE CALLING PROCESS$ INTEGER*2 %FILL ! reserved END STRUCTURE ! LKIUSRDEF STRUCTURE /RNGDEF/= INTEGER*4 LKI$_RNG_Q_RQSTART(2) ! REQUEST RANGE START> INTEGER*4 LKI$_RNG_Q_RQLENGTH(2) ! REQUEST RANGE LENGTH= INTEGER*4 LKI$_RNG_Q_GRSTART(2) ! GRANTED RANGE START> INTEGER*4 LKI$_RNG_Q_GRLENGTH(2) ! GRANTED RANGE LENGTH END STRUCTURE ! RNGDEF ! LOCK STATE CODE VALUES2 PARAMETER LKI$C_GRANTED = '00000001'X ! GRANTED5 PARAMETER LKI$C_CONVERT = '00000000'X ! CONVERSION* PARAMETER LKI$C_WAITING = -1 ! WAITING. PARAMETER LKI$C_RETRY = -2 ! RETRY REQUEST+ PARAMETER LKI$C_SCSWAIT = -3 ! SCS WAIT8 PARAMETER LKI$C_RSPNOTQED = -4 ! RESPONSE NOT QUEUED4 PARAMETER LKI$C_RSPQUEUED = -5 ! RESPONSE QUEUED5 PARAMETER LKI$C _RSPGRANTD = -6 ! RESPONSE GRANTED8 PARAMETER LKI$C_RSPDOLOCL = -7 ! RESPONSE DO LOCALLY4 PARAMETER LKI$C_RSPRESEND = -8 ! RESPONSE RESEND ! DEFINE TABLE NUMBERS # ! STRUCTURE CODES MUST START AT 17 PARAMETER LKI$C_LKBTYPE = '00000001'X ! ITEM IN LKB 6 PARAMETER LKI$C_RSBTYPE = '00000002'X ! ITEM IN RSBD PARAMETER LKI$C_LISTEND = '00000000'X ! DEFINE ITMLST TERMINATOR  ! ITEM IDENTIFIERS FOR LKB0 PARAMETER LKI$_PID = '00000100'X ! PROCESS ID: PARAMETER LKI$_STATE = '00000101'X ! CURRENT LOCK STATE: PARAMETER LKI$_PARENT = '00000102'X ! ID OF PARENT LOCKD PARAMETER LKI$_LCKREFCNT = '00000103'X ! SUB-LOCK REFERENCE COUNT0 PARAMETER LKI$_LOCKID = '00000104'X ! LOCK ID8 PARAMETER LKI$_REMLKID = '00000105'X ! REMOTE LOCK IDD PARAMETER LKI$_MSTLKID = '00000106'X ! LOCK ID ON RESOURCE MASTER> PARAMETER LKI$_LKID = '00000107'X ! LOCK ID ON PROCESS NODE; PARAMETER LKI$_CSID = '00000108'X ! CSID OF PROCESS NODEC PARAMETER LKI$_BRL = '00000109'X !  IS THE LOCK A BYTE RANGE LOCK* ! * , TSKID /* TASK ID FOR MULTITASK8 PARAMETER LKI$_RANGE = '0000010A'X ! Range of requestA PARAMETER LKI$_LASTLKB = '0000010B'X ! MAX INDEX IN LKB TABLE  ! ITEM IDENTIFIERS FOR RSB> PARAMETER LKI$_NAMSPACE = '00000200'X ! RESOURCE NAME SPACE6 PARAMETER LKI$_RESNAM = '00000201'X ! RESOURCE NAMEH PARAMETER LKI$_RSBREFCNT = '00000202'X ! SUB-RESOURCE REFERENCE COUNT4 PARAMETER LKI$_VALBLK = '00000203'X ! VALUE BLOCKJ PARAMETER LKI$_SYSTEM = '00000204'X ! SYSTEM ID OF SYSTEM WITH RESOURCEE PARAMETER LKI$_LCKCOUNT = '00000205'X ! COUNT OF LOCKS ON RESOURCEQ PARAMETER LKI$_BLOCKEDBY = '00000206'X ! LIST OF LOCKS BLOCKED BY CURRENT LOCKN PARAMETER LKI$_BLOCKING = '00000207'X ! LIST OF LOCKS BLOCKING CURRENT LOCKE PARAMETER LKI$_LOCKS = '00000208'X ! LIST OF ALL LOCKS ON RESOURCEM PARAMETER LKI$_CVTCOUNT = '00000209'X ! COUNT OF LOCKS ON CONVERSION QUEUEI PARAMETER LKI$_WAITCOUNT = '0000020A'X ! COUNT OF LOCKS ON WAIT QUEUE K PARAMETER LKI$_GRANTCOUNT = '0000020B'X ! COUNT OF LOCKS ON GRANT QUEUE A PARAMETER LKI$_MSTCSID = '0000020C'X ! CSID OF RESOURCE MASTER= PARAMETER LKI$_VALBLKST = '0000020D'X ! VALUE BLOCK STATUSe PARAMETER LKI$_BLOCKEDBY_BR = '0000020E'X ! LIST OF LOCKS BLOCKED BY CURRENT LOCK WITH BYTE RANGESf PARAMETER LKI$_BLOCKING_BR = '0000020F'X ! LIST OF LOCKS BLOCKING THE CURRENT LOCK WITH BYTE RANGESa PARAMETER LKI$_LOCKS_BR = '00000210'X ! LIST OF LOCKS ALL LOCKS ON A RESOUR CE WITH BYTE RANGES^ PARAMETER LKI$_BLOCKER_BR = '00000211'X ! LOCK THAT WILL BLOCK THE REQUESTED RANGE AND MODE> PARAMETER LKI$_XVALBLK = '00000212'X ! EXTENDED VALUE BLOCKO PARAMETER LKI$_XVALNOTVALID = '00000213'X ! VALIDITY OF EXTENDED VALUE BLOCK[ PARAMETER LKI$_LASTRSB = '00000214'X ! MAX INDEX IN RSB (MUST BE LAST internal use only)< PARAMETER LKISND$K_HDRLEN = '00000010'X ! LENGTH OF HEADER< PARAMETER LKISND$C_HDRLEN = '00000010'X ! LENGTH OF HEADER STRUCTURE /LKISNDDEF/M  ! Format for local system buffer header when sending an information request ! to a remote system.8 INTEGER*2 LKISND$W_RETSIZE ! size of return info7 INTEGER*2 LKISND$W_STATUS ! status of operation( INTEGER*2 LKISND$W_FLAGS ! flags1 INTEGER*2 LKISND$W_SEQNUM ! rebuild seqnm4 INTEGER*2 LKISND$W_SIZE ! size of structure3 BYTE LKISND$B_TYPE ! type of stucture# BYTE LKISND$B_FILL_2 ! 9 BYTE LKISND$B_ITEM_LENGTH ! len of item info# BYTE LKISND$B_FILL_3 ! # INTEGER*2 LKISND$W_FILL_4 !  END STRUCTURE ! LKISNDDEF!DEC$ END OPTIONS wwIΦ!*** MODULE $LKSBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! Define Lock Status Block ! - STRUCTURE /LKSB/) INTEGER*2 LKSB$W_STATUS ! Status, INTEGER*2 LKSB$W_RESERVED ! Reserved4 INTEGER*4 LKSB$L_LKID ! Lock identification8 BYTE LKSB$B_VALBLK(1:16) ! Lock v alue block END STRUCTURE ! LKSB9 PARAMETER LKSB$K_LENGTH = '00000018'X ! Length of LKSB9 PARAMETER LKSB$C_LENGTH = '00000018'X ! Length of LKSB STRUCTURE /XLKSB/) INTEGER*2 XLKSB$W_STATUS ! Status- INTEGER*2 XLKSB$W_RESERVED ! Reserved5 INTEGER*4 XLKSB$L_LKID ! Lock identification: BYTE XLKSB$B_XVALBLK(1:64) ! Lock value block END STRUCTURE ! XLKSB; PARAMETER XLKSB$K_LENGTH = '00000048'X ! Length of XLKSB; PARAMETER XLKSB$C_LENGTH = '00000048'X ! Length of XLKSB!DEC$ END OPTIONS ww5PIΦ!*** MODULE $LMFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN( PARAMETER LMF$_PROD_TOKEN = '00000001'X# PARAMETER LMF$_HW_ID = '00000002'X* PARAMETER LMF$_PROD_VERSION = '00000003'X' PARAMETER LMF$_PROD_DATE = '00000004'X) PARAMETER LMF$_CHARGE_TYPE = '00000005'X* PARAMETER LMF$_UNITS_IN_USE = '00000006'X& PARAMETER LMF$_USERNAME = '00000007'X) PARAMETER LMF$_CHECK_TOKEN = '00000008'X( PARAMET ER LMF$_CHECK_HWID = '00000009'X( PARAMETER LMF$_NO_RELEASE = '0000000A'X( PARAMETER LMF$C_PRDNAMLEN = '00000018'X( PARAMETER LMF$K_PRDNAMLEN = '00000018'X) PARAMETER LMF$C_PRDUCERLEN = '00000018'X) PARAMETER LMF$K_PRDUCERLEN = '00000018'X) PARAMETER LMF$C_CONTEXTLEN = '00000010'X) PARAMETER LMF$K_CONTEXTLEN = '00000010'X' PARAMETER LMF$C_TOKENLEN = '0000001F'X' PARAMETER LMF$K_TOKENLEN = '0000001F'X' PARAMETER LMF$C_HW_IDLEN = '0000001F'X' PARAMETER LMF$K_HW_IDLEN = '0000001F'X) P ARAMETER LMF$C_VERSIONLEN = '00000004'X) PARAMETER LMF$K_VERSIONLEN = '00000004'X& PARAMETER LMF$K_DATELEN = '00000008'X& PARAMETER LMF$C_DATELEN = '00000008'X. PARAMETER LMF$M_RETURN_FAILURES = '00000001'X1 PARAMETER LMF$M_BROADCAST_FAILURES = '00000002'X. PARAMETER LMF$M_OUTPUT_FAILURES = '00000004'X+ PARAMETER LMF$M_KERNEL_GRANT = '00000008'X3 PARAMETER LMF$M_LOOKUP_LICENSE_SPARE = 'FFFFFFF0'X STRUCTURE /dvspm_masks/( PARAMETER LMF$S_RETURN_FAILURES = 1F PARAMETER LMF$V_RET URN_FAILURES = 0 ! return status .vs. signal+ PARAMETER LMF$S_BROADCAST_FAILURES = 1; PARAMETER LMF$V_BROADCAST_FAILURES = 1 ! do an OPCOM( PARAMETER LMF$S_OUTPUT_FAILURES = 18 PARAMETER LMF$V_OUTPUT_FAILURES = 2 ! do a PUTMSG% PARAMETER LMF$S_KERNEL_GRANT = 1> PARAMETER LMF$V_KERNEL_GRANT = 3 ! grant in kernel mode. PARAMETER LMF$S_LOOKUP_LICENSE_SPARE = 28- PARAMETER LMF$V_LOOKUP_LICENSE_SPARE = 4% BYTE %FILL (4) ! spare area END STRUCTURE ! dvspm_masks!DEC$ END OPTIONS ww8Φ!*** MODULE $LNKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Linker Options Record (LNK) ! ; PARAMETER LNK$C_OLB = '00000000'X ! object library spec D PARAMETER LNK$C_SHR = '00000001'X ! shareable image library spec K PARAMETER LNK$C_OLI = '00000002'X ! object library with inclusion list G PARAMETER LNK$C_OBJ = '00000003'X ! object file or symbol table fileE PARAMETER LNK$C_SHA = '00000004'X ! individually specified shr imgI PARAMETER LNK$C_MAXRECTYP = '00000004'X ! highest current record type % PARAMETER LNK$M_SELSER = '00000001'X& PARAMETER LNK$M_LIBSRCH = '00000002'X STRUCTURE /LNKDEF/2 BYTE LNK$B_RECTYP ! record type LNK 2 BYTE LNK$B_LNKTYP ! sub record type UNION MAP INTEGER*2 LNK$W_FLAGS END MAP MAP' PARAMETER LNK$S_SELSER = 1M PARAMETER LNK$V_SELSER = 0 ! selectively searched (LNK$C_OBJ)( PARAMETER LNK$S_LIBSRCH = 1( PARAMETER LNK$V_LIBSRCH = 1 BYTE %FILL (1) END MAP END UNION UNION MAP> INTEGER*2 LNK$W_NAMLNG ! length of filespec name  END MAP MAP! BYTE %FILL(1:2)G ! unsupported type CHARACTER*0 LNK$T_NAME ! actual name  END MAP END UNION END STRUCTURE ! LNKDEF!DEC$ END OPTIONS ww IΦ!*** MODULE $LNMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN' 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_CLUSTERWIDE = '00020000'X* PARAMETER LNM$M_DCL_REQUEST = '00 040000'X( PARAMETER LNM$M_CREATE_IF = '01000000'X) PARAMETER LNM$M_CASE_BLIND = '02000000'X* PARAMETER LNM$M_INTERLOCKED = '04000000'X+ PARAMETER LNM$M_LOCAL_ACTION = '08000000'X STRUCTURE /LNMDEF/' ! Logical name attributes -- bits 0-7! PARAMETER LNM$S_NO_ALIAS = 1D PARAMETER LNM$V_NO_ALIAS = 0 ! Do not allow outer mode alias PARAMETER LNM$S_CONFINE = 1A PARAMETER LNM$V_CONFINE = 1 ! Do not copy into subprocess PARAMETER LNM$S_CRELOG = 1E PARAMETER  LNM$V_CRELOG = 2 ! Created with old $CRELOG service PARAMETER LNM$S_TABLE = 18 PARAMETER LNM$V_TABLE = 3 ! This is a table name4 ! Logical name translation attributes -- bits 8-15" PARAMETER LNM$S_CONCEALED = 1L PARAMETER LNM$V_CONCEALED = 8 ! Do not display result of translation! PARAMETER LNM$S_TERMINAL = 1O PARAMETER LNM$V_TERMINAL = 9 ! Do not retranslate result of translation PARAMETER LNM$S_EXISTS = 1J PARAMETER LNM$V_EXISTS = 10 ! Translation does exist at this index4 ! Logical name table characteristics -- bits 16-23" PARAMETER LNM$S_SHAREABLE = 1S PARAMETER LNM$V_SHAREABLE = 16 ! Logical name table is shareable (S0 space)$ PARAMETER LNM$S_CLUSTERWIDE = 1P PARAMETER LNM$V_CLUSTERWIDE = 17 ! This is a clusterwide table (or name) 2 ! Only supported as returned $TRNLNM attribute$ PARAMETER LNM$S_DCL_REQUEST = 1P PARAMETER LNM$V_DCL_REQUEST = 18 ! $CRELNM or $CRELNT request made by DCL(  ! System service options -- bits 24-31" PARAMETER LNM$S_CREATE_IF = 1O PARAMETER LNM$V_CREATE_IF = 24 ! May map to existing logical name table# PARAMETER LNM$S_CASE_BLIND = 1N PARAMETER LNM$V_CASE_BLIND = 25 ! Perform case-insensitive translation$ PARAMETER LNM$S_INTERLOCKED = 1_ PARAMETER LNM$V_INTERLOCKED = 26 ! Translate clusterwide name with LNM$CWLOGICALS locked% PARAMETER LNM$S_LOCAL_ACTION = 1S PARAMETER LNM$V_LOCAL_ACTION = 27 ! A local o peration on a clusterwide name 4 ! done in response to a request from another node$ ! Only supported from kernel mode BYTE %FILL (2) END STRUCTURE ! LNMDEFd PARAMETER LNM$C_TABNAMLEN = '0000001F'X ! Maximum length of a name contained within a directory tV PARAMETER LNM$C_NAMLENGTH = '000000FF'X ! Maximum logical name / translation lengthP PARAMETER LNM$C_MAXDEPTH = '0000000A'X ! Maximum logical name recursion depth9 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 nameE PARAMETER LNM$_LENGTH = '00000005'X ! Length of translation string< PARAMETER LNM$_ACMODE = '00000006'X ! Access mode of nameE PARAMETER LNM$_MAX_INDEX = '00000007'X ! Maximum translation indexG PARAMETER LNM$_PARENT = '00000008'X ! Parent logical name table nameD PARAMETER LNM$_LNMB_ADDR = '00000009'X  ! Return LNM block address ! internal use by MTL  ! and mailbox UCB[ PARAMETER LNM$_AGENT_ACMODE = '0000000A'X ! Probes to be done at a different access mode ! Define item list codes2 PARAMETER LNM$_CHAIN = -1 ! Chain to next list!DEC$ END OPTIONS wwIΦ!*** MODULE $LOGTYPDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Entry type definitions ! D PARAMETER LOGTYP$C_SS_ENTRY = '00000000'X ! Standard service entryB PARAMETER LOGTYP$C_SS_EXIT = '00000001'X ! Standard service exitE PARAMETER LOGTYP$C_PS_ENTRY = '00000002'X ! Protected service entryC PARAMETER LOGTYP$C_PS_EXIT = '00000003'X ! Protected service exit< PARAMETER LOGTYP$C_STARTUP = '00000004'X ! Startup logging6 PARAMETER LOGTYP$C_STOP = '00000005'X ! Stop loggingK PARAMETER LOGTYP$C_UNLOAD = '00000006'X ! Stop logging and delete buffersT PARAMETER LOGTYP$C_FILE_OPENED = '00000007'X ! Internal file open kernel mode part PARAMETER LOGTYP$C_EOBUF = -1& PARAMETER LOGTYP$M_ARGS = '00000001'X& PARAMETER LOGTYP$M_FILE = '00000002'X STRUCTURE /logtyp$flags/ PARAMETER LOGTYP$S_ARGS = 1 PARAMETER LOGTYP$V_ARGS = 0 PARAMETER LOGTYP$S_FILE = 1 PARAMETER LOGTYP$V_FILE = 1 BYTE %FILL (1) END STRUCTURE ! logtyp$flags!DEC$ END OPTIONS wwJΦ!*** MODULE $LPDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +, ! LINE PRINTER CHARACTERISTICS DEFINITIONS ! - PARAMETER LP$M_CR = '00000001'X& PARAMETER LP$M_MECHFORM = '00000002'X& PARAMETER LP$M_PRINTALL = '00000004'X# PARAMETER LP$M_DAVFU = '00000008'X" PARAMETER LP$M_WRAP = '00000010'X& PARAMETER LP$M_TRUNCATE = '00000020'X! PARAMETER LP$M_TAB = '00000040'X# PARAMETER LP$M_LOWER = '00000080'X% PARAMETER LP$M_PASSALL = '00000100'X& PARAMETER LP$M_FALLBACK = '00000200'X$ PARAMETER LP$M_SIXELS = '00000400'X' PARAMETER LP$M_BITMAPPED = '00000800'X$ PARAMETER LP$M_POLLED = '00001000'X+ PARAMETER LP$M_BIDIRECTIONAL = '00002000'X$ PARAMETER LP$M_PAGE_L = 'FF000000'X! PARAMETER LP$_LP11 = '00000001'X! PARAMETER LP$_LA11 = '00000002'X" PARAMETER LP$_LA180 = '00000003'X' PARAMETER LP$_PC_PRINTER = '00000008'X STRUCTURE /LPDEF/ UNION MAP PARAMETER LP$S_CR = 1< PARAMETER LP$V_CR = 0 ! CARRIAGE RETURN NEEDED $ PARAMETER LP$S_MECHFORM = 1? PARAMETER LP$V_MECHFORM = 1 ! MECHANICAL FORM FEED $ PARAMETER LP$S_PRINTALL = 1M PARAM ETER LP$V_PRINTALL = 2 ! NON PRINTABLE CHAR. ACCEPT(DMF-32) ! PARAMETER LP$S_DAVFU = 14 PARAMETER LP$V_DAVFU = 3 ! DAVFU AVAIL. PARAMETER LP$S_WRAP = 17 PARAMETER LP$V_WRAP = 4 ! CHAR. WRAP MODE $ PARAMETER LP$S_TRUNCATE = 1K PARAMETER LP$V_TRUNCATE = 5 ! TRUNCATE output at carriage width PARAMETER LP$S_TAB = 10 PARAMETER LP$V_TAB = 6 ! TAB needed! PARAMETER LP$S_LOWER = 1> PARAMETER LP$ V_LOWER = 7 ! PRINTER HAS LOWER CASE # PARAMETER LP$S_PASSALL = 16 PARAMETER LP$V_PASSALL = 8 ! PASSALL MODE $ PARAMETER LP$S_FALLBACK = 17 PARAMETER LP$V_FALLBACK = 9 ! FALLBACK MODE" PARAMETER LP$S_SIXELS = 17 PARAMETER LP$V_SIXELS = 10 ! HANDLES SIXELS% PARAMETER LP$S_BITMAPPED = 1< PARAMETER LP$V_BITMAPPED = 11 ! HANDLES BIT MAPS" PARAMETER LP$S_POLLED = 1B PARAMETER LP$V_POLLED = 12 ! Printer will poll device ) PARAMETER LP$S_BIDIRECTIONAL = 1H PARAMETER LP$V_BIDIRECTIONAL = 13 ! Bidirectional USB printer" PARAMETER LP$S_PAGE_L = 8# PARAMETER LP$V_PAGE_L = 24+ BYTE %FILL (3) ! PAGE LENGTH END MAP END UNION END STRUCTURE ! LPDEF!DEC$ END OPTIONSwwΦ!*** MODULE $LPRODEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 1 ! GSD entry - Module Local Procedure definition ! $ PARAMETER LPRO$K_NAME = '0000000F'X$ PARAMETER LPRO$C_NAME = '0000000F'X STRUCTURE /LPRODEF/ UNION MAP= BYTE LPRO$B_GSDTYP ! Maps over LSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 LPRO$T_START BYTE %FILL END MAP END UNION7 BYTE LPRO$B_DATYP ! Maps over LSY$B_DATYP 7 INTEGER*2 LPRO$W_FLAGS ! Maps over LSY$W_FLAGS F INTEGER*2 LPRO$W_ENVINDX ! Environment index symbol defined in : INTEGER*2 LPRO$W_PSINDX ! Maps over LSDF$W_PSINDX ; INTEGER*4 LPRO$L_ADDRS ! Entry point address, maps  ! over LSDF$L_VALUE1 INTEGER*2 LPRO$W_MASK ! Entry point mask 1 BYTE LPRO$B_NAMLNG ! Length of name . CHARACTER*31 LPRO$T_NAME ! Symbol name  END STRUCTURE ! LPRODEF!DEC$ END OPTIONS wwZΦ!*** MODULE $LSDFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! " ! Module-local Symbol definition ! $ PARAMETER LSDF$K_NAME = '0000000D'X$ PARAMETER LSDF$C_NAME = '0000000D'X STRUCTURE /LSDFDEF/ UNION MAP= BYTE LSDF$B_GSDTYP ! Maps over LSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 LSDF$T_START BYTE %FILL END MAP END UNION7 BYTE LSDF$B_DATYP ! Maps over LSY$B_DATYP 7 INTEGER*2 LSDF$W_FLAGS ! Maps over LSY$W_FLAGS F INTEGER*2 LSDF$W_ENVINDX ! Environment index symbol defined in 6 INTEGER*2 LSDF$W_PSINDX ! Owning psect number 1 INTEGER*4 LSDF$L_VALUE ! Value of symbol 1 BYTE LSDF$B_NAMLNG ! Length of name . CHARACTER*31 LSDF$T_NAME ! Symbol name  END STRUCTURE ! LSDFDEF!DEC$ END OPTIONS wwΦ!*** MODULE $LSRFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! A ! Module-local Symbol reference (LSY$M_DEF in LSY$W_FLAGS is 0) ! $ PARAMETER LSRF$K_NAME = '00000007'X$ PARAMETER LSRF$C_NAME = '00000007'X STRUCTURE /LSRFDEF/ UNION MAP= BYTE LSRF$B_GSDTYP ! Maps over LSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 LSRF$T_START BYTE %FILL END MAP END UNION7 BYTE LSRF$B_DATYP ! Maps over LSY$B_DATYP 7 INTEGER*2 LSRF$W_FLAGS ! Maps over LSY$W_FLAGS : INTEGER*2 LSRF$W_ENVINDX ! Maps over LSY$W_ENVINDX 8 BYTE LSRF$B_NAMLNG ! Length of symbol name . CHARACTER*31 LSRF$T_NAME ! Symbol name  END STRUCTURE ! LSRFDEF!DEC$ END OPTIONS wwCΦ!*** MODULE $LSYDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ( ! LSY - Module-Local symbol definition ! N ! Common to definitions, references, entry points, and procedure definitions ! # PARAMETER LSY$M_WEAK = '00000001'X" PARAMETER LSY$M_DEF = '00000002'X" PARAMETER LSY$M_UNI = '00000004'X" PARAMETER LSY$M_REL = '00000008'X STRUCTURE /LSYDEF/ UNION MAP0 BYTE LSY$B_GSDTYP ! Type field  END MAP MAP7 ! unsupported type CHARACTER*0 LSY$T_START BYTE %FILL END MAP END UNION, BYTE LSY$B_DATYP ! Symbol type UNION MAP1 INTEGER*2 LSY$W_FLAGS ! Symbol flags  END MAP MAP% PARAMETER LSY$S_WEAK = 1A  PARAMETER LSY$V_WEAK = 0 ! Weak symbol (not used) $ PARAMETER LSY$S_DEF = 19 PARAMETER LSY$V_DEF = 1 ! Defined symbol $ PARAMETER LSY$S_UNI = 1? PARAMETER LSY$V_UNI = 2 ! Universal (not used) $ PARAMETER LSY$S_REL = 16 PARAMETER LSY$V_REL = 3 ! Relocatable  BYTE %FILL (1) END MAP END UNION4 INTEGER*2 LSY$W_ENVINDX ! Environment index  END STRUCTURE ! LSYDEF!DEC$ END OPTIONS wwҜΦ!*** MODULE $MACIDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! K ! Module $UICDEF defines the rightslist identifier space from %XA00000008 ! thru %XA3FFFFFF as being reserved for use by SEVMS. ! & ! This space has been segmented as: ! @ ! %XA0000000 thru %XA000FFFF for MAC secrecy level identifiersC ! %XA0010000 thru %XA001FFFF for MAC secrecy category identifiersB ! %XA0020000 thru %XA002FFFF for MAC int egrity level identifiersE ! %XA0030000 thru %XA003FFFF for MAC integrity category identifiers ! M ! to provide 64K identifiers within each grouping. This allows for growthF ! consistent with variable format (i.e. type DYN_CAT) class blocks. !  ! -' PARAMETER MACID$M_ID_NUM = '0000FFFF'X, PARAMETER MACID$M_LVL_CAT_SEL = '00010000'X< PARAMETER MACID$K_LVL = '00000000'X ! Level ID sub-group? PARAMETER MACID$K_CAT = '00000001'X ! Category ID sub-group, PARAMETER MACID$M_SEC_INT_SEL = '00020000'X: PARAMETER MACID$K_SEC = '00000000'X ! Secrecy ID group< PARAMETER MACID$K_INT = '00000001'X ! Integrity ID group$ PARAMETER MACID$M_MBZ = '03FC0000'X( PARAMETER MACID$M_FMT_SEL = 'FC000000'XH PARAMETER MACID$K_SEVMS_ID = '00000028'X ! Format specifier for SEVMS& ! identifiers as defined by $UICDEF STRUCTURE /MACID$$FILL_0_/ UNION MAP INTEGER*4 MACID$L_MACIDDEF END MAP MAP& PARAMETER MACID$S_ID_NUM = 16C PARAMETER M ACID$V_ID_NUM = 0 ! Group relative ID number* PARAMETER MACID$S_LVL_CAT_SEL = 1T PARAMETER MACID$V_LVL_CAT_SEL = 16 ! Level/Category ID sub-group selector* PARAMETER MACID$S_SEC_INT_SEL = 1S PARAMETER MACID$V_SEC_INT_SEL = 17 ! Secrecy/Integrity ID group selector" PARAMETER MACID$S_MBZ = 8# PARAMETER MACID$V_MBZ = 18& PARAMETER MACID$S_FMT_SEL = 6I PARAMETER MACID$V_FMT_SEL = 26 ! Composite overlay of $UICDEF! ! ID_TYPE + ASSIGN_CODE fields BYTE %FILL (4) END MAP END UNION END STRUCTURE ! MACID$$FILL_0_!DEC$ END OPTIONS wwbӜΦ!*** MODULE $MAILDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ) ! Definitions needed for callable mail. !  ! 7 ! NOTE: New item codes must be appended to the end of9 ! each category so users will not have to relink.2 ! We allow 1024 entries in eatch category. !  !  ! Send input c odes ! + PARAMETER mail$_send_spare_0 = '00000001'XK PARAMETER mail$_send_foreign = '00000002'X ! Send foreign format messageE PARAMETER mail$_send_cc_line = '00000003'X ! CC text specificationO PARAMETER mail$_send_default_name = '00000004'X ! Default file name for send_ PARAMETER mail$_send_default_transport = '00000005'X ! Default transport used for addresseesV PARAMETER mail$_send_error_entry = '00000006'X ! Entry point for send error routineS PARAMETER mail$_send_filename = '00000007'X ! Specification of file name to sendI PARAMETER mail$_send_from_line = '00000008'X ! From text specificationd PARAMETER mail$_send_no_default_transport = '00000009'X ! Don't use any default transport on sendP PARAMETER mail$_send_pers_name = '0000000A'X ! Personal name text for message@ PARAMETER mail$_send_record = '0000000B'X ! Record to be sentN PARAMETER mail$_send_resultspec = '0000000C'X ! Resultant filespec bodypartV PARAMETER mail$_send_server = '0000000D'X ! Operate in server mode (signal success)J PARAMETER mail$_send_subject = '0000000E'X ! Subject text specificationZ PARAMETER mail$_send_success_entry = '0000000F'X ! Entry point for send success routineJ PARAMETER mail$_send_to_line = '00000010'X ! To line text specificationN PARAMETER mail$_send_uflags = '00000011'X ! User flags (for header) to send\ PARAMETER mail$_send_user_data = '00000012'X ! User specified context for action routinesQ PARAMETER mail$_send_username = '00000013'X  ! Username to add to the "To" listN PARAMETER mail$_send_username_type = '00000014'X ! Username type - TO or CC? PARAMETER mail$_send_fid = '00000015'X ! FID of file to sendW PARAMETER mail$_send_no_pers_name = '00000016'X ! Send message without personal name> PARAMETER mail$_send_sigfile = '00000017'X ! Signature fileA PARAMETER mail$_send_no_sigfile = '00000018'X ! Signature fileP PARAMETER mail$_send_parse_quotes = '00000019'X ! Reply String Parsing Quotes !  ! Send o utput codes ! Q PARAMETER mail$_send_copy_reply = '0000001A'X ! Copy self reply set in profileP PARAMETER mail$_send_copy_send = '0000001B'X ! Copy self send set in profile? PARAMETER mail$_send_user = '0000001C'X ! Username of callerU PARAMETER mail$_send_copy_forward = '0000001D'X ! Copy self forward set in profile. PARAMETER mail$_send_out_spare2 = '0000001E'X. PARAMETER mail$_send_out_spare3 = '0000001F'X. PARAMETER mail$_send_out_spare4 = '00000020'X. PARAMETER mail$_send_ out_spare5 = '00000021'X- PARAMETER mail$k_send_min_item = '00000001'X- PARAMETER mail$k_send_max_item = '00000021'X* PARAMETER mail$k_send_items = '00000021'X !  ! file input codes ! / PARAMETER mail$_mailfile_spare_0 = '00000401'XQ PARAMETER mail$_mailfile_default_name = '00000402'X ! Default filespec to opend PARAMETER mail$_mailfile_folder_routine = '00000403'X ! Entry point of routine to process foldernd PARAMETER mail$_mailfile_full_close = '00000404'X ! Do a PURGE, CONVERT/RECLAIM if necessary on cB PARAMETER mail$_mailfile_name = '00000405'X ! File spec to openO PARAMETER mail$_mailfile_reclaim = '00000406'X ! Do RECLAIM on PURGE command` PARAMETER mail$_mailfile_user_data = '00000407'X ! User specified context for action routinesZ PARAMETER mail$_mailfile_wastebasket_name = '00000408'X ! New wastebasket name for fileO PARAMETER mail$_mailfile_collate_seq = '00000409'X ! I18N collating sequence1 PARAMETER mail$_mailfile_in_spare2 = '0000040A'X1  PARAMETER mail$_mailfile_in_spare3 = '0000040B'X1 PARAMETER mail$_mailfile_in_spare4 = '0000040C'X1 PARAMETER mail$_mailfile_in_spare5 = '0000040D'X1 PARAMETER mail$_mailfile_in_spare6 = '0000040E'X1 PARAMETER mail$_mailfile_in_spare7 = '0000040F'X1 PARAMETER mail$_mailfile_in_spare8 = '00000410'X1 PARAMETER mail$_mailfile_in_spare9 = '00000411'X2 PARAMETER mail$_mailfile_in_spare10 = '00000412'X2 PARAMETER mail$_mailfile_in_spare11 = '00000413'X2 PARAMETER mail$_mailfile_in_spare12 =  '00000414'X2 PARAMETER mail$_mailfile_in_spare13 = '00000415'X2 PARAMETER mail$_mailfile_in_spare14 = '00000416'X2 PARAMETER mail$_mailfile_in_spare15 = '00000417'X2 PARAMETER mail$_mailfile_in_spare16 = '00000418'X2 PARAMETER mail$_mailfile_in_spare17 = '00000419'X2 PARAMETER mail$_mailfile_in_spare18 = '0000041A'X2 PARAMETER mail$_mailfile_in_spare19 = '0000041B'X2 PARAMETER mail$_mailfile_in_spare20 = '0000041C'X !  ! file output codes ! Y PARAMETER mail$_mailfile_data_reclaim = '0000041D'X ! Number of data buckets reclaimedT PARAMETER mail$_mailfile_data_scan = '0000041E'X ! Number of data buckets scanned[ PARAMETER mail$_mailfile_deleted_bytes = '0000041F'X ! Number of free bytes in mail file[ PARAMETER mail$_mailfile_index_reclaim = '00000420'X ! Number of index buckets reclaimed[ PARAMETER mail$_mailfile_mail_directory = '00000421'X ! Mail sub-directory specificationW PARAMETER mail$_mailfile_messages_deleted = '00000422'X ! Number of messages delete dJ PARAMETER mail$_mailfile_resultspec = '00000423'X ! Resultant file specQ PARAMETER mail$_mailfile_total_reclaim = '00000424'X ! Total buckets reclaimedH PARAMETER mail$_mailfile_wastebasket = '00000425'X ! Wastebasket name= PARAMETER mail$_mailfile_indexed = '00000426'X ! ISAM file2 PARAMETER mail$_mailfile_out_spare2 = '00000427'X2 PARAMETER mail$_mailfile_out_spare3 = '00000428'X2 PARAMETER mail$_mailfile_out_spare4 = '00000429'X2 PARAMETER mail$_mailfile_out_spare5 = '0000042A 'X2 PARAMETER mail$_mailfile_out_spare6 = '0000042B'X2 PARAMETER mail$_mailfile_out_spare7 = '0000042C'X2 PARAMETER mail$_mailfile_out_spare8 = '0000042D'X2 PARAMETER mail$_mailfile_out_spare9 = '0000042E'X3 PARAMETER mail$_mailfile_out_spare10 = '0000042F'X3 PARAMETER mail$_mailfile_out_spare11 = '00000430'X3 PARAMETER mail$_mailfile_out_spare12 = '00000431'X3 PARAMETER mail$_mailfile_out_spare13 = '00000432'X3 PARAMETER mail$_mailfile_out_spare14 = '00000433'X3 PARAMETER mail$_mailfil e_out_spare15 = '00000434'X3 PARAMETER mail$_mailfile_out_spare16 = '00000435'X3 PARAMETER mail$_mailfile_out_spare17 = '00000436'X3 PARAMETER mail$_mailfile_out_spare18 = '00000437'X3 PARAMETER mail$_mailfile_out_spare19 = '00000438'X3 PARAMETER mail$_mailfile_out_spare20 = '00000439'X1 PARAMETER mail$k_mailfile_min_item = '00000401'X1 PARAMETER mail$k_mailfile_max_item = '00000439'X. PARAMETER mail$k_mailfile_items = '00000039'X !  ! message input codes ! . PARAMETER mail$_message_spare_0 = '00000800'XD PARAMETER mail$_message_back = '00000801'X ! Get previous messageM PARAMETER mail$_message_before = '00000802'X ! Select messages BEFORE date_ PARAMETER mail$_message_cc_substring = '00000803'X ! Select messages containing CC substringD PARAMETER mail$_message_continue = '00000804'X ! Read next recordQ PARAMETER mail$_message_file_action = '00000805'X ! File create action routineU PARAMETER mail$_message_folder_action = '00000806'X ! Folder create action routineI PARAMETER mail$_message_default_name = '00000807'X ! Default file name@ PARAMETER mail$_message_delete = '00000808'X ! Delete message> PARAMETER mail$_message_erase = '00000809'X ! Erase messageF PARAMETER mail$_message_file_ctx = '0000080A'X ! File level contextK PARAMETER mail$_message_filename = '0000080B'X ! File name specificationK PARAMETER mail$_message_flags = '0000080C'X ! Header flags specificationK PARAMETER mail$_message_folder = '0000080D'X ! Folder name specificationc PARAMETER mail$_message_from_substring = '0000080E'X ! Select messages containing FROM substring; PARAMETER mail$_message_id = '0000080F'X ! ID of messageD PARAMETER mail$_message_next = '00000810'X ! Retrive NEXT messageK PARAMETER mail$_message_since = '00000811'X ! Select messages SINCE datec PARAMETER mail$_message_subj_substring = '00000812'X ! Select messages containing SUBJ substring_ PARAMETER mail$_message_to_substring = '00000813'X ! Select messages containing TO substringJ PARAMETER mail$_message_uflags = '00000814'X ! User flags specificationQ PARAMETER mail$_message_auto_newmail = '00000815'X ! Move newmail to MAIL autoU PARAMETER mail$_message_user_data = '00000816'X ! User context for action routinesa PARAMETER mail$_message_flags_mbz = '00000817'X ! Select messages with these flags set at zeroQ PARAMETER mail$_message_min_class = '00000818'X ! Min access class for messageQ PARAMETER mail$_message_max_class = '00000819 'X ! Max access class for message0 PARAMETER mail$_message_in_spare1 = '0000081A'X0 PARAMETER mail$_message_in_spare2 = '0000081B'X0 PARAMETER mail$_message_in_spare3 = '0000081C'X0 PARAMETER mail$_message_in_spare4 = '0000081D'X0 PARAMETER mail$_message_in_spare5 = '0000081E'X0 PARAMETER mail$_message_in_spare6 = '0000081F'X0 PARAMETER mail$_message_in_spare7 = '00000820'X0 PARAMETER mail$_message_in_spare8 = '00000821'X0 PARAMETER mail$_message_in_spare9 = '00000822'X1 PARAMETER mail$_m essage_in_spare10 = '00000823'X1 PARAMETER mail$_message_in_spare11 = '00000824'X1 PARAMETER mail$_message_in_spare12 = '00000825'X1 PARAMETER mail$_message_in_spare13 = '00000826'X1 PARAMETER mail$_message_in_spare14 = '00000827'X1 PARAMETER mail$_message_in_spare15 = '00000828'X1 PARAMETER mail$_message_in_spare16 = '00000829'X1 PARAMETER mail$_message_in_spare17 = '0000082A'X1 PARAMETER mail$_message_in_spare18 = '0000082B'X1 PARAMETER mail$_message_in_spare19 = '0000082C'X1 PAR AMETER mail$_message_in_spare20 = '0000082D'X !  ! message output codes ! @ PARAMETER mail$_message_cc = '0000082E'X ! CC text of messageK PARAMETER mail$_message_current_id = '0000082F'X ! ID of current messageG PARAMETER mail$_message_date = '00000830'X ! Date of current messageM PARAMETER mail$_message_extid = '00000831'X ! Filespec of external messageK PARAMETER mail$_message_file_created = '00000832'X ! Mailfile created...K PARAMETER mail$_message_folder_created = '00000833'X ! Folder created...D PARAMETER mail$_message_from = '00000834'X ! From text of messageE PARAMETER mail$_message_record = '00000835'X ! Record from messageU PARAMETER mail$_message_record_type = '00000836'X ! Type of record, header or textJ PARAMETER mail$_message_reply_path = '00000837'X ! Reply path of senderI PARAMETER mail$_message_resultspec = '00000838'X ! Resultant file specS PARAMETER mail$_message_return_flags = '00000839'X ! Message header system flagsR PARAMETER mail$_message_return_uflags = '0000083A'X ! Message header user flagsO PARAMETER mail$_message_selected = '0000083B'X ! Number of messages selected= PARAMETER mail$_message_sender = '0000083C'X ! Sender nameK PARAMETER mail$_message_size = '0000083D'X ! Size of the current messageN PARAMETER mail$_message_subject = '0000083E'X ! Subject text of the messageD PARAMETER mail$_message_to = '0000083F'X ! To text of the message@ PARAMETER mail$_message_buffer = '00000840'X ! Bu ffer addressP PARAMETER mail$_message_return_class = '00000841'X ! Class of current messageP PARAMETER mail$_message_binary_date = '00000842'X ! Binary date/time quadword- PARAMETER mail$_message_spare4 = '00000843'XS PARAMETER mail$_message_parse_quotes = '00000844'X ! Reply String Parsing Quotes- PARAMETER mail$_message_spare6 = '00000845'X- PARAMETER mail$_message_spare7 = '00000846'X- PARAMETER mail$_message_spare8 = '00000847'X- PARAMETER mail$_message_spare9 = '00000848'X. P ARAMETER mail$_message_spare10 = '00000849'X. PARAMETER mail$_message_spare11 = '0000084A'X. PARAMETER mail$_message_spare12 = '0000084B'X. PARAMETER mail$_message_spare13 = '0000084C'X. PARAMETER mail$_message_spare14 = '0000084D'X. PARAMETER mail$_message_spare15 = '0000084E'X. PARAMETER mail$_message_spare16 = '0000084F'X. PARAMETER mail$_message_spare17 = '00000850'X. PARAMETER mail$_message_spare18 = '00000851'X. PARAMETER mail$_message_spare19 = '00000852'X !  ! Constants returned  ! = PARAMETER mail$_message_null = '00000853'X ! Null bodypartH PARAMETER mail$_message_header = '00000854'X ! Header record returnedD PARAMETER mail$_message_text = '00000855'X ! Text record returned. PARAMETER mail$_message_spare20 = '00000856'X0 PARAMETER mail$k_message_min_item = '00000800'X0 PARAMETER mail$k_message_max_item = '00000856'X- PARAMETER mail$k_message_items = '00000057'X !  ! user input codes ! + PARAMETER mail$_user_spare_0 = '00000C00'XG PARAMETER mail$_user_first = '00000C01'X ! Retrive first user recordE PARAMETER mail$_user_next = '00000C02'X ! Retrive next user recordL PARAMETER mail$_user_username = '00000C03'X ! Retrive record for usernameE PARAMETER mail$_user_set_auto_purge = '00000C04'X ! Set auto-purgeJ PARAMETER mail$_user_set_no_auto_purge = '00000C05'X ! Clear auto-purgeK PARAMETER mail$_user_set_sub_directory = '00000C06'X ! Set sub-dir fieldP PARAMETER mail$_user_set_no_sub_directory = '00000C07'X ! Clear sub-dir fieldM PARAMETER mail$_user_set_forwarding = '00000C08'X ! Set forwarding addressR PARAMETER mail$_user_set_no_forwarding = '00000C09'X ! Clear forwarding addressK PARAMETER mail$_user_set_personal_name = '00000C0A'X ! Set personal nameP PARAMETER mail$_user_set_no_personal_name = '00000C0B'X ! Clear personal nameC PARAMETER mail$_user_set_copy_send = '00000C0C'X ! Set copy-sendH PARAMETER mail$_user_set_no_copy_send = '00000C0D'X ! Clear copy sendE PARAMETER mail$_user_set_copy_reply = '00000C0E'X ! Set copy replyJ PARAMETER mail$_user_set_no_copy_reply = '00000C0F'X ! Clear copy replyN PARAMETER mail$_user_set_new_messages = '00000C10'X ! Set new message countQ PARAMETER mail$_user_create_if = '00000C11'X ! Create record if does not exist; PARAMETER mail$_user_set_mailplus = '00000C12'X ! Set M+@ PARAMETER mail$_user_set_no_mailplus = '00000C13'X ! Clear M+I PARAMETER mail$_user_set_transport = '00000C14'X ! Set transport fieldN PARAMETER mail$_user_set_no_transport = '00000C15'X ! Clear transport fieldC PARAMETER mail$_user_set_editor = '00000C16'X ! Set editor fieldH PARAMETER mail$_user_set_no_editor = '00000C17'X ! Clear editor fieldA PARAMETER mail$_user_set_queue = '00000C18'X ! Set queue fieldF PARAMETER mail$_user_set_no_queue = '00000C19'X ! Clear queue fieldA PARAMETER mail$_user_set_user1 = '00000C1A'X ! Set user1 fieldF PARAMETER mail$_user_set_no_user1 = '00000C1B'X ! Clear user1 fieldA PARAMETER mail$_user_set_user2 = '00000C1C'X ! Set user2 fieldF PARAMETER mail$_user_set_no_user2 = '00000C1D'X ! Clear user2 fieldA PARAMETER mail$_user_set_user3 = '00000C1E'X ! Set user3 fieldF PARAMETER mail$_user_set_no_user3 = '00000C1F'X ! Clear user3 field? PARAMETER mail$_user_set_form = '00000C20'X ! Set form fieldD PARAMETER mail$_user_set_no_form = '00000C21'X ! Clear form fieldN PARAMETER mail$_user_set_copy_forward = '00000C22'X ! Set copy self forwardS PARAMETER mail$_user_set_no _copy_forward = '00000C23'X ! Clear copy self forwardF PARAMETER mail$_user_set_cc_prompt = '00000C24'X ! Set CC promptingK PARAMETER mail$_user_set_no_cc_prompt = '00000C25'X ! Clear CC promptingF PARAMETER mail$_user_set_sigfile = '00000C26'X ! Set signature fileK PARAMETER mail$_user_set_no_sigfile = '00000C27'X ! Clear signature file- PARAMETER mail$_user_in_spare1 = '00000C28'X- PARAMETER mail$_user_in_spare2 = '00000C29'X- PARAMETER mail$_user_in_spare3 = '00000C2A'X- PAR AMETER mail$_user_in_spare4 = '00000C2B'X- PARAMETER mail$_user_in_spare5 = '00000C2C'X- PARAMETER mail$_user_in_spare6 = '00000C2D'X- PARAMETER mail$_user_in_spare7 = '00000C2E'X- PARAMETER mail$_user_in_spare8 = '00000C2F'X- PARAMETER mail$_user_in_spare9 = '00000C30'X. PARAMETER mail$_user_in_spare10 = '00000C31'X. PARAMETER mail$_user_in_spare11 = '00000C32'X. PARAMETER mail$_user_in_spare12 = '00000C33'X. PARAMETER mail$_user_in_spare13 = '00000C34'X. PARAMETER mail$_user_in_spare 14 = '00000C35'X. PARAMETER mail$_user_in_spare15 = '00000C36'X. PARAMETER mail$_user_in_spare16 = '00000C37'X. PARAMETER mail$_user_in_spare17 = '00000C38'X. PARAMETER mail$_user_in_spare18 = '00000C39'X. PARAMETER mail$_user_in_spare19 = '00000C3A'X. PARAMETER mail$_user_in_spare20 = '00000C3B'X !  ! Output item parameters ! 9 PARAMETER mail$_user_mailplus = '00000C3C'X ! M+ fieldA PARAMETER mail$_user_transport = '00000C3D'X ! Transport field; PARAMETER mail$_user_editor = ' 00000C3E'X ! Editor field9 PARAMETER mail$_user_queue = '00000C3F'X ! Queue field9 PARAMETER mail$_user_user1 = '00000C40'X ! User1 field9 PARAMETER mail$_user_user2 = '00000C41'X ! User2 field9 PARAMETER mail$_user_user3 = '00000C42'X ! User3 field7 PARAMETER mail$_user_form = '00000C43'X ! Form fieldF PARAMETER mail$_user_copy_forward = '00000C44'X ! Copy forward flag> PARAMETER mail$_user_sigfile = '00000C45'X ! Signature fileR PARAMETER mail$_user_return_username = '00000C46'X ! Username of current recordB PARAMETER mail$_user_auto_purge = '00000C47'X ! Auto purge flagB PARAMETER mail$_user_sub_directory = '00000C48'X ! Sub-dir specJ PARAMETER mail$_user_full_directory = '00000C49'X ! Full directory specF PARAMETER mail$_user_new_messages = '00000C4A'X ! New message countC PARAMETER mail$_user_forwarding = '00000C4B'X ! Forwarding fieldI PARAMETER mail$_user_personal_name = '00000C4C'X ! Personal name field@ PARAMETER mail$_user_copy_send = '00000C4D'X ! Copy send flagB PARAMETER mail$_user_copy_reply = '00000C4E'X ! Copy reply flag? PARAMETER mail$_user_captive = '00000C4F'X ! User is captiveC PARAMETER mail$_user_cc_prompt = '00000C50'X ! CC prompting flag. PARAMETER mail$_user_out_spare2 = '00000C51'X. PARAMETER mail$_user_out_spare3 = '00000C52'X. PARAMETER mail$_user_out_spare4 = '00000C53'X. PARAMETER mail$_user_out_spare5 = '00000C54'X. PARAMETER mail$_user_out_spare6 = '00000C55'X. PARAMETER mail$_user_out_spar e7 = '00000C56'X. PARAMETER mail$_user_out_spare8 = '00000C57'X. PARAMETER mail$_user_out_spare9 = '00000C58'X/ PARAMETER mail$_user_out_spare10 = '00000C59'X/ PARAMETER mail$_user_out_spare11 = '00000C5A'X/ PARAMETER mail$_user_out_spare12 = '00000C5B'X/ PARAMETER mail$_user_out_spare13 = '00000C5C'X/ PARAMETER mail$_user_out_spare14 = '00000C5D'X/ PARAMETER mail$_user_out_spare15 = '00000C5E'X/ PARAMETER mail$_user_out_spare16 = '00000C5F'X/ PARAMETER mail$_user_out_spare17 = '00000 C60'X/ PARAMETER mail$_user_out_spare18 = '00000C61'X/ PARAMETER mail$_user_out_spare19 = '00000C62'X/ PARAMETER mail$_user_out_spare20 = '00000C63'X- PARAMETER mail$k_user_min_item = '00000C00'X- PARAMETER mail$k_user_max_item = '00000C63'X* PARAMETER mail$k_user_items = '00000064'X !  ! Special items ! E PARAMETER mail$_noop = '00001001'X ! Do nothing - used for testing? PARAMETER mail$_nosignal = '00001002'X ! Don't signal errorsL PARAMETER mail$_noprobe = '00001003'X  ! Don't probe the item list buffersS PARAMETER mail$_tld_input = '00001004'X ! This item is a tld to be used as inputR PARAMETER mail$_tld_output = '00001005'X ! This item describes a buffer to fill ! , ! Username types for mail$send_add_address ! A PARAMETER mail$_to = '00000001'X ! Address part of the TO lineA PARAMETER mail$_cc = '00000002'X ! Address part of the CC line% PARAMETER mail$_spare1 = '00000003'X% PARAMETER mail$_spare2 = '00000004'X ! 0 ! Define the flag values for mail system flags ! & PARAMETER MAIL$m_newmsg = '00000001'X' PARAMETER MAIL$m_replied = '00000002'X& PARAMETER MAIL$m_dwmail = '00000004'X& PARAMETER MAIL$m_extmsg = '00000008'X& PARAMETER MAIL$m_extfnf = '00000010'X' PARAMETER MAIL$m_notrans = '00000020'X' PARAMETER MAIL$m_extnstd = '00000040'X& PARAMETER MAIL$m_marked = '00000080'X' PARAMETER MAIL$m_recmode = '00000100'X STRUCTURE /flagsdef/ UNION MAP/ INTEGER*2 MAIL$w_flags ! Flags word  END MAP MAP( PARAMETER MAIL$S_newmsg = 1B PARAMETER MAIL$V_newmsg = 0 ! This is a new message) PARAMETER MAIL$S_replied = 1N PARAMETER MAIL$V_replied = 1 ! This message has been replied to( PARAMETER MAIL$S_dwmail = 19 PARAMETER MAIL$V_dwmail = 2 ! DW mail flag( PARAMETER MAIL$S_extmsg = 1J PARAMETER MAIL$V_extmsg = 3 ! Message text in external file( PARAM ETER MAIL$S_extfnf = 1L PARAMETER MAIL$V_extfnf = 4 ! External message file not found) PARAMETER MAIL$S_notrans = 1L PARAMETER MAIL$V_notrans = 5 ! No translator for this message) PARAMETER MAIL$S_extnstd = 1O PARAMETER MAIL$V_extnstd = 6 ! External file is not var-seq file( PARAMETER MAIL$S_marked = 1I PARAMETER MAIL$V_marked = 7 ! This message has been marked) PARAMETER MAIL$S_recmode = 1X PARAMETER MAIL$V_recmode = 8 ! This message should be read in record mode BYTE %FILL (2) END MAP END UNION END STRUCTURE ! flagsdef!DEC$ END OPTIONS wwa,Φ!*** MODULE $MAILMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:59.03 !  !  ! VERSION: 'X-12' !  ! * *A ! * COPYRIGHT (C) 1978, 1980, 1982 , 1984, 1992 - 1996 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PE RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! *  * ! * * ! ++ ! ) ! FACILITY: VMS SYSTEM MACRO LIBRARIES ! ! ABSTRACT: ! 7 ! THIS FILE CONTAINS THE MDL SOURCE FOR MAIL MESSAGES !  ! ENVIRONMENT: !  ! N/A !  !  ! 6 ! AUTHOR: THE VMS GROUP CREATION DATE: 8-JUN-1978 !  ! MODIFICATION HISTORY: ! + ! X-12 SG088 SHEELA GAYATRI 20-FEB-1996* ! ADD KEYNOTDEF & INVKEYNAM MESSAGES.  ! + ! X-11 SG082 SHEELA GAYATRI 09-FEB-1996) ! ADD ILLEDTNAM MESSAGE. REMOVE X-10. ! / ! X-10 SG067 SHEELA GAYATRI 13-NOV-19958 ! ADD CDASUPPORT MESSAGE FOR EAGLE/THETA FOR MAIL/OLD5 ! SUPPORT FOR DDIF/DTIF FILES. THIS MESSAGE WILL 3 ! BECOME REDUNDANT IN GRYPHON, WHEN SUPPORT FOR ( ! DDIF/DTIF FILE PROCESSING IS ADDED. ! , ! X-9 ROP1002 ROBERT POSNIAK 7-JUN-19953 ! ADD SHOWNOSIG, SHOWSIG AND BADLOGVAL MESSAGES. ! + ! X-8 MB0020 MARINA BUCKLEY 12-OCT-1994/ ! MODIFY THE TEXT OF THE CODERR FATAL ERROR. ! + ! X-7 MB0011 MARINA BUCKLEY 16-JUN-19948 ! ADD MAIL$_LISTTOOLONG ERROR MESSAGE TO BE RETURNED 9 ! FROM CALLABLE MAIL ROUTINE MAIL$SEND_ADD_ADDRESS IF : ! USER CALLS IT MULTIPLE TIMES RESULTING IN AN ADDRESS # ! LIST THAT EXCEEDS THE MAXIMUM. ! * ! X-6 TNS004 TOM SCARPELLI 11-APR-1994 ! ADD I18N CHANGES. ! * ! X-5 RAB RICHARD A. BISHOP 17-AUG-19936 ! PICK UP MAIL$_DELETED AND MAIL$_FFMTMSG FROM VAX: ! ) ! X-22 CCD027 CAREY DONAT 11-AUG-1993' ! REMOVE FROM MIDDLE OF FFMTMSG ! ) ! X-21 CCD027 CAREY DONAT 13-JUL-19938 ! ADD FFMTMSG INFORMATIONAL MESSAGE FOR FOREIGN FILES ! WHERE TRANLATOR EXISTS ! ) ! X-20 CCD007 CAREY DONAT 08-FEB-1993< ! ADD DELETED MESSAGE FOR COMPRESS TEMP FILE SUCCESSFULLY ! DELETED ! ! ! ***** OLD AUDIT TRAIL FOLLOWS ! , ! X-6 LAF0001 LISA A. FARLEY 02-JUL-1992: ! FIX FOR QAR #3161. ADDED MESSAGE INVRANGE TO LET THE 7 ! USER KNOW WHEN THE RANGE SPECIFIED FOR A DELETE IS ! INVALID. ! -  ! X-5 MFS0069 MARK F. SCANLON 26-JUN-19922 ! QAR 2682. REMOVED FAO FROM MESSAGE NAMTOOBIG. ! * ! X-4 RAB RICHARD A. BISHOP 21-MAY-19921 ! MERGE ANOTHER SYMBVOL FROM THE VAX/VMS COPY: ! ; ! X-19 DAC060 DAVE CANTOR 15-APR-1992G ! CORRECTED TEXT OF NOUSERSPEC AT REQUEST OF DOC. GROUP ! ; ! X-18 DAC058 DAVE CANTOR 02-APR-1992L ! SUPPLY ERROR MESSAGE FOR DCL COMMAND $ MAIL FILENAME B !  FOLLOWED BY NO ADDRESSEE SUPPLIED. (NOUSERSPEC) ! * ! X-3 RAB RICHARD A. BISHOP 29-JAN-19923 ! MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS.; ! SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION < ! OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), WHAT 8 ! FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK. ! C ! =============================================================== ! + ! X-17 DRB0084 DAWN R. BANKS 8-AUG-19914 ! ADD MESSAGES TO SUPPORT DDIF/DTIF DOTS PACKING. ! . ! X-16 ROP0423 ROBERT POSNIAK 17-MAR-1988 ! CHANGE THE TEXT OF FORMSG. ! - ! X-15 ROP0342 ROBERT POSNIAK 10-AUG-1987 ! ADD SHOW220, SHOW 225. ! - ! X-14 ROP0321 ROBERT POSNIAK 23-JUL-1987 ! ADD NOACCPTMSG MESSAGE. ! , ! X-13 ROP0297 ROBERT POSNIAK 2-MAR-19872 ! MAKE DIRHD0 TAKE AS A PARAMETER THE NUMBER OF, ! SPACES BETWEEN DATE AND SUBJECT FIELDS. ! - ! X-12 ROP0283 ROBERT POSNIAK 24-FEB-1987) ! ADD MAILFOLD AND WASTEFOLD MESSAGES. ! , ! X-11 ROP0249 ROBERT POSNIAK 9-FEB-1987* ! MAKE MAIL COPY OF THE SHARED MESSAGES ! USED BY THE MAIL FACILITY. ! . ! X-10 ROP0205 ROBERT POSNIAK 14-NOV-1986 ! ADD SHOW210 AND SHOW215. ! - ! X-9 ROP0195 ROBERT POSNIAK 11-NOV-1986 ! ADD YES. ! - ! X-8 ROP0179 ROBERT POSNIAK 27-OCT-19861 ! ADD UPGRADE FOR ROLLING UPGRADE IN PROGRESS. ! ! X-7 ROP ! ADD ERRACTRNS ! ! X-6 ROP ! ADD SHOW200, SHOW205 ! ADD FORMSG, NOTFORMSG ! ! X-5 ROP9 ! FIX SHOW10 TO USE ONLY DESCRIPTORS. REMOVE RECLSTAT7 ! ADD PROMPT. CHANGE INFO50 TO TAKE A DESCRIPTOR AS+ ! INPUT. ADD INFO12,INFO14, CRENEWFILE.3 ! ADD SHOW15,SHOW25, AND SHOW35 TO DISPLAY PRINT ! QUEUE/FORM AND FORWARD ! ! X-4 ROP ! ADD MSGSENT, MSGSENTAT ! ! X-3 ROP ! ADD ILLTPRT,INVITMVAL ! ! X-2 ROP* ! TAKE QUOTES OUT OF ILLPERNAM MESSAGE. !  ! V04-000 RP 28-OCT-19852 ! NEW MESSAGE FOR WRONG FILE. ADD ERROR ERACTED ! / ! V03-015 ROP0004 ROBERT POSNIAK 6-JUN-19846 ! NEW MESSGE FOR OVERSIZED RECORD. NEW MESSAGE FOR ! REENTERING LINE. ! : ! V03-014 BLS0272 BENN SCHREIBER 18-FEB-1984 13:36:12 0 ! NEW MESSAGE FOR INCORRECT PROTOCOL VERSION. ! 0 ! V03-013 BLS0263 BENN SCHREIBER 5-FEB-19845 ! NEW MESSAGE FOR CAPTIVE ACCOUNT TRYING TO SPAWN. ! 0 ! V03-012 BLS0255 BENN SCHREIBER 28-DEC-1983> ! NEW MESSAGES FOR SHOW KEY, AND FOR TIME IN NOTIFY MESSAGE ! 0 ! V03-011 BLS0250 BENN SCHREIBER 8-DEC-1983: ! NEW MESSAGE FOR EDITOR NOT CALLABLE. NEW MESSAGE FOR. ! ISAM FILE FOUND WHEN SEQUENTIAL EXPECTED. ! 0 ! V03-010 BLS0246 BENN SCHREIBER 28-NOV-19835 ! NEW MESSAGE ASKING IF WANT TO CREATE NEW FOLDER. ! 0 ! V03-009 BLS0229 BENN SCHREIBER 16-JUL-1983% ! NEW MESSAGE "you have new mail". ! 0 ! V03-008 BLS0227 BENN SCHREIBER 1-JUL-19838 ! NEW MESSAGES FOR SENDERR AND NOSUCHUSR THAT INCLUDE ! THE NODE NAME. ! 0 ! V03-007 BLS0225 BENN SCHREIBER 17-JUN-19832 ! NEW MESSAGE FOR BETTER PERSONAL NAME CHECKING ! 0 ! V03-006 BLS0222 BENN SCHREIBER 15-MAY-1983% ! NEW MESSAGE FOR RECLAIMING SPACE ! 0 ! V03-005 BLS0220 BENN SCHREIBER 30-APR-1983" ! NEW MESSAGES FOR NEW FEATURES ! 0 ! V03-004 BLS0217 BENN SCHREIBER 12-APR-1983? ! CHANGE TEXT OF DELSPACE. ADD NEW MESSAGE FOR NON-EXISTANT= ! FOLDER SELECTED. ADD MESSAGE FOR EXTERNAL MESSAGE TEXT. ! 0 ! V03-00 3 BLS0211 BENN SCHREIBER 13-MAR-19837 ! NEW MESSAGES FOR ISAM FILES, AND TEXT THAT USED TO ! BE EMBEDDED IN THE PROGRAM. ! 0 ! V03-002 BLS0202 BENN SCHREIBER 5-JAN-19837 ! NEW MESSAGES FOR ILLEGAL STRING LENGTH AND ILLEGAL ! CHARACTER IN STRING ! 0 ! V03-001 BLS0177 BENN SCHREIBER 24-JUN-1982; ! NEW MESSAGE FOR USER WHO HAS DISMAIL SET. NEW MESSAGE8 ! IF LOOP DETECTED IN FORWARDING VIA LOGICAL NAMES OR ! SET FORWARD. !  ! -- ! + ! DEFINE MAIL RE LATED ERROR/STATUS VALUES !  !  ! DEFINE ERROR MESSAGES ! ' PARAMETER MAIL$_FACILITY = '0000007E'X% PARAMETER MAIL$_CODERR = '007E800C'X& PARAMETER MAIL$_UPGRADE = '007E8014'X( PARAMETER MAIL$_UAFGETERR = '007E801A'X( PARAMETER MAIL$_UAFOPNERR = '007E8022'X( PARAMETER MAIL$_NOSUCHUSR = '007E802A'X( PARAMETER MAIL$_NOTREADIN = '007E8032'X& PARAMETER MAIL$_LOGLINK = '007E803A'X( PARAMETER MAIL$_CREPRIJOB = '007E8042'X& PARAMETER MAIL$_SENDERR = '007E804A'X( PARAMETER MAIL$_NOM  OREMSG = '007E8052'X% PARAMETER MAIL$_NOMSGS = '007E805A'X' PARAMETER MAIL$_USERSPEC = '007E8062'X( PARAMETER MAIL$_SENDABORT = '007E806A'X' PARAMETER MAIL$_EDITPROC = '007E8072'X% PARAMETER MAIL$_INVCMD = '007E807A'X' PARAMETER MAIL$_NOTFOUND = '007E8082'X' PARAMETER MAIL$_NETIOERR = '007E808A'X( PARAMETER MAIL$_USERDSABL = '007E8092'X' PARAMETER MAIL$_FORWLOOP = '007E809A'X( PARAMETER MAIL$_NAMTOOBIG = '007E80A2'X& PARAMETER MAIL$_ILLCHAR = '007E80AA'X( PARAMETER MAIL$_DATIMUSED =  '007E80B2'X& PARAMETER MAIL$_NOTISAM = '007E80BA'X% PARAMETER MAIL$_DELMSG = '007E80C2'X' PARAMETER MAIL$_DELWASTE = '007E80CA'X' PARAMETER MAIL$_NOFOLDER = '007E80D2'X' PARAMETER MAIL$_NOTEXIST = '007E80DA'X( PARAMETER MAIL$_NOTSUBDIR = '007E80E2'X( PARAMETER MAIL$_ILLSUBDIR = '007E80EA'X( PARAMETER MAIL$_ILLFOLNAM = '007E80F2'X' PARAMETER MAIL$_NOMSGPRI = '007E80FA'X( PARAMETER MAIL$_ALTPRIJOB = '007E8102'X( PARAMETER MAIL$_ILLPERNAM = '007E810A'X* PARAMETER MAIL$_NOSUCHUSRAT = '00  7E8112'X( PARAMETER MAIL$_SENDERRAT = '007E811A'X' PARAMETER MAIL$_CONABORT = '007E8122'X( PARAMETER MAIL$_NOTCALEDT = '007E812A'X+ PARAMETER MAIL$_FILECONFUSED = '007E8132'X& PARAMETER MAIL$_CAPTIVE = '007E813A'X( PARAMETER MAIL$_IVPROTVAL = '007E8142'X' PARAMETER MAIL$_RECTOBIG = '007E814A'X( PARAMETER MAIL$_ILLCTXADR = '007E8152'X' PARAMETER MAIL$_WRONGCTX = '007E815A'X( PARAMETER MAIL$_FAILGETVM = '007E8162'X( PARAMETER MAIL$_INVITMCOD = '007E816A'X( PARAMETER MAIL$_MISREQITM = '00  7E8172'X( PARAMETER MAIL$_INVITMLEN = '007E817A'X' PARAMETER MAIL$_FILEOPEN = '007E8182'X) PARAMETER MAIL$_NOFILEOPEN = '007E818A'X( PARAMETER MAIL$_CONITMCOD = '007E8192'X( PARAMETER MAIL$_NOMORECTX = '007E819A'X( PARAMETER MAIL$_WRONGFILE = '007E81A2'X& PARAMETER MAIL$_ILLTPRT = '007E81AA'X( PARAMETER MAIL$_INVITMVAL = '007E81B2'X& PARAMETER MAIL$_ERACTED = '007E81BA'X% PARAMETER MAIL$_FORMSG = '007E81C2'X( PARAMETER MAIL$_NOTFORMSG = '007E81CA'X( PARAMETER MAIL$_ERRACTRNS = '007E81D2 'X' PARAMETER MAIL$_BADVALUE = '007E81DA'X' PARAMETER MAIL$_CLOSEDEL = '007E81E2'X( PARAMETER MAIL$_FILNOTDEL = '007E81EA'X% PARAMETER MAIL$_OPENIN = '007E81F2'X& PARAMETER MAIL$_OPENOUT = '007E81FA'X( PARAMETER MAIL$_PARSEFAIL = '007E8202'X& PARAMETER MAIL$_READERR = '007E820A'X) PARAMETER MAIL$_SEARCHFAIL = '007E8212'X' PARAMETER MAIL$_SYSERROR = '007E821A'X' PARAMETER MAIL$_NOSYSNAM = '007E8222'X' PARAMETER MAIL$_NOSYSPRV = '007E822A'X' PARAMETER MAIL$_PROTOCOL = '007E8232'X) P  ARAMETER MAIL$_NOACCPTMSG = '007E823A'X' PARAMETER MAIL$_DOTSPACK = '007E8242'X) PARAMETER MAIL$_DOTSUNPACK = '007E824A'X) PARAMETER MAIL$_NOUSERSPEC = '007E8252'X' PARAMETER MAIL$_INVRANGE = '007E825A'X* PARAMETER MAIL$_LISTTOOLONG = '007E8262'X' PARAMETER MAIL$_SELECTED = '007EBE83'X& PARAMETER MAIL$_DELMSGS = '007EBE8B'X& PARAMETER MAIL$_CVTFILE = '007EBE93'X' PARAMETER MAIL$_DELSPACE = '007EBE9B'X( PARAMETER MAIL$_NEWFOLDER = '007EBEA3'X* PARAMETER MAIL$_RECLPLSWAIT = '007EBEAB'X  & PARAMETER MAIL$_REENTER = '007EBEB3'X& PARAMETER MAIL$_DELETED = '007EBEBB'X& PARAMETER MAIL$_FFMTMSG = '007EBEC3'X& PARAMETER MAIL$_MOREMSG = '007EDDC0'X% PARAMETER MAIL$_DIRHD0 = '007EDDC8'X& PARAMETER MAIL$_DIRHD10 = '007EDDD0'X& PARAMETER MAIL$_DIRHD20 = '007EDDD8'X' PARAMETER MAIL$_DIRDEL10 = '007EDDE0'X% PARAMETER MAIL$_ISUB10 = '007EDDE8'X% PARAMETER MAIL$_ISUB20 = '007EDDF0'X% PARAMETER MAIL$_ISUB30 = '007EDDF8'X& PARAMETER MAIL$_PRESRET = '007EDE00'X) PARAMETER MAIL$_YOUHA VENEW = '007EDE08'X% PARAMETER MAIL$_MAIL10 = '007EDE10'X% PARAMETER MAIL$_MAIL20 = '007EDE18'X( PARAMETER MAIL$_WANTOSEND = '007EDE20'X' PARAMETER MAIL$_NOTIFY10 = '007EDE28'X' PARAMETER MAIL$_NOTIFY20 = '007EDE30'X) PARAMETER MAIL$_JOBENTERED = '007EDE38'X% PARAMETER MAIL$_SHOW10 = '007EDE40'X% PARAMETER MAIL$_SHOW20 = '007EDE48'X% PARAMETER MAIL$_SHOW30 = '007EDE50'X% PARAMETER MAIL$_SHOW40 = '007EDE58'X% PARAMETER MAIL$_SHOW50 = '007EDE60'X% PARAMETER MAIL$_SHOW60 = '007EDE6 8'X% PARAMETER MAIL$_SHOW70 = '007EDE70'X% PARAMETER MAIL$_SHOW80 = '007EDE78'X% PARAMETER MAIL$_SHOW90 = '007EDE80'X& PARAMETER MAIL$_SHOW100 = '007EDE88'X& PARAMETER MAIL$_SHOW110 = '007EDE90'X% PARAMETER MAIL$_EDIT10 = '007EDE98'X% PARAMETER MAIL$_INFO10 = '007EDEA0'X% PARAMETER MAIL$_INFO20 = '007EDEA8'X% PARAMETER MAIL$_INFO30 = '007EDEB0'X# PARAMETER MAIL$_SEND = '007EDEB8'X$ PARAMETER MAIL$_REPLY = '007EDEC0'X& PARAMETER MAIL$_SHOW120 = '007EDEC8'X& PARAMETER MAIL$_SHOW130 = '007EDED0'X% PARAMETER MAIL$_INFO50 = '007EDED8'X& PARAMETER MAIL$_SHOW140 = '007EDEE0'X& PARAMETER MAIL$_SHOW150 = '007EDEE8'X& PARAMETER MAIL$_SHOW160 = '007EDEF0'X% PARAMETER MAIL$_ISUB50 = '007EDEF8'X% PARAMETER MAIL$_MAIL30 = '007EDF00'X& PARAMETER MAIL$_RETCONT = '007EDF08'X% PARAMETER MAIL$_NEWSEQ = '007EDF10'X& PARAMETER MAIL$_MAILDIR = '007EDF18'X' PARAMETER MAIL$_MAILFILE = '007EDF20'X) PARAMETER MAIL$_MAILFOLDER = '007EDF28'X% PARAMETER MAIL$_MAIL40 = '007EDF30'X) PAR AMETER MAIL$_CRENEWFOLD = '007EDF38'X( PARAMETER MAIL$_NONEWMAIL = '007EDF40'X( PARAMETER MAIL$_SHOWKEY10 = '007EDF48'X( PARAMETER MAIL$_SHOWKEY20 = '007EDF50'X( PARAMETER MAIL$_SHOWKEY30 = '007EDF58'X( PARAMETER MAIL$_SHOWKEY40 = '007EDF60'X( PARAMETER MAIL$_SHOWKEY50 = '007EDF68'X( PARAMETER MAIL$_SHOWKEY60 = '007EDF70'X( PARAMETER MAIL$_SHOWKEY70 = '007EDF78'X' PARAMETER MAIL$_NOTIFY30 = '007EDF80'X' PARAMETER MAIL$_NOTIFY40 = '007EDF88'X' PARAMETER MAIL$_NOPARENT = '007EDF90'X' PAR AMETER MAIL$_FILEMPTY = '007EDF98'X( PARAMETER MAIL$_NONEFOUND = '007EDFA0'X, PARAMETER MAIL$_NOMOREREC = '007EDFA8'X ! 3 ! THE FOLLOWING MESSAGE IS USED FOR COMMUNICATIONE ! BETWEEN MAILSHR AND MAILSHRP. IT DOES NOT NEED TO BE DOCUMENTED. ! & PARAMETER MAIL$_USERFWD = '007EDFB0'X% PARAMETER MAIL$_PROMPT = '007EDFB8'X% PARAMETER MAIL$_INFO12 = '007EDFC0'X% PARAMETER MAIL$_INFO14 = '007EDFC8'X% PARAMETER MAIL$_INFO16 = '007EDFD0'X% PARAMETER MAIL$_INFO18 = '007EDFD8'X) PARAMET  ER MAIL$_CRENEWFILE = '007EDFE0'X% PARAMETER MAIL$_SHOW15 = '007EDFE8'X% PARAMETER MAIL$_SHOW25 = '007EDFF0'X% PARAMETER MAIL$_SHOW35 = '007EDFF8'X& PARAMETER MAIL$_FORWARD = '007EE000'X& PARAMETER MAIL$_SHOW200 = '007EE008'X& PARAMETER MAIL$_SHOW205 = '007EE010'X& PARAMETER MAIL$_SHOW210 = '007EE018'X& PARAMETER MAIL$_SHOW215 = '007EE020'X& PARAMETER MAIL$_CLOSEIN = '007EE028'X' PARAMETER MAIL$_CLOSEOUT = '007EE030'X( PARAMETER MAIL$_INVQUAVAL = '007EE038'X' PARAMETER MAIL$_WRITEERR  = '007EE040'X& PARAMETER MAIL$_SHOW220 = '007EE048'X& PARAMETER MAIL$_SHOW225 = '007EE050'X& PARAMETER MAIL$_HPROMPT = '007EE058'X( PARAMETER MAIL$_SHOWNOSIG = '007EE060'X& PARAMETER MAIL$_SHOWSIG = '007EE068'X( PARAMETER MAIL$_BADLOGVAL = '007EE070'X& PARAMETER MAIL$_MSGTEXT = '007EFD01'X& PARAMETER MAIL$_MSGINFO = '007EFD09'X& PARAMETER MAIL$_MSGSENT = '007EFD11'X( PARAMETER MAIL$_MSGSENTAT = '007EFD19'X" PARAMETER MAIL$_YES = '007EFD21'X& PARAMETER MAIL$_COPIEDR = '007EFD29'X& PARAMET ER MAIL$_CREATED = '007EFD31'X& PARAMETER MAIL$_RENAMED = '007EFD39'X# PARAMETER MAIL$_TEXT = '007EFD41'X ! 6 ! THE FOLLOWING TWO ARE FOLDER NAMES CREATED BY MAIL ! ' PARAMETER MAIL$_MAILFOLD = '007EFD49'X( PARAMETER MAIL$_WASTEFOLD = '007EFD51'X( PARAMETER MAIL$_ILLEDTNAM = '007EFD5A'X( PARAMETER MAIL$_KEYNOTDEF = '007EFD62'X( PARAMETER MAIL$_INVKEYNAM = '007EFD6A'X!DEC$ END OPTIONSwwѐӜΦ%!*** MODULE $MAPPINGDEF IDENT X-2 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PAC  KED,COMMONS=PACKED)/NOWARN& PARAMETER MAPPING$K_ADD = '00000001'X) PARAMETER MAPPING$K_CREATE = '00000002'X) PARAMETER MAPPING$K_DEFINE = '00000003'X) PARAMETER MAPPING$K_DELETE = '00000004'X) PARAMETER MAPPING$K_MODIFY = '00000005'X' PARAMETER MAPPING$K_SCAN = '00000006'X) PARAMETER MAPPING$K_LOOKUP = '00000007'X. PARAMETER MAPPING$K_PERFORMANCE = '00000008'X3 PARAMETER MAPPING$K_ZERO_PERFORMANCE = '00000009'X' PARAMETER MAPPING$K_STOP = '0000000A'X( PARAMETER MAPPING$K_START = '00  00000B'X3 PARAMETER MAPPING$K_MAX_MAPPING_CODE = '0000000C'X& PARAMETER MAPPING$K_END = '00000064'X' PARAMETER MAPPING$K_TYPE = '00000065'X. PARAMETER MAPPING$K_REMOTE_AREA = '00000066'X. PARAMETER MAPPING$K_REMOTE_NAME = '00000067'X- PARAMETER MAPPING$K_LOCAL_NAME = '00000068'X( PARAMETER MAPPING$K_FLAGS = '00000069'X, PARAMETER MAPPING$K_USER_DATA = '0000006A'X3 PARAMETER MAPPING$K_USER_DATA_LENGTH = '0000006B'X. PARAMETER MAPPING$K_WILDCARD_MC = '0000006C'X. PARAMETER MAPPING$K_WILDC  ARD_SC = '0000006D'X. PARAMETER MAPPING$K_WILDCARD_TC = '0000006E'X. PARAMETER MAPPING$K_WILDCARD_TS = '0000006F'X. PARAMETER MAPPING$K_DEFINE_NAME = '00000070'X/ PARAMETER MAPPING$K_DEFINE_FLAGS = '00000071'X. PARAMETER MAPPING$K_SCAN_BUFFER = '00000072'X0 PARAMETER MAPPING$K_PROPOSED_NAME = '00000073'X0 PARAMETER MAPPING$K_WC_RESOLUTION = '00000074'X4 PARAMETER MAPPING$K_MAX_MAPPING_ITEMS = '00000075'X4 PARAMETER MAPPING$K_WC_MUST_BE_UNIQUE = '000000C8'X3 PARAMETER MAPPING$K_WC_MATCH_LONG  EST = '000000C9'X4 PARAMETER MAPPING$K_WC_MATCH_SHORTEST = '000000CA'X6 PARAMETER MAPPING$K_WC_MATCH_MOST_TERMS = '000000CB'X8 PARAMETER MAPPING$K_WC_MATCH_FEWEST_TERMS = '000000CC'X4 PARAMETER MAPPING$K_WC_MATCH_LEFTMOST = '000000CD'X5 PARAMETER MAPPING$K_WC_MATCH_RIGHTMOST = '000000CE'X1 PARAMETER MAPPING$K_MAX_MAPPING_WC = '000000CF'X+ PARAMETER MAPPING$K_ANY_TYPE = '80000000'X+ PARAMETER MAPPING$K_TCP_USER = '80000101'X, PARAMETER MAPPING$K_TCP_GROUP = '80000102'X, PARAMETER MAPPING  $K_TCP_PROXY = '80000103'X. PARAMETER MAPPING$K_DCE_MAPPING = '80000201'X, PARAMETER MAPPING$K_DCE_PROXY = '80000202'X2 PARAMETER MAPPING$K_PATHWORKS_PROXY = '80000301'X/ PARAMETER MAPPING$K_DECNET_PROXY = '80000401'X3 PARAMETER MAPPING$K_KERBEROS_MAPPING = '80000501'X5 PARAMETER MAPPING$K_PERFORMANCE_LENGTH = '00000038'X STRUCTURE /MAPPING$PERFORMANCE/' INTEGER*4 MAPPING$L_TOTAL_MESSAGES) INTEGER*4 MAPPING$L_TOTAL_EXCEPTIONS INTEGER*4 MAPPING$L_ADDS INTEGER*4 MAPPI NG$L_CREATES! INTEGER*4 MAPPING$L_DEFINESS INTEGER*4 MAPPING$L_DELETES INTEGER*4 MAPPING$L_MODIFYS INTEGER*4 MAPPING$L_SCANS INTEGER*4 MAPPING$L_LOOKUPS$ INTEGER*4 MAPPING$L_PERFORMANCE INTEGER*4 MAPPING$L_STOPS INTEGER*4 MAPPING$L_STARTS INTEGER*4 MAPPING$L_AUDITS) INTEGER*4 MAPPING$L_INVALID_MESSAGES$ END STRUCTURE ! MAPPING$PERFORMANCE/ PARAMETER MAPPING$M_LOCAL_UNIQUE = '00000001'X0 PARAMETER MAPPING$M_REMOTE_UNIQUE = '00000002'X- P  ARAMETER MAPPING$M_DEFAULT_IN = '00000004'X. PARAMETER MAPPING$M_DEFAULT_OUT = '00000008'X0 PARAMETER MAPPING$M_NO_DEFAULT_IN = '00000010'X1 PARAMETER MAPPING$M_NO_DEFAULT_OUT = '00000020'X) PARAMETER MAPPING$M_MODIFY = '00000040'X- PARAMETER MAPPING$M_DEFINITION = '00000080'X- PARAMETER MAPPING$M_CASE_BLIND = '00000100'X+ PARAMETER MAPPING$M_WILDCARD = '00000200'X- PARAMETER MAPPING$M_FIND_LOCAL = '00000400'X. PARAMETER MAPPING$M_FIND_REMOTE = '00000800'X) PARAMETER MAPPING$M_FILL_1  = 'FFFFF000'X0 PARAMETER MAPPING$K_HEADER_LENGTH = '00000028'X STRUCTURE /MAPPING$HEADER/ INTEGER*4 MAPPING$L_LENGTH INTEGER*4 MAPPING$L_CONTEXT UNION MAP" INTEGER*4 MAPPING$L_FLAGS END MAP MAP1 PARAMETER MAPPING$S_LOCAL_UNIQUE = 11 PARAMETER MAPPING$V_LOCAL_UNIQUE = 02 PARAMETER MAPPING$S_REMOTE_UNIQUE = 12 PARAMETER MAPPING$V_REMOTE_UNIQUE = 1/ PARAMETER MAPPING$S_DEFAULT  _IN = 1/ PARAMETER MAPPING$V_DEFAULT_IN = 20 PARAMETER MAPPING$S_DEFAULT_OUT = 10 PARAMETER MAPPING$V_DEFAULT_OUT = 32 PARAMETER MAPPING$S_NO_DEFAULT_IN = 12 PARAMETER MAPPING$V_NO_DEFAULT_IN = 43 PARAMETER MAPPING$S_NO_DEFAULT_OUT = 13 PARAMETER MAPPING$V_NO_DEFAULT_OUT = 5+ PARAMETER MAPPING$S_MODIFY = 1+ PARAMETER MAPPING$V_MODIFY = 6/ PARAMETER MAPPING$S_DEFINITIO  N = 1/ PARAMETER MAPPING$V_DEFINITION = 7/ PARAMETER MAPPING$S_CASE_BLIND = 1/ PARAMETER MAPPING$V_CASE_BLIND = 8- PARAMETER MAPPING$S_WILDCARD = 1- PARAMETER MAPPING$V_WILDCARD = 9/ PARAMETER MAPPING$S_FIND_LOCAL = 10 PARAMETER MAPPING$V_FIND_LOCAL = 100 PARAMETER MAPPING$S_FIND_REMOTE = 11 PARAMETER MAPPING$V_FIND_REMOTE = 11, PARAMETER MAPPING$S_FILL_1 = 20,  PARAMETER MAPPING$V_FILL_1 = 12 BYTE %FILL (4) END MAP END UNION INTEGER*4 MAPPING$L_TYPE" INTEGER*4 MAPPING$L_WILDFLAGS" INTEGER*4 MAPPING$L_WILDMULTI# INTEGER*4 MAPPING$L_WILDSINGLE! INTEGER*4 MAPPING$L_WILDTERM INTEGER*4 MAPPING$L_TERMSEP INTEGER*4 MAPPING$L_UNUSED END STRUCTURE ! MAPPING$HEADER" STRUCTURE /MAPPING$GENERIC_DESC1/$ INTEGER*2 MAPPING$W_DESC_LENGTH INTEGER*2 %FILL$ CHARACTER*1 MAPPING $T_DESC_DATA& END STRUCTURE ! MAPPING$GENERIC_DESC1!DEC$ END OPTIONS ww?Φ!*** MODULE $MHDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Module header ! I PARAMETER MHD$C_MHDID = '000000AD'X ! Value that must be in the ident O PARAMETER MHD$K_REFLNG = '00000008'X ! Length of record to end of ref count O PARAMETER MHD$C_REFLNG = '00000008'X ! Length of record to end of ref count J PARAMETER MHD$K_INSTIME = '00000008'X ! Lab  el for start of insert time J PARAMETER MHD$C_INSTIME = '00000008'X ! Label for start of insert time O PARAMETER MHD$K_USRDAT = '00000010'X ! Start of user additional header data O PARAMETER MHD$C_USRDAT = '00000010'X ! Start of user additional header data F PARAMETER MHD$K_MHDLEN = '00000010'X ! Length of fixed part of MHD F PARAMETER MHD$C_MHDLEN = '00000010'X ! Length of fixed part of MHD % PARAMETER MHD$M_SELSRC = '00000001'X% PARAMETER MHD$M_OBJTIR = '00000002'X$ PARAMETER M  HD$M_WKSYM = '00000004'X, PARAMETER MHD$K_OBJIDENT = '00000012'X ! , PARAMETER MHD$C_OBJIDENT = '00000012'X ! L PARAMETER MHD$K_OREFOFFSET = '00000034'X ! Offset of the other ref. countL PARAMETER MHD$C_OREFOFFSET = '00000034'X ! Offset of the other ref. count STRUCTURE /MHDDEF/B BYTE MHD$B_LBRFLAG ! Librarian-controlled flag byte $ BYTE MHD$B_ID ! Ident * INTEGER*2 %FILL ! Reserved word 2 INTEGER*4 MHD$L_REFCNT ! Reference count 4 INT EGER*4 MHD$L_DATIM ! Date/time inserted UNION MAP$ INTEGER*4 %FILL ! ...  END MAP MAP! BYTE %FILL(1:4)b ! unsupported type CHARACTER*0 MHD$B_USRDAT ! Start of user additional header data  END MAP END UNION UNION MAP? BYTE MHD$B_OBJSTAT ! Status of object module  END MAP MAP' PARAMETER MHD$S_SELSRC = 1> PARAMETER MHD$V _SELSRC = 0 ! Selective search ' PARAMETER MHD$S_OBJTIR = 1I PARAMETER MHD$V_OBJTIR = 1 ! Module contains TIR records & PARAMETER MHD$S_WKSYM = 1Y PARAMETER MHD$V_WKSYM = 2 ! Module contains other non-group global symbol BYTE %FILL (1) END MAP END UNION UNION MAP7 BYTE MHD$B_OBJIDLNG ! Length of ident  END MAP MAP BYTE %FILLS !! unsupported type CHARACTER*0 MHD$T_OBJIDENT ! Object module ident  END MAP END UNIONI BYTE %FILL(1:31) ! Object module ident data or GSMATCH area% BYTE %FILL(1:3) ! space: INTEGER*4 MHD$L_OTHEREFCNT ! Other reference count. INTEGER*4 MHD$L_MODSIZE ! Module size7 INTEGER*4 MHD$L_FILL_7 ! part of module size. END STRUCTURE ! MHDDEF!DEC$ END OPTIONS wwΦ!*** MODULE $MHDEF ***:!DEC$ OPTIONS/ALIGN= " (RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Module header record (MHD) ! 9 PARAMETER MHD$C_MHD = '00000000'X ! Main header record @ PARAMETER MHD$C_LNM = '00000001'X ! Language name and version @ PARAMETER MHD$C_SRC = '00000002'X ! Source file specification ; PARAMETER MHD$C_TTL = '00000003'X ! Title text of module 7 PARAMETER MHD$C_CPR = '00000004'X ! Copyright notice 9 PARAMETER MHD$C_MTC = '00000005'X ! Maintenence status 3 PARAMETER MHD$C_GTX = '00000006'X ! General text# C PARAMETER MHD$C_MAXHDRTYP = '00000006'X ! Maximum allowable type  STRUCTURE /MHDEF/9 BYTE MHD$B_RECTYP ! Record type (OBJ$C_MHD) 4 BYTE MHD$B_HDRTYP ! Type field for MHD  ! Types of header records 1 BYTE MHD$B_STRLVL ! Structure level 5 INTEGER*2 MHD$W_RECSIZ ! Maximum record size 4 BYTE MHD$B_NAMLNG ! Module name length . CHARACTER*31 MHD$T_NAME ! Module name  END STRUCTURE ! MHDEF!DEC$ END OPTIONS ww $ ԛԜΦ !*** MODULE MMEDEF IDENT X-3 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN$ PARAMETER MME$_UNLOAD = '00000001'X# PARAMETER MME$_ALLOC = '00000002'X) PARAMETER MME$_BACKUP_FILE = '00000003'X( PARAMETER MME$_CLOSE_READ = '00000004'X) PARAMETER MME$_CLOSE_WRITE = '00000005'X1 PARAMETER MME$_CONTINUATION_VOLUME = '00000006'X( PARAMETER MME$_DEALLOCATE = '00000007'X* PARAMETER MME$_DEVICE_AVAIL = '00000008'X, PARAMETER MME$_DEVICE_UNAVAIL = '00000009'X& PARAMET % ER MME$_DISMOUNT = '0000000A'X- PARAMETER MME$_DISPLAY_MESSAGE = '0000000B'X& PARAMETER MME$_EOV_READ = '0000000C'X' PARAMETER MME$_EOV_WRITE = '0000000D'X( PARAMETER MME$_INITIALIZE = '0000000E'X# PARAMETER MME$_MOUNT = '0000000F'X+ PARAMETER MME$_MOUNT_REQUEST = '00000010'X, PARAMETER MME$_NEWVOL_REQUEST = '00000011'X+ PARAMETER MME$_NOTIFY_DEVICE = '00000012'X' PARAMETER MME$_OPCOM_ACP = '00000013'X) PARAMETER MME$_OPCOM_MOUNT = '00000014'X' PARAMETER MME$_OPEN_READ = '00000015'X & ( PARAMETER MME$_OPEN_WRITE = '00000016'X+ PARAMETER MME$_VOLUME_ONLINE = '00000017'X( PARAMETER MME$_BACKUP_END = '00000018'X* PARAMETER MME$_BACKUP_START = '00000019'X+ PARAMETER MME$_WRITE_REQUEST = '0000001A'X' PARAMETER MME$_MOUNT_END = '0000001B'X& PARAMETER MME$_INIT_END = '0000001C'X( PARAMETER MME$_NEWVOL_END = '0000001D'X- PARAMETER MME$_DISMNT_PROC_DEL = '0000001E'X% PARAMETER MME$S_ACMODE = '00000004'X( PARAMETER MME$S_BLOCKSIZE = '00000004'X& PARAMETER MME$S_DENSITY = '00 ' 000004'X- PARAMETER MME$S_DEVICE_CONTEXT = '00000004'X( PARAMETER MME$S_DMT_FLAGS = '00000004'X$ PARAMETER MME$S_ERASE = '00000004'X) PARAMETER MME$S_EXPIRATION = '00000008'X( PARAMETER MME$S_FILESEQNO = '00000004'X( PARAMETER MME$S_FILESECNO = '00000004'X* PARAMETER MME$S_IO_FUNCTION = '00000004'X+ PARAMETER MME$S_LABEL_ACCESS = '00000001'X, PARAMETER MME$S_MOUNT_CONTEXT = '00000004'X( PARAMETER MME$S_MNT_FLAGS = '00000008'X% PARAMETER MME$S_OBJCNT = '00000004'X) PARAMETER MME$S_OVR_A ( CCESS = '00000004'X& PARAMETER MME$S_OVR_EXP = '00000004'X' PARAMETER MME$S_OVR_VOLO = '00000004'X( PARAMETER MME$S_OWNER_UIC = '00000004'X" PARAMETER MME$S_PID = '00000004'X( PARAMETER MME$S_RECORDSIZ = '00000004'X* PARAMETER MME$S_RESPONSEREQ = '00000004'X& PARAMETER MME$S_SETNEW1 = '00000004'X& PARAMETER MME$S_SETNEW2 = '00000004'X$ PARAMETER MME$S_VPROT = '00000004'X& PARAMETER MME$S_FILE_ID = '00000006'X( PARAMETER MME$S_GROUPSIZE = '00000004'X) PARAMETER MME$S_PROTECTION = '0000000 ) 4'X% PARAMETER MME$S_STATUS = '00000004'X. PARAMETER MME$S_ASSIGNMENT_UNIT = '00000004'X- PARAMETER MME$S_CARTRIDGE_SIDE = '00000004'X* PARAMETER MME$S_DISPOSITION = '00000004'X( PARAMETER MME$S_RECFORMAT = '00000001'X* ! MME action routine argument item codes$ PARAMETER MME$_ACMODE = '00000001'X' PARAMETER MME$_BLOCKSIZE = '00000002'X% PARAMETER MME$_COMMENT = '00000003'X% PARAMETER MME$_DENSITY = '00000004'X, PARAMETER MME$_DEVICE_CONTEXT = '00000005'X' PARAMETER MME$_DMT_FLAGS = * '00000006'X" PARAMETER MME$_EOF1 = '00000007'X" PARAMETER MME$_EOF2 = '00000008'X" PARAMETER MME$_EOF3 = '00000009'X" PARAMETER MME$_EOF4 = '0000000A'X" PARAMETER MME$_EOV1 = '0000000B'X" PARAMETER MME$_EOV2 = '0000000C'X" PARAMETER MME$_EOV3 = '0000000D'X" PARAMETER MME$_EOV4 = '0000000E'X# PARAMETER MME$_ERASE = '0000000F'X! PARAMETER MME$_FIB = '00000010'X' PARAMETER MME$_FILESEQNO = '00000011'X" PARAMETER MME$_HDR1 = '00000012'X" PARAMETER MME$_HDR2 = '00000013'X" PARAMETER MME$_ + HDR3 = '00000014'X" PARAMETER MME$_HDR4 = '00000015'X) PARAMETER MME$_IO_FUNCTION = '00000016'X* PARAMETER MME$_LABEL_ACCESS = '00000017'X( PARAMETER MME$_LABEL_VOLO = '00000018'X+ PARAMETER MME$_MOUNT_CONTEXT = '00000019'X' PARAMETER MME$_MNT_FLAGS = '0000001A'X" PARAMETER MME$_MSG1 = '0000001B'X" PARAMETER MME$_MSG2 = '0000001C'X' PARAMETER MME$_NEWDEVNAM = '0000001D'X% PARAMETER MME$_NEWMSG1 = '0000001E'X% PARAMETER MME$_NEWMSG2 = '0000001F'X' PARAMETER MME$_NEWVOLNAM = '00000020', X$ PARAMETER MME$_NXTVOL = '00000021'X$ PARAMETER MME$_OBJCNT = '00000022'X( PARAMETER MME$_OVR_ACCESS = '00000023'X% PARAMETER MME$_OVR_EXP = '00000024'X& PARAMETER MME$_OVR_VOLO = '00000025'X' PARAMETER MME$_OWNER_UIC = '00000026'X' PARAMETER MME$_PHYDEVNAM = '00000027'X! PARAMETER MME$_PID = '00000028'X& PARAMETER MME$_PREV_VOL = '00000029'X' PARAMETER MME$_PROCESSOR = '0000002A'X' PARAMETER MME$_RECORDSIZ = '0000002B'X' PARAMETER MME$_REQDEVNAM = '0000002C'X) PARAMETER MME$_RE - SPONSEREQ = '0000002D'X% PARAMETER MME$_SETNEW1 = '0000002E'X% PARAMETER MME$_SETNEW2 = '0000002F'X" PARAMETER MME$_VOL1 = '00000030'X" PARAMETER MME$_VOL2 = '00000031'X$ PARAMETER MME$_VOLNAM = '00000032'X# PARAMETER MME$_VPROT = '00000033'X/ PARAMETER MME$_BACKUP_FILE_FLAGS = '00000034'X* PARAMETER MME$_BACKUP_FLAGS = '00000035'X( PARAMETER MME$_EXPIRATION = '00000036'X& PARAMETER MME$_FILENAME = '00000037'X% PARAMETER MME$_FILE_ID = '00000038'X' PARAMETER MME$_GROUPSIZE = '0000003 . 9'X% PARAMETER MME$_IN_SAVE = '0000003A'X. PARAMETER MME$_IN_SPECIFICATION = '0000003B'X' PARAMETER MME$_IN_VOLUME = '0000003C'X& PARAMETER MME$_OUT_SAVE = '0000003D'X( PARAMETER MME$_PROTECTION = '0000003E'X$ PARAMETER MME$_STATUS = '0000003F'X- PARAMETER MME$_ASSIGNMENT_UNIT = '00000040'X- PARAMETER MME$_CART_MEDIA_NAME = '00000041'X, PARAMETER MME$_CARTRIDGE_NAME = '00000042'X, PARAMETER MME$_CARTRIDGE_SIDE = '00000043'X( PARAMETER MME$_COLLECTION = '00000044'X) PARAMETER MME$_DEVI / CE_TYPE = '00000045'X) PARAMETER MME$_DISPOSITION = '00000046'X& PARAMETER MME$_LOCATION = '00000047'X( PARAMETER MME$_MEDIA_NAME = '00000048'X( PARAMETER MME$_LABEL_TYPE = '00000049'X% PARAMETER MME$_EXPDATE = '0000004A'X% PARAMETER MME$_CREDATE = '0000004B'X' PARAMETER MME$_RECFORMAT = '0000004C'X' PARAMETER MME$_FILESECNO = '0000004D'X# PARAMETER MME$_REPLY = '0000004E'X$ PARAMETER MME$M_IMAGE = '00000001'X" PARAMETER MME$M_CRC = '00000002'X% PARAMETER MME$M_DELETE = '00000004'X0 , PARAMETER MME$M_IGN_INTERLOCK = '00000008'X( PARAMETER MME$M_IGN_LABEL = '00000010'X+ PARAMETER MME$M_IGN_NOBACKUP = '00000020'X* PARAMETER MME$M_INTERCHANGE = '00000040'X% PARAMETER MME$M_RECORD = '00000080'X% PARAMETER MME$M_REWIND = '00000100'X% PARAMETER MME$M_VERIFY = '00000200'X' PARAMETER MME$M_PHYSICAL = '00000400'X) PARAMETER MME$M_COMPACTION = '00000800'X STRUCTURE /BACKUP_FLAGS/ UNION MAP# INTEGER*4 MME$L_FLAGS_MASK END MAP M 1 AP& PARAMETER MME$S_IMAGE = 1& PARAMETER MME$V_IMAGE = 0$ PARAMETER MME$S_CRC = 1$ PARAMETER MME$V_CRC = 1' PARAMETER MME$S_DELETE = 1' PARAMETER MME$V_DELETE = 2. PARAMETER MME$S_IGN_INTERLOCK = 1. PARAMETER MME$V_IGN_INTERLOCK = 3* PARAMETER MME$S_IGN_LABEL = 1* PARAMETER MME$V_IGN_LABEL = 4- PARAMETER MME$S_IGN_NOBACKUP = 1- PARAMETER MME$V_I 2 GN_NOBACKUP = 5, PARAMETER MME$S_INTERCHANGE = 1, PARAMETER MME$V_INTERCHANGE = 6' PARAMETER MME$S_RECORD = 1' PARAMETER MME$V_RECORD = 7' PARAMETER MME$S_REWIND = 1' PARAMETER MME$V_REWIND = 8' PARAMETER MME$S_VERIFY = 1' PARAMETER MME$V_VERIFY = 9) PARAMETER MME$S_PHYSICAL = 1* PARAMETER MME$V_PHYSICAL = 10+ PARAMETER MME$S_COMPACTION = 1, 3 PARAMETER MME$V_COMPACTION = 11 BYTE %FILL (2) END MAP END UNION END STRUCTURE ! BACKUP_FLAGS( PARAMETER MME$M_VERIF_ERR = '00000001'X' PARAMETER MME$M_NOBACKUP = '00000002'X( PARAMETER MME$M_FILE_OPEN = '00000004'X' PARAMETER MME$M_ACC_CONF = '00000008'X STRUCTURE /BACKUP_FILE_FLAGS/ UNION MAP( INTEGER*4 MME$L_FILE_FLAGS_MASK END MAP MAP* PARAMETER MME$S_VERIF_ERR = 1* PARAMETER MME$V_VERIF4 _ERR = 0) PARAMETER MME$S_NOBACKUP = 1) PARAMETER MME$V_NOBACKUP = 1* PARAMETER MME$S_FILE_OPEN = 1* PARAMETER MME$V_FILE_OPEN = 2) PARAMETER MME$S_ACC_CONF = 1) PARAMETER MME$V_ACC_CONF = 3' PARAMETER MME$S_fill1 = 28& PARAMETER MME$V_fill1 = 4 BYTE %FILL (4) END MAP END UNION" END STRUCTURE ! BACKUP_FILE_FLAGS% PARAMETER MME$C_ANSI_1 = '00000001'X% PARAMETER5 MME$C_ANSI_2 = '00000002'X% PARAMETER MME$C_ANSI_3 = '00000003'X% PARAMETER MME$C_ANSI_4 = '00000004'X& PARAMETER MME$C_IBM_STD = '00000005'X) PARAMETER MME$C_UNLABELLED = '00000006'X# PARAMETER MME$C_ODS1 = '00000007'X# PARAMETER MME$C_ODS2 = '00000008'X!DEC$ END OPTIONS ww!hΦ!*** MODULE $MMEMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:33:04.50 !  ! ++6 L ! * *L ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1991, 1992, 1993 *L ! * ALL RIGHTS RESERVED. *L ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *L ! * STATES. *L ! * *L ! * THE SOFTWARE CONTAINED ON THIS 7 MEDIA IS PROPRIETARY TO AND EMBODIES *L ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *L ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *L ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *L ! * DIGITAL EQUIPMENT CORPORATION. *L ! * *L ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S.8 *L ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *L ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *L ! * * !  ! ++ ! FACILITY:+ ! MME - VMS MEDIA MANAGEMENT EXTENSIONS ! ! ABSTRACT:< ! CONTAINS MESSAGES FOR THE MEDIA MANAGEMENT EXTENSIONS. ! ! AUTHOR: ! DAN KYLER !  ! CREATION DATE: 11-SEP-1991 !  ! MODIFICATION HISTORY:9  ! . ! X-3 SGS0032 STEVE SKONETSKI 30-SEP-1993B ! FIX BUILD BUG. WRONG COMMENT CHARACTER USED IN NEW COPYRIGHT. ! . ! X-2 SGS0032 STEVE SKONETSKI 30-SEP-1993: ! VAX TO ALPHA PORT. ADD /MACRO=$MMEMSGDEF TO .FACILITY@ ! DIRECTIVE. ALLOWS US TO REMOVE MMEMSGDEF.COM FROM THE BUILD ! PROCEDURE. !  ! / ! X-1 MME-JDE013 JOHN EIKENBERRY 21 NOV 1991 ! MERGED INTO BLADE !  ! -- ! + ! FACILITY DEFINITION ! -% PARAMETER MME_FACILITY = '00000D6F'X !: + ! SUCCESS MESSAGES ! - !  ! + ! INFORMATIONAL MESSAGES ! - ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --$ PARAMETER MME$_NO_MME = '0D6F8323'X !  ! + ! WARNING MESSAGES ! - ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONSI ! EXPLANATION: THE MEDIA MANAGEMENT PROCESS RECEIVED A MAILBOX MESSAGEA ! CONTAINING AN ARGUMENT WHICH WAS UNRECOGNIZED. THE ARGUMENT ! WILL BE IGNORED; . ! USER ACTION: NONE ! --' PARAMETER MME$_BADARGIGN = '0D6F8640'X !  ! + ! ERROR MESSAGES ! - ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONSJ ! EXPLANATION: THE MEDIA MANAGEMENT PROCESS RECEIEVED A MAILBOX MESSAGE@ ! INDICATING AN ACTION ROUTINE FOR WHICH THE MEDIA MANAGEMENT) ! SOFTWARE HAS NOT DECLARED A ROUTINE. ! USER ACTION: NONE. ! --( PARAMETER MME$_RTNNOTDECL = '0D6F8FA2'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSI< ONS ! EXPLANATION:  ! USER ACTION:  ! --( PARAMETER MME$_BADMSGTYPE = '0D6F8FAA'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --) PARAMETER MME$_FACMISMATCH = '0D6F8FB2'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_MBXFAOERR = '0D6F8FBA'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER A= CTION:  ! --' PARAMETER MME$_MBXASNERR = '0D6F8FC2'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_MBXWRTERR = '0D6F8FCA'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_ASTNOTQED = '0D6F8FD2'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_AVRF> AOERR = '0D6F8FDA'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_AVRENQERR = '0D6F8FE2'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_AVRASNERR = '0D6F8FEA'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_GETNAMERR = '0D6F8FF2'X ! ++7 ! FACI? LITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --) PARAMETER MME$_UICMISMATCH = '0D6F8FFA'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_MBXDVIERR = '0D6F9002'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_JPIUICERR = '0D6F900A'X !  ! + ! FATAL MESSAGES ! - ! ++7 ! @ FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_FINTERNAL = '0D6F9F44'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --& PARAMETER MME$_MBXRDERR = '0D6F9F4C'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --( PARAMETER MME$_POSTMBXERR = '0D6F9F54'X ! ++7 ! FACILITY: MME - VMS MEDIA MANAGEMENTA EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --' PARAMETER MME$_MEMALLERR = '0D6F9F5C'X ! !DEC$ END OPTIONSwwԜΦ!!*** MODULE $MMIDEF IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN& PARAMETER MMI$_FACILITY = '00000001'X$ PARAMETER MMI$_MBUNIT = '00000002'X! PARAMETER MMI$_PID = '00000003'X$ PARAMETER MMI$_MBXUCB = '00000004'X$ PARAMETER MMI$_UNLOAD = '00000005'X# PARAMETER MMI$_ALLOC = '00000006'X( PARAMETER MMI$_BACKUP_END B = '00000007'X) PARAMETER MMI$_BACKUP_FILE = '00000008'X* PARAMETER MMI$_BACKUP_START = '00000009'X( PARAMETER MMI$_CLOSE_READ = '0000000A'X) PARAMETER MMI$_CLOSE_WRITE = '0000000B'X1 PARAMETER MMI$_CONTINUATION_VOLUME = '0000000C'X( PARAMETER MMI$_DEALLOCATE = '0000000D'X* PARAMETER MMI$_DEVICE_AVAIL = '0000000E'X, PARAMETER MMI$_DEVICE_UNAVAIL = '0000000F'X& PARAMETER MMI$_DISMOUNT = '00000010'X- PARAMETER MMI$_DISPLAY_MESSAGE = '00000011'X& PARAMETER MMI$_EOV_READ = '00000012'X' PAR C AMETER MMI$_EOV_WRITE = '00000013'X( PARAMETER MMI$_INITIALIZE = '00000014'X# PARAMETER MMI$_MOUNT = '00000015'X+ PARAMETER MMI$_MOUNT_REQUEST = '00000016'X, PARAMETER MMI$_NEWVOL_REQUEST = '00000017'X+ PARAMETER MMI$_NOTIFY_DEVICE = '00000018'X' PARAMETER MMI$_OPCOM_ACP = '00000019'X) PARAMETER MMI$_OPCOM_MOUNT = '0000001A'X' PARAMETER MMI$_OPEN_READ = '0000001B'X( PARAMETER MMI$_OPEN_WRITE = '0000001C'X+ PARAMETER MMI$_VOLUME_ONLINE = '0000001D'X+ PARAMETER MMI$_WRITE_REQUEST = '0D 000001E'X' PARAMETER MMI$_MOUNT_END = '0000001F'X& PARAMETER MMI$_INIT_END = '00000020'X( PARAMETER MMI$_NEWVOL_END = '00000021'X!DEC$ END OPTIONS wwh4՜Φ!*** MODULE $MNTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! , ! FLAG BITS FOR THE $MOUNT SYSTEM SERVICE. !  ! -& PARAMETER MNT$M_FOREIGN = '00000001'X$ PARAMETER MNT$M_GROUP = '00000002'X' PARAMETER MNT$M_NOASSIST = '00000004'X& PARAMETER MNT$M_NODISKQ = '00000008'X% PARAM E ETER MNT$M_NOHDR3 = '00000010'X& PARAMETER MNT$M_NOLABEL = '00000020'X& PARAMETER MNT$M_NOWRITE = '00000040'X) PARAMETER MNT$M_OVR_ACCESS = '00000080'X& PARAMETER MNT$M_OVR_EXP = '00000100'X( PARAMETER MNT$M_OVR_IDENT = '00000200'X( PARAMETER MNT$M_OVR_SETID = '00000400'X( PARAMETER MNT$M_READCHECK = '00000800'X$ PARAMETER MNT$M_SHARE = '00001000'X& PARAMETER MNT$M_MESSAGE = '00002000'X% PARAMETER MNT$M_SYSTEM = '00004000'X) PARAMETER MNT$M_WRITECHECK = '00008000'X( PARAMETER MNT$M_WRI F TETHRU = '00010000'X& PARAMETER MNT$M_NOCACHE = '00020000'X' PARAMETER MNT$M_OVR_LOCK = '00040000'X' PARAMETER MNT$M_NOMNTVER = '00080000'X' PARAMETER MNT$M_NOUNLOAD = '00100000'X. PARAMETER MNT$M_TAPE_DATA_WRITE = '00200000'X% PARAMETER MNT$M_NOCOPY = '00400000'X% PARAMETER MNT$M_NOAUTO = '00800000'X' PARAMETER MNT$M_INIT_ALL = '01000000'X( PARAMETER MNT$M_INIT_CONT = '02000000'X' PARAMETER MNT$M_OVR_VOLO = '04000000'X' PARAMETER MNT$M_INTERCHG = '08000000'X& PARAMETER MNT$M_CLUST G ER = '10000000'X( PARAMETER MNT$M_NOREBUILD = '20000000'X) PARAMETER MNT$M_OVR_SHAMEM = '40000000'X( PARAMETER MNT$M_MULTI_VOL = '80000000'X% PARAMETER MNT2$M_DISKQ = '00000001'X* PARAMETER MNT2$M_COMPACTION = '00000002'X' PARAMETER MNT2$M_INCLUDE = '00000004'X% PARAMETER MNT2$M_PASS2 = '00000008'X( PARAMETER MNT2$M_OVR_NOFE = '00000010'X' PARAMETER MNT2$M_SCRATCH = '00000020'X% PARAMETER MNT2$M_CDROM = '00000040'X# PARAMETER MNT2$M_XAR = '00000080'X# PARAMETER MNT2$M_DSI = '0000010 H 0'X) PARAMETER MNT2$M_SUBSYSTEM = '00000200'X, PARAMETER MNT2$M_NOCOMPACTION = '00000400'X, PARAMETER MNT2$M_OVR_SECURITY = '00000800'X2 PARAMETER MNT2$M_OVR_LIMITED_SEARCH = '00001000'X$ PARAMETER MNT2$M_POOL = '00002000'X* PARAMETER MNT2$M_WLG_ENABLE = '00004000'X+ PARAMETER MNT2$M_WLG_DISABLE = '00008000'X/ PARAMETER MNT2$M_REQUIRE_MEMBERS = '00010000'X, PARAMETER MNT2$M_VERIFY_LABEL = '00020000'X* PARAMETER MNT2$M_FULL_MERGE = '00040000'X+ PARAMETER MNT2$M_WRITE_FIRST = '00080000'X I # PARAMETER MNT2$M_DCD = '00100000'X% PARAMETER MNT2$M_NODCD = '00200000'X* PARAMETER MNT2$M_LOCAL_HOST = '00400000'X& PARAMETER MNT2$M_FACTOR = '00800000'X( PARAMETER MNT2$M_PRIORITY = '01000000'X5 PARAMETER MNT$_DEVNAM = '00000001'X ! DEVICE NAME 5 PARAMETER MNT$_VOLNAM = '00000002'X ! VOLUME NAME 6 PARAMETER MNT$_LOGNAM = '00000003'X ! LOGICAL NAME 4 PARAMETER MNT$_FLAGS = '00000004'X ! MOUNT FLAGS : PARAMETER MNT$_ACCESSED = '00000005'X ! ACCESSED VALUE ; PARAMETER MNT$_PR J OCESSOR = '00000006'X ! PROCESSOR NAME 9 PARAMETER MNT$_VOLSET = '00000007'X ! VOLUME SET NAME < PARAMETER MNT$_BLOCKSIZE = '00000008'X ! BLOCKSIZE VALUE = PARAMETER MNT$_DENSITY = '00000009'X ! TAPE DENSITY VALUE H PARAMETER MNT$_EXTENT = '0000000A'X ! NUMBER OF EXTENT CACHE ENTRIES < PARAMETER MNT$_FILEID = '0000000B'X ! FILE ID CACHE SIZE ; PARAMETER MNT$_LIMIT = '0000000C'X ! EXTENT CACHE LIMIT 9 PARAMETER MNT$_OWNER = '0000000D'X ! VOLUME OWNER UIC : PARAMETER MNT$_VP K ROT = '0000000E'X ! VOLUME PROTECTION 9 PARAMETER MNT$_QUOTA = '0000000F'X ! QUOTA CACHE SIZE > PARAMETER MNT$_RECORDSIZ = '00000010'X ! RECORD SIZE VALUE ; PARAMETER MNT$_WINDOW = '00000011'X ! NUMBER OF WINDOWS C PARAMETER MNT$_EXTENSION = '00000012'X ! DEFAULT FILE EXTENSION B PARAMETER MNT$_VISUAL_ID = '00000013'X ! VISUAL IDENTIFICATION 7 PARAMETER MNT$_COMMENT = '00000014'X ! USER COMMENT > PARAMETER MNT$_CLASS = '00000015'X ! SECURITY CLASSFICATIONd PARAMETER MNT$_UNL USED2 = '00000016'X ! SPARE (was used for now obsolete journaling-related items)E PARAMETER MNT$_ACCPTNAM = '00000017'X ! ACCESS POINT NAME (DECdfs)@ PARAMETER MNT$_SHACOPY_BUF = '00000018'X ! SHADOW COPY BUFFERE PARAMETER MNT$_SHANAM = '00000019'X ! SHADOW SET VIRTUAL UNIT NAMED PARAMETER MNT$_SHAMEM = '0000001A'X ! SHADOW SET MEMBER UNIT NAMEX PARAMETER MNT$_SHAMEM_MGCOPY = '0000001B'X ! SHADOW SET MEMBER UNIT NAME (MERGE COPY)U PARAMETER MNT$_SHAMEM_COPY = '0000001C'X ! SHADOWM SET MEMBER UNIT NAME (FULL COPY)> PARAMETER MNT$_PRFD_PATH = '0000001D'X ! PREFERRED DSA PATHG PARAMETER MNT$_ASSIGNMENT_UNIT = '0000001E'X ! Assignment unit (MME)L PARAMETER MNT$_CART_MEDIA_NAME = '0000001F'X ! Cartridge Media Name (MME)E PARAMETER MNT$_CARTRIDGE_NAME = '00000020'X ! Cartridge Name (MME)E PARAMETER MNT$_CARTRIDGE_SIDE = '00000021'X ! Cartridge Side (MME)B PARAMETER MNT$_COLLECTION = '00000022'X ! Collection name (MME)M PARAMETER MNT$_DEVICE_TYPE = '00000023'X N ! Device Selection criteria (MME)H PARAMETER MNT$_DISPOSITION = '00000024'X ! Dismount Disposition (MME)C PARAMETER MNT$_LOCATION = '00000025'X ! Cartridge Location (MME)= PARAMETER MNT$_MEDIA_NAME = '00000026'X ! Media Name (MME)/ PARAMETER MNT$_UNUSED4 = '00000027'X ! SPAREI PARAMETER MNT$_UNDEFINED_FAT = '00000028'X ! Undefined File AttributesD PARAMETER MNT$_UCS = '00000029'X ! Universal Character Set stringI PARAMETER MNT$_TAPE_EXPIRATION = '0000002A'X ! Date Tape Expi O res (MME)B PARAMETER MNT$_PRIORITY = '0000002B'X ! SHDRIVER merge priorityQ PARAMETER MNT$_FACTOR = '0000002C'X ! SHDRIVER IO completion factor for merges8 PARAMETER MNT$_WBM_SIZE = '0000002D'X ! MINICOPY size ! ' ! Add new item codes before this line ! F PARAMETER MNT$_LAST_ITEM_CODE = '0000002E'X ! last item code plus 1J PARAMETER MNT$C_BASE_CARTRIDGE = '00000001'X ! Assign a whole cartridgeG PARAMETER MNT$C_COMPOUND_CARTRIDGE = '00000002'X ! Assign a magazineX PARAMET P ER MNT$C_PREASSIGNED_SIDE = '00000003'X ! Assign a pre-assigned cartridge sideF PARAMETER MNT$C_SIDE = '00000004'X ! Assign a single cartridge side? PARAMETER MNT$C_KEEP = '00000001'X ! Keep the media assigned< PARAMETER MNT$C_RELEASE = '00000002'X ! Release the media STRUCTURE /MNTDEF/ UNION MAP$ PARAMETER MNT$S_FOREIGN = 1B PARAMETER MNT$V_FOREIGN = 0 ! FOREIGN OPTION SELECTED " PARAMETER MNT$S_GROUP = 1> PARAMETER MNT$V_GROUP = 1 ! GR Q OUP OPTION SELECTED % PARAMETER MNT$S_NOASSIST = 1D PARAMETER MNT$V_NOASSIST = 2 ! NOASSIST OPTION SELECTED $ PARAMETER MNT$S_NODISKQ = 1B PARAMETER MNT$V_NODISKQ = 3 ! NODISKQ OPTION SELECTED # PARAMETER MNT$S_NOHDR3 = 1@ PARAMETER MNT$V_NOHDR3 = 4 ! NOHDR3 OPTION SELECTED $ PARAMETER MNT$S_NOLABEL = 1B PARAMETER MNT$V_NOLABEL = 5 ! NOLABEL OPTION SELECTED $ PARAMETER MNT$S_NOWRITE = 1B PARAMETER M R NT$V_NOWRITE = 6 ! NOWRITE OPTION SELECTED ' PARAMETER MNT$S_OVR_ACCESS = 1S PARAMETER MNT$V_OVR_ACCESS = 7 ! OVERRIDE ACCESSIBLITY OPTION SELECTED $ PARAMETER MNT$S_OVR_EXP = 1M PARAMETER MNT$V_OVR_EXP = 8 ! OVERRIDE EXPIRATON OPTION SELECTED & PARAMETER MNT$S_OVR_IDENT = 1B PARAMETER MNT$V_OVR_IDENT = 9 ! OVERRIDE VOLUME LABEL & PARAMETER MNT$S_OVR_SETID = 1X PARAMETER MNT$V_OVR_SETID = 10 ! OVERRIDE VOLUME SET S IDENT OPTION SELECTIED & PARAMETER MNT$S_READCHECK = 1G PARAMETER MNT$V_READCHECK = 11 ! READCHECK OPTION SELECTED " PARAMETER MNT$S_SHARE = 1? PARAMETER MNT$V_SHARE = 12 ! SHARE OPTION SELECTED $ PARAMETER MNT$S_MESSAGE = 1J PARAMETER MNT$V_MESSAGE = 13 ! ALLOW $MOUNT TO PRINT MESSAGES # PARAMETER MNT$S_SYSTEM = 1A PARAMETER MNT$V_SYSTEM = 14 ! SYSTEM OPTION SELECTED ' PARAMETER MNT$S_WRITECHECK = 1I T PARAMETER MNT$V_WRITECHECK = 15 ! WRITECHECK OPTION SELECTED & PARAMETER MNT$S_WRITETHRU = 1G PARAMETER MNT$V_WRITETHRU = 16 ! WRITETHRU OPTION SELECTED $ PARAMETER MNT$S_NOCACHE = 1@ PARAMETER MNT$V_NOCACHE = 17 ! TURN OFF ALL CACHING % PARAMETER MNT$S_OVR_LOCK = 1J PARAMETER MNT$V_OVR_LOCK = 18 ! OVERRIDE AUTOMATIC WRITE-LOCK % PARAMETER MNT$S_NOMNTVER = 1G PARAMETER MNT$V_NOMNTVER = 19 ! DISABLE MOUNT U VERIFICATION % PARAMETER MNT$S_NOUNLOAD = 1M PARAMETER MNT$V_NOUNLOAD = 20 ! DO NOT UNLOAD VOLUME AT DISMOUNT , PARAMETER MNT$S_TAPE_DATA_WRITE = 1Q PARAMETER MNT$V_TAPE_DATA_WRITE = 21 ! ENABLE WRITE-BACK CACHE ON TAPE# PARAMETER MNT$S_NOCOPY = 1L PARAMETER MNT$V_NOCOPY = 22 ! DO NOT ALLOW SHADOW COPY OPERATION# PARAMETER MNT$S_NOAUTO = 1U PARAMETER MNT$V_NOAUTO = 23 ! DO NOT SET THE MTAACP INTO AVR AND AVL MODEV % PARAMETER MNT$S_INIT_ALL = 1X PARAMETER MNT$V_INIT_ALL = 24 ! INITIALIZE ALL VOLUMES IN SET BEFORE WRITING& PARAMETER MNT$S_INIT_CONT = 1[ PARAMETER MNT$V_INIT_CONT = 25 ! INITIALIZE CONTINUATION VOLUMES BEFORE WRITING% PARAMETER MNT$S_OVR_VOLO = 1Q PARAMETER MNT$V_OVR_VOLO = 26 ! OVERRIDE VOL1 VOLUME IDENTIFIER FIELD% PARAMETER MNT$S_INTERCHG = 1a PARAMETER MNT$V_INTERCHG = 27 ! VOL FOR INTERCHG NO VMS SPECIFIC W INFO WRITTEN TO TAPE$ PARAMETER MNT$S_CLUSTER = 1M PARAMETER MNT$V_CLUSTER = 28 ! CLUSTER-WIDE MOUNT OPTION SELECTED& PARAMETER MNT$S_NOREBUILD = 1B PARAMETER MNT$V_NOREBUILD = 29 ! DO NOT REBUILD VOLUME' PARAMETER MNT$S_OVR_SHAMEM = 1T PARAMETER MNT$V_OVR_SHAMEM = 30 ! OVERRIDE SHADOW MEMBERSHIP RESTRICTION& PARAMETER MNT$S_MULTI_VOL = 1B PARAMETER MNT$V_MULTI_VOL = 31 ! MULTI_VOLUME TAPE SET" PARAMETER M X NT$S_DISKQ = 1B PARAMETER MNT$V_DISKQ = 32 ! QUOTA EXPLICITLY SELECTED' PARAMETER MNT$S_COMPACTION = 1H PARAMETER MNT$V_COMPACTION = 33 ! MAGTAPE DATA COMPACTION ON$ PARAMETER MNT$S_INCLUDE = 1M PARAMETER MNT$V_INCLUDE = 34 ! INCLUDE PREVIOUS SHADOWSET MEMBERS" PARAMETER MNT$S_PASS2 = 1M PARAMETER MNT$V_PASS2 = 35 ! PASS2 of /INCLUDE/CONFIRM PROCESSING% PARAMETER MNT$S_OVR_NOFE = 1E PARAMETER MNT$V_OVR_NOF Y E = 36 ! /OVERRIDE=NO_FORCED_ERROR$ PARAMETER MNT$S_SCRATCH = 1F PARAMETER MNT$V_SCRATCH = 37 ! Scratch tape requested flag" PARAMETER MNT$S_CDROM = 1P PARAMETER MNT$V_CDROM = 38 ! Force mounting of a Files-11 C/D Volume PARAMETER MNT$S_XAR = 1F PARAMETER MNT$V_XAR = 39 ! Enable protection based on XARs PARAMETER MNT$S_DSI = 1[ PARAMETER MNT$V_DSI = 40 ! Enable protection based on Digital System Id in XARs& Z PARAMETER MNT$S_SUBSYSTEM = 17 PARAMETER MNT$V_SUBSYSTEM = 41 ! /SUBSYSTEM) PARAMETER MNT$S_NOCOMPACTION = 1J PARAMETER MNT$V_NOCOMPACTION = 42 ! MAGTAPE DATA COMPACTION OFF) PARAMETER MNT$S_OVR_SECURITY = 1A PARAMETER MNT$V_OVR_SECURITY = 43 ! /OVERRIDE=SECURITY/ PARAMETER MNT$S_OVR_LIMITED_SEARCH = 1N PARAMETER MNT$V_OVR_LIMITED_SEARCH = 44 ! /OVERRIDE=LIMITIED_SEARCH! PARAMETER MNT$S_POOL = 1P PARAM [ ETER MNT$V_POOL = 45 ! /POOL operation for snapshot pool member' PARAMETER MNT$S_WLG_ENABLE = 1@ PARAMETER MNT$V_WLG_ENABLE = 46 ! /POLICY=ENABLE_WLG( PARAMETER MNT$S_WLG_DISABLE = 1A PARAMETER MNT$V_WLG_DISABLE = 47 ! /POLICY=DISABLE_WLG, PARAMETER MNT$S_REQUIRE_MEMBERS = 1I PARAMETER MNT$V_REQUIRE_MEMBERS = 48 ! /POLICY=REQUIRE_MEMBERS) PARAMETER MNT$S_VERIFY_LABEL = 1< PARAMETER MNT$V_VERIFY_LABEL = 49 ! /VERIFY \ _LABEL' PARAMETER MNT$S_FULL_MERGE = 1; PARAMETER MNT$V_FULL_MERGE = 50 ! /POLICY=MERGE( PARAMETER MNT$S_WRITE_FIRST = 1A PARAMETER MNT$V_WRITE_FIRST = 51 ! /POLCIY=WRITE_FIRST PARAMETER MNT$S_DCD = 12 PARAMETER MNT$V_DCD = 52 ! /POLICY=DCD" PARAMETER MNT$S_NODCD = 16 PARAMETER MNT$V_NODCD = 53 ! /POLICY=NODCD' PARAMETER MNT$S_LOCAL_HOST = 1@ PARAMETER MNT$V_LOCAL_HOST = 54 ! /POLICY=LOCAL_HOST ] # PARAMETER MNT$S_FACTOR = 18 PARAMETER MNT$V_FACTOR = 55 ! /POLICY=FACTOR% PARAMETER MNT$S_PRIORITY = 1< PARAMETER MNT$V_PRIORITY = 56 ! /POLICY=PRIORITY. PARAMETER MNT$S_MINICOPY_REQUIRED = 1H PARAMETER MNT$V_MINICOPY_REQUIRED = 57 ! /POLICY=MINICOPY=REQ. PARAMETER MNT$S_MINICOPY_OPTIONAL = 1H PARAMETER MNT$V_MINICOPY_OPTIONAL = 58 ! /POLICY=MINICOPY=OPT' PARAMETER MNT$S_NOMINICOPY = 1@ PARAMETER M ^ NT$V_NOMINICOPY = 59 ! /POLICY=NOMINICOPY BYTE %FILL (8) END MAP MAP# PARAMETER MNT2$S_DISKQ = 1B PARAMETER MNT2$V_DISKQ = 0 ! QUOTA EXPLICITLY SELECTED( PARAMETER MNT2$S_COMPACTION = 1H PARAMETER MNT2$V_COMPACTION = 1 ! MAGTAPE DATA COMPACTION ON% PARAMETER MNT2$S_INCLUDE = 1M PARAMETER MNT2$V_INCLUDE = 2 ! INCLUDE PREVIOUS SHADOWSET MEMBERS# PARAMETER MNT2$S_PASS2 = 1M PARAMETER MNT2$V_PASS2 = _ 3 ! PASS2 of /INCLUDE/CONFIRM PROCESSING& PARAMETER MNT2$S_OVR_NOFE = 1E PARAMETER MNT2$V_OVR_NOFE = 4 ! /OVERRIDE=NO_FORCED_ERROR% PARAMETER MNT2$S_SCRATCH = 1F PARAMETER MNT2$V_SCRATCH = 5 ! Scratch tape requested flag# PARAMETER MNT2$S_CDROM = 1P PARAMETER MNT2$V_CDROM = 6 ! Force mounting of a Files-11 C/D Volume! PARAMETER MNT2$S_XAR = 1F PARAMETER MNT2$V_XAR = 7 ! Enable protection based on XARs! ` PARAMETER MNT2$S_DSI = 1[ PARAMETER MNT2$V_DSI = 8 ! Enable protection based on Digital System Id in XARs' PARAMETER MNT2$S_SUBSYSTEM = 17 PARAMETER MNT2$V_SUBSYSTEM = 9 ! /SUBSYSTEM* PARAMETER MNT2$S_NOCOMPACTION = 1K PARAMETER MNT2$V_NOCOMPACTION = 10 ! MAGTAPE DATA COMPACTION OFF* PARAMETER MNT2$S_OVR_SECURITY = 1B PARAMETER MNT2$V_OVR_SECURITY = 11 ! /OVERRIDE=SECURITY0 PARAMETER MNT2$S_OVR_LIMITED_SEARCH = 1O a PARAMETER MNT2$V_OVR_LIMITED_SEARCH = 12 ! /OVERRIDE=LIMITIED_SEARCH" PARAMETER MNT2$S_POOL = 1Q PARAMETER MNT2$V_POOL = 13 ! /POOL operation for snapshot pool member( PARAMETER MNT2$S_WLG_ENABLE = 1@ PARAMETER MNT2$V_WLG_ENABLE = 14 ! /POLICY=ENABLE_WLG) PARAMETER MNT2$S_WLG_DISABLE = 1B PARAMETER MNT2$V_WLG_DISABLE = 15 ! /POLICY=DISABLE_WLG- PARAMETER MNT2$S_REQUIRE_MEMBERS = 1J PARAMETER MNT2$V_REQUIRE_ME b MBERS = 16 ! /POLICY=REQUIRE_MEMBERS* PARAMETER MNT2$S_VERIFY_LABEL = 1= PARAMETER MNT2$V_VERIFY_LABEL = 17 ! /VERIFY_LABEL( PARAMETER MNT2$S_FULL_MERGE = 1; PARAMETER MNT2$V_FULL_MERGE = 18 ! /POLICY=MERGE) PARAMETER MNT2$S_WRITE_FIRST = 1B PARAMETER MNT2$V_WRITE_FIRST = 19 ! /POLCIY=WRITE_FIRST! PARAMETER MNT2$S_DCD = 13 PARAMETER MNT2$V_DCD = 20 ! /POLICY=DCD# PARAMETER MNT2$S_NODCD = 17 PARAM c ETER MNT2$V_NODCD = 21 ! /POLICY=NODCD( PARAMETER MNT2$S_LOCAL_HOST = 1@ PARAMETER MNT2$V_LOCAL_HOST = 22 ! /POLICY=LOCAL_HOST$ PARAMETER MNT2$S_FACTOR = 19 PARAMETER MNT2$V_FACTOR = 23 ! /POLICY=FACTOR& PARAMETER MNT2$S_PRIORITY = 1= PARAMETER MNT2$V_PRIORITY = 24 ! /POLICY=PRIORITY& PARAMETER MNT2$S_MINICOPY = 1= PARAMETER MNT2$V_MINICOPY = 25 ! /POLICY=MINICOPY/ PARAMETER MNT2$S_MINICOPY_OPTIONAL = 1d I PARAMETER MNT2$V_MINICOPY_OPTIONAL = 26 ! /POLICY=MINICOPY=OPT( PARAMETER MNT2$S_NOMINICOPY = 1@ PARAMETER MNT2$V_NOMINICOPY = 27 ! /POLICY=NOMINICOPY BYTE %FILL (4) END MAP ! $ ! Item codes for mount parameters. !  ! DEFINE CODES AS CONSTANTS END UNION END STRUCTURE ! MNTDEF ! - ! Define format of the /UNDEFINED_FAT block !  STRUCTURE /UNDEFINED_FAT/8 INTEGER*2 UNFAT$W_MRS ! FAT Maximum Record Size6 BYTE UNFe AT$B_RAT ! FAT Record Attributes2 BYTE UNFAT$B_RFM ! FAT Record Format END STRUCTURE ! UNDEFINED_FAT!DEC$ END OPTIONS ww馯Φ!*** MODULE $MOUNDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:02.56 !  !  ! VERSION: 'X-26' ! L ! * *L ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORAf TION, 1978 - 1999 *L ! * ALL RIGHTS RESERVED. *L ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *L ! * STATES. *L ! * *L ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *L ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *L ! *g POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *L ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *L ! * DIGITAL EQUIPMENT CORPORATION. *L ! * *L ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *L ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *L ! * (C)(1)(II) OF DFARS 252.227-7013, OR h IN FAR 52.227-19, AS APPLICABLE. *L ! * * ! ++ ! - ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES ! ! ABSTRACT: ! E ! THIS FILE CONTAINS THE MDL SOURCE FOR THE MOUNT UTILITY MESSAGES. !  ! ENVIRONMENT: ! C ! MAINTAINERS TAKE NOTE! THIS MODULE IS COMMON SOURCE FOR VAX ANDF ! ALPHA. DO NOT CHANGE ONE WITHOUT TRACKING THE CHANGE IN THE OTHER. !  ! -- !  ! 6 ! AUTHOR: THE VMS GROUP CREAi TION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! 3 ! X-26 JJF0296 J. JEFFERY FRIEDRICHS 4-MAY-2004 ! ADD MESSAGES FOR BAD SCB ! - ! X-25 RAB087 ROBERT A. BROOKS 18-FEB-2004/ ! (RESYNCH IDENT WITH WHAT VDE THINKS . . .) ! FOLD FROM V73-2R-HBMM . . . ! > ! X-35 JJF0260 J. JEFFERY FRIEDRICHS 10-NOV-2003! ! ADD MBRTOOSMALL ! 3 ! X-35 JJF0279 J. JEFFERY FRIEDRICHS 12-FEB-2004, ! ADD SHDWREQALLOC FOR SHADOW SET MEMBERS ! 3 ! X-34 Jj JF0213 J. JEFFERY FRIEDRICHS 7-FEB-2003' ! ADD NOCAPABILITY AND OPTCAPABILITY ! 3 ! X-33 JJF0178 J. JEFFERY FRIEDRICHS 20=FEB-2002 ! ADD BADWINDOWS ! ' ! X-32 MLH MARK HOPKINS 29-FEB-20008 ! ADD MESSAGE FOR ACP NOT FOUND ON VOLUME MOUNT (VAFS ! SUPPORT). ! 3 ! X-31 JJF0116 J. JEFFERY FRIEDRICHS 20-DEC-1999 ! ADD MESSAGES FOR MINICOPY ! 3 ! X-30 JJF0095 J. JEFFERY FRIEDRICHS 24-FEB-1999* ! ADD WARNING MESSAGE FOR SIZE CONFLICT ! 3 ! X-29 JJF00 k 95 J. JEFFERY FRIEDRICHS 8-JAN-1999@ ! ADD NEW MESSAGES OLDSHDRIVER, NOTALLMEM AND POLICY MESSAGES ! : ! X-28 JJF-0076 J. JEFFERY FRIEDRICHS 12-SEP-1997= ! SEPARATE DEVBUSY ERROR MESSAGES OUT INTO UNIQUE MESSAGES ! 6 ! X-27 KJP-SDOS KEVIN PLAYFORD 18-JUL-19977 ! ADD MESSAGE FOR SNAPSHOT POOL MEMBER. ! 9 ! X-26 ACG0639 ANDREW C. GOLDSTEIN, 13-JUN-1997 14:44' ! ADD NEW MESSAGES FOR ODS-5 SUPPORT ! D ! X-25 TGC0049 TO l M CARR 19-JUN-1996H ! ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THAT> ! A MEMBER IS ALREADY A MEMBER OF A SHADOW SET ! D ! X-24 TGC0048 TOM CARR 29-MAY-1996H ! ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THATF ! A MEMBER REQUIRES A COPY OPERATION AND CAN NOT BE A  ! MASTER ! 8 ! X-23 ACG0618 ANDREW C. GOLDSTEIN, 8-APR-1996 11:17" ! RET m URN FACILITY NAME TO MOUNT ! G ! X-22 TGC0045 TOM CARR 29-MAR-1996= ! ADD NEW MESSAGES FROM SHADOW MOUNT REWRITE. ! 4 ! X-21 JJF0017 J. JEFFERY FRIEDRICHS 11-OCT-19949 ! NUMEROUS MESSAGE CLEANUPS PER DOCUMENTATION FOLKS... ! M ! X-20 JJF0014 J. JEFFERY FRIEDRICHS 17-MAY-1994 ! REMOVE BADSECSUG ! M ! X-19 JJF0014 J. JEFFERY FRIEDRICHS 10-MAY-1994- ! CHANGE BADSECn SYS AND BADSECSUG TO ERRORS ! M ! X-18 JJF0014 J. JEFFERY FRIEDRICHS 14-APR-1994 ! ADD BADSECSYS AND BADSECSUG ! M ! X-17 JJF0007 J. JEFFERY FRIEDRICHS 22-MAR-1994 ! ADD DENIGNORED. ! M ! X-16 JJF0011 J. JEFFERY FRIEDRICHS 14-MAR-1994N ! ADD REBUILD MESSAGES. ALSO ADD CRELNM_FAILED FOR A PENDING ! CHANGE. ! 6 ! X-15 JJF0008 J. JEFFERY FRIEDRICHS 9-MAR-1994= ! Ro EMOVE FAO AND CLARIFY MESSAGES INCONPROT AND INCONOWNER ! 6 ! X-14 JJF0005 J. JEFFERY FRIEDRICHS 1-FEB-1994" ! FIX TYPO IN MESSAGE BADUNDFAT ! . ! X-13 AJK0003 ADAM J. KOJNOK 12-OCT-1993- ! ADDING NEW MESSAGE WAITDEVRDY FOR MOUNT. ! . ! X-12 AJK0002 ADAM J. KOJNOK 12-OCT-19936 ! RETROFITTING MESSAGE VOLSETALRMNT FROM ALPHA VMS. ! ) ! X-4 ABELL53 ALLY BELL 25-JUNE-1993D ! ADDED FATAL MESSAGE VOLSETALRMNT FOR WHEN A VOLUME SET IS BEINGA ! MOUNTED WITH p THE SAME NAME AS AN ALREADY MOUNTED VOLUME SET. ! 4 ! X-10 AJK0010 MIKE STAMS/ADAM KOJNOK 01-SEP-1993= ! ADDING MESSAGE (CBSNOTSUPTD). ALSO, CHANGING 'NEWER' IN: ! MESSAGE INVSHDWMEM TO "newer". THIS WAS REQUESTED BY4 ! DOCUMENTATION SO THAT IT MATCHES THE HELP FILE. ! + ! X-9 VBK VAIKOM B. KRISHNAN 14-NOV-19918 ! ADD A NEW ERROR MESSAGE TO BE OUTPUT WHEN A DISK IS7 ! TOO BIG TO BE PART OF A VOLUME SET. SUCH DISKS ARE; ! LARGER THAN 8GB AND SO THEY REQUIRE AN ENTIREq LONGWORD6 ! TO STORE LBNS WHICH LEAVES NO ROOM FOR RVN TO BE  ! STORED IN THE MAP POINTER. ! , ! X-8 JFD0034 JAMES F. DUNHAM 8-JAN-19917 ! IN SUPPORT OF FILES-11 C/D CONTROLLED VOLUME SETS,7 ! ADD ISO 9660 AND HIGH SIERRA VOLUME MOUNT MESSAGES ! 2 ! X-21 RKK0057 ROBERT K. KOSAKOWSKI 19-FEB-19919 ! ADD NEW MESSAGES FOR MME OPCOM MESSAGES - SUPPORT OF. ! SCRATCH VOLUME, MOUNT BY CARTRIDGE NAME.  ! (FOR DAN KYLER) ! 2 ! X-20 RKK0049 ROBERT K. KOSAKOWSKI 26-r DEC-1990= ! REPLACE WITH CORRECT VERSION OF FILE. (BUILDBUG, CHECKED ! IN WRONG VERSION) ! 2 ! X-19 RKK0048 ROBERT K. KOSAKOWSKI 21-DEC-1990 ! ADDED DEVNOFE MESSAGE. ! 2 ! X-18 RKK0036 ROBERT K. KOSAKOWSKI 17-NOV-1990 ! ADDED INVQUAVAL MESSAGE. ! + ! X-17 PRD PAUL R. DESTEFANO 26-APR-1990 ! ADDED NOALOCLASS MESSAGE. ! + ! X-16 PRD PAUL R. DESTEFANO 20-MAR-1990 ! ADDED NOTACLU MESSAGE. ! / ! X-15 PRD0548 PAUL R. DESTEFANO 06-NOV-1989 ! ADDs ED BADMDFMT MESSAGE. ! / ! X-14 PRD0526 PAUL R. DESTEFANO 07-OCT-19899 ! ADDED MESSAGES SHDWMEMERGE, AUTOMEMSUCC, AUTOMEMCOPY ! AND AUTOMEMERGE, ! / ! X-13 PRD0462 PAUL R. DESTEFANO 16-OCT-1988. ! ADDED WAITINGMNT AND RMTMNTSUCC MESSAGES. ! / ! X-12 PRD0455 PAUL R. DESTEFANO 05-OCT-19886 ! ADDED MOUN$_MOUNT MESSAGE FOR IO$_DISPLAY CALL IN ! ASSIST. ! / ! X-11 PRD0445 PAUL R. DESTEFANO 18-MAY-1988 ! ADD QUOTAFNF MESSAGE. ! / ! X-10 PRD0416 PAUL Rt . DESTEFANO 23-SEP-19877 ! ADD RMTMNTFAIL AND MNTCLUFAIL WARNING MESSAGES FOR ! CLUSTER-WIDE MOUNT STATUS. ! ) ! X-9 DAS DAVID A. SOLOMON 05-DEC-1986) ! MAKE OBSOLETE MESSAGE CJFERR UNUSED. ! & ! X-8 HH0130 HAI HUANG 04-DEC-19854 ! FOR CONSISTENCY, RENAME THIS MACRO TO $MOUNDEF. ! & ! X-7 HH0116 HAI HUANG 03-OCT-1985 ! ADD SHDWINCVOL MESSAGE. ! & ! X-6 HH0110 HAI HUANG 19-SEP-1985' ! CHANGE TEXT OF SHADOWFAIL MESSAGE. ! ' ! X-5 HH0110 HAI HUAu NG 19-SEP-1985 ! ADD SHADOWFAIL MESSAGE. ! & ! X-4 HH0103 HAI HUANG 09-SEP-19854 ! ADD SHDWCOPYREQ MESSAGE. ALSO, RENAME SHAMEM TO ! SHDWMEM. ! & ! X-3 HH0092 HAI HUANG 20-AUG-1985& ! REMOVE OBSOLETE BADJRNL MESSAGE.  ! & ! X-2 HH0073 HAI HUANG 16-MAY-1985# ! ADD VOLUME SHADOWING MESSAGES. !  ! ** ! + ! ; ! THE FOLLOWING ARE MESSAGES ISSUED BY THE MOUNT UTILITY. !  ! - ! 1 ! ***** FOLLOWING MESSAGES ARE SHARED WITH INIT ! F ! WHEN v ADDING A NEW MESSAGE IN THIS SECTION, USE THE FILL VALUES DX. ! ( PARAMETER MOUNT$_FACILITY = '00000072'X( PARAMETER MOUN$_BADDATCHK = '0072800C'X& PARAMETER MOUN$_BADDENS = '00728014'X% PARAMETER MOUN$_BADPRO = '0072801C'X% PARAMETER MOUN$_BADUIC = '00728024'X' PARAMETER MOUN$_CONFQUAL = '0072802C'X% PARAMETER MOUN$_ILLOPT = '00728034'X' PARAMETER MOUN$_NONLOCAL = '0072803C'X% PARAMETER MOUN$_NOTRAN = '00728044'X% PARAMETER MOUN$_UNKDEV = '0072804C'X( PARAMETER MOUN$_BADLABELQ =w '00728054'X( PARAMETER MOUN$_VALCNVERR = '0072805C'X! PARAMETER MOUN$_D3 = '00728064'X! PARAMETER MOUN$_D4 = '0072806C'X! PARAMETER MOUN$_D5 = '00728074'X ! 1 ! ***** PRECEDING MESSAGES ARE SHARED WITH INIT ! & PARAMETER MOUN$_LOGNAME = '0072807C'X% PARAMETER MOUN$_MAXDEV = '00728084'X% PARAMETER MOUN$_MAXLAB = '0072808C'X' PARAMETER MOUN$_NOACPDEV = '00728094'X% PARAMETER MOUN$_MOUVOL = '0072809C'X( PARAMETER MOUN$_INCOMPACP = '007280A4'X' PARAMETER MOUN$_INCOMPAT = '00728x 0AC'X( PARAMETER MOUN$_VOLALRMNT = '007280B4'X& PARAMETER MOUN$_BADVOL1 = '007280BC'X& PARAMETER MOUN$_ILLDENS = '007280C4'X( PARAMETER MOUN$_NOTGENDEV = '007280CC'X( PARAMETER MOUN$_DUPDEVSPC = '007280D4'X( PARAMETER MOUN$_ILLANSIBS = '007280DC'X% PARAMETER MOUN$_ACCERR = '007280E4'X( PARAMETER MOUN$_FILNOTEXP = '007280EC'X% PARAMETER MOUN$_NOPRIV = '007280F4'X& PARAMETER MOUN$_NOTANSI = '007280FC'X' PARAMETER MOUN$_NOTLABEL = '00728104'X( PARAMETER MOUN$_NOTVOLSET = '0072810C'X( PAR y AMETER MOUN$_NOTRELVOL = '00728114'X& PARAMETER MOUN$_OFFLINE = '0072811C'X& PARAMETER MOUN$_IOERROR = '00728124'X& PARAMETER MOUN$_ILLQUAL = '0072812C'X& PARAMETER MOUN$_WRITLCK = '00728134'X' PARAMETER MOUN$_RECGTRBL = '0072813C'X& PARAMETER MOUN$_ACPNAME = '00728144'X& PARAMETER MOUN$_ACPTIME = '0072814C'X& PARAMETER MOUN$_AQBTIME = '00728154'X% PARAMETER MOUN$_BADACP = '0072815C'X% PARAMETER MOUN$_BADEBC = '00728164'X% PARAMETER MOUN$_BADOVR = '0072816C'X& PARAMETER MOUN$_DEVICES = z '00728174'X' PARAMETER MOUN$_SZTOOBIG = '0072817C'X( PARAMETER MOUN$_INCONSDEV = '00728184'X' PARAMETER MOUN$_DEVCOUNT = '0072818C'X' PARAMETER MOUN$_VOLINSET = '00728194'X( PARAMETER MOUN$_RVN1NOTMT = '0072819C'X' PARAMETER MOUN$_SETLIMIT = '007281A4'X( PARAMETER MOUN$_DUPVOLNAM = '007281AC'X( PARAMETER MOUN$_HOMBLKCHK = '007281B4'X% PARAMETER MOUN$_DUPRVN = '007281BC'X' PARAMETER MOUN$_BADCACHE = '007281C4'X' PARAMETER MOUN$_UNRELVOL = '007281CC'X' PARAMETER MOUN$_MBXCRERR = '007 { 281D4'X' PARAMETER MOUN$_MBXRDERR = '007281DC'X' PARAMETER MOUN$_REPLYERR = '007281E4'X( PARAMETER MOUN$_OPRSNDERR = '007281EC'X' PARAMETER MOUN$_OPRABORT = '007281F4'X) PARAMETER MOUN$_BATCHNOOPR = '007281FC'X( PARAMETER MOUN$_MOUNEWVOL = '00728204'X' PARAMETER MOUN$_REMOUVOL = '0072820C'X' PARAMETER MOUN$_OBSOLETE = '00728214'X& PARAMETER MOUN$_VOLOERR = '0072821C'X& PARAMETER MOUN$_BADINIT = '00728224'X% PARAMETER MOUN$_DISMAL = '0072822C'X' PARAMETER MOUN$_INCONSHR = '00728234' | X( PARAMETER MOUN$_INCONPROT = '0072823C'X) PARAMETER MOUN$_INCONQUOTA = '00728244'X) PARAMETER MOUN$_INCONOWNER = '0072824C'X) PARAMETER MOUN$_INCONWRITE = '00728254'X' PARAMETER MOUN$_INCONFOR = '0072825C'X' PARAMETER MOUN$_NOVOLACC = '00728264'X' PARAMETER MOUN$_NOFILACC = '0072826C'X* PARAMETER MOUN$_TAPEPOSLOST = '00728274'X( PARAMETER MOUN$_BADSHADOW = '0072827C'X( PARAMETER MOUN$_NOSHDWMEM = '00728284'X) PARAMETER MOUN$_INVSHDWMEM = '0072828C'X* PARAMETER MOUN$_SHDWCOPYREQ = } '00728294'X) PARAMETER MOUN$_SHADOWFAIL = '0072829C'X) PARAMETER MOUN$_SHDWINCVOL = '007282A4'X) PARAMETER MOUN$_NOTSHDWDEV = '007282AC'X' PARAMETER MOUN$_BADMDFMT = '007282B4'X& PARAMETER MOUN$_NOTACLU = '007282BC'X) PARAMETER MOUN$_NOALOCLASS = '007282C4'X) PARAMETER MOUN$_BADASNUNIT = '007282CC'X& PARAMETER MOUN$_BADDISP = '007282D4'X( PARAMETER MOUN$_BADUNDFAT = '007282DC'X( PARAMETER MOUN$_VOLTOOBIG = '007282E4'X( PARAMETER MOUN$_BADSECSYS = '007282EC'X& PARAMETER MOUN$_DEVBUSY ~ = '007282F4'X% PARAMETER MOUN$_DEVDMT = '007282FC'X' PARAMETER MOUN$_BADREPLY = '00728304'X' PARAMETER MOUN$_MMEABORT = '0072830C'X' PARAMETER MOUN$_NOSHADOW = '00728314'X( PARAMETER MOUN$_NOTSHDWVU = '0072831C'X( PARAMETER MOUN$_NOSHADLIC = '00728324'X( PARAMETER MOUN$_DIFVOLMNT = '0072832C'X( PARAMETER MOUN$_DEVSHAMEM = '00728334'X& PARAMETER MOUN$_SHADSCB = '0072833C'X% PARAMETER MOUN$_NOODS1 = '00728344'X& PARAMETER MOUN$_WRONGVU = '0072834C'X+ PARAMETER MOUN$_DETSHADINCON = '007  28354'X' PARAMETER MOUN$_NOMASTER = '0072835C'X% PARAMETER MOUN$_XSMBRS = '00728364'X% PARAMETER MOUN$_NOVUID = '0072836C'X+ PARAMETER MOUN$_SHADUNSTABLE = '00728374'X( PARAMETER MOUN$_INCONPOOL = '0072837C'X) PARAMETER MOUN$_DEVBUSYMOU = '00728384'X, PARAMETER MOUN$_DEVBUSYMOUDSA = '0072838C'X) PARAMETER MOUN$_DEVBUSYDMT = '00728394'X) PARAMETER MOUN$_DEVBUSYSYS = '0072839C'X) PARAMETER MOUN$_DEVBUSYVOL = '007283A4'X) PARAMETER MOUN$_DEVBUSYORB = '007283AC'X, PARAMETER MOUN$_DEV BUSYINVMOS = '007283B4'X+ PARAMETER MOUN$_DEVBUSYINSET = '007283BC'X( PARAMETER MOUN$_NOTALLMEM = '007283C4'X( PARAMETER MOUN$_BADPOLICY = '007283CC'X) PARAMETER MOUN$_POLICYFAIL = '007283D4'X$ PARAMETER MOUN$_SPARE = '007283DC'X, PARAMETER MOUN$_REQ_WBM_MERGE = '007283E4'X+ PARAMETER MOUN$_REQ_WBM_FAIL = '007283EC'X, PARAMETER MOUN$_ACPNOTPRESENT = '007283F4'X) PARAMETER MOUN$_BADWINDOWS = '007283FC'X+ PARAMETER MOUN$_NOCAPABILITY = '00728404'X* PARAMETER MOUN$_MBRTOOSMALL = '0072840C 'X+ PARAMETER MOUN$_SHDWREQALLOC = '00728414'X) PARAMETER MOUN$_INVALIDSCB = '0072841C'X ! I ! ADD NEW FATAL STATUS MESSAGES HERE. THERE IS ROOM FOR 385 MORE CODES. !  !  ! WARNING MESSAGES ! ( PARAMETER MOUN$_HOMBLKBAD = '00729000'X( PARAMETER MOUN$_IDXHDRBAD = '00729008'X( PARAMETER MOUN$_MAPHDRBAD = '00729010'X( PARAMETER MOUN$_IDXMAPERR = '00729018'X( PARAMETER MOUN$_BITMAPERR = '00729020'X( PARAMETER MOUN$_BADHOMBLK = '00729028'X( PARAMETER MOUN$_WRTHOMBLK = '00729030 'X( PARAMETER MOUN$_QUOTAFAIL = '00729038'X( PARAMETER MOUN$_BITMAPINV = '00729040'X' PARAMETER MOUN$_WRITESCB = '00729048'X' PARAMETER MOUN$_DISMPART = '00729050'X% PARAMETER MOUN$_UNUSED = '00729058'X( PARAMETER MOUN$_DISMOUNTD = '00729060'X) PARAMETER MOUN$_VOLSHDWMEM = '00729068'X) PARAMETER MOUN$_RMTMNTFAIL = '00729070'X) PARAMETER MOUN$_MNTCLUFAIL = '00729078'X' PARAMETER MOUN$_QUOTAFNF = '00729080'X* PARAMETER MOUN$_CBSNOTSUPTD = '00729088'X, PARAMETER MOUN$_CRELNM_FAILED = ' 00729090'X) PARAMETER MOUN$_DENIGNORED = '00729098'X' PARAMETER MOUN$_ALHOMERR = '007290A0'X' PARAMETER MOUN$_ALHOMINV = '007290A8'X* PARAMETER MOUN$_INCONSTRUCT = '007290B0'X' PARAMETER MOUN$_INCONSET = '007290B8'X* PARAMETER MOUN$_OLDSHDRIVER = '007290C0'X) PARAMETER MOUN$_POLICYWARN = '007290C8'X( PARAMETER MOUN$_INCONSIZE = '007290D0'X, PARAMETER MOUN$_OPT_WBM_MERGE = '007290D8'X- PARAMETER MOUN$_WBM_NOTSTARTED = '007290E0'X, PARAMETER MOUN$_OPTCAPABILITY = '007290E8'X !  !  INFORMATIONAL MESSAGES ! & PARAMETER MOUN$_MOUNTED = '0072A003'X' PARAMETER MOUN$_VOLIDENT = '0072A00B'X( PARAMETER MOUN$_WRITELOCK = '0072A013'X& PARAMETER MOUN$_REBUILD = '0072A01B'X% PARAMETER MOUN$_OPRQST = '0072A023'X& PARAMETER MOUN$_OPREPLY = '0072A02B'X( PARAMETER MOUN$_OPRQSTCAN = '0072A033'X$ PARAMETER MOUN$_NOOPR = '0072A03B'X( PARAMETER MOUN$_INVLDRESP = '0072A043'X' PARAMETER MOUN$_MOUNTDEV = '0072A04B'X& PARAMETER MOUN$_VOLNAME = '0072A053'X' PARAMETER MOUN$_NODEVAVL = '0072A05B'X) PARAMETER MOUN$_RPLYARRIVD = '0072A063'X' PARAMETER MOUN$_WRONGVOL = '0072A06B'X& PARAMETER MOUN$_RQSTDON = '0072A073'X( PARAMETER MOUN$_VOLSTATUS = '0072A07B'X( PARAMETER MOUN$_VOLSETSTS = '0072A083'X' PARAMETER MOUN$_REDCACHE = '0072A08B'X( PARAMETER MOUN$_REBLDREQD = '0072A093'X* PARAMETER MOUN$_SHDWMEMSUCC = '0072A09B'X* PARAMETER MOUN$_SHDWMEMCOPY = '0072A0A3'X* PARAMETER MOUN$_SHDWMEMFAIL = '0072A0AB'X? PARAMETER MOUN$_MOUNT = '0072A0B3'X ! MAXIMUM = 8 CHARACTERS) PARAMETER MOUN$_WAITINGMNT = '0072A0BB'X) PARAMETER MOUN$_RMTMNTSUCC = '0072A0C3'X* PARAMETER MOUN$_SHDWMEMERGE = '0072A0CB'X* PARAMETER MOUN$_AUTOMEMSUCC = '0072A0D3'X* PARAMETER MOUN$_AUTOMEMCOPY = '0072A0DB'X* PARAMETER MOUN$_AUTOMEMERGE = '0072A0E3'X' PARAMETER MOUN$_MOUNTVOL = '0072A0EB'X) PARAMETER MOUN$_ANYSCRATCH = '0072A0F3'X) PARAMETER MOUN$_SCRATCHCOL = '0072A0FB'X) PARAMETER MOUN$_SCRATCHLOC = '0072A103'X( PARAMETER MOUN$_SCRCOLLOC = '0072A10B'X& PARAMETER MOUN$_SUITDEV = '0072A113'X& PARAMETER MOUN$_DEVTYPE = '0072A11B'X% PARAMETER MOUN$_DEVICE = '0072A123'X( PARAMETER MOUN$_MEDIANAME = '0072A12B'X( PARAMETER MOUN$_CARTRIDGE = '0072A133'X' PARAMETER MOUN$_CARTSIDE = '0072A13B'X( PARAMETER MOUN$_CDROM_ISO = '0072A143'X' PARAMETER MOUN$_CDROM_HS = '0072A14B'X) PARAMETER MOUN$_WAITDEVRDY = '0072A153'X& PARAMETER MOUN$_NOTODS2 = '0072A15B'X( PARAMETER MOUN$_SRCMBRADD = '0072A163'X) PARAMETER MOUN$_ISACPYTRGT = '0072A16B'X% PARAMETER MOUN$_ISAMBR = '0072A 173'X' PARAMETER MOUN$_DOSETVOL = '0072A17B'X( PARAMETER MOUN$_RETSTATUS = '0072A183'X* PARAMETER MOUN$_SHDWMEMMCPY = '0072A18B'X) PARAMETER MOUN$_SHDWNOMCPY = '0072A193'X ! G ! MORE FATAL MESSAGES (DO NOT ADD MORE MESSAGES TO THIS SECTION UNTIL& ! THE BLOCK ABOVE HAS BEEN USED UP.) ! ( PARAMETER MOUN$_INVQUAVAL = '0072AEE4'X& PARAMETER MOUN$_DEVNOFE = '0072AEEC'X+ PARAMETER MOUN$_VOLSETALRMNT = '0072AEF4'X!DEC$ END OPTIONS wwצ՜Φ!*** MODULE $MSGDEF *** :!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! % ! SYSTEM WIDE MAILBOX MESSAGE TYPES !  ! - ! DEFINE CODES AS CONSTANTS G PARAMETER MSG$_TRMUNSOLIC = '00000001'X ! UNSOLICITED TERMINAL DATA H PARAMETER MSG$_CRUNSOLIC = '00000002'X ! UNSOLICTED CARD READER DATA 9 PARAMETER MSG$_DELPROC = '00000003'X ! DELETE PROCESS B PARAMETER MSG$_SNDSMB = '00000004'X ! SEND TO SYMBIONT MANAGER ; PARAMETER MSG$_DEVOFFLIN = '00000005'X ! DEVICE OFFLINE = PARAMETER MSG$_TRMHANGUP = '00000006'X ! TERMINAL HANG UP 9 PARAMETER MSG$_DEVONLIN = '00000007'X ! DEVICE ONLINE R PARAMETER MSG$_OPRQST = '00000008'X ! OPERATOR REQUEST *** OVERLAPPED CODE *** Q PARAMETER MSG$_OPREPLY = '00000009'X ! OPERATOR REPLY *** OVERLAPPED CODE *** & ! DEFINE SYMBIONT RESPONSE MESSAGES = PARAMETER MSG$_SMBINI = '00000008'X ! SYMBIONT HAS INITED ; PARAMETER MSG$_SMBDON = '00000009'X ! SYMBIONT FINISHED L PARAMETER MSG$_SNDACC = '0000000A'X ! SEND MESSAGE TO A CCOUNTING MANAGER P PARAMETER MSG$_PURPROC = '0000000B'X ! PURGE PROCESS *** OVERLAPPED CODE *** O PARAMETER MSG$_DELIMAG = '0000000C'X ! DELETE IMAGE *** OVERLAPPED CODE *** N PARAMETER MSG$_PURIMAG = '0000000D'X ! PURGE IMAGE *** OVERLAPPED CODE *** R PARAMETER MSG$_SYSFUNC = '0000000E'X ! SYSTEM FUNCTION *** OVERLAPPED CODE *** G PARAMETER MSG$_SNDJBC = '0000000F'X ! Send message to job controllerT PARAMETER MSG$_GETQUI = '00000010'X ! Get queue information (from job controller)  ! DEFINE DMC MESSAGES A PARAMETER MSG$_XM_DATAVL = '0000000B'X ! DMC UNSOLICITED DATA : PARAMETER MSG$_XM_SHUTDN = '0000000C'X ! DMC LINE DOWN @ PARAMETER MSG$_XM_ATTN = '0000000D'X ! DMC ATTENTION MESSAGE  ! SYMBIONT COMMAND MESSAGES B PARAMETER MSG$_INIOPR = '00000010'X ! INITIATE PRINTING A FILE ? PARAMETER MSG$_ABOOPR = '00000011'X ! ABORT PRINTING A FILE A PARAMETER MSG$_SUSOPR = '00000012'X ! PAUSE PRINTING THE FILE B PARAMETER MSG$_RESOPR = '00000013'X ! RESUME PR INTING THE FILE G PARAMETER MSG$_DELSMB = '00000014'X ! SYMBIONT SHOULD DELETE ITSELF D PARAMETER MSG$_REQUE = '00000015'X ! REQUEUE A FILE FOR PRINTING  ! C PARAMETER MSG$_SMBRSP = '00000020'X ! SYMBIONT MANAGER RESPONSE E PARAMETER MSG$_ACCRSP = '00000021'X ! ACCOUNTING MANAGER RESPONSE  ! FILE ACP MESSAGES C PARAMETER MSG$_SCANBAD = '00000028'X ! SCAN FILE FOR BAD BLOCKS E PARAMETER MSG$_SCANRSP = '00000029'X ! RESPONSE FROM FILE SCANNER  ! NETWORK ATTENTION CODES = PARAMETER MSG$_ABORT = '00000030'X ! PARTNER ABORTED LINK : PARAMETER MSG$_CONFIRM = '00000031'X ! CONNECT CONFIRM C PARAMETER MSG$_CONNECT = '00000032'X ! INBOUND CONNECT INITIATE G PARAMETER MSG$_DISCON = '00000033'X ! PARTNER DISCONNECTED - HANGUP B PARAMETER MSG$_EXIT = '00000034'X ! PARTNER EXITED PREMATURELY N PARAMETER MSG$_INTMSG = '00000035'X ! INTERRUPT MESSAGE - UNSOLICITED DATA F PARAMETER MSG$_PATHLOST = '00000036'X ! NFW - PATH LOST TO PARTNER : PARAMETER MSG$_PR OTOCOL = '00000037'X ! PROTOCOL ERROR 8 PARAMETER MSG$_REJECT = '00000038'X ! CONNECT REJECT D PARAMETER MSG$_THIRDPARTY = '00000039'X ! THIRD PARTY DISCONNECT : PARAMETER MSG$_TIMEOUT = '0000003A'X ! CONNECT TIMEOUT @ PARAMETER MSG$_NETSHUT = '0000003B'X ! Network shutting down E PARAMETER MSG$_NODEACC = '0000003C'X ! Node has become accessible I PARAMETER MSG$_NODEINACC = '0000003D'X ! Node has become inaccessible E PARAMETER MSG$_EVTAVL = '0000003E'X ! Events are available to EVL K PARAMETER MSG$_EVTRCVCHG = '0000003F'X ! Event receiver database change ; PARAMETER MSG$_INCDAT = '00000040'X ! X25 INCOMING DATA : PARAMETER MSG$_RESET = '00000041'X ! X25 CIRCUIT RESET 8 PARAMETER MSG$_LINUP = '00000042'X ! X25 PVC LINE UP ; PARAMETER MSG$_LINDWN = '00000043'X ! X25 PVC LINE DOWN N PARAMETER MSG$_EVTXMTCHG = '00000044'X ! Event transmitter database change ! MOUNT VERIFICATION MESSAGES < PARAMETER MSG$_DEVOFFLINX = '00000050'X ! DEVICE OFFLINE B PARAMETER MSG$_WRONGVOL = '00000051'X ! WRONG VOLUME IN DEVICE I PARAMETER MSG$_DEVWRTLCK = '00000052'X ! DEVICE HAS BEEN WRITE LOCKED ? PARAMETER MSG$_TRMBRDCST = '00000053'X ! TERMINAL BROADCAST J PARAMETER MSG$_MVCOMPLETE = '00000054'X ! MOUNT VERIFICATION COMPLETED G PARAMETER MSG$_MVABORTED = '00000055'X ! MOUNT VERIFICATION ABORTED ? PARAMETER MSG$_DISMOUNTED = '00000056'X ! VOLUME DISMOUNTED I PARAMETER MSG$_UDA50MVER = '00000057'X ! UDA50 MICORCODE NOT UPTO REV O PAR AMETER MSG$_DUPUNITNO = '00000058'X ! MSCP CONTROLLER - DUPLICATE UNIT ! A PARAMETER MSG$_CLUMBX = '00000059'X ! CNXMGR to OPCOM messagesM PARAMETER MSG$_TM78MVER = '0000005A'X ! TM78 Microcode not up to rev levelK PARAMETER MSG$_SHAMEMFAL = '0000005B'X ! Member failed out of shadow set> PARAMETER MSG$_SHARDUCED = '0000005C'X ! Shadow set reducedG PARAMETER MSG$_RC25MVER = '0000005D'X ! RC25 MICORCODE NOT UPTO REV G PARAMETER MSG$_RDRXMVER = '0000005E'X ! RDRX MICORCODE NOT UP TO REV G PARAMETER MSG$_TU81MVER = '0000005F'X ! TU81 MICORCODE NOT UPTO REV G PARAMETER MSG$_MAYAMVER = '00000060'X ! MAYA MICORCODE NOT UPTO REV H PARAMETER MSG$_SHACHASTA = '00000061'X ! Shadow set has changed stateO PARAMETER MSG$_SHACOPCOM = '00000062'X ! Shadow copy operation has completedN PARAMETER MSG$_SHAREDZER = '00000063'X ! Shadow set reduced to zero membersF PARAMETER MSG$_SHAPOSMEM = '00000064'X ! Possible shadow set memberT PARAMETER MSG$_SHAALLCOM = '00000065'X  ! All shadow set copy operations completedG PARAMETER MSG$_SHACOPBEG = '00000066'X ! Shadow copy operation begunO PARAMETER MSG$_SHAWROMEM = '00000067'X ! Shadow member contains wrong volumeT PARAMETER MSG$_SHAORGMEM = '00000068'X ! Shadow system disk missing VMB R3 memberF PARAMETER MSG$_TRMLOSE_KB = '00000069'X ! terminal lost physical KBH PARAMETER MSG$_TRMGAIN_KB = '0000006A'X ! terminal gained physical KBJ PARAMETER MSG$_TRMSHRINK = '0000006B'X ! terminal window shrunk to ic onI PARAMETER MSG$_TRMEXPAND = '0000006C'X ! terminal window icon expandedC PARAMETER MSG$_TRMRESIZE = '0000006D'X ! terminal window resized? PARAMETER MSG$_TRMMOVE = '0000006E'X ! terminal window movedO PARAMETER MSG$_SNDMME = '0000006F'X ! message to media management extensionsX PARAMETER MSG$_RETMME = '00000070'X ! message returned from media management softwared PARAMETER MSG$_SHAADPBAD = '00000071'X ! Shadow VMB R3 member not currently connected to originalC ! Shadow V MB R3 member not currently connected to original bod PARAMETER MSG$_SHAEMUPTH = '00000072'X ! Shadow VMB R3 member not currently connected to originalC ! Shadow VMB R3 member not currently connected to original bod PARAMETER MSG$_SHABENODMP = '00000073'X ! Shadow VMB R3 member not on original adapter, current tC ! Shadow VMB R3 member not on original adapter, current type d PARAMETER MSG$_SHABNODMP = '00000074'X ! Shadow VMB R3 member not the master of set or not on PATC ! Shadow VMB R3 member not the master of set or not on PATH nd PARAMETER MSG$_SHALOCDEV = '00000075'X ! A Satellites shadow master member is now on a local deviC ! A Satellites shadow master member is now on a local device,[ PARAMETER MSG$_SHANOBPOK = '00000076'X ! Shadow VMB R3 member is not a member of the set[ PARAMETER MSG$_SHABDMPOK = '00000077'X ! Shadow VMB R3 member is on the original adapterd PARAMETER MSG$_BOOTDMPOK = '00000078'X ! System dump will has been redirected t o the current mastC ! System dump will has been redirected to the current master e PARAMETER MSG$_SHABDBCK = '00000079'X ! Shadow VMB R3 member has returned to the original adapter d PARAMETER MSG$_SHANODMP = '0000007A'X ! Shadow master changed. Dump will NOT be written if systeC ! Shadow master changed. Dump will NOT be written if system d PARAMETER MSG$_SHADMPOK = '0000007B'X ! Shadow master changed. Dump WILL be written if system crC ! Shadow master changed. Dump W ILL be written if system crasf PARAMETER MSG$_OPCFAO = '0000007C'X ! Message contains dynamic FAO parameters to format the message_ PARAMETER MSG$_INSAMCVP = '0000007D'X ! Shadowing - not all requested bitmaps were convertedM PARAMETER MSG$_HBMMRESET = '0000007E'X ! Shadowing - HBMM bitmap was reset\ PARAMETER MSG$_SHADISSOLVED = '0000007F'X ! Shadowing -- virtual unit has been vapourized\ PARAMETER MSG$_SHAMEMEXPEL = '00000080'X ! Shadowing -- a member device has been expelledd PAR AMETER MSG$_SHAMEMDMT = '00000081'X ! Shadowing -- a member device has been dismounted from shC ! Shadowing -- a member device has been dismounted from shado# ! DEFINE MESSAGES FOR USE BY QMANF PARAMETER MSG$_QMAN_INTERNAL = '000000C8'X ! QMAN internal message !DEC$ END OPTIONS ww!՜Φ$!*** MODULE $MSGHLPDEF IDENT X-4 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN( PARAMETER MSGHLP$M_NOSORT = '00000001'X' PARAMETER MSGHLP$M_BRIEF = '00000002'X ) PARAMETER MSGHLP$M_MACHINE = '00000004'X- PARAMETER MSGHLP$M_NOSUBSTRING = '00000008'X STRUCTURE /MSGHLPDEF/" PARAMETER MSGHLP$S_NOSORT = 1A PARAMETER MSGHLP$V_NOSORT = 0 ! Do *NOT* sort the output ! PARAMETER MSGHLP$S_BRIEF = 1K PARAMETER MSGHLP$V_BRIEF = 1 ! Give only the names of the messages # PARAMETER MSGHLP$S_MACHINE = 1T PARAMETER MSGHLP$V_MACHINE = 2 ! Return the text in machine-readable format ' PARAMETER MSGHLP$S_NOSUBSTRING = 1U  PARAMETER MSGHLP$V_NOSUBSTRING = 3 ! Match only entire words, no abreviations  INTEGER*2 %FILLE BYTE MSGHLP$B_WORK_FILES ! How many workfiles for /SORT? BYTE %FILL (1) END STRUCTURE ! MSGHLPDEF!DEC$ END OPTIONS wwk?֜Φ!*** MODULE $MT2DEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +) ! EXTENDED MAGTAPE CHARACTERISTICS BITS ! -' PARAMETER MT2$M_SUP_DENS = '0000FFFF'X) PARAMETER MT2$M_WBC_ENABLE = '00010000'X* PARAM ETER MT2$M_RDC_DISABLE = '00020000'X* PARAMETER MT2$M_CACHED_DATA = '00040000'X& PARAMETER MT2$M_CD_LOST = '00080000'X( PARAMETER MT2$M_TAPE_MARK = '00100000'X' PARAMETER MT2$M_COMP_SUP = '00200000'X' PARAMETER MT2$M_COMP_ENA = '00400000'X, PARAMETER MT2$M_MT3_SUPPORTED = '00800000'X, PARAMETER MT2$M_ALLOWFAST_SUP = '01000000'X/ PARAMETER MT2$M_ALLOWFAST_ALWAYS = '02000000'X/ PARAMETER MT2$M_ALLOWFAST_PER_IO = '04000000'X. PARAMETER MT2$M_ALLOWFAST_NEVER = '08000000'X STRUCTURE /MT2DEF / UNION MAP& PARAMETER MT2$S_SUP_DENS = 16> PARAMETER MT2$V_SUP_DENS = 0 ! SUPPORTED DENSITIES' PARAMETER MT2$S_WBC_ENABLE = 1K PARAMETER MT2$V_WBC_ENABLE = 16 ! WRITE-BACK CACHING IS ENABLED( PARAMETER MT2$S_RDC_DISABLE = 1F PARAMETER MT2$V_RDC_DISABLE = 17 ! READ CACHING IS DISABLED( PARAMETER MT2$S_CACHED_DATA = 1Q PARAMETER MT2$V_CACHED_DATA = 18 ! CLASS DRIVER DETECTED DATA IN CACHE$ PARAMETER M T2$S_CD_LOST = 1Q PARAMETER MT2$V_CD_LOST = 19 ! CLASS DRIVER DETECTED CACHED DATA LOST& PARAMETER MT2$S_TAPE_MARK = 1G PARAMETER MT2$V_TAPE_MARK = 20 ! TAPE MARK HAS BEEN WRITTEN% PARAMETER MT2$S_COMP_SUP = 1A PARAMETER MT2$V_COMP_SUP = 21 ! COMPACTION supported % PARAMETER MT2$S_COMP_ENA = 1? PARAMETER MT2$V_COMP_ENA = 22 ! COMPACTION enabled * PARAMETER MT2$S_MT3_SUPPORTED = 1Y PARAMETER MT2$V_MT3_SUP PORTED = 23 ! Driver supports Multiple Tape Densities. * PARAMETER MT2$S_ALLOWFAST_SUP = 1J PARAMETER MT2$V_ALLOWFAST_SUP = 24 ! SCSI Fast Search supported- PARAMETER MT2$S_ALLOWFAST_ALWAYS = 1I PARAMETER MT2$V_ALLOWFAST_ALWAYS = 25 ! ALWAYS use Fast Search- PARAMETER MT2$S_ALLOWFAST_PER_IO = 1L PARAMETER MT2$V_ALLOWFAST_PER_IO = 26 ! PER_IO use of Fast Search, PARAMETER MT2$S_ALLOWFAST_NEVER = 1H PARAMETER MT2$V_ALLOW FAST_NEVER = 27 ! NEVER use Fast Search  BYTE %FILL (4) END MAP END UNION END STRUCTURE ! MT2DEF!DEC$ END OPTIONS ww֜Φ!*** MODULE $MT3DEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +1 ! MAGNETIC TAPE DENSITY/COMPRESSION DEFINITIONS ! = ! These values are used only for MTD enhanced tape drivers  ! and are not found in MTDEF. ! G PARAMETER MT3$K_DEFAULT = '00000000'X ! DEFAULT DENSITY/COMPRESSION 9 PARAMETER MT3$K_NRZI_800 = '00000101'X ! NRZI 800 BPI 7 PARAMETER MT3$K_PE_1600 = '00000102'X ! PE 1600 BPI 9 PARAMETER MT3$K_GCR_6250 = '00000104'X ! GCR 6250 BPI 9 PARAMETER MT3$K_TK50 = '00000201'X ! DLT TK50: 833 BPI: PARAMETER MT3$K_TK70 = '00000202'X ! DLT TK70: 1250 BPI> PARAMETER MT3$K_3480 = '00000301'X ! IBM 3480 HPC 39872 BPI= PARAMETER MT3$K_3490E = '00000302'X ! IBM 3480: compressed> PARAMETER MT3$K_3480_COMP = '00000304'X ! IBM 3490 density B PARAMETER MT3$K _3490E_COMP = '00000308'X ! IBM 3490: compressedD PARAMETER MT3$K_WOD_6250 = '00000401'X ! RV80 6250 BPI EQUIVALENT6 PARAMETER MT3$K_DAT = '00000501'X ! DAT - 61000 bpi: PARAMETER MT3$K_DAT_COMP = '00000502'X ! DAT CompressedO ! Only the Symbols to here are understood by pre-Raven TMSCP / TUDRIVER code.\ PARAMETER MT3$K_DENSITY_INVALID = '0000001F'X ! Indicates,, DEVDEPEND density is invalid.5 PARAMETER MT3$K_8200 = '00000601'X ! Exa-Byte 82005 PARAMETER MT3$K_8500 = '00000602'X  ! Exa-Byte 8500E PARAMETER MT3$K_8500_COMP = '00000604'X ! Exa-Byte 8500 CompressedE PARAMETER MT3$K_8200_COMP = '00000608'X ! Exa-Byte 8200 Compressed5 PARAMETER MT3$K_8900 = '00000610'X ! Exa-Byte 8900E PARAMETER MT3$K_8900_COMP = '00000620'X ! Exa-Byte 8900 CompressedN PARAMETER MT3$K_QIC = '00000701'X ! All QIC drives are drive settable only.G PARAMETER MT3$K_TK85 = '00000804'X ! DLT Tx85: 10625 BPI -- Cmpt IIIG PARAMETER MT3$K_TK86 = '00000808'X ! DLT Tx86: 10626 BPI  -- Cmpt IIIG PARAMETER MT3$K_TK87 = '00000810'X ! DLT Tx87: 62500 BPI -- Cmpt IIIK PARAMETER MT3$K_TK87_COMP = '00000820'X ! DLT Tx87: Compressed 62501 BPIK PARAMETER MT3$K_TK89 = '00000901'X ! DLT Tx89: (Quantum 7000) -- Cmpt IVL PARAMETER MT3$K_TK89_COMP = '00000902'X ! DLT Tx89: Compressed -- Cmpt IVK PARAMETER MT3$K_TK88 = '00000940'X ! DLT Tx88: (Quantum 4000) -- Cmpt IVL PARAMETER MT3$K_TK88_COMP = '00000980'X ! DLT Tx88: Compressed -- Cmpt IV3 PARAMETER MT3$K_DLT8000 = ' 00000E04'X ! DLT8000 B PARAMETER MT3$K_DLT8000_COMP = '00000E08'X ! DLT8000 Compressed1 PARAMETER MT3$K_SDLT = '00000E10'X ! Super DLTA PARAMETER MT3$K_SDLT_COMP = '00000E20'X ! Super DLT Compressed7 PARAMETER MT3$K_SDLT320 = '00000E40'X ! Super DLT320G PARAMETER MT3$K_SDLT320_COMP = '00000E80'X ! Super DLT320 CompressedG PARAMETER MT3$K_AIT1 = '00000A01'X ! Sony Advanced Intelligent TapesW PARAMETER MT3$K_AIT1_COMP = '00000A02'X ! Sony Advanced Intelligent Tapes Compresse d, PARAMETER MT3$K_AIT2 = '00000A04'X ! AIT2< PARAMETER MT3$K_AIT2_COMP = '00000A08'X ! AIT2 Compressed, PARAMETER MT3$K_AIT3 = '00000A10'X ! AIT3< PARAMETER MT3$K_AIT3_COMP = '00000A20'X ! AIT3 Compressed, PARAMETER MT3$K_AIT4 = '00000A40'X ! AIT4< PARAMETER MT3$K_AIT4_COMP = '00000A80'X ! AIT4 Compressed> PARAMETER MT3$K_DDS2 = '00000B01'X ! Digital Data Storage 2N PARAMETER MT3$K_DDS2_COMP = '00000B02'X ! Digital Data Storage 2 Compressed? PARAMETER MT3$K_DDS3 = '00000C01' X ! Digital Data Storage 3 P PARAMETER MT3$K_DDS3_COMP = '00000C02'X ! Digital Data Storage 3 Compressed @ PARAMETER MT3$K_DDS4 = '00000D01'X ! Digital Data Storage 4 P PARAMETER MT3$K_DDS4_COMP = '00000D02'X ! Digital Data Storage 4 Compressed 7 PARAMETER MT3$K_SDLT600 = '00000E01'X ! Super DLT600G PARAMETER MT3$K_SDLT600_COMP = '00000E02'X ! Super DLT600 Compressed2 PARAMETER MT3$K_LTO2 = '00000F01'X ! Ultrium460B PARAMETER MT3$K_LTO2_COMP = '00000F02'X ! Ultrium460 Comp ressed2 PARAMETER MT3$K_LTO3 = '00000F04'X ! Ultrium960B PARAMETER MT3$K_LTO3_COMP = '00000F08'X ! Ultrium960 Compressed ! Compression Only codes. P ! The X%FFxx codes below are layed out so that future compression enhancments 5 ! may take advantage of multiple compression types.> PARAMETER MT3$K_NO_COMP = '0000FF00'X ! All Compression OFF6 PARAMETER MT3$K_COMP = '0000FF01'X ! Compression ON!DEC$ END OPTIONS ww֜Φ!*** MODULE $MTADEF ***:!DEC$ OPTIONS/ ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +& ! MAGTAPE ACCESSIBILTY ROUTINE CODES ! - ! DEFINITIONS FOR ACCESS_SPEC D PARAMETER MTA$K_NOCHAR = '00000000'X ! ACCESS CHAR IS NOVALID A PARAMETER MTA$K_CHARVALID = '00000001'X ! ACCESS CHAR IS VALID ! DEFINITIONS FOR TYPE B PARAMETER MTA$K_INVOL1 = '00000000'X ! INPUT A VOL1 ACCESS CODEB PARAMETER MTA$K_INHDR1 = '00000001'X ! INPUT A HDR1 ACCESS CODED PARAMETER MTA$K_OUTVOL1 = '00000002'X ! OUTPUT A VOL1 ACCESS CODED P ARAMETER MTA$K_OUTHDR1 = '00000003'X ! OUTPUT A HDR1 ACCESS CODE!DEC$ END OPTIONS ww$֜Φ!*** MODULE $MTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! MAGTAPE STATUS BITS ! -% PARAMETER MT$M_SEREXCP = '00000001'X( PARAMETER MT$M_ENAUTOPACK = '00000002'X' PARAMETER MT$M_ENSEREXCP = '00000004'X$ PARAMETER MT$M_PARITY = '00000008'X$ PARAMETER MT$M_FORMAT = '000000F0'X% PARAMETER MT$M_DENSITY = '00001F00'X+ PARAMETER MT$M_FASTSKIP_USE D = '00002000'X% PARAMETER MT$M_LOGSOFT = '00004000'X' PARAMETER MT$M_LOGSOFTOG = '00008000'X! PARAMETER MT$M_BOT = '00010000'X! PARAMETER MT$M_EOF = '00020000'X! PARAMETER MT$M_EOT = '00040000'X! PARAMETER MT$M_HWL = '00080000'X" PARAMETER MT$M_LOST = '00100000'X& PARAMETER MT$M_SUP_NRZI = '00200000'X$ PARAMETER MT$M_SUP_PE = '00400000'X% PARAMETER MT$M_SUP_GCR = '00800000'X# PARAMETER MT$M_SPEED = 'FF000000'X9 PARAMETER MT$K_DEFAULT = '00000000'X ! DEFAULT FORMAT 9 PARAMETER MT$K_NORMAL11 = '0000000C'X ! PDP-11 NORMAL < PARAMETER MT$K_CORDMP11 = '0000000D'X ! PDP-11 CORE DUMP 9 PARAMETER MT$K_NORMAL15 = '0000000E'X ! PDP-15 NORMAL  ! 8 PARAMETER MT$K_NRZI_800 = '00000003'X ! NRZI 800 BPI 6 PARAMETER MT$K_PE_1600 = '00000004'X ! PE 1600 BPI 8 PARAMETER MT$K_GCR_6250 = '00000005'X ! GCR 6250 BPI C PARAMETER MT$K_WOD_6250 = '00000008'X ! RV80 6250 BPI EQUIVALENTF PARAMETER MT$K_SCSI_DC1 = '0000000A'X ! Data Compaction algorithm 17 PARAMETER MT$ K_HPC_40K = '0000000C'X ! HPC 39872 BPI> PARAMETER MT$K_HPC_COMP = '0000000D'X ! HPC 39872 compacted* PARAMETER MT$K_XPC_80K = '0000000E'X ! + PARAMETER MT$K_XPC_COMP = '0000000F'X ! > PARAMETER MT$K_BLK_833 = '00000011'X ! BLOCK (TK50) 833 BPI@ PARAMETER MT$K_BLK_1250 = '00000012'X ! BLOCK (TK70) 1250 BPI@ PARAMETER MT$K_BLK_10K = '00000013'X ! BLOCK (TF85) 10625 BPI< PARAMETER MT$K_BLK_20K = '00000014'X ! BLOCK (TF86) 10626< PARAMETER MT$K_BLK_60K = '00000015'X ! BLOCK (T x87) 62500H PARAMETER MT$K_BLK_COMP = '00000016'X ! BLOCK (Tx87) COMPRESSED 62501L PARAMETER MT$K_DAT_61K = '00000018'X ! DAT CARTRIDGE 61000 BPI EQUIVALENT ! 9 PARAMETER MT$K_SPEED_DEF = '00000000'X ! DEFAULT SPEED1 PARAMETER MT$K_SPEED_25 = '00000019'X ! 25 IPS1 PARAMETER MT$K_SPEED_75 = '0000004B'X ! 75 IPS STRUCTURE /MTDEF/ UNION MAP# PARAMETER MT$S_SEREXCP = 1B PARAMETER MT$V_SEREXCP = 0 ! SERIOUS EXCEPTION PRESENT& PARAMETER MT$S_ENAU TOPACK = 1? PARAMETER MT$V_ENAUTOPACK = 1 ! ENABLE AUTO PACKACK% PARAMETER MT$S_ENSEREXCP = 1H PARAMETER MT$V_ENSEREXCP = 2 ! ENABLE SERIOUS EXCEPTION MODE" PARAMETER MT$S_PARITY = 1F PARAMETER MT$V_PARITY = 3 ! PARITY SELECT (0=ODD, 1=EVEN) " PARAMETER MT$S_FORMAT = 49 PARAMETER MT$V_FORMAT = 4 ! RECORDING FORMAT # PARAMETER MT$S_DENSITY = 5F PARAMETER MT$V_DENSITY = 8 ! RECORDING DENSITY AND METHOD ) PARAMETER MT$S_FASTSKIP_USED = 1R PARAMETER MT$V_FASTSKIP_USED = 13 ! IO$_SKIPFILE USED SKIP BY FILEMARKS# PARAMETER MT$S_LOGSOFT = 1O PARAMETER MT$V_LOGSOFT = 14 ! LOG SOFT (TU78) ERRORS (0=NO, 1=YES) % PARAMETER MT$S_LOGSOFTOG = 1P PARAMETER MT$V_LOGSOFTOG = 15 ! TOGGLE TO REVERSE LOGSOFT STATE BIT  PARAMETER MT$S_BOT = 1< PARAMETER MT$V_BOT = 16 ! AT BEGINNING OF TAPE  PARAMETER MT$S_EOF = 16 PARAMETER MT$V_EOF = 17 ! AT END OF FILE  PARAMETER MT$S_EOT = 16 PARAMETER MT$V_EOT = 18 ! AT END OF TAPE  PARAMETER MT$S_HWL = 1D PARAMETER MT$V_HWL = 19 ! TAPE IS HARDWARE WRITELOCKED PARAMETER MT$S_LOST = 1: PARAMETER MT$V_LOST = 20 ! TAPE POSITION LOST $ PARAMETER MT$S_SUP_NRZI = 1H PARAMETER MT$V_SUP_NRZI = 21 ! DRIVE SUPPORTS NRZI (800 BPI)" PARAMETER MT$S_SUP_PE = 1E PARAMETER M T$V_SUP_PE = 22 ! DRIVE SUPPORTS PE (1600 BPI)# PARAMETER MT$S_SUP_GCR = 1G PARAMETER MT$V_SUP_GCR = 23 ! DRIVE SUPPORTS GCR (6250 BPI)! PARAMETER MT$S_SPEED = 8" PARAMETER MT$V_SPEED = 24) BYTE %FILL (4) ! TAPE SPEED END MAP !  ! RECORDING FORMAT DEFINTIONS !  ! , ! RECORDING DENSITY AND METHOD DEFINITIONS !  ! Default 0 ! 9 Track 1 - 7 ! Optical Disk 8 - 9" ! SCSI Compaction codes 10 - 11& ! High Performance Cartridge 12 - 15 ! Block Mode 16 - 23 ! Reserved 24 - 31 !  ! N ! DEFAULT,0 /* DEFAULT DENSITY (SAME AS ABOVE) ! TAPE SPEED VALUE DEFINITIONS ! END UNION END STRUCTURE ! MTDEF!DEC$ END OPTIONS ww>7Φ!*** MODULE $MTHDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.33 ! 4 ! DEC/CMS REPLACE MENT HISTORY, ELEMENT MTHMSG.MSGU ! 2H1 27-MAY-1986 11:12:01 GAMACHE "Create new SMP thread from V5.0_BL2 modules"Y ! 2E1 3-APR-1986 20:55:46 HOLSTEIN "Create new Exec Reorg thread from V4.4 modules"R ! 2F1 18-MAR-1986 20:31:28 HOLSTEIN "Create new SMP thread from V4.4 modules"X ! 2D1 17-DEC-1985 09:08:44 FIORELLI "Create new exec reorg thread from BL7 modules"Q ! *2 3-SEP-1985 15:59:52 MAILMAN "extend transfer vector; add mth$_notimp"? ! 1A1 20-JUL-1985 14:44:33 SY STEMBUILD "Initial SMP entry"J ! *1 18-JUN-1985 03:36:07 SYSTEMBUILD "Initial entry of V4.0 source"4 ! DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG# ! FILE: MTHMSG.MSG EDIT: JCW2004 !  ! * *6 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITME NT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! N ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM MTHMSG.MDL% ! VERSION 1-004. SBL 22-APR-1981( ! 2-002 - ADD .TITLE. SBL 28-AUG-1982- ! 2-003 - ADD MTH$_NOTIMP. SMM 03-SEP-19857 ! 2- 004 - ADDED VECTOR MATH MESSAGES. JCW 24-FEB-88. ! +@ ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! MTH$_ABCMNOXYZ ! M ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",O ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR4 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! N ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR8 ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEF INITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: ! ! $MTHDEF ! > ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.8 ! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).9 ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL;A ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! -3 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE* ! ; SET LH TO 22 (DECIMAL) MTH$ PREFIX& PARAMETER MTH$_FACILITY = '00000016'X' PARAMETER MTH $_WRONUMARG = '00168284'X' PARAMETER MTH$_INVARGMAT = '0016828C'X$ PARAMETER MTH$_UNDEXP = '00168294'X' PARAMETER MTH$_LOGZERNEG = '0016829C'X' PARAMETER MTH$_SQUROONEG = '001682A4'X3 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE* ! ; SET LH TO 22 (DECIMAL) MTH$ PREFIX' PARAMETER MTH$_SIGLOSMAT = '001682BC'X' PARAMETER MTH$_FLOOVEMAT = '001682C4'X' PARAMETER MTH$_FLOUNDMAT = '001682CC'X$ PARAMETER MTH$_NOTIMP = '001682D4'X ! MTH$NOT_IMPLEMENTED+ PARAMETER MTH$_VEC_INVARG MAT = '001682DC'X( PARAMETER MTH$_VEC_UNDEXP = '001682E4'X+ PARAMETER MTH$_VEC_LOGZERNEG = '001682EC'X+ PARAMETER MTH$_VEC_SQUROONEG = '001682F4'X+ PARAMETER MTH$_VEC_FLOOVEMAT = '001682FC'X+ PARAMETER MTH$_VEC_FLOUNDMAT = '00168304'X' PARAMETER MTH$_SINCOSSIG = '001682BC'X!DEC$ END OPTIONSww]󑐁Φ!*** MODULE $NAMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ( ! name block field definitions ! 2 ! the nam block is used to co mmunicate optional! ! filename-related information ! 9 PARAMETER NAM$C_BID = '00000002'X ! code for nam blockV PARAMETER NAM$C_MAXRSS = '000000FF'X ! maximum resultant name string size (network)W PARAMETER NAM$C_MAXRSSLCL = '000000FF'X ! maximum resultant name string size (local)" PARAMETER NAM$M_PWD = '00000001'X% PARAMETER NAM$M_FILL_1 = '00000002'X% PARAMETER NAM$M_FILL_2 = '00000004'X% PARAMETER NAM$M_SYNCHK = '00000008'X( PARAMETER NAM$M_NOCONCEAL = '00000010'X& PARAMET ER NAM$M_SLPARSE = '00000020'X' PARAMETER NAM$M_SRCHXABS = '00000040'X. PARAMETER NAM$M_NO_SHORT_UPCASE = '00000080'XT PARAMETER NAM$C_UFS = '00000000'X ! Unknown file system for remote file access or, ! not applicable for local file access orA PARAMETER NAM$C_NO_RFS = '00000000'X ! task-to-task operation/ PARAMETER NAM$C_RMS11 = '00000001'X ! RMS-11/ PARAMETER NAM$C_RMS20 = '00000002'X ! RMS-20/ PARAMETER NAM$C_RMS32 = '00000003'X ! RMS-32/ PARAMETER NAM$C_FCS11 = '00000004 'X ! FCS-11; PARAMETER NAM$C_RT11FS = '00000005'X ! RT-11 file system? PARAMETER NAM$C_TOPS20FS = '00000007'X ! TOPS-20 file system? PARAMETER NAM$C_TOPS10FS = '00000008'X ! TOPS-10 file systemG PARAMETER NAM$C_RMS32S = '0000000A'X ! RMS-32 subset (e.g., VAXELAN)9 PARAMETER NAM$C_CPMFS = '0000000B'X ! CP/M file system> PARAMETER NAM$C_MS_DOSFS = '0000000C'X ! MS/DOS file systemD PARAMETER NAM$C_ULTRIX32_FS = '0000000D'X ! Ultrix-32 file systemD PARAMETER NAM$C_ULTRIX11_FS = '0000000E'X ! Ultrix-11 file systemA PARAMETER DAP$K_SNADTF_FS = '0000000F'X ! SNADTF compatable FS ! +++++++++++++++++++++++: PARAMETER NAM$C_DVI = '00000010'X ! length of dvi field ! +++++*****" PARAMETER NAM$M_IFI = '00010000'X& PARAMETER NAM$M_SRCHNMF = '40000000'X$ PARAMETER NAM$M_SVCTX = '80000000'XE PARAMETER NAM$K_BLN_V2 = '00000038'X ! Version 2 name block lengthE PARAMETER NAM$C_BLN_V2 = '00000038'X ! Version 2 name block length& PARAMETER NAM$M_EXP_VER = '000000 01'X' PARAMETER NAM$M_EXP_TYPE = '00000002'X' PARAMETER NAM$M_EXP_NAME = '00000004'X' PARAMETER NAM$M_WILD_VER = '00000008'X( PARAMETER NAM$M_WILD_TYPE = '00000010'X( PARAMETER NAM$M_WILD_NAME = '00000020'X& PARAMETER NAM$M_EXP_DIR = '00000040'X& PARAMETER NAM$M_EXP_DEV = '00000080'X' PARAMETER NAM$M_WILDCARD = '00000100'X* PARAMETER NAM$M_DIR_LVLS_G7 = '00000200'X) PARAMETER NAM$M_WILD_SFDG7 = '00000400'X* PARAMETER NAM$M_SEARCH_LIST = '00000800'X' PARAMETER NAM$M_CNCL_DEV = '0000100 0'X' PARAMETER NAM$M_ROOT_DIR = '00002000'X% PARAMETER NAM$M_LOWVER = '00004000'X& PARAMETER NAM$M_HIGHVER = '00008000'X" PARAMETER NAM$M_PPF = '00010000'X# PARAMETER NAM$M_NODE = '00020000'X% PARAMETER NAM$M_QUOTED = '00040000'X& PARAMETER NAM$M_GRP_MBR = '00080000'X' PARAMETER NAM$M_WILD_DIR = '00100000'X' PARAMETER NAM$M_DIR_LVLS = '00E00000'X' PARAMETER NAM$M_WILD_UFD = '01000000'X( PARAMETER NAM$M_WILD_SFD1 = '02000000'X( PARAMETER NAM$M_WILD_SFD2 = '04000000'X( PARAMETER NAM $M_WILD_SFD3 = '08000000'X( PARAMETER NAM$M_WILD_SFD4 = '10000000'X( PARAMETER NAM$M_WILD_SFD5 = '20000000'X( PARAMETER NAM$M_WILD_SFD6 = '40000000'X( PARAMETER NAM$M_WILD_SFD7 = '80000000'X' PARAMETER NAM$M_WILD_GRP = '01000000'X' PARAMETER NAM$M_WILD_MBR = '02000000'X" PARAMETER NAM$M_DID = '00000001'X" PARAMETER NAM$M_FID = '00000002'X& PARAMETER NAM$M_RES_DID = '00000004'X& PARAMETER NAM$M_RES_FID = '00000008'X) PARAMETER NAM$M_RES_ESCAPE = '00000010'X* PARAMETER NAM$M_RES_UNICODE = '00000020'X STRUCTURE /NAMDEF/' BYTE NAM$B_BID ! block id+ BYTE NAM$B_BLN ! block length ! +++++++++++++++++++++++I ! the following 3 fields must not be rearranged relative to each other ! 9 BYTE NAM$B_RSS ! resultant string area size6 BYTE NAM$B_RSL ! resultant string length< INTEGER*4 NAM$L_RSA ! resultant string area address ! ----------------------- UNION MAP/ BYTE NAM$B_NOP ! Name options END MAP MAP$ PARAMETER NAM$S_PWD = 1` PARAMETER NAM$V_PWD = 0 ! Return password if present in nodespec string and any6 ! other task-specific data of the form /netacp_data"7 ! (default is to mask out password from expanded and8 ! resultant name strings and to create a logical name8 ! whose equivalence string is the unaltered nodespec)' PARAMETER NAM$S_FILL_1 = 1S PARAMETER NAM$V_FILL_1 = 1 ! unused. (u sed to be undocumented ROD)' PARAMETER NAM$S_FILL_2 = 1S PARAMETER NAM$V_FILL_2 = 2 ! unused. (used to be undocumented SOD)' PARAMETER NAM$S_SYNCHK = 1U PARAMETER NAM$V_SYNCHK = 3 ! Only do syntax check on $parse operation* PARAMETER NAM$S_NOCONCEAL = 1T PARAMETER NAM$V_NOCONCEAL = 4 ! Do not conceal device/root directory( PARAMETER NAM$S_SLPARSE = 1c PARAMETER NAM$V_SLPARSE = 5 ! Parse search list (not documented) -- used by BACKUP.) PARAMETER NAM$S_SRCHXABS = 1c PARAMETER NAM$V_SRCHXABS = 6 ! Fill in attached XABS on $SEARCH operations over the3 ! network (not documented) -- used by directory.0 PARAMETER NAM$S_NO_SHORT_UPCASE = 10 PARAMETER NAM$V_NO_SHORT_UPCASE = 77 BYTE %FILL (1) ! Don't upcase the ESA END MAP END UNIONQ BYTE NAM$B_RFS ! Remote file system type (cu rrently not documented)3 ! Note: This field is reserved for use by DigitalI ! the following 3 fields must not be rearranged relative to each other ! 8 BYTE NAM$B_ESS ! expanded string area size5 BYTE NAM$B_ESL ! expanded string length; INTEGER*4 NAM$L_ESA ! expanded string area address ! ----------------------- UNION MAP> INTEGER*4 NAM$L_RLF ! related file nam block addr END MAP MAPD INTEGER*4 NAM$L_RLF_NAML ! related file naml block addr  END MAP END UNION+ CHARACTER*16 NAM$T_DVI ! device id2 ! the location of the following fields must not5 ! be changed due to their commonality with the fib UNION MAP. INTEGER*2 NAM$W_FID(1:3) ! file id END MAP MAP6 INTEGER*2 NAM$W_FID_NUM ! file number: INTEGER*2 NAM$W_FID_SEQ ! sequence number UNION MAPE  INTEGER*2 NAM$W_FID_RVN ! relative volume number END MAP MAPG BYTE NAM$B_FID_RVN ! alternate format RVNY BYTE NAM$B_FID_NMX ! alternate format file number extension END MAP END UNION END MAP END UNION UNION MAP3 INTEGER*2 NAM$W_DID(1:3) ! directory id END MAP MAP6 INTEGER*2 NAM $W_DID_NUM ! file number: INTEGER*2 NAM$W_DID_SEQ ! sequence number UNION MAPE INTEGER*2 NAM$W_DID_RVN ! relative volume number END MAP MAPG BYTE NAM$B_DID_RVN ! alternate format RVNY BYTE NAM$B_DID_NMX ! alternate format file number extension END MAP END UNION END MAP END UNION UNION MAP4 INTEGER*4 NAM$L_WCC ! wild card context END MAP MAP$ PARAMETER NAM$S_IFI = 1I PARAMETER NAM$V_IFI = 16 ! the first word contains an IFI( PARAMETER NAM$S_SRCHNMF = 1] PARAMETER NAM$V_SRCHNMF = 30 ! no-more-files has been encountered on a search& PARAMETER NAM$S_SVCTX = 1' PARAMETER NAM$V_SVCTX = 31C BYTE %FILL (1) ! save context across search ca lls END MAP END UNION UNION MAP8 INTEGER*4 NAM$L_FNB ! file name status bits END MAP MAP( PARAMETER NAM$S_EXP_VER = 1B PARAMETER NAM$V_EXP_VER = 0 ! version was explicit) PARAMETER NAM$S_EXP_TYPE = 1@ PARAMETER NAM$V_EXP_TYPE = 1 ! type was explicit) PARAMETER NAM$S_EXP_NAME = 1@ PARAMETER NAM$V_EXP_NAME = 2 ! name was explicit) PARAMET ER NAM$S_WILD_VER = 1L PARAMETER NAM$V_WILD_VER = 3 ! version contained a wild card* PARAMETER NAM$S_WILD_TYPE = 1J PARAMETER NAM$V_WILD_TYPE = 4 ! type contained a wild card* PARAMETER NAM$S_WILD_NAME = 1J PARAMETER NAM$V_WILD_NAME = 5 ! name contained a wild card( PARAMETER NAM$S_EXP_DIR = 1D PARAMETER NAM$V_EXP_DIR = 6 ! directory was explicit( PARAMETER NAM$S_EXP_DEV = 1A PARAMETER NAM$V_EXP_DEV = 7 ! device was explicit) PARAMETER NAM$S_WILDCARD = 1S PARAMETER NAM$V_WILDCARD = 8 ! filename string included a wild card* ! (inclusive or of other wild card bits), PARAMETER NAM$S_DIR_LVLS_G7 = 1K PARAMETER NAM$V_DIR_LVLS_G7 = 9 ! Dir levels greater than 7+ PARAMETER NAM$S_WILD_SFDG7 = 1X PARAMETER NAM$V_WILD_SFDG7 = 10 ! A subdir greater than 7 has a wildcard, P ARAMETER NAM$S_SEARCH_LIST = 1E PARAMETER NAM$V_SEARCH_LIST = 11 ! search list present) PARAMETER NAM$S_CNCL_DEV = 1H PARAMETER NAM$V_CNCL_DEV = 12 ! concealed device present) PARAMETER NAM$S_ROOT_DIR = 1F PARAMETER NAM$V_ROOT_DIR = 13 ! root directory present' PARAMETER NAM$S_LOWVER = 1X PARAMETER NAM$V_LOWVER = 14 ! lower numbered version(s) of file exist(s)( PARAMETER NAM$S_HIGHVER = 17 PARAMETER NAM$V_HIGHVER = 15 ! higher " ! $ PARAMETER NAM$S_PPF = 1W PARAMETER NAM$V_PPF = 16 ! process-permanent file referenced indirectly% PARAMETER NAM$S_NODE = 1V PARAMETER NAM$V_NODE = 17 ! filename specification included a nodename' PARAMETER NAM$S_QUOTED = 1T PARAMETER NAM$V_QUOTED = 18 ! filename spec included a quoted string( PARAMETER NAM$S_GRP_MBR = 1X PARAMETER NAM$V_GRP_MBR = 19 ! directory spec was of group-member format) PARAMETER NAM$S_WILD_DIR = 1S PARAMETER NAM$V_WILD_DIR = 20 ! directory spec included a wild card) PARAMETER NAM$S_DIR_LVLS = 3* PARAMETER NAM$V_DIR_LVLS = 21J BYTE %FILL (3) ! number of directory levels (0=ufd only) END MAP MAP) PARAMETER NAM$S_WILD_UFD = 1H PARAMETER NAM$V_WILD_UFD = 24 ! ufd incl uded a wild card* PARAMETER NAM$S_WILD_SFD1 = 1J PARAMETER NAM$V_WILD_SFD1 = 25 ! sfd1 included a wild card* PARAMETER NAM$S_WILD_SFD2 = 1J PARAMETER NAM$V_WILD_SFD2 = 26 ! sfd2 included a wild card* PARAMETER NAM$S_WILD_SFD3 = 1J PARAMETER NAM$V_WILD_SFD3 = 27 ! sfd3 included a wild card* PARAMETER NAM$S_WILD_SFD4 = 1J PARAMETER NAM$V_WILD_SFD4 = 28 ! sfd4 included a wild card* PARAMETER NAM$S_WILD_SFD5 = 1J PARAMETER NAM$V_WILD_SFD5 = 29 ! sfd5 included a wild card* PARAMETER NAM$S_WILD_SFD6 = 1J PARAMETER NAM$V_WILD_SFD6 = 30 ! sfd6 included a wild card* PARAMETER NAM$S_WILD_SFD7 = 1+ PARAMETER NAM$V_WILD_SFD7 = 31< BYTE %FILL (1) ! sfd7 included a wild card END MAP MAP) PARAMETER NAM$S_WILD_GRP = 1K PARAMETER NAM$V_WILD_GRP = 24 ! group contained a wild card) PARAMETER NAM$S_WILD_MBR = 1L PARAMETER NAM$V_WILD_MBR = 25 ! member contained a wild card BYTE %FILL (1) END MAP ! -----***** ! (prior to 40 byte extension) ! % ! Extend the NAM block by 40 bytes. !  END UNION/ BYTE NAM$B_NODE ! Nodespec length, BYTE NAM$B_DEV ! Device length/ BYTE NAM$B_DIR ! Directory length/ BYTE NAM$B_NAME ! Filename len gth/ BYTE NAM$B_TYPE ! Filetype length4 BYTE NAM$B_VER ! Version number length UNION MAP BYTE NAM$B_NMC END MAP MAP$ PARAMETER NAM$S_DID = 1@ PARAMETER NAM$V_DID = 0 ! Input file spec DIDed$ PARAMETER NAM$S_FID = 1@ PARAMETER NAM$V_FID = 1 ! Input file spec FIDed( PARAMETER NAM$S_RES_DID = 1M PARAMETER NAM$V_RES_DID = 2 ! Result or Ex p string spec DIDed( PARAMETER NAM$S_RES_FID = 1M PARAMETER NAM$V_RES_FID = 3 ! Result or Exp string spec FIDed+ PARAMETER NAM$S_RES_ESCAPE = 1R PARAMETER NAM$V_RES_ESCAPE = 4 ! Result or Exp string spec has "^", PARAMETER NAM$S_RES_UNICODE = 1W PARAMETER NAM$V_RES_UNICODE = 5 ! Result or Exp string spec contains ^U BYTE %FILL (1) END MAP END UNION0 BYTE %FILL(1:1) ! Curr ently unused0 INTEGER*4 NAM$L_NODE ! Nodespec address- INTEGER*4 NAM$L_DEV ! Device address0 INTEGER*4 NAM$L_DIR ! Directory address0 INTEGER*4 NAM$L_NAME ! Filename address0 INTEGER*4 NAM$L_TYPE ! Filetype address5 INTEGER*4 NAM$L_VER ! Version number addressK INTEGER*2 NAM$W_FIRST_WILD_DIR ! First wild directory in related namD INTEGER*2 NAM$W_LONG_DIR_LEVELS ! Total number of directories0 INTEGER*4 %FILL(1:1) ! Currentl y unused END STRUCTURE ! NAMDEF> ! basealign on aggregate NAMDEF operates after aggregate endK PARAMETER NAM$K_BLN_DIRWC = '00000060'X ! Not documented optional lengthK PARAMETER NAM$C_BLN_DIRWC = '00000060'X ! Not documented optional length8 PARAMETER NAM$K_BLN = '00000060'X ! Name block length8 PARAMETER NAM$C_BLN = '00000060'X ! Name block length ! Start NAML here ! ( ! name block field definitions ! 5 ! The naml block is an extended version of the NAM8 ! block used to communicate optional filename-related6 ! information. It differs from the NAM in that it ; ! includes a default name and a file name field and that8 ! these as well as the result and expanded file names9 ! have 32-bit length fields (though the top 16 bits is< ! required to be 0, limiting the length to 65535). There. ! are also some additional flags available. ! @ ! In order for RMS to recognize this block as a NAML, it must5 ! have NAML$B_BLN set to NAML $C_BLN, and must have" ! NAML$B_BID set to NAML$C_BID. ! ; PARAMETER NAML$C_BID = '00000004'X ! code for naml block ! (Same as nam)N PARAMETER NAML$C_MAXRSS = '00000FFF'X ! maximum resultant name string size # PARAMETER NAML$M_PWD = '00000001'X& PARAMETER NAML$M_FILL_1 = '00000002'X& PARAMETER NAML$M_FILL_2 = '00000004'X& PARAMETER NAML$M_SYNCHK = '00000008'X) PARAMETER NAML$M_NOCONCEAL = '00000010'X' PARAMETER NAML$M_SLPARSE = '00000020'X( PARAMETER NAML$M_SRCHXABS = '0000 0040'X/ PARAMETER NAML$M_NO_SHORT_UPCASE = '00000080'XU PARAMETER NAML$C_UFS = '00000000'X ! Unknown file system for remote file access or, ! not applicable for local file access orB PARAMETER NAML$C_NO_RFS = '00000000'X ! task-to-task operation0 PARAMETER NAML$C_RMS11 = '00000001'X ! RMS-110 PARAMETER NAML$C_RMS20 = '00000002'X ! RMS-200 PARAMETER NAML$C_RMS32 = '00000003'X ! RMS-320 PARAMETER NAML$C_FCS11 = '00000004'X ! FCS-11< PARAMETER NAML$C_RT11FS = '00000005'X ! RT- 11 file system@ PARAMETER NAML$C_TOPS20FS = '00000007'X ! TOPS-20 file system@ PARAMETER NAML$C_TOPS10FS = '00000008'X ! TOPS-10 file systemH PARAMETER NAML$C_RMS32S = '0000000A'X ! RMS-32 subset (e.g., VAXELAN): PARAMETER NAML$C_CPMFS = '0000000B'X ! CP/M file system? PARAMETER NAML$C_MS_DOSFS = '0000000C'X ! MS/DOS file systemE PARAMETER NAML$C_ULTRIX32_FS = '0000000D'X ! Ultrix-32 file systemE PARAMETER NAML$C_ULTRIX11_FS = '0000000E'X ! Ultrix-11 file system ! +++++++++++ ++++++++++++; PARAMETER NAML$C_DVI = '00000010'X ! length of dvi field ! +++++*****# PARAMETER NAML$M_IFI = '00010000'X' PARAMETER NAML$M_SRCHNMF = '40000000'X% PARAMETER NAML$M_SVCTX = '80000000'XF PARAMETER NAML$K_BLN_V2 = '00000038'X ! Version 2 name block lengthF PARAMETER NAML$C_BLN_V2 = '00000038'X ! Version 2 name block length' PARAMETER NAML$M_EXP_VER = '00000001'X( PARAMETER NAML$M_EXP_TYPE = '00000002'X( PARAMETER NAML$M_EXP_NAME = '00000004'X( PARAMETER NAML$M_WILD_V ER = '00000008'X) PARAMETER NAML$M_WILD_TYPE = '00000010'X) PARAMETER NAML$M_WILD_NAME = '00000020'X' PARAMETER NAML$M_EXP_DIR = '00000040'X' PARAMETER NAML$M_EXP_DEV = '00000080'X( PARAMETER NAML$M_WILDCARD = '00000100'X+ PARAMETER NAML$M_DIR_LVLS_G7 = '00000200'X* PARAMETER NAML$M_WILD_SFDG7 = '00000400'X+ PARAMETER NAML$M_SEARCH_LIST = '00000800'X( PARAMETER NAML$M_CNCL_DEV = '00001000'X( PARAMETER NAML$M_ROOT_DIR = '00002000'X& PARAMETER NAML$M_LOWVER = '00004000'X' PARAMETER NAM L$M_HIGHVER = '00008000'X# PARAMETER NAML$M_PPF = '00010000'X$ PARAMETER NAML$M_NODE = '00020000'X& PARAMETER NAML$M_QUOTED = '00040000'X' PARAMETER NAML$M_GRP_MBR = '00080000'X( PARAMETER NAML$M_WILD_DIR = '00100000'X( PARAMETER NAML$M_DIR_LVLS = '00E00000'X( PARAMETER NAML$M_WILD_UFD = '01000000'X) PARAMETER NAML$M_WILD_SFD1 = '02000000'X) PARAMETER NAML$M_WILD_SFD2 = '04000000'X) PARAMETER NAML$M_WILD_SFD3 = '08000000'X) PARAMETER NAML$M_WILD_SFD4 = '10000000'X) PARAMETER NAML$M_ WILD_SFD5 = '20000000'X) PARAMETER NAML$M_WILD_SFD6 = '40000000'X) PARAMETER NAML$M_WILD_SFD7 = '80000000'X( PARAMETER NAML$M_WILD_GRP = '01000000'X( PARAMETER NAML$M_WILD_MBR = '02000000'X# PARAMETER NAML$M_DID = '00000001'X# PARAMETER NAML$M_FID = '00000002'X' PARAMETER NAML$M_RES_DID = '00000004'X' PARAMETER NAML$M_RES_FID = '00000008'X* PARAMETER NAML$M_RES_ESCAPE = '00000010'X+ PARAMETER NAML$M_RES_UNICODE = '00000020'X2 PARAMETER NAML$M_LONG_RESULT_ESCAPE = '00000001'X1 PARAM ETER NAML$M_FILESYS_NAME_UCS2 = '00000002'X/ PARAMETER NAML$M_LONG_RESULT_DID = '00000004'X/ PARAMETER NAML$M_LONG_RESULT_FID = '00000008'X3 PARAMETER NAML$M_LONG_RESULT_UNICODE = '00000010'X* PARAMETER NAML$M_MP_IN_PATH = '00000020'X. PARAMETER NAML$M_SYMLNK_IN_PATH = '00000040'X. PARAMETER NAML$M_OBJECT_SYMLINK = '00000080'X, PARAMETER NAML$M_IS_DIRECTORY = '00000100'X/ PARAMETER NAML$M_NO_SHORT_OUTPUT = '00000001'X@ PARAMETER NAML$C_CASE_LOOKUP_BLIND = '00000002'X ! case blindH PAR AMETER NAML$C_CASE_LOOKUP_SENSITIVE = '00000003'X ! case sensitive, PARAMETER NAML$M_OPEN_SPECIAL = '00000008'X. PARAMETER NAML$M_SEARCH_SYMLINK = '00000010'X STRUCTURE /NAMLDEF/( BYTE NAML$B_BID ! block id, BYTE NAML$B_BLN ! block length ! +++++++++++++++++++++++I ! the following 3 fields must not be rearranged relative to each other ! : BYTE NAML$B_RSS ! resultant string area size7 BYTE NAML$B_RSL ! resultant string length= INTEGER*4 NAML$L_RSA ! resultant string area address ! ----------------------- UNION MAP0 BYTE NAML$B_NOP ! Name options END MAP MAP% PARAMETER NAML$S_PWD = 1` PARAMETER NAML$V_PWD = 0 ! Return password if present in nodespec string and any6 ! other task-specific data of the form /netacp_data"7 ! (default is to mask out password from expanded and8 ! resultant name strings and to create a logical name8 ! whose equivalence string is the unaltered nodespec)( PARAMETER NAML$S_FILL_1 = 1T PARAMETER NAML$V_FILL_1 = 1 ! unused. (used to be undocumented ROD)( PARAMETER NAML$S_FILL_2 = 1T PARAMETER NAML$V_FILL_2 = 2 ! unused. (used to be undocumented SOD)( PARAMETER NAML$S_SYNCHK = 1V PARAMETER NAML$V_SYNCHK = 3 ! Only do syntax check on $parse operation+ PARAMETER NAML$S_NOCONCEAL = 1U PAR AMETER NAML$V_NOCONCEAL = 4 ! Do not conceal device/root directory) PARAMETER NAML$S_SLPARSE = 1d PARAMETER NAML$V_SLPARSE = 5 ! Parse search list (not documented) -- used by BACKUP.* PARAMETER NAML$S_SRCHXABS = 1d PARAMETER NAML$V_SRCHXABS = 6 ! Fill in attached XABS on $SEARCH operations over the3 ! network (not documented) -- used by directory.1 PARAMETER NAML$S_NO_SHORT_UPCASE = 11 PARAMETER NAML$V_NO_SHO RT_UPCASE = 77 BYTE %FILL (1) ! Don't upcase the ESA END MAP END UNIONR BYTE NAML$B_RFS ! Remote file system type (currently not documented)3 ! Note: This field is reserved for use by DigitalI ! the following 3 fields must not be rearranged relative to each other ! 9 BYTE NAML$B_ESS ! espanded string area size6 BYTE NAML$B_ESL ! expanded string length< INTEGER*4 NAML$L_ESA ! expanded string area address ! ----------------------- UNION MAP? INTEGER*4 NAML$L_RLF ! related file nam block addr END MAP MAPE INTEGER*4 NAML$L_RLF_NAML ! related file naml block addr  END MAP END UNION, CHARACTER*16 NAML$T_DVI ! device id2 ! the location of the following fields must not5 ! be changed due to their commonality with the fib UNION MAP/ INTEGER*2 NAML$W_FID(1:3) ! file id END MAP MAP6 INTEGER*2 NAML$W_FID_NUM ! file number: INTEGER*2 NAML$W_FID_SEQ ! sequence number UNION MAPE INTEGER*2 NAML$W_FID_RVN ! relative volume number END MAP MAPG BYTE NAML$B_FID_RVN ! alternate format RVNY BYTE NAML$B_FID_NMX ! alternate format file number extension END MAP END UNION  END MAP END UNION UNION MAP4 INTEGER*2 NAML$W_DID(1:3) ! directory id END MAP MAP6 INTEGER*2 NAML$W_DID_NUM ! file number: INTEGER*2 NAML$W_DID_SEQ ! sequence number UNION MAPE INTEGER*2 NAML$W_DID_RVN ! relative volume number END MAP MAPG BYTE NAML$B_DID_RVN ! alternate format RVNY  BYTE NAML$B_DID_NMX ! alternate format file number extension END MAP END UNION END MAP END UNION UNION MAP5 INTEGER*4 NAML$L_WCC ! wild card context END MAP MAP% PARAMETER NAML$S_IFI = 1J PARAMETER NAML$V_IFI = 16 ! the first word contains an IFI) PARAMETER NAML$S_SRCHNMF = 1^ PARAMETER NAML$V_SRCHNMF = 30 ! no-more-files  has been encountered on a search' PARAMETER NAML$S_SVCTX = 1( PARAMETER NAML$V_SVCTX = 31C BYTE %FILL (1) ! save context across search calls END MAP END UNION UNION MAP9 INTEGER*4 NAML$L_FNB ! file name status bits END MAP MAP) PARAMETER NAML$S_EXP_VER = 1C PARAMETER NAML$V_EXP_VER = 0 ! version was explicit* PARAMETER NAML$S_EXP_TYPE = 1A PARAMETER NAML$V_EXP_TYPE = 1 ! type was explicit* PARAMETER NAML$S_EXP_NAME = 1A PARAMETER NAML$V_EXP_NAME = 2 ! name was explicit* PARAMETER NAML$S_WILD_VER = 1M PARAMETER NAML$V_WILD_VER = 3 ! version contained a wild card+ PARAMETER NAML$S_WILD_TYPE = 1K PARAMETER NAML$V_WILD_TYPE = 4 ! type contained a wild card+ PARAMETER NAML$S_WILD_NAME = 1K PARAMETER NAML$V_WILD_NAME = 5 ! name contained a wild card) PARAMETER NAML$S_EXP_DIR = 1E PARAMETER NAML$V_EXP_DIR = 6 ! directory was explicit) PARAMETER NAML$S_EXP_DEV = 1B PARAMETER NAML$V_EXP_DEV = 7 ! device was explicit* PARAMETER NAML$S_WILDCARD = 1T PARAMETER NAML$V_WILDCARD = 8 ! filename string included a wild card* ! (inclusive or of other wild card bits)- PARAMETER NAML$S_DIR_LVLS_G7 = 1K PARAM ETER NAML$V_DIR_LVLS_G7 = 9 ! Dir levels greater than 7, PARAMETER NAML$S_WILD_SFDG7 = 1X PARAMETER NAML$V_WILD_SFDG7 = 10 ! A subdir greater than 7 has a wildcard- PARAMETER NAML$S_SEARCH_LIST = 1F PARAMETER NAML$V_SEARCH_LIST = 11 ! search list present* PARAMETER NAML$S_CNCL_DEV = 1I PARAMETER NAML$V_CNCL_DEV = 12 ! concealed device present* PARAMETER NAML$S_ROOT_DIR = 1G PARAMETER NAM L$V_ROOT_DIR = 13 ! root directory present( PARAMETER NAML$S_LOWVER = 1Y PARAMETER NAML$V_LOWVER = 14 ! lower numbered version(s) of file exist(s)) PARAMETER NAML$S_HIGHVER = 18 PARAMETER NAML$V_HIGHVER = 15 ! higher " ! % PARAMETER NAML$S_PPF = 1X PARAMETER NAML$V_PPF = 16 ! process-permanent file referenced indirectly& PARAMETER NAML$S_NODE = 1W PARAMETER NAML$V_NODE = 17 ! f ilename specification included a nodename( PARAMETER NAML$S_QUOTED = 1U PARAMETER NAML$V_QUOTED = 18 ! filename spec included a quoted string) PARAMETER NAML$S_GRP_MBR = 1Y PARAMETER NAML$V_GRP_MBR = 19 ! directory spec was of group-member format* PARAMETER NAML$S_WILD_DIR = 1T PARAMETER NAML$V_WILD_DIR = 20 ! directory spec included a wild card* PARAMETER NAML$S_DIR_LVLS = 3+ PARAMETER NAML$V_DIR_LVLS = 21J BYTE %FILL (3) ! number of directory levels (0=ufd only) END MAP MAP* PARAMETER NAML$S_WILD_UFD = 1I PARAMETER NAML$V_WILD_UFD = 24 ! ufd included a wild card+ PARAMETER NAML$S_WILD_SFD1 = 1K PARAMETER NAML$V_WILD_SFD1 = 25 ! sfd1 included a wild card+ PARAMETER NAML$S_WILD_SFD2 = 1K PARAMETER NAML$V_WILD_SFD2 = 26 ! sfd2 included a wild card+ PARAMETER NAML$S_WILD_SFD3 = 1K PARAMETER NAML$V_WILD_SFD3 = 27 ! sfd3 included a wild card+ PARAMETER NAML$S_WILD_SFD4 = 1K PARAMETER NAML$V_WILD_SFD4 = 28 ! sfd4 included a wild card+ PARAMETER NAML$S_WILD_SFD5 = 1K PARAMETER NAML$V_WILD_SFD5 = 29 ! sfd5 included a wild card+ PARAMETER NAML$S_WILD_SFD6 = 1K PARAMETER NAML$V_WILD_SFD6 = 30 ! sfd6 included a wild card+ PAR AMETER NAML$S_WILD_SFD7 = 1, PARAMETER NAML$V_WILD_SFD7 = 31< BYTE %FILL (1) ! sfd7 included a wild card END MAP MAP* PARAMETER NAML$S_WILD_GRP = 1L PARAMETER NAML$V_WILD_GRP = 24 ! group contained a wild card* PARAMETER NAML$S_WILD_MBR = 1M PARAMETER NAML$V_WILD_MBR = 25 ! member contained a wild card BYTE %FILL (1) END MAP END UNION0 BYTE NAML$B_NODE  ! Nodespec length- BYTE NAML$B_DEV ! Device length0 BYTE NAML$B_DIR ! Directory length0 BYTE NAML$B_NAME ! Filename length0 BYTE NAML$B_TYPE ! Filetype length5 BYTE NAML$B_VER ! Version number length UNION MAP BYTE NAML$B_NMC END MAP MAP% PARAMETER NAML$S_DID = 1@ PARAMETER NAML$V_DID = 0 ! Input file spec DIDed% PARAMETER NAML$S_FID = 1@ PARAMETER NAML$V_FID = 1 ! Input file spec FIDed) PARAMETER NAML$S_RES_DID = 1N PARAMETER NAML$V_RES_DID = 2 ! Result or Exp string spec DIDed) PARAMETER NAML$S_RES_FID = 1N PARAMETER NAML$V_RES_FID = 3 ! Result or Exp string spec FIDed, PARAMETER NAML$S_RES_ESCAPE = 1S PARAMETER NAML$V_RES_ESCAPE = 4 ! Result or Exp string spec has "^"- PARAMETER NAML$S_RES_UNICODE = 1W PARAMETER NAML$V_RES_UNICODE = 5 ! Result or Exp string spec contains ^U BYTE %FILL (1) END MAP END UNION0 BYTE %FILL(1:1) ! Currently unused1 INTEGER*4 NAML$L_NODE ! Nodespec address. INTEGER*4 NAML$L_DEV ! Device address1 INTEGER*4 NAML$L_DIR ! Directory address1 INTEGER*4 NAML$L_NAME ! Filename address1 INTEGER*4 NAML$L_TYPE ! Filetype address6 INTEGER*4 NAML$L_VER ! Version number addressL INTEGER*2 NAML$W_FIRST_WILD_DIR ! First wild directory in related namD INTEGER*2 NAML$W_LONG_DIR_LEVELS ! Total number of directories0 INTEGER*4 %FILL(1:1) ! Currently unused ! New NAML-only items:A INTEGER*4 NAML$L_LONG_DEFNAME_SIZE ! Analogous to FAB$B_DNS= INTEGER*4 NAML$L_LONG_DEFNAME ! Analogous to FAB$L_DNSB INTEGER*4 NAML$L_LONG_FILENAME_SIZE ! Analogous to FAB$B_FNS> INTEGER*4 NAML$L_LONG_FILENAME ! Analogous to FAB$L_FNS@ INTEGER*4 NAML$ L_LONG_NODE_SIZE ! Analogous to NAM$B_NODE; INTEGER*4 NAML$L_LONG_NODE ! Analogous to NAM$L_NODE> INTEGER*4 NAML$L_LONG_DEV_SIZE ! Analogous to NAM$B_DEV9 INTEGER*4 NAML$L_LONG_DEV ! Analogous to NAM$L_DEV> INTEGER*4 NAML$L_LONG_DIR_SIZE ! Analogous to NAM$B_DIR9 INTEGER*4 NAML$L_LONG_DIR ! Analogous to NAM$L_DIR@ INTEGER*4 NAML$L_LONG_NAME_SIZE ! Analogous to NAM$B_NAME; INTEGER*4 NAML$L_LONG_NAME ! Analogous to NAM$L_NAME@ INTEGER*4 NAML$L_ LONG_TYPE_SIZE ! Analogous to NAM$B_TYPE; INTEGER*4 NAML$L_LONG_TYPE ! Analogous to NAM$L_TYPE> INTEGER*4 NAML$L_LONG_VER_SIZE ! Analogous to NAM$B_VER9 INTEGER*4 NAML$L_LONG_VER ! Analogous to NAM$L_VERP ! The following three "LONG_EXPAND" fields must be fixed relative to each other@ INTEGER*4 NAML$L_LONG_EXPAND_SIZE ! Analogous to NAM$B_ESL< INTEGER*4 NAML$L_LONG_EXPAND ! Analogous to NAM$L_ESAA INTEGER*4 NAML$L_LONG_EXPAND_ALLOC ! Analogous to NAM$B_ESS $ INTEGER*4 NAML$L_RESERVED_MBZ_9P ! The following three "LONG_RESULT" fields must be fixed relative to each other@ INTEGER*4 NAML$L_LONG_RESULT_SIZE ! Analogous to NAM$B_RSL< INTEGER*4 NAML$L_LONG_RESULT ! Analogous to NAM$L_RSAA INTEGER*4 NAML$L_LONG_RESULT_ALLOC ! Analogous to NAM$B_RSS\ INTEGER*4 NAML$L_RESERVED_MBZ_8 ! Reserved to Digital for future use. Must be zero.Q ! The following three "FILESYS_NAME" fields must be fixed relative to each other' INTEG ER*4 NAML$L_FILESYS_NAME_SIZE" INTEGER*4 NAML$L_FILESYS_NAME( INTEGER*4 NAML$L_FILESYS_NAME_ALLOC UNION MAP& INTEGER*4 NAML$L_OUTPUT_FLAGS END MAP MAP4 PARAMETER NAML$S_LONG_RESULT_ESCAPE = 1d PARAMETER NAML$V_LONG_RESULT_ESCAPE = 0 ! There is an escape character in the long ou3 PARAMETER NAML$S_FILESYS_NAME_UCS2 = 1a PARAMETER NAML$V_FILESYS_NAME_UCS2 = 1 ! The filesys name output is 2-byt e Unicode1 PARAMETER NAML$S_LONG_RESULT_DID = 1Y PARAMETER NAML$V_LONG_RESULT_DID = 2 ! There is DIDding in the long output1 PARAMETER NAML$S_LONG_RESULT_FID = 1Y PARAMETER NAML$V_LONG_RESULT_FID = 3 ! There is FIDding in the long output5 PARAMETER NAML$S_LONG_RESULT_UNICODE = 1d PARAMETER NAML$V_LONG_RESULT_UNICODE = 4 ! Long Result or Exp string spec contains ^U, PARAMETER NAML$S_MP_IN_PATH = 1[  PARAMETER NAML$V_MP_IN_PATH = 5 ! mount point encountered in directory path0 PARAMETER NAML$S_SYMLNK_IN_PATH = 1Z PARAMETER NAML$V_SYMLNK_IN_PATH = 6 ! symlink encountered in directory path0 PARAMETER NAML$S_OBJECT_SYMLINK = 1d PARAMETER NAML$V_OBJECT_SYMLINK = 7 ! The specified object is a symlink ($OPEN, $SEAR. PARAMETER NAML$S_IS_DIRECTORY = 1d PARAMETER NAML$V_IS_DIRECTORY = 8 ! The specified object  is a directory ($OPEN, $SEAR BYTE %FILL (2) END MAP+ ! The rest of the longword also reserved. END UNION UNION MAP% INTEGER*4 NAML$L_INPUT_FLAGS END MAP MAP1 PARAMETER NAML$S_NO_SHORT_OUTPUT = 1P PARAMETER NAML$V_NO_SHORT_OUTPUT = 0 ! Don't write to RSA and ESA- PARAMETER NAML$S_CASE_LOOKUP = 2G PARAMETER NAML$V_CASE_LOOKUP = 1 ! name case lookup mode. PAR AMETER NAML$S_OPEN_SPECIAL = 1Y PARAMETER NAML$V_OPEN_SPECIAL = 3 ! $OPEN a special file, rather than the - ! object referred to by the special file. 0 PARAMETER NAML$S_SEARCH_SYMLINK = 1[ PARAMETER NAML$V_SEARCH_SYMLINK = 4 ! Cause $SEARCH to check resultant files- ! for symlinks, and return DVI/FID for the ! referenced file. BYTE %FILL (1) END MAP< ! The rest of the longword also reserved and must be zero. END UNI ON\ INTEGER*4 NAML$L_RESERVED_MBZ_7 ! Reserved to Digital for future use. Must be zero.% INTEGER*4 NAML$Q_USER_CONTEXT(2)\ INTEGER*4 NAML$L_RESERVED_MBZ_6 ! Reserved to Digital for future use. Must be zero.\ INTEGER*4 NAML$L_RESERVED_MBZ_5 ! Reserved to Digital for future use. Must be zero.\ INTEGER*4 NAML$L_RESERVED_MBZ_4 ! Reserved to Digital for future use. Must be zero.\ INTEGER*4 NAML$L_RESERVED_MBZ_3 ! Reserved to Digital for future use. Must be  zero.\ INTEGER*4 NAML$L_RESERVED_MBZ_2 ! Reserved to Digital for future use. Must be zero.\ INTEGER*4 NAML$L_RESERVED_MBZ_1 ! Reserved to Digital for future use. Must be zero. END STRUCTURE ! NAMLDEF? ! basealign on aggregate NAMLDEF operates after aggregate end9 PARAMETER NAML$K_BLN = '000000F8'X ! Name block length9 PARAMETER NAML$C_BLN = '000000F8'X ! Name block length!DEC$ END OPTIONS wwyݜΦ!*** MODULE $NCSDEF ***:!DEC$ OPTIONS/ALIGN=(REC  ORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:33:53.48 ! " ! FILE: NCSMSG.MSG EDIT: PDG1001 !  ! * *& ! * COPYRIGHT (C) 1982 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENS  E AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION.  * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! ++ !  ! FACILITY: VAX-11 NCS ! ! ABSTRACT: ! C ! THIS FILE CONTAINS THE DEFINITION FOR THE NCS FACILITY SPECIFIC6 ! ERROR MESSAGES. THE FACILITY CODE FOR NCS IS ???. ! " ! ENVIRONMENT: VAX/VMS USER MODE ! 2 ! AUTHOR: P. GILBERT, CREATI ON DATE: 11-OCT-1983 !  ! MODIFIED BY: !  ! E01-001 ORIGINAL ! P ! E01-002 CHB FIX FOR QAR #396 FROM V52-IFT DATABASE; 21-JUL-1989B ! USE ONLY ONE PREFIX FOR NCS$_, LIB$_ AND) ! TFF$_ MESSAGES. ! --& PARAMETER NCS$_FACILITY = '00000231'X$ PARAMETER NCS$_CVTNUM = '02318002'X% PARAMETER NCS$_EXPCHAR = '0231800A'X' PARAMETER NCS$_EXPMORTXT = '02318012'X% PARAMETER NCS$_DUMMY_1 = '0231801A'X' PARAMETER NCS$_INVCOL SEQ = '02318022'X& PARAMETER NCS$_NOMEMORY = '0231802C'X& PARAMETER NCS$_NUMTRUNC = '02318030'X( PARAMETER NCS$_QUOTOOLONG = '0231803A'X% PARAMETER NCS$_COL_ADJ = '02318044'X' PARAMETER NCS$_COL_CMPLX = '0231804C'X& PARAMETER NCS$_COL_CHAR = '02318054'X% PARAMETER NCS$_COL_PAD = '0231805C'X' PARAMETER NCS$_COL_THREE = '02318064'X% PARAMETER NCS$_ON_LINE = '0231806B'X' PARAMETER NCS$_INVAPPEND = '02318072'X! PARAMETER NCS$_NYI = '0231807A'X$ PARAMETER NCS$_NOT_CS = '02318082'X$ PAR  AMETER NCS$_NOT_CF = '0231808A'X& PARAMETER NCS$_LINEINFO = '02318093'X' PARAMETER NCS$_CONMODEQL = '0231809A'X& PARAMETER NCS$_EXPECTED = '023180A2'X& PARAMETER NCS$_EXP1CHAR = '023180AA'X$ PARAMETER NCS$_RANDIF = '023180B2'X# PARAMETER NCS$_BADCS = '023180BC'X# PARAMETER NCS$_BADCF = '023180C4'X& PARAMETER NCS$_INSERTED = '02318321'X% PARAMETER NCS$_DELETED = '02318329'X& PARAMETER NCS$_REPLACED = '02318331'X% PARAMETER NCS$_REMOVED = '02318339'X' PARAMETER NCS$_EXTRACTED = '0231834 1'X$ PARAMETER NCS$_DIFTYP = '02318348'X' PARAMETER NCS$_NOMTCHFOU = '02318350'X% PARAMETER NCS$_BRKNLIB = '02318358'X% PARAMETER NCS$_HISTERR = '02318360'X( PARAMETER NCS$_INVKEYCHAR = '02318368'X' PARAMETER NCS$_DELKEYERR = '02318372'X' PARAMETER NCS$_DELDATERR = '0231837A'X$ PARAMETER NCS$_DUPMOD = '02318382'X% PARAMETER NCS$_FAOFAIL = '0231838A'X& PARAMETER NCS$_INDEXERR = '02318392'X' PARAMETER NCS$_INSERTERR = '0231839A'X' PARAMETER NCS$_LOOKUPERR = '023183A2'X' PARAMETER N CS$_MODNAMLNG = '023183AA'X& PARAMETER NCS$_NOMODNAM = '023183B2'X' PARAMETER NCS$_NOTOBJLIB = '023183BA'X' PARAMETER NCS$_NOTFORUNK = '023183C2'X& PARAMETER NCS$_CNVRTING = '023183CB'X* PARAMETER NCS$_EMPTYLIBRARY = '023183D3'X$ PARAMETER NCS$_MHDERR = '023183DC'X% PARAMETER NCS$_INITERR = '023183E4'X& PARAMETER NCS$_LIBEMPTY = '02318640'X% PARAMETER NCS$_DUPLTAB = '02318648'X' PARAMETER NCS$_NOREADLIB = '02318650'X& PARAMETER NCS$_NOWRTLIB = '02318658'X& PARAMETER NCS$_IVTABNAM = ' 02318662'X' PARAMETER NCS$_NOSUCHTAB = '0231866A'X$ PARAMETER NCS$_NOWILD = '02318672'X!DEC$ END OPTIONSwwnJלΦ!*** MODULE $NETDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! DECnet-VAX definitions ! - STRUCTURE /NETDEF/5 BYTE NET$B_USER_ECO ! User ECO of DECnet8 BYTE NET$B_DEC_ECO ! Digital ECO of DECnet4 BYTE NET$B_DEC_VERSION ! DECnet Version6 BYTE NET$B_RESERVED ! Reserved to Digit al END STRUCTURE ! NETDEF!DEC$ END OPTIONS wwלΦ!*** MODULE $NSADEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! I ! Define the packet header and record types used for security auditing. ! J PARAMETER NSA$C_MSG_SERVER = '00000001'X ! Audit server control messageG PARAMETER NSA$C_MSG_AUDIT = '00000002'X ! Change in auditable events> PARAMETER NSA$C_MSG_BREAKIN = '00000003'X ! Breakin attemptK PARAMETER NSA$C_MSG_INSTALL = '00000004 'X ! Change to INSTALLed database< PARAMETER NSA$C_MSG_LOGFAIL = '00000005'X ! Login failure= PARAMETER NSA$C_MSG_LOGIN = '00000006'X ! Successful login? PARAMETER NSA$C_MSG_LOGOUT = '00000007'X ! Successful logoutE PARAMETER NSA$C_MSG_MOUNT = '00000008'X ! Volume mount or dismountN PARAMETER NSA$C_MSG_NETPROXY = '00000009'X ! Network proxy data base changeL PARAMETER NSA$C_MSG_ACCESS = '0000000A'X ! Object access *** obsolete ***8 PARAMETER NSA$C_MSG_SYSUAF = '0000000B'X !  UAF changeF PARAMETER NSA$C_MSG_RIGHTSDB = '0000000C'X ! Rights database changeJ PARAMETER NSA$C_MSG_CUSTOMER = '0000000D'X ! Customer application event@ PARAMETER NSA$C_MSG_CSS = '0000000E'X ! CSS application event? PARAMETER NSA$C_MSG_LP = '0000000F'X ! Layered product event= PARAMETER NSA$C_MSG_PRVAUD = '00000010'X ! Privilege auditL PARAMETER NSA$C_MSG_RESERVED_1 = '00000011'X ! Reserved message type codeL PARAMETER NSA$C_MSG_RESERVED_2 = '00000012'X ! Reserved message type  codeL PARAMETER NSA$C_MSG_RESERVED_3 = '00000013'X ! Reserved message type codeL PARAMETER NSA$C_MSG_RESERVED_4 = '00000014'X ! Reserved message type codeG PARAMETER NSA$C_MSG_SYSTIME = '00000015'X ! System time modificationK PARAMETER NSA$C_MSG_SYSGEN = '00000016'X ! SYSGEN parameter modificationA PARAMETER NSA$C_MSG_OBJ_CREATE = '00000017'X ! Object creationA PARAMETER NSA$C_MSG_OBJ_DELETE = '00000018'X ! Object deletionC PARAMETER NSA$C_MSG_OBJ_DEACCESS = '00000019'X ! Obje ct deaccess? PARAMETER NSA$C_MSG_OBJ_ACCESS = '0000001A'X ! Object access< PARAMETER NSA$C_MSG_CONNECTION = '0000001B'X ! ConnectionL PARAMETER NSA$C_MSG_RESERVED_5 = '0000001C'X ! Reserved Message type codeD PARAMETER NSA$C_MSG_NCP = '0000001D'X ! NCP command line auditingG PARAMETER NSA$C_MSG_PROCESS = '0000001E'X ! Process control auditingW PARAMETER NSA$C_MSG_OBJECT_SERVICE = '0000001F'X ! Cluster visable object processingN PARAMETER NSA$C_MSG_AUTHENTICATE = '00000020'X !  Distributed authentication< PARAMETER NSA$C_MSG_PERSONA = '00000021'X ! Persona eventI PARAMETER NSA$C_MSG_MAX_CODE = '00000022'X ! Last type code (plus one)( PARAMETER NSA$M_MANDATORY = '00000001'X" PARAMETER NSA$M_ACL = '00000002'X' PARAMETER NSA$M_INTERNAL = '00000004'X$ PARAMETER NSA$M_ALARM = '00000008'X$ PARAMETER NSA$M_AUDIT = '00000010'X& PARAMETER NSA$M_FOREIGN = '00000020'X$ PARAMETER NSA$M_FLUSH = '00000040'X% PARAMETER NSA$M_SERVER = '00000080'X' PARAMETER NSA$M_DEACCESS  = '00000100'X$ PARAMETER NSA$M_SYNCH = '00000200'X) PARAMETER NSA$M_IDENTIFIER = '00000400'X' PARAMETER NSA$M_PROCPRIV = '00000800'X' PARAMETER NSA$M_AUTHPRIV = '00001000'X) PARAMETER NSA$M_NOEVTCHECK = '00002000'X( PARAMETER NSA$M_NOFAILAUD = '00004000'X( PARAMETER NSA$M_NOSUCCAUD = '00008000'XF PARAMETER NSA$C_VERSION_1 = '00000001'X ! First version of auditingG PARAMETER NSA$C_VERSION_2 = '00000002'X ! Second version of auditing^ PARAMETER NSA$C_VERSION_3 = '00000003'X ! Third  version of auditing (support facility code)K PARAMETER NSA$C_V1_MSG_HDR_LENGTH = '0000000C'X ! For version 1 messages0 PARAMETER NSA$K_V1_MSG_HDR_LENGTH = '0000000C'XM PARAMETER NSA$C_MSG_HDR_LENGTH = '00000014'X ! For latest version messages- PARAMETER NSA$K_MSG_HDR_LENGTH = '00000014'X STRUCTURE /NSAMSGDEF/ ! Define the packet header6 INTEGER*2 NSA$W_RECORD_TYPE ! Audit event type< INTEGER*2 NSA$W_RECORD_SUBTYPE ! Audit event subtype UNION MAP3  INTEGER*2 NSA$W_FLAGS ! Auditing flags END MAP MAP* PARAMETER NSA$S_MANDATORY = 1D PARAMETER NSA$V_MANDATORY = 0 ! Event must be logged$ PARAMETER NSA$S_ACL = 1A PARAMETER NSA$V_ACL = 1 ! Event results from ACE) PARAMETER NSA$S_INTERNAL = 1E PARAMETER NSA$V_INTERNAL = 2 ! Event generated by TCB& PARAMETER NSA$S_ALARM = 1= PARAMETER NSA$V_ALARM = 3 ! Event  is an alarm& PARAMETER NSA$S_AUDIT = 1= PARAMETER NSA$V_AUDIT = 4 ! Event is an audit( PARAMETER NSA$S_FOREIGN = 1B PARAMETER NSA$V_FOREIGN = 5 ! Event outside of TCB& PARAMETER NSA$S_FLUSH = 1K PARAMETER NSA$V_FLUSH = 6 ! Force audit server buffer flush' PARAMETER NSA$S_SERVER = 1J PARAMETER NSA$V_SERVER = 7 ! Override process no-audit bit) PARAMETER NSA$S_DEACCESS = 1  F PARAMETER NSA$V_DEACCESS = 8 ! Deaccess audit required& PARAMETER NSA$S_SYNCH = 1J PARAMETER NSA$V_SYNCH = 9 ! Synchronous return if possible+ PARAMETER NSA$S_IDENTIFIER = 1P PARAMETER NSA$V_IDENTIFIER = 10 ! Privilege check via identifier) PARAMETER NSA$S_PROCPRIV = 1Z PARAMETER NSA$V_PROCPRIV = 11 ! Privilege check against process privileges) PARAMETER NSA$S_AUTHPRIV = 1]  PARAMETER NSA$V_AUTHPRIV = 12 ! Privilege check against authorized privileges+ PARAMETER NSA$S_NOEVTCHECK = 1D PARAMETER NSA$V_NOEVTCHECK = 13 ! Bypass event check* PARAMETER NSA$S_NOFAILAUD = 1U PARAMETER NSA$V_NOFAILAUD = 14 ! Do not audit failed privilege checks* PARAMETER NSA$S_NOSUCCAUD = 1+ PARAMETER NSA$V_NOSUCCAUD = 15K BYTE %FILL (2) ! Do not audit successful privilege checks  END MAP END UNION= INTEGER*2 NSA$W_PACKET_COUNT ! Number of data packets UNION MAP! INTEGER*2 NSA$W_REC_SIZE END MAP MAPL INTEGER*2 NSA$W_RECORD_SIZE ! Total size (header + data packets) END MAP END UNION! BYTE %FILL ! SpareC BYTE NSA$B_VERSION ! Security auditing version number2 INTEGER*2 NSA$W_SPARE_4(1:3) ! Spare words4 INTEGER*2 NSA$W_FACILITY ! VMS facilit  y code6 BYTE NSA$R_PACKET_LIST ! Start of packets END STRUCTURE ! NSAMSGDEF ! Server control message typesJ PARAMETER NSA$C_SRV_ADD_JOURNAL = '00000001'X ! Add a new audit journalS PARAMETER NSA$C_SRV_REM_JOURNAL = '00000002'X ! Remove an existing audit journalL PARAMETER NSA$C_SRV_FLUSH_JOURNAL = '00000003'X ! Flush specified journalR PARAMETER NSA$C_SRV_FLUSH_ALL_JOURNALS = '00000004'X ! Flush all audit journalsT PARAMETER NSA$C_SRV_FLUSH_INTERVAL = '00000005'X ! Jo urnal flushing time intervalN PARAMETER NSA$C_SRV_ARCHIVE_DEVICE = '00000006'X ! Specify archiving deviceL PARAMETER NSA$C_SRV_ARCHIVE_ENABLE = '00000007'X ! Archiving enable flagsN PARAMETER NSA$C_SRV_ARCHIVE_DISABLE = '00000008'X ! Archiving disable flagsV PARAMETER NSA$C_SRV_ARCHIVE_INTERVAL = '00000009'X ! Guaranteed archinving intervalP PARAMETER NSA$C_SRV_BADJNL_INTERVAL = '0000000A'X ! Bad journal scan intervalc PARAMETER NSA$C_SRV_BADJNL_LIMIT = '0000000B'X ! Maximum number o f bad journals to keep track of@ PARAMETER NSA$C_SRV_EXIT = '0000000C'X ! Shut down the server[ PARAMETER NSA$C_SRV_CREATE_SYSTEM_LOG = '0000000D'X ! Create a new system audit log file\ PARAMETER NSA$C_SRV_AUDIT_CHANGE = '0000000E'X ! Change state of system auditing/alarmingd PARAMETER NSA$C_SRV_REDIRECT_SYSTEM_LOG = '0000000F'X ! Open the latest version of the system audY PARAMETER NSA$C_SRV_REM_ENABLE = '00000010'X ! Enable resource monitoring on a journal[ PARAMETER NSA$C_SRV_REM _DISABLE = '00000011'X ! Disable resource monitoring on a journalU PARAMETER NSA$C_SRV_REM_MONITOR_INTERVAL = '00000012'X ! Resource monitor interval[ PARAMETER NSA$C_SRV_REM_RESUME_INTERVAL = '00000013'X ! Resource resume monitor intervalY PARAMETER NSA$C_SRV_REM_MONITOR_MODE = '00000014'X ! Specify new resource monitor mode` PARAMETER NSA$C_SRV_REM_FINAL_ACTION = '00000015'X ! Specify final resource exhaustion actionT PARAMETER NSA$C_SRV_REM_WARN_THRESHOLD = '00000016'X ! Resour ce warning threshold` PARAMETER NSA$C_SRV_REM_ACTION_THRESHOLD = '00000017'X ! Resource exhaustion action thresholdY PARAMETER NSA$C_SRV_REM_RESUME_THRESHOLD = '00000018'X ! Resource resumption thresholdN PARAMETER NSA$C_SRV_REM_RESUME = '00000019'X ! Force resource re-evaluationT PARAMETER NSA$C_SRV_REM_ADD_EXCLUDE = '0000001A'X ! Add process to exclusion listY PARAMETER NSA$C_SRV_REM_DEL_EXCLUDE = '0000001B'X ! Remove process from exclusion listN PARAMETER NSA$C_SRV_LISTENER_ENABLE = '0000001C'X ! Specify listener deviceN PARAMETER NSA$C_SRV_LISTENER_DISABLE = '0000001D'X ! Cancel listener device\ PARAMETER NSA$C_SRV_NEW_LOG = '0000001E'X ! Create new cluster-wide system audit log fileC PARAMETER NSA$C_SRV_RESTART = '0000001F'X ! Restart audit serverV PARAMETER NSA$C_SRV_LOCK_SERVER = '00000020'X ! Lock audit server to prevent changeF PARAMETER NSA$C_SRV_RESERVED_1 = '00000021'X ! Reserved server codeF PARAMETER NSA$C_SRV_RESERVED_2 = '00000022'X ! Reserved server codeF PARAMETER NSA$C_SRV_RESERVED_3 = '00000023'X ! Reserved server codeF PARAMETER NSA$C_SRV_RESERVED_4 = '00000024'X ! Reserved server codeY PARAMETER NSA$C_SRV_FAILURE_MODE = '00000025'X ! Change security auditing failure modeK PARAMETER NSA$C_SRV_SNAPSHOT = '00000026'X ! System snapshot in progressO PARAMETER NSA$C_SRV_BACKLOG_TOTAL = '00000027'X ! Flow control total backlogS PARAMETER NSA$C_SRV_BACKLOG_PROCESS = '00000028'X ! Flow control process backlogF PARAMETER NSA$C_SRV_INITIATE = '00000029'X ! Initiate event loggingL PARAMETER NSA$C_SRV_RESTART_ALL = '0000002A'X ! Restart all audit serversK PARAMETER NSA$C_SRV_RESTART_OBJECT = '0000002B'X ! Restart object serverL PARAMETER NSA$C_SRV_MAX_CODE = '0000002C'X ! Last message code (plus one)- ! Define resource exhaustion monitor modes.L PARAMETER NSA$C_REM_SPACE = '00000001'X ! # blocks to keep free on volumeJ PARAMETER NSA$C_REM_PERCENTAGE = '00000002'X ! % of volume to keep freeH PARAMET! ER NSA$C_REM_COUNT = '00000003'X ! # msgs to reserve space forP PARAMETER NSA$C_REM_TIME = '00000004'X ! # secs to reserve ave. msg space forU PARAMETER NSA$C_REM_MAX_MODE = '00000005'X ! Last resource monitor mode (plus one)D ! Define final action to take when process buffer space exhausted.N PARAMETER NSA$C_REM_PURGE_OLD = '00000001'X ! Purge oldest entry from queueQ PARAMETER NSA$C_REM_IGNORE_NEW = '00000002'X ! Ignore newest (current) messageS PARAMETER NSA$C_REM_RESTART = '0000 " 0003'X ! Restart server - create process dumpF PARAMETER NSA$C_REM_CRASH = '00000004'X ! Shutdown VMS (BUG_CHECK) R PARAMETER NSA$C_REM_MAX_FINAL = '00000005'X ! Last final action mode (plus one)6 ! Define security auditing state modification codes.- PARAMETER NSA$C_AUDIT_DISABLED = '00000001'X, PARAMETER NSA$C_AUDIT_ENABLED = '00000002'X. PARAMETER NSA$C_AUDIT_TERMINATE = '00000003'X- PARAMETER NSA$C_AUDIT_INITIATE = '00000004'XQ PARAMETER NSA$C_SNAPSHOT_SAVE = '00000005'X ! Syste# m snapshot save in progressU PARAMETER NSA$C_SNAPSHOT_ABORT = '00000006'X ! System snapshot attempt has abortedV PARAMETER NSA$C_SNAPSHOT_STARTUP = '00000007'X ! System booted from a snapshot fileP PARAMETER NSA$C_SNAPSHOT_ACCESS = '00000008'X ! Snapshot file access/deaccessG PARAMETER NSA$C_AUDIT_STATE = '00000009'X ! New state of audit flagsG PARAMETER NSA$C_ALARM_STATE = '0000000A'X ! New state of alarm flagsZ PARAMETER NSA$C_AUDIT_LOG_FINAL = '0000000B'X ! Final entry in audi$ t log (forward link)W PARAMETER NSA$C_AUDIT_LOG_FIRST = '0000000C'X ! First entry in audit log (back link)] PARAMETER NSA$C_AUDIT_BAD_TCB_AUDIT = '0000000D'X ! An internal (TCB) audit was ill-formed- PARAMETER NSA$C_AUDIT_MAX_CODE = '0000000E'X0 ! Define security auditing failure mode codes.L PARAMETER NSA$C_FAIL_WAIT = '00000001'X ! Wait for resource (if possible)E PARAMETER NSA$C_FAIL_CRASH = '00000002'X ! Crash system on failureC PARAMETER NSA$C_FAIL_IGNORE = '00000003'X ! Ign % ore failing auditM PARAMETER NSA$C_FAIL_MAX_MODE = '00000004'X ! Last failure mode (plus one); ! Define BREAKIN, LOGIN, LOGOUT, and LOGIN failure codes.$ PARAMETER NSA$C_BATCH = '00000001'X' PARAMETER NSA$C_DETACHED = '00000002'X% PARAMETER NSA$C_DIALUP = '00000003'X$ PARAMETER NSA$C_LOCAL = '00000004'X& PARAMETER NSA$C_NETWORK = '00000005'X% PARAMETER NSA$C_REMOTE = '00000006'X) PARAMETER NSA$C_SUBPROCESS = '00000007'X% PARAMETER NSA$C_SERVER = '00000008'X/ PARAMETER NSA$C_JOBTY & PE_MAX_CODE = '00000009'X< ! Define INSTALLed file database state modification codes.* PARAMETER NSA$C_INSTALL_ADD = '00000001'X- PARAMETER NSA$C_INSTALL_REMOVE = '00000002'X/ PARAMETER NSA$C_INSTALL_MAX_CODE = '00000003'XQ ! Define INSTALLed file database state modification qualifier codes. Also, the6 ! codes used by the audit message formatting tables.* PARAMETER NSA$M_INS_SPARE_0 = '00000001'X' PARAMETER NSA$M_INS_OPEN = '00000002'X2 PARAMETER NSA$M_INS_HEADER_RESIDENT = '00000004' 'X) PARAMETER NSA$M_INS_SHARED = '00000008'X/ PARAMETER NSA$M_INS_EXECUTE_ONLY = '00000010'X, PARAMETER NSA$M_INS_WRITEABLE = '00000020'X- PARAMETER NSA$M_INS_PRIVILEGED = '00000040'X, PARAMETER NSA$M_INS_PROTECTED = '00000080'X* PARAMETER NSA$M_INS_NOPURGE = '00000100'X- PARAMETER NSA$M_INS_ACCOUNTING = '00000200'X- PARAMETER NSA$M_INS_AUTHORIZED = '00000400'X) PARAMETER NSA$M_INS_SIGNAL = '00000800'X STRUCTURE /NSA$$FILL_14_/ UNION MAP INTEGER*4 %FILL END MAP ( MAP( PARAMETER NSA$S_INS_SPARE_0 = 1( PARAMETER NSA$V_INS_SPARE_0 = 0% PARAMETER NSA$S_INS_OPEN = 1% PARAMETER NSA$V_INS_OPEN = 10 PARAMETER NSA$S_INS_HEADER_RESIDENT = 10 PARAMETER NSA$V_INS_HEADER_RESIDENT = 2' PARAMETER NSA$S_INS_SHARED = 1' PARAMETER NSA$V_INS_SHARED = 3- PARAMETER NSA$S_INS_EXECUTE_ONLY = 1- PARAMETER NSA$V_INS_EXECUTE_ONLY = 4* PARAMETER NSA$S_INS_WRITEABLE = 1* P ) ARAMETER NSA$V_INS_WRITEABLE = 5+ PARAMETER NSA$S_INS_PRIVILEGED = 1+ PARAMETER NSA$V_INS_PRIVILEGED = 6* PARAMETER NSA$S_INS_PROTECTED = 1* PARAMETER NSA$V_INS_PROTECTED = 7( PARAMETER NSA$S_INS_NOPURGE = 1( PARAMETER NSA$V_INS_NOPURGE = 8+ PARAMETER NSA$S_INS_ACCOUNTING = 1+ PARAMETER NSA$V_INS_ACCOUNTING = 9+ PARAMETER NSA$S_INS_AUTHORIZED = 1, PARAMETER NSA$V_INS_AUTHORIZED = 10' PARAMETER NSA$S* _INS_SIGNAL = 1( PARAMETER NSA$V_INS_SIGNAL = 11 BYTE %FILL (2) END MAP END UNION END STRUCTURE ! NSA$$FILL_14_* PARAMETER NSA$C_INS_SPARE_0 = '00000001'X' PARAMETER NSA$C_INS_OPEN = '00000002'X2 PARAMETER NSA$C_INS_HEADER_RESIDENT = '00000003'X) PARAMETER NSA$C_INS_SHARED = '00000004'X/ PARAMETER NSA$C_INS_EXECUTE_ONLY = '00000005'X, PARAMETER NSA$C_INS_WRITEABLE = '00000006'X- PARAMETER NSA$C_INS_PRIVILEGED = '00000007'X, PARAMETER NSA$C_INS_PROTECTED = '000000 + 08'X* PARAMETER NSA$C_INS_NOPURGE = '00000009'X- PARAMETER NSA$C_INS_ACCOUNTING = '0000000A'X- PARAMETER NSA$C_INS_AUTHORIZED = '0000000B'X) PARAMETER NSA$C_INS_SIGNAL = '0000000C'X+ PARAMETER NSA$C_INS_MAX_CODE = '0000000D'X+ ! Define volume state modification codes.+ PARAMETER NSA$C_VOL_DISMOUNT = '00000001'X( PARAMETER NSA$C_VOL_MOUNT = '00000002'X+ PARAMETER NSA$C_VOL_MAX_CODE = '00000003'X5 ! Define volume state modification qualifier codes.* PARAMETER NSA$M_MNT_FOREIGN = '00 , 000001'X( PARAMETER NSA$M_MNT_GROUP = '00000002'X+ PARAMETER NSA$M_MNT_NOASSIST = '00000004'X* PARAMETER NSA$M_MNT_NODISKQ = '00000008'X) PARAMETER NSA$M_MNT_NOHDR3 = '00000010'X* PARAMETER NSA$M_MNT_NOLABEL = '00000020'X* PARAMETER NSA$M_MNT_NOWRITE = '00000040'X- PARAMETER NSA$M_MNT_OVR_ACCESS = '00000080'X* PARAMETER NSA$M_MNT_OVR_EXP = '00000100'X, PARAMETER NSA$M_MNT_OVR_IDENT = '00000200'X, PARAMETER NSA$M_MNT_OVR_SETID = '00000400'X, PARAMETER NSA$M_MNT_READCHECK = '00000800'X( P - ARAMETER NSA$M_MNT_SHARE = '00001000'X* PARAMETER NSA$M_MNT_MESSAGE = '00002000'X) PARAMETER NSA$M_MNT_SYSTEM = '00004000'X- PARAMETER NSA$M_MNT_WRITECHECK = '00008000'X, PARAMETER NSA$M_MNT_WRITETHRU = '00010000'X* PARAMETER NSA$M_MNT_NOCACHE = '00020000'X+ PARAMETER NSA$M_MNT_OVR_LOCK = '00040000'X+ PARAMETER NSA$M_MNT_NOMNTVER = '00080000'X+ PARAMETER NSA$M_MNT_NOUNLOAD = '00100000'X2 PARAMETER NSA$M_MNT_TAPE_DATA_WRITE = '00200000'X) PARAMETER NSA$M_MNT_NOCOPY = '00400000'X) PARAM. ETER NSA$M_MNT_NOAUTO = '00800000'X+ PARAMETER NSA$M_MNT_INIT_ALL = '01000000'X, PARAMETER NSA$M_MNT_INIT_CONT = '02000000'X+ PARAMETER NSA$M_MNT_OVR_VOLO = '04000000'X+ PARAMETER NSA$M_MNT_INTERCHG = '08000000'X* PARAMETER NSA$M_MNT_CLUSTER = '10000000'X, PARAMETER NSA$M_MNT_NOREBUILD = '20000000'X- PARAMETER NSA$M_MNT_OVR_SHAMEM = '40000000'X, PARAMETER NSA$M_MNT_MULTI_VOL = '80000000'X STRUCTURE /NSA$$FILL_17_/ UNION MAP INTEGER*4 %FILL(2) END MAP MAP( / PARAMETER NSA$S_MNT_FOREIGN = 1( PARAMETER NSA$V_MNT_FOREIGN = 0& PARAMETER NSA$S_MNT_GROUP = 1& PARAMETER NSA$V_MNT_GROUP = 1) PARAMETER NSA$S_MNT_NOASSIST = 1) PARAMETER NSA$V_MNT_NOASSIST = 2( PARAMETER NSA$S_MNT_NODISKQ = 1( PARAMETER NSA$V_MNT_NODISKQ = 3' PARAMETER NSA$S_MNT_NOHDR3 = 1' PARAMETER NSA$V_MNT_NOHDR3 = 4( PARAMETER NSA$S_MNT_NOLABEL = 1( PARAMETER NSA$V_MNT_NOLABEL = 5( 0 PARAMETER NSA$S_MNT_NOWRITE = 1( PARAMETER NSA$V_MNT_NOWRITE = 6+ PARAMETER NSA$S_MNT_OVR_ACCESS = 1+ PARAMETER NSA$V_MNT_OVR_ACCESS = 7( PARAMETER NSA$S_MNT_OVR_EXP = 1( PARAMETER NSA$V_MNT_OVR_EXP = 8* PARAMETER NSA$S_MNT_OVR_IDENT = 1* PARAMETER NSA$V_MNT_OVR_IDENT = 9* PARAMETER NSA$S_MNT_OVR_SETID = 1+ PARAMETER NSA$V_MNT_OVR_SETID = 10* PARAMETER NSA$S_MNT_READCHECK = 1+ PARAMETER NSA$V_MNT_R 1 EADCHECK = 11& PARAMETER NSA$S_MNT_SHARE = 1' PARAMETER NSA$V_MNT_SHARE = 12( PARAMETER NSA$S_MNT_MESSAGE = 1) PARAMETER NSA$V_MNT_MESSAGE = 13' PARAMETER NSA$S_MNT_SYSTEM = 1( PARAMETER NSA$V_MNT_SYSTEM = 14+ PARAMETER NSA$S_MNT_WRITECHECK = 1, PARAMETER NSA$V_MNT_WRITECHECK = 15* PARAMETER NSA$S_MNT_WRITETHRU = 1+ PARAMETER NSA$V_MNT_WRITETHRU = 16( PARAMETER NSA$S_MNT_NOCACHE = 1) PARAM 2 ETER NSA$V_MNT_NOCACHE = 17) PARAMETER NSA$S_MNT_OVR_LOCK = 1* PARAMETER NSA$V_MNT_OVR_LOCK = 18) PARAMETER NSA$S_MNT_NOMNTVER = 1* PARAMETER NSA$V_MNT_NOMNTVER = 19) PARAMETER NSA$S_MNT_NOUNLOAD = 1* PARAMETER NSA$V_MNT_NOUNLOAD = 200 PARAMETER NSA$S_MNT_TAPE_DATA_WRITE = 11 PARAMETER NSA$V_MNT_TAPE_DATA_WRITE = 21' PARAMETER NSA$S_MNT_NOCOPY = 1( PARAMETER NSA$V_MNT_NOCOPY = 22' PARAMETER NSA$S_M 3 NT_NOAUTO = 1( PARAMETER NSA$V_MNT_NOAUTO = 23) PARAMETER NSA$S_MNT_INIT_ALL = 1* PARAMETER NSA$V_MNT_INIT_ALL = 24* PARAMETER NSA$S_MNT_INIT_CONT = 1+ PARAMETER NSA$V_MNT_INIT_CONT = 25) PARAMETER NSA$S_MNT_OVR_VOLO = 1* PARAMETER NSA$V_MNT_OVR_VOLO = 26) PARAMETER NSA$S_MNT_INTERCHG = 1* PARAMETER NSA$V_MNT_INTERCHG = 27( PARAMETER NSA$S_MNT_CLUSTER = 1) PARAMETER NSA$V_MNT_CLUSTER = 28* 4 PARAMETER NSA$S_MNT_NOREBUILD = 1+ PARAMETER NSA$V_MNT_NOREBUILD = 29+ PARAMETER NSA$S_MNT_OVR_SHAMEM = 1, PARAMETER NSA$V_MNT_OVR_SHAMEM = 30* PARAMETER NSA$S_MNT_MULTI_VOL = 1+ PARAMETER NSA$V_MNT_MULTI_VOL = 31& PARAMETER NSA$S_MNT_DISKQ = 1' PARAMETER NSA$V_MNT_DISKQ = 32+ PARAMETER NSA$S_MNT_COMPACTION = 1, PARAMETER NSA$V_MNT_COMPACTION = 33( PARAMETER NSA$S_MNT_INCLUDE = 1) PARAMETER NSA$V_M 5 NT_INCLUDE = 34& PARAMETER NSA$S_MNT_PASS2 = 1' PARAMETER NSA$V_MNT_PASS2 = 35) PARAMETER NSA$S_MNT_OVR_NOFE = 1* PARAMETER NSA$V_MNT_OVR_NOFE = 36( PARAMETER NSA$S_MNT_SCRATCH = 1) PARAMETER NSA$V_MNT_SCRATCH = 37& PARAMETER NSA$S_MNT_CDROM = 1' PARAMETER NSA$V_MNT_CDROM = 38$ PARAMETER NSA$S_MNT_XAR = 1% PARAMETER NSA$V_MNT_XAR = 39$ PARAMETER NSA$S_MNT_DSI = 1% PARAMETER NSA$V_MNT_DSI = 6 40* PARAMETER NSA$S_MNT_SUBSYSTEM = 1+ PARAMETER NSA$V_MNT_SUBSYSTEM = 41- PARAMETER NSA$S_MNT_NOCOMPACTION = 1. PARAMETER NSA$V_MNT_NOCOMPACTION = 42- PARAMETER NSA$S_MNT_OVR_SECURITY = 1. PARAMETER NSA$V_MNT_OVR_SECURITY = 433 PARAMETER NSA$S_MNT_OVR_LIMITED_SEARCH = 14 PARAMETER NSA$V_MNT_OVR_LIMITED_SEARCH = 44% PARAMETER NSA$S_MNT_POOL = 1& PARAMETER NSA$V_MNT_POOL = 45 BYTE %FILL (6) END7 MAP END UNION END STRUCTURE ! NSA$$FILL_17_J PARAMETER NSA$C_MNT_MAX_CODE = '0000002F'X ! # of mount bits (plus one) ! Define dismount flags.M PARAMETER NSA$C_DMT_MAX_CODE = '00000005'X ! # of dismount bits (plus one)+ PARAMETER NSA$M_DMT_NOUNLOAD = '00000001'X' PARAMETER NSA$M_DMT_UNIT = '00000002'X( PARAMETER NSA$M_DMT_ABORT = '00000004'X* PARAMETER NSA$M_DMT_CLUSTER = '00000008'X STRUCTURE /NSA$$FILL_20_/ UNION MAP INTEGER*4 %FILL END MAP MAP) 8 PARAMETER NSA$S_DMT_NOUNLOAD = 1) PARAMETER NSA$V_DMT_NOUNLOAD = 0% PARAMETER NSA$S_DMT_UNIT = 1% PARAMETER NSA$V_DMT_UNIT = 1& PARAMETER NSA$S_DMT_ABORT = 1& PARAMETER NSA$V_DMT_ABORT = 2( PARAMETER NSA$S_DMT_CLUSTER = 1( PARAMETER NSA$V_DMT_CLUSTER = 3 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! NSA$$FILL_20_9 ! Define network authorization file modification codes.+ PARAMETER NSA$C_NETPROXY_ADD = '0000000 9 1'X. PARAMETER NSA$C_NETPROXY_DELETE = '00000002'X. PARAMETER NSA$C_NETPROXY_MODIFY = '00000003'X+ PARAMETER NSA$C_NETPROXY_NCP = '00000004'X0 PARAMETER NSA$C_NETPROXY_SHUTDOWN = '00000005'X/ PARAMETER NSA$C_NETPROXY_STARTUP = '00000006'X. PARAMETER NSA$C_NETPROXY_CREATE = '00000007'X0 PARAMETER NSA$C_NETPROXY_MAX_CODE = '00000008'X ! Define persona event codes- PARAMETER NSA$C_PERSONA_CREATE = '00000001'X- PARAMETER NSA$C_PERSONA_DELETE = '00000002'X- PARAMETER NSA$C_PERSONA_MODIFY : = '00000003'X/ PARAMETER NSA$C_PERSONA_MAX_CODE = '00000004'XO ! Define object access codes. This table must parallel the object type codesN ! defined in $ACEDEF (in STARDEFAE.SDL). Any additional objects must appearM ! in both places. These same subtype codes are shared for all of the otherA ! object message type codes (CREATE, DELETE, MODIFY, DEACCESS).* PARAMETER NSA$C_FILE_ACCESS = '00000001'X, PARAMETER NSA$C_DEVICE_ACCESS = '00000002'X+ PARAMETER NSA$C_QUEUE_ACCESS = '0000000 ; 3'X) PARAMETER NSA$C_CEF_ACCESS = '00000004'X) PARAMETER NSA$C_LNM_ACCESS = '00000005'X- PARAMETER NSA$C_PROCESS_ACCESS = '00000006'X, PARAMETER NSA$C_GRPGBL_ACCESS = '00000007'X, PARAMETER NSA$C_SYSGBL_ACCESS = '00000008'X0 PARAMETER NSA$C_CAPABILITY_ACCESS = '00000009'X+ PARAMETER NSA$C_EVENT_ACCESS = '0000000A'X* PARAMETER NSA$C_LOCK_ACCESS = '0000000B'X, PARAMETER NSA$C_VOLUME_ACCESS = '0000000C'X. PARAMETER NSA$C_OBJECT_MAX_CODE = '0000000D'X8 ! Define system authorization file m < odification codes.) PARAMETER NSA$C_SYSUAF_ADD = '00000001'X* PARAMETER NSA$C_SYSUAF_COPY = '00000002'X, PARAMETER NSA$C_SYSUAF_DELETE = '00000003'X, PARAMETER NSA$C_SYSUAF_MODIFY = '00000004'X, PARAMETER NSA$C_SYSUAF_RENAME = '00000005'X. PARAMETER NSA$C_SYSUAF_MAX_CODE = '00000006'X. ! Define rights database modification codes.) PARAMETER NSA$C_RDB_ADD_ID = '00000001'X) PARAMETER NSA$C_RDB_CREATE = '00000002'X+ PARAMETER NSA$C_RDB_GRANT_ID = '00000003'X- PARAMETER NSA$C_RDB_MOD_HOLDE = R = '00000004'X) PARAMETER NSA$C_RDB_MOD_ID = '00000005'X) PARAMETER NSA$C_RDB_REM_ID = '00000006'X, PARAMETER NSA$C_RDB_REVOKE_ID = '00000007'X+ PARAMETER NSA$C_RDB_MAX_CODE = '00000008'X* ! Define enhanced privilege audit codes.M PARAMETER NSA$C_PRVAUD_SUCCESS = '00000001'X ! Successful use of privilegeP PARAMETER NSA$C_PRVAUD_FAILURE = '00000002'X ! Event due to privilege failure. PARAMETER NSA$C_PRVAUD_MAX_CODE = '00000003'X# ! Define system time audit codes.F PARAMETER NSA$C > _SYSTIM_SET = '00000001'X ! Explicit setting of timeC PARAMETER NSA$C_SYSTIM_CAL = '00000002'X ! Calibration from todr. PARAMETER NSA$C_SYSTIM_MAX_CODE = '00000003'X ! Define SYSGEN audit codes.K PARAMETER NSA$C_SYSGEN_SET = '00000001'X ! Sysgen parameter modification. PARAMETER NSA$C_SYSGEN_MAX_CODE = '00000002'X, ! Define the create object event subtypes.; PARAMETER NSA$C_OBJ_CREATE = '00000001'X ! Create object. PARAMETER NSA$C_CREATE_MAX_CODE = '00000002'X, ! Define the del ? ete object event subtypes.; PARAMETER NSA$C_OBJ_DELETE = '00000001'X ! Delete object. PARAMETER NSA$C_DELETE_MAX_CODE = '00000002'X, ! Define the access object event subtypes.; PARAMETER NSA$C_OBJ_ACCESS = '00000001'X ! Access object. PARAMETER NSA$C_ACCESS_MAX_CODE = '00000002'X. ! Define the deaccess object event subtypes.? PARAMETER NSA$C_OBJ_DEACCESS = '00000001'X ! Deaccess object0 PARAMETER NSA$C_DEACCESS_MAX_CODE = '00000002'X- ! Define connection message event subtypes.A@ PARAMETER NSA$C_CNX_REQUEST = '00000001'X ! Connection requestA PARAMETER NSA$C_CNX_ACCEPT = '00000002'X ! Connection acceptedA PARAMETER NSA$C_CNX_REJECT = '00000003'X ! Connection rejectedI PARAMETER NSA$C_CNX_DISCONNECT = '00000004'X ! Connection disconnectedN PARAMETER NSA$C_CNX_ABORT = '00000005'X ! Connection aborted by third-partyP PARAMETER NSA$C_CNX_DECNET_CREATE = '00000006'X ! DECnet logical link createdU PARAMETER NSA$C_CNX_DECNET_DELETE = '00000007'X ! DECnet logiA cal link disconnectedF PARAMETER NSA$C_CNX_IPC_OPEN = '00000008'X ! IPC association openedG PARAMETER NSA$C_CNX_IPC_CLOSE = '00000009'X ! IPC association closedO PARAMETER NSA$C_CNX_INC_REQUEST = '0000000A'X ! Incomming connection requestM PARAMETER NSA$C_CNX_INC_ACCEPT = '0000000B'X ! Connection request acceptedM PARAMETER NSA$C_CNX_INC_REJECT = '0000000C'X ! Connection request rejectedV PARAMETER NSA$C_CNX_INC_DISCONNECT = '0000000D'X ! Incoming connection disconnected[ PARAMB ETER NSA$C_CNX_INC_ABORT = '0000000E'X ! Incoming connection aborted by third-party+ PARAMETER NSA$C_CNX_MAX_CODE = '0000000F'XA PARAMETER NSA$C_NCP_COMMAND = '00000001'X ! NCP command issued+ PARAMETER NSA$C_NCP_MAX_CODE = '00000002'X< PARAMETER NSA$C_PRC_CREPRC = '00000001'X ! Create process< PARAMETER NSA$C_PRC_DELPRC = '00000002'X ! Delete processE PARAMETER NSA$C_PRC_SCHDWK = '00000003'X ! Schedule process wakeupC PARAMETER NSA$C_PRC_CANWAK = '00000004'X ! Cancel process w C akeup8 PARAMETER NSA$C_PRC_WAKE = '00000005'X ! Wake process= PARAMETER NSA$C_PRC_SUSPND = '00000006'X ! Suspend process< PARAMETER NSA$C_PRC_RESUME = '00000007'X ! Resume process? PARAMETER NSA$C_PRC_GRANTID = '00000008'X ! Grant identifier@ PARAMETER NSA$C_PRC_REVOKID = '00000009'X ! Revoke identifierL PARAMETER NSA$C_PRC_GETJPI = '0000000A'X ! Get job or process information> PARAMETER NSA$C_PRC_FORCEX = '0000000B'X ! Force image exitK PARAMETER NSA$C_PRC_SIGPRC = '0000000C'D X ! Signal process (undocumented)B PARAMETER NSA$C_PRC_SETPRI = '0000000D'X ! Set process priorityX PARAMETER NSA$C_PRC_PRCTERM = '0000000E'X ! Detect process termination (undocumented)P PARAMETER NSA$C_PRC_CPU_CAPABILITIES = '0000000F'X ! Change in CPU capabilityX PARAMETER NSA$C_PRC_PROCESS_CAPABILITIES = '00000010'X ! Change in process capabilityR PARAMETER NSA$C_PRC_PROCESS_AFFINITY = '00000011'X ! Change in process affinityX PARAMETER NSA$C_PRC_SET_IMPLICIT_AFFINITY = '00000012 E 'X ! Change in implicit affinity+ PARAMETER NSA$C_PRC_MAX_CODE = '00000013'XP PARAMETER NSA$C_INSTANTIATE_ORB = '00000001'X ! Create an instance of an ORB " ! the profile may, or may not,  ! present in the database.B PARAMETER NSA$C_DISTRIBUTE_ORB = '00000002'X ! ORB distributionT PARAMETER NSA$C_OBJECT_AUDIT_CHANGE = '00000003'X ! Change in audit/alarm vectorsL PARAMETER NSA$C_DISTRIBUTE_NOTICE = '00000004'X ! Notify agents of change ! used for objects which ! provideF permanent storage. PARAMETER NSA$C_OBJSRV_MAX_CODE = '00000005'X4 ! Define distributed authentication subtypes here.\ PARAMETER NSA$C_AUTH_NETWORK_LOGIN = '00000002'X ! authenticated network login Z PARAMETER NSA$C_AUTH_RENEW_LOGIN = '00000003'X ! authentication credential renewal [ PARAMETER NSA$C_AUTH_INIT_SEC_CTX = '00000004'X ! initiate security context Z PARAMETER NSA$C_AUTH_ACC_SEC_CTX = '00000005'X ! accept security context _ PARAMETER NG SA$C_AUTH_INSTALL_DEF_CRED = '00000006'X ! install application credential handle [ PARAMETER NSA$C_AUTH_ACQUIRE_CRED = '00000007'X ! acquire credential handle Y PARAMETER NSA$C_AUTH_GRANT_CRED = '00000008'X ! grant credential to another process [ PARAMETER NSA$C_AUTH_RELEASE_CRED = '00000009'X ! release credential handle Z PARAMETER NSA$C_AUTH_DEL_SEC_CTX = '0000000A'X ! delete security context ] PARAMETER NSA$C_AUTH_PROC_CTX_TOKEN = '0000000BH 'X ! process context token U PARAMETER NSA$C_AUTH_VERIFY = '0000000C'X ! verify signature ; PARAMETER NSA$C_AUTH_SIGN = '0000000D'X ! sign a message; PARAMETER NSA$C_AUTH_SEAL = '0000000E'X ! seal a message? PARAMETER NSA$C_AUTH_UNSEAL = '0000000F'X ! unseal a messageZ PARAMETER NSA$C_CA_STARTUP = '00000010'X ! the certification authority has been startedQ PARAMETER NSA$C_CA_EXIT = '00000011'X ! the certification authority has exitedS PARI AMETER NSA$C_CA_ADD_DIRECTORY = '00000012'X ! a name directory has been addedN PARAMETER NSA$C_CA_ADD_PRINCIPAL = '00000013'X ! a principal has been addedU PARAMETER NSA$C_CA_LINK_DIRECTORY = '00000014'X ! two directories have been linkeda PARAMETER NSA$C_CA_CHANGE_LINK = '00000015'X ! a link between two directories has been changedd PARAMETER NSA$C_CA_CHANGE_PRINCIPAL = '00000016'X ! a principal's keypair/password or duration haX PARAMETER NSA$C_CA_REMOVE_DIRECTORY = '00000017'X ! J a name directory has been removedS PARAMETER NSA$C_CA_REMOVE_PRINCIPAL = '00000018'X ! a principal has been removedX PARAMETER NSA$C_CA_CERTIFICATE_DELETED = '00000019'X ! a certificate has been deletedd PARAMETER NSA$C_CA_REVOKED_CERT_FOUND = '0000001A'X ! a revoked certificate has been read from th] PARAMETER NSA$C_CA_PASSWORD_CHANGE = '0000001B'X ! the password to the CA has been changedS PARAMETER NSA$C_CSS_OBJECT_CREATED = '0000001C'X ! a CSS object has been createdS PARAMETERK NSA$C_CSS_OBJECT_DELETED = '0000001D'X ! a CSS object has been deletedY PARAMETER NSA$C_CSS_CERTIFICATE_DELETED = '0000001E'X ! a certificate has been deletedd PARAMETER NSA$C_CSS_CREDENTIAL_READ = '0000001F'X ! a principal's permanent credential has been rb PARAMETER NSA$C_CSS_CERTIFICATE_ADDED = '00000020'X ! a certificate has been added to an objectd PARAMETER NSA$C_CSS_CREDENTIAL_WRITTEN = '00000021'X ! an encrypted permanent credential has beenC ! an encrypted permanent creL dential has been added to an objee PARAMETER NSA$C_CSS_USER_CHANGED_PASSWORD = '00000022'X ! a principal has changed his/her passwordd PARAMETER NSA$C_CSS_UPDATED_SECONDARY = '00000023'X ! a CSS secondary has been updated from the ld PARAMETER NSA$C_CSS_DATABASE_UPDATED = '00000024'X ! a secondary CSS has updated its database fro[ PARAMETER NSA$C_CSS_STARTED = '00000025'X ! the CSS server has been successfully startedX PARAMETER NSA$C_CSS_WINDOW_OPEN = '00000026'X ! the CSS access wi M ndow has been openedZ PARAMETER NSA$C_CSS_WINDOW_CLOSED = '00000027'X ! the CSS access window has been closed_ PARAMETER NSA$C_CSS_LOCTABLE_UPDATED = '00000028'X ! the CSS location table has been updated, PARAMETER NSA$C_AUTH_MAX_CODE = '00000029'X ! Define data packet formatF PARAMETER NSA$C_PKT_ACCESS_DESIRED = '00000001'X ! Access requested; PARAMETER NSA$C_PKT_ACCOUNT = '00000002'X ! Account nameD PARAMETER NSA$C_PKT_ALARM_NAME = '00000003'X ! Alarm journal nameJ PARAMETER NN SA$C_PKT_APPL_DATA = '00000004'X ! Application supplied data> PARAMETER NSA$C_PKT_AUDIT_FLAGS = '00000005'X ! Audit flagsD PARAMETER NSA$C_PKT_AUDIT_NAME = '00000006'X ! Audit journal nameG PARAMETER NSA$C_PKT_SYSTEM_NAME = '00000007'X ! SCS system node nameO PARAMETER NSA$C_PKT_SYSTEM_ID = '00000008'X ! SCS system node identificationb PARAMETER NSA$C_PKT_DEVICE_NAME = '00000009'X ! Primary device name on which the volume residesK PARAMETER NSA$C_PKT_DISMOUNT_FLAGS = '0000000A'X !O Volume dismount flags> PARAMETER NSA$C_PKT_HOLDER_NAME = '0000000B'X ! Holder nameC PARAMETER NSA$C_PKT_HOLDER_OWNER = '0000000C'X ! Holder owner IDJ PARAMETER NSA$C_PKT_ID_ATTRIBUTES = '0000000D'X ! Identifier attributes> PARAMETER NSA$C_PKT_ID_NAME = '0000000E'X ! Identifier nameE PARAMETER NSA$C_PKT_ID_NEW_NAME = '0000000F'X ! Identifer new name@ PARAMETER NSA$C_PKT_ID_VALUE = '00000010'X ! Identifier valueH PARAMETER NSA$C_PKT_ID_NEW_VALUE = '00000011'X ! Identifier new vP alueW PARAMETER NSA$C_PKT_IDENTIFIERS_USED = '00000012'X ! Identifiers used to gain accessR PARAMETER NSA$C_PKT_IMAGE_NAME = '00000013'X ! Name of the image being executedB PARAMETER NSA$C_PKT_INSTALL_FILE = '00000014'X ! Installed fileB PARAMETER NSA$C_PKT_INSTALL_FLAGS = '00000015'X ! INSTALL flagsG PARAMETER NSA$C_PKT_INSTALL_PRIVS = '00000016'X ! INSTALL privileges\ PARAMETER NSA$C_PKT_LOGICAL_NAME = '00000017'X ! Logical name associated with the device.E PARAMETER NSA$C_PKT_MQ OUNT_FLAGS = '00000018'X ! Volume mount flagsG PARAMETER NSA$C_PKT_NEW_DATA = '00000019'X ! Data after modificationH PARAMETER NSA$C_PKT_FILE_ID = '0000001A'X ! File identification (FID)\ PARAMETER NSA$C_PKT_OBJECT_MIN_CLASS = '0000001B'X ! Minimum object access classification\ PARAMETER NSA$C_PKT_OBJECT_MAX_CLASS = '0000001C'X ! Maximum object access classificationD PARAMETER NSA$C_PKT_OBJECT_NAME = '0000001D'X ! The object's nameQ PARAMETER NSA$C_PKT_OBJECT_NAME_2 = '0000001E'X R ! Secondary (path) object nameY PARAMETER NSA$C_PKT_OBJECT_OWNER = '0000001F'X ! Owner identifier (UIC) of the process[ PARAMETER NSA$C_PKT_OBJECT_PROTECTION = '00000020'X ! UIC based protection of the objectE PARAMETER NSA$C_PKT_OBJECT_TYPE = '00000021'X ! Object's type codeM PARAMETER NSA$C_PKT_ORIGINAL_DATA = '00000022'X ! Data before modificationJ PARAMETER NSA$C_PKT_PARENT_ID = '00000023'X ! PID of the parent processF PARAMETER NSA$C_PKT_PARENT_NAME = '00000024'X ! Parent S process nameN PARAMETER NSA$C_PKT_PARENT_OWNER = '00000025'X ! Parent process owner (UIC)N PARAMETER NSA$C_PKT_PARENT_USERNAME = '00000026'X ! Parent process username@ PARAMETER NSA$C_PKT_PASSWORD = '00000027'X ! Breakin passwordP PARAMETER NSA$C_PKT_PRIVS_USED = '00000028'X ! Privileges used to gain accessE PARAMETER NSA$C_PKT_PROCESS_ID = '00000029'X ! Current process PIDH PARAMETER NSA$C_PKT_PROCESS_NAME = '0000002A'X ! Current process nameO PARAMETER NSA$C_PKT_REMOTE_NODE_ID = T '0000002B'X ! Node ID of network sourceF PARAMETER NSA$C_PKT_REMOTE_NODENAME = '0000002C'X ! Remote nodenameF PARAMETER NSA$C_PKT_REMOTE_USERNAME = '0000002D'X ! Remote usernameQ PARAMETER NSA$C_PKT_SUBJECT_CLASS = '0000002E'X ! Process current access classH PARAMETER NSA$C_PKT_SUBJECT_OWNER = '0000002F'X ! Process owner (UIC)E PARAMETER NSA$C_PKT_FINAL_STATUS = '00000030'X ! Completion statusE PARAMETER NSA$C_PKT_TERMINAL = '00000031'X ! Process terminal nameK PARAMETER NSA$CU _PKT_TIME_STAMP = '00000032'X ! When the event took place? PARAMETER NSA$C_PKT_UAF_ADD = '00000033'X ! UAF record addedD PARAMETER NSA$C_PKT_UAF_DELETE = '00000034'X ! UAF record removedE PARAMETER NSA$C_PKT_UAF_MODIFY = '00000035'X ! UAF record modifiedA PARAMETER NSA$C_PKT_UAF_COPY = '00000036'X ! UAF record copiedE PARAMETER NSA$C_PKT_UAF_FIELDS = '00000037'X ! UAF fields modifiedB PARAMETER NSA$C_PKT_USERNAME = '00000038'X ! Requestor usernameE PARAMETER NSA$C_PKT_UAF_SOUV RCE = '00000039'X ! UAF source usernameD PARAMETER NSA$C_PKT_UAF_RENAME = '0000003A'X ! UAF record renamedM PARAMETER NSA$C_PKT_VOLUME_NAME = '0000003B'X ! Mount/dismount volume nameF PARAMETER NSA$C_PKT_VOLUME_SET_NAME = '0000003C'X ! Volume set nameD PARAMETER NSA$C_PKT_SERVER_ACCOUNT = '0000003D'X ! Server accountH PARAMETER NSA$C_PKT_SERVER_SYSTEM_ID = '0000003E'X ! Server system idL PARAMETER NSA$C_PKT_SERVER_SYSTEM_NAME = '0000003F'X ! Server system nameH PARAMETER NSA$C_PW KT_SERVER_FINAL_STATUS = '00000040'X ! Server statusJ PARAMETER NSA$C_PKT_SERVER_IMAGE_NAME = '00000041'X ! Server image nameH PARAMETER NSA$C_PKT_SERVER_PARENT_ID = '00000042'X ! Server parent idT PARAMETER NSA$C_PKT_SERVER_PARENT_OWNER = '00000043'X ! Server parent owner (UIC)T PARAMETER NSA$C_PKT_SERVER_PARENT_NAME = '00000044'X ! Server parent process nameJ PARAMETER NSA$C_PKT_SERVER_PROCESS_ID = '00000045'X ! Server process idN PARAMETER NSA$C_PKT_SERVER_PROCESS_NAME = '00000046X 'X ! Server process nameQ PARAMETER NSA$C_PKT_SERVER_SUBJECT_CLASS = '00000047'X ! Server classificationN PARAMETER NSA$C_PKT_SERVER_SUBJECT_OWNER = '00000048'X ! Server owner (UIC)F PARAMETER NSA$C_PKT_SERVER_TERMINAL = '00000049'X ! Server terminalI PARAMETER NSA$C_PKT_SERVER_TIME_STAMP = '0000004A'X ! Server timestampF PARAMETER NSA$C_PKT_SERVER_USERNAME = '0000004B'X ! Server usernameM PARAMETER NSA$C_PKT_AUDIT_DISABLE = '0000004C'X ! Audit event disable maskK PARAMETER NSAY $C_PKT_AUDIT_ENABLE = '0000004D'X ! Audit event enable maskM PARAMETER NSA$C_PKT_ALARM_DISABLE = '0000004E'X ! Alarm event disable maskK PARAMETER NSA$C_PKT_ALARM_ENABLE = '0000004F'X ! Alarm event enable maskF PARAMETER NSA$C_PKT_NOP = '00000050'X ! Nop (for static item lists)P PARAMETER NSA$C_PKT_REPLY_MAILBOX = '00000051'X ! Message acknowledge mailboxV PARAMETER NSA$C_PKT_DEFAULT_USERNAME = '00000052'X ! NETPROXY default proxy accountR PARAMETER NSA$C_PKT_LOCAL_USERNAME = '000Z 00053'X ! NETPROXY local proxy accountX PARAMETER NSA$C_PKT_FIELD_NAME = '00000054'X ! Name of (NEW_DATA/ORIGINAL_DATA) fieldK PARAMETER NSA$C_PKT_LISTENER_DEVICE = '00000055'X ! Listener device nameI PARAMETER NSA$C_PKT_FIELD_TITLE_STR = '00000056'X ! Field title stringG PARAMETER NSA$C_PKT_FIELD_DATA_STR = '00000057'X ! Field data stringQ PARAMETER NSA$C_PKT_MESSAGE_TYPE_STR = '00000058'X ! Event message type stringS PARAMETER NSA$C_PKT_EVENT_TYPE = '00000059'X ! Event messag[ e type ($AUDIT_EVENT)Y PARAMETER NSA$C_PKT_EVENT_SUBTYPE = '0000005A'X ! Event message subtype ($AUDIT_EVENT)S PARAMETER NSA$C_PKT_EVENT_FACILITY = '0000005B'X ! Event facility ($AUDIT_EVENT)d PARAMETER NSA$C_PKT_DIRECTORY_ENTRY = '0000005C'X ! Directory entry associated with XQP operationE PARAMETER NSA$C_PKT_DIRECTORY_ID = '0000005D'X ! Directory file-idO ! The following three blocks of codes are obsolete with V5.4. With V5.4, oneK ! should use the NSA$W_FACILITY field for laye \ red product and/or customerO ! audit messages. These symbols must not be reused as versions of SeVMS (and& ! fiends) depend on their existence.@ PARAMETER NSA$C_PKT_CUSTOMER_1 = '0000005E'X ! obsolete codes- PARAMETER NSA$C_PKT_CUSTOMER_2 = '0000005F'X- PARAMETER NSA$C_PKT_CUSTOMER_3 = '00000060'X- PARAMETER NSA$C_PKT_CUSTOMER_4 = '00000061'X- PARAMETER NSA$C_PKT_CUSTOMER_5 = '00000062'X- PARAMETER NSA$C_PKT_CUSTOMER_6 = '00000063'X- PARAMETER NSA$C_PKT_CUSTOMER_7 = '00000064'X- ] PARAMETER NSA$C_PKT_CUSTOMER_8 = '00000065'X; PARAMETER NSA$C_PKT_CSS_1 = '00000066'X ! obsolete codes( PARAMETER NSA$C_PKT_CSS_2 = '00000067'X( PARAMETER NSA$C_PKT_CSS_3 = '00000068'X( PARAMETER NSA$C_PKT_CSS_4 = '00000069'X( PARAMETER NSA$C_PKT_CSS_5 = '0000006A'X( PARAMETER NSA$C_PKT_CSS_6 = '0000006B'X( PARAMETER NSA$C_PKT_CSS_7 = '0000006C'X( PARAMETER NSA$C_PKT_CSS_8 = '0000006D'X: PARAMETER NSA$C_PKT_LP_1 = '0000006E'X ! obsolete codes' PARAMETER NSA$C_PKT_LP_2 = '0000006F'X' ^ PARAMETER NSA$C_PKT_LP_3 = '00000070'X' PARAMETER NSA$C_PKT_LP_4 = '00000071'X' PARAMETER NSA$C_PKT_LP_5 = '00000072'X' PARAMETER NSA$C_PKT_LP_6 = '00000073'X' PARAMETER NSA$C_PKT_LP_7 = '00000074'X' PARAMETER NSA$C_PKT_LP_8 = '00000075'X ! End of obsolete codes.G PARAMETER NSA$C_PKT_ALARM_FAILURE = '00000076'X ! Alarm failure modeG PARAMETER NSA$C_PKT_AUDIT_FAILURE = '00000077'X ! Audit failure modeA PARAMETER NSA$C_PKT_SEVMS_0 = '00000078'X ! Reserved for SeVMSA PARAMETER_ NSA$C_PKT_SEVMS_1 = '00000079'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_2 = '0000007A'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_3 = '0000007B'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_4 = '0000007C'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_5 = '0000007D'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_6 = '0000007E'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_7 = '0000007F'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_8 = '00000080 ` 'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_9 = '00000081'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SEVMS_10 = '00000082'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SEVMS_11 = '00000083'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SEVMS_12 = '00000084'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SEVMS_13 = '00000085'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SEVMS_14 = '00000086'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SEVMS_15 = '00000087'X ! Reserved for SeVMSB Pa ARAMETER NSA$C_PKT_SEVMS_16 = '00000088'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SEVMS_17 = '00000089'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SEVMS_18 = '0000008A'X ! Reserved for SeVMSB PARAMETER NSA$C_PKT_SNAPSHOT_TIME = '0000008B'X ! Snapshot timeW PARAMETER NSA$C_PKT_TRANSPORT_NAME = '0000008C'X ! Transport name (IPC, DECnet, SMI)L PARAMETER NSA$C_PKT_DECNET_LINK_ID = '0000008D'X ! DECnet logical link IDL PARAMETER NSA$C_PKT_DECNET_OBJECT_NAME = '0000008E'X ! DECnet objb ect nameP PARAMETER NSA$C_PKT_DECNET_OBJECT_NUMBER = '0000008F'X ! DECnet object numberL PARAMETER NSA$C_PKT_REMOTE_LINK_ID = '00000090'X ! Remote logical link ID@ PARAMETER NSA$C_PKT_COMMAND_LINE = '00000091'X ! Command lineL PARAMETER NSA$C_PKT_ASSOCIATION_NAME = '00000092'X ! IPC association nameW PARAMETER NSA$C_PKT_REM_ASSOCIATION_NAME = '00000093'X ! IPC remote association nameF PARAMETER NSA$C_PKT_CONNECTION_ID = '00000094'X ! IPC connection IDF PARAMETER NSA$C_PKT_MESSAGE =c '00000095'X ! Associated message codeM PARAMETER NSA$C_PKT_MSGFILNAM = '00000096'X ! Associated message file nameR PARAMETER NSA$C_PKT_OBJECT_POINTER = '00000097'X ! Object container (Directory)R PARAMETER NSA$C_PKT_ID_NEW_ATTRIBUTES = '00000098'X ! Identifier new attributesA PARAMETER NSA$C_PKT_SYSTIM_NEW = '00000099'X ! New system timeA PARAMETER NSA$C_PKT_SYSTIM_OLD = '0000009A'X ! Old system timeU PARAMETER NSA$C_PKT_PARAMS_WRITE = '0000009B'X ! SYSGEN filename for WRITE cod mmand] PARAMETER NSA$C_PKT_PARAMS_INUSE = '0000009C'X ! SYSGEN parameter set name for USE commandR PARAMETER NSA$C_PKT_MATCHING_ACE = '0000009D'X ! ACE granting or denying accessS PARAMETER NSA$C_PKT_SNAPSHOT_SAVE_FILNAM = '0000009E'X ! Snapshot save file nameG PARAMETER NSA$C_PKT_MAILBOX_UNIT = '0000009F'X ! Mailbox unit numberH PARAMETER NSA$C_PKT_NEW_OWNER = '000000A0'X ! New process owner (UIC)H PARAMETER NSA$C_PKT_NEW_PRIORITY = '000000A1'X ! New process priorityH PARAMETERe NSA$C_PKT_OLD_PRIORITY = '000000A2'X ! Old process priorityD PARAMETER NSA$C_PKT_DIAG_FUNC = '000000A3'X ! Diagnostic functionG PARAMETER NSA$C_PKT_RESOURCE_NAME = '000000A4'X ! Lock resource nameM PARAMETER NSA$C_PKT_LNM_TABLE_NAME = '000000A5'X ! Logical name table nameU PARAMETER NSA$C_PKT_LNM_PARENT_NAME = '000000A6'X ! Parent logical name table nameG PARAMETER NSA$C_PKT_EFC_NAME = '000000A7'X ! Event Flag Cluster nameY PARAMETER NSA$C_PKT_TARGET_PROCESS_CLASS = '000000A8'X f ! Target process classificationK PARAMETER NSA$C_PKT_TARGET_PROCESS_ID = '000000A9'X ! Target process PIDN PARAMETER NSA$C_PKT_TARGET_PROCESS_NAME = '000000AA'X ! Target process nameV PARAMETER NSA$C_PKT_TARGET_PROCESS_OWNER = '000000AB'X ! Target process owner (UIC)F PARAMETER NSA$C_PKT_TARGET_USERNAME = '000000AC'X ! Target usernameD PARAMETER NSA$C_PKT_NEW_PRIVILEGES = '000000AD'X ! New privilegesD PARAMETER NSA$C_PKT_OLD_PRIVILEGES = '000000AE'X ! Old privilegesP PARAMETER Ng SA$C_PKT_REMOTE_NODE_FULLNAME = '000000AF'X ! Remote node fullname9 PARAMETER NSA$C_PKT_UID = '000000B0'X ! UID of object > PARAMETER NSA$C_PKT_UNUSED_3 = '000000B1'X ! Unused packet > PARAMETER NSA$C_PKT_UNUSED_4 = '000000B2'X ! Unused packet > PARAMETER NSA$C_PKT_UNUSED_5 = '000000B3'X ! Unused packet > PARAMETER NSA$C_PKT_UNUSED_6 = '000000B4'X ! Unused packet > PARAMETER NSA$C_PKT_UNUSED_7 = '000000B5'X ! Unused packet > PARAMETER NSA$C_PKT_UNUSED_8 = '000000B6'X ! Unused ph acket > PARAMETER NSA$C_PKT_UNUSED_9 = '000000B7'X ! Unused packet ? PARAMETER NSA$C_PKT_UNUSED_10 = '000000B8'X ! Unused packet G PARAMETER NSA$C_PKT_PRIVS_MISSING = '000000B9'X ! Privileges missingL PARAMETER NSA$C_PKT_TARGET_DEVICE_NAME = '000000BA'X ! Target device nameG PARAMETER NSA$C_PKT_SECTION_NAME = '000000BB'X ! Global section nameK PARAMETER NSA$C_PKT_ID_VALUE_ASCII = '000000BC'X ! ID value via $IDTOASCE PARAMETER NSA$C_PKT_OBJECT_CLASS = '000000BD'X ! Object classi nameG PARAMETER NSA$C_PKT_SUPPRESS = '000000BE'X ! Suppress supplied itemsP PARAMETER NSA$C_PKT_SNAPSHOT_BOOTFILE = '000000BF'X ! Snapshot boot file nameZ PARAMETER NSA$C_PKT_SOURCE_PROCESS_ID = '000000C0'X ! Source process ID (impersonation)D PARAMETER NSA$C_PKT_REQUEST_NUMBER = '000000C1'X ! Request number> PARAMETER NSA$C_PKT_ACCESS_MODE = '000000C2'X ! Access modeN PARAMETER NSA$C_PKT_SYSTEM_SERVICE_NAME = '000000C3'X ! System service nameT PARAMETER NSA$C_PKT_NEW_AUTH_PRIVILj EGES = '000000C4'X ! New authorized privilegesT PARAMETER NSA$C_PKT_OLD_AUTH_PRIVILEGES = '000000C5'X ! Old authorized privilegesP PARAMETER NSA$C_PKT_NEW_DEF_PRIVILEGES = '000000C6'X ! New default privilegesP PARAMETER NSA$C_PKT_OLD_DEF_PRIVILEGES = '000000C7'X ! Old default privilegesD PARAMETER NSA$C_PKT_NEW_PROCESS_ID = '000000C8'X ! New process IDP PARAMETER NSA$C_PKT_NEW_PROCESS_OWNER = '000000C9'X ! New process owner (UIC)H PARAMETER NSA$C_PKT_NEW_PROCESS_NAME = '000000CA'X !k New process nameD PARAMETER NSA$C_PKT_NEW_IMAGE_NAME = '000000CB'X ! New image name@ PARAMETER NSA$C_PKT_NEW_USERNAME = '000000CC'X ! New usernameF PARAMETER NSA$C_PKT_DEACCESS_KEY = '000000CD'X ! Deaccess audit keyN PARAMETER NSA$C_PKT_OBJECT_RIGHTS_BLOCK = '000000CE'X ! Object Rights Blockc PARAMETER NSA$C_PKT_OBJSRV_COMPLETE = '000000CF'X ! Object service processing completion routineB PARAMETER NSA$C_PKT_TLV_ORB = '000000D0'X ! Object distributionL PARAMETER NSA$C_PKT_FILE_NA l ME = '000000D1'X ! File name (volume auditing)I PARAMETER NSA$C_PKT_DIRECTORY_NAME = '000000D2'X ! Directory file nameO PARAMETER NSA$C_PKT_SEQUENCE_KEY = '000000D3'X ! Sequence key (XQP auditing) ! DAS item codes.5 PARAMETER NSA$C_PKT_PRINCIPAL_FULLNAME = '000000D4'X2 PARAMETER NSA$C_PKT_TARGET_FULLNAME = '000000D5'X2 PARAMETER NSA$C_PKT_SOURCE_FULLNAME = '000000D6'X3 PARAMETER NSA$C_PKT_DESIRED_FULLNAME = '000000D7'X3 PARAMETER NSA$C_PKT_CLAIMED_USERNAME = '000000D8'X3 PARAMET m ER NSA$C_PKT_CLAIMED_FULLNAME = '000000D9'X3 PARAMETER NSA$C_PKT_CLAIMED_NODENAME = '000000DA'X+ PARAMETER NSA$C_PKT_TIME_REQ = '000000DB'X+ PARAMETER NSA$C_PKT_TIME_REC = '000000DC'X, PARAMETER NSA$C_PKT_REQ_FLAGS = '000000DD'X, PARAMETER NSA$C_PKT_RET_FLAGS = '000000DE'X/ PARAMETER NSA$C_PKT_LIFETIME_REQ = '000000DF'X/ PARAMETER NSA$C_PKT_LIFETIME_REC = '000000E0'X- PARAMETER NSA$C_PKT_CRED_USAGE = '000000E1'X1 PARAMETER NSA$C_PKT_CONTEXT_HANDLE = '000000E2'X, PARAMETER NSA$C_PKT_Q n OP_STATE = '000000E3'X- PARAMETER NSA$C_PKT_CONF_STATE = '000000E4'X4 PARAMETER NSA$C_PKT_DELEG_CRED_HANDLE = '000000E5'X/ PARAMETER NSA$C_PKT_MAJOR_STATUS = '000000E6'X( PARAMETER NSA$C_PKT_DAS_1 = '000000E7'X( PARAMETER NSA$C_PKT_DAS_2 = '000000E8'X( PARAMETER NSA$C_PKT_DAS_3 = '000000E9'X( PARAMETER NSA$C_PKT_DAS_4 = '000000EA'X( PARAMETER NSA$C_PKT_DAS_5 = '000000EB'X( PARAMETER NSA$C_PKT_DAS_6 = '000000EC'X( PARAMETER NSA$C_PKT_DAS_7 = '000000ED'X( PARAMETER NSA$C_PKT_DAS_8 = '000000 o EE'X( PARAMETER NSA$C_PKT_DAS_9 = '000000EF'X) PARAMETER NSA$C_PKT_DAS_10 = '000000F0'X2 PARAMETER NSA$C_PKT_STATE_FILE_NAME = '000000F1'X5 PARAMETER NSA$C_PKT_DIRECTORY_FULLNAME = '000000F2'X4 PARAMETER NSA$C_PKT_FROM_DIR_FULLNAME = '000000F3'X2 PARAMETER NSA$C_PKT_TO_DIR_FULLNAME = '000000F4'X2 PARAMETER NSA$C_PKT_ISSUER_FULLNAME = '000000F5'X3 PARAMETER NSA$C_PKT_SUBJECT_FULLNAME = '000000F6'X. PARAMETER NSA$C_PKT_CERTIF_TYPE = '000000F7'X5 PARAMETER NSA$C_PKT_CSS_SECONDARY_NAME = '000 p 000F8'X6 PARAMETER NSA$C_PKT_CSS_OBJECT_FULLNAME = '000000F9'X3 PARAMETER NSA$C_PKT_CSS_REQUEST_FROM = '000000FA'X3 PARAMETER NSA$C_PKT_CSS_PRIMARY_NAME = '000000FB'X7 PARAMETER NSA$C_PKT_CERTIF_SERIAL_NUMBER = '000000FC'X2 PARAMETER NSA$C_PKT_WINDOW_END_TIME = '000000FD'XA PARAMETER NSA$C_PKT_LOG_CLOSED = '000000FE'X ! log file closedA PARAMETER NSA$C_PKT_LOG_OPENED = '000000FF'X ! log file openedN PARAMETER NSA$C_PKT_IDENTIFIERS_MISSING = '00000100'X ! identifiers missing7 PARAM q ETER NSA$C_PKT_SENSITIVE_FIELD_NAME = '00000101'X6 PARAMETER NSA$C_PKT_SENSITIVE_ORIG_DATA = '00000102'X5 PARAMETER NSA$C_PKT_SENSITIVE_NEW_DATA = '00000103'X8 PARAMETER NSA$C_PKT_SENSITIVE_FIELD_TITLE = '00000104'X7 PARAMETER NSA$C_PKT_SENSITIVE_FIELD_DATA = '00000105'XY PARAMETER NSA$C_PKT_INSTALL_AUTHPRIVS = '00000106'X ! installed image authorized privsB PARAMETER NSA$C_PKT_PERSONA_FLAGS = '00000107'X ! persona flags> PARAMETER NSA$C_PKT_PERSONA_UID = '00000108'X ! persona UIDI Pr ARAMETER NSA$C_PKT_PERSONA_MODE = '00000109'X ! persona creation modeH PARAMETER NSA$C_PKT_PERSONA_USERNAME = '0000010A'X ! persona usernameF PARAMETER NSA$C_PKT_PERSONA_ACCOUNT = '0000010B'X ! persona accountN PARAMETER NSA$C_PKT_PERSONA_NOAUDIT = '0000010C'X ! persona noaudit counter> PARAMETER NSA$C_PKT_PERSONA_UIC = '0000010D'X ! persona UICP PARAMETER NSA$C_PKT_PERSONA_AUTHPRIV = '0000010E'X ! persona authorized privsO PARAMETER NSA$C_PKT_PERSONA_PERMPRIV = '0000010F'X ! perss ona permanent privsM PARAMETER NSA$C_PKT_PERSONA_WORKPRIV = '00000110'X ! persona working privsS PARAMETER NSA$C_PKT_PERSONA_ENABLED = '00000111'X ! persona rights enabled flagsD PARAMETER NSA$C_PKT_PERSONA_RIGHTS = '00000112'X ! persona rightsV PARAMETER NSA$C_PKT_PERSONA_MINCLASS = '00000113'X ! persona minimum classificationV PARAMETER NSA$C_PKT_PERSONA_MAXCLASS = '00000114'X ! persona maximum classificationW PARAMETER NSA$C_PKT_PERSONA_WORKCLASS = '00000115'X ! persona working t classification= PARAMETER NSA$C_PKT_PERSONA_ID = '00000116'X ! persona Id 4 PARAMETER NSA$C_PKT_PERSONA_POSIX_UID = '00000117'X4 PARAMETER NSA$C_PKT_PERSONA_POSIX_GID = '00000118'X3 PARAMETER NSA$C_PKT_PARENT_POSIX_UID = '00000119'X3 PARAMETER NSA$C_PKT_PARENT_POSIX_GID = '0000011A'X< PARAMETER NSA$C_PKT_MAX_CODE = '0000011B'X ! Must be last- PARAMETER NSA$C_PKT_HDR_LENGTH = '00000004'X- PARAMETER NSA$K_PKT_HDR_LENGTH = '00000004'XA PARAMETER NSA$_ACCESS_DESIRED = '00000001'X ! A u ccess requested6 PARAMETER NSA$_ACCOUNT = '00000002'X ! Account name? PARAMETER NSA$_ALARM_NAME = '00000003'X ! Alarm journal nameE PARAMETER NSA$_APPL_DATA = '00000004'X ! Application supplied data9 PARAMETER NSA$_AUDIT_FLAGS = '00000005'X ! Audit flags? PARAMETER NSA$_AUDIT_NAME = '00000006'X ! Audit journal nameB PARAMETER NSA$_SYSTEM_NAME = '00000007'X ! SCS system node nameJ PARAMETER NSA$_SYSTEM_ID = '00000008'X ! SCS system node identification] PARAMETER NSA$_DEVICE_Nv AME = '00000009'X ! Primary device name on which the volume residesF PARAMETER NSA$_DISMOUNT_FLAGS = '0000000A'X ! Volume dismount flags9 PARAMETER NSA$_HOLDER_NAME = '0000000B'X ! Holder name> PARAMETER NSA$_HOLDER_OWNER = '0000000C'X ! Holder owner IDE PARAMETER NSA$_ID_ATTRIBUTES = '0000000D'X ! Identifier attributes9 PARAMETER NSA$_ID_NAME = '0000000E'X ! Identifier name@ PARAMETER NSA$_ID_NEW_NAME = '0000000F'X ! Identifer new name; PARAMETER NSA$_ID_VALUE = '00000010'X w ! Identifier valueC PARAMETER NSA$_ID_NEW_VALUE = '00000011'X ! Identifier new valueR PARAMETER NSA$_IDENTIFIERS_USED = '00000012'X ! Identifiers used to gain accessM PARAMETER NSA$_IMAGE_NAME = '00000013'X ! Name of the image being executed= PARAMETER NSA$_INSTALL_FILE = '00000014'X ! Installed file= PARAMETER NSA$_INSTALL_FLAGS = '00000015'X ! INSTALL flagsB PARAMETER NSA$_INSTALL_PRIVS = '00000016'X ! INSTALL privilegesW PARAMETER NSA$_LOGICAL_NAME = '00000017'X ! Logicalx name associated with the device.@ PARAMETER NSA$_MOUNT_FLAGS = '00000018'X ! Volume mount flagsB PARAMETER NSA$_NEW_DATA = '00000019'X ! Data after modificationC PARAMETER NSA$_FILE_ID = '0000001A'X ! File identification (FID)W PARAMETER NSA$_OBJECT_MIN_CLASS = '0000001B'X ! Minimum object access classificationW PARAMETER NSA$_OBJECT_MAX_CLASS = '0000001C'X ! Maximum object access classification? PARAMETER NSA$_OBJECT_NAME = '0000001D'X ! The object's nameL PARAMETER NSA$_OBJEy CT_NAME_2 = '0000001E'X ! Secondary (path) object nameT PARAMETER NSA$_OBJECT_OWNER = '0000001F'X ! Owner identifier (UIC) of the processV PARAMETER NSA$_OBJECT_PROTECTION = '00000020'X ! UIC based protection of the object@ PARAMETER NSA$_OBJECT_TYPE = '00000021'X ! Object's type codeH PARAMETER NSA$_ORIGINAL_DATA = '00000022'X ! Data before modificationE PARAMETER NSA$_PARENT_ID = '00000023'X ! PID of the parent processA PARAMETER NSA$_PARENT_NAME = '00000024'X ! Parent process nz ameI PARAMETER NSA$_PARENT_OWNER = '00000025'X ! Parent process owner (UIC)I PARAMETER NSA$_PARENT_USERNAME = '00000026'X ! Parent process username; PARAMETER NSA$_PASSWORD = '00000027'X ! Breakin passwordK PARAMETER NSA$_PRIVS_USED = '00000028'X ! Privileges used to gain access@ PARAMETER NSA$_PROCESS_ID = '00000029'X ! Current process PIDC PARAMETER NSA$_PROCESS_NAME = '0000002A'X ! Current process nameJ PARAMETER NSA$_REMOTE_NODE_ID = '0000002B'X ! Node ID of network sour { ceA PARAMETER NSA$_REMOTE_NODENAME = '0000002C'X ! Remote nodenameA PARAMETER NSA$_REMOTE_USERNAME = '0000002D'X ! Remote usernameL PARAMETER NSA$_SUBJECT_CLASS = '0000002E'X ! Process current access classC PARAMETER NSA$_SUBJECT_OWNER = '0000002F'X ! Process owner (UIC)@ PARAMETER NSA$_FINAL_STATUS = '00000030'X ! Completion status@ PARAMETER NSA$_TERMINAL = '00000031'X ! Process terminal nameF PARAMETER NSA$_TIME_STAMP = '00000032'X ! When the event took place: PARAMETER NSA | $_UAF_ADD = '00000033'X ! UAF record added? PARAMETER NSA$_UAF_DELETE = '00000034'X ! UAF record removed@ PARAMETER NSA$_UAF_MODIFY = '00000035'X ! UAF record modified< PARAMETER NSA$_UAF_COPY = '00000036'X ! UAF record copied@ PARAMETER NSA$_UAF_FIELDS = '00000037'X ! UAF fields modified= PARAMETER NSA$_USERNAME = '00000038'X ! Requestor username? PARAMETER NSA$_UAF_SOURCE = '00000039'X ! Secondary username? PARAMETER NSA$_UAF_RENAME = '0000003A'X ! UAF record renamedH PAR} AMETER NSA$_VOLUME_NAME = '0000003B'X ! Mount/dismount volume nameA PARAMETER NSA$_VOLUME_SET_NAME = '0000003C'X ! Volume set name? PARAMETER NSA$_SERVER_ACCOUNT = '0000003D'X ! Server accountC PARAMETER NSA$_SERVER_SYSTEM_ID = '0000003E'X ! Server system idG PARAMETER NSA$_SERVER_SYSTEM_NAME = '0000003F'X ! Server system nameC PARAMETER NSA$_SERVER_FINAL_STATUS = '00000040'X ! Server statusE PARAMETER NSA$_SERVER_IMAGE_NAME = '00000041'X ! Server image nameC PARAMETER NSA$_~ SERVER_PARENT_ID = '00000042'X ! Server parent idI PARAMETER NSA$_SERVER_PARENT_OWNER = '00000043'X ! Server parent ownerO PARAMETER NSA$_SERVER_PARENT_NAME = '00000044'X ! Server parent process nameE PARAMETER NSA$_SERVER_PROCESS_ID = '00000045'X ! Server process idI PARAMETER NSA$_SERVER_PROCESS_NAME = '00000046'X ! Server process nameL PARAMETER NSA$_SERVER_SUBJECT_CLASS = '00000047'X ! Server classificationK PARAMETER NSA$_SERVER_SUBJECT_OWNER = '00000048'X ! Server owner  ('UIC')A PARAMETER NSA$_SERVER_TERMINAL = '00000049'X ! Server terminalD PARAMETER NSA$_SERVER_TIME_STAMP = '0000004A'X ! Server timestampA PARAMETER NSA$_SERVER_USERNAME = '0000004B'X ! Server usernameH PARAMETER NSA$_AUDIT_DISABLE = '0000004C'X ! Audit event disable maskF PARAMETER NSA$_AUDIT_ENABLE = '0000004D'X ! Audit event enable maskH PARAMETER NSA$_ALARM_DISABLE = '0000004E'X ! Alarm event disable maskF PARAMETER NSA$_ALARM_ENABLE = '0000004F'X ! Alarm event enable mask A PARAMETER NSA$_NOP = '00000050'X ! Nop (for static item lists)K PARAMETER NSA$_REPLY_MAILBOX = '00000051'X ! Message acknowledge mailboxQ PARAMETER NSA$_DEFAULT_USERNAME = '00000052'X ! NETPROXY proxy default accountM PARAMETER NSA$_LOCAL_USERNAME = '00000053'X ! NETPROXY proxy local accountS PARAMETER NSA$_FIELD_NAME = '00000054'X ! Name of (NEW_DATA/ORIGINAL_DATA) fieldF PARAMETER NSA$_LISTENER_DEVICE = '00000055'X ! Listener device nameD PARAMETER NSA$_FIELD_TITLE_STR = '0 0000056'X ! Field title stringB PARAMETER NSA$_FIELD_DATA_STR = '00000057'X ! Field data stringL PARAMETER NSA$_MESSAGE_TYPE_STR = '00000058'X ! Event message type stringN PARAMETER NSA$_EVENT_TYPE = '00000059'X ! Event message type ($AUDIT_EVENT)T PARAMETER NSA$_EVENT_SUBTYPE = '0000005A'X ! Event message subtype ($AUDIT_EVENT)N PARAMETER NSA$_EVENT_FACILITY = '0000005B'X ! Event facility ($AUDIT_EVENT)_ PARAMETER NSA$_DIRECTORY_ENTRY = '0000005C'X ! Directory entry associated wit h XQP operation@ PARAMETER NSA$_DIRECTORY_ID = '0000005D'X ! Directory file-id; PARAMETER NSA$_CUSTOMER_1 = '0000005E'X ! obsolete codes( PARAMETER NSA$_CUSTOMER_2 = '0000005F'X( PARAMETER NSA$_CUSTOMER_3 = '00000060'X( PARAMETER NSA$_CUSTOMER_4 = '00000061'X( PARAMETER NSA$_CUSTOMER_5 = '00000062'X( PARAMETER NSA$_CUSTOMER_6 = '00000063'X( PARAMETER NSA$_CUSTOMER_7 = '00000064'X( PARAMETER NSA$_CUSTOMER_8 = '00000065'X6 PARAMETER NSA$_CSS_1 = '00000066'X ! obsolete codes# PARAMETER NSA$_CSS_2 = '00000067'X# PARAMETER NSA$_CSS_3 = '00000068'X# PARAMETER NSA$_CSS_4 = '00000069'X# PARAMETER NSA$_CSS_5 = '0000006A'X# PARAMETER NSA$_CSS_6 = '0000006B'X# PARAMETER NSA$_CSS_7 = '0000006C'X# PARAMETER NSA$_CSS_8 = '0000006D'X5 PARAMETER NSA$_LP_1 = '0000006E'X ! obsolete codes" PARAMETER NSA$_LP_2 = '0000006F'X" PARAMETER NSA$_LP_3 = '00000070'X" PARAMETER NSA$_LP_4 = '00000071'X" PARAMETER NSA$_LP_5 = '00000072'X" PARAMETER NSA$_LP_6 = '00000073'X" PARAMETER NSA $_LP_7 = '00000074'X" PARAMETER NSA$_LP_8 = '00000075'XB PARAMETER NSA$_ALARM_FAILURE = '00000076'X ! Alarm failure modeB PARAMETER NSA$_AUDIT_FAILURE = '00000077'X ! Audit failure mode< PARAMETER NSA$_SEVMS_0 = '00000078'X ! Reserved for SeVMS< PARAMETER NSA$_SEVMS_1 = '00000079'X ! Reserved for SeVMS< PARAMETER NSA$_SEVMS_2 = '0000007A'X ! Reserved for SeVMS< PARAMETER NSA$_SEVMS_3 = '0000007B'X ! Reserved for SeVMS< PARAMETER NSA$_SEVMS_4 = '0000007C'X ! Reserved for SeVMS< P ARAMETER NSA$_SEVMS_5 = '0000007D'X ! Reserved for SeVMS< PARAMETER NSA$_SEVMS_6 = '0000007E'X ! Reserved for SeVMS< PARAMETER NSA$_SEVMS_7 = '0000007F'X ! Reserved for SeVMS< PARAMETER NSA$_SEVMS_8 = '00000080'X ! Reserved for SeVMS< PARAMETER NSA$_SEVMS_9 = '00000081'X ! Reserved for SeVMS= PARAMETER NSA$_SEVMS_10 = '00000082'X ! Reserved for SeVMS= PARAMETER NSA$_SEVMS_11 = '00000083'X ! Reserved for SeVMS= PARAMETER NSA$_SEVMS_12 = '00000084'X ! Reserved for SeVMS= PARAM ETER NSA$_SEVMS_13 = '00000085'X ! Reserved for SeVMS= PARAMETER NSA$_SEVMS_14 = '00000086'X ! Reserved for SeVMS= PARAMETER NSA$_SEVMS_15 = '00000087'X ! Reserved for SeVMS= PARAMETER NSA$_SEVMS_16 = '00000088'X ! Reserved for SeVMS= PARAMETER NSA$_SEVMS_17 = '00000089'X ! Reserved for SeVMS= PARAMETER NSA$_SEVMS_18 = '0000008A'X ! Reserved for SeVMS= PARAMETER NSA$_SNAPSHOT_TIME = '0000008B'X ! Snapshot timeL PARAMETER NSA$_TRANSPORT_NAME = '0000008C'X ! Transport name  (DECwindows)G PARAMETER NSA$_DECNET_LINK_ID = '0000008D'X ! DECnet logical link IDG PARAMETER NSA$_DECNET_OBJECT_NAME = '0000008E'X ! DECnet object nameK PARAMETER NSA$_DECNET_OBJECT_NUMBER = '0000008F'X ! DECnet object numberG PARAMETER NSA$_REMOTE_LINK_ID = '00000090'X ! Remote logical link ID; PARAMETER NSA$_COMMAND_LINE = '00000091'X ! Command lineG PARAMETER NSA$_ASSOCIATION_NAME = '00000092'X ! IPC association nameR PARAMETER NSA$_REM_ASSOCIATION_NAME = '00000093'X ! I PC remote association nameA PARAMETER NSA$_CONNECTION_ID = '00000094'X ! IPC connection IDA PARAMETER NSA$_MESSAGE = '00000095'X ! Associated message codeH PARAMETER NSA$_MSGFILNAM = '00000096'X ! Associated message file nameM PARAMETER NSA$_OBJECT_POINTER = '00000097'X ! Object container (Directory)M PARAMETER NSA$_ID_NEW_ATTRIBUTES = '00000098'X ! Identifier new attributes= PARAMETER NSA$_SYSTIM_NEW = '00000099'X ! New system time = PARAMETER NSA$_SYSTIM_OLD = '0000009A'X ! Old system time * PARAMETER NSA$_PARAMS_WRITE = '0000009B'X* PARAMETER NSA$_PARAMS_INUSE = '0000009C'XM PARAMETER NSA$_MATCHING_ACE = '0000009D'X ! ACE granting or denying accessN PARAMETER NSA$_SNAPSHOT_SAVE_FILNAM = '0000009E'X ! Snapshot save file nameB PARAMETER NSA$_MAILBOX_UNIT = '0000009F'X ! Mailbox unit numberC PARAMETER NSA$_NEW_OWNER = '000000A0'X ! New process owner (UIC)C PARAMETER NSA$_NEW_PRIORITY = '000000A1'X ! New process priorityC PARAMETER NSA$_OLD_PRIORITY = '000000A2'X ! Old process priority? PARAMETER NSA$_DIAG_FUNC = '000000A3'X ! Diagnostic functionB PARAMETER NSA$_RESOURCE_NAME = '000000A4'X ! Lock resource nameH PARAMETER NSA$_LNM_TABLE_NAME = '000000A5'X ! Logical name table nameP PARAMETER NSA$_LNM_PARENT_NAME = '000000A6'X ! Parent logical name table nameB PARAMETER NSA$_EFC_NAME = '000000A7'X ! Event Flag Cluster nameT PARAMETER NSA$_TARGET_PROCESS_CLASS = '000000A8'X ! Target process classificationF PARAMETER NSA$_TARGET _PROCESS_ID = '000000A9'X ! Target process PIDI PARAMETER NSA$_TARGET_PROCESS_NAME = '000000AA'X ! Target process nameQ PARAMETER NSA$_TARGET_PROCESS_OWNER = '000000AB'X ! Target process owner (UIC)A PARAMETER NSA$_TARGET_USERNAME = '000000AC'X ! Target username? PARAMETER NSA$_NEW_PRIVILEGES = '000000AD'X ! New privileges? PARAMETER NSA$_OLD_PRIVILEGES = '000000AE'X ! Old privilegesK PARAMETER NSA$_REMOTE_NODE_FULLNAME = '000000AF'X ! Remote node fullname4 PARAMETER NSA$_UI D = '000000B0'X ! UID of object < PARAMETER NSA$_UNUSED_3 = '000000B1'X ! Unused item code < PARAMETER NSA$_UNUSED_4 = '000000B2'X ! Unused item code < PARAMETER NSA$_UNUSED_5 = '000000B3'X ! Unused item code < PARAMETER NSA$_UNUSED_6 = '000000B4'X ! Unused item code < PARAMETER NSA$_UNUSED_7 = '000000B5'X ! Unused item code < PARAMETER NSA$_UNUSED_8 = '000000B6'X ! Unused item code < PARAMETER NSA$_UNUSED_9 = '000000B7'X ! Unused item code = PARAMETER NSA$_UNUSED_10 = '000000B 8'X ! Unused item code B PARAMETER NSA$_PRIVS_MISSING = '000000B9'X ! Privileges missingG PARAMETER NSA$_TARGET_DEVICE_NAME = '000000BA'X ! Target device nameB PARAMETER NSA$_SECTION_NAME = '000000BB'X ! Global section nameF PARAMETER NSA$_ID_VALUE_ASCII = '000000BC'X ! ID value via $IDTOASC@ PARAMETER NSA$_OBJECT_CLASS = '000000BD'X ! Object class nameB PARAMETER NSA$_SUPPRESS = '000000BE'X ! Suppress supplied itemsK PARAMETER NSA$_SNAPSHOT_BOOTFILE = '000000BF'X ! Snapshot b oot file nameU PARAMETER NSA$_SOURCE_PROCESS_ID = '000000C0'X ! Source process ID (impersonation)? PARAMETER NSA$_REQUEST_NUMBER = '000000C1'X ! Request number9 PARAMETER NSA$_ACCESS_MODE = '000000C2'X ! Access modeI PARAMETER NSA$_SYSTEM_SERVICE_NAME = '000000C3'X ! System service nameO PARAMETER NSA$_NEW_AUTH_PRIVILEGES = '000000C4'X ! New authorized privilegesO PARAMETER NSA$_OLD_AUTH_PRIVILEGES = '000000C5'X ! Old authorized privilegesK PARAMETER NSA$_NEW_DEF_PRIVILEGES = '000000C6'X ! New default privilegesK PARAMETER NSA$_OLD_DEF_PRIVILEGES = '000000C7'X ! Old default privileges? PARAMETER NSA$_NEW_PROCESS_ID = '000000C8'X ! New process IDK PARAMETER NSA$_NEW_PROCESS_OWNER = '000000C9'X ! New process owner (UIC)C PARAMETER NSA$_NEW_PROCESS_NAME = '000000CA'X ! New process name? PARAMETER NSA$_NEW_IMAGE_NAME = '000000CB'X ! New image name; PARAMETER NSA$_NEW_USERNAME = '000000CC'X ! New usernameA PARAMETER NSA$_DEACCESS_KEY = '000000CD'X ! Deaccess audit keyI PARAMETER NSA$_OBJECT_RIGHTS_BLOCK = '000000CE'X ! Object Rights Block^ PARAMETER NSA$_OBJSRV_COMPLETE = '000000CF'X ! Object service processing completion routine= PARAMETER NSA$_TLV_ORB = '000000D0'X ! Object distributionG PARAMETER NSA$_FILE_NAME = '000000D1'X ! File name (volume auditing)D PARAMETER NSA$_DIRECTORY_NAME = '000000D2'X ! Directory file nameJ PARAMETER NSA$_SEQUENCE_KEY = '000000D3'X ! Sequence key (XQP auditing) ! DAS item codes.0 PAR AMETER NSA$_PRINCIPAL_FULLNAME = '000000D4'X- PARAMETER NSA$_TARGET_FULLNAME = '000000D5'X- PARAMETER NSA$_SOURCE_FULLNAME = '000000D6'X. PARAMETER NSA$_DESIRED_FULLNAME = '000000D7'X. PARAMETER NSA$_CLAIMED_USERNAME = '000000D8'X. PARAMETER NSA$_CLAIMED_FULLNAME = '000000D9'X. PARAMETER NSA$_CLAIMED_NODENAME = '000000DA'X& PARAMETER NSA$_TIME_REQ = '000000DB'X& PARAMETER NSA$_TIME_REC = '000000DC'X' PARAMETER NSA$_REQ_FLAGS = '000000DD'X' PARAMETER NSA$_RET_FLAGS = '000000DE'X* PARAMET ER NSA$_LIFETIME_REQ = '000000DF'X* PARAMETER NSA$_LIFETIME_REC = '000000E0'X( PARAMETER NSA$_CRED_USAGE = '000000E1'X, PARAMETER NSA$_CONTEXT_HANDLE = '000000E2'X' PARAMETER NSA$_QOP_STATE = '000000E3'X( PARAMETER NSA$_CONF_STATE = '000000E4'X/ PARAMETER NSA$_DELEG_CRED_HANDLE = '000000E5'X* PARAMETER NSA$_MAJOR_STATUS = '000000E6'X# PARAMETER NSA$_DAS_1 = '000000E7'X# PARAMETER NSA$_DAS_2 = '000000E8'X# PARAMETER NSA$_DAS_3 = '000000E9'X# PARAMETER NSA$_DAS_4 = '000000EA'X# PARAMET ER NSA$_DAS_5 = '000000EB'X# PARAMETER NSA$_DAS_6 = '000000EC'X# PARAMETER NSA$_DAS_7 = '000000ED'X# PARAMETER NSA$_DAS_8 = '000000EE'X# PARAMETER NSA$_DAS_9 = '000000EF'X$ PARAMETER NSA$_DAS_10 = '000000F0'X- PARAMETER NSA$_STATE_FILE_NAME = '000000F1'X0 PARAMETER NSA$_DIRECTORY_FULLNAME = '000000F2'X5 PARAMETER NSA$_FROM_DIRECTORY_FULLNAME = '000000F3'X3 PARAMETER NSA$_TO_DIRECTORY_FULLNAME = '000000F4'X- PARAMETER NSA$_ISSUER_FULLNAME = '000000F5'X. PARAMETER NSA$_SUBJECT_FULLNA ME = '000000F6'X) PARAMETER NSA$_CERTIF_TYPE = '000000F7'X0 PARAMETER NSA$_CSS_SECONDARY_NAME = '000000F8'X1 PARAMETER NSA$_CSS_OBJECT_FULLNAME = '000000F9'X. PARAMETER NSA$_CSS_REQUEST_FROM = '000000FA'X. PARAMETER NSA$_CSS_PRIMARY_NAME = '000000FB'X2 PARAMETER NSA$_CERTIF_SERIAL_NUMBER = '000000FC'X- PARAMETER NSA$_WINDOW_END_TIME = '000000FD'X< PARAMETER NSA$_LOG_CLOSED = '000000FE'X ! log file closed< PARAMETER NSA$_LOG_OPENED = '000000FF'X ! log file openedI PARAMETER NSA$_IDENTI FIERS_MISSING = '00000100'X ! identifiers missing2 PARAMETER NSA$_SENSITIVE_FIELD_NAME = '00000101'X1 PARAMETER NSA$_SENSITIVE_ORIG_DATA = '00000102'X0 PARAMETER NSA$_SENSITIVE_NEW_DATA = '00000103'X3 PARAMETER NSA$_SENSITIVE_FIELD_TITLE = '00000104'X2 PARAMETER NSA$_SENSITIVE_FIELD_DATA = '00000105'XT PARAMETER NSA$_INSTALL_AUTHPRIVS = '00000106'X ! installed image authorized privs= PARAMETER NSA$_PERSONA_FLAGS = '00000107'X ! persona flags9 PARAMETER NSA$_PERSONA_UID = '00000108'X  ! persona UIDD PARAMETER NSA$_PERSONA_MODE = '00000109'X ! persona creation modeC PARAMETER NSA$_PERSONA_USERNAME = '0000010A'X ! persona usernameA PARAMETER NSA$_PERSONA_ACCOUNT = '0000010B'X ! persona accountI PARAMETER NSA$_PERSONA_NOAUDIT = '0000010C'X ! persona noaudit counter9 PARAMETER NSA$_PERSONA_UIC = '0000010D'X ! persona UICK PARAMETER NSA$_PERSONA_AUTHPRIV = '0000010E'X ! persona authorized privsJ PARAMETER NSA$_PERSONA_PERMPRIV = '0000010F'X ! persona permane nt privsH PARAMETER NSA$_PERSONA_WORKPRIV = '00000110'X ! persona working privsN PARAMETER NSA$_PERSONA_ENABLED = '00000111'X ! persona rights enabled flags? PARAMETER NSA$_PERSONA_RIGHTS = '00000112'X ! persona rightsQ PARAMETER NSA$_PERSONA_MINCLASS = '00000113'X ! persona minimum classificationQ PARAMETER NSA$_PERSONA_MAXCLASS = '00000114'X ! persona maximum classificationR PARAMETER NSA$_PERSONA_WORKCLASS = '00000115'X ! persona working classification7 PARAMETER NSA$_PERSONA_ ID = '00000116'X ! persona Id/ PARAMETER NSA$_PERSONA_POSIX_UID = '00000117'X/ PARAMETER NSA$_PERSONA_POSIX_GID = '00000118'X. PARAMETER NSA$_PARENT_POSIX_UID = '00000119'X. PARAMETER NSA$_PARENT_POSIX_GID = '0000011A'X; PARAMETER NSA$_MAX_ITM_CODE = '0000011B'X ! Must be lastK PARAMETER NSA$_CHAIN = '0000FFFF'X ! For $AUDIT_EVENT item list chaining, PARAMETER NSA$_CLIENT_ACCOUNT = '00000002'X. PARAMETER NSA$_CLIENT_SYSTEM_ID = '00000008'X0 PARAMETER NSA$_CLIENT_SYSTEM_NAME = '0000 0007'X1 PARAMETER NSA$_CLIENT_FINAL_STATUS = '00000030'X/ PARAMETER NSA$_CLIENT_IMAGE_NAME = '00000013'X. PARAMETER NSA$_CLIENT_PARENT_ID = '00000023'X1 PARAMETER NSA$_CLIENT_PARENT_OWNER = '00000025'X0 PARAMETER NSA$_CLIENT_PARENT_NAME = '00000024'X/ PARAMETER NSA$_CLIENT_PROCESS_ID = '00000029'X1 PARAMETER NSA$_CLIENT_PROCESS_NAME = '0000002A'X2 PARAMETER NSA$_CLIENT_SUBJECT_CLASS = '0000002E'X2 PARAMETER NSA$_CLIENT_SUBJECT_OWNER = '0000002F'X- PARAMETER NSA$_CLIENT_TERMINAL = '00000 031'X/ PARAMETER NSA$_CLIENT_TIME_STAMP = '00000032'X- PARAMETER NSA$_CLIENT_USERNAME = '00000038'X STRUCTURE /NSADATADEF/6 INTEGER*2 NSA$W_PACKET_SIZE ! Data packet size6 INTEGER*2 NSA$W_PACKET_TYPE ! Data packet type: BYTE NSA$R_PACKET_DATA ! Start of packet data# ! Define $AUDIT_EVENT item codes. END STRUCTURE ! NSADATADEF= ! Define flag masks for NSA$EVENT_AUDIT supplied parameter.< ! Each bit set tells NSA$EVENT_AUDIT *not* to default that2 ! corr esponding packet from the current process.+ PARAMETER NSA$M_ACCOUNT_NAME = '00000001'X( PARAMETER NSA$M_SYSTEM_ID = '00000002'X* PARAMETER NSA$M_SYSTEM_NAME = '00000004'X+ PARAMETER NSA$M_FINAL_STATUS = '00000008'X) PARAMETER NSA$M_IMAGE_NAME = '00000010'X( PARAMETER NSA$M_PARENT_ID = '00000020'X+ PARAMETER NSA$M_PARENT_OWNER = '00000040'X* PARAMETER NSA$M_PARENT_NAME = '00000080'X) PARAMETER NSA$M_PROCESS_ID = '00000100'X+ PARAMETER NSA$M_PROCESS_NAME = '00000200'X, PARAMETER NSA$M_S UBJECT_CLASS = '00000400'X, PARAMETER NSA$M_SUBJECT_OWNER = '00000800'X' PARAMETER NSA$M_TERMINAL = '00001000'X) PARAMETER NSA$M_TIME_STAMP = '00002000'X' PARAMETER NSA$M_USERNAME = '00004000'X. PARAMETER NSA$M_PARENT_USERNAME = '00008000'X( PARAMETER NSA$M_POSIX_UID = '00010000'X( PARAMETER NSA$M_POSIX_GID = '00020000'X/ PARAMETER NSA$M_PARENT_POSIX_UID = '00040000'X/ PARAMETER NSA$M_PARENT_POSIX_GID = '00080000'X STRUCTURE /NSA$$FILL_23_/ UNION MAP INTEGER*4 %FILL END MAP MAP) PARAMETER NSA$S_ACCOUNT_NAME = 15 PARAMETER NSA$V_ACCOUNT_NAME = 0 ! account& PARAMETER NSA$S_SYSTEM_ID = 15 PARAMETER NSA$V_SYSTEM_ID = 1 ! system id( PARAMETER NSA$S_SYSTEM_NAME = 19 PARAMETER NSA$V_SYSTEM_NAME = 2 ! system name) PARAMETER NSA$S_FINAL_STATUS = 14 PARAMETER NSA$V_FINAL_STATUS = 3 ! status' PARAMETER NSA$S_IMAGE_NAME = 17 PARAMETER NSA$V_IMAGE_NAME = 4 ! ima ge name& PARAMETER NSA$S_PARENT_ID = 15 PARAMETER NSA$V_PARENT_ID = 5 ! parent id) PARAMETER NSA$S_PARENT_OWNER = 1: PARAMETER NSA$V_PARENT_OWNER = 6 ! parent owner( PARAMETER NSA$S_PARENT_NAME = 1A PARAMETER NSA$V_PARENT_NAME = 7 ! parent process name' PARAMETER NSA$S_PROCESS_ID = 17 PARAMETER NSA$V_PROCESS_ID = 8 ! process id) PARAMETER NSA$S_PROCESS_NAME = 1: PARAMETER NSA$V_PROCESS_NAME = 9 ! process name* PARAMETER NSA$S_SUBJECT_CLASS = 1> PARAMETER NSA$V_SUBJECT_CLASS = 10 ! classification* PARAMETER NSA$S_SUBJECT_OWNER = 1= PARAMETER NSA$V_SUBJECT_OWNER = 11 ! owner ('UIC')% PARAMETER NSA$S_TERMINAL = 14 PARAMETER NSA$V_TERMINAL = 12 ! terminal' PARAMETER NSA$S_TIME_STAMP = 17 PARAMETER NSA$V_TIME_STAMP = 13 ! timestamp% PARAMETER NSA$S_USERNAME = 14 PARAMETER NSA$V_USERNAME = 14 ! username, PARAMETER NSA$S_PARENT_USERNAME = 1A PARAMETER NSA$V_PARENT_USERNAME = 15 ! parent username& PARAMETER NSA$S_POSIX_UID = 1' PARAMETER NSA$V_POSIX_UID = 16& PARAMETER NSA$S_POSIX_GID = 1' PARAMETER NSA$V_POSIX_GID = 17- PARAMETER NSA$S_PARENT_POSIX_UID = 1. PARAMETER NSA$V_PARENT_POSIX_UID = 18- PARAMETER NSA$S_PARENT_POSIX_GID = 1. PARAMETER NSA$V_PARENT_POSIX_GID = 19 BYTE %FILL (3) END MAP END UNION END STRUCTURE ! NSA$$FILL_23_I ! Define the format of an audit server reply message. This defines the@ ! format of the message written to any supplied reply mailbox.+ PARAMETER NSA$C_REPLY_LENGTH = '00000004'X+ PARAMETER NSA$K_REPLY_LENGTH = '00000004'X STRUCTURE /NSAREPLYDEF/= INTEGER*4 NSA$L_REPLY_STATUS ! condition status value END STRUCTURE ! NSAREPLYDEF ! R ! Define the structure of a message formating table entry. These entries defineS ! the order in which the data packets are displayed, and the manner in which they ! are formatted. ! A PARAMETER NSA$C_FMTINF_NONE = '00000000'X ! No value to formatT PARAMETER NSA$C_FMTINF_LONG_VALUE = '00000001'X ! Value is supplied as a longwordT PARAMETER NSA$C_FMTINF_IDENTIFIER = '00000002'X ! Value supplied is an identifierY PARAMETER NSA$C_FMTINF_DATE = '00000003'X ! Value supplied is address of quadword date` PARAMETER NSA$C_FMTINF_STRING = '00000004'X ! String size (co unt) and address supplied to FAO[ PARAMETER NSA$C_FMTINF_CLASSIFICATION = '00000005'X ! Vector represents a classificationN PARAMETER NSA$C_FMTINF_UID = '00000006'X ! Value supplied is address of UIDY PARAMETER NSA$C_FMTINF_RIGHTS = '00000007'X ! Value supplied is address of rights infoM PARAMETER NSA$C_FMTINF_SPECIAL = '00000008'X ! Special processing required4 PARAMETER NSA$M_FMTINF_CHECK_PREVIOUS = '00000001'X2 PARAMETER NSA$M_FMTINF_NTH_NEW_LINE = '00000002'X. PARAMETER NSA$M_FMT INF_NOFORMAT = '00000004'X/ PARAMETER NSA$M_FMTINF_SENSITIVE = '00000008'X, PARAMETER NSA$K_FMTINF_LENGTH = '0000001C'X, PARAMETER NSA$C_FMTINF_LENGTH = '0000001C'X" ! Define the format style codes.[ PARAMETER NSA$C_FORMAT_STYLE_BRIEF = '00000001'X ! Single line briefly formatted messageL PARAMETER NSA$C_FORMAT_STYLE_FULL = '00000002'X ! Fully formatted messageN PARAMETER NSA$C_FORMAT_STYLE_PACKET_TYPE = '00000003'X ! Packet type format1 ! Define classification string format constant sR PARAMETER NSA$C_FMTINF_MAX_SINGLE_SEC_STR = '00000F37'X ! Simple secrecy stringT PARAMETER NSA$C_FMTINF_MAX_SINGLE_INT_STR = '000007B9'X ! Simple integrity stringS PARAMETER NSA$C_FMTINF_MAX_RANGE_SEC_STR = '00001E79'X ! Compound secrecy stringU PARAMETER NSA$C_FMTINF_MAX_RANGE_INT_STR = '00000F7B'X ! Compound integrity string STRUCTURE /FMTTBLDEF/Q INTEGER*4 NSA$L_FMTINF_PACKET_NAME ! Address of the packet name descriptord INTEGER*2 NSA$W_FMTINF_PACKET_TYPE ! Define the type of packet represented by this entry (NSAC ! Define the type of packet represented by this entry (NSA$C_R INTEGER*2 NSA$W_FMTINF_OUTPUT_ORDER ! Define the order in the output bufferD INTEGER*4 NSA$L_FMTINF_FAO_CTRSTR ! Normal FAO control stringb INTEGER*4 NSA$L_FMTINF_CLIENT_FAO_CTRSTR ! FAO control string for client/server combinatione INTEGER*4 NSA$L_FMTINF_NTH_FAO_CTRSTR ! FAO control string for the Nth packet of the same type@ BYTE NSA$B_FMTIN F_DATA_TYPE ! Type of data to format UNION MAP) BYTE NSA$B_FMTINF_FMT_FLAGS END MAP MAP6 PARAMETER NSA$S_FMTINF_CHECK_PREVIOUS = 1d PARAMETER NSA$V_FMTINF_CHECK_PREVIOUS = 0 ! Check adjacency with previous output item4 PARAMETER NSA$S_FMTINF_NTH_NEW_LINE = 1^ PARAMETER NSA$V_FMTINF_NTH_NEW_LINE = 1 ! Force duplicate packets to a new line0 PARAMETER NSA$S_FMTINF_NOFORMAT = 1O PARAMETER NSA$V_FMTINF_NOFORMAT = 2 ! Don't format the packet(s)1 PARAMETER NSA$S_FMTINF_SENSITIVE = 1[ PARAMETER NSA$V_FMTINF_SENSITIVE = 3 ! Packet contains sensitive information BYTE %FILL (1) END MAP END UNIONE INTEGER*2 NSA$W_FMTINF_SERVER_PKT ! Associated (server) packetE INTEGER*2 NSA$W_FMTINF_INDENT ! Indent for multi-line packets" INTEGER*2 %FILL ! Unused END STRUCTURE ! FMTTBLDEF ! \ ! Define the structure of the format image callout block. This block is used to determine^ ! which routines should be used to format event messages and event message data packets that1 ! are unknown to the base VMS operating system. ! , PARAMETER NSA$K_IMGXFR_LENGTH = '00000035'X, PARAMETER NSA$C_IMGXFR_LENGTH = '00000035'X STRUCTURE /FMTCALLDEF/L INTEGER*4 NSA$L_IMGXFR_FLINK ! Address of next entry (must be first)Q INTEGER*4 NSA$L_IMGXFR_BLINK ! Address of previous entry (must b e secomd)9 INTEGER*2 NSA$W_IMGXFR_SIZE ! Size of entry blockA INTEGER*2 NSA$W_IMGXFR_FACILITY ! Facility code for imageJ INTEGER*4 NSA$L_IMGXFR_BASE_ORDER_OFFSET ! Base output order offset- ! Start of sharable image routine addressesH INTEGER*4 NSA$A_IMGXFR_MESSAGE_INFO ! Message information routineI INTEGER*4 NSA$A_IMGXFR_VALIDATE_PACKET ! Packet validation routineO INTEGER*4 NSA$A_IMGXFR_DISPLAY_INFO ! Packet display information routineH INTEG ER*4 NSA$A_IMGXFR_LINE_BREAK ! Line break processing routineP INTEGER*4 NSA$A_IMGXFR_FORMAT_SPECIAL ! Special packet formatting routineL INTEGER*4 NSA$A_IMGXFR_FORMAT_INFO ! Normal packet formatting routineA INTEGER*4 NSA$A_IMGXFR_FORMAT_BRIEF ! Brief format routineM INTEGER*4 NSA$A_IMGXFR_FORMAT_PACKET_TYPE ! Packet type format routineU INTEGER*4 NSA$A_IMGXFR_FORMAT_EVENT_TYPE ! Message type/subtype format routine+ ! End of sharable image routine addressesE CHARACTER*1 NSA$T_IMGXFR_IMAGE_NAME(1:1) ! Start of image name END STRUCTURE ! FMTCALLDEFO ! The following structure defines the common argument block passed to all theD ! various formatting routines (which actually format information)./ PARAMETER NSA$M_FMTARG_SENSITIVE = '00000001'X3 PARAMETER NSA$M_FMTARG_DISPLAY_TITLE = '00000002'X4 PARAMETER NSA$M_FMTARG_CHECK_PREVIOUS = '00000001'X2 PARAMETER NSA$M_FMTARG_NTH_NEW_LINE = '00000002'X. PARAMETER NSA$M_FMTARG_NOFORMAT = '000000 04'X, PARAMETER NSA$K_FMTARG_LENGTH = '00000024'X, PARAMETER NSA$C_FMTARG_LENGTH = '00000024'X STRUCTURE /FMTARGDEF/ UNION MAP) INTEGER*4 NSA$Q_FMTARG_BUFFER(2) END MAP MAPF INTEGER*2 NSA$W_FMTARG_BUFFER_SIZE ! Output buffer size* INTEGER*2 %FILL ! UnusedL INTEGER*4 NSA$A_FMTARG_BUFFER_POINTER ! Output buffer address END MAP END UNIONO INTEGER*2 NSA$W_FMTARG_BUFFER_OFFSET ! Current position in output bufferN INTEGER*2 NSA$W_FMTARG_BOL_OFFSET ! Offset to beginning of current line UNION MAP- INTEGER*4 NSA$Q_FMTARG_TERMINATOR(2) END MAP MAPI INTEGER*2 NSA$W_FMTARG_TERM_SIZE ! Size of line terminator* INTEGER*2 %FILL ! UnusedL INTEGER*4 NSA$A_FMTARG_TERM_TEXT ! Address of terminator text END MAP END UNION? INTEGER*2 NSA$W_FMTARG_LINE_WIDTH ! Output display wi dthM INTEGER*2 NSA$W_FMTARG_LINE_INDENT ! Positions to indent (when needed)K INTEGER*4 NSA$A_FMTARG_OUTPUT_ROUTINE ! Address of an output routine UNION MAP% INTEGER*4 NSA$L_FMTARG_FLAGS END MAP MAP UNION MAP1 INTEGER*2 NSA$W_FMTARG_FLAGS_LOW END MAP MAP9 PARAMETER NSA$S_FMTARG_SENSITIVE = 1c PARAMETER NSA$V_FMTAR G_SENSITIVE = 0 ! Packet contains sensitive information= PARAMETER NSA$S_FMTARG_DISPLAY_TITLE = 1O PARAMETER NSA$V_FMTARG_DISPLAY_TITLE = 1 ! Display title BYTE %FILL (1) END MAP END UNION UNION MAP2 INTEGER*2 NSA$W_FMTARG_FLAGS_HIGH END MAP MAP> PARAMETER NSA$S_FMTARG_CHECK_PREVIOUS = 1d PARAMETER NSA$V_FMTARG_CHECK_PREVIOUS = 0 ! Check adjacency with previous out< PARAMETER NSA$S_FMTARG_NTH_NEW_LINE = 1f PARAMETER NSA$V_FMTARG_NTH_NEW_LINE = 1 ! Force duplicate packets to a new line8 PARAMETER NSA$S_FMTARG_NOFORMAT = 1W PARAMETER NSA$V_FMTARG_NOFORMAT = 2 ! Don't format the packet(s) BYTE %FILL (1) END MAP END UNION END MAP  END UNION> INTEGER*4 NSA$L_FMTARG_USER_CONTEXT ! User context cell END STRUCTURE ! FMTARGDEFR ! The following structure defines the transfer vector area for the format image.R PARAMETER NSA$C_IMGXFR_MESSAGE_INFO = '00000000'X ! Message information routineS PARAMETER NSA$C_IMGXFR_VALIDATE_PACKET = '00000001'X ! Packet validation routineY PARAMETER NSA$C_IMGXFR_DISPLAY_INFO = '00000002'X ! Packet display information routineR PARAMETER NSA$C_IMGXFR_LINE_BREAK = '00000003'X  ! Line break processing routineZ PARAMETER NSA$C_IMGXFR_FORMAT_SPECIAL = '00000004'X ! Special packet formatting routineV PARAMETER NSA$C_IMGXFR_FORMAT_INFO = '00000005'X ! Normal packet formatting routineK PARAMETER NSA$C_IMGXFR_FORMAT_BRIEF = '00000006'X ! Brief format routineW PARAMETER NSA$C_IMGXFR_FORMAT_PACKET_TYPE = '00000007'X ! Packet type format routine_ PARAMETER NSA$C_IMGXFR_FORMAT_EVENT_TYPE = '00000008'X ! Message type/subtype format routine STRUCTURE /FMTXFERDEF/K INTEGER*4 NSA$R_IMGXFR_MESSAGE_INFO(2) ! Message information routineL INTEGER*4 NSA$R_IMGXFR_VALIDATE_PACKET(2) ! Packet validation routineR INTEGER*4 NSA$R_IMGXFR_DISPLAY_INFO(2) ! Packet display information routineK INTEGER*4 NSA$R_IMGXFR_LINE_BREAK(2) ! Line break processing routineS INTEGER*4 NSA$R_IMGXFR_FORMAT_SPECIAL(2) ! Special packet formatting routineO INTEGER*4 NSA$R_IMGXFR_FORMAT_INFO(2) ! Normal packet formatting routineD INTEGER*4 NSA$R _IMGXFR_FORMAT_BRIEF(2) ! Brief format routineP INTEGER*4 NSA$R_IMGXFR_FORMAT_PACKET_TYPE(2) ! Packet type format routineX INTEGER*4 NSA$R_IMGXFR_FORMAT_EVENT_TYPE(2) ! Message type/subtype format routineR ! The following list of constants is used to index into the transfer vector areaX ! defined above. The structure definition and constant list must parallel each other. END STRUCTURE ! FMTXFERDEF ! K ! Define block to hold access bitname information for a particular objec t ! @ PARAMETER NSA$K_ACCNAM_LENGTH = '0000008B'X ! Length of block, PARAMETER NSA$C_ACCNAM_LENGTH = '0000008B'X STRUCTURE /FMTACCNAMDEF/L INTEGER*4 NSA$L_ACCNAM_FLINK ! Address of next entry (must be first)Q INTEGER*4 NSA$L_ACCNAM_BLINK ! Address of previous entry (must be secomd)9 INTEGER*2 NSA$W_ACCNAM_SIZE ! Size of entry blockR INTEGER*4 NSA$L_ACCNAM_CODES(1:32) ! 32 pointers to access name descriptorsG CHARACTER*1 NSA$T_ACCNAM_OBJECT_TYPE(1:1) ! Start of object name END STRUCTURE ! FMTACCNAMDEF ! X ! Define the format of the message information block. This block defines some general: ! characteristics of messages for a particular facility. ! , PARAMETER NSA$K_MSGINF_LENGTH = '00000008'X, PARAMETER NSA$C_MSGINF_LENGTH = '00000008'X STRUCTURE /MSGINFODEF/L INTEGER*4 NSA$L_MSGINF_MAX_ORDER_OFFSET ! Maximum (output) line indexM INTEGER*4 NSA$A_MSGINF_BRIEF_TITLE ! Address of brief format titleline END STRUCTU RE ! MSGINFODEF ! U ! Define the structure of a formatting table subtype entry. This entry consists ofD ! a description of the subtype as well as the name of the subtype. ! , PARAMETER NSA$K_SUBTBL_LENGTH = '00000008'X, PARAMETER NSA$C_SUBTBL_LENGTH = '00000008'X STRUCTURE /SUBFMTTBLDEF/ UNION MAPQ INTEGER*4 NSA$L_SUBTBL_DESCRIPTION ! Address of the description string END MAP MAPP INTEGER*4 NSA$L_SUBTBL_TABLE_SIZE ! Number of entries in the subtable END MAP END UNIONE INTEGER*4 NSA$L_SUBTBL_MNEMONIC ! Mnemonic name for the entry END STRUCTURE ! SUBFMTTBLDEF4 ! Define obsolete message types and subtypes here.) PARAMETER NSA$C_MSG_NETUAF = '00000009'X- PARAMETER NSA$C_MSG_PRIV_AUDIT = '00000010'X) PARAMETER NSA$C_PRIV_AUDIT = '00000001'X2 PARAMETER NSA$C_JOBCTL_QUEUE_ACCESS = '00000003'X) PARAMETER NSA$C_NETUAF_ADD = '00000001'X, PARAMETER NSA$C_NETUAF_DELETE = '00000002'X, PARAMETER NSA$C_NETUAF_MODIFY = '00000003'X) PARAMETER NSA$C_NETUAF_NCP = '00000004'X. PARAMETER NSA$C_NETUAF_MAX_CODE = '00000008'X@ ! Define obsolete packet types and item code equivalents here., PARAMETER NSA$C_PKT_OBJECT_ID = '0000001A'X' PARAMETER NSA$_OBJECT_ID = '0000001A'X" ! Define packet pseudonyms here., PARAMETER NSA$C_PKT_PRIV_MASK = '00000016'X' PARAMETER NSA$_PRIV_MASK = '00000016'X- PARAMETER NSA$C_PKT_PRIVILEGES = '00000016'X( PARAMETER NSA$_PRIVILEGES = '00000016'X2 PARAMETER NSA$C_PKT_SNAPSHOT_FILNAM = '0000009E'X- PARAMETER NSA$_SNAPSHOT_FILNAM = '0000009E'X2 PARAMETER NSA$C_PKT_PERFORMANCE_NOP = '00000050'X- PARAMETER NSA$_PERFORMANCE_NOP = '00000050'X1 PARAMETER NSA$C_PKT_SUPPLIED_FLAGS = '000000BE'X, PARAMETER NSA$_SUPPLIED_FLAGS = '000000BE'X!DEC$ END OPTIONS wwىΦ!*** MODULE $NSAMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:49 .67 !  !  ! K ! ***********************************************************************K ! * *K ! * *K ! * COPYRIGHT 1989 COMPAQ COMPUTER CORPORATION *K ! * *K ! * COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. *K ! *  *K ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ OR *K ! * AUTHORIZED SUBLICENSOR REQUIRED FOR POSSESSION, USE OR COPYING. *K ! * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE,*K ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *K ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *K ! * COMMERCIAL LICENSE.  *K ! * *K ! * *K ! * *K ! *********************************************************************** !  !  ! ++ ! ! FACILITY: ! ! VMSLIB ! ! ABSTRACT: ! L ! THIS MODULE DEFINES THE MESSAGES CODES USED TO AUDIT USE OF PRIVILEGEC ! WITHIN THE VMS TCB. MESSAGE CODES ARE NUMBERED FROM 0-4095. ! I ! THE FIRST HALF OF THIS RANGE IS RESERVED EXCLUSIVELY FOR PRIVILEGEQ ! AUDITING AND ARE FURTHER BROKEN DOWN BY PRIVILEGE. THE SECOND HALF OF THEM ! RANGE IS RESERVED FOR OTHER MESSAGES ASSOCIATED WITH TCB AUDIT EVENTS. !  ! ENVIRONMENT: !  ! VMS EXECUTIVE ! ! AUTHOR: ! % ! DERRELL D. PIPER APRIL 17TH, 1989 !  ! NOTA BENE: ! I ! OBSOLETE PRIVILEGE AUDITING MESSAGE CODES CA NNOT BE REMOVED FROM THISI ! MODULE! THESE MESSAGE CODES ARE DEFINED IN STARLET AND REFERENCED BYF ! NAME IN THE $IFPRIV/$IFNPRIV AND $HAS_PRIV MACROS. IF YOU WANT TOK ! "remove" AN OBSOLETE MESSAGE, REPLACE THE TEXT WITH "< -- unused -- >".F ! IF YOU'RE ADDING A NEW MESSAGE, PLEASE RE-USE ANY UNUSED MESSAGES. !  ! MODIFICATIONS: ! ( ! X-37 GP051505 GUY PELEG 15-MAY-2006 ! ADD COMB_20 AND WORLD_6. ! . ! X-36 RAB0148 ROBERT A. BROOKS 11-JAN-2006' ! ADD OPER_94 FOR SET PATH AUDITING. ! . ! X-35 RAB0143 ROBERT A. BROOKS 28-NOV-2005) ! ADD SYSPRV_52 FOR SET PATH AUDITING. ! * ! X-34 WCC WILLIAM CLEMENCE 15-JUL-2004& ! ADDED CMKRNL_37 FOR IPMI AUDITING ! 3 ! X-33 JJF0282 J. JEFFERY FRIEDRICHS 9-MAR-2004. ! ADDED SYSPRV_51 FOR SETSHOSHADOW AUDITING ! + ! X-32 LC0002 LARRY CAMILLI 15-JAN-20036 ! ADDED OPER_93 FOR OPER PRIVILEGE REQUIREMENT FOR9 ! SET CACHE/FLUSH, AND REMOVED VOLPRO_16. (SEE X-31.) ! + ! X-31 LC000 1 LARRY CAMILLI 19-DEC-20026 ! ADDED OPER_92 FOR OPER PRIVILEGE REQUIREMENT FOR7 ! SET CACHE/RESET AND VOLPRO_16 FOR VOLPRO PRIVILEGE% ! REQUIREMENT FOR SET CACHE/FLUSH. ! , ! X-30 JAH0405 JOHN A HARNEY 01-AUG-20026 ! MORE COE FOLD: AUDITS FOR MEDDLE BIT PRIV CHECK: ! 3 ! X-25A1A2 JAH0404 JOHN A HARNEY 24-JUL-2002A ! ADD CMKRNL_36 FOR $SET_PROCESS_PROPERTIES MEDDLE_ENABLE BIT. ! 3 ! X-25A1A1 JAH0404 JOHN A HARNEY 23-JUL-2002@ ! ADD CMEXEC_2 FOR $S ET_PROCESS_PROPERTIES MEDDLE_ENABLE BIT. ! 4 ! X-29 DOUGLAS FYFE 15-FEB-2002N ! ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING WITHIN SET SERVER1 ! /SUSPEND, /RESUME AND /CLUSTER. ! , ! X-28 JAH0378 JOHN A HARNEY 10-OCT-20016 ! COE FOLD: CHANGE AUDIT MESSAGE FOR IMPERSONATE_12 ! 3 ! X-27 LJK0230 LAWRENCE J. KILGALLEN 15-FEB-2001: ! ONE MORE MESSAGE FOR USE-OF-PRIVILEGE AUDITING WITHIN ! SHOW SERVER. ! 3 ! X-25 LJK0219 LAWRENCE J. KILGALLEN 2-FEB-20011 ! RESOLVE A FOLD BETWEEN X-24, X-23 AND X-22A. ! . ! X-24 PEM0070 PAUL E. MOSTEIKA 01-AUG-20000 ! ADD IMPERSONATE_12 - AUDIT THE NEW ACE TYPE6 ! POSIX_OWNER FOR COE SUPPORT OF EFFECTIVE UID/GID. ! D ! X-23 KGBCOE KENNETH G.BLAYLOCK 18-JUL-2000= ! MODIFY XQP_16 WITH NEW MESSAGE NAME AND ADD' ! A NEW XQP_23 MESSAGE. ! 4 ! X-22A LJK0218 LAWRENCE J. KILGALLEN 1-FEB-2001A ! ADD MESSAGE S FOR USE-OF-PRIVILEGE AUDITING WITHIN SET SERVER ! AND SHOW SERVER.> ! ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING BY SYS$ACM[W]. ! , ! X-22 JAH0331 JOHN A HARNEY 10-MAR-19995 ! ADD IMPERSONATE_11 FOR USES OF $PERSONA_RESERVE. ! , ! X-21 JAH0317 JOHN A HARNEY 24-SEP-1998@ ! ADD AUDIT_3 FOR NEW $SETUAI ITEM WHICH REQUIRES AUDIT PRIV. ! & ! X-20 JMB004 JIM BLUE 08-JUN-19983 ! ADD OPER_79, OPER_80, AND OPER_81 MESSAGES FOR5 ! MULTIPATH SET DEVICE /ENABLE, /POLL , AND /SWITCH ! OPTIONS. ! , ! X-19 JAH0269 JOHN A HARNEY 11-NOV-1997> ! ADD NSA$_IMPERSONATE_8, _9, AND _10 FOR PERSONA SERVICES. ! , ! X-18 MCJ MICHAEL C. JOHNSON 31-JUL-19977 ! ADD CMKRNL_35, XQP_21 AND XQP_22 MESSAGES FOR XFC # ! (EXTENDED FILE CACHE) PROJECT. ! & ! X-17 NL NICCOLE LUCE 04-MAR-1997. ! ADD NETMBX_3 MESSAGE FOR ICC (RAVEN_FT1). ! ) ! X-16 WXD BILL DAVENPORT 13-DEC-1995( ! PERTHREAD SECURITY STAGE 1 CHECKIN:7 ! - RENAME DETACH  PRIVILEGE TO IMPERSONATE. ADD 8 ! LITERALS SO THAT OLD SYMBOLS STILL GET CREATED, ! TO MAINTAIN BACKWARD COMPATIBILITY; ! - ADDED SETPRV_6 FOR USE OF SETPRV TO MODIFY IMAGE " ! WORKING PRIVILEGES MASK. ! . ! X-15 RJB0016 RICHARD J. BARRY 28-JUN-1995( ! CHANGE TEXT OF MACBYPASSED MESSAGE. ! * ! X-14 JRK369 JIM KAUFFMAN 25-APR-1995 ! ADD ALTPRI_7 AND WORLD_5 ! > ! X-13 CHANGE TEXT OF MESSAGES SO 64-BIT SYSTEM SERVICES CAN= ! SHARE ROUTINES WH ICH DO AUTIDING WITH WITH 32-BIT SYSTEM ! SERVICES. !  ! MESSAGES CHANGED: ! CMKRNL_22 ! CMKRNL_23 ! CMEXEC_1 ! PRMGBL_1 ! SYSGBL_1 ! PFNMAP_1 ! PFNMAP_2 ! 4 ! X-12 JCH703 JOHN C. HALLYBURTON, JR. 17-JAN-1995? ! CHANGE TEXT OF LOG_IO_1, PHY_IO_9, PHY_IO_14 AND DETACH_1. ! ADD ALTPRI_6.  ! - ! X-11 REG002 RUTH GOLDENBERG 26-OCT-19943 ! EDIT TEXT OF CMKRNL_24 AND DETACH_1 TO INCLUDE ! REMOTE PROCESS CREATIONS. ! , ! X-10 JAH 0159 JOHN A HARNEY 07-SEP-1994 ! ADD COMMON MAPPING MESSAGES ! . ! X-9 NYK028 NITIN Y. KARKHANIS 20-MAY-1994= ! RELEASE OPER_47 AND USE CMKRNL_34 FOR FLAGGING ATTEMPTED4 ! MODIFICATIONS TO CONSOLE ENVIRONMENT VARIABLES. ! . ! X-8 NYK023 NITIN Y. KARKHANIS 14-APR-1994< ! RE-USED OPER_47 FOR "USER MODIFYING CONSOLE ENVIRONMENT ! VARIABLES. ! + ! X-7 JAH0086 JOHN A HARNEY 14-MAR-1994- ! ADD SECURITY_20 TO SECURITY_25 MESSAGES. ! - ! X-6 SGS0042 STEVE SKO NETSKI 10-MAR-19943 ! ADD MEDIA MANAGEMENT EXTENSIONS (MME) SPECIFIC ! AUDITING MESSAGES. ! / ! X-5 SAD0296 STUART A. DAVIDSON 9-DEC-1993$ ! ADD DETACH_7 FOR IMPERSONATION. ! $ ! X-4 TRB TOM BENSON 23-OCT-19937 ! PROPAGATED WORLD_4 FROM VAX, FOR CLASS SCHEDULER.  ! * ! X-3 TNS003 TOM SCARPELLI 23-AUG-1993 ! CHANGE $MAPGBL TO $MGBLSC. ! % ! X-2 CEG CLAIR GRANT 2-APR-1993+ ! VAX (BLADE) => AXP. GET BLADE VERSION. ! % ! X-1 CEG CLAIR GRANT  04-MAR-19937 ! VAX (BLADE) => AXP. GET BLADE VERSION FOR EPSILON. !  ! **& PARAMETER NSA$_FACILITY = '00000430'X& PARAMETER NSA$_CMKRNL_1 = '04308003'X& PARAMETER NSA$_CMKRNL_2 = '0430800B'X& PARAMETER NSA$_CMKRNL_3 = '04308013'X& PARAMETER NSA$_CMKRNL_4 = '0430801B'X& PARAMETER NSA$_CMKRNL_5 = '04308023'X& PARAMETER NSA$_CMKRNL_6 = '0430802B'X7 PARAMETER NSA$_CMKRNL_7 = '04308033'X ! UNDOCUMENTED& PARAMETER NSA$_CMKRNL_8 = '0430803B'X& PARAMETER NSA$_CMKRNL_9 = '04308043'X8 P ARAMETER NSA$_CMKRNL_10 = '0430804B'X ! UNDOCUMENTED8 PARAMETER NSA$_CMKRNL_11 = '04308053'X ! UNDOCUMENTED' PARAMETER NSA$_CMKRNL_12 = '0430805B'X' PARAMETER NSA$_CMKRNL_13 = '04308063'X8 PARAMETER NSA$_CMKRNL_14 = '0430806B'X ! UNDOCUMENTED' PARAMETER NSA$_CMKRNL_15 = '04308073'X8 PARAMETER NSA$_CMKRNL_16 = '0430807B'X ! UNDOCUMENTED' PARAMETER NSA$_CMKRNL_17 = '04308083'X8 PARAMETER NSA$_CMKRNL_18 = '0430808B'X ! UNDOCUMENTED' PARAMETER NSA$_CMKRNL_19 = '04308093'X8 PARAMET ER NSA$_CMKRNL_20 = '0430809B'X ! UNDOCUMENTED8 PARAMETER NSA$_CMKRNL_21 = '043080A3'X ! UNDOCUMENTED' PARAMETER NSA$_CMKRNL_22 = '043080AB'X' PARAMETER NSA$_CMKRNL_23 = '043080B3'X' PARAMETER NSA$_CMKRNL_24 = '043080BB'X8 PARAMETER NSA$_CMKRNL_25 = '043080C3'X ! UNDOCUMENTED' PARAMETER NSA$_CMKRNL_26 = '043080CB'X; PARAMETER NSA$_CMKRNL_27 = '043080D3'X ! UNDOCUMENTED ' PARAMETER NSA$_CMKRNL_28 = '043080DB'X' PARAMETER NSA$_CMKRNL_29 = '043080E3'X' PARAMETER NSA$_CMKRNL_30  = '043080EB'X' PARAMETER NSA$_CMKRNL_31 = '043080F3'X' PARAMETER NSA$_CMKRNL_32 = '043080FB'X' PARAMETER NSA$_CMKRNL_33 = '04308103'X' PARAMETER NSA$_CMKRNL_34 = '0430810B'X' PARAMETER NSA$_CMKRNL_35 = '04308113'X' PARAMETER NSA$_CMKRNL_36 = '0430811B'X ! / ! START OF A SET OF AUDITS ISSUED ONLY ON IPF ! ' PARAMETER NSA$_CMKRNL_37 = '04308123'X ! - ! END OF A SET OF AUDITS ISSUED ONLY ON IPF ! & PARAMETER NSA$_CMEXEC_1 = '04308193'X& PARAMETER NSA$_CMEXEC_2 = '043081 9B'X& PARAMETER NSA$_SYSNAM_1 = '043081E3'X& PARAMETER NSA$_SYSNAM_2 = '043081EB'X& PARAMETER NSA$_SYSNAM_3 = '043081F3'X& PARAMETER NSA$_SYSNAM_4 = '043081FB'X& PARAMETER NSA$_SYSNAM_5 = '04308203'X& PARAMETER NSA$_SYSNAM_6 = '0430820B'X& PARAMETER NSA$_SYSNAM_7 = '04308213'X& PARAMETER NSA$_SYSNAM_8 = '0430821B'X& PARAMETER NSA$_SYSNAM_9 = '04308223'X' PARAMETER NSA$_SYSNAM_10 = '0430822B'X' PARAMETER NSA$_SYSNAM_11 = '04308233'X' PARAMETER NSA$_SYSNAM_12 = '0430823B'X' PARAMETER NSA $_SYSNAM_13 = '04308243'X& PARAMETER NSA$_GRPNAM_1 = '043082D3'X& PARAMETER NSA$_GRPNAM_2 = '043082DB'X& PARAMETER NSA$_GRPNAM_3 = '043082E3'X( PARAMETER NSA$_ALLSPOOL_1 = '04308323'X& PARAMETER NSA$_DETACH_1 = '04308373'X& PARAMETER NSA$_DETACH_2 = '0430837B'X& PARAMETER NSA$_DETACH_3 = '04308383'X& PARAMETER NSA$_DETACH_4 = '0430838B'X& PARAMETER NSA$_DETACH_5 = '04308393'X& PARAMETER NSA$_DETACH_6 = '0430839B'X& PARAMETER NSA$_DETACH_7 = '043083A3'X+ PARAMETER NSA$_IMPERSONATE_1 = '043 08373'X+ PARAMETER NSA$_IMPERSONATE_2 = '0430837B'X+ PARAMETER NSA$_IMPERSONATE_3 = '04308383'X+ PARAMETER NSA$_IMPERSONATE_4 = '0430838B'X+ PARAMETER NSA$_IMPERSONATE_5 = '04308393'X+ PARAMETER NSA$_IMPERSONATE_6 = '0430839B'X+ PARAMETER NSA$_IMPERSONATE_7 = '043083A3'X+ PARAMETER NSA$_IMPERSONATE_8 = '043083AB'X+ PARAMETER NSA$_IMPERSONATE_9 = '043083B3'X, PARAMETER NSA$_IMPERSONATE_10 = '043083BB'XN ! THE ABOVE LIST IS FULL. USE THE OVERFLOW REGION AT THE END OF THE MODULE.( P ARAMETER NSA$_DIAGNOSE_1 = '043083C3'X( PARAMETER NSA$_DIAGNOSE_2 = '043083CB'X( PARAMETER NSA$_DIAGNOSE_3 = '043083D3'X9 PARAMETER NSA$_DIAGNOSE_4 = '043083DB'X ! UNDOCUMENTED( PARAMETER NSA$_DIAGNOSE_5 = '043083E3'X( PARAMETER NSA$_DIAGNOSE_6 = '043083EB'X( PARAMETER NSA$_DIAGNOSE_7 = '043083F3'X( PARAMETER NSA$_DIAGNOSE_8 = '043083FB'X& PARAMETER NSA$_LOG_IO_1 = '04308413'X& PARAMETER NSA$_LOG_IO_2 = '0430841B'X& PARAMETER NSA$_LOG_IO_3 = '04308423'X& PARAMETER NSA$_LOG_IO_4 = '043084 2B'X7 PARAMETER NSA$_LOG_IO_5 = '04308433'X ! UNDOCUMENTED& PARAMETER NSA$_LOG_IO_6 = '0430843B'X& PARAMETER NSA$_LOG_IO_7 = '04308443'X% PARAMETER NSA$_GROUP_1 = '04308463'X% PARAMETER NSA$_GROUP_2 = '0430846B'X% PARAMETER NSA$_GROUP_3 = '04308473'X% PARAMETER NSA$_GROUP_4 = '0430847B'X% PARAMETER NSA$_GROUP_5 = '04308483'X% PARAMETER NSA$_GROUP_6 = '0430848B'X% PARAMETER NSA$_GROUP_7 = '04308493'X% PARAMETER NSA$_GROUP_8 = '0430849B'X% PARAMETER NSA$_GROUP_9 = '043084A3'X& P ARAMETER NSA$_GROUP_10 = '043084AB'X$ PARAMETER NSA$_ACNT_1 = '04308503'X$ PARAMETER NSA$_ACNT_2 = '0430850B'X& PARAMETER NSA$_PRMCEB_1 = '04308553'X& PARAMETER NSA$_PRMCEB_2 = '0430855B'X& PARAMETER NSA$_PRMMBX_1 = '043085A3'X& PARAMETER NSA$_PRMMBX_2 = '043085AB'X& PARAMETER NSA$_PRMMBX_3 = '043085B3'X& PARAMETER NSA$_PSWAPM_1 = '043085F3'X& PARAMETER NSA$_PSWAPM_2 = '043085FB'X& PARAMETER NSA$_PSWAPM_3 = '04308603'X& PARAMETER NSA$_PSWAPM_4 = '0430860B'X& PARAMETER NSA$_ALTPRI_1 = '0430 8643'X& PARAMETER NSA$_ALTPRI_2 = '0430864B'X& PARAMETER NSA$_ALTPRI_3 = '04308653'X& PARAMETER NSA$_ALTPRI_4 = '0430865B'X& PARAMETER NSA$_ALTPRI_5 = '04308663'X& PARAMETER NSA$_ALTPRI_6 = '0430866B'X& PARAMETER NSA$_ALTPRI_7 = '04308673'X& PARAMETER NSA$_IMPORT_1 = '04308693'X& PARAMETER NSA$_TMPMBX_1 = '043086E3'X& PARAMETER NSA$_TMPMBX_2 = '043086EB'X% PARAMETER NSA$_WORLD_1 = '04308733'X% PARAMETER NSA$_WORLD_2 = '0430873B'X% PARAMETER NSA$_WORLD_3 = '04308743'X% PARAMETER NSA$_WO RLD_4 = '0430874B'X% PARAMETER NSA$_WORLD_5 = '04308753'X% PARAMETER NSA$_WORLD_6 = '0430875B'X% PARAMETER NSA$_MOUNT_1 = '04308783'X$ PARAMETER NSA$_OPER_1 = '043087D3'X$ PARAMETER NSA$_OPER_2 = '043087DB'X$ PARAMETER NSA$_OPER_3 = '043087E3'X$ PARAMETER NSA$_OPER_4 = '043087EB'X$ PARAMETER NSA$_OPER_5 = '043087F3'X$ PARAMETER NSA$_OPER_6 = '043087FB'X$ PARAMETER NSA$_OPER_7 = '04308803'X$ PARAMETER NSA$_OPER_8 = '0430880B'X$ PARAMETER NSA$_OPER_9 = '04308813'X% PARAMETER NSA$_OPER_1 0 = '0430881B'X% PARAMETER NSA$_OPER_11 = '04308823'X% PARAMETER NSA$_OPER_12 = '0430882B'X% PARAMETER NSA$_OPER_13 = '04308833'X6 PARAMETER NSA$_OPER_14 = '0430883B'X ! UNDOCUMENTED6 PARAMETER NSA$_OPER_15 = '04308843'X ! UNDOCUMENTED% PARAMETER NSA$_OPER_16 = '0430884B'X6 PARAMETER NSA$_OPER_17 = '04308853'X ! UNDOCUMENTED6 PARAMETER NSA$_OPER_18 = '0430885B'X ! UNDOCUMENTED% PARAMETER NSA$_OPER_19 = '04308863'X% PARAMETER NSA$_OPER_20 = '0430886B'X% PARAMETER NSA$_OPER_21 = '04308873'X% PARAMETER NSA$_OPER_22 = '0430887B'X% PARAMETER NSA$_OPER_23 = '04308883'X6 PARAMETER NSA$_OPER_24 = '0430888B'X ! UNDOCUMENTED% PARAMETER NSA$_OPER_25 = '04308893'X% PARAMETER NSA$_OPER_26 = '0430889B'X% PARAMETER NSA$_OPER_27 = '043088A3'X% PARAMETER NSA$_OPER_28 = '043088AB'X% PARAMETER NSA$_OPER_29 = '043088B3'X% PARAMETER NSA$_OPER_30 = '043088BB'X% PARAMETER NSA$_OPER_31 = '043088C3'X% PARAMETER NSA$_OPER_32 = '043088CB'X% PARAMETER NSA$_OPER_33 = '043088D 3'X% PARAMETER NSA$_OPER_34 = '043088DB'X6 PARAMETER NSA$_OPER_35 = '043088E3'X ! UNDOCUMENTED% PARAMETER NSA$_OPER_36 = '043088EB'X% PARAMETER NSA$_OPER_37 = '043088F3'X% PARAMETER NSA$_OPER_38 = '043088FB'X% PARAMETER NSA$_OPER_39 = '04308903'X% PARAMETER NSA$_OPER_40 = '0430890B'X% PARAMETER NSA$_OPER_41 = '04308913'X% PARAMETER NSA$_OPER_42 = '0430891B'X% PARAMETER NSA$_OPER_43 = '04308923'X% PARAMETER NSA$_OPER_44 = '0430892B'X% PARAMETER NSA$_OPER_45 = '04308933'X% PAR AMETER NSA$_OPER_46 = '0430893B'X% PARAMETER NSA$_OPER_47 = '04308943'X% PARAMETER NSA$_OPER_48 = '0430894B'X% PARAMETER NSA$_OPER_49 = '04308953'X% PARAMETER NSA$_OPER_50 = '0430895B'X% PARAMETER NSA$_OPER_51 = '04308963'X% PARAMETER NSA$_OPER_52 = '0430896B'X% PARAMETER NSA$_OPER_53 = '04308973'X% PARAMETER NSA$_OPER_54 = '0430897B'X% PARAMETER NSA$_OPER_55 = '04308983'X6 PARAMETER NSA$_OPER_56 = '0430898B'X ! UNDOCUMENTED% PARAMETER NSA$_OPER_57 = '04308993'X% PARAMETER NSA $_OPER_58 = '0430899B'X% PARAMETER NSA$_OPER_59 = '043089A3'X% PARAMETER NSA$_OPER_60 = '043089AB'X% PARAMETER NSA$_OPER_61 = '043089B3'X% PARAMETER NSA$_OPER_62 = '043089BB'X% PARAMETER NSA$_OPER_63 = '043089C3'X% PARAMETER NSA$_OPER_64 = '043089CB'X% PARAMETER NSA$_OPER_65 = '043089D3'X% PARAMETER NSA$_OPER_66 = '043089DB'X% PARAMETER NSA$_OPER_67 = '043089E3'X% PARAMETER NSA$_OPER_68 = '043089EB'X% PARAMETER NSA$_OPER_69 = '043089F3'X6 PARAMETER NSA$_OPER_70 = '043089FB'X ! UNDOCUMENTED% PARAMETER NSA$_OPER_71 = '04308A03'X% PARAMETER NSA$_OPER_72 = '04308A0B'X% PARAMETER NSA$_OPER_73 = '04308A13'X% PARAMETER NSA$_OPER_74 = '04308A1B'X% PARAMETER NSA$_OPER_75 = '04308A23'X% PARAMETER NSA$_OPER_76 = '04308A2B'X% PARAMETER NSA$_OPER_77 = '04308A33'X% PARAMETER NSA$_OPER_78 = '04308A3B'X% PARAMETER NSA$_OPER_79 = '04308A43'X% PARAMETER NSA$_OPER_80 = '04308A4B'X% PARAMETER NSA$_OPER_81 = '04308A53'X ! 1 ! START OF A SET OF AUDITS ISSUED ONLY ON  ALPHA ! % PARAMETER NSA$_OPER_82 = '04308A5B'X% PARAMETER NSA$_OPER_83 = '04308A63'X% PARAMETER NSA$_OPER_84 = '04308A6B'X% PARAMETER NSA$_OPER_85 = '04308A73'X% PARAMETER NSA$_OPER_86 = '04308A7B'X% PARAMETER NSA$_OPER_87 = '04308A83'X% PARAMETER NSA$_OPER_88 = '04308A8B'X% PARAMETER NSA$_OPER_89 = '04308A93'X% PARAMETER NSA$_OPER_90 = '04308A9B'X% PARAMETER NSA$_OPER_91 = '04308AA3'X% PARAMETER NSA$_OPER_92 = '04308AAB'X% PARAMETER NSA$_OPER_93 = '04308AB3'X% PARAMETER N SA$_OPER_94 = '04308ABB'X ! / ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! ' PARAMETER NSA$_EXQUOTA_1 = '04308B93'X ! 1 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! ' PARAMETER NSA$_EXQUOTA_2 = '04308B9B'X' PARAMETER NSA$_EXQUOTA_3 = '04308BA3'X ! / ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! & PARAMETER NSA$_NETMBX_1 = '04308BE3'X& PARAMETER NSA$_NETMBX_2 = '04308BEB'X& PARAMETER NSA$_NETMBX_3 = '04308BF3'X& PARAMETER NSA$_VOLPRO_1 = '04308C33'X& PAR AMETER NSA$_VOLPRO_2 = '04308C3B'X7 PARAMETER NSA$_VOLPRO_3 = '04308C43'X ! UNDOCUMENTED& PARAMETER NSA$_VOLPRO_4 = '04308C4B'X& PARAMETER NSA$_VOLPRO_5 = '04308C53'X& PARAMETER NSA$_VOLPRO_6 = '04308C5B'X& PARAMETER NSA$_VOLPRO_7 = '04308C63'X& PARAMETER NSA$_VOLPRO_8 = '04308C6B'X& PARAMETER NSA$_VOLPRO_9 = '04308C73'X' PARAMETER NSA$_VOLPRO_10 = '04308C7B'X' PARAMETER NSA$_VOLPRO_11 = '04308C83'X' PARAMETER NSA$_VOLPRO_12 = '04308C8B'X' PARAMETER NSA$_VOLPRO_13 = '04308C93'X' PAR AMETER NSA$_VOLPRO_14 = '04308C9B'X' PARAMETER NSA$_VOLPRO_15 = '04308CA3'X& PARAMETER NSA$_PHY_IO_1 = '04308CD3'X& PARAMETER NSA$_PHY_IO_2 = '04308CDB'X& PARAMETER NSA$_PHY_IO_3 = '04308CE3'X& PARAMETER NSA$_PHY_IO_4 = '04308CEB'X& PARAMETER NSA$_PHY_IO_5 = '04308CF3'X& PARAMETER NSA$_PHY_IO_6 = '04308CFB'X& PARAMETER NSA$_PHY_IO_7 = '04308D03'X& PARAMETER NSA$_PHY_IO_8 = '04308D0B'X& PARAMETER NSA$_PHY_IO_9 = '04308D13'X' PARAMETER NSA$_PHY_IO_10 = '04308D1B'X' PARAMETER NSA$_PHY_IO_1 1 = '04308D23'X' PARAMETER NSA$_PHY_IO_12 = '04308D2B'X8 PARAMETER NSA$_PHY_IO_13 = '04308D33'X ! UNDOCUMENTED' PARAMETER NSA$_PHY_IO_14 = '04308D3B'X' PARAMETER NSA$_PHY_IO_15 = '04308D43'X& PARAMETER NSA$_BUGCHK_1 = '04308DC3'X& PARAMETER NSA$_BUGCHK_2 = '04308DCB'X& PARAMETER NSA$_PRMGBL_1 = '04308E13'X& PARAMETER NSA$_PRMGBL_2 = '04308E1B'X& PARAMETER NSA$_SYSGBL_1 = '04308E63'X& PARAMETER NSA$_SYSGBL_2 = '04308E6B'X& PARAMETER NSA$_PFNMAP_1 = '04308EB3'X& PARAMETER NSA$_PFNMAP_2 = '04308EBB'X& PARAMETER NSA$_PFNMAP_3 = '04308EC3'X% PARAMETER NSA$_SHMEM_1 = '04308F03'X% PARAMETER NSA$_SHMEM_2 = '04308F0B'X% PARAMETER NSA$_SHMEM_3 = '04308F13'X% PARAMETER NSA$_SHMEM_4 = '04308F1B'X% PARAMETER NSA$_SHMEM_5 = '04308F23'X& PARAMETER NSA$_SYSPRV_1 = '04308F53'X& PARAMETER NSA$_SYSPRV_2 = '04308F5B'X& PARAMETER NSA$_SYSPRV_3 = '04308F63'X& PARAMETER NSA$_SYSPRV_4 = '04308F6B'X& PARAMETER NSA$_SYSPRV_5 = '04308F73'X7 PARAMETER NSA$_SYSPRV_6 = '04308F7B'X ! UNDOCUM ENTED& PARAMETER NSA$_SYSPRV_7 = '04308F83'X& PARAMETER NSA$_SYSPRV_8 = '04308F8B'X& PARAMETER NSA$_SYSPRV_9 = '04308F93'X' PARAMETER NSA$_SYSPRV_10 = '04308F9B'X' PARAMETER NSA$_SYSPRV_11 = '04308FA3'X' PARAMETER NSA$_SYSPRV_12 = '04308FAB'X' PARAMETER NSA$_SYSPRV_13 = '04308FB3'X4 PARAMETER NSA$_SYSPRV_14 = '04308FBB'X ! RESERVED' PARAMETER NSA$_SYSPRV_15 = '04308FC3'X' PARAMETER NSA$_SYSPRV_16 = '04308FCB'X' PARAMETER NSA$_SYSPRV_17 = '04308FD3'X' PARAMETER NSA$_SYSPRV_18 = '0 4308FDB'X' PARAMETER NSA$_SYSPRV_19 = '04308FE3'X' PARAMETER NSA$_SYSPRV_20 = '04308FEB'X' PARAMETER NSA$_SYSPRV_21 = '04308FF3'X' PARAMETER NSA$_SYSPRV_22 = '04308FFB'X' PARAMETER NSA$_SYSPRV_23 = '04309003'X' PARAMETER NSA$_SYSPRV_24 = '0430900B'X' PARAMETER NSA$_SYSPRV_25 = '04309013'X' PARAMETER NSA$_SYSPRV_26 = '0430901B'X' PARAMETER NSA$_SYSPRV_27 = '04309023'X' PARAMETER NSA$_SYSPRV_28 = '0430902B'X' PARAMETER NSA$_SYSPRV_29 = '04309033'X' PARAMETER NSA$_SYSPRV_30 = '043 0903B'X' PARAMETER NSA$_SYSPRV_31 = '04309043'X' PARAMETER NSA$_SYSPRV_32 = '0430904B'X' PARAMETER NSA$_SYSPRV_33 = '04309053'X' PARAMETER NSA$_SYSPRV_34 = '0430905B'X' PARAMETER NSA$_SYSPRV_35 = '04309063'X' PARAMETER NSA$_SYSPRV_36 = '0430906B'X' PARAMETER NSA$_SYSPRV_37 = '04309073'X' PARAMETER NSA$_SYSPRV_38 = '0430907B'X' PARAMETER NSA$_SYSPRV_39 = '04309083'Xd PARAMETER NSA$_SYSPRV_40 = '0430908B'X ! THE ABOVE LIST IS FULL. USE THE OVERFLOW REGION AT THE C ! THE ABOV E LIST IS FULL. USE THE OVERFLOW REGION AT THE END& PARAMETER NSA$_BYPASS_1 = '04309093'X& PARAMETER NSA$_BYPASS_2 = '0430909B'X& PARAMETER NSA$_BYPASS_3 = '043090A3'X& PARAMETER NSA$_BYPASS_4 = '043090AB'X& PARAMETER NSA$_BYPASS_5 = '043090B3'X& PARAMETER NSA$_BYPASS_6 = '043090BB'X& PARAMETER NSA$_BYPASS_7 = '043090C3'X& PARAMETER NSA$_BYPASS_8 = '043090CB'X& PARAMETER NSA$_BYPASS_9 = '043090D3'X' PARAMETER NSA$_BYPASS_10 = '043090DB'X' PARAMETER NSA$_BYPASS_11 = '043090E3'X' PARAMET ER NSA$_BYPASS_12 = '043090EB'X' PARAMETER NSA$_BYPASS_13 = '043090F3'X' PARAMETER NSA$_BYPASS_14 = '043090FB'X4 PARAMETER NSA$_BYPASS_15 = '04309103'X ! RESERVED4 PARAMETER NSA$_BYPASS_16 = '0430910B'X ! RESERVED' PARAMETER NSA$_BYPASS_17 = '04309113'X' PARAMETER NSA$_BYPASS_18 = '0430911B'X' PARAMETER NSA$_BYPASS_19 = '04309123'X' PARAMETER NSA$_BYPASS_20 = '0430912B'X' PARAMETER NSA$_BYPASS_21 = '04309133'X' PARAMETER NSA$_BYPASS_22 = '0430913B'X' PARAMETER NSA$_BYPASS_23 = '04309143'X' PARAMETER NSA$_BYPASS_24 = '0430914B'X' PARAMETER NSA$_BYPASS_25 = '04309153'X' PARAMETER NSA$_BYPASS_26 = '0430915B'X' PARAMETER NSA$_BYPASS_27 = '04309163'X' PARAMETER NSA$_BYPASS_28 = '0430916B'X' PARAMETER NSA$_BYPASS_29 = '04309173'X' PARAMETER NSA$_BYPASS_30 = '0430917B'X& PARAMETER NSA$_SYSLCK_1 = '043091D3'X& PARAMETER NSA$_SYSLCK_2 = '043091DB'X% PARAMETER NSA$_SHARE_1 = '04309223'X& PARAMETER NSA$_GRPPRV_1 = '04309273'X& PARAMETER NSA$_GRPPRV_2 = '0430927B'X & PARAMETER NSA$_GRPPRV_3 = '04309283'X3 PARAMETER NSA$_GRPPRV_4 = '0430928B'X ! RESERVED& PARAMETER NSA$_GRPPRV_5 = '04309293'X& PARAMETER NSA$_GRPPRV_6 = '0430929B'X& PARAMETER NSA$_GRPPRV_7 = '043092A3'X& PARAMETER NSA$_GRPPRV_8 = '043092AB'X& PARAMETER NSA$_GRPPRV_9 = '043092B3'X' PARAMETER NSA$_GRPPRV_10 = '043092BB'X' PARAMETER NSA$_GRPPRV_11 = '043092C3'X' PARAMETER NSA$_GRPPRV_12 = '043092CB'X' PARAMETER NSA$_GRPPRV_13 = '043092D3'X' PARAMETER NSA$_GRPPRV_14 = '043092DB'X' PARAMETER NSA$_GRPPRV_15 = '043092E3'X' PARAMETER NSA$_GRPPRV_16 = '043092EB'X' PARAMETER NSA$_GRPPRV_17 = '043092F3'X' PARAMETER NSA$_GRPPRV_18 = '043092FB'X' PARAMETER NSA$_READALL_1 = '04309313'X' PARAMETER NSA$_READALL_2 = '0430931B'X4 PARAMETER NSA$_READALL_3 = '04309323'X ! RESERVED( PARAMETER NSA$_SECURITY_1 = '04309403'X( PARAMETER NSA$_SECURITY_2 = '0430940B'X( PARAMETER NSA$_SECURITY_3 = '04309413'X( PARAMETER NSA$_SECURITY_4 = '0430941B'X( PARAMETER NSA$_SECURITY_5 = '04 309423'X( PARAMETER NSA$_SECURITY_6 = '0430942B'X( PARAMETER NSA$_SECURITY_7 = '04309433'X( PARAMETER NSA$_SECURITY_8 = '0430943B'X( PARAMETER NSA$_SECURITY_9 = '04309443'X) PARAMETER NSA$_SECURITY_10 = '0430944B'X) PARAMETER NSA$_SECURITY_11 = '04309453'X) PARAMETER NSA$_SECURITY_12 = '0430945B'X) PARAMETER NSA$_SECURITY_13 = '04309463'X) PARAMETER NSA$_SECURITY_14 = '0430946B'X) PARAMETER NSA$_SECURITY_15 = '04309473'X) PARAMETER NSA$_SECURITY_16 = '0430947B'X) PARAMETER NSA$_SECU RITY_17 = '04309483'X) PARAMETER NSA$_SECURITY_18 = '0430948B'X) PARAMETER NSA$_SECURITY_19 = '04309493'X) PARAMETER NSA$_SECURITY_20 = '0430949B'X) PARAMETER NSA$_SECURITY_21 = '043094A3'X) PARAMETER NSA$_SECURITY_22 = '043094AB'X) PARAMETER NSA$_SECURITY_23 = '043094B3'X) PARAMETER NSA$_SECURITY_24 = '043094BB'X) PARAMETER NSA$_SECURITY_25 = '043094C3'X ! 1 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! ) PARAMETER NSA$_SECURITY_26 = '043094CB'X) PARAMETER NSA$_SECURI TY_27 = '043094D3'X) PARAMETER NSA$_SECURITY_28 = '043094DB'X) PARAMETER NSA$_SECURITY_29 = '043094E3'X) PARAMETER NSA$_SECURITY_30 = '043094EB'X3 ! THE ABOVE LIST IS FULL. CONTINUES AT BASE 3180 ! / ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! ' PARAMETER NSA$_UPGRADE_1 = '043094F3'X4 PARAMETER NSA$_UPGRADE_2 = '043094FB'X ! RESERVED) PARAMETER NSA$_DOWNGRADE_1 = '04309543'X6 PARAMETER NSA$_DOWNGRADE_2 = '0430954B'X ! RESERVED7 PARAMETER NSA$_SETPRV_1 = '04309593'X  ! UNDOCUMENTED& PARAMETER NSA$_SETPRV_2 = '0430959B'X& PARAMETER NSA$_SETPRV_3 = '043095A3'X& PARAMETER NSA$_SETPRV_4 = '043095AB'X& PARAMETER NSA$_SETPRV_5 = '043095B3'X& PARAMETER NSA$_SETPRV_6 = '043095BB'X% PARAMETER NSA$_AUDIT_1 = '043095E3'X% PARAMETER NSA$_AUDIT_2 = '043095EB'X% PARAMETER NSA$_AUDIT_3 = '043095F3'X ! O ! THE RANGE FROM 1900 TO 2000 IS USED FOR IMPLIED SYSPRV FROM UIC GROUP BEING$ ! LESS THAN OR EQUAL TO MAXSYSGRP. ! * PARAMETER NSA$_IMP_SYSPRV_1 = '0430 BB63'X* PARAMETER NSA$_IMP_SYSPRV_2 = '0430BB6B'X* PARAMETER NSA$_IMP_SYSPRV_3 = '0430BB73'X* PARAMETER NSA$_IMP_SYSPRV_4 = '0430BB7B'X* PARAMETER NSA$_IMP_SYSPRV_5 = '0430BB83'X* PARAMETER NSA$_IMP_SYSPRV_6 = '0430BB8B'X* PARAMETER NSA$_IMP_SYSPRV_7 = '0430BB93'X* PARAMETER NSA$_IMP_SYSPRV_8 = '0430BB9B'X* PARAMETER NSA$_IMP_SYSPRV_9 = '0430BBA3'X+ PARAMETER NSA$_IMP_SYSPRV_10 = '0430BBAB'X+ PARAMETER NSA$_IMP_SYSPRV_11 = '0430BBB3'X+ PARAMETER NSA$_IMP_SYSPRV_12 = '0430BBBB'X+ PARAMET ER NSA$_IMP_SYSPRV_13 = '0430BBC3'X+ PARAMETER NSA$_IMP_SYSPRV_14 = '0430BBCB'X+ PARAMETER NSA$_IMP_SYSPRV_15 = '0430BBD3'X+ PARAMETER NSA$_IMP_SYSPRV_16 = '0430BBDB'X/ PARAMETER NSA$_IMP_SYSPRV_17 = '0430BBE3'X ! I ! THE RANGE FROM 2000-2047 IS RESERVED FOR EVENTS WHICH ARE GOVERNED BYM ! MULTIPLE PRIVILEGES. THIS KIND OF THING IS SERIOUSLY FROWNED UPON AND SO; ! WE'LL ONLY RESERVE A MEASLY 48 MESSAGES CODES FOR THEM. ! $ PARAMETER NSA$_COMB_1 = '0430BE83'X$ PARAMETER NSA$_CO MB_2 = '0430BE8B'X$ PARAMETER NSA$_COMB_3 = '0430BE93'X5 PARAMETER NSA$_COMB_4 = '0430BE9B'X ! UNDOCUMENTED$ PARAMETER NSA$_COMB_5 = '0430BEA3'X$ PARAMETER NSA$_COMB_6 = '0430BEAB'X$ PARAMETER NSA$_COMB_7 = '0430BEB3'X$ PARAMETER NSA$_COMB_8 = '0430BEBB'X$ PARAMETER NSA$_COMB_9 = '0430BEC3'X% PARAMETER NSA$_COMB_10 = '0430BECB'X% PARAMETER NSA$_COMB_11 = '0430BED3'X% PARAMETER NSA$_COMB_12 = '0430BEDB'X% PARAMETER NSA$_COMB_13 = '0430BEE3'X% PARAMETER NSA$_COMB_14 = '0430BEEB'X% P ARAMETER NSA$_COMB_15 = '0430BEF3'X% PARAMETER NSA$_COMB_16 = '0430BEFB'X% PARAMETER NSA$_COMB_17 = '0430BF03'X% PARAMETER NSA$_COMB_18 = '0430BF0B'X ! 1 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! % PARAMETER NSA$_COMB_19 = '0430BF13'X ! / ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! % PARAMETER NSA$_COMB_20 = '0430BF1B'X ! Q ! THE RANGE OF MESSAGE CODES FROM 2048-4095 ARE RESERVED TO PORTIONS OF THE TCBF ! WHICH NEED TO ASSOCIATE ONE LINE OF TEXT WITH TH EIR AUDIT MESSAGE. !  ! - ! FILE AND VOLUME AUDIT MESSAGES (F11BXQP). ! # PARAMETER NSA$_XQP_1 = '0430C003'X# PARAMETER NSA$_XQP_2 = '0430C00B'X# PARAMETER NSA$_XQP_3 = '0430C013'X# PARAMETER NSA$_XQP_4 = '0430C01B'X# PARAMETER NSA$_XQP_5 = '0430C023'X# PARAMETER NSA$_XQP_6 = '0430C02B'X# PARAMETER NSA$_XQP_7 = '0430C033'X# PARAMETER NSA$_XQP_8 = '0430C03B'X# PARAMETER NSA$_XQP_9 = '0430C043'X$ PARAMETER NSA$_XQP_10 = '0430C04B'X$ PARAMETER NSA$_XQP_11 = '0430C053'X$ P ARAMETER NSA$_XQP_12 = '0430C05B'X$ PARAMETER NSA$_XQP_13 = '0430C063'X$ PARAMETER NSA$_XQP_14 = '0430C06B'X$ PARAMETER NSA$_XQP_15 = '0430C073'X$ PARAMETER NSA$_XQP_16 = '0430C07B'X$ PARAMETER NSA$_XQP_17 = '0430C083'X$ PARAMETER NSA$_XQP_18 = '0430C08B'X$ PARAMETER NSA$_XQP_19 = '0430C093'X$ PARAMETER NSA$_XQP_20 = '0430C09B'X$ PARAMETER NSA$_XQP_21 = '0430C0A3'X$ PARAMETER NSA$_XQP_22 = '0430C0AB'X$ PARAMETER NSA$_XQP_23 = '0430C0B3'X ! 4 ! MESSAGE TO DIFFERENTIATE VARIOUS TCB OPERA TIONS. ! & PARAMETER NSA$_ALLOCATE = '0430E003'X$ PARAMETER NSA$_ASSIGN = '0430E00B'X) PARAMETER NSA$_SETSECURITY = '0430E013'X) PARAMETER NSA$_SHOSECURITY = '0430E01B'X' PARAMETER NSA$_GSDACCESS = '0430E023'X' PARAMETER NSA$_KFEACCESS = '0430E02B'X) PARAMETER NSA$_MACBYPASSED = '0430E033'X !  ! PRIVILEGE AUDIT OVERFLOW. ! ' PARAMETER NSA$_SYSPRV_41 = '0430E0E3'X' PARAMETER NSA$_SYSPRV_42 = '0430E0EB'X' PARAMETER NSA$_SYSPRV_43 = '0430E0F3'X' PARAMETER NSA$_SYSPRV_44 =  '0430E0FB'X' PARAMETER NSA$_SYSPRV_45 = '0430E103'X' PARAMETER NSA$_SYSPRV_46 = '0430E10B'X' PARAMETER NSA$_SYSPRV_47 = '0430E113'X' PARAMETER NSA$_SYSPRV_48 = '0430E11B'X' PARAMETER NSA$_SYSPRV_49 = '0430E123'X' PARAMETER NSA$_SYSPRV_50 = '0430E12B'X' PARAMETER NSA$_SYSPRV_51 = '0430E133'X' PARAMETER NSA$_SYSPRV_52 = '0430E13B'X ! ! IMPERSONATION AUDIT OVERFLOW ! , PARAMETER NSA$_IMPERSONATE_11 = '0430E223'X, PARAMETER NSA$_IMPERSONATE_12 = '0430E22B'X !  ! SECURITY AUDIT OVERFLOW !  ! 1 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! ) PARAMETER NSA$_SECURITY_31 = '0430E363'X) PARAMETER NSA$_SECURITY_32 = '0430E36B'X) PARAMETER NSA$_SECURITY_33 = '0430E373'X) PARAMETER NSA$_SECURITY_34 = '0430E37B'X) PARAMETER NSA$_SECURITY_35 = '0430E383'X) PARAMETER NSA$_SECURITY_36 = '0430E38B'X) PARAMETER NSA$_SECURITY_37 = '0430E393'X) PARAMETER NSA$_SECURITY_38 = '0430E39B'X) PARAMETER NSA$_SECURITY_39 = '0430E3A3'X ! / ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! !DEC$ END OPTIONSww؜Φ!*** MODULE $NSARECDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +( ! Security Auditing record definitions ! -D PARAMETER NSA$C_REC_MAXLENGTH = '00000400'X ! Maximum record sizeD PARAMETER NSA$K_REC_MAXLENGTH = '00000400'X ! Maximum record sizeD PARAMETER NSA$S_REC_MAXLENGTH = '00000400'X ! Maximum record size ! +! ! Audit record type definitions ! -9 PARAMETER NSA$K_REC TYP_FIL = '00000001'X ! File access; PARAMETER NSA$K_RECTYP_SYSUAF = '00000002'X ! System UAF< PARAMETER NSA$K_RECTYP_NETUAF = '00000003'X ! Network UAFF PARAMETER NSA$K_RECTYP_LOGB = '00000004'X ! Login breakin detection? PARAMETER NSA$K_RECTYP_LOGI = '00000005'X ! Successful login< PARAMETER NSA$K_RECTYP_LOGF = '00000006'X ! Login failure5 PARAMETER NSA$K_RECTYP_LOGO = '00000007'X ! Logout? PARAMETER NSA$K_RECTYP_VOL = '00000008'X ! Volume operationsC PARAMETER NSA$K_REC TYP_GBL = '00000009'X ! Global section accessC PARAMETER NSA$K_RECTYP_INSTAL = '0000000A'X ! INSTALL operationsK PARAMETER NSA$K_RECTYP_RIGHTS = '0000000B'X ! Rights database operationsD PARAMETER NSA$K_RECTYP_AUDIT = '0000000C'X ! SET AUDIT operations( PARAMETER NSA$K_RECTYPNUM = '0000000C'X ! ++ ! Audit record subtype and ID definitions ! - ! File accessI PARAMETER NSA$K_RECTYP_FIL_SUCC = '00000001'X ! Successful file accessF PARAMETER NSA$K_RECTYP_FIL_FAIL = '00000002 'X ! File access failure, PARAMETER NSA$K_RECTYPNUM_FIL = '00000002'X- PARAMETER NSA$K_RECID_FIL_SUCC = '00010001'X- PARAMETER NSA$K_RECID_FIL_FAIL = '00020001'X ! Global section accessS PARAMETER NSA$K_RECTYP_GBL_SUCC = '00000001'X ! Successful Global section accessP PARAMETER NSA$K_RECTYP_GBL_FAIL = '00000002'X ! Global section access failure, PARAMETER NSA$K_RECTYPNUM_GBL = '00000002'X- PARAMETER NSA$K_RECID_GBL_SUCC = '00010009'X- PARAMETER NSA$K_RECID_GBL_FAIL = '00020009'X  ! System UAFO PARAMETER NSA$K_RECTYP_SYSUAF_ADD = '00000001'X ! System UAF record additionO PARAMETER NSA$K_RECTYP_SYSUAF_DEL = '00000002'X ! System UAF record deletionS PARAMETER NSA$K_RECTYP_SYSUAF_MOD = '00000003'X ! System UAF record modificationM PARAMETER NSA$K_RECTYP_SYSUAF_COP = '00000004'X ! System UAF record copiedN PARAMETER NSA$K_RECTYP_SYSUAF_REN = '00000005'X ! System UAF record renamed/ PARAMETER NSA$K_RECTYPNUM_SYSUAF = '00000005'X/ PARAMETER NSA$K_RECID_SYSUA F_ADD = '00010002'X/ PARAMETER NSA$K_RECID_SYSUAF_DEL = '00020002'X/ PARAMETER NSA$K_RECID_SYSUAF_MOD = '00030002'X/ PARAMETER NSA$K_RECID_SYSUAF_COP = '00040002'X/ PARAMETER NSA$K_RECID_SYSUAF_REN = '00050002'X ! Network UAFP PARAMETER NSA$K_RECTYP_NETUAF_ADD = '00000001'X ! Network UAF record additionP PARAMETER NSA$K_RECTYP_NETUAF_DEL = '00000002'X ! Network UAF record deletionT PARAMETER NSA$K_RECTYP_NETUAF_MOD = '00000003'X ! Network UAF record modification/ PARAMETER NSA$K _RECTYPNUM_NETUAF = '00000003'X/ PARAMETER NSA$K_RECID_NETUAF_ADD = '00010003'X/ PARAMETER NSA$K_RECID_NETUAF_DEL = '00020003'X/ PARAMETER NSA$K_RECID_NETUAF_MOD = '00030003'X ! Login breakin detectionW PARAMETER NSA$K_RECTYP_LOGB_DIA = '00000001'X ! Dialup interactive breakin detectionV PARAMETER NSA$K_RECTYP_LOGB_LOC = '00000002'X ! Local interactive breakin detectionW PARAMETER NSA$K_RECTYP_LOGB_REM = '00000003'X ! Remote interactive breakin detectionL PARAMETER NSA$K_RECTYP_ LOGB_NET = '00000004'X ! Network breakin detectionU PARAMETER NSA$K_RECTYP_LOGB_DET = '00000005'X ! Detached process breakin detection- PARAMETER NSA$K_RECTYPNUM_LOGB = '00000005'X- PARAMETER NSA$K_RECID_LOGB_DIA = '00010004'X- PARAMETER NSA$K_RECID_LOGB_LOC = '00020004'X- PARAMETER NSA$K_RECID_LOGB_REM = '00030004'X- PARAMETER NSA$K_RECID_LOGB_NET = '00040004'X- PARAMETER NSA$K_RECID_LOGB_DET = '00050004'X ! Successful loginF PARAMETER NSA$K_RECTYP_LOGI_BAT = '00000001'X ! Bat ch process loginK PARAMETER NSA$K_RECTYP_LOGI_DIA = '00000002'X ! Dialup interactive loginJ PARAMETER NSA$K_RECTYP_LOGI_LOC = '00000003'X ! Local interactive loginK PARAMETER NSA$K_RECTYP_LOGI_REM = '00000004'X ! Remote interactive login@ PARAMETER NSA$K_RECTYP_LOGI_NET = '00000005'X ! Network loginC PARAMETER NSA$K_RECTYP_LOGI_SUB = '00000006'X ! Subprocess loginI PARAMETER NSA$K_RECTYP_LOGI_DET = '00000007'X ! Detached process login- PARAMETER NSA$K_RECTYPNUM_LOGI = '00000007'  X- PARAMETER NSA$K_RECID_LOGI_BAT = '00010005'X- PARAMETER NSA$K_RECID_LOGI_DIA = '00020005'X- PARAMETER NSA$K_RECID_LOGI_LOC = '00030005'X- PARAMETER NSA$K_RECID_LOGI_REM = '00040005'X- PARAMETER NSA$K_RECID_LOGI_NET = '00050005'X- PARAMETER NSA$K_RECID_LOGI_SUB = '00060005'X- PARAMETER NSA$K_RECID_LOGI_DET = '00070005'X ! Login failureN PARAMETER NSA$K_RECTYP_LOGF_BAT = '00000001'X ! Batch process login failureS PARAMETER NSA$K_RECTYP_LOGF_DIA = '00000002'X ! Dialup interact ive login failureR PARAMETER NSA$K_RECTYP_LOGF_LOC = '00000003'X ! Local interactive login failureS PARAMETER NSA$K_RECTYP_LOGF_REM = '00000004'X ! Remote interactive login failureH PARAMETER NSA$K_RECTYP_LOGF_NET = '00000005'X ! Network login failureK PARAMETER NSA$K_RECTYP_LOGF_SUB = '00000006'X ! Subprocess login failureQ PARAMETER NSA$K_RECTYP_LOGF_DET = '00000007'X ! Detached process login failure- PARAMETER NSA$K_RECTYPNUM_LOGF = '00000007'X- PARAMETER NSA$K_RECID_LOGF_BAT  = '00010006'X- PARAMETER NSA$K_RECID_LOGF_DIA = '00020006'X- PARAMETER NSA$K_RECID_LOGF_LOC = '00030006'X- PARAMETER NSA$K_RECID_LOGF_REM = '00040006'X- PARAMETER NSA$K_RECID_LOGF_NET = '00050006'X- PARAMETER NSA$K_RECID_LOGF_SUB = '00060006'X- PARAMETER NSA$K_RECID_LOGF_DET = '00070006'X ! LogoutG PARAMETER NSA$K_RECTYP_LOGO_BAT = '00000001'X ! Batch process logoutL PARAMETER NSA$K_RECTYP_LOGO_DIA = '00000002'X ! Dialup interactive logoutK PARAMETER NSA$K_RECTYP_LOGO_LOC = '00  000003'X ! Local interactive logoutL PARAMETER NSA$K_RECTYP_LOGO_REM = '00000004'X ! Remote interactive logoutA PARAMETER NSA$K_RECTYP_LOGO_NET = '00000005'X ! Network logoutD PARAMETER NSA$K_RECTYP_LOGO_SUB = '00000006'X ! Subprocess logoutJ PARAMETER NSA$K_RECTYP_LOGO_DET = '00000007'X ! Detached process logout- PARAMETER NSA$K_RECTYPNUM_LOGO = '00000007'X- PARAMETER NSA$K_RECID_LOGO_BAT = '00010007'X- PARAMETER NSA$K_RECID_LOGO_DIA = '00020007'X- PARAMETER NSA$K_RECID_LOGO_LO  C = '00030007'X- PARAMETER NSA$K_RECID_LOGO_REM = '00040007'X- PARAMETER NSA$K_RECID_LOGO_NET = '00050007'X- PARAMETER NSA$K_RECID_LOGO_SUB = '00060007'X- PARAMETER NSA$K_RECID_LOGO_DET = '00070007'X ! Volume operations? PARAMETER NSA$K_RECTYP_VOL_MOU = '00000001'X ! Volume mountsC PARAMETER NSA$K_RECTYP_VOL_DMOU = '00000002'X ! Volume dismounts, PARAMETER NSA$K_RECTYPNUM_VOL = '00000002'X, PARAMETER NSA$K_RECID_VOL_MOU = '00010008'X- PARAMETER NSA$K_RECID_VOL_DMOU = '00020008'  X ! INSTALL operationsC PARAMETER NSA$K_RECTYP_INSTAL_ADD = '00000001'X ! Add known fileF PARAMETER NSA$K_RECTYP_INSTAL_REM = '00000002'X ! Remove known file/ PARAMETER NSA$K_RECTYPNUM_INSTAL = '00000002'X ! Rights database operationsK PARAMETER NSA$K_RECTYP_RIGHTS_CRE = '00000001'X ! Create rights databaseC PARAMETER NSA$K_RECTYP_RIGHTS_ADD = '00000002'X ! Add identifierF PARAMETER NSA$K_RECTYP_RIGHTS_REM = '00000003'X ! Remove identifierI PARAMETER NSA$K_RECTYP_RIGHTS_MOD  _ID = '00000004'X ! Modify identifierP PARAMETER NSA$K_RECTYP_RIGHTS_MOD_HO = '00000005'X ! Modify identifier holderG PARAMETER NSA$K_RECTYP_RIGHTS_GRANT = '00000006'X ! Grant identifierH PARAMETER NSA$K_RECTYP_RIGHTS_REVOK = '00000007'X ! Revoke identifier/ PARAMETER NSA$K_RECTYPNUM_RIGHTS = '00000007'X ! SET AUDIT operationsC PARAMETER NSA$K_RECTYP_AUDIT_ENA_AL = '00000001'X ! Enable alarmD PARAMETER NSA$K_RECTYP_AUDIT_DIS_AL = '00000002'X ! Disable alarmE PARAMETER NSA$K_R ECTYP_AUDIT_ENA_JL = '00000003'X ! Enable journalF PARAMETER NSA$K_RECTYP_AUDIT_DIS_JL = '00000004'X ! Disable journal. PARAMETER NSA$K_RECTYPNUM_AUDIT = '00000004'X ! + ! SYSUAFF stuff ! - STRUCTURE /sysuaff_bits/ UNION MAP7 INTEGER*4 nsa$q_sysuaff(2) ! SYSUAFF flags: END MAP MAP' PARAMETER nsa$S_access = 1= PARAMETER nsa$V_access = 0 ! ACCESS modified( PARAMETER nsa$S_account = 1? PARAMETER nsa$V_account = 1 ! ACCOUNT modified& PARAMETER nsa$S_astlm = 1; PARAMETER nsa$V_astlm = 2 ! ASTLM modified& PARAMETER nsa$S_batch = 1; PARAMETER nsa$V_batch = 3 ! BATCH modified& PARAMETER nsa$S_biolm = 1; PARAMETER nsa$V_biolm = 4 ! BIOLM modified& PARAMETER nsa$S_bytlm = 1; PARAMETER nsa$V_bytlm = 5 ! BYTLM modified$ PARAMETER nsa$S_cli = 18 PARAMETER nsa$V_cli = 6 ! CLI modified* PARAMETER nsa$S_clitables = 1C PARAMETER nsa$V_clitables = 7 ! CLITABLES modified( PARAMETER nsa$S_cputime = 1? PARAMETER nsa$V_cputime = 8 ! CPUTIME modified. PARAMETER nsa$S_defprivileges = 1J PARAMETER nsa$V_defprivileges = 9 ! DEFPRIVILEGES modified' PARAMETER nsa$S_device = 1> PARAMETER nsa$V_device = 10 ! DEVICE modified ' PARAMETER nsa$S_dialup = 1> PARAMETER nsa$V_dialup = 11 ! DIALUP modified& PARAMETER nsa$S_diolm = 1< PARAMETER nsa$V_diolm = 12 ! DIOLM modified* PARAMETER nsa$S_directory = 1D PARAMETER nsa$V_directory = 13 ! DIRECTORY modified& PARAMETER nsa$S_enqlm = 1< PARAMETER nsa$V_enqlm = 14 ! ENQLM modified+ PARAMETER nsa$S_expiration = 1F PARAMETER nsa$V_expir ation = 15 ! EXPIRATION modified& PARAMETER nsa$S_fillm = 1< PARAMETER nsa$V_fillm = 16 ! FILLM modified& PARAMETER nsa$S_flags = 1< PARAMETER nsa$V_flags = 17 ! FLAGS modified, PARAMETER nsa$S_interactive = 1G PARAMETER nsa$V_interactive = 18 ! INTERACTIVE modified( PARAMETER nsa$S_jtquota = 1@ PARAMETER nsa$V_jtquota = 19 ! JTQUOTA modified' PARAMETER nsa$S_lgicmd = 1> PARAMETER nsa$V_lgicmd = 20 ! LGICMD modified& PARAMETER nsa$S_local = 1< PARAMETER nsa$V_local = 21 ! LOCAL modified* PARAMETER nsa$S_maxdetach = 1D PARAMETER nsa$V_maxdetach = 22 ! MAXDETACH modified( PARAMETER nsa$S_maxjobs = 1@ PARAMETER nsa$V_maxjobs = 23 ! MAXJOBS modified, PARAMETER nsa$S_maxacctjobs = 1G PARAMETER nsa$V_maxacctjobs = 24 ! MAXACCTJOBS mod  ified( PARAMETER nsa$S_network = 1@ PARAMETER nsa$V_network = 25 ! NETWORK modified& PARAMETER nsa$S_owner = 1< PARAMETER nsa$V_owner = 26 ! OWNER modified) PARAMETER nsa$S_password = 1B PARAMETER nsa$V_password = 27 ! PASSWORD modified' PARAMETER nsa$S_pbytlm = 1> PARAMETER nsa$V_pbytlm = 28 ! PBYTLM modified' PARAMETER nsa$S_pflags = 1> PARAMETER nsa$V  _pflags = 29 ! PFLAGS modified+ PARAMETER nsa$S_p_restrict = 1F PARAMETER nsa$V_p_restrict = 30 ! P_RESTRICT modified* PARAMETER nsa$S_pgflquota = 1D PARAMETER nsa$V_pgflquota = 31 ! PGFLQUOTA modified& PARAMETER nsa$S_prclm = 1< PARAMETER nsa$V_prclm = 32 ! PRCLM modified* PARAMETER nsa$S_primedays = 1D PARAMETER nsa$V_primedays = 33 ! PRIMEDAYS modified) PARAMETER  nsa$S_priority = 1B PARAMETER nsa$V_priority = 34 ! PRIORITY modified+ PARAMETER nsa$S_privileges = 1F PARAMETER nsa$V_privileges = 35 ! PRIVILEGES modified, PARAMETER nsa$S_pwdlifetime = 1G PARAMETER nsa$V_pwdlifetime = 36 ! PWDLIFETIME modified+ PARAMETER nsa$S_pwdminimum = 1F PARAMETER nsa$V_pwdminimum = 37 ! PWDMINIMUM modified, PARAMETER nsa$S_quepriority = 1G P  ARAMETER nsa$V_quepriority = 38 ! QUEPRIORITY modified' PARAMETER nsa$S_remote = 1> PARAMETER nsa$V_remote = 39 ! REMOTE modified' PARAMETER nsa$S_sflags = 1> PARAMETER nsa$V_sflags = 40 ! SFLAGS modified+ PARAMETER nsa$S_s_restrict = 1F PARAMETER nsa$V_s_restrict = 41 ! S_RESTRICT modified) PARAMETER nsa$S_shrfillm = 1B PARAMETER nsa$V_shrfillm = 42 ! SHRFILLM modified&  PARAMETER nsa$S_tqelm = 1< PARAMETER nsa$V_tqelm = 43 ! TQELM modified$ PARAMETER nsa$S_uic = 18 PARAMETER nsa$V_uic = 44 ! UIC modified* PARAMETER nsa$S_wsdefault = 1D PARAMETER nsa$V_wsdefault = 45 ! WSDEFAULT modified) PARAMETER nsa$S_wsextent = 1B PARAMETER nsa$V_wsextent = 46 ! WSEXTENT modified( PARAMETER nsa$S_wsquota = 1) PARAMETER nsa$V_wsquota = 474 BYTE %FILL (6) ! WSQUOTA modified END MAP END UNION END STRUCTURE ! sysuaff_bits ! +$ ! Record header offset definitions ! -/ PARAMETER NSA$M_REC_FLAGS_PKTCON = '00000001'X, PARAMETER NSA$C_RECHDR_LENGTH = '0000004C'X, PARAMETER NSA$K_RECHDR_LENGTH = '0000004C'X STRUCTURE /NSARECHDRDEF/ UNION MAPD INTEGER*4 NSA$L_REC_ID ! Record identification longword END MAP MAP6 INTEGER*2 NSA$W_REC_TYPE  ! Record type< INTEGER*2 NSA$W_REC_SUBTYPE ! Record subtype END MAP END UNIONA BYTE NSA$B_REC_SEQNUM ! This records sequence numberB BYTE NSA$B_REC_SEQLAST ! Last records sequence number UNION MAP9 BYTE NSA$B_REC_FLAGS ! Record flags byte END MAP MAP1 PARAMETER NSA$S_REC_FLAGS_PKTCON = 1N PARAMETER NSA$V_REC_FLAGS_PKTCON = 0 ! Last packet in record is ! co  ntinued in next record BYTE %FILL (1) END MAP END UNIONE BYTE NSA$B_REC_PKTNUM ! Number of data packets in record; INTEGER*2 NSA$W_REC_PKTOFF ! Offset to first packet? INTEGER*2 NSA$W_REC_PKTHDRSIZ ! Data packet header size/ INTEGER*4 NSA$L_REC_EPID ! Extended PIDA INTEGER*4 NSA$Q_REC_TIME(2) ! Event time (EXE$GQ_SYSTIME): CHARACTER*16 NSA$T_REC_CLUSNAM ! Cluster node name5 CHARACTER*16 NSA$T_REC_PROCNAM ! Pro  cess name1 CHARACTER*12 NSA$T_REC_USERNAM ! username4 CHARACTER*8 NSA$T_REC_ACCTNAM ! Account name END STRUCTURE ! NSARECHDRDEF ! + ! Data packet type definitions ! -B PARAMETER NSA$K_PKTTYP_IMGNAM = '00000001'X ! Image name packetA PARAMETER NSA$K_PKTTYP_FACMOD = '00000002'X ! File access modeP PARAMETER NSA$K_PKTTYP_PRIVUSED = '00000003'X ! Privilege used to access file: PARAMETER NSA$K_PKTTYP_FILNAM = '00000004'X ! File name< PARAMETER NSA$K_PKTTYP_DEVNAM =  '00000005'X ! Device name= PARAMETER NSA$K_PKTTYP_LOGNAM = '00000006'X ! Logical name< PARAMETER NSA$K_PKTTYP_VOLNAM = '00000007'X ! Volume nameA PARAMETER NSA$K_PKTTYP_VOLSNAM = '00000008'X ! Volume set name; PARAMETER NSA$K_PKTTYP_NODENAM = '00000009'X ! Node name; PARAMETER NSA$K_PKTTYP_USERNAM = '0000000A'X ! User name; PARAMETER NSA$K_PKTTYP_PASSWORD = '0000000B'X ! PasswordF PARAMETER NSA$K_PKTTYP_UIC = '0000000C'X ! User identification codeB PARAMETER NSA$K_PKTTYP_  VOLPRO = '0000000D'X ! Volume protection< PARAMETER NSA$K_PKTTYP_MOUFLG = '0000000E'X ! Mount flags@ PARAMETER NSA$K_PKTTYP_DMOUFLG = '0000000F'X ! Dismount flags8 PARAMETER NSA$K_PKTTYP_NODEID = '00000010'X ! Node ID; PARAMETER NSA$K_PKTTYP_EPID = '00000011'X ! Extended PIDJ PARAMETER NSA$K_PKTTYP_SYSUAFF = '00000012'X ! System UAF record fields@ PARAMETER NSA$K_PKTTYP_STATUS = '00000013'X ! Status longwordD PARAMETER NSA$K_PKTTYP_SECNAM = '00000014'X ! Global section nameC P ARAMETER NSA$K_PKTTYP_PRIVS = '00000015'X ! Full privilege mask> PARAMETER NSA$K_PKTTYP_INSFLG = '00000016'X ! Install flags@ PARAMETER NSA$K_PKTTYP_IDNAME = '00000017'X ! Identifier name@ PARAMETER NSA$K_PKTTYP_IDVAL = '00000018'X ! Identifier valueF PARAMETER NSA$K_PKTTYP_IDATTR = '00000019'X ! Identifier attributesB PARAMETER NSA$K_PKTTYP_HOLDER = '0000001A'X ! Identifier holder: PARAMETER NSA$K_PKTTYP_AUDIT = '0000001B'X ! Audit itemG PARAMETER NSA$K_PKTTYP_DEFUSERNAM = '0000  001C'X ! Default proxy nameC PARAMETER NSA$K_PKTTYP_OLDUSERNAM = '0000001D'X ! Old proxy nameQ PARAMETER NSA$K_PKTTYP_OLDDEFUNAM = '0000001E'X ! Old default local proxy nameI PARAMETER NSA$K_PKTTYP_OLDNODENAM = '0000001F'X ! Old remote node name( PARAMETER NSA$K_PKTTYPNUM = '0000001F'X ! +" ! Data packet offset definitions ! -, PARAMETER NSA$C_PKTHDR_LENGTH = '00000004'X, PARAMETER NSA$K_PKTHDR_LENGTH = '00000004'X+ PARAMETER NSA$M_PKT_INS_OPEN = '00000002'X* PARAMETER NSA$M  _PKT_INS_HDR = '00000004'X, PARAMETER NSA$M_PKT_INS_SHARE = '00000008'X+ PARAMETER NSA$M_PKT_INS_EXEC = '00000010'X, PARAMETER NSA$M_PKT_INS_WRITE = '00000020'X+ PARAMETER NSA$M_PKT_INS_PRIV = '00000040'X+ PARAMETER NSA$M_PKT_INS_PROT = '00000080'X, PARAMETER NSA$M_PKT_INS_NOPRG = '00000100'X* PARAMETER NSA$M_PKT_INS_ACC = '00000200'X/ PARAMETER NSA$M_PKT_INS_RESIDENT = '00000400'X STRUCTURE /NSAPKTDEF/3 INTEGER*2 NSA$W_PKT_TYPE ! Packet data type. INTEGER*2 NSA$W_PKT_SIZE  ! Packet size2 ! unsupported type CHARACTER*0 NSA$T_PKT_DATA UNION MAP7 CHARACTER*444 NSA$T_PKT_IMGNAM ! Image name END MAP MAP9 INTEGER*4 NSA$L_PKT_FACMOD ! File access mode END MAP MAPH INTEGER*4 NSA$L_PKT_PRIVUSED ! Privilege used to access file END MAP MAP6 CHARACTER*444 NSA$T_PKT_FILNAM ! File name END MAP MAPG CHARACTER*64 NSA$T_PKT_DE VNAM ! Device and access port name END MAP MAP9 CHARACTER*255 NSA$T_PKT_LOGNAM ! Logical name END MAP MAP7 CHARACTER*12 NSA$T_PKT_VOLNAM ! Volume name END MAP MAP< CHARACTER*12 NSA$T_PKT_VOLSNAM ! Volume set name END MAP MAP5 CHARACTER*6 NSA$T_PKT_NODENAM ! Node name END MAP MAP6 CHARACTER*32 NSA$T_PKT_USERNAM ! User name END M AP MAP6 CHARACTER*32 NSA$T_PKT_PASSWORD ! Password END MAP MAP1 INTEGER*4 NSA$L_PKT_UIC ! Volume UIC END MAP MAP: INTEGER*2 NSA$W_PKT_VOLPRO ! Volume protection END MAP MAP4 INTEGER*4 NSA$L_PKT_MOUFLG ! Mount flags END MAP MAP8 INTEGER*2 NSA$W_PKT_DMOUFLG ! Dismount flags END MAP MAP3 INTEGER*4 NSA$Q_PKT_NODEID(2) ! Node ID END MAP MAP3 INTEGER*4 NSA$L_PKT_EPID ! Extended PID END MAP MAPE INTEGER*4 NSA$Q_PKT_SYSUAFF(2) ! System UAF record fields END MAP MAP8 INTEGER*4 NSA$L_PKT_STATUS ! Status longword END MAP MAP? CHARACTER*54 NSA$T_PKT_SECNAM ! Global section name END MAP MAP> INTEGER*4 NSA$Q_PKT_PRIVS(2) ! Full privilege mask END MAP MAP UNION MAP: INTEGER*4 NSA$L_PKT_INSFLG ! Install flags END MAP MAP1 PARAMETER NSA$S_PKT_INS_OPEN = 1; PARAMETER NSA$V_PKT_INS_OPEN = 1 ! /OPEN0 PARAMETER NSA$S_PKT_INS_HDR = 1F PARAMETER NSA$V_PKT_INS_HDR = 2 ! /HEADER_RESIDENT2 PARAMETER NSA$S_PKT_INS_SHARE = 1= PARAMETER NSA$V_PKT_INS_SHARE = 3 ! /SHARE1 ! PARAMETER NSA$S_PKT_INS_EXEC = 1> PARAMETER NSA$V_PKT_INS_EXEC = 4 ! /EXECUTE2 PARAMETER NSA$S_PKT_INS_WRITE = 1= PARAMETER NSA$V_PKT_INS_WRITE = 5 ! /WRITE1 PARAMETER NSA$S_PKT_INS_PRIV = 1@ PARAMETER NSA$V_PKT_INS_PRIV = 6 ! /PRIVILEGE1 PARAMETER NSA$S_PKT_INS_PROT = 1@ PARAMETER NSA$V_PKT_INS_PROT = 7 ! /PROTECTED2 PARAMETER NSA$S_PKT_INS_NOPRG = 1? " PARAMETER NSA$V_PKT_INS_NOPRG = 8 ! /NOPURGE0 PARAMETER NSA$S_PKT_INS_ACC = 1A PARAMETER NSA$V_PKT_INS_ACC = 9 ! /ACCOUNTING5 PARAMETER NSA$S_PKT_INS_RESIDENT = 1D PARAMETER NSA$V_PKT_INS_RESIDENT = 10 ! /RESIDENT BYTE %FILL (2) END MAP END UNION END MAP MAP; CHARACTER*32 NSA$T_PKT_IDNAME ! Identifier name END MAP MAP# 8 INTEGER*4 NSA$L_PKT_IDVAL ! Identifier value END MAP MAP> INTEGER*4 NSA$L_PKT_IDATTR ! Identifier attributes END MAP MAP= INTEGER*4 NSA$Q_PKT_HOLDER(2) ! Identifier holder END MAP MAPQ ! unsupported type CHARACTER*0 NSA$R_PKT_AUDIT ! Audit item (not used) END MAP MAPA CHARACTER*32 NSA$T_PKT_DEFUSERNAM ! Default proxy name END MAP MAP= $ CHARACTER*32 NSA$T_PKT_OLDUSERNAM ! Old proxy name END MAP MAPK CHARACTER*32 NSA$T_PKT_OLDDEFUNAM ! Old default local proxy name END MAP MAPB CHARACTER*6 NSA$T_PKT_OLDNODENAM ! Old remote node name END MAP END UNION END STRUCTURE ! NSAPKTDEF!DEC$ END OPTIONS wwΦ!*** MODULE $OBJRECDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN& PARAMETER OBJ$M_PSC_PIC = '00000001'X& % PARAMETER OBJ$M_PSC_LIB = '00000002'X& PARAMETER OBJ$M_PSC_OVL = '00000004'X& PARAMETER OBJ$M_PSC_REL = '00000008'X& PARAMETER OBJ$M_PSC_GBL = '00000010'X& PARAMETER OBJ$M_PSC_SHR = '00000020'X& PARAMETER OBJ$M_PSC_EXE = '00000040'X% PARAMETER OBJ$M_PSC_RD = '00000080'X& PARAMETER OBJ$M_PSC_WRT = '00000100'X' PARAMETER OBJ$M_SYM_WEAK = '00000001'X& PARAMETER OBJ$M_SYM_DEF = '00000002'X& PARAMETER OBJ$M_SYM_UNI = '00000004'X& PARAMETER OBJ$M_SYM_REL = '00000008'X( PARAMETER OBJ$M_SYMV_WE& AK = '00000001'X' PARAMETER OBJ$M_SYMV_DEF = '00000002'X' PARAMETER OBJ$M_SYMV_UNI = '00000004'X' PARAMETER OBJ$M_SYMV_REL = '00000008'X( PARAMETER OBJ$M_SYMM_WEAK = '00000001'X' PARAMETER OBJ$M_SYMM_DEF = '00000002'X' PARAMETER OBJ$M_SYMM_UNI = '00000004'X' PARAMETER OBJ$M_SYMM_REL = '00000008'X STRUCTURE /SDADEFS/ UNION MAP2 BYTE OBJ$B_TYPE ! Type of record END MAP MAP9 BYTE OBJ$B_GSD_TYPE ! Type of GSD record ' END MAP END UNION UNION MAPA BYTE OBJ$B_PSC_ALI ! PSECT alignment (2**n) UNION MAP; INTEGER*2 OBJ$W_PSC_FLAG ! PSECT flags: END MAP MAP0 PARAMETER OBJ$S_PSC_PIC = 1L PARAMETER OBJ$V_PSC_PIC = 0 ! Position independent0 PARAMETER OBJ$S_PSC_LIB = 1S PARAMETER OBJ$V_PSC_LIB = 1 ( ! Defined from sharable image0 PARAMETER OBJ$S_PSC_OVL = 1F PARAMETER OBJ$V_PSC_OVL = 2 ! Overlaid psect0 PARAMETER OBJ$S_PSC_REL = 1K PARAMETER OBJ$V_PSC_REL = 3 ! Requires relocation0 PARAMETER OBJ$S_PSC_GBL = 1G PARAMETER OBJ$V_PSC_GBL = 4 ! PSECT is global0 PARAMETER OBJ$S_PSC_SHR = 1L PARAMETER OBJ$V_PSC_SHR = ) 5 ! Potentially sharable0 PARAMETER OBJ$S_PSC_EXE = 1B PARAMETER OBJ$V_PSC_EXE = 6 ! Executable/ PARAMETER OBJ$S_PSC_RD = 1B PARAMETER OBJ$V_PSC_RD = 7 ! Can be read0 PARAMETER OBJ$S_PSC_WRT = 1F PARAMETER OBJ$V_PSC_WRT = 8 ! Can be written BYTE %FILL (2) END MAP END UNION: INTEGER*4 OBJ$L_PSC * _LEN ! Length of PSECTH CHARACTER*1 OBJ$T_PSC_NAME ! PSECT name (counted string) END MAP MAPQ BYTE OBJ$B_SYM_DTYPE ! Data type (see Arch. Handbook, Ap. C) UNION MAP= INTEGER*2 OBJ$W_SYM_FLAGS ! Symbol flags: END MAP MAP1 PARAMETER OBJ$S_SYM_WEAK = 1U PARAMETER OBJ$V_SYM_WEAK = 0 ! Weak resolution (0 = stro + ng)0 PARAMETER OBJ$S_SYM_DEF = 1R PARAMETER OBJ$V_SYM_DEF = 1 ! Definition (0 = reference)0 PARAMETER OBJ$S_SYM_UNI = 1X PARAMETER OBJ$V_SYM_UNI = 2 ! Universal definition (0 = local)0 PARAMETER OBJ$S_SYM_REL = 1V PARAMETER OBJ$V_SYM_REL = 3 ! Relative symbol (0 = absolute) BYTE %FILL (1) END MAP END UNIONE , BYTE OBJ$B_SYM_PSIND ! PSECT index (only if def)I INTEGER*4 OBJ$L_SYM_VALUE ! Value of symbol (only if def)I CHARACTER*1 OBJ$T_SYM_NAME ! Symbol name (counted string) END MAP MAPQ BYTE OBJ$B_EPM_DTYPE ! Data type (see Arch. Handbook, Ap. C)E INTEGER*2 OBJ$W_EPM_FLAGS ! Flags (same as SYM_FLAGS)E BYTE OBJ$B_EPM_PSIND ! PSECT index (only if def)I INTEGER*4 OBJ - $L_EPM_VALUE ! Value of symbol (only if def)5 INTEGER*2 OBJ$W_EPM_MASK ! Entry maskI CHARACTER*1 OBJ$T_EPM_NAME ! Symbol name (counted string) END MAP MAPR BYTE OBJ$B_SYMV_DTYPE ! Data type (see Arch. Handbook, Ap. C) UNION MAP> INTEGER*2 OBJ$W_SYMV_FLAGS ! Symbol flags: END MAP MAP2 PARAMETER OBJ$S_SYMV_WEAK = 1V . PARAMETER OBJ$V_SYMV_WEAK = 0 ! Weak resolution (0 = strong)1 PARAMETER OBJ$S_SYMV_DEF = 1S PARAMETER OBJ$V_SYMV_DEF = 1 ! Definition (0 = reference)1 PARAMETER OBJ$S_SYMV_UNI = 1Y PARAMETER OBJ$V_SYMV_UNI = 2 ! Universal definition (0 = local)1 PARAMETER OBJ$S_SYMV_REL = 1W PARAMETER OBJ$V_SYMV_REL = 3 ! Relative symbol (0 = absolute / ) BYTE %FILL (1) END MAP END UNIONF BYTE OBJ$B_SYMV_PSIND ! PSECT index (only if def)J INTEGER*4 OBJ$L_SYMV_VALUE ! Value of symbol (only if def)T INTEGER*4 OBJ$L_SYMV_VECTOR ! Vectored value of symbol (only if def)J CHARACTER*1 OBJ$T_SYMV_NAME ! Symbol name (counted string) END MAP MAPR BYTE OBJ$B_EPMV_DTYPE ! Data type (see Arch. Handbook, 0 Ap. C)F INTEGER*2 OBJ$W_EPMV_FLAGS ! Flags (same as SYM_FLAGS)F BYTE OBJ$B_EPMV_PSIND ! PSECT index (only if def)J INTEGER*4 OBJ$L_EPMV_VALUE ! Value of symbol (only if def)T INTEGER*4 OBJ$L_EPMV_VECTOR ! Vectored value of symbol (only if def)6 INTEGER*2 OBJ$W_EPMV_MASK ! Entry maskJ CHARACTER*1 OBJ$T_EPMV_NAME ! Symbol name (counted string) END MAP MAPR BYTE OBJ$B 1 _SYMM_DTYPE ! Data type (see Arch. Handbook, Ap. C) UNION MAP> INTEGER*2 OBJ$W_SYMM_FLAGS ! Symbol flags: END MAP MAP2 PARAMETER OBJ$S_SYMM_WEAK = 1V PARAMETER OBJ$V_SYMM_WEAK = 0 ! Weak resolution (0 = strong)1 PARAMETER OBJ$S_SYMM_DEF = 1S PARAMETER OBJ$V_SYMM_DEF = 1 ! Definition (0 = reference)1 2 PARAMETER OBJ$S_SYMM_UNI = 1Y PARAMETER OBJ$V_SYMM_UNI = 2 ! Universal definition (0 = local)1 PARAMETER OBJ$S_SYMM_REL = 1W PARAMETER OBJ$V_SYMM_REL = 3 ! Relative symbol (0 = absolute) BYTE %FILL (1) END MAP END UNIONF BYTE OBJ$B_SYMM_PSIND ! PSECT index (only if def)J INTEGER*4 OBJ$L_SYMM_VALUE ! Value of symbol (only if def)W 3 INTEGER*4 OBJ$L_SYMM_VERSION_MASK ! Version mask of symbol (only if def)J CHARACTER*1 OBJ$T_SYMM_NAME ! Symbol name (counted string) END MAP MAPR BYTE OBJ$B_EPMM_DTYPE ! Data type (see Arch. Handbook, Ap. C)F INTEGER*2 OBJ$W_EPMM_FLAGS ! Flags (same as SYM_FLAGS)F BYTE OBJ$B_EPMM_PSIND ! PSECT index (only if def)J INTEGER*4 OBJ$L_EPMM_VALUE ! Value of symbol (only if def)W 4 INTEGER*4 OBJ$L_EPMM_VERSION_MASK ! Version mask of symbol (only if def)6 INTEGER*2 OBJ$W_EPMM_MASK ! Entry maskJ CHARACTER*1 OBJ$T_EPMM_NAME ! Symbol name (counted string) END MAP MAPD BYTE OBJ$B_EOM_SEV ! Error severity for moduleK BYTE OBJ$B_EOM_PSIND ! PSECT index of transfer address< INTEGER*4 OBJ$L_EOM_TRANS ! Transfer address END MAP END UNION END STRUCTURE ! S 5 DADEFS; PARAMETER OBJ$C_HDR = '00000000'X ! Module header record > PARAMETER OBJ$C_HDR_MHD = '00000000'X ! Main header record E PARAMETER OBJ$C_HDR_LNM = '00000001'X ! Language processor record D PARAMETER OBJ$C_HDR_SRC = '00000002'X ! Source files description 6 PARAMETER OBJ$C_HDR_TTL = '00000003'X ! Title text : PARAMETER OBJ$C_HDR_CPR = '00000004'X ! Copyright text < PARAMETER OBJ$C_HDR_MTC = '00000005'X ! Maintenance text 8 PARAMETER OBJ$C_HDR_GTX = '00000006'X ! General t6 ext F PARAMETER OBJ$C_GSD = '00000001'X ! Global symbol definition record = PARAMETER OBJ$C_GSD_PSC = '00000000'X ! P-sect definition F PARAMETER OBJ$C_GSD_SYM = '00000001'X ! Symbol (simple) definition B PARAMETER OBJ$C_GSD_EPM = '00000002'X ! Entry point definition @ PARAMETER OBJ$C_GSD_PRO = '00000003'X ! Procedure definition N PARAMETER OBJ$C_GSD_SYMW = '00000004'X ! Symbol definition with word psect S PARAMETER OBJ$C_GSD_EPMW = '00000005'X ! Entry point definition with word p7 sect Q PARAMETER OBJ$C_GSD_PROW = '00000006'X ! Procedure definition with word psect ? PARAMETER OBJ$C_GSD_IDC = '00000007'X ! Random entity check B PARAMETER OBJ$C_GSD_ENV = '00000008'X ! Environment definition M PARAMETER OBJ$C_GSD_LSY = '00000009'X ! Local symbol definition/reference J PARAMETER OBJ$C_GSD_LEPM = '0000000A'X ! Local symbol entry point def. H PARAMETER OBJ$C_GSD_LPRO = '0000000B'X ! Local symbol procedure def. M PARAMETER OBJ$C_GSD_SPSC = '0000000C'X ! Sharea8 ble image psect definition O PARAMETER OBJ$C_GSD_SYMV = '0000000D'X ! Global symbol definition (vectored)M PARAMETER OBJ$C_GSD_EPMV = '0000000E'X ! Entry point definition (vectored)K PARAMETER OBJ$C_GSD_PROV = '0000000F'X ! Procedure definition (vectored)\ PARAMETER OBJ$C_GSD_SYMM = '00000010'X ! Global symbol definition (special double valued)Z PARAMETER OBJ$C_GSD_EPMM = '00000011'X ! Entry point definition (special double valued)X PARAMETER OBJ$C_GSD_PROM = '00000012'X ! Proced9 ure definition (special double valued)> PARAMETER OBJ$C_TIR = '00000002'X ! Text information record ; PARAMETER OBJ$C_EOM = '00000003'X ! End of module record B PARAMETER OBJ$C_DBG = '00000004'X ! Debugger information record C PARAMETER OBJ$C_TBT = '00000005'X ! Traceback information record < PARAMETER OBJ$C_LNK = '00000006'X ! Linker options record L PARAMETER OBJ$C_EOMW = '00000007'X ! End of module record with word psect F PARAMETER OBJ$C_MAXRECTYP = '00000007'X ! Last assigned reco : rd type % PARAMETER OBJ$K_SUBTYP = '00000001'X% PARAMETER OBJ$C_SUBTYP = '00000001'XF PARAMETER OBJ$C_MAXRECSIZ = '00000800'X ! Maximum legal record size 9 PARAMETER OBJ$C_STRLVL = '00000000'X ! Structure level ? PARAMETER OBJ$C_SYMSIZ = '0000001F'X ! Maximum symbol length K PARAMETER OBJ$C_STOREPLIM = -1 ! Maximum repeat count on store commands E PARAMETER OBJ$C_PSCALILIM = '00000009'X ! Maximum p-sect alignment  STRUCTURE /OBJRECDEF/? BYTE OBJ$B_RECTYP ! First byte ; always record type  ! Permissable record types 6 BYTE OBJ$B_SUBTYP ! Record sub-type byte 3 BYTE OBJ$B_MHD_STRLV ! Structure level UNION MAP; INTEGER*2 OBJ$W_MHD_RECSZ ! Maximum record size  END MAP MAP! BYTE %FILL(1:2)P ! unsupported type CHARACTER*0 OBJ$T_MHD_NAME ! Module name field  ! Misc. constants  END MAP END UNION END STRUCTURE ! OBJRECDEF!DEC$ END OPTIONS < wwꌁΦ!*** MODULE $OPCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN; PARAMETER OPC$_RQ_TERME = '00000001'X ! ENABLE TERMINAL = PARAMETER OPC$_RQ_LOGI = '00000002'X ! INITIALIZE THE LOG ; PARAMETER OPC$_RQ_RQST = '00000003'X ! OPERATOR REQUEST : PARAMETER OPC$_RQ_REPLY = '00000004'X ! OPERATOR REPLY ; PARAMETER OPC$_RQ_CANCEL = '00000005'X ! CANCEL REQUEST D PARAMETER OPC$_RQ_STATUS = '00000006'X ! REQUEST OPERATOR STATUS J PARAMETER OPC = $_RQ_SECURITY = '00000007'X ! MESSAGE TO SECURITY OPERATORH PARAMETER OPC$_RQ_LICENSE = '00000008'X ! MESSAGE TO LICENSE OPERATOR' PARAMETER OPC$M_RQ_NOOCS = '00000080'X( PARAMETER OPC$M_NM_CENTRL = '00000001'X' PARAMETER OPC$M_NM_PRINT = '00000002'X' PARAMETER OPC$M_NM_TAPES = '00000004'X' PARAMETER OPC$M_NM_DISKS = '00000008'X( PARAMETER OPC$M_NM_DEVICE = '00000010'X' PARAMETER OPC$M_NM_CARDS = '00000020'X( PARAMETER OPC$M_NM_NTWORK = '00000040'X) PARAMETER OPC$M_NM_CLUSTER = '000 > 00080'X* PARAMETER OPC$M_NM_SECURITY = '00000100'X' PARAMETER OPC$M_NM_REPLY = '00000200'X* PARAMETER OPC$M_NM_SOFTWARE = '00000400'X) PARAMETER OPC$M_NM_LICENSE = '00000800'X' PARAMETER OPC$M_NM_OPER1 = '00001000'X' PARAMETER OPC$M_NM_OPER2 = '00002000'X' PARAMETER OPC$M_NM_OPER3 = '00004000'X' PARAMETER OPC$M_NM_OPER4 = '00008000'X' PARAMETER OPC$M_NM_OPER5 = '00010000'X' PARAMETER OPC$M_NM_OPER6 = '00020000'X' PARAMETER OPC$M_NM_OPER7 = '00040000'X' PARAMETER OPC$M_NM_OPER8 = ? '00080000'X' PARAMETER OPC$M_NM_OPER9 = '00100000'X( PARAMETER OPC$M_NM_OPER10 = '00200000'X( PARAMETER OPC$M_NM_OPER11 = '00400000'X( PARAMETER OPC$M_NM_OPER12 = '00800000'X STRUCTURE /OPCDEF/0 BYTE OPC$B_MS_TYPE ! MESSAGE TYPE UNION MAP UNION MAP> BYTE OPC$B_MS_TARGET ! MESSAGE TARGET END MAP MAP> BYTE OPC$B_MS_ENAB ! MESSAGE ENABLES @ END MAP END UNION: INTEGER*2 OPC$W_MS_STATUS ! MESSAGE STATUS END MAP MAP/ BYTE OPC$Z_MS_TARGET_CLASSES(1:3) END MAP MAP/ BYTE OPC$Z_MS_ENAB_TERMINALS(1:3) END MAP END UNION UNION MAP1 INTEGER*4 OPC$L_MS_RPLYID ! REPLY ID  END MAP MAP UNION MAP8 INTEGER*4 OPC$L_MS_MASK ! MESSAGE MASK  A END MAP MAP7 INTEGER*4 OPC$L_MS_RQSTID ! REQUEST ID  END MAP END UNION END MAP END UNION UNION MAP4 INTEGER*4 OPC$L_MS_TEXT ! MESSAGE TEXT  END MAP MAP@ INTEGER*2 OPC$W_MS_OUNIT ! OPERATOR UNIT NUMBER ; CHARACTER*1 OPC$T_MS_ONAME ! OPERATOR NAME  END MAP END UNION/ INTEGER*2 %FILL(1:7) ! SPACE FOR NAME 7 INTEGERB *4 OPC$L_MS_OTEXT(1:32) ! OPERATOR TEXT UNION MAP8 INTEGER*4 OPC$L_MS_MAXSZ ! MESSAGE MAX SIZE  END MAP ! OPERATOR MESSAGE TYPES MAP* PARAMETER OPC$S_NM_CENTRL = 10 PARAMETER OPC$V_NM_CENTRL = 0 ! ) PARAMETER OPC$S_NM_PRINT = 1) PARAMETER OPC$V_NM_PRINT = 1) PARAMETER OPC$S_NM_TAPES = 1) PARAMETER OPC$V_NM_TAPES = 2) PARAMETER OPC$S_NM_DISKS = 1) C PARAMETER OPC$V_NM_DISKS = 3* PARAMETER OPC$S_NM_DEVICE = 1* PARAMETER OPC$V_NM_DEVICE = 4) PARAMETER OPC$S_NM_CARDS = 1) PARAMETER OPC$V_NM_CARDS = 5* PARAMETER OPC$S_NM_NTWORK = 1* PARAMETER OPC$V_NM_NTWORK = 6+ PARAMETER OPC$S_NM_CLUSTER = 1+ PARAMETER OPC$V_NM_CLUSTER = 7, PARAMETER OPC$S_NM_SECURITY = 1, PARAMETER OPC$V_NM_SECURITY = 8) P D ARAMETER OPC$S_NM_REPLY = 1) PARAMETER OPC$V_NM_REPLY = 9, PARAMETER OPC$S_NM_SOFTWARE = 1- PARAMETER OPC$V_NM_SOFTWARE = 10+ PARAMETER OPC$S_NM_LICENSE = 1, PARAMETER OPC$V_NM_LICENSE = 11) PARAMETER OPC$S_NM_OPER1 = 1* PARAMETER OPC$V_NM_OPER1 = 12) PARAMETER OPC$S_NM_OPER2 = 1* PARAMETER OPC$V_NM_OPER2 = 13) PARAMETER OPC$S_NM_OPER3 = 1* PARAMETER OPC E $V_NM_OPER3 = 14) PARAMETER OPC$S_NM_OPER4 = 1* PARAMETER OPC$V_NM_OPER4 = 15) PARAMETER OPC$S_NM_OPER5 = 1* PARAMETER OPC$V_NM_OPER5 = 16) PARAMETER OPC$S_NM_OPER6 = 1* PARAMETER OPC$V_NM_OPER6 = 17) PARAMETER OPC$S_NM_OPER7 = 1* PARAMETER OPC$V_NM_OPER7 = 18) PARAMETER OPC$S_NM_OPER8 = 1* PARAMETER OPC$V_NM_OPER8 = 19) PARAMETER OPC$S_NM_OPER9 = 1* F PARAMETER OPC$V_NM_OPER9 = 20* PARAMETER OPC$S_NM_OPER10 = 1+ PARAMETER OPC$V_NM_OPER10 = 21* PARAMETER OPC$S_NM_OPER11 = 1+ PARAMETER OPC$V_NM_OPER11 = 22* PARAMETER OPC$S_NM_OPER12 = 1+ PARAMETER OPC$V_NM_OPER12 = 23 BYTE %FILL (3) END MAP END UNION END STRUCTURE ! OPCDEF* PARAMETER OPC$M_OPR_CENTRAL = '00000001'X* PARAMETER OPC$M_OPR_PRINTER = '00000002'X( PARAMETER OPC$M_O G PR_TAPES = '00000004'X( PARAMETER OPC$M_OPR_DISKS = '00000008'X* PARAMETER OPC$M_OPR_DEVICES = '00000010'X( PARAMETER OPC$M_OPR_CARDS = '00000020'X* PARAMETER OPC$M_OPR_NETWORK = '00000040'X* PARAMETER OPC$M_OPR_CLUSTER = '00000080'X+ PARAMETER OPC$M_OPR_SECURITY = '00000100'X( PARAMETER OPC$M_OPR_REPLY = '00000200'X+ PARAMETER OPC$M_OPR_SOFTWARE = '00000400'X* PARAMETER OPC$M_OPR_LICENSE = '00000800'X( PARAMETER OPC$M_OPR_USER1 = '00001000'X( PARAMETER OPC$M_OPR_USER2 = '00002000'X( PARH AMETER OPC$M_OPR_USER3 = '00004000'X( PARAMETER OPC$M_OPR_USER4 = '00008000'X( PARAMETER OPC$M_OPR_USER5 = '00010000'X( PARAMETER OPC$M_OPR_USER6 = '00020000'X( PARAMETER OPC$M_OPR_USER7 = '00040000'X( PARAMETER OPC$M_OPR_USER8 = '00080000'X( PARAMETER OPC$M_OPR_USER9 = '00100000'X) PARAMETER OPC$M_OPR_USER10 = '00200000'X) PARAMETER OPC$M_OPR_USER11 = '00400000'X) PARAMETER OPC$M_OPR_USER12 = '00800000'X STRUCTURE /OPC_OPRDEF/ UNION MAP( PARAMETER OPC$S_OPR_CENTRAL = 1 I ( PARAMETER OPC$V_OPR_CENTRAL = 0( PARAMETER OPC$S_OPR_PRINTER = 1( PARAMETER OPC$V_OPR_PRINTER = 1& PARAMETER OPC$S_OPR_TAPES = 1& PARAMETER OPC$V_OPR_TAPES = 2& PARAMETER OPC$S_OPR_DISKS = 1& PARAMETER OPC$V_OPR_DISKS = 3( PARAMETER OPC$S_OPR_DEVICES = 1( PARAMETER OPC$V_OPR_DEVICES = 4& PARAMETER OPC$S_OPR_CARDS = 1& PARAMETER OPC$V_OPR_CARDS = 5( PARAMETER OPC$S_OPR_NETWORK = 1( PAR J AMETER OPC$V_OPR_NETWORK = 6( PARAMETER OPC$S_OPR_CLUSTER = 1( PARAMETER OPC$V_OPR_CLUSTER = 7) PARAMETER OPC$S_OPR_SECURITY = 1) PARAMETER OPC$V_OPR_SECURITY = 8& PARAMETER OPC$S_OPR_REPLY = 1& PARAMETER OPC$V_OPR_REPLY = 9) PARAMETER OPC$S_OPR_SOFTWARE = 1* PARAMETER OPC$V_OPR_SOFTWARE = 10( PARAMETER OPC$S_OPR_LICENSE = 1) PARAMETER OPC$V_OPR_LICENSE = 11& PARAMETER OPC$S_OPR_USER1 = 1' P K ARAMETER OPC$V_OPR_USER1 = 12& PARAMETER OPC$S_OPR_USER2 = 1' PARAMETER OPC$V_OPR_USER2 = 13& PARAMETER OPC$S_OPR_USER3 = 1' PARAMETER OPC$V_OPR_USER3 = 14& PARAMETER OPC$S_OPR_USER4 = 1' PARAMETER OPC$V_OPR_USER4 = 15& PARAMETER OPC$S_OPR_USER5 = 1' PARAMETER OPC$V_OPR_USER5 = 16& PARAMETER OPC$S_OPR_USER6 = 1' PARAMETER OPC$V_OPR_USER6 = 17& PARAMETER OPC$S_OPR_USER7 = 1' PARAMETER OPC$VL _OPR_USER7 = 18& PARAMETER OPC$S_OPR_USER8 = 1' PARAMETER OPC$V_OPR_USER8 = 19& PARAMETER OPC$S_OPR_USER9 = 1' PARAMETER OPC$V_OPR_USER9 = 20' PARAMETER OPC$S_OPR_USER10 = 1( PARAMETER OPC$V_OPR_USER10 = 21' PARAMETER OPC$S_OPR_USER11 = 1( PARAMETER OPC$V_OPR_USER11 = 22' PARAMETER OPC$S_OPR_USER12 = 1( PARAMETER OPC$V_OPR_USER12 = 23 BYTE %FILL (3) END MAP END UNION END STRUCTURE ! OPCM _OPRDEF% PARAMETER OPC$K_SYSTEM = '00000001'X$ PARAMETER OPC$K_GROUP = '00000002'X# PARAMETER OPC$K_USER = '00000003'X% PARAMETER OPC$K_UNSPEC = '00000004'X% PARAMETER OPC$C_SYSTEM = '00000001'X$ PARAMETER OPC$C_GROUP = '00000002'X# PARAMETER OPC$C_USER = '00000003'X% PARAMETER OPC$C_UNSPEC = '00000004'X) PARAMETER OPC$K_SW_VERSION = '00000009'X& PARAMETER OPC$K_MAXREAD = '00000A00'X) PARAMETER OPC$K_MAXMESSAGE = '00000800'X( PARAMETER OPC$K_COMHDRSIZ = '00000026'X> PARAMETER OPC N $_OPCOMERROR = '0001869F'X ! New error message) PARAMETER OPC$_X_OPRENABLE = '0000000A'X' PARAMETER OPC$_X_LOGFILE = '0000000B'X' PARAMETER OPC$_X_REQUEST = '0000000C'X% PARAMETER OPC$_X_REPLY = '0000000D'X& PARAMETER OPC$_X_CANCEL = '0000000E'X& PARAMETER OPC$_X_STATUS = '0000000F'X( PARAMETER OPC$_X_SHUTDOWN = '00000010'X) PARAMETER OPC$_X_TIMESTAMP = '00000011'X( PARAMETER OPC$_X_SECURITY = '00000012'X' PARAMETER OPC$_X_CLUSMSG = '00000013'X% PARAMETER OPC$_X_DEBUG = '00000014'XO & PARAMETER OPC$_X_CNXMAN = '00000015'X0 PARAMETER OPC$_X_REQUEST_END_MARK = '00000016'XW PARAMETER OPC$K_CLM__ACKNOWLEDGEMENT = '00000001'X ! Response to acknowledge requeste PARAMETER OPC$K_CLM__ACKNOWLEDGE_PLEASE = '00000002'X ! Request for remote node to announce itselfI PARAMETER OPC$K_CLM__CANCEL = '00000003'X ! Explicit cancel of requesta PARAMETER OPC$K_CLM__CHECK_OPERATOR = '00000004'X ! Make sure this operator is in the database\ PARAMETER OPC$K_CLM__CHECK_REQUEST = '00000P 005'X ! Make sure a request is in the databaseY PARAMETER OPC$K_CLM__CLUMBX = '00000006'X ! Cluster mailbox message passed from cnxmanL PARAMETER OPC$K_CLM__CLUSTER = '00000007'X ! Cluster status change reportU PARAMETER OPC$K_CLM__DEVICE = '00000008'X ! Device message (on-line, off-line etc)N PARAMETER OPC$K_CLM__IMP_CANCEL = '00000009'X ! Implicitly cancel a requestR PARAMETER OPC$K_CLM__IMP_DISABLE = '0000000A'X ! Implicitly disable an operatore PARAMETER OPC$K_CLM__OPRENABLE = Q '0000000B'X ! Tell everyone else to enable or disable an operatorE PARAMETER OPC$K_CLM__REPLY = '0000000C'X ! REPLY /PEND etc command] PARAMETER OPC$K_CLM__REPLY_COMPLETE = '0000000D'X ! Operator request completed by operator@ PARAMETER OPC$K_CLM__REQUEST = '0000000E'X ! Operator requestd PARAMETER OPC$K_CLM__RPYBRD = '0000000F'X ! Message from OPCOM to remotes, info for cluster REPLYC ! Message from OPCOM to remotes, info for cluster REPLY /TERMd PARAMETER OPC$K_CLM__RPYBRD_LR OCAL = '00000010'X ! Broadcast message from REPLY to OPCOM on local B PARAMETER OPC$K_CLM__RPYNOT = '00000011'X ! Reply notificationsK PARAMETER OPC$K_CLM__SECURITY = '00000012'X ! Security alarm from remoteE PARAMETER OPC$K_CLM__SHUTDOWN = '00000013'X ! Shut down operationsO PARAMETER OPC$K_CLM__LOGFILE = '00000014'X ! Enable/disable logfile operator4 PARAMETER OPC$K_CLM__REQUEST_END_MARK = '00000015'XA PARAMETER OPC$K_HDR_SIZE = '0000001A'X ! Size of common header STRUCTURE /S HEADER_MESSAGE// BYTE OPC$B_RQSTCODE ! Request code. BYTE OPC$B_SCOPE ! Request SCOPEC INTEGER*4 OPC$L_OPTIONS ! Request independent option bits. UNION MAPB INTEGER*4 OPC$L_RQ_OPTIONS ! Request dependent options END MAP MAPG BYTE OPC$B_RQOPT_CODE ! a code byte and some fill BYTE %FILL INTEGER*2 %FILL END MAP END UNION9 INTEGER*4 OPC$L_ATTNMT ASK1 ! Attention mask part 19 INTEGER*4 OPC$L_ATTNMASK2 ! Attention mask part 2= INTEGER*4 OPC$L_RQSTID ! User specified request id #/ INTEGER*4 OPC$L_UIC ! UIC of requestor END STRUCTURE ! HEADER_MESSAGE$ PARAMETER OPC$M_NOLOG = '00000001'X$ PARAMETER OPC$M_NOBRD = '00000002'X( PARAMETER OPC$M_NOCLUSTER = '00000004'X STRUCTURE /OPC$$FILL_0_/ UNION MAP INTEGER*4 %FILL END MAP MAP" PARAMETER OPC$S_NOLOG = 1= PARAMETER U OPC$V_NOLOG = 0 ! Do not log the action" PARAMETER OPC$S_NOBRD = 18 PARAMETER OPC$V_NOBRD = 1 ! Do not broadcast& PARAMETER OPC$S_NOCLUSTER = 1B PARAMETER OPC$V_NOCLUSTER = 2 ! Do not send to cluster BYTE %FILL (1) END MAP END UNION END STRUCTURE ! OPC$$FILL_0_Q PARAMETER OPC$K_OPRENABLE_MIN_SIZE = '0000001E'X ! Min message size header + 4 STRUCTURE /OPRENABLE_MESSAGE/ BYTE %FILL(1:26)R ! unsupported type CHARACTER*V 0 OPC$T_OPRENABLE_OPR ! Start of oper dev name" END STRUCTURE ! OPRENABLE_MESSAGE& PARAMETER OPC$M_DISABLE = '00000001'X' PARAMETER OPC$M_PERMOPER = '00000002'X' PARAMETER OPC$M_NOREMIND = '00000004'X STRUCTURE /OPC$$FILL_3_/ UNION MAP INTEGER*4 %FILL END MAP MAP$ PARAMETER OPC$S_DISABLE = 1$ PARAMETER OPC$V_DISABLE = 0% PARAMETER OPC$S_PERMOPER = 1% PARAMETER OPC$V_PERMOPER = 1% PARAMETER OPC$S_NOREMIND = 1% W PARAMETER OPC$V_NOREMIND = 2 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! OPC$$FILL_3_O PARAMETER OPC$K_LOGFILE_MIN_SIZE = '0000001E'X ! Min message size header + 4\ PARAMETER OPC$K_INITLOG = '00000000'X ! If one is open, close logfile. Open new logfile.: PARAMETER OPC$K_CLOSELOG = '00000001'X ! Close logfile.S PARAMETER OPC$K_ENABLELOG = '00000002'X ! If no logfile is open, open a logfile.7 ! Add classes in ATTNMASK to logfile operator mask.d PARAMETER OPC X $K_DISABLELOG = '00000003'X ! Remove classes in ATTNMASK from logfile operator mask.' ! If mask goes to 0, close logfile.K PARAMETER OPC$K_MAX_LOGOPT = '00000004'X ! One more than maximum allowed STRUCTURE /LOGFILE_MESSAGE/B BYTE %FILL(1:26) ! Skip to request dependent optionsP ! unsupported type CHARACTER*0 OPC$T_LOGFILE_OPR ! Start of oper dev name END STRUCTURE ! LOGFILE_MESSAGED PARAMETER OPC$K_REQUEST_MIN_SIZE = '0000001C'X ! Min message size STRUCTURE /RE Y QUEST_MESSAGE/ BYTE %FILL(1:26)7 INTEGER*2 OPC$W_REQUEST_LENGTH ! Length of textH ! unsupported type CHARACTER*0 OPC$T_REQUEST_TEXT ! Start of text END STRUCTURE ! REQUEST_MESSAGEE PARAMETER OPC$K_SECURITY_MIN_SIZE = '0000001C'X ! Min message size STRUCTURE /SECURITY_MESSAGE/ BYTE %FILL(1:26)8 INTEGER*2 OPC$W_SECURITY_LENGTH ! Length of textI ! unsupported type CHARACTER*0 OPC$T_SECURITY_TEXT ! Start of text! END STRUCTURE ! SECURITY_MESS Z AGE- PARAMETER OPC$K_REPLY_MIN_SIZE = '00000020'X STRUCTURE /REPLY_MESSAGE/ BYTE %FILL(1:26)3 ! unsupported type CHARACTER*0 OPC$T_REPLY_OPR END STRUCTURE ! REPLY_MESSAGEN PARAMETER OPC$K_STATUS_MIN_SIZE = '0000001E'X ! Min message size header + 4 STRUCTURE /STATUS_MESSAGE/ BYTE %FILL(1:26)F ! unsupported type CHARACTER*0 OPC$T_STATUS_OPR ! Start of text END STRUCTURE ! STATUS_MESSAGEF PARAMETER OPC$K_TIMESTAMP_MIN_SIZE = '0000001A'X ! Min message [ size STRUCTURE /TIMESTAMP_MESSAGE/ BYTE %FILL(1:26)" END STRUCTURE ! TIMESTAMP_MESSAGEE PARAMETER OPC$K_SHUTDOWN_MIN_SIZE = '0000001A'X ! Min message size STRUCTURE /SHUTDOWN_MESSAGE/ BYTE %FILL(1:26)! END STRUCTURE ! SHUTDOWN_MESSAGE& PARAMETER OPC$M_CLUSTER = '00000001'X STRUCTURE /OPC$$FILL_6_/ UNION MAP INTEGER*4 %FILL END MAP MAP$ PARAMETER OPC$S_CLUSTER = 1$ PARAMETER OPC$V_CLUSTER = 0 BYTE %FILL (1) E\ ND MAP END UNION END STRUCTURE ! OPC$$FILL_6_C PARAMETER OPC$K_CANCEL_MIN_SIZE = '0000001A'X ! Min message size STRUCTURE /CANCEL_MESSAGE/ BYTE %FILL(1:26) END STRUCTURE ! CANCEL_MESSAGE' PARAMETER OPC$M_RQSTDONE = '00000001'X STRUCTURE /OPC$$FILL_9_/ UNION MAP INTEGER*4 %FILL END MAP MAP% PARAMETER OPC$S_RQSTDONE = 1% PARAMETER OPC$V_RQSTDONE = 0 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! OPC$$FILL_9_]  STRUCTURE /OPCF_ARG/ UNION MAP5 INTEGER*4 OPCF_ARG$l_arg_data ! argument data END MAP MAPM INTEGER*2 OPCF_ARG$w_arg_offset ! The offset to the argument dataQ INTEGER*2 OPCF_ARG$w_arg_cntrl ! A control code for argument handling END MAP END UNION END STRUCTURE ! OPCF_ARGV ! This structure defines a message sent to OPCOM using the MSG$_OPCFAO message type. STRUCTURE /OPCFAO/= INTEGER*2 OPCF$w_msgtype ! Dispatch message ty^ pe code: INTEGER*2 OPCF$w_spare_1 ! Unused word - alignmentE INTEGER*4 OPCF$l_opc_msg ! The message file code for msg text@ INTEGER*4 OPCF$l_opc_class_msk ! The operator class mask< INTEGER*4 OPCF$l_arg_count ! The number of arguments UNION MAPC RECORD /OPCF_ARG/ OPCF$r_item_arg(1:60) ! Argument items END MAP MAPD CHARACTER*240 OPCF$t_item_cd ! Argument data - character END MAP MAPA _ INTEGER*4 OPCF$l_item_ld(1:60) ! Argument data - long END MAP END UNION END STRUCTURE ! OPCFAOO ! OPCFAO option codes. Unless commented otherwise, these codes correspond toM ! the equivalent FAO op code (e.g. !AC --> AC, !%T --> T). These codes are= ! used as input arguments to exe_std$sndopcfao as controls." PARAMETER OPCF$K_AC = '00000001'X" PARAMETER OPCF$K_AD = '00000002'X" PARAMETER OPCF$K_AF = '00000003'X" PARAMETER OPCF$K_AS = '00000004'Xd PARAMETER OPC ` F$K_AS_DEVICE_NAME = '00000005'X ! Pass UCB for conversion to device name string witC ! Pass UCB for conversion to device name string with descript" PARAMETER OPCF$K_AZ = '00000006'X! PARAMETER OPCF$K_D = '00000007'X! PARAMETER OPCF$K_I = '00000008'X" PARAMETER OPCF$K_OA = '00000009'X" PARAMETER OPCF$K_OB = '0000000A'X" PARAMETER OPCF$K_OH = '0000000B'X" PARAMETER OPCF$K_OI = '0000000C'X" PARAMETER OPCF$K_OJ = '0000000D'X" PARAMETER OPCF$K_OL = '0000000E'X" PARAMETER OPCF$K_OQ = 'a 0000000F'X" PARAMETER OPCF$K_OW = '00000010'X" PARAMETER OPCF$K_SA = '00000011'X" PARAMETER OPCF$K_SB = '00000012'X" PARAMETER OPCF$K_SH = '00000013'X" PARAMETER OPCF$K_SI = '00000014'X" PARAMETER OPCF$K_SJ = '00000015'X" PARAMETER OPCF$K_SL = '00000016'X" PARAMETER OPCF$K_SQ = '00000017'X" PARAMETER OPCF$K_SW = '00000018'X! PARAMETER OPCF$K_T = '00000019'X! PARAMETER OPCF$K_U = '0000001A'X" PARAMETER OPCF$K_UA = '0000001B'X" PARAMETER OPCF$K_UB = '0000001C'X" PARAMETER OPCF$K_UH = '00b 00001D'X" PARAMETER OPCF$K_UI = '0000001E'X" PARAMETER OPCF$K_UJ = '0000001F'X" PARAMETER OPCF$K_UL = '00000020'X" PARAMETER OPCF$K_UQ = '00000021'X" PARAMETER OPCF$K_UW = '00000022'X" PARAMETER OPCF$K_XA = '00000023'X" PARAMETER OPCF$K_XB = '00000024'X" PARAMETER OPCF$K_XH = '00000025'X" PARAMETER OPCF$K_XI = '00000026'X" PARAMETER OPCF$K_XJ = '00000027'X" PARAMETER OPCF$K_XL = '00000028'X" PARAMETER OPCF$K_XQ = '00000029'X" PARAMETER OPCF$K_XW = '0000002A'X" PARAMETER OPCF$K_ZA = '0000 c 002B'X" PARAMETER OPCF$K_ZB = '0000002C'X" PARAMETER OPCF$K_ZH = '0000002D'X" PARAMETER OPCF$K_ZI = '0000002E'X" PARAMETER OPCF$K_ZJ = '0000002F'X" PARAMETER OPCF$K_ZL = '00000030'X" PARAMETER OPCF$K_ZQ = '00000031'X" PARAMETER OPCF$K_ZW = '00000032'X0 PARAMETER OPCF$K_MIN_OPCFAO_CNTRL = '00000001'X0 PARAMETER OPCF$K_MAX_OPCFAO_CNTRL = '00000032'XE PARAMETER OPCF$K_BY_REF = '00000001'X ! Pass argument by referenceA PARAMETER OPCF$K_BY_VAL = '00000002'X ! Pass argument by valueG PARAMd ETER OPCF$K_BY_DESC = '00000003'X ! Pass argument by descriptor!DEC$ END OPTIONSww*W(Φ!*** MODULE $OPCMSG ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:02.46 ! 1 ! OPCMSG.MSG - SYSTEM DEFINITION FILE FOR OPCOM !  ! VERSION: 'X-19' ! b ! * *b ! * COPYRIGHT 2001,2002 e COMPAQ INFORMATION TECHNOLOGIES GROUP, L.P. *b ! * *b ! * COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION TECHNOLOGIES GROUP, *b ! * L.P. IN THE U.S. AND/OR OTHER COUNTRIES. *b ! * *b ! * CONFIDENTIAL COMPUTER SOFTf WARE. VALID LICENSE FROM COMPAQ REQUIRED FOR POSSESSION, USE OR *b ! * COPYING. CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *b ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS ARE LICENSED TO *b ! * THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. *b ! * * ! ++ ! - ! FACILITY: VAX/VMS Sg YSTEM MACRO LIBRARIES ! ! ABSTRACT: ! 5 ! THIS FILE CONTAINS THE SOURCE FOR OPCOM MESSAGES. !  ! ENVIRONMENT: !  ! N/A !  ! -- !  ! 6 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! / ! X-19 RAB0152 ROBERT A. BROOKS 23-FEB-20061 ! ADD SHADISSOLVED, SHAMEMEXPEL, AND SHAMEMDMT ! 4 ! X-18 JJF0317 J. JEFFERY FRIEDRICHS 9-JUN-2005( ! ADD INSAMCVP AND HBMMRESET MESSAGES ! $ ! X-17 ABP ANU PANT 27-FEB-2003 h < ! FOR MVSUPMSG, ADD THE NAME OF THE NODE THAT IS IN MOUNT ! VERIFICATION.  ! - ! X-16 KSG0145 KEVIN GREANEY 11-FEB-2003= ! MOVE MESSAGE MVSUPMSG TO THE BOTTOM OF THE MESSAGE FILE.< ! THIS WAY, THE ASSOCIATED MESSAGES NUMBERS WILL STAY THE? ! SAME, AND ANY DEPENDENCE ON THOSE MESSAGE NUMBERS WILL NOT ! BE IMPACTED.$ ! X-15 ABP ANU PANT 22-JAN-2003C ! ADD NEW SUPPRESS MOUNT VERIFICAITON, MVSUPMSG, MESSAGE CODE.  ! - ! X-14 KSG0143 KEVIN GREANEY 19-MAR i -2002K ! FIX THE TEXT IN THE WSINCLUSTER MESSAGE. OPC$ENABLE_OPA0J ! SHOULD BE OPC$OPA0_ENABLE, AND OPC$ENABLE_LOGFILE SHOULD( ! BE OPC$LOGFILE_ENABLE. ! . ! X-13 RAB010 ROBERT A. BROOKS 31-OCT-2001? ! FOR PATHAUTSW AND PATHMANSW, ADD THE NAME OF THE NODE THAT& ! IS SERVING THE OLD AND NEW PATHS. ! D ! X-12 KSG0138 KEVIN GREANEY 04-OCT-2000> ! CHANGE THE TEXT IN WSINCLUSTER TO REMOVE THE REFERENCE TO= ! j WORKSTATION. SINCE MANY ALPHA SERVERS ARE SHIPPING WITHA ! GRAPHICS CARDS, THEY ARE SEEN AS WORKSTATIONS BY THE COMMAND> ! PROCEDURE VMS$DEVICE_STARTUP.COM. CUSTOMERS MIGHT NOT BEA ! HAPPY SEEING THEIR ALPHASERVER REFERRED TO AS A WORKSTATION. ! D ! X-11 KSG0137 KEVIN GREANEY 07-SEP-2000> ! MOVE THE MESSAGE ADDED IN X-10 TO THE BOTTOM OF THE FILE.; ! THIS WAY, MESSAGES WILL RETAIN THE SAME VALUE IN CASE 3 ! SOMEONE USES THAT INSTEAD OF THE MESS k AGE NAME. ! D ! X-10 OH OLIVER HELLWIG 30-JUN-2000+ ! PTR 75-45-848 & 75-52-354K ! ADD A NEW MESSAGE FOR THE FIBRE CHANNEL DRIVER (FGE) THATN ! IS USED TO TELL THE USER THAT A FIBRE CHANNEL STORAGE DEVICE1 ! REJECTED THE DRIVER PORT LOGIN. ! L ! X-9 KSG0132 KEVIN GREANEY 12-AUG-1999F ! ADD A TRAILING BLANK LINE TO THE WSINCLUSTER MESSAGEH ! l ADDED BELOW. IT WILL MAKE IT STAND OUT A LITTLE MORE. ! M ! X-8 KSG0132 KEVIN GREANEY 08-JUL-1999L ! ADD WSINCLUSTER MESSAGE TO LET USERS KNOW THAT THIS SYSTEMM ! IS A WORKSTATION IN A CLUSTER. AND, BY DEFAULT, OPCOM WILL= ! NOT ENABLE THE OPERATOR CONSOLE OR LOGFILE. ! M ! X-7 KSG KEVIN GREANEY 15-APR-1999H ! ADD THE CODE TO INCLUDE TH m E STANDARD HEADER IN THE TWO7 ! MESSAGES THAT WERE ADDED IN EDIT X-6. !  ! M ! X-6 KSG KEVIN GREANEY 05-APR-1999C ! ADD OPA0CLERR AND LOGFCLERR ERROR MESSAGES. THIS@ ! IS PART OF THE FIX FOR CFS.51506/PTR 70-3-112. ! 4 ! NOTE: PATHINUSE WAS NOT ADDED IN EDIT X-5. THE0 ! REASON FOR THE OMISSION IS NOT KNOWN. ! + ! X-5 JMB022 JAMES M. BLUE 14-JUL-1998A ! THE FOLLOWING MESSAGES n HAVE BEEN ADDED FOR DK DRIVER - FIBRE) ! CHANNEL AND MULTIPATH REQUIREMENTS - ! < ! PATHINUSE - ANOTHER WORLD WIDE ID DEVICE IS CURRENTLY6 ! AT THE SAME PORT, TARGET, LUN COMBINATION.; ! PATHNOTAVL - THE SPECIFIED PATH NO LONGER HAS DEVICES) ! EITHER ENABLED OR ACCESSIBLE.; ! PATHUSERD - THE PATH WAS DISABLED FOR USE BY POLLER.= ! PATHAVL - THE SPECIFIED PATH HAS AT LEAST ONE DEVICE# ! ENABLED AND ACCESSIBLE.< ! PATHAUTSW - THE PATH o TO THIS DEVICE HAS BEEN SWITCHED( ! AUTOMATICALLY TO A NEW PATH.< ! PATHMANSW - THE PATH TO THIS DEVICE HAS BEEN SWITCHED# ! MANUALLY TO A NEW PATH. ! / ! X-4 KDM0235 KATHLEEN D. MORSE 29-JUL-1993? ! ADD NEW SHADOW MESSAGES: SHANODMP AND SHADMPOK FOR ALPHA. ! . ! X-3 DBM0001 DAVID B. MILLER 13-APR-1993+ ! BLADE PARITY; MERGE OF LATEST CHANGES: ! 7 ! X-5 JJA92B05_1 JOHN J. ANDRUSZKIEWICZ 21-DEC-1992- ! ALIGN TO EXPECTED VSC GENERATION NUMBERp .3 ! MOVE THOSE VOLUME SHADOWING PHASE II MESSAGES. ! 6 ! X-10 JJA92B05 JOHN J. ANDRUSZKIEWICZ 14-DEC-1992, ! ADD VOLUME SHADOWING PHASE II MESSAGES. ! 2 ! X-2 WES WILLIAM E. SNAMAN 12-JUN-1992 14:32 > ! CHANGE VAXCLUSTER TO VMSCLUSTER. FIX IDENT TO MATCH CMS. ! & ! X-9 CWH5209 CW HOBBS 8-APR-1989- ! ADD REQUEST NUMBER TO NOPERATOR MESSAGE. ! ' ! X-8 CWH5208 CW HOBBS 12-MAR-1989; ! ADD A MORE MEANINGFUL MESSAGE FOR "OPCOM not running". ! / ! X-7 q WES0235 WILLIAM E. SNAMAN 08-JAN-1988" ! FIX SPACING ERROR IN MESSAGE. ! / ! X-6 WES0185 WILLIAM E. SNAMAN 02-SEP-1987; ! ADD SOME NEW CLUSTER MESSAGES FOR SERVED QUORUM DISKS. ! / ! X-5 WES0171 WILLIAM E. SNAMAN 29-JUL-19878 ! ADD SOME NEW CLUSTER MESSAGES AND FIX MODULE IDENT. ! / ! X-2 NCD0001 NANCY C. DENARDO 29-DEC-1986 ! ADD LICENSE OPERATOR CLASS ! * ! V04-001 DBM0400 DB MILLS 9-SEP-1985# ! ADD VOLUME SHADOWING MESSAGES. ! * ! V03-013 r CWH3013 CW HOBBS 2-SEP-1984; ! RESTORE THE EMBEDDED IN RQST_PROMPT WHICH WAS ! REMOVED IN ACG0449. ! < ! V03-012 ACG0449 ANDREW C. GOLDSTEIN, 31-AUG-1984 13:415 ! FIX TEXT OF "counterfeit security alarm" MESSAGE ! + ! V03-011 CWH3011 CW HOBBS 18-MAY-19842 ! CHANGE THE IN OPREPLY TO A !/ DIRECTIVE. ! 0 ! V03-010 MHB0158 MARK BRAMHALL 7-MAY-1984' ! FIX UP THE SECURITY ALARM MESSAGE. ! * ! V03-009 CWH3169 CW HOBBS 5-MAY-1984( ! SECON s D PASS FOR CLUSTER-WIDE OPCOM:@ ! - CHANGE SEVERAL MESSAGES TO USE THE STANDARD HEADER, ONLY) ! A FEW STILL USE THE SHORT HEADER.> ! - CHANGE THE FORMAT OF THE HEADER SLIGHTLY, MAKE IT MORE2 ! CLEAR WHEN MESSAGES COME FROM OTHER NODES.> ! - REMOVE THE UDA50MVER AND TM78MVER MESSAGES AND REPLACE8 ! THEM WITH THE SINGLE, GENERIC CTLRUCODE MESSAGE.< ! - ADD THE CLU_NOQUORUM CONNECTION MANAGER MESSAGE - IT$ ! WAS APPARENTLY NEVER PUT IN. ! + ! V03-008 CWH3008 t CW HOBBS 12-APR-19843 ! CHANGE SOME OF THE CONNECTION MANAGER MESSAGES ! 1 ! V03-007 RSH0114 R. SCOTT HANNA 12_MAR-1984) ! CHANGE THE OPC$_COUNTERFEIT MESSAGE. ! 1 ! V03-006 RSH0110 R. SCOTT HANNA 28-FEB-1984> ! CHANGE THE FAO ARGUMENTS IN THE OPC$_SECUR_ALARM MESSAGE. ! + ! V03-005 CWH3005 CW HOBBS 27-SEP-1983) ! IMPROVE CONNECTION MANAGER MESSAGES. ! + ! V03-004 CWH3004 CW HOBBS 16-SEP-1983 ! SHORTEN HEADER ! + ! V03-003 CWH3003 CW HOu BBS 16-SEP-1983% ! ADD CONNECTION MANAGER MESSAGES. ! + ! V03-002 CWH3001 CW HOBBS 30-JUL-19838 ! VARIOUS AND SUNDRY THINGS TO MAKE OPCOM DISTRIBUTED ! ACROSS THE CLUSTER. ! 3 ! V03-001 RLRV3A1 ROBERT L. RAPPAPORT 5-APR-1982- ! ADDED MSG$_UDA50MVER AND MSG$_DUPUNITNO. ! 4 ! V02-006 STJ0180 STEVEN T. JEFFREYS, 07-JAN-1981: ! ADDED MVCOMPLETE AND MVABORTED MESSAGES, AND SLIGHTLYA ! CHANGE THE TEST OF THE EXISTING MOUNT VERIFICATION MESSAGES. ! 4 ! V02- v 005 STJ0079 STEVEN T. JEFFREYS, 31-JUL-1981/ ! ADDED BLANK MESSAGE FOR THE MAG. TAPE ACP. ! 4 ! V02-004 STJ0063 STEVEN T. JEFFREYS, 14-JUL-1981' ! ADDED AN ALTERNATE CANCEL MESSAGE.7 ! ADDED AN INITIALIZE MESSAGE FOR THE MAG. TAPE ACP.3 ! ADDED MESSAGES FOR MOUNT VERIFICATION SUPPORT. ! 4 ! V02-003 STJ0042 STEVEN T. JEFFREYS, 22-MAY-19819 ! CHANGE FORMAT OF RQSTCMPLTE, RQSTABORT, AND RQSTPEND6 ! TO BE ENABLE EXISTING CODE TO PARSE THE MESSAGES. ! 4 ! V02-002 STw J0028 STEVEN T. JEFFREYS, 29-MAR-19819 ! MODIFY EXISTING MESSAGES AND ADD NEW ONES AS PART OF# ! THE SUPPORT FOR THE NEW OPCOM. ! +% ! OPERATOR COMMUNICATIONS MESSAGES  ! -( PARAMETER OPCOM$_FACILITY = '00000005'X& PARAMETER OPC$_TERMENAB = '00058001'X% PARAMETER OPC$_LOGINIT = '00058009'X& PARAMETER OPC$_TERMDSBL = '00058011'X' PARAMETER OPC$_RQSTABORT = '0005801C'X& PARAMETER OPC$_RQSTPEND = '00058021'X( PARAMETER OPC$_RQSTCMPLTE = '00058029'X% PARAMETER OPC$_LOGFAIL = '000x 58034'X& PARAMETER OPC$_TERMFAIL = '0005803C'X( PARAMETER OPC$_NOSUCHRQST = '00058044'X( PARAMETER OPC$_DEVOFFLINE = '0005804C'X' PARAMETER OPC$_DEVONLINE = '00058054'X# PARAMETER OPC$_NOCLI = '0005805C'X' PARAMETER OPC$_NOPERATOR = '00058061'X% PARAMETER OPC$_UNKNOPR = '0005806C'X' PARAMETER OPC$_DEVNOTERM = '00058074'X% PARAMETER OPC$_ILLRQST = '0005807C'X% PARAMETER OPC$_RQSTCAN = '00058084'X& PARAMETER OPC$_OPRNOTIF = '00058089'X% PARAMETER OPC$_OPREPLY = '00058091'X% PARAMETy ER OPC$_LOGTIME = '00058099'X% PARAMETER OPC$_LOGCLOS = '000580A4'X% PARAMETER OPC$_USERQST = '000580AB'X% PARAMETER OPC$_USERMSG = '000580B3'X$ PARAMETER OPC$_LOGSTS = '000580BB'X% PARAMETER OPC$_OPERSTS = '000580C3'X& PARAMETER OPC$_RQSTSTST = '000580CB'X& PARAMETER OPC$_SHUTDOWN = '000580D3'X( PARAMETER OPC$_SYSTEMOPER = '000580DB'X' PARAMETER OPC$_GROUPOPER = '000580E3'X& PARAMETER OPC$_USEROPER = '000580EB'X( PARAMETER OPC$_NOTENABLED = '000580F3'X ! M ! THE FOLLOWING MESSAG z ES GIVE THE ASCII TEXT FOR THE OPERATOR TYPES. IT ISM ! POSSIBLE TO CHANGE THE MESSAGE TEXT TO ANYTHING DESIRED. FOR EXAMPLE, ANK ! INSTALLATION MIGHT WANT TO CALL OPER12 BY ANOTHER NAME, SAY FRONT_DESK.@ ! THAT INSTALLATION WOULD CHANGE THE LINE WITH OPER12 TO READ: !  ! OPER12  ! W ! AFTERWARDS, USERS ON THAT SYSTEM COULD REPLY /ENABLE=FRONT_DESK, REQUEST /TO=FRONT,U ! A FRONT_DESK OPERATOR COULD DO A REPLY /STAT AND SEE THAT FRONT_DESK WAS ENABLED.S ! OF C { OURSE, A PROGRAMMER ON THAT SYSTEM WOULD USE THE SYMBOL OPC$_OPER12 TO SENDK ! A MESSAGE TO THE FRONT_DESK, SINCE THE MESSAGE NAME CAN NOT BE CHANGED. ! $ PARAMETER OPC$_CENTRL = '000580FB'X# PARAMETER OPC$_PRINT = '00058103'X# PARAMETER OPC$_TAPES = '0005810B'X# PARAMETER OPC$_DISKS = '00058113'X$ PARAMETER OPC$_DEVICE = '0005811B'X# PARAMETER OPC$_CARDS = '00058123'X$ PARAMETER OPC$_NTWORK = '0005812B'X% PARAMETER OPC$_CLUSTER = '00058133'X& PARAMETER OPC$_SECURITY = '0005813B'X| # PARAMETER OPC$_REPLY = '00058143'X& PARAMETER OPC$_SOFTWARE = '0005814B'X% PARAMETER OPC$_LICENSE = '00058153'X# PARAMETER OPC$_OPER1 = '0005815B'X# PARAMETER OPC$_OPER2 = '00058163'X# PARAMETER OPC$_OPER3 = '0005816B'X# PARAMETER OPC$_OPER4 = '00058173'X# PARAMETER OPC$_OPER5 = '0005817B'X# PARAMETER OPC$_OPER6 = '00058183'X# PARAMETER OPC$_OPER7 = '0005818B'X# PARAMETER OPC$_OPER8 = '00058193'X# PARAMETER OPC$_OPER9 = '0005819B'X$ PARAMETER OPC$_OPER10 = '000581A3'X$ PARAM} ETER OPC$_OPER11 = '000581AB'X$ PARAMETER OPC$_OPER12 = '000581B3'X ! ( PARAMETER OPC$_DEVOFFLINX = '000581BB'X& PARAMETER OPC$_WRONGVOL = '000581C3'X' PARAMETER OPC$_DEVWRTLCK = '000581CB'X ! % PARAMETER OPC$_INITAPE = '000581D3'X& PARAMETER OPC$_RQSTDONE = '000581DB'X' PARAMETER OPC$_BLANKTAPE = '000581E3'X ! ( PARAMETER OPC$_MVCOMPLETE = '000581EB'X' PARAMETER OPC$_MVABORTED = '000581F3'X' PARAMETER OPC$_CTLRUCODE = '000581FB'X' PARAMETER OPC$_DUPUNITNO = '00058203'X) PAR ~ AMETER OPC$_SECUR_ALARM = '0005820B'X) PARAMETER OPC$_COUNTERFEIT = '00058213'X) PARAMETER OPC$_NODE_ACTIVE = '0005821B'X) PARAMETER OPC$_NODE_DELETE = '00058223'X+ PARAMETER OPC$_NODE_DEPARTED = '0005822B'X' PARAMETER OPC$_NODE_INIT = '00058233'X( PARAMETER OPC$_NODE_RETRY = '0005823B'X( PARAMETER OPC$_NODE_START = '00058243'X% PARAMETER OPC$_UNKNOWN = '0005824B'X& PARAMETER OPC$_CLUSCOMM = '00058253'X% PARAMETER OPC$_VALUERR = '0005825C'X% PARAMETER OPC$_NOTRQCB = '00058264'X+ P  ARAMETER OPC$_REPLY_GENERAL = '0005826B'X, PARAMETER OPC$_REPLY_SHUTDOWN = '00058273'X* PARAMETER OPC$_REPLY_URGENT = '0005827B'X* PARAMETER OPC$_REPLY_NOTALL = '00058283'X+ PARAMETER OPC$_REPLY_NOTALLN = '0005828B'X* PARAMETER OPC$_REPLY_NOTDEV = '00058293'X* PARAMETER OPC$_REPLY_NOTUSE = '0005829B'X+ PARAMETER OPC$_REPLY_NOTUSEN = '000582A3'X_ PARAMETER OPC$_ON_NODE = '000582AB'X ! PREPOSITION FOR "on nodename" ("on ATHENS") MESSAGES$ PARAMETER OPC$_HEADER = '000582B3'X) PARAMETER O PC$_RQST_PROMPT = '000582BB'X( PARAMETER OPC$_NOLCLBROAD = '000582C0'X( PARAMETER OPC$_NOREMBROAD = '000582C8'X' PARAMETER OPC$_NOREMWAIT = '000582D0'X !  ! CLUSTER MAILBOX MESSAGES ! FAO PARAMETER LIST IS: ! ( ! TIMESTAMP - POINTER TO QUADWORD TIME. ! LSYSNAML - LENGTH OF NAME OF LOCAL SYSTEM/ ! LSYSNAMA - ADDRESS OF NAME OF LOCAL SYSTEM2 ! LSYSIDW - HIGH ORDER WORD OF LOCAL SYSTEM ID5 ! LSYSIDL - LOW ORDER LONGWORD OF LOCAL SYSTEM ID! ! LCSID - LOCAL SYSTEM CSID/ ! RSYSNAML - LENGTH OF NAME OF REMOTE SYSTEM0 ! RSYSNAMA - ADDRESS OF NAME OF REMOTE SYSTEM3 ! RSYSIDW - HIGH ORDER WORD OF REMOTE SYSTEM ID6 ! RSYSIDL - LOW ORDER LONGWORD OF REMOTE SYSTEM ID" ! RCSID - REMOTE SYSTEM CSID ! < ! MESSAGES USE THE "!+" DIRECTIVE TO SKIP OVER ITEMS WHICH: ! ARE NOT MEANINGFUL OR USEFUL FOR A PARTICULAR MESSAGE. ! ( PARAMETER OPC$_CLU_NEWSYS = '000582DB'X% PARAMETER OPC$_CLU_CNX = '000582E3'X' PARAMETER OPC$_CLU_RECNX = '000582E B'X) PARAMETER OPC$_CLU_LOSTCNX = '000582F3'X( PARAMETER OPC$_CLU_TIMCNX = '000582FB'X) PARAMETER OPC$_CLU_INIFORM = '00058303'X( PARAMETER OPC$_CLU_INIADD = '0005830B'X, PARAMETER OPC$_CLU_INIRECNFIG = '00058313'X( PARAMETER OPC$_CLU_MEMREQ = '0005831B'X' PARAMETER OPC$_CLU_ABORT = '00058323'X% PARAMETER OPC$_CLU_ADD = '0005832B'X* PARAMETER OPC$_CLU_DROPNODE = '00058333'X* PARAMETER OPC$_CLU_FORNCLUS = '0005833B'X* PARAMETER OPC$_CLU_INQUORUM = '00058343'X* PARAMETER OPC$_CLU_LOSTDI SK = '0005834B'X* PARAMETER OPC$_CLU_GAINDISK = '00058353'X+ PARAMETER OPC$_CLU_DISKRDERR = '0005835B'X+ PARAMETER OPC$_CLU_DISKWRERR = '00058363'X, PARAMETER OPC$_CLU_DISKINVDAT = '0005836B'X- PARAMETER OPC$_CLU_DISKTIMEOUT = '00058373'X) PARAMETER OPC$_CLU_LOSTMSG = '0005837B'X* PARAMETER OPC$_CLU_NOQUORUM = '00058383'X* PARAMETER OPC$_CLU_FORNDISK = '0005838B'X* PARAMETER OPC$_CLU_COMPLETE = '00058393'X( PARAMETER OPC$_CLU_QUORUM = '0005839B'X& PARAMETER OPC$_CLU_ECNX = '000583A3'X* PARAMETER OPC$_CLU_HAVEDISK = '000583AB'X( PARAMETER OPC$_CLU_REMOTE = '000583B3'X' PARAMETER OPC$_CLU_LOCAL = '000583BB'X- PARAMETER OPC$_CLU_WTCHTIMEOUT = '000583C3'X- PARAMETER OPC$_CLU_NOTRUST = '000583CB'X ! / ! FOLLOWING ARE DEVICE MESSAGE FOR SHADOWING. ! ' PARAMETER OPC$_SHACHASTA = '000583D3'X' PARAMETER OPC$_SHAMEMFAL = '000583DB'X' PARAMETER OPC$_SHARDUCED = '000583E3'X' PARAMETER OPC$_SHACOPCOM = '000583EB'X' PARAMETER OPC$_SHACOPBEG = '000583F3'X' PARAMETER OPC$_ SHAALLCOM = '000583FB'X' PARAMETER OPC$_SHAWROMEM = '00058403'X' PARAMETER OPC$_SHAREDZER = '0005840B'X' PARAMETER OPC$_SHAPOSMEM = '00058413'X' PARAMETER OPC$_SHAORGMEM = '0005841B'X% PARAMETER OPC$_NOOPCOM = '00058420'X4 ! FOLLOWING ARE MORE DEVICE MESSAGE FOR SHADOWING. ! ' PARAMETER OPC$_SHAADPBAD = '0005842B'X' PARAMETER OPC$_SHAEMUPTH = '00058433'X( PARAMETER OPC$_SHABENODMP = '0005843B'X' PARAMETER OPC$_SHABNODMP = '00058443'X' PARAMETER OPC$_SHALOCDEV = '0005844B'X' P ARAMETER OPC$_SHANOBPOK = '00058453'X' PARAMETER OPC$_SHABDMPOK = '0005845B'X' PARAMETER OPC$_BOOTDMPOK = '00058463'X& PARAMETER OPC$_SHABDBCK = '0005846B'X& PARAMETER OPC$_SHANODMP = '00058473'Xc PARAMETER OPC$_SHADMPOK = '0005847B'X ! THE FOLLOWING MESSAGES ARE FOR FIBRE CHANNEL - MULTIPATH ! ( PARAMETER OPC$_PATHNOTAVL = '00058483'X% PARAMETER OPC$_PATHAVL = '0005848B'X' PARAMETER OPC$_PATHUSERD = '00058493'X' PARAMETER OPC$_PATHAUTSW = '0005849B'X' PARAMETER OPC$_PATHMANSW =  '000584A3'X' PARAMETER OPC$_OPA0CLERR = '000584A8'X' PARAMETER OPC$_LOGFCLERR = '000584B0'X) PARAMETER OPC$_WSINCLUSTER = '000584BB'X, PARAMETER OPC$_LOGIN_REJECTED = '000584C0'X& PARAMETER OPC$_MVSUPMSG = '000584CB'X& PARAMETER OPC$_INSAMCVP = '000584D3'X' PARAMETER OPC$_HBMMRESET = '000584DB'X* PARAMETER OPC$_SHADISSOLVED = '000584E3'X) PARAMETER OPC$_SHAMEMEXPEL = '000584EB'X' PARAMETER OPC$_SHAMEMDMT = '000584F3'X!DEC$ END OPTIONSww*ٜΦ!*** MODULE $OPRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +L ! OPERATOR COMMUNICATIONS MESSAGE TYPES AND VALUES These are now obsolete. ! - ! OPERATOR MESSAGE TYPES < PARAMETER OPR$_TERMENABL = '00000001'X ! ENABLE TERMINAL = PARAMETER OPR$_LOGINIT = '00000002'X ! INITIALIZE THE LOG : PARAMETER OPR$_OPRQST = '00000003'X ! OPERATOR REQUEST 9 PARAMETER OPR$_OPREPLY = '00000004'X ! OPERATOR REPLY & PARAMETER OPR$M_CENTRAL = '00000001'X& PARAMETER OPR$M_PRINTER = '000000 02'X$ PARAMETER OPR$M_TAPES = '00000004'X$ PARAMETER OPR$M_DISKS = '00000008'X& PARAMETER OPR$M_DEVICES = '00000010'X$ PARAMETER OPR$M_USER1 = '0001FFE0'X$ PARAMETER OPR$M_USER2 = '00020000'X$ PARAMETER OPR$M_USER3 = '00040000'X$ PARAMETER OPR$M_USER4 = '00080000'X$ PARAMETER OPR$M_USER5 = '00100000'X$ PARAMETER OPR$M_USER6 = '00200000'X$ PARAMETER OPR$M_USER7 = '00400000'X$ PARAMETER OPR$M_USER8 = '00800000'X$ PARAMETER OPR$M_USER9 = '01000000'X% PARAMETER OPR$M_USER10 = '02000000'X% P ARAMETER OPR$M_USER11 = '04000000'X% PARAMETER OPR$M_USER12 = '08000000'X# STRUCTURE /OPRDEF/ ! Obsolete. UNION MAP$ PARAMETER OPR$S_CENTRAL = 13 PARAMETER OPR$V_CENTRAL = 0 ! Obsolete.$ PARAMETER OPR$S_PRINTER = 13 PARAMETER OPR$V_PRINTER = 1 ! Obsolete." PARAMETER OPR$S_TAPES = 11 PARAMETER OPR$V_TAPES = 2 ! Obsolete." PARAMETER OPR$S_DISKS = 11 PARAMETER OPR$V_DISKS = 3 ! Obsolete.$ PAR AMETER OPR$S_DEVICES = 13 PARAMETER OPR$V_DEVICES = 4 ! Obsolete.# PARAMETER OPR$S_USER1 = 121 PARAMETER OPR$V_USER1 = 5 ! Obsolete." PARAMETER OPR$S_USER2 = 12 PARAMETER OPR$V_USER2 = 17 ! Obsolete." PARAMETER OPR$S_USER3 = 12 PARAMETER OPR$V_USER3 = 18 ! Obsolete." PARAMETER OPR$S_USER4 = 12 PARAMETER OPR$V_USER4 = 19 ! Obsolete." PARAMETER OPR$S_USER5 = 12 PARAMETER OPR$V_USER5 = 20 ! Obsolete." PARAMETER OPR$S_USER6 = 12 PARAMETER OPR$V_USER6 = 21 ! Obsolete." PARAMETER OPR$S_USER7 = 12 PARAMETER OPR$V_USER7 = 22 ! Obsolete." PARAMETER OPR$S_USER8 = 12 PARAMETER OPR$V_USER8 = 23 ! Obsolete." PARAMETER OPR$S_USER9 = 12 PARAMETER OPR$V_USER9 = 24 ! Obsolete.# PARAMETER OPR$S_USER10 = 13 PARAMETER OPR$V_USER10 = 25 ! Obsolete.# PARAMETER OPR$S_USER11 = 13  PARAMETER OPR$V_USER11 = 26 ! Obsolete.# PARAMETER OPR$S_USER12 = 13 PARAMETER OPR$V_USER12 = 27 ! Obsolete. BYTE %FILL (4) END MAP END UNION END STRUCTURE ! OPRDEF!DEC$ END OPTIONS wwt`ٜΦ!*** MODULE $OSSDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! G ! Operating System Specific Data area offset definitions for the IA64 ! VMS calling standard. !  !  ! Spill Data triple ! # PARAMETER OSSD$M_REG = '0000001F'X' PARAMETER OSSD$M_MBZ_5_7 = '000000E0'X$ PARAMETER OSSD$M_TREG = '00007F00'X& PARAMETER OSSD$M_MBZ_15 = '00008000'X STRUCTURE /OSSD_SPILL_DATA/ UNION MAP% PARAMETER OSSD$S_REG = 5N PARAMETER OSSD$V_REG = 0 ! Static general register being saved) PARAMETER OSSD$S_MBZ_5_7 = 32 PARAMETER OSSD$V_MBZ_5_7 = 5 ! MBZ& PARAMETER OSSD$S_TREG = 7X PARAMETER OSSD$V_TREG = 8 ! Ta rget register for save or zero for restore( PARAMETER OSSD$S_MBZ_15 = 1) PARAMETER OSSD$V_MBZ_15 = 15& BYTE %FILL (2) ! MBZ END MAP MAPK BYTE OSSD$B_REG_BYTE ! Byte containing 5-bit REG fieldM BYTE OSSD$B_TREG_BYTE ! Byte containing 7-bit TREG field END MAP END UNIONR BYTE OSSD$T_T(1:1) ! ULEB128 slot offset to save/restore instruction END STRUCTURE ! OSSD_SPILL_ DATA ! J ! OSSD layout for general and caller spill register information segments ! $ PARAMETER OSSD$M_TYPE = '00007FFF'XS PARAMETER OSSD$K_GENERAL_INFO = '00000001'X ! General info (always one quadword)W PARAMETER OSSD$K_CALL_SPILL_INFO = '00000002'X ! Caller spill info (variable length)S PARAMETER OSSD$K_CONTEXT_INFO = '00000003'X ! Context info (always one quadword)! PARAMETER OSSD$M_S = '00008000'X. PARAMETER OSSD$M_EXCEPTION_MODE = '00070000'X: PARAMETER OSSD$K_EXC_MODE_S IGNAL = '00000000'X ! SignalB PARAMETER OSSD$K_EXC_MODE_SIGNAL_ALL = '00000001'X ! Signal allH PARAMETER OSSD$K_EXC_MODE_SIGNAL_SILENT = '00000002'X ! Signal silentG PARAMETER OSSD$K_EXC_MODE_FULL_IEEE = '00000003'X ! Signal full IEEEE PARAMETER OSSD$K_EXC_MODE_CALLER = '00000004'X ! Use caller's mode+ PARAMETER OSSD$M_TARGET_INVO = '00080000'X* PARAMETER OSSD$M_BASE_FRAME = '00100000'X3 PARAMETER OSSD$M_HANDLER_REINVOKABLE = '00200000'X) PARAMETER OSSD$M_AST_FRAME = '00400000'X / PARAMETER OSSD$M_EXCEPTION_FRAME = '00800000'X) PARAMETER OSSD$M_TIE_FRAME = '01000000'X/ PARAMETER OSSD$M_BOTTOM_OF_STACK = '02000000'X2 PARAMETER OSSD$M_HANDLER_DATA_VALID = '04000000'X1 PARAMETER OSSD$M_SS_DISPATCH_FRAME = '08000000'X. PARAMETER OSSD$M_KP_START_FRAME = '10000000'X0 PARAMETER OSSD$M_FRAMELESS_HELPER = '20000000'X) PARAMETER OSSD$M_MBZ_30_63 = '00000000'XT PARAMETER OSSD$K_GENERAL_INFO_LENGTH = '00000008'X ! Size of general data segment, PARAMETER OSSD$M_CONTEXT_TY PE = '00FF0000'XH PARAMETER OSSD$K_CTX_TYPED = '00000000'X ! A VMS typed data structure= PARAMETER OSSD$K_CTX_CHFCTX = '00000001'X ! A CHFCTX block* PARAMETER OSSD$M_CONTEXT_GR = 'FF000000'X. PARAMETER OSSD$M_CONTEXT_OFFSET = '00000000'X, PARAMETER OSSD$M_CONTEXT_HINT = '00000000'XI PARAMETER OSSD$K_HINT_EXCEPTION = '00000001'X ! Exception dispatcherG PARAMETER OSSD$K_HINT_SS = '00000002'X ! System Service dispatcher= PARAMETER OSSD$K_HINT_AST = '00000003'X ! AST dispatcher B PARAMETER OSSD$K_HINT_KP_START = '00000004'X ! KP_START frameT PARAMETER OSSD$K_CONTEXT_INFO_LENGTH = '00000008'X ! Size of context info segment STRUCTURE /OSSDDEF/ UNION MAPQ INTEGER*4 OSSD$Q_GENERAL_INFO_SEGMENT(2) ! Entire general info segment END MAP MAP' PARAMETER OSSD$S_TYPE = 15= PARAMETER OSSD$V_TYPE = 0 ! OSSD segment type# PARAMETER OSSD$S_S = 1> PARAMETER OSSD$V_S = 15 ! Continuation marker0 PARAMETER OSSD$S_EXCEPTION_MODE = 3Z PARAMETER OSSD$V_EXCEPTION_MODE = 16 ! Desired exception-reporting behavior- PARAMETER OSSD$S_TARGET_INVO = 1T PARAMETER OSSD$V_TARGET_INVO = 19 ! Invoke handler when unwind target, PARAMETER OSSD$S_BASE_FRAME = 1M PARAMETER OSSD$V_BASE_FRAME = 20 ! Logical base frame of stack5 PARAMETER OSSD$S_HANDLER_REINVOKABLE = 1e PARAMETER OSS D$V_HANDLER_REINVOKABLE = 21 ! Handler may be invoked when already active+ PARAMETER OSSD$S_AST_FRAME = 1D PARAMETER OSSD$V_AST_FRAME = 22 ! AST dispatch frame1 PARAMETER OSSD$S_EXCEPTION_FRAME = 1O PARAMETER OSSD$V_EXCEPTION_FRAME = 23 ! Exception dispatch frame+ PARAMETER OSSD$S_TIE_FRAME = 1] PARAMETER OSSD$V_TIE_FRAME = 24 ! Frame created by Translated Image Executive1 PARAMETER OSSD$S_BOTTOM _OF_STACK = 1Z PARAMETER OSSD$V_BOTTOM_OF_STACK = 25 ! End of call stack (no predecessors)4 PARAMETER OSSD$S_HANDLER_DATA_VALID = 1d PARAMETER OSSD$V_HANDLER_DATA_VALID = 26 ! Exception handler data field exists in unw3 PARAMETER OSSD$S_SS_DISPATCH_FRAME = 1V PARAMETER OSSD$V_SS_DISPATCH_FRAME = 27 ! System Service dispatch frame0 PARAMETER OSSD$S_KP_START_FRAME = 1N PARAMETER OSSD$V_KP_START_FRAME = 28 ! Used to tag EXE$KP_START2 PARAMETER OSSD$S_FRAMELESS_HELPER = 1d PARAMETER OSSD$V_FRAMELESS_HELPER = 29 ! Tags code executing in context of another roC ! Tags code executing in context of another routine whose IP , PARAMETER OSSD$S_MBZ_30_63 = 34, PARAMETER OSSD$V_MBZ_30_63 = 30& BYTE %FILL (8) ! MBZ END MAP MAPQ INTEGER*2 %FILL ! Overlays segment type and continuation markerF INTEGER*2 OSSD$W_LENGTH ! # quadwords in this segment\ RECORD /OSSD_SPILL_DATA/ OSSD$T_SPILL_DATA ! Start of first spill data triple END MAP MAPQ INTEGER*4 OSSD$Q_CONTEXT_INFO_SEGMENT(2) ! Entire context info segment END MAP MAPQ INTEGER*2 %FILL ! Overlays segment type and continuation marker. PARAMETER OSSD$S_CONTEXT_TYPE = 8S PARAMETER OSSD$V_CONTEXT_TYPE = 16 ! Type of cont ext block described, PARAMETER OSSD$S_CONTEXT_GR = 8X PARAMETER OSSD$V_CONTEXT_GR = 24 ! GR containing pointer to context block1 PARAMETER OSSD$S_CONTEXT_OFFSET = 24Z PARAMETER OSSD$V_CONTEXT_OFFSET = 32 ! Offset (in octawords) from SP, or GR. PARAMETER OSSD$S_CONTEXT_HINT = 8W PARAMETER OSSD$V_CONTEXT_HINT = 56 ! Hint as to purpose of context block ! Hints: (0 = no hint) BYTE %FILL (6) END MAP END UNION END STRUCTURE ! OSSDDEFN ! The following macro can be used in IAS code to create a context info OSSD/ ! segment. Cut and paste to your IAS module ! 0 ! #define __CONTEXT_OSSD(type,gr,offset,hint) \1 ! .vms_ossd ((hint) << OSSD$V_CONTEXT_HINT) | \; ! (((offset) & 0xFFFFFF) << OSSD$V_CONTEXT_OFFSET) | \& ! ((gr) << OSSD$V_CONTEXT_GR) | \< ! ((type) << OSSD$V_CONTEXT_TYPE) | OSSD$K_CONTEXT_INFO ! !DEC$ END OPTIONS wwٜΦ!* ** MODULE $OSSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +, ! Object Security Service processing flag  ! and itemcode definitions. ! -$ PARAMETER OSS$M_WLOCK = '00000001'X% PARAMETER OSS$M_RELCTX = '00000002'X$ PARAMETER OSS$M_LOCAL = '00000004'X STRUCTURE /OSSDEF/" PARAMETER OSS$S_WLOCK = 1; PARAMETER OSS$V_WLOCK = 0 ! Maintain Write lock# PARAMETER OSS$S_RELCTX = 18 PARAMETER OSS$V_RELCTX = 1 ! Release context" PARAMETER OSS$S_LOCAL = 1B PARAMETER OSS$V_LOCAL = 2 ! update local profile only  BYTE %FILL (1) END STRUCTURE ! OSSDEF. PARAMETER OSS$_ACCESS_NAMES = '00000001'X ! 5 PARAMETER OSS$_ACCESS_NAMES_LENGTH = '00000002'X ! / PARAMETER OSS$_ACL_ADD_ENTRY = '00000003'X ! 2 PARAMETER OSS$_ACL_DELETE_ENTRY = '00000004'X ! , PARAMETER OSS$_ACL_DELETE = '00000005'X ! 0 PARAMETER OSS$_ACL_DELETE_ALL = '00000006'X ! 0 PARAMETER OSS$_ACL_FIND_ENTRY = '00000007'X ! / PARAM ETER OSS$_ACL_FIND_NEXT = '00000008'X ! / PARAMETER OSS$_ACL_FIND_TYPE = '00000009'X ! / PARAMETER OSS$_ACL_GRANT_ACE = '0000000A'X ! , PARAMETER OSS$_ACL_LENGTH = '0000000B'X ! 2 PARAMETER OSS$_ACL_MODIFY_ENTRY = '0000000C'X ! . PARAMETER OSS$_ACL_POSITION = '0000000D'X ! 2 PARAMETER OSS$_ACL_POSITION_TOP = '0000000E'X ! 5 PARAMETER OSS$_ACL_POSITION_BOTTOM = '0000000F'X ! 0 PARAMETER OSS$_ACL_READ_ENTRY = '00000010'X ! * PARAMETER OSS$_ACL_READ = '00000011'X ! + PARAMETER OSS $_MAX_CLASS = '00000012'X ! + PARAMETER OSS$_MIN_CLASS = '00000013'X ! - PARAMETER OSS$_NEXT_OBJECT = '00000014'X ! ' PARAMETER OSS$_OWNER = '00000015'X ! , PARAMETER OSS$_PROTECTION = '00000016'X ! * PARAMETER OSS$_SYS_PROT = '00000017'X ! * PARAMETER OSS$_OWN_PROT = '00000018'X ! * PARAMETER OSS$_GRP_PROT = '00000019'X ! * PARAMETER OSS$_WOR_PROT = '0000001A'X ! , PARAMETER OSS$_CLASS_NAME = '0000001B'X ! 0 PARAMETER OSS$_FIRST_TEMPLATE = '0000001C'X ! / PARAMETER OSS$_NEXT _TEMPLATE = '0000001D'X ! - PARAMETER OSS$_OBJECT_NAME = '0000001E'X ! 3 PARAMETER OSS$_ACCESS_CLASS_NAME = '0000001F'X ! - PARAMETER OSS$_DAMAGED_ACL = '00000020'X ! / PARAMETER OSS$_IN_TRANSITION = '00000021'X ! / PARAMETER OSS$_TRANQUILITY_COUNT = '00000022'X: PARAMETER OSS$_POSIX_GID = '00000023'X ! Posix Group IDL PARAMETER OSS$_POSIX_GRP_MODE = '00000024'X ! Posix Group Mode PermissionI PARAMETER OSS$_POSIX_MODE = '00000025'X ! Posix Mode Permissions (all)L PARAMETER O SS$_POSIX_SGID = '00000026'X ! Posix SETGID Effective Group IDK PARAMETER OSS$_POSIX_SUID = '00000027'X ! Posix SETUID Effective User ID- PARAMETER OSS$_ACCESS_BITNAMES = '00000001'X4 PARAMETER OSS$_ACCESS_BITNAMES_LENGTH = '00000002'X( PARAMETER OSS$_ACL_ADDACE = '00000003'X( PARAMETER OSS$_ACL_DELACE = '00000004'X( PARAMETER OSS$_ACL_FNDACE = '00000007'X( PARAMETER OSS$_ACL_FNDNXT = '00000008'X( PARAMETER OSS$_ACL_FNDTYP = '00000009'X( PARAMETER OSS$_ACL_MODACE = '0000000C'X) PARAMET ER OSS$_ACL_READACE = '00000010'X!DEC$ END OPTIONS ww(Φ!*** MODULE $OTSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.41 ! # ! FILE: OTSMSG.MSG EDIT: SBL2003 !  ! * *6 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SO FTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! N ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM OTSMSG.MDL% ! VERSION 1-009. SBL 22-APR-1 9810 ! 2-002 - ADD OTS$_WRONUMARG. RKR 4-SEP-19813 ! 2-003 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982 ! -- ! +@ ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! OTS$_ABCMNOXYZ ! M ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",O ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR4 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! N ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VAL UE SHOULD APPEAR8 ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: ! ! $OTSDEF ! > ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.9 ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL;A ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - ! +% ! DEFINE OTS$ SEVERE ERROR MESSAGES ! -; ! ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$)3 ! ; SET SUB-SYSTEM SPECIFI C BIT AND MAKE SEVERE* ! ; SET LH TO 23 (DECIMAL) OTS$ PREFIX& PARAMETER OTS$_FACILITY = '00000017'X' PARAMETER OTS$_INVSTRDES = '0017800C'X' PARAMETER OTS$_FATINTERR = '00178014'X' PARAMETER OTS$_INTDATCOR = '0017801C'X' PARAMETER OTS$_IO_CONCLO = '00178024'X' PARAMETER OTS$_INPCONERR = '0017802C'X' PARAMETER OTS$_OUTCONERR = '00178034'X' PARAMETER OTS$_STRIS_INT = '0017803C'X' PARAMETER OTS$_INSVIRMEM = '00178044'X' PARAMETER OTS$_WRONUMARG = '0017804C'X ! ; OTS$SCOPY ! +! ! DEFINE OTS$ WARNING MESSAGES: ! -; ! ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$)4 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE WARNING* ! ; SET LH TO 23 (DECIMAL) OTS$ PREFIX' PARAMETER OTS$_USEFLORES = '00178400'X!DEC$ END OPTIONSwwٜΦ!*** MODULE PAGEDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNA PARAMETER MMG$C_VAX_PAGE_SIZE = '00000200'X ! SIZE OF VAX PAGEE PARAMETER MMG$C_ALPHA_MAX_PAGE_SIZE = '00010000'X ! M AX. PAGE SIZEG PARAMETER IOC$C_DISK_BLKSIZ = '00000200'X ! STANDARD DISK BLOCK SIZEO PARAMETER IOC$C_CD_DVD_BLKSIZ = '00000800'X ! Typical CD and DVD sector size- PARAMETER IOC$M_BLOCK_BYTEMASK = '000001FF'X+ PARAMETER IOC$M_BLOCK_BLKNUM = 'FFFFFE00'X STRUCTURE /BLOCKDEF/ UNION MAP+ PARAMETER IOC$S_BLOCK_BYTEMASK = 9: PARAMETER IOC$V_BLOCK_BYTEMASK = 0 ! BYTE VIELD * PARAMETER IOC$S_BLOCK_BLKNUM = 23) PARAMETER IOC$V_BLOCK_BLKNUM = 9+  BYTE %FILL (4) ! BLOCK NUMBER END MAP END UNION END STRUCTURE ! BLOCKDEF. PARAMETER IOC$M_DVDBLK_BYTEMASK = '000007FF'X, PARAMETER IOC$M_DVDBLK_BLKNUM = 'FFFFF800'X STRUCTURE /DVDBLKDEF/ UNION MAP- PARAMETER IOC$S_DVDBLK_BYTEMASK = 11> PARAMETER IOC$V_DVDBLK_BYTEMASK = 0 ! CD/DVD Vield + PARAMETER IOC$S_DVDBLK_BLKNUM = 21+ PARAMETER IOC$V_DVDBLK_BLKNUM = 112 BYTE %FILL (4) ! CD/DVD Block Number END MAP END UNION END STRUCTURE ! DVDBLKDEF!DEC$ END OPTIONS wwREڜΦ!*** MODULE $PCCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +0 ! PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS ! --# PARAMETER PCC$M_CHAR = '0000001F'X' PARAMETER PCC$M_EIGHTBIT = '00000040'X% PARAMETER PCC$M_SINGLE = '00000080'X& PARAMETER PCC$M_LINECNT = '0000007F'X: PARAMETER PCC$_FTN_SINGLE = '00000020'X ! SINGLE SPACE : PARAMETER PCC$_FTN_DOUBLE = '00000030'X ! DOUBLE  SPACE 6 PARAMETER PCC$_FTN_PAGE = '00000031'X ! PAGE SPACE 8 PARAMETER PCC$_FTN_OVRPRT = '0000002B'X ! OVER PRINT 4 PARAMETER PCC$_FTN_PROMPT = '00000024'X ! PROMPT  STRUCTURE /PCCDEF/1 INTEGER*2 PCC$W_FORTRAN ! FORTRAN FIELD UNION MAP BYTE PCC$B_PREFIX END MAP MAP END MAP MAP END MAP END UNION UNION MAP5 BYTE PCC$B_POSTFIX ! POSTFIX FIELD  END MAP MAP% PARAMETER PCC$S_CHAR = 5; PARAMETER PCC$V_CHAR = 0 ! CHARACTER FIELD ) PARAMETER PCC$S_EIGHTBIT = 1F PARAMETER PCC$V_EIGHTBIT = 6 ! EIGHTBIT CHARACTER SET ' PARAMETER PCC$S_SINGLE = 1' PARAMETER PCC$V_SINGLE = 74 BYTE %FILL (1) ! SINGLE CHARACTER  END MAP MAP( PARAMETER PCC$S_LINECNT = 7F PARAMETER PCC$V_LINECNT = 0 ! LINE COUNT FOR NEWLINES  BYTE %FILL (1) END MAP ! FORTRAN CONSTANTS  END UNION END STRUCTURE ! PCCDEF!DEC$ END OPTIONS wwڜΦ!*** MODULE $PDSCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! N ! Procedure descriptor offset definitions for the Alpha-32 calling standard.M ! This definition includes the offsets and fields for stack frame (SF) and . ! register frame (RF) procedure descriptors. ! @ PARAMETER PDSC$K_KIND_BOUND = '00000000'X ! bound procedure> PARAMETER PDSC$K_KIND_NULL = '00000008'X ! null procedure@ PARAMETER PDSC$K_KIND_FP_STACK = '00000009'X ! SF procedureC PARAMETER PDSC$K_KIND_FP_REGISTER = '0000000A'X ! RF procedure- PARAMETER PDSC$M_HANDLER_VALID = '00000010'X3 PARAMETER PDSC$M_HANDLER_REINVOKABLE = '00000020'X2 PARAMETER PDSC$M_HANDLER_DATA_VALID = '00000040'X. PARAMETER PDSC$M_BASE_REG_IS_FP = '00000080'X* PARAMETER PDSC$M_REI_RETURN = '00000100'X2 PARAMETER PDSC$M_STACK_ RETURN_VALUE = '00000200'X* PARAMETER PDSC$M_BASE_FRAME = '00000400'X+ PARAMETER PDSC$M_TARGET_INVO = '00000800'X& PARAMETER PDSC$M_NATIVE = '00001000'X) PARAMETER PDSC$M_NO_JACKET = '00002000'X) PARAMETER PDSC$M_TIE_FRAME = '00004000'X+ PARAMETER PDSC$M_FUNC_RETURN = '0000000F'X. PARAMETER PDSC$M_EXCEPTION_MODE = '00000070'X; PARAMETER PDSC$K_EXC_MODE_SIGNAL = '00000000'X ! signalC PARAMETER PDSC$K_EXC_MODE_SIGNAL_ALL = '00000001'X ! signal allI PARAMETER PDSC$K_EXC_MODE_SIGNAL_ SILENT = '00000002'X ! signal silentH PARAMETER PDSC$K_EXC_MODE_FULL_IEEE = '00000003'X ! signal full ieeeF PARAMETER PDSC$K_EXC_MODE_CALLER = '00000004'X ! use caller's modeG PARAMETER PDSC$K_NULL_SIZE = '00000010'X ! length of NULL descriptor] PARAMETER PDSC$K_BOUND_SIZE = '00000018'X ! length of the basic bound precedure descriptord PARAMETER PDSC$K_MIN_BOUND_SIZE = '00000018'X ! minimum size of the basic bound procedure descrip] PARAMETER PDSC$K_MIN_LENGTH_SF = '00000020'X  ! length of required portion of SF descriptorL PARAMETER PDSC$K_MIN_STACK_SIZE = '00000020'X ! min size of SF descriptorL PARAMETER PDSC$K_MAX_STACK_SIZE = '00000030'X ! max size of SF descriptor] PARAMETER PDSC$K_MIN_LENGTH_RF = '00000018'X ! length of required portion of RF descriptorO PARAMETER PDSC$K_MIN_REGISTER_SIZE = '00000018'X ! min size of RF descriptorO PARAMETER PDSC$K_MAX_REGISTER_SIZE = '00000028'X ! max size of RF descriptord PARAMETER PDSC$K_BOUND_ENVIRONMENT_SIZE = '00000020'X ! length of the bound precedure descriptor  STRUCTURE /PDSCDEF/ UNION MAPM INTEGER*2 PDSC$W_FLAGS ! flags including procedure kind bitfield END MAP MAP& PARAMETER PDSC$S_KIND = 4= PARAMETER PDSC$V_KIND = 0 ! kind of procedure/ PARAMETER PDSC$S_HANDLER_VALID = 1d PARAMETER PDSC$V_HANDLER_VALID = 4 ! optional STACK_HANDLER or REG_HANDLER is present5 PARAMETER PDSC$ S_HANDLER_REINVOKABLE = 1Z PARAMETER PDSC$V_HANDLER_REINVOKABLE = 5 ! exception handler is reinvokable4 PARAMETER PDSC$S_HANDLER_DATA_VALID = 1d PARAMETER PDSC$V_HANDLER_DATA_VALID = 6 ! optional STACK_HANDLER_DATA or REG_HANDLER_C ! optional STACK_HANDLER_DATA or REG_HANDLER_DATA is present 0 PARAMETER PDSC$S_BASE_REG_IS_FP = 1V PARAMETER PDSC$V_BASE_REG_IS_FP = 7 ! FP is also base register (vs. SP), PARAMETER PDSC$S_REI_RETURN = 1M PARAMETER PDSC$V_REI_RETURN = 8 ! exit from procedure via REI4 PARAMETER PDSC$S_STACK_RETURN_VALUE = 1Y PARAMETER PDSC$V_STACK_RETURN_VALUE = 9 ! function value returned on stack, PARAMETER PDSC$S_BASE_FRAME = 1F PARAMETER PDSC$V_BASE_FRAME = 10 ! base frame indicator- PARAMETER PDSC$S_TARGET_INVO = 1[ PARAMETER PDSC$V_TARGET_INVO = 11 ! unwind target invo handler to be called ( PARAMETER PDSC$S_NATIVE = 1I PARAMETER PDSC$V_NATIVE = 12 ! set to 1 for compiled code+ PARAMETER PDSC$S_NO_JACKET = 1L PARAMETER PDSC$V_NO_JACKET = 13 ! set to 1 for compiled code+ PARAMETER PDSC$S_TIE_FRAME = 1M PARAMETER PDSC$V_TIE_FRAME = 14 ! must be 0 for compiled code BYTE %FILL (2) END MAP END UNION UNION MAPZ INTEGER*2 PDSC$W_RSA_OFFSET ! offset to register save area from base (SF only) END MAP MAPQ BYTE PDSC$B_SAVE_FP ! register number for saved FP (RF only)] BYTE PDSC$B_SAVE_RA ! register number for saved return address (RF only) END MAP END UNIONN BYTE PDSC$B_ENTRY_RA ! register in which return address is passed) PARAMETER PDSC$S_FUNC_RETURN = 4^ PARAMETER PDSC$V_FUNC_RETURN = 0 ! register specificatons for function value retu rn, PARAMETER PDSC$S_EXCEPTION_MODE = 3b PARAMETER PDSC$V_EXCEPTION_MODE = 4 ! the caller's desired exception reporting behaviorX INTEGER*2 PDSC$W_SIGNATURE_OFFSET ! offset from procedure descriptor to signature UNION MAPJ INTEGER*4 PDSC$Q_ENTRY(2) ! address of start of procedure code BYTE %FILL (1) END MAP MAPU INTEGER*4 PDSC$L_ENTRY ! first longword is sign extended to quadword END MAP END UNION UNION MAPC INTEGER*4 PDSC$L_SIZE ! size of fixed portion of stack END MAP MAP UNION MAPP INTEGER*4 PDSC$Q_PROC_VALUE(2) ! for bound procedure descriptor, END MAP MAPW INTEGER*4 PDSC$L_PROC_VALUE ! this value is a procedure descriptor.1 INTEGER*4 %FILL ! reserved  END MAP END UNION END MAP END UNION UNION MAPG INTEGER*4 PDSC$L_IREG_MASK ! integer register save maskH INTEGER*4 PDSC$L_FREG_MASK ! floating register save maska INTEGER*4 PDSC$Q_STACK_HANDLER(2) ! absolute pointer to procedure descriptor (opt)T INTEGER*4 PDSC$Q_STACK_HANDLER_DATA(2) ! data for stack handler (opt) END MAP MAP` INTEGER*4 PDSC$Q_REG_HANDLER(2) ! absolute pointer to procedure descriptor (opt)L  INTEGER*4 PDSC$Q_REG_HANDLER_DATA(2) ! data for handler (opt) END MAP MAP UNION MAP) INTEGER*4 PDSC$L_ENVIRONMENT END MAP MAP, INTEGER*4 PDSC$Q_ENVIRONMENT(2) END MAP END UNION END MAP END UNION END STRUCTURE ! PDSCDEF@ PARAMETER PDSC$K_LKP_LENGTH = '00000010'X ! Linkage pair size/ STRUCTURE /PDSC_LKPDEF/ ! Linkage pair def UNION  MAP< INTEGER*4 PDSC$Q_LKP_ENTRY(2) ! Entry point addr END MAP MAP( INTEGER*4 PDSC$PS_LKP_ENTRY END MAP END UNION UNION MAP> INTEGER*4 PDSC$Q_LKP_PROC_VALUE(2) ! Proc desc addr END MAP MAP- INTEGER*4 PDSC$PS_LKP_PROC_VALUE END MAP END UNION END STRUCTURE ! PDSC_LKPDEF9 PARAMETER LKP$K_SIZE = '00000010'X ! Linkage pair size* STRUCTURE /LKPDEF/ ! Linkage  pair def UNION MAP! INTEGER*4 LKP$Q_ENTRY(2) END MAP MAP INTEGER*4 LKP$PS_ENTRY END MAP END UNION UNION MAP& INTEGER*4 LKP$Q_PROC_VALUE(2) END MAP MAP$ INTEGER*4 LKP$PS_PROC_VALUE END MAP END UNION END STRUCTURE ! LKPDEF!DEC$ END OPTIONS wwڜΦ!*** MODULE $PMMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + O ! PFN memory data structure definition. This structure is used to access theM ! fields within the PFN memory map returned by $GETSYI. $GETSYI copies theH ! contents of the pool packet stored at MMG$GL_SYI_PFN_MEMORY_MAP to a ! user-supplied buffer. ! -& PARAMETER PMM$m_console = '00000001'X& PARAMETER PMM$m_openvms = '00000002'X( PARAMETER PMM$m_available = '00000004'X# PARAMETER PMM$m_base = '00000008'X, PARAMETER PMM$m_galaxy_shared = '00000010'X- PARAMETER PMM$m_undefined_5 _15 = '0000FFE0'X= PARAMETER PMM$C_LENGTH = '0000000C'X ! Length of structure= PARAMETER PMM$K_LENGTH = '0000000C'X ! Length of structure STRUCTURE /PMM/9 INTEGER*2 PMM$W_LENGTH ! Size of a PMM structure UNION MAP INTEGER*2 PMM$w_flags END MAP MAP( PARAMETER PMM$S_console = 1= PARAMETER PMM$V_console = 0 ! Used by Console( PARAMETER PMM$S_openvms = 1= PARAMETER PMM$V_openvms = 1 ! Used by OpenVMS* PARAMETER PMM$S_available = 1H PARAMETER PMM$V_available = 2 ! Available for Other Uses% PARAMETER PMM$S_base = 1E PARAMETER PMM$V_base = 3 ! Galaxy base memory segment. PARAMETER PMM$S_galaxy_shared = 1G PARAMETER PMM$V_galaxy_shared = 4 ! Galaxy shared memory0 PARAMETER PMM$S_undefined_5_15 = 11/ PARAMETER PMM$V_undefined_5_15 = 5@ BYTE %FILL (2) ! Undefined bits should be zero END MAP END UNION= INTEGER*4 PMM$l_start_pfn ! First PFN in this clusterB INTEGER*4 PMM$l_pfn_count ! Number of PFNs in this cluster END STRUCTURE ! PMM$ ! Expanded version for larger PFNs( PARAMETER PMM64$m_console = '00000001'X( PARAMETER PMM64$m_openvms = '00000002'X* PARAMETER PMM64$m_available = '00000004'X% PARAMETER PMM64$m_base = '00000008'X. PARAMETER PMM64$m_galaxy_shared = '00000010'X/ PARAMETER PMM64$m_undefined_5 _15 = '0000FFE0'X? PARAMETER PMM64$C_LENGTH = '00000018'X ! Length of structure? PARAMETER PMM64$K_LENGTH = '00000018'X ! Length of structure STRUCTURE /PMM64/: INTEGER*2 PMM64$W_LENGTH ! Size of a PMM structure UNION MAP INTEGER*2 PMM64$w_flags END MAP MAP* PARAMETER PMM64$S_console = 1? PARAMETER PMM64$V_console = 0 ! Used by Console* PARAMETER PMM64$S_openvms = 1? PARAMETER PMM64 $V_openvms = 1 ! Used by OpenVMS, PARAMETER PMM64$S_available = 1J PARAMETER PMM64$V_available = 2 ! Available for Other Uses' PARAMETER PMM64$S_base = 1G PARAMETER PMM64$V_base = 3 ! Galaxy base memory segment0 PARAMETER PMM64$S_galaxy_shared = 1I PARAMETER PMM64$V_galaxy_shared = 4 ! Galaxy shared memory2 PARAMETER PMM64$S_undefined_5_15 = 111 PARAMETER PMM64$V_undefined_5_15 = 5@ BYTE %FILL (2) ! Undefined bits should be zero END MAP END UNION, INTEGER*4 PMM64$l_reserved ! paddingB INTEGER*4 PMM64$q_start_pfn(2) ! First PFN in this clusterG INTEGER*4 PMM64$q_pfn_count(2) ! Number of PFNs in this cluster END STRUCTURE ! PMM64!DEC$ END OPTIONS wwݜΦ!!*** MODULE $POSIX_SERVICEDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN? ! The following definitions are passed in the ct rl parameter.D PARAMETER POSIX$C_BLOCK_FORK = '00000001'X ! block fork executionH PARAMETER POSIX$C_UNBLOCK_FORK = '00000002'X ! unblock fork execution> PARAMETER POSIX$C_DISABLE_FORK = '00000003'X ! disable forkH PARAMETER POSIX$C_SETUP_CALLBACK = '00000004'X ! setup image callbackJ PARAMETER POSIX$C_SYSTEM_CALLBACK = '00000005'X ! setup system callbackV PARAMETER POSIX$C_PROCESS_CALLBACK = '00000006'X ! setup process permanent callbackF PARAMETER POSIX$C_CANCEL_CALLBACK = '000000 07'X ! cancel a callback@ PARAMETER POSIX$C_CONTINUE = '00000008'X ! continue callbacksK PARAMETER POSIX$C_TEST_CALLS = '00000009'X ! temporary value for testing* PARAMETER POSIX$C_MAX_CNTRL = '00000009'X* PARAMETER POSIX$K_MAX_CNTRL = '00000009'X ! H ! The following definitions are for the 'when' mask. They define when ! callbacks are to be made. ! 1 PARAMETER POSIX$V_CALL_BEFORE_COPY = '00000000'X. PARAMETER POSIX$V_CALL_IN_CHILD = '00000001'X1 PARAMETER POSIX$V_CALL_AFTE R_CHILD = '00000002'X0 PARAMETER POSIX$V_CALL_ON_FAILURE = '00000003'X6 PARAMETER POSIX$V_CALL_BEFORE_COPY_FAIL = '00000004'X3 PARAMETER POSIX$V_CALL_IN_CHILD_FAIL = '00000005'X6 PARAMETER POSIX$V_CALL_AFTER_CHILD_FAIL = '00000006'X1 PARAMETER POSIX$M_CALL_BEFORE_COPY = '00000001'X. PARAMETER POSIX$M_CALL_IN_CHILD = '00000002'X1 PARAMETER POSIX$M_CALL_AFTER_CHILD = '00000004'X0 PARAMETER POSIX$M_CALL_ON_FAILURE = '00000008'X6 PARAMETER POSIX$M_CALL_BEFORE_COPY_FAIL = '00000010'X3 PARAMET ER POSIX$M_CALL_IN_CHILD_FAIL = '00000020'X6 PARAMETER POSIX$M_CALL_AFTER_CHILD_FAIL = '00000040'X!DEC$ END OPTIONS ww,%ޜΦ!*** MODULE $PPROPDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! 6 ! Set Process Properties Data Identifier Definitions !  ! **** NOTE **** ! F ! New items must always be added to the END of each item listH ! (preceeding the ENDlistname item) so that users will not have ! to relink.  ! - ! Property definitionse PARAMETER PPROP$C_PARSE_STYLE_TEMP = '00000000'X ! Change the parse style for the life of an imaged PARAMETER PPROP$C_PARSE_STYLE_PERM = '00000001'X ! Change the parse style for the life of the proO PARAMETER PPROP$C_HOME_RAD = '00000002'X ! Change the home rad of the threadd PARAMETER PPROP$C_CASE_LOOKUP_TEMP = '00000003'X ! Change the case lookup mode for the life of and PARAMETER PPROP$C_CASE_LOOKUP_PERM = '00000004'X ! Change the case lookup mode  for the life of thd PARAMETER PPROP$C_MEDDLE_ENABLE = '00000005'X ! Record the fact of alterations to process logical ! names or symbols^ PARAMETER PPROP$C_MEDDLE = '00000006'X ! Process logical names or symbols have been alteredf PARAMETER PPROP$C_UNITS = '00000007'X ! Change the units for the life of the process (blocks/bytes)` PARAMETER PPROP$C_SS_LOG_ENABLE = '00000008'X ! Enable system service logging for the processb PARAMETER PPROP$C_SS_LOG_DISABLE = '00000009'X ! Disable sy stem service logging for the process_ PARAMETER PPROP$C_SS_LOG_UNLOAD = '0000000A'X ! Stop system service logging & delete buffers` PARAMETER PPROP$C_TOKEN = '0000000B'X ! Change the DCL token size for the life of the processe PARAMETER PPROP$C_DEADLOCK_WAIT = '0000000C'X ! Change per-process deadlock wait (in 10msec units) ! Parse style definitionsZ PARAMETER PARSE_STYLE$C_ODS2 = '00000000'X ! Values for the above properties (old name)Z PARAMETER PARSE_STYLE$C_ODS5 = '00000001'X ! Values for the above properties (old name)a PARAMETER PARSE_STYLE$C_TRADITIONAL = '00000000'X ! Values for the above properties (new name)^ PARAMETER PARSE_STYLE$C_EXTENDED = '00000001'X ! Values for the above properties (new name) ! case lookup definitionsD PARAMETER PPROP$K_CASE_BLIND = '00000000'X ! case blind operationL PARAMETER PPROP$K_CASE_SENSITIVE = '00000001'X ! case sensitive operation!DEC$ END OPTIONS wwxqޜΦ!*** MODULE $PQLDEF ***:!DEC$ OPTION S/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! PROCESS QUOTA LIST CODES ! -G PARAMETER PQL$_LISTEND = '00000000'X ! LIST END CODE (MUST BE FIRST) 1 PARAMETER PQL$_ASTLM = '00000001'X ! AST LIMIT : PARAMETER PQL$_BIOLM = '00000002'X ! BUFFERED I/O LIMIT C PARAMETER PQL$_BYTLM = '00000003'X ! BYTE LIMIT FOR BUFFERED I/O 6 PARAMETER PQL$_CPULM = '00000004'X ! CPU TIME LIMIT 8 PARAMETER PQL$_DIOLM = '00000005'X ! DIRECT I/O LIMIT 7 PARAMETER PQL$_FILLM = '00000006'X ! OPEN FI LE LIMIT = PARAMETER PQL$_PGFLQUOTA = '00000007'X ! PAGING FILE QUOTA 9 PARAMETER PQL$_PRCLM = '00000008'X ! SUB-PROCESS LIMIT ? PARAMETER PQL$_TQELM = '00000009'X ! TIMER QUEUE ENTRY LIMIT ; PARAMETER PQL$_WSQUOTA = '0000000A'X ! WORKING SET QUOTA ? PARAMETER PQL$_WSDEFAULT = '0000000B'X ! WORKING SET DEFAULT 5 PARAMETER PQL$_ENQLM = '0000000C'X ! ENQUEUE LIMIT C PARAMETER PQL$_WSEXTENT = '0000000D'X ! WORKING SET EXTENT LIMIT S PARAMETER PQL$_JTQUOTA = '0000000E'X ! JOB-WIDE  LOGICAL NAME TABLE CREATION QUOTAH PARAMETER PQL$_LENGTH = '0000000F'X ! NUMBER OF QUOTAS (MUST BE LAST) !DEC$ END OPTIONS wwĽޜΦ!*** MODULE $PRCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +' ! $CREPRC STATUS FLAGS AND ITEM CODES ! -& PARAMETER PRC$M_SSRWAIT = '00000001'X& PARAMETER PRC$M_SSFEXCU = '00000002'X% PARAMETER PRC$M_PSWAPM = '00000004'X% PARAMETER PRC$M_NOACNT = '00000008'X$ PARAMETER PRC$M_BATCH = '00000010'X$ PARAMETER PRC$M_HIBER = '00000020'X$ PARAMETER PRC$M_NOUAF = '00000040'X% PARAMETER PRC$M_NETWRK = '00000080'X% PARAMETER PRC$M_DISAWS = '00000100'X% PARAMETER PRC$M_DETACH = '00000200'X$ PARAMETER PRC$M_INTER = '00000400'X% PARAMETER PRC$M_IMGDMP = '00000800'X& PARAMETER PRC$M_CLISPEC = '00001000'X) PARAMETER PRC$M_NOPASSWORD = '00002000'X$ PARAMETER PRC$M_DEBUG = '00004000'X% PARAMETER PRC$M_DBGTRU = '00008000'X( PARAMETER PRC$M_SUBSYSTEM = '00010000'X" PARAMETER PRC$M_TCB = '00020000'X- P ARAMETER PRC$M_NO_IMAGE_PRIVS = '00040000'X- PARAMETER PRC$M_PERM_SUBSYSTEM = '00080000'X- PARAMETER PRC$M_PARSE_EXTENDED = '00100000'X. PARAMETER PRC$M_INHERIT_PERSONA = '00200000'X' PARAMETER PRC$M_HOME_RAD = '00400000'X- PARAMETER PRC$M_CASE_SENSITIVE = '00800000'X- PARAMETER PRC$M_SPAWN_DETACHED = '01000000'X+ PARAMETER PRC$M_SSLOG_ENABLE = '02000000'X$ PARAMETER PRC$M_LOGIN = '00000040'X STRUCTURE /PRCDEF/ UNION MAP$ PARAMETER PRC$S_SSRWAIT = 1@ PARAMET ER PRC$V_SSRWAIT = 0 ! RESOURCE WAIT DISABLE $ PARAMETER PRC$S_SSFEXCU = 1M PARAMETER PRC$V_SSFEXCU = 1 ! SYSTEM SERVICE FAIL EXCEPTION MODE # PARAMETER PRC$S_PSWAPM = 1; PARAMETER PRC$V_PSWAPM = 2 ! PROCESS SWAP MODE # PARAMETER PRC$S_NOACNT = 1D PARAMETER PRC$V_NOACNT = 3 ! ACCOUNTING MESSAGE DISABLE " PARAMETER PRC$S_BATCH = 18 PARAMETER PRC$V_BATCH = 4 ! BATCH INDICATOR " PARAMETER PRC$S_HIBER = 1O PARAMETER PRC$V_HIBER = 5 ! HIBERNATE BEFORE CALLING INITIAL IMAGE " PARAMETER PRC$S_NOUAF = 1U PARAMETER PRC$V_NOUAF = 6 ! BYPASS LOGIN VERIFICATION FOR DETACHED PROC. # PARAMETER PRC$S_NETWRK = 1; PARAMETER PRC$V_NETWRK = 7 ! NETWORK INDICATOR # PARAMETER PRC$S_DISAWS = 1D PARAMETER PRC$V_DISAWS = 8 ! DISABLE WORKING SET ADJUST # PARAMETER PRC$S_DETACH = 19 PARAMETER PRC$V_DETACH = 9 ! DETACHED PROC ESS" PARAMETER PRC$S_INTER = 1> PARAMETER PRC$V_INTER = 10 ! INTERACTIVE INDICATOR# PARAMETER PRC$S_IMGDMP = 1> PARAMETER PRC$V_IMGDMP = 11 ! IMAGE DUMP REQUESTED$ PARAMETER PRC$S_CLISPEC = 1B PARAMETER PRC$V_CLISPEC = 12 ! PASS CLI SPECIFICATIONS' PARAMETER PRC$S_NOPASSWORD = 1T PARAMETER PRC$V_NOPASSWORD = 13 ! DON'T PROMPT FOR USERNAME AND PASSWORD" PARAMETER PRC$S_DEBUG = 17 PARAMETER PRC$V_DEB UG = 14 ! /DEBUG desired# PARAMETER PRC$S_DBGTRU = 1: PARAMETER PRC$V_DBGTRU = 15 ! debugger present& PARAMETER PRC$S_SUBSYSTEM = 1U PARAMETER PRC$V_SUBSYSTEM = 16 ! inherit protected subsystem identifiers PARAMETER PRC$S_TCB = 1= PARAMETER PRC$V_TCB = 17 ! process is part of TCB+ PARAMETER PRC$S_NO_IMAGE_PRIVS = 1V PARAMETER PRC$V_NO_IMAGE_PRIVS = 18 ! image privileges not to be propagated+ PARAMETER PRC$S_PERM_SUBSYSTEM = 1P PARAMETER PRC$V_PERM_SUBSYSTEM = 19 ! make subsystem rights permanent+ PARAMETER PRC$S_PARSE_EXTENDED = 1[ PARAMETER PRC$V_PARSE_EXTENDED = 20 ! make new process have parse_style extended, PARAMETER PRC$S_INHERIT_PERSONA = 1P PARAMETER PRC$V_INHERIT_PERSONA = 21 ! process gets persona of caller% PARAMETER PRC$S_HOME_RAD = 1I PARAMETER PRC$V_HOME_RAD = 22 ! Home RAD specified by creator+ PAR AMETER PRC$S_CASE_SENSITIVE = 1L PARAMETER PRC$V_CASE_SENSITIVE = 23 ! Use CASE_LOOKUP = SENSITIVE+ PARAMETER PRC$S_SPAWN_DETACHED = 1I PARAMETER PRC$V_SPAWN_DETACHED = 24 ! Spawn a detached process) PARAMETER PRC$S_SSLOG_ENABLE = 1L PARAMETER PRC$V_SSLOG_ENABLE = 25 ! Enable system service logging BYTE %FILL (4) END MAP MAP" PARAMETER PRC$S_LOGIN = 1U PARAMETER PRC$V_LOGIN = 6 ! BYPASS LOGIN VERIFICATION FO R DETACHED PROC.  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PRCDEF] PARAMETER PRC$M_IMPERSONATE = '00000200'X ! Impersonate other - synonym for DETACH - 0x200 ! + ! 8 ! Create Process Item List Data Identifier Definitions !  ! **** NOTE **** ! H ! New items must always be added at the END of the list so that7 ! users will not have to relink or reassemble. !  ! -J PARAMETER PRC$_LISTEND = '00000000'X ! End of list (must be first c ode)D PARAMETER PRC$_PGFLCHAR = '00000001'X ! Page file characteristics; PARAMETER PRC$_PGFLINDEX = '00000002'X ! Page file index@ PARAMETER PRC$_INPUT_ATT = '00000003'X ! SYS$INPUT attributesB PARAMETER PRC$_OUTPUT_ATT = '00000004'X ! SYS$OUTPUT attributes@ PARAMETER PRC$_ERROR_ATT = '00000005'X ! SYS$ERROR attributes> PARAMETER PRC$_CLASS = '00000006'X ! Process classificationJ PARAMETER PRC$_SSLOG_FLAGS = '00000007'X ! System service logging flagsR PARAMETER PRC$_SSLOG_BUFSIZ E = '00000008'X ! System service logging buffer sizeR PARAMETER PRC$_SSLOG_BUFCNT = '00000009'X ! System service logging buffer count!DEC$ END OPTIONS ww ߜΦ!*** MODULE $PRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +# ! PROCESSOR REGISTER DEFINITIONS ! > ! The following IPR symbols are provided for the convenience@ ! of common Macro-32 code using the VAX MFPR/MTPR instructions< ! to operate against IPRs that exist in both archite cturesB ! architectures. Even Alpha-specific Macro-32 code would benefitB ! since the compiler can calculate register live-ness around the ! VAX MFPR/MTPR instructions. ! = ! The assigned values for the PR$_ipr symbols match the VAXB ! IPR numbers themselves wherever possible. VAX IPR numbers thatE ! are extremely unlikely ever to be encountered are otherwise used.B ! The compiler uses the VAX values to validate the invocation of ! MTPR/MFPR instructions. ! -= PARAMETER PR$ _ESP = '00000001'X ! Executive Stack Pointer> PARAMETER PR$_SSP = '00000002'X ! Supervisor Stack Pointer8 PARAMETER PR$_USP = '00000003'X ! User Stack Pointer: PARAMETER PR$_ASN = '00000006'X ! Address Space NumberG PARAMETER PR$_ASTEN = '00000030'X ! AST Enabled Register (MFPR only)G PARAMETER PR$_ASTSR = '00000031'X ! AST Summary Register (MFPR only)R PARAMETER PR$_DATFX = '00000017'X ! Data Alignment Trap Fixup in PALcode EnableD PARAMETER PR$_IPIR = '00000016'X ! Inte rprocess Interrupt Request> PARAMETER PR$_IPL = '00000012'X ! Interrupt Priority LevelA PARAMETER PR$_MCES = '00000026'X ! Machine Check Error SummaryC PARAMETER PR$_PCBB = '00000010'X ! Privileged Context Block Base@ PARAMETER PR$_PME = '0000003D'X ! Performance Monitor Enable= PARAMETER PR$_PRBR = '0000000F'X ! Processor Base Register? PARAMETER PR$_SCBB = '00000011'X ! System Control Block Base@ PARAMETER PR$_SIRR = '00000014'X ! Software Interrupt Request@ PARAMETER PR$ _SISR = '00000015'X ! Software Interrupt SummaryG PARAMETER PR$_TBIA = '00000039'X ! Translation Buffer Invalidate AllP PARAMETER PR$_TBIAP = '00000032'X ! Translation Buffer Invalidate All ProcessV PARAMETER PR$_TBIS = '0000003A'X ! Translation Buffer Invalidate Single - 32 bit VAY PARAMETER PR$_TBIS_64 = '0000003C'X ! Translation Buffer Invalidate Single - 64 bit VAd PARAMETER PR$_TBISD = '0000003B'X ! Translation Buffer Invalidate Single - 64 bit VA - D-stream oC ! Translat ion Buffer Invalidate Single - 64 bit VA - D-streamd PARAMETER PR$_TBISI = '0000002F'X ! Translation Buffer Invalidate Single - 64 bit VA - I-stream oC ! Translation Buffer Invalidate Single - 64 bit VA - I-streamF PARAMETER PR$_VPTB = '0000000C'X ! Virtual Page Table Base Register ! +) ! PROCESSOR REGISTER FIELD DEFINITIONS ! -7 PARAMETER PR$_SID_TYP780 = '00000001'X ! VAX 11/780 7 PARAMETER PR$_SID_TYP750 = '00000002'X ! VAX 11/750 7 PARAMETER PR$_SID_TYP730 = '0000000 3'X ! VAX 11/730 6 PARAMETER PR$_SID_TYP790 = '00000004'X ! VAX 11/790; PARAMETER PR$_SID_TYP8SS = '00000005'X ! Scorpio for now< PARAMETER PR$_SID_TYP8NN = '00000006'X ! Nautilus for now7 PARAMETER PR$_SID_TYPUV1 = '00000007'X ! MicroVAX I 8 PARAMETER PR$_SID_TYPUV2 = '00000008'X ! MicroVAX II 3 PARAMETER PR$_SID_TYP410 = '00000008'X ! VAXstar7 PARAMETER PR$_SID_TYP009 = '00000009'X ! Virtual VAX0 PARAMETER PR$_SID_TYP420 = '0000000A'X ! PVAX4 PARAMETER PR$_SID_TYP520 = '0000000A'X ! Cirrus I3 PARAMETER PR$_SID_TYP650 = '0000000A'X ! Mayfair7 PARAMETER PR$_SID_TYP9CC = '0000000A'X ! Calypso/XCP' PARAMETER PR$_SID_TYP9CI = '0000000A'X2 PARAMETER PR$_SID_TYP60 = '0000000A'X ! Firefox8 PARAMETER PR$_SID_TYP670 = '0000000B'X ! KA670 (Pele)/ PARAMETER PR$_SID_TYP9RR = '0000000B'X ! XRP: PARAMETER PR$_SID_TYP43 = '0000000B'X ! KA43 (RigelMAX)4 PARAMETER PR$_SID_TYP9AQ = '0000000E'X ! Aquarius5 PARAMETER PR$_SID_TYP8PS = '00000011'X ! Polars tar7 PARAMETER PR$_SID_TYP1202 = '00000012'X ! Mariah/XMP4 PARAMETER PR$_SID_TYP46 = '00000012'X ! PV-Mariah' PARAMETER PR$_SID_TYP600 = '00000013'X' PARAMETER PR$_SID_TYP690 = '00000013'X' PARAMETER PR$_SID_TYP700 = '00000013'X( PARAMETER PR$_SID_TYP1302 = '00000013'X& PARAMETER PR$_SID_TYP49 = '00000013'X( PARAMETER PR$_SID_TYP1303 = '00000013'X< PARAMETER PR$_SID_TYP660 = '00000014'X ! KA660 (Spitfire)1 PARAMETER PR$_SID_TYP440 = '00000014'X ! PVAX20 PARAMETER PR$_SID_TYP4A = '00000014'X ! PCVAX5 PARAMETER PR$_SID_TYP550 = '00000014'X ! Cirrus II7 PARAMETER PR$_SID_TYP1701 = '00000017'X ! Laser/Neon? PARAMETER PR$_SID_TYPMAX = '00000017'X ! MAX LEGAL CPU TYPE T PARAMETER PR$_SID_TYP_NOTAVAX = '00000080'X ! Not a VAX (i.e. Alpha or some such) ! Chip CPU types8 PARAMETER PR$_SID_TYPUV = '00000008'X ! MicroVAX chip ! MicroVAX chip CPU SubtypesM PARAMETER PR$_XSID_UV_UV = '00000000'X ! Generic MicroVAX (unused subtype)8 PARAMETER PR$_XSID_UV_U V2 = '00000001'X ! MicroVAX II4 PARAMETER PR$_XSID_UV_410 = '00000004'X ! VAXstar4 PARAMETER PR$_SID_TYPCV = '0000000A'X ! CVAX chip ! CVAX chip CPU SubtypesI PARAMETER PR$_XSID_CV_CV = '00000000'X ! Generic CVAX (unused subtype)4 PARAMETER PR$_XSID_CV_650 = '00000001'X ! Mayfair8 PARAMETER PR$_XSID_CV_9CC = '00000002'X ! Calypso/XCP3 PARAMETER PR$_XSID_CV_60 = '00000003'X ! Firefox1 PARAMETER PR$_XSID_CV_420 = '00000004'X ! PVAX( PARAMETER PR$_XSID_CV_9CI = '00000005'X5 PARAMETER PR$_XSID_CV_520 = '00000007'X ! CIRRUS I5 PARAMETER PR$_SID_TYPRV = '0000000B'X ! Rigel chip ! Rigel chip CPU SubtypesJ PARAMETER PR$_XSID_RV_RV = '00000000'X ! Generic Rigel (unused subtype)9 PARAMETER PR$_XSID_RV_670 = '00000001'X ! KA670 (Pele)8 PARAMETER PR$_XSID_RV_9RR = '00000002'X ! Calypso/XRP; PARAMETER PR$_XSID_RV_43 = '00000004'X ! KA43 (RigelMAX); PARAMETER PR$_SID_TYPV12 = '00000012'X ! Mariah chip set ! Mariah chip CPU SubtypesM PARAMETER PR$_X SID_V12_V12 = '00000000'X ! Generic Mariah (unused subtype)9 PARAMETER PR$_XSID_V12_1202 = '00000002'X ! MARIAH/XMPA PARAMETER PR$_XSID_V12_46 = '00000004'X ! PVAX- mariah subtype' PARAMETER PR$_SID_TYPV13 = '00000013'X) PARAMETER PR$_XSID_V13_V13 = '00000000'X) PARAMETER PR$_XSID_V13_690 = '00000001'X* PARAMETER PR$_XSID_V13_1302 = '00000002'X* PARAMETER PR$_XSID_V13_1303 = '00000003'X( PARAMETER PR$_XSID_V13_49 = '00000004'X) PARAMETER PR$_XSID_V13_700 = '00000005'X) PARAMETER PR$_XSID_V13_600 = '00000006'X8 PARAMETER PR$_SID_TYPV14 = '00000014'X ! SOC Chip SID ! SOC chip CPU subtypes< PARAMETER PR$_XSID_V14_V14 = '00000000'X ! unused subtype> PARAMETER PR$_XSID_V14_660 = '00000001'X ! KA660 (Spitfire); PARAMETER PR$_XSID_V14_440 = '00000004'X ! PVAX2 subtype: PARAMETER PR$_XSID_V14_4A = '00000005'X ! PCVAX subtype7 PARAMETER PR$_XSID_V14_550 = '00000007'X ! CIRRUS II: PARAMETER PR$_SID_TYPV17 = '00000017'X ! NVAX+ Chip SID ! NVAX+ chip CPU s ubtypes< PARAMETER PR$_XSID_V17_V17 = '00000000'X ! unused subtype9 PARAMETER PR$_XSID_V17_1701 = '00000001'X ! Laser/Neon ! Nautilus CPU Subtypes4 PARAMETER PR$_XSID_N8800 = '00000000'X ! VAX 88004 PARAMETER PR$_XSID_N8700 = '00000001'X ! VAX 8700? PARAMETER PR$_XSID_N2 = '00000002'X ! Undefined Nautilus CPU? PARAMETER PR$_XSID_N3 = '00000003'X ! Undefined Nautilus CPU? PARAMETER PR$_XSID_N4 = '00000004'X ! Undefined Nautilus CPU? PARAMETER PR$_XSID_N5 = '00000005'X ! U ndefined Nautilus CPU4 PARAMETER PR$_XSID_N8550 = '00000006'X ! VAX 85504 PARAMETER PR$_XSID_N8500 = '00000007'X ! VAX 85008 PARAMETER PR$_XSID_N8NNN = -1 ! Unknown Nautilus CPUF ! -------------------------------------------------------------------# PARAMETER PR$M_ASTEN = '0000000F'X' PARAMETER PR$M_ASTEN_KEN = '00000001'X' PARAMETER PR$M_ASTEN_EEN = '00000002'X' PARAMETER PR$M_ASTEN_SEN = '00000004'X' PARAMETER PR$M_ASTEN_UEN = '00000008'XA PARAMETER PR$M_ASTEN_DSBL_ALL = '0000 0000'X ! Disable all ASTs@ PARAMETER PR$M_ASTEN_ENBL_ALL = '000000FF'X ! Enable all ASTsA PARAMETER PR$M_ASTEN_ENBL_K = '00000011'X ! Enable kernel ASTsD PARAMETER PR$M_ASTEN_ENBL_E = '00000022'X ! Enable executive ASTsE PARAMETER PR$M_ASTEN_ENBL_S = '00000044'X ! Enable supervisor ASTs? PARAMETER PR$M_ASTEN_ENBL_U = '00000088'X ! Enable user ASTsT PARAMETER PR$M_ASTEN_PRSRV_ALL = '0000000F'X ! Preserve all enable/disable statesN PARAMETER PR$M_ASTEN_PRSRV_K = '00000001'X ! Preserve kernel enable/disableQ PARAMETER PR$M_ASTEN_PRSRV_E = '00000002'X ! Preserve executive enable/disableR PARAMETER PR$M_ASTEN_PRSRV_S = '00000004'X ! Preserve supervisor enable/disableL PARAMETER PR$M_ASTEN_PRSRV_U = '00000008'X ! Preserve user enable/disableF ! -------------------------------------------------------------------# PARAMETER PR$M_ASTSR = '0000000F'X' PARAMETER PR$M_ASTSR_KPD = '00000001'X' PARAMETER PR$M_ASTSR_EPD = '00000002'X' PARAMETER PR$M_ASTSR_SPD = '00000 004'X' PARAMETER PR$M_ASTSR_UPD = '00000008'XB PARAMETER PR$M_ASTSR_CLR_ALL = '00000000'X ! Clear pending ASTsD PARAMETER PR$M_ASTSR_SET_ALL = '000000FF'X ! Set all ASTs pendingD PARAMETER PR$M_ASTSR_SET_K = '00000011'X ! Set kernel AST pendingG PARAMETER PR$M_ASTSR_SET_E = '00000022'X ! Set executive AST pendingH PARAMETER PR$M_ASTSR_SET_S = '00000044'X ! Set supervisor AST pendingB PARAMETER PR$M_ASTSR_SET_U = '00000088'X ! Set user AST pendingK PARAMETER PR$M_ASTSR_PRSRV_ALL = '0000000F'X ! Preserve all pending bitsG PARAMETER PR$M_ASTSR_PRSRV_K = '00000001'X ! Preserve kernel pendingJ PARAMETER PR$M_ASTSR_PRSRV_E = '00000002'X ! Preserve executive pendingK PARAMETER PR$M_ASTSR_PRSRV_S = '00000004'X ! Preserve supervisor pendingE PARAMETER PR$M_ASTSR_PRSRV_U = '00000008'X ! Preserve user pendingF ! -------------------------------------------------------------------% PARAMETER PR$M_FEN_FEN = '00000001'X) PARAMETER PR$M_DATFX_DATFX = '00000001'X% PAR AMETER PR$M_IPL_IPL = '0000001F'X& PARAMETER PR$M_MCES_MCK = '00000001'X& PARAMETER PR$M_MCES_SCE = '00000002'X& PARAMETER PR$M_MCES_PCE = '00000004'X& PARAMETER PR$M_MCES_DPC = '00000008'X& PARAMETER PR$M_MCES_DSC = '00000010'X@ PARAMETER PR$V_PCBB_PA = '00000000'X ! HWPCB Physical Address@ PARAMETER PR$S_PCBB_PA = '00000030'X ! HWPCB Physical AddressF ! -------------------------------------------------------------------# PARAMETER PR$M_PS_SW = '00000003'X' PARAMETER PR$M_PS_PRVMOD = '00000003'X) PARAMETER PR$M_PS_SYSSTATE = '00000004'X' PARAMETER PR$M_PS_CURMOD = '00000018'X$ PARAMETER PR$M_PS_VMM = '00000080'X$ PARAMETER PR$M_PS_IPL = '00001F00'X) PARAMETER PR$M_PS_SP_ALIGN = '00000000'X' PARAMETER PR$M_PS_MBZ_62 = '00000000'X' PARAMETER PR$M_PS_MBZ_63 = '00000000'X/ PARAMETER PR$V_PS_MAX_PS_REG_BIT = '0000000D'X ! 7 PARAMETER PR$C_PS_KERNEL = '00000000'X ! Kernel Mode8 PARAMETER PR$C_PS_EXEC = '00000001'X ! Executive Mode: PARAMETER PR$C_PS_SUPER = '00 000002'X ! Supervisor Mode3 PARAMETER PR$C_PS_USER = '00000003'X ! User ModeF ! -------------------------------------------------------------------& PARAMETER PR$M_PTBR_PFN = 'FFFFFFFF'X& PARAMETER PR$M_SCBB_PFN = 'FFFFFFFF'X& PARAMETER PR$M_SIRR_LVL = '0000000F'X* PARAMETER PR$M_SISR_SUMMARY = '0000FFFF'X& PARAMETER PR$M_SISR_RAZ = '00000001'X& PARAMETER PR$M_SISR_IR1 = '00000002'X& PARAMETER PR$M_SISR_IR2 = '00000004'X& PARAMETER PR$M_SISR_IR3 = '00000008'X& PARAMETER PR$M_SISR_IR4 = '00000010'X& PARAMETER PR$M_SISR_IR5 = '00000020'X& PARAMETER PR$M_SISR_IR6 = '00000040'X& PARAMETER PR$M_SISR_IR7 = '00000080'X& PARAMETER PR$M_SISR_IR8 = '00000100'X& PARAMETER PR$M_SISR_IR9 = '00000200'X' PARAMETER PR$M_SISR_IR10 = '00000400'X' PARAMETER PR$M_SISR_IR11 = '00000800'X' PARAMETER PR$M_SISR_IR12 = '00001000'X' PARAMETER PR$M_SISR_IR13 = '00002000'X' PARAMETER PR$M_SISR_IR14 = '00004000'X' PARAMETER PR$M_SISR_IR15 = '00008000'X. PARAMETER PR$M_TBCHK_VA_PRESENT = '0000 0001'X' PARAMETER PR$M_IEEE_DNOD = '00000000'X& PARAMETER PR$M_IEEE_DNZ = '00000000'X' PARAMETER PR$M_IEEE_INVD = '00000000'X' PARAMETER PR$M_IEEE_DZED = '00000000'X' PARAMETER PR$M_IEEE_OVFD = '00000000'X& PARAMETER PR$M_IEEE_INV = '00000000'X& PARAMETER PR$M_IEEE_DZE = '00000000'X& PARAMETER PR$M_IEEE_OVF = '00000000'X& PARAMETER PR$M_IEEE_UNF = '00000000'X& PARAMETER PR$M_IEEE_INE = '00000000'X& PARAMETER PR$M_IEEE_IOV = '00000000'X' PARAMETER PR$M_IEEE_UNDZ = '00000000'X' PARAMET ER PR$M_IEEE_UNFD = '00000000'X' PARAMETER PR$M_IEEE_INED = '00000000'X* PARAMETER PR$M_IEEE_SUMMARY = '00000000'X STRUCTURE /PRDEF/ UNION MAPH INTEGER*4 PR$Q_QUAD_ACCESS(2) ! Access to register as a quadword END MAP MAPJ INTEGER*4 PR$L_LONG_ACCESS(1:2) ! Access to register as a quadword END MAP MAP# PARAMETER PR$S_SID_SN = 12< PARAMETER PR$V_SID_SN = 0 ! SERIAL NUMBER FIELD " PARAMETER PR$S_SID_PL = 32 PARAM ETER PR$V_SID_PL = 12 ! PLANT ID # PARAMETER PR$S_SID_ECO = 94 PARAMETER PR$V_SID_ECO = 15 ! ECO LEVEL $ PARAMETER PR$S_SID_TYPE = 8% PARAMETER PR$V_SID_TYPE = 24- BYTE %FILL (4) ! CPU TYPE CODE END MAP MAP% PARAMETER PR$S_XSID_TYPE = 8& PARAMETER PR$V_XSID_TYPE = 240 BYTE %FILL (1) ! CPU SUBTYPE CODE END MAP! ! SYSTEM ID REGISTER CPU TYPES  ! Number assignments are ! based upon the jumpers ! read by the console from ! the MPS backplane ! ASTEN - AST Enabled Register ! L ! NOTE WELL: These bit symbols are to be used only when interfacing to theC ! ASTEN internal processor register. They are NOT to be used whenD ! interfacing to the copy of ASTEN which is stored in the HardwareD ! Privileged Context Block (HWPCB). See the HWPCB-specific symbols5 ! for how to refer to the ASTEN field in the HWPCB. !  MAP UNION MAP! PARAMET ER PR$S_ASTEN = 4! PARAMETER PR$V_ASTEN = 0/ BYTE %FILL (1) ! Enabled AST mask END MAP MAP) PARAMETER PR$S_ASTEN_KEN = 1A PARAMETER PR$V_ASTEN_KEN = 0 ! Kernel AST Enabled) PARAMETER PR$S_ASTEN_EEN = 1D PARAMETER PR$V_ASTEN_EEN = 1 ! Executive AST Enabled) PARAMETER PR$S_ASTEN_SEN = 1E PARAMETER PR$V_ASTEN_SEN = 2 ! Supervisor AST Enabled) PARAMETER PR$ S_ASTEN_UEN = 1? PARAMETER PR$V_ASTEN_UEN = 3 ! User AST Enabled BYTE %FILL (1) END MAP END UNION END MAP ! ASTSR - AST Summary Register ! L ! NOTE WELL: These bit symbols are to be used only when interfacing to theC ! ASTSR internal processor register. They are NOT to be used whenD ! interfacing to the copy of ASTSR which is stored in the HardwareD ! Privileged Context Block (HWPCB). See the HWPCB-specific symbols5 ! for how to refer to the ASTSR field in the HWPCB. !  MAP UNION MAP! PARAMETER PR$S_ASTSR = 4! PARAMETER PR$V_ASTSR = 07 BYTE %FILL (1) ! AST pending summary mask END MAP MAP) PARAMETER PR$S_ASTSR_KPD = 1A PARAMETER PR$V_ASTSR_KPD = 0 ! Kernel AST Pending) PARAMETER PR$S_ASTSR_EPD = 1D PARAMETER PR$V_ASTSR_EPD = 1 ! Executive AST Pending) PARAMETER PR$S_ASTSR_SPD = 1E PARAMETER PR$V_ASTSR_SPD = 2 ! Supervisor AST Pending) PARAMETER PR$S_ASTSR_UPD = 1? PARAMETER PR$V_ASTSR_UPD = 3 ! User AST Pending BYTE %FILL (1) END MAP END UNION END MAP ! FEN - Floating Point Enable ! L ! NOTE WELL: These bit symbols are to be used only when interfacing to theA ! FEN internal processor register. They are NOT to be used whenB ! interfacing to the copy of FEN which is stored in the Ha rdwareD ! Privileged Context Block (HWPCB). See the HWPCB-specific symbols3 ! for how to refer to the FEN field in the HWPCB. !  MAP PARAMETER PR$S_FEN_FEN = 1? PARAMETER PR$V_FEN_FEN = 0 ! Floating point enabled = 1 BYTE %FILL (1) END MAPF ! -------------------------------------------------------------------% ! DATFX - Data Alignment Trap Fixup !  MAP# PARAMETER PR$S_DATFX_DATFX = 1B PARAMETER PR$V_DATFX_DATFX = 0 ! Data Alignment  Trap Fixup BYTE %FILL (1) END MAPF ! -------------------------------------------------------------------" ! IPL - Interrupt Priority Level !  MAP PARAMETER PR$S_IPL_IPL = 5= PARAMETER PR$V_IPL_IPL = 0 ! Interrupt Priority Level BYTE %FILL (1) END MAPF ! -------------------------------------------------------------------/ ! MCES - Machine Check Error Summary Register !  MAP$ PARAMETER PR$S_MCES_MCK = 1= PARAMETER PR$V_ MCES_MCK = 0 ! Machine Check (W1C)$ PARAMETER PR$S_MCES_SCE = 1H PARAMETER PR$V_MCES_SCE = 1 ! System Correctable Error (W1C)$ PARAMETER PR$S_MCES_PCE = 1K PARAMETER PR$V_MCES_PCE = 2 ! Processor Correctable Error (W1C)$ PARAMETER PR$S_MCES_DPC = 1T PARAMETER PR$V_MCES_DPC = 3 ! Disable Processor Correctable Error report$ PARAMETER PR$S_MCES_DSC = 1Q PARAMETER PR$V_MCES_DSC = 4 ! Disable System Correctable Error r eport BYTE %FILL (1) END MAPF ! -------------------------------------------------------------------( ! PCBB - Privileged Context Block Base !  ! PS - Processor Status ! F ! The PS is not an IPR in the sense that it isn't read/written usingD ! the MxPR operators. However, the bitfields of the PS are definedH ! here since this is the repository for bitfields of architected IPRs,. ! hence it's convenient to define them here. ! G ! Although the 'software' field of t he PS is not privileged state andD ! may be used by users as they see fit in User mode, VMS imposes aG ! privileged interpretation on the bits when used in any of the threeD ! inner processor modes (Kernel, Executive, Supervisor). There are ! consequences of this: ! A ! 1) Should User mode code be using the software field bits, it8 ! must be assumed that the User mode setting of these6 ! bits are entirely ignored by inner mode software. ! ? ! 2) VMS reserves the right to r edefine its privileged (inner4 ! mode) interpretation of these bits at any time. !  MAP! PARAMETER PR$S_PS_SW = 24 PARAMETER PR$V_PS_SW = 0 ! Software Bits BYTE %FILL (1) END MAP MAP% PARAMETER PR$S_PS_PRVMOD = 2B PARAMETER PR$V_PS_PRVMOD = 0 ! Previous Processor Mode' PARAMETER PR$S_PS_SYSSTATE = 1C PARAMETER PR$V_PS_SYSSTATE = 2 ! System State Indicator% PARAMETER PR$S_PS_CURMOD = 2A PARAMETER PR$V_PS_CURMOD = 3 ! Current Processor Mode" PARAMETER PR$S_PS_VMM = 1? PARAMETER PR$V_PS_VMM = 7 ! Virtual Machine Monitor" PARAMETER PR$S_PS_IPL = 5@ PARAMETER PR$V_PS_IPL = 8 ! Interrupt Priority Level' PARAMETER PR$S_PS_SP_ALIGN = 6E PARAMETER PR$V_PS_SP_ALIGN = 56 ! Stack Pointer Alignment% PARAMETER PR$S_PS_MBZ_62 = 1K PARAMETER PR$V_PS_MBZ_62 = 62 ! Reserved bit above SP alignment% P ARAMETER PR$S_PS_MBZ_63 = 1& PARAMETER PR$V_PS_MBZ_63 = 63> BYTE %FILL (3) ! Reserved bit above SP alignment END MAP ! / ! Maximum bit number used in the PS register !  ! MODE SYMBOL DEFINITIONS ! # ! PTBR - Page Table Base Register !  MAP! PARAMETER PR$S_PTBR_PFN = 329 PARAMETER PR$V_PTBR_PFN = 0 ! PFN of current L1PT BYTE %FILL (4) END MAPF ! -------------------------------------------------------------------$ ! SCBB - System Control Block Base !  MAP! PARAMETER PR$S_SCBB_PFN = 320 PARAMETER PR$V_SCBB_PFN = 0 ! PFN of SCB BYTE %FILL (4) END MAPF ! -------------------------------------------------------------------. ! SIRR - Software Interrupt Request Register !  MAP PARAMETER PR$S_SIRR_LVL = 4F PARAMETER PR$V_SIRR_LVL = 0 ! Software Interrupt Request Level BYTE %FILL (1) END MAPF ! --------------------------------------------------- ----------------. ! SISR - Software Interrupt Summary Register !  MAP UNION MAP) PARAMETER PR$S_SISR_SUMMARY = 16( PARAMETER PR$V_SISR_SUMMARY = 08 BYTE %FILL (2) ! Sofware Interrupt Summary END MAP MAP( PARAMETER PR$S_SISR_IR1 = 1? PARAMETER PR$V_SISR_IR1 = 1 ! Softint 1 pending( PARAMETER PR$S_SISR_IR2 = 1? PARAMETER PR$V_SISR_IR2 = 2 ! Softint 2 pending(  PARAMETER PR$S_SISR_IR3 = 1? PARAMETER PR$V_SISR_IR3 = 3 ! Softint 3 pending( PARAMETER PR$S_SISR_IR4 = 1? PARAMETER PR$V_SISR_IR4 = 4 ! Softint 4 pending( PARAMETER PR$S_SISR_IR5 = 1? PARAMETER PR$V_SISR_IR5 = 5 ! Softint 5 pending( PARAMETER PR$S_SISR_IR6 = 1? PARAMETER PR$V_SISR_IR6 = 6 ! Softint 6 pending( PARAMETER PR$S_SISR_IR7 = 1? PARAMETER PR$V_SISR_IR7 =  7 ! Softint 7 pending( PARAMETER PR$S_SISR_IR8 = 1? PARAMETER PR$V_SISR_IR8 = 8 ! Softint 8 pending( PARAMETER PR$S_SISR_IR9 = 1? PARAMETER PR$V_SISR_IR9 = 9 ! Softint 9 pending) PARAMETER PR$S_SISR_IR10 = 1B PARAMETER PR$V_SISR_IR10 = 10 ! Softint 10 pending) PARAMETER PR$S_SISR_IR11 = 1B PARAMETER PR$V_SISR_IR11 = 11 ! Softint 11 pending) PARAMETER PR$S_SISR_IR12  = 1B PARAMETER PR$V_SISR_IR12 = 12 ! Softint 12 pending) PARAMETER PR$S_SISR_IR13 = 1B PARAMETER PR$V_SISR_IR13 = 13 ! Softint 13 pending) PARAMETER PR$S_SISR_IR14 = 1B PARAMETER PR$V_SISR_IR14 = 14 ! Softint 14 pending) PARAMETER PR$S_SISR_IR15 = 1* PARAMETER PR$V_SISR_IR15 = 155 BYTE %FILL (2) ! Softint 15 pending END MAP END UNION END MAPF ! -------------  ------------------------------------------------------$ ! TBCHK - Translation Buffer Check ! H ! This IPR may always be referenced with MFPR without causing an errorG ! to occur (unlike VAX), but the feature provided by TBCHK may or mayN ! not be implemented. If not, then =1 and ? ! should be ignored. If TBCHK's function IS implemented, thenG ! =0 and returns the desired data. !  MAP, PARAMETER PR$  S_TBCHK_VA_PRESENT = 1= PARAMETER PR$V_TBCHK_VA_PRESENT = 0 ! VA in TB = 1* PARAMETER PR$S_TBCHK_NO_TBCHK = 1+ PARAMETER PR$V_TBCHK_NO_TBCHK = 632 BYTE %FILL (1) ! Not implemented = 1 END MAPF ! -------------------------------------------------------------------* ! FPCR - Floating Point Control Register ! L ! NOTE WELL: These bit symbols are to be used only when interfacing to theK ! hardware FPCR internal processor register. They are NOT to be used whenJ ! interfacing to the software floating point control register pointed to6 ! by CTL$GQ_IEEE_FP_CONTROL/PKTA$Q_IEEE_FP_CONTROL. ! I ! The hardware FPCR should only be manipulated via the system service, . ! SYS$IEEE_FP_CONTROL, rather than directly. !  MAP% PARAMETER PR$S_IEEE_DNOD = 1N PARAMETER PR$V_IEEE_DNOD = 47 ! Denormal operand exception disable$ PARAMETER PR$S_IEEE_DNZ = 1C PARAMETER PR$V_IEEE_DNZ = 48 ! Denormal op erands to 0.0% PARAMETER PR$S_IEEE_INVD = 1E PARAMETER PR$V_IEEE_INVD = 49 ! Invalid operation disable% PARAMETER PR$S_IEEE_DZED = 1D PARAMETER PR$V_IEEE_DZED = 50 ! Division by zero disable% PARAMETER PR$S_IEEE_OVFD = 1< PARAMETER PR$V_IEEE_OVFD = 51 ! Overflow disable$ PARAMETER PR$S_IEEE_INV = 1= PARAMETER PR$V_IEEE_INV = 52 ! Invalid operation.$ PARAMETER PR$S_IEEE_DZE = 1D PARAMETER PR$V_IE EE_DZE = 53 ! Division by zero occured.$ PARAMETER PR$S_IEEE_OVF = 1< PARAMETER PR$V_IEEE_OVF = 54 ! Overflow occured.$ PARAMETER PR$S_IEEE_UNF = 1= PARAMETER PR$V_IEEE_UNF = 55 ! Underflow occured.$ PARAMETER PR$S_IEEE_INE = 1B PARAMETER PR$V_IEEE_INE = 56 ! Inexact result occured.$ PARAMETER PR$S_IEEE_IOV = 1C PARAMETER PR$V_IEEE_IOV = 57 ! Integer overflow occured( PARAMETER PR$S_IEEE_DYN_RND = 2C PARAMETER PR$V_IEEE_DYN_RND = 58 ! Dynamic Rounding mode% PARAMETER PR$S_IEEE_UNDZ = 1= PARAMETER PR$V_IEEE_UNDZ = 60 ! Underflow to zero% PARAMETER PR$S_IEEE_UNFD = 1= PARAMETER PR$V_IEEE_UNFD = 61 ! Underflow disable% PARAMETER PR$S_IEEE_INED = 1; PARAMETER PR$V_IEEE_INED = 62 ! Inexact disable( PARAMETER PR$S_IEEE_SUMMARY = 1) PARAMETER PR$V_IEEE_SUMMARY = 63@ BYTE %FILL (3) ! Bitwise OR of FPCR exception bits END MAP END UNION END STRUCTURE ! PRDEF!DEC$ END OPTIONS wwNΦ!*** MODULE $PRODEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 4 ! GSD entry - Procedure definition, normal symbols ! # PARAMETER PRO$K_NAME = '0000000C'X# PARAMETER PRO$C_NAME = '0000000C'X STRUCTURE /PRODEF/ UNION MAP< BYTE PRO$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP7 ! u  nsupported type CHARACTER*0 PRO$T_START BYTE %FILL END MAP END UNION6 BYTE PRO$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 PRO$W_FLAGS ! Maps over GSY$W_FLAGS 8 BYTE PRO$B_PSINDX ! Maps over SDF$B_PSINDX K INTEGER*4 PRO$L_ADDRS ! Entry point address, maps over SDF$L_VALUE 0 INTEGER*2 PRO$W_MASK ! Entry point mask 0 BYTE PRO$B_NAMLNG ! Length of name . CHARACTER*31 PRO$T_NAME ! Symbol name  END STRUCTURE ! PRODEF!DEC$ END OPTIONS wwΦ!*** MODULE $PROMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! : ! GSD entry - Procedure definition, version mask symbols ! $ PARAMETER PROM$K_NAME = '00000010'X$ PARAMETER PROM$C_NAME = '00000010'X STRUCTURE /PROMDEF/ UNION MAP= BYTE PROM$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 PROM$T_START  BYTE %FILL END MAP END UNION7 BYTE PROM$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 PROM$W_FLAGS ! Maps over GSY$W_FLAGS 9 BYTE PROM$B_PSINDX ! Maps over SDF$B_PSINDX L INTEGER*4 PROM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE < INTEGER*4 PROM$L_VERSION_MASK ! Mask value for symbol1 INTEGER*2 PROM$W_MASK ! Entry point mask 1 BYTE PROM$B_NAMLNG ! Length of name . CHARACTER*31 PROM $T_NAME ! Symbol name  END STRUCTURE ! PROMDEF!DEC$ END OPTIONS ww`Φ!*** MODULE $PROVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 6 ! GSD entry - Procedure definition, vectored symbols ! $ PARAMETER PROV$K_NAME = '00000010'X$ PARAMETER PROV$C_NAME = '00000010'X STRUCTURE /PROVDEF/ UNION MAP= BYTE PROV$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type  CHARACTER*0 PROV$T_START BYTE %FILL END MAP END UNION7 BYTE PROV$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 PROV$W_FLAGS ! Maps over GSY$W_FLAGS 9 BYTE PROV$B_PSINDX ! Maps over SDF$B_PSINDX L INTEGER*4 PROV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE > INTEGER*4 PROV$L_VECTOR ! Vectored entry point address1 INTEGER*2 PROV$W_MASK ! Entry point mask 1 BYTE PROV$B_NAMLNG ! Length of na me . CHARACTER*31 PROV$T_NAME ! Symbol name  END STRUCTURE ! PROVDEF!DEC$ END OPTIONS ww Φ!*** MODULE $PROWDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! = ! GSD entry - Procedure definition with word of psect value ! $ PARAMETER PROW$K_NAME = '0000000D'X$ PARAMETER PROW$C_NAME = '0000000D'X STRUCTURE /PROWDEF/ UNION MAP= BYTE PROW$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP M  AP8 ! unsupported type CHARACTER*0 PROW$T_START BYTE %FILL END MAP END UNION7 BYTE PROW$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 PROW$W_FLAGS ! Maps over GSY$W_FLAGS : INTEGER*2 PROW$W_PSINDX ! Maps over SDFW$W_PSINDX M INTEGER*4 PROW$L_ADDRS ! Entry point address, maps over SDFW$L_VALUE 1 INTEGER*2 PROW$W_MASK ! Entry point mask 1 BYTE PROW$B_NAMLNG ! Length of name . CHARACTER*31 PR OW$T_NAME ! Symbol name  END STRUCTURE ! PROWDEF!DEC$ END OPTIONS wwߜΦ!*** MODULE $PRTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! Protection field definitions ! -/ PARAMETER PRT$C_NA = '00000000'X ! No Access6 PARAMETER PRT$C_KR = '00000003'X ! Kernel Read only2 PARAMETER PRT$C_KW = '00000002'X ! Kernel Write4 PARAMETER PRT$C_ER = '00000007'X ! Exec Read only0 PARAMETER PRT$C_EW = '00000005'X ! Exec Write5 PARAMETER  PRT$C_SR = '0000000B'X ! Super Read only1 PARAMETER PRT$C_SW = '00000008'X ! Super Write4 PARAMETER PRT$C_UR = '0000000F'X ! User Read only0 PARAMETER PRT$C_UW = '00000004'X ! User Write> PARAMETER PRT$C_ERKW = '00000006'X ! Exec Read Kernel Write? PARAMETER PRT$C_SRKW = '0000000A'X ! Super Read Kernel Write= PARAMETER PRT$C_SREW = '00000009'X ! Super Read Exec Write> PARAMETER PRT$C_URKW = '0000000E'X ! User Read Kernel Write< PARAMETER PRT$C_UREW = '0000000D'X ! User R  ead Exec Write= PARAMETER PRT$C_URSW = '0000000C'X ! User Read Super Write4 PARAMETER PRT$C_RESERVED = '00000001'X ! Reserved ! 5 ! These protections are not VAX / Alpha compatible: ! 7 PARAMETER PRT$C_KRO = '00000010'X ! Kernel Read Only5 PARAMETER PRT$C_ERO = '00000011'X ! Exec Read Only6 PARAMETER PRT$C_SRO = '00000012'X ! Super Read Only5 PARAMETER PRT$C_URO = '00000013'X ! User Read Only< PARAMETER PRT$C_KWX = '00000014'X ! Kernel Write+Execute : PARAMETER PRT$C  _EWX = '00000015'X ! Exec Write+Execute ; PARAMETER PRT$C_SWX = '00000016'X ! Super Write+Execute : PARAMETER PRT$C_UWX = '00000017'X ! User Write+Execute C PARAMETER PRT$C_KPX = '00000018'X ! Kernel promote, execute onlyA PARAMETER PRT$C_EPX = '00000019'X ! Exec promote, execute onlyB PARAMETER PRT$C_SPX = '0000001A'X ! Super promote, execute only7 PARAMETER PRT$C_UX = '0000001B'X ! User execute only!DEC$ END OPTIONS wwߜΦ!*** MODULE $PRVDEF ***:!D EC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! PRIVILEGE BIT DEFINITIONS ! % PARAMETER PRV$M_CMKRNL = '00000001'X% PARAMETER PRV$M_CMEXEC = '00000002'X% PARAMETER PRV$M_SYSNAM = '00000004'X% PARAMETER PRV$M_GRPNAM = '00000008'X' PARAMETER PRV$M_ALLSPOOL = '00000010'X* PARAMETER PRV$M_IMPERSONATE = '00000020'X' PARAMETER PRV$M_DIAGNOSE = '00000040'X% PARAMETER PRV$M_LOG_IO = '00000080'X$ PARAMETER PRV$M_GROUP = '00000100'X% PARAMETER PRV$M_NOACNT = '00000200'X  % PARAMETER PRV$M_PRMCEB = '00000400'X% PARAMETER PRV$M_PRMMBX = '00000800'X% PARAMETER PRV$M_PSWAPM = '00001000'X% PARAMETER PRV$M_SETPRI = '00002000'X% PARAMETER PRV$M_SETPRV = '00004000'X% PARAMETER PRV$M_TMPMBX = '00008000'X$ PARAMETER PRV$M_WORLD = '00010000'X$ PARAMETER PRV$M_MOUNT = '00020000'X# PARAMETER PRV$M_OPER = '00040000'X& PARAMETER PRV$M_EXQUOTA = '00080000'X% PARAMETER PRV$M_NETMBX = '00100000'X% PARAMETER PRV$M_VOLPRO = '00200000'X% PARAMETER PRV$M_PHY_IO = '004 00000'X% PARAMETER PRV$M_BUGCHK = '00800000'X% PARAMETER PRV$M_PRMGBL = '01000000'X% PARAMETER PRV$M_SYSGBL = '02000000'X% PARAMETER PRV$M_PFNMAP = '04000000'X$ PARAMETER PRV$M_SHMEM = '08000000'X% PARAMETER PRV$M_SYSPRV = '10000000'X% PARAMETER PRV$M_BYPASS = '20000000'X% PARAMETER PRV$M_SYSLCK = '40000000'X$ PARAMETER PRV$M_SHARE = '80000000'X& PARAMETER PRV$M_UPGRADE = '00000000'X( PARAMETER PRV$M_DOWNGRADE = '00000000'X% PARAMETER PRV$M_GRPPRV = '00000000'X& PARAMETER PRV$M_R EADALL = '00000000'X% PARAMETER PRV$M_IMPORT = '00000000'X$ PARAMETER PRV$M_AUDIT = '00000000'X' PARAMETER PRV$M_SECURITY = '00000000'XR PARAMETER PRV$K_NUMBER_OF_PRIVS = '00000027'X ! Total number of privilege bits.# PARAMETER PRV$M_ACNT = '00000200'X% PARAMETER PRV$M_ALTPRI = '00002000'X% PARAMETER PRV$M_DETACH = '00000020'X STRUCTURE /PRVDEF/ UNION MAP# PARAMETER PRV$S_CMKRNL = 1C PARAMETER PRV$V_CMKRNL = 0 ! MAY CHANGE MODE TO KERNEL # PARAM  ETER PRV$S_CMEXEC = 1A PARAMETER PRV$V_CMEXEC = 1 ! MAY CHANGE MODE TO EXEC # PARAMETER PRV$S_SYSNAM = 1Q PARAMETER PRV$V_SYSNAM = 2 ! MAY INSERT IN SYSTEM LOGICAL NAME TABLE # PARAMETER PRV$S_GRPNAM = 1P PARAMETER PRV$V_GRPNAM = 3 ! MAY INSERT IN GROUP LOGICAL NAME TABLE % PARAMETER PRV$S_ALLSPOOL = 1G PARAMETER PRV$V_ALLSPOOL = 4 ! MAY ALLOCATE SPOOLED DEVICE ( PARAMETER PRV$S_IMPERSONATE = 1T PARAMET  ER PRV$V_IMPERSONATE = 5 ! Replacement name for DETACH (synonyms)% PARAMETER PRV$S_DIAGNOSE = 1@ PARAMETER PRV$V_DIAGNOSE = 6 ! MAY DIAGNOSE DEVICES # PARAMETER PRV$S_LOG_IO = 1< PARAMETER PRV$V_LOG_IO = 7 ! MAY DO LOGICAL I/O " PARAMETER PRV$S_GROUP = 1Q PARAMETER PRV$V_GROUP = 8 ! MAY AFFECT OTHER PROCESSES IN SAME GROUP # PARAMETER PRV$S_NOACNT = 1I PARAMETER PRV$V_NOACNT = 9 ! MAY SUPPRESS ACCOUNTING MESSAGE  # PARAMETER PRV$S_PRMCEB = 1U PARAMETER PRV$V_PRMCEB = 10 ! MAY CREATE PERMANENT COMMON EVENT CLUSTERS # PARAMETER PRV$S_PRMMBX = 1G PARAMETER PRV$V_PRMMBX = 11 ! MAY CREATE PERMANENT MAILBOX # PARAMETER PRV$S_PSWAPM = 1G PARAMETER PRV$V_PSWAPM = 12 ! MAY CHANGE PROCESS SWAP MODE # PARAMETER PRV$S_SETPRI = 1E PARAMETER PRV$V_SETPRI = 13 ! MAY SET ANY PRIORITY VALUE # PARAMETER PRV$S_SETPRV = 1C PARAMETER PRV$V_SETPRV = 14 ! MAY SET ANY PRIVILEGE BIT# PARAMETER PRV$S_TMPMBX = 1G PARAMETER PRV$V_TMPMBX = 15 ! MAY CREATE TEMPORARY MAILBOX " PARAMETER PRV$S_WORLD = 1Q PARAMETER PRV$V_WORLD = 16 ! MAY AFFECT OTHER PROCESSES IN THE WORLD " PARAMETER PRV$S_MOUNT = 1I PARAMETER PRV$V_MOUNT = 17 ! MAY EXECUTE MOUNT ACP FUNCTIONS ! PARAMETER PRV$S_OPER = 1; PARAMETER PRV$V_OPER = 18 ! OPERATOR PRIVILEGE ! $ PARAMETER PRV$S_EXQUOTA = 1= PARAMETER PRV$V_EXQUOTA = 19 ! MAY EXCEED QUOTAS # PARAMETER PRV$S_NETMBX = 1D PARAMETER PRV$V_NETMBX = 20 ! MAY CREATE NETWORK DEVICE # PARAMETER PRV$S_VOLPRO = 1I PARAMETER PRV$V_VOLPRO = 21 ! MAY OVERRIDE VOLUME PROTECTION # PARAMETER PRV$S_PHY_IO = 1> PARAMETER PRV$V_PHY_IO = 22 ! MAY DO PHYSICAL I/O # PARAMETER PRV$S_BUGCHK = 1O PARAMETER PRV$V_BUGCHK = 23 ! " MAY MAKE BUG CHECK ERROR LOG ENTRIES # PARAMETER PRV$S_PRMGBL = 1O PARAMETER PRV$V_PRMGBL = 24 ! MAY CREATE PERMANENT GLOBAL SECTIONS # PARAMETER PRV$S_SYSGBL = 1Q PARAMETER PRV$V_SYSGBL = 25 ! MAY CREATE SYSTEM WIDE GLOBAL SECTIONS # PARAMETER PRV$S_PFNMAP = 1D PARAMETER PRV$V_PFNMAP = 26 ! MAY MAP TO SECTION BY PFN " PARAMETER PRV$S_SHMEM = 1R PARAMETER PRV$V_SHMEM = 27 ! MAY ALLOCATE STRUCTURES IN SHARED MEM # ORY # PARAMETER PRV$S_SYSPRV = 1O PARAMETER PRV$V_SYSPRV = 28 ! ELIGIBLE FOR SYSTEM PROTECTION FIELD # PARAMETER PRV$S_BYPASS = 1J PARAMETER PRV$V_BYPASS = 29 ! MAY BYPASS UIC BASED PROTECTION # PARAMETER PRV$S_SYSLCK = 1G PARAMETER PRV$V_SYSLCK = 30 ! MAY CREATE SYSTEM WIDE LOCKS " PARAMETER PRV$S_SHARE = 1P PARAMETER PRV$V_SHARE = 31 ! MAY ASSIGN CHANNEL TO NON-SHARED DEVICE$ PARAMETER PRV$S_UPGRADE = 1 $ G PARAMETER PRV$V_UPGRADE = 32 ! May upgrade object integrity& PARAMETER PRV$S_DOWNGRADE = 1I PARAMETER PRV$V_DOWNGRADE = 33 ! May downgrade object secrecy# PARAMETER PRV$S_GRPPRV = 1^ PARAMETER PRV$V_GRPPRV = 34 ! May access group objects via system protection field$ PARAMETER PRV$S_READALL = 1> PARAMETER PRV$V_READALL = 35 ! May read any object# PARAMETER PRV$S_IMPORT = 1U PARAMETER PRV$V_IMPORT = 36 ! % May set classification for unlabeled object" PARAMETER PRV$S_AUDIT = 1V PARAMETER PRV$V_AUDIT = 37 ! May direct audit to system security audit log% PARAMETER PRV$S_SECURITY = 1J PARAMETER PRV$V_SECURITY = 38 ! May perform security functions2 ! XXXXXX bitfield mask; /* Reserved for SEVMS BYTE %FILL (5) END MAP MAP! PARAMETER PRV$S_ACNT = 1Q PARAMETER PRV$V_ACNT = 9 ! MAY SUPPRESS ACCOUNTING MESSAGES (NOACNT) #& PARAMETER PRV$S_ALTPRI = 1M PARAMETER PRV$V_ALTPRI = 13 ! MAY SET ANY PRIORITY VALE (SETPRI)  BYTE %FILL (1) END MAP MAP= INTEGER*4 PRV$L_L1_BITS ! Bits in first longword> INTEGER*4 PRV$L_L2_BITS ! Bits in second longword END MAP MAP# PARAMETER PRV$S_DETACH = 1G PARAMETER PRV$V_DETACH = 5 ! MAY CREATE DETACHED PROCESSES  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PRVDEF% PAR ' AMETER PRV$M_SORTED = '00000001'X$ PARAMETER PRV$M_BRIEF = '00000002'X% PARAMETER PRV$M_FILLED = '00000004'X STRUCTURE /PRVDSP_BITS/ PARAMETER PRV$S_SORTED = 18 PARAMETER PRV$V_SORTED = 0 ! sort privilege list PARAMETER PRV$S_BRIEF = 1@ PARAMETER PRV$V_BRIEF = 1 ! display only privilege names PARAMETER PRV$S_FILLED = 1= PARAMETER PRV$V_FILLED = 2 ! display names in columns BYTE %FILL (1) END STRUCTURE ! PRVDSP_BITS[ PARAMETER PRV$K_PRVMASK_WORKI ( NG = '00000000'X ! Working (Temporary) privs to be modifiedS PARAMETER PRV$K_PRVMASK_PERMANENT = '00000001'X ! Permanent privs to be modifiedO PARAMETER PRV$K_PRVMASK_IMAGE = '00000002'X ! Image privs to be modified!DEC$ END OPTIONS ww@;Φ!!*** MODULE $PRXDEF IDENT X-9 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN" PARAMETER PRX$K_ADD = '00000001'X% PARAMETER PRX$K_DELETE = '00000002'X# PARAMETER PRX$K_SHOW = '00000003'X% PARAMETER PRX$K) _VERIFY = '00000004'X* PARAMETER PRX$K_PERFORMANCE = '00000005'X/ PARAMETER PRX$K_ZERO_PERFORMANCE = '00000006'X% PARAMETER PRX$K_CREATE = '00000007'X# PARAMETER PRX$K_STOP = '00000008'X$ PARAMETER PRX$K_START = '00000009'X- PARAMETER PRX$K_MAX_PROXY_CODE = '0000000A'X1 PARAMETER PRX$K_PERFORMANCE_LENGTH = '00000030'X STRUCTURE /PRX$PERFORMANCE/# INTEGER*4 PRX$L_TOTAL_MESSAGES% INTEGER*4 PRX$L_TOTAL_EXCEPTIONS INTEGER*4 PRX$L_SHOWS INTEGER*4 PRX$L_ADDS INT* EGER*4 PRX$L_DELETES INTEGER*4 PRX$L_VERIFYS INTEGER*4 PRX$L_PERFORMANCE INTEGER*4 PRX$L_CREATES INTEGER*4 PRX$L_STOPS INTEGER*4 PRX$L_STARTS INTEGER*4 PRX$L_AUDITS% INTEGER*4 PRX$L_INVALID_MESSAGES END STRUCTURE ! PRX$PERFORMANCE, PARAMETER PRX$M_IGNORE_RETURN = '00000001'X, PARAMETER PRX$M_BYPASS_EXPAND = '00000002'X( PARAMETER PRX$M_RESERVE_1 = '000000FC'X& PARAMETER PRX$M_DEFAULT = '00000100'X$ PARAMETER PRX$M_EXACT = '00000200'X- PARAMETER PRX$M+ _DELETE_ALLOWED = '00000400'X% PARAMETER PRX$M_FILL_1 = 'FFFFF800'X, PARAMETER PRX$K_HEADER_LENGTH = '00000008'X STRUCTURE /PRX$HEADER/ INTEGER*4 PRX$L_CONTEXT UNION MAP INTEGER*4 PRX$L_FLAGS END MAP MAP. PARAMETER PRX$S_IGNORE_RETURN = 1. PARAMETER PRX$V_IGNORE_RETURN = 0. PARAMETER PRX$S_BYPASS_EXPAND = 1. PARAMETER PRX$V_BYPASS_EXPAND = 1( PARAMETER PRX$S_DEFAULT = 1( , PARAMETER PRX$V_DEFAULT = 8& PARAMETER PRX$S_EXACT = 1& PARAMETER PRX$V_EXACT = 9/ PARAMETER PRX$S_DELETE_ALLOWED = 10 PARAMETER PRX$V_DELETE_ALLOWED = 10( PARAMETER PRX$S_FILL_1 = 21( PARAMETER PRX$V_FILL_1 = 11 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! PRX$HEADER STRUCTURE /PRX$GENERIC_DESC1/ INTEGER*2 PRX$W_DESC_LENGTH INTEGER*2 %FILL CHARACTER*1 PRX$T_DES- C_DATA" END STRUCTURE ! PRX$GENERIC_DESC1/ PARAMETER PRX$K_USER_NAME_LENGTH = '00000020'X6 PARAMETER PRX$K_REMOTE_NODE_NAME_LENGTH = '00000400'X. PARAMETER PRX$K_MAX_LOCAL_USERS = '00000010'X/ PARAMETER PRX$K_LOCAL_USER_ENTRY = '00000024'X STRUCTURE /DATA/& INTEGER*2 PRX$W_LOCAL_USER_LENGTH INTEGER*2 %FILL' CHARACTER*32 PRX$T_LOCAL_USER_NAME' INTEGER*2 PRX$W_REMOTE_USER_LENGTH INTEGER*2 %FILL( CHARACTER*32 PRX$T_REMOTE_USER_NAME' INTEGER*2 PRX$W_REMOTE_ . NODE_LENGTH INTEGER*2 %FILL* CHARACTER*1024 PRX$T_REMOTE_NODE_NAME END STRUCTURE ! DATA* PARAMETER PRX$K_DATA_LENGTH = '0000044C'X STRUCTURE /BUFSIZ_SUMMARY/7 INTEGER*2 PRX$W_BUFSIZ_USER ! proxy user length7 INTEGER*2 PRX$W_BUFSIZ_NODE ! proxy node lengthA INTEGER*2 PRX$W_BUFSIZ_LOCAL_COUNT ! number of local users@ INTEGER*2 PRX$W_BUFSIZ_DEF_USER ! length of default user END STRUCTURE ! BUFSIZ_SUMMARY( PARAMETER PRX$K_MAX_REPLY = '0000069C'X S/ TRUCTURE /REPLY_UNION/ UNION MAP< INTEGER*4 PRX$L_REPLY_STATUS ! status of request END MAP MAP0 INTEGER*4 %FILL ! space for STATUSB INTEGER*2 PRX$W_VALID_USER ! length of proxy user_name INTEGER*2 %FILL? CHARACTER*1 PRX$T_VALID_USER(1:32) ! proxy usernname END MAP MAP0 INTEGER*4 %FILL ! space for STATUS; INTEGER*4 PRX$L_SHOW_CONTEXT ! returned contextG INTEGER*2 PRX$W_SHOW_DE 0 F_USER ! length of default user_name INTEGER*2 %FILLD CHARACTER*1 PRX$T_SHOW_DEF_USER(1:32) ! default user_nameF INTEGER*2 PRX$W_SHOW_REM_USER ! length of remote user_name INTEGER*2 %FILLC CHARACTER*1 PRX$T_SHOW_REM_USER(1:32) ! remote user_nameG INTEGER*2 PRX$W_SHOW_LOCAL_COUNT ! count of local user_namesM INTEGER*2 PRX$W_SHOW_LOCAL_SIZE ! size of local user_name (bytes) INTEGER*4 %FILL END MAP E1 ND UNION END STRUCTURE ! REPLY_UNION) PARAMETER PRX$K_MAX_LENGTH = '00000454'X!DEC$ END OPTIONS wwΦ!*** MODULE $PSCANDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! & ! Process_Scan item code definitions !  ! - ! Item code definitions% PARAMETER pscan$_BEGIN = '00000000'XA PARAMETER pscan$_ACCOUNT = '00000001'X ! Match on account nameH PARAMETER pscan$_AUTHPRI = '00000002'X ! Match on authorized priorityB PARAMETER p2 scan$_CURPRIV = '00000003'X ! Match on current privs: PARAMETER pscan$_GRP = '00000004'X ! Match on GRP fieldG PARAMETER pscan$_HW_MODEL = '00000005'X ! Match on system's HW_MODELE PARAMETER pscan$_HW_NAME = '00000006'X ! Match on system's HW_NAMEK PARAMETER pscan$_JOBPRCCNT = '00000007'X ! Match on job subprocess countJ PARAMETER pscan$_JOBTYPE = '00000008'X ! Match on job origin type fieldM PARAMETER pscan$_MASTER_PID = '00000009'X ! Match on PID of master process: PARAMETER3 pscan$_MEM = '0000000A'X ! Match on MEM field> PARAMETER pscan$_MODE = '0000000B'X ! Match on process modeE PARAMETER pscan$_NODE_CSID = '0000000C'X ! Match on system's CSID G PARAMETER pscan$_NODENAME = '0000000D'X ! Match on system's nodename? PARAMETER pscan$_OWNER = '0000000E'X ! Match on PID of ownerD PARAMETER pscan$_PRCCNT = '0000000F'X ! Match on subprocess count@ PARAMETER pscan$_PRCNAM = '00000010'X ! Match on process nameA PARAMETER pscan$_PRI = '00000011'X ! Matc 4 h on current priority? PARAMETER pscan$_PRIB = '00000012'X ! Match on base priority@ PARAMETER pscan$_STATE = '00000013'X ! Match on process state? PARAMETER pscan$_STS = '00000014'X ! Match on process statusC PARAMETER pscan$_TERMINAL = '00000015'X ! Match on terminal name: PARAMETER pscan$_UIC = '00000016'X ! Match on UIC field> PARAMETER pscan$_USERNAME = '00000017'X ! Match on usernameJ PARAMETER pscan$_GETJPI_BUFFER_SIZE = '00000018'X ! Buffer for blockingE PARAMETER psc 5 an$_PSCAN_CONTROL_FLAGS = '00000019'X ! Control FlagsL PARAMETER pscan$_KT_COUNT = '0000001A'X ! Current count of kernel threadsP PARAMETER pscan$_MULTITHREAD = '0000001B'X ! Maximum number of kernel threads_ PARAMETER pscan$_SCHED_CLASS_NAME = '0000001C'X ! Match on name of process' scheduling class# PARAMETER pscan$_END = '0000001D'X% PARAMETER pscan$k_type = '00000081'X' PARAMETER PSCAN$M_THREAD = '00000001'X STRUCTURE /PSCANCTLDEF/ UNION MAP2 INTEGER*46 %FILL ! Control item flags END MAP MAP) PARAMETER PSCAN$S_THREAD = 1d PARAMETER PSCAN$V_THREAD = 0 ! Return information about each thread for multithreadeC ! Return information about each thread for multithreaded proc BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PSCANCTLDEF# PARAMETER pscan$M_OR = '00000001'X( PARAMETER pscan$M_BIT_ALL = '00000002'X( PARAMETER pscan$M_BIT_ANY = '00000004'X$ PARAMETER p 7 scan$M_GEQ = '00000008'X$ PARAMETER pscan$M_GTR = '00000010'X$ PARAMETER pscan$M_LEQ = '00000020'X$ PARAMETER pscan$M_LSS = '00000040'X- PARAMETER pscan$M_PREFIX_MATCH = '00000080'X) PARAMETER pscan$M_WILDCARD = '00000100'X+ PARAMETER pscan$M_CASE_BLIND = '00000200'X$ PARAMETER pscan$M_EQL = '00000400'X$ PARAMETER pscan$M_NEQ = '00000800'X STRUCTURE /item_specific_flags/ PARAMETER pscan$S_OR = 16 PARAMETER pscan$V_OR = 0 ! Logical OR of items" PARAMETER pscan$S_BIT_ALL8 = 1? PARAMETER pscan$V_BIT_ALL = 1 ! All bits set in pattern" PARAMETER pscan$S_BIT_ANY = 1> PARAMETER pscan$V_BIT_ANY = 2 ! Any bit set in pattern PARAMETER pscan$S_GEQ = 1 PARAMETER pscan$V_GEQ = 3 PARAMETER pscan$S_GTR = 1 PARAMETER pscan$V_GTR = 4 PARAMETER pscan$S_LEQ = 1 PARAMETER pscan$V_LEQ = 5 PARAMETER pscan$S_LSS = 1 PARAMETER pscan$V_LSS = 6' PARAMETER pscan$S_PREFIX_MATCH = 1F PARAMETER pscan$V_PREFIX_MATCH 9 = 7 ! Match on leading substring# PARAMETER pscan$S_WILDCARD = 19 PARAMETER pscan$V_WILDCARD = 8 ! Wildcard pattern% PARAMETER pscan$S_CASE_BLIND = 1E PARAMETER pscan$V_CASE_BLIND = 9 ! Ignore case of text strings PARAMETER pscan$S_EQL = 1 PARAMETER pscan$V_EQL = 10 PARAMETER pscan$S_NEQ = 1 PARAMETER pscan$V_NEQ = 11 BYTE %FILL (2)$ END STRUCTURE ! item_specific_flags!DEC$ END OPTIONS wwΦ!*** MODULE $PSIGDEF *** : :!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! K ! Signature block offset definitions for the Alpha/IA64 calling standard. ! 7 PARAMETER PSIG$K_FR_I64 = '00000000'X ! 64 bit in R0$ ! or - No function result provided^ PARAMETER PSIG$K_FR_D64 = '00000001'X ! 32 bit low in R0, 32 bit high in r1 - sign extendedE PARAMETER PSIG$K_FR_I32 = '00000002'X ! 32 bit sign extended in R0@ PARAMETER PSIG$K_FR_U32 = '00000003'X ! 32 bit unsigned in R0: PARAMETER PSIG$K_FR_FF ; = '00000004'X ! F floating in F0: PARAMETER PSIG$K_FR_FD = '00000005'X ! D floating in F0: PARAMETER PSIG$K_FR_FG = '00000006'X ! G floating in F0: PARAMETER PSIG$K_FR_FS = '00000007'X ! S floating in F0: PARAMETER PSIG$K_FR_FT = '00000008'X ! T floating in F0J PARAMETER PSIG$K_FR_FFC = '0000000B'X ! F floating complex in F0 and F1J PARAMETER PSIG$K_FR_FDC = '0000000C'X ! D floating complex in F0 and F1J PARAMETER PSIG$K_FR_FGC = '0000000D'X ! G floating complex in F0 and F1J P < ARAMETER PSIG$K_FR_FSC = '0000000E'X ! S floating complex in F0 and F1J PARAMETER PSIG$K_FR_FTC = '0000000F'X ! T floating complex in F0 and F1 ! $ PARAMETER PSIG$M_CTRL = '00000007'X! PARAMETER PSIG$M_X = '000000F8'X+ PARAMETER PSIG$M_FUNC_RETURN = '00000F00'X, PARAMETER PSIG$M_REG_ARG_INFO = '00000000'X( PARAMETER PSIG$M_SU_VLIST = '00004000'X= PARAMETER PSIG$K_MIN_LENGTH = '00000008'X ! Minimum length= PARAMETER PSIG$K_MAX_LENGTH = '00000048'X ! Maximum length9 PARAMETER PSI= G$K_MIN_SIZE = '00000008'X ! Minimum size9 PARAMETER PSIG$K_MAX_SIZE = '00000048'X ! Maximum size STRUCTURE /PSIGDEF/' ! or - First parameter mechanism used% ! First quadword of signature block ! UNION MAP UNION MAP. INTEGER*4 PSIG$Q_REGISTER_INFO(2) END MAP MAP* PARAMETER PSIG$S_CTRL = 3I PARAMETER PSIG$V_CTRL = 0 ! Control information field' PARAM > ETER PSIG$S_X = 5D PARAMETER PSIG$V_X = 3 ! Not used. Must be zero1 PARAMETER PSIG$S_FUNC_RETURN = 4X PARAMETER PSIG$V_FUNC_RETURN = 8 ! Function return signature encoding- PARAMETER PSIG$S_SUMMARY = 4. PARAMETER PSIG$V_SUMMARY = 12; BYTE %FILL (2) ! Entire summary field? BYTE PSIG$B_ARG_COUNT ! Argument count3 PARAMETER PSIG$S_REG_ARG_INFO = 3? 2] PARAMETER PSIG$V_REG_ARG_INFO = 24 ! Register argument signature encodings5 PARAMETER PSIG$S_MEMORY_ARG_INFO = 86 PARAMETER PSIG$V_MEMORY_ARG_INFO = 56U BYTE %FILL (5) ! Minimum length for memory argument information END MAP END UNION END MAP ! G ! Summary bits which are contained in the high bits of the first word ! MAP UNION MAP- @ INTEGER*4 PSIG$Q_SUMMARY_INFO(2) END MAP MAP+ PARAMETER PSIG$S_FILL = 12* PARAMETER PSIG$V_FILL = 0- PARAMETER PSIG$S_SU_ASUM = 2\ PARAMETER PSIG$V_SU_ASUM = 12 ! summary of arguments 9 through arg_count. PARAMETER PSIG$S_SU_VLIST = 1U PARAMETER PSIG$V_SU_VLIST = 14 ! VAX style argument list expected, PARAMETER PSIG$S_UNUSED = 1- A PARAMETER PSIG$V_UNUSED = 15 BYTE %FILL (2) END MAP END UNION END MAP END UNION END STRUCTURE ! PSIGDEF' PARAMETER RASE$M_SIG_ENC = '0000000F'X6 PARAMETER RASE$K_RA_I64 = '00000000'X ! (obsolete) D PARAMETER RASE$K_RA_NOARG = '00000000'X ! Argument is not present6 PARAMETER RASE$K_RA_Q = '00000001'X ! 64 bit in RxxF PARAMETER RASE$K_RA_I32 = '00000002'X ! 32 bit sign extended in RxxA PARAMETER RASE$K_RA_U32 = '00000003'X ! B 32 bit unsigned in RxxB PARAMETER RASE$K_RA_FF = '00000004'X ! F floating passed in FxxB PARAMETER RASE$K_RA_FD = '00000005'X ! D floating passed in FxxB PARAMETER RASE$K_RA_FG = '00000006'X ! G floating passed in FxxB PARAMETER RASE$K_RA_FS = '00000007'X ! S floating passed in FxxB PARAMETER RASE$K_RA_FT = '00000008'X ! T floating passed in Fxx STRUCTURE /RASEDEF/! PARAMETER RASE$S_SIG_ENC = 4F PARAMETER RASE$V_SIG_ENC = 0 ! per register signature encoding BYTE %FILC L (1) END STRUCTURE ! RASEDEF5 PARAMETER MASE$K_MA_I64 = '00000000'X ! (obsolete)8 PARAMETER MASE$K_MA_Q = '00000000'X ! 64 bit argumentA PARAMETER MASE$K_MA_I32 = '00000002'X ! 32 bit signed argument STRUCTURE /MASEDEF/! PARAMETER MASE$S_SIG_ENC = 2M PARAMETER MASE$V_SIG_ENC = 0 ! per memory location signature encoding BYTE %FILL (1) END STRUCTURE ! MASEDEF ! R ! Argument Information structure definition for the Alpha/IA64 calling standard. ! 9 PARAMETER A D I$K_AR_I64 = '00000000'X ! Integer argument< PARAMETER AI$K_AR_FF = '00000001'X ! VAX F float argument< PARAMETER AI$K_AR_FD = '00000002'X ! VAX D float argument< PARAMETER AI$K_AR_FG = '00000003'X ! VAX G float argument= PARAMETER AI$K_AR_FS = '00000004'X ! IEEE S float argument= PARAMETER AI$K_AR_FT = '00000005'X ! IEEE T float argument@ PARAMETER AI$K_AR_RESERVED_6 = '00000006'X ! Reserved value 6@ PARAMETER AI$K_AR_RESERVED_7 = '00000007'X ! Reserved value 7* PARAMETER AE I$M_ARG_REG_INFO = '00000700'X8 PARAMETER AI$K_AI_SIZE = '00000008'X ! Minimum length> PARAMETER AI$K_REGNO = '00000019'X ! The AI register number STRUCTURE /AIDEF/ BYTE AI$B_ARG_COUNT$ PARAMETER AI$S_ARG_REG_INFO = 3Q PARAMETER AI$V_ARG_REG_INFO = 8 ! per arg type info for up to 8 arguments BYTE %FILL (1) END STRUCTURE ! AIDEF!DEC$ END OPTIONS ww$ ᜁΦ!*** MODULE $PSLDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !F +8 ! PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS ! 2 ! This definition file provides PSL$xxxx symbols7 ! strictly for the purpose of providing compatibility6 ! for code being ported from VAX which refers to the6 ! fields of the PSL. Only those fields that exist in# ! both architectures are defined. ! 5 ! The preferred approach for code that DOES NOT run6 ! on VAX is to use the symbols defined by the $PRDEF ! macro instead. ! -% PARAMETER PSL$M_PRVMOD = '0000000G 3'X% PARAMETER PSL$M_CURMOD = '00000018'X" PARAMETER PSL$M_IPL = '00001F00'X- PARAMETER PSL$V_MAX_PS_REG_BIT = '0000000D'X ! 5 PARAMETER PSL$C_KERNEL = '00000000'X ! Kernel Mode6 PARAMETER PSL$C_EXEC = '00000001'X ! Executive Mode9 PARAMETER PSL$C_SUPER = '00000002'X ! Supervisor Mode 1 PARAMETER PSL$C_USER = '00000003'X ! User Mode STRUCTURE /PSLDEF/ UNION MAP# PARAMETER PSL$S_PRVMOD = 2@ PARAMETER PSL$V_PRVMOD = 0 ! Previous Processor Mode# H PARAMETER PSL$S_CURMOD = 2? PARAMETER PSL$V_CURMOD = 3 ! Current Processor Mode PARAMETER PSL$S_IPL = 5? PARAMETER PSL$V_IPL = 8 ! Interrupt Priority Level BYTE %FILL (2) END MAP ! / ! Maximum bit number used in the PS register !  ! MODE SYMBOL DEFINITIONS ! END UNION END STRUCTURE ! PSLDEF!DEC$ END OPTIONS wwΦ!*** MODULE $PSMMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWA I RN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:02.29 !  !  ! * *A ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993, 1994 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF J THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * K DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! ++ ! FACILITY: ! PRINT SYMBIONT. ! ! ABSTRACT: ! SYMBIONT MESSAGES. !  ! ENVIRONMENT:! ! VAX/VMS USER AND KERNEL MODE. ! 1 ! AUTHOR: G. ROBERT, CREATION DATE: 31-AUG-1982 !  ! MODIFIED BY: ! 5 ! X-4 SG047 SHEELA GAYATRI 27-DEC-1994 ! ADDED PSM$_L INVPREFIX. ! E ! X-3 ILR003 IRIS LANGSTEIN REALMUTO 26-OCT-1993+ ! CHANGED COPYRIGHT TO 1993 ! F ! X-2 ILR002 IRIS LANGSTEIN REALMUTO 27-AUG-1993# ! ADDED PSM$_LATSYM ! / ! 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 ! ADD MISSING .END STATEMENT. ! 2 ! 3B-009 RRB3009 ROWLAND R. BRADLEY 24-JUL-19844 ! SEPARATE THE PSM MESSAGES AND THE SMB MESSAGES. ! 1 ! 3B-008 GRR3008 GREGORY R. ROBERT 29-APRM -1984 ! ADDED PSM$_FLUSH ! 1 ! 3B-007 GRR3007 GREGORY R. ROBERT 23-AUG-19836 ! BUGFIXES, PAGE_SETUP_MODULES, FORM_SETUP_MODULES,? ! SHEET_FEED, SYMBIONT INITIATED PAUSE_TASK AND STOP_STREAM,. ! HANGUP CODE, READ AND WRITE ITEM SERVICES ! 1 ! 3B-006 GRR3006 GREGORY R. ROBERT 03-AUG-1983" ! CHANGED FUNNOTSUP TO SUCCESS. ! 1 ! 3B-005 GRR3005 GREGORY R. ROBERT 29-JUL-1983 ! ADDED MESSAGES FOR FT1. ! 1 ! 3B-004 GRR3004 GREGORY R. ROBERT 23-JUN-1983= ! AN DDED "module not found" AND "too many levels" MESSAGES. ! 1 ! 3B-003 GRR3003 GREGORY R. ROBERT 27-MAY-1983? ! REMOVED UNUSED MESSAGES. ADDED NOMOREITEMS AND INVSTMNBR. ! 1 ! 3B-002 GRR3002 GREGORY R. ROBERT 04-APR-1983 ! ADDED PSM$_NOMOREITEMS. !  ! ** ! J ! THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FORI ! MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY ! THE $MSGDEF MACRO. ! & PARAMETER PSM$_FACILITY = '000001O 06'X' PARAMETER PSM$_FUNNOTSUP = '01068001'X% PARAMETER PSM$_PENDING = '01068009'X# PARAMETER PSM$_FLUSH = '01068011'X' PARAMETER PSM$_BUFFEROVF = '01068018'X% PARAMETER PSM$_NEWPAGE = '01068020'X% PARAMETER PSM$_SUSPEND = '01068028'X$ PARAMETER PSM$_ESCAPE = '01068030'X! PARAMETER PSM$_EOF = '0106803A'X' PARAMETER PSM$_INVVMSOSC = '01068042'X' PARAMETER PSM$_MODNOTFND = '0106804A'X& PARAMETER PSM$_NOFILEID = '01068052'X' PARAMETER PSM$_OSCTOOLON = '0106805A'X( PARAMETER PSM$_TOP OMANYLEV = '01068062'X' PARAMETER PSM$_INVITMCOD = '0106806C'X$ PARAMETER PSM$_LATSYM = '01068072'X' PARAMETER PSM$_INVPREFIX = '0106807C'X!DEC$ END OPTIONSwwplᜁΦ!*** MODULE $PTDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! = ! Pseudo terminal driver notification AST type definitions. !  ! N.B.E ! These definitions are in a specific order and must not be changed7 ! without matching changes to FTUCBDEF, and FTDRIVER. ! Q ! -E PARAMETER PTD$C_SEND_XON = '00000000'X ! Enable or disable XON ASTG PARAMETER PTD$C_SEND_BELL = '00000001'X ! Enable or disable BELL ASTG PARAMETER PTD$C_SEND_XOFF = '00000002'X ! Enable or disable XOFF ASTP PARAMETER PTD$C_STOP_OUTPUT = '00000003'X ! Enable or disable stop output ASTT PARAMETER PTD$C_RESUME_OUTPUT = '00000004'X ! Enable or disable resume output AST\ PARAMETER PTD$C_CHAR_CHANGED = '00000005'X ! Enable or disable characteristics change ASTR PARAMETER PTD$C_A R BORT_OUTPUT = '00000006'X ! Enable or disable abort output ASTN PARAMETER PTD$C_START_READ = '00000007'X ! Enable or disable start read ASTP PARAMETER PTD$C_MIDDLE_READ = '00000008'X ! Enable or disable middle read ASTJ PARAMETER PTD$C_END_READ = '00000009'X ! Enable or disable end read AST? PARAMETER PTD$C_ENABLE_READ = '0000000A'X ! Enable read ASTsA PARAMETER PTD$C_DISABLE_READ = '0000000B'X ! Disable read ASTs) PARAMETER PTD$C_MAX_EVENTS = '0000000C'X!DEC$ END OPTIONSwS wCΦ"!*** MODULE $QSRVDEF IDENT X-9 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ? ! QIOserver Control and Information ($QIOSERVER) definitions. ! V ! NOTE: New items must always be added at the end so users will not have to relink. !  !  ! Function codes ! O PARAMETER QSRV$_CANCEL_OPERATION = '00000001'X ! Cancel a wildcard operationa PARAMETER QSRV$_COMMIT_VOLATILE = '00000002'X ! Commit the volatile configuration to permanentO PT ARAMETER QSRV$_SET_CLIENT = '00000003'X ! Set client configuration controlsO PARAMETER QSRV$_SET_DEVICE = '00000004'X ! Set device configuration controls: PARAMETER QSRV$_SET_LOGGING = '00000005'X ! Set loggingO PARAMETER QSRV$_SET_SERVER = '00000006'X ! Set server configuration controlsM PARAMETER QSRV$_SET_SERVICE = '00000007'X ! Set client-server path service] PARAMETER QSRV$_SHOW_CLIENT = '00000008'X ! Show client configuration and operational dataH PARAMETER QSRV$_SHOW_DEVI U CE = '00000009'X ! Show device configuration< PARAMETER QSRV$_SHOW_LOGGING = '0000000A'X ! Show logging] PARAMETER QSRV$_SHOW_SERVER = '0000000B'X ! Show server configuration and operational dataO PARAMETER QSRV$_SHOW_SERVICE = '0000000C'X ! Show client-server path serviceL PARAMETER QSRV$K_MIN_FUNC = '00000001'X ! Minimum QIOSERVER function codeL PARAMETER QSRV$K_MAX_FUNC = '0000000C'X ! Maximum QIOSERVER function code !  ! Item codes ! T ! Item codes are limited to a byV te value for use with the context block validation ! N PARAMETER QSRV$_ADD_FILTER = '00000001'X ! Add message event filter 3 tupleT PARAMETER QSRV$_ADD_POOL = '00000002'X ! Add a block of memory for server I/O useO PARAMETER QSRV$_AUTO_ADD_NPP = '00000003'X ! T/F auto add NPP for server I/OP PARAMETER QSRV$_CLEAR_FILTERS = '00000004'X ! Clear all message event filtersS PARAMETER QSRV$_CLIENT_NAME = '00000005'X ! Client SCSNODE name - SYSGEN SCSNODE_ PARAMETER QSRV$_CLIENT_SCSSYSTEW MID = '00000006'X ! Client SCS system id - SYSGEN SCSSYSTEMIDM PARAMETER QSRV$_DEFAULT_PRIORITY = '00000007'X ! The default path priorityS PARAMETER QSRV$_DELETE_POOL_BLOCK = '00000008'X ! Remove an allocated pool block? PARAMETER QSRV$_DEVICE_NAME = '00000009'X ! Full device nameE PARAMETER QSRV$_FLAGS = '0000000A'X ! System service control flagsO PARAMETER QSRV$_KCC_COUNTERS = '0000000B'X ! KClient connection counter dataK PARAMETER QSRV$_KCD_COUNTERS = '0000000C'X ! KClienX t device counter dataI PARAMETER QSRV$_KCR_COUNTERS = '0000000D'X ! KClient root counter dataO PARAMETER QSRV$_KSC_COUNTERS = '0000000E'X ! KServer connection counter dataK PARAMETER QSRV$_KSD_COUNTERS = '0000000F'X ! KServer device counter dataI PARAMETER QSRV$_KSR_COUNTERS = '00000010'X ! KServer root counter dataY PARAMETER QSRV$_KSR_FUNCTION_HISTOGRAM = '00000011'X ! KServer function code histogram` PARAMETER QSRV$_KSR_IO_BUFFER_HISTOGRAM = '00000012'X ! KServer histogram oY f I/O buffer sizesN PARAMETER QSRV$_LIST_FILTERS = '00000013'X ! List all message event filtersR PARAMETER QSRV$_LIST_POOL_BLOCKS = '00000014'X ! Display server I/O pool blocksU PARAMETER QSRV$_LIST_POOL_STATS = '00000015'X ! Display server I/O pool statistics9 PARAMETER QSRV$_LOG_MODE = '00000016'X ! Logging modes@ PARAMETER QSRV$_LOG_NODE = '00000017'X ! Logging SCSNODE nameC PARAMETER QSRV$_LOG_RESTART = '00000018'X ! Restart data logging` PARAMETER QSRV$_NBR_ALTERNATE_PATHS =Z '00000019'X ! Number of client resident alternate pathsO PARAMETER QSRV$_NBR_CLIENTS = '0000001A'X ! Number of clients seen by serverX PARAMETER QSRV$_NBR_CLIENT_THREADS = '0000001B'X ! Number of client configure threadsD PARAMETER QSRV$_NBR_CREDITS = '0000001C'X ! Number of SCS creditsS PARAMETER QSRV$_NBR_DEVICES = '0000001D'X ! Number of devices seen and availableV PARAMETER QSRV$_NBR_FILTERS = '0000001E'X ! Number of message event filters in list\ PARAMETER QSRV$_NBR_IO_FRAGME[ NTS = '0000001F'X ! Max number of I/O fragments per transferO PARAMETER QSRV$_NBR_SERVERS = '00000020'X ! Number of servers seen by clientX PARAMETER QSRV$_NBR_SERVER_THREADS = '00000021'X ! Number of server configure threads8 PARAMETER QSRV$_PATH_STATE = '00000022'X ! Path stateT PARAMETER QSRV$_POOL_WAIT_TMO = '00000023'X ! Number of seconds KServer Pool holdT PARAMETER QSRV$_QSLUN_AUTO = '00000024'X ! T/F KClient to get QSLUN automaticallyW PARAMETER QSRV$_QSRV_COMPONENT = '00000\ 025'X ! Component of the QIOserver sub-systemT PARAMETER QSRV$_REMOVE_FILTER = '00000026'X ! Remove message event filter 3 tupleV PARAMETER QSRV$_SEARCH_NAME = '00000027'X ! Node or device name for wildcard search` PARAMETER QSRV$_SEQUENTIAL_ORDER = '00000028'X ! T/F Order IRPs by sequence #, def - priorityT PARAMETER QSRV$_SERVER_NAME = '00000029'X ! Server SCS node name - SYSGEN SCSNODE_ PARAMETER QSRV$_SERVER_SCSSYSTEMID = '0000002A'X ! Server SCS system id - SYSGEN SCSSYSTEMIDK] PARAMETER QSRV$_SERVICE_STATE = '0000002B'X ! Device serve/noserve stateO PARAMETER QSRV$_UCC_COUNTERS = '0000002C'X ! UClient connection counter dataI PARAMETER QSRV$_UCR_COUNTERS = '0000002D'X ! UClient root counter dataO PARAMETER QSRV$_USC_COUNTERS = '0000002E'X ! UServer connection counter dataI PARAMETER QSRV$_USR_COUNTERS = '0000002F'X ! UServer root counter dataI PARAMETER QSRV$K_MIN_ITEM = '00000001'X ! Minimum documented item codeI PARAMETER QSRV$K_MAX_ITEM = '000000 ^ 2F'X ! Maximum documented item code ! P ! The following structure defines the bit masks for the QSRV$_FLAGS item code. ! ) PARAMETER QSRV$M_PERMANENT = '00000001'X( PARAMETER QSRV$M_VOLATILE = '00000002'X# PARAMETER QSRV$M_ADD = '00000004'X- PARAMETER QSRV$M_CLIENT_CONFIG = '00010000'X- PARAMETER QSRV$M_SERVER_CONFIG = '00020000'X- PARAMETER QSRV$M_CLIENT_SEARCH = '00040000'X- PARAMETER QSRV$M_DEVICE_SEARCH = '00080000'X- PARAMETER QSRV$M_SERVER_SEARCH = '00100000'X+ PARAMET_ ER QSRV$M_SEARCH_DONE = '00200000'X- PARAMETER QSRV$M_CTX_ALLOCATED = '00400000'X STRUCTURE /QSRV_FLAGS/ UNION MAP INTEGER*4 QSRV$L_FLAGS END MAP MAP' PARAMETER QSRV$S_PERMANENT = 1J PARAMETER QSRV$V_PERMANENT = 0 ! Applies to permanent database& PARAMETER QSRV$S_VOLATILE = 1H PARAMETER QSRV$V_VOLATILE = 1 ! Applies to volatile database! PARAMETER QSRV$S_ADD = 1Q PARAMETER QSRV$V_ADD = 2 ! Allow volatile ` database structure creation= ! The following flags are reserved for Compaq internal use.+ PARAMETER QSRV$S_CLIENT_CONFIG = 1M PARAMETER QSRV$V_CLIENT_CONFIG = 16 ! Use the client configuration+ PARAMETER QSRV$S_SERVER_CONFIG = 1M PARAMETER QSRV$V_SERVER_CONFIG = 17 ! Use the server configuration+ PARAMETER QSRV$S_CLIENT_SEARCH = 1K PARAMETER QSRV$V_CLIENT_SEARCH = 18 ! Search name is for clients+ PARAMETER QSRV$S_DEVICE_SEA a RCH = 1K PARAMETER QSRV$V_DEVICE_SEARCH = 19 ! Search name is for devices+ PARAMETER QSRV$S_SERVER_SEARCH = 1K PARAMETER QSRV$V_SERVER_SEARCH = 20 ! Search name is for servers) PARAMETER QSRV$S_SEARCH_DONE = 1= PARAMETER QSRV$V_SEARCH_DONE = 21 ! Search is done+ PARAMETER QSRV$S_CTX_ALLOCATED = 1I PARAMETER QSRV$V_CTX_ALLOCATED = 22 ! Allocated context block  BYTE %FILL (2) END MAP END UNION END STRUCTURE ! b QSRV_FLAGS, PARAMETER QSRV_FLAGS$C_LENGTH = '00000004'X, PARAMETER QSRV_FLAGS$K_LENGTH = '00000004'X ! S ! The following structure defines the bit masks for the QSRV$_LOG_MODE item code. ! / PARAMETER QSRV_LOG$M_ACTIV_UCLOG = '00010000'X/ PARAMETER QSRV_LOG$M_ACTIV_USLOG = '00020000'X/ PARAMETER QSRV_LOG$M_ACTIV_KCLOG = '00040000'X/ PARAMETER QSRV_LOG$M_ACTIV_KSLOG = '00080000'X- PARAMETER QSRV_LOG$M_ACTIV_MSG = '00100000'X- PARAMETER QSRV_LOG$M_ACTIV_EVT = '00200000'X- PARAMc ETER QSRV_LOG$M_ACTIV_CNT = '00400000'X- PARAMETER QSRV_LOG$M_ACTIV_HST = '00800000'X- PARAMETER QSRV_LOG$M_ACTIV_VBS = '01000000'X STRUCTURE /QSRV_LOG/ UNION MAP INTEGER*4 QSRV_LOG$L_FLAGS END MAP MAP* PARAMETER QSRV_LOG$S_filler1 = 16J PARAMETER QSRV_LOG$V_filler1 = 0 ! Reserved Compaq internal use- PARAMETER QSRV_LOG$S_ACTIV_UCLOG = 1J PARAMETER QSRV_LOG$V_ACTIV_UCLOG = 16 ! Turn on Uclient logging- PARAMETER QSRV_ d LOG$S_ACTIV_USLOG = 1J PARAMETER QSRV_LOG$V_ACTIV_USLOG = 17 ! Turn on Userver logging- PARAMETER QSRV_LOG$S_ACTIV_KCLOG = 1J PARAMETER QSRV_LOG$V_ACTIV_KCLOG = 18 ! Turn on Kclient logging- PARAMETER QSRV_LOG$S_ACTIV_KSLOG = 1J PARAMETER QSRV_LOG$V_ACTIV_KSLOG = 19 ! Turn on Kserver logging+ PARAMETER QSRV_LOG$S_ACTIV_MSG = 1H PARAMETER QSRV_LOG$V_ACTIV_MSG = 20 ! Turn on message logging+ PARAMETER QSRV_LOG$S_ACTIV_EV e T = 1F PARAMETER QSRV_LOG$V_ACTIV_EVT = 21 ! Turn on event logging+ PARAMETER QSRV_LOG$S_ACTIV_CNT = 1H PARAMETER QSRV_LOG$V_ACTIV_CNT = 22 ! Turn on counter logging+ PARAMETER QSRV_LOG$S_ACTIV_HST = 1J PARAMETER QSRV_LOG$V_ACTIV_HST = 23 ! Turn on histogram logging+ PARAMETER QSRV_LOG$S_ACTIV_VBS = 1N PARAMETER QSRV_LOG$V_ACTIV_VBS = 24 ! Turn on QIO$CONFIGURE verbose) PARAMETER QSRV_LOG$S_filler2 = 7* PARAMf ETER QSRV_LOG$V_filler2 = 25; BYTE %FILL (4) ! Reserved Compaq internal use END MAP END UNION END STRUCTURE ! QSRV_LOG* PARAMETER QSRV_LOG$C_LENGTH = '00000004'X* PARAMETER QSRV_LOG$K_LENGTH = '00000004'X !  ! Message logging type codes ! 8 PARAMETER QSRV$K_MSG_SCS = '00000001'X ! SCS messages8 PARAMETER QSRV$K_MSG_QSP = '00000002'X ! QSP messagesU PARAMETER QSRV$K_MSG_ICC_CONN = '00000003'X ! ICC messages - connection managementM PARAMETER QSRV$K_MSG_IC g C_DATA = '00000004'X ! ICC messages - data transferW PARAMETER QSRV$K_MIN_MSG = '00000001'X ! Minimum documented message filter type codeW PARAMETER QSRV$K_MAX_MSG = '00000004'X ! Minimum documented message filter type code ! K ! The following structure defines the data required to specify or receiveC ! a logging data filter tuple. Associated with QSRV$_ADD_FILTER,: ! QSV$_LIST_FILTERS, and QSRV$_REMOVE_FILTER item codes. !  STRUCTURE /QSRV_FILTER/= CHARACTER*16 QSRV_F h ILTER$t_node ! Message source node: INTEGER*4 QSRV_FILTER$l_type ! Message source type@ CHARACTER*64 QSRV_FILTER$t_device ! Message source device END STRUCTURE ! QSRV_FILTER- PARAMETER QSRV_FILTER$C_LENGTH = '00000054'X- PARAMETER QSRV_FILTER$K_LENGTH = '00000054'X ! = ! The following structure is used to receive histogram dataG ! with QSRV$_KSR_FUNCTION_HISTOGRAM and QSRV$_KSR_IO_BUFFER_HISTOGRAM ! item codes. ! F ! The bucket_count is within the range 1 to i 64. data[1] to data[64]A ! will hold the in range histogram data. data[0] will hold theC ! underflow data and data[65] will hold the overflow data. ThisH ! structure is for reporting predefined histograms via item code. TheF ! low value is in bucket_base and the high value is bucket_base plus ! bucket_range. !  STRUCTURE /QSRV_HISTOGRAM/F INTEGER*4 QSRV_HISTOGRAM$L_BUCKET_COUNT ! Number of buckets - 2 BYTE %FILL(0:3)= INTEGER*4 QSRV_HISTOGRAM$Q_BUCKET_B j ASE(2) ! Base value? INTEGER*4 QSRV_HISTOGRAM$Q_BUCKET_RANGE(2) ! Value range? INTEGER*4 QSRV_HISTOGRAM$Q_DATA(2,1:66) ! Histogram data END STRUCTURE ! QSRV_HISTOGRAM3 PARAMETER QSRV_HISTOGRAM$C_UNDERFLOW = '00000000'X2 PARAMETER QSRV_HISTOGRAM$C_OVERFLOW = '00000041'X0 PARAMETER QSRV_HISTOGRAM$C_LENGTH = '00000228'X0 PARAMETER QSRV_HISTOGRAM$K_LENGTH = '00000228'X ! L ! The following structure is used for the IOSB declaration. The IOSB is aM ! 2 longword structure w k hich is initialized to zero by the QIOSERVER systemO ! service as part of request initialization. The first longword will receiveL ! the final condition code for the request as determined by QIO$CONFIGURE. !  STRUCTURE /QSRV_IOSB/@ INTEGER*4 QSRV_IOSB$l_pri_status ! Primary request statusB INTEGER*4 QSRV_IOSB$l_sec_status ! Secondary request status END STRUCTURE ! QSRV_IOSB+ PARAMETER QSRV_IOSB$C_LENGTH = '00000008'X+ PARAMETER QSRV_IOSB$K_LENGTH = '00000008'X ! P ! l The following structure defines the bit masks for the QSRV$_DEFAULT_PRIORITY$ ! and QSRV$_PATH_STATE item codes. ! M ! For the QSRV$_DEFAULT_PRIORITY item code only the priority mask is valid. ! M ! For the QSRV$_PATH_STATE item code an array of two of these structures isN ! used. The first entry contains a mask of the associated bits in the valueK ! component (second entry) which are valid for the operation during a SETF ! function. Only the value component is filled for a SH m OW function. ! - PARAMETER QSRV_PATH$M_PRIORITY = '000000FF'X1 PARAMETER QSRV_PATH$M_LOCAL2SERVER = '04000000'X+ PARAMETER QSRV_PATH$M_QVALID = '08000000'X* PARAMETER QSRV_PATH$M_VALID = '10000000'X+ PARAMETER QSRV_PATH$M_SERVED = '20000000'X. PARAMETER QSRV_PATH$M_EXCLUSIVE = '40000000'X, PARAMETER QSRV_PATH$M_CURRENT = '80000000'X, PARAMETER QSRV_PATH$m_filler2 = '03FFFFFF'X1 PARAMETER QSRV_PATH$M_USEABLE_PATH = '3C000000'X, PARAMETER QSRV_PATH$m_filler3 = 'C0000000'X STRUCTURE /n QSRV_PATH/ UNION MAP4 INTEGER*4 QSRV_PATH$L_PATH_STATE ! Path state END MAP MAP+ PARAMETER QSRV_PATH$S_PRIORITY = 8= PARAMETER QSRV_PATH$V_PRIORITY = 0 ! Path priority/ PARAMETER QSRV_PATH$S_LOCAL2SERVER = 1R PARAMETER QSRV_PATH$V_LOCAL2SERVER = 26 ! Device is local to the server) PARAMETER QSRV_PATH$S_QVALID = 1B PARAMETER QSRV_PATH$V_QVALID = 27 ! Path QSLUN is valid( PARAMETER QSRV_PATH$S_VALID = 1; o PARAMETER QSRV_PATH$V_VALID = 28 ! Path is valid) PARAMETER QSRV_PATH$S_SERVED = 1= PARAMETER QSRV_PATH$V_SERVED = 29 ! Path is served, PARAMETER QSRV_PATH$S_EXCLUSIVE = 1B PARAMETER QSRV_PATH$V_EXCLUSIVE = 30 ! Path exclusivity* PARAMETER QSRV_PATH$S_CURRENT = 1+ PARAMETER QSRV_PATH$V_CURRENT = 31< BYTE %FILL (2) ! This path is the current path END MAP MAP+ PARAMETER QSRV_PATH$S_filler2 = 26* p PARAMETER QSRV_PATH$V_filler2 = 0/ PARAMETER QSRV_PATH$S_USEABLE_PATH = 4U PARAMETER QSRV_PATH$V_USEABLE_PATH = 26 ! Mask for Qvalid,valid,and served* PARAMETER QSRV_PATH$S_filler3 = 2+ PARAMETER QSRV_PATH$V_filler3 = 30 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! QSRV_PATH+ PARAMETER QSRV_PATH$C_LENGTH = '00000004'X+ PARAMETER QSRV_PATH$K_LENGTH = '00000004'X ! I ! The following structure defines bit masks for the QSq RV$_ADD_POOL itemC ! code and a structure for the QSRV$_DELETE_POOL_BLOCK item code. ! ) PARAMETER QSRV_POOL$M_SIZE = '7FFFFFFF'X( PARAMETER QSRV_POOL$M_NPP = '80000000'X STRUCTURE /QSRV_POOL/ UNION MAPC INTEGER*4 QSRV_POOL$L_BLOCK_ID ! ID of pool block to delete END MAP MAP( PARAMETER QSRV_POOL$S_SIZE = 31< PARAMETER QSRV_POOL$V_SIZE = 0 ! Number of bytes& PARAMETER QSRV_POOL$S_NPP = 1' PARAMETER QSRV_POOL$V_NPP = 316 r BYTE %FILL (4) ! From non-paged pool and END MAP ! from S2 space if not set MAP5 INTEGER*4 QSRV_POOL$L_MODIFY ! Change to pool END MAP END UNION END STRUCTURE ! QSRV_POOL+ PARAMETER QSRV_POOL$C_LENGTH = '00000004'X+ PARAMETER QSRV_POOL$K_LENGTH = '00000004'X ! J ! The following structure defines the data for the QSRV$_LIST_POOL_STATS ! item code. !  STRUCTURE /QSRV_PLST/K INTEGER*4 QSRV_PLST$L_TOT_SIZE ! Total number of bytes f s or typeK INTEGER*4 QSRV_PLST$L_FREE_SIZE ! Amount of free space in bytesH INTEGER*4 QSRV_PLST$L_NBR_BLOCKs ! Number of active additionsJ INTEGER*4 QSRV_PLST$L_NBR_FRAGMENTS ! Total number of fragmentsR INTEGER*4 QSRV_PLST$L_MAX_FRAG_SIZE ! Size in bytes of largest fragmentL INTEGER*4 QSRV_PLST$L_NPP_ADD_REQS ! Count of requests to add NPPG INTEGER*4 QSRV_PLST$L_MAX_NPP_ADD_REQ ! Max NPP request size END STRUCTURE ! QSRV_PLST ! t H ! The following constants may be used to reference the pool statistics ! data defined previously. ! 9 PARAMETER QSRV_PLST$K_S2 = '00000000'X ! S2 Space pool; PARAMETER QSRV_PLST$K_NPP = '00000001'X ! Non-paged pool+ PARAMETER QSRV_PLST$C_LENGTH = '00000038'X+ PARAMETER QSRV_PLST$K_LENGTH = '00000038'X ! K ! The following structure defines the data for the QSRV$_LIST_POOL_BLOCKS ! item code. ! * PARAMETER QSRV_PLBLK$M_SIZE = '7FFFFFFF'X) PARAMETER QSRV_PLBLK$M_NPP = u '80000000'X STRUCTURE /QSRV_PLBLK/: INTEGER*4 QSRV_PLBLK$L_BLOCK_ID ! Block identifier UNION MAP/ INTEGER*4 QSRV_PLBLK$L_BLOCK_SIZE_TYPE END MAP MAP- PARAMETER QSRV_PLBLK$S_SIZE = 31J PARAMETER QSRV_PLBLK$V_SIZE = 0 ! Number of bytes in block+ PARAMETER QSRV_PLBLK$S_NPP = 1, PARAMETER QSRV_PLBLK$V_NPP = 31= BYTE %FILL (4) ! From non-paged pool if set END MAP v END UNIONG INTEGER*4 QSRV_PLBLK$L_FREE_SIZE ! Amount of free space in bytesG INTEGER*4 QSRV_PLBLK$L_NBR_FRAGMENTS ! Total number of fragmentsO INTEGER*4 QSRV_PLBLK$L_MAX_FRAG_SIZE ! Size in bytes of largest fragment END STRUCTURE ! QSRV_PLBLK, PARAMETER QSRV_PLBLK$C_LENGTH = '00000014'X, PARAMETER QSRV_PLBLK$K_LENGTH = '00000014'X ! G ! The following structure defines the data for the QSRV$_KCR_COUNTERS; ! item code. It will receive QIOServer Client root data w . !  STRUCTURE /QSRV_KCRC/D INTEGER*4 QSRV_KCRC$L_DRIVERS ! Number of drivers configuredD INTEGER*4 QSRV_KCRC$L_DEVICES ! Number of devices configuredS INTEGER*4 QSRV_KCRC$L_ACT_SERVER_CONNS ! Number of active server connectionsQ INTEGER*4 QSRV_KCRC$L_TOT_SERVERS_SEEN ! Total number of servers ever seenQ INTEGER*4 QSRV_KCRC$Q_CYCLES_PER_SEC(2) ! Number of cycle ticks per secondR INTEGER*4 QSRV_KCRC$Q_TOT_SIO_TICS(2) ! Accumulated CPU time per simple x I/O; INTEGER*4 QSRV_KCRC$Q_TOT_SIO(2) ! Total simple I/Os END STRUCTURE ! QSRV_KCRC+ PARAMETER QSRV_KCRC$C_LENGTH = '00000028'X+ PARAMETER QSRV_KCRC$K_LENGTH = '00000028'X ! G ! The following structure defines the data for the QSRV$_KCC_COUNTERSG ! item code. It will receive QIOServer Client connection event data. ! C ! QSRV_KCRC$L_SERVERS indicates the number of active connections. !  STRUCTURE /QSRV_KCCC/W INTEGER*4 QSRV_KCCC$Q_SCSSYSTEMID(2) ! SCSSYSTEMID y of server for this connectionT INTEGER*4 QSRV_KCCC$Q_IO_COUNT(2) ! Overall I/O operations on this connection_ INTEGER*4 QSRV_KCCC$Q_COMPLEX_COUNT(2) ! Total complex I/O operations on this connection_ INTEGER*4 QSRV_KCCC$Q_CONTROL_COUNT(2) ! Total control I/O operations on this connectiond INTEGER*4 QSRV_KCCC$Q_NBR_CONN(2) ! Number of times a connection has been made to this serverC INTEGER*4 QSRV_KCCC$Q_CONN_TIME(2) ! Time of last connectione INTEGER*4 QSRV_ z KCCC$Q_NBR_DEVICES(2) ! Number of devices using this connection as current pathb INTEGER*4 QSRV_KCCC$L_OPS_STALLED ! Total operations stalled in Kclient for this connection\ INTEGER*2 QSRV_KCCC$W_CREDIT_WAIT ! SCS credit waits for this connection from the CDT@ INTEGER*2 QSRV_KCCC$w_reserved_1 ! Reserved for alignment END STRUCTURE ! QSRV_KCCC+ PARAMETER QSRV_KCCC$C_LENGTH = '00000040'X+ PARAMETER QSRV_KCCC$K_LENGTH = '00000040'X ! G ! The following structure defines { the data for the QSRV$_KCD_COUNTERS= ! item code. It will receive QIOServer Client device data. ! 8 ! QSRV_KCRC$L_DEVICES indicates the number of devices. !  STRUCTURE /QSRV_KCDC/ UNION MAPE CHARACTER*16 QSRV_KCDC$T_NAME ! Device name in ASCIC form END MAP MAP UNION MAP/ BYTE QSRV_KCDC$B_NAME_LEN END MAP MAPJ BYTE QSRV_KCDC | $IB_NAME_LEN ! Character count END MAP END UNIOND CHARACTER*15 QSRV_KCDC$T_NAME_STR ! Character string END MAP END UNIONP INTEGER*4 QSRV_KCDC$Q_IO_COUNT(2) ! Overall I/O operations to this device[ INTEGER*4 QSRV_KCDC$Q_COMPLEX_COUNT(2) ! Total complex I/O operations to this device[ INTEGER*4 QSRV_KCDC$Q_CONTROL_COUNT(2) ! Total control I/O operations to this deviceA INTEGER*4 QSRV_KCDC$Q_RT_TIME(2) ! Over } all round-trip timeY INTEGER*4 QSRV_KCDC$L_OPS_IN_SERVER ! Current operations in server for this device^ INTEGER*4 QSRV_KCDC$L_OPS_STALLED ! Total operations stalled in Kclient for this deviceL INTEGER*4 QSRV_KCDC$L_PATHS ! Total paths configured for this device# INTEGER*4 QSRV_KCDC$l_reserved END STRUCTURE ! QSRV_KCDC+ PARAMETER QSRV_KCDC$C_LENGTH = '00000040'X+ PARAMETER QSRV_KCDC$K_LENGTH = '00000040'X ! G ! The following structure defines the data for the Q ~ SRV$_KSR_COUNTERS; ! item code. It will receive QIOServer Server root data. !  STRUCTURE /QSRV_KSRC/D INTEGER*4 QSRV_KSRC$L_DEVICES ! Number of devices configuredY INTEGER*4 QSRV_KSRC$L_ACT_CLIENT_CONNS ! Number of active connections with clientsQ INTEGER*4 QSRV_KSRC$L_TOT_CLIENTS_SEEN ! Total number of clients ever seen BYTE %FILL(0:3)Q INTEGER*4 QSRV_KSRC$Q_CYCLES_PER_SEC(2) ! Number of cycle ticks per secondJ INTEGER*4 QSRV_KSRC$Q_PEAK_BUFF ER(2) ! Peak buffer pool usage in KBZ INTEGER*4 QSRV_KSRC$Q_BUFFER_WAIT(2) ! Number of times I/Os waited for buffer spaceM INTEGER*4 QSRV_KSRC$Q_FRAGMENTS(2) ! Number of I/O fragments performedM INTEGER*4 QSRV_KSRC$Q_FRAG_IO(2) ! Number of I/O operations fragmentedW INTEGER*4 QSRV_KSRC$Q_QSMQE_EXP(2) ! Number of times Kserver expanded QSMQE listP INTEGER*4 QSRV_KSRC$Q_PEAK_QSMQE(2) ! Max number of QSMQEs ever allocatedR INTEGER*4 QSRV_KSRC$Q_TOT_SIO_TICS(2) ! Accumulated CPU time per simple I/OF INTEGER*4 QSRV_KSRC$Q_TOT_SIO(2) ! Total simple I/O operations  END STRUCTURE ! QSRV_KSRC+ PARAMETER QSRV_KSRC$C_LENGTH = '00000058'X+ PARAMETER QSRV_KSRC$K_LENGTH = '00000058'X ! G ! The following structure defines the data for the QSRV$_KSC_COUNTERSG ! item code. It will receive QIOServer Server connection event data. ! < ! QSRV_KSRC$L_CLIENTS indicates the number of connections. !  STRUCTURE /QSRV_KSCC/W INTEGER*4 QSRV_ KSCC$Q_SCSSYSTEMID(2) ! SCSSYSTEMID of client for this connectionT INTEGER*4 QSRV_KSCC$Q_IO_COUNT(2) ! Overall I/O operations on this connection_ INTEGER*4 QSRV_KSCC$Q_COMPLEX_COUNT(2) ! Total complex I/O operations on this connection_ INTEGER*4 QSRV_KSCC$Q_CONTROL_COUNT(2) ! Total control I/O operations on this connectiond INTEGER*4 QSRV_KSCC$Q_NBR_CONN(2) ! Number of times a connection has been made to this clientC INTEGER*4 QSRV_KSCC$Q_CONN_TIME(2) ! Time of last connection] INTEGER*4 QSRV_KSCC$Q_BAD_MSGS(2) ! Number of bad messages received on this connectionO INTEGER*2 QSRV_KSCC$W_CREDIT_WAIT ! SCS credit waits for this connectionL INTEGER*2 QSRV_KSCC$W_BDLT_WAIT ! SCS BDLT waits for this connection# INTEGER*4 QSRV_KSCC$l_reserved END STRUCTURE ! QSRV_KSCC+ PARAMETER QSRV_KSCC$C_LENGTH = '00000040'X+ PARAMETER QSRV_KSCC$K_LENGTH = '00000040'X ! G ! The following structure defines the data for the QSRV$_KSD_COUNT ERS= ! item code. It will receive QIOServer server device data. ! 8 ! QSRV_KSRC$L_DEVICES indicates the number of devices. !  STRUCTURE /QSRV_KSDC/ UNION MAPE CHARACTER*16 QSRV_KSDC$T_NAME ! Device name in ASCIC form END MAP MAP UNION MAP/ BYTE QSRV_KSDC$B_NAME_LEN END MAP MAPJ BYTE QSRV_KSDC$IB_NAME_LEN ! Character cou nt END MAP END UNIOND CHARACTER*15 QSRV_KSDC$T_NAME_STR ! Character string END MAP END UNIONP INTEGER*4 QSRV_KSDC$Q_IO_COUNT(2) ! Overall I/O operations to this device[ INTEGER*4 QSRV_KSDC$Q_COMPLEX_COUNT(2) ! Total complex I/O operations to this device[ INTEGER*4 QSRV_KSDC$Q_CONTROL_COUNT(2) ! Total control I/O operations to this deviced INTEGER*4 QSRV_KSDC$Q_SIO_DEV_TIME(2) ! Total time spent in the device for simple I/O operati_ INTEGER*4 QSRV_KSDC$L_QUEUE_LENGTH ! Number of operations in the device now from KserverG INTEGER*4 QSRV_KSDC$L_OPS_STALLED ! Number of operations stalled END STRUCTURE ! QSRV_KSDC+ PARAMETER QSRV_KSDC$C_LENGTH = '00000038'X+ PARAMETER QSRV_KSDC$K_LENGTH = '00000038'X ! G ! The following structure defines the data for the QSRV$_UCR_COUNTERS? ! item code. It will receive QIO$CONFIGURE Client root data. !  STRUCTURE /QSRV_UCRC/D INTEGER*4 QSRV_UCRC$L_DEVICES ! Number of configured devicesF INTEGER*4 QSRV_UCRC$L_PATHS ! Total number of configured pathsJ INTEGER*4 QSRV_UCRC$L_SERVERS ! Total number of configured serversN INTEGER*4 QSRV_UCRC$L_PK_DC_THREADS ! Peak device configuration threadsD INTEGER*4 QSRV_UCRC$L_PK_SRV_THREAD ! Peak servers per thread BYTE %FILL(0:3)O INTEGER*4 QSRV_UCRC$Q_SYSMGT_RQSTS(2) ! Total system management requestsI INTEGER*4 QSRV_UCRC$Q_UBUF_WAITS(2) ! Total waits for Ubuf/Uapibuf END STRUCTURE ! QSRV_UCRC+ PARAMETER QSRV_UCRC$C_LENGTH = '00000028'X+ PARAMETER QSRV_UCRC$K_LENGTH = '00000028'X ! G ! The following structure defines the data for the QSRV$_UCC_COUNTERSK ! item code. It will receive QIO$CONFIGURE Client connection event data. ! < ! QSRV_UCRC$L_SERVERS indicates the number of connections. ! I ! Note that Uclient does not maintain an active connection to a server;H ! it establishes a connection only when Uc lient wants something. TheseB ! counters count all events since Uclient discovered the server. !  STRUCTURE /QSRV_UCCC/H INTEGER*4 QSRV_UCCC$Q_SCSSYSTEMID(2) ! SCSSYSTEMID of this serverX INTEGER*4 QSRV_UCCC$Q_CONNECTIONS(2) ! Number of ICC connections made to a serverG INTEGER*4 QSRV_UCCC$Q_CONN_TIME(2) ! Time of last ICC connectionJ INTEGER*4 QSRV_UCCC$Q_DC_MSGS(2) ! Number of device config messagesR INTEGER*4 QSRV_UCCC$Q_CM_MSGS(2) ! Number of connection m anagement messages END STRUCTURE ! QSRV_UCCC+ PARAMETER QSRV_UCCC$C_LENGTH = '00000028'X+ PARAMETER QSRV_UCCC$K_LENGTH = '00000028'X ! G ! The following structure defines the data for the QSRV$_USR_COUNTERS? ! item code. It will receive QIO$CONFIGURE Server root data. !  STRUCTURE /QSRV_USRC/D INTEGER*4 QSRV_USRC$L_DEVICES ! Number of configured devicesJ INTEGER*4 QSRV_USRC$L_CLIENTS ! Total number of configured serversN INTEGER*4 QSRV_USRC$L_PK_DC_THREADS ! Peak device configuration threadsD INTEGER*4 QSRV_USRC$L_PK_CLT_THREAD ! Peak clients per threadO INTEGER*4 QSRV_USRC$Q_SYSMGT_RQSTS(2) ! Total system management requestsI INTEGER*4 QSRV_USRC$Q_UBUF_WAITS(2) ! Total waits for Ubuf/Uapibuf END STRUCTURE ! QSRV_USRC+ PARAMETER QSRV_USRC$C_LENGTH = '00000020'X+ PARAMETER QSRV_USRC$K_LENGTH = '00000020'X ! G ! The following structure defines the data for the QSRV$_USC_COUNTERSK ! item code. It will receive QIO$CONFIG URE Server connection event data. ! < ! QSRV_USRC$L_CLIENTS indicates the number of connections. ! N ! These counters count all events since Userver was connected to the client. !  STRUCTURE /QSRV_USCC/H INTEGER*4 QSRV_USCC$Q_SCSSYSTEMID(2) ! SCSSYSTEMID of this clientX INTEGER*4 QSRV_USCC$Q_CONNECTIONS(2) ! Number of ICC connections made to a clientG INTEGER*4 QSRV_USCC$Q_CONN_TIME(2) ! Time of last ICC connectionJ INTEGER*4 QSRV_USCC$Q_DC_MSGS(2) ! Number of device config messagesR INTEGER*4 QSRV_USCC$Q_CM_MSGS(2) ! Number of connection management messages END STRUCTURE ! QSRV_USCC+ PARAMETER QSRV_USCC$C_LENGTH = '00000028'X+ PARAMETER QSRV_USCC$K_LENGTH = '00000028'X ! @ ! QIOserver Counters Buffer. This defines the buffer header,D ! and contains a union of all the various counter types included. !  ! F ! The following structure defines the data for the common portion of@ ! each of the counter item codes and forms the root structure. ! 7 PARAMETER QSRV_COUNTERS$M_RESERVED_FLAGS = '0000FFFF'X STRUCTURE /QSRV_CNTR_ROOT/E INTEGER*4 QSRV_COUNTERS$L_KC_VERS ! KClient version identifierE INTEGER*4 QSRV_COUNTERS$L_KS_VERS ! KServer version identifierd INTEGER*2 QSRV_COUNTERS$W_COUNTERS_TYPE ! Counter type -- value matches the system service it UNION MAP( INTEGER*2 QSRV_COUNTERS$W_FLAGS END MAP MAP: PARAMETER QSRV_COUNTERS$S_RESERVED_ FLAGS = 169 PARAMETER QSRV_COUNTERS$V_RESERVED_FLAGS = 0= BYTE %FILL (2) ! No flags currently defined END MAP END UNIONd INTEGER*4 QSRV_COUNTERS$L_SIZE ! Size in bytes of counters structure returned from QIO$CONFIC ! Size in bytes of counters structure returned from QIO$CONFIQ INTEGER*4 QSRV_COUNTERS$Q_TIME(2) ! System Time when the counters obtained END STRUCTURE ! QSRV_CNTR_ROOT0 PARAMETER QSRV_CNTR_ROOT$C_LENGTH = '00000018 'X0 PARAMETER QSRV_CNTR_ROOT$K_LENGTH = '00000018'X= ! Note changes to this structure will need to be matched in ! [LIB]QSMQEDEF6 PARAMETER QSRV_COUNTERS$K_KCROOT_LENGTH = '00000040'X6 PARAMETER QSRV_COUNTERS$K_KCCONN_LENGTH = '00000058'X5 PARAMETER QSRV_COUNTERS$K_KCDEV_LENGTH = '00000058'X6 PARAMETER QSRV_COUNTERS$K_KSROOT_LENGTH = '00000070'X6 PARAMETER QSRV_COUNTERS$K_KSCONN_LENGTH = '00000058'X5 PARAMETER QSRV_COUNTERS$K_KSDEV_LENGTH = '00000050'X6 PARAMETER QSRV_COUNTERS$K_UCROO T_LENGTH = '00000040'X6 PARAMETER QSRV_COUNTERS$K_UCCONN_LENGTH = '00000040'X6 PARAMETER QSRV_COUNTERS$K_USROOT_LENGTH = '00000038'X6 PARAMETER QSRV_COUNTERS$K_USCONN_LENGTH = '00000040'X STRUCTURE /QSRV_COUNTERS/9 RECORD /QSRV_CNTR_ROOT/ QSRV_COUNTERS$R_QSRVCNTRROOT UNION MAPL RECORD /QSRV_KCRC/ QSRV_COUNTERS$R_KCROOT ! Kclient root counters END MAP MAPR RECORD /QSRV_KCCC/ QSRV_COUNTERS$R_KCCONN ! Kclient connection counters  END MAP MAPM RECORD /QSRV_KCDC/ QSRV_COUNTERS$R_KCDEV ! Kclient device counters END MAP MAPL RECORD /QSRV_KSRC/ QSRV_COUNTERS$R_KSROOT ! Kserver root counters END MAP MAPR RECORD /QSRV_KSCC/ QSRV_COUNTERS$R_KSCONN ! Kserver connection counters END MAP MAPM RECORD /QSRV_KSDC/ QSRV_COUNTERS$R_KSDEV ! Kserver device counters END MAP MAPL RECORD /QSRV_UCRC/ QS RV_COUNTERS$R_UCROOT ! Uclient root counters END MAP MAPR RECORD /QSRV_UCCC/ QSRV_COUNTERS$R_UCCONN ! Uclient connection counters END MAP MAPL RECORD /QSRV_USRC/ QSRV_COUNTERS$R_USROOT ! Userver root counters END MAP MAPR RECORD /QSRV_USCC/ QSRV_COUNTERS$R_USCONN ! Userver connection counters END MAP END UNION END STRUCTURE ! QSRV_COUNTERS/ PARAMETER QSRV_COUNTERS$C_LENGTH = '00000070'X/ PARAMETER QSRV_COUNTERS$K_LENGTH = '00000070'X!DEC$ END OPTIONS ww>DΦ!*** MODULE $QUIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 8 ! Get Queue Information Service ($GETQUI) definitions. ! V ! NOTE: New items must always be added at the end so users will not have to relink. ! I ! NOTE: Update [VMSLIB.SRC]QUITABLE.MAR to reflect changes in $QUIDEF. !  !  ! Function codes ! N PARAMETER QUI$_CANCEL_OPERATION = '00000001 'X ! Cancel a wildcard operationY PARAMETER QUI$_DISPLAY_CHARACTERISTIC = '00000002'X ! Return characteristic attributesE PARAMETER QUI$_DISPLAY_FILE = '00000003'X ! Return file attributesE PARAMETER QUI$_DISPLAY_FORM = '00000004'X ! Return form attributesC PARAMETER QUI$_DISPLAY_JOB = '00000005'X ! Return job attributesG PARAMETER QUI$_DISPLAY_QUEUE = '00000006'X ! Return queue attributesS PARAMETER QUI$_TRANSLATE_QUEUE = '00000007'X ! Validate and translate queue named PAR AMETER QUI$_DISPLAY_ENTRY = '00000008'X ! Return entry (job) attributes (without first having C ! Return entry (job) attributes (without first having to estad PARAMETER QUI$_DISPLAY_QMAN = '00000009'X ! Reserved for Digital (used by job control to get qmanC ! Reserved for Digital (used by job control to get qman inforQ PARAMETER QUI$_DISPLAY_MANAGER = '0000000A'X ! Return queue manager attributesH PARAMETER QUI$K_MIN_FUNC = '00000001'X ! Minimum GETQUI function codeH PARAMET ER QUI$K_MAX_FUNC = '0000000A'X ! Maximum GETQUI function code !  ! Item codes ! L PARAMETER QUI$_ACCOUNT_NAME = '00000001'X ! Job: Submitter's account name= PARAMETER QUI$_AFTER_TIME = '00000002'X ! Job: /AFTER=timeP PARAMETER QUI$_ASSIGNED_QUEUE_NAME = '00000003'X ! Queue: ASSIGN/QUEUE targetG PARAMETER QUI$_BASE_PRIORITY = '00000004'X ! Queue: /BASE_PRIORITY=nJ PARAMETER QUI$_CHARACTERISTIC_NAME = '00000005'X ! Characteristic: NameN PARAMETER QUI$_CHARACTERISTIC_NUMBER  = '00000006'X ! Characteristic: NumberV PARAMETER QUI$_CHARACTERISTICS = '00000007'X ! Job, queue: /CHARACTERISTICS=(c,...)F PARAMETER QUI$_CHECKPOINT_DATA = '00000008'X ! Job: Checkpoint data8 PARAMETER QUI$_CLI = '00000009'X ! Job: /CLI=filename] PARAMETER QUI$_COMPLETED_BLOCKS = '0000000A'X ! Job: Completed blocks including checkpointI PARAMETER QUI$_CONDITION_VECTOR = '0000000B'X ! Job: Completion statusB PARAMETER QUI$_CPU_DEFAULT = '0000000C'X ! Queue: /CPUDEFAULT=tE PARAM ETER QUI$_CPU_LIMIT = '0000000D'X ! Job, queue: /CPUMAXIMUM=t? PARAMETER QUI$_DEVICE_NAME = '0000000E'X ! Queue: /ON=device@ PARAMETER QUI$_ENTRY_NUMBER = '0000000F'X ! Job: Entry number= PARAMETER QUI$_FILE_COPIES = '00000010'X ! File: /COPIES=nd PARAMETER QUI$_FILE_COPIES_CHKPT = '00000011'X ! File: File copies checkpoint (for internal use oV ! (note this item code is intentionally not documented and reserved for Digital use)N PARAMETER QUI$_FILE_COPIES_DONE = '00000012'X ! Fil e: File copies completedF PARAMETER QUI$_FILE_FLAGS = '00000013'X ! File: Boolean informationN PARAMETER QUI$_FILE_SETUP_MODULES = '00000014'X ! File: /SETUP=(module,...)R PARAMETER QUI$_FILE_SPECIFICATION = '00000015'X ! File: Full file specificationF PARAMETER QUI$_FILE_STATUS = '00000016'X ! File: Status information@ PARAMETER QUI$_FIRST_PAGE = '00000017'X ! File: /PAGES=(n,"")L PARAMETER QUI$_FORM_DESCRIPTION = '00000018'X ! Form: /DESCRIPTION=stringF PARAMETER QUI$_FORM_FLAGS = '00000019'X ! Form: Boolean information= PARAMETER QUI$_FORM_LENGTH = '0000001A'X ! Form: /LENGTH=nK PARAMETER QUI$_FORM_MARGIN_BOTTOM = '0000001B'X ! Form: /MARGIN=BOTTOM=nG PARAMETER QUI$_FORM_MARGIN_LEFT = '0000001C'X ! Form: /MARGIN=LEFT=nI PARAMETER QUI$_FORM_MARGIN_RIGHT = '0000001D'X ! Form: /MARGIN=RIGHT=nE PARAMETER QUI$_FORM_MARGIN_TOP = '0000001E'X ! Form: /MARGIN=TOP=nG PARAMETER QUI$_FORM_NAME = '0000001F'X ! Form, job, queue: Form name: PARAMETER QUI$_FORM_NUM BER = '00000020'X ! Form: NumberN PARAMETER QUI$_FORM_SETUP_MODULES = '00000021'X ! Form: /SETUP=(module,...)D PARAMETER QUI$_FORM_STOCK = '00000022'X ! Form: /STOCK=stock-name; PARAMETER QUI$_FORM_WIDTH = '00000023'X ! Form: /WIDTH=nQ PARAMETER QUI$_GENERIC_TARGET = '00000024'X ! Queue: /GENERIC=(queue-name,...)T PARAMETER QUI$_INTERVENING_BLOCKS = '00000025'X ! Job: Intervening pending blocksP PARAMETER QUI$_INTERVENING_JOBS = '00000026'X ! Job: Intervening pending jobs> PARAM ETER QUI$_JOB_COPIES = '00000027'X ! Job: /JOB_COUNT=ne PARAMETER QUI$_JOB_COPIES_CHKPT = '00000028'X ! Job: Job copies checkpoint (for internal use only)V ! (note this item code is intentionally not documented and reserved for Digital use)K PARAMETER QUI$_JOB_COPIES_DONE = '00000029'X ! Job: Job copies completedD PARAMETER QUI$_JOB_FLAGS = '0000002A'X ! Job: Boolean information? PARAMETER QUI$_JOB_LIMIT = '0000002B'X ! Queue: /JOB_LIMIT=n4 PARAMETER QUI$_JOB_NAME = '0000002C'X !  Job: NameW PARAMETER QUI$_JOB_RESET_MODULES = '0000002D'X ! Queue: /SEPARATE=RESET=(module,...)C PARAMETER QUI$_JOB_SIZE = '0000002E'X ! Job: Total blocks in jobH PARAMETER QUI$_JOB_SIZE_MAXIMUM = '0000002F'X ! Queue: /BLOCK_LIMIT=nM PARAMETER QUI$_JOB_SIZE_MINIMUM = '00000030'X ! Queue: /BLOCK_LIMIT=(n,"")D PARAMETER QUI$_JOB_STATUS = '00000031'X ! Job: Status information: PARAMETER QUI$_LAST_PAGE = '00000032'X ! File: /PAGES=nZ PARAMETER QUI$_LIBRARY_SPECIFICATION = '00000033' X ! Queue: /LIBRARY=file-specificationD PARAMETER QUI$_LOG_QUEUE = '00000034'X ! Job: /PRINTER=queue-nameU PARAMETER QUI$_LOG_SPECIFICATION = '00000035'X ! Job: /LOG_FILE=file-specification8 PARAMETER QUI$_NOTE = '00000036'X ! Job: /NOTE=stringH PARAMETER QUI$_OPERATOR_REQUEST = '00000037'X ! Job: /OPERATOR=string= PARAMETER QUI$_OWNER_UIC = '00000038'X ! Queue: /OWNER=uicS PARAMETER QUI$_PAGE_SETUP_MODULES = '00000039'X ! Form: /PAGE_SETUP=(module,...)D PARAMETER QUI$_PARAMETE R_1 = '0000003A'X ! Job: /PARAMETER=string) PARAMETER QUI$_PARAMETER_2 = '0000003B'X) PARAMETER QUI$_PARAMETER_3 = '0000003C'X) PARAMETER QUI$_PARAMETER_4 = '0000003D'X) PARAMETER QUI$_PARAMETER_5 = '0000003E'X) PARAMETER QUI$_PARAMETER_6 = '0000003F'X) PARAMETER QUI$_PARAMETER_7 = '00000040'X) PARAMETER QUI$_PARAMETER_8 = '00000041'X; PARAMETER QUI$_PRIORITY = '00000042'X ! Job: /PRIORITY=nF PARAMETER QUI$_PROCESSOR = '00000043'X ! Queue: /PROCESSOR=filenameD PARAMETER QUI$_PR OTECTION = '00000044'X ! Queue: /PROTECTION=maskH PARAMETER QUI$_QUEUE_FLAGS = '00000045'X ! Queue: Boolean informationC PARAMETER QUI$_QUEUE_NAME = '00000046'X ! Job, queue: Queue nameH PARAMETER QUI$_QUEUE_STATUS = '00000047'X ! Queue: Status informationd PARAMETER QUI$_REFUSAL_REASON = '00000048'X ! Job: Reason symbiont refused job (for internal use V ! (note this item code is intentionally not documented and reserved for Digital use)f PARAMETER QUI$_REQUEUE_PRIORITY = '00000049'X ! Job: Priority after requeue (for internal use only)V ! (note this item code is intentionally not documented and reserved for Digital use)M PARAMETER QUI$_REQUEUE_QUEUE_NAME = '0000004A'X ! Job: Queue after requeue@ PARAMETER QUI$_SCSNODE_NAME = '0000004B'X ! Queue: /ON=node::F PARAMETER QUI$_SEARCH_FLAGS = '0000004C'X ! Flags to control searchH PARAMETER QUI$_SEARCH_NAME = '0000004D'X ! Object name to search for K PARAMETER QUI$_SEARCH_NUMBER = '0000004E'X ! Object number to sea rch forF PARAMETER QUI$_SUBMISSION_TIME = '0000004F'X ! Job: Submission time: PARAMETER QUI$_UIC = '00000050'X ! Job: Submitter's UICD PARAMETER QUI$_USERNAME = '00000051'X ! Job: Submitter's usernameD PARAMETER QUI$_WSDEFAULT = '00000052'X ! Job, queue: /WSDEFAULT=nB PARAMETER QUI$_WSEXTENT = '00000053'X ! Job, queue: /WSEXTENT=n@ PARAMETER QUI$_WSQUOTA = '00000054'X ! Job, queue: /WSQUOTA=nH PARAMETER QUI$_RAD = '00000055'X ! RAD assigned to queue or batch job_ PARAMETER QUI$_ RESERVED_OUTPUT_86 = '00000056'X ! Reserved for Digital use (name may change)d PARAMETER QUI$_JOB_CONTROL_GQC = '00000057'X ! Reserved for Digital (Use to send GQC to job contrC ! Reserved for Digital (Use to send GQC to job control proces[ PARAMETER QUI$_SEARCH_USERNAME = '00000058'X ! Username of owner of job to modify searchN PARAMETER QUI$_DEFAULT_FORM_NAME = '00000059'X ! Default form name on queueR PARAMETER QUI$_DEFAULT_FORM_NUMBER = '0000005A'X ! Default form number on q ueueQ PARAMETER QUI$_DEFAULT_FORM_STOCK = '0000005B'X ! Stock name for default form : PARAMETER QUI$_JOB_PID = '0000005C'X ! Pid of batch job^ PARAMETER QUI$_FILE_IDENTIFICATION = '0000005D'X ! File identification (From RMS NAM block)e PARAMETER QUI$_PENDING_JOB_BLOCK_COUNT = '0000005E'X ! Total number of blocks for all pending jobsd PARAMETER QUI$_JOB_RETENTION_TIME = '0000005F'X ! The amount of time the job should be retained (C ! The amount of time the job should be retained  (may be deltaZ PARAMETER QUI$_JOB_COMPLETION_TIME = '00000060'X ! The time the job completed executiond PARAMETER QUI$_JOB_COMPLETION_QUEUE = '00000061'X ! The name of the queue the job completed execu_ PARAMETER QUI$_RESERVED_OUTPUT_98 = '00000062'X ! Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_OUTPUT_99 = '00000063'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_100 = '00000064'X ! Reserved for Digital use (name may change)` P ARAMETER QUI$_RESERVED_OUTPUT_101 = '00000065'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_102 = '00000066'X ! Reserved for Digital use (name may change)P PARAMETER QUI$_SEARCH_BATCH_EPID = '00000067'X ! Batch job EPID to search forH PARAMETER QUI$_SEARCH_JOB_NAME = '00000068'X ! Job name to search for_ PARAMETER QUI$_RESERVED_INPUT_105 = '00000069'X ! Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_INPUT_106 = '0000006A'X ! Reser ved for Digital use (name may change)W PARAMETER QUI$_EXECUTING_JOB_COUNT = '0000006B'X ! Number of jobs that are executingJ PARAMETER QUI$_HOLDING_JOB_COUNT = '0000006C'X ! Number of holding jobsc PARAMETER QUI$_TIMED_RELEASE_JOB_COUNT = '0000006D'X ! Number of jobs specified with /AFTER_TIMEc PARAMETER QUI$_PENDING_JOB_REASON = '0000006E'X ! Secondary status describing why job is pending< PARAMETER QUI$_ORB = '0000006F'X ! ORB data in TLV formatV ! (note this item code is intent ionally not documented and reserved for Digital use)G PARAMETER QUI$_QUEUE_DESCRIPTION = '00000070'X ! Queue: /DESCRIPTIONe PARAMETER QUI$_SYMBIONT_FLAGS = '00000071'X ! Symbiont options (requests) passed to job controllerV ! (note this item code is intentionally not documented and reserved for Digital use)d PARAMETER QUI$_JOB_ACCESS_CLASS = '00000072'X ! Job access class information (for internal use onV ! (note this item code is intentionally not documented and reserved for Digital us e)d PARAMETER QUI$_ORB_LOCK_KEY = '00000073'X ! Key value for locking of in-memory ORB data structureC ! Key value for locking of in-memory ORB data structure (for V ! (note this item code is intentionally not documented and reserved for Digital use)d PARAMETER QUI$_CHECKPOINT_FREQUENCY = '00000074'X ! Number of pages in interval at which symbiontJ PARAMETER QUI$_PENDING_JOB_COUNT = '00000075'X ! Number of pending jobsL PARAMETER QUI$_RETAINED_JOB_COUNT = '00000076'X ! Number of r etained jobsd PARAMETER QUI$_RESTART_QUEUE_NAME = '00000077'X ! Name of queue into which a job would be restartC ! Name of queue into which a job would be restarted, if approB PARAMETER QUI$_FILE_COUNT = '00000078'X ! Count of files in jobd PARAMETER QUI$_ATTRIBUTES = '00000079'X ! Keywds and values of extens attribs associated with queC ! Keywds and values of extens attribs associated with queue, d PARAMETER QUI$_ATTRIBUTES_SIZE = '0000007A'X ! Length of list of extens attri bs associated with qC ! Length of list of extens attribs associated with queue, jobZ PARAMETER QUI$_QUEUE_SUPPORT = '0000007B'X ! Queue Support Images defined on this queuee PARAMETER QUI$_QUEUE_ATTRIBUTES = '0000007C'X ! Valid keywords for operations that alter the queued PARAMETER QUI$_QUEUE_ATTRIBUTES_SIZE = '0000007D'X ! Length of list of keywords for queue-orienteC ! Length of list of keywords for queue-oriented extens attribd PARAMETER QUI$_JOB_ATTRIBUTES = '0000007E'X  ! Valid keywords for operations that create or alter d PARAMETER QUI$_JOB_ATTRIBUTES_SIZE = '0000007F'X ! Length of list of keywords for job-oriented exe PARAMETER QUI$_FILE_ATTRIBUTES = '00000080'X ! Valid keywords for file submissions or alter_file'sd PARAMETER QUI$_FILE_ATTRIBUTES_SIZE = '00000081'X ! Length of list of keywords for file-oriented d PARAMETER QUI$_AUTOSTART_ON = '00000082'X ! Node(s) (and for print queues, device(s)) on which quC ! Node(s) (and for print queues, d evice(s)) on which queue caD PARAMETER QUI$_AGENT_PROFILE = '00000083'X ! Security informationA PARAMETER QUI$_MANAGER_NAME = '00000084'X ! Queue manager name[ PARAMETER QUI$_MANAGER_STATUS = '00000085'X ! Queue manager state and status information` PARAMETER QUI$_RESERVED_OUTPUT_134 = '00000086'X ! Reserved for Digital use (name may change)f PARAMETER QUI$_MANAGER_NODES = '00000087'X ! Preferred node listed specified on start queue manager\ PARAMETER QUI$_MANAGER_AUTOSTART = '00000 088'X ! List of nodes that are autostart enabledd PARAMETER QUI$_QUEUE_DIRECTORY = '00000089'X ! Directory specification provided when queue manageC ! Directory specification provided when queue manager was sta` PARAMETER QUI$_RESERVED_OUTPUT_138 = '0000008A'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_139 = '0000008B'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_140 = '0000008C'X ! Reserved for Digital use (name m ay change)` PARAMETER QUI$_RESERVED_OUTPUT_141 = '0000008D'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_142 = '0000008E'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_143 = '0000008F'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_144 = '00000090'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_145 = '00000091'X ! Reserved for Digital use (name may change)` PAR AMETER QUI$_RESERVED_OUTPUT_146 = '00000092'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_147 = '00000093'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_148 = '00000094'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_149 = '00000095'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_150 = '00000096'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESE RVED_OUTPUT_151 = '00000097'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_152 = '00000098'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_153 = '00000099'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_154 = '0000009A'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_155 = '0000009B'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_156  = '0000009C'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_157 = '0000009D'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_158 = '0000009E'X ! Reserved for Digital use (name may change)` PARAMETER QUI$_RESERVED_OUTPUT_159 = '0000009F'X ! Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_INPUT_160 = '000000A0'X ! Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_INPUT_161 = '000000A1'X !  Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_INPUT_162 = '000000A2'X ! Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_INPUT_163 = '000000A3'X ! Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_INPUT_164 = '000000A4'X ! Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_INPUT_165 = '000000A5'X ! Reserved for Digital use (name may change)D PARAMETER QUI$K_MIN_ITEM = '00000001'X ! Minimum GETQUI item code D PARAMETER QUI$K_MAX_ITEM = '000000A5'X ! Maximum GETQUI item codeK PARAMETER QUI$_CHARGE_CODE = '00000001'X ! synonym for QUI$_ACCOUNT_NAME ! & ! Subfields of FILE_FLAGS item code. ! ) PARAMETER QUI$M_FILE_BURST = '00000001'X- PARAMETER QUI$M_FILE_BURST_EXP = '00000002'X* PARAMETER QUI$M_FILE_DELETE = '00000004'X0 PARAMETER QUI$M_FILE_DOUBLE_SPACE = '00000008'X( PARAMETER QUI$M_FILE_FLAG = '00000010'X, PARAMETER QUI$M_FILE_FLAG_EXP = '00000020'X+ PARAMETER QUI$M_FILE_TRAILER = '00000040'X/ PARAMETER QUI$M_FILE_TRAILER_EXP = '00000080'X/ PARAMETER QUI$M_FILE_PAGE_HEADER = '00000100'X, PARAMETER QUI$M_FILE_PAGINATE = '00000200'X+ PARAMETER QUI$M_FILE_PASSALL = '00000400'X0 PARAMETER QUI$M_FILE_PAGINATE_EXP = '00000800'X1 PARAMETER QUI$M_FILE_DELETE_ALWAYS = '00001000'X STRUCTURE /FILE_FLAGS/# PARAMETER QUI$S_FILE_BURST = 1/ PARAMETER QUI$V_FILE_BURST = 0 ! /BURST' PARAMETER QUI$S_FILE_BURST_EXP = 1^ PARAMETER QUI$V_FILE_BURST_EXP = 1 ! /[NO]BURST explicit (intentionally not documented)$ PARAMETER QUI$S_FILE_DELETE = 11 PARAMETER QUI$V_FILE_DELETE = 2 ! /DELETE* PARAMETER QUI$S_FILE_DOUBLE_SPACE = 15 PARAMETER QUI$V_FILE_DOUBLE_SPACE = 3 ! /SPACE" PARAMETER QUI$S_FILE_FLAG = 1- PARAMETER QUI$V_FILE_FLAG = 4 ! /FLAG& PARAMETER QUI$S_FILE_FLAG_EXP = 1\ PARAMETER QUI$V_FILE_FLAG_EXP = 5 ! /[NO]FLAG explicit (intentionally not documented)% PARAMETER QUI$S_FILE_TRAILER = 12 PARAMETER QUI$V_FILE_TRAILER = 6 ! /TRAILER) PARAMETER QUI$S_FILE_TRAILER_EXP = 1b PARAMETER QUI$V_FILE_TRAILER_EXP = 7 ! /[NO]TRAILER explicit (intentionally not documented)) PARAMETER QUI$S_FILE_PAGE_HEADER = 15 PARAMETER QUI$V_FILE_PAGE_HEADER = 8 ! /HEADER& PARAMETER QUI$S_FILE_PAGINATE = 10 PARAMETER QUI$V_FILE_PAGINATE = 9 ! /FEED% PARAMETER QUI$S_FILE_PASSALL = 13 PARAMETER QUI$V_FILE_PASSALL = 10 ! /PASSALL* PARAMETER QUI$S_FILE_PA GINATE_EXP = 1a PARAMETER QUI$V_FILE_PAGINATE_EXP = 11 ! /[NO]FEED explicit (intentionally not documented)+ PARAMETER QUI$S_FILE_DELETE_ALWAYS = 1? PARAMETER QUI$V_FILE_DELETE_ALWAYS = 12 ! /DELETE_ALWAYS BYTE %FILL (2) END STRUCTURE ! FILE_FLAGS ! ' ! Subfields of FILE_STATUS item code. ! 0 PARAMETER QUI$M_FILE_CHECKPOINTED = '00000001'X- PARAMETER QUI$M_FILE_EXECUTING = '00000002'X STRUCTURE /FILE_STATUS/* PARAMETER QUI$S_FILE_CHECKPOINTED = 1@ PAR AMETER QUI$V_FILE_CHECKPOINTED = 0 ! File checkpointed' PARAMETER QUI$S_FILE_EXECUTING = 1D PARAMETER QUI$V_FILE_EXECUTING = 1 ! File currently executing BYTE %FILL (1) END STRUCTURE ! FILE_STATUS ! & ! Subfields of FORM_FLAGS item code. ! . PARAMETER QUI$M_FORM_SHEET_FEED = '00000001'X, PARAMETER QUI$M_FORM_TRUNCATE = '00000002'X( PARAMETER QUI$M_FORM_WRAP = '00000004'X STRUCTURE /FORM_FLAGS/( PARAMETER QUI$S_FORM_SHEET_FEED = 18 PARAMETER QUI$V_FORM_SHEET_ FEED = 0 ! /SHEET_FEED& PARAMETER QUI$S_FORM_TRUNCATE = 14 PARAMETER QUI$V_FORM_TRUNCATE = 1 ! /TRUNCATE" PARAMETER QUI$S_FORM_WRAP = 1- PARAMETER QUI$V_FORM_WRAP = 2 ! /WRAP BYTE %FILL (1) END STRUCTURE ! FORM_FLAGS ! % ! Subfields of JOB_FLAGS item code. ! , PARAMETER QUI$M_JOB_CPU_LIMIT = '00000001'X- PARAMETER QUI$M_JOB_FILE_BURST = '00000002'X1 PARAMETER QUI$M_JOB_FILE_BURST_ONE = '00000004'X1 PARAMETER QUI$M_JOB_FILE_BURST_EXP = '00000008'X, PAR AMETER QUI$M_JOB_FILE_FLAG = '00000010'X0 PARAMETER QUI$M_JOB_FILE_FLAG_ONE = '00000020'X0 PARAMETER QUI$M_JOB_FILE_FLAG_EXP = '00000040'X/ PARAMETER QUI$M_JOB_FILE_TRAILER = '00000080'X3 PARAMETER QUI$M_JOB_FILE_TRAILER_ONE = '00000100'X3 PARAMETER QUI$M_JOB_FILE_TRAILER_EXP = '00000200'X- PARAMETER QUI$M_JOB_LOG_DELETE = '00000400'X+ PARAMETER QUI$M_JOB_LOG_NULL = '00000800'X, PARAMETER QUI$M_JOB_LOG_SPOOL = '00001000'X, PARAMETER QUI$M_JOB_LOWERCASE = '00002000'X) PARAMETER QUI$M_JOB _NOTIFY = '00004000'X* PARAMETER QUI$M_JOB_RESTART = '00008000'X, PARAMETER QUI$M_JOB_WSDEFAULT = '00010000'X+ PARAMETER QUI$M_JOB_WSEXTENT = '00020000'X* PARAMETER QUI$M_JOB_WSQUOTA = '00040000'X0 PARAMETER QUI$M_JOB_FILE_PAGINATE = '00080000'X4 PARAMETER QUI$M_JOB_FILE_PAGINATE_EXP = '00100000'X, PARAMETER QUI$M_JOB_RETENTION = '00200000'X2 PARAMETER QUI$M_JOB_ERROR_RETENTION = '00400000'X& PARAMETER QUI$M_JOB_RAD = '00800000'X STRUCTURE /JOB_FLAGS/& PARAMETER QUI$S_JOB_CPU_LIMIT = 1< PARAMETER QUI$V_JOB_CPU_LIMIT = 0 ! /CPUTIME explicit' PARAMETER QUI$S_JOB_FILE_BURST = 16 PARAMETER QUI$V_JOB_FILE_BURST = 1 ! /BURST=ALL+ PARAMETER QUI$S_JOB_FILE_BURST_ONE = 1: PARAMETER QUI$V_JOB_FILE_BURST_ONE = 2 ! /BURST=ONE+ PARAMETER QUI$S_JOB_FILE_BURST_EXP = 1b PARAMETER QUI$V_JOB_FILE_BURST_EXP = 3 ! /[NO]BURST explicit (intentionally not documented)& PARAMETER QUI$S_JOB_FILE_FLAG = 14 PARAMETER QUI$V_JOB_FILE_FLAG = 4 ! /FLAG=A LL* PARAMETER QUI$S_JOB_FILE_FLAG_ONE = 18 PARAMETER QUI$V_JOB_FILE_FLAG_ONE = 5 ! /FLAG=ONE* PARAMETER QUI$S_JOB_FILE_FLAG_EXP = 1` PARAMETER QUI$V_JOB_FILE_FLAG_EXP = 6 ! /[NO]FLAG explicit (intentionally not documented)) PARAMETER QUI$S_JOB_FILE_TRAILER = 1: PARAMETER QUI$V_JOB_FILE_TRAILER = 7 ! /TRAILER=ALL- PARAMETER QUI$S_JOB_FILE_TRAILER_ONE = 1> PARAMETER QUI$V_JOB_FILE_TRAILER_ONE = 8 ! /TRAILER=ONE- PARAMETER QUI$S_JOB_FILE_TRAILER_EXP = 1f PARAMETER QUI$V_JOB_FILE_TRAILER_EXP = 9 ! /[NO]TRAILER explicit (intentionally not documented)' PARAMETER QUI$S_JOB_LOG_DELETE = 14 PARAMETER QUI$V_JOB_LOG_DELETE = 10 ! /NOKEEP% PARAMETER QUI$S_JOB_LOG_NULL = 16 PARAMETER QUI$V_JOB_LOG_NULL = 11 ! /NOLOG_FILE& PARAMETER QUI$S_JOB_LOG_SPOOL = 14 PARAMETER QUI$V_JOB_LOG_SPOOL = 12 ! /PRINTER& PARAMETER QUI$S_JOB_LOWERCASE = 16 PARAMETER QUI$V_JOB_LOWERCASE = 13 ! /LOWERCASE# PARAMETER QUI$S_JOB_NOTIFY = 11 PARAMETER QUI$V_JOB_NOTIFY = 14 ! /NOTIFY$ PARAMETER QUI$S_JOB_RESTART = 12 PARAMETER QUI$V_JOB_RESTART = 15 ! /RESTART& PARAMETER QUI$S_JOB_WSDEFAULT = 1? PARAMETER QUI$V_JOB_WSDEFAULT = 16 ! /WSDEFAULT explicit% PARAMETER QUI$S_JOB_WSEXTENT = 1= PARAMETER QUI$V_JOB_WSEXTENT = 17 ! /WSEXTENT explicit$ PARAMETER QUI$S_JOB_WSQUOTA = 1; PARAMETER QUI$V_JOB_WSQUOTA = 18 ! /WSQUOTA explicit* PARAMETER QUI$S_JOB_FILE_ PAGINATE = 15 PARAMETER QUI$V_JOB_FILE_PAGINATE = 19 ! /FEED. PARAMETER QUI$S_JOB_FILE_PAGINATE_EXP = 1e PARAMETER QUI$V_JOB_FILE_PAGINATE_EXP = 20 ! /[NO]FEED explicit (intentionally not documented)& PARAMETER QUI$S_JOB_RETENTION = 1: PARAMETER QUI$V_JOB_RETENTION = 21 ! /RETAIN=ALWAYS, PARAMETER QUI$S_JOB_ERROR_RETENTION = 1? PARAMETER QUI$V_JOB_ERROR_RETENTION = 22 ! /RETAIN=ERROR PARAMETER QUI$S_JOB_RAD = 14 PARAMETER QUI$V_JOB_RAD = 23 !  /RAD explicit BYTE %FILL (3) END STRUCTURE ! JOB_FLAGS ! & ! Subfields of JOB_STATUS item code. ! + PARAMETER QUI$M_JOB_ABORTING = '00000001'X, PARAMETER QUI$M_JOB_EXECUTING = '00000002'X* PARAMETER QUI$M_JOB_HOLDING = '00000004'X/ PARAMETER QUI$M_JOB_INACCESSIBLE = '00000008'X* PARAMETER QUI$M_JOB_REFUSED = '00000010'X* PARAMETER QUI$M_JOB_REQUEUE = '00000020'X- PARAMETER QUI$M_JOB_RESTARTING = '00000040'X+ PARAMETER QUI$M_JOB_RETAINED = '00000080'X+ PARAMETER QUI$M_JOB_STA RTING = '00000100'X0 PARAMETER QUI$M_JOB_TIMED_RELEASE = '00000200'X, PARAMETER QUI$M_JOB_SUSPENDED = '00000400'X* PARAMETER QUI$M_JOB_PENDING = '00000800'X, PARAMETER QUI$M_JOB_UNDEFINED = '00001000'X* PARAMETER QUI$M_JOB_STALLED = '00002000'X- PARAMETER QUI$M_JOB_INCOMPLETE = '00004000'X- PARAMETER QUI$M_JOB_COMPLETING = '00008000'X STRUCTURE /JOB_STATUS/% PARAMETER QUI$S_JOB_ABORTING = 19 PARAMETER QUI$V_JOB_ABORTING = 0 ! Job is aborting& PARAMETER QUI$S_JOB_EXECUTI NG = 1; PARAMETER QUI$V_JOB_EXECUTING = 1 ! Job is executing$ PARAMETER QUI$S_JOB_HOLDING = 1B PARAMETER QUI$V_JOB_HOLDING = 2 ! Job is holding for /HOLD) PARAMETER QUI$S_JOB_INACCESSIBLE = 1A PARAMETER QUI$V_JOB_INACCESSIBLE = 3 ! Job is inaccessible$ PARAMETER QUI$S_JOB_REFUSED = 1E PARAMETER QUI$V_JOB_REFUSED = 4 ! Job was refused by symbiont$ PARAMETER QUI$S_JOB_REQUEUE = 1e PARAMETER QUI$V_JOB_REQUEUE = 5 ! Job will requeue after abort (intentionally not documented)' PARAMETER QUI$S_JOB_RESTARTING = 1d PARAMETER QUI$V_JOB_RESTARTING = 6 ! Job started execution at least once (intentionally not dC ! Job started execution at least once (intentionally not docu% PARAMETER QUI$S_JOB_RETAINED = 1E PARAMETER QUI$V_JOB_RETAINED = 7 ! Job was retained by /RETAIN% PARAMETER QUI$S_JOB_STARTING = 19 PARAMETER QUI$V_JOB_STARTING = 8 ! Job is starting* PARAMETER QUI$S_JOB_TIMED_RELEASE = 1H  PARAMETER QUI$V_JOB_TIMED_RELEASE = 9 ! Job is holding for /AFTER& PARAMETER QUI$S_JOB_SUSPENDED = 1R PARAMETER QUI$V_JOB_SUSPENDED = 10 ! Job is suspended by STOP/QUEUE command$ PARAMETER QUI$S_JOB_PENDING = 1d PARAMETER QUI$V_JOB_PENDING = 11 ! Job is pending (see QUI$_JOB_PENDING_REASON for more inforC ! Job is pending (see QUI$_JOB_PENDING_REASON for more inform& PARAMETER QUI$S_JOB_UNDEFINED = 1d PARAMETER QUI$V_JOB_UNDEFINED = 12 ! Job does not yet exist in db or is being removed from db$ PARAMETER QUI$S_JOB_STALLED = 1F PARAMETER QUI$V_JOB_STALLED = 13 ! Current job on stalled queue' PARAMETER QUI$S_JOB_INCOMPLETE = 1d PARAMETER QUI$V_JOB_INCOMPLETE = 14 ! Job was processed by the symbiont but further processinC ! Job was processed by the symbiont but further processing is' PARAMETER QUI$S_JOB_COMPLETING = 1N PARAMETER QUI$V_JOB_COMPLETING = 15 ! Job has been completely processed BYTE %FILL (2) END STRUCTURE ! JOB_STATUSe PARAMETER QUI$V_JOB_TIMED = '00000009'X ! Synonym for QUI$V_JOB_TIMED_RELEASE for V4 compatibilitye PARAMETER QUI$M_JOB_TIMED = '00000200'X ! Synonym for QUI$M_JOB_TIMED_RELEASE for V4 compatibility ! $ ! Subfields of PENDING_JOB_REASON. ! d ! Note that in the descriptions below "queue" refers to the execution queue in which a job residesC ! Note that in the descriptions below "queue" refers to the eC ! xecution queue in which a job resides, or to the set of execJ ! queues that is the target of the generic queue in which a job resides. ! 1 PARAMETER QUI$M_PEND_CHAR_MISMATCH = '00000001'X0 PARAMETER QUI$M_PEND_JOB_SIZE_MAX = '00000002'X0 PARAMETER QUI$M_PEND_JOB_SIZE_MIN = '00000004'X6 PARAMETER QUI$M_PEND_LOWERCASE_MISMATCH = '00000008'X- PARAMETER QUI$M_PEND_NO_ACCESS = '00000010'X. PARAMETER QUI$M_PEND_QUEUE_BUSY = '00000020'X/ PARAMETER QUI$M_PEND_QUEUE_STATE = '00000040'X2 PARAMETER QUI$M_PEND_STOCK_MISMATCH = '000000 80'X STRUCTURE /PENDING_JOB_REASON/+ PARAMETER QUI$S_PEND_CHAR_MISMATCH = 1d PARAMETER QUI$V_PEND_CHAR_MISMATCH = 0 ! Queue's characteristics do not match job's requireme* PARAMETER QUI$S_PEND_JOB_SIZE_MAX = 1d PARAMETER QUI$V_PEND_JOB_SIZE_MAX = 1 ! Print job's block size is too large to execute on queC ! Print job's block size is too large to execute on queue (pr* PARAMETER QUI$S_PEND_JOB_SIZE_MIN = 1d PARAMETER QUI$V_PEND_JOB_SIZE_MIN = 2 ! Print job's block size is too small to execute on queC ! Print job's block size is too small to execute on queue (pr0 PARAMETER QUI$S_PEND_LOWERCASE_MISMATCH = 1d PARAMETER QUI$V_PEND_LOWERCASE_MISMATCH = 3 ! Queue's lowercase attribute does not match job'C ! Queue's lowercase attribute does not match job's requiremen' PARAMETER QUI$S_PEND_NO_ACCESS = 1N PARAMETER QUI$V_PEND_NO_ACCESS = 4 ! User does not have access to queue( PARAMETER QUI$S_PEND_QUEUE_BUSY = 1d P ARAMETER QUI$V_PEND_QUEUE_BUSY = 5 ! Job is ready to execute but must wait until other jobs C ! Job is ready to execute but must wait until other jobs aheaR ! complete execution (this is a normal state that requires no user intervention)) PARAMETER QUI$S_PEND_QUEUE_STATE = 1d PARAMETER QUI$V_PEND_QUEUE_STATE = 6 ! Queue state prevents job from executing (see QUI$_QUEUC ! Queue state prevents job from executing (see QUI$_QUEUE_STA, PARAMETER QUI$S_PEND_STOCK_MISMATCH = 1d PARAMETER QUI$V_PEND_STOCK_MISMATCH = 7 ! Stock type of mounted form on output execution queuC ! Stock type of mounted form on output execution queue does nJ ! stock stock type required by form associated with job (print job only) BYTE %FILL (1)# END STRUCTURE ! PENDING_JOB_REASON ! ' ! Subfields of QUEUE_FLAGS item code. ! * PARAMETER QUI$M_QUEUE_BATCH = '00000001'X0 PARAMETER QUI$M_QUEUE_CPU_DEFAULT = '00000002'X. PARAMETER QUI$M_QUEUE_CPU_LIMIT = '00000004'X/ PARAMETER QUI$M_QUEUE_FILE_BURST = '00000008'X3 PARAMETER QUI$M_QUEUE_FILE_BURST_ONE = '00000010'X. PARAMETER QUI$M_QUEUE_FILE_FLAG = '00000020'X2 PARAMETER QUI$M_QUEUE_FILE_FLAG_ONE = '00000040'X1 PARAMETER QUI$M_QUEUE_FILE_TRAILER = '00000080'X5 PARAMETER QUI$M_QUEUE_FILE_TRAILER_ONE = '00000100'X, PARAMETER QUI$M_QUEUE_GENERIC = '00000200'X6 PARAMETER QUI$M_QUEUE_GENERIC_SELECTION = '00000400'X. PARAMETER QUI$M_QUEUE_JOB_BURST = '00000800'X- PARAMETER QUI$M_QUEUE_JOB_FLAG = '00001000' X3 PARAMETER QUI$M_QUEUE_JOB_SIZE_SCHED = '00002000'X0 PARAMETER QUI$M_QUEUE_JOB_TRAILER = '00004000'X/ PARAMETER QUI$M_QUEUE_RETAIN_ALL = '00008000'X1 PARAMETER QUI$M_QUEUE_RETAIN_ERROR = '00010000'X) PARAMETER QUI$M_QUEUE_SWAP = '00020000'X- PARAMETER QUI$M_QUEUE_TERMINAL = '00040000'X. PARAMETER QUI$M_QUEUE_WSDEFAULT = '00080000'X- PARAMETER QUI$M_QUEUE_WSEXTENT = '00100000'X, PARAMETER QUI$M_QUEUE_WSQUOTA = '00200000'X2 PARAMETER QUI$M_QUEUE_FILE_PAGINATE = '00400000'X4 PARAMETER QUI$M_QUEUE_RECORD_BLOCKING = '00800000'X, PARAMETER QUI$M_QUEUE_PRINTER = '01000000'X2 PARAMETER QUI$M_QUEUE_ACL_SPECIFIED = '02000000'X8 PARAMETER QUI$M_QUEUE_NOTIFY_ON_INTERRUPT = '04000000'X4 PARAMETER QUI$M_QUEUE_CHECKPOINT_FREQ = '08000000'X. PARAMETER QUI$M_QUEUE_AUTOSTART = '10000000'X4 PARAMETER QUI$M_SECURITY_INACCESSIBLE = '20000000'X2 PARAMETER QUI$M_QUEUE_NO_INITIAL_FF = '40000000'X( PARAMETER QUI$M_QUEUE_RAD = '80000000'X STRUCTURE /QUEUE_FLAGS/$ PARAMETER QUI$S_QUEUE_BAT CH = 10 PARAMETER QUI$V_QUEUE_BATCH = 0 ! /BATCH* PARAMETER QUI$S_QUEUE_CPU_DEFAULT = 1D PARAMETER QUI$V_QUEUE_CPU_DEFAULT = 1 ! /CPUDEFAULT specified( PARAMETER QUI$S_QUEUE_CPU_LIMIT = 1B PARAMETER QUI$V_QUEUE_CPU_LIMIT = 2 ! /CPUMAXIMUM specified) PARAMETER QUI$S_QUEUE_FILE_BURST = 1@ PARAMETER QUI$V_QUEUE_FILE_BURST = 3 ! /DEFAULT=BURST=ALL- PARAMETER QUI$S_QUEUE_FILE_BURST_ONE = 1D PARAMETER QUI$V_QUEUE_FILE_BURST_ONE = 4 ! /DEFAULT=BURST=O NE( PARAMETER QUI$S_QUEUE_FILE_FLAG = 1> PARAMETER QUI$V_QUEUE_FILE_FLAG = 5 ! /DEFAULT=FLAG=ALL, PARAMETER QUI$S_QUEUE_FILE_FLAG_ONE = 1B PARAMETER QUI$V_QUEUE_FILE_FLAG_ONE = 6 ! /DEFAULT=FLAG=ONE+ PARAMETER QUI$S_QUEUE_FILE_TRAILER = 1D PARAMETER QUI$V_QUEUE_FILE_TRAILER = 7 ! /DEFAULT=TRAILER=ALL/ PARAMETER QUI$S_QUEUE_FILE_TRAILER_ONE = 1H PARAMETER QUI$V_QUEUE_FILE_TRAILER_ONE = 8 ! /DEFAULT=TRAILER=ONE& PARAMETER QUI$S_QUEUE_GENERIC = 13 PARAMETER QUI$V_QUEUE_GENERIC = 9 ! /GENERIC0 PARAMETER QUI$S_QUEUE_GENERIC_SELECTION = 1E PARAMETER QUI$V_QUEUE_GENERIC_SELECTION = 10 ! /ENABLE_GENERIC( PARAMETER QUI$S_QUEUE_JOB_BURST = 1= PARAMETER QUI$V_QUEUE_JOB_BURST = 11 ! /SEPARATE=BURST' PARAMETER QUI$S_QUEUE_JOB_FLAG = 1< PARAMETER QUI$V_QUEUE_JOB_FLAG = 12 ! /SEPARATE=FLAG - PARAMETER QUI$S_QUEUE_JOB_SIZE_SCHED = 1A PARAMETER QUI$V_QUEUE_JOB_SIZE_SCHED = 13 ! /SCHEDULE=SIZE* P ARAMETER QUI$S_QUEUE_JOB_TRAILER = 1A PARAMETER QUI$V_QUEUE_JOB_TRAILER = 14 ! /SEPARATE=TRAILER) PARAMETER QUI$S_QUEUE_RETAIN_ALL = 1: PARAMETER QUI$V_QUEUE_RETAIN_ALL = 15 ! /RETAIN=ALL+ PARAMETER QUI$S_QUEUE_RETAIN_ERROR = 1> PARAMETER QUI$V_QUEUE_RETAIN_ERROR = 16 ! /RETAIN=ERROR# PARAMETER QUI$S_QUEUE_SWAP = 1= PARAMETER QUI$V_QUEUE_SWAP = 17 ! /NODISABLE_SWAPPING' PARAMETER QUI$S_QUEUE_TERMINAL = 1d PARAMETER QUI$V_QUEUE_TERMINAL = 18 ! /DEVICE=TERMINAL or terminal device type reported by syC ! /DEVICE=TERMINAL or terminal device type reported by symbio( PARAMETER QUI$S_QUEUE_WSDEFAULT = 1B PARAMETER QUI$V_QUEUE_WSDEFAULT = 19 ! /WSDEFAULT specified' PARAMETER QUI$S_QUEUE_WSEXTENT = 1@ PARAMETER QUI$V_QUEUE_WSEXTENT = 20 ! /WSEXTENT specified& PARAMETER QUI$S_QUEUE_WSQUOTA = 1> PARAMETER QUI$V_QUEUE_WSQUOTA = 21 ! /WSQUOTA specified, PARAMETER QUI$S_QUEUE_FILE_PAGINATE = 1? PAR AMETER QUI$V_QUEUE_FILE_PAGINATE = 22 ! /DEFAULT=FEED. PARAMETER QUI$S_QUEUE_RECORD_BLOCKING = 1D PARAMETER QUI$V_QUEUE_RECORD_BLOCKING = 23 ! /RECORD_BLOCKING& PARAMETER QUI$S_QUEUE_PRINTER = 1d PARAMETER QUI$V_QUEUE_PRINTER = 24 ! /DEVICE=PRINTER or printer device type reported by symbi, PARAMETER QUI$S_QUEUE_ACL_SPECIFIED = 1R PARAMETER QUI$V_QUEUE_ACL_SPECIFIED = 25 ! ACL has been specified for queue2 PARAMETER QUI$S_QUEUE_NOTIFY_ON_INTERRUPT = 1L P ARAMETER QUI$V_QUEUE_NOTIFY_ON_INTERRUPT = 26 ! /NOTIFY=INTERRUPTION. PARAMETER QUI$S_QUEUE_CHECKPOINT_FREQ = 1S PARAMETER QUI$V_QUEUE_CHECKPOINT_FREQ = 27 ! /CHECKPOINT_FREQUENCY specified( PARAMETER QUI$S_QUEUE_AUTOSTART = 1E PARAMETER QUI$V_QUEUE_AUTOSTART = 28 ! /AUTOSTART_ON specified. PARAMETER QUI$S_SECURITY_INACCESSIBLE = 1d PARAMETER QUI$V_SECURITY_INACCESSIBLE = 29 ! Requestor does not have access to security infor, PARAMETER QUI$S_QUEUE_NO_INITIA L_FF = 1A PARAMETER QUI$V_QUEUE_NO_INITIAL_FF = 30 ! /NO_INITIAL_FF " PARAMETER QUI$S_QUEUE_RAD = 1# PARAMETER QUI$V_QUEUE_RAD = 31) BYTE %FILL (4) ! /RAD specified END STRUCTURE ! QUEUE_FLAGS ! ( ! Subfields of QUEUE_STATUS item code. ! - PARAMETER QUI$M_QUEUE_ALIGNING = '00000001'X) PARAMETER QUI$M_QUEUE_IDLE = '00000002'X. PARAMETER QUI$M_QUEUE_LOWERCASE = '00000004'X5 PARAMETER QUI$M_QUEUE_OPERATOR_REQUEST = '00000008'X+ PARAMETER QUI$M_QUEUE_PAUSED = '00000010'X, PARAMETER QUI$M_QUEUE_PAUSING = '00000020'X+ PARAMETER QUI$M_QUEUE_REMOTE = '00000040'X. PARAMETER QUI$M_QUEUE_RESETTING = '00000080'X- PARAMETER QUI$M_QUEUE_RESUMING = '00000100'X+ PARAMETER QUI$M_QUEUE_SERVER = '00000200'X, PARAMETER QUI$M_QUEUE_STALLED = '00000400'X- PARAMETER QUI$M_QUEUE_STARTING = '00000800'X, PARAMETER QUI$M_QUEUE_STOPPED = '00001000'X- PARAMETER QUI$M_QUEUE_STOPPING = '00002000'X0 PARAMETER QUI$M_QUEUE_UNAVAILABLE = '00004000'X+ PARAMETER QUI$M_Q UEUE_CLOSED = '00008000'X) PARAMETER QUI$M_QUEUE_BUSY = '00010000'X. PARAMETER QUI$M_QUEUE_UNDEFINED = '00020000'X. PARAMETER QUI$M_QUEUE_AVAILABLE = '00040000'X- PARAMETER QUI$M_QUEUE_DISABLED = '00080000'X7 PARAMETER QUI$M_QUEUE_AUTOSTART_INACTIVE = '00100000'X1 PARAMETER QUI$M_QUEUE_STOP_PENDING = '00200000'X STRUCTURE /QUEUE_STATUS/' PARAMETER QUI$S_QUEUE_ALIGNING = 1= PARAMETER QUI$V_QUEUE_ALIGNING = 0 ! Queue is aligning# PARAMETER QUI$S_QUEUE_IDLE = 1d PAR AMETER QUI$V_QUEUE_IDLE = 1 ! Queue is idle: no jobs executing and none available for exC ! Queue is idle: no jobs executing and none available for ex( PARAMETER QUI$S_QUEUE_LOWERCASE = 1= PARAMETER QUI$V_QUEUE_LOWERCASE = 2 ! Lowercase device/ PARAMETER QUI$S_QUEUE_OPERATOR_REQUEST = 1d PARAMETER QUI$V_QUEUE_OPERATOR_REQUEST = 3 ! Queue is doing /OPERATOR (intentionally not docu% PARAMETER QUI$S_QUEUE_PAUSED = 19 PARAMETER QUI$V_QUEUE_PAUSED = 4 ! Qu eue is paused& PARAMETER QUI$S_QUEUE_PAUSING = 1; PARAMETER QUI$V_QUEUE_PAUSING = 5 ! Queue is pausing% PARAMETER QUI$S_QUEUE_REMOTE = 17 PARAMETER QUI$V_QUEUE_REMOTE = 6 ! Remote device( PARAMETER QUI$S_QUEUE_RESETTING = 1[ PARAMETER QUI$V_QUEUE_RESETTING = 7 ! Incomplete remote request to reset (OBSOLETE)' PARAMETER QUI$S_QUEUE_RESUMING = 1O PARAMETER QUI$V_QUEUE_RESUMING = 8 ! Queue is resuming from paused state% PARAMETER QUI$S_QUEUE_SER VER = 1d PARAMETER QUI$V_QUEUE_SERVER = 9 ! /DEVICE=SERVER or reported to be a served queue by the symC ! /DEVICE=SERVER or reported to be a served queue by the symb& PARAMETER QUI$S_QUEUE_STALLED = 1= PARAMETER QUI$V_QUEUE_STALLED = 10 ! Device is stalled' PARAMETER QUI$S_QUEUE_STARTING = 1> PARAMETER QUI$V_QUEUE_STARTING = 11 ! Queue is starting& PARAMETER QUI$S_QUEUE_STOPPED = 1< PARAMETER QUI$V_QUEUE_STOPPED = 12 ! Queue is stopped' PARAMET ER QUI$S_QUEUE_STOPPING = 1> PARAMETER QUI$V_QUEUE_STOPPING = 13 ! Queue is stopping* PARAMETER QUI$S_QUEUE_UNAVAILABLE = 1E PARAMETER QUI$V_QUEUE_UNAVAILABLE = 14 ! Device is unavailable% PARAMETER QUI$S_QUEUE_CLOSED = 1: PARAMETER QUI$V_QUEUE_CLOSED = 15 ! Queue is closed# PARAMETER QUI$S_QUEUE_BUSY = 1d PARAMETER QUI$V_QUEUE_BUSY = 16 ! Queue is executing as many jobs as it is capable of executC ! Queue is executing as many jobs as it is capable of executi( PARAMETER QUI$S_QUEUE_UNDEFINED = 1d PARAMETER QUI$V_QUEUE_UNDEFINED = 17 ! Queue does not yet exist in db or is being removed fro( PARAMETER QUI$S_QUEUE_AVAILABLE = 1d PARAMETER QUI$V_QUEUE_AVAILABLE = 18 ! At least one job is executing, but the queue is capablC ! At least one job is executing, but the queue is capable of ' PARAMETER QUI$S_QUEUE_DISABLED = 1d PARAMETER QUI$V_QUEUE_DISABLED = 19 ! Queue is not able to accept or process jobs; it s QSIs aC ! Queue is not able to accept or process jobs; its QSIs are i1 PARAMETER QUI$S_QUEUE_AUTOSTART_INACTIVE = 1Y PARAMETER QUI$V_QUEUE_AUTOSTART_INACTIVE = 20 ! AUTOSTART queue explicitly stopped+ PARAMETER QUI$S_QUEUE_STOP_PENDING = 1d PARAMETER QUI$V_QUEUE_STOP_PENDING = 21 ! Queue will be stopped when work currently in progreC ! Queue will be stopped when work currently in progress has c BYTE %FILL (3) END STRUCTURE ! QUEUE_STATUS ! ( ! Subf ields of SEARCH_FLAGS item code. ! . PARAMETER QUI$M_SEARCH_ALL_JOBS = '00000001'X. PARAMETER QUI$M_SEARCH_WILDCARD = '00000002'X+ PARAMETER QUI$M_SEARCH_BATCH = '00000004'X. PARAMETER QUI$M_SEARCH_SYMBIONT = '00000008'X. PARAMETER QUI$M_SEARCH_THIS_JOB = '00000010'X- PARAMETER QUI$M_SEARCH_PRINTER = '00000020'X, PARAMETER QUI$M_SEARCH_SERVER = '00000040'X. PARAMETER QUI$M_SEARCH_TERMINAL = '00000080'X- PARAMETER QUI$M_SEARCH_GENERIC = '00000100'X4 PARAMETER QUI$M_SEARCH_GENERIC_TARGET = '00000200'X2 PARAMETER QUI$M_SEARCH_PENDING_JOBS = '00000400'X4 PARAMETER QUI$M_SEARCH_EXECUTING_JOBS = '00000800'X8 PARAMETER QUI$M_SEARCH_TIMED_RELEASE_JOBS = '00001000'X2 PARAMETER QUI$M_SEARCH_HOLDING_JOBS = '00002000'X3 PARAMETER QUI$M_SEARCH_RETAINED_JOBS = '00004000'X4 PARAMETER QUI$M_SEARCH_FREEZE_CONTEXT = '00008000'X/ PARAMETER QUI$M_SEARCH_OPEN_JOBS = '00010000'X3 PARAMETER QUI$M_SEARCH_RESERVED_BIT1 = '00020000'X3 PARAMETER QUI$M_SEARCH_RESERVED_BIT2 = '00040000'X STRUCTU RE /SEARCH_FLAGS/( PARAMETER QUI$S_SEARCH_ALL_JOBS = 1d PARAMETER QUI$V_SEARCH_ALL_JOBS = 0 ! Select all jobs (else only those with same username as C ! Select all jobs (else only those with same username as call( PARAMETER QUI$S_SEARCH_WILDCARD = 1G PARAMETER QUI$V_SEARCH_WILDCARD = 1 ! Force a wildcard operation% PARAMETER QUI$S_SEARCH_BATCH = 1= PARAMETER QUI$V_SEARCH_BATCH = 2 ! Select batch queues( PARAMETER QUI$S_SEARCH_SYMBIONT = 1d PARAM ETER QUI$V_SEARCH_SYMBIONT = 3 ! Select symbiont (output) queues (note that QUI$V_SEARCHC ! Select symbiont (output) queues (note that QUI$V_SEARCH_SYMT ! to setting QUI$V_SEARCH_PRINTER, QUI$V_SEARCH_SERVER, and QUI$V_SEARCH_TERMINAL)( PARAMETER QUI$S_SEARCH_THIS_JOB = 1a PARAMETER QUI$V_SEARCH_THIS_JOB = 4 ! Select only caller's batch job (forcing new context)' PARAMETER QUI$S_SEARCH_PRINTER = 1A PARAMETER QUI$V_SEARCH_PRINTER = 5 ! Select printer queues& P ARAMETER QUI$S_SEARCH_SERVER = 1? PARAMETER QUI$V_SEARCH_SERVER = 6 ! Select server queues( PARAMETER QUI$S_SEARCH_TERMINAL = 1C PARAMETER QUI$V_SEARCH_TERMINAL = 7 ! Select terminal queues' PARAMETER QUI$S_SEARCH_GENERIC = 1A PARAMETER QUI$V_SEARCH_GENERIC = 8 ! Select generic queues. PARAMETER QUI$S_SEARCH_GENERIC_TARGET = 1d PARAMETER QUI$V_SEARCH_GENERIC_TARGET = 9 ! Select generic target queues after selecting geneC ! Select generic target queu es after selecting generic queue N ! (note this option is NOT supported; it is intentionally not documented and ! reserved for Digital use), PARAMETER QUI$S_SEARCH_PENDING_JOBS = 1J PARAMETER QUI$V_SEARCH_PENDING_JOBS = 10 ! Select only pending jobs. PARAMETER QUI$S_SEARCH_EXECUTING_JOBS = 1N PARAMETER QUI$V_SEARCH_EXECUTING_JOBS = 11 ! Select only executing jobs2 PARAMETER QUI$S_SEARCH_TIMED_RELEASE_JOBS = 1V PARAMETER QUI$V_SEARCH_TIMED_RELEASE_JOBS = 12 ! Select only timed release jobs, PARAMETER QUI$S_SEARCH_HOLDING_JOBS = 1J PARAMETER QUI$V_SEARCH_HOLDING_JOBS = 13 ! Select only holding jobs- PARAMETER QUI$S_SEARCH_RETAINED_JOBS = 1L PARAMETER QUI$V_SEARCH_RETAINED_JOBS = 14 ! Select only retained jobs. PARAMETER QUI$S_SEARCH_FREEZE_CONTEXT = 1d PARAMETER QUI$V_SEARCH_FREEZE_CONTEXT = 15 ! Do not advance wildcard context to next object iC ! Do not advance wildcard context to next object in list at e) P ARAMETER QUI$S_SEARCH_OPEN_JOBS = 1D PARAMETER QUI$V_SEARCH_OPEN_JOBS = 16 ! Select only open jobs- PARAMETER QUI$S_SEARCH_RESERVED_BIT1 = 1E PARAMETER QUI$V_SEARCH_RESERVED_BIT1 = 17 ! Reserved to Compaq- PARAMETER QUI$S_SEARCH_RESERVED_BIT2 = 1E PARAMETER QUI$V_SEARCH_RESERVED_BIT2 = 18 ! Reserved to Compaq BYTE %FILL (3) END STRUCTURE ! SEARCH_FLAGS ! * ! Subfields of SYMBIONT_FLAGS item code. ! V ! Note: this item code is intentionally not docume nted and reserved for Digital use. ! + PARAMETER QUI$M_SYM_NOTIFIES = '00000001'X0 PARAMETER QUI$M_SYM_REQUESTS_OPER = '00000002'X. PARAMETER QUI$M_SYM_COPIES_FILE = '00000004'X- PARAMETER QUI$M_SYM_COPIES_JOB = '00000008'X4 PARAMETER QUI$M_SYM_ACCEPTS_ALL_FORMS = '00000010'X4 PARAMETER QUI$M_SYM_NO_JOB_CHECKPOINT = '00000020'X STRUCTURE /SYMBIONT_FLAGS/% PARAMETER QUI$S_SYM_NOTIFIES = 1O PARAMETER QUI$V_SYM_NOTIFIES = 0 ! Symbiont notifies for job completions* PARAMET ER QUI$S_SYM_REQUESTS_OPER = 1S PARAMETER QUI$V_SYM_REQUESTS_OPER = 1 ! Symbiont generates operator messages( PARAMETER QUI$S_SYM_COPIES_FILE = 1T PARAMETER QUI$V_SYM_COPIES_FILE = 2 ! Symbiont generates multiple file copies' PARAMETER QUI$S_SYM_COPIES_JOB = 1R PARAMETER QUI$V_SYM_COPIES_JOB = 3 ! Symbiont generates multiple job copies. PARAMETER QUI$S_SYM_ACCEPTS_ALL_FORMS = 1T PARAMETER QUI$V_SYM_ACCEPTS_ALL_FORMS = 4 ! Symbiont processes all form types. PARAMETER QUI$S_SYM_NO_JOB_CHECKPOINT = 1Y PARAMETER QUI$V_SYM_NO_JOB_CHECKPOINT = 5 ! Always reprocess full job on a restart BYTE %FILL (1) END STRUCTURE ! SYMBIONT_FLAGS ! * ! Subfields of MANAGER_STATUS item code. ! 4 PARAMETER QUI$M_MANAGER_START_PENDING = '00000001'X/ PARAMETER QUI$M_MANAGER_STARTING = '00000002'X. PARAMETER QUI$M_MANAGER_RUNNING = '00000004'X/ PARAMETER QUI$M_MANAGER_FAILOVER = '00000008'X/ PARAMETER QUI$M_MANAGER_STOPPING = '00000010'X. PARAM ETER QUI$M_MANAGER_STOPPED = '00000020'X STRUCTURE /MANAGER_STATUS/. PARAMETER QUI$S_MANAGER_START_PENDING = 1d PARAMETER QUI$V_MANAGER_START_PENDING = 0 ! Queue manager will start when a node is available) PARAMETER QUI$S_MANAGER_STARTING = 1G PARAMETER QUI$V_MANAGER_STARTING = 1 ! Queue manager is starting( PARAMETER QUI$S_MANAGER_RUNNING = 1M PARAMETER QUI$V_MANAGER_RUNNING = 2 ! Queue manager is processing work) PARAMETER QUI$S_MANAGER_FAILOVER = 1d PARAMETER QUI$V_MANAGER_FAILOVER = 3 ! Queue manager is failing over to pick up new startup v) PARAMETER QUI$S_MANAGER_STOPPING = 1L PARAMETER QUI$V_MANAGER_STOPPING = 4 ! Queue manager is shutting down( PARAMETER QUI$S_MANAGER_STOPPED = 1E PARAMETER QUI$V_MANAGER_STOPPED = 5 ! Queue manager is stopped BYTE %FILL (1) END STRUCTURE ! MANAGER_STATUS!DEC$ END OPTIONS wweΦ!*** MODULE $RABDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMON S=PACKED)/NOWARN ! 1 ! record access block (rab) definitions ! * ! there is one rab per connected stream7 ! it is used for all communications between the user0 ! and rms concerning operations on the stream ! = ! the fields thru ctx cannot be changed due to commonality ! with the fab ! 3 PARAMETER RAB$C_BID = '00000001'X ! code for rab& PARAMETER RAB$M_PPF_RAT = '00003FC0'X& PARAMETER RAB$M_PPF_IND = '00004000'X$ PARAMETER RAB$M_PPISI = '00008000'X" PAR AMETER RAB$M_ASY = '00000001'X" PARAMETER RAB$M_TPT = '00000002'X" PARAMETER RAB$M_REA = '00000004'X" PARAMETER RAB$M_RRL = '00000008'X" PARAMETER RAB$M_UIF = '00000010'X" PARAMETER RAB$M_MAS = '00000020'X" PARAMETER RAB$M_FDL = '00000040'X" PARAMETER RAB$M_REV = '00000080'X" PARAMETER RAB$M_EOF = '00000100'X" PARAMETER RAB$M_RAH = '00000200'X" PARAMETER RAB$M_WBH = '00000400'X" PARAMETER RAB$M_BIO = '00000800'X" PARAMETER RAB$M_CDK = '00001000'X" PARAMETER RAB$M_LOA = '00002000'X" PARAM ETER RAB$M_LIM = '00004000'X& PARAMETER RAB$M_SYNCSTS = '00008000'X" PARAMETER RAB$M_LOC = '00010000'X" PARAMETER RAB$M_WAT = '00020000'X" PARAMETER RAB$M_ULK = '00040000'X" PARAMETER RAB$M_RLK = '00080000'X" PARAMETER RAB$M_NLK = '00100000'X" PARAMETER RAB$M_KGE = '00200000'X" PARAMETER RAB$M_KGT = '00400000'X" PARAMETER RAB$M_NXR = '00800000'X" PARAMETER RAB$M_RNE = '01000000'X" PARAMETER RAB$M_TMO = '02000000'X" PARAMETER RAB$M_CVT = '04000000'X" PARAMETER RAB$M_RNF = '08000000'X" PAR AMETER RAB$M_ETO = '10000000'X" PARAMETER RAB$M_PTA = '20000000'X" PARAMETER RAB$M_PMT = '40000000'X" PARAMETER RAB$M_CCO = '80000000'X$ PARAMETER RAB$M_EQNXT = '00200000'X" PARAMETER RAB$M_NXT = '00400000'X" PARAMETER RAB$M_NQL = '00000001'X' PARAMETER RAB$M_NODLCKWT = '00000002'X( PARAMETER RAB$M_NODLCKBLK = '00000004'X8 PARAMETER RAB$C_SEQ = '00000000'X ! sequential access3 PARAMETER RAB$C_KEY = '00000001'X ! keyed access1 PARAMETER RAB$C_RFA = '00000002'X ! rfa accessT PARAMET ER RAB$C_STM = '00000003'X ! stream access (valid only for sequential org)V PARAMETER RAB$C_MAXRAC = '00000002'X ! Maximum RAC value currently supported by RMS STRUCTURE /RABDEF/' BYTE RAB$B_BID ! block id+ BYTE RAB$B_BLN ! block length UNION MAP8 INTEGER*2 RAB$W_ISI ! internal stream index END MAP ! (ifi in fab) MAP( PARAMETER RAB$S_PPF_RAT = 8S PARAMETER RAB$V_PPF_RAT = 6 ! rat valu e for process-permanent files( PARAMETER RAB$S_PPF_IND = 1X PARAMETER RAB$V_PPF_IND = 14 ! indirect access to process-permanent file! ! (i.e., restricted operations)& PARAMETER RAB$S_PPISI = 1' PARAMETER RAB$V_PPISI = 15R BYTE %FILL (2) ! indicates that this is process-permanent stream END MAP END UNION UNION MAP1 INTEGER*4 RAB$L_ROP ! record options END MAP M AP$ PARAMETER RAB$S_ASY = 1B PARAMETER RAB$V_ASY = 0 ! asynchronous operations$ PARAMETER RAB$S_TPT = 1U PARAMETER RAB$V_TPT = 1 ! truncate put - allow sequential put not at/ ! eof, thus truncating file (seq. org only) ! 1 ! these next two should be in the byte for bits6 ! input to $find or $get, but there is no room there ! $ PARAMETER RAB$S_REA = 1Y PARAMETER RAB$V_REA = 2 ! lock record for rea d only, allow other readers$ PARAMETER RAB$S_RRL = 1I PARAMETER RAB$V_RRL = 3 ! read record regardless of lock ! $ PARAMETER RAB$S_UIF = 1= PARAMETER RAB$V_UIF = 4 ! update if existent$ PARAMETER RAB$S_MAS = 1; PARAMETER RAB$V_MAS = 5 ! mass-insert mode$ PARAMETER RAB$S_FDL = 1? PARAMETER RAB$V_FDL = 6 ! fast record deletion$ PARAMETER RAB$S_REV = 1] PARAMETER RAB$V_REV = 7 ! reverse-search - can only be set with NXT or EQNXT ! $ PARAMETER RAB$S_EOF = 19 PARAMETER RAB$V_EOF = 8 ! connect to eof$ PARAMETER RAB$S_RAH = 15 PARAMETER RAB$V_RAH = 9 ! read ahead$ PARAMETER RAB$S_WBH = 17 PARAMETER RAB$V_WBH = 10 ! write behind$ PARAMETER RAB$S_BIO = 1? PARAMETER RAB$V_BIO = 11 ! connect for bio only$ PARAMETER R AB$S_CDK = 1K PARAMETER RAB$V_CDK = 12 ! check for duplicate keys on $GET$ PARAMETER RAB$S_LOA = 1E PARAMETER RAB$V_LOA = 13 ! use bucket fill percentage$ PARAMETER RAB$S_LIM = 1f PARAMETER RAB$V_LIM = 14 ! compare for key limit reached on $get/$find seq. (idx only)( PARAMETER RAB$S_SYNCSTS = 1d PARAMETER RAB$V_SYNCSTS = 15 ! Synchronous status notification for asynchronous rout ! # ! the foll owing bits are input to/ ! $find or $get, (see above also REA and RRL) ! (separate byte) ! $ PARAMETER RAB$S_LOC = 1: PARAMETER RAB$V_LOC = 16 ! use locate mode$ PARAMETER RAB$S_WAT = 1G PARAMETER RAB$V_WAT = 17 ! wait if record not available$ PARAMETER RAB$S_ULK = 1; PARAMETER RAB$V_ULK = 18 ! manual unlocking$ PARAMETER RAB$S_RLK = 1O PARAMETER RAB$V_RLK = 19 ! allow reade rs for this locked record$ PARAMETER RAB$S_NLK = 1= PARAMETER RAB$V_NLK = 20 ! do not lock record$ PARAMETER RAB$S_KGE = 15 PARAMETER RAB$V_KGE = 21 ! key > or =$ PARAMETER RAB$S_KGT = 1; PARAMETER RAB$V_KGT = 22 ! key greater than$ PARAMETER RAB$S_NXR = 1B PARAMETER RAB$V_NXR = 23 ! get non-existent record ! 4 ! the following bits are terminal qualifiers only ! (separate b yte) ! $ PARAMETER RAB$S_RNE = 17 PARAMETER RAB$V_RNE = 24 ! read no echo$ PARAMETER RAB$S_TMO = 1> PARAMETER RAB$V_TMO = 25 ! use time-out period$ PARAMETER RAB$S_CVT = 1@ PARAMETER RAB$V_CVT = 26 ! convert to upper case$ PARAMETER RAB$S_RNF = 19 PARAMETER RAB$V_RNF = 27 ! read no filter$ PARAMETER RAB$S_ETO = 1F PARAMETER RAB$V_ETO = 28 ! extended term inal operation$ PARAMETER RAB$S_PTA = 1; PARAMETER RAB$V_PTA = 29 ! purge type ahead$ PARAMETER RAB$S_PMT = 1< PARAMETER RAB$V_PMT = 30 ! use prompt buffer$ PARAMETER RAB$S_CCO = 1% PARAMETER RAB$V_CCO = 31= BYTE %FILL (4) ! cancel control o on output END MAP MAP& PARAMETER RAB$S_EQNXT = 1A PARAMETER RAB$V_EQNXT = 21 ! Synonyms for KGE and$  PARAMETER RAB$S_NXT = 10 PARAMETER RAB$V_NXT = 22 ! KGT BYTE %FILL (1) END MAP ! the following bits may be ! input to various rab-related ! operations ! MAP BYTE %FILL7 BYTE RAB$B_ROP1 ! various optionsW BYTE RAB$B_ROP2 ! get/find options (use of this field discouraged1 ! due to REA and RRL being in a different byte)= BYTE RAB$B_ROP3 ! terminal r ead options !  END MAP END UNION% INTEGER*4 RAB$L_STS ! status UNION MAP/ INTEGER*4 RAB$L_STV ! status value END MAP MAP7 INTEGER*2 RAB$W_STV0 ! low word of stv8 INTEGER*2 RAB$W_STV2 ! high word of stv END MAP END UNION UNION MAP< INTEGER*2 RAB$W_RFA(1:3) ! record's file address END MAP MAP! INTEGER*4 RAB$L_RFA0 ! INTEGER*2 RAB$W_RFA4 END MAP END UNIONF INTEGER*2 %FILL ! (reserved - rms release 1 optimizes stores4 ! to the rfa field to be a move quad, overwriting ! this reserved word)+ INTEGER*4 RAB$L_CTX ! user context ! -----***** UNION MAPT INTEGER*2 RAB$W_ROP_2 ! extension to record options in traditional RAB  END MAP MAP$ PARAMETER RAB$S_NQL = 1J PARAMETER RAB$V_NQL = 0 ! no query locking (record level)) PARAMETER RAB$S_NODLCKWT = 1? PARAMETER RAB$V_NODLCKWT = 1 ! no deadlock wait* PARAMETER RAB$S_NODLCKBLK = 1D PARAMETER RAB$V_NODLCKBLK = 2 ! no deadlock blocking BYTE %FILL (1) END MAP END UNION, BYTE RAB$B_RAC ! record access. BYTE RAB$B_TMO ! time-out period/ INTEGER*2 RAB$W_USZ ! user buffer size1 INTEGER*2 RAB$W_RSZ ! record bu ffer size2 INTEGER*4 RAB$L_UBF ! user buffer address4 INTEGER*4 RAB$L_RBF ! record buffer address8 INTEGER*4 RAB$L_RHB ! record header buffer addr UNION MAP5 INTEGER*4 RAB$L_KBF ! key buffer address END MAP MAP5 INTEGER*4 RAB$L_PBF ! prompt buffer addr END MAP END UNION UNION MAP2 BYTE RAB$B_KSZ ! key buffer size END MAP MAP5 BYTE  RAB$B_PSZ ! prompt buffer size END MAP END UNION/ BYTE RAB$B_KRF ! key of reference1 BYTE RAB$B_MBF ! multi-buffer count0 BYTE RAB$B_MBC ! multi-block count UNION MAP@ INTEGER*4 RAB$L_BKT ! bucket hash code, vbn, or rrn END MAP MAPT INTEGER*4 RAB$L_DCT ! duplicates count on key accessed on alternate key END MAP END UNION6 INTEGER*4 RAB$L_FAB ! relat  ed fab for connect* INTEGER*4 RAB$L_XAB ! XAB address END STRUCTURE ! RABDEF! ! end of traditional 32-bit rabG PARAMETER RAB$K_BLN = '00000044'X ! length of traditional 32-bit rabG PARAMETER RAB$C_BLN = '00000044'X ! length of traditional 32-bit rab ! C ! 64-bit variant of the record access block (rab) definitions ! > ! The 64-bit rab consists of the traditional 32-bit rab > ! followed by additional cells, added mainly to provide A ! support for a  64-bit address for user buffers (UBF, RBF,  ! KBF, RHB). !  ! 5 PARAMETER RAB64$C_BID = '00000001'X ! code for rab( PARAMETER RAB64$M_PPF_RAT = '00003FC0'X( PARAMETER RAB64$M_PPF_IND = '00004000'X& PARAMETER RAB64$M_PPISI = '00008000'X$ PARAMETER RAB64$M_ASY = '00000001'X$ PARAMETER RAB64$M_TPT = '00000002'X$ PARAMETER RAB64$M_REA = '00000004'X$ PARAMETER RAB64$M_RRL = '00000008'X$ PARAMETER RAB64$M_UIF = '00000010'X$ PARAMETER RAB64$M_MAS = '00000020'X$ PARAMETER RAB64$M_F DL = '00000040'X$ PARAMETER RAB64$M_REV = '00000080'X$ PARAMETER RAB64$M_EOF = '00000100'X$ PARAMETER RAB64$M_RAH = '00000200'X$ PARAMETER RAB64$M_WBH = '00000400'X$ PARAMETER RAB64$M_BIO = '00000800'X$ PARAMETER RAB64$M_CDK = '00001000'X$ PARAMETER RAB64$M_LOA = '00002000'X$ PARAMETER RAB64$M_LIM = '00004000'X( PARAMETER RAB64$M_SYNCSTS = '00008000'X$ PARAMETER RAB64$M_LOC = '00010000'X$ PARAMETER RAB64$M_WAT = '00020000'X$ PARAMETER RAB64$M_ULK = '00040000'X$ PARAMETER RAB64$M_RLK = '00 080000'X$ PARAMETER RAB64$M_NLK = '00100000'X$ PARAMETER RAB64$M_KGE = '00200000'X$ PARAMETER RAB64$M_KGT = '00400000'X$ PARAMETER RAB64$M_NXR = '00800000'X$ PARAMETER RAB64$M_RNE = '01000000'X$ PARAMETER RAB64$M_TMO = '02000000'X$ PARAMETER RAB64$M_CVT = '04000000'X$ PARAMETER RAB64$M_RNF = '08000000'X$ PARAMETER RAB64$M_ETO = '10000000'X$ PARAMETER RAB64$M_PTA = '20000000'X$ PARAMETER RAB64$M_PMT = '40000000'X$ PARAMETER RAB64$M_CCO = '80000000'X& PARAMETER RAB64$M_EQNXT = '00200000'X$  PARAMETER RAB64$M_NXT = '00400000'X$ PARAMETER RAB64$M_NQL = '00000001'X) PARAMETER RAB64$M_NODLCKWT = '00000002'X* PARAMETER RAB64$M_NODLCKBLK = '00000004'X: PARAMETER RAB64$C_SEQ = '00000000'X ! sequential access5 PARAMETER RAB64$C_KEY = '00000001'X ! keyed access3 PARAMETER RAB64$C_RFA = '00000002'X ! rfa accessV PARAMETER RAB64$C_STM = '00000003'X ! stream access (valid only for sequential org)X PARAMETER RAB64$C_MAXRAC = '00000002'X ! Maximum RAC value currently supported by RMS+ PARAMETER RAB64$M_RESERVED29 = '20000000'X+ PARAMETER RAB64$M_RESERVED30 = '40000000'X+ PARAMETER RAB64$M_RESERVED31 = '80000000'X) PARAMETER RAB$M_RESERVED29 = '20000000'X) PARAMETER RAB$M_RESERVED30 = '40000000'X) PARAMETER RAB$M_RESERVED31 = '80000000'X STRUCTURE /RAB64DEF/) BYTE RAB64$B_BID ! block id- BYTE RAB64$B_BLN ! block length UNION MAP: INTEGER*2 RAB64$W_ISI ! internal stream index END MAP ! (ifi i  n fab) MAP* PARAMETER RAB64$S_PPF_RAT = 8U PARAMETER RAB64$V_PPF_RAT = 6 ! rat value for process-permanent files* PARAMETER RAB64$S_PPF_IND = 1Z PARAMETER RAB64$V_PPF_IND = 14 ! indirect access to process-permanent file! ! (i.e., restricted operations)( PARAMETER RAB64$S_PPISI = 1) PARAMETER RAB64$V_PPISI = 15R BYTE %FILL (2) ! indicates that this is process-permanent stream E ND MAP END UNION UNION MAP3 INTEGER*4 RAB64$L_ROP ! record options END MAP MAP& PARAMETER RAB64$S_ASY = 1C PARAMETER RAB64$V_ASY = 0 ! asynchronous operations& PARAMETER RAB64$S_TPT = 1V PARAMETER RAB64$V_TPT = 1 ! truncate put - allow sequential put not at/ ! eof, thus truncating file (seq. org only) ! 1 ! these next two should be in the byte for bits6 ! input to $find or $g et, but there is no room there ! & PARAMETER RAB64$S_REA = 1Z PARAMETER RAB64$V_REA = 2 ! lock record for read only, allow other readers& PARAMETER RAB64$S_RRL = 1J PARAMETER RAB64$V_RRL = 3 ! read record regardless of lock ! & PARAMETER RAB64$S_UIF = 1> PARAMETER RAB64$V_UIF = 4 ! update if existent& PARAMETER RAB64$S_MAS = 1< PARAMETER RAB64$V_MAS = 5 ! mass-insert mode& PARAMETER RAB64$S_FDL = 1@ PARAMETER RAB64$V_FDL = 6 ! fast record deletion& PARAMETER RAB64$S_REV = 1^ PARAMETER RAB64$V_REV = 7 ! reverse-search - can only be set with NXT or EQNXT ! & PARAMETER RAB64$S_EOF = 1: PARAMETER RAB64$V_EOF = 8 ! connect to eof& PARAMETER RAB64$S_RAH = 16 PARAMETER RAB64$V_RAH = 9 ! read ahead& PARAMETER RAB64$S_WBH = 19 PARAMETER RAB64$V _WBH = 10 ! write behind& PARAMETER RAB64$S_BIO = 1A PARAMETER RAB64$V_BIO = 11 ! connect for bio only& PARAMETER RAB64$S_CDK = 1M PARAMETER RAB64$V_CDK = 12 ! check for duplicate keys on $GET& PARAMETER RAB64$S_LOA = 1G PARAMETER RAB64$V_LOA = 13 ! use bucket fill percentage& PARAMETER RAB64$S_LIM = 1d PARAMETER RAB64$V_LIM = 14 ! compare for key limit reached on $get/$find seq. (idx o* PARAMETER RAB64$S_SYNCSTS = 1d PARAMETER RAB64$V_SYNCSTS = 15 ! Synchronous status notification for asynchronous ro ! # ! the following bits are input to/ ! $find or $get, (see above also REA and RRL) ! (separate byte) ! & PARAMETER RAB64$S_LOC = 1< PARAMETER RAB64$V_LOC = 16 ! use locate mode& PARAMETER RAB64$S_WAT = 1I PARAMETER RAB64$V_WAT = 17 ! wait if record not available&  PARAMETER RAB64$S_ULK = 1= PARAMETER RAB64$V_ULK = 18 ! manual unlocking& PARAMETER RAB64$S_RLK = 1Q PARAMETER RAB64$V_RLK = 19 ! allow readers for this locked record& PARAMETER RAB64$S_NLK = 1? PARAMETER RAB64$V_NLK = 20 ! do not lock record& PARAMETER RAB64$S_KGE = 17 PARAMETER RAB64$V_KGE = 21 ! key > or =& PARAMETER RAB64$S_KGT = 1= PARAMETER RAB64$V_KGT = 22 ! k  ey greater than& PARAMETER RAB64$S_NXR = 1D PARAMETER RAB64$V_NXR = 23 ! get non-existent record ! 4 ! the following bits are terminal qualifiers only ! (separate byte) ! & PARAMETER RAB64$S_RNE = 19 PARAMETER RAB64$V_RNE = 24 ! read no echo& PARAMETER RAB64$S_TMO = 1@ PARAMETER RAB64$V_TMO = 25 ! use time-out period& PARAMETER RAB64$S_CVT = 1B PARAMETER RAB64$V_CVT = 26 !  convert to upper case& PARAMETER RAB64$S_RNF = 1; PARAMETER RAB64$V_RNF = 27 ! read no filter& PARAMETER RAB64$S_ETO = 1H PARAMETER RAB64$V_ETO = 28 ! extended terminal operation& PARAMETER RAB64$S_PTA = 1= PARAMETER RAB64$V_PTA = 29 ! purge type ahead& PARAMETER RAB64$S_PMT = 1> PARAMETER RAB64$V_PMT = 30 ! use prompt buffer& PARAMETER RAB64$S_CCO = 1' PARAM ETER RAB64$V_CCO = 31= BYTE %FILL (4) ! cancel control o on output END MAP MAP( PARAMETER RAB64$S_EQNXT = 1C PARAMETER RAB64$V_EQNXT = 21 ! Synonyms for KGE and& PARAMETER RAB64$S_NXT = 12 PARAMETER RAB64$V_NXT = 22 ! KGT BYTE %FILL (1) END MAP ! the following bits may be ! input to various rab-related ! operations ! MAP BYTE %FILL9  BYTE RAB64$B_ROP1 ! various optionsY BYTE RAB64$B_ROP2 ! get/find options (use of this field discouraged1 ! due to REA and RRL being in a different byte)? BYTE RAB64$B_ROP3 ! terminal read options !  END MAP END UNION' INTEGER*4 RAB64$L_STS ! status UNION MAP1 INTEGER*4 RAB64$L_STV ! status value END MAP MAP9 INTEGER*2 RAB64$W_STV0 ! low word of stv: INTEGER*2 RAB64$W_STV2 ! high word of stv END MAP END UNION UNION MAP> INTEGER*2 RAB64$W_RFA(1:3) ! record's file address END MAP MAP# INTEGER*4 RAB64$L_RFA0# INTEGER*2 RAB64$W_RFA4 END MAP END UNIONF INTEGER*2 %FILL ! (reserved - rms release 1 optimizes stores4 ! to the rfa field to be a move quad, overwriting ! this reserved word)- INTEGER*4 RAB  64$L_CTX ! user context ! -----***** UNION MAPV INTEGER*2 RAB64$W_ROP_2 ! extension to record options in traditional RAB  END MAP MAP& PARAMETER RAB64$S_NQL = 1K PARAMETER RAB64$V_NQL = 0 ! no query locking (record level)+ PARAMETER RAB64$S_NODLCKWT = 1A PARAMETER RAB64$V_NODLCKWT = 1 ! no deadlock wait, PARAMETER RAB64$S_NODLCKBLK = 1F PARAMETER RAB64$V_NODLC KBLK = 2 ! no deadlock blocking BYTE %FILL (1) END MAP END UNION. BYTE RAB64$B_RAC ! record access0 BYTE RAB64$B_TMO ! time-out period1 INTEGER*2 RAB64$W_USZ ! user buffer size3 INTEGER*2 RAB64$W_RSZ ! record buffer size4 INTEGER*4 RAB64$L_UBF ! user buffer address6 INTEGER*4 RAB64$L_RBF ! record buffer address: INTEGER*4 RAB64$L_RHB ! record header buffer addr UNION MAP7 I NTEGER*4 RAB64$L_KBF ! key buffer address END MAP MAP7 INTEGER*4 RAB64$L_PBF ! prompt buffer addr END MAP END UNION UNION MAP4 BYTE RAB64$B_KSZ ! key buffer size END MAP MAP7 BYTE RAB64$B_PSZ ! prompt buffer size END MAP END UNION1 BYTE RAB64$B_KRF ! key of reference3 BYTE RAB64$B_MBF ! multi-buffer count2 BYTE RAB64$B_M BC ! multi-block count UNION MAPB INTEGER*4 RAB64$L_BKT ! bucket hash code, vbn, or rrn END MAP MAPV INTEGER*4 RAB64$L_DCT ! duplicates count on key accessed on alternate key END MAP END UNION8 INTEGER*4 RAB64$L_FAB ! related fab for connect, INTEGER*4 RAB64$L_XAB ! XAB address UNION MAPD INTEGER*4 RAB64$L_VERSION ! 64-bit rab extension version END MAP MAP C INTEGER*4 RAB$L_VERSION ! 64-bit rab extension version END MAP MAP@ INTEGER*2 RAB64$W_VERMINOR ! minor version ident@ INTEGER*2 RAB64$W_VERMAJOR ! major version ident END MAP MAP> INTEGER*2 RAB$W_VERMINOR ! minor version ident> INTEGER*2 RAB$W_VERMAJOR ! major version ident END MAP END UNION UNION MAP@ INTEGER*8 RAB64$PQ_UBF ! 64-bit user  buffer address END MAP MAP> INTEGER*8 RAB$PQ_UBF ! 64-bit user buffer address END MAP END UNION UNION MAP> INTEGER*4 RAB64$Q_USZ(2) ! 64-bit user buffer size END MAP MAP= INTEGER*4 RAB$Q_USZ(2) ! 64-bit user buffer size END MAP END UNION UNION MAPB INTEGER*8 RAB64$PQ_RBF ! 64-bit record buffer address END MAP MAP@ INTEG ER*8 RAB$PQ_RBF ! 64-bit record buffer address END MAP END UNION UNION MAP@ INTEGER*4 RAB64$Q_RSZ(2) ! 64-bit record buffer size END MAP MAP? INTEGER*4 RAB$Q_RSZ(2) ! 64-bit record buffer size END MAP END UNION UNION MAP? INTEGER*8 RAB64$PQ_KBF ! 64-bit key buffer address END MAP MAP= INTEGER*8 RAB$PQ_KBF ! 64-bit key buffer address  END MAP END UNION UNION MAPF INTEGER*8 RAB64$PQ_RHB ! 64-bit record header buffer addr END MAP MAPD INTEGER*8 RAB$PQ_RHB ! 64-bit record header buffer addr END MAP END UNION UNION MAP: INTEGER*4 RAB64$Q_CTX(2) ! 64-bit user context END MAP MAP9 INTEGER*4 RAB$Q_CTX(2) ! 64-bit user context END MAP END UNION UNION MAP>  INTEGER*4 RAB64$L_ROPEXT ! extended record options END MAP MAP= INTEGER*4 RAB$L_ROPEXT ! extended record options END MAP MAP- PARAMETER RAB64$S_RESERVED29 = 1M PARAMETER RAB64$V_RESERVED29 = 29 ! MBZ - reserved for Digital- PARAMETER RAB64$S_RESERVED30 = 1M PARAMETER RAB64$V_RESERVED30 = 30 ! MBZ - reserved for Digital- PARAMETER RAB64$S_RESERVED31 = 1. PARAM  ETER RAB64$V_RESERVED31 = 31= BYTE %FILL (1) ! MBZ - reserved for Digital END MAP MAP+ PARAMETER RAB$S_RESERVED29 = 1L PARAMETER RAB$V_RESERVED29 = 29 ! MBZ - reserved for Digital+ PARAMETER RAB$S_RESERVED30 = 1L PARAMETER RAB$V_RESERVED30 = 30 ! MBZ - reserved for Digital+ PARAMETER RAB$S_RESERVED31 = 1, PARAMETER RAB$V_RESERVED31 = 31= BYTE %FILL (1) ! MBZ - reserved for Digital END MAP END UNION UNION MAP@ INTEGER*4 RAB64$L_MBF ! longword multi-buffer count END MAP MAP> INTEGER*4 RAB$L_MBF ! longword multi-buffer count END MAP END UNION UNION MAP? INTEGER*4 RAB64$L_MBC ! longword multi-block count END MAP MAP= INTEGER*4 RAB$L_MBC ! longword multi-block count END MAP END UNION  UNION MAPE INTEGER*4 RAB64$L_RESERVED_1 ! MBZ - reserved for Digital END MAP MAPC INTEGER*4 RAB$L_RESERVED_1 ! MBZ - reserved for Digital END MAP END UNION END STRUCTURE ! RAB64DEF ! end of 64-bit rab variant G PARAMETER RAB64$K_BLN64 = '00000090'X ! length of 64-bit rab variantG PARAMETER RAB64$C_BLN64 = '00000090'X ! length of 64-bit rab variantE PARAMETER RAB$K_BLN64 = '00000090'X ! length of 64-bit rab varian tE PARAMETER RAB$C_BLN64 = '00000090'X ! length of 64-bit rab variantG PARAMETER RAB$K_MAXBLN = '00000090'X ! current maximum length of rabG PARAMETER RAB$C_MAXBLN = '00000090'X ! current maximum length of rab!DEC$ END OPTIONS wweΦ!*** MODULE $RBLDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:02.56 ! * PARAMETER REBUILD$_FACILITY = '00000716'X' PARAMETER ! RBLD$_NODEVICE = '0716800A'X% PARAMETER RBLD$_ADDERR = '07168012'X( PARAMETER RBLD$_MODIFYERR = '0716801A'X& PARAMETER RBLD$_CLOSERR = '07168022'X& PARAMETER RBLD$_LOCKERR = '0716802A'X( PARAMETER RBLD$_UNLOCKERR = '07168032'X& PARAMETER RBLD$_MAXVOLS = '0716803A'X( PARAMETER RBLD$_ACCINDEXF = '07168042'X( PARAMETER RBLD$_ACCBITMAP = '0716804A'X' PARAMETER RBLD$_ACCQFILE = '07168052'X( PARAMETER RBLD$_QUOTARERR = '0716805A'X( PARAMETER RBLD$_BITMAPERR = '07168062'X& PARAMETER RBLD$_REA " DSCB = '0716806A'X' PARAMETER RBLD$_WRITESCB = '07168072'X' PARAMETER RBLD$_WRTIBMAP = '0716807A'X( PARAMETER RBLD$_WRTBITMAP = '07168082'X' PARAMETER RBLD$_MEMALLOC = '0716808A'X( PARAMETER RBLD$_HOMEBLOCK = '07168092'X( PARAMETER RBLD$_SYSHEADER = '0716809A'X% PARAMETER RBLD$_ERRORS = '071680A2'X& PARAMETER RBLD$_SHADSCB = '071680AA'X& PARAMETER RBLD$_DUALLOC = '071680B0'X( PARAMETER RBLD$_HEADERERR = '071680B8'X' PARAMETER RBLD$_WRITEHDR = '071680C0'X( PARAMETER RBLD$_ERASEBLKS = '# 071680C8'X, PARAMETER RBLD$_VOLNOTPRESENT = '071680D0'X* PARAMETER RBLD$_INVBACKLINK = '071680D8'X* PARAMETER RBLD$_NOREBLDREQD = '071680E3'X( PARAMETER RBLD$_REBLDREQD = '071680EB'X( PARAMETER RBLD$_REBLDDONE = '071680F1'X) PARAMETER RBLD$_INVALIDSCB = '071680FA'X!DEC$ END OPTIONSww^EΦ!*** MODULE $REGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! K ! +===================================================================+  ! |< ! | R $ EG - Registry system service ($REGISTRY) definition ! |J ! +===================================================================+ ! J ! +-------------------------------------------------------------------+ ! | Function codesJ ! +-------------------------------------------------------------------+ ! T PARAMETER REG$FC_CLOSE_KEY = '00000001'X ! Releases the resources for a given keyd PARAMETER REG$FC_CREATE_KEY = '00000002'X ! Either creates a specified key or opens it if i% t alreC ! Either creates a specified key or opens it if it already exX PARAMETER REG$FC_DELETE_KEY = '00000003'X ! Removes a specified key from the registry] PARAMETER REG$FC_DELETE_VALUE = '00000004'X ! Deletes the specified value from a given keyQ PARAMETER REG$FC_ENUM_KEY = '00000005'X ! Retrieves information about a subkeyR PARAMETER REG$FC_ENUM_VALUE = '00000006'X ! Retrieves information about a valueb PARAMETER REG$FC_FLUSH_KEY = '00000007'X ! Write all the information of& a specified key to diskd PARAMETER REG$FC_LOAD_KEY = '00000008'X ! Create a subkey and store information from a given fileY PARAMETER REG$FC_MODIFY_KEY = '00000009'X ! Modifies information about a specified keyd PARAMETER REG$FC_MODIFY_TREE_KEY = '0000000A'X ! Modifies information about a specified key and aC ! Modifies information about a specified key and all its subkd PARAMETER REG$FC_NOTIFY_CHANGE_KEY_VALUE = '0000000B'X ! Notifies the calling process when a specC ! Noti' fies the calling process when a specified key has changB PARAMETER REG$FC_OPEN_KEY = '0000000C'X ! Opens a specified keyY PARAMETER REG$FC_QUERY_KEY = '0000000D'X ! Retrieves information about a specified key] PARAMETER REG$FC_QUERY_VALUE = '0000000E'X ! Retrieves information about a specified valued PARAMETER REG$FC_REPLACE_KEY = '0000000F'X ! Replaces a key and all its subkeys with information C ! Replaces a key and all its subkeys with information in a spT PARAMETER REG$FC_RE( STORE_KEY = '00000010'X ! Restores a key from a specified file\ PARAMETER REG$FC_SAVE_KEY = '00000011'X ! Saves a key and its subkeys to a specified filed PARAMETER REG$FC_SEARCH_TREE_DATA = '00000012'X ! Scan a key and its subkeys for a given data coma PARAMETER REG$FC_SEARCH_TREE_KEY = '00000013'X ! Scan a key and its subkeys for a given subkeyb PARAMETER REG$FC_SEARCH_TREE_VALUE = '00000014'X ! Scan a key and its subkeys for a given valueD PARAMETER REG$FC_SET_VALUE = '00000015'X !) Sets value infornationS PARAMETER REG$FC_UNLOAD_KEY = '00000016'X ! Removes a key tree form the registryU PARAMETER REG$FC_GET_KEY_SECURITY = '00000017'X ! Retrieves a key security profileP PARAMETER REG$FC_SET_KEY_SECURITY = '00000018'X ! Sets a key security profileU PARAMETER REG$FC_GET_PERFORMANCE = '00000019'X ! Retrieves performance informationK PARAMETER REG$FC_GET_FILE_INFO = '0000001A'X ! Retrieves file statistics\ PARAMETER REG$FC_GET_FILE_UPDATE = '0000001B'X ! Retrie * ves segment allocation informationQ PARAMETER REG$FC_CREATE_DATABASE = '0000001C'X ! Creates the registry databaseZ PARAMETER REG$FC_MAKE_SNAPSHOT = '0000001D'X ! Take a snpashot of the Registry databaseI PARAMETER REG$FC_ARCHIVE = '0000001E'X ! Archive the registry database4 PARAMETER REG$FC_LAST = '0000001F'X ! Always last ! J ! +-------------------------------------------------------------------+ ! | Item Code ModifiersJ ! +------------------------------------------------ + -------------------+ ! J PARAMETER REG$M_UNICODE_STRING = '00002000'X ! 0x2000 string is Unicode ! J ! +-------------------------------------------------------------------+ ! | Item CodesJ ! +-------------------------------------------------------------------+ ! F PARAMETER REG$_TERMINATOR = '00000000'X ! network packet terminatorD PARAMETER REG$_SEPARATOR = '00000001'X ! item code list seperator= PARAMETER REG$_SECPROFILE = '00000202'X ! security profileI PARAMETER R, EG$_REQUEST = '00000203'X ! TLV of item code TLVs (request)4 PARAMETER REG$_ACMODE = '00000504'X ! access modeP PARAMETER REG$_ACTIONCODE = '00000505'X ! action code for performance & spaceI PARAMETER REG$_CACHEACTION = '00000506'X ! cache action (thru/behind )T PARAMETER REG$_CANCELNOTIFICATION = '00000207'X ! Cancel notify key change notify6 PARAMETER REG$_CLASSNAME = '00000108'X ! class nameH PARAMETER REG$_CLASSNAMEMAX = '00000509'X ! longest class name lengthT PARAMETER REG- $_CLASSNAMESIZE = '0000050A'X ! destination's class name buffer size6 PARAMETER REG$_DATAFLAGS = '0000060B'X ! data flags4 PARAMETER REG$_DATATYPE = '0000050C'X ! data typeJ PARAMETER REG$_DISPOSITION = '0000050D'X ! createnewkey/openexistingkey= PARAMETER REG$_FILEINFODATA = '0000020E'X ! File info dataE PARAMETER REG$_FILELOAD = '0000070F'X ! OpenVMS file name to load D PARAMETER REG$_FILESAVE = '00000710'X ! OpenVMS file name to saveA PARAMETER REG$_FILEUPDATEDATA = '00000211. 'X ! File update dataC PARAMETER REG$_FLAGOPCODE = '00000512'X ! how data flags is usedD PARAMETER REG$_FLAGSUBKEY = '00000513'X ! report (sub)key changesG PARAMETER REG$_KEYID = '00000514'X ! input key id in longword formatU PARAMETER REG$_KEYID_INTERNAL = '00000215'X ! internal key id in UID/FSO/LH format4 PARAMETER REG$_KEYFLAGS = '00000516'X ! KEY flags< PARAMETER REG$_KEYPATH = '00000117'X ! Path to key objectL PARAMETER REG$_KEYRESULT = '00000518'X ! output key id in l/ ongword formatY PARAMETER REG$_KEYRESULT_INTERNAL = '00000219'X ! internal key id in UID/FSO/LH formatE PARAMETER REG$_LASTWRITE = '0000061A'X ! time key was last writtenH PARAMETER REG$_LINKCOUNT = '0000051B'X ! Count of links refer to itemF PARAMETER REG$_LINKPATH = '0000011C'X ! key path a key is linked toR PARAMETER REG$_LINKPATHSIZE = '0000051D'X ! destination's link path buffer sizeG PARAMETER REG$_LINKTYPE = '0000051E'X ! Link type (logical/physical)C PARAMETER REG$_LOCK =0 '0000051F'X ! what lock on open/create keyI PARAMETER REG$_NEWNAME = '00000120'X ! new name of a key create/renameL PARAMETER REG$_NOTIFYFILTER = '00000521'X ! which key changes to reportedP PARAMETER REG$_PATHBUFFER = '00000222'X ! set of paths separated by null byteB PARAMETER REG$_PERFORMANCEDATA = '00000223'X ! Performance data@ PARAMETER REG$_REQLENGTH = '00000524'X ! required buffer sizeR PARAMETER REG$_RETURNSTATUS = '00000525'X ! return status for a given operationI PAR1 AMETER REG$_SECACCESS = '00000526'X ! security access for a new keyU PARAMETER REG$_SECONDSTATUS = '00000527'X ! secondary status for a given operationU PARAMETER REG$_SECURITYPOLICY = '00000528'X ! Security policy to enforce for a keyV PARAMETER REG$_SEGMENTNUMBER = '00000529'X ! Segment Number for locating space infoT PARAMETER REG$_SNAPSHOTDESTINATION = '0000072A'X ! Snapshot destination directoryP PARAMETER REG$_SNAPSHOTVERSIONS = '0000052B'X ! Snapshot versions to maintainM P2 ARAMETER REG$_SUBKEYINDEX = '0000052C'X ! Index of the subkey to retrieve= PARAMETER REG$_SUBKEYNAME = '0000012D'X ! name of a subkeyS PARAMETER REG$_SUBKEYNAMEMAX = '0000052E'X ! longest subkey name for a given keyV PARAMETER REG$_SUBKEYNAMESIZE = '0000052F'X ! destination's subkey name buffer sizeP PARAMETER REG$_SUBKEYSNUMBER = '00000530'X ! Number of subkeys in a given keyM PARAMETER REG$_SECURITYINFORMATION = '00000531'X ! NT Security informationK PARAMETER REG$_SECURITYDESC3 RIPTOR = '00000232'X ! NT Security descriptorK PARAMETER REG$_VALUEINDEX = '00000533'X ! index of the value to retrieve@ PARAMETER REG$_VALUEDATA = '00000234'X ! value data componentQ PARAMETER REG$_VALUEDATAMAX = '00000535'X ! longest value data for a given keyT PARAMETER REG$_VALUEDATASIZE = '00000536'X ! destination's value data buffer sizeI PARAMETER REG$_VALUENAME = '00000137'X ! specifies the name of a valueQ PARAMETER REG$_VALUENAMEMAX = '00000538'X ! longest value name 4 for a given keyT PARAMETER REG$_VALUENAMESIZE = '00000539'X ! destination's value name buffer sizeM PARAMETER REG$_VALUENUMBER = '0000053A'X ! number of values in a given keyM PARAMETER REG$_VOLATILE = '0000053B'X ! Identifies volatility of an objectP PARAMETER REG$_WILDASTERISK = '0000013C'X ! char to replace asterisk wildcardN PARAMETER REG$_WILDPERCENT = '0000013D'X ! char to replace percent wildcardN PARAMETER REG$_WILDPERIODS = '0000013E'X ! char to replace periods wildcard85 PARAMETER REG$_INSTRUMENTFILE = '0000023F'X ! unknown7 PARAMETER REG$_INSTRUMENTKEY = '00000240'X ! unknown8 PARAMETER REG$_INSTRUMENTDATA = '00000241'X ! unknownN PARAMETER REG$_FILENAME = '00000742'X ! file requested for space monitoring: PARAMETER REG$_COUNTER = '00000543'X ! a counter index Q PARAMETER REG$_SECDESCRIPTORLEN = '00000544'X ! Length of security descriptor ] PARAMETER REG$_SECDESCLEN_INTERNAL = '00000545'X ! Internal length of security descriptor ] PARAMETER R6 EG$_VALUEDATASIZE_INTERNAL = '00000546'X ! Internal dest value data buffer sizeO PARAMETER REG$_SAMDESIRED = '00000547'X ! SamDesired - for AS & Bristol onlyW PARAMETER REG$_DATABASE_VERSION = '00000548'X ! Database version for Create Database2 PARAMETER REG$_LAST = '00000049'X ! Always last@ ! J ! +-------------------------------------------------------------------+ ! | Item Code ValuesJ ! +------------------------7 -------------------------------------------+ ! @ PARAMETER REG$K_NONE = '00000000'X ! The item is not volatileW PARAMETER REG$K_CLUSTER = '00000001'X ! The item is removed when the cluster rebootsU PARAMETER REG$K_SYSTEM = '00000002'X ! The item is removed when the system rebootsc PARAMETER REG$K_PROCESS = '00000003'X ! The item is removed when the creating process terminates_ PARAMETER REG$K_IMAGE = '00000004'X ! The item is removes when the creating image terminatesd PARAMETER8 REG$K_WRITEBEHIND = '00000005'X ! The information on the given object can be written toC ! The information on the given object can be written to disk d PARAMETER REG$K_WRITETHRU = '00000006'X ! The information on the given object must be written to C ! The information on the given object must be written to diskA PARAMETER REG$K_CREATENEWKEY = '00000007'X ! Created a new keyI PARAMETER REG$K_OPENEXISTINGKEY = '00000008'X ! Opened an existing key` PARAMETER REG$K_POLICY_OPEN9 VMS = '00000009'X ! Access is required to all keys in the key pathd PARAMETER REG$K_POLICY_NT_40 = '0000000A'X ! Access is required to the first key and the requeste+ PARAMETER REG$K_INTERNAL = '0000000B'X ! @ PARAMETER REG$K_HARDLINK = '0000000C'X ! Hard (physical) linkG PARAMETER REG$K_SYMBOLICLINK = '0000000D'X ! Symbolic (logical) link5 PARAMETER REG$K_BINARY = '0000000E'X ! Binary data8 PARAMETER REG$K_DWORD = '0000000F'X ! A 32 bit numberZ PARAMETER REG$K_DWLITTLEENDIAN = : '00000010'X ! A 32 bit number in little endian format R PARAMETER REG$K_DWBIGENDIAN = '00000011'X ! A 32 bit number in bi endian formatd PARAMETER REG$K_EXPAND_SZ = '00000012'X ! A string of ISO-1 Latin characters containing environmeC ! A string of ISO-1 Latin characters containing environment v? PARAMETER REG$K_LINK = '00000013'X ! A link to another valueT PARAMETER REG$K_MULTI_SZ = '00000014'X ! A concatenated array of REG$K_SZ strings8 PARAMETER REG$K_QWORD = '00000015'X ! ; A 64 bit numberM PARAMETER REG$K_RESOURCELIST = '00000016'X ! A device driver resource list> PARAMETER REG$K_SZ = '00000017'X ! A null terminated string- PARAMETER REG$K_START_FILE = '00000018'X ! - PARAMETER REG$K_START_PERF = '00000019'X ! , PARAMETER REG$K_STOP_FILE = '0000001A'X ! , PARAMETER REG$K_STOP_PERF = '0000001B'X ! , PARAMETER REG$K_ZERO_FILE = '0000001C'X ! , PARAMETER REG$K_ZERO_PERF = '0000001D'X ! 0 PARAMETER REG$K_SHOW_CTR_FILE = '0000001E'X ! 0 PARAMETER REG < $K_SHOW_CTR_PERF = '0000001F'X ! , PARAMETER REG$K_SHOW_FILE = '00000020'X ! < PARAMETER REG$K_NORMAL = '00000021'X ! String size <= 8K: PARAMETER REG$K_LARGE = '00000022'X ! String size > 8K- PARAMETER REG$K_EXACTMATCH = '00000023'X ! * PARAMETER REG$K_INCLUDE = '00000024'X ! * PARAMETER REG$K_EXCLUDE = '00000025'X ! & PARAMETER REG$K_ANY = '00000026'X ! ) PARAMETER REG$K_NOTANY = '00000027'X !  ! J ! +-------------------------------------------------------------------+ = ! | Function Code ModifiersJ ! +-------------------------------------------------------------------+ ! ! PARAMETER REG$M_FC = '000003FF'X- PARAMETER REG$M_CASE_SENSITIVE = '00000400'X0 PARAMETER REG$M_DISABLE_WILDCARDS = '00000800'X+ PARAMETER REG$M_IGNORE_LINKS = '00001000'X" PARAMETER REG$M_NOW = '00002000'X% PARAMETER REG$M_NOWAIT = '00004000'X- PARAMETER REG$M_UNICODE_VALUES = '00008000'X% PARAMETER REG$M_BYPASS = '00010000'X' PARAMETER REG$M_INTERNAL = '00020000'X STRUC > TURE /REGDEF/ UNION MAP PARAMETER REG$S_FC = 10 PARAMETER REG$V_FC = 0+ PARAMETER REG$S_CASE_SENSITIVE = 1d PARAMETER REG$V_CASE_SENSITIVE = 10 ! Indicates that the case sensitivity of keys be usesC ! Indicates that the case sensitivity of keys be uses for mat. PARAMETER REG$S_DISABLE_WILDCARDS = 1d PARAMETER REG$V_DISABLE_WILDCARDS = 11 ! Indicates that wildcards characters should be trC ! Indicates that wildcards cha? racters should be traited as no) PARAMETER REG$S_IGNORE_LINKS = 1c PARAMETER REG$V_IGNORE_LINKS = 12 ! Indicates that symbolic links should not be followed PARAMETER REG$S_NOW = 1d PARAMETER REG$V_NOW = 13 ! Indicates whether or not an operation should be written to diC ! Indicates whether or not an operation should be written to # PARAMETER REG$S_NOWAIT = 1d PARAMETER REG$V_NOWAIT = 14 ! Indicates that operation should be abort@ ed rather than staC ! Indicates that operation should be aborted rather than stal+ PARAMETER REG$S_UNICODE_VALUES = 1Y PARAMETER REG$V_UNICODE_VALUES = 15 ! Indicates that data is an UNICODE string# PARAMETER REG$S_BYPASS = 1) PARAMETER REG$V_BYPASS = 16 ! % PARAMETER REG$S_INTERNAL = 1H PARAMETER REG$V_INTERNAL = 17 ! Indicates internal operation BYTE %FILL (3) END MAP END UNION END STRUCTURE ! REGDEF ! J ! A +-------------------------------------------------------------------+ ! | Key Change Notify FlagsJ ! +-------------------------------------------------------------------+ ! ) PARAMETER REG$M_CHANGENAME = '00000001'X/ PARAMETER REG$M_CHANGEATTRIBUTES = '00000002'X, PARAMETER REG$M_CHANGELASTSET = '00000004'X- PARAMETER REG$M_CHANGESECURITY = '00000008'X STRUCTURE /KEYCHANGEDEF/ UNION MAP' PARAMETER REG$S_CHANGENAME = 1d PARAMETER REG$V_CHANGENAME = 0 B ! A key name change, includes creation and deletion of itC ! A key name change, includes creation and deletion of its su- PARAMETER REG$S_CHANGEATTRIBUTES = 1T PARAMETER REG$V_CHANGEATTRIBUTES = 1 ! Attribute change of key or subkeys* PARAMETER REG$S_CHANGELASTSET = 1W PARAMETER REG$V_CHANGELASTSET = 2 ! Last write time change of key or subkeys+ PARAMETER REG$S_CHANGESECURITY = 1\ PARAMETER REG$V_CHANGESECURITY = 3 ! Security descrC iptor change of key or subkeys BYTE %FILL (1) END MAP END UNION END STRUCTURE ! KEYCHANGEDEF ! J ! +-------------------------------------------------------------------+ ! | Security access MaskJ ! +-------------------------------------------------------------------+ ! ( PARAMETER REG$M_ALLACCESS = '00000001'X) PARAMETER REG$M_CREATELINK = '00000002'X+ PARAMETER REG$M_CREATESUBKEY = '00000004'X* PARAMETER REG$M_ENUMSUBKEYS = '00000008'X& PARAMETER REG$M_EXECUTE D = '00000010'X% PARAMETER REG$M_NOTIFY = '00000020'X) PARAMETER REG$M_QUERYVALUE = '00000040'X# PARAMETER REG$M_READ = '00000080'X' PARAMETER REG$M_SETVALUE = '00000100'X$ PARAMETER REG$M_WRITE = '00000200'X+ PARAMETER REG$M_DELETEACCESS = '00000400'X* PARAMETER REG$M_READCONTROL = '00000800'X' PARAMETER REG$M_WRITEDAC = '00001000'X) PARAMETER REG$M_WRITEOWNER = '00002000'X* PARAMETER REG$M_SYNCHRONIZE = '00004000'X3 PARAMETER REG$M_ACCESSSYSTEMSECURITY = '00008000'X- PARAMETER REGE $M_MAXIMUMALLOWED = '00010000'X) PARAMETER REG$M_GENERICALL = '00020000'X- PARAMETER REG$M_GENERICEXECUTE = '00040000'X+ PARAMETER REG$M_GENERICWRITE = '00080000'X* PARAMETER REG$M_GENERICREAD = '00100000'X STRUCTURE /SECACCESSDEF/ UNION MAP ! NT equivalent& PARAMETER REG$S_ALLACCESS = 1: PARAMETER REG$V_ALLACCESS = 0 ! KEY_ALL_ACCESS' PARAMETER REG$S_CREATELINK = 1< PARAMETER REG$V_CREATELINK = 1 ! KEY_CREATE_LINK) PARAMETER R F EG$S_CREATESUBKEY = 1@ PARAMETER REG$V_CREATESUBKEY = 2 ! KEY_CREATE_SUB_KEY( PARAMETER REG$S_ENUMSUBKEYS = 1D PARAMETER REG$V_ENUMSUBKEYS = 3 ! KEY_ENUMERATE_SUB_KEYS$ PARAMETER REG$S_EXECUTE = 15 PARAMETER REG$V_EXECUTE = 4 ! KEY_EXECUTE# PARAMETER REG$S_NOTIFY = 13 PARAMETER REG$V_NOTIFY = 5 ! KEY_NOTIFY' PARAMETER REG$S_QUERYVALUE = 1< PARAMETER REG$V_QUERYVALUE = 6 ! KEY_QUERY_VALUE! PARAM G ETER REG$S_READ = 1e PARAMETER REG$V_READ = 7 ! READ_CONTROL|KEY_QUERY_VALUE|KEY_ENUMERATE_SUB_KEYS|KEY_NOTIFY% PARAMETER REG$S_SETVALUE = 18 PARAMETER REG$V_SETVALUE = 8 ! KEY_SET_VALUE" PARAMETER REG$S_WRITE = 1U PARAMETER REG$V_WRITE = 9 ! READ_CONTROL|KEY_SET_VALUE|KEY_CREATE_SUB_KEY) PARAMETER REG$S_DELETEACCESS = 1< PARAMETER REG$V_DELETEACCESS = 10 ! DELETE_ACCESS( PARAMETER REG$S_READCONTROL = 1: P H ARAMETER REG$V_READCONTROL = 11 ! READ_CONTROL% PARAMETER REG$S_WRITEDAC = 15 PARAMETER REG$V_WRITEDAC = 12 ! WRITE_DAC' PARAMETER REG$S_WRITEOWNER = 19 PARAMETER REG$V_WRITEOWNER = 13 ! WRITE_OWNER( PARAMETER REG$S_SYNCHRONIZE = 19 PARAMETER REG$V_SYNCHRONIZE = 14 ! SYNCHRONIZE1 PARAMETER REG$S_ACCESSSYSTEMSECURITY = 1M PARAMETER REG$V_ACCESSSYSTEMSECURITY = 15 ! ACCESS_SYSTEM_SECURITY+ PARAMETER REG$S I _MAXIMUMALLOWED = 1@ PARAMETER REG$V_MAXIMUMALLOWED = 16 ! MAXIMUM_ALLOWED' PARAMETER REG$S_GENERICALL = 19 PARAMETER REG$V_GENERICALL = 17 ! GENERIC_ALL+ PARAMETER REG$S_GENERICEXECUTE = 1@ PARAMETER REG$V_GENERICEXECUTE = 18 ! GENERIC_EXECUTE) PARAMETER REG$S_GENERICWRITE = 1< PARAMETER REG$V_GENERICWRITE = 19 ! GENERIC_WRITE( PARAMETER REG$S_GENERICREAD = 1: PARAMETER REG$V_GENERICREAD = 20 ! GENERIC_REJ AD BYTE %FILL (3) END MAP END UNION END STRUCTURE ! SECACCESSDEF ! J ! +-------------------------------------------------------------------+ ! | HKEY DefinitionsJ ! +-------------------------------------------------------------------+ ! 7 PARAMETER REG$_HKEY_NONE = '00000000'X ! %x00000000 ? PARAMETER REG$_HKEY_CLASSES_ROOT = '80000000'X ! %x80000000 ? PARAMETER REG$_HKEY_CURRENT_USER = '80000001'X ! %x80000001 A PARAMETER REG$_HKEY_LOCAL_MACHINE = '8000K 0002'X ! %x80000002 9 PARAMETER REG$_HKEY_USERS = '80000003'X ! %x80000003 B PARAMETER REG$_HKEY_PERFORMANCE_DATA = '80000004'X ! %x800000045 PARAMETER REG$_HKEY_LAST_ROOT_KEY = '00000005'X ! !DEC$ END OPTIONS wwM؎Φ!*** MODULE $REGMSG ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:04.66 !  ! ! ! ! FILE: REGMSG.MSG ! ! ! ! IDENT: X-17 ! !P ! ! *L * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *P ! ! *P ! ! COPYRIGHT 1996 BY *P ! ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *P ! ! ALL RIGHTS RESERVED *P ! ! *P ! ! THIS SOFTWARE M IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *P ! ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *P ! ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *P ! ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *P ! ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *P ! ! TRANSFERRED. *P ! ! N *P ! ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *P ! ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *P ! ! CORPORATION. *P ! ! *P ! ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *P ! ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIEO D BY DIGITAL. *P ! ! *P ! ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! !++ ! ! FACILITY: ! !# ! ! OPENVMS REGISTRY - SERVER ! ! ! ! ABSTRACT: ! !5 ! ! THIS MODULE CONTAINS THE REGISTRY ERROR MESSAGES ! ! ! ! AUTHORS: ! ! ! ! ELIE COHEN ! !% ! ! CREATION DATE: 25-JAN-1996 ! ! ! ! MODIFICATION HISTORY: ! ! ! !2 ! ! X-0 P 17 PRD PAUL R. DESTEFANO 17-JAN-20015 ! ! ADDED DTRWLOCKSELF AND DTRWLOCKLOCKED MESSAGES. ! !5 ! ! X-016 MPD0134 MATTHEW DOREMUS 16-FEB-1999@ ! ! ADDED MESSAGES: CVTDATATYPE, CANTOPENINFILE, & INVVALNAME. ! !5 ! ! X-015 MPD0123 MATTHEW DOREMUS 14-JAN-1999= ! ! ADDED MESSAGES: INVTLV, ACTIVE, INACTIVE, & NOTSTARTED. ! !2 ! ! X-014 PRD PAUL R. DESTEFANO 06-AUG-1998= ! ! FIX TYPOS, FIX CAPITALIZATION, REPHRASE A FEW MESSAGES. ! ! 4 ! ! X-013 PRD PAUL Q R. DESTEFANO 01-JUL-1998- ! ! ADD IDNOTADDED AND NORESPONSE MESSAGES. ! !4 ! ! X-012 PRD PAUL R. DESTEFANO 29-JUN-1998F ! ! ADD /MACRO=$REGMSG TO THE .FACILITY DIRECTIVE. THIS INSURES THATG ! ! THE OUTPUT OF A MESSAGE/SDL CONTAINS A "module $REGMSG" STATEMENTE ! ! AND THAT CONVERTING FROM .MSG TO .SDL TO .SDI TO .H (AS DONE BYD ! ! THE BUILD OF THE [STARLET_H] FACILITY RESULTS IN A FILE CALLEDD ! ! REGMSG.H. WITHOUT THIS, THE MESSAGE GETS THE MODULE NAME FROME ! ! TH R E FACILITY NAME "REG" AND APPENDS "DEF" TO IT. THE RESULT ISE ! ! A MODULE CALLED "REGDEF.H", WHICH CONFLICTS WITH ANOTHER HEADER ! ! MODULE OF THE SAME NAME. ! !< ! ! X-011 ELIE COHEN 14-MAR-1998 ! ! ADD NOTDELIVER MESSAGE< ! ! X-010 ELIE COHEN 19-FEB-1998" ! ! ADD INVCREDENTIALS MESSAGE= ! !! X-009 ELIE COHEN 10-FEB-1998$ ! ! ADD INVSECDESCRIPTOR MESSAGE< ! ! X-008 ELIE COHEN S 28-JAN-1998& ! ! REWORD CONTENT OF REG$_EXQUOTA< ! ! X-007 ELIE COHEN 20-NOV-1997 ! ! ADD CANTCONVCS MESSAGE: ! ! X-006 ELIE COHEN 13-AUG-1997# ! ! MODIFY INVDATA MESSAGE TEXT: ! ! X-005 ELIE COHEN 12-AUG-1997 ! ! CORRECT TYPOS: ! ! X-004 ELIE COHEN 23-MAY-1997! ! ! ADD STRINGTOOLONG MESSAGE: ! ! X-003 PAT NELSON 03-APR-1997- ! ! AD T D KEYNAMEEXIST. EDITED MESSAGE TEXTA ! ! X-002 KEN MATSUDA 28-MAR-1997B ! ! ADD INVDATA MESSAGE FOR INVALID VALUE ENTRIES.A ! ! X-001 ELIE COHEN 25-JAN-1995# ! ! MODULE CREATION ! !--& PARAMETER REG$_FACILITY = '00000746'X( PARAMETER REG$_KEYCHANGED = '07468003'X) PARAMETER REG$_NOMOREITEMS = '0746800B'X- PARAMETER REG$_NOMORESUBSTRING = '07468013'X) PARAMETER REG$_OBJWITHLINK = '0746801B'X) U PARAMETER REG$_REQRECEIVED = '07468023'X( PARAMETER REG$_IDNOTADDED = '0746802B'X* PARAMETER REG$_DTRWLOCKSELF = '07468033'X( PARAMETER REG$_BADFILEVER = '07468190'X( PARAMETER REG$_DELROOTKEY = '07468198'X+ PARAMETER REG$_DOUBLEDEALLOC = '074681A0'X% PARAMETER REG$_HASLINK = '074681A8'X& PARAMETER REG$_KEYEXIST = '074681B0'X( PARAMETER REG$_VALUEEXIST = '074681B8'X# PARAMETER REG$_NOKEY = '074681C0'X( PARAMETER REG$_NOSUCHFILE = '074681C8'X% PARAMETER REG$_NOVALUE = '074681D0'X( PAR V AMETER REG$_NOTDELIVER = '074681D8'X) PARAMETER REG$_CVTDATATYPE = '074681E0'X' PARAMETER REG$_BUFFEROVF = '07468322'X( PARAMETER REG$_CANTCONVCS = '0746832A'X) PARAMETER REG$_CANTCONVUNI = '07468332'X- PARAMETER REG$_CANTOPENOUTFILE = '0746833A'X- PARAMETER REG$_DBALREADYLOADED = '07468342'X* PARAMETER REG$_DBCSMISMATCH = '0746834A'X, PARAMETER REG$_DBNOTYETLOADED = '07468352'X+ PARAMETER REG$_DBVERMISMATCH = '0746835A'X) PARAMETER REG$_DUPLREQUEST = '07468362'X* PARAMETER REG$_DTMU W TEXERROR = '0746836A'X) PARAMETER REG$_DTMUTEXINIT = '07468372'X) PARAMETER REG$_DTMUTEXLOCK = '0746837A'X+ PARAMETER REG$_DTMUTEXLOCKED = '07468382'X+ PARAMETER REG$_DTMUTEXUNLOCK = '0746838A'X* PARAMETER REG$_DTRWLOCKINIT = '07468392'X* PARAMETER REG$_DTRWLOCKLOCK = '0746839A'X, PARAMETER REG$_DTRWLOCKUNLOCK = '074683A2'X% PARAMETER REG$_EXQUOTA = '074683AA'X( PARAMETER REG$_FILECREATE = '074683B2'X+ PARAMETER REG$_FILENAMEINVAL = '074683BA'X& PARAMETER REG$_FILEOPEN = '074683C2'X) X PARAMETER REG$_FILEREADEOF = '074683CA'X* PARAMETER REG$_FNAMMISMATCH = '074683D2'X( PARAMETER REG$_FSOCORRUPT = '074683DA'X* PARAMETER REG$_FSOFILEINDEX = '074683E2'X' PARAMETER REG$_FSOOFFSET = '074683EA'X* PARAMETER REG$_FSOSEGNUMBER = '074683F2'X+ PARAMETER REG$_FSOSEGREADERR = '074683FA'X& PARAMETER REG$_FTEALLOC = '07468402'X& PARAMETER REG$_FTEINUSE = '0746840A'X( PARAMETER REG$_FTEDUPNAME = '07468412'X+ PARAMETER REG$_FTEINSUFFINFO = '0746841A'X, PARAMETER REG$_FTEALREADYOPEN = Y '07468422'X( PARAMETER REG$_FTENOTOPEN = '0746842A'X) PARAMETER REG$_FTENOTEXIST = '07468432'X- PARAMETER REG$_FTEALREADYEXIST = '0746843A'X) PARAMETER REG$_HAVESUBKEYS = '07468442'X, PARAMETER REG$_INVCACHEACTION = '0746844A'X% PARAMETER REG$_INVDATA = '07468452'X) PARAMETER REG$_INVDATATYPE = '0746845A'X) PARAMETER REG$_INVFUNCCODE = '07468462'X& PARAMETER REG$_INVKEYID = '0746846A'X) PARAMETER REG$_INVKEYFLAGS = '07468472'X( PARAMETER REG$_INVKEYNAME = '0746847A'X% PARAMETER REG Z $_INVLINK = '07468482'X) PARAMETER REG$_INVLINKPATH = '0746848A'X$ PARAMETER REG$_INVLOG = '07468492'X& PARAMETER REG$_INVPARAM = '0746849A'X% PARAMETER REG$_INVPATH = '074684A2'X* PARAMETER REG$_INVSECPOLICY = '074684AA'X+ PARAMETER REG$_INVVOLROOTKEY = '074684B2'X' PARAMETER REG$_IOREADERR = '074684BA'X' PARAMETER REG$_IOWRITERR = '074684C2'X( PARAMETER REG$_IPLTOOHIGH = '074684CA'X' PARAMETER REG$_KEYLOCKED = '074684D2'X* PARAMETER REG$_KEYNAMEEXIST = '074684DA'X, PARAMETER REG$_ [ LOGFILETABFULL = '074684E2'X) PARAMETER REG$_LTENOTEXIST = '074684EA'X& PARAMETER REG$_MOREDATA = '074684F2'X( PARAMETER REG$_NOTROOTKEY = '074684FA'X* PARAMETER REG$_NOTSUPPORTED = '07468502'X) PARAMETER REG$_NOPATHFOUND = '0746850A'X& PARAMETER REG$_RESERVED = '07468512'X) PARAMETER REG$_ROOTINSFILE = '0746851A'X* PARAMETER REG$_RUIDMISMATCH = '07468522'X$ PARAMETER REG$_SECVIO = '0746852A'X( PARAMETER REG$_SEGREADERR = '07468532'X) PARAMETER REG$_STRINGTRUNC = '0746853A'X, PARAMETER \ REG$_SVRVERMISMATCH = '07468542'X) PARAMETER REG$_SVRSHUTDOWN = '0746854A'X, PARAMETER REG$_TOOMANYOPENKEY = '07468552'X' PARAMETER REG$_UNKTHRREQ = '0746855A'X) PARAMETER REG$_VOLMISMATCH = '07468562'X+ PARAMETER REG$_STRINGTOOLONG = '0746856A'X. PARAMETER REG$_INVSECDESCRIPTOR = '07468572'X* PARAMETER REG$_ACCESSDENIED = '0746857A'X, PARAMETER REG$_INVCREDENTIALS = '07468582'X$ PARAMETER REG$_INVTLV = '0746858A'X$ PARAMETER REG$_ACTIVE = '07468592'X& PARAMETER REG$_INACTIVE = '074685 ] 9A'X( PARAMETER REG$_NOTSTARTED = '074685A2'X, PARAMETER REG$_CANTOPENINFILE = '074685AA'X( PARAMETER REG$_INVVALNAME = '074685B2'X, PARAMETER REG$_DTRWLOCKLOCKED = '074685BA'X- PARAMETER REG$_CANTCLEANVOLSEG = '07468644'X& PARAMETER REG$_DBACCESS = '0746864C'X& PARAMETER REG$_DBCREATE = '07468654'X$ PARAMETER REG$_DBFIND = '0746865C'X$ PARAMETER REG$_DBFULL = '07468664'X$ PARAMETER REG$_DBLOAD = '0746866C'X) PARAMETER REG$_FTIMISMATCH = '07468674'X' PARAMETER REG$_INTERNERR = '0746867C'^ X' PARAMETER REG$_INVLOGREC = '07468684'X' PARAMETER REG$_INVSEGNUM = '0746868C'X' PARAMETER REG$_IPCCONACC = '07468694'X' PARAMETER REG$_IPCCONREJ = '0746869C'X' PARAMETER REG$_IPCDCLAST = '074686A4'X' PARAMETER REG$_IPCOPEASS = '074686AC'X* PARAMETER REG$_NOBLOCKFOUND = '074686B4'X& PARAMETER REG$_NOMEMORY = '074686BC'X' PARAMETER REG$_NOMORESEG = '074686C4'X( PARAMETER REG$_NORESPONSE = '074686CC'X& PARAMETER REG$_NOLOGNAM = '074686D4'X!DEC$ END OPTIONSww$_ !*** MODULE $RMEDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN% PARAMETER RME$C_SETRFM = '00000001'X& PARAMETER RME$C_PPFECHO = '00000002'X% PARAMETER RME$C_SETRCF = '00000003'X+ PARAMETER RME$C_KEEP_LOCK_ON = '00000004'X, PARAMETER RME$C_KEEP_LOCK_OFF = '00000005'X( PARAMETER RME$C_RU_ACE_ON = '00000006'X) PARAMETER RME$C_RU_ACE_OFF = '00000007'X* PARAMETER RME$C_SET_RECATTR = '00000008'X!DEC$ END OPTIONSwwAEΦ!*** MODULE $RMIDEF ***:!D` EC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +B ! Get System Performance Information Data Identifier Definitions ! C ! The following constants define the items which can be collectedA ! with the Get System Performance Information service (GETRMI)., ! The item numbers are defined as follows: ! & ! 16 12 0& ! +------------------+-------------+& ! | Structure number | Item number |& ! +------------------+-------------+ ! I ! The top a four bits represent the structure of the item and the last 122 ! bits represent the item within the structure.  !  ! ****** Caution! : ! ****** This file is no longer intended to be modified. ! ******E ! The following had been guidelines for adding symbols to RMIDEF. = ! This interface is now defined in [STARLET]GETSYIDEF.SDL.J ! Therefore, changing any item number is unacceptable. Some spare itemM ! number exist in each range; if these are ever exhausted, new ranges must b E ! be defined and support added, rather than changing item numbers. ! H ! As any enhancements are mode to $GETRMI, changes should be made to J ! STARLET, and modules should be changed to use the new GETRMI$ symbols ! to replace RMI$ symbols. !  ! * The item numbers startL ! * at 0 and increase sequentially to the last item (even across tables).L ! * If new items are added to a table, programs MUST be relinked to allowJ ! * the old definitions to change. This was don c e to simplify some tableK ! * lookups in the Monitor Utility. To get around this, new items can be$ ! * added at the end of the list. ! *M ! * Each table has one item at the end to act as a place holder. It shouldK ! * have the same item number as the first item of the next table. TheseQ ! * items are not counters in the total number of RMI items GETRMI$_TABLESIZE. ! - ! DEFINE TABLE TYPES: PARAMETER RMI$C_EXETYPE = '00000001'X ! Executive cellsJ PARAMETER RMI$C_EWSTYPE d = '00000002'X ! Executive writable storage areaA PARAMETER RMI$C_MONTYPE = '00000003'X ! Monitor specific itemsE PARAMETER RMI$C_RMSTYPE = '00000004'X ! Monitor RMS specific itemsD PARAMETER RMI$C_EX2TYPE = '00000005'X ! Ececutive cells extension< PARAMETER RMI$C_LISTEND = '00000000'X ! End of table list ! R ! The following section defines items which are collected during initialization.N ! There items include general system information, and server version number.3 ! The serv e er version number is also defined here. ! : PARAMETER RMI$_initial = -1 ! Initialization item listB PARAMETER RMI$_data_collection = -2 ! Data collection item list9 PARAMETER RMI$_sysinfo = -3 ! System information item> PARAMETER RMI$_version_number = -4 ! Monitor version number2 PARAMETER RMI$_rms_file = -5 ! Parse file name; PARAMETER RMI$_rms_gs = -6 ! Get global section address PARAMETER RMI$_last_type = -7, PARAMETER RMI$_server_version = '00000005'X ! F ! Defi f ne bits in the PMS flags field PMS$GL_FLAGS. These are used toC ! synchronize access to some PMS field and enable other activity. !  STRUCTURE /rmi$pms_flags/( PARAMETER RMI$S_disk_enable = 1X PARAMETER RMI$V_disk_enable = 0 ! YES => Enable disk queue length collection9 ! This field must be accessed via an interlocked ! bit instruction.$ PARAMETER RMI$S_filler1 = 7J PARAMETER RMI$V_filler1 = 1 ! Fill out remainder of first byte& g PARAMETER RMI$S_disk_sync = 1] PARAMETER RMI$V_disk_sync = 8 ! YES => Synchronize access to several PMS counters7 ! used in the collection of disk queue length.9 ! This field must be accessed via an interlocked5 ! bit instruction, AND MUST BE IN A SEPARATE5 ! BYTE from the disk_enable bit (required by9 ! the architecture to maintain synchronization).% PARAMETER RMI$S_filler2 = 23$ PARAMETER RMI$V_filler2 = 9: h BYTE %FILL (4) ! Fill out remainder of field END STRUCTURE ! rmi$pms_flags ! H ! Define two contants to handle help handle large lookaside lists. The< ! maximum number that RMISHR will count to is defined withB ! RMI$K_MAX_PACKET and the value returned when this threshold is) ! reached is defined as RMI$K_POOL_OVF. ! ) PARAMETER RMI$k_max_packet = '000001F4'X' PARAMETER RMI$k_pool_ovf = '80000001'X ! E ! Define item identifier numbers. Each data item has an associa i tedG ! value which is used to find its entry in the EXETBL. The item tableJ ! is defined by the macros RMI_GENERATE_TABLE which makes multiple calls? ! to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. ! G PARAMETER RMI$_MODES = '00001000'X ! All modes counters on all CPU'sN PARAMETER RMI$_INTERRUPT = '00001001'X ! time on interrupt stack -- primaryG PARAMETER RMI$_KERNEL = '00001002'X ! time in kernel mode -- primaryC PARAMETER RMI$_EXEC = '00001003'X ! time in exej c mode -- primaryJ PARAMETER RMI$_SUPER = '00001004'X ! time in supervisor mode -- primaryC PARAMETER RMI$_USER = '00001005'X ! time in user mode -- primaryH PARAMETER RMI$_COMPAT = '00001006'X ! time in compat. mode -- primary[ PARAMETER RMI$_INTERRUPT_BUSY = '00001007'X ! Time spent RMInning on the interrupt stackU PARAMETER RMI$_KERNEL_BUSY = '00001008'X ! Time spent RMInning on the lernel stack; PARAMETER RMI$_IDLE = '00001009'X ! idle time -- primaryB PARAMETER RMI$_CPUBUS k Y = '0000100A'X ! RETIRED ITEM - RETURNS 0: PARAMETER RMI$_COLPG = '0000100B'X ! collided page wait3 PARAMETER RMI$_MWAIT = '0000100C'X ! memory wait< PARAMETER RMI$_CEF = '0000100D'X ! common event flag wait/ PARAMETER RMI$_PFW = '0000100E'X ! page wait; PARAMETER RMI$_LEF = '0000100F'X ! local event flag wait? PARAMETER RMI$_LEFO = '00001010'X ! lef wait out of bal. set1 PARAMETER RMI$_HIB = '00001011'X ! hibernating= PARAMETER RMI$_HIBO = '00001012'X ! hibernating out l swapped0 PARAMETER RMI$_SUSP = '00001013'X ! suspended< PARAMETER RMI$_SUSPO = '00001014'X ! suspended outswapped4 PARAMETER RMI$_FPG = '00001015'X ! free page wait/ PARAMETER RMI$_COM = '00001016'X ! computing< PARAMETER RMI$_COMO = '00001017'X ! computable outswapped- PARAMETER RMI$_CUR = '00001018'X ! currentB PARAMETER RMI$_OTHSTAT = '00001019'X ! RETIRED ITEM - RETURNS 0F PARAMETER RMI$_PROCS = '0000101A'X ! process count for SYSTEM classF PARAMETER RMI$_PROC = '000010 m 1B'X ! collect all process information: PARAMETER RMI$_FRLIST = '0000101C'X ! size of free list? PARAMETER RMI$_MODLIST = '0000101D'X ! size of modified list9 PARAMETER RMI$_FAULTS = '0000101E'X ! page fault count3 PARAMETER RMI$_PREADS = '0000101F'X ! page reads5 PARAMETER RMI$_PWRITES = '00001020'X ! page writesC PARAMETER RMI$_PWRITIO = '00001021'X ! physical page write I/O'sB PARAMETER RMI$_PREADIO = '00001022'X ! physical page read I/O's> PARAMETER RMI$_GVALFLTS = '00n 001023'X ! global valid faultsI PARAMETER RMI$_WRTINPROG = '00001024'X ! faults from write in progress? PARAMETER RMI$_FREFLTS = '00001025'X ! faults from free listC PARAMETER RMI$_MFYFLTS = '00001026'X ! faults from modified list= PARAMETER RMI$_DZROFLTS = '00001027'X ! demand zero faults> PARAMETER RMI$_SYSFAULTS = '00001028'X ! system page faultsH PARAMETER RMI$_LRPCNT = '00001029'X ! number of LRP packets available@ PARAMETER RMI$_LRPINUSE = '0000102A'X ! number of LRPs o in useH PARAMETER RMI$_IRPCNT = '0000102B'X ! number of IRP packets available@ PARAMETER RMI$_IRPINUSE = '0000102C'X ! number of IRPs in useH PARAMETER RMI$_SRPCNT = '0000102D'X ! number of SRP packets available@ PARAMETER RMI$_SRPINUSE = '0000102E'X ! number of SRPs in useI PARAMETER RMI$_HOLECNT = '0000102F'X ! number of blocks in dyn. memory6 PARAMETER RMI$_BIGHOLE = '00001030'X ! largest hole9 PARAMETER RMI$_SMALLHOLE = '00001031'X ! smallest holeN PARAMETER RMI$_HOLESUM = p '00001032'X ! total space in dyn. memory availableF PARAMETER RMI$_DYNINUSE = '00001033'X ! dynamic memory space in useN PARAMETER RMI$_SMALLCNT = '00001034'X ! number of blocks < 32 bytes in size7 PARAMETER RMI$_ISWPCNT = '00001035'X ! total inswaps< PARAMETER RMI$_DIRIO = '00001036'X ! count of direct I/Os> PARAMETER RMI$_BUFIO = '00001037'X ! count of buffered I/Os= PARAMETER RMI$_MBREADS = '00001038'X ! total mailbox reads? PARAMETER RMI$_MBWRITES = '00001039'X ! total mai q lbox writesB PARAMETER RMI$_LOGNAM = '0000103A'X ! logical name translations: PARAMETER RMI$_FCPCALLS = '0000103B'X ! total fcp callsE PARAMETER RMI$_FCPREAD = '0000103C'X ! number of disk reads by FCPG PARAMETER RMI$_FCPWRITE = '0000103D'X ! number of disk writes by FCPC PARAMETER RMI$_FCPCACHE = '0000103E'X ! number of FCP cache hitsB PARAMETER RMI$_FCPCPU = '0000103F'X ! number of CPU tics by FCP> PARAMETER RMI$_FCPHIT = '00001040'X ! number of window hitsD PARAMETER RMI$_r FCPSPLIT = '00001041'X ! number of split transfersD PARAMETER RMI$_FCPFAULT = '00001042'X ! number of FCP page faults> PARAMETER RMI$_ENQNEW = '00001043'X ! number of ENQ's (new)F PARAMETER RMI$_ENQCVT = '00001044'X ! number of ENQ's (conversions)5 PARAMETER RMI$_DEQ = '00001045'X ! number of DEQ'sA PARAMETER RMI$_BLKAST = '00001046'X ! number of blocking AST'sH PARAMETER RMI$_ENQWAIT = '00001047'X ! number of ENQ's forced to waitE PARAMETER RMI$_ENQNOTQD = '00001048'X ! numbe s r of ENQ's not queuedF PARAMETER RMI$_DLCKSRCH = '00001049'X ! number of deadlock searchesC PARAMETER RMI$_DLCKFND = '0000104A'X ! number of deadlocks found6 PARAMETER RMI$_NUMLOCKS = '0000104B'X ! total locks8 PARAMETER RMI$_NUMRES = '0000104C'X ! total resourcesA PARAMETER RMI$_ARRLOCPK = '0000104D'X ! arriving local packetsB PARAMETER RMI$_DEPLOCPK = '0000104E'X ! departing local packetsC PARAMETER RMI$_ARRTRAPK = '0000104F'X ! arriving transit packetsB PARAMETER RMI$_TRCNt GLOS = '00001050'X ! transit congestion lossC PARAMETER RMI$_RCVBUFFL = '00001051'X ! receiver buffer failuresC PARAMETER RMI$_RESERVED1 = '00001052'X ! Reserved PMS location 1C PARAMETER RMI$_RESERVED2 = '00001053'X ! Reserved PMS location 2C PARAMETER RMI$_RESERVED3 = '00001054'X ! Reserved PMS location 3C PARAMETER RMI$_RESERVED4 = '00001055'X ! Reserved PMS location 4C PARAMETER RMI$_RESERVED5 = '00001056'X ! Reserved PMS location 5C PARAMETER RMI$_RESERVED6 = '00001057'u X ! Reserved PMS location 6C PARAMETER RMI$_RESERVED7 = '00001058'X ! Reserved PMS location 7C PARAMETER RMI$_RESERVED8 = '00001059'X ! Reserved PMS location 8C PARAMETER RMI$_RESERVED9 = '0000105A'X ! Reserved PMS location 9E PARAMETER RMI$_RESERVED10 = '0000105B'X ! Reserved PMS location 10E PARAMETER RMI$_RESERVED11 = '0000105C'X ! Reserved PMS location 11E PARAMETER RMI$_RESERVED12 = '0000105D'X ! Reserved PMS location 12E PARAMETER RMI$_RESERVED13 = '0000105E'X ! Resv erved PMS location 13E PARAMETER RMI$_RESERVED14 = '0000105F'X ! Reserved PMS location 14E PARAMETER RMI$_RESERVED15 = '00001060'X ! Reserved PMS location 15E PARAMETER RMI$_RESERVED16 = '00001061'X ! Reserved PMS location 16E PARAMETER RMI$_RESERVED17 = '00001062'X ! Reserved PMS location 17E PARAMETER RMI$_RESERVED18 = '00001063'X ! Reserved PMS location 18K PARAMETER RMI$_FID_TRIES = '00001064'X ! count of File Id cache attemptsR PARAMETER RMI$_FILHDR_TRIES = '00001065'X w ! count of File header cache attemptsV PARAMETER RMI$_DIRFCB_TRIES = '00001066'X ! count of Directory block cache attemptsV PARAMETER RMI$_DIRDATA_TRIES = '00001067'X ! count of Directory data cache attemptsJ PARAMETER RMI$_EXT_TRIES = '00001068'X ! count of Extent cache attemptsI PARAMETER RMI$_QUO_TRIES = '00001069'X ! count of Quota cache attemptsX PARAMETER RMI$_STORAGMAP_TRIES = '0000106A'X ! count of storage bitmap cache attempts5 PARAMETER RMI$_DISKS = '0000106B'X ! all diskx datad PARAMETER RMI$_TOTAL_LOCKS = '0000106C'X ! Total of all locking activity - NOT COLLECTED BY RMI -C ! Total of all locking activity - NOT COLLECTED BY RMI - COMPE PARAMETER RMI$_ENQNEWLOC = '0000106D'X ! new lock requests (local)G PARAMETER RMI$_ENQNEWIN = '0000106E'X ! new lock requests (incoming)H PARAMETER RMI$_ENQNEWOUT = '0000106F'X ! new lock requests (outgoing)L PARAMETER RMI$_ENQCVTLOC = '00001070'X ! lock conversion requests (local)N PARAMETER RMI$_ENQCVTIN = 'y 00001071'X ! lock conversion requests (incoming)O PARAMETER RMI$_ENQCVTOUT = '00001072'X ! lock conversion requests (outgoing)9 PARAMETER RMI$_DEQLOC = '00001073'X ! dequeues (local); PARAMETER RMI$_DEQIN = '00001074'X ! dequeues (incoming)< PARAMETER RMI$_DEQOUT = '00001075'X ! dequeues (outgoing)E PARAMETER RMI$_BLKLOC = '00001076'X ! blocking ASTs queued (local)G PARAMETER RMI$_BLKIN = '00001077'X ! blocking ASTs queued (incoming)H PARAMETER RMI$_BLKOUT = '00001078'X ! bz locking ASTs queued (outgoing)G PARAMETER RMI$_DIRIN = '00001079'X ! directory operations (incoming)H PARAMETER RMI$_DIROUT = '0000107A'X ! directory operations (outgoing)Q PARAMETER RMI$_DLCKMSGS = '0000107B'X ! deadlock detection messages (in & out)9 PARAMETER RMI$_SCS = '0000107C'X ! All SCS information= PARAMETER RMI$_SYSTIME = '0000107D'X ! Current system timeQ PARAMETER RMI$_MSCP_REQUEST = '0000107E'X ! IO request rate to the MSCP serverP PARAMETER RMI$_MSCP_READ = '00001{ 07F'X ! Read request rate to the MSCP serverR PARAMETER RMI$_MSCP_WRITE = '00001080'X ! Write request rate to the MSCP serverR PARAMETER RMI$_MSCP_FRAGMENT = '00001081'X ! Rate at which I/O's are fragmentedJ PARAMETER RMI$_MSCP_SPLIT = '00001082'X ! Rate at which I/O's are splitd PARAMETER RMI$_MSCP_BUFWAIT = '00001083'X ! Rate at which incoming requests have to wait for a buJ PARAMETER RMI$_MSCP_SIZE1 = '00001084'X ! I/O rate for sizes 1-2 blocksJ PARAMETER RMI$_MSCP_SIZE2 = '000010| 85'X ! I/O rate for sizes 2-3 blocksJ PARAMETER RMI$_MSCP_SIZE3 = '00001086'X ! I/O rate for sizes 4-7 blocksK PARAMETER RMI$_MSCP_SIZE4 = '00001087'X ! I/O rate for sizes 8-15 blocksL PARAMETER RMI$_MSCP_SIZE5 = '00001088'X ! I/O rate for sizes 16-31 blocksL PARAMETER RMI$_MSCP_SIZE6 = '00001089'X ! I/O rate for sizes 32-63 blocksM PARAMETER RMI$_MSCP_SIZE7 = '0000108A'X ! I/O rate for sizes 64-127 blocks\ PARAMETER RMI$_MSCP_ALL = '0000108B'X ! Dummy item to collect all MSCP se} rver class itemsF PARAMETER RMI$_DDTM_STARTS = '0000108C'X ! Local Transaction startsO PARAMETER RMI$_DDTM_PREPARES = '0000108D'X ! Local Transaction prepare eventS PARAMETER RMI$_DDTM_ONE_PHASE = '0000108E'X ! Transaction ONE_PHASE commit eventd PARAMETER RMI$_DDTM_COMMITS = '0000108F'X ! Local Transaction commit event (sum of phase 1 and 2 C ! Local Transaction commit event (sum of phase 1 and 2 commitK PARAMETER RMI$_DDTM_ABORTS = '00001090'X ! Local Transaction abort event~ B PARAMETER RMI$_DDTM_ENDS = '00001091'X ! Local Transaction endsA PARAMETER RMI$_DDTM_BRANCHS = '00001092'X ! Start branch event< PARAMETER RMI$_DDTM_ADDS = '00001093'X ! Add branch event@ PARAMETER RMI$_DDTM_BUCKETS1 = '00001094'X ! TPS rate for < 1@ PARAMETER RMI$_DDTM_BUCKETS2 = '00001095'X ! TPS rate for 1-2@ PARAMETER RMI$_DDTM_BUCKETS3 = '00001096'X ! TPS rate for 2-3@ PARAMETER RMI$_DDTM_BUCKETS4 = '00001097'X ! TPS rate for 3-4@ PARAMETER RMI$_DDTM_BUCKETS5 = '00001098'  X ! TPS rate for 4-5@ PARAMETER RMI$_DDTM_BUCKETS6 = '00001099'X ! TPS rate for > 6\ PARAMETER RMI$_DDTM_ALL = '0000109A'X ! Dummy item to collect all TRANSACTION class itemsI PARAMETER RMI$_VECTORP = '0000109B'X ! Vector Processor tics scheduled< PARAMETER RMI$_VBYTE_READ = '0000109C'X ! VBS bytes read@ PARAMETER RMI$_VBYTE_WRITE = '0000109D'X ! VBS bytes written' PARAMETER RMI$_VVBS_TRAN = '0000109E'X' PARAMETER RMI$_VRBS_TRAN = '0000109F'X& PARAMETER RMI$_VDIO_SEL = '000010 A0'X+ PARAMETER RMI$_VDIOMAP_ALLOC = '000010A1'X( PARAMETER RMI$_VRBS_AVAIL = '000010A2'X' PARAMETER RMI$_VSEL_FAIL = '000010A3'X' PARAMETER RMI$_VVBSM_HIT = '000010A4'X) PARAMETER RMI$_VVBSM_CACHE = '000010A5'X' PARAMETER RMI$_VFLUIDBAL = '000010A6'X% PARAMETER RMI$_VRECOPY = '000010A7'X' PARAMETER RMI$_VCPUTICKS = '000010A8'Xd PARAMETER RMI$_MSCP_EVERYTHING = '000010A9'X ! All MSCP server class items including the NEW itemC ! All MSCP server class items including the NEW item s not in O PARAMETER RMI$_TMSCP_EVERYTHING = '000010AA'X ! All TMSCP server class itemsW PARAMETER RMI$_DDTM_TWOPHASE_ACKRCV = '000010AB'X ! # of 2 PHASE commit ack msg rcvdW PARAMETER RMI$_DDTM_TWOPHASE_ACKSNT = '000010AC'X ! # of 2 PHASE commit ack msg sentZ PARAMETER RMI$_DDTM_TWOPHASE_CANRCV = '000010AD'X ! # of 2 PHASE commit cancel msg rcvdZ PARAMETER RMI$_DDTM_TWOPHASE_CANSNT = '000010AE'X ! # of 2 PHASE commit cancel msg sentY PARAMETER RMI$_DDTM_TWOPHASE_RDYRCV = '000010AF 'X ! # of 2 PHASE commit ready msg rcvdY PARAMETER RMI$_DDTM_TWOPHASE_RDYSNT = '000010B0'X ! # of 2 PHASE commit ready msg sent[ PARAMETER RMI$_DDTM_TWOPHASE_REQRCV = '000010B1'X ! # of 2 PHASE commit request msg rcvd[ PARAMETER RMI$_DDTM_TWOPHASE_REQSNT = '000010B2'X ! # of 2 PHASE commit request msg sentV PARAMETER RMI$_DDTM_TWOPHASE_COMMITS = '000010B3'X ! Total # of phase 2 transitionsG PARAMETER RMI$_DDTM_DECLARES = '000010B4'X ! Total # of $DECLARE_RMsA PARAMETER RMI$_DDTM _JOINS = '000010B5'X ! Total # of $JOIN_RMsE PARAMETER RMI$_DDTM_FORGETS = '000010B6'X ! Total # of $FORGET_RMsE PARAMETER RMI$_DDTM_SEQNO = '000010B7'X ! Total # of XCBs created N PARAMETER RMI$_DDTM_LOG_COMMITS = '000010B8'X ! # of Commit records writtenP PARAMETER RMI$_DDTM_LOG_PREPARES = '000010B9'X ! # of Prepare records writtenN PARAMETER RMI$_DDTM_LOG_FORGETS = '000010BA'X ! # of Forget records writtenI PARAMETER RMI$_DDTM_WRITES_STARTED = '000010BB'X ! # of Writes starte dG PARAMETER RMI$_DDTM_WRITES_FORKED = '000010BC'X ! # of forked writesO PARAMETER RMI$_DDTM_BAD_TYPECODE = '000010BD'X ! # of bad msg typecodes rcvdH PARAMETER RMI$_DDTM_BAD_LINKS = '000010BE'X ! # of bad msg links rcvdF PARAMETER RMI$_DDTM_FOR_UNLINKS = '000010BF'X ! # of forced unlinksI PARAMETER RMI$_DDTM_VOL_UNLINKS = '000010C0'X ! # of voluntary unlinksP PARAMETER RMI$_DDTM_DISC_COMP = '000010C1'X ! # of disconnect complete eventsL PARAMETER RMI$_DDTM_BAD_PARTS = '000010C2 'X ! # of invalid part ids found^ PARAMETER RMI$_LCKMGR_CPU = '000010C3'X ! The ID of the cpu on which the lock manager runs.T PARAMETER RMI$_LCKMGR_PID = '000010C4'X ! Process ID of the lock manager process.d PARAMETER RMI$_LCKMGR_REQCNT = '000010C5'X ! Accumulated count of requests handled by the lock mad PARAMETER RMI$_LCKMGR_REQTIME = '000010C6'X ! Accumulated time spent by the lock manager servicinC ! Accumulated time spent by the lock manager servicing requesd PARAMETER RMI $_LCKMGR_SPINCNT = '000010C7'X ! The number of times the lock manager entered a spind PARAMETER RMI$_LCKMGR_SPINTIME = '000010C8'X ! Spin time in cycles, the lock manager spent in spiK PARAMETER RMI$_LOCK_MAX = '000010C9'X ! The length of the Lock ID Table.Z PARAMETER RMI$_LPZ_PAKSIZ = '000010CA'X ! Its the lock manager's pool zone packet size.d PARAMETER RMI$_LPZ_PAGCNT = '000010CB'X ! Number of pages currently in the lock manager's pool zod PARAMETER RMI$_LPZ_MAXPAG = '000010CC'X !  Its the maximum number of pages in the lock manager's pC ! Its the maximum number of pages in the lock manager's pool d PARAMETER RMI$_LPZ_FREEPGCNT = '000010CD'X ! The number of free pages currently in the lock managC ! The number of free pages currently in the lock manager's po_ PARAMETER RMI$_LPZ_HITS = '000010CE'X ! The number of hits for the lock manager's pool zone.c PARAMETER RMI$_LPZ_MISSES = '000010CF'X ! The number of misses for the lock manager's pool zone.f PARAM ETER RMI$_LPZ_EXPCNT = '000010D0'X ! The number of expansions of the lock manager's pool zone.d PARAMETER RMI$_LPZ_ALLOCF = '000010D1'X ! The number of failed allocations from the lock manager'C ! The number of failed allocations from the lock manager's pod PARAMETER RMI$_LPZ_ALLOC2 = '000010D2'X ! The number of allocations from other than the first pagC ! The number of allocations from other than the first page ofd PARAMETER RMI$_LPZ_EMPTY = '000010D3'X ! Its the number of em pty pages in the lock manager's poolC ! Its the number of empty pages in the lock manager's pool zoa PARAMETER RMI$_RML_ACQUIRE = '000010D4'X ! System-wide count of lock trees moved to this node.d PARAMETER RMI$_RML_BETTER = '000010D5'X ! Count of lock trees moved from this node to a cluster nC ! Count of lock trees moved from this node to a cluster node d PARAMETER RMI$_RML_MORE_ACT = '000010D6'X ! Count of lock trees moved from this node due to a higC ! Count of lock tr ees moved from this node due to a higher lo^ PARAMETER RMI$_RML_MSGRCV = '000010D7'X ! Count of remaster messages received by this node.] PARAMETER RMI$_RML_MSGSENT = '000010D8'X ! Count of remaster messages sent from this node.d PARAMETER RMI$_RML_NOQUOTA = '000010D9'X ! Count of remaster operations which failed due to a lacC ! Count of remaster operations which failed due to a lack of d PARAMETER RMI$_RML_NOTAKER = '000010DA'X ! Count of remaster operations which were proposed a nd dC ! Count of remaster operations which were proposed and declinc PARAMETER RMI$_RML_OPCNT = '000010DB'X ! Count of remaster operations which have been completed.d PARAMETER RMI$_RML_RBLDMSGRCV = '000010DC'X ! Count of remaster rebuild messages received by thisd PARAMETER RMI$_RML_RBLDMSGSENT = '000010DD'X ! Count of remaster rebuild messages sent from this d PARAMETER RMI$_RML_SINGLE = '000010DE'X ! Count of lock trees moved from this node to another cluC ! Count of lock  trees moved from this node to another clusterC ! node which is the only node with locks remaining on the treV PARAMETER RMI$_RML_UNLOAD = '000010DF'X ! Count of lock trees moved from this node.A PARAMETER RMI$_RESERVEDEXE1 = '000010E0'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXE2 = '000010E1'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXE3 = '000010E2'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXE4 = '000010E3'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXE5 = '000010E4'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXE6 = '000010E5'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXE7 = '000010E6'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXE8 = '000010E7'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXE9 = '000010E8'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXE10 = '000010E9'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXE11 = '000010EA'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXE12 = '000010EB'X ! Reserved E XE itemsB PARAMETER RMI$_RESERVEDEXE13 = '000010EC'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXE14 = '000010ED'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXE15 = '000010EE'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXE16 = '000010EF'X ! Reserved EXE itemsD PARAMETER RMI$_LASTEXE = '000010F0'X ! Last item in the EXE table ! H ! These next items are located in an executive writable page in memory ! @ PARAMETER RMI$_ACCESS = '000020F0'X ! number of file accesses> P ARAMETER RMI$_ALLOC = '000020F1'X ! number of file extendsD PARAMETER RMI$_FCPCREATE = '000020F2'X ! number of file creationsO PARAMETER RMI$_VOLWAIT = '000020F3'X ! # of times XQP waited for volume lock@ PARAMETER RMI$_FCPTURN = '000020F4'X ! number of window turns@ PARAMETER RMI$_FCPERASE = '000020F5'X ! number of erase calls< PARAMETER RMI$_OPENS = '000020F6'X ! number of file opensD PARAMETER RMI$_FIDHIT = '000020F7'X ! count of File Id cache hitsG PARAMETER RMI$_FIDMISS = '0 00020F8'X ! count of File Id cache missesL PARAMETER RMI$_FILHDR_HIT = '000020F9'X ! count of File header cache hitsP PARAMETER RMI$_DIRFCB_HIT = '000020FA'X ! count of Directory block cache hitsS PARAMETER RMI$_DIRFCB_MISS = '000020FB'X ! count of Directory block cache missesP PARAMETER RMI$_DIRDATA_HIT = '000020FC'X ! count of Directory data cache hitsC PARAMETER RMI$_EXTHIT = '000020FD'X ! count of Extent cache hitsF PARAMETER RMI$_EXTMISS = '000020FE'X ! count of Extent cach e missesB PARAMETER RMI$_QUOHIT = '000020FF'X ! count of Quota cache hitsE PARAMETER RMI$_QUOMISS = '00002100'X ! count of Quota cache missesR PARAMETER RMI$_STORAGMAP_HIT = '00002101'X ! count of storage bitmap cache hits; PARAMETER RMI$_VOLLCK = '00002102'X ! Volume synch locksI PARAMETER RMI$_SYNCHLCK = '00002103'X ! directory and file synch locksd PARAMETER RMI$_SYNCHWAIT = '00002104'X ! # of times XQP waited for a directory or file synch lock5 PARAMETER RMI$_ACCLCK = '000021 05'X ! access locksc PARAMETER RMI$_XQPCACHEWAIT = '00002106'X ! # of times XQP had to wait for free space in a cacheS PARAMETER RMI$_DIRDATA_MISS = '00002107'X ! count of Directory data cache missesO PARAMETER RMI$_FILHDR_MISS = '00002108'X ! count of File header cache missesU PARAMETER RMI$_STORAGMAP_MISS = '00002109'X ! count of storage bitmap cache missesA PARAMETER RMI$_RESERVEDEWS1 = '0000210A'X ! Reserved EWS itemsA PARAMETER RMI$_RESERVEDEWS2 = '0000210B'X ! Reserved EWS itemsA PARAMETER RMI$_RESERVEDEWS3 = '0000210C'X ! Reserved EWS itemsA PARAMETER RMI$_RESERVEDEWS4 = '0000210D'X ! Reserved EWS itemsA PARAMETER RMI$_RESERVEDEWS5 = '0000210E'X ! Reserved EWS itemsA PARAMETER RMI$_RESERVEDEWS6 = '0000210F'X ! Reserved EWS itemsA PARAMETER RMI$_RESERVEDEWS7 = '00002110'X ! Reserved EWS itemsA PARAMETER RMI$_RESERVEDEWS8 = '00002111'X ! Reserved EWS itemsA PARAMETER RMI$_RESERVEDEWS9 = '00002112'X ! Reserved EWS itemsB PARAMETER RMI$_RE SERVEDEWS10 = '00002113'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS11 = '00002114'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS12 = '00002115'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS13 = '00002116'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS14 = '00002117'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS15 = '00002118'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS16 = '00002119'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS17 = '0000211A'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS18 = '0000211B'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS19 = '0000211C'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS20 = '0000211D'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS21 = '0000211E'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS22 = '0000211F'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS23 = '00002120'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS24 = '00002121'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS25 = '00002122'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS26 = '00002123'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS27 = '00002124'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS28 = '00002125'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS29 = '00002126'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS30 = '00002127'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS31 = '00002128'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS32 = '0000212 9'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS33 = '0000212A'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS34 = '0000212B'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS35 = '0000212C'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS36 = '0000212D'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS37 = '0000212E'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS38 = '0000212F'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS39 = '00002130'X ! Reserved EWS itemsB P ARAMETER RMI$_RESERVEDEWS40 = '00002131'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS41 = '00002132'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS42 = '00002133'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS43 = '00002134'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS44 = '00002135'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS45 = '00002136'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS46 = '00002137'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS47 =  '00002138'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS48 = '00002139'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS49 = '0000213A'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS50 = '0000213B'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS51 = '0000213C'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS52 = '0000213D'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS53 = '0000213E'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS54 = '0000213F'X ! Reserved EWS i temsB PARAMETER RMI$_RESERVEDEWS55 = '00002140'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS56 = '00002141'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS57 = '00002142'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS58 = '00002143'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS59 = '00002144'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS60 = '00002145'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS61 = '00002146'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVED EWS62 = '00002147'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS63 = '00002148'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS64 = '00002149'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS65 = '0000214A'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS66 = '0000214B'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS67 = '0000214C'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS68 = '0000214D'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS69 = '0000214E'X ! Reserv ed EWS itemsB PARAMETER RMI$_RESERVEDEWS70 = '0000214F'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS71 = '00002150'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS72 = '00002151'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS73 = '00002152'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS74 = '00002153'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS75 = '00002154'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS76 = '00002155'X ! Reserved EWS itemsB PARAMETER RMI$_ RESERVEDEWS77 = '00002156'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS78 = '00002157'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS79 = '00002158'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS80 = '00002159'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS81 = '0000215A'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS82 = '0000215B'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS83 = '0000215C'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS84 = '0000215D'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS85 = '0000215E'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS86 = '0000215F'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS87 = '00002160'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS88 = '00002161'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS89 = '00002162'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS90 = '00002163'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS91 = '00002164'X ! Reserved EWS itemsB PARAMET ER RMI$_RESERVEDEWS92 = '00002165'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS93 = '00002166'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS94 = '00002167'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS95 = '00002168'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS96 = '00002169'X ! Reserved EWS itemsB PARAMETER RMI$_RESERVEDEWS97 = '0000216A'X ! Reserved EWS itemsN PARAMETER RMI$_LASTEWS = '0000216B'X ! Last item in the exec writable table ! A ! Begin monitor sp ecific data items. The items listed below areH ! NOT collected by the RMI as individual items. Some are NOT collected' ! at all but are computed by MONITOR. ! Y PARAMETER RMI$_FIDHITPCNT = '0000316B'X ! percentage of file id cache hits/hits+missesa PARAMETER RMI$_FILHDR_HITPCNT = '0000316C'X ! percentage of file header cache hits/hits+missese PARAMETER RMI$_DIRFCB_HITPCNT = '0000316D'X ! percentage of directory block cache hits/hits+missese PARAMETER RMI$_DIRDATA_HITPCNT = '00003 16E'X ! percentage of directory data cache hits/hits+missesX PARAMETER RMI$_EXTHITPCNT = '0000316F'X ! percentage of extent cache hits/hits+missesW PARAMETER RMI$_QUOHITPCNT = '00003170'X ! percentage of quota cache hits/hits+missesd PARAMETER RMI$_STORAGMAP_HITPCNT = '00003171'X ! percentage of storage map cache hits/hits+misses? PARAMETER RMI$_OPCNT = '00003172'X ! disk io operation count? PARAMETER RMI$_IOQUELEN = '00003173'X ! disk io queue lengthI PARAMETER RMI$_IOAQUELEN =  '00003174'X ! Accurate disk io queue lengthC PARAMETER RMI$_DISKRESPTIM = '00003175'X ! disk io response timeT PARAMETER RMI$_JNLIOCNT = '00003176'X ! journaling io operation count (for disks)H PARAMETER RMI$_JDNQLEN = '00003177'X ! jdevice normal io queue lengthG PARAMETER RMI$_JDWQLEN = '00003178'X ! jdevice wait irp queue lengthG PARAMETER RMI$_JDFQLEN = '00003179'X ! jdevice force io queue length> PARAMETER RMI$_JDEXCNT = '0000317A'X ! jdevice extend count3 PARAMETER RMI$_ JNLWRTSS = '0000317B'X ! obsolete3 PARAMETER RMI$_JNLBUFWR = '0000317C'X ! obsoleteG PARAMETER RMI$_DGSENT = '0000317D'X ! SCS application datagrams sentK PARAMETER RMI$_DGRCVD = '0000317E'X ! SCS application datagrams receivedO PARAMETER RMI$_DGDISCARD = '0000317F'X ! SCS application datagrams discardedG PARAMETER RMI$_MSGSENT = '00003180'X ! SCS application messages sentK PARAMETER RMI$_MSGRCVD = '00003181'X ! SCS application messages receivedG PARAMETER RMI$_SNDATS = '00 003182'X ! SCS block send datas initiatedI PARAMETER RMI$_KBYTSENT = '00003183'X ! SCS kbytes sent via send datasK PARAMETER RMI$_REQDATS = '00003184'X ! SCS block request datas initiatedP PARAMETER RMI$_KBYTREQD = '00003185'X ! SCS kbytes received via request datasO PARAMETER RMI$_KBYTMAPD = '00003186'X ! SCS kbytes mapped for block transferU PARAMETER RMI$_QCR_CNT = '00003187'X ! SCS times connection queued for send credit\ PARAMETER RMI$_QBDT_CNT = '00003188'X ! SCS times c onnection queued for buffer descriptor; PARAMETER RMI$_DIRLOOK = '00003189'X ! directory lookups: PARAMETER RMI$_DIRINS = '0000318A'X ! directory inserts: PARAMETER RMI$_DIRDEL = '0000318B'X ! directory deletesA PARAMETER RMI$_PACKETS = '0000318C'X ! Ethernet packets/second6 PARAMETER RMI$_KBYTES = '0000318D'X ! Kbytes/secondA PARAMETER RMI$_PACKETSIZE = '0000318E'X ! Packets size (bytes)C PARAMETER RMI$_MPACKETS = '0000318F'X ! Multicast packets/secondA PARAMETER RMI$_MKBYTE S = '00003190'X ! Multicast Kbytes/secondK PARAMETER RMI$_MPACKETSIZE = '00003191'X ! Multicast packet size (bytes)O PARAMETER RMI$_SINGLECOLL = '00003192'X ! Transmit single collision detectedN PARAMETER RMI$_MULTICOLL = '00003193'X ! Transmit multi collisions detectedG PARAMETER RMI$_INITDEFER = '00003194'X ! Transmit initially deferredN PARAMETER RMI$_INTERNALBUFERR = '00003195'X ! Receive internal buffer errorF PARAMETER RMI$_LOCBUFERR = '00003196'X ! Receive local buffer e rrorG PARAMETER RMI$_BUFFUNAVAIL = '00003197'X ! System buffer unavailable7 PARAMETER RMI$_FILLER = '00003198'X ! Dummy pad itemA PARAMETER RMI$_RESERVEDMON1 = '00003199'X ! Reserved MON itemsA PARAMETER RMI$_RESERVEDMON2 = '0000319A'X ! Reserved MON itemsA PARAMETER RMI$_RESERVEDMON3 = '0000319B'X ! Reserved MON itemsA PARAMETER RMI$_RESERVEDMON4 = '0000319C'X ! Reserved MON itemsA PARAMETER RMI$_RESERVEDMON5 = '0000319D'X ! Reserved MON itemsA PARAMETER RMI$_RESERVEDMON6 = '0000319E'X ! Reserved MON itemsA PARAMETER RMI$_RESERVEDMON7 = '0000319F'X ! Reserved MON itemsA PARAMETER RMI$_RESERVEDMON8 = '000031A0'X ! Reserved MON itemsA PARAMETER RMI$_RESERVEDMON9 = '000031A1'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON10 = '000031A2'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON11 = '000031A3'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON12 = '000031A4'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON13 = '000031A5'X ! Reserved M ON itemsB PARAMETER RMI$_RESERVEDMON14 = '000031A6'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON15 = '000031A7'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON16 = '000031A8'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON17 = '000031A9'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON18 = '000031AA'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON19 = '000031AB'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON20 = '000031AC'X ! Reserved MON itemsB PARAMETER RMI$_RESE RVEDMON21 = '000031AD'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON22 = '000031AE'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON23 = '000031AF'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON24 = '000031B0'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON25 = '000031B1'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON26 = '000031B2'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON27 = '000031B3'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON28 = '000031B4'X ! Re served MON itemsB PARAMETER RMI$_RESERVEDMON29 = '000031B5'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON30 = '000031B6'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON31 = '000031B7'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON32 = '000031B8'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON33 = '000031B9'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON34 = '000031BA'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON35 = '000031BB'X ! Reserved MON itemsB PARAMETER R MI$_RESERVEDMON36 = '000031BC'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON37 = '000031BD'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON38 = '000031BE'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON39 = '000031BF'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON40 = '000031C0'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON41 = '000031C1'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON42 = '000031C2'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON43 = '000031C3' X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON44 = '000031C4'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON45 = '000031C5'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON46 = '000031C6'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON47 = '000031C7'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON48 = '000031C8'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON49 = '000031C9'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON50 = '000031CA'X ! Reserved MON itemsB PAR AMETER RMI$_RESERVEDMON51 = '000031CB'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON52 = '000031CC'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON53 = '000031CD'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON54 = '000031CE'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON55 = '000031CF'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON56 = '000031D0'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON57 = '000031D1'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON58 = '0 00031D2'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON59 = '000031D3'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON60 = '000031D4'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON61 = '000031D5'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON62 = '000031D6'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON63 = '000031D7'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON64 = '000031D8'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON65 = '000031D9'X ! Reserved MON ite msB PARAMETER RMI$_RESERVEDMON66 = '000031DA'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON67 = '000031DB'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON68 = '000031DC'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON69 = '000031DD'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON70 = '000031DE'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON71 = '000031DF'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON72 = '000031E0'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMO N73 = '000031E1'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON74 = '000031E2'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON75 = '000031E3'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON76 = '000031E4'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON77 = '000031E5'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON78 = '000031E6'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON79 = '000031E7'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON80 = '000031E8'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON81 = '000031E9'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON82 = '000031EA'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON83 = '000031EB'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON84 = '000031EC'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON85 = '000031ED'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON86 = '000031EE'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON87 = '000031EF'X ! Reserved MON itemsB PARAMETER RMI$_RE SERVEDMON88 = '000031F0'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON89 = '000031F1'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON90 = '000031F2'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON91 = '000031F3'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON92 = '000031F4'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON93 = '000031F5'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON94 = '000031F6'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON95 = '000031F7'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON96 = '000031F8'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON97 = '000031F9'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON98 = '000031FA'X ! Reserved MON itemsB PARAMETER RMI$_RESERVEDMON99 = '000031FB'X ! Reserved MON itemsC PARAMETER RMI$_RESERVEDMON100 = '000031FC'X ! Reserved MON itemsQ PARAMETER RMI$_LASTMON = '000031FD'X ! Last item in the monitor specific table ! M ! Begin items specific to the Monitor RMS class. The se items are maintainedP ! by RMS and collected from a global section with the following naming scheme:M ! _RMS$xxxxxxxxyyyyyy where x is the volume lock id and y is the fid of the ! file being monitored. ! O PARAMETER RMI$_RMS_STATS = '000041FD'X ! All of the following rms statisticsD PARAMETER RMI$_SEQGETS = '000041FE'X ! Total # of sequential gets? PARAMETER RMI$_KEYGETS = '000041FF'X ! Total # of keyed gets@ PARAMETER RMI$_RFAGETS = '00004200'X ! Total # of gets by RFAJ PARAMETER RMI$_GETBYTES = '00004201'X ! Total size in bytes of all GETSD PARAMETER RMI$_SEQPUTS = '00004202'X ! Total # of sequential puts@ PARAMETER RMI$_KEYPUTS = '00004203'X ! Total # of puts by keyG PARAMETER RMI$_PUTBYTES = '00004204'X ! Total # of bytes put to fileH PARAMETER RMI$_UPDATES = '00004205'X ! Total # of updates to the fileN PARAMETER RMI$_UPDATEBYTES = '00004206'X ! Total # of bytes updated in fileD PARAMETER RMI$_DELETES = '00004207'X ! Total # of deletes to fi leT PARAMETER RMI$_TRUNCATES = '00004208'X ! Total # of times file has been truncatedU PARAMETER RMI$_TRUNCBLKS = '00004209'X ! Total # of blocks file has been truncatedF PARAMETER RMI$_SEQFINDS = '0000420A'X ! Total # of sequential findsA PARAMETER RMI$_KEYFINDS = '0000420B'X ! Total # of keyed finds? PARAMETER RMI$_RFAFINDS = '0000420C'X ! Total # of RFA finds9 PARAMETER RMI$_READS = '0000420D'X ! Total # of $READSM PARAMETER RMI$_READBYTES = '0000420E'X ! Total # of bytes r ead from $READSA PARAMETER RMI$_CONNECTS = '0000420F'X ! Total connect requestsG PARAMETER RMI$_DISCONNECTS = '00004210'X ! Total disconnect requests7 PARAMETER RMI$_EXTENDS = '00004211'X ! Total extendsY PARAMETER RMI$_EXTBLOCKS = '00004212'X ! Total number of blocks file has been extendedH PARAMETER RMI$_FLUSHES = '00004213'X ! Total number of calls to flushI PARAMETER RMI$_REWINDS = '00004214'X ! Total number of calls to REWINDH PARAMETER RMI$_WRITES = '00004215'X ! Total number of calls to $WRITEM PARAMETER RMI$_WRITEBYTES = '00004216'X ! Total bytes written using $WRITEJ PARAMETER RMI$_FLCKENQS = '00004217'X ! Total number of file lock ENQ'sJ PARAMETER RMI$_FLCKDEQS = '00004218'X ! Total number of file lock DEQ'sP PARAMETER RMI$_FLCKCNVS = '00004219'X ! Total number of file lock conversionsS PARAMETER RMI$_LBLCKENQS = '0000421A'X ! Total number of local buffer lock ENQ'sS PARAMETER RMI$_LBLCKDEQS = '0000421B'X ! Total number of local buffer lock  DEQ'sY PARAMETER RMI$_LBLCKCNVS = '0000421C'X ! Total number of local buffer lock conversionsT PARAMETER RMI$_GBLCKENQS = '0000421D'X ! Total number of global buffer lock ENQ'sT PARAMETER RMI$_GBLCKDEQS = '0000421E'X ! Total number of global buffer lock DEQ'sZ PARAMETER RMI$_GBLCKCNVS = '0000421F'X ! Total number of global buffer lock conversionsU PARAMETER RMI$_GSLCKENQS = '00004220'X ! Total number of global section lock ENQ'sU PARAMETER RMI$_GSLCKDEQS = '00004221'X ! Total numb er of global section lock DEQ's[ PARAMETER RMI$_GSLCKCNVS = '00004222'X ! Total number of global section lock conversionsL PARAMETER RMI$_RLCKENQS = '00004223'X ! Total number of record lock ENQ'sL PARAMETER RMI$_RLCKDEQS = '00004224'X ! Total number of record lock DEQ'sR PARAMETER RMI$_RLCKCNVS = '00004225'X ! Total number of record lock conversionsN PARAMETER RMI$_APPLCKENQS = '00004226'X ! Total number of append lock ENQ'sN PARAMETER RMI$_APPLCKDEQS = '00004227'X ! Total number  of append lock DEQ'sT PARAMETER RMI$_APPLCKCNVS = '00004228'X ! Total number of append lock conversionsS PARAMETER RMI$_FLBLKASTS = '00004229'X ! Total number of file lock blocking ASTs\ PARAMETER RMI$_LBLBLKASTS = '0000422A'X ! Total number of local buffer lock blocking ASTs] PARAMETER RMI$_GBLBLKASTS = '0000422B'X ! Total number of global buffer lock blocking ASTs] PARAMETER RMI$_APPBLKASTS = '0000422C'X ! Total number of shared append lock blocking ASTsY PARAMETER RMI$_LCACHEHITS = '0000422D'X ! Total cache hits on buckets in local buffers^ PARAMETER RMI$_LCACHETRIES = '0000422E'X ! Total cache attempts on buckets in local buffersZ PARAMETER RMI$_GCACHEHITS = '0000422F'X ! Total cache hits on buckets in global buffers_ PARAMETER RMI$_GCACHETRIES = '00004230'X ! Total cache attempts on buckets in global buffersa PARAMETER RMI$_GBRDIRIOS = '00004231'X ! Total direct IO's causes by global buffer cache readsb PARAMETER RMI$_GBWDIRIOS = '00004232'X ! Total dire ct IO's causes by global buffer cache writes` PARAMETER RMI$_LBRDIRIOS = '00004233'X ! Total direct IO's causes by local buffer cache readsa PARAMETER RMI$_LBWDIRIOS = '00004234'X ! Total direct IO's causes by local buffer cache writes\ PARAMETER RMI$_BKTSPLT = '00004235'X ! Total number of 2 bucket splits done for this filea PARAMETER RMI$_MBKTSPLT = '00004236'X ! Total number of multi-bucket splits done for this fileU PARAMETER RMI$_RMSOPENS = '00004237'X ! Total number of times fil e has been openedS PARAMETER RMI$_CLOSES = '00004238'X ! Total number of times file has been closedH PARAMETER RMI$_GSBLKASTS = '00004239'X ! Global Section Blocking ASTSG PARAMETER RMI$_FLWAITS = '0000423A'X ! File lock ENQs forced to waitJ PARAMETER RMI$_LBWAITS = '0000423B'X ! Local buffer ENQs forced to waitK PARAMETER RMI$_GBWAITS = '0000423C'X ! Global buffer ENQs forced to waitL PARAMETER RMI$_GSWAITS = '0000423D'X ! Global section ENQs forced to waitI PARAMETER RMI$_RLWA ITS = '0000423E'X ! Record lock ENQs forced to waitI PARAMETER RMI$_APWAITS = '0000423F'X ! Append lock ENQs forced to waitD PARAMETER RMI$_TOTWAITS = '00004240'X ! Total ENQs forced to wait^ PARAMETER RMI$_OUTBUFQUO = '00004241'X ! Number of times a process runs out of buffer quotaY PARAMETER RMI$_RMSDEV1 = '00004242'X ! Reserved for RMS development private monitoringY PARAMETER RMI$_RMSDEV2 = '00004243'X ! Reserved for RMS development private monitoringY PARAMETER RMI$_RMSDEV3  = '00004244'X ! Reserved for RMS development private monitoringY PARAMETER RMI$_RMSDEV4 = '00004245'X ! Reserved for RMS development private monitoringY PARAMETER RMI$_RMSDEV5 = '00004246'X ! Reserved for RMS development private monitoringY PARAMETER RMI$_RMSDEV6 = '00004247'X ! Reserved for RMS development private monitoringY PARAMETER RMI$_RMSDEV7 = '00004248'X ! Reserved for RMS development private monitoringY PARAMETER RMI$_RMSDEV8 = '00004249'X ! Reserved for RMS development private monitoringY PARAMETER RMI$_RMSDEV9 = '0000424A'X ! Reserved for RMS development private monitoringZ PARAMETER RMI$_RMSDEV10 = '0000424B'X ! Reserved for RMS development private monitoringZ PARAMETER RMI$_RMSDEV11 = '0000424C'X ! Reserved for RMS development private monitoringZ PARAMETER RMI$_RMSDEV12 = '0000424D'X ! Reserved for RMS development private monitoringZ PARAMETER RMI$_RMSDEV13 = '0000424E'X ! Reserved for RMS development private monitoringZ PARAMETER RMI$_RMSDEV14 = '0000424F'X ! Reserved for RMS development private monitoringZ PARAMETER RMI$_RMSDEV15 = '00004250'X ! Reserved for RMS development private monitoringW PARAMETER RMI$_XQPQIOS = '00004251'X ! Number of XQP operations for this file by RMSL PARAMETER RMI$_LCACHEHITPCNT = '00004252'X ! Local RMS buffer hit percentM PARAMETER RMI$_GCACHEHITPCNT = '00004253'X ! Global RMS buffer hit percent? PARAMETER RMI$_TOTALGET = '00004254'X ! Total $GET call rate? PARAMETER RMI$_TOTALPUT = '0000 4255'X ! Total $PUT call rateA PARAMETER RMI$_TOTALFIND = '00004256'X ! Total $FIND call rate9 PARAMETER RMI$_BYTESGET = '00004257'X ! Bytes per $GET9 PARAMETER RMI$_BYTESPUT = '00004258'X ! Bytes per $PUT? PARAMETER RMI$_BYTESUPDATE = '00004259'X ! Bytes per $UPDATE; PARAMETER RMI$_BYTESREAD = '0000425A'X ! Bytes per $READ= PARAMETER RMI$_BYTESWRITE = '0000425B'X ! Bytes per $WRITED PARAMETER RMI$_BLOCKSTRUNCATE = '0000425C'X ! Bytes per $TRUNCATE@ PARAMETER RMI$_BLOCKS EXTEND = '0000425D'X ! Bytes per $EXTENDH PARAMETER RMI$_ACTIVE_STREAMS = '0000425E'X ! Active connects to file; PARAMETER RMI$_TOTAL_ENQS = '0000425F'X ! Total new ENQs7 PARAMETER RMI$_TOTAL_DEQS = '00004260'X ! Total DEQsB PARAMETER RMI$_TOTAL_CNVS = '00004261'X ! Total ENQ conversionsB PARAMETER RMI$_TOTAL_BLKAST = '00004262'X ! Total blocking ASTs6 PARAMETER RMI$_RMS_ORG = '00004263'X ! RMS File org^ PARAMETER RMI$_INTCOL_GBHSH = '00004264'X ! Interlock collision on global buffer hash tableX PARAMETER RMI$_INTCOL_GBH = '00004265'X ! Interlock Collision on global buffer headerY PARAMETER RMI$_INTRNDWN_GBHSH = '00004266'X ! Interlock still held at rundown on GBHSHU PARAMETER RMI$_INTRNDWN_GBH = '00004267'X ! Interlock still held at rundown on GBHA PARAMETER RMI$_RESERVEDRMS5 = '00004268'X ! Reserved RMS itemsA PARAMETER RMI$_RESERVEDRMS6 = '00004269'X ! Reserved RMS itemsA PARAMETER RMI$_RESERVEDRMS7 = '0000426A'X ! Reserved RMS itemsA PARAMETER R MI$_RESERVEDRMS8 = '0000426B'X ! Reserved RMS itemsA PARAMETER RMI$_RESERVEDRMS9 = '0000426C'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS10 = '0000426D'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS11 = '0000426E'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS12 = '0000426F'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS13 = '00004270'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS14 = '00004271'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS15 = '00004272' X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS16 = '00004273'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS17 = '00004274'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS18 = '00004275'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS19 = '00004276'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS20 = '00004277'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS21 = '00004278'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS22 = '00004279'X ! Reserved RMS itemsB PAR AMETER RMI$_RESERVEDRMS23 = '0000427A'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS24 = '0000427B'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS25 = '0000427C'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS26 = '0000427D'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS27 = '0000427E'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS28 = '0000427F'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS29 = '00004280'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS30 = '0 0004281'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS31 = '00004282'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS32 = '00004283'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS33 = '00004284'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS34 = '00004285'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS35 = '00004286'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS36 = '00004287'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS37 = '00004288'X ! Reserved RMS ite msB PARAMETER RMI$_RESERVEDRMS38 = '00004289'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS39 = '0000428A'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS40 = '0000428B'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS41 = '0000428C'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS42 = '0000428D'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS43 = '0000428E'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS44 = '0000428F'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRM S45 = '00004290'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS46 = '00004291'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS47 = '00004292'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS48 = '00004293'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS49 = '00004294'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS50 = '00004295'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS51 = '00004296'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS52 = '00004297'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS53 = '00004298'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS54 = '00004299'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS55 = '0000429A'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS56 = '0000429B'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS57 = '0000429C'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS58 = '0000429D'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS59 = '0000429E'X ! Reserved RMS itemsB PARAMETER RMI$_RE SERVEDRMS60 = '0000429F'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS61 = '000042A0'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS62 = '000042A1'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS63 = '000042A2'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS64 = '000042A3'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS65 = '000042A4'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS66 = '000042A5'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS67 = '000042A6'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS68 = '000042A7'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS69 = '000042A8'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS70 = '000042A9'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS71 = '000042AA'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS72 = '000042AB'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS73 = '000042AC'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS74 = '000042AD'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS75 = '000042AE'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS76 = '000042AF'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS77 = '000042B0'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS78 = '000042B1'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS79 = '000042B2'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS80 = '000042B3'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS81 = '000042B4'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS82 = '000042B 5'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS83 = '000042B6'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS84 = '000042B7'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS85 = '000042B8'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS86 = '000042B9'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS87 = '000042BA'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS88 = '000042BB'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS89 = '000042BC'X ! Reserved RMS itemsB P ARAMETER RMI$_RESERVEDRMS90 = '000042BD'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS91 = '000042BE'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS92 = '000042BF'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS93 = '000042C0'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS94 = '000042C1'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS95 = '000042C2'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS96 = '000042C3'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS97 =  '000042C4'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS98 = '000042C5'X ! Reserved RMS itemsB PARAMETER RMI$_RESERVEDRMS99 = '000042C6'X ! Reserved RMS itemsC PARAMETER RMI$_RESERVEDRMS100 = '000042C7'X ! Reserved RMS itemsQ PARAMETER RMI$_LASTRMS = '000042C8'X ! Last item in the monitor specific table" ! EX2TABLE : Extended EXE table E ! Define item identifier numbers. Each data item has an associatedG ! value which is used to find its entry in the EXETBL. The item table J ! is defined by the macros RMI_GENERATE_TABLE which makes multiple calls? ! to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. ! 6 PARAMETER RMI$_CPUID = '000052C8'X ! Primary cpu id@ PARAMETER RMI$_CPUCOMPAT = '000052C9'X ! time in compat. modeC PARAMETER RMI$_CPUINTSTK = '000052CA'X ! time on interrupt stackE PARAMETER RMI$_CPUMPSYNCH = '000052CB'X ! time spent in synch mode@ PARAMETER RMI$_CPUKERNEL = '000052CC'X ! time in kernel mode ; PARAMETER RMI$_CPUEXEC =  '000052CD'X ! time in exec modeB PARAMETER RMI$_CPUSUPER = '000052CE'X ! time in supervisor mode; PARAMETER RMI$_CPUUSER = '000052CF'X ! time in user mode3 PARAMETER RMI$_CPUIDLE = '000052D0'X ! idle timef PARAMETER RMI$_PROCCNTMAX = '000052D1'X ! Maximum number of concurrent processes seen by the systemZ PARAMETER RMI$_PROCBATCNT = '000052D2'X ! Total number of batch processes in the system` PARAMETER RMI$_PROCINTCNT = '000052D3'X ! Total number of interactive processes in the  system\ PARAMETER RMI$_PROCNETCNT = '000052D4'X ! Total number of network processes in the systemd PARAMETER RMI$_PROCSWITCHCNT = '000052D5'X ! Total count of switches from the then-currently execC ! Total count of switches from the then-currently executing p\ PARAMETER RMI$_PROCBALSETCNT = '000052D6'X ! Total number of processe in the balance set.] PARAMETER RMI$_PROCLOADCNT = '000052D7'X ! Total count of process context load operations.C PARAMETER RMI$_BADFLTS = '000052D8'X !  Number of bad_list faultsJ PARAMETER RMI$_EXEFAULTS = '000052D9'X ! Number of execute page faults.c PARAMETER RMI$_HDRINSWAPS = '000052DA'X ! Count of system wide process header inswap operations.e PARAMETER RMI$_HDROUTSWAPS = '000052DB'X ! Count of system wide process header outswap operations.d PARAMETER RMI$_IOPAGCNT = '000052DC'X ! Count of pages in transit to disk from the modified page C ! Count of pages in transit to disk from the modified page li^ PARAMETER RMI$_ISWPCNTP G = '000052DD'X ! Accumulated system wide count of pages in-swapped.f PARAMETER RMI$_OSWPCNT = '000052DE'X ! Accumulated system wide count of process owtswap operations.^ PARAMETER RMI$_OSWPCNTPG = '000052DF'X ! Accumulated system-wide count of pages out-swappedN PARAMETER RMI$_RDFAULTS = '000052E0'X ! Count of fault-on-read page faults._ PARAMETER RMI$_TRANSFLTS = '000052E1'X ! Accumulated system-wide count of transition faults.P PARAMETER RMI$_WRTFAULTS = '000052E2'X ! Count of fau lt-on-write page faults.^ PARAMETER RMI$_USERPAGES = '000052E3'X ! Number of pages available for use by applications.Y PARAMETER RMI$_VMSPAGES = '000052E4'X ! Number of pages actually allocated to OpenVMS.L PARAMETER RMI$_LOGNAMCRE = '000052E5'X ! Count of logical name creations.L PARAMETER RMI$_LOGNAMDEL = '000052E6'X ! Count of logical name deletions.\ PARAMETER RMI$_LOGNAMFAIL = '000052E7'X ! Count of logical name translations that failed.T PARAMETER RMI$_LOGNAMTBLCRE = '000052E8'X ! Count of logical name tables created.d PARAMETER RMI$_TTREADCNT = '000052E9'X ! Accumulated system wide count of characters read from teC ! Accumulated system wide count of characters read from termi` PARAMETER RMI$_TTREADS = '000052EA'X ! Accumulated system wide count of reads from terminals.d PARAMETER RMI$_TTWRITECNT = '000052EB'X ! Accumulated system wide count of characters written to C ! Accumulated system wide count of characters written to term` PARAMETER RMI$_TTWR ITES = '000052EC'X ! Accumulated system wide count of writes to terminals.f PARAMETER RMI$_BUFOBJPAG = '000052ED'X ! Count of buffer object physical pages currently allocated.d PARAMETER RMI$_BUFOBJPAGPEAK = '000052EE'X ! Maximum number of buffer object physical pages curreC ! Maximum number of buffer object physical pages currently ald PARAMETER RMI$_BUFOBJPAGS01 = '000052EF'X ! Number of buffer object pages currently allocated in C ! Number of buffer object pages currently al located in S0/S1 d PARAMETER RMI$_BUFOBJPAGS2 = '000052F0'X ! Max number of buffer object pages currently allocated C ! Max number of buffer object pages currently allocated in S2c PARAMETER RMI$_BUFOBJPAGMAXS01 = '000052F1'X ! Max number of buffer object pages in S0/S1 space.d PARAMETER RMI$_BUFOBJPAGMAXS2 = '000052F2'X ! Maximum number of buffer object physical pages in Sd PARAMETER RMI$_BUFOBJPAGPEAKS01 = '000052F3'X ! Max number of buffer object pages currently allocC !  Max number of buffer object pages currently allocated in S0d PARAMETER RMI$_BUFOBJPAGPEAKS2 = '000052F4'X ! Maximum number of buffer object physical pages curC ! Maximum number of buffer object physical pages currently ald PARAMETER RMI$_BUFOBJPGLTMAXS01 = '000052F5'X ! Number of available buffer object pagelets in S0/d PARAMETER RMI$_BUFOBJPGLTMAXS2 = '000052F6'X ! Number of available buffer object pagelets in S2 sa PARAMETER RMI$_DLCK_INCMPLT = '000052F7'X ! System-wide count of  incomplete deadlock searches.d PARAMETER RMI$_DLCKMSGS_IN = '000052F8'X ! System-wide count of incoming deadlock detection messad PARAMETER RMI$_DLCKMSGS_OUT = '000052F9'X ! System-wide count of of outgoing deadlock detection mC ! System-wide count of of outgoing deadlock detection messageC PARAMETER RMI$_TQETOTAL = '000052FA'X ! Count of timer requests.d PARAMETER RMI$_TQESYSUB = '000052FB'X ! Count of timer requests made by OpenVMS operating system.d PARAMETER RMI$_TQEUSRTIMR = '000052FC'X ! Count of timer requests made by application programs thC ! Count of timer requests made by application programs througd PARAMETER RMI$_TQEUSRWAKE = '000052FD'X ! Count of timer requests made by application programs thC ! Count of timer requests made by application programs througd PARAMETER RMI$_CWPSBYTESIN = '000052FE'X ! Count of Cluster-wide process services "CWPS" message C ! Count of Cluster-wide process services "CWPS" message bytes^ PARAMETER RMI$_CW PSBYTESOUT = '000052FF'X ! Count of CWPS message bytes sent by the system.c PARAMETER RMI$_CWPSJPISIN = '00005300'X ! Count of CWPS $GETJPI requests received by the system.` PARAMETER RMI$_CWPSJPISOUT = '00005301'X ! Count of CWPS $GETJPI requests sent by the system.[ PARAMETER RMI$_CWPSMSGSIN = '00005302'X ! Count of CWPS messages received by the system.X PARAMETER RMI$_CWPSMSGSOUT = '00005303'X ! Count of CWPS messages sent by the system.d PARAMETER RMI$_CWPSPCNTRLIN = '00005304'X  ! Count of CWPS PCNTRL requests received by the system.a PARAMETER RMI$_CWPSPCNTRLOUT = '00005305'X ! Count of CWPS PCNTRL requests sent by the system.d PARAMETER RMI$_CWPSRSRCIN = '00005306'X ! Count of CWPS resource-fail messages received by the syC ! Count of CWPS resource-fail messages received by the systemf PARAMETER RMI$_CWPSRSRCOUT = '00005307'X ! Count of CWPS resource-fail messages sent by the system.F PARAMETER RMI$_CHME = '00005308'X ! Count of $CMEXEC service calls.F PARAMETER RMI$_CHMK = '00005309'X ! Count of $CMKRNL service calls._ PARAMETER RMI$_MCHKERRS = '0000530A'X ! Count of machine checks since the system was booted.] PARAMETER RMI$_MEMERRS = '0000530B'X ! Count of memory errors since the system was booted.d PARAMETER RMI$_RESMASK = '0000530C'X ! A bit mask summarizing the system resources for which procC ! A bit mask summarizing the system resources for which proce> PARAMETER RMI$_CACHE_STATE = '0000530D'X ! Cache stats bitsZ PAR AMETER RMI$_CACHE_MEMORY = '0000530E'X ! Pages of memory currently held by the cached PARAMETER RMI$_CACHE_FREE = '0000530F'X ! Pages of memory held by the cache but not currently in ; PARAMETER RMI$_CACHE_READ_HITS = '00005310'X ! Read hitsS PARAMETER RMI$_CACHE_VIRT_READS = '00005311'X ! Virtual reads to cacheable filesU PARAMETER RMI$_CACHE_VIRT_WRITES = '00005312'X ! Virtual writes to cacheable filesT PARAMETER RMI$_CACHE_R_ARND_MOD = '00005313'X ! Read arounds due to modifier  bitsU PARAMETER RMI$_CACHE_R_ARND_SIZ = '00005314'X ! Read arounds due to size too largeU PARAMETER RMI$_CACHE_W_ARND_MOD = '00005315'X ! Write arounds due to modifier bitsV PARAMETER RMI$_CACHE_W_ARND_SIZ = '00005316'X ! Write arounds due to size too largeG PARAMETER RMI$_CACHE_LIMBO_LEN = '00005317'X ! Length of limbo queueL PARAMETER RMI$_CACHE_MIN_SIZE = '00005318'X ! Minimum cache size in PagesT PARAMETER RMI$_CACHE_MAX_SIZE = '00005319'X ! Current maximum cache size in Pages d PARAMETER RMI$_CACHE_MAX_LIMIT = '0000531A'X ! Maximum ever cache size in Pages (limited by boot-C ! Maximum ever cache size in Pages (limited by boot-time VA aL PARAMETER RMI$_CACHE_MAX_IO_SIZE = '0000531B'X ! Value of VCC_MAX_IO_SIZEH PARAMETER RMI$_CACHE_MAX_LOCKS = '0000531C'X ! Value of VCC_MAX_LOCKSH PARAMETER RMI$_CACHE_READAHEAD = '0000531D'X ! Value of VCC_READAHEADL PARAMETER RMI$_CACHE_WRITEBEHIND = '0000531E'X ! Value of VCC_WRITEBEHINDK PARAMETER RMI$_CACHE_WRITED ELAY = '0000531F'X ! Value of VCC_WRITE_DELAYX PARAMETER RMI$_CACHE_VOLS_FXFC_MODE = '00005320'X ! Count of volumes in Full XFC modeb PARAMETER RMI$_CACHE_VOLS_RXFC_MODE = '00005321'X ! Count of volumes in VIOC compatability modeX PARAMETER RMI$_CACHE_VOLS_NC_MODE = '00005322'X ! Count of volumes in No Caching modec PARAMETER RMI$_CACHE_VOLS_PNC_MODE = '00005323'X ! Count of volumes in Permanent No Caching modeG PARAMETER RMI$_CACHE_OPEN_FILES = '00005324'X ! Number of open files^ PARAMETER RMI$_CACHE_UNSYNCHED_IOS = '00005325'X ! Number of physical/logical unsynched IOsT PARAMETER RMI$_CACHE_DELAYED_WRITES = '00005326'X ! Number of write-behind writesR PARAMETER RMI$_CACHE_LOST_WRITES = '00005327'X ! Writes lost due to disk errorsZ PARAMETER RMI$_CACHE_FULL_BARRIERS = '00005328'X ! Number of full barriers in dep graph` PARAMETER RMI$_CACHE_PARTIAL_BARRIERS = '00005329'X ! Number of partial barriers in dep graph[ PARAMETER RMI$_CACHE_READS_AROUND = '0000532A'X  ! Total number of reads around the cache] PARAMETER RMI$_CACHE_WRITES_AROUND = '0000532B'X ! Total number of writes around the cache] PARAMETER RMI$_CACHE_CURRENT_LOCKS = '0000532C'X ! Number of locks currently held by cacheb PARAMETER RMI$_CACHE_BARRIER_COUNT = '0000532D'X ! Number of barrier calls made since boot-time_ PARAMETER RMI$_CACHE_SUPER_WRITES = '0000532E'X ! Number of writes that supersede dirty datad PARAMETER RMI$_CACHE_NON_PAGED_POOL = '0000532F'X ! Amount of non-pag ed pool cuurrently held by t_ PARAMETER RMI$_CACHE_EVERYTHING = '00005330'X ! Dummy item to collect everything about cacheU PARAMETER RMI$_GBP_CURMAP = '00005331'X ! Count of global pages currently mapped. ^ PARAMETER RMI$_GBP_CURMAP_GRP = '00005332'X ! Count of group global pages currently mapped.d PARAMETER RMI$_GBP_CURMAP_GRPWRT = '00005333'X ! Count of writable group global pages currently m_ PARAMETER RMI$_GBP_CURMAP_SYS = '00005334'X ! Count of system global pages currently mapp ed.d PARAMETER RMI$_GBP_CURMAP_SYSWRT = '00005335'X ! Count of writable system global pages currently ` PARAMETER RMI$_GBP_MAXMAP = '00005336'X ! Maximum count of global pages simultaneouly mapped.W PARAMETER RMI$_GBS_CURMAP = '00005337'X ! Count of global sections currently mapped.a PARAMETER RMI$_GBS_CURMAP_GRP = '00005338'X ! Count of group global sections currently mapped.d PARAMETER RMI$_GBS_CURMAP_GRPWRT = '00005339'X ! Count of writable group global sections currentlb PARAMET ER RMI$_GBS_CURMAP_SYS = '0000533A'X ! Count of system global sections currently mapped.d PARAMETER RMI$_GBS_CURMAP_SYSWRT = '0000533B'X ! Count of writable system global sections currentc PARAMETER RMI$_GBS_MAXMAP = '0000533C'X ! Maximum count of global sections simutaneously mapped.] PARAMETER RMI$_GBS_NOREF = '0000533D'X ! Count of global sections not mapped to a process.d PARAMETER RMI$_NP_POOL_ALLOC = '0000533E'X ! Accumulated count of non-paged pool allocation requed PARAMETER R MI$_NP_POOL_ALLOCF = '0000533F'X ! Count of unsuccessful non-paged pool allocation req_ PARAMETER RMI$_NP_POOL_EXP = '00005340'X ! Count of successful expansions on non-paged pool.d PARAMETER RMI$_NP_POOL_EXPF = '00005341'X ! Count of unsuccessful attempts to expand non-paged poX PARAMETER RMI$_PG_POOL_ALLOC = '00005342'X ! Count of paged pool allocation requests.f PARAMETER RMI$_PG_POOL_ALLOCF = '00005343'X ! Count of unsuccessful paged pool allocation requests.c PARAMETER RMI$_PG_POO L_EXPF = '00005344'X ! Count of unsuccessful attempts to expand paged pool.d PARAMETER RMI$_SMP_CURMAP = '00005345'X ! Count of global pages currently mapped for galaxy shareC ! Count of global pages currently mapped for galaxy shared med PARAMETER RMI$_SMP_CURMAP_GRP = '00005346'X ! Count of group global pages currently mapped for gaC ! Count of group global pages currently mapped for galaxy shad PARAMETER RMI$_SMP_CURMAP_GRPWRT = '00005347'X ! Count of writable group global pages currently mC ! Count of writable group global pages currently mapped for gd PARAMETER RMI$_SMP_CURMAP_SYS = '00005348'X ! Count of system global pages currently mapped for gC ! Count of system global pages currently mapped for galaxy shd PARAMETER RMI$_SMP_CURMAP_SYSWRT = '00005349'X ! Count of writable system global pages currently C ! Count of writable system global pages currently mapped for d PARAMETER RMI$_SMS_CURMAP = '0000534A'X ! Count of global sections cu rrently mapped for galaxy shC ! Count of global sections currently mapped for galaxy sharedd PARAMETER RMI$_SMS_CURMAP_GRP = '0000534B'X ! Count of group global sections currently mapped forC ! Count of group global sections currently mapped for galaxy d PARAMETER RMI$_SMS_CURMAP_GRPWRT = '0000534C'X ! Count of writable group global sections currentlC ! Count of writable group global sections currently mapped fod PARAMETER RMI$_SMS_CURMAP_SYS = '0000534D'X ! Count of syst em global sections currently mapped foC ! Count of system global sections currently mapped for galaxyd PARAMETER RMI$_SMS_CURMAP_SYSWRT = '0000534E'X ! Count of writable system global sections currentC ! Count of writable system global sections currently mapped fd PARAMETER RMI$_SMS_NOREF = '0000534F'X ! Current count of global sections for galaxy shared memorC ! Current count of global sections for galaxy shared memory wB PARAMETER RMI$_RESERVEDEXT1 = '00005350'X ! Reser ved EXE items A PARAMETER RMI$_RESERVEDEXT2 = '00005351'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXT3 = '00005352'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXT4 = '00005353'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXT5 = '00005354'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXT6 = '00005355'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXT7 = '00005356'X ! Reserved EXE itemsA PARAMETER RMI$_RESERVEDEXT8 = '00005357'X ! Reserved EXE itemsA PARAMETER RMI $_RESERVEDEXT9 = '00005358'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT10 = '00005359'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT11 = '0000535A'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT12 = '0000535B'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT13 = '0000535C'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT14 = '0000535D'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT15 = '0000535E'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT16 = '0000535F'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT17 = '00005360'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT18 = '00005361'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT19 = '00005362'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT20 = '00005363'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT21 = '00005364'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT22 = '00005365'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT23 = '00005366'X ! Reserved EXE itemsB PARAM ETER RMI$_RESERVEDEXT24 = '00005367'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT25 = '00005368'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT26 = '00005369'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT27 = '0000536A'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT28 = '0000536B'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT29 = '0000536C'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT30 = '0000536D'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT31 = '000 0536E'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT32 = '0000536F'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT33 = '00005370'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT34 = '00005371'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT35 = '00005372'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT36 = '00005373'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT37 = '00005374'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT38 = '00005375'X ! Reserved EXE items B PARAMETER RMI$_RESERVEDEXT39 = '00005376'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT40 = '00005377'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT41 = '00005378'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT42 = '00005379'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT43 = '0000537A'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT44 = '0000537B'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT45 = '0000537C'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT4 6 = '0000537D'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT47 = '0000537E'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT48 = '0000537F'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT49 = '00005380'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT50 = '00005381'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT51 = '00005382'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT52 = '00005383'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT53 = '00005384'X ! Reserved E XE itemsB PARAMETER RMI$_RESERVEDEXT54 = '00005385'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT55 = '00005386'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT56 = '00005387'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT57 = '00005388'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT58 = '00005389'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT59 = '0000538A'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT60 = '0000538B'X ! Reserved EXE itemsB PARAMETER RMI$_RESE RVEDEXT61 = '0000538C'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT62 = '0000538D'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT63 = '0000538E'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT64 = '0000538F'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT65 = '00005390'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT66 = '00005391'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT67 = '00005392'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT68 = '00005393'X ! Re served EXE itemsB PARAMETER RMI$_RESERVEDEXT69 = '00005394'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT70 = '00005395'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT71 = '00005396'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT72 = '00005397'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT73 = '00005398'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT74 = '00005399'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT75 = '0000539A'X ! Reserved EXE itemsB PARAMETER R MI$_RESERVEDEXT76 = '0000539B'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT77 = '0000539C'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT78 = '0000539D'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT79 = '0000539E'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT80 = '0000539F'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT81 = '000053A0'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT82 = '000053A1'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT83 = '000053A2' X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT84 = '000053A3'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT85 = '000053A4'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT86 = '000053A5'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT87 = '000053A6'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT88 = '000053A7'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT89 = '000053A8'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT90 = '000053A9'X ! Reserved EXE itemsB PAR AMETER RMI$_RESERVEDEXT91 = '000053AA'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT92 = '000053AB'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT93 = '000053AC'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT94 = '000053AD'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT95 = '000053AE'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT96 = '000053AF'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT97 = '000053B0'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT98 = '0 00053B1'X ! Reserved EXE itemsB PARAMETER RMI$_RESERVEDEXT99 = '000053B2'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT100 = '000053B3'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT101 = '000053B4'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT102 = '000053B5'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT103 = '000053B6'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT104 = '000053B7'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT105 = '000053B8'X ! Reser ved EXE itemsC PARAMETER RMI$_RESERVEDEXT106 = '000053B9'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT107 = '000053BA'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT108 = '000053BB'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT109 = '000053BC'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT110 = '000053BD'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT111 = '000053BE'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT112 = '000053BF'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT113 = '000053C0'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT114 = '000053C1'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT115 = '000053C2'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT116 = '000053C3'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT117 = '000053C4'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT118 = '000053C5'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT119 = '000053C6'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT120 = '000053C7'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT121 = '000053C8'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT122 = '000053C9'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT123 = '000053CA'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT124 = '000053CB'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT125 = '000053CC'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT126 = '000053CD'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT127 = '000053CE'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT128 = '000053CF'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT129 = '000053D0'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT130 = '000053D1'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT131 = '000053D2'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT132 = '000053D3'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT133 = '000053D4'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT134 = '000053D5'X !  Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT135 = '000053D6'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT136 = '000053D7'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT137 = '000053D8'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT138 = '000053D9'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT139 = '000053DA'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT140 = '000053DB'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT141 = '000053DC'X ! Reserved EXE it emsC PARAMETER RMI$_RESERVEDEXT142 = '000053DD'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT143 = '000053DE'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT144 = '000053DF'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT145 = '000053E0'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT146 = '000053E1'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT147 = '000053E2'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT148 = '000053E3'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT149 = '000053E4'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT150 = '000053E5'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT151 = '000053E6'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT152 = '000053E7'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT153 = '000053E8'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT154 = '000053E9'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT155 = '000053EA'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT156 = '000053EB'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT157 = '000053EC'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT158 = '000053ED'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT159 = '000053EE'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT160 = '000053EF'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT161 = '000053F0'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT162 = '000053F1'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT163 = '000053F2'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT164 = '000053F3'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT165 = '000053F4'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT166 = '000053F5'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT167 = '000053F6'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT168 = '000053F7'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT169 = '000053F8'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT170 = '000053F9'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT171 = '000053FA'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT172 = '000053FB'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT173 = '000053FC'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT174 = '000053FD'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT175 = '000053FE'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT176 = '000053FF'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT177 = '00005400'X ! Reserved EXE itemsC PAR AMETER RMI$_RESERVEDEXT178 = '00005401'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT179 = '00005402'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT180 = '00005403'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT181 = '00005404'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT182 = '00005405'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT183 = '00005406'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT184 = '00005407'X ! Reserved EXE itemsC PARAMETER RMI$_RESE RVEDEXT185 = '00005408'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT186 = '00005409'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT187 = '0000540A'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT188 = '0000540B'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT189 = '0000540C'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT190 = '0000540D'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT191 = '0000540E'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT192 = '00 00540F'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT193 = '00005410'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT194 = '00005411'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT195 = '00005412'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT196 = '00005413'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT197 = '00005414'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT198 = '00005415'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT199 = '00005416'X ! Res erved EXE itemsC PARAMETER RMI$_RESERVEDEXT200 = '00005417'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT201 = '00005418'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT202 = '00005419'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT203 = '0000541A'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT204 = '0000541B'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT205 = '0000541C'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT206 = '0000541D'X ! Reserved EXE items C PARAMETER RMI$_RESERVEDEXT207 = '0000541E'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT208 = '0000541F'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT209 = '00005420'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT210 = '00005421'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT211 = '00005422'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT212 = '00005423'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT213 = '00005424'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT214 = '00005425'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT215 = '00005426'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT216 = '00005427'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT217 = '00005428'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT218 = '00005429'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT219 = '0000542A'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT220 = '0000542B'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT221 = '0000542C'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT222 = '0000542D'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT223 = '0000542E'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT224 = '0000542F'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT225 = '00005430'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT226 = '00005431'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT227 = '00005432'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT228 = '00005433'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT229 = '00005434'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT230 = '00005435'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT231 = '00005436'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT232 = '00005437'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT233 = '00005438'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT234 = '00005439'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT235 = '0000543A'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT236 = '0000543B'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT237 = '0000543C'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT238 = '0000543D'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT239 = '0000543E'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT240 = '0000543F'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT241 = '00005440'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT242 = '00005441'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT243 = '00005442'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT244 = '00005443'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT245 = '00005444'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT246 = '00005445'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT247 = '00005446'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT248 = '00005447'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT249 = '00005448'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT250 = '00005449'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT251 = '0000544A'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT252 = '0000544B'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT253 = '0000544C'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT254 = '0000544D'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT255 = '0000544E'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT256 = '0000544F'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT257 = '00005450'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT258 = '00005451'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT259 = '00005452'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT260 = '00005453'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT261 = '00005454'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT262 = '00005455'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT263 = '00005456'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT264 = '00005457'X ! Reserve d EXE itemsC PARAMETER RMI$_RESERVEDEXT265 = '00005458'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT266 = '00005459'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT267 = '0000545A'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT268 = '0000545B'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT269 = '0000545C'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT270 = '0000545D'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT271 = '0000545E'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT272 = '0000545F'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT273 = '00005460'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT274 = '00005461'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT275 = '00005462'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT276 = '00005463'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT277 = '00005464'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT278 = '00005465'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT279 = '00005466'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT280 = '00005467'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT281 = '00005468'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT282 = '00005469'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT283 = '0000546A'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT284 = '0000546B'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT285 = '0000546C'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT286 = '0000546D'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT287 = '0000546E'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT288 = '0000546F'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT289 = '00005470'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT290 = '00005471'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT291 = '00005472'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT292 = '00005473'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT293 = '00005474'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT294 = '00005475'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT295 = '00005476'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT296 = '00005477'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT297 = '00005478'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT298 = '00005479'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT299 = '0000547A'X ! Reserved EXE itemsC PARAMETER RMI$_RESERVEDEXT300 = '0000547B'X ! Reserved EXE itemsN PARAMETER RMI$_LASTEX2 = '0000547C'X ! Last item in the exec writable table ! M ! Add new data items specific to MONITOR (not collected by the RMI on a per! ! item basis) above this point. ! ' PARAMETER RMI$_tablesize = '0000047C'X ! ' ! End of MONITOR specific data items. ! 7 STRUCTURE /rmi$scs_offsets/ ! SCS class information: INTEGER*4 RMI$q_scs_nodename(2) ! System node name? INTEGER*4 RMI$l_scs_dgsent ! Application datagrams sentC INTEGER*4 RMI$l_scs_dgrcvd ! Application datagrams receivedG INTEGER*4 RMI$l_scs_dgdiscard ! Application datagrams discarded? INTEGER*4 RMI$l_scs_msgsent ! Application messages sentC INTEGER*4 RMI$l_scs_msgrcvd ! Application messages received@ INTEGER*4 RMI$l_scs_snddats ! Block send datas initiatedA INTEGER*4 RMI$l_scs_kbytsent ! Kbytes sent via send datasC INTEGER*4 RMI$l_scs_reqdats ! Block request datas initiatedH INTEGER*4 RMI$l_scs_kbytreqd ! Kbytes received via request datasH INTEGER*4 RMI$l_scs_kbytmapd ! Kbytes mapped for block transfersM INTEGER*4 RMI$l_scs_qcr_cnt ! Times connection queued for send creditT INTEGER*4 RMI$l_scs_qbdt_cnt ! Times connection queued for buffer descriptor END STRUCTURE ! rmi$scs_offsetsY PARAMETER RMI$c_scs_minsize = '00000038'X ! Size of one collection block for scs class= STRUCTURE /rmi$disk_offsets/ ! DISK class information for ! current revision level9 INTEG ER*2 RMI$w_disk_alloclass ! Allocation class2 INTEGER*4 RMI$l_disk_devname ! Device name2 INTEGER*2 RMI$w_disk_unitnum ! Unit numberN BYTE RMI$b_disk_flags ! Flags byte (low bit indicates served disk2 INTEGER*4 RMI$q_disk_nodename(2) ! Nodename; INTEGER*4 RMI$q_disk_volnamel(2) ! Volume name (low): INTEGER*4 RMI$l_disk_volnameh ! Volume name (high)5 INTEGER*4 RMI$l_disk_optcnt ! Operation count> INTEGER*4 RMI$l_disk_qcount ! Queu e length accumulator! END STRUCTURE ! rmi$disk_offsetsA PARAMETER RMI$c_disk_minsize = '00000025'X ! Size of one block= STRUCTURE /rmi$disk_offsets_rev4/ ! DISK class information ! for "revision level 4"= BYTE RMI$b_disk_alloclass_rev4 ! Allocation class6 INTEGER*4 RMI$l_disk_devname_rev4 ! Device name6 INTEGER*2 RMI$w_disk_unitnum_rev4 ! Unit numberS BYTE RMI$b_disk_flags_rev4 ! Flags byte (low bit indicates served disk7 INTEGER*4 RMI$q_disk_ nodename_rev4(2) ! Nodename@ INTEGER*4 RMI$q_disk_volnamel_rev4(2) ! Volume name (low)> INTEGER*4 RMI$l_disk_volnameh_rev4 ! Volume name (high)9 INTEGER*4 RMI$l_disk_optcnt_rev4 ! Operation countB INTEGER*4 RMI$l_disk_qcount_rev4 ! Queue length accumulator& END STRUCTURE ! rmi$disk_offsets_rev4F PARAMETER RMI$c_disk_minsize_rev4 = '00000024'X ! Size of one block; STRUCTURE /rmi$proc_class/ ! PROCESSES Class Data Block0 INTEGER*4 RMI$l_proc_ipid ! Intern al PIDA INTEGER*4 RMI$l_proc_uic ! UIC (Member is low-order word)0 INTEGER*2 RMI$w_proc_state ! State value< BYTE RMI$b_proc_pri ! Priority (negative value)E INTEGER*4 RMI$o_proc_lname(4) ! Process name (counted string)7 INTEGER*4 RMI$l_proc_gpgcnt ! Global page count8 INTEGER*4 RMI$l_proc_ppgcnt ! Process page count4 INTEGER*4 RMI$l_proc_sts ! PCB Status Vector* ! (PCB$V_RES bit clear => swapped out)6 INTEGER*4 RMI$l_proc_diocnt ! ! Direct I/O count8 INTEGER*4 RMI$l_proc_pageflts ! Page fault countE INTEGER*4 RMI$l_proc_cputim ! Accumulated CPU time (in ticks)8 INTEGER*4 RMI$l_proc_biocnt ! Buffered I/O count0 INTEGER*4 RMI$l_proc_epid ! Extended PIDE INTEGER*4 RMI$l_proc_efwm ! Event flag wait mask (for MWAITs)D INTEGER*4 RMI$l_proc_rbstran ! Real balance slot transitions ! Size of process data block END STRUCTURE ! rmi$proc_class+ PARAMETER RMI$c_proc_minsize = '000"00043'X!DEC$ END OPTIONS wwoΦ!*** MODULE $RMSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:46.28 ! ' ! .TITLE RMSMSG -RMS COMPLETION CODESM ! *************************************************************************M ! * *M ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1976, 1977, 197#8, 1979, *M ! * 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, *M ! * 1991,1992-1999 *M ! * COMPAQ COMPUTER CORPORATION, 2000-2002 *M ! * HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., 2003-2005 *M ! * ALL RIGHTS RESERVED. *M ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *M ! * STATES$. *M ! * *M ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *M ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *M ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *M ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *M ! * DIGITAL EQUIPMENT CORPORATION. % *M ! * *M ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *M ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *M ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *M ! * *M ! ************************************************************&************* ! ++ ! FACILITY: RMS ! ! ABSTRACT: ! 1 ! THIS MODULE DEFINES ALL RMS COMPLETION CODES. !  ! ENVIRONMENT: ! B ! THE MESSAGE TRANSLATOR MUST BE USED TO CONVERT RMSMSG.MSG INTO@ ! RMSMSG.SDL. THE SDL TRANSLATOR MUST THEN BE USED TO CONVERT0 ! RMSMSG.SDL INTO RMSMSG.MAR (AND RMSMSG.B32). ! 9 ! AUTHOR: LEO F. LAVERDURE, CREATION DATE: 10-DEC-1976 !  ! MODIFIED BY: ! . ! X-17 EMW0362 ELINOR M. WOODS 02-MAY-20051 ! ADD 2 NEW FATAL STA 'TUSES RMS$_FOPEXTMBZ AND 6 ! RMS$_INVOP_SSIO (WITHOUT STV) FOR SSIO SUPPORT.  ! , ! X-16 SAD STUART A. DAVIDSON 5-OCT-20047 ! ADD RMS$_ELOOP FOR SYMBOLIC LINK SUPPORT. ELOOP IS= ! RETURNED IF MORE THAN A CERTAIN NUMBER OF SYMBOLIC LINKS+ ! ARE TRAVERSED IN A SINGLE FILE LOOKUP. ! . ! X-15 EMW0300 ELINOR M. WOODS 03-JAN-20039 ! KP THREADING CHANGE: ADD ONE NEW FATAL ERROR STATUS< ! (RSESTK_ALLOC) WITH AN ASSOCIATED STV THAT WILL CONTAIN= ! THE ACTUAL STATUS RET(URNED BY EXE$KP_ALLOC_RSE_STACK_P2. ! . ! X-14 EMW0196 ELINOR M. WOODS 08-SEP-19994 ! BKT-LOCK ENHANCEMENTS: ADD ONE NEW FATAL ERROR. ! STATUS (CRBUFOBJ) WITH AN ASSOCIATED STV. ! . ! X-13 EMW0195 ELINOR M. WOODS 25-AUG-19994 ! BKT-LOCK ENHANCEMENTS: ADD TWO NEW FATAL ERROR" ! STATUSES (BADGBD AND BADGBH). ! * ! X-12 WBF BURNS FISHER 18-SEP-1997< ! CHANGE NAMLESS AND NAMLRSS TO FATAL. ADD NAMLFSINV AND ! NAMLFSSIZ. ! + ! X-11 WBF BURNS FISHER 1)8-JULY-1997? ! INTEGRATE THE ONE HFS CHANGE INTO MAINSTREAM, AND ADD NAML ! MESSAGE ! . ! TAM0015 TERI A. MANSEAU 18-APR-19972 ! ADDED TWO NAML WARNING MESSAGES RMS$_NAMLESS ! AND RMS$NAMLRSS. ! 1 ! X-10 EMW0132 ELINOR M. WOODS 11-APR-19979 ! ADD NEW RMS-INTERNAL ERROR STATUS RMS$_EOFASY_SYNCH.3 ! FOR INTERNAL USE ONLY; NEVER RETURNED TO USER. ! 0 ! X-9 EMW0084 ELINOR M. WOODS 08-FEB-1996: ! PW INTEGRATION: REMOVE NEW ALTERNATE SUCCESS STA *TUS:+ ! RMS$_OK_URECEOF. ENDED UP NOT NEEDED. ! 6 ! X-8 WDBPI1 WALTER D. BLASCHUK, JR. 19-DEC-19956 ! PATHWORKS INTEGRATION: ADD NEW ALTERNATE SUCCESS ; ! STATUS: RMS$_OK_URECEOF . THIS SYMBOL SIGNIFIES THAT AN ; ! END-OF-FILE MARKER WAS ENCOUNTERED AND THERE WAS DATA ; ! IN THE BUFFER. THIS OCCURS WHEN THE LAST RECORD OF A 8 ! SEQUENTIAL STREAM FILE DOES NOT HAVE A TERMINATING < ! CHARACTER. THIS IS A SUC+CESS STATUS AND DOES NOT HAVE & ! A STV STATUS ASSOCIATED WITH IT.  !  ! 2 ! X-7 EMW ELINOR M. WOODS 10-AUG-1994( ! MERGE IN OPENVMS VAX DRAGON CHANGE: ! / ! X-13 EMW0023 ELINOR M. WOODS 04-AUG-19948 ! RMS$_KRF CAN BE RETURNED BY $CONNECT OR $REWIND, AS7 ! WELL AS $GET/$FIND. MAKE TEXT ASSOCIATED WITH KRF6 ! STATUS MORE GENERIC BY REMOVING "for $GET/$FIND." ! 3 ! X-6 EMW ELINOR M. WOODS 30-JUN-1994( ! MERGE IN OPENVMS VAX DRAGON CHANGE: , ! 1 ! X-12 EMW0026 ELINOR M. WOODS 15-JUN-1994. ! ADD ONE NEW USER-REPORTABLE STATUS: NXR 6 ! . THIS STATUS VALUE IS USED 7 ! AS AN STV ASSOCIATED WITH RNF STATUS (STS), AND IS7 ! REPORTED FOR AN EXACT KEY MATCH OF A SECONDARY KEY7 ! IF THE SECONDARY KEY ENTRY POINTS TO A NONEXISTENT9 ! PRIMARY DATA RECORD IN DISK FILE. NOTE: RNF ERROR 2 ! STATUS PRE-EXISTED AS ERROR CODE WITHOUT STV. ! E ! DEE RYAN - 30-SEP-19939 ! CORRECTED USE OF DIGITAL PRODUCT NAMES. ! ) ! X-5 EMW ELINOR M. WOODS 28-SEP-1993$ ! MERGE IN OPENVMS VAX CORAL FIX: ! 0 ! X-10 EMW0019 ELINOR M. WOODS 21-SEP-19936 ! ADD ONE NEW USER-REPORTABLE ERROR STATUS (WITH AN< ! ASSOCIATED STV): NETBTS. RELOCATE NEW IDXSEARCH STATUS? ! (SEE X-9) FROM "ERROR with STV" SECTION TO "ERROR WITHOUT 7 ! STV" section. Expand "WITH STV' AND "without STV"0 ! COMMENTS TO CLARIFY DIFFERENCE BE.TWEEN TWO. ! - ! X-4 EMW0016 ELINOR M. WOODS 10-AUG-1993 ! MERGE IN CORAL FIX: ! 7 ! MODIFY SEVERITY OF TWO DTF ERROR CODES (DTFACC AND9 ! DTFCRE) FROM FATAL TO ERROR, AS REQUESTED BY SNA/DTF ! FACILITY.  ! 7 ! ALSO MOVE NEW IDXSEARCH STATUS FROM ERROR WITH NO - ! STV GROUPING TO ERROR WITH STV GROUPING. ! - ! X-3 EMW0010 ELINOR M. WOODS 02-JUL-1993: ! TO SUPPORT NEW KEY-LESS-THAN FUNCTIONALITY, ADDITION 9 ! OF ONE USER-REPORTABLE ERROR STATUS: IDX/SEARCH, AND5 ! TWO NEW RMS-INTERNAL ERROR STATUSES: LSCAN AND  ! ROOTSRCH.  ! + ! X-2 CW0019 CHRIS WHITAKER 11-NOV-1992& ! MERGE IN OPENVMS VAX V6.0 CHANGES ! ( ! X-8 JM0012 JOHN MUNZER 11-NOV-1992 ! CHANGE TEXT FOR RMS$_LNE. ! ( ! X-7 JM0006 JOHN MUNZER 17-APR-19920 ! ADD !XL PARAMETER TO RMS$_BUG TO REPORT R2. ! * ! X-1 RAB RICHARD A. BISHOP 24-JUN-1991 ! MOVED TO [STARLET] FACILITY ! & ! ================================== ! OLD AUDIT TRAI 0L FOLLOWS: ! 2 ! X-33 LSS0154 LEONARD S. SZUBOWICZ 4-APR-1990; ! ALTER TEXT AND FAO PARAMETERS OF RMS$_RUH AND RMS$_BUG+ ! CONDITION VALUES FOR RMS/DDTM SUPPORT. ! * ! X-32 PJH PAUL J. HOULIHAN 17-JAN-19902 ! CHANGE TEXT FOR RMS$_INCOMPSHR ERROR MESSAGE. ! 2 ! X-31 LSS0130 LEONARD S. SZUBOWICZ 12-OCT-1989) ! MERGE OF RMS/DDTM GENERATION X-30D2.B ! ADD GENERAL DDTM_ERR ERROR MESSAGE FOR DDTM SERVICE FAILURES;A ! STV WILL CONTAIN THE FAILING SYSTEM SERVICE CONDITI1ON VALUE. ! 2 ! X-30 LSS0080 LEONARD S. SZUBOWICZ 06-OCT-1988@ ! ADD RMS$_OK_ACT MESSAGE FOR USE BY FUTURE WORK TO $DISPLAY.1 ! THIS IS PART OF LATENT SUPPORT FOR RMS/DDTM. ! . ! X-29 GJA0080 GARY J. ALLISON 06-JUN-1988& ! CHANGE TEXT OF SEMANTICS MESSAGE. ! . ! X-28 GJA0072 GARY J. ALLISON 02-MAR-1988> ! ADD EXT_ERR, OPNOTSUP, EXTNOTFOU, AND SEMANTICS MESSAGES. ! - ! X-27 PMV0072 PETER M. VATNE 08-OCT-1987- ! CHANGE RMS$_NOJNLLIC TO RMS$_JNLNOTAUTH. ! 23 ! X-26 LSS0057 LEONARD S. SZUBOWICZ 15-SEP-1987A ! CHANGE TEXT FOR THE RMS$_OK_DUP STATUS SUCH THAT THE MESSAGE+ ! IS APPLICABLE TO $GET AS WELL AS $PUT. ! - ! X-25 PMV0068 PETER M. VATNE 11-SEP-1987; ! ADD RMS$_NOJNLLIC, NO RMS JOURNALING LICENSE, FOR LMF. ! / ! X-24 RNM0026 RUSSELL N. MURRAY 15-AUG-1987; ! ADD RMS$_SYNCH MESSAGE FOR NOTIFICATION OF SYNCHRONOUS ! COMPLETION. ! . ! X-23 JEJ0479 JAMES E JOHNSON 13-AUG-1987 ! ADD RMS$_IVATRACE MESSAGE3. ! - ! X-22 PMV0061 PETER M. VATNE 03-AUG-1987D ! CHANGE RESERVED MESSAGE RMS$_BUG_XX5 TO RMS$_BUG_RU_COMMIT_FAIL@ ! TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_COMMIT_FAIL. ! 3 ! X-21 LSS0042 LEONARD S. SZUBOWICZ 13-MAY-1987C ! CHANGE RESERVED MESSAGE RMS$_BUG_XX4 TO RMS$_BUG_RU_ABORT_FAIL> ! TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_ABORT_FAIL ! 1 ! X-20 SAD0034 STUART A. DAVIDSON 12-MAR-1987 * ! DROP QUOTES FROM SNADTF MESSAGE TEXT. ! * ! X-19 P4JH PAUL J. HOULIHAN 19-JAN-1987 ! MERGE IN 17J1. ! - ! X-17J1 PJH PAUL J. HOULIHAN 15-JAN-1987% ! FIX SEVERAL SMALL JNL PROBLEMS.) ! ADD RMS$_BUG_FLUSH_JNL_FAILED CODE. ! / ! X-18 KPS0148 KENNETH P. SIEGEL 04-DEC-19869 ! ADDED SNPPF (STATISTICS MONITORING NOT SUPPORTED FOR, ! PROCESS PERMANENT FILES) ERROR MESSAGE. ! - ! X-17 PMV0025 PETER M. VATNE 24-NOV-19866 ! ADD NEW MESSAGE, RMS$_NOTSAMEJNL. THIS STATUS IS3 ! USED TO RESTRICT AI/BI WITH RU JOUR 5NALING TO A# ! SINGLE LONG-TERM JOURNAL FILE. ! * ! X-16 DAS DAVID A. SOLOMON 18-NOV-1986C ! ADD NEW MESSAGE, RMS$_DELJNS. REMOVE RMS$_XCR (BY REPLACING IT: ! WITH A PLACEHOLDER), AS JOURNALING BITS ARE NO LONGER@ ! SPECIFIED IN THE $XABJNL. SLIGHT WORDING CHANGE ON DETACHED ! RU RECOVERY ERROR MESSAGES. ! * ! X-15 DAS DAVID A. SOLOMON 12-NOV-19868 ! FIX ERROR IN X-5/X-6: JOURNALING VARIANT NOT MERGED@ ! CORRECTLY, RESULTING IN SEVERAL JOURNALING MESSAGES NUMBERS> 6 ! BEING DIFFERENT IN THE MAININE THAN WHAT THEY WERE ON THEA ! JOURNALING VARIANT. ALSO, MOVE NEW SNADTF MESSAGES TO RE-USE@ ! AVAILABLE UNUSED MESSAGE NUMBERS, INSTEAD OF GENERATING NEW@ ! ONES. FINALLY, CHANGE RMS$_BUG_ABORT TO RMS$_BUG_RU_ACTIVE. ! 0 ! X-14 SAD0014 STUART A. DAVIDSON 4-NOV-1986( ! SNADTF - FIX TYPO IN DTFACC, DTFCRE ! 0 ! X-13 SAD0014 STUART A. DAVIDSON 3-NOV-19862 ! SNADTF - FIX TYPO, ADD 2 ADDITIONAL MESSAGES. ! . ! X-12 JEJ0377 JAMES E JOHN7SON 29-OCT-19869 ! ADD NOEXTEND ERROR CODE TO FLAG FAILED RELATIVE FILE& ! EXTENDS DUE TO PREVIOUS FAILURES. ! / ! X-11 KPS0131 KENNETH P. SIEGEL 25-OCT-19867 ! ADDED SNS ERROR CODE FOR STATISTICS NOT SUPPORT ON ! NON-DISK DEVICES. ! / ! X-10 SAD009 STUART A. DAVIDSON 06-OCT-19864 ! ADD COMPLETION CODES FOR SNADTF (IBM DATA XFER) ! - ! X-9 GJA0003 GARY J. ALLISON 29-SEP-1986) ! ADD DETACHED RECOVERY ERROR MESSAGES ! , ! X-8 PMV0008 PETER M. VATNE 24-8SEP-19868 ! MODIFY RMS$_ACC_AIJ, RMS$_ACC_BIJ, AND RMS$_ACC_ATJ ! TO ALSO OUTPUT THE STV. ! ( ! X-7 JWT0243 JIM TEAGUE 2-SEP-1986& ! ADD NEW ERRORS FOR COLLATED KEYS. ! ) ! X-6 GJA GARY J. ALLISON 29-JUL-1986 ! REMOVE DUPS FROM JNL MERGE. ! ) ! X-5 GJA GARY J. ALLISON 29-JUL-1986# ! MERGE JOURNALING INTO MAINLINE ! , ! X-3J6 DAS DAVID A. SOLOMON 14-APR-1986A ! REMOVE RMS$_RUH_FILE (USING A GENERAL RUF MESSAGE INSTEAD).: ! CHANGE RMS$_RUH TEXT T9O NOT HAVE FAO PARAMETERS. ADD ! RMS$_BUG_RURECERR. ! 0 ! X-3J5 JEJ0302 JAMES E JOHNSON 4-APR-19861 ! ADD RMS$_RRF (ERROR DURING RU RECOVERY) ANDD ! RMS$_RUH/RMS$_RUH_FILE (USED TO FORM TEXT OF RU HANDLER ERRORS ! SENT TO OPCOM). ! 0 ! X-3J4 JEJ0272 JAMES E JOHNSON 11-FEB-1986) ! ADD RMS$_RUF, RMS$_BUG_ABORT CODES. ! 0 ! X-3J3 JEJ0237 JAMES E JOHNSON 16-DEC-1985 ! ADD RMS$_RUNDOWN CODE ! 0 ! X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985< ! : ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE! ! THE GENERIC ERRWRTJNL CODE. ! - ! X-4 JEJ0216 JAMES E JOHNSON 18-NOV-1985) ! MERGE X-3J2 INTO MAIN LINE FOR V4.4. ! 0 ! X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985< ! ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE! ! THE GENERIC ERRWRTJNL CODE. ! - ! X-3 JEJ0161 JAMES E JOHNSON 9-SEP-1985$ ! UPDATE RMS JOURNALING MESSAGES. ! ( ! X-2 JWT0212 JIM TEAGUE 4-SEP-19856 ! ADD (WHAT IS FO ;R NOW) AN INTERNAL STATUS CODE TO 9 ! DIFFERENTIATE BETWEEN FINDING A DELETED RECORD (DEL)< ! AND FINDING IT BUT WITH A DIFFERENT KEY (KEY_MISMATCH). ! . ! V03-024 RAS0314 RON SCHAEFER 21-JUN-1984? ! WORK OVER THE MESSAGES ONE MORE TIME: FIX TYPO IN OK_RNF,+ ! DELETE ACPEOF ERROR, DELETE WSF ERROR. ! . ! V03-023 RAS0282 RON SCHAEFER 28-MAR-1984+ ! MINOR TEXT CHANGES AND COMMENTS ADDED. ! DELETE RMS$_COP ERROR. ! / ! V03-022 DAS0005 DAVID SOLOMON 19-MAR-1<984: ! REMOVE RMS$_ECHO (NO LONGER NEEDED AS A RESULT OF NEW6 ! IMPLEMENTATION FOR ECHO SYS$INPUT -> SYS$OUTPUT). ! , ! V03-021 JWT0150 JIM TEAGUE 01-FEB-19847 ! ADD RMS$_IFF FOR TRYING TO WRITE-ACCESS A FILE ON 9 ! MAGTAPE THAT HAS NON-0 VALUE FOR ANSI BUFFER OFFSET. ! . ! V03-020 RAS0233 RON SCHAEFER 9-JAN-19848 ! ADD RMS$_NOVALPRS ERROR FOR $SEARCH NOT PRECEDED BY ! VALID $PARSE. ! , ! V03-019 JWT0148 JIM TEAGUE 20-DEC-19836 ! ADD A JNL XAB ERROR FOR C=ONFLICTING RU ATTRIBUTES ! ON $CREATE: RMS$_XCR. ! . ! V03-018 RAS0171 RON SCHAEFER 28-JUL-1983; ! ADD RMS$_BUSY; A STRUCTURE-LESS ERROR (R0-ONLY STATUS) ! REPLACING TEMP3. ! / ! V03-017 DAS0004 DAVID SOLOMON 28-JUN-19837 ! ADD RMS$_FILEPURGED; ADD RMS$_ACPEOF FOR ZALEWSKI. ! 2 ! V03-016 KPL0007 PETER LIEBERWIRTH 8-JUN-1983< ! FIX SPELLING IN JNL ERROR MESSAGES, ADD CJF ERROR WHICH# ! WILL SOON SUBSUME COP AND CQE. ! / ! V03-015 DAS0003 DAVID SOLOMON> 18-FEB-19835 ! ADD XNF (REPLACING TEMP9), TMR (NEW), LWC (NEW). ! 2 ! V03-014 KBT0497 KEITH B. THOMPSON 18-FEB-1983. ! ADD INCOMPSHR ERROR (REUSE OF TEMP1 SLOT) ! . ! V03-013 RAS0120 RON SCHAEFER 2-FEB-19838 ! ADD ECHO PSEUDO-STATUS TO SUPPORT ECHO OF SYS$INPUT ! TO SYS$OUTPUT. ! 0 ! V03-012 JWH0174 JEFFRY W. HORN 24-JAN-1983 ! ADD CQE AND COP ERRORS. ! 2 ! V03-011 KPL0006 PETER LIEBERWIRTH 7-JAN-1983+ ! ADD OK_RULK FOR RECOVERY UNIT SUPPORT. ! ?! ! ADD REENT ERROR FOR $RENAME. ! 1 ! V03-009 JWH0153 JEFFREY W. HORN 8-DEC-1982 ! ADD NRU ERROR. ! 1 ! V03-008 JWH0152 JEFFREY W. HORN 8-DEC-1982 ! ADD JNS ERROR. ! 2 ! V03-007 MCN0002 MARIA DEL C. NASR 15-NOV-19828 ! REPLACE ORD ERROR CODE ELIMINATED BY MCN0001, SINCE$ ! THE NETWORK CODE REFERENCES IT. ! 2 ! V03-006 MCN0001 MARIA DEL C. NASR 26-OCT-19829 ! PRINT KEY OF REFERENCE OR AREA IDENTIFICATION NUMBER6 ! INSTEAD OF XAB ADDRESS FOR ER@RORS RETURNED DURING9 ! INDEXED FILE CREATION. ALSO RENAME ALL UNUSED ERROR ! CODES TO TEMP. ! 1 ! V03-005 JWH0102 JEFFREY W. HORN 24-SEP-1982 ! ADD RUP ERROR. ! . ! V03-004 RAS0095 RON SCHAEFER 7-SEP-1982 ! ADD OVRDSKQUOTA ERROR. ! 1 ! V03-002 JWH0002 JEFFREY W. HORN 26-JUL-1982- ! CONVERT TO .MSG FORMAT. ADD RUM ERROR. ! 1 ! V03-001 JWH0001 JEFFREY W. HORN 20-JUL-1982" ! ADD JNF, JOP, AND NOJ ERRORS. ! 2 ! V02-042 KPL0005 PETER LIEBEARWIRTH 4-FEB-19826 ! ADD ERROR MESSAGES RMS$_EXENQLM AND RMS$_DEADLOCK ! CORRECTLY. ! , ! V02-041 CDS0001 C D SAETHER 24-JAN-1982 ! ADD GBC AND CRMP ERRORS. ! + ! V02-040 JAK0069 J A KRYCKA 15-JAN-1982) ! ADD SUPPORT AND NETFAIL ERROR CODES. ! + ! V02-039 JAK0068 J A KRYCKA 31-DEC-1981? ! MODIFY TEXT FOR SUP, NET, BUG_DAP, AND ENV ERROR MESSAGES. ! 0 ! V02-038 LJA0001 LAURIE ANDERSON 20-DEC-1981+ ! MODIFIED SOME MESSAGES TO READ BETTER. ! + ! V0B2-037 JAK0063 J A KRYCKA 31-AUG-1981 ! ADD CRE_STM SUCCESS CODE. ! 2 ! V02-036 KPL0004 PETER LIEBERWIRTH 13-JAN-1981A ! ADD ENQ SEVERE ERROR MESSAGE, TO INDICATE $ENQ/$DEQ FAILURE./ ! ALSO ADD SUCCESS CODES OK_RRL, AND OK_WAT. ! + ! V02-035 REFORMAT J A KRYCKA 30-JUL-1980 !  ! --& PARAMETER RMS$_FACILITY = '00000001'XB PARAMETER RMS$V_STVSTATUS = '0000000E'X ! MOVE TO BIT 14 OF THE ! STATUS CODE IT INDICATES! ! THAT STV CONTAINS A SECONDARY ! STATUS CODE.!C PARAMETER RMS$_SUC = '00010001'X$ PARAMETER RMS$_NORMAL = '00010001'X ! + !  ! SUCCESS CODES !  ! - ! BIT 16 = BIT 15 = 1# PARAMETER RMS$_STALL = '00018001'X) ! (NOTE: USER NEVER RECEIVES THIS CODE)% PARAMETER RMS$_PENDING = '00018009'X$ PARAMETER RMS$_OK_DUP = '00018011'X$ PARAMETER RMS$_OK_IDX = '00018019'X@ ! (RECORD HAS BEEN INSERTED, BUT INDEX STRUCTURE IS NO LONGER ! OPTIMAL.)$ PARAMETER RMS$_OK_RLK = '00018021'XA ! (BECAUSE LOCKER SET RLK IN ROP FIELD WHE DN RECORD WAS LOCKED.)$ PARAMETER RMS$_OK_RRL = '00018029'X@ ! (BECAUSE READER SET RRL IN ROP FIELD WHEN ACCESSING RECORD.)! ! (THIS CODE USED TO BE OK_RRV)< ! OK_RRV ;MSG B ! (BUT IT MAY NOT BE ACCESSIBLE VIA ONE-OR-MORE SECONDARY KEYS,B ! AND NOT BY RFA ADDRESSING. FILE RE-ORGANIZATION RECOMMENDED!)! PARAMETER RMS$_KFF = '00018031'X$ PARAMETER RMS$_OK_ALK = '00018039'X$ PARAMETER RMS$_OK_DEL = '00018041'X$ PARAMETER RMS$_OK_RNF = '000180E49'X$ PARAMETER RMS$_OK_LIM = '00018051'X$ PARAMETER RMS$_OK_NOP = '00018059'X$ PARAMETER RMS$_OK_WAT = '00018061'X: ! (BECAUSE WAT BIT IN ROP WAS SET AND RECORD WAS ALREADY ! LOCKED.)% PARAMETER RMS$_CRE_STM = '00018069'X% PARAMETER RMS$_OK_RULK = '00018071'X# PARAMETER RMS$_SYNCH = '00018079'X$ PARAMETER RMS$_OK_ACT = '00018081'X) PARAMETER RMS$_OK_NOCURTID = '00018089'X ! + ! ? ! SUCCESS CODES PASSED THRU FROM DRIVERS AND ACP - BIT 15 = 0 !  ! -M PARAMETER RMS$_CONTRO FLC = '00010651'X ! TERMINAL I/O ABORTED DUE TO CTRL/C& PARAMETER RMS$_CONTROLO = '00010609'X& ! TERMINAL I/O ABORTED DUE TO CTRL/O& PARAMETER RMS$_CONTROLY = '00010611'X& ! TERMINAL I/O ABORTED DUE TO CTRL/Y% PARAMETER RMS$_CREATED = '00010619'X ! FILE WAS CREATED, NOT OPENED' PARAMETER RMS$_SUPERSEDE = '00010631'X, ! CREATED FILE SUPERSEDED EXISTING VERSION) PARAMETER RMS$_OVRDSKQUOTA = '00010669'X! ! DISK USAGE EXCEEDS DISK QUOTA( PARAMETER RMS$_FILEPURGED = '00010679'X" ! GCREATE FILE CAUSED OLDEST FILE ! VERSION TO BE PURGED ! + !  ! WARNING CODES !  ! -# ! BIT 16 = BIT 15 = 1, BIT 14 = 0! PARAMETER RMS$_BOF = '00018198'X! PARAMETER RMS$_RNL = '000181A0'X! PARAMETER RMS$_RTB = '000181A8'X! PARAMETER RMS$_TMO = '000181B0'X! PARAMETER RMS$_TNS = '000181B8'X! PARAMETER RMS$_BES = '000181C0'X! PARAMETER RMS$_PES = '000181C8'X ! + ! I ! ERROR CODES - WITHOUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED$ ! CONDITION CODE HIS IN STV) !  ! -# ! BIT 16 = BIT 15 = 1, BIT 14 = 0! PARAMETER RMS$_ACT = '0001825A'X! PARAMETER RMS$_DEL = '00018262'X' PARAMETER RMS$_INCOMPSHR = '0001826A'X! PARAMETER RMS$_DNR = '00018272'X! PARAMETER RMS$_EOF = '0001827A'X! PARAMETER RMS$_FEX = '00018282'X! PARAMETER RMS$_FLK = '0001828A'X! PARAMETER RMS$_FNF = '00018292'X! PARAMETER RMS$_PRV = '0001829A'X! PARAMETER RMS$_REX = '000182A2'X! PARAMETER RMS$_RLK = '000182AA'X! PARAMETER RMS$_RNF = '000182B2'X5 ! ( IRECORD NEVER WAS IN FILE, OR HAS BEEN DELETED.)! PARAMETER RMS$_WLK = '000182BA'X! PARAMETER RMS$_EXP = '000182C2'X! PARAMETER RMS$_NMF = '000182CA'X! PARAMETER RMS$_SUP = '000182D2'X> ! (NOTE THAT SUPPORT HAS REPLACED SUP EXCEPT WHEN RMS CANNOT4 ! MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)< ! (NOTE ALSO THAT SUP SHOULD HAVE BEEN DEFINED AS A SEVERE9 ! ERROR CODE. HOWEVER, SUPPORT IS A SEVERE ERROR CODE.)! PARAMETER RMS$_RSA = '000182DA'X! PARAMETER RMS$_CRC = '000182E2'X!J PARAMETER RMS$_WCC = '000182EA'X! PARAMETER RMS$_IDR = '000182F2'X! PARAMETER RMS$_LWC = '000182FA'X% PARAMETER RMS$_UNUSED1 = '00018302'X& PARAMETER RMS$_NOVALPRS = '0001830A'X* PARAMETER RMS$_KEY_MISMATCH = '00018312'X! PARAMETER RMS$_RUH = '0001831A'X! PARAMETER RMS$_JND = '00018322'X& PARAMETER RMS$_BADPHASE = '0001832A'X# PARAMETER RMS$_TOWDR = '00018332'X# PARAMETER RMS$_NEXDR = '0001833A'X& PARAMETER RMS$_INVDRMSG = '00018342'X' PARAMETER RMS$_RU_ACTIVE = '0001834A'X& PAR KAMETER RMS$_UNKRUFAC = '00018352'X# PARAMETER RMS$_LIMBO = '0001835A'X& PARAMETER RMS$_IVATRACE = '00018362'X& PARAMETER RMS$_OPNOTSUP = '0001836A'X' PARAMETER RMS$_EXTNOTFOU = '00018372'X% PARAMETER RMS$_EXT_ERR = '0001837A'X' PARAMETER RMS$_SEMANTICS = '00018382'X# PARAMETER RMS$_LSCAN = '0001838A'X& PARAMETER RMS$_ROOTSRCH = '00018392'X' PARAMETER RMS$_IDXSEARCH = '0001839A'X$ PARAMETER RMS$_NETBTS = '000183A2'X! PARAMETER RMS$_NXR = '000183AA'X9 ! IF EXACT KEY MATCH ON SECONDARLY KEY AND SECONDARY KEY6 ! ENTRY POINTS TO NONEXISTENT PRIMARY DATA RECORD IN ! DISK FILE.* PARAMETER RMS$_EOFASY_SYNCH = '000183B2'X# PARAMETER RMS$_ELOOP = '000183BA'X ! + ! Z ! ERROR CODES - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) !  ! - ! BIT 16 = BIT 15 = BIT 14 = 1! PARAMETER RMS$_ACC = '0001C002'X! PARAMETER RMS$_CRE = '0001C00A'X! PARAMETER RMS$_DAC = '0001C012'X! PARAMETER RMS$_ENT = '0001C01A'X! PARAMETER RMS$_EXT = '0001C022'MX! PARAMETER RMS$_FND = '0001C02A'X! PARAMETER RMS$_MKD = '0001C032'X! PARAMETER RMS$_DPE = '0001C03A'X! PARAMETER RMS$_SPL = '0001C042'X! PARAMETER RMS$_DNF = '0001C04A'X! PARAMETER RMS$_RUF = '0001C052'X( PARAMETER RMS$_WRTJNL_AIJ = '0001C05A'X( PARAMETER RMS$_WRTJNL_BIJ = '0001C062'X( PARAMETER RMS$_WRTJNL_ATJ = '0001C06A'X( PARAMETER RMS$_WRTJNL_RUJ = '0001C072'X! PARAMETER RMS$_RRF = '0001C07A'X& PARAMETER RMS$_DDTM_ERR = '0001C082'X ! + ! P ! SEVERE ERROR CODES - WITHONUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED$ ! CONDITION CODE IS IN STV) !  ! -# ! BIT 16 = BIT 15 = 1, BIT 14 = 0' PARAMETER RMS$_DTFCDDREC = '000183EC'X! PARAMETER RMS$_AID = '000183F4'X! PARAMETER RMS$_ALN = '000183FC'X! PARAMETER RMS$_ALQ = '00018404'X! PARAMETER RMS$_ANI = '0001840C'X! PARAMETER RMS$_AOP = '00018414'X! PARAMETER RMS$_BKS = '0001841C'X! PARAMETER RMS$_BKZ = '00018424'X! PARAMETER RMS$_BLN = '0001842C'X! PARAMETER RMS$_BUG = '00018434'X% O PARAMETER RMS$_BUG_DDI = '0001843C'X% PARAMETER RMS$_BUG_DAP = '00018444'X+ PARAMETER RMS$_BUG_RU_ACTIVE = '0001844C'X* PARAMETER RMS$_BUG_RURECERR = '00018454'X2 PARAMETER RMS$_BUG_FLUSH_JNL_FAILED = '0001845C'X/ PARAMETER RMS$_BUG_RU_ABORT_FAIL = '00018464'X0 PARAMETER RMS$_BUG_RU_COMMIT_FAIL = '0001846C'X% PARAMETER RMS$_BUG_XX6 = '00018474'X% PARAMETER RMS$_BUG_XX7 = '0001847C'X% PARAMETER RMS$_BUG_XX8 = '00018484'X" PARAMETER RMS$_BUSY = '0001848C'X! PARAMETER RMS$_CCR = '00018P494'X! PARAMETER RMS$_CHG = '0001849C'X! PARAMETER RMS$_CHK = '000184A4'X! PARAMETER RMS$_COD = '000184AC'X! PARAMETER RMS$_CUR = '000184B4'X! PARAMETER RMS$_DAN = '000184BC'X! PARAMETER RMS$_DEV = '000184C4'X! PARAMETER RMS$_DIR = '000184CC'X! PARAMETER RMS$_DME = '000184D4'X! PARAMETER RMS$_DNA = '000184DC'X! PARAMETER RMS$_DTP = '000184E4'X! PARAMETER RMS$_DUP = '000184EC'X! PARAMETER RMS$_DVI = '000184F4'X! PARAMETER RMS$_ESA = '000184FC'X! PARAMETER RMS$_ESS = '0001850Q4'X! PARAMETER RMS$_FAB = '0001850C'X! PARAMETER RMS$_FAC = '00018514'X! PARAMETER RMS$_FLG = '0001851C'X! PARAMETER RMS$_FNA = '00018524'X! PARAMETER RMS$_FNM = '0001852C'X! PARAMETER RMS$_FSZ = '00018534'X! PARAMETER RMS$_FOP = '0001853C'X! PARAMETER RMS$_FUL = '00018544'X! PARAMETER RMS$_IAL = '0001854C'X! PARAMETER RMS$_IAN = '00018554'X! PARAMETER RMS$_IDX = '0001855C'X! PARAMETER RMS$_IFI = '00018564'X! PARAMETER RMS$_IMX = '0001856C'X! PARAMETER RMS$_IOP = '00018574'RX! PARAMETER RMS$_IRC = '0001857C'X! PARAMETER RMS$_ISI = '00018584'X! PARAMETER RMS$_KBF = '0001858C'X! PARAMETER RMS$_KEY = '00018594'X! PARAMETER RMS$_KRF = '0001859C'X! PARAMETER RMS$_KSZ = '000185A4'X! PARAMETER RMS$_LAN = '000185AC'X% PARAMETER RMS$_RUNDOWN = '000185B4'X! PARAMETER RMS$_LNE = '000185BC'X$ PARAMETER RMS$_DTFCVT = '000185C4'X! PARAMETER RMS$_MRN = '000185CC'X! PARAMETER RMS$_MRS = '000185D4'X! PARAMETER RMS$_NAM = '000185DC'X! PARAMETER RMS$_NEF = '00018S5E4'X' PARAMETER RMS$_DTFQUASYN = '000185EC'X! PARAMETER RMS$_NOD = '000185F4'X! PARAMETER RMS$_NPK = '000185FC'X8 PARAMETER RMS$_ORD = '00018604'X ! ! NOT USED AS OF V4! PARAMETER RMS$_ORG = '0001860C'X! PARAMETER RMS$_PBF = '00018614'X! PARAMETER RMS$_PLG = '0001861C'X! PARAMETER RMS$_POS = '00018624'X' PARAMETER RMS$_DTFQUAVAL = '0001862C'X! PARAMETER RMS$_QUO = '00018634'X! PARAMETER RMS$_RAB = '0001863C'X! PARAMETER RMS$_RAC = '00018644'X! PARAMETER RMS$_RAT = '0001864C'TX! PARAMETER RMS$_RBF = '00018654'X! PARAMETER RMS$_RFA = '0001865C'X! PARAMETER RMS$_RFM = '00018664'X! PARAMETER RMS$_RHB = '0001866C'X! PARAMETER RMS$_RLF = '00018674'X! PARAMETER RMS$_ROP = '0001867C'X! PARAMETER RMS$_RRV = '00018684'X! PARAMETER RMS$_RVU = '0001868C'X! PARAMETER RMS$_RSS = '00018694'X! PARAMETER RMS$_RST = '0001869C'X! PARAMETER RMS$_RSZ = '000186A4'X! PARAMETER RMS$_SEQ = '000186AC'X! PARAMETER RMS$_SHR = '000186B4'X! PARAMETER RMS$_SIZ = '000186BC'XU! PARAMETER RMS$_SQO = '000186C4'X' PARAMETER RMS$_DTFSESEST = '000186CC'X! PARAMETER RMS$_SYN = '000186D4'X! PARAMETER RMS$_TRE = '000186DC'X! PARAMETER RMS$_TYP = '000186E4'X! PARAMETER RMS$_UBF = '000186EC'X! PARAMETER RMS$_USZ = '000186F4'X! PARAMETER RMS$_VER = '000186FC'X! PARAMETER RMS$_XNF = '00018704'X! PARAMETER RMS$_XAB = '0001870C'X! PARAMETER RMS$_ESL = '00018714'X' PARAMETER RMS$_DTFSESTER = '0001871C'X! PARAMETER RMS$_ENV = '00018724'X! PARAMETER RMS$_PLV = '0 V001872C'X! PARAMETER RMS$_MBC = '00018734'X! PARAMETER RMS$_RSL = '0001873C'X! PARAMETER RMS$_WLD = '00018744'X` PARAMETER RMS$_NET = '0001874C'X ! (NOTE THAT NETFAIL HAS REPLACED NET EXCEPT WHEN RMS CANNOT4 ! MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)! PARAMETER RMS$_IBF = '00018754'X! PARAMETER RMS$_REF = '0001875C'X! PARAMETER RMS$_IFL = '00018764'X! PARAMETER RMS$_DFL = '0001876C'X! PARAMETER RMS$_KNM = '00018774'X! PARAMETER RMS$_IBK = '0001877C'X! PARAMETER RMS$_KSWI = '00018784'X! PARAMETER RMS$_LEX = '0001878C'X! PARAMETER RMS$_SEG = '00018794'X8 PARAMETER RMS$_SNE = '0001879C'X ! ! NOT USED AS OF V48 PARAMETER RMS$_SPE = '000187A4'X ! ! NOT USED AS OF V4! PARAMETER RMS$_UPI = '000187AC'X! PARAMETER RMS$_ACS = '000187B4'X! PARAMETER RMS$_STR = '000187BC'X! PARAMETER RMS$_FTM = '000187C4'X! PARAMETER RMS$_GBC = '000187CC'X& PARAMETER RMS$_DEADLOCK = '000187D4'X% PARAMETER RMS$_EXENQLM = '000187DC'X! PARAMETER RMS$_JOP = '000187E4'X! PARXAMETER RMS$_RUM = '000187EC'X! PARAMETER RMS$_JNS = '000187F4'X! PARAMETER RMS$_NRU = '000187FC'X! PARAMETER RMS$_IFF = '00018804'X' PARAMETER RMS$_DTFTRATBL = '0001880C'X' PARAMETER RMS$_DTFUNSTYP = '00018814'X' PARAMETER RMS$_DTFVERMIS = '0001881C'X ! + !  ! ERROR CODES - WITHOUT STV ! H ! DTFACC AND DTFCRE WERE ORIGINALLY INCLUDED IN THIS FATAL SEVERITY E ! (NO STV) GROUPING. IN ORDER TO CHANGE THEIR SEVERITY TO ERROR E ! (NO STV) AND RETAIN THE SAME MESSAGE CYODE VALUE, THE FOLLOWING D ! SHIFTS IN SEVERITY FROM FATAL TO ERROR AND THEN BACK AGAIN AREH ! DONE, WHILE RETAINING THE SAME ORIGINAL BASE ASSOCIATED WITH EACH. !  ! -# ! BIT 16 = BIT 15 = 1, BIT 14 = 0$ PARAMETER RMS$_DTFACC = '00018822'X ! + ! $ ! SEVERE ERROR CODES - WITHOUT STV !  ! -# ! BIT 16 = BIT 15 = 1, BIT 14 = 0& PARAMETER RMS$_BOGUSCOL = '0001882C'X( PARAMETER RMS$_ERRREADCOL = '00018834'X) PARAMETER RMS$_ERRWRITECOL = '0001883C'X! PARAMETER RMS$_SNS Z= '00018844'X+ PARAMETER RMS$_NOEXTEND = '0001884C'X ! + !  ! ERROR CODES - WITHOUT STV !  ! -# ! BIT 16 = BIT 15 = 1, BIT 14 = 0$ PARAMETER RMS$_DTFCRE = '00018852'X ! + ! $ ! SEVERE ERROR CODES - WITHOUT STV !  ! -# ! BIT 16 = BIT 15 = 1, BIT 14 = 0$ PARAMETER RMS$_DELJNS = '0001885C'X( PARAMETER RMS$_NOTSAMEJNL = '00018864'X# PARAMETER RMS$_SNPPF = '0001886C'X" PARAMETER RMS$_NAML = '00018874'X% PARAMETER RMS$_NAMLESS = '0001887C'X% PARAMETER RMS$_NAMLRSS [= '00018884'X' PARAMETER RMS$_NAMLFSSIZ = '0001888C'X' PARAMETER RMS$_NAMLFSINV = '00018894'X$ PARAMETER RMS$_BADGBH = '0001889C'X$ PARAMETER RMS$_BADGBD = '000188A4'X' PARAMETER RMS$_FOPEXTMBZ = '000188AC'X( PARAMETER RMS$_INVOP_SSIO = '000188B4'X ! + ! \ ! SEVERE ERRORS - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) !  ! - ! BIT 16 = BIT 15 = BIT 14 = 1! PARAMETER RMS$_ATR = '0001C0CC'X! PARAMETER RMS$_ATW = '0001C0D4'X! PARAMETER RMS$_CCF = \'0001C0DC'X! PARAMETER RMS$_CDA = '0001C0E4'X! PARAMETER RMS$_CHN = '0001C0EC'X! PARAMETER RMS$_RER = '0001C0F4'X! PARAMETER RMS$_RMV = '0001C0FC'X! PARAMETER RMS$_RPL = '0001C104'X! PARAMETER RMS$_SYS = '0001C10C'X! PARAMETER RMS$_WER = '0001C114'X! PARAMETER RMS$_WPL = '0001C11C'X! PARAMETER RMS$_IFA = '0001C124'X! PARAMETER RMS$_WBE = '0001C12C'X! PARAMETER RMS$_ENQ = '0001C134'X% PARAMETER RMS$_NETFAIL = '0001C13C'X% PARAMETER RMS$_SUPPORT = '0001C144'X" PARAMETER RMS$_]CRMP = '0001C14C'X' PARAMETER RMS$_DTFCFGFIL = '0001C154'X# PARAMETER RMS$_REENT = '0001C15C'X% PARAMETER RMS$_ACC_RUJ = '0001C164'X! PARAMETER RMS$_TMR = '0001C16C'X% PARAMETER RMS$_ACC_AIJ = '0001C174'X% PARAMETER RMS$_ACC_BIJ = '0001C17C'X% PARAMETER RMS$_ACC_ATJ = '0001C184'X' PARAMETER RMS$_DTFDEFFIL = '0001C18C'X' PARAMETER RMS$_DTFREGFIL = '0001C194'X( PARAMETER RMS$_JNLNOTAUTH = '0001C19C'X& PARAMETER RMS$_CRBUFOBJ = '0001C1A4'X* PARAMETER RMS$_RSESTK_ALLOC = '0001C1AC'X^!DEC$ END OPTIONSwwFΦ!*** MODULE $RNHBLKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN> PARAMETER rnhblk$k_LENGTH = '00000014'X ! length of overhead> PARAMETER rnhblk$c_LENGTH = '00000014'X ! length of overhead STRUCTURE /RNHBLKDEF/. INTEGER*4 RNHBLK$L_FLNK ! forward link3 INTEGER*4 RNHBLK$L_HANDLER ! handler address# INTEGER*4 %FILL ! reserved1 INTEGER*4 RNHBLK$L_ARGCNT ! argument count; INTEGER*4 RNHBLK$L_EVEN _T ! address of the event code END STRUCTURE ! RNHBLKDEF!DEC$ END OPTIONS wwiFΦ!*** MODULE $RSDMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNF PARAMETER RSDM$_JOIN_SYSTEM = '00000001'X ! System RD Join functionP PARAMETER RSDM$_JOIN_DEFAULT = '00000002'X ! Process default RD Join functionE PARAMETER RSDM$_JOIN_DOMAIN = '00000003'X ! Other RD Join function: PARAMETER RSDM$_LEAVE = '00000004'X ! Leave RD function. PARAMETER RSDM$K_SYSTEM`_RSDM_ID = '00000001'X ! System RSDM_ID/ PARAMETER RSDM$K_PROCESS_RSDM_ID = '00000002'X ! Process RSDM_ID ! + ! RSDM$ bitfields  ! -$ PARAMETER RSDM$M_READ = '00000001'X% PARAMETER RSDM$M_WRITE = '00000002'X$ PARAMETER RSDM$M_LOCK = '00000004'X STRUCTURE /RSDMBITS/ UNION MAP UNION MAP INTEGER*4 %FILL END MAP MAP& PARAMETER RSDM$S_READ = 17 PARAMETER RSDM$V_READ = 0 ! Read access' PARaAMETER RSDM$S_WRITE = 19 PARAMETER RSDM$V_WRITE = 1 ! Write access& PARAMETER RSDM$S_LOCK = 17 PARAMETER RSDM$V_LOCK = 2 ! Lock access BYTE %FILL (1) END MAP END UNION END MAP END UNION END STRUCTURE ! RSDMBITS!DEC$ END OPTIONS ww(GΦ!*** MODULE $S2DGBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNQ PARAMETER S2DGB$K_OP_XCDB32 = '00000001'X ! Diagnose opcode for 32-bi bt buffersQ PARAMETER S2DGB$K_OP_XCDB64 = '00000002'X ! Diagnose opcode for 64-bit buffers% PARAMETER S2DGB$M_READ = '00000001'X) PARAMETER S2DGB$M_DISCPRIV = '00000002'X, PARAMETER S2DGB$M_SYNCHRONOUS = '00000004'X* PARAMETER S2DGB$M_OBSOLETE1 = '00000008'X+ PARAMETER S2DGB$M_TAGGED_REQ = '00000010'X$ PARAMETER S2DGB$M_TAG = '000000E0'XM PARAMETER S2DGB$K_TAG_POSITION = '00000005'X ! Bit offset of TAG bitfield < PARAMETER S2DGB$K_SIMPLE = '00000000'X ! Simple queue tag> PARAMETERc S2DGB$K_ORDERED = '00000001'X ! Ordered queue tagD PARAMETER S2DGB$K_EXPRESS = '00000002'X ! Head of Queue queue tag* PARAMETER S2DGB$M_AUTOSENSE = '00000100'X( PARAMETER S2DGB$M_EXT_LUN = '00000200'XY PARAMETER S2DGB$K_XCDB32_LENGTH = '0000003C'X ! Diagnose buffer length, 32-bit buffersY PARAMETER S2DGB$K_XCDB64_LENGTH = '0000003C'X ! Diagnose buffer length, 64-bit buffersI PARAMETER S2DGB$K_XCDB_MIN_LENGTH = '0000003C'X ! Minimum s2gdb lengthN PARAMETER S2DGB$K_EXT_XCDB_MIN_LENGdTH = '00000044'X ! Length w/external LUN STRUCTURE /S2DGB/2 INTEGER*4 S2DGB$L_OPCODE ! Diagnose opcode UNION MAP UNION MAP$ INTEGER*4 S2DGB$L_FLAGS END MAP MAP+ PARAMETER S2DGB$S_READ = 1? PARAMETER S2DGB$V_READ = 0 ! Read operation/ PARAMETER S2DGB$S_DISCPRIV = 1Q PARAMETER S2DGB$V_DISCPRIV = 1 ! DiscPriv val in Identigy msg2 e PARAMETER S2DGB$S_SYNCHRONOUS = 1R PARAMETER S2DGB$V_SYNCHRONOUS = 2 ! Synchronous xfers permitted0 PARAMETER S2DGB$S_OBSOLETE1 = 1? PARAMETER S2DGB$V_OBSOLETE1 = 3 ! (Ignored)1 PARAMETER S2DGB$S_TAGGED_REQ = 1= PARAMETER S2DGB$V_TAGGED_REQ = 4 ! Use TCQ* PARAMETER S2DGB$S_TAG = 3D PARAMETER S2DGB$V_TAG = 5 ! Queue tag value type0 PARAMETER S2DfGB$S_AUTOSENSE = 1K PARAMETER S2DGB$V_AUTOSENSE = 8 ! Return Autosense data. PARAMETER S2DGB$S_EXT_LUN = 1O PARAMETER S2DGB$V_EXT_LUN = 9 ! Use externally-supplied LUN BYTE %FILL (2) END MAP END UNION END MAP END UNION UNION MAP- ! Fields in this structure are valid if and. ! only if s2dgb$l_opcode = S2DGB$K_OP_XCDB32I INTEGER*4 S2DGB$L_32CDBADDR ! 32-bgit addr of Cmd Desc BlkC INTEGER*4 S2DGB$L_32CDBLEN ! Length of CDB in bytesV INTEGER*4 S2DGB$L_32DATADDR ! 32-bit addr of DATAIN or DATAOUT addressX INTEGER*4 S2DGB$L_32DATLEN ! Length of DATAIN or DATAOUT buffer in bytesJ INTEGER*4 S2DGB$L_32PADCNT ! Number of pad bytes required.K INTEGER*4 S2DGB$L_32PHSTMO ! Phase timeout value in secondsP INTEGER*4 S2DGB$L_32DSCTMO ! Disconnect timeout value in secon hdsO INTEGER*4 S2DGB$L_32SENSEADDR ! 32-bit addr of Autosense bufferR INTEGER*4 S2DGB$L_32SENSELEN ! Length of Autosense buffer in bytes< INTEGER*4 S2DGB$L_RESERVED1 ! Reserved field< INTEGER*4 S2DGB$L_RESERVED2 ! Reserved field< INTEGER*4 S2DGB$L_RESERVED3 ! Reserved field< INTEGER*4 S2DGB$L_RESERVED4 ! Reserved field END MAP MAP- ! Fields in this structure are valid if and. ! onlyi if s2dgb$l_opcode = S2DGB$K_OP_XCDB64J INTEGER*8 S2DGB$PQ_64CDBADDR ! 64-bit addr of Cmd Desc BlkW INTEGER*8 S2DGB$PQ_64DATADDR ! 64-bit addr of DATAIN or DATAOUT addressP INTEGER*8 S2DGB$PQ_64SENSEADDR ! 64-bit addr of Autosense bufferC INTEGER*4 S2DGB$L_64CDBLEN ! Length of CDB in bytesX INTEGER*4 S2DGB$L_64DATLEN ! Length of DATAIN or DATAOUT buffer in bytesR INTEGER*4 S2DGB$L_64SENSELEN ! Length of Ajutosense buffer in bytesJ INTEGER*4 S2DGB$L_64PADCNT ! Number of pad bytes required.K INTEGER*4 S2DGB$L_64PHSTMO ! Phase timeout value in secondsP INTEGER*4 S2DGB$L_64DSCTMO ! Disconnect timeout value in seconds= INTEGER*4 S2DGB$L_RESERVED_1 ! Reserved field END MAP END UNION3 INTEGER*4 S2DGB$Q_EXT_LUN(2) ! External LUN BYTE %FILL(0:3) END STRUCTURE ! S2DGB!DEC$ END OPTIONS wwtkGΦ!*** MODULE $SBKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! I ! Statistics block. This block is used to report various data regarding+ ! an open file to the requesting program. !  ! - ! L ! The first two longwords are presented in inverted form for compatibility) ! with the old RSX-11 statistics block. ! % PARAMETER SBK$K_LENGTH = '00000020'X% PARAMETER SBK$C_LENGTH = '00000020'X STRUCTURE /SBKDEF/ UNION MAP@ l INTEGER*4 SBK$L_STLBN ! starting LBN if contiguous  END MAP MAP: INTEGER*2 SBK$W_STLBNH ! high order word 9 INTEGER*2 SBK$W_STLBNL ! low order word  END MAP END UNION UNION MAP1 INTEGER*4 SBK$L_FILESIZE ! file size  END MAP MAP; INTEGER*2 SBK$W_FILESIZH ! high order word : INTEGER*2 SBK$W_FILESIZL ! low order word  ! 9 ! The following tw mo fields are for RSX-11 compatibility !  END MAP END UNION9 BYTE SBK$B_ACNT ! low byte of access count 7 BYTE SBK$B_LCNT ! low byte of lock count = INTEGER*4 SBK$L_FCB ! address of file control block " INTEGER*2 %FILL ! spare - INTEGER*2 SBK$W_ACNT ! access count = INTEGER*2 SBK$W_LCNT ! lock count (against writers) - INTEGER*2 SBK$W_WCNT ! writer count 4 INTEGER*2 SBK$W_TCNT ! truncate lock conunt D INTEGER*4 SBK$L_READS ! count of reads executed on channel F INTEGER*4 SBK$L_WRITES ! count of writes executed on channel  END STRUCTURE ! SBKDEF!DEC$ END OPTIONS ww9fΦ!*** MODULE $SCRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN! ! SCREEN PACKAGE REQUEST TYPES = PARAMETER SCR$C_PUT_SCREEN = '00000000'X ! SCR$PUT_SCREEN = PARAMETER SCR$C_GET_SCREEN = '00000001'X ! SCR$GET_SCREEN = PARAMETER SCR$C_ERASE_PAGE = '000 o00002'X ! SCR$ERASE_PAGE = PARAMETER SCR$C_ERASE_LINE = '00000003'X ! SCR$ERASE_LINE = PARAMETER SCR$C_SET_CURSOR = '00000004'X ! SCR$SET_CURSOR ? PARAMETER SCR$C_DOWN_SCROLL = '00000005'X ! SCR$DOWN_SCROLL ? PARAMETER SCR$C_SCREEN_INFO = '00000006'X ! SCR$SCREEN_INFO 9 PARAMETER SCR$C_PUT_LINE = '00000007'X ! SCR$PUT_LINE ? PARAMETER SCR$C_MOVE_CURSOR = '00000008'X ! SCR$MOVE_CURSOR = PARAMETER SCR$C_SET_SCROLL = '00000009'X ! SCR$SET_SCROLL ; PARAMETER SCR$C_UP_SCROLLp = '0000000A'X ! SCR$UP_SCROLL  ! < ! DEFINE BIT MASKS AND VALUES FOR SCREEN ATTRIBUTES ! # PARAMETER SCR$M_BOLD = '00000001'X& PARAMETER SCR$M_REVERSE = '00000002'X$ PARAMETER SCR$M_BLINK = '00000004'X( PARAMETER SCR$M_UNDERLINE = '00000008'X5 PARAMETER SCR$M_NORMAL = '00000000'X ! no bits set  STRUCTURE /SCRDEF/ UNION MAP! PARAMETER SCR$S_BOLD = 1! PARAMETER SCR$V_BOLD = 0$ PARAMETER SCR$S_REVERSE = 1$ PARAMETER SCR$V_REVERSEq = 1" PARAMETER SCR$S_BLINK = 1" PARAMETER SCR$V_BLINK = 2& PARAMETER SCR$S_UNDERLINE = 1& PARAMETER SCR$V_UNDERLINE = 3 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! SCRDEF ! 9 ! DEFINE FORMAT OF SCR$SCREEN_INFO RETURN BUFFER ! % PARAMETER SCR$M_SCREEN = '00000001'X& PARAMETER SCR$M_ANSICRT = '00000002'X$ PARAMETER SCR$M_REGIS = '00000004'X$ PARAMETER SCR$M_BLOCK = '00000008'X" PARAMETER SCR$M_AVO = '00000010'X# PARAMETER r SCR$M_EDIT = '00000020'X% PARAMETER SCR$M_DECCRT = '00000040'XG PARAMETER SCR$K_LENGTH = '00000014'X ! LENGTH OF INFO RETURN BUFFER G PARAMETER SCR$C_LENGTH = '00000014'X ! LENGTH OF INFO RETURN BUFFER  STRUCTURE /SCRDEF1/ UNION MAP4 INTEGER*4 SCR$L_FLAGS ! FLAGS LONGWORD  END MAP MAP' PARAMETER SCR$S_SCREEN = 1P PARAMETER SCR$V_SCREEN = 0 ! 1 = SCREEN ORIENTED, 0 = SCROLLING ( PARAMETER SCR$S_ANS sICRT = 1< PARAMETER SCR$V_ANSICRT = 1 ! ANSI TERMINAL & PARAMETER SCR$S_REGIS = 1; PARAMETER SCR$V_REGIS = 2 ! REGIS TERMINAL & PARAMETER SCR$S_BLOCK = 1@ PARAMETER SCR$V_BLOCK = 3 ! BLOCK MODE TERMINAL $ PARAMETER SCR$S_AVO = 1C PARAMETER SCR$V_AVO = 4 ! ADVANCED VIDEO TERMINAL % PARAMETER SCR$S_EDIT = 1H PARAMETER SCR$V_EDIT = 5 ! TERMINAL HAS EDIT CAPABILITY ' t PARAMETER SCR$S_DECCRT = 1C PARAMETER SCR$V_DECCRT = 6 ! TERMINAL IS A DEC CRT  BYTE %FILL (1) END MAP END UNION4 INTEGER*2 SCR$W_WIDTH ! WIDTH OF EACH LINE 3 INTEGER*2 SCR$W_PAGESIZE ! LINES IN SCREEN < BYTE SCR$B_DEVTYPE ! DEVICE TYPE (SEE $DCDEF) , BYTE %FILL(1:11) ! (RESERVED)  END STRUCTURE ! SCRDEF1!DEC$ END OPTIONSwwGGΦ!*** MODULE $SDBDEF ***:!DEC$ OPTIONS/ALIGN=(RECuORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! SDB Function Codes !  ! - ! BASE AND OFFSET OF 1 * PARAMETER SDB$C_MODE_KERNEL = '00000000'X( PARAMETER SDB$C_MODE_EXEC = '00000001'X) PARAMETER SDB$C_MODE_SUPER = '00000002'X( PARAMETER SDB$C_MODE_USER = '00000003'X* PARAMETER SDB$M_MODE_KERNEL = '00000001'X( PARAMETER SDB$M_MODE_EXEC = '00000002'X) PARAMETER SDB$M_MODE_SUPER = '00000004'X( PARAMETER SDB$M_MODE_USER = '00000008'X, PARAMETER SDB$C_FUNC_GET_DSDB = '00000000'X- PARAMETER SvDB$C_FUNC_FREE_DSDB = '00000001'X, PARAMETER SDB$C_FUNC_GET_ISDB = '00000002'X- PARAMETER SDB$C_FUNC_FREE_ISDB = '00000003'X+ PARAMETER SDB$C_FUNC_SET_SDB = '00000004'X( PARAMETER SDB$M_ACC_WRITE = '00000001'X' PARAMETER SDB$M_ACC_READ = '00000002'X( PARAMETER SDB$V_ACC_WRITE = '00000000'X' PARAMETER SDB$V_ACC_READ = '00000001'X!DEC$ END OPTIONS ww HΦ!*** MODULE $SDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! item codes for sd$xxwx calls ! N PARAMETER SD$_MAJOR_ID = '00000001'X ! longword (major ODS version number)N PARAMETER SD$_MINOR_ID = '00000002'X ! longword (minor ODS version number)I PARAMETER SD$_POOL_ID = '00000003'X ! UID (16 bytes) (Pool identifier)Z PARAMETER SD$_CREATION_DATE = '00000004'X ! Date/time (8 bytes) (Date pool was created)d PARAMETER SD$_MODIFIED_DATE = '00000005'X ! Date/time (8 bytes) (Date pool membership was last chZ PARAMETER SD$_SEGMENT_SIZE = '00000006'X ! longword (Sizxe of segment in pool # blocks)X PARAMETER SD$_MAX_UNITS = '00000007'X ! longword (Maximum # members allowed in pool)[ PARAMETER SD$_UNIT_COUNT = '00000008'X ! longword (Number of members currently in pool)D PARAMETER SD$_POOL_OPTIONS = '00000009'X ! longword (Pool flags)T PARAMETER SD$_UNIT_ID = '0000000A'X ! UID (16 bytes) (Identifier of storage unit)L PARAMETER SD$_UNIT_NUMBER = '0000000B'X ! longword (Storage unit number)L PARAMETER SD$_UNIT_OPTIONS = '0000000C'X ! longword y(Storage unit flags)V PARAMETER SD$_SEQUENCE_NUMBER = '0000000D'X ! longword (Homeblock sequence number)Z PARAMETER SD$_HIGHEST_UNIT = '0000000E'X ! longword (Number of highest member in pool)X PARAMETER SD$_LOWEST_UNIT = '0000000F'X ! longword (Number of lowest member in pool)V PARAMETER SD$_TOTAL_SEGMENTS = '00000010'X ! longword (Total # of segment in pool)[ PARAMETER SD$_FREE_SEGMENTS = '00000011'X ! longword (Total # of free segments in pool)] PARAMETER SD$_MAX_FAMILY = '000z00012'X ! longword (Maximum # of families allowed in pool)S PARAMETER SD$_MAX_DISK = '00000013'X ! longword (Maximum # members in a family)T PARAMETER SD$_META_LBN = '00000014'X ! longword (Start of SD metadata on member)T PARAMETER SD$_META_SIZE = '00000015'X ! longword (Size of SD metadata on member)S PARAMETER SD$_DATA_LBN = '00000016'X ! longword (Start of pool space on member)S PARAMETER SD$_DATA_SIZE = '00000017'X ! longword (Size of pool space on member)S PARAMETER S{D$_POOL_DEVICE = '00000018'X ! character string (Name of pool device)W PARAMETER SD$_FAMILY_NUMBER = '00000019'X ! longword (Familiy number of a SnapDisk)] PARAMETER SD$_MEMBER_NUMBER = '0000001A'X ! longword (Number within family of a SnapDisk)R PARAMETER SD$_DISK_NAME = '0000001B'X ! character string (Name of SnapDisk)V PARAMETER SD$_DISK_CAPACITY = '0000001C'X ! longword (Size/capacity of a SnapDisk)d PARAMETER SD$_DELSPACE = '0000001D'X ! longword (# segments that can b|e recovered by deleting SnC ! longword (# segments that can be recovered by deleting Snaf PARAMETER SD$_DISK_DEVICE = '0000001E'X ! character string (Name of device as bound to OpenVMS)d PARAMETER SD$_BACKUP_DATE = '0000001F'X ! Date/time (8 bytes) (Date that recorded snap was last cC ! Date/time (8 bytes) (Date that recorded snap was last creatT PARAMETER SD$_READS = '00000020'X ! longword (Number of read received from user)W PARAMETER SD$_WRITES = '00000021'X ! longwo}rd (Number of writes received from user)^ PARAMETER SD$_SPLIT_READS = '00000022'X ! longword (Number of reads that were split by SD)` PARAMETER SD$_SPLIT_WRITES = '00000023'X ! longword (Number of writes that were split by SD)` PARAMETER SD$_DISK_READS = '00000024'X ! longword (Number of reads to underlying pool units)b PARAMETER SD$_DISK_WRITES = '00000025'X ! longword (Number of writes to underlying pool units)Y PARAMETER SD$_COPY_OUTS = '00000026'X ! longword (Number of copy-o ~n-write operations)d PARAMETER SD$_CONVERT_CANCELS = '00000027'X ! longword (Number of cancelled lock requd PARAMETER SD$_POOL_FULL_STALLS = '00000028'X ! longword (NUmber of requests stalled bC ! longword (NUmber of requests stalled by pool fu0 PARAMETER SD$_SPARE1 = '00000029'X ! longword0 PARAMETER SD$_SPARE2 = '0000002A'X ! longword0 PARAMETER SD$_SPARE3 = '0000002B'X ! longword0 PARAMETER SD$_SPARE4 = '0000002C'X ! longword0 PARAMETER SD$_SPARE5 = '0000002D'X ! longword0 PARAMETER SD$_SPARE6 = '0000002E'X ! longword0 PARAMETER SD$_SPARE7 = '0000002F'X ! longword0 PARAMETER SD$_SPARE8 = '00000030'X ! longwordP PARAMETER SD$_COPY_STATS = '00000031'X ! Array of SD$K_COPYCOUNTERS longwordsd PARAMETER SD$_DEV_LOCKID = '00000032'X ! longword (LockId of device name consistancy C ! longword (LockId of device name consistancy locf PARAMETER SD$_UID_LOCKID = '00000033'X ! longword  (LockId of UID name consistancy lock)* PARAMETER SD$K_COPYCOUNTERS = '00000018'X ! & ! options and flags for RTL routines ! , PARAMETER SD$M_CONTAINER_DISK = '00000001'X, PARAMETER SD$M_CONVERTED_DISK = '00000002'X ! . ! Function codes for cluster-server requests ! + PARAMETER SD$K_CLU_BIND_POOL = '00000001'X+ PARAMETER SD$K_CLU_BIND_DISK = '00000002'X( PARAMETER SD$K_CLU_UNBIND = '00000003'X ! F ! Define structures used by QIO interface to SD management functions !  ! ++ ! Device list ! 6 ! This structure is used to pass information between7 ! the runtime library, the FDT routines and the start ! I/O routines ! -- STRUCTURE /SDDEVLIST/= INTEGER*4 sd$l_start_lbn ! Starting LBN of data space5 INTEGER*4 sd$l_lbn_count ! Size of data space@ INTEGER*4 sd$l_meta_lbn ! Location of SnapDisk metadata9 INTEGER*4 sd$l_meta_count ! Size of metadata area/ INTEGER*4 sd$ps_ucb ! UCB of pool unit: INTEGER*4 sd$l_name_length ! Length of device name1 CHARACTER*1 sd$t_name(1:64) ! Device name END STRUCTURE ! SDDEVLIST ! > ! SD Parameter list - This is used to pass Snapshot Services: ! parameters/characteristics between the runtime library ! and the I/O functions ! # PARAMETER sd$m_stall = '00000001'X' PARAMETER sd$m_redundant = '00000002'X$ PARAMETER sd$m_record = '00000004'X% PARAMETER sd$m_cluster = '00000008'X% PARAMETER sd$m_partial = '00000010'X STRUCTURE /SDPARAMLIST/ UNION MAPH INTEGER*4 sd$l_segment_size ! Segment size for copy-on-write END MAP MAP@ INTEGER*4 sd$l_disk_size ! Disk size for create/disk END MAP END UNION UNION MAP7 INTEGER*4 sd$l_flags ! Miscellaneous flags END MAP MAP% PARAMETER sd$S_stall = 1B PARAMETER sd$V_stall = 0 ! Stall/Fail on pool full) PARAMETER sd$S_redundant = 1S PARAMETER sd$V_redundant = 1 ! Use redundancy for SnapDisk metadata& PARAMETER sd$S_record = 1I PARAMETER sd$V_record = 2 ! Record snapshot creation time' PARAMETER sd$S_cluster = 1F PARAMETER sd$V_cluster = 3 ! Operation is cluster-wide' PARAMETER sd$S_partial = 1A PARAMETER sd$V_partial = 4 ! Partial bind on pool BYTE %FILL (1) END MAP END UNION END STRUCTURE ! SDPARAMLIST ! 2 ! IOCTL function codes - miscellaneous functions ! & PARAMETER SD$K_GET_DISK = '00000001'X' PARAMETER SD$K_GET_STATS = '00000002'X& PARAMETER SD$K_GET_UNIT = '00000003'X' PARAMETER SD$K_POOL_DISK = '00000004'X' PARAMETER SD$K_POOL_INFO = '00000005'X' PARAMETER SD$K_POOL_UNIT = '00000006'X& PARAMETER SD$K_CLU_TEST = '00000007'X+ PARAMETER SD$K_STORE_LOCKIDS = '00000008'X. PARAMETER SD$K_RETRIEVE_LOCKIDS = '00000009'X1 PARAMETER SD$K_RETRIEVE_MEMBERLIST = '0000000A'X- PARAMETER SD$K_SET_TRACE_LEVEL = '0000000B'X- PARAMETER SD$K_GET_TRACE_LEVEL = '0000000C'X ! 6 ! Define Snapshot Services runtime library functions !  !  ! ++ ! ! ROUTINE: ! ' ! sd$add_units POOL_DEVICE, UNIT_LIST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine4 ! Add additional storage units to an existing pool= ! This function takes care of all the creation of container1 ! files etc. for the storage units being added. !  ! FORMAL PARAMETERS: ! 4 ! POOL_DEVICE (IN) : Name of device to add members8 ! UNIT_LIST (IN) : Item List 3 containing Device listO ! FLAGS (IN) : Indicates temporary or permanent pool member !  !  ! PRE-CONDITIONS: ! : ! The set of devices must be mounted as Files-11 devices !  ! POST-CONDITIONS: ! ? ! The new storage units are added as new members to the pool.F ! All current and new members are stamped with a new membership list !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$add_units EXTERNAL sd$add_units !  ! ++ ! ! ROUTINE: ! ; ! sd$bind_disk DISK_DEVICE, POOL_DEVICE, DISK_NAME, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine: ! Export a SnappyDisk from the pool as an OpenVMS device !  ! FORMAL PARAMETERS: ! 4 ! DISK_DEVICE (IN) : Name of disk device to create1 ! POOL_DEVICE (IN) : Name of pool device to use6 ! DISK_NAME (IN) : Name of disk to export from pool- ! FLAGS (IN) : Optional flags SD$M_CLUSTER !  ! PRE-CONDITIONS: !  ! The pool must be bound./ ! The SnappyDisk name must exist in the pool.L ! The SnappyDisk must not be bound to a device on another computer in the ! cluster.H ! Another SnappyDisk must not be bound to the specified device on any  ! computer in the cluster. !  ! POST-CONDITIONS: ! 2 ! The SnappyDisk is exposed as an OpenVMS device !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$bind_disk EXTERNAL sd$bind_disk !  ! ++ ! ! ROUTINE: ! . ! sd$bind_pool POOL_DEVICE, UNIT_LIST, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine6 ! Rebind a pool from a set of devices that have been! ! previously created as a pool.= ! This function takes care of all the location of container ! files, driver loading. !  ! FORMAL PARAMETERS: ! / ! POOL_DEVICE (IN) : Name of device to create@ ! UNIT_LIST (IN) : Itemlist3 containing list of storage units- ! FLAGS (IN) : Optional flags SD$M_CLUSTER !  ! PRE-CONDITIONS: ! : ! The storage units must be mounted as Files-11 devices.F ! The storage units must have been previously used to create a pool.G ! The list of storage units must not include storage units in another ! pool.F ! The list of storage units must not include a SnappyDisk bound to a ! device. !  ! POST-CONDITIONS: ! @ ! A pool is rebound and exported as the specified pool_device. !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$bind_pool EXTERNAL sd$bind_pool !  ! ++ ! ! ROUTINE: ! 8 ! sd$create_disk POOL_DEVICE, DISK_NAME, DISK_CAPACITY !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine! ! Create a SnappyDisk in a pool !  ! FORMAL PARAMETERS: ! 1 ! POOL_DEVICE (IN) : Name of pool device to use2 ! DISK_NAME (IN) : Name of SnappyDisk to create? ! DISK_CAPACITY (IN) : Size in blocks of SnappyDisk to create !  ! PRE-CONDITIONS: !  ! The pool must be bound.; ! The SnappyDisk name must not already exist in the pool.K ! The pool must have enough free space to create a SnappyDisk of the size ! specified. !  ! POST-CONDITIONS: ! = ! A new SnappyDisk, named disk_name, is created in the pool !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$create_disk EXTERNAL sd$create_disk !  ! ++ ! ! ROUTINE: ! 4 ! sd$create_pool UNIT_LIST, SEGMENT_SIZE, FLAGS !  ! FUNCTIONAL DESCRIPTION:  ! . ! Create a pool from a set of storage units.= ! This function takes care of all the creation of containerA ! files and driver loading that needs to be done before calling ! the IO$_BIND function. !  ! FORMAL PARAMETERS: ! B ! UNIT_LIST (IN) : Item list 3 containing list of storage units9 ! SEGMENT_SIZE (IN) : Size of segments in pool (blocks)6 ! FLAGS (IN) : Optional flags SD$M_STALL, SD$M_FAIL !  ! PRE-CONDITIONS: ! J ! The storage units must be initialised and mounted as Files-11 devices.G ! The list of storage units must not include storage units in another ! pool.F ! The list of storage units must not include a SnappyDisk bound to a ! device. !  ! POST-CONDITIONS: ! / ! A new pool is created on the storage units.@ ! The storage units are stamped as belonging to the same pool. !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$create_pool EXTERNAL sd$create_pool !  ! ++ ! ! ROUTINE: ! = ! sd$create_snap POOL_DEVICE, DISK_DEVICE, DISK_NAME, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine+ ! Create a snap of an existing SnappyDisk !  ! FORMAL PARAMETERS: ! 1 ! POOL_DEVICE (IN) : Name of pool device to use@ ! DISK_DEVICE (IN) : Name of SnappyDisk device to use as basis ! for snap2 ! DISK_NAME (IN) : Name of SnappyDisk to create6 ! FLAGS (IN) : Should we record time snap was taken5 ! for incremental backup purposes, SD$M_RECORD !  ! PRE-CONDITIONS: !  ! The pool must be bound8 ! The original SnappyDisk must be exported as a device !  ! POST-CONDITIONS: ! K ! A new SnappyDisk is created in the pool. That SnappyDisk will be a snap5 ! of the original SnappyDisk specified in the call. !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$create_snap EXTERNAL sd$create_snap !  ! ++ ! ! ROUTINE: ! ) ! sd$delete_disk POOL_DEVICE, DISK_NAME !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine! ! Delete a SnapDisk from a pool !  ! FORMAL PARAMETERS: ! 1 ! POOL_DEVICE (IN) : Name of pool device to use2 ! DISK_NAME (IN) : Name of SnappyDisk to delete !  ! PRE-CONDITIONS: !  ! The pool must be bound. ! The SnappyDisk name must exist in the poolL ! The SnappyDisk named must not be bound to a device on the local computer !  ! POST-CONDITIONS: ! + ! The SnappyDisk is deleted from the pool !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$delete_disk EXTERNAL sd$delete_disk !  ! ++ ! ! ROUTINE: ! * ! sd$remove_units POOL_DEVICE, UNIT_LIST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine! ! Removes members from a pool. C ! If the members are successfully removed, the metadata files are ! removed from the devices. !  ! FORMAL PARAMETERS: ! 7 ! POOL_DEVICE (IN) : Name of device to remove membersB ! UNIT_LIST (IN) : Item list 3 containing list of storage units !  ! PRE-CONDITIONS: ! A ! The list of storage units must be part of the specified pool.I ! The pool must contain enough free space to allow data on the outgoingB ! storage units to be copied to other storage units in the pool.F ! The list of storage units must not be the complete set of units in ! the pool. !  ! POST-CONDITIONS: ! 7 ! The remaining members are updated with the new pool ! membership list. !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$remove_units EXTERNAL sd$remove_units !  ! ++ ! ! ROUTINE: ! # ! sd$unbind VIRTUAL_DEVICE, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine ! Unbind a pool or SnapDisk. !  ! FORMAL PARAMETERS: ! 2 ! VIRTUAL_DEVICE (IN) : Name of device to unbind- ! FLAGS (IN) : Optional flags SD$M_CLUSTER !  ! PRE-CONDITIONS: ! L ! The pool or SnappyDisk must be bound to the device on the local computer !  ! POST-CONDITIONS: ! 5 ! The pool or SnappyDisk is unbound from the device !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$unbind EXTERNAL sd$unbind !  ! ++ ! ! ROUTINE: ! # ! sd$get_disk DISK_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine+ ! Get information about an exported disk.9 ! The information is returned using a standard OpenVMS ! itemlist mechanism./ ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_BACKUP_DATE ! SD$_CREATION_DATE ! SD$_DELSPACE ! SD$_DISK_CAPACITY ! SD$_DISK_DEVICE ! SD$_DISK_NAME ! SD$_FAMILY_NUMBER ! SD$_MEMBER_NUMBER ! SD$_POOL_DEVICE !  ! FORMAL PARAMETERS: ! 0 ! DISK_DEVICE (IN) : Name of SnappyDisk device+ ! ITMLST (IN): Address of items to return !  ! PRE-CONDITIONS: ! * ! The device must be a SnappyDisk device !  ! POST-CONDITIONS: ! ) ! The information requested is returned !  ! RETURN VALUE: ! % ! SS$_NORMAL - Member info returned* ! SS$_ACCVIO - Parameters not accessible5 ! SS$_BADPARAM - One or more item codes are invalidA ! SS$_IVBUFLEN - one or more buffer lengths are invalid3 ! SS$_IVDEVNAM - ucb is not that of a pool member6 ! SS$_NOTBOUND - the member is not bound into a pool2 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- !  INTEGER*4 sd$get_disk EXTERNAL sd$get_disk !  ! ++ ! ! ROUTINE: ! $ ! sd$get_pool POOL_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine ! Get pool-wide information9 ! The information is returned using a standard OpenVMS ! itemlist mechanism./ ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_CREATION_DATE ! SD$_FREE_SEGMENTS ! SD$_HIGHEST_UNIT ! SD$_LOWEST_UNIT ! SD$_MAJOR_ID ! SD$_MAX_DISK ! SD$_MAX_FAMILY ! SD$_MAX_UNITS ! SD$_MINOR_ID ! SD$_MODIFIED_DATE ! SD$_POOL_ID ! SD$_POOL_OPTIONS ! SD$_SEGMENT_SIZE ! SD$_SEQUENCE_NUMBER ! SD$_TOTAL_SEGMENTS ! SD$_UNIT_COUNT !  ! FORMAL PARAMETERS: ! + ! POOL_DEVICE (IN) : Name of storage pool- ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! ; ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: ! ) ! The information requested is returned !  ! RETURN VALUE: ! % ! SS$_NORMAL - Next member returned5 ! SS$_BADPARAM - One or more item codes are invalidA ! SS$_IVBUFLEN - One or more buffer lengths are invalid2 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- !  INTEGER*4 sd$get_pool EXTERNAL sd$get_pool !  ! ++ ! ! ROUTINE: ! / ! sd$get_pool_begin POOL_DEVICE, POOL_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine2 ! Routine to setup context to read SnapDisk pool" ! parameters from a pool device. !  ! FORMAL PARAMETERS: ! 3 ! POOL_DEVICE (IN) : Name of pool device to query4 ! POOL_CONTEXT (IN) : Address of context to return !  ! PRE-CONDITIONS: !  ! The pool device must exist !  ! POST-CONDITIONS: ! A ! A context is setup to allow sd$get_pool and sd$get_pooldevice/ ! to be called to return the pool parameters. !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$get_pool_begin EXTERNAL sd$get_pool_begin !  ! ++ ! ! ROUTINE: ! * ! sd$get_pool_disk POOL_CONTEXT, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routineJ ! Routine to return the information for the next SnappyDisk in the pool. !  ! For example: ! 8 ! status = sd$get_pool_begin(raw_device, context) ! while (success(status))2 ! status = sd$get_pool_disk(context, itmlst)* ! status = sd$get_pool_end(context) !  ! Valid item code are: !  ! SD$_BACKUP_DATE ! SD$_CREATION_DATE ! SD$_DELSPACE ! SD$_DISK_CAPACITY ! SD$_DISK_DEVICE ! SD$_DISK_NAME ! SD$_FAMILY_NUMBER ! SD$_MEMBER_NUMBER ! SD$_POOL_DEVICE !  ! FORMAL PARAMETERS: ! / ! POOL_CONTEXT (IN) : Address of pool context+ ! ITMLST (IN): Address of items to return !  ! PRE-CONDITIONS: ! ; ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: !  ! The next member is returned !  ! RETURN VALUE: ! % ! SS$_NORMAL - Next member returned( ! SS$_NOMOREDEV - No more diks in pool ! -- !  INTEGER*4 sd$get_pool_disk EXTERNAL sd$get_pool_disk !  ! ++ ! ! ROUTINE: ! ! ! sd$get_pool_end POOL_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine4 ! Routine to tidy up the context associated with a ! sd$get_pool_begin. !  ! FORMAL PARAMETERS: ! 4 ! POOL_CONTEXT (IN) : Address of context to delete !  ! PRE-CONDITIONS: ! ; ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: !  ! The context is deleted !  ! RETURN VALUE: !  ! SS$_NORMAL !  ! -- !  INTEGER*4 sd$get_pool_end EXTERNAL sd$get_pool_end !  ! ++ ! ! ROUTINE: ! - ! sd$get_pool_unit POOL_CONTEXT, NEXT_UNIT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine@ ! Routine to return the next member device making up the pool.= ! This routine is designed to be called in a loop to return' ! all the members making up the pool. ! For example: ! 8 ! status = sd$get_pool_begin(raw_device, context) ! while (success(status))7 ! status = sd$get_pool_unit(context, unit_device)! ! status = sd$get_pool_end !  ! FORMAL PARAMETERS: ! * ! POOL_CONTEXT (IN) : Address of context7 ! NEXT_UNIT (OUT) : Address of descriptor to return !  ! PRE-CONDITIONS: ! ; ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: !  ! The next member is returned !  ! RETURN VALUE: ! % ! SS$_NORMAL - Next member returned# ! SS$_NOMOREDEV - No more devices" ! SS$_BADPARAM - Invalid context2 ! SS$_SDDISABLED - Snap-capable disk not loaded !  ! -- !  INTEGER*4 sd$get_pool_unit EXTERNAL sd$get_pool_unit !  ! ++ ! ! ROUTINE: ! . ! sd$get_raw_begin UNIT_DEVICE, UNIT_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine4 ! Routine to setup context to read SnappyDisk pool? ! parameters from a raw (mounted but not bound) storage unit. !  ! FORMAL PARAMETERS: ! 4 ! UNIT_DEVICE (IN) : Name of storage unit to query4 ! UNIT_CONTEXT (IN) : Address of context to return !  ! PRE-CONDITIONS: ! 3 ! The member device must be mounted but not bound !  ! POST-CONDITIONS: ! E ! A context is setup to allow sd$get_raw_info and sd$get_unitdevice@ ! to be called to return pool parameters stored on the member. !  ! RETURN VALUE: !  ! Various statuses !  ! -- !  INTEGER*4 sd$get_raw_begin EXTERNAL sd$get_raw_begin !  ! ++ ! ! ROUTINE: ! ! sd$get_raw_end UNIT_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine4 ! Routine to tidy up the context associated with a ! sd$get_raw_begin. !  ! FORMAL PARAMETERS: ! * ! UNIT_CONTEXT (IN) : Address of context !  ! PRE-CONDITIONS: ! : ! A context must have been started with sd$get_raw_begin !  ! POST-CONDITIONS: !  ! The context is deleted !  ! RETURN VALUE: !  ! SS$_NORMAL !  ! -- !  INTEGER*4 sd$get_raw_end EXTERNAL sd$get_raw_end !  ! ++ ! ! ROUTINE: ! , ! sd$get_raw_next UNIT_CONTEXT, NEXT_UNIT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine@ ! Routine to return the next member device making up the pool.= ! This routine is designed to be called in a loop to return5 ! all the members in the pool making up the device. ! For example: ! 7 ! status = sd$get_raw_begin(raw_device, context) ! while (success(status))6 ! status = sd$get_raw_next(context, unit_device) ! status = sd$get_raw_end !  ! FORMAL PARAMETERS: ! * ! UNIT_CONTEXT (IN) : Address of context6 ! NEXT_UNIT(OUT) : Address of descriptor to return !  ! PRE-CONDITIONS: ! : ! A context must have been started with sd$get_raw_begin !  ! POST-CONDITIONS: !  ! The next member is returned !  ! RETURN VALUE: ! % ! SS$_NORMAL - Next member returned# ! SS$_NOMOREDEV - No more devices !  ! -- !  INTEGER*4 sd$get_raw_next EXTERNAL sd$get_raw_next !  ! ++ ! ! ROUTINE: ! ) ! sd$get_raw_info UNIT_CONTEXT, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine# ! Get information from the member9 ! The information is returned using a standard OpenVMS ! itemlist mechanism./ ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_CREATION_DATE ! SD$_HIGHEST_UNIT ! SD$_LOWEST_UNIT ! SD$_MAJOR_ID ! SD$_MAX_DISK ! SD$_MAX_FAMILY ! SD$_MAX_UNITS ! SD$_MINOR_ID ! SD$_MODIFIED_DATE ! SD$_POOL_ID ! SD$_POOL_OPTIONS ! SD$_SEGMENT_SIZE ! SD$_SEQUENCE_NUMBER ! SD$_UNIT_COUNT ! SD$_UNIT_ID ! SD$_UNIT_NUMBER ! SD$_UNIT_OPTIONS !  ! FORMAL PARAMETERS: ! * ! UNIT_CONTEXT (IN) : Address of context, ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! : ! A context must have been started with sd$get_raw_begin !  ! POST-CONDITIONS: ! ) ! The information requested is returned !  ! RETURN VALUE: ! % ! SS$_NORMAL - Next member returned5 ! SS$_BADPARAM - One or more item codes are invalidA ! SS$_IVBUFLEN - One or more buffer lengths are invalid ! -- !  INTEGER*4 sd$get_raw_info EXTERNAL sd$get_raw_info !  ! ++ ! ! ROUTINE: ! % ! sd$get_stats POOL_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine8 ! Get monitor-type runtime statistics on a system-wide ! or per-pool basis. ! = ! If POOL_DEVICE is NULL, this call returns the system-wide: ! statistics otherwise it returns the statistics for the ! specified pool. ! 9 ! The information is returned using a standard OpenVMS ! itemlist mechanism./ ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_COPY_OUTS ! SD$_DISK_READS ! SD$_DISK_WRITES ! SD$_READS ! SD$_SPLIT_READS ! SD$_SPLIT_WRITES ! SD$_WRITES !  ! FORMAL PARAMETERS: ! ' ! POOL_DEVICE(IN) : Pool device name, ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! 5 ! The SnappyDisk driver must be loaded and enabled.G ! For a non NULL pool_device, the pool must be bound to the device on ! the local computer. !  ! POST-CONDITIONS: ! ) ! The information requested is returned !  ! RETURN VALUE: !  ! SS$_NORMAL - Stats returned* ! SS$_ACCVIO - Parameters not accessible5 ! SS$_BADPARAM - One or more item codes are invalidA ! SS$_IVBUFLEN - one or more buffer lengths are invalid. ! SS$_IVDEVNAM - Device is not a pool device' ! SS$_NOSUCHDEV - No such pool device2 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- !  INTEGER*4 sd$get_stats EXTERNAL sd$get_stats !  ! ++ ! ! ROUTINE: ! # ! sd$get_unit UNIT_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine' ! Get information about a pool member9 ! The information is returned using a standard OpenVMS ! itemlist mechanism./ ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_DATA_LBN ! SD$_DATA_SIZE ! SD$_FREE_SEGMENTS ! SD$_META_LBN ! SD$_META_SIZE ! SD$_POOL_DEVICE ! SD$_TOTAL_SEGMENTS ! SD$_UNIT_ID ! SD$_UNIT_NUMBER ! SD$_UNIT_OPTIONS !  ! FORMAL PARAMETERS: ! + ! UNIT_DEVICE (IN) : Name of storage unit, ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! 5 ! The storage unit must exist on the local computer !  ! POST-CONDITIONS: ! ) ! The information requested is returned !  ! RETURN VALUE: ! % ! SS$_NORMAL - Member info returned* ! SS$_ACCVIO - Parameters not accessible5 ! SS$_BADPARAM - One or more item codes are invalidA ! SS$_IVBUFLEN - one or more buffer lengths are invalid3 ! SS$_IVDEVNAM - ucb is not that of a pool member6 ! SS$_NOTBOUND - the member is not bound into a pool2 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- !  INTEGER*4 sd$get_unit EXTERNAL sd$get_unit!DEC$ END OPTIONS wwYΦ!*** MODULE $SDFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Symbol definition ! # PARAMETER SDF$K_NAME = '0000000A'X# PARAMETER SDF$C_NAME = '0000000A'X STRUCTURE /SDFDEF/ UNION MAP< BYTE  SDF$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP7 ! unsupported type CHARACTER*0 SDF$T_START BYTE %FILL END MAP END UNION6 BYTE SDF$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 SDF$W_FLAGS ! Maps over GSY$W_FLAGS 5 BYTE SDF$B_PSINDX ! Owning psect number 0 INTEGER*4 SDF$L_VALUE ! Value of symbol 0 BYTE SDF$B_NAMLNG ! Length of name . CHARACTER*31 SDF$T_NAME ! Symbol name  END STRUCTURE ! SDFDEF!DEC$ END OPTIONS wwΦ!*** MODULE $SDFMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! . ! Symbol definition for version mask symbols ! $ PARAMETER SDFM$K_NAME = '0000000E'X$ PARAMETER SDFM$C_NAME = '0000000E'X STRUCTURE /SDFMDEF/ UNION MAP= BYTE SDFM$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 SDFM$T_START BYTE %FILL END MAP END UNION7 BYTE SDFM$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 SDFM$W_FLAGS ! Maps over GSY$W_FLAGS 6 BYTE SDFM$B_PSINDX ! Owning psect number 1 INTEGER*4 SDFM$L_VALUE ! Value of symbol 6 INTEGER*4 SDFM$L_VERSION_MASK ! Mask for symbol1 BYTE SDFM$B_NAMLNG ! Length of name . CHARACTER*31 SDFM$T_NAME ! Symbol name  END STRUCTURE ! SDFMDEF!DEC$ END OPTIONS wwcΦ!*** MODULE $SDFVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! * ! Symbol definition for vectored symbols ! $ PARAMETER SDFV$K_NAME = '0000000E'X$ PARAMETER SDFV$C_NAME = '0000000E'X STRUCTURE /SDFVDEF/ UNION MAP= BYTE SDFV$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 SDFV$T_START BYTE %FILL END MAP END UNION7 BYTE  SDFV$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 SDFV$W_FLAGS ! Maps over GSY$W_FLAGS 6 BYTE SDFV$B_PSINDX ! Owning psect number 1 INTEGER*4 SDFV$L_VALUE ! Value of symbol : INTEGER*4 SDFV$L_VECTOR ! Vectored value of symbol1 BYTE SDFV$B_NAMLNG ! Length of name . CHARACTER*31 SDFV$T_NAME ! Symbol name  END STRUCTURE ! SDFVDEF!DEC$ END OPTIONS wwΦ!*** MODULE $SDFWDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! . ! Symbol definition with word of psect value ! $ PARAMETER SDFW$K_NAME = '0000000B'X$ PARAMETER SDFW$C_NAME = '0000000B'X STRUCTURE /SDFWDEF/ UNION MAP= BYTE SDFW$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 SDFW$T_START BYTE %FILL END MAP END UNION7 BYTE SDFW$B_DATYP ! Maps over GSY$B_DATYP 7 INTEGER*2 SDFW$W_FLAGS ! Maps over GSY$W_FLAGS 6 INTEGER*2 SDFW$W_PSINDX ! Owning psect number 1 INTEGER*4 SDFW$L_VALUE ! Value of symbol 1 BYTE SDFW$B_NAMLNG ! Length of name . CHARACTER*31 SDFW$T_NAME ! Symbol name  END STRUCTURE ! SDFWDEF!DEC$ END OPTIONS wwqΦ!*** MODULE $SDVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! 2 ! Switch, enable/disable device path information !  ! **** NOTE **** ! H ! New items must always be added at the END of the list so that* ! users will not have to rebuild. !  ! -C PARAMETER SDV$_MP_SWITCH_PATH = '00000001'X ! Switch device pathC PARAMETER SDV$_MP_ENABLE_PATH = '00000002'X ! Enable device pathE PARAMETER SDV$_MP_DISABLE_PATH = '00000003'X ! Disable device path ! ? ! *** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** ! !DEC$ END OPTIONSwwJHΦ!*** MODULE $SECDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +) ! PROCESS OR GLOBAL SECTION DEFINITIONS ! - ! J ! ***** L_VBN, L_WINDOW, and L_PFC must be the same offset values as the0 ! ***** equivalently named offsets in $PFLDEF. ! " PARAMETER SEC$M_GBL = '00000001'X" PARAMETER SEC$M_CRF = '00000002'X# PARAMETER SEC$M_DZRO = '00000004'X" PARAMETER SEC$M_WRT = '00000008'X$ PARAMETER SEC$M_SHMGS = '00000010'X% PARAMETER SEC$M_ARGS64 = '00000020'X% PARAMETER SEC$M_WRTMOD = '000000C0'X# PAR AMETER SEC$M_AMOD = '00000300'X' PARAMETER SEC$M_UNCACHED = '00000400'X- PARAMETER SEC$M_READ_ONLY_SHPT = '00000800'X) PARAMETER SEC$M_SHARED_PTS = '00001000'X# PARAMETER SEC$M_MRES = '00002000'X# PARAMETER SEC$M_PERM = '00004000'X% PARAMETER SEC$M_SYSGBL = '00008000'X% PARAMETER SEC$M_PFNMAP = '00010000'X% PARAMETER SEC$M_EXPREG = '00020000'X& PARAMETER SEC$M_PROTECT = '00040000'X% PARAMETER SEC$M_PAGFIL = '00080000'X& PARAMETER SEC$M_EXECUTE = '00100000'X( PARAMETER SEC$M_NOPROTCHK = '00200000'X) PARAMETER SEC$M_NO_OVERMAP = '00400000'X% PARAMETER SEC$M_INPROG = '00800000'X' PARAMETER SEC$M_PARANOID = '01000000'X' PARAMETER SEC$M_GRANHINT = '02000000'X) PARAMETER SEC$M_MRES_ALLOC = '04000000'X' PARAMETER SEC$M_RAD_HINT = '08000000'X STRUCTURE /SECDEF/ UNION MAPD INTEGER*4 SEC$L_GSD ! GLOBAL SECTION DESCRIPTOR ADDRESS  END MAP MAPS INTEGER*4 SEC$L_CCB ! CHANNEL CONTROL BLOCK ADDRESS IF PROCESS SECTION  END MAP END UNION< INTEGER*4 SEC$L_SECXFL ! SECTION INDEX FORWARD LINK = INTEGER*4 SEC$L_SECXBL ! SECTION INDEX BACKWARD LINK 6 INTEGER*4 SEC$L_PFC ! PFC - Page Fault Cluster UNION MAPS INTEGER*4 SEC$Q_MRES_REFCNT(2) ! REFERENCE COUNT FOR MRES/SHMGS SECTIONS END MAP MAP UNION MAP$ INTEGER*4 SEC$L_VBN END MAP MAP'  INTEGER*4 SEC$Q_VBN(2) END MAP END UNION> INTEGER*4 SEC$L_WINDOW ! WINDOW CONTROL BLOCK  END MAP END UNION !  ! ***** NOTE *****C ! All flags in sec$l_flags must be kept in sync with flags in the4 ! SECFLG structure defined further in this module. ! **************** ! UNION MAPF INTEGER*4 SEC$L_FLAGS ! VARIOUS CONTROL FLAGS IN LOW WORD END MAP MAP$ PARAMET ER SEC$S_GBL = 1: PARAMETER SEC$V_GBL = 0 ! GLOBAL SECTION $ PARAMETER SEC$S_CRF = 1= PARAMETER SEC$V_CRF = 1 ! COPY ON REFERENCE % PARAMETER SEC$S_DZRO = 17 PARAMETER SEC$V_DZRO = 2 ! DEMAND ZERO $ PARAMETER SEC$S_WRT = 14 PARAMETER SEC$V_WRT = 3 ! WRITABLE & PARAMETER SEC$S_SHMGS = 1H PARAMETER SEC$V_SHMGS = 4 ! SHARED MEMORY GLOBAL SECTION' PARAMETER  SEC$S_ARGS64 = 1F PARAMETER SEC$V_ARGS64 = 5 ! Arguments passed as quads' PARAMETER SEC$S_WRTMOD = 2K PARAMETER SEC$V_WRTMOD = 6 ! WRITE ACCESS MODE FOR SECTION % PARAMETER SEC$S_AMOD = 2B PARAMETER SEC$V_AMOD = 8 ! ACCESS MODE OF SECTION ) PARAMETER SEC$S_UNCACHED = 1K PARAMETER SEC$V_UNCACHED = 10 ! PFN-map I/O space uncached./ PARAMETER SEC$S_READ_ONLY_SHPT = 1] P ARAMETER SEC$V_READ_ONLY_SHPT = 11 ! Shared page tables map section read-only+ PARAMETER SEC$S_SHARED_PTS = 1P PARAMETER SEC$V_SHARED_PTS = 12 ! Section is a shared PT section% PARAMETER SEC$S_MRES = 1C PARAMETER SEC$V_MRES = 13 ! MEMORY RESIDENT SECTION% PARAMETER SEC$S_PERM = 1> PARAMETER SEC$V_PERM = 14 ! PERMANENT SECTION ' PARAMETER SEC$S_SYSGBL = 1R PARAMETER SEC$V_SYSGBL = 15  ! 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL  ! L ! ***** THE FOLLOWING FLAGS ARE INDICATORS FOR PRIVATE AND GLOBAL SECTIONL ! ***** SYSTEM SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS LONGWORD  ! ***** FIELD. ! ' PARAMETER SEC$S_PFNMAP = 1D PARAMETER SEC$V_PFNMAP = 16 ! MAP TO SPECIFIC PFN'S ' PARAMETER SEC$S_EXPREG = 1P PARAMETER SEC$V_EXPREG = 17 ! MAP INTO FIRST FREE ADDRESS SPACE ( PARAMETER SEC$S_PROTECT =  1P PARAMETER SEC$V_PROTECT = 18 ! CHECK WRITE ACCESS MODE (WRTMOD) ' PARAMETER SEC$S_PAGFIL = 1Y PARAMETER SEC$V_PAGFIL = 19 ! GLOBAL SECTION HAS PAGE FILE BACKING STORE ( PARAMETER SEC$S_EXECUTE = 1G PARAMETER SEC$V_EXECUTE = 20 ! CHECK FOR EXECUTE ACCESS* PARAMETER SEC$S_NOPROTCHK = 1I PARAMETER SEC$V_NOPROTCHK = 21 ! INHIBIT PROTECTION CHECK+ PARAMETER SEC$S_NO_OVERMAP = 1N  PARAMETER SEC$V_NO_OVERMAP = 22 ! DON'T OVERMAP ADDRESS SPACE ' PARAMETER SEC$S_INPROG = 1J PARAMETER SEC$V_INPROG = 23 ! Section creation in progress) PARAMETER SEC$S_PARANOID = 1E PARAMETER SEC$V_PARANOID = 24 ! Go into paranoia mode) PARAMETER SEC$S_GRANHINT = 1I PARAMETER SEC$V_GRANHINT = 25 ! Allow enhanced GH regions+ PARAMETER SEC$S_MRES_ALLOC = 1^ PARAMETER SEC$V_M RES_ALLOC = 26 ! Allocate memory resident pages during create) PARAMETER SEC$S_RAD_HINT = 1P PARAMETER SEC$V_RAD_HINT = 27 ! Allocate pages based on RAD hint BYTE %FILL (4) END MAP END UNION^ INTEGER*4 SEC$L_REFCNT ! COUNT OF PTE'S REFERENCING THIS SECTION (unless MRES/SHMGS)  ! X ! UNIT_CNT contains the number of pagelets (512 byte units) in the section, except forb ! PFN-mapped sections. In that case, UNIT_CNT contains the number of PFNs mapped by the section. ! : INTEGER*4 SEC$L_VPX ! Starting virtual page index UNION MAP! INTEGER*4 SEC$L_UNIT_CNT END MAP MAP$ INTEGER*4 SEC$Q_UNIT_CNT(2) END MAP END UNION END STRUCTURE ! SECDEF ! 5 ! ***** NOTE THAT NUMBER OF LONG WORDS MUST BE EVEN ! ; PARAMETER SEC$K_LENGTH = '00000030'X ! SIZE OF PSTE/GSTE ; PARAMETER SEC$C_LENGTH = '00000030'X ! SIZE OF PSTE/GSTE  !  ! ***** NOTE *****I ! All flags in the SECFLG structure must be kept in sync with flags in 0 ! sec$l_flags defined in the SECDEF structure. ! **************** ! % PARAMETER SECFLG$M_GBL = '00000001'X% PARAMETER SECFLG$M_CRF = '00000002'X& PARAMETER SECFLG$M_DZRO = '00000004'X% PARAMETER SECFLG$M_WRT = '00000008'X' PARAMETER SECFLG$M_SHMGS = '00000010'X( PARAMETER SECFLG$M_ARGS64 = '00000020'X( PARAMETER SECFLG$M_WRTMOD = '000000C0'X& PARAMETER SECFLG$M_AMOD = '00000300'X* PARAMETER SECFL G$M_UNCACHED = '00000400'X0 PARAMETER SECFLG$M_READ_ONLY_SHPT = '00000800'X, PARAMETER SECFLG$M_SHARED_PTS = '00001000'X& PARAMETER SECFLG$M_MRES = '00002000'X& PARAMETER SECFLG$M_PERM = '00004000'X( PARAMETER SECFLG$M_SYSGBL = '00008000'X( PARAMETER SECFLG$M_PFNMAP = '00010000'X( PARAMETER SECFLG$M_EXPREG = '00020000'X) PARAMETER SECFLG$M_PROTECT = '00040000'X( PARAMETER SECFLG$M_PAGFIL = '00080000'X) PARAMETER SECFLG$M_EXECUTE = '00100000'X+ PARAMETER SECFLG$M_NOPROTCHK = '00200000'X,  PARAMETER SECFLG$M_NO_OVERMAP = '00400000'X( PARAMETER SECFLG$M_INPROG = '00800000'X* PARAMETER SECFLG$M_PARANOID = '01000000'X* PARAMETER SECFLG$M_GRANHINT = '02000000'X, PARAMETER SECFLG$M_MRES_ALLOC = '04000000'X* PARAMETER SECFLG$M_RAD_HINT = '08000000'X STRUCTURE /SECDEF_FLAGS/ UNION MAPO INTEGER*2 SECFLG$W_SAVED_FLAGS ! FLAGS SAVED IN SECTION TABLE ENTRY END MAP MAPH INTEGER*4 SECFLG$L_FLAGS ! VARIOUS CONTROL FLAGS IN LOW WORD  END MAP MAP' PARAMETER SECFLG$S_GBL = 1< PARAMETER SECFLG$V_GBL = 0 ! GLOBAL SECTION ' PARAMETER SECFLG$S_CRF = 1? PARAMETER SECFLG$V_CRF = 1 ! COPY ON REFERENCE ( PARAMETER SECFLG$S_DZRO = 1: PARAMETER SECFLG$V_DZRO = 2 ! DEMAND ZERO ' PARAMETER SECFLG$S_WRT = 16 PARAMETER SECFLG$V_WRT = 3 ! WRITABLE ) PARAMETER SECFLG$S_SHMGS = 1K PAR AMETER SECFLG$V_SHMGS = 4 ! SHARED MEMORY GLOBAL SECTION* PARAMETER SECFLG$S_ARGS64 = 1I PARAMETER SECFLG$V_ARGS64 = 5 ! Arguments passed as quads* PARAMETER SECFLG$S_WRTMOD = 2N PARAMETER SECFLG$V_WRTMOD = 6 ! WRITE ACCESS MODE FOR SECTION ( PARAMETER SECFLG$S_AMOD = 2E PARAMETER SECFLG$V_AMOD = 8 ! ACCESS MODE OF SECTION , PARAMETER SECFLG$S_UNCACHED = 1M PARAMETER SECFLG$V_UNCACHED  = 10 ! PFN-map I/O space uncached.2 PARAMETER SECFLG$S_READ_ONLY_SHPT = 1` PARAMETER SECFLG$V_READ_ONLY_SHPT = 11 ! Shared page tables map section read-only. PARAMETER SECFLG$S_SHARED_PTS = 1R PARAMETER SECFLG$V_SHARED_PTS = 12 ! Section is a shared PT section( PARAMETER SECFLG$S_MRES = 1F PARAMETER SECFLG$V_MRES = 13 ! MEMORY RESIDENT SECTION( PARAMETER SECFLG$S_PERM = 1A PARAMETER SECFL G$V_PERM = 14 ! PERMANENT SECTION * PARAMETER SECFLG$S_SYSGBL = 1U PARAMETER SECFLG$V_SYSGBL = 15 ! 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL  ! L ! ***** THE FOLLOWING FLAGS ARE INDICATORS FOR PRIVATE AND GLOBAL SECTIONL ! ***** SYSTEM SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS LONGWORD  ! ***** FIELD. ! * PARAMETER SECFLG$S_PFNMAP = 1G PARAMETER SECFLG$V_PFNMAP = 16 ! MAP TO SPECIFIC PFN'S * PARAMETER SECFL G$S_EXPREG = 1S PARAMETER SECFLG$V_EXPREG = 17 ! MAP INTO FIRST FREE ADDRESS SPACE + PARAMETER SECFLG$S_PROTECT = 1S PARAMETER SECFLG$V_PROTECT = 18 ! CHECK WRITE ACCESS MODE (WRTMOD) * PARAMETER SECFLG$S_PAGFIL = 1\ PARAMETER SECFLG$V_PAGFIL = 19 ! GLOBAL SECTION HAS PAGE FILE BACKING STORE + PARAMETER SECFLG$S_EXECUTE = 1J PARAMETER SECFLG$V_EXECUTE = 20 ! CHECK FOR EXECUTE ACCESS-  PARAMETER SECFLG$S_NOPROTCHK = 1K PARAMETER SECFLG$V_NOPROTCHK = 21 ! INHIBIT PROTECTION CHECK. PARAMETER SECFLG$S_NO_OVERMAP = 1P PARAMETER SECFLG$V_NO_OVERMAP = 22 ! DON'T OVERMAP ADDRESS SPACE * PARAMETER SECFLG$S_INPROG = 1M PARAMETER SECFLG$V_INPROG = 23 ! Section creation in progress, PARAMETER SECFLG$S_PARANOID = 1G PARAMETER SECFLG$V_PARANOID = 24 ! Go into paranoia mode, PARAM ETER SECFLG$S_GRANHINT = 1K PARAMETER SECFLG$V_GRANHINT = 25 ! Allow enhanced GH regions. PARAMETER SECFLG$S_MRES_ALLOC = 1` PARAMETER SECFLG$V_MRES_ALLOC = 26 ! Allocate memory resident pages during create, PARAMETER SECFLG$S_RAD_HINT = 1R PARAMETER SECFLG$V_RAD_HINT = 27 ! Allocate pages based on RAD hint BYTE %FILL (4) END MAP END UNION END STRUCTURE ! SECDEF_FLAGSK PARAMETER SEC$K_MATALL = '00000000'X ! MATCH ALWAYS, USE GLOBAL SECTION J PARAMETER SEC$K_MATEQU = '00000001'X ! MATCH IF ISD$L_IDENT EQU GBL ID J PARAMETER SEC$K_MATLEQ = '00000002'X ! MATCH IF ISD$L_IDENT LEQ GBL ID  STRUCTURE /SECDEF1/ BYTE %FILL(1:25)6 BYTE SEC$B_AMOD ! ACCESS MODE OF SECTION  ! + ! MATCH CONTROL VIELD VALUES ! - ! BASE OF ZERO , INCR 1  END STRUCTURE ! SECDEF1 ! $ ! Definitions for $GETSECI service ! ; PARAMETER SECI$_CHAIN = '00000001'X ! Chained item block@ PARAMETER SECI$_GSMODE = '00000002'X ! Access mode of section0 PARAMETER SECI$_GSFLAGS = '00000003'X ! Flags= PARAMETER SECI$_GSNAME = '00000004'X ! Global section name? PARAMETER SECI$_GSIDENT = '00000005'X ! Global section ident@ PARAMETER SECI$_GSRELPAG = '00000006'X ! Relative page number ! ? ! Definitions for $UPDEC(W) AND $UPDSEC_64(W) system services ! . PARAMETER UPDFLG$M_WRT_MODIFIED = '00000001'X STRUCTURE /UPDSEC_FLAGS/ UNION MAP-  INTEGER*4 UPDFLG$L_FLAGS ! Flags  END MAP MAP0 PARAMETER UPDFLG$S_WRT_MODIFIED = 1Q PARAMETER UPDFLG$V_WRT_MODIFIED = 0 ! Write pages only if modified BYTE %FILL (1) END MAP END UNION END STRUCTURE ! UPDSEC_FLAGS!DEC$ END OPTIONS wwIΦ!*** MODULE $SECIDDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +7 ! Define the global section identification structure. ! -)  PARAMETER SECID$M_MINOR_ID = '00FFFFFF'X) PARAMETER SECID$M_MAJOR_ID = 'FF000000'X STRUCTURE /SECID/D INTEGER*4 SECID$L_MATCH ! Match control value, see secdef.h UNION MAP6 INTEGER*4 SECID$L_VERSION ! Version number END MAP MAP, PARAMETER SECID$S_MINOR_ID = 24M PARAMETER SECID$V_MINOR_ID = 0 ! Minor ID of version number+ PARAMETER SECID$S_MAJOR_ID = 8, PARAMETER SECID$V_MAJOR_ID = 24? BYTE %FILL (4) ! Minor ID of version number END MAP END UNION END STRUCTURE ! SECID; PARAMETER SECID$K_LENGTH = '00000008'X ! Length of SECID; PARAMETER SECID$C_LENGTH = '00000008'X ! Length of SECID!DEC$ END OPTIONS wwdIΦ$!*** MODULE $SECSRVDEF IDENT X-4 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN( PARAMETER SECSRV$K_SERVER = '00000001'X% PARAMETER SECSRV$K_CIA = '00000002'X' PARAMETER SECSRV$K_PROXY = '00000003'X) PARAMETER SECSRV$K_MAPPING = '00000004'X* PARAMETER SECSRV$K_SHUTDOWN = '00000001'X- PARAMETER SECSRV$K_PERFORMANCE = '00000002'X2 PARAMETER SECSRV$K_ZERO_PERFORMANCE = '00000003'X) PARAMETER SECSRV$K_RESTART = '00000004'X+ PARAMETER SECSRV$K_ADD_PROXY = '00000000'X. PARAMETER SECSRV$K_DELETE_PROXY = '00000001'X, PARAMETER SECSRV$K_SHOW_PROXY = '00000002'X. PARAMETER SECSRV$K_VERIFY_PROXY = '00000003'X. PARAMETER SECSRV$K_CREATE_PROXY = '00000004'X0 PARAMETER SECSRV$K_SC AN_INTRUSION = '00000005'X2 PARAMETER SECSRV$K_DELETE_INTRUSION = '00000006'X0 PARAMETER SECSRV$K_SHOW_INTRUSION = '00000007'X- PARAMETER SECSRV$K_STOP_SERVER = '00000008'X0 PARAMETER SECSRV$K_RESTART_SERVER = '00000009'X- PARAMETER SECSRV$K_ADD_MAPPING = '0000000A'X0 PARAMETER SECSRV$K_CREATE_MAPPING = '0000000B'X0 PARAMETER SECSRV$K_DEFINE_MAPPING = '0000000C'X0 PARAMETER SECSRV$K_DELETE_MAPPING = '0000000D'X0 PARAMETER SECSRV$K_MODIFY_MAPPING = '0000000E'X. PARAMETER SECSRV$K_SCAN_MAPPI NG = '0000000F'X0 PARAMETER SECSRV$K_LOOKUP_MAPPING = '00000010'X- PARAMETER SECSRV$K_MAX_SERVICE = '00000011'X( PARAMETER SECSRV$K_MAXMSG = '00002000'X- PARAMETER SECSRV$K_MAX_MESSAGE = '00002000'X6 PARAMETER SECSRV$K_REPLY_CONTEXT_LENGTH = '00000004'X/ PARAMETER SECSRV$M_IGNORE_RETURN = '00000001'X( PARAMETER SECSRV$M_FILL_1 = 'FFFFFFFE'X/ PARAMETER SECSRV$K_HEADER_LENGTH = '0000005C'X STRUCTURE /SECSRV$HEADER/$ INTEGER*4 SECSRV$L_MESSAGE_TYPE' INTEGER*4 SECSRV$L_MESSAGE_SUBTYPE# INTEGER*4 SECSRV$L_CALLERS_PID& INTEGER*4 SECSRV$L_RETURN_MAILBOX UNION MAP! INTEGER*4 SECSRV$L_FLAGS END MAP MAP1 PARAMETER SECSRV$S_IGNORE_RETURN = 11 PARAMETER SECSRV$V_IGNORE_RETURN = 0 BYTE %FILL (1) END MAP END UNION) INTEGER*2 SECSRV$W_USERNAME_SIZE INTEGER*2 %FILL. CHARACTER*32 SECSRV$T_USERNAME_STRING) BYTE SECSRV$B_TERMINAL_SIZE,  CHARACTER*15 SECSRV$T_TERMINAL_NAME' BYTE SECSRV$B_PRCNAM_SIZE* CHARACTER*15 SECSRV$T_PRCNAM_NAME' INTEGER*4 SECSRV$L_MESSAGE_CONTEXT END STRUCTURE ! SECSRV$HEADER& PARAMETER SECSRV$CLIENT = '96EE0001'X& PARAMETER SECSRV$OBJECT = '96EE0002'X- PARAMETER SECSRV$COMMUNICATION = '96EE0003'X!DEC$ END OPTIONS wwdΦ!*** MODULE $SECSRVMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:51.46 !  ! + SECSRVMSG.MSG ! + IDENT X-7 ! $ ! MESSAGE FILE FOR SECSRV FACILITY ! , ! VAX AND AXP STREAMS SHOULD BE IDENTICAL. !  ! REVISION HISTORY:+ ! X-7 JAH0342 JOHN A HARNEY 05-OCT-19993 ! ADD CLUSTER-WIDE INTRUSION DETECTION MESSAGES:- ! CIACRECLUDB CREATED CLUSTER DATABASE+ ! CIACRELOCDB CREATED LOCAL DATABASE4 ! CIAEXISTCLU USING EXISTING CLUSTER DATABASE2 ! CIAEXISTLOC USING EXISTING LOCAL DATABASE ! + ! X-6 JAH0298 JOHN A HARNEY 10-JUN-1998: ! REMOVE "try again later" FROM PROXYNOTACTIVE MESSAGE. ! + ! X-5 JAH0166 JOHN A HARNEY 14-NOV-1994 ! FIX MORE MESSAGE TEXT. ! + ! X-4 JAH0166 JOHN A HARNEY 09-NOV-1994= ! FIX MESSAGE TEXT AND SPELLING ERRORS AFTER REVIEW BY THE ! DOCUMENTATION GROUP.  ! a ! ** NOTE ** MAKE SURE WHEN YOU MODIFY THIS FILE THAT YOU ALSO MODIFY [SECSRV]SECSRVMSG_.ADA! ! TO MATCH YOUR CHANGES HERE.  ! ) PARAMETER SECSRV$_FACILITY = '000006EE'X ! 2 PARAMETER SECSRV$_SERVERRADIOACTIVE = '06EE9773'X ! . PARAMETER SECSRV$_SERVERRESTART = '06EE977B'X/ PARAMETER SECSRV$_SERVERSHUTDOWN = '06EE9783'X- PARAMETER SECSRV$_COULDNTSTART = '06EE978B'X/ PARAMETER SECSRV$_COULDNTRESTART = '06EE9793'X. PARAMETER SECSRV$_PROXYSHUTDOWN = '06EE979B'X, PARAMETER SECSRV$_CIASHUTDOWN = '06EE97A3'X1 PARAMETER SECSRV$_SERVERSTARTINGUP = '06EE97AB'X0 PARAMETER SECSRV$_PROXYSTARTINGUP = '06EE97B3'X . PARAMETER SECSRV$_CIASTARTINGUP = '06EE97BB'X) PARAMETER SECSRV$_INTRUDER = '06EE97C3'X( PARAMETER SECSRV$_SUSPECT = '06EE97CB'X. PARAMETER SECSRV$_CREATEPROXYDB = '06EE97D3'X. PARAMETER SECSRV$_PROXYMODIFIED = '06EE97DB'X2 PARAMETER SECSRV$_NOSCANNEDINTRUDER = '06EE97E3'X0 PARAMETER SECSRV$_INVALIDTERMNAME = '06EE97EB'X, PARAMETER SECSRV$_CIACRECLUDB = '06EE97F3'X, PARAMETER SECSRV$_CIACRELOCDB = '06EE97FB'X, PARAMETER SECSRV$_CIAEXISTCLU = '06EE9803'X, PARAMETER SECSRV$_CIAEXISTLOC = ' 06EE980B'X- PARAMETER SECSRV$_NORDPROXYREC = '06EEAEE0'X+ PARAMETER SECSRV$_NOSUCHUSER = '06EEC652'X. PARAMETER SECSRV$_DUPLICATEUSER = '06EEC65A'X. PARAMETER SECSRV$_INVALIDDELETE = '06EEC662'X- PARAMETER SECSRV$_UPDATEFAILED = '06EEC66A'X, PARAMETER SECSRV$_NOSUCHPROXY = '06EEC672'X0 PARAMETER SECSRV$_DBALREADYEXISTS = '06EEC67A'X- PARAMETER SECSRV$_TOOMANYUSERS = '06EEC682'X/ PARAMETER SECSRV$_BADNODENAMELEN = '06EEC68A'X. PARAMETER SECSRV$_BADREMUSERLEN = '06EEC692'X0 PARAMETER SEC SRV$_BADLOCALUSERLEN = '06EEC69A'X, PARAMETER SECSRV$_PROXYACTIVE = '06EEC6A2'X/ PARAMETER SECSRV$_PROXYNOTACTIVE = '06EEC6AA'X* PARAMETER SECSRV$_NOPROXYDB = '06EEC6B2'X; PARAMETER SECSRV$_NOSUCHINTRUDER = '06EEC6BA'X ! NOMATCH7 PARAMETER SECSRV$_CIADBEMPTY = '06EEC6C2'X ! DBEMPTY* PARAMETER SECSRV$_INSUFINFO = '06EEC6CA'X, PARAMETER SECSRV$_AUDITFAILED = '06EEC6D2'X- PARAMETER SECSRV$_ASSIGNFAILED = '06EEC6DA'X* PARAMETER SECSRV$_QIOFAILED = '06EEC6E2'X- PARAMETER SECSRV$_DASSGNFAI LED = '06EEC6EA'X+ PARAMETER SECSRV$_BADJOBTYPE = '06EEC6F2'X0 PARAMETER SECSRV$_SERVERNOTACTIVE = '06EEC6FA'X- PARAMETER SECSRV$_PROXYNOTOPEN = '06EEC702'X0 PARAMETER SECSRV$_PROXYTERMINATED = '06EEDDC4'X. PARAMETER SECSRV$_CIATERMINATED = '06EEDDCC'X1 PARAMETER SECSRV$_SERVERTERMINATED = '06EEDDD4'X- PARAMETER SECSRV$_CREMBXFAILED = '06EEDDDC'X( PARAMETER SECSRV$_RUNNING = '06EEDDE4'X+ PARAMETER SECSRV$_CONSTERROR = '06EEDDEC'X* PARAMETER SECSRV$_TASKERROR = '06EEDDF4'X1 PARAMETER SECSRV$_OUTCOMTERMINATED = '06EEDDFC'X4 PARAMETER SECSRV$_SRVREPLYTIMEOUT = '06EEDE04'X ! ! ADD TEMPORARY MESSAGES HERE. ! ( PARAMETER SECSRV$_CONVERT = '06EEF533'X2 PARAMETER SECSRV$_VERIFY_CONVERSION = '06EEF53B'X0 PARAMETER SECSRV$_CONVERT_SUCCESS = '06EEF543'X!DEC$ END OPTIONSwwdΦ!*** MODULE $SGPSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 7 ! GSD entry - P-section definition in shareable image ! # PARAMETER SGPS$M_PIC = '00000001'X# PARAMETER SGPS$M_LIB = '00000002'X# PARAMETER SGPS$M_OVR = '00000004'X# PARAMETER SGPS$M_REL = '00000008'X# PARAMETER SGPS$M_GBL = '00000010'X# PARAMETER SGPS$M_SHR = '00000020'X# PARAMETER SGPS$M_EXE = '00000040'X" PARAMETER SGPS$M_RD = '00000080'X# PARAMETER SGPS$M_WRT = '00000100'X# PARAMETER SGPS$M_VEC = '00000200'X% PARAMETER SGPS$M_NOMOD = '00000400'X# PARAMETER SGPS$M_COM = '00000800'X$ PARAMETER SGPS$K_NAME = '0000000D'X$ PARAMETER SGPS$C_NAME = '0000000D'X STRUCTURE /SGPSDEF/ UNION MAP0 BYTE SGPS$B_GSDTYP ! Typ field  END MAP MAP8 ! unsupported type CHARACTER*0 SGPS$T_START BYTE %FILL END MAP END UNION2 BYTE SGPS$B_ALIGN ! P-sect alignment UNION MAP2 INTEGER*2 SGPS$W_FLAGS ! P-sect flags  END MAP MAP% PARAMETER SGPS$S_PIC = 1? PARAMETER SGPS$V_PIC = 0 ! Position i ndependent % PARAMETER SGPS$S_LIB = 1A PARAMETER SGPS$V_LIB = 1 ! From a shareable image % PARAMETER SGPS$S_OVR = 1E PARAMETER SGPS$V_OVR = 2 ! Overlaid memory allocation % PARAMETER SGPS$S_REL = 16 PARAMETER SGPS$V_REL = 3 ! Relocatable % PARAMETER SGPS$S_GBL = 17 PARAMETER SGPS$V_GBL = 4 ! Global scope % PARAMETER SGPS$S_SHR = 14 PARAMETER SGPS$V_SHR = 5  ! Shareable % PARAMETER SGPS$S_EXE = 15 PARAMETER SGPS$V_EXE = 6 ! Executable $ PARAMETER SGPS$S_RD = 13 PARAMETER SGPS$V_RD = 7 ! Readable % PARAMETER SGPS$S_WRT = 14 PARAMETER SGPS$V_WRT = 8 ! Writeable % PARAMETER SGPS$S_VEC = 17 PARAMETER SGPS$V_VEC = 9 ! Vector psect ' PARAMETER SGPS$S_NOMOD = 1< PARAMETER SGPS$V_NOMOD = 10 ! Not stored into%  PARAMETER SGPS$S_COM = 1C PARAMETER SGPS$V_COM = 11 ! Associated with COMM sym BYTE %FILL (2) END MAP END UNIONC INTEGER*4 SGPS$L_ALLOC ! Length of this psect in shr image @ INTEGER*4 SGPS$L_BASE ! Base of this psect in shr image 8 BYTE SGPS$B_NAMLNG ! Length of p-sect name - CHARACTER*31 SGPS$T_NAME ! Name field  END STRUCTURE ! SGPSDEF!DEC$ END OPTIONS wwΦ!*** MODULE $SHRDEF ***: !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:19.14 ! ; ! SHRMSG.MSG - SYSTEM DEFINITION FILE FOR SHARED MESSAGES !  ! VERSION: 'X-13' ! M ! *************************************************************************M ! * *M ! * COPYRIGHT 2003 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *M ! *  *M ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR *M ! * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. *M ! * *M ! * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *M ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *M ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *M ! * COMMERCIAL LICENSE. *M ! * *M ! * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL *M ! * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION *M ! * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND *M ! * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PR ODUCTS *M ! * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING *M ! * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN *M ! * ADDITIONAL WARRANTY. *M ! * *M ! ************************************************************************* ! ++ ! - ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES ! ! ABSTRACT: ! > ! THIS FILE CONTAINS THE MDL SOURCE FOR THE SHARED MESSAGES. !  ! ENVIRONMENT: !  ! N/A !  ! -- !  ! 6 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! ( ! X-13 GP072104 GUY PELEG 21-JUL-2004 ! ADD SYMLINKERR. ! ( ! X-12 GP011104 GUY PELEG 11-JAN-2004 ! CHANGED TEXT OF MBXDEL. ! ( ! X-11 GP010604 GUY PELEG 06-JAN-2004/ ! ADD NEW MESSAGE TO SUPPORT DELETE/MAILBOX. ! ( ! X-10 GP022503 GUY PELEG 25-FEB-2003= ! ADD NEW MESSAGES TO SUPPORT B2B IN DELETE,COPY AND PURGE ! , ! X-9 TMS0357 TODD SCHOELLER 19-FEB-1998& ! ADD NOFIDS -- FIDS NOT PERMITTED. ! , ! X-8 TMS0317 TODD SCHOELLER 9-MAR-1997< ! ADD MESSAGES FOR HFS INVOLVING INABILITY FOR PROCESSING> ! FILES WITH DIDS AND FIDS (FILDID, FILFID, AND FILDIDFID). ! , ! X-7 RG40042 RAY GUZMAN 11-JAN-19919 ! ADD A MESSAGE BADFORMAT TO INDICATE A FILE FORMAT IS ! INCOMPATIBLE. ! . ! X-6 SEH0021 SUSAN E. HEIMBACH 14-DEC-19894 ! ADD MESSAGE NOMEANING; TO BE USED FOR QUEMAN'S 7 ! START/QUEUE/MANAGER COMMAND'S OBSOLETE QUALIFIERS.+ ! ADD OPENERR AND CLOSEERR. ! . ! X-5 SEH0011 SUSAN E. HEIMBACH 09-DEC-19888 ! ADD MESSAGE NOTDELETED; TO BE USED BY QUEMAN DELETE ! COMMANDS. ! $ ! X-4 RJS RON SOMMER 12-OCT_1987: ! ADD MESSAGE PRDCONT. COMMON LMF MESSAGE TO BE USED BY: ! SYSTEM LAYERED PRODUCTS WHEN LICENSE CHECK HAS FAILED) ! BUT PRODUCT EXECUTION IS CONTINUING. ! , ! X-3 AEW0002 ANNE E. WARNER 08-DEC-19869 ! ADD MESSAGES ANBIGANS AND INVALANS USED FOR /CONFIRM, ! IN COMMON QUALIFIER PACKAGE (LIBCQUAL). ! & ! X-2 CWH5002 CW HOBBS 30-MAY-1986" ! CORRECT SPELLING IN NOSUCHID. ! 2 ! V03-011 TSK0002 TAMAR KRICHEVSKY 28-MAR-1984 ! ADD NOSUCHID. ! E ! V03-010 AEW0001 ANNE E. WARNER 6-MAR-19840 ! ADD FILSPCSRCH AND NOSRCHLIST.K ! FILSPCSRCH - FILE SPECIFICATION CONTAINS A SEARCH LIST.G ! NOSRCHLST - COMMAND DOES NOT SUPPORT SEARCH LISTS.E ! BOTH MESSAGES ORIGINALLY IN [CLIUTL.SRC]SETDIR.B32. ! 1 ! V03-009 TSK0001 TAMAR KRICHEVSKY 8-FEB-1984 ! ADD QUALMISS. ! 5 ! V03-008 SHZ0004 STEPHEN H. ZALEWSKI, 28-FEB-1983 ! CHANGED TEXT OF NOFILPURG. ! 5 ! V03-007 SHZ0003 STEPHEN H. ZALEWSKI, 11-JAN-1983; ! ADD FILNOTACC. MAKE DELINTERR AND DIRTOBUSY OBSOLETE. ! 2 ! V03-006 SBL3006 STEVEN B. LIONEL, 19-NOV-1982 ! ADD NOFILES. ! 7 ! V03-005 MLJ0094 MARTIN L. JACK, 31-JUL-1982 23:18 ! ADD INVQUAVAL. ! < ! V03-004 SHZ0002 STEPHEN H. ZALEWSKI, 23-JUL-1982 16:402 ! ADDED TOTAL, PURGED, AND FILDELETED MESSAGES. ! / ! V03-003 BLS0152 BENN SCHREIBER 25-MAY-1982 ! ADD PRODNOTINS MESSAGE ! , ! V03-002 GAS0068 GERRY SMITH 31-MAR-1982 ! ADD NOTRUNC MESSAGE. ! 7 ! V03-001 MLJ0084 MARTIN L. JACK, 28-MAR-1982 14:48, ! CLEAN UP INITIAL CAPITALIZATION ERR ORS. ! G ! THESE MESSAGE CODES SHOULD NOT BE USED DIRECTLY BY A FACILITY SINCED ! THEY DO NOT CONTAIN A SUBSYSTEM (I.E., FACILITY) IDENTIFIER OR AJ ! SEVERITY CODE. USE THE FOLLOWING FORMULA TO CALCULATE ACTUAL FACILITY ! MESSAGE CODES.1 ! FACILITY MESSAGE CODE = COMMON MESSAGE CODE + ! FACILITY ID * 65536 + ! SEVERITY CODE& PARAMETER SHR$_FACILITY = '00000000'X' PARAMETER SHR$_APPENDEDB = '00001000'X' PARAMETER SHR$_APPENDEDR = '00001008'X% PARAMETER SHR$_BADBYTE = '00001010'X& PARAMETER SHR$_BADFIELD = '00001018'X% PARAMETER SHR$_BADLONG = '00001020'X% PARAMETER SHR$_BADWORD = '00001028'X# PARAMETER SHR$_BEGIN = '00001030'X$ PARAMETER SHR$_BEGIND = '00001038'X$ PARAMETER SHR$_BEGINT = '00001040'X# PARAMETER SHR$_CLICB = '00001048'X% PARAMETER SHR$_CLOSEIN = '00001050'X& PARAMETER SHR$_CLOSEOUT = '00001058'X% PARAMETER SHR$_COPIEDB = '00001060'X% PARAMETER SHR$_COPIEDR = '00001068'X% PARAMETER SHR$_CREATED = '00001070'X# PARAMETER SHR$_ENDED = '00001078'X$ PARAMETER SHR$_ENDEDD = '00001080'X$ PARAMETER SHR$_ENDEDT = '00001088'X& PARAMETER SHR$_NEWFILES = '00001090'X$ PARAMETER SHR$_OPENIN = '00001098'X% PARAMETER SHR$_OPENOUT = '000010A0'X% PARAMETER SHR$_OVERLAY = '000010A8'X% PARAMETER SHR$_READERR = '000010B0'X& PARAMETER SHR$_REPLACED = '000010B8'X( PARAMETER SHR$_WILDCONCAT = '000010C0'X( PARAMETER SHR$_WILDOUTVER = '000010C8'X& PARAMETER SHR$_WRITEERR = '000010D0'X# PARAMETER SHR$_ABEND = '000010D8'X$ PARAMETER SHR$_ABENDD = '000010E0'X$ PARAMETER SHR$_ABENDT = '000010E8'X( PARAMETER SHR$_SYSERRORPC = '000010F0'X$ PARAMETER SHR$_SYNTAX = '000010F8'X% PARAMETER SHR$_NOVALUE = '00001100'X$ PARAMETER SHR$_BADKEY = '00001108'X& PARAMETER SHR$_BADVALUE = '00001110'X& PARAMETER SHR$_BADDELIM = '00001118'X& PARAMETER SHR$_BADLOGIC = '00001120'X$ PARAMETER SHR$_NOWILD = '00001128'X" PARAMETER SHR$_TEXT = '00001130'X' PARAMETER SHR$_IDXCONCAT = '00001138'X' PARAMETER SHR$_RELCONCAT = '00001140'X% PARAM ETER SHR$_HIGHVER = '00001148'X( PARAMETER SHR$_BADLOGICPC = '00001150'X" PARAMETER SHR$_ATPC = '00001158'X' PARAMETER SHR$_BADCOPIES = '00001160'X% PARAMETER SHR$_BADFORM = '00001168'X& PARAMETER SHR$_BADJOBID = '00001170'X( PARAMETER SHR$_BADJOBNAME = '00001178'X% PARAMETER SHR$_BADPRTY = '00001180'X& PARAMETER SHR$_BADQNAME = '00001188'X% PARAMETER SHR$_BADTIME = '00001190'X% PARAMETER SHR$_NOQUEUE = '00001198'X% PARAMETER SHR$_NOJOBID = '000011A0'X' PARAMETER SHR$_NOJOBNAME = '000011A8'X& PARAMETER SHR$_SYSERROR = '000011B0'X' PARAMETER SHR$_NOTCOPIED = '000011B8'X& PARAMETER SHR$_NOTCMPLT = '000011C0'X& PARAMETER SHR$_RMSERROR = '000011C8'X' PARAMETER SHR$_UNXPCTSTS = '000011D0'X( PARAMETER SHR$_HASHCONCAT = '000011D8'X& PARAMETER SHR$_INCOMPAT = '000011E0'X$ PARAMETER SHR$_VALERR = '000011E8'X' PARAMETER SHR$_FILNOTDEL = '000011F0'X% PARAMETER SHR$_CONFDEL = '000011F8'X% PARAMETER SHR$_DELETED = '00001200'X$ PARAMETER SHR$_DELVER = '00001208'X& PARAMETER  SHR$_PURGEVER = '00001210'X& PARAMETER SHR$_CLOSEDEL = '00001218'X' PARAMETER SHR$_DIRTOOBUS = '00001220'X' PARAMETER SHR$_NOFILPURG = '00001228'X' PARAMETER SHR$_FILNOTPUR = '00001230'X( PARAMETER SHR$_SEARCHFAIL = '00001238'X' PARAMETER SHR$_DELINTERR = '00001240'X' PARAMETER SHR$_PARSEFAIL = '00001248'X' PARAMETER SHR$_FILPURGED = '00001250'X& PARAMETER SHR$_ENDABORT = '00001258'X& PARAMETER SHR$_ENDDIAGS = '00001260'X& PARAMETER SHR$_ENDNOOBJ = '00001268'X$ PARAMETER SHR$_HALTED = '00001270'X& PARAMETER SHR$_NOCMDMEM = '00001278'X$ PARAMETER SHR$_QEMPTY = '00001280'X! PARAMETER SHR$_CBT = '00001288'X$ PARAMETER SHR$_EXISTS = '00001290'X& PARAMETER SHR$_UNLOCKED = '00001298'X% PARAMETER SHR$_RENAMED = '000012A0'X' PARAMETER SHR$_PROTECTED = '000012A8'X' PARAMETER SHR$_NOTLOCKED = '000012B0'X& PARAMETER SHR$_ACTIMAGE = '000012B8'X' PARAMETER SHR$_DIRNOTCRE = '000012C0'X' PARAMETER SHR$_NODESTQUE = '000012C8'X' PARAMETER SHR$_ILLDESQUE = '000012D0'X% PARAMET ER SHR$_NOTTERM = '000012D8'X& PARAMETER SHR$_CONFQUAL = '000012E0'X( PARAMETER SHR$_ILLDIRCOPY = '000012E8'X' PARAMETER SHR$_INSVIRMEM = '000012F0'X( PARAMETER SHR$_CREATEDSTM = '000012F8'X% PARAMETER SHR$_NOTRUNC = '00001300'X( PARAMETER SHR$_PRODNOTINS = '00001308'X# PARAMETER SHR$_TOTAL = '00001310'X% PARAMETER SHR$_FILPURG = '00001318'X$ PARAMETER SHR$_FILDEL = '00001320'X' PARAMETER SHR$_INVQUAVAL = '00001328'X% PARAMETER SHR$_NOFILES = '00001330'X' PARAMETER SHR$_FILNOTACC = '00001338'X& PARAMETER SHR$_QUALMISS = '00001340'X( PARAMETER SHR$_FILSPCSRCH = '00001348'X' PARAMETER SHR$_NOSRCHLST = '00001350'X& PARAMETER SHR$_NOSUCHID = '00001358'X& PARAMETER SHR$_AMBIGANS = '00001360'X& PARAMETER SHR$_INVALANS = '00001368'X% PARAMETER SHR$_PRDCONT = '00001370'X( PARAMETER SHR$_NOTDELETED = '00001378'X' PARAMETER SHR$_NOMEANING = '00001380'X% PARAMETER SHR$_OPENERR = '00001388'X& PARAMETER SHR$_CLOSEERR = '00001390'X' PARAMETER SHR$_BADFORMAT = '00001398'X$ PARAMETER SHR$_FILDID = '000013A0'X$ PARAMETER SHR$_FILFID = '000013A8'X' PARAMETER SHR$_FILDIDFID = '000013B0'X$ PARAMETER SHR$_NOFIDS = '000013B8'X( PARAMETER SHR$_FILPURGBYT = '000013C0'X' PARAMETER SHR$_FILDELBYT = '000013C8'X& PARAMETER SHR$_TOTALBYT = '000013D0'X' PARAMETER SHR$_COPIEDBYT = '000013D8'X) PARAMETER SHR$_APPENDEDBYT = '000013E0'X$ PARAMETER SHR$_MBXDEL = '000013E8'X( PARAMETER SHR$_SYMLINKERR = '000013F0'X!DEC$ END OPTIONSww(IΦ!*** MODULE $SJCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 9 ! Send to Job Controller Service ($SNDJBC) definitions. ! V ! NOTE: New items must always be added at the end so users will not have to relink. !  !  ! Function codes ! H PARAMETER SJC$_ABORT_JOB = '00000001'X ! Abort current job in a queueD PARAMETER SJC$_ADD_FILE = '00000002'X ! Add a file to an open jobE PARAMETER SJC$_ALTER_JOB = '00000003'X ! Alter parameters of a jobI PARAMETER SJC$_ALTER_QUEUE = '00000004'X ! Alter parameters of a queue[ PARAMETER SJC$_ASSIGN_QUEUE = '00000005'X ! Assign a logical queue to an execution queueX PARAMETER SJC$_BATCH_CHECKPOINT = '00000006'X ! Establish a checkpoint in a batch jobF PARAMETER SJC$_BATCH_SERVICE = '00000007'X ! LOGINOUT communicationK PARAMETER SJC$_CLOSE_DELETE = '00000008'X ! Close and delete an open jobI PARAMETER SJC$_CLOSE_JOB = '00000009'X ! Close and enqueue an open job? PARAMETER SJC$_CREATE_JOB = '0000000A'X ! Create an open job= PARAMETER SJC$_CREATE_QUEUE = '0000000B'X ! Create a queueI PARAMETER SJC$_DEASSIGN_QUEUE = '0000000C'X ! Deassign a logical queueZ PARAMETER SJC$_DEFINE_CHARACTERISTIC = '0000000D'X ! Create a characteristic definitionF PARAMETER SJC$_DEFINE_FORM = '0000000E'X ! Create a form definitionZ PARAMETER SJC$_DELETE_CHARACTERISTIC = '0000000F'X ! Delete a characteristic definitionF PARAMETER SJC$_DELETE_FORM = '00000010'X ! Delete a form definition9 PARAMETER SJC$_DELETE_JOB = '00000011'X ! Delete a job= PARAMETER SJC$_DELETE_QUEUE = '00000012'X ! Delete a queueO PARAMETER SJC$_ENTER_FILE = '00000013'X ! Enter a single file job in a queueV PARAMETER SJC$_MERGE_QUEUE = '00000014'X ! Requeue all jobs in one queue to anotherM PARAMETER SJC$_PAUSE_QUEUE = '00000015'X ! Suspend processing from a queue; PARAMETER SJC$_RESET_QUEUE = '00000016'X ! Reset a queueK PARAMETER SJC$_START_ACCOUNTING = '00000017'X ! Start accounting managerL PARAMETER SJC$_START_QUEUE = '00000018'X ! Start processing from a queue T PARAMETER SJC$_START_QUEUE_MANAGER = '00000019'X ! Start system job queue managerI PARAMETER SJC$_STOP_ACCOUNTING = '0000001A'X ! Stop accounting managerI PARAMETER SJC$_STOP_QUEUE = '0000001B'X ! Stop processing from a queueR PARAMETER SJC$_STOP_QUEUE_MANAGER = '0000001C'X ! Stop system job queue managerQ PARAMETER SJC$_SYNCHRONIZE_JOB = '0000001D'X ! Synchronize with job completionO PARAMETER SJC$_WRITE_ACCOUNTING = '0000001E'X ! Write user accounting recordd PARAMETER SJC$_CONTROL_DIAGNOSTICS = '0000001F'X ! Control diagnostic functions (for internal useZ ! (note this function code is intentionally not documented and reserved for Digital use)d PARAMETER SJC$_DELETE_QUEUE_MANAGER = '00000020'X ! Remove all references to specified qmgr from C ! Remove all references to specified qmgr from shared master Y PARAMETER SJC$_ALTER_FILE = '00000021'X ! Modify the processing of a file within a jobd PARAMETER SJC$_STOP_ALL_QUEUES_ON_NODE = '00000022'X ! Stop all batch/print job processing on theZ PARAMETER SJC$_DISABLE_QUEUE = '00000023'X ! Cause all QSIs on the queue to be inactiveS PARAMETER SJC$_ENABLE_QUEUE = '00000024'X ! Allow disabled queue to be restartedN PARAMETER SJC$_SYMBIONT_SERVICE = '00000025'X ! Symbiont-Qman communicationJ PARAMETER SJC$_JOBCTL_SERVICE = '00000026'X ! Jobctl-Qman communicationd PARAMETER SJC$_ENABLE_AUTOSTART = '00000027'X ! Start all AUTOSTART queues on node and allow queuC ! Start all AUTOSTART queues on node and allow queues to faild PARAMETER SJC$_DISABLE_AUTOSTART = '00000028'X ! Prevent AUTOSTART queues from failing over to thc PARAMETER SJC$_SHUTDOWN_NODE = '00000029'X ! Perform orderly shutdown of queuing system on node.d PARAMETER SJC$_RESERVED_FUNC_42 = '0000002A'X ! Reserved for Digital use (name may change) ReservC ! Reserved for Digital use (name may change) Reserved by secu] PARAMETER SJC$_RESERVED_FUNC_43 = '0000002B'X ! Reserved for Digital use (name may change)] PARAMETER SJC$_RESERVED_FUNC_44 = '0000002C'X ! Reserved for Digital use (name may change)] PARAMETER SJC$_RESERVED_FUNC_45 = '0000002D'X ! Reserved for Digital use (name may change)] PARAMETER SJC$_RESERVED_FUNC_46 = '0000002E'X ! Reserved for Digital use (name may change)] PARAMETER SJC$_RESERVED_FUNC_47 = '0000002F'X ! Reserved for Digital use (name may change)] PARAMETER SJC$_RESERVED_FUNC_48 = '00000030'X ! Reserved for Digital use (name may change)] PARAMETER SJC$_RESERVED_FUNC_49 = '00000031'X ! Reserved for Digital use (name may change)] PARAMETER SJC$_RESERVED_FUNC_50 = '00000032'X ! Reserved for Digital use (name may change)H PARAMETER SJC$K_MIN_FUNC = '00000001'X ! Minimum SNDJBC function codeH PARAMETER SJC$K_MAX_FUNC = '00000032'X ! Maximum SNDJBC function code !  ! Item codes ! L PARAMETER SJC$_ACCOUNTING_MESSAGE = '00000001'X ! User accounting messageR PARAMETER S JC$_ACCOUNTING_TYPES = '00000002'X ! Mask of accounting record types< PARAMETER SJC$_AFTER_TIME = '00000003'X ! Hold until time+ PARAMETER SJC$_NO_AFTER_TIME = '00000004'XD PARAMETER SJC$_ALIGNMENT_MASK = '00000005'X ! Mask alignment dataK PARAMETER SJC$_ALIGNMENT_PAGES = '00000006'X ! Number of alignment pagesK PARAMETER SJC$_BASE_PRIORITY = '00000007'X ! Batch process base priority3 PARAMETER SJC$_BATCH = '00000008'X ! Batch queue& PARAMETER SJC$_NO_BATCH = '00000009'Xc PARAMETER SJC$_BATCH_INPUT = '0000000A'X ! LOGINOUT communication (Retired, see SERVICE_INPUT)d PARAMETER SJC$_BATCH_OUTPUT = '0000000B'X ! For use by LOGINOUT (for internal use only) (RetiredC ! For use by LOGINOUT (for internal use only) (Retired, see V ! (note this item code is intentionally not documented and reserved for Digital use)L PARAMETER SJC$_CHARACTERISTIC_NAME = '0000000C'X ! Printer characteristic3 PARAMETER SJC$_CHARACTERISTIC_NUMBER = '0000000D'X0 PARAMETER SJC$_NO _CHARACTERISTICS = '0000000E'XI PARAMETER SJC$_CHECKPOINT_DATA = '0000000F'X ! Batch checkpoint string0 PARAMETER SJC$_NO_CHECKPOINT_DATA = '00000010'X7 PARAMETER SJC$_CLI = '00000011'X ! Batch process CLI$ PARAMETER SJC$_NO_CLI = '00000012'XD PARAMETER SJC$_CPU_DEFAULT = '00000013'X ! Default CPU time limit, PARAMETER SJC$_NO_CPU_DEFAULT = '00000014'XB PARAMETER SJC$_CPU_LIMIT = '00000015'X ! Maximum CPU time limit* PARAMETER SJC$_NO_CPU_LIMIT = '00000016'XI PARAMETER SJC$_CREATE_S TART = '00000017'X ! Start queue after creationJ PARAMETER SJC$_DELETE_FILE = '00000018'X ! Delete file after processing, PARAMETER SJC$_NO_DELETE_FILE = '00000019'XJ PARAMETER SJC$_DESTINATION_QUEUE = '0000001A'X ! Destination queue name@ PARAMETER SJC$_DEVICE_NAME = '0000001B'X ! Output device nameB PARAMETER SJC$_DOUBLE_SPACE = '0000001C'X ! Double space output- PARAMETER SJC$_NO_DOUBLE_SPACE = '0000001D'X? PARAMETER SJC$_ENTRY_NUMBER = '0000001E'X ! Job entry number1 PARAMET ER SJC$_ENTRY_NUMBER_OUTPUT = '0000001F'XB PARAMETER SJC$_FILE_BURST = '00000020'X ! Print file burst page, PARAMETER SJC$_FILE_BURST_ONE = '00000021'X+ PARAMETER SJC$_NO_FILE_BURST = '00000022'XD PARAMETER SJC$_FILE_COPIES = '00000023'X ! Print n copies of file@ PARAMETER SJC$_FILE_FLAG = '00000024'X ! Print file flag page+ PARAMETER SJC$_FILE_FLAG_ONE = '00000025'X* PARAMETER SJC$_NO_FILE_FLAG = '00000026'XK PARAMETER SJC$_FILE_IDENTIFICATION = '00000027'X ! DVI, FID, DID of file T PARAMETER SJC$_FILE_SETUP_MODULES = '00000028'X ! Device control modules for file3 PARAMETER SJC$_NO_FILE_SETUP_MODULES = '00000029'XO PARAMETER SJC$_FILE_SPECIFICATION = '0000002A'X ! File specification of fileF PARAMETER SJC$_FILE_TRAILER = '0000002B'X ! Print file trailer page. PARAMETER SJC$_FILE_TRAILER_ONE = '0000002C'X- PARAMETER SJC$_NO_FILE_TRAILER = '0000002D'XA PARAMETER SJC$_FIRST_PAGE = '0000002E'X ! Starting page number+ PARAMETER SJC$_NO_FIRST_PAGE = '0000002F'XN  PARAMETER SJC$_FORM_DESCRIPTION = '00000030'X ! Textual description of formB PARAMETER SJC$_FORM_LENGTH = '00000031'X ! Form length in linesP PARAMETER SJC$_FORM_MARGIN_BOTTOM = '00000032'X ! Form bottom margin in linesQ PARAMETER SJC$_FORM_MARGIN_LEFT = '00000033'X ! Form left margin in charactersS PARAMETER SJC$_FORM_MARGIN_RIGHT = '00000034'X ! Form right margin in charactersJ PARAMETER SJC$_FORM_MARGIN_TOP = '00000035'X ! Form top margin in lines8 PARAMETER SJC$_FORM_NAME = '0 0000036'X ! Printer form) PARAMETER SJC$_FORM_NUMBER = '00000037'XT PARAMETER SJC$_FORM_SETUP_MODULES = '00000038'X ! Device control modules for form3 PARAMETER SJC$_NO_FORM_SETUP_MODULES = '00000039'XC PARAMETER SJC$_FORM_SHEET_FEED = '0000003A'X ! Form is sheet fed0 PARAMETER SJC$_NO_FORM_SHEET_FEED = '0000003B'X@ PARAMETER SJC$_FORM_STOCK = '0000003C'X ! Stock name for formC PARAMETER SJC$_FORM_TRUNCATE = '0000003D'X ! Truncate long lines. PARAMETER SJC$_NO_FORM_TRUNCATE = '00 00003E'XE PARAMETER SJC$_FORM_WIDTH = '0000003F'X ! Form width in characters; PARAMETER SJC$_FORM_WRAP = '00000040'X ! Wrap long lines* PARAMETER SJC$_NO_FORM_WRAP = '00000041'XH PARAMETER SJC$_GENERIC_QUEUE = '00000042'X ! Queue is a generic queue. PARAMETER SJC$_NO_GENERIC_QUEUE = '00000043'XZ PARAMETER SJC$_GENERIC_SELECTION = '00000044'X ! Queue can take work from generic queue2 PARAMETER SJC$_NO_GENERIC_SELECTION = '00000045'X[ PARAMETER SJC$_GENERIC_TARGET = '00000046'X ! Pos sible execution queue for generic queue8 PARAMETER SJC$_HOLD = '00000047'X ! Place job on hold% PARAMETER SJC$_NO_HOLD = '00000048'X@ PARAMETER SJC$_JOB_BURST = '00000049'X ! Print job burst page* PARAMETER SJC$_NO_JOB_BURST = '0000004A'XI PARAMETER SJC$_JOB_COPIES = '0000004B'X ! Print n copies of entire job> PARAMETER SJC$_JOB_FLAG = '0000004C'X ! Print job flag page) PARAMETER SJC$_NO_JOB_FLAG = '0000004D'XE PARAMETER SJC$_JOB_LIMIT = '0000004E'X ! Number of concurrent jobsB PARAMETER SJC$_JOB_NAME = '0000004F'X ! Identifying name of jobW PARAMETER SJC$_JOB_RESET_MODULES = '00000050'X ! Device control modules between jobs2 PARAMETER SJC$_NO_JOB_RESET_MODULES = '00000051'XR PARAMETER SJC$_JOB_SIZE_MAXIMUM = '00000052'X ! Largest job accepted by printer1 PARAMETER SJC$_NO_JOB_SIZE_MAXIMUM = '00000053'XS PARAMETER SJC$_JOB_SIZE_MINIMUM = '00000054'X ! Smallest job accepted by printer1 PARAMETER SJC$_NO_JOB_SIZE_MINIMUM = '00000055'XU PARAMETER SJC$_JOB_SIZE_SCHEDULING = '00000056'X ! Schedule printer queues by size4 PARAMETER SJC$_NO_JOB_SIZE_SCHEDULING = '00000057'XT PARAMETER SJC$_JOB_STATUS_OUTPUT = '00000058'X ! Status message for submitted jobD PARAMETER SJC$_JOB_TRAILER = '00000059'X ! Print job trailer page, PARAMETER SJC$_NO_JOB_TRAILER = '0000005A'X> PARAMETER SJC$_LAST_PAGE = '0000005B'X ! Ending page number* PARAMETER SJC$_NO_LAST_PAGE = '0000005C'XZ PARAMETER SJC$_LIBRARY_SPECIFICATION = '0000005D'X ! Filename of device c ontrol library6 PARAMETER SJC$_NO_LIBRARY_SPECIFICATION = '0000005E'X< PARAMETER SJC$_LOG_DELETE = '0000005F'X ! Delete log file+ PARAMETER SJC$_NO_LOG_DELETE = '00000060'XB PARAMETER SJC$_LOG_QUEUE = '00000061'X ! Log file's print queueR PARAMETER SJC$_LOG_SPECIFICATION = '00000062'X ! File specification of log file2 PARAMETER SJC$_NO_LOG_SPECIFICATION = '00000063'X: PARAMETER SJC$_LOG_SPOOL = '00000064'X ! Print log file* PARAMETER SJC$_NO_LOG_SPOOL = '00000065'XF PARAMETER SJC$_LO WERCASE = '00000066'X ! Print on lowercase printer* PARAMETER SJC$_NO_LOWERCASE = '00000067'XH PARAMETER SJC$_NEW_VERSION = '00000068'X ! Create new version of file= PARAMETER SJC$_NEXT_JOB = '00000069'X ! Resume at next job: PARAMETER SJC$_NOTE = '0000006A'X ! Flag page note text% PARAMETER SJC$_NO_NOTE = '0000006B'XF PARAMETER SJC$_NOTIFY = '0000006C'X ! Notify user on job completionV PARAMETER SJC$_NO_NOTIFY = '0000006D'X ! Don't notify user on completion (for jobs)8 ! Don't notify user on interruption (for print queues)H PARAMETER SJC$_OPERATOR_REQUEST = '0000006E'X ! Operator service text1 PARAMETER SJC$_NO_OPERATOR_REQUEST = '0000006F'X; PARAMETER SJC$_OWNER_UIC = '00000070'X ! Queue owner UIC@ PARAMETER SJC$_PAGE_HEADER = '00000071'X ! Print page headers, PARAMETER SJC$_NO_PAGE_HEADER = '00000072'XY PARAMETER SJC$_PAGE_SETUP_MODULES = '00000073'X ! Device control modules for form page3 PARAMETER SJC$_NO_PAGE_SETUP_MODULES = '00000074'XO PARAMETER S JC$_PAGINATE = '00000075'X ! Paginate output with free form feeds) PARAMETER SJC$_NO_PAGINATE = '00000076'XB PARAMETER SJC$_PARAMETER_1 = '00000077'X ! Batch job parameters) PARAMETER SJC$_PARAMETER_2 = '00000078'X) PARAMETER SJC$_PARAMETER_3 = '00000079'X) PARAMETER SJC$_PARAMETER_4 = '0000007A'X) PARAMETER SJC$_PARAMETER_5 = '0000007B'X) PARAMETER SJC$_PARAMETER_6 = '0000007C'X) PARAMETER SJC$_PARAMETER_7 = '0000007D'X) PARAMETER SJC$_PARAMETER_8 = '0000007E'X+ PARAMETER SJC$_ NO_PARAMETERS = '0000007F'X< PARAMETER SJC$_PASSALL = '00000080'X ! Print file passall( PARAMETER SJC$_NO_PASSALL = '00000081'XB PARAMETER SJC$_PRIORITY = '00000082'X ! Job scheduling priorityF PARAMETER SJC$_PROCESSOR = '00000083'X ! Filename of symbiont image* PARAMETER SJC$_NO_PROCESSOR = '00000084'XB PARAMETER SJC$_PROTECTION = '00000085'X ! Queue protection maskA PARAMETER SJC$_QUEUE = '00000086'X ! Queue on which to operate[ PARAMETER SJC$_QUEUE_FILE_SPECIFICATION = '00000087 'X ! File specification of queue fileR PARAMETER SJC$_RELATIVE_PAGE = '00000088'X ! Resume after forward or back space5 PARAMETER SJC$_REQUEUE = '00000089'X ! Requeue job9 PARAMETER SJC$_RESTART = '0000008A'X ! Job can restart( PARAMETER SJC$_NO_RESTART = '0000008B'XG PARAMETER SJC$_RETAIN_ALL_JOBS = '0000008C'X ! Retain completed jobs/ PARAMETER SJC$_RETAIN_ERROR_JOBS = '0000008D'X, PARAMETER SJC$_NO_RETAIN_JOBS = '0000008E'XJ PARAMETER SJC$_SCSNODE_NAME = '0000008F'X ! Node name of execution nodeK PARAMETER SJC$_SEARCH_STRING = '00000090'X ! Resume after finding string; PARAMETER SJC$_SWAP = '00000091'X ! Swap batch processes% PARAMETER SJC$_NO_SWAP = '00000092'XN PARAMETER SJC$_TERMINAL = '00000093'X ! Queue is a (generic) terminal queue) PARAMETER SJC$_NO_TERMINAL = '00000094'XC PARAMETER SJC$_TOP_OF_FILE = '00000095'X ! Resume at top of filed PARAMETER SJC$_USER_IDENTIFICATION = '00000096'X ! Proxy user identification (not supported and iV ! (n ote this item code is intentionally not documented and reserved for Digital use)? PARAMETER SJC$_WSDEFAULT = '00000097'X ! Working set default* PARAMETER SJC$_NO_WSDEFAULT = '00000098'X= PARAMETER SJC$_WSEXTENT = '00000099'X ! Working set extent) PARAMETER SJC$_NO_WSEXTENT = '0000009A'X; PARAMETER SJC$_WSQUOTA = '0000009B'X ! Working set quota( PARAMETER SJC$_NO_WSQUOTA = '0000009C'X] PARAMETER SJC$_ACCOUNT_NAME = '0000009D'X ! Proxy account name (requires CMKRNL privilege)K PARAMETER SJC$_UIC = '0000009E'X ! Proxy UIC (requires CMKRNL privilege)U PARAMETER SJC$_USERNAME = '0000009F'X ! Proxy username (requires CMKRNL privilege)O PARAMETER SJC$_BUFFER_COUNT = '000000A0'X ! Multibuffer count for queue file_ PARAMETER SJC$_EXTEND_QUANTITY = '000000A1'X ! Allocation and extend quantity for queue file[ PARAMETER SJC$_RECORD_BLOCKING = '000000A2'X ! Symbiont record blocking of output stream0 PARAMETER SJC$_NO_RECORD_BLOCKING = '000000A3'Xd PARAMETER SJC$_QUEMAN_RESTART = '000000A4'X ! qualifier on SJC$_START_QUEUE_MANAGER, restart queuC ! qualifier on SJC$_START_QUEUE_MANAGER, restart queue manage/ PARAMETER SJC$_NO_QUEMAN_RESTART = '000000A5'XK PARAMETER SJC$_DEFAULT_FORM_NAME = '000000A6'X ! Default queue form nameO PARAMETER SJC$_DEFAULT_FORM_NUMBER = '000000A7'X ! Default queue form numberd PARAMETER SJC$_SECURITY_CLASSIFICATION = '000000A8'X ! Used by SeVMS to specify security classifiV ! (note this item code is intentionally not documented and reserved for Digital use)D PARAMETER SJC$_QUEUE_SUPPORT = '000000A9'X ! Queue Support Imagesd PARAMETER SJC$_JOB_COMPLETION_STATUS = '000000AA'X ! Status of completed job - this buffer is useC ! Status of completed job - this buffer is used instead of IOd PARAMETER SJC$_DIAGNOSTIC_BUFFER_OUTPUT = '000000AB'X ! Job controller's in-memory diagnostic bufC ! Job controller's in-memory diagnostic buffer (for internal V ! (note this item code is intentionally not documented and reserved for Digital use)N PARAMETER SJC$_OPEN_QUEUE = '000000AC'X ! Open queue - allow job submissionW PARAMETER SJC$_CLOSE_QUEUE = '000000AD'X ! Close queue - do not allow job submission5 PARAMETER SJC$_SERVER = '000000AE'X ! Server queue7 PARAMETER SJC$_PRINTER = '000000AF'X ! Printer queued PARAMETER SJC$_UPDATE_ORB = '000000B0'X ! Update ORB information in queue file (for internal use C ! Update ORB information in queue file (for internal use onlyV ! (note this item code is intentionally not documented and reserved for Digital use)T PARAMETER SJC$_NO_QUEUE_DESCRIPTION = '000000B1'X ! No queue description supplied< PARAMETER SJC$_JOB_RETAIN = '000000B2'X ! Retain this jobK PARAMETER SJC$_JOB_ERROR_RETAIN = '000000B3'X ! Retain this job on errorV PARAMETER SJC$_JOB_DEFAULT_RETAIN = '000000B4'X ! Use queue's job retention settingf PARAMETER SJC$_NOTIFY_ON_INTERRUPT = '000000B5'X ! Notify users if their print jobs are interruptedS PARAMETER SJC$_NO_RAD = '000000B6'X ! Reserved for Digital use (name may change)d PARAMETER SJC$_ACCEPT_ALL_ATTRIBUTES = '000000B7'X ! Inhibits queue manager validation of QSI keyc PARAMETER SJC$_DIAGNOSTIC_FLAGS = '000000B8'X ! Diagnostic flags bitmask (for internal use only)V ! (note this item code is intentionally not documented and reserved for Digital use)E PARAMETER SJC$_QUEUE_DESCRIPTION = '000000B9'X ! Queue descriptiond PARAMETER SJC$_CHECKPOINT_FREQUENCY = '000000BA'X ! Symbiont ta kes checkpoint at intervals of thid PARAMETER SJC$_DISPLAY_USERNAME = '000000BB'X ! Used by DQS to pass a username to the remote systC ! Used by DQS to pass a username to the remote system (symbolV ! (note this item code is intentionally not documented and reserved for Digital use)M PARAMETER SJC$_FILE_NUMBER = '000000BC'X ! File sequence number within jobd PARAMETER SJC$_FILE_ATTRIBUTE = '000000BD'X ! "Keyword = (optional) value" for extensible attrib d PARAMETER SJC$_JOB_ATTRIBUT!E = '000000BE'X ! "Keyword = (optional) value" for extensible attrib od PARAMETER SJC$_QUEUE_ATTRIBUTE = '000000BF'X ! "Keyword = (optional) value" for extensible attribd PARAMETER SJC$_REMOVE_ATTRIBUTE = '000000C0'X ! Remove extensible attribs for queue, job, or fileJ PARAMETER SJC$_QUEUE_MANAGER_NAME = '000000C1'X ! Queue manager processd PARAMETER SJC$_QUEUE_MANAGER_NODES = '000000C2'X ! Failover list of nodes on which queue manager C ! Failover list of nodes on which queue mana"ger process may rd PARAMETER SJC$_AUTOSTART_ON = '000000C3'X ! Node(s) (and for print queues, device(s)) on which quC ! Node(s) (and for print queues, device(s)) on which queue cad PARAMETER SJC$_RESERVED_OUTPUT_196 = '000000C4'X ! Reserved for Digital use (name may change) SJCC ! Reserved for Digital use (name may change) SJC$_RESERVED_OUd PARAMETER SJC$_RESERVED_OUTPUT_197 = '000000C5'X ! Reserved for Digital use (name may change) rC ! Reserved for Digital use (name m#ay change) reserved by see PARAMETER SJC$_RESERVED_OUTPUT_198 = '000000C6'X ! Reserved for Digital use (name may change) see.d PARAMETER SJC$_RESERVED_OUTPUT_199 = '000000C7'X ! Reserved for Digital use (name may change) C ! Reserved for Digital use (name may change) [QMAN]Table\ PARAMETER SJC$_SET_CONDITION_VECTOR = '000000C8'X ! QSI can alter job's completion statusZ PARAMETER SJC$_NOTIFY_MESSAGE = '000000C9'X ! QSI Check Job can replace job completion  ! message se$nt to userd PARAMETER SJC$_DEFINE_FILE_ATTRIBUTES = '000000CA'X ! Legal keywds for file submissions or alter_d PARAMETER SJC$_DEFINE_JOB_ATTRIBUTES = '000000CB'X ! Legal keywds in oper'ns that create or alterd PARAMETER SJC$_DEFINE_QUEUE_ATTRIBUTES = '000000CC'X ! Legal keywords in operations that alter thD PARAMETER SJC$_AGENT_PROFILE = '000000CD'X ! Security informationd PARAMETER SJC$_ADD_QUEUE_MANAGER = '000000CE'X ! Boolean item code telling sjc_start_queue_manageC ! Boolean %item code telling sjc_start_queue_manager to add a d PARAMETER SJC$_OUTSTANDING_JOBS = '000000CF'X ! Boolean item code telling queue manager to not deC ! Boolean item code telling queue manager to not delete outstd PARAMETER SJC$_NO_INITIAL_FF = '000000D0'X ! To suppress initial form feed when the queue is starC ! To suppress initial form feed when the queue is started wit. PARAMETER SJC$_NO_NO_INITIAL_FF = '000000D1'Xd PARAMETER SJC$_DELETE_FILE_ALWAYS = '000000D2'X ! delete &file even if the job completes with a fa3 PARAMETER SJC$_NO_DELETE_FILE_ALWAYS = '000000D3'Xa PARAMETER SJC$_RESERVED_BOOLEAN_212 = '000000D4'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_213 = '000000D5'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_214 = '000000D6'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_215 = '000000D7'X ! Reserved for Digital use (name may change)a PARAMETER' SJC$_RESERVED_BOOLEAN_216 = '000000D8'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_217 = '000000D9'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_218 = '000000DA'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_219 = '000000DB'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_220 = '000000DC'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_(RESERVED_BOOLEAN_221 = '000000DD'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_222 = '000000DE'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_223 = '000000DF'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_224 = '000000E0'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_225 = '000000E1'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERV)ED_BOOLEAN_226 = '000000E2'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_227 = '000000E3'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_228 = '000000E4'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_229 = '000000E5'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_230 = '000000E6'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOO*LEAN_231 = '000000E7'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_232 = '000000E8'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_233 = '000000E9'X ! Reserved for Digital use (name may change)a PARAMETER SJC$_RESERVED_BOOLEAN_234 = '000000EA'X ! Reserved for Digital use (name may change)d PARAMETER SJC$_JOB_RETAIN_TIME = '000000EB'X ! The time the job should be retained (delta or absof PARAMETER SJC$_MANAGER_ATTRIBUT+E = '000000EC'X ! Any application specific queue manager attributes.D PARAMETER SJC$_RAD = '000000ED'X ! RAD on which to run batch job.d PARAMETER SJC$_RESERVED_INPUT_238 = '000000EE'X ! Reserved for Digital use (name may change) itemC ! Reserved for Digital use (name may change) items RESERVED_Id PARAMETER SJC$_RESERVED_INPUT_239 = '000000EF'X ! Reserved for Digital use (name may change) d PARAMETER SJC$_RESERVED_INPUT_240 = '000000F0'X ! Reserved for Digital use (name may ch,ange) SJCC ! Reserved for Digital use (name may change) SJC$_RESERVED_Id PARAMETER SJC$_RESERVED_INPUT_241 = '000000F1'X ! Reserved for Digital use (name may change) reseC ! Reserved for Digital use (name may change) reserved by secu` PARAMETER SJC$_RESERVED_INPUT_242 = '000000F2'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_INPUT_243 = '000000F3'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_INPUT_244 = '000000F4'X ! Res-erved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_INPUT_245 = '000000F5'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_INPUT_246 = '000000F6'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_INPUT_247 = '000000F7'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_INPUT_248 = '000000F8'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_INPUT_249 = '000000F9'X ! Reserved for Digita.l use (name may change)_ PARAMETER SJC$_RESERVED_INPUT_250 = '000000FA'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_OUTPUT_251 = '000000FB'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_OUTPUT_252 = '000000FC'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_OUTPUT_253 = '000000FD'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_OUTPUT_254 = '000000FE'X ! Reserved for Digital use (name may / change)` PARAMETER SJC$_RESERVED_OUTPUT_255 = '000000FF'X ! Reserved for Digital use (name may change)D PARAMETER SJC$K_MIN_ITEM = '00000001'X ! Minimum SNDJBC item codeD PARAMETER SJC$K_MAX_ITEM = '000000FF'X ! Maximum SNDJBC item codeK PARAMETER SJC$_CHARGE_CODE = '0000009D'X ! synonym for SJC$_ACCOUNT_NAMEA PARAMETER SJC$_RESERVED_INPUT_187 = '000000BB'X ! for DQS only- PARAMETER SJC$_QUEUE_DIRECTORY = '00000087'X6 ! Disk & directory for non-shared job queue database+ PARAMET 0ER SJC$_SERVICE_INPUT = '0000000A'X, PARAMETER SJC$_SERVICE_OUTPUT = '0000000B'XX ! SERVICE item codes are used for communications with LOGINOUT, symbionts, and jobctl. ! [ ! Subfields of ACCOUNTING_TYPES item code. These definitions must track EXE$GL_ACMFLAGS. ! + PARAMETER SJC$M_ACCT_PROCESS = '00000001'X) PARAMETER SJC$M_ACCT_IMAGE = '00000002'X/ PARAMETER SJC$M_ACCT_INTERACTIVE = '00000004'X1 PARAMETER SJC$M_ACCT_LOGIN_FAILURE = '00000008'X. PARAMETER SJC$M_ACCT_SUBPROCESS = 1 '00000010'X, PARAMETER SJC$M_ACCT_DETACHED = '00000020'X) PARAMETER SJC$M_ACCT_BATCH = '00000040'X+ PARAMETER SJC$M_ACCT_NETWORK = '00000080'X) PARAMETER SJC$M_ACCT_PRINT = '00000100'X+ PARAMETER SJC$M_ACCT_MESSAGE = '00000200'X, PARAMETER SJC$M_ACCT_ACM_FUNC = '00000400'X+ PARAMETER SJC$M_ACCT_ACM_SYS = '00000800'X+ PARAMETER SJC$M_ACCT_CCAENAB = '00001000'X+ PARAMETER SJC$M_ACCT_CCVENAB = '00002000'X STRUCTURE /ACCOUNTING_TYPES/% PARAMETER SJC$S_ACCT_PROCESS = 1= PARAM 2ETER SJC$V_ACCT_PROCESS = 0 ! Process termination# PARAMETER SJC$S_ACCT_IMAGE = 1: PARAMETER SJC$V_ACCT_IMAGE = 1 ! Image termination) PARAMETER SJC$S_ACCT_INTERACTIVE = 1C PARAMETER SJC$V_ACCT_INTERACTIVE = 2 ! Interactive processes+ PARAMETER SJC$S_ACCT_LOGIN_FAILURE = 1> PARAMETER SJC$V_ACCT_LOGIN_FAILURE = 3 ! Login failures( PARAMETER SJC$S_ACCT_SUBPROCESS = 19 PARAMETER SJC$V_ACCT_SUBPROCESS = 4 ! Subprocesses& PARAMETER SJC$S_ACCT_DE 3TACHED = 1= PARAMETER SJC$V_ACCT_DETACHED = 5 ! Detached processes# PARAMETER SJC$S_ACCT_BATCH = 18 PARAMETER SJC$V_ACCT_BATCH = 6 ! Batch processes% PARAMETER SJC$S_ACCT_NETWORK = 1; PARAMETER SJC$V_ACCT_NETWORK = 7 ! Network processes# PARAMETER SJC$S_ACCT_PRINT = 1> PARAMETER SJC$V_ACCT_PRINT = 8 ! Print job termination% PARAMETER SJC$S_ACCT_MESSAGE = 17 PARAMETER SJC$V_ACCT_MESSAGE = 9 ! User messages& PARAMETER SJC$S_ACCT_ACM_FU 4NC = 18 PARAMETER SJC$V_ACCT_ACM_FUNC = 10 ! Acm function% PARAMETER SJC$S_ACCT_ACM_SYS = 1: PARAMETER SJC$V_ACCT_ACM_SYS = 11 ! System function% PARAMETER SJC$S_ACCT_CCAENAB = 1A PARAMETER SJC$V_ACCT_CCAENAB = 12 ! Charge code accounting% PARAMETER SJC$S_ACCT_CCVENAB = 1A PARAMETER SJC$V_ACCT_CCVENAB = 13 ! Charge code validation% PARAMETER SJC$S_ACCT_UNUSED = 18% PARAMETER SJC$V_ACCT_UNUSED = 14 BYTE %FILL (4)! END STRUCTURE ! ACCOU 5NTING_TYPES ! , ! Subfields of DIAGNOSTIC_FLAGS item code. ! + PARAMETER SJC$M_DIAG_COPY_QF = '00000001'X- PARAMETER SJC$M_DIAG_CREATE_MF = '00000002'X, PARAMETER SJC$M_DIAG_CLOSE_MF = '00000004'X+ PARAMETER SJC$M_DIAG_OPEN_MF = '00000008'X/ PARAMETER SJC$M_DIAG_CLEAR_FLAGS = '00000010'X1 PARAMETER SJC$M_DIAG_LOG_ALL_TRANS = '00000020'X0 PARAMETER SJC$M_DIAG_JOURNAL_PUTS = '00000040'X4 PARAMETER SJC$M_DIAG_DUMP_DIAG_BUFFER = '00000080'X4 PARAMETER SJC$M_DIAG_INIT_DIAG_BUFFER = ' 600000100'X STRUCTURE /DIAGNOSTIC_FLAGS/% PARAMETER SJC$S_DIAG_COPY_QF = 1E PARAMETER SJC$V_DIAG_COPY_QF = 0 ! Make copy of the queue file' PARAMETER SJC$S_DIAG_CREATE_MF = 1\ PARAMETER SJC$V_DIAG_CREATE_MF = 1 ! Create new monitor log file and begin monitoring& PARAMETER SJC$S_DIAG_CLOSE_MF = 1U PARAMETER SJC$V_DIAG_CLOSE_MF = 2 ! Stop monitoring and close monitor log file% PARAMETER SJC$S_DIAG_OPEN_MF = 1^ PARAMETER SJC$V_DIAG_OPEN_MF = 3 ! Open7 existing monitor log file and resume monitoring) PARAMETER SJC$S_DIAG_CLEAR_FLAGS = 1` PARAMETER SJC$V_DIAG_CLEAR_FLAGS = 4 ! Clear monitoring flags in queue file header record+ PARAMETER SJC$S_DIAG_LOG_ALL_TRANS = 1d PARAMETER SJC$V_DIAG_LOG_ALL_TRANS = 5 ! Log read-only transactions in addition to basic moni* PARAMETER SJC$S_DIAG_JOURNAL_PUTS = 1d PARAMETER SJC$V_DIAG_JOURNAL_PUTS = 6 ! Journal queue file $PUT operations in addition to basC ! Journal queu 8e file $PUT operations in addition to basic mon. PARAMETER SJC$S_DIAG_DUMP_DIAG_BUFFER = 1a PARAMETER SJC$V_DIAG_DUMP_DIAG_BUFFER = 7 ! Return contents of diagnostic buffer to caller. PARAMETER SJC$S_DIAG_INIT_DIAG_BUFFER = 1d PARAMETER SJC$V_DIAG_INIT_DIAG_BUFFER = 8 ! Initialize diagnostic buffer and zero cumulative % PARAMETER SJC$S_DIAG_UNUSED = 23$ PARAMETER SJC$V_DIAG_UNUSED = 9 BYTE %FILL (4)! END STRUCTURE ! DIAGNOSTIC_FLAGS!DEC$ END OPTIONS 9wwNKΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:30:03 by OpenVMS SDL IA64-2 \! Source: 30-AUG-2007 11:30:03 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]$SMBMSGDEF.SDI;1 ! ******************************************************************************************************************************** !*** MODULE $SMBMSGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS :=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:02.37 !  ! O ! **************************************************************************** ! * *6 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O !; * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A <COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *O ! **************************************************************************** !  ! ++ ! FACILITY: ! SYMBIONT. ! ! ABSTRACT: ! SYMBIONT MESSAGES. ! J ! THESE ARE THE MESSAGES COMMON TO V=AX/VMS SYMBIONTS. MESSAGE TYPES FORI ! MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY ! THE $MSGDEF MACRO. !  ! ENVIRONMENT:! ! VAX/VMS USER AND KERNEL MODE. ! ; ! AUTHOR: ROWLAND R. BRADLEY, CREATION DATE: 20-JULY-1984 !  ! MODIFIED BY: ! 4 ! X-2 LMP0560 L. MARK PILANT, 27-MAR-1992 14:089 ! CHANGE THE MACRO NAME FROM $PSMMSGDEF TO $SMBMSGDEF. ! / ! 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 ! ADD .END. ! 2 ! 3B-009 RRB0009 > ROWLAND R. BRADLEY 20-JUL-1984? ! REMOVED THESE DEFINITIONS FOR SMB AND PLACED IN A SEPARATEB ! FILE SMBMSG.MSG. THIS ACCOMPLISHES THE RENAMING OF MESSAGES > ! WITH A SEPARATE FACILITY CODE. NOW TWO TYPES OF MESSAGES8 ! SMB$... AND PSM$... DEPENDING ON THE CONTEXT OF THE> ! ERROR. AUDIT TRAIL BEGINS AT HIGHER NUMBER SINCE THIS IS" ! A CONTINUATION OF PSMMSG.MSG. !  ! ** ! & PARAMETER SMB$_FACILITY = '00000110'X) PARAMETER SMB$_NOMOREITEMS = '01108002'X' PARAMETER S?MB$_INVSTMNBR = '0110800C'X' PARAMETER SMB$_INVSTRLEV = '01108014'X!DEC$ END OPTIONSwwBؒΦ!*** MODULE $SMGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN2 ! Definitions for RTL Screen Management Facility !  ! Input terminator codes ! 4 PARAMETER SMG$K_TRM_NULL_CHAR = '00000000'X ! NUL0 PARAMETER SMG$K_TRM_CTRLA = '00000001'X ! SOH0 PARAMETER SMG$K_TRM_CTRLB = '00000002'X ! STX0 PARAMETER SMG$K_TRM_CTRLC = '00000003'X ! ETX0 PARAMET @ER SMG$K_TRM_CTRLD = '00000004'X ! EOT0 PARAMETER SMG$K_TRM_CTRLE = '00000005'X ! ENQ0 PARAMETER SMG$K_TRM_CTRLF = '00000006'X ! ACK0 PARAMETER SMG$K_TRM_CTRLG = '00000007'X ! BEL/ PARAMETER SMG$K_TRM_CTRLH = '00000008'X ! BS/ PARAMETER SMG$K_TRM_CTRLI = '00000009'X ! HT/ PARAMETER SMG$K_TRM_CTRLJ = '0000000A'X ! LF/ PARAMETER SMG$K_TRM_CTRLK = '0000000B'X ! VT/ PARAMETER SMG$K_TRM_CTRLL = '0000000C'X ! FF/ PARAMETER SMG$K_TRM_CTRLM = '0000000D'X ! CR/ PARAMETER SMG A$K_TRM_CTRLN = '0000000E'X ! SO/ PARAMETER SMG$K_TRM_CTRLO = '0000000F'X ! SI0 PARAMETER SMG$K_TRM_CTRLP = '00000010'X ! DLE0 PARAMETER SMG$K_TRM_CTRLQ = '00000011'X ! DC10 PARAMETER SMG$K_TRM_CTRLR = '00000012'X ! DC20 PARAMETER SMG$K_TRM_CTRLS = '00000013'X ! DC30 PARAMETER SMG$K_TRM_CTRLT = '00000014'X ! DC40 PARAMETER SMG$K_TRM_CTRLU = '00000015'X ! NAK0 PARAMETER SMG$K_TRM_CTRLV = '00000016'X ! SYN0 PARAMETER SMG$K_TRM_CTRLW = '00000017'X ! ETB0 PARAMETER SMG$K_TRM B_CTRLX = '00000018'X ! CAN/ PARAMETER SMG$K_TRM_CTRLY = '00000019'X ! EM0 PARAMETER SMG$K_TRM_CTRLZ = '0000001A'X ! SUB1 PARAMETER SMG$K_TRM_ESCAPE = '0000001B'X ! ESC, PARAMETER SMG$K_TRM_FS = '0000001C'X ! FS, PARAMETER SMG$K_TRM_GS = '0000001D'X ! GS, PARAMETER SMG$K_TRM_RS = '0000001E'X ! RS, PARAMETER SMG$K_TRM_US = '0000001F'X ! US/ PARAMETER SMG$K_TRM_SPACE = '00000020'X ! SP: PARAMETER SMG$K_TRM_EXCLAMATION_POINT = '00000021'X ! !5 PARAMETER SMG$K_TRM_DOUBLE_QU COTE = '00000022'X ! "4 PARAMETER SMG$K_TRM_NUMBER_SIGN = '00000023'X ! #4 PARAMETER SMG$K_TRM_DOLLAR_SIGN = '00000024'X ! $5 PARAMETER SMG$K_TRM_PERCENT_SIGN = '00000025'X ! %2 PARAMETER SMG$K_TRM_AMPERSAND = '00000026'X ! &. PARAMETER SMG$K_TRM_QUOTE = '00000027'X ! '3 PARAMETER SMG$K_TRM_LEFT_PAREN = '00000028'X ! (4 PARAMETER SMG$K_TRM_RIGHT_PAREN = '00000029'X ! )1 PARAMETER SMG$K_TRM_ASTERISK = '0000002A'X ! *2 PARAMETER SMG$K_TRM_PLUS_SIGN = '0000002B'X ! +3 PAR DAMETER SMG$K_TRM_COMMA_CHAR = '0000002C'X ! ,- PARAMETER SMG$K_TRM_DASH = '0000002D'X ! -, PARAMETER SMG$K_TRM_DOT = '0000002E'X ! .. PARAMETER SMG$K_TRM_SLASH = '0000002F'X ! /- PARAMETER SMG$K_TRM_ZERO = '00000030'X ! 0, PARAMETER SMG$K_TRM_ONE = '00000031'X ! 1, PARAMETER SMG$K_TRM_TWO = '00000032'X ! 2. PARAMETER SMG$K_TRM_THREE = '00000033'X ! 3- PARAMETER SMG$K_TRM_FOUR = '00000034'X ! 4- PARAMETER SMG$K_TRM_FIVE = '00000035'X ! 5, PARAMETER SMG$K_TRM_SIX = '00 E000036'X ! 6. PARAMETER SMG$K_TRM_SEVEN = '00000037'X ! 7. PARAMETER SMG$K_TRM_EIGHT = '00000038'X ! 8- PARAMETER SMG$K_TRM_NINE = '00000039'X ! 9. PARAMETER SMG$K_TRM_COLON = '0000003A'X ! :2 PARAMETER SMG$K_TRM_SEMICOLON = '0000003B'X ! ;2 PARAMETER SMG$K_TRM_LESS_THAN = '0000003C'X ! <. PARAMETER SMG$K_TRM_EQUAL = '0000003D'X ! =5 PARAMETER SMG$K_TRM_GREATER_THAN = '0000003E'X ! >6 PARAMETER SMG$K_TRM_QUESTION_MARK = '0000003F'X ! ?0 PARAMETER SMG$K_TRM_AT_SIGN = '00 F000040'X ! @4 PARAMETER SMG$K_TRM_UPPERCASE_A = '00000041'X ! A4 PARAMETER SMG$K_TRM_UPPERCASE_B = '00000042'X ! B4 PARAMETER SMG$K_TRM_UPPERCASE_C = '00000043'X ! C4 PARAMETER SMG$K_TRM_UPPERCASE_D = '00000044'X ! D4 PARAMETER SMG$K_TRM_UPPERCASE_E = '00000045'X ! E4 PARAMETER SMG$K_TRM_UPPERCASE_F = '00000046'X ! F4 PARAMETER SMG$K_TRM_UPPERCASE_G = '00000047'X ! G4 PARAMETER SMG$K_TRM_UPPERCASE_H = '00000048'X ! H4 PARAMETER SMG$K_TRM_UPPERCASE_I = '00000049'X ! I4 PAR GAMETER SMG$K_TRM_UPPERCASE_J = '0000004A'X ! J4 PARAMETER SMG$K_TRM_UPPERCASE_K = '0000004B'X ! K4 PARAMETER SMG$K_TRM_UPPERCASE_L = '0000004C'X ! L4 PARAMETER SMG$K_TRM_UPPERCASE_M = '0000004D'X ! M4 PARAMETER SMG$K_TRM_UPPERCASE_N = '0000004E'X ! N4 PARAMETER SMG$K_TRM_UPPERCASE_O = '0000004F'X ! O4 PARAMETER SMG$K_TRM_UPPERCASE_P = '00000050'X ! P4 PARAMETER SMG$K_TRM_UPPERCASE_Q = '00000051'X ! Q4 PARAMETER SMG$K_TRM_UPPERCASE_R = '00000052'X ! R4 PARAMETER SMG$K_TRM_UPP HERCASE_S = '00000053'X ! S4 PARAMETER SMG$K_TRM_UPPERCASE_T = '00000054'X ! T4 PARAMETER SMG$K_TRM_UPPERCASE_U = '00000055'X ! U4 PARAMETER SMG$K_TRM_UPPERCASE_V = '00000056'X ! V4 PARAMETER SMG$K_TRM_UPPERCASE_W = '00000057'X ! W4 PARAMETER SMG$K_TRM_UPPERCASE_X = '00000058'X ! X4 PARAMETER SMG$K_TRM_UPPERCASE_Y = '00000059'X ! Y4 PARAMETER SMG$K_TRM_UPPERCASE_Z = '0000005A'X ! Z5 PARAMETER SMG$K_TRM_LEFT_BRACKET = '0000005B'X ! [2 PARAMETER SMG$K_TRM_BACKSLASH = '0000005C I'X ! \6 PARAMETER SMG$K_TRM_RIGHT_BRACKET = '0000005D'X ! ]. PARAMETER SMG$K_TRM_CARET = '0000005E'X ! ^2 PARAMETER SMG$K_TRM_UNDERLINE = '0000005F'X ! _5 PARAMETER SMG$K_TRM_GRAVE_ACCENT = '00000060'X ! `4 PARAMETER SMG$K_TRM_LOWERCASE_A = '00000061'X ! a4 PARAMETER SMG$K_TRM_LOWERCASE_B = '00000062'X ! b4 PARAMETER SMG$K_TRM_LOWERCASE_C = '00000063'X ! c4 PARAMETER SMG$K_TRM_LOWERCASE_D = '00000064'X ! d4 PARAMETER SMG$K_TRM_LOWERCASE_E = '00000065'X ! e4 PARAMETER SMG J$K_TRM_LOWERCASE_F = '00000066'X ! f4 PARAMETER SMG$K_TRM_LOWERCASE_G = '00000067'X ! g4 PARAMETER SMG$K_TRM_LOWERCASE_H = '00000068'X ! h4 PARAMETER SMG$K_TRM_LOWERCASE_I = '00000069'X ! i4 PARAMETER SMG$K_TRM_LOWERCASE_J = '0000006A'X ! j4 PARAMETER SMG$K_TRM_LOWERCASE_K = '0000006B'X ! k4 PARAMETER SMG$K_TRM_LOWERCASE_L = '0000006C'X ! l4 PARAMETER SMG$K_TRM_LOWERCASE_M = '0000006D'X ! m4 PARAMETER SMG$K_TRM_LOWERCASE_N = '0000006E'X ! n4 PARAMETER SMG$K_TRM_LOWERCASE_O = K '0000006F'X ! o4 PARAMETER SMG$K_TRM_LOWERCASE_P = '00000070'X ! p4 PARAMETER SMG$K_TRM_LOWERCASE_Q = '00000071'X ! q4 PARAMETER SMG$K_TRM_LOWERCASE_R = '00000072'X ! r4 PARAMETER SMG$K_TRM_LOWERCASE_S = '00000073'X ! s4 PARAMETER SMG$K_TRM_LOWERCASE_T = '00000074'X ! t4 PARAMETER SMG$K_TRM_LOWERCASE_U = '00000075'X ! u4 PARAMETER SMG$K_TRM_LOWERCASE_V = '00000076'X ! v4 PARAMETER SMG$K_TRM_LOWERCASE_W = '00000077'X ! w4 PARAMETER SMG$K_TRM_LOWERCASE_X = '00000078'X ! x4 L PARAMETER SMG$K_TRM_LOWERCASE_Y = '00000079'X ! y4 PARAMETER SMG$K_TRM_LOWERCASE_Z = '0000007A'X ! zB PARAMETER SMG$K_TRM_LEFT_BRACE = '0000007B'X ! left curly brace6 PARAMETER SMG$K_TRM_VERTICAL_LINE = '0000007C'X ! |D PARAMETER SMG$K_TRM_RIGHT_BRACE = '0000007D'X ! right curly brace. PARAMETER SMG$K_TRM_TILDE = '0000007E'X ! ~1 PARAMETER SMG$K_TRM_DELETE = '0000007F'X ! DEL ! # ! Synonyms for control characters ! % PARAMETER SMG$K_TRM_BS = '00000008'X% PARAMETER SMGM$K_TRM_HT = '00000009'X% PARAMETER SMG$K_TRM_LF = '0000000A'X% PARAMETER SMG$K_TRM_VT = '0000000B'X% PARAMETER SMG$K_TRM_FF = '0000000C'X% PARAMETER SMG$K_TRM_CR = '0000000D'X !  ! Keypad keys ! & PARAMETER SMG$K_TRM_PF1 = '00000100'X& PARAMETER SMG$K_TRM_PF2 = '00000101'X& PARAMETER SMG$K_TRM_PF3 = '00000102'X& PARAMETER SMG$K_TRM_PF4 = '00000103'X& PARAMETER SMG$K_TRM_KP0 = '00000104'X& PARAMETER SMG$K_TRM_KP1 = '00000105'X& PARAMETER SMG$K_TRM_KP2 = '00000106'X& PARAMETERN SMG$K_TRM_KP3 = '00000107'X& PARAMETER SMG$K_TRM_KP4 = '00000108'X& PARAMETER SMG$K_TRM_KP5 = '00000109'X& PARAMETER SMG$K_TRM_KP6 = '0000010A'X& PARAMETER SMG$K_TRM_KP7 = '0000010B'X& PARAMETER SMG$K_TRM_KP8 = '0000010C'X& PARAMETER SMG$K_TRM_KP9 = '0000010D'X( PARAMETER SMG$K_TRM_ENTER = '0000010E'X( PARAMETER SMG$K_TRM_MINUS = '0000010F'X( PARAMETER SMG$K_TRM_COMMA = '00000110'X) PARAMETER SMG$K_TRM_PERIOD = '00000111'X !  ! Cursor positioning keys ! % PARAMETER SMG$K_TRM_UP O= '00000112'X' PARAMETER SMG$K_TRM_DOWN = '00000113'X' PARAMETER SMG$K_TRM_LEFT = '00000114'X( PARAMETER SMG$K_TRM_RIGHT = '00000115'X !  ! Function keys ! % PARAMETER SMG$K_TRM_F1 = '00000119'X% PARAMETER SMG$K_TRM_F2 = '0000011A'X% PARAMETER SMG$K_TRM_F3 = '0000011B'X% PARAMETER SMG$K_TRM_F4 = '0000011C'X% PARAMETER SMG$K_TRM_F5 = '0000011D'X% PARAMETER SMG$K_TRM_F6 = '0000011E'X% PARAMETER SMG$K_TRM_F7 = '0000011F'X% PARAMETER SMG$K_TRM_F8 = '00000120'X% PARAMETER SPMG$K_TRM_F9 = '00000121'X& PARAMETER SMG$K_TRM_F10 = '00000122'X& PARAMETER SMG$K_TRM_F11 = '00000123'X& PARAMETER SMG$K_TRM_F12 = '00000124'X& PARAMETER SMG$K_TRM_F13 = '00000125'X& PARAMETER SMG$K_TRM_F14 = '00000126'X& PARAMETER SMG$K_TRM_F15 = '00000127'X& PARAMETER SMG$K_TRM_F16 = '00000128'X& PARAMETER SMG$K_TRM_F17 = '00000129'X& PARAMETER SMG$K_TRM_F18 = '0000012A'X& PARAMETER SMG$K_TRM_F19 = '0000012B'X& PARAMETER SMG$K_TRM_F20 = '0000012C'X !  ! Synonyms for function keysQ ! ' PARAMETER SMG$K_TRM_HELP = '00000127'X% PARAMETER SMG$K_TRM_DO = '00000128'X !  ! Editing keys ! . PARAMETER SMG$K_TRM_E1 = '00000137'X ! FIND5 PARAMETER SMG$K_TRM_E2 = '00000138'X ! INSERT_HERE0 PARAMETER SMG$K_TRM_E3 = '00000139'X ! REMOVE0 PARAMETER SMG$K_TRM_E4 = '0000013A'X ! SELECT5 PARAMETER SMG$K_TRM_E5 = '0000013B'X ! PREV_SCREEN5 PARAMETER SMG$K_TRM_E6 = '0000013C'X ! NEXT_SCREEN !  ! Synonyms for editing keys ! . PARAMETER SMG$K_TRM_FIND = R'00000137'X ! E15 PARAMETER SMG$K_TRM_INSERT_HERE = '00000138'X ! E20 PARAMETER SMG$K_TRM_REMOVE = '00000139'X ! E30 PARAMETER SMG$K_TRM_SELECT = '0000013A'X ! E45 PARAMETER SMG$K_TRM_PREV_SCREEN = '0000013B'X ! E55 PARAMETER SMG$K_TRM_NEXT_SCREEN = '0000013C'X ! E6 !  ! Locator keys ! B PARAMETER SMG$K_TRM_FIRST_DOWN = '00000141'X ! Left button downE PARAMETER SMG$K_TRM_SECOND_DOWN = '00000142'X ! Middle button downC PARAMETER SMG$K_TRM_THIRD_DOWN = '00000143'X ! S Right button downE PARAMETER SMG$K_TRM_FOURTH_DOWN = '00000144'X ! Fourth button down> PARAMETER SMG$K_TRM_FIRST_UP = '00000145'X ! Left button upA PARAMETER SMG$K_TRM_SECOND_UP = '00000146'X ! Middle button up? PARAMETER SMG$K_TRM_THIRD_UP = '00000147'X ! Right button upA PARAMETER SMG$K_TRM_FOURTH_UP = '00000148'X ! Fourth button up !  ! Conditions ! R PARAMETER SMG$K_TRM_CANCELLED = '000001FC'X ! I/O cancelled by SMG$CANCEL_INPUTE PARAMETER SMG$K_TRM_TIMEOUT = '00 T0001FD'X ! Timeout period expiredA PARAMETER SMG$K_TRM_BUFFER_FULL = '000001FE'X ! Buffer is fullA PARAMETER SMG$K_TRM_UNKNOWN = '000001FF'X ! Unknown terminator ! I ! Screen Management request types - These constants are used internally, ! by SMG$ and should not be used by users. ! / PARAMETER SMG$C_CHANGE_RENDITION = '0000000A'X+ PARAMETER SMG$C_DELETE_CHARS = '0000000B'X, PARAMETER SMG$C_ERASE_DISPLAY = '0000000C'X) PARAMETER SMG$C_ERASE_LINE = '0000000D'X* PARAMETER S UMG$C_HOME_CURSOR = '0000000E'X+ PARAMETER SMG$C_INSERT_CHARS = '0000000F'X* PARAMETER SMG$C_INSERT_LINE = '00000010'X( PARAMETER SMG$C_PUT_CHARS = '00000011'X' PARAMETER SMG$C_PUT_LINE = '00000012'X2 PARAMETER SMG$C_PUT_DISPLAY_ENCODED = '00000013'X0 PARAMETER SMG$C_RETURN_CURSOR_POS = '00000014'X. PARAMETER SMG$C_PUT_WITH_SCROLL = '00000015'X- PARAMETER SMG$C_SET_CURSOR_ABS = '00000016'X- PARAMETER SMG$C_SET_CURSOR_REL = '00000017'X* PARAMETER SMG$C_DELETE_LINE = '00000018'X* PARAMETER V SMG$C_ERASE_CHARS = '00000019'X2 PARAMETER SMG$C_SCROLL_DISPLAY_AREA = '0000001A'X5 PARAMETER SMG$C_CHANGE_VIRTUAL_DISPLAY = '0000001B'X+ PARAMETER SMG$C_LABEL_BORDER = '0000001C'X1 PARAMETER SMG$C_END_DISPLAY_UPDATE = '0000001D'X( PARAMETER SMG$C_MOVE_TEXT = '0000001E'X !  ! Character Set Codes ! 8 PARAMETER SMG$C_UNITED_KINGDOM = '00000000'X ! Unused7 PARAMETER SMG$C_ASCII = '00000001'X ! ASCII char setA PARAMETER SMG$C_SPEC_GRAPHICS = '00000002'X ! Line drawing set2 P WARAMETER SMG$C_ALT_CHAR = '00000003'X ! Unused6 PARAMETER SMG$C_ALT_GRAPHICS = '00000004'X ! Unused& PARAMETER SMG$C_UNKNOWN = '00000005'X+ PARAMETER SMG$C_SUPPLEMENTAL = '00000006'X( PARAMETER SMG$C_JIS_ROMAN = '00000007'X' PARAMETER SMG$C_JIS_KANA = '00000008'X$ PARAMETER SMG$C_KANJI = '00000009'X$ PARAMETER SMG$C_HANZI = '0000000A'X$ PARAMETER SMG$C_HANYU = '0000000B'X% PARAMETER SMG$C_HANGUL = '0000000C'X' PARAMETER SMG$C_KS_ROMAN = '0000000D'X ! B ! The following constants Xdefine corner cursor positions used in ! SMG$HOME_CURSOR. ! N PARAMETER SMG$C_UPPER_LEFT = '00000000'X ! Home cursor to upper left cornerN PARAMETER SMG$C_LOWER_LEFT = '00000001'X ! Home cursor to lower left cornerP PARAMETER SMG$C_UPPER_RIGHT = '00000002'X ! Home cursor to upper right cornerP PARAMETER SMG$C_LOWER_RIGHT = '00000003'X ! Home cursor to lower right corner ! : ! The following constants define label positions used in ! SMG$LABEL_BORDER. ! @ PARAMETER SMG$K_T YOP = '00000000'X ! Place label on top borderF PARAMETER SMG$K_BOTTOM = '00000001'X ! Place label on bottom borderB PARAMETER SMG$K_LEFT = '00000002'X ! Place label on left borderD PARAMETER SMG$K_RIGHT = '00000003'X ! Place label on right border ! 5 ! The following constants define menu types used in ! SMG$CREATE_MENU. ! = PARAMETER SMG$K_BLOCK = '00000000'X ! Matrix of menu itemsI PARAMETER SMG$K_VERTICAL = '00000001'X ! Vertical vector of menu itemsM PARAMETER SMG$K_H ZORIZONTAL = '00000002'X ! Horizontal vector of menu items ! 4 ! Master color wheel for screen background colors.- ! Used with SMG$CHANGE_PBD_CHARACTERISTICS. ! C PARAMETER SMG$C_COLOR_UNKNOWN = '00000000'X ! Unknown background? PARAMETER SMG$C_COLOR_WHITE = '00000001'X ! White background? PARAMETER SMG$C_COLOR_BLACK = '00000002'X ! Black background= PARAMETER SMG$C_COLOR_BLUE = '00000003'X ! Blue background= PARAMETER SMG$C_COLOR_CYAN = '00000004'X ! Cyan background?[ PARAMETER SMG$C_COLOR_GREEN = '00000005'X ! Green backgroundC PARAMETER SMG$C_COLOR_MAGENTA = '00000006'X ! Magenta background; PARAMETER SMG$C_COLOR_RED = '00000007'X ! Red backgroundA PARAMETER SMG$C_COLOR_YELLOW = '00000008'X ! Yellow background? PARAMETER SMG$C_COLOR_LIGHT = '00000009'X ! Light background= PARAMETER SMG$C_COLOR_DARK = '0000000A'X ! Dark background@ PARAMETER SMG$C_COLOR_USER1 = '0000000B'X ! User 1 background@ PARAMETER SMG$C_COLOR_USER2 = '0000000C'X \! User 2 background@ PARAMETER SMG$C_COLOR_USER3 = '0000000D'X ! User 3 background@ PARAMETER SMG$C_COLOR_USER4 = '0000000E'X ! User 4 background@ PARAMETER SMG$C_COLOR_USER5 = '0000000F'X ! User 5 background@ PARAMETER SMG$C_COLOR_USER6 = '00000010'X ! User 6 background@ PARAMETER SMG$C_COLOR_USER7 = '00000011'X ! User 7 background@ PARAMETER SMG$C_COLOR_USER8 = '00000012'X ! User 8 background ! 9 ! The following constants describe the type of terminal4 ! and are used with ]SMG$GET_PASTEBOARD_ATTRIBUTES. ! 7 PARAMETER SMG$K_UNKNOWN = '00000000'X ! Unknown type. PARAMETER SMG$K_VT05 = '00000001'X ! Unused. PARAMETER SMG$K_VT52 = '00000002'X ! Unused/ PARAMETER SMG$K_VT100 = '00000003'X ! UnusedE PARAMETER SMG$K_VTFOREIGN = '00000004'X ! Foreign terminal (ft1-8); PARAMETER SMG$K_HARDCOPY = '00000005'X ! Hardcopy device= PARAMETER SMG$K_VTTERMTABLE = '00000006'X ! Video terminalJ PARAMETER SMG$K_FIRST_PRIV_TYPE = '000000BF'X ! Used internally ^ by SMG$ ! 9 ! Define bits, masks, and fields for the control modes. ! ? PARAMETER SMG$K_BUF_ENABLED = '00000000'X ! Enable Buffering@ PARAMETER SMG$K_MINUPD = '00000001'X ! Enable minimal update D PARAMETER SMG$K_CLEAR_SCREEN = '00000002'X ! Clear screen on exitA PARAMETER SMG$K_NOTABS = '00000003'X ! Don't use physical tabs? PARAMETER SMG$K_PROTECT = '00000004'X ! Protect against ASTsE PARAMETER SMG$K_IGNORE = '00000005'X ! Don't output PBD if batchedL PARAMETER SMG$K __RELEASE_PBD = '00000006'X ! Don't touch users part of PBD* PARAMETER SMG$M_BUF_ENABLED = '00000001'X% PARAMETER SMG$M_MINUPD = '00000002'X+ PARAMETER SMG$M_CLEAR_SCREEN = '00000004'X% PARAMETER SMG$M_NOTABS = '00000008'X& PARAMETER SMG$M_PROTECT = '00000010'X% PARAMETER SMG$M_IGNORE = '00000020'X* PARAMETER SMG$M_RELEASE_PBD = '00000040'X& PARAMETER SMG$m_spare15 = 'FFFFFF80'X STRUCTURE /SMGMODE_BITS/$ PARAMETER SMG$S_BUF_ENABLED = 1: PARAMETER SMG$V_BUF_ENABLED = 0 ! En `able buffering PARAMETER SMG$S_MINUPD = 1D PARAMETER SMG$V_MINUPD = 1 ! Enable minimal update (default)% PARAMETER SMG$S_CLEAR_SCREEN = 1> PARAMETER SMG$V_CLEAR_SCREEN = 2 ! Clear screen on exit PARAMETER SMG$S_NOTABS = 1< PARAMETER SMG$V_NOTABS = 3 ! Don't use physical tabs PARAMETER SMG$S_PROTECT = 1: PARAMETER SMG$V_PROTECT = 4 ! Protect against ASTs PARAMETER SMG$S_IGNORE = 1@ PARAMETER SMG$V_IGNORE = 5 ! Don't output PBD if baatched$ PARAMETER SMG$S_RELEASE_PBD = 1G PARAMETER SMG$V_RELEASE_PBD = 6 ! Don't touch users part of PBD! PARAMETER SMG$S_spare15 = 25 PARAMETER SMG$V_spare15 = 7% BYTE %FILL (4) ! extra bits END STRUCTURE ! SMGMODE_BITS !  ! Key definition attributes ! ) PARAMETER SMG$M_KEY_NOECHO = '00000001'X, PARAMETER SMG$M_KEY_TERMINATE = '00000002'X' PARAMETER SMG$M_KEY_LOCK = '00000004'X, PARAMETER SMG$M_KEY_PROTECTED = '00000008'X+ PARAMETER SMG$M_KEY_S bETSTATE = '00000010'X& PARAMETER SMG$m_spare18 = 'FFFFFFE0'X STRUCTURE /SMG$R_KEY_DEF_ATTR/# PARAMETER SMG$S_KEY_NOECHO = 1; PARAMETER SMG$V_KEY_NOECHO = 0 ! Don't echo strings& PARAMETER SMG$S_KEY_TERMINATE = 1C PARAMETER SMG$V_KEY_TERMINATE = 1 ! This key terminates read! PARAMETER SMG$S_KEY_LOCK = 15 PARAMETER SMG$V_KEY_LOCK = 2 ! Lock new state& PARAMETER SMG$S_KEY_PROTECTED = 1B PARAMETER SMG$V_KEY_PROTECTED = 3 ! Definition is protectedc% PARAMETER SMG$S_KEY_SETSTATE = 1O PARAMETER SMG$V_KEY_SETSTATE = 4 ! Definition sets a state (output only)! PARAMETER SMG$S_spare18 = 27 PARAMETER SMG$V_spare18 = 5% BYTE %FILL (4) ! extra bits# END STRUCTURE ! SMG$R_KEY_DEF_ATTR ! > ! Define bit masks and values for display renditions. ! # PARAMETER SMG$M_BOLD = '00000001'X& PARAMETER SMG$M_REVERSE = '00000002'X$ PARAMETER SMG$M_BLINK = '00000004'X( PARAMETER SMG$M_UNDERLINE = '00000008'X(d PARAMETER SMG$M_INVISIBLE = '00000010'X$ PARAMETER SMG$M_USER1 = '00000100'X$ PARAMETER SMG$M_USER2 = '00000200'X$ PARAMETER SMG$M_USER3 = '00000400'X$ PARAMETER SMG$M_USER4 = '00000800'X$ PARAMETER SMG$M_USER5 = '00001000'X$ PARAMETER SMG$M_USER6 = '00002000'X$ PARAMETER SMG$M_USER7 = '00004000'X$ PARAMETER SMG$M_USER8 = '00008000'X& PARAMETER SMG$m_spare14 = 'FFFF0000'X STRUCTURE /SMGDEF_BITS/ PARAMETER SMG$S_BOLD = 11 PARAMETER SMG$V_BOLD = 0 ! Bold rendition PARAM eETER SMG$S_REVERSE = 1= PARAMETER SMG$V_REVERSE = 1 ! Reverse video rendition PARAMETER SMG$S_BLINK = 13 PARAMETER SMG$V_BLINK = 2 ! Blink rendition" PARAMETER SMG$S_UNDERLINE = 1; PARAMETER SMG$V_UNDERLINE = 3 ! Underline rendition" PARAMETER SMG$S_INVISIBLE = 1; PARAMETER SMG$V_INVISIBLE = 4 ! Invisible rendition PARAMETER SMG$S_USER1 = 14 PARAMETER SMG$V_USER1 = 8 ! User rendition 1 PARAMETER SMG$S_USER2 = 14 PARAMETER SMG f$V_USER2 = 9 ! User rendition 2 PARAMETER SMG$S_USER3 = 15 PARAMETER SMG$V_USER3 = 10 ! User rendition 3 PARAMETER SMG$S_USER4 = 15 PARAMETER SMG$V_USER4 = 11 ! User rendition 4 PARAMETER SMG$S_USER5 = 15 PARAMETER SMG$V_USER5 = 12 ! User rendition 5 PARAMETER SMG$S_USER6 = 15 PARAMETER SMG$V_USER6 = 13 ! User rendition 6 PARAMETER SMG$S_USER7 = 15 PARAMETER SMG$V_USER7 = 14 ! User rendition 7 PARAMETER SMG$S_USER8 = 1g5 PARAMETER SMG$V_USER8 = 15 ! User rendition 8! PARAMETER SMG$S_spare14 = 16! PARAMETER SMG$V_spare14 = 16% BYTE %FILL (4) ! extra bits END STRUCTURE ! SMGDEF_BITS6 PARAMETER SMG$M_NORMAL = '00000000'X ! no bits set  ! 0 ! The following masks define values to be used7 ! to specify a display attribute. These may be added, ! together to specify multiple attributes. ! % PARAMETER SMG$M_BORDER = '00000001'X) PARAMETER SMG$M_TRUNC_ICON = '00000002'X/ h PARAMETER SMG$M_DISPLAY_CONTROLS = '00000004'X+ PARAMETER SMG$M_USER_DISPLAY = '00000008'X+ PARAMETER SMG$M_BLOCK_BORDER = '00000010'X. PARAMETER SMG$M_PROTECT_DISPLAY = '00000020'X& PARAMETER SMG$m_spare12 = 'FFFFFFC0'X STRUCTURE /DISPLAY_ATTRIBUTES/ PARAMETER SMG$S_BORDER = 18 PARAMETER SMG$V_BORDER = 0 ! Display is bordered# PARAMETER SMG$S_TRUNC_ICON = 1@ PARAMETER SMG$V_TRUNC_ICON = 1 ! Truncation icon enabled) PARAMETER SMG$S_DISPLAY_CONTROLS = 1G i PARAMETER SMG$V_DISPLAY_CONTROLS = 2 ! Display carriage controls% PARAMETER SMG$S_USER_DISPLAY = 1@ PARAMETER SMG$V_USER_DISPLAY = 3 ! User display for DEBUG% PARAMETER SMG$S_BLOCK_BORDER = 1C PARAMETER SMG$V_BLOCK_BORDER = 4 ! Display is block bordered( PARAMETER SMG$S_PROTECT_DISPLAY = 1I PARAMETER SMG$V_PROTECT_DISPLAY = 5 ! Protect display against ASTs! PARAMETER SMG$S_spare12 = 26 PARAMETER SMG$V_spare12 = 6% BYTE %FILL (4) ! extjra bits# END STRUCTURE ! DISPLAY_ATTRIBUTES ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$CREATE_SUBPROCESS. ! & PARAMETER SMG$M_TRUSTED = '00000001'X' PARAMETER SMG$M_AUTHPRIV = '00000002'X( PARAMETER SMG$M_SUBSYSTEM = '00000004'X& PARAMETER SMG$m_spare20 = 'FFFFFFF8'X* STRUCTURE /SMG$R_CREATE_SUBPROCESS_FLAGS/ PARAMETER SMG$S_TRUSTED = 1F PARAMETER SMG$V_TRUSTED = 0 ! Set TRUSTED flag for LIB$SPAWN! PARAMETER SMG$S_AUTHPRIV = 1G k PARAMETER SMG$V_AUTHPRIV = 1 ! Set AUTHPRIV flag for LIB$SPAWN" PARAMETER SMG$S_SUBSYSTEM = 1H PARAMETER SMG$V_SUBSYSTEM = 2 ! Set SUBSYSTEM flag for LIB$SPAWN! PARAMETER SMG$S_spare20 = 29 PARAMETER SMG$V_spare20 = 3% BYTE %FILL (4) ! extra bits. END STRUCTURE ! SMG$R_CREATE_SUBPROCESS_FLAGS ! A ! The following defines bits used with subprocess manipulation. ! + PARAMETER SMG$M_DATA_FOLLOWS = '00000001'X' PARAMETER SMG$M_SEND_EOF = '00000002'X l' PARAMETER SMG$M_NO_PRINT = '00000004'X& PARAMETER SMG$m_spare11 = 'FFFFFFF8'X# STRUCTURE /SMG$R_SUBPROCESS_FLAGS/% PARAMETER SMG$S_DATA_FOLLOWS = 1G PARAMETER SMG$V_DATA_FOLLOWS = 0 ! The next call specifies data.! PARAMETER SMG$S_SEND_EOF = 1L PARAMETER SMG$V_SEND_EOF = 1 ! Send an end-of-file to the subprocess! PARAMETER SMG$S_NO_PRINT = 1K PARAMETER SMG$V_NO_PRINT = 2 ! Do not output command to the display! PARAMETER SMG$S_spare11 = 29 PmARAMETER SMG$V_spare11 = 3% BYTE %FILL (4) ! extra bits' END STRUCTURE ! SMG$R_SUBPROCESS_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$DELETE_PASTEBOARD. ! ( PARAMETER SMG$M_ERASE_PBD = '00000001'X- PARAMETER SMG$M_IGNORE_BATCHED = '00000002'X& PARAMETER SMG$m_spare10 = 'FFFFFFFC'X# STRUCTURE /SMG$R_DELETE_PBD_FLAGS/" PARAMETER SMG$S_ERASE_PBD = 1< PARAMETER SMG$V_ERASE_PBD = 0 ! Erase the pasteboard' PARAMETER SMG$S_IGNnORE_BATCHED = 1I PARAMETER SMG$V_IGNORE_BATCHED = 1 ! Delete even if pbd is batched! PARAMETER SMG$S_spare10 = 30 PARAMETER SMG$V_spare10 = 2% BYTE %FILL (4) ! extra bits' END STRUCTURE ! SMG$R_DELETE_PBD_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$CREATE_PASTEBOARD. ! , PARAMETER SMG$M_KEEP_CONTENTS = '00000001'X* PARAMETER SMG$M_WORKSTATION = '00000002'X% PARAMETER SMG$m_spare9 = 'FFFFFFFC'X# STRUCTURE /SMG$R_CREATEo_PBD_FLAGS/& PARAMETER SMG$S_KEEP_CONTENTS = 1E PARAMETER SMG$V_KEEP_CONTENTS = 0 ! Don't erase the pasteboard$ PARAMETER SMG$S_WORKSTATION = 1K PARAMETER SMG$V_WORKSTATION = 1 ! Pasteboard is DECwindows terminal PARAMETER SMG$S_spare9 = 30 PARAMETER SMG$V_spare9 = 2% BYTE %FILL (4) ! extra bits' END STRUCTURE ! SMG$R_CREATE_PBD_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$READ_xxxx. ! ( PARAMETER SMG$M p_FUNC_KEYS = '00000001'X% PARAMETER SMG$M_NOKEEP = '00000002'X' PARAMETER SMG$M_NORECALL = '00000004'X% PARAMETER SMG$m_spare8 = 'FFFFFFF8'X STRUCTURE /SMG$R_READ_FLAGS/" PARAMETER SMG$S_FUNC_KEYS = 1> PARAMETER SMG$V_FUNC_KEYS = 0 ! Disable line-editting. PARAMETER SMG$S_NOKEEP = 1F PARAMETER SMG$V_NOKEEP = 1 ! Don't save input in recall buffer! PARAMETER SMG$S_NORECALL = 1I PARAMETER SMG$V_NORECALL = 2 ! Disable input recall for this call PARqAMETER SMG$S_spare8 = 29 PARAMETER SMG$V_spare8 = 3% BYTE %FILL (4) ! extra bits! END STRUCTURE ! SMG$R_READ_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$SET_CURSOR_MODE. ! ) PARAMETER SMG$M_CURSOR_OFF = '00000001'X( PARAMETER SMG$M_CURSOR_ON = '00000002'X* PARAMETER SMG$M_SCROLL_JUMP = '00000004'X, PARAMETER SMG$M_SCROLL_SMOOTH = '00000008'X& PARAMETER SMG$m_spare16 = 'FFFFFFF0'X# STRUCTURE /SMG$R_SET_CURSOR_FLAGS/# PARAMET rER SMG$S_CURSOR_OFF = 1E PARAMETER SMG$V_CURSOR_OFF = 0 ! Turn the physical cursor off" PARAMETER SMG$S_CURSOR_ON = 1C PARAMETER SMG$V_CURSOR_ON = 1 ! Turn the physical cursor on$ PARAMETER SMG$S_SCROLL_JUMP = 19 PARAMETER SMG$V_SCROLL_JUMP = 2 ! Set jump scroll& PARAMETER SMG$S_SCROLL_SMOOTH = 1< PARAMETER SMG$V_SCROLL_SMOOTH = 3 ! Set smooth scroll! PARAMETER SMG$S_spare16 = 28 PARAMETER SMG$V_spare16 = 4% BYTE %FILL (4) ! extras bits' END STRUCTURE ! SMG$R_SET_CURSOR_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$GET_DISPLAY_ATTR. ! ' PARAMETER SMG$M_VIEWPORT = '00000001'X) PARAMETER SMG$M_SUBPROCESS = '00000002'X# PARAMETER SMG$M_MENU = '00000004'X% PARAMETER SMG$m_spare7 = 'FFFFFFF8'X$ STRUCTURE /SMG$R_GET_DISPLAY_FLAGS/! PARAMETER SMG$S_VIEWPORT = 1B PARAMETER SMG$V_VIEWPORT = 0 ! Display contains a viewport# PARAMETER SMG$S_SUBPROCESS = 1F PtARAMETER SMG$V_SUBPROCESS = 1 ! Display contains a subprocess PARAMETER SMG$S_MENU = 1: PARAMETER SMG$V_MENU = 2 ! Display contains a menu PARAMETER SMG$S_spare7 = 29 PARAMETER SMG$V_spare7 = 3% BYTE %FILL (4) ! extra bits( END STRUCTURE ! SMG$R_GET_DISPLAY_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$PUT_CHARS. ! ) PARAMETER SMG$M_ERASE_LINE = '00000001'X+ PARAMETER SMG$M_ERASE_TO_EOL = '00000002'X% PARAMETER u SMG$m_spare6 = 'FFFFFFFC'X" STRUCTURE /SMG$R_PUT_CHARS_FLAGS/# PARAMETER SMG$S_ERASE_LINE = 1> PARAMETER SMG$V_ERASE_LINE = 0 ! Erase the entire line% PARAMETER SMG$S_ERASE_TO_EOL = 1J PARAMETER SMG$V_ERASE_TO_EOL = 1 ! Erase from cursor to end of line PARAMETER SMG$S_spare6 = 30 PARAMETER SMG$V_spare6 = 2% BYTE %FILL (4) ! extra bits& END STRUCTURE ! SMG$R_PUT_CHARS_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for !v SMG$MOVE_TEXT. ! ( PARAMETER SMG$M_TEXT_SAVE = '00000001'X( PARAMETER SMG$M_TEXT_ONLY = '00000002'X& PARAMETER SMG$m_spare17 = 'FFFFFFFC'X" STRUCTURE /SMG$R_MOVE_TEXT_FLAGS/" PARAMETER SMG$S_TEXT_SAVE = 1H PARAMETER SMG$V_TEXT_SAVE = 0 ! Don't erase text after moving it" PARAMETER SMG$S_TEXT_ONLY = 1= PARAMETER SMG$V_TEXT_ONLY = 1 ! Don't move attributes! PARAMETER SMG$S_spare17 = 30 PARAMETER SMG$V_spare17 = 2% BYTE %FILL (4) ! extra bits& EwND STRUCTURE ! SMG$R_MOVE_TEXT_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for( ! SMG$PUT_PASTEBOARD and SMG$SNAPSHOT. ! ( PARAMETER SMG$M_FORM_FEED = '00000001'X% PARAMETER SMG$m_spare5 = 'FFFFFFFE'X! STRUCTURE /SMG$R_SNAPSHOT_FLAGS/" PARAMETER SMG$S_FORM_FEED = 1I PARAMETER SMG$V_FORM_FEED = 0 ! Output form feed before first row PARAMETER SMG$S_spare5 = 31 PARAMETER SMG$V_spare5 = 1% BYTE %FILL (4) ! extra bits% END STRUC xTURE ! SMG$R_SNAPSHOT_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$PUT_xxxx. ! ( PARAMETER SMG$M_WRAP_CHAR = '00000001'X( PARAMETER SMG$M_WRAP_WORD = '00000002'X% PARAMETER SMG$m_spare4 = 'FFFFFFFC'X! STRUCTURE /SMG$R_PUT_LINE_FLAGS/" PARAMETER SMG$S_WRAP_CHAR = 1L PARAMETER SMG$V_WRAP_CHAR = 0 ! Do character wrapping at end of line" PARAMETER SMG$S_WRAP_WORD = 1G PARAMETER SMG$V_WRAP_WORD = 1 ! Do word wrapping at end of lyine PARAMETER SMG$S_spare4 = 30 PARAMETER SMG$V_spare4 = 2% BYTE %FILL (4) ! extra bits% END STRUCTURE ! SMG$R_PUT_LINE_FLAGS ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$SET_KEYPAD_MODE. ! 1 PARAMETER SMG$M_KEYPAD_APPLICATION = '00000001'X- PARAMETER SMG$M_KEYPAD_NUMERIC = '00000002'X% PARAMETER SMG$m_spare3 = 'FFFFFFFC'X STRUCTURE /SMG$R_KEYPAD_MODES/+ PARAMETER SMG$S_KEYPAD_APPLICATION = 1B PARAMETER SMG$V_KEYPAD_zAPPLICATION = 0 ! Application keypad' PARAMETER SMG$S_KEYPAD_NUMERIC = 1: PARAMETER SMG$V_KEYPAD_NUMERIC = 1 ! Numeric keypad PARAMETER SMG$S_spare3 = 30 PARAMETER SMG$V_spare3 = 2% BYTE %FILL (4) ! extra bits# END STRUCTURE ! SMG$R_KEYPAD_MODES ! @ ! The following defines bits used with the FLAGS parameter for ! SMG$GET_PASTING_INFO. ! - PARAMETER SMG$M_DISPLAY_PASTED = '00000001'X& PARAMETER SMG$m_spare19 = 'FFFFFFFE'X% STRUCTURE /SMG$R_PASTIN{G_INFO_FLAGS/' PARAMETER SMG$S_DISPLAY_PASTED = 1= PARAMETER SMG$V_DISPLAY_PASTED = 0 ! Display is pasted! PARAMETER SMG$S_spare19 = 31 PARAMETER SMG$V_spare19 = 1% BYTE %FILL (4) ! extra bits) END STRUCTURE ! SMG$R_PASTING_INFO_FLAGS ! ; ! The following defines bits used with menu manipulation. ! * PARAMETER SMG$M_REMOVE_ITEM = '00000001'X+ PARAMETER SMG$M_FIXED_FORMAT = '00000002'X+ PARAMETER SMG$M_DOUBLE_SPACE = '00000004'X+ PARAMETER SMG$M_RET |URN_IMMED = '00000008'X) PARAMETER SMG$M_ERASE_MENU = '00000010'X( PARAMETER SMG$M_WIDE_MENU = '00000020'X( PARAMETER SMG$M_WRAP_MENU = '00000040'X) PARAMETER SMG$M_FULL_FIELD = '00000080'X% PARAMETER SMG$m_spare2 = 'FFFFFF00'X STRUCTURE /SMG$R_MENU_FLAGS/$ PARAMETER SMG$S_REMOVE_ITEM = 1? PARAMETER SMG$V_REMOVE_ITEM = 0 ! Only select item once% PARAMETER SMG$S_FIXED_FORMAT = 1= PARAMETER SMG$V_FIXED_FORMAT = 1 ! Use fixed size cols% PARAMETER SMG$S_DOUBLE_ }SPACE = 1@ PARAMETER SMG$V_DOUBLE_SPACE = 2 ! Double space menu rows% PARAMETER SMG$S_RETURN_IMMED = 1> PARAMETER SMG$V_RETURN_IMMED = 3 ! Ret on non-arrow key# PARAMETER SMG$S_ERASE_MENU = 1A PARAMETER SMG$V_ERASE_MENU = 4 ! Erase menu when deleting" PARAMETER SMG$S_WIDE_MENU = 17 PARAMETER SMG$V_WIDE_MENU = 5 ! Wide menu items" PARAMETER SMG$S_WRAP_MENU = 1E PARAMETER SMG$V_WRAP_MENU = 6 ! Wrap menu items top to bottom# PARAMETER S ~MG$S_FULL_FIELD = 1? PARAMETER SMG$V_FULL_FIELD = 7 ! Highlight entire field< ! SCROLL_BARS bitfield mask; /* Use scroll bar indicators> ! MARK_ITEM bitfield mask; /* Use def rend for chosen items PARAMETER SMG$S_spare2 = 24 PARAMETER SMG$V_spare2 = 8% BYTE %FILL (4) ! extra bits! END STRUCTURE ! SMG$R_MENU_FLAGS ! 3 ! The following are used with SMG$PUT_LINE_xxxx, / ! SMG$SCROLL_DISPLAY_AREA, and SMG$DRAW_CHAR. ! ! PARAMETER SMG$M_UP = '00000001'X# PARAMETER SMG$M_DOWN = '00000002'X$ PARAMETER SMG$M_RIGHT = '00000004'X# PARAMETER SMG$M_LEFT = '00000008'X% PARAMETER SMG$m_spare1 = 'FFFFFFF0'X STRUCTURE /SCROLL_DIRS/ PARAMETER SMG$S_UP = 1$ PARAMETER SMG$V_UP = 0 ! Up PARAMETER SMG$S_DOWN = 1' PARAMETER SMG$V_DOWN = 1 ! Down PARAMETER SMG$S_RIGHT = 1) PARAMETER SMG$V_RIGHT = 2 ! Right PARAMETER SMG$S_LEFT = 1' PARAMETER SMG$V_LEFT = 3 ! Left PARAMETER SMG$S_spare1 = 28 PARAMETER SMG$V_spare1 = 4% BYTE %FILL (4) ! extra bits END STRUCTURE ! SCROLL_DIRS !  ! Define data structures ! R PARAMETER SMG$C_BAND_INFORMATION_TABLE = '0000000C'X ! Length of table in bytes ! Q PARAMETER SMG$C_PASTEBOARD_INFO_BLOCK = '00000024'X ! Length of table in bytes ! O PARAMETER SMG$C_KEYBOARD_INFO_BLOCK = '00000024'X ! Length of table in bytes STRUCTURE /SMGDEF/ UNION ! < ! When an out-of-band AST triggers, the user's AST routine 6 ! will get called. The first argument passed to his7 ! routine is the address of a Band Information Table.4 ! The offsets into this table are described below.5 ! To make it easy to access from certain languages,5 ! the table is arranged so that it is convenient to> ! reference it as a longword vector as well as a byte block. !  MAP9 INTEGER*4 SMG$L_PASTEBOARD_ID ! Pasteboard ID6 INTEGER*4 SMG$L_ARG ! User's AST argument UNION  MAP? BYTE SMG$B_CHARACTER ! The character typed END MAP MAPF INTEGER*4 SMG$L_CHARACTER ! The character and 3 spaces END MAP END UNION END MAP1 ! When SMG$GET_PASTEBOARD_ATTRIBUTES is called,6 ! it returns data in a pasteboard information block.7 ! The following structure is used to reference fields ! in this block.5 ! Items marked with a plus (+) will be 0 unless the- ! device is a terminal  (DEVCLASS=DC$_TERM). !  MAP= INTEGER*4 SMG$L_DEVCHAR ! Device characteristicsD INTEGER*4 SMG$L_DEVDEPEND ! Specific characteristics (1)E INTEGER*4 SMG$L_DEVDEPEND2 ! Specific characteristics (2)C BYTE SMG$B_DEVCLASS ! Device class (e.g. DC$_TERM)B BYTE SMG$B_SMG_DEVTYPE ! Internal SMG device typeO BYTE SMG$B_PHY_DEVTYPE ! Physical device type (e.g. DT$_VT100)< BYTE SMG$B_ROWS ! Numb er of rows on device3 INTEGER*2 SMG$W_WIDTH ! Terminal width9 BYTE SMG$B_COLOR ! PBD background color; BYTE SMG$B_PARITY ! Parity attributes (+)7 INTEGER*2 SMG$W_SPEED ! Terminal Speed (+)< INTEGER*2 SMG$W_FILL ! Fill characteristics (+)E INTEGER*2 SMG$W_CURSOR_ROW ! Row where physical cursor is ! (1-origin)E INTEGER*2 SMG$W_CURSOR_COL ! Col where physical cursor is ! (1-origin)> INT EGER*4 SMG$L_CURSOR_DID ! Display id of topmost ! display that cursor is in. ! 0 if cursor is not in a ! virtual displayE INTEGER*4 SMG$L_DEVDEPEND3 ! Specific characteristics (3) END MAP/ ! When SMG$GET_KEYBOARD_ATTRIBUTES is called,4 ! it returns data in a keyboard information block.7 ! The following structure is used to reference fields ! in this block.5 ! Items marked with a plus (+) will be 0 unless the- ! device is a terminal (DEVCLASS=DC$_TERM).  !  MAP6 INTEGER*4 %FILL ! Device characteristics< INTEGER*4 %FILL ! Specific characteristics (1)< INTEGER*4 %FILL ! Specific characteristics (2)< BYTE %FILL ! Device class (e.g. DC$_TERM)C BYTE SMG$B_RECALL_SIZE ! Size of recall buffer (+)E BYTE %FILL ! Physical device type (e.g. DT$_VT100)O BYTE SMG$B_TYPEAHEAD_CHAR ! First char in typeahead buffer (+). INTEGER*2 %FILL ! Terminal widthU INTEGER*2 SMG$W_TYPEAHEAD_COUNT ! Number of chars in typeahead buffer (+) INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL8 INTEGER*4 %FILL ! Device characteristics 3 END MAP END UNION END STRUCTURE ! SMGDEF ! E ! Define the out-of-band information table used when an out-of-band- ! AST routine is called as it's own record. ! $ STRUCTURE /SMG$R_OUT_OF_BAND_TABLE// INTEGER*4 SMG$L_PBD_ID ! Pasteboard ID6 INTEGER*4 SMG$L_USER_ARG ! User's AST argument UNION MAP7 BYTE SMG$B_CHAR ! The character typed END MAP MAP> INTEGER*4 SMG$L_CHAR ! The character and 3 spaces END MAP END UNION( END STRUCTURE ! SMG$R_OUT_OF_BAND_TABLEM PARAMETER SMG$C_OUT_OF_BAND_TABLE = '0000000C'X ! Length of table in bytes ! B ! Define the subprocess information table used when a subprocess- ! AST routine is calle d as it's own record. ! ( STRUCTURE /SMG$R_SUBPROCESS_INFO_TABLE/- INTEGER*4 SMG$L_DISP_ID ! Display ID6 INTEGER*4 SMG$L_USR_ARG ! User's AST argument< INTEGER*4 SMG$L_STATUS ! Status of executed command, END STRUCTURE ! SMG$R_SUBPROCESS_INFO_TABLEQ PARAMETER SMG$C_SUBPROCESS_INFO_TABLE = '0000000C'X ! Length of table in bytes ! 8 ! Define an information table that can be used by bothA ! SMG$GET_PASTEBOARD_ATTRIBUTES and SMG$GET_KEYBOARD_ATTRIBUTES ! as  it's own record. ! ' STRUCTURE /SMG$R_ATTRIBUTE_INFO_BLOCK/9 INTEGER*4 SMG$L_DEV_CHAR ! Device characteristicsA INTEGER*4 SMG$L_DEV_DEPEND ! Specific characteristics (1)B INTEGER*4 SMG$L_DEV_DEPEND2 ! Specific characteristics (2)@ BYTE SMG$B_DEV_CLASS ! Device class (e.g. DC$_TERM) UNION MAP? BYTE SMG$B_PBD_TYPE ! Internal SMG device type END MAP MAPB BYTE SMG$B_RECALL_NUM ! Size of recall buffer (+) END MAP END UNIONH BYTE SMG$B_DEV_TYPE ! Physical device type (e.g. DT$_VT100) UNION MAP? BYTE SMG$B_NUM_ROWS ! Number of rows on device END MAP MAPM BYTE SMG$B_TYPEAHD_CHAR ! First char in typeahead buffer (+) END MAP END UNION4 INTEGER*2 SMG$W_NUM_COLUMNS ! Terminal width UNION MAPQ INTEGER*2 SMG$W_TYPEAHD_CNT ! Number of chars in typ eahead buffer (+) END MAP MAP@ BYTE SMG$B_PBD_COLOR ! PBD background colorB BYTE SMG$B_DEV_PARITY ! Parity attributes (+) END MAP END UNION6 INTEGER*2 SMG$W_DEV_SPEED ! Terminal Speed (+); INTEGER*2 SMG$W_DEV_FILL ! Fill characteristics (+)F INTEGER*2 SMG$W_PHYS_CURSOR_ROW ! Row where physical cursor isF INTEGER*2 SMG$W_PHYS_CURSOR_COL ! Col where physical cursor isB INTEGER*4 SMG$L_DISPLAY_ID ! Display containing phy cursorB INTEGER*4 SMG$L_DEV_DEPEND3 ! Specific characteristics (3)+ END STRUCTURE ! SMG$R_ATTRIBUTE_INFO_BLOCKP PARAMETER SMG$C_ATTRIBUTE_INFO_BLOCK = '00000024'X ! Length of table in bytes!DEC$ END OPTIONSww{Φ!*** MODULE $SMGMSG ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:33:00.16 ! " ! FILE: SMGMSG.MSG EDIT: SL1035 !  ! * *K ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1994 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT  BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE O N EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! G ! 1-035 MODIFY THE TEXT FOR SEVERAL MESSAGES TO MATCH THE HELP TEXT, % ! WHICH IS CORRECT. SL 28-SEP-1994: ! 1-034 ADD /MACRO=$SMGMSG FOR STARLETSD. TS 7-MAY-19869 ! 1-033 CHANGE WINTRUFIT TO WINTRUNCFIT JCW 18-MAR-19861 ! 1-032 ADD SUBPROCESS MESSAGES. TS 12-DEC-19850 ! 1-031 ADD VIEWPORT MESSAGES. JCW 21-NOV-1985J ! 1-030 ADD SMG$_GETDATSTR FOR USE IN HELP TEXT DISPLAY. TS  17-OCT-1985I ! 1-029 ADD SMG$_NOTIMP - NOT IMPLEMENTED ERROR MESSAGE. JCW 2-JUL-19855 ! 1-028 ADD LINNOTFND AND EXPTOOCOM. TS 28-MAY-1985A ! 1-027 ADD DISREQ, LENNOTEQL, LENMUSONE FOR SMG$READ_VERIFY. D ! ADD FILESPEC TO TERMTABLE COMPILER ERROR MESSAGES. TS 8-JAN-1985$ ! 1-001 ORIGINAL. PLL 16-MAR-1983 ! - ! +@ ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! SMG$_ABCMNOXYZ ! M ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",O ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR4 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! N ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR8 ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: ! ! $SMGDEF ! > ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.< ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;A ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. !  ! -& ! TEMPLATE FOR DOCUMENTING MESSAGES.: ! EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND ! IS FOLLOWED BY A BLANK LINE.H ! BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "!" IN REGULAR COMMENTS? ! AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE: ! SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE$ ! DOCUMENTATION BECOMES AUTOMATED. ! ++ ! FACILITY: SMG ! EXPLANATION: X ! USER ACTION: Y ! -- ! ; SET LH TO 18 (DECIMAL).& PARAMETER SMG$_FACILITY = '00000012'X$ PARAMETER SMG$_NORMAL = '00128001'X ! ++ ! FACILITY: SMG. ! EXPLANATION: NORMAL SUCCESSFUL COMPLETION. ! USER ACTION: NONE ! --' PARAMETER SMG$_PREDEFREP = '00128011'X ! ++ ! FACILITY: SMG@ ! EXPLANATION: A PREVIOUS KEY DEFINITION WAS REPLACED BY A NEW ! DEFINITION. ! USER ACTION: NONE ! -- ! +6 ! THE NEXT THREE MESSAGES ARE USED BY THE "batching"D ! PROCEDURES, SMG$BE GIN_DISPLAY_UPDATE AND SMG$END_DISPLAY_UPDATE.; ! THE TEXT OF THE MESSAGES SHOULD CHANGE IF WE DECIDE NOT( ! TO PUBLICLY USE THE TERM "batching". ! -' PARAMETER SMG$_BATSTIPRO = '00128019'X ! ++ ! FACILITY: SMG= ! EXPLANATION: A USER TRIED TO END BATCHING (UPDATING) WITH( ! A CALL TO SMG$END_DISPLAY_UPDATE OR- ! SMG$END_PASTEBOARD_UPDATE. THIS DID NOT5 ! TERMINATE BATCHING BECAUSE THERE WERE MORE CALLS1 ! MADE TO BEGIN BATCHING THAN TO END BATCHING.? ! USER ACTION: NONE. SOME OUTER LEVEL ROUTINE PROBABLY STILL$ ! WANTS BATCHING TO BE IN EFFECT. ! --' PARAMETER SMG$_BATWASOFF = '00128021'X ! ++ ! FACILITY: SMG: ! EXPLANATION: A PROGRAM TRIED TO TURN OFF BATCHING WHEN ! BATCHING WAS ALREADY OFF.> ! USER ACTION: PROBABLY NONE. CHECK THAT THERE WAS ONE CALL6 ! TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF. ! --' PARAMETER SMG$_BATWAS_ON = '00128029'X ! ++ ! FACILITY: SMG9 ! EXPLANATION: A PROGRAM TRIED TO TURN ON BATCHING WHEN0 ! BATCHING WAS ALREADY ON. THIS IS NORMAL IN ! A MODULAR ENVIRONMENT.5 ! USER ACTION: NONE. CHECK THAT THERE WAS ONE CALL6 ! TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF. ! --' PARAMETER SMG$_PASALREXI = '00128031'X ! ++ ! FACILITY: SMGB ! EXPLANATION: A USER TRIED TO CREATE A PASTEBOARD FOR A DEVICE,5 ! WHEN ONE WAS ALREADY CREATED. THIS IS NORMAL IN7 ! A MODULAR ENVIRONMENT. THE EXISTING PASTEBOARD ID ! IS RETURNED.> ! USER ACTION: NONE. MAKE SURE YOU DON'T DELETE A PASTEBOARD% ! THAT YOU ACTUALLY DIDN'T CREATE. ! --' PARAMETER SMG$_NOT_A_TRM = '00128039'X ! ++ ! FACILITY: SMGB ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT4 ! THE PASTEBOARD HAS BEEN CREATED, BUT THE OUTPUT ! DEVICE IS NOT A TERMINAL. ! USER ACTION: NONE. ! --' PARAMETER SMG$_NO_MORMSG = '00128041'X ! ++ ! FACILITY: SMG? ! EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FOUND THAT0 ! THERE WERE NO MORE MESSAGES TO BE OBTAINED. ! USER ACTION: NONE. ! --' PARAMETER SMG$_WILUSERMS = '00128049'X ! ++ ! FACILITY: SMG= ! EXPLANATION: NORMALLY THE SCREEN IS UPDATED AT THE END OF7 ! EVERY OUTPUT OPERATION. IF, HOWEVER, THE 'DEVICE'4 ! IS ACTUALLY A FILE OR AN UNKNOWN TERMINAL, THEN3 ! THIS MESSAGE IS GIVEN AT THE TIME OUTPUT WOULD" ! HAVE BEEN SENT TO THE SCREEN. ! USER ACTION: NONE ! --' PARAMETER SMG$_NOTRMSOUT = '00128051'X ! ++ ! FACILITY: SMGD ! EXPLANAT ION: SMG$SNAPSHOT IS USED WITH FILES AND UNKNOWN DEVICES9 ! TO CAPTURE THE CONTENTS OF THE PASTEBOARD AT VARIOUS7 ! TIMES. IF SMG$SNAPSHOT IS CALLED FOR A PASTEBOARD7 ! ASSOCIATED WITH A VIDEO TERMINAL, THEN IT TAKES NO3 ! ACTION AND RETURNS THIS INFORMATIONAL MESSAGE. ! USER ACTION: NONE ! --' PARAMETER SMG$_NO_CHADIS = '00128059'X ! ++ ! FACILITY: SMGD ! EXPLANATION: THE REQUESTED NUMBER OF COLUMNS TO CHANGE WAS ZERO,3 ! SO NOTHING IN THE VIRTUAL DISPLAY WAS CHANGED. ! USER ACTION: NONE ! --' PARAMETER SMG$_PRISECMAP = '00128061'X ! ++ ! FACILITY: SMG? ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS FOUND IN, ! THE CALLER'S PRIVATE COPY OF TERMTABLE. ! USER ACTION: NONE ! --' PARAMETER SMG$_GBLSECMAP = '00128069'X ! ++ ! FACILITY: SMG? ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS FOUND IN: ! THE SYSTEM TERMTABLE. (REQUESTED TERMINAL DEFINITION6 ! DID NOT EXIST IN THE CALLER'S PRIVATE TERMTABLE.) ! USER ACTION: NONE ! --) PARAMETER SMG$_WINTRUNCFIT = '00128071'X ! ++ ! FACILITY: SMGF ! EXPLANATION: THE VIEWPORT SPECIFICATION WILL NOT FIT WHOLLY WITHIN9 ! THE VIRTUAL DISPLAY. THE VIEWPORT HAS BEEN TRUNCATED' ! TO FIT WITHIN THE VIRTUAL DISPLAY. ! USER ACTION: NONE ! --' PARAMETER SMG$_SUBALREXI = '00128079'X ! ++ ! FACILITY: SMGB ! EXPLANATION: A USER TRIED TO CREATE A SUBPROCESS FOR A VIRTUAL< ! DISPLAY, WHEN ONE WAS ALREADY CREATED. THIS IS NORMAL ! IN A MODULAR ENVIRONMENT.  ! USER ACTION: NONE.  ! --' PARAMETER SMG$_NONBRDMSG = '00128081'X ! ++ ! FACILITY: SMG? ! EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FOUND THAT6 ! THERE WAS A NON-BROADCAST MESSAGE TO BE OBTAINED. ! USER ACTION: NONE. ! --' PARAMETER SMG$_FATERRLIB = '00128204'X ! ++ ! FACILITY: SMG; ! EXPLANATION: AN INTERNAL ERROR HAS OCCURRED WITHIN SMG.: ! USER ACTION: CONTACT A DIGITAL SUPPORT REPRESENTATIVE. ! --$ PARAMETER SMG$_INVARG = '0012820C'X ! ++ ! FACILITY: SMGH ! EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE.> ! USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS+ ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --$ PARAMETER SMG$_INVCOL = '00128214'X ! ++ ! FACILITY: SMGG ! EXPLANATION: AN INVALID COLUMN NUMBER WAS SPECIFIED. IT WAS EITHER5 ! LESS THAN 0 OR LARGER THAN THE NUMBER OF COLUMNS ! IN THE VIRTUAL DISPLAY.E ! USER ACTION: SPECIFY A VALID COLUMN NUMBER. COLUMNS ARE NUMBERED ! BEGINNING WITH 1. ! --' PARAMETER SMG$_INVDIS_ID = '0012821C'X ! ++ ! FACILITY: SMG5 ! EXPLANATION: AN INVALID DISPLAY-ID WAS SPECIFIED.G ! USER ACTION: CHECK THAT YOU ARE PASSING THE DISPLAY ID BY REFERENCE1 ! NOT BY VALUE. ENSURE THAT THE DISPLAY ID WAS? ! PREVIOUSLY SET UP BY A CALL TO SMG$CREATE_VIRTUAL_DISPLAY. ! --' PARAMETER SMG$_INVPAS_ID = '00128224'X ! ++ ! FACILITY: SMG8 ! EXPLANATION: AN INVALID PASTEBOARD  ID WAS SPECIFIED.J ! USER ACTION: CHECK THAT YOU ARE PASSING THE PASTEBOARD ID BY REFERENCE8 ! NOT BY VALUE. (A REFERENCE TO A 0 IS VALID, SINCE 0: ! IS A LEGAL PASTEBOARD ID.) ENSURE THAT THE PASTEBOARD' ! WAS PREVIOUSLY SET UP BY A CALL TO: ! SMG$CREATE_PASTEBOARD AND THAT THE PASTEBOARD HAS NOT ! BEEN DELETED. ! --$ PARAMETER SMG$_INVROW = '0012822C'X ! ++ ! FACILITY: SMGD ! EXPLANATION: AN INVALID ROW NUMBER WAS SPECIFIED. IT WAS EITHER2 ! LESS THAN 0 OR LARGER  THAN THE NUMBER OF ROWS ! IN THE VIRTUAL DISPLAY.? ! USER ACTION: SPECIFY A VALID ROW NUMBER. ROWS ARE NUMBERED ! BEGINNING WITH 1. ! --' PARAMETER SMG$_DSPIN_USE = '00128234'X ! ++ ! FACILITY: SMG? ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOT? ! LEGAL WHILE OUTPUT TO THE VIRTUAL DISPLAY IS BEING ACTIVE.> ! FOR EXAMPLE, YOU CAN'T OUTPUT TEXT TO A DISPLAY IN AN AST> ! ROUTINE THAT INTERRUPTED A SMG$ CALL ON THE SAME DISPLAY.J ! USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE UPDATES2 ! TO THE SAME VIRTUAL DISPLAY AT THE SAME TIME. ! --' PARAMETER SMG$_TOOMANPAS = '0012823C'X ! ++ ! FACILITY: SMG? ! EXPLANATION: AN INTERNAL LIMIT ON THE NUMBER OF PASTEBOARDS2 ! THAT YOUR PROGRAM MAY HAVE HAS BEEN EXCEEDED. ! THE LIMIT IS CURRENTLY 31.' ! USER ACTION: USE FEWER PASTEBOARDS. ! --' PARAMETER SMG$_WRONUMARG = '00128244'X ! ++ ! FACILITY: SMGA ! EXPLANATION: AN SMG ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS1 ! (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) ! OR TOO MANY ARGUMENTS.: ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH$ ! THE PROPER NUMBER OF ARGUMENTS. ! --' PARAMETER SMG$_INVKBD_ID = '0012824C'X ! ++ ! FACILITY: SMG3 ! EXPLANATION: AN INVALID KEYBOARD ID WAS PASSED.H ! USER ACTION: CHECK THAT YOU ARE PASSING THE KEYBOARD ID BY REFERENCE2 ! NOT BY VALUE. ENSURE THAT THE KEYBOARD ID WAS$ ! PREVIOUSLY SET UP BY A CALL TO ! ! SMG$CREATE_VIRTUAL_KEYBOARD. ! --' PARAMETER SMG$_INVKTB_ID = '00128254'X ! ++ ! FACILITY: SMG4 ! EXPLANATION: AN INVALID KEY TABLE ID WAS PASSED.I ! USER ACTION: CHECK THAT YOU ARE PASSING THE KEY TABLE ID BY REFERENCE3 ! NOT BY VALUE. ENSURE THAT THE KEY TABLE ID WAS$ ! PREVIOUSLY SET UP BY A CALL TO  ! SMG$CREATE_KEY_TABLE. ! --' PARAMETER SMG$_INVMAXLEN = '0012825C'X ! ++ ! FACILITY: SMGA ! EXPLANATION: THE MAXIMUM LENGTH SPECIFIED FOR AN INPUT STRING ! WAS TOO LONG.B ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS AN INPUT& ! STRING OF 512 CHARACTERS OR LESS. ! --' PARAMETER SMG$_FILTOOLON = '00128264'X ! ++ ! FACILITY: SMG3 ! EXPLANATION: THE LENGTH OF THE SPECIFIED STRING ! WAS TOO LONG.@ ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE$ ! NAME OF 255 CHARACTERS OR LESS. ! --' PARAMETER SMG$_PROTOOLON = '0012826C'X ! ++ ! FACILITY: SMGG ! EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEE DED 512 CHARACTERS.> ! USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. ! --' PARAMETER SMG$_NOTPASTED = '00128274'X ! ++ ! FACILITY: SMGA ! EXPLANATION: AN ATTEMPT WAS MADE TO UNPASTE OR MOVE A DISPLAY5 ! THAT WAS NOT PASTED TO THE SPECIFIED PASTEBOARD.C ! USER ACTION: CHECK THAT YOU ARE REFERENCING THE CORRECT VIRTUAL3 ! DISPLAY. VERIFY THAT THE DISPLAY HAS NOT BEEN- ! UNPASTED OR THAT YOU FORGOT TO PASTE IT. ! --' PARAMETER SMG$_PBDIN_USE = '0012827C'X ! ++ ! FACILITY: SMG? ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOT; ! LEGAL WHILE OUTPUT TO THE PASTEBOARD IS BEING BATCHED.1 ! FOR EXAMPLE, YOU CAN'T CHANGE THE PASTEBOARD5 ! CHARACTERISTICS WHILE THE PASTEBOARD IS BATCHED.C ! USER ACTION: TURN OFF PASTEBOARD BATCHING BEFORE ATTEMPTING THE9 ! OPERATION. YOU MAY TURN BATCHING ON AGAIN AFTER THE ! OPERATION. ! --' PARAMETER SMG$_INVWIDARG = '00128284'X ! ++ ! FACILITY: SMGB ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS- ! OF THE TERMINAL, SETTING ITS WIDTH TO 0.; ! USER ACTION: CORRECT THE CODE. A WIDTH OF 0 IS ILLEGAL. ! --' PARAMETER SMG$_INVPAGARG = '0012828C'X ! ++ ! FACILITY: SMGB ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS: ! OF THE TERMINAL, SETTING ITS HEIGHT (PAGE SIZE) TO 0.< ! USER ACTION: CORRECT THE CODE. A HEIGHT OF 0 IS ILLEGAL. ! --' PARAMETER SMG$_INVCOLARG = '00128294'X ! ++ ! FACILITY: SMGB ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS3 ! OF THE TERMINAL, CHANGING ITS BACKGROUND COLOR# ! TO A VALUE THAT WAS NOT LEGAL.A ! USER ACTION: CHECK THE SYMBOLIC NAME FOR THE BACKGROUND COLOR$ ! DESIRED. SPECIFY IT CORRECTLY. ! --' PARAMETER SMG$_DIALINNOT = '0012829C'X ! ++ ! FACILITY: SMGG ! EXPLANATION: THE VERTICES SPECIFIED WILL RESULT IN A DIAGONAL LINE,/ ! RATHER THAN A VERTICAL OR HORIZONTAL LINE.G ! USER ACTION: RE-SPECIFY THE VERTICES SO THAT THE LINE DRAWN WILL BE ! VERTICAL OR HORIZONTAL. ! --' PARAMETER SMG$_TABID_MIS = '001282A4'X ! ++ ! FACILITY: SMGF ! EXPLANATION: THE TERMTABLE INTERNAL CONSISTENCY CHECK FAILED. THE9 ! ROUTINES WHICH FETCH INFORMATION FROM TERMTABLE HAVE8 ! A DIFFERENT VERSION NUMBER THAN THE TERMTABLE DATA.E ! USER ACTION: PROBABLY THE ROUTINES WHICH FETCH THE DATA ARE NEWER: ! THAN YOUR TERMTABLE.EXE. RE-COMPILE TERMTABLE.TXT TO ! UPDATE YOUR TERMTABLE.EXE.  ! --' PARAMETER SMG$_UNDTERNAM = '001282AC'X ! ++ ! FACILITY: SMGC ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN9 ! THE CALLER'S PRIVATE COPY OF TERMTABLE OR THE SYSTEM ! COPY OF TERMTABLE.F ! USER ACTION: IF YOU INTENDED TO USE A PRIVATE TERMINAL DEFINITION,8 ! MAKE SURE THAT TERMTABLE.EXE EXISTS IN YOUR PRIVATE; ! DIRECTORY AND THAT THE LOGICAL NAME TERM$TABLOC POINTS; ! TO IT. IF YOU EXPECTED YOUR TERMINAL TO BE DEFINED IN: ! THE SYSTEM TERMTABLE, CHECK WITH YOUR SYSTEM MANAGER. ! --' PARAMETER SMG$_INVTERTAB = '001282B4'X ! ++ ! FACILITY: SMGA ! EXPLANATION: AN INVALID TERMINAL TABLE ADDRESS WAS SPECIFIED.G ! USER ACTION: CHECK THAT YOU ARE PASSING THE TERMINAL TABLE ARGUMENT; ! BY REFERENCE AND NOT BY VALUE. MAKE SURE THE TERMINAL+ ! TABLE ADDRESS WAS ACQUIRED BY CALLING  ! SMG$INIT_TERM_TABLE. ! --' PARAMETER SMG$_INVREQCOD = '001282BC'X ! ++ ! FACILITY: SMGC ! EXPLANATION: DATA IS REQUE STED FROM TERMTABLE VIA REQUEST CODES9 ! WHICH ARE AVAILABLE AS SYMBOLIC NAMES. THE CODE YOU  ! HAVE SPECIFIED IS INVALID.G ! USER ACTION: CHECK THE SPELLING OF THE SYMBOLIC NAME YOU ARE USING. ! --' PARAMETER SMG$_NOTBOOCAP = '001282C4'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)E ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A BOOLEAN CAPABILITY) ! NAME BUT ENCOUNTERED SOMETHING ELSE.B ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE6 ! MISSPELLED THE BOOLEAN CAPABILITY NAME OR OMITTED6 ! ANOTHER STATEMENT SUCH AS STRING OR NUMERIC WHICH0 ! WOULD HAVE TERMINATED BOOLEAN CAPABILITIES. ! --$ PARAMETER SMG$_SYNERR = '001282CC'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)> ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED AN INVALID8 ! SYNTAX. FOR INSTANCE, THERE MAY BE A MISPLACED OR  ! MISSING EQUALS SIGN.2 ! USER ACTION: CHECK YOUR TERMINAL DEFINITION.  ! --' PARAMETER SMG$_UNDTERTYP = '001282D4'X ! ++ ! FA CILITY: SMG C ! EXPLANATION: THE DEFINITION FOR THE REQUESTED TERMINAL TYPE WAS8 ! NOT FOUND IN THE CALLER'S PRIVATE COPY OF TERMTABLE ! OR THE SYSTEM TERMTABLE.B ! USER ACTION: IF YOU INTENDED TO USE A PRIVATE DEFINITION, MAKE= ! SURE THAT TERMTABLE.EXE EXISTS IN YOUR PRIVATE DIRECTORY8 ! AND THAT THE LOGICAL NAME TERM$TABLOC POINTS TO IT.9 ! IF YOU EXPECTED YOUR TERMINAL DEFINITION TO EXIST IN7 ! THE SYSTEM TERMTABLE, CONSULT YOUR SYSTEM MANAGER. ! --' PARAMETER SMG$_MISTERNAM = '001282DC'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)A ! EXPLANATION: CAPABILITIES WERE NOT PRECEEDED BY THE NAME OF A ! TERMINAL.A ! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. MAKE SURE THAT8 ! EACH DEFINITION STARTS WITH NAME = . ! --' PARAMETER SMG$_EXPTOOCOM = '001282E4'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER). ! EXPLANATION: THE SPECIFIED EXPRESSION WAS 5 ! TOO COMPLEX FOR THE TERMTABLE COMPILER TO PARSE.D ! USER ACTION: CORRECT YOUR CAPABILITY SO THAT IT IS LESS COMPLEX. ! --$ PARAMETER SMG$_ILLVAL = '001282EC'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: A BOOLEAN CAPABILITY WAS GIVEN A VALUE OTHER THAN ! 0 OR 1.G ! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. BOOLEAN CAPABILITIES. ! MUST BE 0 OR 1 (OFF OR ON, RESPECTIVELY). ! --$ PARAMETER SMG$_INVEXP = '001282F4'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)? ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED AN INVALID  ! ARITHMETIC EXPRESSION.@ ! USER ACTION: CHECK YOUR DEFINITION. MAKE SURE THAT YOU HAVE3 ! USED ONLY VALID OPERATORS AND OPERANDS IN YOUR ! EXPRESSIONS. ! --' PARAMETER SMG$_ERRAT_LIN = '001282FC'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)? ! EXPLANATION: GENERAL INFORMATION MESSAGE INCLUDED WITH MANY7 ! TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY* ! SPECIFICALLY WHERE AN ERROR OCCURRED.= ! USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION. ! --$ PARAMETER SMG$_ERRLIN = '00128304'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)? ! EXPLANATION: GENERAL INFORMATION MESSAGE INCLUDED WITH MANY7 ! TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY0 ! SPECIFICALLY WHICH LINE CONTAINED AN ERROR.= ! USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION. ! --' PARAMETER SMG$_UNDTERNOP = '0012830C'X ! ++ ! FACILITY: SMGG ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN THE5 ! CALLER'S PRIVATE COPY  OF TERMTABLE OR THE SYSTEM; ! TERMTABLE. THE CALLER'S PRIVATE TERMTABLE COULDN'T BE; ! BE ACCESSED, EITHER BECAUSE IT DIDN'T EXIST OR BECAUSE! ! RMS COULD NOT OPEN THE FILE.F ! USER ACTION: IF YOU INTENDED TO USE A DEFINITION FROM YOUR PRIVATE; ! TERMTABLE, MAKE SURE THAT TERMTABLE.EXE EXISTS IN YOUR< ! PRIVATE DIRECTORY AND THAT THE LOGICAL NAME TERM$TABLOC: ! POINTS TO IT. MAKE SURE THAT YOU HAVE READ ACCESS TO ! THE FILE. ! --' PARAMETER SMG$_UNDTERNOS = '00128314'X ! ++ ! FACILITY: SMGC ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN< ! THE CALLER'S PRIVATE TERMTABLE OR THE SYSTEM TERMTABLE.* ! THE SYSTEM TERMTABLE WAS UNAVAILABLE.C ! USER ACTION: THE SYSTEM TERMTABLE SHOULD BE MAPPED AS A GLOBAL 8 ! SECTION AND THEREFORE SHOULD ALWAYS BE AVAILABLE. 0 ! CONSULT YOUR SYSTEM MANAGER REGARDING THIS. ! --' PARAMETER SMG$_MISFILSPE = '0012831C'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: THE  REQUIRE STATEMENT NEEDS A FILE NAME IN ORDER TO9 ! LOCATE EXTERNAL DEFINITIONS WHICH SHOULD BECOME PART ! OF YOUR TERMTABLE.B ! USER ACTION: CHECK YOUR TERMTABLE.TXT. ADD A FILE NAME TO THE ! REQUIRE STATEMENT. ! --& PARAMETER SMG$_UNRECSTA = '00128324'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED A STATEMENT THAT ! IT DOES NOT RECOGNIZE.C ! USER ACTION: CHECK YOUR DEFINITION. MAKE SURE YOU HAVE SPELLED7 ! KEYWORDS CORRECTLY AND THAT STATEMENTS APPEAR ONLY ! IN VALID SEQUENCES. ! --' PARAMETER SMG$_FAIOPEFIL = '0012832C'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)? ! EXPLANATION: THE TERMTABLE COMPILER COULD NOT OPEN THE FILE ! SPECIFIED IN A REQUIRE.B ! USER ACTION: MAKE SURE THAT THE SPECIFIED FILE EXISTS AND THAT ! YOU HAVE READ ACCESS TO IT. ! --% PARAMETER SMG$_NO_ARGS = '00128334'X ! ++ ! FACILITY: SMG > ! EXPLANATION: YOU REQUESTED A CAPABILITY THAT REQUIRES US ER4 ! ARGUMENTS (SUCH AS A ROW AND COLUMN NUMBER) BUT ! DID NOT PROVIDE ANY.? ! USER ACTION: CHECK THE NUMBER OF ARGUMENTS REQUIRED BY THIS; ! CAPABILITY AND CORRECT YOUR CALL TO SMG$GET_TERM_DATA. ! --' PARAMETER SMG$_NOTNUMCAP = '0012833C'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)E ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A NUMERIC CAPABILITY) ! NAME BUT ENCOUNTERED SOMETHING ELSE.B ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE6 ! MISSP ELLED THE NUMERIC CAPABILITY NAME OR OMITTED6 ! ANOTHER STATEMENT SUCH AS STRING OR BOOLEAN WHICH0 ! WOULD HAVE TERMINATED NUMERIC CAPABILITIES. ! --' PARAMETER SMG$_NOTSTRCAP = '00128344'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A STRING CAPABILITY) ! NAME BUT ENCOUNTERED SOMETHING ELSE.B ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE5 ! MISSPELLED THE STRING CAPABILITY NAME OR OMITTED7 ! ANOTHER STATEMENT SUCH AS BOOLEAN OR NUMERIC WHICH/ ! WOULD HAVE TERMINATED STRING CAPABILITIES. ! --' PARAMETER SMG$_MISENDSTA = '0012834C'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)A ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED AN END STATEMENT5 ! TO TERMINATE THE CURRENT TERMINAL DEFINITION AND$ ! THIS END STATEMENT WAS MISSING.1 ! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. ! --' PARAMETER SMG$_MISNAMREQ = '00128354'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)A ! EX PLANATION: THE TERMTABLE COMPILER EXPECTED TERMTABLE.TXT TO6 ! BEGIN WITH A TERMINAL DEFINITION (NAME STATEMENT)3 ! OR A REQUIRE. SOMETHING ELSE WAS ENCOUNTERED., ! USER ACTION: CHECK YOUR TERMTABLE.TXT.  ! --' PARAMETER SMG$_ILLBATFNC = '0012835C'X ! ++ ! FACILITY: SMGA ! EXPLANATION: AN ATTEMPT WAS MADE TO PERFORM AN OPERATION THAT6 ! IS NOT PERMITTED WHILE A VIRTUAL DISPLAY IS BEING5 ! BATCHED (FOR EXAMPLE, PERFORMING INPUT OR MOVING ! THE VIRTUAL DISPLAY).4 ! USER ACTION: TERMINATE BATCHING FIRST BY CALLING ! SMG$END_DISPLAY_UPDATE. ! --$ PARAMETER SMG$_INVDIR = '00128364'X ! ++& ! FACILITY: SMG (TERMTABLE COMPILER)> ! EXPLANATION: THE TERMTABLE COMPILER ACCEPTS ONLY A FEW FAO5 ! DIRECTIVES. IT ENCOUNTERED ONE THAT IT DOES NOT ! HANDLE.@ ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. MAKE SURE THAT( ! YOU USE ONLY VALID FAO DIRECTIVES. ! --' PARAMETER SMG$_TRMNOTANS = '0012836C'X ! ++ ! FACILITY: SMG; ! EXPLANATION: A CALL TO SMG$GET_PHYSICAL_CURSOR WAS MADE2 ! SPECIFYING THAT THE TERMINAL IS TO BE QUERIED& ! TO DETERMINE WHERE THE CURSOR IS.0 ! THIS COULD NOT BE DONE BECAUSE THE TERMINAL0 ! WAS NOT ANSI, AND THIS FEATURE IS AVAILABLE ! ONLY ON ANSI TERMINALS.< ! USER ACTION: RERUN YOUR APPLICATION ON AN ANSI TERMINAL, ! SUCH AS A VT100. ! --' PARAMETER SMG$_LENNOTEQL = '00128374'X ! ++ ! FACILITY: SMG3 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE/ ! SPECIFYIN G A PICTURE STRING AND AN INITIAL1 ! STRING OF UNEQUAL LENGTH. SINCE THE INITIAL0 ! STRING IS USED AS THE DEFAULT VALUE FOR THE7 ! INPUT, IT MUST MATCH THE PICTURE STRING IN LENGTH.C ! USER ACTION: MODIFY THE INITIAL STRING TO BE OF THE SAME LENGTH ! AS THE PICTURE STRING. ! --' PARAMETER SMG$_LENMUSONE = '0012837C'X ! ++ ! FACILITY: SMG3 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE( ! SPECIFYING A FILL STRING OR A CLEAR= ! STRING OF MORE THAN ONE CHARACT ER. SINCE FILL CHARACTER8 ! MATCHING IS DONE ONE CHARACTER AT A TIME, ONLY ONE > ! CHARACTER MAY BE SPECIFIED FOR THE FILL AND CLEAR STRING.H ! USER ACTION: MODIFY THE FILL AND/OR CLEAR STRING TO BE ONE CHARACTER ! LONG. ! --$ PARAMETER SMG$_DISREQ = '00128384'X ! ++ ! FACILITY: SMG3 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE6 ! SPECIFYING RIGHT-JUSTIFICATION, NO DISPLAY_ID WAS6 ! SPECIFIED AND THE SCROLL_REVERSE SEQUENCE WAS NOT5 ! FOUND FOR THIS TERMINAL I N TERMTABLE.EXE. SINCE6 ! RIGHT-JUSTIFICATION REQUIRES A CURSOR POSITIONING5 ! SEQUENCE TO WORK PROPERLY, EITHER THE DISPLAY_ID6 ! PARAMETER MUST BE SPECIFIED OR THE SCROLL_REVERSE- ! SEQUENCE MUST BE ADDED TO TERMTABLE.EXE.D ! USER ACTION: ADD THE DISPLAY_ID PARAMETER TO THE SMG$READ_VERIFY0 ! CALL OR ADD THE SCROLL_REVERSE SEQUENCE TO  ! TERMTABLE.EXE. ! --$ PARAMETER SMG$_NOTIMP = '0012838C'X ! ++ ! FACILITY: SMGC ! EXPLANATION: YOU TRIED TO USE A ROUTINE THAT IS NOT IMPLEMENTED ! IN THIS VERSION OF SMG$.5 ! USER ACTION: GET THE APPROPRIATE VERSION OF SMG$. ! --) PARAMETER SMG$_NO_WINASSOC = '00128394'X ! ++ ! FACILITY: SMGD ! EXPLANATION: A VIEWPORT HAS NOT BEEN ASSOCIATED WITH THE VIRTUAL ! DISPLAY.: ! USER ACTION: CREATE A VIEWPORT ON THE VIRTUAL DISPLAY. ! --' PARAMETER SMG$_WINEXISTS = '0012839C'X ! ++ ! FACILITY: SMGH ! EXPLANATION: A VIEWPORT EXISTS. THAT IS, A VIEWPORT HAS ALREADY BEEN) ! ASSOCIATED WI TH THE VIRTUAL DISPLAY.E ! USER ACTION: 1. USE THE VIEWPORT THAT ALREADY ASSOCIATED WITH THE< ! VIRTUAL DISPLAY. 2. DELETE THE EXISTING VIEWPORT BEFORE; ! YOU CREATE THE NEW VIEWPORT. OR, 3. USE OTHER VIEWPORT3 ! ROUTINES ON CHANGE/MOVE THE EXISTING VIEWPORT. ! --& PARAMETER SMG$_NOSUBEXI = '001283A4'X ! ++ ! FACILITY: SMGF ! EXPLANATION: A SUBPROCESS DOES NOT EXIST FOR THE SPECIFIED VIRTUAL ! DISPLAY. F ! USER ACTION: CALL SMG$CREATE_SUBPROCESS TO CREATE A SUBPROCESS FOR ! THIS VIRTUAL DISPLAY. ! --' PARAMETER SMG$_INSQUOCRE = '001283AC'X ! ++ ! FACILITY: SMGD ! EXPLANATION: THE CURRENT BYTLM OR PRCLM QUOTA VALUE IS TOO SMALL ! TO CREATE A SUBPROCESS.@ ! USER ACTION: INCREASE THE ACCOUNTS BYTLM AND/OR PRCLM VALUE. ! --' PARAMETER SMG$_INPTOOLON = '001283B4'X ! ++ ! FACILITY: SMGG ! EXPLANATION: THE LENGTH OF AN INPUT STRING EXCEEDED 255 CHARACTERS.> ! USER ACTION: SHORTEN THE STRING TO 255 CHARACTERS OR LESS. ! --' PAR AMETER SMG$_KBDIN_USE = '001283BC'X ! ++ ! FACILITY: SMG? ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOTA ! LEGAL WHILE INPUT FROM THE VIRTUAL KEYBOARD IS BEING ACTIVE.? ! FOR EXAMPLE, YOU CAN'T READ TEXT FROM A KEYBOARD IN AN AST? ! ROUTINE THAT INTERRUPTED A SMG$ CALL ON THE SAME KEYBOARD.I ! USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE INPUTS5 ! FROM THE SAME VIRTUAL KEYBOARD AT THE SAME TIME. ! --! PARAMETER SMG$_EOF = '00128402'X ! ++ ! FACILITY: SMG= ! EXPLANATION: END OF FILE CONDITION WAS DETECTED ON INPUT.D ! USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS! ! CONDITION AND RESPOND TO IT. ! --' PARAMETER SMG$_KEYDEFPRO = '0012840A'X ! ++ ! FACILITY: SMGD ! EXPLANATION: THE SPECIFIED KEY IS ALREADY DEFINED, AND SINCE ITS6 ! DEFINITION IS PROTECTED, IT CAN NOT BE CHANGED OR ! RE-DEFINED. ! USER ACTION: NONE ! --' PARAMETER SMG$_INVDEFATT = '00128412'X ! ++ !  FACILITY: SMGH ! EXPLANATION: WHEN A KEY IS DEFINED, ATTRIBUTES SUCH AS NOECHO MAY BE< ! SPECIFIED WITH THE DEFINITION. AN ATTEMPT WAS MADE TO" ! SPECIFY AN UNKNOWN ATTRIBUTE.D ! USER ACTION: CHECK THE LIST OF VALID ATTRIBUTES AND CORRECT YOUR ! PROGRAM. ! --' PARAMETER SMG$_INVKEYNAM = '0012841A'X ! ++ ! FACILITY: SMGD ! EXPLANATION: THE SPECIFIED KEY NAME WAS LESS THAN 1 CHARACTER OR ! MORE THAN 31 CHARACTERS.; ! USER ACTION: CHOOSE A KEY NAME WITH 1 TO 31 CHARACTERS. ! --' PARAMETER SMG$_INVSTANAM = '00128422'X ! ++ ! FACILITY: SMGF ! EXPLANATION: THE SPECIFIED STATE NAME WAS LESS THAN 1 CHARACTER OR ! MORE THAN 31 CHARACTERS.= ! USER ACTION: CHOOSE A STATE NAME WITH 1 TO 31 CHARACTERS. ! --' PARAMETER SMG$_LINNOTFND = '0012842A'X ! ++ ! FACILITY: SMG7 ! EXPLANATION: THE INPUT LINE REQUESTED IN A CALL TO ) ! SMG$RETURN_INPUT_LINE WAS NOT FOUND.D ! USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS! ! CONDITION AND RESPOND TO IT. ! --' PARAMETER SMG$_KEYNOTDEF = '00129000'X ! ++ ! FACILITY: SMGE ! EXPLANATION: AN ATTEMPT WAS MADE TO PERFORM AN OPERATION, SUCH AS5 ! SMG$GET_KEY_DEF, ON A KEY WHICH WAS NOT DEFINED.B ! USER ACTION: CHECK YOUR PROGRAM TO SEE IF THIS KEY SHOULD HAVE ! BEEN DEFINED. ! --( PARAMETER SMG$_NOMOREKEYS = '00129008'X ! ++ ! FACILITY: SMGG ! EXPLANATION: SMG$LIST_KEY_DEFS, WHEN CALLED REPEATEDLY, RETURNS ALL; ! THE KEY DEFINITIO NS IN A KEY TABLE. WHEN THERE ARE NO. ! MORE DEFINITIONS, THIS ERROR IS RETURNED.L ! USER ACTION: MODIFY YOUR PROGRAM TO EXPECT THIS CONDITION, IF NECESSARY. ! --' PARAMETER SMG$_STRTERESC = '00129010'X ! ++ ! FACILITY: SMGE ! EXPLANATION: AN SMG OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE; ! EMBEDDED IN THE OUTPUT STRING. THE OUTPUT STRING WAS 6 ! WRITTEN TO THE VIRTUAL DISPLAY BUT THE STRING WAS' ! TERMINATED AT THE ESCAPE SEQUENCE.B ! USER ACTION: CHECK YOUR OU TPUT STRING TO DETERMINE WHAT ESCAPE7 ! SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION4 ! PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST; ! LIKELY A SMG ROUTINE THAT PROVIDES THAT FUNCTIONALITY. ! --' PARAMETER SMG$_GBLNOTCRE = '00129018'X ! ++ ! FACILITY: SMGG ! EXPLANATION: THE SYSTEM PROGRAM THAT MAPS TERMTABLE.EXE AS A GLOBAL ! SECTION WAS UNSUCCESSFUL.H ! USER ACTION: THIS MESSAGE SHOULD BE HANDLED ONLY BY SYSTEM MANAGERS.7 ! IF THERE IS ALREADY AN EXISTING  GLOBAL SECTION FOR> ! TERMTABLE, THE SYSTEM MUST BE REBOOTED IN ORDER TO CREATE ! A NEW GLOBAL SECTION. ! --( ! THE FOLLOWING IS USED WITH GBLNOTCRE' PARAMETER SMG$_DELEXIGBL = '00129020'X ! ++ ! FACILITY: SMGD ! EXPLANATION: THE SYSTEM PROGRAM WHICH MAPS TERMTABLE AS A GLOBAL; ! SECTION WAS UNSUCCESSFUL. BEFORE A NEW GLOBAL SECTION6 ! CAN BE CREATED, THE PREVIOUS ONE MUST BE DELETED.B ! USER ACTION: THE SYSTEM MUST BE REBOOTED IN ORDER TO MAP A NEW) ! TERMTABLE.EXE AS THE GLOBAL SECTION. ! --' PARAMETER SMG$_GETDATSTR = '00129028'X ! ++ ! FACILITY: SMGF ! EXPLANATION: THIS MESSAGE IS SIGNALED INTERNALLY TO ALLOW THE HELP9 ! OUTPUT ROUTINE THAT WAS CALLED BY LBR$OUTPUT_HELP TO< ! ACCESS THE DISPLAY_ID AND KEYBOARD_ID FOR THE SPECIFIED9 ! DISPLAY. THIS MESSAGE SHOULD NEVER BE RETURNED AS A< ! STATUS FROM ANY SMG ROUTINE AND MUST NOT BE DOCUMENTED. ! USER ACTION: NONE. ! --& PARAMETER SMG$_OPNOTSUP = '00129030'X ! ++ ! FACILITY: SMGB ! EXPLANATION: THE REQUESTED OPERATION CANNOT BE PERFORMED SINCE9 ! THE TERMINAL HARDWARE DOES NOT SUPPORT THIS FEATURE.E ! USER ACTION: RUN THE APPLICATION ON A TERMINAL THAT SUPPORTS THIS ! FEATURE. ! --' PARAMETER SMG$_HLPPMTSTR = '00129038'X ! ++ ! FACILITY: SMGH ! EXPLANATION: THIS MESSAGE IS THE PROMPT STRING OUTPUT BY THE ROUTINE: ! SMG$PUT_HELP_TEXT. IT IS NOT A NORMAL ERROR MESSAGE 7 ! BUT RESIDES HERE TO ALLOW TRANSLATION TO LANGUAGES !  OTHER THAN ENGLISH. ! USER ACTION: NONE. ! --!DEC$ END OPTIONSwwفWΦ!*** MODULE $SMGTRMPTR ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN6 ! Terminal Capability Pointers for RTL SMG$ facility ! ' ! Boolean capabilities here - 1 - 220 ! - PARAMETER SMG$K_ADVANCED_VIDEO = '00000001'X' PARAMETER SMG$K_ANSI_CRT = '00000002'X* PARAMETER SMG$K_AUTO_MARGIN = '00000003'X( PARAMETER SMG$K_BACKSPACE = '00000004'X) PARAMETER SMG$K_BLOCK_MODE = '0 0000005'X& PARAMETER SMG$K_DEC_CRT = '00000006'X# PARAMETER SMG$K_EDIT = '00000007'X( PARAMETER SMG$K_EIGHT_BIT = '00000008'X& PARAMETER SMG$K_FULLDUP = '00000009'X- PARAMETER SMG$K_IGNORE_NEWLINE = '0000000A'X0 PARAMETER SMG$K_INSERT_MODE_NULLS = '0000000B'X( PARAMETER SMG$K_LOWERCASE = '0000000C'X' PARAMETER SMG$K_NO_ERASE = '0000000D'X( PARAMETER SMG$K_NO_SCROLL = '0000000E'X) PARAMETER SMG$K_OVERSTRIKE = '0000000F'X+ PARAMETER SMG$K_PRINTER_PORT = '00000010'X$ PARAMETER SMG$K_REG IS = '00000011'X$ PARAMETER SMG$K_SCOPE = '00000012'X- PARAMETER SMG$K_SIXEL_GRAPHICS = '00000013'X. PARAMETER SMG$K_SOFT_CHARACTERS = '00000014'X, PARAMETER SMG$K_PHYSICAL_TABS = '00000015'X* PARAMETER SMG$K_PHYSICAL_FF = '00000016'X( PARAMETER SMG$K_UNDERLINE = '00000017'X1 PARAMETER SMG$K_CURSOR_REPORT_ANSI = '00000018'X( PARAMETER SMG$K_DEC_CRT_2 = '00000019'X( PARAMETER SMG$K_DEC_CRT_3 = '0000001A'X1 PARAMETER SMG$K_SET_CURSOR_COL_ROW = '0000001B'X% PARAMETER SMG$K_TEXT16 = '0000001C'X( PARAMETER SMG$K_DEC_CRT_4 = '0000001D'X( PARAMETER SMG$K_DEC_CRT_5 = '0000001E'X) PARAMETER SMG$K_ANSI_COLOR = '0000001F'X ! 3 ! Private capabilities reserved for customer use.% ! Put them at the end of the range. ! , PARAMETER SMG$K_PRIVATE_BOO_1 = '000000D3'X, PARAMETER SMG$K_PRIVATE_BOO_2 = '000000D4'X, PARAMETER SMG$K_PRIVATE_BOO_3 = '000000D5'X, PARAMETER SMG$K_PRIVATE_BOO_4 = '000000D6'X, PARAMETER SMG$K_PRIVATE_BOO_5 = '000000D7'X, PARAMETER SMG$K_PRIVATE_BOO_6 = '000000D8'X, PARAMETER SMG$K_PRIVATE_BOO_7 = '000000D9'X, PARAMETER SMG$K_PRIVATE_BOO_8 = '000000DA'X, PARAMETER SMG$K_PRIVATE_BOO_9 = '000000DB'X- PARAMETER SMG$K_PRIVATE_BOO_10 = '000000DC'X/ PARAMETER SMG$K_MAX_BOOLEAN_CODE = '000000DC'X ! * ! Numeric capabilities here - 221 to 440 ! & PARAMETER SMG$K_COLUMNS = '000000DD'X& PARAMETER SMG$K_CR_FILL = '000000DE'X$ PARAMETER SMG$K_FRAME = '000000DF'X& PARAMETER SMG$K_LF_FILL = '000000E0'X- PARAMETER SMG$K_NUMBER_FN_KEYS = '000000E1'X # PARAMETER SMG$K_ROWS = '000000E2'X2 PARAMETER SMG$K_VMS_TERMINAL_NUMBER = '000000E3'X2 PARAMETER SMG$K_WIDE_SCREEN_COLUMNS = '000000E4'X ! , ! Private capabilities for customer use. % ! Put them at the end of the range. ! , PARAMETER SMG$K_PRIVATE_NUM_1 = '000001AF'X, PARAMETER SMG$K_PRIVATE_NUM_2 = '000001B0'X, PARAMETER SMG$K_PRIVATE_NUM_3 = '000001B1'X, PARAMETER SMG$K_PRIVATE_NUM_4 = '000001B2'X, PARAMETER SMG$K_PRIVATE_NUM_5 = '000001B3'X, PARAMETER SMG$K_PRIVATE_NUM_6 = '000001B4'X, PARAMETER SMG$K_PRIVATE_NUM_7 = '000001B5'X, PARAMETER SMG$K_PRIVATE_NUM_8 = '000001B6'X, PARAMETER SMG$K_PRIVATE_NUM_9 = '000001B7'X- PARAMETER SMG$K_PRIVATE_NUM_10 = '000001B8'X/ PARAMETER SMG$K_MAX_NUMERIC_CODE = '000001B8'X ! ( ! String capabilities here - 441 - 660 ! 3 PARAMETER SMG$K_BEGIN_ALTERNATE_CHAR = '000001B9'X* PARAMETER SMG$K_BEGIN_BLINK = '000001BA'X) PARAMETER SMG$K_BEGIN_BOLD = '000001BB'X0 PARAMETER SMG$K_BEGIN_DELETE_MODE = '000001BC'X0 PARAMETER S MG$K_BEGIN_INSERT_MODE = '000001BD'X6 PARAMETER SMG$K_BEGIN_LINE_DRAWING_CHAR = '000001BE'X, PARAMETER SMG$K_BEGIN_REVERSE = '000001BF'X/ PARAMETER SMG$K_BEGIN_UNDERSCORE = '000001C0'X, PARAMETER SMG$K_BOTTOM_T_CHAR = '000001C1'X( PARAMETER SMG$K_CLEAR_TAB = '000001C2'X) PARAMETER SMG$K_CROSS_CHAR = '000001C3'X* PARAMETER SMG$K_CURSOR_DOWN = '000001C4'X* PARAMETER SMG$K_CURSOR_LEFT = '000001C5'X+ PARAMETER SMG$K_CURSOR_RIGHT = '000001C6'X( PARAMETER SMG$K_CURSOR_UP = '000001C7'X* PARAMET ER SMG$K_DARK_SCREEN = '000001C8'X* PARAMETER SMG$K_DELETE_CHAR = '000001C9'X* PARAMETER SMG$K_DELETE_LINE = '000001CA'X0 PARAMETER SMG$K_DEVICE_ATTRIBUTES = '000001CB'X1 PARAMETER SMG$K_DOUBLE_HIGH_BOTTOM = '000001CC'X. PARAMETER SMG$K_DOUBLE_HIGH_TOP = '000001CD'X* PARAMETER SMG$K_DOUBLE_WIDE = '000001CE'X( PARAMETER SMG$K_DUPLICATE = '000001CF'X1 PARAMETER SMG$K_END_ALTERNATE_CHAR = '000001D0'X( PARAMETER SMG$K_END_BLINK = '000001D1'X' PARAMETER SMG$K_END_BOLD = '000001D2'X. PARAMETER  SMG$K_END_DELETE_MODE = '000001D3'X. PARAMETER SMG$K_END_INSERT_MODE = '000001D4'X4 PARAMETER SMG$K_END_LINE_DRAWING_CHAR = '000001D5'X* PARAMETER SMG$K_END_REVERSE = '000001D6'X- PARAMETER SMG$K_END_UNDERSCORE = '000001D7'X3 PARAMETER SMG$K_ERASE_TO_END_DISPLAY = '000001D8'X0 PARAMETER SMG$K_ERASE_TO_END_LINE = '000001D9'X2 PARAMETER SMG$K_ERASE_WHOLE_DISPLAY = '000001DA'X/ PARAMETER SMG$K_ERASE_WHOLE_LINE = '000001DB'X# PARAMETER SMG$K_HOME = '000001DC'X- PARAMETER SMG$K_HORIZONTAL_BAR = '000001DD'X* PARAMETER SMG$K_INIT_STRING = '000001DE'X* PARAMETER SMG$K_INSERT_CHAR = '000001DF'X* PARAMETER SMG$K_INSERT_LINE = '000001E0'X) PARAMETER SMG$K_INSERT_PAD = '000001E1'X$ PARAMETER SMG$K_KEY_0 = '000001E2'X$ PARAMETER SMG$K_KEY_1 = '000001E3'X$ PARAMETER SMG$K_KEY_2 = '000001E4'X$ PARAMETER SMG$K_KEY_3 = '000001E5'X$ PARAMETER SMG$K_KEY_4 = '000001E6'X$ PARAMETER SMG$K_KEY_5 = '000001E7'X$ PARAMETER SMG$K_KEY_6 = '000001E8'X$ PARAMETER SMG$K_KEY_7 = '000001E9'X$ PARAMET ER SMG$K_KEY_8 = '000001EA'X$ PARAMETER SMG$K_KEY_9 = '000001EB'X, PARAMETER SMG$K_KEY_BACKSPACE = '000001EC'X( PARAMETER SMG$K_KEY_COMMA = '000001ED'X- PARAMETER SMG$K_KEY_DOWN_ARROW = '000001EE'X% PARAMETER SMG$K_KEY_E1 = '000001EF'X% PARAMETER SMG$K_KEY_E2 = '000001F0'X% PARAMETER SMG$K_KEY_E3 = '000001F1'X% PARAMETER SMG$K_KEY_E4 = '000001F2'X% PARAMETER SMG$K_KEY_E5 = '000001F3'X% PARAMETER SMG$K_KEY_E6 = '000001F4'X( PARAMETER SMG$K_KEY_ENTER = '000001F5'X% PARAMETER SMG$K_KEY_F1 = '000001F6'X% PARAMETER SMG$K_KEY_F2 = '000001F7'X% PARAMETER SMG$K_KEY_F3 = '000001F8'X% PARAMETER SMG$K_KEY_F4 = '000001F9'X% PARAMETER SMG$K_KEY_F5 = '000001FA'X% PARAMETER SMG$K_KEY_F6 = '000001FB'X% PARAMETER SMG$K_KEY_F7 = '000001FC'X% PARAMETER SMG$K_KEY_F8 = '000001FD'X% PARAMETER SMG$K_KEY_F9 = '000001FE'X& PARAMETER SMG$K_KEY_F10 = '000001FF'X& PARAMETER SMG$K_KEY_F11 = '00000200'X& PARAMETER SMG$K_KEY_F12 = '00000201'X& PARAMETER SMG$K_KEY_F13 = '00000202'X& PARAM ETER SMG$K_KEY_F14 = '00000203'X& PARAMETER SMG$K_KEY_F15 = '00000204'X& PARAMETER SMG$K_KEY_F16 = '00000205'X& PARAMETER SMG$K_KEY_F17 = '00000206'X& PARAMETER SMG$K_KEY_F18 = '00000207'X& PARAMETER SMG$K_KEY_F19 = '00000208'X& PARAMETER SMG$K_KEY_F20 = '00000209'X- PARAMETER SMG$K_KEY_LEFT_ARROW = '0000020A'X( PARAMETER SMG$K_KEY_MINUS = '0000020B'X) PARAMETER SMG$K_KEY_PERIOD = '0000020C'X& PARAMETER SMG$K_KEY_PF1 = '0000020D'X& PARAMETER SMG$K_KEY_PF2 = '0000020E'X& PARAMETER SMG$K_K EY_PF3 = '0000020F'X& PARAMETER SMG$K_KEY_PF4 = '00000210'X. PARAMETER SMG$K_KEY_RIGHT_ARROW = '00000211'X+ PARAMETER SMG$K_KEY_UP_ARROW = '00000212'X' PARAMETER SMG$K_LABEL_F1 = '00000213'X' PARAMETER SMG$K_LABEL_F2 = '00000214'X' PARAMETER SMG$K_LABEL_F3 = '00000215'X' PARAMETER SMG$K_LABEL_F4 = '00000216'X' PARAMETER SMG$K_LABEL_F5 = '00000217'X' PARAMETER SMG$K_LABEL_F6 = '00000218'X' PARAMETER SMG$K_LABEL_F7 = '00000219'X' PARAMETER SMG$K_LABEL_F8 = '0000021A'X' PARAMETER SMG $K_LABEL_F9 = '0000021B'X( PARAMETER SMG$K_LABEL_F10 = '0000021C'X( PARAMETER SMG$K_LABEL_F11 = '0000021D'X( PARAMETER SMG$K_LABEL_F12 = '0000021E'X( PARAMETER SMG$K_LABEL_F13 = '0000021F'X( PARAMETER SMG$K_LABEL_F14 = '00000220'X( PARAMETER SMG$K_LABEL_F15 = '00000221'X( PARAMETER SMG$K_LABEL_F16 = '00000222'X( PARAMETER SMG$K_LABEL_F17 = '00000223'X( PARAMETER SMG$K_LABEL_F18 = '00000224'X( PARAMETER SMG$K_LABEL_F19 = '00000225'X( PARAMETER SMG$K_LABEL_F20 = '00000226'X* PARAMETER SMG$K _LEFT_T_CHAR = '00000227'X+ PARAMETER SMG$K_LIGHT_SCREEN = '00000228'X0 PARAMETER SMG$K_LOWER_LEFT_CORNER = '00000229'X1 PARAMETER SMG$K_LOWER_RIGHT_CORNER = '0000022A'X# PARAMETER SMG$K_NAME = '0000022B'X+ PARAMETER SMG$K_NEWLINE_CHAR = '0000022C'X' PARAMETER SMG$K_PAD_CHAR = '0000022D'X- PARAMETER SMG$K_RESTORE_CURSOR = '0000022E'X+ PARAMETER SMG$K_RIGHT_T_CHAR = '0000022F'X* PARAMETER SMG$K_SAVE_CURSOR = '00000230'X- PARAMETER SMG$K_SCROLL_FORWARD = '00000231'X- PARAMETER SMG$K_S CROLL_REVERSE = '00000232'X7 PARAMETER SMG$K_SEL_ERASE_TO_END_DISPLAY = '00000233'X4 PARAMETER SMG$K_SEL_ERASE_TO_END_LINE = '00000234'X6 PARAMETER SMG$K_SEL_ERASE_WHOLE_DISPLAY = '00000235'X3 PARAMETER SMG$K_SEL_ERASE_WHOLE_LINE = '00000236'X5 PARAMETER SMG$K_SET_APPLICATION_KEYPAD = '00000237'X5 PARAMETER SMG$K_SET_CHAR_NOT_SEL_ERASE = '00000238'X1 PARAMETER SMG$K_SET_CHAR_SEL_ERASE = '00000239'X- PARAMETER SMG$K_SET_CURSOR_ABS = '0000023A'X1 PARAMETER SMG$K_SET_NUMERIC_KEYPAD = '000 0023B'X0 PARAMETER SMG$K_SET_SCROLL_REGION = '0000023C'X& PARAMETER SMG$K_SET_TAB = '0000023D'X* PARAMETER SMG$K_SINGLE_HIGH = '0000023E'X' PARAMETER SMG$K_TAB_CHAR = '0000023F'X) PARAMETER SMG$K_TOP_T_CHAR = '00000240'X- PARAMETER SMG$K_UNDERLINE_CHAR = '00000241'X0 PARAMETER SMG$K_UPPER_LEFT_CORNER = '00000242'X1 PARAMETER SMG$K_UPPER_RIGHT_CORNER = '00000243'X+ PARAMETER SMG$K_VERTICAL_BAR = '00000244'X+ PARAMETER SMG$K_WIDTH_NARROW = '00000245'X) PARAMETER SMG$K_WIDTH_WIDE = '000 00246'X5 PARAMETER SMG$K_CURSOR_POSITION_REPORT = '00000247'X6 PARAMETER SMG$K_REQUEST_CURSOR_POSITION = '00000248'X) PARAMETER SMG$K_CR_GRAPHIC = '00000249'X) PARAMETER SMG$K_FF_GRAPHIC = '0000024A'X) PARAMETER SMG$K_LF_GRAPHIC = '0000024B'X) PARAMETER SMG$K_HT_GRAPHIC = '0000024C'X) PARAMETER SMG$K_VT_GRAPHIC = '0000024D'X. PARAMETER SMG$K_TRUNCATION_ICON = '0000024E'X/ PARAMETER SMG$K_CURSOR_NEXT_LINE = '0000024F'X4 PARAMETER SMG$K_CURSOR_PRECEDING_LINE = '00000250'X$ PARAMETER S MG$K_INDEX = '00000251'X, PARAMETER SMG$K_REVERSE_INDEX = '00000252'X5 PARAMETER SMG$K_BEGIN_NORMAL_RENDITION = '00000253'X2 PARAMETER SMG$K_BEGIN_AUTOWRAP_MODE = '00000254'X0 PARAMETER SMG$K_END_AUTOWRAP_MODE = '00000255'X4 PARAMETER SMG$K_BEGIN_AUTOREPEAT_MODE = '00000256'X2 PARAMETER SMG$K_END_AUTOREPEAT_MODE = '00000257'X2 PARAMETER SMG$K_SET_ORIGIN_RELATIVE = '00000258'X2 PARAMETER SMG$K_SET_ORIGIN_ABSOLUTE = '00000259'X3 PARAMETER SMG$K_ERASE_LINE_TO_CURSOR = '0000025A'X( PARAMETER S MG$K_NEXT_LINE = '0000025B'X3 PARAMETER SMG$K_BEGIN_AUTOPRINT_MODE = '0000025C'X1 PARAMETER SMG$K_END_AUTOPRINT_MODE = '0000025D'X+ PARAMETER SMG$K_PRINT_SCREEN = '0000025E'X, PARAMETER SMG$K_SET_CURSOR_ON = '0000025F'X- PARAMETER SMG$K_SET_CURSOR_OFF = '00000260'X1 PARAMETER SMG$K_SET_PRINTER_OUTPUT = '00000261'X0 PARAMETER SMG$K_SET_SCREEN_OUTPUT = '00000262'X6 PARAMETER SMG$K_ERASE_DISPLAY_TO_CURSOR = '00000263'X5 PARAMETER SMG$K_REQUEST_PRINTER_STATUS = '00000264'X, PARAMETER SMG$K _PRINTER_READY = '00000265'X0 PARAMETER SMG$K_PRINTER_NOT_READY = '00000266'X) PARAMETER SMG$K_NO_PRINTER = '00000267'X. PARAMETER SMG$K_SET_JUMP_SCROLL = '00000268'X0 PARAMETER SMG$K_SET_SMOOTH_SCROLL = '00000269'X) PARAMETER SMG$K_ERROR_ICON = '0000026A'X* PARAMETER SMG$K_PAGE_LENGTH = '0000026B'X ! 4 ! Private capabilities reserved for customer use. % ! Put them at the end of the range. ! , PARAMETER SMG$K_PRIVATE_STR_1 = '0000028B'X, PARAMETER SMG$K_PRIVATE_STR_2 = '0000028C'X , PARAMETER SMG$K_PRIVATE_STR_3 = '0000028D'X, PARAMETER SMG$K_PRIVATE_STR_4 = '0000028E'X, PARAMETER SMG$K_PRIVATE_STR_5 = '0000028F'X, PARAMETER SMG$K_PRIVATE_STR_6 = '00000290'X, PARAMETER SMG$K_PRIVATE_STR_7 = '00000291'X, PARAMETER SMG$K_PRIVATE_STR_8 = '00000292'X, PARAMETER SMG$K_PRIVATE_STR_9 = '00000293'X- PARAMETER SMG$K_PRIVATE_STR_10 = '00000294'X. PARAMETER SMG$K_MAX_STRING_CODE = '00000294'X ! / ! Second string capabilities here - 661 - 880 ! * PARAMETER SMG$K_BEGIN_U SER1 = '00000295'X* PARAMETER SMG$K_BEGIN_USER2 = '00000296'X* PARAMETER SMG$K_BEGIN_USER3 = '00000297'X* PARAMETER SMG$K_BEGIN_USER4 = '00000298'X* PARAMETER SMG$K_BEGIN_USER5 = '00000299'X* PARAMETER SMG$K_BEGIN_USER6 = '0000029A'X* PARAMETER SMG$K_BEGIN_USER7 = '0000029B'X* PARAMETER SMG$K_BEGIN_USER8 = '0000029C'X( PARAMETER SMG$K_END_USER1 = '0000029D'X( PARAMETER SMG$K_END_USER2 = '0000029E'X( PARAMETER SMG$K_END_USER3 = '0000029F'X( PARAMETER SMG$K_END_USER4 = '000002A0'X( PARAMETER  SMG$K_END_USER5 = '000002A1'X( PARAMETER SMG$K_END_USER6 = '000002A2'X( PARAMETER SMG$K_END_USER7 = '000002A3'X( PARAMETER SMG$K_END_USER8 = '000002A4'X+ PARAMETER SMG$K_BLACK_SCREEN = '000002A5'X* PARAMETER SMG$K_BLUE_SCREEN = '000002A6'X* PARAMETER SMG$K_CYAN_SCREEN = '000002A7'X- PARAMETER SMG$K_MAGENTA_SCREEN = '000002A8'X+ PARAMETER SMG$K_GREEN_SCREEN = '000002A9'X) PARAMETER SMG$K_RED_SCREEN = '000002AA'X+ PARAMETER SMG$K_WHITE_SCREEN = '000002AB'X, PARAMETER SMG$K_YELLOW_SCREEN  = '000002AC'X+ PARAMETER SMG$K_USER1_SCREEN = '000002AD'X+ PARAMETER SMG$K_USER2_SCREEN = '000002AE'X0 PARAMETER SMG$K_BEGIN_STATUS_LINE = '000002AF'X. PARAMETER SMG$K_END_STATUS_LINE = '000002B0'X, PARAMETER SMG$K_BEGIN_LOCATOR = '000002B1'X* PARAMETER SMG$K_END_LOCATOR = '000002B2'X- PARAMETER SMG$K_KEY_FIRST_DOWN = '000002B3'X. PARAMETER SMG$K_KEY_SECOND_DOWN = '000002B4'X- PARAMETER SMG$K_KEY_THIRD_DOWN = '000002B5'X. PARAMETER SMG$K_KEY_FOURTH_DOWN = '000002B6'X+ PARAMETER SMG$K_K EY_FIRST_UP = '000002B7'X, PARAMETER SMG$K_KEY_SECOND_UP = '000002B8'X+ PARAMETER SMG$K_KEY_THIRD_UP = '000002B9'X, PARAMETER SMG$K_KEY_FOURTH_UP = '000002BA'X+ PARAMETER SMG$K_USER3_SCREEN = '000002BB'X+ PARAMETER SMG$K_USER4_SCREEN = '000002BC'X+ PARAMETER SMG$K_USER5_SCREEN = '000002BD'X+ PARAMETER SMG$K_USER6_SCREEN = '000002BE'X+ PARAMETER SMG$K_USER7_SCREEN = '000002BF'X+ PARAMETER SMG$K_USER8_SCREEN = '000002C0'X( PARAMETER SMG$K_SET_ASCII = '000002C1'X0 PARAMETER SMG$K_SET_SPEC_GRAPHICS = '000002C2'X/ PARAMETER SMG$K_SET_SUPPLEMENTAL = '000002C3'X+ PARAMETER SMG$K_SET_JIS_KANA = '000002C4'X( PARAMETER SMG$K_SET_KANJI = '000002C5'X, PARAMETER SMG$K_SET_JIS_ROMAN = '000002C6'X( PARAMETER SMG$K_SET_HANZI = '000002C7'X( PARAMETER SMG$K_SET_HANYU = '000002C8'X) PARAMETER SMG$K_SET_HANGUL = '000002C9'X+ PARAMETER SMG$K_SET_KS_ROMAN = '000002CA'X/ PARAMETER SMG$K_MAX_STRING2_CODE = '00000370'X!DEC$ END OPTIONSww#JΦ!*** MODULE $SMRDEF *** :!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ) ! DEFINE SYMBIONT MANAGER REQUEST CODES ! # ! SYMBIONT MANAGER REQUEST CODES > PARAMETER SMR$K_INITIAL = '00000000'X ! INITIALIZE A QUEUE ; PARAMETER SMR$K_DELETE = '00000001'X ! DELETE THE QUEUE E PARAMETER SMR$K_START = '00000002'X ! ACTIVATE OR RESUME PRINTING F PARAMETER SMR$K_PAUSE = '00000003'X ! SUSPEND PRINTING FOR A WHILE P PARAMETER SMR$K_MERGE = '00000004'X ! MOVE FILES FORM ONE QUEUE INTO ANOTHER O PARAMETER SMR$K_REDIRECT = '00000005'X ! ASSIGNMENT OF ONE QUEUE TO ANOTHER M PARAMETER SMR$K_JUSTIFY = '00000006'X ! JUSTIFY PRINT FORMS(IE: ISSUE FF) B PARAMETER SMR$K_STOP = '00000007'X ! DISABLE FURTHER DE-QUEING ? PARAMETER SMR$K_ENTER = '00000008'X ! ADD A FILE TO A QUEUE = PARAMETER SMR$K_CREJOB = '00000009'X ! CREATE A PRINT JOB E PARAMETER SMR$K_ADDFIL = '0000000A'X ! ADD A FILE TO EXISTING JOB 9 PARAMETER SMR$K_CLSJOB = '0000000B'X ! CLOSE OPEN JOB @ PARAMETER S MR$K_RMVJOB = '0000000C'X ! REMOVE JOB FROM QUEUE H PARAMETER SMR$K_ALTER = '0000000D'X ! CHANGE A FILES CHARACTERISTICS G PARAMETER SMR$K_ABORT = '0000000E'X ! ABORT CURRENT JOB, START NEXT F PARAMETER SMR$K_RELEASE = '0000000F'X ! RELEASE JOB FROM HOLD LIST F PARAMETER SMR$K_DETINIT = '00000010'X ! DETACHED JOB HAS INITIATED G PARAMETER SMR$K_SYNCJOB = '00000011'X ! SYNCRONIZE WITH A BATCH JOB J PARAMETER SMR$K_ASKQNAM = '00000012'X ! GET NAME OF QUEUE FOR LOG FILE  ! 9 ! ASSIGN SYMBIONT MANAGER PRINT JOB/RECORD OPTION CODES !  !  ! JOB FILE OPTIONS I PARAMETER SMO$K_DELETE = '00000001'X ! DELETE THE FILE AFTER PRINTING ? PARAMETER SMO$K_BRSTPAG = '00000002'X ! CREATE A BURST PAGE @ PARAMETER SMO$K_NOBRSTPAG = '00000003'X ! INHIBIT BURST PAGE = PARAMETER SMO$K_FLAGPAG = '00000004'X ! PRINT A FLAG PAGE A PARAMETER SMO$K_NOFLAGPAG = '00000005'X ! INHIBIT A FLAG PAGE H PARAMETER SMO$K_PAGHDR = '00000006'X ! PRINT FILENAME AS PAGE HEADER C PARAMETER SMO$K_DOUBLE = '00000007'X ! DOUBLE SPACE THE LISTING G PARAMETER SMO$K_NOFEED = '00000008'X ! INHIBIT FORM FEED GENERATION F PARAMETER SMO$K_PAGCNT = '00000009'X ! SPECIFY PAGE COUNT TO PRINT D PARAMETER SMO$K_COPIES = '0000000A'X ! NUMBER OF COPIES TO PRINT 5 PARAMETER SMO$K_FILESIZ = '0000000B'X ! FILE SIZE = PARAMETER SMO$K_DESTQUE = '0000000C'X ! DESTINATION QUEUE  ! OPTIONS FOR CREATE JOB F PARAMETER SMO$K_RLSTIM = '00000020'X ! TIME TO HOLD UNTIL QUEUEING 5 PARAMETER SMO$K_HOLD = '00000021'X ! HOLD THE JOB Q PARAMETER SMO$K_JOBPRI = '00000022'X ! SPECIFY PRINT JOB/DETACHED JOB PRIOITY J PARAMETER SMO$K_JOBCOPY = '00000023'X ! NUMBER OF COPIES OF ENTIRE JOB K PARAMETER SMO$K_FORMTYPE = '00000024'X ! FORM TYPE TO USED WHEN PRINTED G PARAMETER SMO$K_LOWER = '00000025'X ! UPPER/LOWER CASE PRINTER ONLY @ PARAMETER SMO$K_PARAMS = '00000026'X ! SUPPLY JOB PARAMETERS D PARAMETER SMO$K_JOBNAME = '00000027'X ! SUPPLY A NAME TO THE JOB E PARAMETER SMO$K_NOLOWER = '00000028'X ! CLEAR LOWER CASE REQUIRED 9 PARAMETER SMO$K_CPULIM = '00000029'X ! CPU TIME LIMIT = PARAMETER SMO$K_NOCPULM = '0000002A'X ! NO CPU TIME LIMIT = PARAMETER SMO$K_WSQUOTA = '0000002B'X ! WORKING SET QUOTA @ PARAMETER SMO$K_NOWSQUO = '0000002C'X ! NO WORKING SET QUOTA ? PARAMETER SMO$K_WSDEFLT = '0000002D'X ! WORKING SET DEFAULT B PARAMETER SMO$K_NOWSDFT = '0000002E'X ! NO WORKING SET DEFAULT H PARAMETER SMO$K_DQCHAR = '0000002F'X ! CHAR . TO BE USED WHEN PRINTED : PARAMETER SMO$K_LOGFNAM = '00000030'X ! LOG FILE SPEC. C PARAMETER SMO$K_LOGQNAM = '00000031'X ! QUEUE NAME FOR LOG FILE 9 PARAMETER SMO$K_KEEPLOG = '00000032'X ! KEEP LOG FILE @ PARAMETER SMO$K_NOSPOOL = '00000033'X ! DON'T SPOOL LOG FILE = PARAMETER SMO$K_NOKEEPLOG = '00000034'X ! DELETE LOG FILE C PARAMETER SMO$K_NOLOG = '00000035'X ! CREATE LOG ON NULL DEVICE D PARAMETER SMO$K_NOTIFY = '00000036'X ! NOTIFY WHEN JOB COMPLETES 5 PARAMETER SMO$K_N ONOTFY = '00000037'X ! NO NOTIFY 5 PARAMETER SMO$K_WSEXTNT = '00000038'X ! WS EXTENT : PARAMETER SMO$K_NOWSEXTNT = '00000039'X ! NO WS EXTENT & ! OPTIONS FOR INIT OR START A QUEUE K PARAMETER SMO$K_CURFORM = '00000040'X ! CURRENT FORMS MOUNTED ON DEVICE A PARAMETER SMO$K_GENPRT = '00000041'X ! ALLOW GENERIC PRINTING F PARAMETER SMO$K_NOGENPRT = '00000042'X ! DISALLOW GENERIC PRINTING L PARAMETER SMO$K_DETJOB = '00000043'X ! QUEUE IS FOR DETACHED JOB QUEUING H PARAMETER SMO$K_GENDEV = '00000044'X ! QUEUE IS GENERIC DEVICE QUEUE A PARAMETER SMO$K_NOGENDEV = '00000045'X ! NOT A GENERIC DEVICE K PARAMETER SMO$K_DEFBRST = '00000046'X ! QUEUE HAS BURST PAGE BY DEFAULT C PARAMETER SMO$K_NODEFBRST = '00000047'X ! NO DEFAULT BURST PAGE J PARAMETER SMO$K_DEFFLAG = '00000048'X ! QUEUE HAS FLAG PAGE BY DEFAULT = PARAMETER SMO$K_NODEFFLAG = '00000049'X ! NO DEFAULT FLAG ? PARAMETER SMO$K_TRMDEV = '0000004A'X ! DEVICE IS A TERMINAL E PARAMETER SMO$K_NOTRMDEV = '0000004B'X ! DEVICE IS NOT A TERMINAL C PARAMETER SMO$K_JOBLIM = '0000004C'X ! JOB LIMIT FOR BATCH JOBS ? PARAMETER SMO$K_INIPRI = '0000004D'X ! JOB INITIAL PRIORITY : PARAMETER SMO$K_DISWAP = '0000004E'X ! DISABLE SWAPING = PARAMETER SMO$K_MCPULM = '0000004F'X ! MAX CPU TIME LIMIT B PARAMETER SMO$K_NOMCPULM = '00000050'X ! NO MAX CPU TIME LIMIT A PARAMETER SMO$K_DCPULM = '00000051'X ! DEFAULT CPU TIME LIMIT F PARAMETER SMO$K_NODCPULM = '00000052'X ! NO DEFAULT CPU TIME LIMIT < PARAMETER SMO$K_WSQUTA = '00000053'X ! WORKING SET QUOTA A PARAMETER SMO$K_NOWSQUTA = '00000054'X ! NO WORKING SET QUOTA > PARAMETER SMO$K_WSDFLT = '00000055'X ! WORKING SET DEFAULT C PARAMETER SMO$K_NOWSDFLT = '00000056'X ! NO WORKING SET DEFAULT H PARAMETER SMO$K_CURDQCHAR = '00000057'X ! CURRENT CHAR. OF THE QUEUE C PARAMETER SMO$K_SMBNAME = '00000058'X ! SYMBIONT NAME FOR QUEUE 5 PARAMETER SMO$K_WSXTANT = '00000059'X ! WS EXTENT 9 PARAMETER SMO$K_NOWSXTNT = '00000 05A'X ! NO WS EXTENT < PARAMETER SMO$K_NODISWAP = '0000005B'X ! ENABLE SWAPPING  ! OPTIONS FOR RESTART P PARAMETER SMO$K_NEXTJOB = '00000060'X ! RESTART AT END BEGINNING OF NEXT JOB G PARAMETER SMO$K_TOPOFILE = '00000061'X ! RESTART JOB AT TOP-OF-FILE F PARAMETER SMO$K_SPCCNT = '00000062'X ! SPECIFY PAGES TO SPACE OVER  ! OPTIONS FOR ABORT < PARAMETER SMO$K_REQUEUE = '00000070'X ! REQUEUE THE FILE I PARAMETER SMO$K_REQDEST = '00000071'X ! SPECIFY NEW QUEUE DESTINATION G P ARAMETER SMO$K_REQPRIO = '00000072'X ! SPECIFY PRIORITY ON REQUEUE !DEC$ END OPTIONS wwJΦ!*** MODULE SNAPEVTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 1 ORIGIN and INCREMENTS of 1d PARAMETER SNAPEVT$_SNAPSHOT = '00000001'X ! a system snapshot is pending in a non-VAXcluster enviC ! a system snapshot is pending in a non-VAXcluster environmenf PARAMETER SNAPEVT$_CLUPEND = '00000002'X ! a system snapshot is pending in a VAXcluster environmentd PARAMETER SNAPEVT$_RESTART = '00000003'X ! the system has just booted from a snapshot into a non-C ! the system has just booted from a snapshot into a non-VAXcld PARAMETER SNAPEVT$_CLU_RESTART = '00000004'X ! the system has just booted from a snapshot into a C ! the system has just booted from a snapshot into a VAXclusteb PARAMETER SNAPEVT$_ABORT = '00000005'X ! a fatal error occurred during the taking of a snapshotd PARAMETER SNAPEVT$_CLUEXIT = '00000006'X ! the system is resynchronizing after a loss of communicC ! the system is resynchronizing after a loss of communication ! of the clusterI PARAMETER SNAPEVT$_ROLLOUT = '00000007'X ! a system rollout is pendingO PARAMETER SNAPEVT$_ROLLIN = '00000008'X ! a system rollin has been completed+ PARAMETER SNAPEVT$C_SNAPSHOT = '00000001'X* PARAMETER SNAPEVT$C_RESTART = '00000003'X( PARAMETER SNAPEVT$C_ABORT = '00000005'X STRUCTURE /SNAPEVTCODE/ INTEGER*2 SNAPEVT$W_EVENT END STRUCTURE ! SNAPEVTCODE!DEC$ END OPTIONS wws1“Φ!*** MODULE $SORDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:33:55.05 !  ! FILE: SORMSG.MSG  !  ! * *; ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! ++ !  ! FACILITY: VAX-11 SORT/MERGE ! ! ABSTRACT: ! D ! THIS FILE CONTAINS THE DEFINITION FOR THE SORT FACILITY SPECIFIC< ! ERROR MESSAGES. THE FACILITY CODE FOR SORT/MERGE IS 28. ! " ! ENVIRONMENT: VAX/VMS USER MODE ! 2 ! AUTHOR: P. GILBERT, CREATION DATE: 15-FEB-1982 !  ! MODIFIED BY: !  ! T03-015 ORIGINALB ! T03-018 CHANGED THE SEVERITY OF WORK_DEV FROM FATAL TO SEVERE. ! PDG 16-DEC-1982A ! T03-019 ADDED OPERFAIL, REQ_ALT AND USE_ALT. PDG 21-DEC-1982A ! T03-020 ADD NEW MESSAGES FOR ERRORS WITH COLLATING SEQUENCES. ! PDG 26-JAN-1983? ! T03-021 ADDED NEW MESSAGES FOR CDD ERRORS.  PDG 11-FEB-1983, ! T03-022 ADDED ENDDIAGS. PDG 16-MAR-19834 ! T03-023 CHANGE TEXT OF COL_PAD. PDG 20-APR-1983* ! T03-024 ADDED OPREPLY. PDG 9-MAY-1983* ! T04-001 ADDED ODD_LEN. MH 15-JUL-1985> ! V05-001 CHANGED TEST FOR VAR_FIX TO "truncated or padded". ! BAB 4-FEB-1993< ! CORRECTED SPELLING AND PUNCTUATION ERRORS.= ! DEE RYAN 29-SEP-1993 ! -- ! I ! SOME ERROR MESSAGES WERE ISSUED BY OLD VERSIONS OF VAX-11 SORT/MERGE ,> ! BUT ARE NO LONGER BE ISSUED. THESE MUST STILL BE DEFINED. ! M ! SOME ERROR MESSAGES WILL BE USED BY THE NEW VERSION OF VAX-11 SORT/MERGE,G ! BUT ARE NOT YET ISSUED BY THE CODE. THESE ARE PREFIXED WITH A "?". ! ' PARAMETER SORT$_FACILITY = '0000001C'X& PARAMETER SOR$_MISS_KEY = '001C8004'X& PARAMETER SOR$_WORK_DEV = '001C800A'X$ PARAMETER SOR$_NO_WRK = '001C8012'X% PARAMETER SOR$_VM_FAIL = '001C801C'X% PARAMETER SOR$_WS_FAIL = '001C8024'X% PARAMETER SOR$_SORT_ON = '001C802C'X% PARAMETER SOR$_BAD_KEY = '001C8034'X% PARAMETER SOR$_NUM_KEY = '001C803C'X% PARAMETER SOR$_BAD_LEN = '001C8044'X$ PARAMETER SOR$_ONE_IN = '001C804C'X% PARAMETER SOR$_IND_OVR = '001C8054'X& PARAMETER SOR$_INCONSIS = '001C805C'X% PARAMETER SOR$_VAR_FIX = '001C8060'X& PARAMETER SOR$_BAD_TYPE = '001C806C'X& PARAMETER SOR$_LRL_MISS = '001C8074'X& PARAMETER SOR$_BAD_SPEC = '001C807C'X% PARAMETER SOR$_BAD_LRL = '001C8082'X& PARAMETER SOR$_BAD_FILE = '001C808C'X% PARAMETER SOR$_BAD_ADR = '001C8094'X! PARAMETER SOR$_MAP = '001C809C'X$ PARAMETER SOR$_EXTEND = '001C80A4'X% PARAMETER SOR$_KEY_LEN = '001C80AA'X& PARAMETER SOR$_CLEAN_UP = '001C80B4'X' PARAMETER SOR$_BAD_MERGE = '001C80BA'X( PARAMETER SOR$_BAD_ROUTIN = '001C80C4'X' PARAMETER SOR$_INP_FILES = '001C80CC'X' PARAMETER SOR$_BAD_ORDER = '001C80D0'X ! " ! V3B MESSAGES ARE DEFINED BELOW ! ( PARAMETER SOR$_DUP_OUTPUT = '001C80DC'X( PARAMETER SOR$_MISS_PARAM = '001C80E4'X& PARAMETER SOR$_END_SORT = '001C80E9'X# PARAMETER SOR$_KEYED = '001C80F2'X% PARAMETER SOR$_BAD_SRL = '001C80F8'X& PARAMETER SOR$_NODUPEXC = '001C8104'X% PARAMETER SOR$_DELETE1 = '001C8109'X% PARAMETER SOR$_DELETE2 = '001C8111'X% PARAMETER SOR$_DELBOTH = '001C8119'X! PARAMETER SOR$_NYI = '001C8122'X& PARAMETER SOR$_RTNERROR = '001C812A'X' PARAMETER SOR$_KEYAMBINC = '001C8134'X# PARAMETER SOR$_OBS_0 = '001C813C'X% PARAMETER SOR$_ROPRAND = '001C8142'X' PARAMETER SOR$_UNDOPTION = '001C814C'X' PARAMETER SOR$_STABLEEXC = '001C8154'X$ PARAMETER SOR$_SRTIWA = '001C815C'X$ PARAMETER SOR$_SPCOVR = '001C8160'X$ PARAMETER SOR$_SPCMIS = '001C8168'X$ PARAMETER SOR$_SPCSIS = '001C8170'X$ PARAMETER SOR$_SPCIVP = '001C817C'X$ PARAMETER SOR$_SPCIVS = '001C8184'X$ PARAMETER SOR$_SPCIVC = '001C818C'X$ PARAMETER SOR$_SPCIVF = '001C8194'X$ PARAMETER SOR$_SPCIVD = '001C819C'X$ PARAMETER SOR$_SPCIVX = '001C81A4'X$ PARAMETER SOR$_SPCIVK = '001C81AC'X$ PARAMETER SOR$_SPCIVI = '001C81B4'X& PARAMETER SOR$_INCNOKEY = '001C81BC'X' PARAMETER SOR$_INCNODATA = '001C81C4'X% PARAMETER SOR$_INVFOLD = '001C81CA'X& PARAMETER SOR$_OPERFAIL = '001C81D4'X% PARAMETER SOR$_REQ_ALT = '001C81DB'X% PARAMETER SOR$_USE_ALT = '001C81E3'X% PARAMETER SOR$_COL_ADJ = '001C81EC'X' PARAMETER SOR$_COL_CMPLX = '001C81F4'X& PARAMETER SOR$_COL_CHAR = '001C81FC'X% PARAMETER SOR$_COL_PAD = '001C8204'X' PARAMETER SOR$_COL_THREE = '001C820C'X& PARAMETER SOR$_BADDTYPE = '001C8212'X' PARAMETER SOR$_BADLENOFF = '001C821A'X' PARAMET ER SOR$_BADOCCURS = '001C8224'X' PARAMETER SOR$_BADOVRLAY = '001C822A'X' PARAMETER SOR$_BADPROTCL = '001C8234'X& PARAMETER SOR$_CDDERROR = '001C823C'X% PARAMETER SOR$_ILLBASE = '001C8242'X' PARAMETER SOR$_ILLLITERL = '001C824C'X& PARAMETER SOR$_ILLSCALE = '001C8252'X' PARAMETER SOR$_INCDIGITS = '001C825A'X' PARAMETER SOR$_MISLENOFF = '001C8260'X& PARAMETER SOR$_MULTIDIM = '001C826A'X' PARAMETER SOR$_NOTRECORD = '001C8274'X' PARAMETER SOR$_SIGNCOMPQ = '001C8278'X' PARAMETER SOR$_UNSUPLEVL = '001C8284'X& PARAMETER SOR$_ENDDIAGS = '001C828B'X% PARAMETER SOR$_OPREPLY = '001C8293'X$ PARAMETER SOR$_CHKPNT = '001C8299'X% PARAMETER SOR$_ODD_LEN = '001C82A4'X!DEC$ END OPTIONSwwΦ!*** MODULE $SRFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 4 ! Symbol reference (SYM$M_DEF in GSY$W_FLAGS is 0) ! # PARAMETER SRF$K_NAME = '00000005'X# PARAMETER SRF$C_NAME = '00000005'X STRUCTURE /SRFDEF/ UNION MAP<  BYTE SRF$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP7 ! unsupported type CHARACTER*0 SRF$T_START BYTE %FILL END MAP END UNION6 BYTE SRF$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 SRF$W_FLAGS ! Maps over GSY$W_FLAGS 7 BYTE SRF$B_NAMLNG ! Length of symbol name . CHARACTER*31 SRF$T_NAME ! Symbol name  END STRUCTURE ! SRFDEF!DEC$ END OPTIONS wwΦ !*** MODULE $SRMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! Define SRM Hardware symbols ! -H PARAMETER SRM$K_INT_OVF_T = '00000001'X ! Integer overflow trap code N PARAMETER SRM$K_INT_DIV_T = '00000002'X ! Integer divide by zero trap code I PARAMETER SRM$K_FLT_OVF_T = '00000003'X ! Floating overflow trap code W PARAMETER SRM$K_FLT_DIV_T = '00000004'X ! Floating/decimal Divide by zero trap code J PARAMETER SRM$K_FLT_UND_T = '00000005'X ! Floating Underflow trap code O PARAMETER SRM$K_DEC_OVF_T = '00000006'X ! Decimal string overflow trap code B PARAMETER SRM$K_SUB_RNG_T = '00000007'X ! Subscript range trap J PARAMETER SRM$K_FLT_OVF_F = '00000008'X ! Floating Overflow fault code P PARAMETER SRM$K_FLT_DIV_F = '00000009'X ! Floating Divide by zero fault code K PARAMETER SRM$K_FLT_UND_F = '0000000A'X ! Floating Underflow fault code * PARAMETER SRM$M_EXC_SUM_SWC = '00000001'X* PARAMETER SRM$M_EXC_SUM_INV = '00000002'X* PARAMETER  SRM$M_EXC_SUM_DZE = '00000004'X* PARAMETER SRM$M_EXC_SUM_OVF = '00000008'X* PARAMETER SRM$M_EXC_SUM_UNF = '00000010'X* PARAMETER SRM$M_EXC_SUM_INE = '00000020'X* PARAMETER SRM$M_EXC_SUM_IOV = '00000040'X STRUCTURE /SRM/ UNION MAP INTEGER*4 SRM$L_EXC_SUM END MAP MAP, PARAMETER SRM$S_EXC_SUM_SWC = 1, PARAMETER SRM$V_EXC_SUM_SWC = 0, PARAMETER SRM$S_EXC_SUM_INV = 1, PARAMETER SRM$V_EXC_SUM_INV = 1,  PARAMETER SRM$S_EXC_SUM_DZE = 1, PARAMETER SRM$V_EXC_SUM_DZE = 2, PARAMETER SRM$S_EXC_SUM_OVF = 1, PARAMETER SRM$V_EXC_SUM_OVF = 3, PARAMETER SRM$S_EXC_SUM_UNF = 1, PARAMETER SRM$V_EXC_SUM_UNF = 4, PARAMETER SRM$S_EXC_SUM_INE = 1, PARAMETER SRM$V_EXC_SUM_INE = 5, PARAMETER SRM$S_EXC_SUM_IOV = 1, PARAMETER SRM$V_EXC_SUM_IOV = 6 BYTE %FILL (1) END MAP   END UNION END STRUCTURE ! SRM!DEC$ END OPTIONSww3 }Φ!*** MODULE $SSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:32:20.55 !  ! B ! SSMSG.MSG - SYSTEM DEFINITION FILE FOR SYSTEM SERVICE MESSAGES !  ! VERSION: 'X-132A1' !  ! * *O ! * COPYRIGHT 1995-2005 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *O ! *  *O ! * RESTRICTED RIGHTS LEGEND *O ! * *O ! * USE, DUPLICATION OR DISCLOSURE BY THE U.S. GOVERNMENT IS SUBJECT TO *O ! * RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH (C)(1)(II) OF THE RIGHTS *O ! * IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE IN DFARS 252.227-7013. *O ! *  *O ! * HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P *O ! * 3000 HANOVER STREET *O ! * PALO ALTO, CA 94304 *O ! * U.S.A. *O ! * *O ! * RIGHTS FOR NON-DOD U.S. GOVERNMENT DEPARTMENTS AND AGENCIES ARE AS *O ! * SET FORTH IN FAR 52.227-19(C)(1,2). * ! * * ! ++ ! ) ! FACILITY: VMS SYSTEM MACRO LIBRARIES ! ! ABSTRACT: ! B ! THIS FILE CONTAINS THE SDL SOURCE FOR SYSTEM SERVICE MESSAGES. !  ! GUIDELINES: ! I ! WITH THE RELEASE OF HELP MESSAGE, MESSAGE DOCUMENTATION MUST EXACTLY J ! MATCH THE MESSAGE TEXT IN THIS FILE IN ORDER FOR THE ONLINE SEARCH TO E ! SUCCEED. TO AVOID DOCUMENTING EMBARRASSING TY POS OR GRAMMATICAL H ! ERRORS, PLEASE FORWARD YOUR NEW OR CHANGED MESSAGES TO THE MESSAGES G ! WRITER FOR A QUICK EDIT. VMS SENIOR MANAGEMENT SUPPORTS ENFORCING G ! STANDARD MESSAGE FORMATTING CONVENTIONS, WHICH ARE INCLUDED IN THE  ! FOLLOWING GUIDELINES. ! O ! O SS$ CODE NAMES SHOULD BE 15 OR FEWER CHARACTERS TO PREVENT TRUNCATION4 ! IN MESSAGE TEXT, WHICH CAUSES GENERAL CONFUSION. ! N ! O WORDS IN MESSAGES SHOULD NOT BEGIN WITH CAPS UNLESS THEY WOULD START2 !  WITH CAPS IN RUNNING TEXT. FOR EXAMPLE, ! , ! WRONG: , ! RIGHT:  ! H ! THIS IS NOT WELL KNOWN, BUT THE $GETMSG SYSTEM SERVICE AUTOMATICALLYI ! CONVERTS TO UPPERCASE THE INITIAL LETTER OF A MESSAGE WHEN RETRIEVINGA ! A MESSAGE IN AN ENVIRONMENT WHERE THE FACILITY, SEVERITY, AND/ ! IDENTIFICATION FIELDS HAVE BEEN SUPPRESSED. ! , ! O ACRONYMS SHOULD BE UPPERCASE ONLY: ! " !  ! : ! O DO NOT USE PUNCTUATION AT THE END OF A MESSAGE.  ! J ! O AVOID USING CONTRACTIONS IN MESSAGES. FOR EXAMPLE, USE "cannot" A ! INSTEAD OF "can't" AND "does not" INSTEAD OF "doesn't". ! H ! O "It's" IS A CONTRACTION FOR "it is". THE POSSESSIVE IS "its". ! I ! O USE THE WORDS "and" OR "or" INSTEAD OF A "/" WHENEVER POSSIBLE. ! 6 ! WRONG: < ! RIGHT:  ! N ! O AVOID USING HYPHENS TO SEPARATE CLAUSES. USE A SEMICOLON INSTEAD.  ! ? ! WRONG: > ! RIGHT:  ! J ! O SEMICOLONS SHOULD BE USED TO SEPARATE MAIN CLAUSES THAT ARE NOT H ! JOINED BY "and" OR "but". IN THE ABOVE EXAMPLE, IT IS GRAMMATICALLYK ! INCORRECT TO USE A COMMA IN PLACE OF THE SEMICOLON. A COMMA IS CORRECTK ! WHEN EITHER CLAUSE DOES NOT FORM A COMPLETE SENTENCE OR WHEN THE COMMA 6 ! IS USED TO SEPARATE ITEMS IN A LIST. FOR EXAMPLE, ! A !  ! E ! O ABOVE ALL, KEEP THE JARGON TO A MINIMUM AND CONCENTRATE ON F ! COMMUNICATING A MESSAGE THAT IS AS INFORMATIVE AND HELPFUL AS YOU  ! CAN MAKE IT. !  ! 3 ! NOTE BENE: WHEN OBSOLETING OR ADDING MESSAGES:  ! M ! O REUSE OBSOLETE MESSAGE ENTRIES WHEN POSSIBLE. THESE ARE MARKED BY ( ! A MESSAGE NAME OF OBSOLETE_. ! L ! O IF YOU MUST REMOVE A MESSAGE, DON'T SIMPLY DELETE IT. IF MESSAGESI ! COME AFTER IT, OBSOLETE IT BY CHANGING THE NAME TO OBSOLETE_.H ! LOOK FOR THE OTHER OBSOLETE MESSAGES TO FIND OUT WHAT THE NEXT FREE J ! NUMBER IS. THIS WILL LET OTHERS KNOW THAT WHEN THEY WANT A SLOT, THEY A ! CAN REUSE SOME OBSOLETE MESSAGE INSTEAD OF ADDING A NEW ONE.  ! O ! O THE 64-BIT PROJECT HAS ENABLED THE ENTIRE ALPHA VIRTUAL ADDRESS RANGEI ! (WITH THE EXCEPTION OF THE GAP) TO BE AVAILABLE. THEREFORE, MESSAGESH ! THAT DISPLAY ADDRESSES, INCLUDING PCS, MUST DISPLAY THE FULL 64-BITSI ! OF THOSE ADDRESSES. USE THE !XH FAO DIRECTIVE FOR THIS PURPOSE. FAOE ! (SYS$FAO & SYS$FAOL_64 ONLY) FOR ALPHA HANDLES QUADWORD ARGUMENTSH ! BY VALUE SO YOU DO NOT HAVE TO SPECIFY THE INDIRECTION OPERATOR (@). ! -- ! 6 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY:' ! X-132A1 LSH LON HILDE 30-OCT-2004D ! TWE AK ASTFLT MESSAGE CHANGING "target PC" TO "target PC or FV". ! E ! X-131 DOUGLAS FYFE 29-NOV-20056 ! ADD SS$_TOOMANYPERSONA PERSONA ARRAY FULL STATUS. ! E ! X-130 KGB KENNETH G. BLAYLOCK 23-SEP-2005B ! ADD IN THE SUCCESS STATUS OF SS$_SYMLINKENTRY TOA ! INDICATE THAT THE DIRECTORY ENTRY HAS A SYMLINK ! HINT VALUE. ! ( ! X-129 WBF BURNS FISHER 12-MAY-2005> ! ADD "reason  mask" FIELD TO SS$_DEBUG_FAULT. IT SHOULD BE ! JUST LIKE ACCVIO ! E ! X-128 KGB KENNETH G. BLAYLOCK 29-NOV-2004E ! ADD IN A NEW FILE WARNING. FILEFULL WHICH INDICATESE ! THAT THE SUPPORTED ALLOCATION FOR THE FILE IS FULL. ! - ! X-127 RAB0122 ROBERT A. BROOKS -SEP-20043 ! CHANGE TEXT FOR NOMODNONEPOL TO CORRELATE WITH? ! NAME CHANGE OF HBMM NONE POLICY TO NODEFAULT (NO DEFAULT).* ! ERROR NAME STAYS THE SAME, OF COURSE. ! > ! REMOVE THE WORD QIOSERVER FROM NOMOREPATHS. QIOSERVER ISA ! DEAD, BUT THE ERROR MESSAGE IS STILL BEING USED BY MULTIPATH; ! AND MULTIPATH-AWARE COMPONENTS ($GETDVI, FOR EXAMPLE). ! ( ! X-126 RUTH GOLDENBERG 10-AUG-2004G ! ADD INFORMATIONALS FOR GEM: ARGTYPN, FPMODECTL, FPMODEPC, FPMODERC ! ( ! X-125 RUTH GOLDENBERG 4-AUG-2004$ ! TWEAK TEXT FOR SS$_TOOMANYLNAM. ! . ! X-124 MAS0800 MARK A. STILES 7-JUL-20044 ! ADD GAMEOVER MESSAGE FOR INTERSTELLAR CONQUEST. ! / ! X-123 RAB0106 ROBERT A. BROOKS 26-MAY-2004 ! MORE SHADOWING MESSAGES. ! / ! X-122 RAB0103 ROBERT A. BROOKS 17-MAY-2004& ! MORE SHADOWING MESSAGES FOR HBMM. ! / ! X-121 RAB0102 ROBERT A. BROOKS 11-MAY-2004& ! MORE SHADOWING MESSAGES FOR HBMM. ! - ! X-120 SAD STUART A. DAVIDSON 7-MAY-20046 ! ADD SS$_QIO_FAULT FOR SPECIAL TREATMENT THAT $QIO8 ! NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE.6 ! SS$_QIO_FAULT IS HANDLED BY A CALLER'S MODE JACT,6 ! WHERAS QIO_CROCK IS HANDLED IN THE SYSTEM SERVICE; ! DISPATCHER (WHICH IS PROBLEMATIC WITH THE IA64 CALLING ! STANDARD). ! . ! X-119 RAB098 ROBERT A. BROOKS 05-MAY-2004: ! ADD SEVERAL SHADOWING-RELATED MESSAGES TO REPLACE THE ! TOO-GENERIC INCSHAMEM. ! $ ! X-118 CLAIR GRANT 21-APR-2004: ! ELIMINATE "Digital" AND "DEC" FROM ERROR TEXT STRINGS ! ( ! X-117 WBF BURNS FISHER 31-MAR-2004 ! ADD SS$_CALLUNDEFSYM ! * ! X-116 JRC JOHN R. COVERT 12-MAR-20043 ! ADD XVALNOTVALID FOR EXTENDED LOCK VALUE BLOCK ! . ! X-115 RAB086 ROBERT A. BROOKS 03-FEB-2004! ! ADD HBMMCREPOSTMRG FOR HBMM. ! * ! X-114 DJM DENNIS MATTOON 27-JAN-2004! ! ADD SYMBOLS/MESSAGES FOR TIE ! . ! X-113 RAB085 ROBERT A. BROOKS 16-JAN-20045 ! ADD WLGCANTHBMM FOR HBMM, TO INDICATE THAT OLDER: ! DEVICES CAPABLE OF MSCP-BASED MINIMERGE (HSC/HSD/HSJ) ! CANNOT USE HBMM. ! . ! X-112 RAB084 ROBERT A. BROOKS 14-JAN-2004: ! ADD SEVERAL MESSAGES FOR HOST-BASED MINIMERGE (HBMM). ! , ! X-111 KLN3346 KAREN L. NOEL 7-SEP-20030 ! O CHANGE TAKEN_BRANCH TO USE DISPLAY PC/PS.B ! O CHANGE NEW REASON MASKS TO BYTES OR WORDS INSTEAD OF QUADS. ! - ! X-110 KLN3340 KAREN L. NOEL 28-AUG-2003= ! O ADD SS CODES FOR TAKEN BRANCH FAULT, IA32 TRAP, DEBUG  ! FAULT AND SYSTEM BREAK. * ! O FIX SEVERITY OF APPLICATION BREAK. : ! O FIX NATFAULT TO DISPLAY REASON MASK INSTEAD OF ISR. ! , ! X-109 KLN3299 KAREN L. NOEL 4-JUN-2003 ! ADD SS$_INSF_SHM_REG. ! , ! X-108 LC0001 LARRY CAMILLI 12-MAR-2003 ! ADD SS$_FILENOTCACHED. ! + ! X-107 PJB0044 PAUL BENOIT 02-DEC-2002 ! ADD SS$_BREAK_ARCH. ! + ! X-106 PJB0029 PAUL BENOIT 08-NOV-2002 ! ADD SS$_BREAK_APPL. ! + ! X-105 PJB0021 PAUL BENOIT 18-OCT-2002 ! ADD SS$_FLTDENORMAL. ! + ! X-104 PJB0013 PAUL BENOIT 12-SEP-2002 ! ADD SS$_NATFAULT. ! - ! X-103 SAD STUART A. DAVIDSON 18-JUL-2 002: ! ADD TURSTCONF FOR USE WHEN AN OPERATION WOULD VIOLATE< ! THE TRUSTED ENVIRONMENT FOR PRIVILEGED IMAGE EXECUTION. ! ( ! X-102 RUTH GOLDENBERG 10-MAY-2002> ! MODIFY SS$_INCOMPAT TEXT FOR USE BY $GETJPI IN A FAILURE 8 ! TO GET AN UNDEFINED ITEM CODE FROM A TARGET SYSTEM. ! . ! X-101 DJS011203 DAVE SWEENEY 07-DEC-20016 ! ADD SS$_FORCEX FOR USE BY DCL COMMAND STOP/IMAGE. ! / ! X-100 EMW0253 ELINOR M. WOODS 15-OCT-20010 ! ADD SS$_EXITFORCED FOR USE BY SYS$DEL!PRC IN' ! SUPPORT OF NEW EXIT FUNCTIONALITY. ! - ! X-99 MAS0677 MARK A. STILES 24-AUG-20018 ! ADD SS$_PRESTO FOR USE BY INTERRUPT OR FORK SERVICE; ! ROUTINES WHICH HAVE KNOWLEDGE THAT THE SAVED INTERRUPT7 ! OR EXCEPTION FRAME NEED NOT BE MULTIPLY PRESERVED. ! - ! X-98 MAS0671 MARK A. STILES 16-MAR-2001; ! ADD SS$_FISH FOR MESSAGE TRANSLATION, OR LACK THEREOF. ! # ! X-97 ABP ANU PANT 18-SEP-20005 ! ADD SS$_PATHAMBIG, SS$_INVMVIP, SS$_NOPATHAVAIL,4 ! AND" SS$_NOENACURINV FOR USE BY MULTIPATH SYSTEM ! SERVICE. ! + ! X-96 JMB224 JAMES M. BLUE 7-MAR-2000= ! ADD SS$_NOSUCHQPOOLID FOR USE BY QIOSERVER'S HANDLING OF; ! POOL DEALLOCATION. CORRECT PREVIOUS QIOSERVER MESSAGE+ ! ADDS TO CONFORM WITH GUIDELINES ABOVE. ! , ! X-95 KLN2158 KAREN L. NOEL 03-MAR-2000 ! ADD BADRAD. ! + ! X-94 JMB197 JAMES M. BLUE 6-JAN-20005 ! ADD SS$_QPOOL_DEL_INIT, SS$_QPOOL_DEL_INPRG, AND: ! SS$_QPOOL_DEL_BUSY FOR USE BY QIOSERV#ER'S HANDLING OF ! POOL DEALLOCATION. ! + ! X-93 EMB ELLEN M. BATBOUTA 05-NOV-1999B ! ADD SS$_NOADD AND SS$_SYSTEMUIC MESSAGES FOR THE CLASS  ! SCHEDULER. ! + ! X-92 JMB183 JAMES M. BLUE 23-SEP-19998 ! ADD MESSAGES FOR QIOSERVER'S QIO$CONFIGURE AND QCP. ! + ! X-91 EMB ELLEN M. BATBOUTA 12-AUG-1999< ! ADD SS$_INCLASS ERROR MESSAGE. THIS ERROR MESSAGE WILL= ! BE RETURNED BY THE $SCHED SYSTEM SERVICE WHEN AN ATTEMPT; ! IS MADE TO CLASS SCHEDULE A PRO$CESS/KERNEL THREAD WHEN6 ! IT ALREADY BELONGS TO A SCHEDULING CLASS FROM THE# ! CLASS SCHEDULER DATABASE FILE. ! + ! X-90 JMB076 JAMES M. BLUE 22-MAR-19994 ! ADD SS$_NOQIOSERVER - QIOSERVER'S QIO$CONFIGURE5 ! PROCESS IS NOT AVAILABLE TO HANDLE SYS$QIOSERVER5 ! REQUESTS. ADD SS$_INVQSRFNC - THE FUNCTION CODE- ! IN THE SYS$QIOSERVER REQUEST IS INVALID. ! E ! X-89 GP GENADY PERCHENKO 18-FEB-1999 ! ADD WRONGDRV ! , ! %X-88 JAH0323 JOHN A HARNEY 10-DEC-19984 ! ADD PERSONARESERVED FOR OPERATIONS ATTEMPTED ON ! A RESERVED PERSONA INDEX. ! * ! X-87 JRK390 JIM KAUFFMAN 11-SEP-19984 ! ADD NOCPUMATCH AND TRIM CPUSELECTED TO FIT PAGE ! * ! X-86 JRK390 JIM KAUFFMAN 9-JUL-1998 ! ADD CPUSELECTED ! - ! X-85 KJP-SDOS KEVIN PLAYFORD 29-JUN-1998; ! UPDATE SNAPSHOT SERVICES MESSAGES BASED ON DEVICE NAME ! CHANGE. ! + ! X-84 EMB ELLEN M. BATBOUTA 04-JUN-1998@ ! ADD 2 NEW & ERROR MESSAGES, NOFASTPATH AND CPUNOTAVAIL. ! E ! X-83 GP GENADY PERCHENKO 26-MAY-1998D ! FIX A TYPO IN ERROR SYMBOL. IT SGOULD BE DEVNOTCON) ! INSTEAD OF MPDEVNOTCON. ! E ! X-82 GP GENADY PERCHENKO 20-MAY-1998G ! ADD SOME MORE MULTIPATH STATUS CODES. AND RENAME SOME ! EXISTING ONES. ! E ! X-81 GP GENADY PERCHENKO 02-APR-19985 ! ' ADD NEW STATUS CODES FOR MULTIPATH. ! % ! X-80 DAVE BERNARDO 24-FEB-19989 ! ADD BADLCKTBL AND MAKE BROKEN A SUCCESS STATUS CODE.) ! MAKE THE ERROR TEXT MORE MEANINGFUL. ! ( ! X-79 AHM039 DREW MASON 17-FEB-1998: ! ADD MORE STATUS CODES FOR GALAXY MEMBERSHIP SERVICES. ! 1 ! X-78 PKH-G006 PAUL K. HARTER, JR. 27-JAN-1998; ! ADDED TWO STATUS CODES FOR GALAXY MEMBERSHIP SERVICES. ! ( ! X-77 AHM034 DREW MASON 26-JAN-19986 ! ADD STATUS CODES FOR (GALAXY MEMBERSHIP CALLBACKS. ! ( ! X-76 NELSON PAT NELSON 14-JAN-1998, ! CLEANED UP INSTRUCTIONS AT TOP OF FILE. ! ( ! X-75 DMB DAVE BERNARDO 07-JAN-1998. ! ADD MORE STATUS CODES FOR GALAXY LOCKING. ! & ! X-74 HAR HAROLD READ 10-DEC-1997) ! ADD NEW STATUS CODE FOR MSCP ERRORS. ! E ! X-73 JAH0250 JOHN A HARNEY 11-NOV-1997F ! ADD SS$_NOSUCHEXT FOR IMPERSONATION SERVICES TO TELL5 ! THE USER THERE'S NO SUCH EXT)ENSION. ! ( ! X-72 DMB DAVE BERNARDO 27-OCT-1997) ! ADD STATUS CODES FOR GALAXY LOCKING. ! , ! X-71 KLN2008 KAREN L. NOEL 21-OCT-19973 ! ADD NEW STATUS CODES FOR GALAXY SHARED MEMORY. ! ' ! X-70 HAR HAROLD READ 18-SEP-1997= ! ADD TEN NEW ERROR MESSAGES FOR DU/TUDRIVER. ! $ ! X-69 ANDY KUEHNEL 10-SEP-1997E ! ADD SS$_SECREFOVF ERROR TO BE RETURNED IF ADDING MORE REFERENCESE ! TO A GLOBAL SECTION WOULD CAUSE THE REFERENCE COUNT TO OVERFLOW.* ! / ! X-68 WDB:MTD20 WALTER BLASCHUK 13 AUG 1997? ! MULTIPLE TAPE DENSITY PROJECT: INSERT TWO INFORMATIONALS A ! SS$_NOTATBOT AND SS$_PREVSDENS. ALPHA AND VAX. ! - ! X-67 KJP-SDOS KEVIN PLAYFORD 18-JUL-1997C ! UPDATE SNAP CAPABLE DISK ERROR MESSAGES AND RESERVE SOME EXTRA ! MESSAGES. ! - ! X-66 KJP-SDOS KEVIN PLAYFORD 11-JUN-1997B ! ADD SS$_TOOMANYFRAGS AND SS$_TOOMANYFAMILIES FOR SNAP CAPABLE ! DISK. ! + ! X-65 IBB038 IAN BROCKBANK 4 +-JUN-19975 ! F11BXQP HFS LATENT SUPPORT - ADD SS$_NOTF11ODS5,# ! SS$_NOCONVJNL AND SS$_NORAD50. ! + ! X-64 BMAN BRIAN MAN 21-MAR-1997H ! NO CHANGES: CLEAN UP SOME SO DIFFS WORK BETTER BETWEEN ! THE VAX VERSION ! E ! X-63 DOUGLAS FYFE 14-FEB-1997K ! MAINLINE MERGE OF PER-THREAD SECURITY SUPPORT: (GEN 58A1)F ! ADD SS$_PERSONADELPEND TO BE RETURNED WHEN A REQUESTF ! TO DEL,ETE A PERSONA IS PREVENTED ONLY BY OUTSTANDING) ! REFERENCES IN REFCOUNT. ! 0 ! X-62 JMP-VDC JULIAN PALMER 29-JAN-1997. ! ADD SS$_FLUSHFAIL FOR VDC LATENT SUPPORT. ! ' ! CW-SD CHRIS WHITAKER 29-JAN-19977 ! ADD ADDITIONAL ERROR MESSAGES FOR SNAPSHOT-CAPABLE ! DISK. ! / ! X-61 NYK656 NITIN Y. KARKHANSI 21-AUG-19969 ! ADDED SS$_NOSHPTS AS PART SHARED PAGE TABLE SUPPORT. ! + ! X-60 KLN1572 KAREN L. NOEL 6-AUG-1996< ! O ADDED SS$_RES_MEM -_INCON FOR RESERVED MEMORY REGISTRY.; ! O ADDED SS$_PTE_NOT_EMPTY FOR SYSTEM PTE DEALLOCATION. ! / ! X-59 NYK640 NITIN Y. KARKHANIS 17-JUL-1996A ! O ADDED SYSTEM SERVICE MESSAGE FOR SHARED PAGE TABLE SECTION" ! CREATION, SS$_CREATED_SHPT.5 ! O REMOVED SS$_MRES_NOTREG, SS$_MRES_REGSMALL AND& ! SS$_MRES_REGBIG FOR KAREN NOEL. ! + ! X-58 KLN1546 KAREN L. NOEL 2-MAY-1996@ ! ADDED SYSTEM SERVICE MESSAGES FOR MEMORY RESIDENT SECTIONS.= ! MRES_REGSMALL, MRES_REGBIG, . MRES_NOTREG, MRES_PFNSMALL, ; ! MRES_INCON, NORESERVEDMEM, RESERVEDMEMUSED, NOMEMRESID ! . ! X-57 JACH0010 JEREMY A. C. HITT 2-MAR-19966 ! ADDED THE FOLLOWING MESSAGES FOR ACME: NOEXTAUTH,& ! ERRMAPAUTH, AUTHFAIL AND INVUSER. ! ) ! X-56 WXD BILL DAVENPORT 13-DEC-1995) ! PER-THREAD SECURITY STAGE 1 CHECKIN: ! ? ! ADD NODELPERMANENT ERROR CODE TO BE RETURNED WHEN DELETION> ! OF A PERMANENT PERSONA IS ATTEMPTED. ALSO, RENAME DETACH> ! PRIVILEGE TO IMPERSONATE. /ADD LITERAL SO THAT OLD SYMBOL ! STILL GETS CREATED. ! - ! X-55 PKW338 PAUL K. M. WEISS 8-NOV-1995D ! ADD SS$_THREAD_UPCALL, WHICH IS USED TO COMMUNICATE FROM KERNELB ! INTERNAL SERVICES TO THE CALLER'S MODE JACKET THAT IT SHOULD  ! MAKE AN UPCALL ! 5 ! X-54 JCH703B JOHN C. HALLYBURTON, JR. 10-OCT-1995A ! ADD SS$_NOBUFOBJID (ATTEMPTED USER MODE CREATE BUFFER OBJECT" ! WITHOUT A RIGHTS IDENTIFIER). ! , ! X-53 KLN1520 KAREN L. NOEL 28-SEP-19959 ! 1. FIX SEVE0RAL NEW SS$ CODES TO BE ERRORS INSTEAD OF ! WARNINGS.; ! 2. SHORTEN SEVERAL NEW SS$ CODE NAMES SO THEY ARE LESSB ! THEN 15 CHARACTERS. OTHERWISE, THEY GET TRUNCATED IN THE  ! MESSAGE TEXT. ! 3. FIX TEXT OF SS$_CHANVIO. ! , ! X-52 KLN1514 KAREN L. NOEL 12-SEP-19958 ! 1. CHANGE MESSAGE TEXT FOR SS$_IVPROTECT TO INCLUDE& ! INVALID GLOBAL SECTION PROTECTION/ ! 2. FIX TYPO IN SS$_OFFSET_NOTBLOCK MESSAGE ! ' ! X-51 WBF BURNS FISHER 7-SEP-1995! ! A1DD SS$_EMULATE INFO MESSAGE ! 5 ! X-50 JCH703A JOHN C. HALLYBURTON, JR. 8-MAR-1995 ! ADD EXBUFOBJLM ERROR CODE. ! / ! X-49 NYK292 NITIN Y. KARKHANIS 28-FEB-19950 ! O DISPLAY THE FULL 64-BITS OF PCS WITH !XH.= ! O REPLACED INSTANCES OF !XQ WITH !XH (!XQ WAS INTRODUCED ! IN EDIT X-47). ! & ! X-48 RLP050 RAY PFAU 23-FEB-1995- ! ADD SS$_NOMORETHREAD FOR KERNEL THREADS. ! / ! X-47 NYK280 NITIN Y. KARKHANIS 23-FEB-1995A ! 64-BIT PROJECT: PROMOTE ADDRESS2 ARGUMENTS IN SYSTEM MESSAGES: ! FROM !XL TO !XQ. $FAO NOW HANDLES QUADWORD BY VALUE! ! , ! X-46 KLN1389 KAREN L. NOEL 16-FEB-19956 ! ADD EVEN MORE SS$ CODES FOR 64-BIT GLOBAL SECTION ! SYSTEM SERVICES. ! + ! X-45 KLN1377 KAREN L. NOEL 3-FEB-19959 ! ADD ANOTHER SS$ CODE FOR 64-BIT MMG SYSTEM SERVICES. ! + ! X-43 KLN1342 KAREN L. NOEL 1-DEC-1994= ! ADD SOME FORGOTTEN CODES FOR 64-BIT MMG SYSTEM SERVICES. ! , ! X-42 KLN1333 KAREN L. NOEL 16-NOV-19949 ! 3 ADD NEW CODES NEEDED FOR 64-BIT MMG SYSTEM SERVICES. ! % ! X-41 TRB TOM BENSON 02-NOV-1994B ! ADDED SS$_RESIGNAL_64 AND SS$_CONTINUE_64. THESE ARE VARIANTS? ! OF THEIR 32-BIT COUNTERPARTS THAT TELL EXCEPTION THAT THE ( ! 64-BIT SIGNAL ARRAY SHOULD BE USED. ! 2 ! X-40 LSS0312 LEONARD S. SZUBOWICZ 20-OCT-1994? ! ADD SS$_NOT64DEVFUNC. THIS IS RETURNED BY THE $QIO SYSTEM= ! SERVICE IF THE P1 PARAMETER HAS MORE THAN 32 SIGNIFICANT2 ! BITS AND THE DRIVER DOES NOT SUPP4ORT 64-BITS. ! - ! X-39 KLN1326 KAREN L. NOEL 18-OCT-1994 ! 64-BIT PROJECT: ! ADD SS$_ARG_GTR_32_BITS  ! 5 ! X-38 JCH703 JOHN C. HALLYBURTON, JR. 5-OCT-19948 ! ERROR CODES FOR FAST-IO: BADFANDLE THRU UNSUPVOLSET ! / ! X-37 JFD0633 JAMES F. DUNHAM 15-SEP-1994: ! FOLD FROM X-33U3 - ADD MESSAGES TO SUPPORT SCSI-2 TCQ ! - ! X-36 NANCY JEAN BURKHOLDER 19 SEP 1994 ! ADD SS$_ZEROALLOCLS MESSAGE ! ' ! X-35 DBK001 DAN KYLER 7-SEP-1994B ! ADD MES5SAGES FOR SMFS LAYERED PRODUCT IN MME RESERVED REGION. ! FOLDED FROM X-33U1. ! / ! X-34 DMB002 DAVID M. BERNARDO 28-AUG-1994? ! ADD SS$_NOMULTITHREAD, SS$_MTHREADACTIVE, SS$_MAXKTHREADS,9 ! SS$_NOSUCHTHREAD, SS$_NOTHREADMAN, SS$_NOSUCHUPCALL, ! SS$_TMACTIVE. ! ( ! X-33 JHH-BL5 JIM HOGG 6-JUL-1994< ! ADD SS$_INSFTHREADS & SS$_NOTSUPFS FOR F64 FILE SYSTEM. ! / ! X-32 RAB0191 RICHARD A. BISHOP 3-JUN-1994% ! ADD SS$_SIGNAL64 FOR MIKE HARVEY ! 1 ! X-31 6 SAD0308 STUART A. DAVIDSON 22-MAR-1994> ! ADD INSFP1POOL TO CLEARLY IDENTIFY INSUFFICIENT CTLPAGES. ! , ! X-30 RAB RICHARD A. BISHOP 15-MAR-1994( ! PICK UP THE FOLLOWING CORAL CHANGE: ! / ! X-35 FAK004 FORREST A. KENNEY 11-JAN-1994B ! ADD NEW MESSAGE , IOC$CLONE_UCB RETURNS THIS? ! WHEN WE HAVE USED UP ALL THE AVAILABLE UNITS FOR A DEVICE. ! 3 ! X-29 RWC136 RICHARD W. CRITZ, JR. 23-DEC-19938 ! ADD SS$_CONFIG_SYNTAX FOR 3PB SUPPORT. IT REPLAC7ES ! SS$_OBSOLETE_6. ! + ! X-28 RAB RICHARD A. BISHOP 9-DEC-19935 ! ADD IMPERSONATION MESSAGE CODES FOR STU DAVIDSON ! ( ! X-27 HH1241 HAI HUANG 06-OCT-1993/ ! CORRECT PARAMETERS FOR SS$_ILLEGAL_SHADOW. ! ! ! X-26 DEE RYAN 30-SEP-1993: ! CORRECTED SPELLING, PUNCTUATION, AND LEGAL ERRORS IN  ! MESSAGE TEXT. ! , ! X-25 RAB RICHARD A. BISHOP 17-AUG-1993 ! PICK UP NEW VAX SYMBOL: ! * ! X-32 WXD BILL DAVENPORT 11-AUG-19934 ! ADD SS$_IVNODNA8M, INVALID NODE NAME FOR DECNET. ! ( ! X-24 HH1202 HAI HUANG 12-AUG-1993) ! ADD NEW IEEE ARITHMETIC EXCEPTIONS.  ! * ! X-23 HH1110 GENE LEACHE 15-JUL-1993 ! ADD SS$_NOCALLTRANS_SUP ! ( ! X-22 HH1110 HAI HUANG 14-JUN-19933 ! ADD SS$_TARGET_UNWIND, SS$_TARGET_GOTO_UNWIND. ! ( ! X-21 HH1101 HAI HUANG 26-MAY-1993= ! REPLACE REASON MASK WITH I/O STATUS IN PAGE READ ERRORS. ! M ! X-20 MW MARK WATTS 25-MAY-1993L9 ! ADD A NEW FILESYSTEM ERROR MESSAGE CALLED SHELFERROR, THISO ! WILL BE RETURNED THROUGH THE FILESYSTEM BY THE SHELF HANDLER. ! , ! X-19 RAB RICHARD A. BISHOP 14-MAY-1993 ! FOLD INITIAL CORAL CHANGES: ! 1 ! X-21A1A1 MME001 MICHAEL BEELER 12-OCT-19922 ! ADD MME (MEDIA MANAGEMENT EXTENSION) MESSAGES ! , ! X-18 RAB RICHARD A. BISHOP 14-APR-1993; ! FOLD OF BLADE/DELTA CLEANUP (REQUIRED SS$_FDT_COMPL TO ! CHANGE VALUE): ! - ! X-1 :4U3 RAB RICHARD A. BISHOP 14-APR-19930 ! MERGE BLADE CHANGES AND RESOLVE CONTENTION: ! 1 ! X-25A1 AJM93032 ANDREW J. MOSKAL 11-MAR-1993; ! ADD NOTRANQUIL AND SMALLHEADER - MAC RELATED MESSAGES. ! * ! X-17 EHL003 GENE LEACHE 1-APR-1993 ! ADD SIG_ARGMISMATCHB ! * ! X-16 EHL003 GENE LEACHE 22-MAR-19936 ! ADD SIG_INVARGTYPE, SIG_INVFLTARG, SIG_INVARGLISTB ! ; E ! X-15 WDB:HLL004 WALTER D. BLASCHUK, JR. 06-JAN-19938 ! HLLDD PROJECT: FDT PROCESSING CHANGES.: ! ADD THE SS$_FDT_COMPL CONSTANT. THIS WILL INDICATE 9 ! THAT FDT PROCESSING IS COMPLETE. IT SAYS NOTHING$ ! ABOUT THE PRESENCE OF AN ERROR. ! & ! X-14 RLP017 RAY PFAU 18-DEC-19929 ! CLARIFY CPUSTOPPING TEXT. FIX TYPO IN NOTALLCANCELED ! TEXT.  ! + ! X-13 RAB RICHARD A. BISHOP 20-NOV-1992B ! NEW SYMBOLS FOR PAUL HOUL <IHAN (SCS), PLUS MORE BLADE CHANGES: ! & ! PJH PAUL J. HOULIHAN 20-NOV-1992< ! ADD SCS INTERNAL STATUS. THESE ARE NEVER SEEN BY USERS. ! ; ! X-24 MWD0038 MICHAEL DANIELE 20-OCT-1992 14:13> ! ADD NAMESERVCOMMERR - "Name service communications error" ! ON BEHALF OF DECNET/OSI. ! A ! X-23 DDP1354 DERRELL D. PIPER 30-SEP-1992 16:36A ! ADD MESSAGE FOR ATTEMPT TO ADD A PROTECTED SUBSYSTEM ID WITHA ! ATTRIBUTES THAT EXCEED THOSE OF ITS HOLDER (SS$_S =SANOTAUTH).> ! ALSO ADD A MESSAGE FOR INVALID FILE OWNER (SS$_BADOWNER). ! A ! X-22 DDP1337 DERRELL D. PIPER 16-SEP-1992 17:55< ! UPDATE NOPRIV, EXQUOTA, AND OBJNOTLOCKED MESSAGE TEXTS. ! , ! X-12 RS00375 RICHARD SAYDE 1-SEP-1992< ! CORRECT MESSAGE TEXT FOR ALIGNMENT FAULT TRAP. REGISTER< ! INFORMATION IS NO LONGER PROVIDED, IT IS NOW A FUNCTION( ! CODE - 0 MEANS LOAD, 1 MEANS STORE. ! ' ! X-11 HH0974 HAI HUANG 16-AUG-1992) ! CORRECT MESSAGE TEXT >FOR SS$_FLTINV. ! + ! X-10 RAB RICHARD A. BISHOP 14-AUG-1992" ! PICK UP ANOTHER BLADE CHANGE: ! / ! X-21 JAD045 JOSEPH A. DZIEDZIC 29-JUN-19926 ! ADD "page read error across access modes" STATUS, ! SS$_PAGRDERRXM. ! * ! X-9 RAB RICHARD A. BISHOP 16-JUL-19927 ! PICK UP CHANGE FROM VAX, RESET IDENT & AUDIT TRAIL ! / ! X-19 RLA095B ROBERT L. ADAMS 12-JUN-19926 ! OBSOLETE CHARGE CODE ACCOUNTING AND REPLACE WITH 2 ! MORE DESCRIPTIVE PROTECTED SUBSYSTEMS ERR?ORS.( ! ADD COMMENT ON OBSOLETING MESSAGES. ! ) ! X-22 EHL002 GENE LEACHE 8-JUL-1992 ! ADD SS$_ILLPOLICY ! ) ! X-21 EHL001 GENE LEACHE 18-JUN-1992 ! ADD SS$_ILLPRIPOL ! / ! X-20 EMB0170 ELLEN M. BATBOUTA 12-JUN-19924 ! ADD 2 NEW FATAL ERROR MESSAGES, TRANSCALLER AND8 ! NOCALLTRANS. THESE MESSAGES INDICATE THAT A NATIVE7 ! IMAGE WAS NOT BUILT CORRECTLY TO INTEROPERATE WITH ! TRANSLATED CODE. ! ' ! X-19 HH0931 HAI HUANG 27-MAY-1992( ! CHANGE @PSL IN ERROR MESSAGES TO PS. ! + ! X-18 RAB RICHARD A. BISHOP 19-MAY-1992" ! PICK UP RECENT BLADE CHANGES: ! , ! X-17 ATP014.17 ALAN POTTER 2-APR-19925 ! CHANGE ERROR MESSAGE TEXT FOR SS$_TPDISABLED AND ! SS$_NOLOG. ! E ! X-15/16 DDP1198 DERRELL D. PIPER 24-MAR-1992 18:15> ! FIX PUNCTUATION OF MESSAGES FOR HELP/MESSAGE AND ADD SOME/ ! POMPOUS GUIDELINES FOR FUTURE GENERATIONS. ! ' ! X-17 HH0855 HAI HUANG 10-MAR-1992& ! -16 ADD STATUS FOAR GENTRAP CODES. ! ' ! X-15 HH0853 HAI HUANG 26-FEB-19927 ! ADD SS$_GENTRAP, SS$_GOTO_UNWIND, SS$_EXIT_UNWIND. ! / ! X-14 RAB0100 RICHARD A. BISHOP 30-JAN-19927 ! MERGE BLADE AND ALPHA VERSIONS OF THIS FILE. THIS 6 ! IS BEING DONE SO AS TO LEAVE BLADE VALUES INTACT.5 ! WHERE CHANGES IN VALUES ARE NECESSARY, THEY ARE  ! HAPPENING TO ALPHA.  ! 9 ! ALSO MOVE SS$_IMGDMP (PREVIOUS BLADE CHECKIN). THIS 9 ! WAS WRONGLY PLACED, AND CAUSED SOME SYMBOLS TO MOVE./ !B THEY NOW GO BACK TO THEIR ORIGINAL VALUES. ! 7 ! AS LUCK WOULD HAVE IT, THIS CHECKIN IS GENERATION ! 14 ON BOTH MASTERPACKS..... ! , ! ======================================== ! 7 ! 30-JAN-1992: WHAT FOLLOWS IS THE BLADE AUDIT TRAIL % ! FROM 30-NOV-1990 TO 20-DEC-1991 ! , ! ======================================== ! . ! X-13 SJVMAJ STEPHEN J. VIVIAN 20-DEC-1991- ! ADD SS$_IMGDMP SIGNAL FOR MAJIQ SUPPORT. ! 9 ! X-12 CRB0711 COLIN R. BLAKE 18-DEC-199C1 13:18:23.939 ! THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. ! F ! X-8A3A1A2 THE GREAT MERGER NASSER ABBASI 11-DEC-1991 ! MERGE T4 WITH BLADE_BLD6% ! COPY OF HISTORY FROM BLD6 MODULE% ! --------------------------------5 ! X-11 JFD0031 JAMES F. DUNHAM 8-JAN-19914 ! ADD MESSAGES TO SUPPORT ISO 9660 VOLUME MOUNTS ! 5 ! X-8A3A1A1 DOR DENNIS O. ROGERS 26-NOV-1991 12:19 ! C2 BLADE MERGE (T4): ! . ! X-10 CBD0238 CHARLES B. DUNN D 14-OCT-1991( ! ADD SS$_TIMENOTSET FOR DTSS SUPPORT ! = ! X-8A3A1 CRB0044 COLIN R. BLAKE 6-NOV-1991 08:58 ! T3 MERGE: ! , ! X-9 EJL0610 EDWARD J. LOS 02-OCT-1991< ! RESET VERSION TO MATCH GENERATION. ADD SYSTEM SNAPSHOT ! VALIDATION ERRORS ! . ! X-8A3 CRB0030 COLIN R. BLAKE 23-OCT-1991 ! MORE C2 MERGING: ! 2 ! T-6T9 SAD0144 STUART A. DAVIDSON 18-OCT-19916 ! ADD NOOJBSRV ERROR -- OBJECT SERVER NOT RUNNING. ! 0 ! X-8A2 FAK0003 FORREEST A. KENNEY 16-OCT-1991 ! MERGE LATEST C2 CHANGES. ! : ! T-9 DDP0887 DERRELL D. PIPER 4-OCT-1991 18:43# ! ADD ITEM CODE ERROR MESSAGES. ! 0 ! X-8A1 FAK0002 FORREST A. KENNEY 20-SEP-1991= ! MERGE C2 MESSAGES INTO MAINLINE, FIX IDENT TO AGREE WITH# ! CMS DUE TO MASTERPACK CLEANUP. ! 8 ! X-80T8 LMP0542 L. MARK PILANT, 29-JUL-1991 16:42< ! ADD A MESSAGE TO INDICATE THAT DELETION OF FILES WITH + ! ACTIVE RMS JOURNALING IS NOT ALLOWED. ! 2 ! LMFP0544 L. MARK PILANT, 30-JUL-1991 14:452 ! ADD A MESSAGE TO INDICATE THE SUPPLIED FILE ; ! SPECIFICATION IS INVALID FOR THE ATTEMPTED OPERATION. ! * ! T-7 RLA ROBERT L. ADAMS 26-JUN-1991* ! FOLD MAGIC CHANGES INTO TRANQUILITY. ! 4 ! T-6 DDP0977 DERRELL D. PIPER 7-JUN-1991 10:01 ! ADD OVRMAXAUD. ! * ! T-5 AJM ANDREW J. MOSKAL 13-MAY-1991= ! ADD INVSECOPER, NOCLASSSUPPORT - MAC PROTECTION RELATED ! MESSAGES. ! 0 ! T-4 SAD0116 STUART A. DAVIDSGON 3-MAY-19915 ! ADD ILLRSDM (ILLEGAL RESOURCE DOMAIN OPERATION) ! 3 ! X-80T3 SAD0109 STUART A. DAVIDSON 19-APR-1991, ! ADD OBJECT CONTEXT NOT LOCKED MESSAGE. ! 3 ! X-80T2 SAD0109 STUART A. DAVIDSON 11-MAR-19918 ! ADD MISSED MESSAGES FOR SECURITY OBJECT MANAGEMENT ! 2 ! X-81 RLA0147 ROBERT L. ADAMS 15-FEB-19913 ! ADD SECURITY MESSAGES ADDED FOR PHOENIX WORK. ! - ! X-87 PMV0169 PETER M. VATNE 20-JUN-1991 ! ADD SS$_DEVNOTWS. ! ( ! X-86 CW CHHRIS WHITAKER 10-MAR-1991 ! ADD SS$_REMEMBER ALIAS. ! . ! X-85 FAK001 FORREST A. KENNEY 08-MAR-1991 ! ADD SS$_QUEUED. ! ( ! X-84 JLBBP01 J.L. BERG 28-FEB-1991' ! ADD SS$_NOREADER AND SS$_NOWRITER. ! ( ! X-83 CW CHRIS WHITAKER 26-FEB-1991- ! ADD ERROR CODES FOR DECDTM V1.2 SUPPORT. ! - ! X-82 RG40077 RAY GUZMAN 21-FEB-1991C ! ADD 4 NEW CODES. SS$_BADCHECKSUM, SS$_INVSECDOMAIN,& ! SS$_ARBTOOBIG, AND SS$_ORBTOOBIG. ! 2 ! X-81 RKK0058I ROBERT K. KOSAKOWSKI 19-FEB-1991> ! RESERVE 20 MESSAGE CODES FOR MEDIA MANAGEMENT EXTENSIONS. ! (FOR DAN KYLER) ! + ! X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 ! MERGED EDIT X-74 ! ) ! X-74 LPL0001 LEE LEAHY 12 OCT 1990: ! ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID,3 ! SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. ! , ! ======================================== ! 7 ! 30-JAN-1992: WHAT FOLLOWS IS THE ALPHA AUDIT TRAIL % ! FROM 16-JUL-1990 TO 18J-DEC-1991 ! , ! ======================================== ! , ! X-13 RS00233 RICHARD SAYDE 18-DEC-19913 ! ADD ERROR CODES FOR ALIGNMENT FAULT REPORTING. ! + ! X-12 TNS001 TOM SCARPELLI 24-OCT-19916 ! ADD MESSAGES FROM VAX SIDE FOR NEW QUEUE MANAGER. ! . ! X-11 DMB001 DAVID M. BERNARDO 23-OCT-1991 ! ADD SLICING_DISABLED. ! + ! X-10 WMC010 WAYNE CARDOZA 24-SEP-1991 ! ADD UNALIGNED SP LOAD. ! * ! X-9 TNS001 TOM SCARPELLI 17-JUN-1991? ! ADD MESSAKGES FROM VAX SIDE FOR $FORGE_WORD SYSTEM SERVICE. ! 2 ! X-8 RWC038 RICHARD W. CRITZ, JR. 12-JUN-1991? ! CHANGE SS$_DRVEXISTS AND SS$_DEVEXISTS FROM INFORMATIONALS ! TO WARNINGS. ! & ! X-7 HH0624 HAI HUANG 09-APR-19918 ! ADD SS$_ALTER, ALTER STACK FRAMES, FOR TIE SUPPORT. ! ( ! X-K10 LPL001 LEE LEAHY 4 APR 1991. ! INCLUDED THE DEFINITIONS FROM IOWA/SIGMA. ! , ! X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 ! MERGED EDIT X-74 ! * ! X-74 LPL0001 LEE LEAH LY 12 OCT 1990; ! ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID,4 ! SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. ! ' ! X-K9 HH0610 HAI HUANG 25-FEB-1991: ! ADD ALPHA HARDWARE EXCEPTIONS SS$_HPARITH, SS$_ALIGN. ! . ! X-K8 RFH002 ROBERT F. HOFFMAN 23-JAN-19916 ! ADD SS$_QIO_CROCK FOR SPECIAL TREATMENT THAT $QIO8 ! NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE. ! / ! X-K7 MSH1062 MICHAEL S. HARVEY 13-DEC-19906 ! ADD SS$_INVARG FOR $CRMPSC AND $MPGBLMSC SERVICES. ! . ! X-K6 RFH001 ROBERT F. HOFFMAN 11-DEC-19909 ! ADD SS$_QUEUED FOR TTDRIVER PORT (REPLACES AN UNUSED ! MESSAGE) ! 2 ! X-K5 RWC003 RICHARD W. CRITZ, JR. 1-NOV-1990 ! ADD SS$_DRVNOTVALID. ! 2 ! X-K4 RWC003 RICHARD W. CRITZ, JR. 11-OCT-1990 ! ADD $LOAD_DRIVER STATUSES. ! , ! X-K3 KLN1027 KAREN L. NOEL 25-JUL-1990 ! ADD SS$_NOT_LOADED ! + ! X-K2 WMC0K2 WAYNE CARDOZA 16-JUL-1990 ! ADD WAIT IN CALLERS MODE. ! , ! ============N============================ ! 8 ! 30-JAN-1992: WHAT FOLLOWS IS THE COMMON AUDIT TRAIL  ! UP TO 21-MAY-1990 ! , ! ======================================== ! / ! X-46U11 CW1024 CHRIS WHITAKER 21-MAY-1990 ! ADD SS$_VOLATILE. ! > ! X-46U10 DDP0643 DERRELL D. PIPER 28-MAR-1990 15:55 ! ADD SS$_USEGENPWD. ! / ! X-46U9 MAS0254 MARK A. STILES 20-FEB-19908 ! FIXUP OUT-OF-ORDER CODES. MOVE SOME NEW CODES INTO; ! UNUSED SLOTS. FIX TEXT OF INSFSPT TO BOE MORE GENERIC. ! 3 ! X-46U8 CAM0109 CHRISTOPHER A. MEGA 12-FEB-1990D ! ADD BOOTREJECT WARNING STATUS - USED BY START/CPU CODE IF A CPU< ! FAILS TO BOOT BECAUSE IT IS IN THE BOOT_REJECTED STATE. ! + ! X-46U7 LBB0010 LEE BARTON 30-NOV-19899 ! ADD SS$_ARCHIVING, SS$_ARCHIVED (XQP SUPPORT OF ALM) ! 7 ! X-46U6 LMP0517 L. MARK PILANT, 17-OCT-1989 16:42% ! ADD PROTECTED SUBSYSTEM SUPPORT. ! , ! X-46U5 RLF RICHARD L. FRANK 16-OCT-19899 ! MODIFY INSFSPTS TO BE MPORE GENERIC. ADD INSFRPGS AND ! INSFLPGS. ! 3 ! X-46U4 CAM0072 CHRISTOPHER A. MEGA 06-OCT-1989% ! CHANGED CPUSTOPPD TO CPUSTOPPING ! < ! X-46U3 DDP0546 DERRELL D. PIPER 4-OCT-1989 14:24* ! ADD SS$_NOCALLPRIV FOR $CHECK_ACCESS. ! 1 ! X-46U2 PRD0503 PAUL R. DESTEFANO 25-SEP-1989: ! ADD SS$_NOSUCHFAC FOR EVENT FACILITY OBJECT SECURITY. ! 1 ! X-46U1 PRD0495 PAUL R. DESTEFANO 18-SEP-19896 ! ADD SS$_INVEVENT FATAL MESSAGE FOR $SETEVTAST AND ! $CANEVTASQT. ! . ! X-46 SAS0203 SCOTT A. SHURTS 15-SEP-19895 ! ADD SS$_INCONOLCK FATAL MESSAGE FOR $CHANGE_ACL. ! 1 ! X-45 CAM0063 CHRISTOPHER A. MEGA 13-SEP-1989> ! ADD WARNING AND INFORMATIONAL STATUS FOR ENHANCED PRIMARY@ ! CPU SWITCHING: CPUSTARTIP, CPUSTARTD, CPUSTOPPD, PRIMNOSTP.! ! ALSO ADDED /FAO=1 TO NSTPPD. ! A ! X-44 DDP0429 DERRELL D. PIPER 11-SEP-1989 16:579 ! CHANGE THE SEVERITY OF THE NEW PASSWORD STATUS CODES ! FROM FATAL TO ERROR. ! . R ! X-43 CBD0198 CHARLES B. DUNN 14-AUG-19893 ! ADD SS$_EFNOTSET FOR IOC$PRE_SIMREQCOM SUPPORT ! ) ! X-42 RAP0491 ROD A. PAYNE 15-AUG-89< ! ADD SS$_HSTBUFACC, TO REPORT HOST BUFFER ACCESS ERRORS. ! . ! X-41 CJB0041 CHERYL J. BULMER 9-AUG-19893 ! ADD SS$_LOADER, TO REPORT LOADER CYCLE ERRORS. ! - ! X-40 MAS0238 MARK A. STILES 9-AUG-19899 ! ADD SS$_CPUCAP FOR USE WHEN A REQUESTED CPU DOES NOT7 ! HAVE THE CAPABILITIES REQUIRED TO RUN THE PROCESS.' ! [FOLD FSROM X-29U11 IN V5.3 STREAM] ! : ! X-39 MVI0033 MICHAEL V. ILES, 28-JUL-1989 10:08:05.45; ! ADD MESSAGE CODE NOSUCHCPB AND CHANGE TEXT FOR ACLFULL ! A ! X-38 DDP0387 DERRELL D. PIPER 25-JUL-1989 12:47; ! ADD MESSAGE CODES FOR SITE-SPECIFIC PASSWORD POLICIES. ! A ! X-37 DDP0375 DERRELL D. PIPER 31-MAY-1989 15:12* ! REPLACE SOME OBSOLETE MESSAGE CODES.  ! ' ! X-36 HH0340 HAI HUANG 03-OCT-1988 ! ADD VECALIGN ERROR. ! ) ! X-35 SSAT0002 STAN AMWAY 30-SEP-1988" ! CORRECT TEXT FOR SS$_VECFULL. ! . ! X-34 JEJ0550 JAMES E JOHNSON 19-SEP-1988< ! ADD ALRCURTID, RMALRDCL, NOSUCHPART, INVLOG, BADLOGVER, ! LOGSTALL, LOGFULL, LOGNAME. ! ) ! X-33 SSA0001 STAN AMWAY 14-SEP-19883 ! ADD NOSUSPEND ("process cannot be suspended"). ! 5 ! X-32 RJB0165 RICHARD J. BOUCHARD JR. 14-SEP-19884 ! ADD NOMOREDEV MESSAGE FOR $DEVICE_SCAN SERVICE. ! 9 ! X-31 ACG0559 ANDREW C. GOLDSTEIN, 31-AUG-1988 16:286 !U ADD HWM_STALL FOR ABORT OF STALLED INTERNAL IRP'S ! ' ! X-30 HH0334 HAI HUANG 31-AUG-1988; ! REPLACE SYSVERDIF WITH A NEW VALUE (I.E. SEVERITY) AND ! A NEW MESSAGE. ! A ! X-29 DDP0308 DERRELL D. PIPER 21-JUL-1988 14:02- ! ADD PWDSYNTAX, INVPWDLEN, AND PWDNOTDIF. ! . ! X-28 JEJ0527 JAMES E JOHNSON 27-JUN-1988: ! ADD NOSUCHTID, NOCURTID, WRONGSTATE, VETO, UNKRESULT,: ! FORGET, PREPARED, NOSUCHRM, ITEMNOTFOUND, NOMOREITEMS ! ' ! X-26 HH0315 HVAI HUANG 18-APR-19881 ! -27 ADD NEW STATUS CODES FOR VECTOR SUPPORT. ! 7 ! X-25 PT00010 PANKAJ TANDON 30-DEC-1987 7 ! ADD ALLSTARTED,ALRDYSTRT,ALRDYSTPPD AND NSTPPD FOR% ! $START/STOP CPU ERRONEOUS CASES. ! 5 ! X-24 LMP0465 L. MARK PILANT, 28-OCT-1987 15:58> ! ADD A NEW MESSAGE, SS$_NORIGHTSDB, TO INDICATE THAT THERE; ! IS NOT A RIGHTS DATABASE IS NOT PRESENT ON THE SYSTEM. ! % ! X-23 SJF STU FARNHAM 5-OCT-1987 ! ADD NOSUCHCPU ! ( ! X-22W DLM006 DAN MURPHY 13-SEP-1987& ! INFORMATIONAL CODES FOR $GETSECI. ! + ! X-21 WMC0021 WAYNE CARDOZA 4-SEP-1987$ ! FIX A MISSPELLING IN VA_IN_USE. ! , ! X-20 WMC0020 WAYNE CARDOZA 27-JUL-1987 ! ADD NODELETE. ! , ! X-19 WMC0019 WAYNE CARDOZA 10-MAR-1987. ! EXPRCLM SHOULD NOT MENTION SUBPROCESSES. ! , ! X-18 WMC0018 WAYNE CARDOZA 19-FEB-1987 ! ADD VA_IN_USE. ! . ! X-17 DDP0029 DERRELL D. PIPER 21-JAN-19874 ! CONVERT SS$_BADXXXCTX TO SINGLE BADCOXNTEXT MSG. ! . ! X-16 DDP0027 DERRELL D. PIPER 12-JAN-1987* ! ADD SS$_TOOMUCHCTX AND SS$_BADUAICTX. ! ' ! X-15 HH0237 HAI HUANG 06-JAN-1987 ! ADD SS$_UNSUPPORTED. ! . ! X-14 DDP0008 DERRELL D. PIPER 08-DEC-19865 ! ADD SS$_LASTID, SS$_NOMOREID, SS$_RLSEMPTY, AND 1 ! SS$_BADJPICTX FOR JPI$_RIGHTSLIST ITEM CODE.% ! (NB: S VARIANT IS NOW OBSOLETE.) ! - ! X-9 NCD0001 NANCY C. DENARDO 21-OCT-1986< ! ADDED SS$_EXLICENSE, SS$_INVLICENSE, SS$_LICENSE_LEVEL,'Y ! AND SS$_INV_HW_ID FOR LMF SERVICE. ! 0 ! X-8 SAS001 SCOTT A. SHURTS 02-OCT-19868 ! ADDED SS$_SRVMMAT TO INDICATE CRYPTOGRAPHIC SERVICE ! MISMATCH. ! + ! X-7 KL 0001 KEITH LOEPERE 12-JUN-1986: ! ADDED SS$_REMOVED TO INDICATE DIR ENTRY ONLY REMOVED. ! & ! X-6 CWH5006 CW HOBBS 30-MAY-19860 ! ADD SS$_REMOTE_PROC ERROR MESSAGE FOR CWPS. ! ' ! X-5H2 SJF STU FARNHAM 29-MAY-19865 ! ADD SS$_CPUNOTACT TO INDICATE THAT THE REQUESTED( ! CPU IN AN SMP SYS ZTEM IS NOT ACTIVE. ! . ! X-5 PRD0184 PAUL R. DESTEFANO 07-NOV-19855 ! ADD SS$_DATALOST "data lost" TO INDICATE DLS END; ! FLAG SET IN CACHING TAPE DRIVE OR DRIVER HAS OTHERWISE& ! DETECTED THE LOSS OF CACHED DATA. ! 4 ! X-4 LMP0382 L. MARK PILANT, 6-NOV-1985 10:10A ! ADD SS$_OBJLOCKHELD TO INDICATE THAT A PROCESS ALREADY HOLDS ! THE OBJECT'S ACL LOCK. ! / ! X-3 JMK0002 JOSEPH M. KRAETSCH 17-SEP-1985B ! ADD SS$_RUCONFLICT "file has active RUs by another faci[lity".* ! REMOVE NOTMPJNL, NOPRMJNL (OBSOLETE). ! 0 ! V04-001 ROW0466 RALPH O. WEBER 11-JUN-1985= ! REPLACE SS$_SHACPYINP (A NO LONGER USED SHADOWING ERROR D ! STATUS) WITH SS$_DEVNOTSHR, "device not currently shareable". B ! SS$_DEVNOTSHR IS AN ERROR STATUE FOR USE WITH DEVICES MARKED @ ! FOR EXCLUSIVE ACCESS BY SOMEONE ELSE BY AN MSCP CONTROLLER. !  ! --- ! + ! SYSTEM STATUS CODES !  ! LAYOUT OF MESSAGE SPACE: ! / ! MSG #S RANGE # MSGS DESCRI \PTION ! & ! 0-127 0-3FF 128 FATAL ERRORS; ! 128-191 400-5FF 64 HARDWARE DEFINED FATAL ERRORS+ ! 192-255 600-7FF 64 SUCCESS CODES+ ! 256-383 800-BFF 128 WARNING CODES1 ! 384-447 C00-DFF 64 INFORMATIONAL CODES2 ! 448-511 E00-FFF 64 NONFATAL ERROR CODESD ! 512-1023 1000-1FFF 512 SHARED MESSAGES (NOT HERE, SEE SHRMSG)? ! 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF)1 ! 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS3 ! ]1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORS@ ! 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONSG ! 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF)L ! 1664-1695 3400-341F 32 FATAL ERRORS (CONTINUED FROM 27FF)2 ! 1696-4031 3420-7DFF 2334 (UNUSED)5 ! 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS !  ! - ! # ! EXPLICITLY DEFINED SUCESS CODES ! = ! DO NOT MIX THESE CODES WITH INCREMENTAL ASSIGNMENTS BELOW ! ^) PARAMETER SYSTEM$_FACILITY = '00000000'X# PARAMETER SS$_NORMAL = '00000001'X ! J ! NOTE THAT CONTINUE,WASCLR,WASSET,REMEMBER DO NOT HAVE ANY MESSAGE TEXTG ! SINCE THESE CODES USE THE SAME MESSAGE NUMBER AS NORMAL AND ACCVIO,A ! THEY CAN NEVER BE MADE TO HAVE MESSAGES ASSOCIATED WITH THEM. ! % PARAMETER SS$_CONTINUE = '00000001'X# PARAMETER SS$_WASCLR = '00000001'X# PARAMETER SS$_WASSET = '00000009'X% PARAMETER SS$_REMEMBER = '00000001'X ! / ! MSG #S RANGE # MSG_S DESCRIPTION ! & ! 0-127 0-3FF 128 FATAL ERRORS? ! 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF) ! # PARAMETER SS$_ACCVIO = '0000000C'X% PARAMETER SS$_BADPARAM = '00000014'X$ PARAMETER SS$_EXQUOTA = '0000001C'X# PARAMETER SS$_NOPRIV = '00000024'X2 ! MAKE THE ABOVE ERRORS FALL INTO SHORT LITERALS" PARAMETER SS$_ABORT = '0000002C'X& PARAMETER SS$_BADATTRIB = '00000034'X& PARAMETER SS$_BADESCAPE = '0000003C'X& PARAMETER SS$_BADIMGHDR = '00000044'X& PARAM `ETER SS$_CHANINTLK = '0000004C'X$ PARAMETER SS$_CTRLERR = '00000054'X& PARAMETER SS$_DATACHECK = '0000005C'X' PARAMETER SS$_DEVFOREIGN = '00000064'X% PARAMETER SS$_DEVMOUNT = '0000006C'X& PARAMETER SS$_DEVNOTMBX = '00000074'X( PARAMETER SS$_DEVNOTMOUNT = '0000007C'X' PARAMETER SS$_DEVOFFLINE = '00000084'X# PARAMETER SS$_DRVERR = '0000008C'X$ PARAMETER SS$_DUPLNAM = '00000094'X& PARAMETER SS$_FILACCERR = '0000009C'X& PARAMETER SS$_FILALRACC = '000000A4'X& PARAMETER SS$_FILNOTACC = '0000a00AC'X& PARAMETER SS$_FILNOTEXP = '000000B4'X# PARAMETER SS$_FORMAT = '000000BC'X$ PARAMETER SS$_GPTFULL = '000000C4'X$ PARAMETER SS$_GSDFULL = '000000CC'X& PARAMETER SS$_LCKPAGFUL = '000000D4'X& PARAMETER SS$_ILLBLKNUM = '000000DC'X( PARAMETER SS$_ILLCNTRFUNC = '000000E4'X# PARAMETER SS$_ILLEFC = '000000EC'X& PARAMETER SS$_ILLIOFUNC = '000000F4'X& PARAMETER SS$_ILLPAGCNT = '000000FC'X# PARAMETER SS$_ILLSER = '00000104'X( PARAMETER SS$_INCVOLLABEL = '0000010C'X$ PARAMETER SS$_INSFARG =b '00000114'X$ PARAMETER SS$_INSFWSL = '0000011C'X$ PARAMETER SS$_INSFMEM = '00000124'X% PARAMETER SS$_INSFRAME = '0000012C'X# PARAMETER SS$_IVADDR = '00000134'X# PARAMETER SS$_IVCHAN = '0000013C'X% PARAMETER SS$_IVDEVNAM = '00000144'X% PARAMETER SS$_IVGSDNAM = '0000014C'X% PARAMETER SS$_IVLOGNAM = '00000154'X% PARAMETER SS$_IVLOGTAB = '0000015C'X% PARAMETER SS$_IVQUOTAL = '00000164'X% PARAMETER SS$_IVSECFLG = '0000016C'X# PARAMETER SS$_IVSSRQ = '00000174'X% PARAMETER SS$_IVSTSFLcG = '0000017C'X# PARAMETER SS$_IVTIME = '00000184'X# PARAMETER SS$_LENVIO = '0000018C'X& PARAMETER SS$_LKWSETFUL = '00000194'X% PARAMETER SS$_MBTOOSML = '0000019C'X# PARAMETER SS$_MEDOFL = '000001A4'X# PARAMETER SS$_NODATA = '000001AC'X% PARAMETER SS$_NOIOCHAN = '000001B4'X% PARAMETER SS$_NOLOGNAM = '000001BC'X% PARAMETER SS$_NONEXDRV = '000001C4'X' PARAMETER SS$_NOTFILEDEV = '000001CC'X' PARAMETER SS$_NOTINTBLSZ = '000001D4'X' PARAMETER SS$_NOTLABELMT = '000001DC'X% PARAMETERd SS$_NOTSQDEV = '000001E4'X& PARAMETER SS$_PAGOWNVIO = '000001EC'X# PARAMETER SS$_PARITY = '000001F4'X' PARAMETER SS$_PARTESCAPE = '000001FC'X# PARAMETER SS$_PFMBSY = '00000204'X$ PARAMETER SS$_PSTFULL = '0000020C'X& PARAMETER SS$_RESULTOVF = '00000214'X& PARAMETER SS$_SECTBLFUL = '0000021C'X( PARAMETER SS$_TAPEPOSLOST = '00000224'X$ PARAMETER SS$_TIMEOUT = '0000022C'X$ PARAMETER SS$_UNASEFC = '00000234'X# PARAMETER SS$_UNSAFE = '0000023C'X$ PARAMETER SS$_VASFULL = '00000244'X% PARAM eETER SS$_VECINUSE = '0000024C'X# PARAMETER SS$_VOLINV = '00000254'X$ PARAMETER SS$_WRITLCK = '0000025C'X% PARAMETER SS$_NOTAPEOP = '00000264'X& PARAMETER SS$_IVCHNLSEC = '0000026C'X" PARAMETER SS$_NOMBX = '00000274'X$ PARAMETER SS$_NOLINKS = '0000027C'X& PARAMETER SS$_NOSOLICIT = '00000284'X' PARAMETER SS$_NOSUCHNODE = '0000028C'X# PARAMETER SS$_REJECT = '00000294'X( PARAMETER SS$_TOOMUCHDATA = '0000029C'X% PARAMETER SS$_BUGCHECK = '000002A4'X' PARAMETER SS$_FILNOTCNTG = '000002AC'X f% PARAMETER SS$_BADSTACK = '000002B4'X# PARAMETER SS$_MCHECK = '000002BC'X& PARAMETER SS$_DEVACTIVE = '000002C4'X# PARAMETER SS$_HANGUP = '000002CC'X& PARAMETER SS$_OPINCOMPL = '000002D4'X% PARAMETER SS$_ILLSEQOP = '000002DC'X' PARAMETER SS$_IVSECIDCTL = '000002E4'X& PARAMETER SS$_NOTNETDEV = '000002EC'X& PARAMETER SS$_IVPROTECT = '000002F4'X% PARAMETER SS$_ACPVAFUL = '000002FC'X& PARAMETER SS$_MTLBLLONG = '00000304'X& PARAMETER SS$_BUFBYTALI = '0000030C'X" PARAMETER SS$_NOAQB = '00g000314'X% PARAMETER SS$_WRONGACP = '0000031C'X( PARAMETER SS$_BUFNOTALIGN = '00000324'X& PARAMETER SS$_DEVCMDERR = '0000032C'X& PARAMETER SS$_DEVREQERR = '00000334'X& PARAMETER SS$_INSFBUFDP = '0000033C'X' PARAMETER SS$_INSFMAPREG = '00000344'X% PARAMETER SS$_IVBUFLEN = '0000034C'X# PARAMETER SS$_IVMODE = '00000354'X' PARAMETER SS$_MCNOTVALID = '0000035C'X& PARAMETER SS$_POWERFAIL = '00000364'X( PARAMETER SS$_SHMGSNOTMAP = '0000036C'X( PARAMETER SS$_TOOMANYLNAM = '00000374'X' PARAMET hER SS$_SHMNOTCNCT = '0000037C'X' PARAMETER SS$_NOTCREATOR = '00000384'X& PARAMETER SS$_INTERLOCK = '0000038C'X( PARAMETER SS$_BADQUEUEHDR = '00000394'X# PARAMETER SS$_NOSLOT = '0000039C'X& PARAMETER SS$_SUSPENDED = '000003A4'X( PARAMETER SS$_EXPORTQUOTA = '000003AC'X' PARAMETER SS$_NOSHMBLOCK = '000003B4'X% PARAMETER SS$_BADQFILE = '000003BC'X$ PARAMETER SS$_NOQFILE = '000003C4'X% PARAMETER SS$_QFACTIVE = '000003CC'X% PARAMETER SS$_QFNOTACT = '000003D4'X( PARAMETER SS$_DUPDSKQUOTA =i '000003DC'X( PARAMETER SS$_NODISKQUOTA = '000003E4'X( PARAMETER SS$_EXDISKQUOTA = '000003EC'X' PARAMETER SS$_IDMISMATCH = '000003F4'X" PARAMETER SS$_NOWRT = '000003FC'X ! **************= ! NOTE: THE ABOVE SET OF SEVERE ERROR MESSAGES IS FULL!!!!7 ! ANY ADDITIONAL SEVERE ERROR MESSAGES MUST BE ADDED' ! BELOW, IN THE RANGE HEX 2000-2800. ! **************# PARAMETER SS$_BADISD = '00002004'X# PARAMETER SS$_RELINK = '0000200C'X' PARAMETER SS$_NOTINSTALL = '00002014'X' PARAMET jER SS$_SHARTOOBIG = '0000201C'X# PARAMETER SS$_NOP1VA = '00002024'X$ PARAMETER SS$_MULTRMS = '0000202C'X$ PARAMETER SS$_VECFULL = '00002034'X# PARAMETER SS$_IVLVEC = '0000203C'X% PARAMETER SS$_INSFSPTS = '00002044'X' PARAMETER SS$_DISCONNECT = '0000204C'X( PARAMETER SS$_PRIVINSTALL = '00002054'X( PARAMETER SS$_PROTINSTALL = '0000205C'X# PARAMETER SS$_BADVEC = '00002064'X$ PARAMETER SS$_REMRSRC = '0000206C'X% PARAMETER SS$_PROTOCOL = '00002074'X' PARAMETER SS$_THIRDPARTY = '0000207C'kX' PARAMETER SS$_NOSUCHUSER = '00002084'X! PARAMETER SS$_SHUT = '0000208C'X( PARAMETER SS$_UNREACHABLE = '00002094'X% PARAMETER SS$_INVLOGIN = '0000209C'X& PARAMETER SS$_NOSUCHOBJ = '000020A4'X% PARAMETER SS$_EXCPUTIM = '000020AC'X% PARAMETER SS$_OPRABORT = '000020B4'X( PARAMETER SS$_SHRIDMISMAT = '000020BC'X% PARAMETER SS$_COMMHARD = '000020C4'X# PARAMETER SS$_IVCHAR = '000020CC'X% PARAMETER SS$_DEVINACT = '000020D4'X' PARAMETER SS$_CONNECFAIL = '000020DC'X& PARAMETER SS$_LINKAlBORT = '000020E4'X' PARAMETER SS$_LINKDISCON = '000020EC'X% PARAMETER SS$_LINKEXIT = '000020F4'X% PARAMETER SS$_PATHLOST = '000020FC'X$ PARAMETER SS$_CLEARED = '00002104'X" PARAMETER SS$_RESET = '0000210C'X& PARAMETER SS$_UNSOLICIT = '00002114'X( PARAMETER SS$_TOOMANYREDS = '0000211C'X% PARAMETER SS$_IVLOCKID = '00002124'X% PARAMETER SS$_SUBLOCKS = '0000212C'X( PARAMETER SS$_PARNOTGRANT = '00002134'X' PARAMETER SS$_CVTUNGRANT = '0000213C'X( PARAMETER SS$_FORCEDERROR = '00002144'X$ P mARAMETER SS$_ILLSELF = '0000214C'X% PARAMETER SS$_ILLCDTST = '00002154'X' PARAMETER SS$_NOLISTENER = '0000215C'X( PARAMETER SS$_EXGBLPAGFIL = '00002164'X# PARAMETER SS$_BADRCT = '0000216C'X( PARAMETER SS$_DIRNOTEMPTY = '00002174'X' PARAMETER SS$_FORCEDEXIT = '0000217C'X' PARAMETER SS$_NOTPRINTED = '00002184'X% PARAMETER SS$_JBCERROR = '0000218C'X& PARAMETER SS$_NOLICENSE = '00002194'X% PARAMETER SS$_VCBROKEN = '0000219C'X% PARAMETER SS$_VCCLOSED = '000021A4'X$ PARAMETER SS$_INSFCDTn = '000021AC'X' PARAMETER SS$_DEVNOTDISM = '000021B4'X% PARAMETER SS$_NOSHRIMG = '000021BC'X$ PARAMETER SS$_DUPUNIT = '000021C4'X& PARAMETER SS$_BADACLCTX = '000021CC'X( PARAMETER SS$_SERIOUSEXCP = '000021D4'X( PARAMETER SS$_TEMPLATEDEV = '000021DC'X" PARAMETER SS$_IVACL = '000021E4'X% PARAMETER SS$_NOSUCHID = '000021EC'X& PARAMETER SS$_NOLCLMEDA = '000021F4'X& PARAMETER SS$_NOREGAVIL = '000021FC'X& PARAMETER SS$_NOREGSUIT = '00002204'X& PARAMETER SS$_NOSUCHPGM = '0000220C'X& PARAMETER o SS$_PGMLDFAIL = '00002214'X& PARAMETER SS$_PGMSTDALN = '0000221C'X$ PARAMETER SS$_IVIDENT = '00002224'X% PARAMETER SS$_DUPIDENT = '0000222C'X& PARAMETER SS$_INCSEGTRA = '00002234'X& PARAMETER SS$_NODELEAVE = '0000223C'X& PARAMETER SS$_KERNELINV = '00002244'X' PARAMETER SS$_EXLNMQUOTA = '0000224C'X' PARAMETER SS$_PARENT_DEL = '00002254'X& PARAMETER SS$_PARNOTSYS = '0000225C'X) PARAMETER SS$_INSSWAPSPACE = '00002264'X$ PARAMETER SS$_VOLOERR = '0000226C'X% PARAMETER SS$_DATALATE = '00002p274'X& PARAMETER SS$_OVRMAXARG = '0000227C'X& PARAMETER SS$_SHACHASTA = '00002284'X' PARAMETER SS$_TERMNETDEV = '0000228C'X% PARAMETER SS$_NOLOGTAB = '00002294'X& PARAMETER SS$_WRONGNAME = '0000229C'X% PARAMETER SS$_NOVOLACC = '000022A4'X% PARAMETER SS$_NOFILACC = '000022AC'X' PARAMETER SS$_INVEXHLIST = '000022B4'X) PARAMETER SS$_NOACLSUPPORT = '000022BC'X' PARAMETER SS$_INVSECLASS = '000022C4'X& PARAMETER SS$_INCSHAMEM = '000022CC'X& PARAMETER SS$_DEVNOTSHR = '000022D4'X' PARAMET qER SS$_RUCONFLICT = '000022DC'X% PARAMETER SS$_DATALOST = '000022E4'X( PARAMETER SS$_REMOTE_PROC = '000022EC'X& PARAMETER SS$_CPUNOTACT = '000022F4'X$ PARAMETER SS$_SRVMMAT = '000022FC'X& PARAMETER SS$_EXLICENSE = '00002304'X' PARAMETER SS$_INVLICENSE = '0000230C'X* PARAMETER SS$_LICENSE_LEVEL = '00002314'X& PARAMETER SS$_INV_HW_ID = '0000231C'X' PARAMETER SS$_BADCONTEXT = '00002324'X' PARAMETER SS$_TOOMUCHCTX = '0000232C'X& PARAMETER SS$_VA_IN_USE = '00002334'X% PARAMETER SS$_NODELETrE = '0000233C'X& PARAMETER SS$_NOSUCHCPU = '00002344'X$ PARAMETER SS$_IMGVEXC = '0000234C'X& PARAMETER SS$_NOSAVPEXC = '00002354'X& PARAMETER SS$_NOSUCHTID = '0000235C'X% PARAMETER SS$_NOSUCHRM = '00002364'X% PARAMETER SS$_NOCURTID = '0000236C'X' PARAMETER SS$_WRONGSTATE = '00002374'X! PARAMETER SS$_VETO = '0000237C'X& PARAMETER SS$_PWDSYNTAX = '00002384'X& PARAMETER SS$_PWDNOTDIF = '0000238C'X& PARAMETER SS$_INVPWDLEN = '00002394'X& PARAMETER SS$_SYSVERDIF = '0000239C'X& PARAMETER S sS$_HWM_STALL = '000023A4'X& PARAMETER SS$_NOSUSPEND = '000023AC'X' PARAMETER SS$_NOSUCHPART = '000023B4'X% PARAMETER SS$_RMALRDCL = '000023BC'X& PARAMETER SS$_ALRCURTID = '000023C4'X# PARAMETER SS$_INVLOG = '000023CC'X& PARAMETER SS$_BADLOGVER = '000023D4'X% PARAMETER SS$_OPINPROG = '000023DC'X( PARAMETER SS$_WRONGACMODE = '000023E4'X& PARAMETER SS$_SUBTRACED = '000023EC'X& PARAMETER SS$_ARCHIVING = '000023F4'X% PARAMETER SS$_ARCHIVED = '000023FC'X( PARAMETER SS$_SITEPWDFAIL = '000024t04'X& PARAMETER SS$_NOSUCHCPB = '0000240C'X# PARAMETER SS$_CPUCAP = '00002414'X# PARAMETER SS$_LOADER = '0000241C'X& PARAMETER SS$_HSTBUFACC = '00002424'X& PARAMETER SS$_INCONOLCK = '0000242C'X% PARAMETER SS$_INVEVENT = '00002434'X& PARAMETER SS$_NOSUCHFAC = '0000243C'X' PARAMETER SS$_NOCALLPRIV = '00002444'X% PARAMETER SS$_INSFLPGS = '0000244C'X% PARAMETER SS$_INSFRPGS = '00002454'X& PARAMETER SS$_BADREASON = '0000245C'X& PARAMETER SS$_NOSUCHBID = '00002464'X& PARAMETER SS$_NOTORIG uIN = '0000246C'X" PARAMETER SS$_NOLOG = '00002474'X' PARAMETER SS$_TPDISABLED = '0000247C'X( PARAMETER SS$_BRANCHENDED = '00002484'X* PARAMETER SS$_BRANCHSTARTED = '0000248C'X) PARAMETER SS$_NOSUCHREPORT = '00002494'X$ PARAMETER SS$_BADTIME = '0000249C'X' PARAMETER SS$_PARTJOINED = '000024A4'X& PARAMETER SS$_NOPRESUME = '000024AC'X* PARAMETER SS$_RECOVERCANCEL = '000024B4'X) PARAMETER SS$_CURTIDCHANGE = '000024BC'X% PARAMETER SS$_NOREADER = '000024C4'X% PARAMETER SS$_NOWRITER = '00002v4CC'X% PARAMETER SS$_DEVNOTWS = '000024D4'X$ PARAMETER SS$_NOCLASS = '000024DC'X( PARAMETER SS$_CONTEXTSKEW = '000024E4'X' PARAMETER SS$_BADFORGEDB = '000024EC'X% PARAMETER SS$_NODOMAIN = '000024F4'X& PARAMETER SS$_OVRMAXAUD = '000024FC'X% PARAMETER SS$_BADCHAIN = '00002504'X& PARAMETER SS$_BADBUFLEN = '0000250C'X& PARAMETER SS$_BADITMCOD = '00002514'X& PARAMETER SS$_BADBUFADR = '0000251C'X& PARAMETER SS$_BADRETLEN = '00002524'X' PARAMETER SS$_SSINOTHELD = '0000252C'X' PARAMETER SS$ w_SSAMISSING = '00002534'X' PARAMETER SS$_SSANOTAUTH = '0000253C'X% PARAMETER SS$_BADOWNER = '00002544'X, PARAMETER SS$_NAMESERVCOMMERR = '0000254C'X% PARAMETER SS$_IVNODNAM = '00002554'X* PARAMETER SS$_CONFIG_SYNTAX = '0000255C'X$ PARAMETER SS$_SHELVED = '00002564'X( PARAMETER SS$_DRVNOTVALID = '0000256C'X- PARAMETER SS$_SLICING_DISABLED = '00002574'X( PARAMETER SS$_NOCALLTRANS = '0000257C'X( PARAMETER SS$_TRANSCALLER = '00002584'X& PARAMETER SS$_ILLPRIPOL = '0000258C'X& PARAMETER SS$ x_ILLPOLICY = '00002594'X& PARAMETER SS$_INSFRSPID = '0000259C'X( PARAMETER SS$_INSFCREDITL = '000025A4'X( PARAMETER SS$_INSFCREDITH = '000025AC'X$ PARAMETER SS$_INSFMAP = '000025B4'X+ PARAMETER SS$_SIG_INVARGTYPE = '000025BC'X* PARAMETER SS$_SIG_INVFLTARG = '000025C4'X+ PARAMETER SS$_SIG_INVARGLIST = '000025CC'X, PARAMETER SS$_SIG_INVFUNCTYPE = '000025D4'X, PARAMETER SS$_SIG_ARGMISMATCH = '000025DC'X' PARAMETER SS$_NOTRANQUIL = '000025E4'X, PARAMETER SS$_NOCALLTRANS_SUP = '000025EC'X( P yARAMETER SS$_DEVLISTFULL = '000025F4'X' PARAMETER SS$_INSFP1POOL = '000025FC'X% PARAMETER SS$_SIGNAL64 = '00002604'X( PARAMETER SS$_ZEROALLOCLS = '0000260C'X' PARAMETER SS$_QUEUE_FULL = '00002614'X) PARAMETER SS$_DEVICE_RESET = '0000261C'X' PARAMETER SS$_ACA_ACTIVE = '00002624'X, PARAMETER SS$_BUS_PHASE_ERROR = '0000262C'X* PARAMETER SS$_NOMULTITHREAD = '00002634'X* PARAMETER SS$_MTHREADACTIVE = '0000263C'X( PARAMETER SS$_MAXKTHREADS = '00002644'X) PARAMETER SS$_NOSUCHTHREAD = '0000264zC'X( PARAMETER SS$_NOTHREADMAN = '00002654'X) PARAMETER SS$_NOSUCHUPCALL = '0000265C'X& PARAMETER SS$_BADFANDLE = '00002664'X' PARAMETER SS$_FANDLEBUSY = '0000266C'X& PARAMETER SS$_UNALIGNED = '00002674'X& PARAMETER SS$_BADIOSADR = '0000267C'X& PARAMETER SS$_ILLBUFOBJ = '00002684'X( PARAMETER SS$_ILLMODIFIER = '0000268C'X) PARAMETER SS$_NOCCBBUFFOBJ = '00002694'X$ PARAMETER SS$_NORDACC = '0000269C'X% PARAMETER SS$_NOWRTACC = '000026A4'X' PARAMETER SS$_NOTNOCNVRT = '000026AC'X( PARAM {ETER SS$_UNSUPVOLSET = '000026B4'X, PARAMETER SS$_ARG_GTR_32_BITS = '000026BC'X) PARAMETER SS$_NOT64DEVFUNC = '000026C4'X$ PARAMETER SS$_CHANVIO = '000026CC'X, PARAMETER SS$_GBLSEC_MISMATCH = '000026D4'X& PARAMETER SS$_ILLRELPAG = '000026DC'X% PARAMETER SS$_IVACMODE = '000026E4'X% PARAMETER SS$_IVREGFLG = '000026EC'X$ PARAMETER SS$_IVREGID = '000026F4'X& PARAMETER SS$_IVREGPROT = '000026FC'X$ PARAMETER SS$_IVVAFLG = '00002704'X+ PARAMETER SS$_LEN_NOTBLKMULT = '0000270C'X+ PARAMETER SS$ |_LEN_NOTPAGMULT = '00002714'X+ PARAMETER SS$_NOT_PROCESS_VA = '0000271C'X+ PARAMETER SS$_OFF_NOTBLKALGN = '00002724'X+ PARAMETER SS$_OFF_NOTPAGALGN = '0000272C'X+ PARAMETER SS$_OFFSET_TOO_BIG = '00002734'X& PARAMETER SS$_REGOWNVIO = '0000273C'X$ PARAMETER SS$_PROTVIO = '00002744'X* PARAMETER SS$_TOO_MANY_ARGS = '0000274C'X* PARAMETER SS$_VA_NOTPAGALGN = '00002754'X& PARAMETER SS$_NOEXTAUTH = '0000275C'X% PARAMETER SS$_AUTHFAIL = '00002764'X$ PARAMETER SS$_INVUSER = '0000276C'X' PARAM }ETER SS$_ERRMAPAUTH = '00002774'X$ PARAMETER SS$_NORAD50 = '0000277C'X% PARAMETER SS$_BADMEDIA = '00002784'X( PARAMETER SS$_UNRECOVRDER = '0000278C'X% PARAMETER SS$_IVFORMAT = '00002794'X' PARAMETER SS$_IVUNITFLAG = '0000279C'X$ PARAMETER SS$_IVPARAM = '000027A4'X( PARAMETER SS$_NOSUCHENTRY = '000027AC'X( PARAMETER SS$_ALLOCFAILED = '000027B4'X( PARAMETER SS$_SHMEM_INCON = '000027BC'X% PARAMETER SS$_IVLOCKOP = '000027C4'X& PARAMETER SS$_IVLOCKTBL = '000027CC'X& PARAMETER SS$_LOCKINUSE~ = '000027D4'X) PARAMETER SS$_LOCK_TIMEOUT = '000027DC'X& PARAMETER SS$_BADLCKTBL = '000027E4'X$ PARAMETER SS$_NOBREAK = '000027EC'X' PARAMETER SS$_IVPROTOCOL = '000027F4'X' PARAMETER SS$_NOWAIT = '000027FC'X ! ? ! ***** NOTE: NO ROOM FOR MORE MESSAGES IN THIS SECTION ***** !  ! / ! MSG #S RANGE # MSGS DESCRIPTION ! ; ! 128-191 400-5FF 64 HARDWARE DEFINED FATAL ERRORS ! # PARAMETER SS$_PLHLDR = '00000404'X# PARAMETER SS$_ASTFLT = '0000040C'X" PARAM ETER SS$_BREAK = '00000414'X% PARAMETER SS$_CMODSUPR = '0000041C'X% PARAMETER SS$_CMODUSER = '00000424'X# PARAMETER SS$_COMPAT = '0000042C'X# PARAMETER SS$_OPCCUS = '00000434'X# PARAMETER SS$_OPCDEC = '0000043C'X% PARAMETER SS$_PAGRDERR = '00000444'X$ PARAMETER SS$_RADRMOD = '0000044C'X$ PARAMETER SS$_ROPRAND = '00000454'X# PARAMETER SS$_SSFAIL = '0000045C'X! PARAMETER SS$_TBIT = '00000464'X" PARAMETER SS$_DEBUG = '0000046C'XB ! THE FOLLOWING CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED# PARAMETER SS$_ARTRES = '00000474'X# PARAMETER SS$_INTOVF = '0000047C'X# PARAMETER SS$_INTDIV = '00000484'X# PARAMETER SS$_FLTOVF = '0000048C'X# PARAMETER SS$_FLTDIV = '00000494'X# PARAMETER SS$_FLTUND = '0000049C'X# PARAMETER SS$_DECOVF = '000004A4'X# PARAMETER SS$_SUBRNG = '000004AC'X% PARAMETER SS$_FLTOVF_F = '000004B4'X% PARAMETER SS$_FLTDIV_F = '000004BC'X% PARAMETER SS$_FLTUND_F = '000004C4'X> ! THE ABOVE CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED$ PARAMETER SS$_INHCHMK = '000004CC'X$ PARAMETER SS$_INHCHME = '000004D4'X# PARAMETER SS$_VECDIS = '000004DC'X# PARAMETER SS$_VARITH = '000004E4'X% PARAMETER SS$_ILLVECOP = '000004EC'X% PARAMETER SS$_VECALIGN = '000004F4'X# PARAMETER SS$_IMGDMP = '000004FC'X$ PARAMETER SS$_HPARITH = '00000504'X" PARAMETER SS$_ALIGN = '0000050C'X, PARAMETER SS$_UNALIGN_SP_LOAD = '00000514'X$ PARAMETER SS$_GENTRAP = '0000051C'X# PARAMETER SS$_FLTINV = '00000524'X# PARAMETER SS$_FLTINE = '0000052C'X# PARAMETER SS$_DECDIV = '00000534'X# PARAMETER SS$_DECINV = '0000053C'X& PARAMETER SS$_ASSERTERR = '00000544'X& PARAMETER SS$_NULPTRERR = '0000054C'X# PARAMETER SS$_STKOVF = '00000554'X& PARAMETER SS$_STRLENERR = '0000055C'X& PARAMETER SS$_SUBSTRERR = '00000564'X% PARAMETER SS$_RANGEERR = '0000056C'X$ PARAMETER SS$_SUBRNG1 = '00000574'X$ PARAMETER SS$_SUBRNG2 = '0000057C'X$ PARAMETER SS$_SUBRNG3 = '00000584'X$ PARAMETER SS$_SUBRNG4 = '0000058C'X$ PARAMETER SS$_SUBRNG5 = '00000594'X$ PARAMETER  SS$_SUBRNG6 = '0000059C'X$ PARAMETER SS$_SUBRNG7 = '000005A4'X' PARAMETER SS$_PAGRDERRXM = '000005AC'X+ PARAMETER SS$_ILLEGAL_SHADOW = '000005B4'X% PARAMETER SS$_FLTINV_F = '000005BC'X% PARAMETER SS$_FLTINE_F = '000005C4'X% PARAMETER SS$_INTOVF_F = '000005CC'X% PARAMETER SS$_NATFAULT = '000005D4'X( PARAMETER SS$_FLTDENORMAL = '000005DC'X& PARAMETER SS$_BREAK_SYS = '000005E4'X' PARAMETER SS$_BREAK_ARCH = '000005EC'X ! ? ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT> ! ***** NOTE: ROOM FOR 2 MORE MESSAGES IN THIS SECTION ***** !  ! / ! MSG #S RANGE # MSGS DESCRIPTION ! + ! 192-255 600-7FF 64 SUCCESS CODES ! & PARAMETER SS$_BUFFEROVF = '00000601'X% PARAMETER SS$_CONTROLO = '00000609'X% PARAMETER SS$_CONTROLY = '00000611'X$ PARAMETER SS$_CREATED = '00000619'X& PARAMETER SS$_MSGNOTFND = '00000621'X# PARAMETER SS$_NOTRAN = '00000629'X& PARAMETER SS$_SUPERSEDE = '00000631'X# PARAMETER SS$_WASECC = '00000639'X( PAR AMETER SS$_DEVALRALLOC = '00000641'X# PARAMETER SS$_REMOTE = '00000649'X% PARAMETER SS$_CONTROLC = '00000651'X( PARAMETER SS$_NOTMODIFIED = '00000659'X& PARAMETER SS$_RDDELDATA = '00000661'X( PARAMETER SS$_OVRDSKQUOTA = '00000669'X' PARAMETER SS$_OBSOLETE_1 = '00000671'X' PARAMETER SS$_FILEPURGED = '00000679'X' PARAMETER SS$_NOTALLPRIV = '00000681'X" PARAMETER SS$_SYNCH = '00000689'X& PARAMETER SS$_CONCEALED = '00000691'X% PARAMETER SS$_INCOMPAT = '00000699'X& PARAMETER SS$_DBGOPCREQ = '000006A1'X( PARAMETER SS$_ALRDYCLOSED = '000006A9'X' PARAMETER SS$_LNMCREATED = '000006B1'X' PARAMETER SS$_ACEIDMATCH = '000006B9'X% PARAMETER SS$_DBGEVENT = '000006C1'X$ PARAMETER SS$_REMOVED = '000006C9'X# PARAMETER SS$_QUEUED = '000006D1'X( PARAMETER SS$_SUBDISABLED = '000006D9'X# PARAMETER SS$_FORGET = '000006E1'X% PARAMETER SS$_PREPARED = '000006E9'X( PARAMETER SS$_NOMOREITEMS = '000006F1'X% PARAMETER SS$_VOLATILE = '000006F9'X& PARAMETER SS$_CLASSUPER = '00000701'X( PARAM ETER SS$_CONTINUE_64 = '00000709'X* PARAMETER SS$_THREAD_UPCALL = '00000711'X) PARAMETER SS$_CREATED_SHPT = '00000719'X+ PARAMETER SS$_PERSONADELPEND = '00000721'X% PARAMETER SS$_DEVAVAIL = '00000729'X$ PARAMETER SS$_LONGGAP = '00000731'X# PARAMETER SS$_BROKEN = '00000739'X+ PARAMETER SS$_QPOOL_DEL_INIT = '00000741'X) PARAMETER SS$_SYMLINKENTRY = '00000749'X ! ? ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT? ! ***** NOTE: ROOM FOR 19 MORE MESSAGES IN THIS SECTION ***** !  ! / ! MSG #S RANGE # MSGS DESCRIPTION ! + ! 256-383 800-BFF 128 WARNING CODES ! ' PARAMETER SS$_ACCONFLICT = '00000800'X& PARAMETER SS$_BADCHKSUM = '00000808'X' PARAMETER SS$_BADFILEHDR = '00000810'X( PARAMETER SS$_BADFILENAME = '00000818'X' PARAMETER SS$_BADFILEVER = '00000820'X( PARAMETER SS$_BADIRECTORY = '00000828'X# PARAMETER SS$_CANCEL = '00000830'X' PARAMETER SS$_DATAOVERUN = '00000838'X% PARAMETER SS$_DEVALLOC = '00000840'X& PARAMET ER SS$_DEVASSIGN = '00000848'X' PARAMETER SS$_DEVICEFULL = '00000850'X( PARAMETER SS$_DEVNOTALLOC = '00000858'X$ PARAMETER SS$_DIRFULL = '00000860'X( PARAMETER SS$_DUPFILENAME = '00000868'X& PARAMETER SS$_ENDOFFILE = '00000870'X& PARAMETER SS$_ENDOFTAPE = '00000878'X% PARAMETER SS$_TMACTIVE = '00000880'X' PARAMETER SS$_FCPREADERR = '00000888'X( PARAMETER SS$_FCPREWNDERR = '00000890'X' PARAMETER SS$_FCPSPACERR = '00000898'X' PARAMETER SS$_FCPWRITERR = '000008A0'X' PARAMETER SS$_FILELOCKED = '000008A8'X' PARAMETER SS$_FILENUMCHK = '000008B0'X' PARAMETER SS$_FILESEQCHK = '000008B8'X' PARAMETER SS$_FILESTRUCT = '000008C0'X' PARAMETER SS$_HEADERFULL = '000008C8'X( PARAMETER SS$_IDXFILEFULL = '000008D0'X# PARAMETER SS$_MBFULL = '000008D8'X& PARAMETER SS$_NOHOMEBLK = '000008E0'X$ PARAMETER SS$_NONEXPR = '000008E8'X% PARAMETER SS$_NONLOCAL = '000008F0'X& PARAMETER SS$_NOHANDLER = '000008F8'X% PARAMETER SS$_NOSIGNAL = '00000900'X& PARAMETER SS$_NOSUCHDEV = '00000908'X'  PARAMETER SS$_NOSUCHFILE = '00000910'X% PARAMETER SS$_RESIGNAL = '00000918'X# PARAMETER SS$_UNWIND = '00000920'X& PARAMETER SS$_UNWINDING = '00000928'X( PARAMETER SS$_NOMOREFILES = '00000930'X& PARAMETER SS$_BEGOFFILE = '00000938'X( PARAMETER SS$_BLOCKCNTERR = '00000940'X( PARAMETER SS$_MUSTCLOSEFL = '00000948'X' PARAMETER SS$_WAITUSRLBL = '00000950'X( PARAMETER SS$_ILLUSRLBLRD = '00000958'X( PARAMETER SS$_ILLUSRLBLWT = '00000960'X& PARAMETER SS$_ILLLBLAST = '00000968'X( PARAMETER SS$ _ENDOFUSRLBL = '00000970'X& PARAMETER SS$_NOSUCHSEC = '00000978'X& PARAMETER SS$_CLIFRCEXT = '00000980'X& PARAMETER SS$_FCPREPSTN = '00000988'X' PARAMETER SS$_TOOMANYVER = '00000990'X& PARAMETER SS$_NOTVOLSET = '00000998'X( PARAMETER SS$_ENDOFVOLUME = '000009A0'X' PARAMETER SS$_NOMOREPROC = '000009A8'X% PARAMETER SS$_NODEVAVL = '000009B0'X& PARAMETER SS$_NOTQUEUED = '000009B8'X& PARAMETER SS$_DGQINCOMP = '000009C0'X% PARAMETER SS$_DIRALLOC = '000009C8'X% PARAMETER SS$_ACLEMPTY = '000009D0'X$ PARAMETER SS$_NOENTRY = '000009D8'X& PARAMETER SS$_NOMOREACE = '000009E0'X' PARAMETER SS$_RIGHTSFULL = '000009E8'X( PARAMETER SS$_VALNOTVALID = '000009F0'X$ PARAMETER SS$_ACLFULL = '000009F8'X' PARAMETER SS$_NOMORENODE = '00000A00'X' PARAMETER SS$_NOMORELOCK = '00000A08'X& PARAMETER SS$_BEGOFTAPE = '00000A10'X( PARAMETER SS$_OBJLOCKHELD = '00000A18'X' PARAMETER SS$_CPUSTARTIP = '00000A20'X' PARAMETER SS$_ALLSTARTED = '00000A28'X& PARAMETER SS$_ALRDYSTRT = '00000A30'X' PARAMET ER SS$_ALRDYSTPPD = '00000A38'X# PARAMETER SS$_NSTPPD = '00000A40'X& PARAMETER SS$_UNKRESULT = '00000A48'X) PARAMETER SS$_ITEMNOTFOUND = '00000A50'X& PARAMETER SS$_NOMOREDEV = '00000A58'X% PARAMETER SS$_EFNOTSET = '00000A60'X& PARAMETER SS$_PRIMNOSTP = '00000A68'X' PARAMETER SS$_BOOTREJECT = '00000A70'X$ PARAMETER SS$_RMTPATH = '00000A78'X* PARAMETER SS$_OBJECT_EXISTS = '00000A80'X) PARAMETER SS$_NOSUCHOBJECT = '00000A88'X& PARAMETER SS$_NOVOLDESC = '00000A90'X& PARAMETER SS$_NOPTBLD IR = '00000A98'X& PARAMETER SS$_DRVEXISTS = '00000AA0'X& PARAMETER SS$_DEVEXISTS = '00000AA8'X( PARAMETER SS$_GOTO_UNWIND = '00000AB0'X( PARAMETER SS$_EXIT_UNWIND = '00000AB8'X( PARAMETER SS$_SMALLHEADER = '00000AC0'X& PARAMETER SS$_FDT_COMPL = '00000AC8'X* PARAMETER SS$_TARGET_UNWIND = '00000AD0'X/ PARAMETER SS$_TARGET_GOTO_UNWIND = '00000AD8'X( PARAMETER SS$_RESIGNAL_64 = '00000AE0'X& PARAMETER SS$_NOMOREREG = '00000AE8'X( PARAMETER SS$_PAGNOTINREG = '00000AF0'X& PARAMETER SS$_REGISFULL  = '00000AF8'X& PARAMETER SS$_PAGTYPVIO = '00000B00'X& PARAMETER SS$_NOSUCHPAG = '00000B08'X( PARAMETER SS$_PAGNOTWRITE = '00000B10'X) PARAMETER SS$_NOMORETHREAD = '00000B18'X' PARAMETER SS$_NOTF11ODS5 = '00000B20'X& PARAMETER SS$_NOCONVJNL = '00000B28'X& PARAMETER SS$_MPDEVBUSY = '00000B30'X- PARAMETER SS$_MPDEVUSERDISABLE = '00000B38'X' PARAMETER SS$_NOCPUMATCH = '00000B40'X* PARAMETER SS$_NOMORECLIENTS = '00000B48'X* PARAMETER SS$_NOMOREDEVICES = '00000B50'X* PARAMETER SS$_NOMOREFIL TERS = '00000B58'X( PARAMETER SS$_NOMOREPATHS = '00000B60'X* PARAMETER SS$_NOMORESERVERS = '00000B68'X! PARAMETER SS$_FISH = '00000B70'X* PARAMETER SS$_FILENOTCACHED = '00000B78'X) PARAMETER SS$_INSF_SHM_REG = '00000B80'X+ PARAMETER SS$_HBMMNOTENABLED = '00000B88'X* PARAMETER SS$_HBMMALREADYON = '00000B90'X% PARAMETER SS$_NODEVPOL = '00000B98'X% PARAMETER SS$_NONAMPOL = '00000BA0'X) PARAMETER SS$_XVALNOTVALID = '00000BA8'X) PARAMETER SS$_FILEFULL = '00000BB0'X ! ? ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTG ! ***** NOTE: ROOM FOR 9 MORE WARNING MESSAGES IN ABOVE SECTION ***** !  ! / ! MSG #S RANGE # MSGS DESCRIPTION ! 1 ! 384-447 C00-DFF 64 INFORMATIONAL CODES ! " PARAMETER SS$_EOTIN = '00000C03'X# PARAMETER SS$_CHAINW = '00000C0B'X% PARAMETER SS$_NOTINSEC = '00000C13'X$ PARAMETER SS$_NONXPAG = '00000C1B'X$ PARAMETER SS$_LOGNAME = '00000C23'X& PARAMETER SS$_CPUSTARTD = '00000C2B'X( PARAMETER SS$_CPUSTOPPING =  '00000C33'X+ PARAMETER SS$_NOTALLCANCELED = '00000C3B'X( PARAMETER SS$_NOTHINGDONE = '00000C43'X' PARAMETER SS$_EVTNOTENAB = '00000C4B'X& PARAMETER SS$_NOPATHTBL = '00000C53'X( PARAMETER SS$_RESELECTION = '00000C5B'X% PARAMETER SS$_EMULATED = '00000C63'X$ PARAMETER SS$_REMDONE = '00000C6B'X& PARAMETER SS$_REMINPROG = '00000C73'X# PARAMETER SS$_DEVCON = '00000C7B'X& PARAMETER SS$_DEVNOTCON = '00000C83'X( PARAMETER SS$_CPUSELECTED = '00000C8B'X, PARAMETER SS$_QPOOL_DEL_INPRG = '00000C93 'X# PARAMETER SS$_PRESTO = '00000C9B'X) PARAMETER SS$_TAKEN_BRANCH = '00000CA3'X& PARAMETER SS$_IA32_TRAP = '00000CAB'X( PARAMETER SS$_DEBUG_FAULT = '00000CB3'X' PARAMETER SS$_BREAK_APPL = '00000CBB'X+ PARAMETER SS$_TIE_GET_FRAMES = '00000CC3'X+ PARAMETER SS$_TIE_PRE_UNWIND = '00000CCB'X' PARAMETER SS$_TIE_UNWIND = '00000CD3'X, PARAMETER SS$_TIE_GOTO_UNWIND = '00000CDB'X+ PARAMETER SS$_HBMMCREPOSTMRG = '00000CE3'X& PARAMETER SS$_FPMODECTL = '00000CEB'X% PARAMETER SS$_FPMODEPC = '00000CF3'X% PARAMETER SS$_FPMODERC = '00000CFB'X$ PARAMETER SS$_ARGTYP1 = '00000D03'X$ PARAMETER SS$_ARGTYP2 = '00000D0B'X$ PARAMETER SS$_ARGTYP3 = '00000D13'X$ PARAMETER SS$_ARGTYP4 = '00000D1B'X$ PARAMETER SS$_ARGTYP5 = '00000D23'X$ PARAMETER SS$_ARGTYP6 = '00000D2B'X$ PARAMETER SS$_ARGTYP7 = '00000D33'X$ PARAMETER SS$_ARGTYP8 = '00000D3B'X' PARAMETER SS$_DEFER_ASTS = '00000D43'X ! ? ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT? ! ***** NOTE: ROOM FOR 23 MORE MESSAGES IN THIS SECTION ***** !  ! / ! MSG #S RANGE # MSGS DESCRIPTION ! 2 ! 448-511 E00-FFF 64 NONFATAL ERROR CODES ! % PARAMETER SS$_LINEABRT = '00000E02'X% PARAMETER SS$_DEADLOCK = '00000E0A'X% PARAMETER SS$_NOLOCKID = '00000E12'X$ PARAMETER SS$_EXDEPTH = '00000E1A'X' PARAMETER SS$_PARTMAPPED = '00000E22'X( PARAMETER SS$_CANCELGRANT = '00000E2A'X" PARAMETER SS$_RETRY = '00000E32'X# PARAMETER SS$_BADACL = '00000E3A'X& PARAMETER SS$_ACEEXISTS = '00000E42'X( PARAMETER SS$_UNSUPPORTED = '00000E4A'X' PARAMETER SS$_NORIGHTSDB = '00000E52'X% PARAMETER SS$_LOGSTALL = '00000E5A'X$ PARAMETER SS$_LOGFULL = '00000E62'X% PARAMETER SS$_PWDINDIC = '00000E6A'X% PARAMETER SS$_PWDINHIS = '00000E72'X$ PARAMETER SS$_PWDWEAK = '00000E7A'X& PARAMETER SS$_USEGENPWD = '00000E82'X& PARAMETER SS$_INVBUSNAM = '00000E8A'X( PARAMETER SS$_INVCOMPTYPE = '00000E92'X& PARAMETER SS$_INVCOMPID = '00000E9A'X( PARAMETER SS$_INVCOMPLIST = '00000EA2'X' PARAMETER SS$_NOC OMPLSTS = '00000EAA'X) PARAMETER SS$_INVSECDOMAIN = '00000EB2'X( PARAMETER SS$_BADCHECKSUM = '00000EBA'X& PARAMETER SS$_ARBTOOBIG = '00000EC2'X& PARAMETER SS$_ORBTOOBIG = '00000ECA'X& PARAMETER SS$_INVAJLNAM = '00000ED2'X' PARAMETER SS$_TOOMANYAJL = '00000EDA'X& PARAMETER SS$_RSDMINUSE = '00000EE2'X' PARAMETER SS$_RSDMNOTFOU = '00000EEA'X& PARAMETER SS$_INVUICGRP = '00000EF2'X( PARAMETER SS$_RSDM_ACTIVE = '00000EFA'X& PARAMETER SS$_OBJLOCKED = '00000F02'X% PARAMETER SS$_NOTMPNAM = '00000F0A'X& PARAMETER SS$_INVCLSITM = '00000F12'X& PARAMETER SS$_NOTSHRTBL = '00000F1A'X$ PARAMETER SS$_MMATORB = '00000F22'X& PARAMETER SS$_NOSUCHVOL = '00000F2A'X) PARAMETER SS$_OBJNOTLOCKED = '00000F32'X$ PARAMETER SS$_ILLRSDM = '00000F3A'X+ PARAMETER SS$_NOCLASSSUPPORT = '00000F42'X' PARAMETER SS$_INVSECOPER = '00000F4A'X( PARAMETER SS$_NODELJNLACT = '00000F52'X( PARAMETER SS$_INVFILFOROP = '00000F5A'X% PARAMETER SS$_NOOBJSRV = '00000F62'X) PARAMETER SS$_NOFILEACCESS = '00000F6A'X(  PARAMETER SS$_BADFILESIZE = '00000F72'X+ PARAMETER SS$_NOTFULLYMAPPED = '00000F7A'X& PARAMETER SS$_BADWINCNT = '00000F82'X& PARAMETER SS$_BADWINLBN = '00000F8A'X& PARAMETER SS$_BADWINRVN = '00000F92'X( PARAMETER SS$_EXTRAWINDOW = '00000F9A'X$ PARAMETER SS$_REVISED = '00000FA2'X' PARAMETER SS$_TIMENOTSET = '00000FAA'X. PARAMETER SS$_WAIT_CALLERS_MODE = '00000FB2'X' PARAMETER SS$_NOT_LOADED = '00000FBA'X) PARAMETER SS$_DRV_NOUNLOAD = '00000FC2'X# PARAMETER SS$_INVARG = '00000FCA'X& PAR AMETER SS$_QIO_CROCK = '00000FD2'X" PARAMETER SS$_ALTER = '00000FDA'X( PARAMETER SS$_AFR_ENABLED = '00000FE2'X, PARAMETER SS$_AFR_NOT_ENABLED = '00000FEA'X' PARAMETER SS$_SHELFERROR = '00000FF2'X? PARAMETER SS$_PERSONANONGRATA = '00000FFA'X ! **************? ! NOTE: THE ABOVE SET OF NONFATAL ERROR MESSAGES IS FULL!!!!9 ! ANY ADDITIONAL NONFATAL ERROR MESSAGES MUST BE ADDED' ! BELOW, IN THE RANGE HEX 2C00-33FF. ! ************** ! / ! MSG #S RANGE # MSGS DESCRIPTION ! 1 ! 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS !  ! J ! NB: THESE MESSAGES MUST BE KEPT IN THE SAME ORDER AS THE PRIVILEGE BITP ! DEFINITIONS ($PRVDEF) AS THE PRIVILEGE BIT POSITION IS USED AS AN INDEX INTO? ! THESE MESSAGE CODES BY THE $CHECK_PRIVILEGE SYSTEM SERVICE. ! ' PARAMETER SS$_NOPRIVSTRT = '00002800'X% PARAMETER SS$_NODETACH = '0000282C'X% PARAMETER SS$_NOCMKRNL = '00002804'X% PARAMETER SS$_NOCMEXEC = '0000280C'X% PARAMETER SS$_NOSYSNAM = '00002814'X % PARAMETER SS$_NOGRPNAM = '0000281C'X' PARAMETER SS$_NOALLSPOOL = '00002824'X* PARAMETER SS$_NOIMPERSONATE = '0000282C'X' PARAMETER SS$_NODIAGNOSE = '00002834'X% PARAMETER SS$_NOLOG_IO = '0000283C'X$ PARAMETER SS$_NOGROUP = '00002844'X# PARAMETER SS$_NOACNT = '0000284C'X% PARAMETER SS$_NOPRMCEB = '00002854'X% PARAMETER SS$_NOPRMMBX = '0000285C'X% PARAMETER SS$_NOPSWAPM = '00002864'X% PARAMETER SS$_NOALTPRI = '0000286C'X% PARAMETER SS$_NOSETPRV = '00002874'X% PARAMETER SS$_NOTMPMBX = '0000287C'X$ PARAMETER SS$_NOWORLD = '00002884'X$ PARAMETER SS$_NOMOUNT = '0000288C'X# PARAMETER SS$_NOOPER = '00002894'X& PARAMETER SS$_NOEXQUOTA = '0000289C'X% PARAMETER SS$_NONETMBX = '000028A4'X% PARAMETER SS$_NOVOLPRO = '000028AC'X% PARAMETER SS$_NOPHY_IO = '000028B4'X% PARAMETER SS$_NOBUGCHK = '000028BC'X% PARAMETER SS$_NOPRMGBL = '000028C4'X% PARAMETER SS$_NOSYSGBL = '000028CC'X% PARAMETER SS$_NOPFNMAP = '000028D4'X$ PARAMETER SS$_NOSHMEM = '000028DC'X% PARAMETER SS$_NOSYSPRV = '000028E4'X% PARAMETER SS$_NOBYPASS = '000028EC'X% PARAMETER SS$_NOSYSLCK = '000028F4'X$ PARAMETER SS$_NOSHARE = '000028FC'X& PARAMETER SS$_NOUPGRADE = '00002904'X( PARAMETER SS$_NODOWNGRADE = '0000290C'X% PARAMETER SS$_NOGRPPRV = '00002914'X& PARAMETER SS$_NOREADALL = '0000291C'X% PARAMETER SS$_NOIMPORT = '00002924'X$ PARAMETER SS$_NOAUDIT = '0000292C'X' PARAMETER SS$_NOSECURITY = '00002934'X& PARAMETER SS$_NOPRIVEND = '000029FF'X ! / ! MSG #S RANGE # MSGS  DESCRIPTION ! 3 ! 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORS ! ( PARAMETER SS$_EXQUOTASTRT = '00002A00'X$ PARAMETER SS$_EXASTLM = '00002A04'X$ PARAMETER SS$_EXBIOLM = '00002A0C'X$ PARAMETER SS$_EXBYTLM = '00002A14'X$ PARAMETER SS$_EXDIOLM = '00002A1C'X$ PARAMETER SS$_EXFILLM = '00002A24'X( PARAMETER SS$_EXPGFLQUOTA = '00002A2C'X$ PARAMETER SS$_EXPRCLM = '00002A34'X$ PARAMETER SS$_EXTQELM = '00002A3C'X$ PARAMETER SS$_EXENQLM = '00002A44'X/ ! SYSTEMWIDE QUOTA -- WORK FROM END OF REGION' PARAMETER SS$_EXBUFOBJLM = '00002AFC'X' PARAMETER SS$_EXQUOTAEND = '00002AFF'X ! / ! MSG #S RANGE # MSGS DESCRIPTION ! @ ! 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONS ! & PARAMETER SS$_MMSFAILED = '00002B04'X+ PARAMETER SS$_QPOOL_DEL_BUSY = '00002B0C'X? ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT= ! ***** NOTE: ROOM FOR 1 MORE MESSAGE IN THIS SECTION *****& PARAMETER SS$_TOOFEWDEV = '00002B18'X$ PARAMETER SS$_AVR WAIT = '00002B20'X? ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT> ! ***** NOTE: ROOM FOR 3 MORE MESSAGES IN THIS SECTION *****# PARAMETER SS$_NO_MMS = '00002B43'X% PARAMETER SS$_MMSREADY = '00002B4B'X( PARAMETER SS$_MMSNOTREADY = '00002B53'X( PARAMETER SS$_SKIP_CHECKS = '00002B5B'X& PARAMETER SS$_NO_NOTIFY = '00002B63'X, PARAMETER SS$_SKIP_EXPIRATION = '00002B6B'X% PARAMETER SS$_NOTATBOT = '00002B73'X% PARAMETER SS$_PREVDENS = '00002B7B'X3 ! A NEW BASE SHOULD BE CRE ATED FOR INFORMATIONALS? ! ***** NOTE: ROOM FOR 0 MORE MESSAGES IN ABOVE SECTION *****# PARAMETER SS$_RDBERR = '00002B84'X$ PARAMETER SS$_MDMSERR = '00002B8C'X% PARAMETER SS$_IVMEDTYP = '00002B94'X# PARAMETER SS$_IVDENS = '00002B9C'X# PARAMETER SS$_IVPOOL = '00002BA4'X% PARAMETER SS$_IVEXPDAT = '00002BAC'X( PARAMETER SS$_NOCONFMEDIA = '00002BB4'X* PARAMETER SS$_PTE_NOT_EMPTY = '00002BBC'X( PARAMETER SS$_CPUNOTAVAIL = '00002BC4'X' PARAMETER SS$_NOFASTPATH = '00002BCC'X' PARAMETER SS$_EXITFORCED = '00002BD4'X# PARAMETER SS$_FORCEX = '00002BDC'X ! / ! MSG #S RANGE # MSGS DESCRIPTION ! G ! 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF) ! ( PARAMETER SS$_NOTASSUMING = '00002C02'X, PARAMETER SS$_ALREADYASSUMING = '00002C0A'X" PARAMETER SS$_INUSE = '00002C12'X) PARAMETER SS$_USERDISABLED = '00002C1A'X$ PARAMETER SS$_NOCHJIB = '00002C22'X% PARAMETER SS$_NOTSUPFS = '00002C2A'X( PARAMETER SS$_INSFTHREADS = '00002C32'X' PARAMET ER SS$_NOBUFOBJID = '00002C3A'X+ PARAMETER SS$_NODELPERMANENT = '00002C42'X' PARAMETER SS$_NOMEMRESID = '00002C4A'X* PARAMETER SS$_MRES_PFNSMALL = '00002C52'X' PARAMETER SS$_MRES_INCON = '00002C5A'X* PARAMETER SS$_NORESERVEDMEM = '00002C62'X, PARAMETER SS$_RESERVEDMEMUSED = '00002C6A'X* PARAMETER SS$_RES_MEM_INCON = '00002C72'X$ PARAMETER SS$_NOSHPTS = '00002C7A'X& PARAMETER SS$_FLUSHFAIL = '00002C82'X) PARAMETER SS$_NOTINSTALLED = '00002C8A'X* PARAMETER SS$_POOLDEVEXISTS = '00002C92'X $ PARAMETER SS$_NOUNITS = '00002C9A'X% PARAMETER SS$_NOTAPOOL = '00002CA2'X) PARAMETER SS$_MISSINGUNITS = '00002CAA'X* PARAMETER SS$_DISKDEVEXISTS = '00002CB2'X) PARAMETER SS$_TOOMANYUNITS = '00002CBA'X& PARAMETER SS$_NOTINPOOL = '00002CC2'X& PARAMETER SS$_WRONGPOOL = '00002CCA'X% PARAMETER SS$_ALRBOUND = '00002CD2'X+ PARAMETER SS$_NOTPOOLMOUNTED = '00002CDA'X& PARAMETER SS$_POOLINUSE = '00002CE2'X& PARAMETER SS$_DISKINUSE = '00002CEA'X' PARAMETER SS$_SDDISABLED = '00002CF2'X' PARAM ETER SS$_UNITINPOOL = '00002CFA'X) PARAMETER SS$_FAMILYTOOBIG = '00002D02'X' PARAMETER SS$_NODISKNAME = '00002D0A'X+ PARAMETER SS$_DISKNAMEEXISTS = '00002D12'X* PARAMETER SS$_INSUFFREESEGS = '00002D1A'X% PARAMETER SS$_NOTBOUND = '00002D22'X) PARAMETER SS$_TOOMANYFRAGS = '00002D2A'X, PARAMETER SS$_TOOMANYFAMILIES = '00002D32'X( PARAMETER SS$_DISKISBOUND = '00002D3A'X& PARAMETER SS$_SNAPINFAM = '00002D42'X' PARAMETER SS$_CHKSNAPVER = '00002D4A'X' PARAMETER SS$_BADSNAPVER = '00002D52'X ) PARAMETER SS$_SD_RESERVED4 = '00002D5A'X) PARAMETER SS$_SD_RESERVED5 = '00002D62'X& PARAMETER SS$_SECREFOVF = '00002D6A'X$ PARAMETER SS$_DATAERR = '00002D72'X# PARAMETER SS$_INVPFN = '00002D7A'X& PARAMETER SS$_INV_SHMEM = '00002D82'X( PARAMETER SS$_INV_SHM_CPP = '00002D8A'X( PARAMETER SS$_INV_SHM_REG = '00002D92'X& PARAMETER SS$_ONEMAPPER = '00002D9A'X& PARAMETER SS$_NOSUCHEXT = '00002DA2'X& PARAMETER SS$_CBKEXISTS = '00002DAA'X& PARAMETER SS$_NOSUCHCBK = '00002DB2'X' PARAMETER SS$_N OTAMEMBER = '00002DBA'X* PARAMETER SS$_GLXSPIUNAVAIL = '00002DC2'X, PARAMETER SS$_MPDEVILLCURPATH = '00002DCA'X* PARAMETER SS$_MPDEVINCOMPAT = '00002DD2'X% PARAMETER SS$_MPDEVNOT = '00002DDA'X) PARAMETER SS$_MPDEVNOTCONF = '00002DE2'X, PARAMETER SS$_PERSONARESERVED = '00002DEA'X% PARAMETER SS$_WRONGDRV = '00002DF2'X# PARAMETER SS$_BADRAD = '00002DFA'X& PARAMETER SS$_INVQSRFNC = '00002E02'X( PARAMETER SS$_NOQIOSERVER = '00002E0A'X$ PARAMETER SS$_INCLASS = '00002E12'X' PARAMETER SS$_INV BOOTDEV = '00002E1A'X/ PARAMETER SS$_CLIENT_UNAVAILABLE = '00002E22'X- PARAMETER SS$_CONFIGFILE_ERROR = '00002E2A'X( PARAMETER SS$_INVDEVALLOC = '00002E32'X/ PARAMETER SS$_DEVICE_UNAVAILABLE = '00002E3A'X( PARAMETER SS$_INVDEVMOUNT = '00002E42'X- PARAMETER SS$_LOGGING_DISABLED = '00002E4A'X) PARAMETER SS$_NOSUCHCLIENT = '00002E52'X) PARAMETER SS$_NOSUCHDEVICE = '00002E5A'X) PARAMETER SS$_NOSUCHFILTER = '00002E62'X' PARAMETER SS$_NOSUCHPATH = '00002E6A'X) PARAMETER SS$_NOSUCHSERVER = '00002E72'X& PARAMETER SS$_RQSTIMOUT = '00002E7A'X/ PARAMETER SS$_SERVER_UNAVAILABLE = '00002E82'X' PARAMETER SS$_QSRVINTERR = '00002E8A'X" PARAMETER SS$_NOADD = '00002E92'X& PARAMETER SS$_SYSTEMUIC = '00002E9A'X* PARAMETER SS$_NOSUCHQPOOLID = '00002EA2'X& PARAMETER SS$_PATHAMBIG = '00002EAA'X$ PARAMETER SS$_INVMVIP = '00002EB2'X( PARAMETER SS$_NOPATHAVAIL = '00002EBA'X( PARAMETER SS$_NOENACURINV = '00002EC2'X& PARAMETER SS$_TRUSTCONF = '00002ECA'X& PARAMETER SS$_QIO_FAULT = '00002ED2 'X) PARAMETER SS$_HBVS_REDO_IO = '00002EDA'X/ PARAMETER SS$_TOOMANYPERSONA = '00002EE2'X ! ? ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTJ ! ***** NOTE: ROOM FOR 173 MORE NONFATAL MESSAGES IN ABOVE SECTION ***** ! 9 ! MSG #S RANGE # MSGS DESCRIPTION ! Q ! 1664-1695 3400-341F 32 FATAL ERROR CODES (CONTINUED FROM 27FF)& PARAMETER SS$_MAXNAMPOL = '00003404'X( PARAMETER SS$_HBMMENABLED = '0000340C'X) PARAMETER SS$_NOMODNONEPOL = '00003414'X* PARAMETER SS$_SHADFEATNOMNT = '0000341C'X+ PARAMETER SS$_NOTSUPALLNODES = '00003424'X( PARAMETER SS$_WLGCANTHBMM = '0000342C'X) PARAMETER SS$_CALLUNDEFSYM = '00003434'X) PARAMETER SS$_NOADDMCPYMBR = '0000343C'X& PARAMETER SS$_CANTDODDS = '00003444'X( PARAMETER SS$_TOOMANYMBRS = '0000344C'X( PARAMETER SS$_SCBREADFAIL = '00003454'X) PARAMETER SS$_SCBWRITEFAIL = '0000345C'X( PARAMETER SS$_NOMEMFORWBM = '00003464'X& PARAMETER SS$_MUSTDMTVU = '0000346C'X, PARAMETER SS$_ONLYS RCMUSTSTAY = '00003474'X, PARAMETER SS$_NOWBMDURINGCOPY = '0000347C'X# PARAMETER SS$_WBMERR = '00003484'X' PARAMETER SS$_BADPOLCHAR = '0000348C'X+ PARAMETER SS$_HBMMVERSIONBAD = '00003494'X* PARAMETER SS$_ANADSKSHDBBLK = '0000349C'X+ PARAMETER SS$_HBMMBADPOLSPEC = '000034A4'X+ PARAMETER SS$_NOSHADOWSERVER = '000034AC'X% PARAMETER SS$_GAMEOVER = '000034B4'XL ! N.B. DO NOT CORRECT THE GRAMMAR IN GAMEOVER, THE MESSAGE IS AS INTENDED? ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTE ! ***** NOTE: ROOM FOR 9 MORE FATAL MESSAGES IN ABOVE SECTION ***** ! / ! MSG #S RANGE # MSGS DESCRIPTION ! 5 ! 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS ! 5 ! MESSAGE CODES IN THIS BLOCK ARE GUARANTEED NOT TO9 ! BE TRANSLATED BY VMS WHEN THEY ARE SEND OUT BY VMSSCS8 ! OR WHEN THEY ARE RECEIVED BY VMSSCS. SCA SYSAPS ARE9 ! FREE TO USE THESE CODES IN ANY SYSAP-DEPENDENT MANNER ! IN WHICH THEY CHOOSE. ! > ! THIS ADDRESS OF THIS BLOCK OF CODES MUST BE IN CONFORMANCE7 ! WITH THE SCA ARCHITECTURE, I.E., MUST NOT BE MOVED. ! % PARAMETER SS$_SYSAPMIN = '00007E00'X% PARAMETER SS$_SYSAPMAX = '00007FFF'X!DEC$ END OPTIONSww+JΦ!*** MODULE $SSIODEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +) ! File access modes for open and create ! -6 PARAMETER SSIO$M_O_RDONLY = '00000000'X ! Read-only7 PARAMETER SSIO$M_O_WRONLY = '00000001'X ! Write-only9 PARAMETER SSIO$M_O_RDWR =  '00000002'X ! Read and writeH PARAMETER SSIO$M_O_ACCMODE = '00000003'X ! Mask for access mode field ! +9 ! File status flags for open, create, and setfl (fcntl) ! -E PARAMETER SSIO$M_O_APPEND = '00000008'X ! All writes append to EOF ! + ! File open and create options ! -L PARAMETER SSIO$M_O_CREAT = '00000200'X ! Create file if it does not exist9 PARAMETER SSIO$M_O_TRUNC = '00000400'X ! Truncate filed PARAMETER SSIO$M_O_EXCL = '00000800'X ! If O_CREAT and O_EXCL both set, open fails if file exists^ PARAMETER SSIO$M_O_NOCTTY = '00001000'X ! If TTY dev, not to be controlling TTY for process ! + ! Positioning (lseek) options ! -I PARAMETER SSIO$C_SEEK_SET = '00000000'X ! Set offset to value providedP PARAMETER SSIO$C_SEEK_CUR = '00000001'X ! Offset relative to current positionK PARAMETER SSIO$C_SEEK_END = '00000002'X ! Offset relative to current EOF ! + ! Other miscellaneous values ! -Z PARAMETER SSIO$C_SSIZE_MAX = '7FFFFFFF'X ! Largest read/write size (in bytes) permitted!DEC$ END OPTIONS wwuKΦ!*** MODULE $STENVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN, PARAMETER STENV$K_AUTO_ACTION = '00000001'X) PARAMETER STENV$K_BOOT_DEV = '00000002'X, PARAMETER STENV$K_BOOTDEF_DEV = '00000003'X+ PARAMETER STENV$K_BOOTED_DEV = '00000004'X* PARAMETER STENV$K_BOOT_FILE = '00000005'X, PARAMETER STENV$K_BOOTED_FILE = '00000006'X- PARAMETER STENV$K_BOOT_OSFLAGS = '00000007'X/ PARAMETER  STENV$K_BOOTED_OSFLAGS = '00000008'X+ PARAMETER STENV$K_BOOT_RESET = '00000009'X) PARAMETER STENV$K_DUMP_DEV = '0000000A'X- PARAMETER STENV$K_ENABLE_AUDIT = '0000000B'X( PARAMETER STENV$K_LICENSE = '0000000C'X) PARAMETER STENV$K_CHAR_SET = '0000000D'X) PARAMETER STENV$K_LANGUAGE = '0000000E'X( PARAMETER STENV$K_TTY_DEV = '0000000F'X( PARAMETER STENV$K_SYSROOT = '00000010'X( PARAMETER STENV$K_BTFLAGS = '00000011'X* PARAMETER STENV$K_FRU_EEROM = '00000012'X STRUCTURE /ItemType/#  INTEGER*4 STENVDEF$L_ITEM_CODE! INTEGER*4 STENVDEF$L_BUF_LEN% INTEGER*4 STENVDEF$Q_BUF_ADDR(2)% INTEGER*4 STENVDEF$Q_RET_ADDR(2) END STRUCTURE ! ItemType ! B ! The following are operation codes for the FRU_EEROM item code. ! . PARAMETER STENVDEF$_K_FREE_FORM = '00000000'X, PARAMETER STENVDEF$_K_SDD_LOG = '00000019'X!DEC$ END OPTIONS ww4Φ!*** MODULE $STRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL F ile Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.49 ! # ! FILE: STRMSG.MSG EDIT: JWN2008 !  ! * *6 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! *  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * !  ! N ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM STRMSG.MSG% ! VERSION 1-004. SBL 22-APR-19813 ! 2-005 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982S ! 2-002 - DON'T DEFINE STR$_NORMAL HERE, DO IT IN STRMSGDEF.MAR. SBL 27-APR-1981< ! 2-003 - ADD STR$_MATCH AND STR$_NOMATCH.  RKR 2-JUL-19829 ! 2-004 - NOW DEFINE STR$_NORMAL HERE. SBL 24-AUG-1982F ! 2-006 - ADD DEFINITIONS FOR STR$_INVDELIM (INVALID DELIMITER) AND A ! STR$_NOELEM (NO ELEMENT FOUND), TWO NEW STATUS VALUES TO BE1 ! USED BY STR$ELEMENT. ROW 03-NOV-1986G ! 2-007 - ADD STR$_ERRFREDYN, USED WHEN LIB$FREE_VM BARFS ON A STRINGF ! WE ARE TRYING TO FREE. IE. THE USER HAS A CLASS_D DESCR POINTING ! AT SOME ARBITRARY MEMORY.E ! 2-008 - REMOVE FIRST LETTER CAPITALIZATION FROM ERROR MESSAGES.  ! JWN 26-APR-1987 ! +@ ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! STR$_ABCMNOXYZ ! M ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",O ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR4 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. !  !  ! MACRO-32 PROGRAMMING: !  ! THE MACRO CALL: ! ! $STRDEF ! > ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.< ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;A ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - ! 5 ! THE FOLLOWING SEVERE ERRORS ARE ALWAYS SIGNALLED. ! : ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES!!!& PARAMETER STR$_FACILITY = '00000024'X' PARAMETER STR$_FATINTERR = '00248044'X' PARAMETER STR$_DIVBY_ZER = '0024804C'X' PARAMETER STR$_ILLSTRCLA = '00248054'X' PARAMETER STR$_STRIS_INT = '0024805C'X' PARAMETER STR$_WRONUMARG = '00248064'X' PARAMETER STR$_INSVIRMEM = '0024806C'X' PARAMETER STR$_STRTOOLON = '00248074'X' PARAMETER STR$_ERRFREDYN = '0024807C'X ! % ! THE FOLLOWING ARE WARNING ERRORS. !  ! ; GO IN STEPS OF 8.! PARAMETER STR$_TRU = '00248200'X% PARAMETER STR$_NOMATCH = '00248208'X& PARAMETER STR$_INVDELIM = '00248210'X$ PARAMETER STR$_NOELEM = '00248218'X ! 0 ! THE FOLLOWING ARE QUALIFIED SUCCESS MESSAGES !  ! ; GO IN STEPS OF 8.' PARAMETER STR$_NEGSTRLEN = '00248401'X' PARAMETER STR$_ILLSTRPOS = '00248409'X' PARAMETER STR$_ILLSTRSPE = '00248411'X# PARAMETER STR$_MATCH = '00248419'X ! 4 ! DEFINE STR$_NORMAL TO BE THE SAME AS SS$_NORMAL. ! $ PARAMETER STR$_NORMAL = '00000001'X ! !DEC$ END OPTIONSwwTKΦ!*** MODULE $STSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! = ! MACROS TO DEFINE SYSTEM SERVICE FAILURE AND STATUS CODES. !  !  ! $STRUCT SS ! 2 ! THIS STRUC TURE IS NOW CONTAINED IN 'SSMSG.MDL' ! +3 ! Define 32-bit VAX-11 error code longword fieldsF ! Changed to agree with Handbook - TNH 26-OCT-77 - CHANGE M 1 to P 1C ! Changed to agree with new status value W. H. Brown 18-NOV-1977 ! -' PARAMETER STS$M_SEVERITY = '00000007'X& PARAMETER STS$M_COND_ID = '0FFFFFF8'X& PARAMETER STS$M_CONTROL = 'F0000000'X& PARAMETER STS$M_SUCCESS = '00000001'X% PARAMETER STS$M_MSG_NO = '0000FFF8'X# PARAMETER STS$M_CODE = '00007FF8'X% PARAMETER STS$M_FAC _SP = '00008000'X' PARAMETER STS$M_CUST_DEF = '08000000'X( PARAMETER STS$M_INHIB_MSG = '10000000'X% PARAMETER STS$M_FAC_NO = '0FFF0000'X3 PARAMETER STS$K_WARNING = '00000000'X ! WARNING A PARAMETER STS$K_SUCCESS = '00000001'X ! SUCCESSFUL COMPLETION / PARAMETER STS$K_ERROR = '00000002'X ! ERROR 4 PARAMETER STS$K_INFO = '00000003'X ! INFORMATION 7 PARAMETER STS$K_SEVERE = '00000004'X ! SEVERE ERROR  STRUCTURE /STSDEF/ UNION MAP% PARAMETER STS$S_SEVERITY = 3 9 PARAMETER STS$V_SEVERITY = 0 ! severity code % PARAMETER STS$S_COND_ID = 257 PARAMETER STS$V_COND_ID = 3 ! condition id $ PARAMETER STS$S_CONTROL = 4% PARAMETER STS$V_CONTROL = 28, BYTE %FILL (4) ! control bits END MAP MAP$ PARAMETER STS$S_SUCCESS = 12 PARAMETER STS$V_SUCCESS = 0 ! Success $ PARAMETER STS$S_MSG_NO = 13# PARAMETER STS$V_MSG_NO = 3. BYTE %FILL (2) ! M essage number END MAP MAP" PARAMETER STS$S_CODE = 12, PARAMETER STS$V_CODE = 3 ! code # PARAMETER STS$S_FAC_SP = 1A PARAMETER STS$V_FAC_SP = 15 ! 1 if facility specific % PARAMETER STS$S_CUST_DEF = 1Y PARAMETER STS$V_CUST_DEF = 27 ! 1 if sub-system is customer (or CSS) defined & PARAMETER STS$S_INHIB_MSG = 1P PARAMETER STS$V_INHIB_MSG = 28 ! 1 if message should not be printed  BYTE %FILL (2)  END MAP MAP$ PARAMETER STS$S_FAC_NO = 12> PARAMETER STS$V_FAC_NO = 16 ! Facility is 12 bits  BYTE %FILL (2) END MAP ! + ! Define severity codes ! - END UNION END STRUCTURE ! STSDEF!DEC$ END OPTIONS ww KΦ!*** MODULE $SYIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +6 ! Get System Information Data Identifier Definitions !  ! **** NOTE **** ! F ! New items must always be adde d to the END of each item listG ! (preceding the ENDlistname item) so that users will not have ! to relink. ! - ! DEFINE TABLE TYPES : PARAMETER SYI$C_EXETYPE = '00000001'X ! Executive cells9 PARAMETER SYI$C_FLDTYPE = '00000002'X ! Sub-field data> PARAMETER SYI$C_RSDTYPE = '00000003'X ! Reduced system data: ! The following item-codes are for executive data cells.8 ! Processor registers are a special case of this type.8 ! Some EXE-type cells have frequently used sub-fields,> ! which have item-codes in the FLD section. (after this one)< PARAMETER SYI$_VERSION = '00001000'X ! VMS version number8 PARAMETER SYI$_SID = '00001001'X ! System ID registerL PARAMETER SYI$_PFCDEFAULT = '00001002'X ! Default page fault cluster sizeQ PARAMETER SYI$_PAGTBLPFC = '00001003'X ! Default page table page fault clusterM PARAMETER SYI$_SYSPFC = '00001004'X ! Page fault cluster for system pagingY PARAMETER SYI$_KFILSTCNT = '00001005'X ! (Obsolete, to be deleted in a future release)B PARAMETER SYI$_GBLSECTIONS = '00001006'X ! Global section count< PARAMETER SYI$_GBLPAGES = '00001007'X ! Global page countL PARAMETER SYI$_GBLPAGFIL = '00001008'X ! Global page page file page limitE PARAMETER SYI$_MAXPROCESSCNT = '00001009'X ! Maximum process count< PARAMETER SYI$_PIXSCAN = '0000100A'X ! Process scan countC PARAMETER SYI$_PROCSECTCNT = '0000100B'X ! Process section countC PARAMETER SYI$_MINWSCNT = '0000100C'X ! Minimum working set siz eB PARAMETER SYI$_PAGFILCNT = '0000100D'X ! Number of paging files@ PARAMETER SYI$_SWPFILCNT = '0000100E'X ! Number of swap filesC PARAMETER SYI$_SYSMWCNT = '0000100F'X ! System working set countB PARAMETER SYI$_INTSTKPAGES = '00001010'X ! Interrupt stack sizeT PARAMETER SYI$_DLCKEXTRASTK = '00001011'X ! Extra int stack for deadlock searches= PARAMETER SYI$_BALSETCNT = '00001012'X ! Balance set count? PARAMETER SYI$_IRPCOUNT = '00001013'X ! Count of I/O packetsJ PARAMETER SYI$_IRPCOUNTV = '00001014'X ! Limit of extension of IRP listG PARAMETER SYI$_WSMAX = '00001015'X ! Max size of process working setA PARAMETER SYI$_NPAGEDYN = '00001016'X ! Non-paged dynamic poolF PARAMETER SYI$_NPAGEVIR = '00001017'X ! Limit of extension of above< PARAMETER SYI$_PAGEDYN = '00001018'X ! Paged dynamic poolG PARAMETER SYI$_VIRTUALPAGECNT = '00001019'X ! Max virtual page count@ PARAMETER SYI$_SPTREQ = '0000101A'X ! Requested SPT extensionD PARAMETER SYI$_EXUSRSTK = '0000101B'X ! Extra user stack providedJ PARAMETER SYI$_LRPCOUNT = '0000101C'X ! Number of large request packetsJ PARAMETER SYI$_LRPCOUNTV = '0000101D'X ! Limit of extension of LRP listF PARAMETER SYI$_LRPSIZE = '0000101E'X ! Size of large request packetC PARAMETER SYI$_LRPMIN = '0000101F'X ! Min alloc request for LRPsJ PARAMETER SYI$_SRPCOUNT = '00001020'X ! Number of small request packetsJ PARAMETER SYI$_SRPCOUNTV = '00001021'X ! Limit of extension of SRP listF PARAMETER SYI$_SRPSIZE = '00001022'X ! Size of small request packetC PARAMETER SYI$_SRPMIN = '00001023'X ! Min alloc request for SRPsM PARAMETER SYI$_CHANNELCNT = '00001024'X ! Number of permanent I/O channels< PARAMETER SYI$_PIOPAGES = '00001025'X ! Process I/O pagesF PARAMETER SYI$_CTLPAGES = '00001026'X ! Control region impure pagesM PARAMETER SYI$_CTLIMGLIM = '00001027'X ! Limit on use of proc alloc regionJ PARAMETER SYI$_IMGIOCNT = '00001028'X ! Default image I/O address space9 PARAMETER SYI$_QUANTUM = '00001029'X ! Process quantumJ PARAMETER SYI$_MPW_WRTCLUSTER = '0000102A'X ! Page write cluster factorK PARAMETER SYI$_MPW_HILIMIT = '0000102B'X ! Modified page list high limitJ PARAMETER SYI$_MPW_LOLIMIT = '0000102C'X ! Modified page list low limitL PARAMETER SYI$_MPW_PRIO = '0000102D'X ! Modified page writer I/O priority? PARAMETER SYI$_SWP_PRIO = '0000102E'X ! Swapper I/O priorityQ PARAMETER SYI$_MPW_THRESH = '0000102F'X ! Modified page writer lower thresholdT PARAMETER SYI$_MPW_WAITLIMIT = '00001030'X ! Modified page writer busy wait limitM PARAMETER SYI$_TBSKIPWSL = '00001031'X ! Max number WSlist entries to skipD PARAMETER SYI$_PHYSICALPAGES = '00001032'X ! Memory size in pagesH PARAMETER SYI$_PFRATL = '00001033'X ! Page fault rate lower thresholdG PARAMETER SYI$_PFRATH = '00001034'X ! Page fault rate high thresholdO PARAMETER SYI$_PFRATL_SYS = '00001035'X ! PFRATL for the system working set= PARAMETER SYI$_WSINC = '00001036'X ! Working set increment= PARAMETER SYI$_WSDEC = '00001037'X ! Working set decrement< PARAMETER SYI$_AWSMIN = '00001038'X ! Working set minimumJ PARAMETER SYI$_AWSTIME = '00001039'X ! Working set measurement intervalA PARAMETER SYI$_SWPRATE = '0000103A'X ! Swap rate control (max)R PARAMETER SYI$_SWPOUTPGCNT = '0000103B'X ! Desired proc page cnt for an outswapR PARAMETER SYI$_SWPALLOCINC = '0000103C'X ! Swap file allocation increment value9 PARAMETER SYI$_IOTA = '0000103D'X ! I/O t ime allowanceP PARAMETER SYI$_LONGWAIT = '0000103E'X ! When HIB or LEF proc becomes longwait9 PARAMETER SYI$_SWPFAIL = '0000103F'X ! Swap fail countM PARAMETER SYI$_VMSD1 = '00001040'X ! Reserved to VMS development (DYNAMIC)) PARAMETER SYI$_VMSD2 = '00001041'X ! ") PARAMETER SYI$_VMSD3 = '00001042'X ! ") PARAMETER SYI$_VMSD4 = '00001043'X ! "K PARAMETER SYI$_VMS5 = '00001044'X ! Reserved to VMS development (STATIC)( PARAMETER SYI$_VMS6 = '00001045'X ! "( PARAMETER SYI$_ VMS7 = '00001046'X ! "( PARAMETER SYI$_VMS8 = '00001047'X ! "E PARAMETER SYI$_USERD1 = '00001048'X ! Reserved for users (DYNAMIC)* PARAMETER SYI$_USERD2 = '00001049'X ! "C PARAMETER SYI$_USER3 = '0000104A'X ! Reserved for users (STATIC)) PARAMETER SYI$_USER4 = '0000104B'X ! "O PARAMETER SYI$_EXTRACPU = '0000104C'X ! Extra CPU time allowed on expirationK PARAMETER SYI$_MAXSYSGROUP = '0000104D'X ! Max group code for system UICJ PARAMETER SYI$_MVTIMEOUT = '0000104E'X ! Timeout for mount verificationL PARAMETER SYI$_MAXBUF = '0000104F'X ! Maximum allowable buffered I/O sizeT PARAMETER SYI$_DEFMBXBUFQUO = '00001050'X ! Def buffer quota for mailbox creationS PARAMETER SYI$_DEFMBXMXMSG = '00001051'X ! Def max msg size for mailbox creationK PARAMETER SYI$_DEFMBXNUMMSG = '00001052'X ! Def number of messages for "B PARAMETER SYI$_FREELIM = '00001053'X ! Desired free list lengthB PARAMETER SYI$_FREEGOAL = '00001054'X ! Target free list lengthO PARAMETER SYI$_GROWLIM = '00001055'X ! Free > growlim to grow proc > wsquota< PARAMETER SYI$_BORROWLIM = '00001056'X ! Same as above???F PARAMETER SYI$_LOCKRETRY = '00001057'X ! Multi-CPU lock retry count> PARAMETER SYI$_XFMAXRATE = '00001058'X ! Max DR32 data rateL PARAMETER SYI$_LAMAPREGS = '00001059'X ! Number of UBA map regs for LPA11S PARAMETER SYI$_REALTIME_SPTS = '0000105A'X ! SPT entries for CONINTERR processesP PARAMETER SYI$_CLISYMTBL = '0000105B'X ! Number of pages for CLI symbol tableA PARAMETER SYI$_LOCKIDTBL = '0000105C'X ! Size of lock ID tableH PARAMETER SYI$_RESHASHTBL = '0000105D'X ! Size of resource hash tableQ PARAMETER SYI$_DEADLOCK_WAIT = '0000105E'X ! Deadlock detection timeout periodP PARAMETER SYI$_SCSBUFFCNT = '0000105F'X ! SCS buffer descriptor table entriesQ PARAMETER SYI$_SCSCONNCNT = '00001060'X ! SCS connect descriptor table entriesR PARAMETER SYI$_SCSRESPCNT = '00001061'X ! SCS response descriptor table entriesD PARAMETER SYI$_SCSMAXDG = '00001062'X ! SCS maximum datagram sizeJ PARAMETER SYI$_SCSMAXMSG = '00001063'X ! SCS max sequenced message sizeF PARAMETER SYI$_SCSFLOWCUSH = '00001064'X ! SCS flow control cushionE PARAMETER SYI$_SCSSYSTEMID = '00001065'X ! SCS system ID (48 bits)A PARAMETER SYI$_SCSSYSTEMIDH = '00001066'X ! High bits of above> PARAMETER SYI$_SCSNODE = '00001067'X ! SCS system node nameM PARAMETER SYI$_PRCPOLINTERVAL = '00001069'X ! SCA process polling intervalG PARAMETER SYI$_PASTIMOUT = '0000106A'X ! CI port START/STACK timeoutR PARAMETER SYI$_PASTDGBUF = '0000106B'X ! CI port DG buffers for START handshakeF PARAMETER SYI$_PANUMPOLL = '0000106C'X ! Number of CI ports to pollK PARAMETER SYI$_PAPOLLINTERVAL = '0000106D'X ! Time between CI port pollsO PARAMETER SYI$_PAPOOLINTERVAL = '0000106E'X ! Time between SYSAPs pool checkS PARAMETER SYI$_TIMEPROMPTWAIT = '0000106F'X ! Time prompt timeout (when booting)R PARAMETER SYI$_UDABURSTRATE = '00001070'X ! Max number of longwords per NPR - 1V PARAMETER SYI$_LNMSHASHTBL = '00001071'X ! Size of system space log name hash tableE PARAMETER SYI$_LNMPHASHTBL = '00001072'X ! Size of process space "P PARAMETER SYI$_TTY_SCANDELTA = '00001073'X ! Delta time for dialup timer scanD PARAMETER SYI$_TTY_DIALTYPE = '00001074'X ! Flags for dialup typeC PARAMETER SYI$_TTY_SPEED = '00001075'X ! Terminal default: speed> PARAMETER SYI$_TTY_RSPEED = '00001076'X ! " " receive speed7 PARAMETER SYI$_TTY_PARITY = '00001077'X ! " " parity8 PARAMETER SYI$_TTY_BUF = '00001078'X ! " " line widthA PARAMETER SYI$_TTY_DEFCHAR = '00001079'X ! " " characteristicsP PARAMETER SYI$_TTY_DEFCHAR2 = '0000107A'X ! " " characteristics, 2nd longwordG PARAMETER SYI$_TTY_TYPAHDSZ = '0000107B'X ! Size of typeahead bufferG PARAMETER SYI$_TTY_ALTYPAHD = '0000107C'X ! Alternate typeahead sizeG PARAMETER SYI$_TTY_ALTALARM = '0000107D'X ! Alt typeahead alarm size6 PARAMETER SYI$_TTY_DMASIZE = '0000107E'X ! Dma sizeL PARAMETER SYI$_TTY_PROT = '0000107F'X ! Default terminal alloc protectionB PARAMETER SYI$_TTY_OWNER = '00001080'X ! Default terminal ownerR PARAMETER SYI$_TTY_CLASSNAME = '00001081'X ! Default terminal class name prefixM PARAMETER SYI$_TTY_SILOTIME = '00001082'X ! Default silo timeout for DMF32K PARAMETER SYI$_TTY_DEFPORT = '00001083'X ! DEFAULT PORT ACTION PARAMETERJ PARAMETER SYI$_RMS_DFMBC = '00001084'X ! RMS default: multi-block countT PARAMETER SYI$_RMS_DFMBFSDK = '00001085'X ! " " multi-buffer count for disk (SEQ)N PARAMETER SYI$_RMS_DFMBFSMT = '00001086'X ! " " multi-buffer count for tapeU PARAMETER SYI$_RMS_DFMBFSUR = '00001087'X ! " " multi-buffer count for unit recordS PARAMETER SYI$_RMS_DFMBFREL = '00001088'X ! " " multi-buffer count for REL filesT PARAMETER SYI$_RMS_DFMBFIDX = '00001089'X ! " " multi-buffer count for ISAM filesQ PARAMETER SYI$_RMS_CONPOLICY = '0000108A'X ! " " Default RMS Contention Policy9 PARAMETER SYI$_RMS_PROLOGUE = '00 00108B'X ! " " prologJ PARAMETER SYI$_RMS_EXTEND_SIZE = '0000108C'X ! " " file extend quantityB PARAMETER SYI$_RMS_FILEPROT = '0000108D'X ! " " file protection: PARAMETER SYI$_PQL_DASTLM = '0000108E'X ! Def AST limit2 PARAMETER SYI$_PQL_MASTLM = '0000108F'X ! Min "C PARAMETER SYI$_PQL_DBIOLM = '00001090'X ! Def buffered I/O limit2 PARAMETER SYI$_PQL_MBIOLM = '00001091'X ! Min "N PARAMETER SYI$_PQL_DBYTLM = '00001092'X ! Def buffered I/O byte count limit2 PARAMETER SYI$_PQL_MB YTLM = '00001093'X ! Min "? PARAMETER SYI$_PQL_DCPULM = '00001094'X ! Def CPU time limit2 PARAMETER SYI$_PQL_MCPULM = '00001095'X ! Min "A PARAMETER SYI$_PQL_DDIOLM = '00001096'X ! Def direct I/O limit2 PARAMETER SYI$_PQL_MDIOLM = '00001097'X ! Min "@ PARAMETER SYI$_PQL_DFILLM = '00001098'X ! Def open file limit2 PARAMETER SYI$_PQL_MFILLM = '00001099'X ! Min "F PARAMETER SYI$_PQL_DPGFLQUOTA = '0000109A'X ! Def paging file quota6 PARAMETER SYI$_PQL_MPGFLQUOTA = '0000109B'X !  Min "B PARAMETER SYI$_PQL_DPRCLM = '0000109C'X ! Def sub-process limit2 PARAMETER SYI$_PQL_MPRCLM = '0000109D'X ! Min "H PARAMETER SYI$_PQL_DTQELM = '0000109E'X ! Def timer queue entry limit2 PARAMETER SYI$_PQL_MTQELM = '0000109F'X ! Min "M PARAMETER SYI$_PQL_DWSDEFAULT = '000010A0'X ! Def working set default size6 PARAMETER SYI$_PQL_MWSDEFAULT = '000010A1'X ! Min "D PARAMETER SYI$_PQL_DWSQUOTA = '000010A2'X ! Def working set quota4 PARAMETER SYI$_PQL_MWSQUOTA = '000010A3'X !  Min "F PARAMETER SYI$_PQL_DWSEXTENT = '000010A4'X ! Def working set extent5 PARAMETER SYI$_PQL_MWSEXTENT = '000010A5'X ! Min "> PARAMETER SYI$_PQL_DENQLM = '000010A6'X ! Def enqueue limit2 PARAMETER SYI$_PQL_MENQLM = '000010A7'X ! Min "O PARAMETER SYI$_ACP_MAPCACHE = '000010A8'X ! Number of blocks in bitmap cacheT PARAMETER SYI$_ACP_HDRCACHE = '000010A9'X ! Number of blocks in file header cacheR PARAMETER SYI$_ACP_DIRCACHE = '000010AA'X ! Number of blocks in directory cache= PARAMETER SYI$_ACP_WORKSET = '000010AB'X ! ACP working setP PARAMETER SYI$_ACP_FIDCACHE = '000010AC'X ! Number of cached index file slotsL PARAMETER SYI$_ACP_EXTCACHE = '000010AD'X ! Number of cached disk extentsL PARAMETER SYI$_ACP_EXTLIMIT = '000010AE'X ! Max fraction of disk to cacheT PARAMETER SYI$_ACP_QUOCACHE = '000010AF'X ! Number of file quota entries to cacheN PARAMETER SYI$_ACP_SYSACC = '000010B0'X ! Default access for system volumesO PARAMETER SYI$_ACP_MAXREAD = '000010B1'X ! Max number of direct blks to readS PARAMETER SYI$_ACP_WINDOW = '000010B2'X ! Default window size for system volumesO PARAMETER SYI$_ACP_WRITEBACK = '000010B3'X ! Deferred cache writeback enableJ PARAMETER SYI$_ACP_DATACHECK = '000010B4'X ! ACP datacheck enable flags@ PARAMETER SYI$_ACP_BASEPRIO = '000010B5'X ! ACP base priority= PARAMETER SYI$_ACP_SWAPFLGS = '000010B6'X ! ACP swap flagsM PARAMETER SYI$_DEFPRI = '000010B7'X ! Default priority for Job InitiationsD PARAMETER SYI$_IJOBLIM = '000010B8'X ! Limit for interactive jobs> PARAMETER SYI$_BJOBLIM = '000010B9'X ! Limit for batch jobs@ PARAMETER SYI$_NJOBLIM = '000010BA'X ! Limit for network jobsH PARAMETER SYI$_RJOBLIM = '000010BB'X ! Limit for remote terminal jobsJ PARAMETER SYI$_QUORUM = '000010BC'X ! Connection manager cluster QUORUMQ PARAMETER SYI$_VOTES = '000010BD'X ! Connection manager VOTES from this systemU PARAMETER SYI$_RECNXINTERVAL = '000010BE'X ! Connection manager reconnect inter valQ PARAMETER SYI$_BOOTTIME = '000010BF'X ! 64-bit abs. system time at system bootN PARAMETER SYI$_LOCKIDTBL_MAX = '000010C0'X ! Maximum size of lock ID table.C PARAMETER SYI$_TAILORED = '000010C1'X ! Is this system tailored?O PARAMETER SYI$_STARTUP_P1 = '000010C2'X ! Parameters for passing informationI PARAMETER SYI$_STARTUP_P2 = '000010C3'X ! to system startup procedure.( PARAMETER SYI$_STARTUP_P3 = '000010C4'X( PARAMETER SYI$_STARTUP_P4 = '000010C5'X( PARAMETER SYI$_STARTUP_ P5 = '000010C6'X( PARAMETER SYI$_STARTUP_P6 = '000010C7'X( PARAMETER SYI$_STARTUP_P7 = '000010C8'X( PARAMETER SYI$_STARTUP_P8 = '000010C9'XP PARAMETER SYI$_CLUSTER_NODES = '000010CA'X ! total number of nodes in clusterK PARAMETER SYI$_CLUSTER_VOTES = '000010CB'X ! " " " votes " "I PARAMETER SYI$_CLUSTER_QUORUM = '000010CC'X ! " quorum in clusterB PARAMETER SYI$_CLUSTER_FSYSID = '000010CD'X ! founding systemidA PARAMETER SYI$_CLUSTER_FTIME = '000010CE'X ! founding boottimeJ PARAMETER SYI$_CLUSTER_MEMBER = '000010CF'X ! true if in a live clusterL PARAMETER SYI$_NODE_CSID = '000010D0'X ! cluster system id of target nodeA PARAMETER SYI$_NODE_VOTES = '000010D1'X ! votes of target node@ PARAMETER SYI$_NODE_QUORUM = '000010D2'X ! quorum of " "B PARAMETER SYI$_NODE_SYSTEMID = '000010D3'X ! systemid of " "J PARAMETER SYI$_NODE_SWINCARN = '000010D4'X ! S/W incarnation of " "B PARAMETER SYI$_NODE_SWTYPE = '000010D5'X ! S/W type of "  "B PARAMETER SYI$_NODE_SWVERS = '000010D6'X ! S/W version of " "B PARAMETER SYI$_NODE_HWTYPE = '000010D7'X ! H/W type of " "B PARAMETER SYI$_NODE_HWVERS = '000010D8'X ! H/W version of " "A PARAMETER SYI$_NODENAME = '000010D9'X ! SCS nodename of " "B PARAMETER SYI$_ARCHFLAG = '000010DA'X ! Flags used by uVAX codeM PARAMETER SYI$_SCS_EXISTS = '000010DB'X ! Flag to indicate presence of SCSS PARAMETER SYI$_DISK_QUORUM = '000010DC'X ! Cluster quorum device name (in ASCII )N PARAMETER SYI$_XSID = '000010DD'X ! Extended System Identification Register? PARAMETER SYI$_PAMAXPORT = '000010E0'X ! Max PA port to pollP PARAMETER SYI$_PASANITY = '000010E1'X ! PA sanity timer enable/disable switch@ PARAMETER SYI$_DEFQUEPRI = '000010E2'X ! Default Que Priority< PARAMETER SYI$_MAXQUEPRI = '000010E3'X ! Max Que PriorityC PARAMETER SYI$_QDSKINTERVAL = '000010E4'X ! Disk Quorum Interval< PARAMETER SYI$_ALLOCLASS = '000010E5'X ! Allocation classA PARAMETER SYI$_LGI_RETRY_LIM = '000010E6'X ! Login retry limitC PARAMETER SYI$_LGI_RETRY_TMO = '000010E7'X ! Login retry timeoutA PARAMETER SYI$_LGI_BRK_LIM = '000010E8'X ! Login failure limitC PARAMETER SYI$_LGI_BRK_TMO = '000010E9'X ! Login suspect timeoutG PARAMETER SYI$_LGI_HID_TIM = '000010EA'X ! Login evasive action timeL PARAMETER SYI$_LGI_PWD_TMO = '000010EB'X ! System password drop dead timea PARAMETER SYI$_PQL_DJTQUOTA = '000010EC'X ! Default Job-wide Logical Name Table Creation Quotaa PARAMETER SYI$_PQL_MJTQUOTA = '000010ED'X ! Minimum Job-wide Logical Name Table Creation QuotaE PARAMETER SYI$_VAXCLUSTER = '000010EE'X ! VAXcluster participationP PARAMETER SYI$_LOCKDIRWT = '000010EF'X ! Lock manager directory system weightE PARAMETER SYI$_QDSKVOTES = '000010F0'X ! Votes held by quorum diskS PARAMETER SYI$_DORMANTWAIT = '000010F1'X ! When low pri COM proc becomes dormantD PARAMETER SYI$_PAGEFILE_PAGE = '000010F2'X ! Total pagefile pagesD PARAMETER SYI$_SWAPFILE_PAGE = '000010F3'X ! Total swapfile pagesC PARAMETER SYI$_PAGEFILE_FREE = '000010F4'X ! Free pagefile pagesC PARAMETER SYI$_SWAPFILE_FREE = '000010F5'X ! Free swapfile pagesR PARAMETER SYI$_TTY_TIMEOUT = '000010F6'X ! Seconds for virtual terminal timeoutM PARAMETER SYI$_TTY_AUTOCHAR = '000010F7'X ! autobaud recognition characterI PARAMETER SYI$_PANOPOLL = '000010F8'X ! Disable/enable CI port pollingD PARAMETER SYI$_PE1 = '000010F9'X ! Reserved TO PEDRIVER (DYNAMIC)' P ARAMETER SYI$_PE2 = '000010FA'X ! "' PARAMETER SYI$_PE3 = '000010FB'X ! "' PARAMETER SYI$_PE4 = '000010FC'X ! "C PARAMETER SYI$_PE5 = '000010FD'X ! Reserved TO PEDRIVER (STATIC)' PARAMETER SYI$_PE6 = '000010FE'X ! "G PARAMETER SYI$_RMS_GBLBUFQUO = '000010FF'X ! RMS global buffer quotaC PARAMETER SYI$_RMS_DFNBC = '00001100'X ! " " network block countY PARAMETER SYI$_ACP_DINDXCACHE = '00001101'X ! File system directory index cache blocksb PARAMETER SYI$_MAXATTACHPRI = '00001102'X ! Maximum scheduling prio for ASMP attached processorO PARAMETER SYI$_SMP_CPUS = '00001103'X ! Number of CPUs to boot in SMP systemS PARAMETER SYI$_SMP_CPUSH = '00001104'X ! Hi Number of CPUs to boot in SMP systemE PARAMETER SYI$_FALLBACK_MODE = '00001105'X ! Cluster fallback mode\ PARAMETER SYI$_MPW_LOWAITLIMIT = '00001106'X ! Modified page writer lower busy wait limit[ PARAMETER SYI$_MPW_IOLIMIT = '00001107'X ! Modified page writer max concurrent I/O countE PARAMETER SYI$_S0_PAGING = '00001108'X ! System space paging flagsQ PARAMETER SYI$_HW_MODEL = '00001109'X ! System model number (from SB$B_HWVERS)T PARAMETER SYI$_HW_NAME = '0000110A'X ! System model name from #/name trans. tableV PARAMETER SYI$_SCH_CTLFLAGS = '0000110B'X ! CPU scheduling control flags (obsolete)K PARAMETER SYI$_NODE_EVOTES = '0000110C'X ! Votes expected by target nodeT PARAMETER SYI$_CLUSTER_EVOTES = '0000110D'X ! Number of expected votes in clusterN PARAMETER SYI$_MULTIPROCESSING = '0000110E'X ! Multiprocessor participationH PARAMETER SYI$_FREE_GBLPAGES = '0000110F'X ! Total, free global pagesW PARAMETER SYI$_CONTIG_GBLPAGES = '00001110'X ! Maximum, contiguous free global pagesK PARAMETER SYI$_FREE_GBLSECTS = '00001111'X ! Total, free global sections? PARAMETER SYI$_EXPECTED_VOTES = '00001112'X ! Expected votesI PARAMETER SYI$_PU_OPTIONS = '00001113'X ! Select PUDRIVER load optionsM PARAMETER SYI$_WPTTE_SIZE = '00001114'X ! # Watchpoint Trace Table EntriesJ PARAMETER SYI$_WPRE_SIZE = '00001115'X ! Watchpoint Restore Entry size Q PARAMETER SYI$_SMP_SANITY_CNT = '00001116'X ! # SMP Sanity events bef. timeoutY PARAMETER SYI$_SMP_TICK_CNT = '00001117'X ! Clock ticks between SMP sanity time cycles\ PARAMETER SYI$_QBUS_MULT_INTR = '00001118'X ! uVAX/QBUS multi-level interrupt enable flagJ PARAMETER SYI$_SYSTEM_RIGHTS = '00001119'X ! System rights list segmentJ PARAMETER SYI$_SMP_SPINWAIT = '0000111A'X ! SMP normal busywait timeoutK PARAMETER SYI$_SMP_LNGSPINWAIT = '0000111B'X ! SMP LONG busywait timeoutM PARAMETER SYI$_TIME_CONTROL = '0000111C'X ! Time-related control functionsM PARAMETER SYI$_AVAILCPU_CNT = '0000111D'X ! Number of CPUs in this machineM PARAMETER SYI$_ACTIVECPU_CNT = '0000111E'X ! Number of CPUs up and runningI PARAMETER SYI$_MSCP_LOAD = '00001122'X ! Load MSCP server at boot time@ PARAMETER SYI$_MSCP_SERVE_ALL = '00001123'X ! Serve all disksK PARAMETER SYI$_POOLCHECK = '00001124'X  ! Pool debugging in MEMORYALC.MARK PARAMETER SYI$_TAPE_MVTIMEOUT = '00001125'X ! Magtape mount verificationN PARAMETER SYI$_PSEUDOLOA = '00001126'X ! Pseudoloa image size for tape bootQ PARAMETER SYI$_MINCLASSPRI = '00001127'X ! Min. priority for class scheduling Q PARAMETER SYI$_MAXCLASSPRI = '00001128'X ! Max. priority for class scheduling Z PARAMETER SYI$_MINPRPRI = '00001129'X ! Min. priority for preemptive-resume scheduling d PARAMETER SYI$_AUTOCONFIG_ALGO = '0000112A'X ! Selects which algorithmn SYSGEN uses to autoconfigU PARAMETER SYI$_ERRORLOGBUFFERS = '0000112B'X ! Number of buffers for error loggingd PARAMETER SYI$_JOBCTLD = '0000112C'X ! Dynamic SYSGEN flag to handle job controller diagnostics aC ! Dynamic SYSGEN flag to handle job controller diagnostics anX PARAMETER SYI$_WINDOW_SYSTEM = '0000112D'X ! Default windowing system for workstationR PARAMETER SYI$_MSCP_BUFFER = '0000112E'X ! Pages allocated to server local poolX PARAMETER SYI$_MSCP_CREDITS = '0000112F'X ! Number of send credits extended by server_ PARAMETER SYI$_BREAKPOINTS = '00001130'X ! Mask of INI$BRK callers in exec used in this bootd PARAMETER SYI$_CLOCK_INTERVAL = '00001131'X ! Time (in usec) between interval timer clock interrd PARAMETER SYI$_DUMPSTYLE = '00001132'X ! Mask specifying desired format of dump file (full dump oC ! Mask specifying desired format of dump file (full dump or sD PARAMETER SYI$_NISCS_PORT_SERV = '00001133'X ! Port services flagL PARAMETER SYI$_RSRVPAGCNT = '00001134'X ! No. of pagefile pages to escrowD PARAMETER SYI$_VECTOR_PROC = '00001135'X ! Load vector processing= PARAMETER SYI$_VECTOR_MARGIN = '00001136'X ! Vector marginC PARAMETER SYI$_AFFINITY_SKIP = '00001137'X ! Affinity skip countC PARAMETER SYI$_AFFINITY_TIME = '00001138'X ! Affinity queue timeN PARAMETER SYI$_VECTOR_EMULATOR = '00001139'X ! Vector emulator present flagC PARAMETER SYI$_VP_MASK = '0000113A'X ! Mask of vector processorsG PARAMETER SYI$_VP_NUMBER = '0000113B'X ! Number of vector processorsU PARAMETER SYI$_USED_GBLPAGCNT = '0000113C'X ! Current count of global pages in useU PARAMETER SYI$_USED_GBLPAGMAX = '0000113D'X ! Maximum count of global pages in useY PARAMETER SYI$_USED_GBLSECTCNT = '0000113E'X ! Current count of global sections in useY PARAMETER SYI$_USED_GBLSECTMAX = '0000113F'X ! Maximum count of global sections in useI PARAMETER SYI$_ERLBUFFERPAGES = '00001140'X ! Pages in each ERL BufferF PARAMETER SYI$_TAPE_ALLOCLASS = '00001141'X ! Tape Allocation classO PARAMETER SYI$_PFRATH_SYS = '00001142'X ! PFRATH for the system working setN PARAMETER SYI$_WSINC_SYS = '00001143'X ! WSINC for the system working setN PARAMETER SYI$_WSDEC_SYS = '00001144'X ! WSDEC for the system working setO PARAMETER SYI$_AWSMIN_SYS = '00001145'X ! AWSMIN for the system working setP PARAMETER SYI$_AWSTIME_SYS = '00001146'X ! AWSTIME for the system working set7 PARAMETER SYI$_BOOT_STYLE = '00001147'X ! Boot StyleF PARAMETER SYI$_FT_FLAGS = '00001148'X ! Fault Tolerance Flags field: PARAMETER SYI$_SHADOWING = '00001149'X ! Shadowing modeM PARAMETER SYI$_SHADOW_SYS_DISK = '0000114A'X ! Volume shadowed system diskR PARAMETER SYI$_SHADOW_SYS_UNIT = '0000114B'X ! Shadowed system disk unit numberQ PARAMETER SYI$_SHADOW_MAX_COPY = '0000114C'X ! Max shadow copy threads allowedE PARAMETER SYI$_TIMVCFAIL = '0000114D'X ! Time to detect VC failureM PARAMETER SYI$_PRIORITY_OFFSET = '0000114F'X ! Priority gap for preemptionB PARAMETER SYI$_VCC_FLAGS = '00001150'X ! VBN static cache flagsC PARAMETER SYI$_VCC_MAXSIZE = '00001155'X ! Max size of VBN cacheP PARAMETER SYI$_MMG_CTLFLAGS = '00001159'X ! Bit mask to control A/T mem mgmt.d PARAMETER SYI$_NISCS_MAX_PKTSZ = '0000115B'X ! Maximum number of bytes allocated for all NISCS pad PARAMETER SYI$_NISCS_LAN_OVRHD = '0000115C'X ! Bytes in NISCS packets reserved for other uses (egL PARAMETER SYI$_DECNET_VERSION = '0000115D'X ! Version of DECnet installedP PARAMETER SYI$_TMSCP_LOAD = '0000115E'X ! Load TMSCP tape server at boot timeW PARAMETER SYI$_LGI_CALLOUTS = '0000115F'X ! Number of LOGINOUT local policy callouts[ PARAMETER SYI$_NET_CALLOUTS = '00001160'X ! Number of DECNET Login local policy callouts] PARAMETER SYI$_IEEE_ADDRESS = '00001161'X ! 48 bit IEEE unique address - low order 32 bits_ PARAMETER SYI$_IEEE_ADDRESSH = '00001162'X ! 48 bit IEEE unique address - high order 16 bitsX PARAMETER SYI$_SHADOW_MBR_TMO = '00001163'X ! Timeout interval for HBS shadow membersE PARAMETER SYI$_PAGE_SIZE = '00001164'X ! Memory page size in bytes= PARAMETER SYI$_ARCH_TYPE = '00001165'X ! Architecture type= PARAMETER SYI$_ARCH_NAME = '00001166'X ! Architecture nameG PARAMETER SYI$_CRD_CONTROL = '00001167'X ! CRD scrub/replace controlO PARAMETER SYI$_SECURITY_POLICY = '00001168'X ! C2/B1 security policy bitmask< PARAMETER SYI$_DNVOSI1 = '00001169'X ! DECnet/OSI for VMSE PARAMETER SYI$_MEMSIZE = '0000116B'X ! System memory size in pagesC PARAMETER SYI$_KSTACKPAGES = '0000116C'X ! Pages in Kernel StackO PARAMETER SYI$_PHYSICAL_MEMORY = '0000116D'X ! Max of physical memory to useO PARAMETER SYI$_XQP_ALLOC_BLKS = '0000116E'X ! Flag - can XQP allocate blocksE PARAMETER SYI$_ZERO_LIST_HI = '0000116F'X ! Zeroed list high limitL PARAMETER SYI$_CPUTYPE = '00001170'X ! CPU type of Primary CPU from HWRPB@ PARAMETER SYI$_SYSTYPE = '00001171'X ! System type from HWRPBQ PARAMETER SYI$_ITB_ENTRIES = '00001172'X ! Number of code huge page TBs to useP PARAMETER SYI$_GH_RSRVPGCNT = '00001173'X ! pages reserved in code huge page N PARAMETER SYI$_DEF_PRIO_MIN = '00001174'X ! MIN priority for default policyN PARAMETER SYI$_DEF_PRIO_MAX = '00001175'X ! MAX priority for default policyU PARAMETER SYI$_PSXFIFO_PRIO_MIN = '00001176'X ! MIN priority for POSIX FIFO policyU PARAMETER SYI$_PSXFIFO_PRIO_MAX = '00001177'X ! MAX priority for POSIX FIFO policyY PARAMETER SYI$_PSXRR_PRIO_MIN = '00001178'X ! MIN priority for POSIX Rnd-Robbin policyY PARAMETER SYI$_PSXRR_PRIO_MAX = '00001179'X ! MAX priority for POSIX Rnd-Robbin policyI PARAMETER SYI$_XQPCTLD1 = '0000117A'X ! Reserved for XQP use (dynamic)> PARAMETER SYI$_XQPCTL2 = '0000117B'X ! Reserved for XQP useQ PARAMETER SYI$_CPUCONF = '0000117D'X ! CPU Configuration bitmask: 0 through 31d PARAMETER SYI$_DECNET_FULLNAME = '0000117E'X ! DECnet/OSI fullname (o r DECnet Phase IV node name)F PARAMETER SYI$_XQPCTLD3 = '0000117F'X ! F11BXQP Specific parameters+ PARAMETER SYI$_XQPCTL4 = '00001180'X ! |, PARAMETER SYI$_XQPCTLD5 = '00001181'X ! |+ PARAMETER SYI$_XQPCTL6 = '00001182'X ! |, PARAMETER SYI$_XQPCTLD7 = '00001183'X ! |+ PARAMETER SYI$_XQPCTL8 = '00001184'X ! vZ PARAMETER SYI$_DBGTK_SCRATCH = '00001185'X ! HLL System debugger scratch memory requestD PARAMETER SYI$_PALCODE_VERSION = '00001186'X ! Version of PALcodeM PARAMETER SYI$_CONSOLE_VERSION = '00001187'X ! Version of Console firmwareO PARAMETER SYI$_GH_EXEC_CODE = '00001188'X ! Pages in the execlet code regionO PARAMETER SYI$_GH_EXEC_DATA = '00001189'X ! Pages in the execlet data regionU PARAMETER SYI$_GH_RES_CODE = '0000118A'X ! Pages in the resident image code regionU PARAMETER SYI$_GH_RES_DATA = '0000118B'X ! Pages in the resident image data regionK PARAMETER SYI$_IMGREG_PAGES = '0000118C'X ! Pages in the P1 image-regiond PARAMETER SYI$_SHADOW_SYS_TMO = '0000118D'X ! Timeout interval for HBS system disk- new and afterC ! Timeout interval for HBS system disk- new and after - shadd PARAMETER SYI$_SHADOW_SYS_WAIT = '0000118E'X ! Timeout interval for HBS system disk- exists - shaC ! Timeout interval for HBS system disk- exists - shadow membeW PARAMETER SYI$_SHADOW_ENABLE = '0000118F'X ! Member removed at reboot from HBVS set.[ PARAMETER SYI$_SHADOW_SITE_O = '00001190'X ! OBSOLETE default site for shadow set (text)X PARAMETER SYI$_SYSTEM_CHECK = '00001191'X ! load/enable system problem isolation codeA PARAMETER SYI$_PFN_COLOR_COUNT = '00001192'X ! PFN Color CountR PARAMETER SYI$_REAL_CPUTYPE = '00001193'X ! Actual CPU type of Primary CPU fromJ PARAMETER SYI$_SCSICLUSTER_P1 = '00001194'X ! Reserved for SCSI ClusterJ PARAMETER SYI$_SCSICLUSTER_P2 = '00001195'X ! Reserved for SCSI ClusterJ PARAMETER SYI$_SCSICLUSTER_P3 = '00001196'X ! Reserved for SCSI ClusterJ PARAMETER SYI$_SCSICLUSTER_P4 = '00001197'X ! Reserved for SCSI Clusterd PARAMETER SYI$_FILE_CACHE = '00001198'X ! Percentage of physical memory reserved for Dollar file C ! Percentage of physical memory reserved for Dollar file systA PARAMETER SYI$_TMSCP_SERVE_ALL = '00001199'X ! Serve all tapesG PARAMETER SYI$_DR_UNIT_BASE = '0000119A'X ! unit base for DR devicesU PARAMETER SYI$_MC_SERVICES_P0 = '0000119B'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P1 = '0000119C'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P2 = '0000119D'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P3 = '0000119E'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P4 = '0000119F'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P5 = '000011A0'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P6 = '000011A1'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P7 = '000011A2'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P8 = '000011A3'X ! Reserved for MEmory Channel ServicesU PARAMETER SYI$_MC_SERVICES_P9 = '000011A4'X ! Reserved for MEmory Channel ServicesE PARAMETER SYI$_S2_SIZE = '000011A5'X ! Size in Mbytes for S2 spaceP PARAMETER SYI$_PROCESS_SPACE_LIMIT = '000011A6'X ! Highest process private VA= PARAMETER SYI$_PT_BASE = '000011A7'X ! Base VA of PT_space_ PARAMETER SYI$_SHARED_VA_PTES = '000011A8'X ! Boundary between process and system space PTEsM PARAMETER SYI$_MULTITHREAD = '000011A9'X ! per process kernel thread limitd PARAMETER SYI$_CWCREPRC_ENABLE = '000011AA'X ! Allow remote process creation by unprivileged usera PARAMETER SYI$_MAXBOBMEM = '000011AB'X ! Maximum physical memory for buffer objects (pagelets)D PARAMETER SYI$_FAST_PATH = '000011AC'X ! Fast Path enable/disabled PARAMETER SYI$_IO_PREFER_CPUS = '000011AD'X ! Bit mask of CPUs available to be Fast Path preferreK PARAMETER SYI$_ACTIVE_CPU_MASK = '000011AE'X ! Currently active CPU maskM PARAMETER SYI$_AVAIL_CPU_MASK = '000011AF'X ! Mask of existing system CPUsN PARAMETER SYI$_PRIMARY_CPUID = '000011B0'X ! CPUID of the primary processorI PARAMETER SYI$_MAX_CPUS = '000011B1'X ! Maximum allowed CPUs in systemK PARAMETER SYI$_CPUCAP_MASK = '000011B2'X ! Array of CPU capability masksd PARAMETER SYI$_FILE_CACHE_MIN = '000011B3'X ! Min # of pages of cache reserved for Spiralog file d PARAMETER SYI$_FILE_CACHE_MAX = '000011B4'X ! Max # of pages of cache reserved for Spiralog file J PARAMETER SYI$_F64CTL1 = '000011B5'X ! Reserved to Spiralog file system- PARAMETER SYI$_F64CTL2 = '000011B6'X ! |. PARAMETER SYI$_F64CTLD3 = '000011B7'X ! |. PARAMETER SYI$_F64CTLD4 = '000011B8'X ! V] PARAMETER SYI$_DISABLE_UPCALLS = '000011B9'X ! Bitmask to disable specific threads upcallsE PARAMETER SYI$_DEVICE_NAMING = '000011BA'X ! DEVICE_NAMING bitmaskF PARAMETER SYI$_AVAIL_PAGES = '000011BB'X ! Available physical pagesE PARAMETER SYI$_PROC_SLOTS = '000011BC'X ! Process slot informationD PARAMETER SYI$_BAL_SLOTS = '000011BD'X ! Balance slot informationG PARAMETER SYI$_NPAGED_POOL = '000011BE'X ! Nonpaged pool informationC PARAMETER SYI$_PAGED_POOL = '000011BF'X ! Paged pool information@ PARAMETER SYI$_MAIN_MEMORY = '000011C0'X ! Memory informationV PARAMETER SYI$_ARB_SUPPORT = '000011C1'X ! Level of security backward compatibility ! ifsymbol PFNBITS_32;K PARAMETER SYI$_MAX_PFN = '000011C2'X ! Returns contents of MMG$GL_MAXPFNN PARAMETER SYI$_PFN_MEMORY_MAP = '000011C3'X ! Returns a physical memory map ! end_ifsymbol;V PARAMETER SYI$_PMD_COUNT = '000011C4'X ! Returns count of phys. mem. desc. in HWRPBJ PARAMETER SYI$_MSCP_CMD_TMO = '000011C5'X ! VMS-MSCP server timer value> PARAMETER SYI$_LAN_FLAGS = '000011C6'X ! LAN specific flagsI PARAMETER SYI$_RMS_DFLRL = '000011C7'X ! RMS default max record lengthU PARAMETER SYI$_RMS_HEURISTIC = '000011C8'X ! RMS file attribute heuristic ctr flagd PARAMETER SYI$_NPAG_INTERVAL = '000011C9'X ! nonpaged pool gentle reclamation interval (# of secoR PARAMETER SYI$_NPAG_GENTLE = '000011CA'X ! gentle reclamation refill percentageZ PARAMETER SYI$_NPAG_AGGRESSIVE = '000011CB'X ! aggressive reclamation refill percentageO PARAMETER SYI$_NPAG_BAP_MIN = '000011CC'X ! Min Size of Bus Addressable PoolO PARAMETER SYI$_NPAG_BAP_MAX = '000011CD'X ! Max Size of Bus Addressable PoolA PARAMETER SYI$_NPAG_BAP_MAX_PA = '000011CE'X ! max. PA for BAPD PARAMETER SYI$_NPAG_RING_SIZE = '000011CF'X ! size of ring bufferF PARAMETER SYI$_CLUSTER_CREDITS = '000011D0'X ! cluster send credits0 PARAMETER SYI$_PTES_PER_PAGE = '000011D1'X ! O PARAMETER SYI$_TEMPERATURE_VECTOR = '000011D2'X ! 16-byte temperature vectorC PARAMETER SYI$_POWER_VECTOR = '000011D3'X ! 16-byte power vector? PARAMETER SYI$_FAN_VECTOR = '000011D4'X ! 16-byte fan vectorG PARAMETER SYI$_THERMAL_VECTOR = '000011D5'X ! 16-byte thermal vector[ PARAMETER SYI$_MAXBOBS0S1 = '000011D6'X ! Maximum buffer object S0S1 VA space (pagelets)W PARAMETER SYI$_MAXBOBS2 = '000011D7'X ! Maximum buffer object S2 VA space (pagelets)F PARAMETER SYI$_VCC_MAX_CACHE = '000011D8'X ! Maximum VDC Cache SizeM PARAMETER SYI$_VCC_MAX_IO_SIZE = '000011D9'X ! Maximum Cached VDC I/O SizeO PARAMETER SYI$_VCC_MAX_LOCKS = '000011DA'X ! Maximum number of locks for VDCL PARAMETER SYI$_VCC_READAHEAD = '000011DB'X ! VDC Readah ead caching on/offP PARAMETER SYI$_VCC_WRITEBEHIND = '000011DC'X ! VDC Writebehind caching on/offM PARAMETER SYI$_VCC_WRITE_DELAY = '000011DD'X ! VDC Writebehind write delay\ PARAMETER SYI$_SD_ALLOCLASS = '000011DE'X ! Snapshot-capable disk device allocation classL PARAMETER SYI$_GALAXY = '000011DF'X ! Node should participate in a GalaxyA PARAMETER SYI$_NPAG_BAP_MIN_PA = '000011E0'X ! min. PA for BAPd PARAMETER SYI$_BAP_MIN_REQ_SZ = '000011E1'X ! Bus addressable pool (BAP) minimum  size requested (d PARAMETER SYI$_BAP_MAX_REQ_SZ = '000011E2'X ! Bus addressable pool (BAP) maximum size requested (d PARAMETER SYI$_BAP_MIN_PA_REG = '000011E3'X ! Bus addressable pool (BAP) minimum PA registered (mC ! Bus addressable pool (BAP) minimum PA registered (megabytesd PARAMETER SYI$_BAP_MAX_PA_REG = '000011E4'X ! Bus addressable pool (BAP) maximum PA registered (mC ! Bus addressable pool (BAP) maximum PA registered (megabytesP PARAMETER SYI$_GALAXY_ID = '000011E5'X !  16-byte unique ID of Galaxy platformM PARAMETER SYI$_RMSD6 = '000011E6'X ! Reserved to RMS development (dynamic)c PARAMETER SYI$_MPDEV_ENABLE_O = '000011E7'X ! OBSOLETE Multipath I/O switching control parameterd PARAMETER SYI$_MPDEV_REMOTE_O = '000011E8'X ! OBSOLETE Multipath I/O switching control parameter C ! OBSOLETE Multipath I/O switching control parameter for remoN PARAMETER SYI$_RMSD1 = '000011E9'X ! Reserved to RMS development (dynamic) N PARAMETER SYI$_GALAXY_MEMBER =  '000011EA'X ! Flag - Are we a Galaxy member?U PARAMETER SYI$_GALAXY_PLATFORM = '000011EB'X ! Flag - Are we on a Galaxy platform?B PARAMETER SYI$_PARTITION_ID = '000011EC'X ! Galaxy Partition IDB PARAMETER SYI$_COMMUNITY_ID = '000011ED'X ! Galaxy Community IDM PARAMETER SYI$_GLX_INST_TMO = '000011EE'X ! Galaxy heartbeat timeout value7 PARAMETER SYI$_SMCI_FLAGS = '000011EF'X ! SMCI Flags> PARAMETER SYI$_SMCI_PORTS = '000011F0'X ! SMCI Port bitmaskG PARAMETER SYI$_SERVED_IO = '000 011F1'X ! QIOserver control parameterH PARAMETER SYI$_GLX_SW_VERSION = '000011F2'X ! Galaxy software versionO PARAMETER SYI$_GLX_MAX_MEMBERS = '000011F3'X ! maximum node_id this platformJ PARAMETER SYI$_GLX_INCARNATION = '000011F4'X ! galaxy incarnation countN PARAMETER SYI$_GLX_FORMATION = '000011F5'X ! galaxy creation time (systime)E PARAMETER SYI$_GLX_TERMINATION = '000011F6'X ! systime galaxy diedA PARAMETER SYI$_GLX_MBR_NAME = '000011F7'X ! galaxy member name? PARAMETER SYI$_GLX_MBR_MEMBER = '000011F8'X ! galaxy member V PARAMETER SYI$_GLX_MBR_INCARNATION = '000011F9'X ! galaxy member incarnation numberH PARAMETER SYI$_GLX_MBR_JOINED = '000011FA'X ! galaxy member join time] PARAMETER SYI$_MPDEV_LCRETRIES = '000011FB'X ! Multipath Switching - local connect retriesI PARAMETER SYI$_MPDEV_D1 = '000011FC'X ! Multipath Switching - dynamic @ PARAMETER SYI$_CLUSTER_NTIME = '000011FD'X ! Cluster New timeV PARAMETER SYI$_CLUSTER_NTIME_REF = '000011FE'X ! Cluster New time - local referenceU PARAMETER SYI$_MPDEV_POLLER_O = '000011FF'X ! OBSOLETE Multipath poller parameter O PARAMETER SYI$_CPU_FAILOVER = '00001200'X ! Array of CPU failover partitionsf PARAMETER SYI$_POTENTIAL_CPU_MASK = '00001201'X ! Mask of CPUs that are compatible on this instanced PARAMETER SYI$_POTENTIALCPU_CNT = '00001202'X ! Number of CPUs that could potentially run on thisM PARAMETER SYI$_CPU_AUTOSTART = '00001203'X ! Array of CPU autostart statesN PARAMETER SYI$_FAST_PATH_PORTS = '00001206'X ! New Fastpath implementations\ PARAMETER SYI$_GLX_SHM_REG = '00001207'X ! Number of Galaxy shared memory regions in GMDBV PARAMETER SYI$_RAD_SUPPORT = '00001208'X ! Switch to turn RAD (aka NUMA) support ona PARAMETER SYI$_NPAGECALC = '00001209'X ! Tell VMS to calculate default npagedyn and vir valuesM PARAMETER SYI$_WBM_MSG_INT = '0000120A'X ! write bitmap msg check intervalH PARAMETER SYI$_WBM_MSG_UPPER = '0000120B'X ! upper threshold for msgsH PARAMETER SYI$_WBM_MSG_LOWER = '0000120C'X ! lower threshold for msgs` PARAMETER SYI$_HP_ACTIVE_CPU_CNT = '0000120D'X ! number of active CPUs in this hard partitiond PARAMETER SYI$_HP_ACTIVE_SP_CNT = '0000120E'X ! number of active soft partitions in this hard pard PARAMETER SYI$_HP_CONFIG_SP_CNT = '0000120F'X ! number of configured soft partitions in this hardd PARAMETER SYI$_HP_CONFIG_SBB_CNT = '00001210'X ! number of configured SBBs in this hard partitiond PARAMETER SYI$_SHADOW_MAX_UNIT = '00001211'X ! maximum number of dsa devices which can exist on ta PARAMETER SYI$_WBM_OPCOM_LVL = '00001212'X ! opcom mode for write bitmap information messages W PARAMETER SYI$_AUTO_DLIGHT_SAV = '00001213'X ! automatic daylight saving SYSGEN flagV PARAMETER SYI$_RAD_MAX_RADS = '00001214'X ! maximum number of RADs on this platformS PARAMETER SYI$_RAD_CPUS = '00001215'X ! potential CPUs per RAD for this instanceV PARAMETER SYI$_RAD_MEMSIZE = '00001216'X ! private memory per RAD for this instanceO PARAMETER SYI$_RAD_SHMEMSIZE = '00001217'X ! number of shared memory per RADV PARAMETER SYI$_GALAXY_SHMEMSIZE = '00001218'X ! number of shared memory pages total] PARAMETER SYI$_NPAGERAD = '00001219'X ! How much of NPAGEDYN is in other than the base RADD PARAMETER SYI$_SERIAL_NUMBER = '0000121A'X ! System Serial NumberJ PARAMETER SYI$_MPDEV_D2 = '0000121C'X ! Multipath Switching - dynamic H PARAMETER SYI$_MPDEV_D3 = '0000121D'X ! Multipath Switching - dynamicH PARAMETER SYI$_MPDEV_D4 = '0000121E'X ! Multipath Switching - dynamic] PARAMETER SYI$_MPDEV_AFB_INTVL = '0000121F'X ! Multipath Auto fail back Interval - dynamic@ PARAMETER SYI$_MPW_STACKPAGES = '00001220'X ! MPW Stack Pagesf PARAMETER SYI$_PRESENT_CPU_MASK = '00001221'X ! Mask of CPUs that are present in the hard partitionf PARAMETER SYI$_PRESENTCPU_CNT = '00001222'X ! Number of CPUs that are present in the hard partitiond PARAMETER SYI$_POWERED_CPU_MASK = '00001223'X ! Mask of CPUs that are powered up in the hard partd PARAMETER SYI$_POWEREDCPU_CNT = '00001224'X ! Number of CPUs that are powered up in the hard partJ PARAMETER SYI$_RMSD7 = '00001225'X ! RMS readahead hint feature for XFCQ PARAMETER SYI$_RMS_SEQFILE_WBH = '00001226'X ! RMS default writebehind feature@ PARAMETER SYI$_DCL_CTLFLAGS = '00001227'X ! DCL Control Flagsc PARAMETER SYI$_DELPRC_EXIT = '00001228'X ! System-wide EXIT behavior for direct calls to $DELPRCT PARAMETER SYI$_PHYMEM_CONFIG = '00001229'X ! Dynamic memory configuration controlC PARAMETER SYI$_KTK_D1 = '0000122A'X ! Dynamic kernel tuning knobC PARAMETER SYI$_KTK_D2 = '0000122B'X ! Dynamic kernel tuning knobC PARAMETER SYI$_KTK_D3 = '0000122C'X ! Dynamic kernel tuning knobC PARAMETER SYI$_KTK_D4 = '0000122D'X ! Dynamic kernel tuning knobC PARAMETER SYI$_KTK_D5 = '0000122E'X ! Dynamic kernel tuning knobC PARAMETER SYI$_KTK_D6 = '0000122F'X ! Dynamic kernel tuning knobC PARAMETER SYI$_KTK_D7 = '00001230'X !  Dynamic kernel tuning knobC PARAMETER SYI$_KTK_D8 = '00001231'X ! Dynamic kernel tuning knobC PARAMETER SYI$_KTK_D9 = '00001232'X ! Dynamic kernel tuning knobD PARAMETER SYI$_KTK_D10 = '00001233'X ! Dynamic kernel tuning knobD PARAMETER SYI$_KTK_D11 = '00001234'X ! Dynamic kernel tuning knobD PARAMETER SYI$_KTK_D12 = '00001235'X ! Dynamic kernel tuning knob] PARAMETER SYI$_MIN_CPU_FEATURE_MASK = '00001236'X ! AMASK value of all CPUs ANDed togetherM PARAMETER SYI$_FIBRE_SCSI_RSV1 = '00001237'X ! reserved for Fibre SCSI use: PARAMETER SYI$_DEFUID = '00001238'X ! default POSIX UID: PARAMETER SYI$_DEFGID = '00001239'X ! default POSIX GID] PARAMETER SYI$_MVSUPMSG_INTVL = '0000123A'X ! Quiet mountver suppression interval -dynamicZ PARAMETER SYI$_MVSUPMSG_NUM = '0000123B'X ! Quiet mountver suppression number -dynamicB PARAMETER SYI$_SHADOW_SITE_ID = '0000123C'X ! Shadow Site valueN PARAMETER SYI$_RMSD2 = '0000123D'X ! Reserved to RMS development (dynamic) N PARAMETER SYI$_RMSD3 = '0000123E'X ! Reserved to RMS development (dynamic) N PARAMETER SYI$_RMSD4 = '0000123F'X ! Reserved to RMS development (dynamic) N PARAMETER SYI$_RMSD5 = '00001240'X ! Reserved to RMS development (dynamic) C PARAMETER SYI$_TESTING123 = '00001241'X ! Reserved for debuggingC PARAMETER SYI$_VCC_PAGESIZE = '00001242'X ! Reserved for XFC use? PARAMETER SYI$_VCC_RSVD = '00001243'X ! Reserved for XFC useQ PARAMETER SYI$_RSVD_IO_1 = '00001244'X ! Reserved for debug/future enhancementQ PARAMETER SYI$_RSVD_IO_2 = '00001245'X ! Reserved for debug/future enhancementR PARAMETER SYI$_RSVD_CLU_1 = '00001246'X ! Reserved for debug/future enhancementR PARAMETER SYI$_RSVD_CLU_2 = '00001247'X ! Reserved for debug/future enhancementS PARAMETER SYI$_RSVD_EXEC_1 = '00001248'X ! Reserved for debug/future enhancementS PARAMETER SYI$_RSVD_EXEC_2 = '00001249'X ! Reserved for debug/future enhancementT PARAMETER SYI$_RSVD_SECUR_1 = '0000124A'X ! Reserved for debug/future enhancementT PARAMETER SYI$_RSVD_SECUR_2 = '0000124B'X ! Reserved for debug/future enhancementR PARAMETER SYI$_RSVD_LAN_1 = '0000124C'X ! Reserved for debug/future enhancementR PARAMETER SYI$_RSVD_LAN_2 = '0000124D'X ! Reserved for debug/future enhancement\ PARAMETER SYI$_SHADOW_REC_DLY = '0000124E'X ! Time to wait after crash before merge start; PARAMETER SYI$_SHADOW_D1 = '0000124F'X ! Shadowing spare; PARAMETER SYI$_SHADOW_D2 = '00001250'X ! Shadowing spare; PARAM ETER SYI$_SHADOW_D3 = '00001251'X ! Shadowing spare; PARAMETER SYI$_SHADOW_D4 = '00001252'X ! Shadowing spare; PARAMETER SYI$_SHADOW_D5 = '00001253'X ! Shadowing spare? PARAMETER SYI$_WBM_D1 = '00001254'X ! Write Bit Map for HBMMM PARAMETER SYI$_TTY_DEFCHAR3 = '00001255'X ! Terminal characteristics, 3nd ' ! longword only lower 16 attributes % ! upper 16 bits are Asian VMS bitsE PARAMETER SYI$_VHPT_SIZE = '00001256'X ! Size of VHPT on IA64 only[ PARAMETER SYI$_SHADOW_HBMM_RTC = '00001258'X ! HBMM Reset Threshold Check Timer IntervalJ PARAMETER SYI$_FCLAN_FRAME = '00001259'X ! Fibre Channel LAN frame sizeN PARAMETER SYI$_MAX_PFN_64 = '0000125A'X ! Returns contents of MMG$GQ_MAXPFNX PARAMETER SYI$_PFN_MEMORY_MAP_64 = '0000125B'X ! Returns a 64 bit physical memory mapK PARAMETER SYI$_CPU_SOCKETS = '0000125C'X ! Returns number of cpu sockets\ PARAMETER SYI$_ERLBUFFERPAG_S2 = '0000125D'X ! Number of pagelets per S2 error log bufferP PARAMETER SYI$_ERRORLOGBUFF_S2 = '0000125E'X ! Number of S2 error log buffers\ PARAMETER SYI$_SHADOW_PSM_RDLY = '0000125F'X ! Shadowing Per Served Member Recovery DelayX PARAMETER SYI$_SYSTEM_UUID = '00001260'X ! Returns the system UUID on Itanium systemsY PARAMETER SYI$_PLATF_SPT_D1 = '00001261'X ! Reserved to VMS platform support (dynamic)2 PARAMETER SYI$_PLATF_SPT_D2 = '00001262'X ! " 2 PARAMETER SYI$_PLATF_SPT_D3 = '00001263'X ! " 2 PARAMETER SYI$_PLATF_SPT_D4 = '00001264'X ! " W PARAMETER SYI$_PLATF_SPT_1 = '00001265'X ! Reserved to VMS platform support (static)/ PARAMETER SYI$_PLATF_SPT_2 = '00001266'X ! "1 PARAMETER SYI$_PLATF_SPT_3 = '00001267'X ! " 1 PARAMETER SYI$_PLATF_SPT_4 = '00001268'X ! " F PARAMETER SYI$_SWIS_LOG = '00001269'X ! Knob to change the swis log^ PARAMETER SYI$_EXECSTACKPAGES = '0000126A'X ! Number of pages for RMS EXEC ASB or RSE stack] PARAMETER SYI$_GB_CACHEALLMAX = '0000126B'X ! RMS global buffer cache whole file criteriona PARAMETER  SYI$_GB_DEFPERCENT = '0000126C'X ! RMS global buffer cache default percent criteriond PARAMETER SYI$_CPU_THREADING = '0000126D'X ! Knob to change how we deal with CPU hardware threadsO PARAMETER SYI$_CPU_POWER_MGMT = '0000126E'X ! Control Power Managment on IPFb PARAMETER SYI$_CPU_POWER_THRSH = '0000126F'X ! Idle Threshold necessary to use Power Managementd PARAMETER SYI$_SMP_CPU_BITMAP = '00001270'X ! (1024-bit) Map of CPUs eligible for participation iC ! (1024-bit) Map of CPUs! eligible for participation in SMP sye PARAMETER SYI$_IO_PRCPU_BITMAP = '00001271'X ! (1024-bit) Map of CPUs for fast path I/O processing? PARAMETER SYI$_LOCKRMWT = '00001272'X ! Lock Remaster Weight> PARAMETER SYI$_SAS_NAMING = '00001273'X ! SAS Device NamingC PARAMETER SYI$_ACTIVE_CPU_BITMAP = '00001274'X ! CBB bitmap data< PARAMETER SYI$_AVAIL_CPU_BITMAP = '00001275'X ! of CPUsC PARAMETER SYI$_POTENTIAL_CPU_BITMAP = '00001276'X ! in various= PARAMETER SYI$_POWERED_CPU_BI"TMAP = '00001277'X ! states: PARAMETER SYI$_PRESENT_CPU_BITMAP = '00001278'X ! ...? PARAMETER SYI$_COMPLEX_ID = '00001279'X ! Complex Profile IDC PARAMETER SYI$_COMPLEX_NAME = '0000127A'X ! Complex Profile NameC PARAMETER SYI$_HP_ID = '0000127B'X ! Hard Partition ID (nPar ID)I PARAMETER SYI$_HP_NAME = '0000127C'X ! Hard Partition Name (nPar Name)H PARAMETER SYI$_CELLULAR_PLATFORM = '0000127D'X ! System is cell-based< PARAMETER SYI$_BOOT_DEVICE = '0000127E'X ! sys$ar_boo#tucbU PARAMETER SYI$_HP_CORE_CNT = '0000127F'X ! Count of unique cores in hard partitiond PARAMETER SYI$_ACTIVE_CORE_CNT = '00001280'X ! Count of cores in hard partition with at least oneC ! Count of cores in hard partition with at least one active Ld PARAMETER SYI$_SSIO_SYNC_INTVL = '00001281'X ! Interval at which dirty shared stream I/O buffers - ! written to disk by process doing sync()b PARAMETER SYI$_SCH_SOFT_OFFLD = '00001282'X ! Bitmap of CPUs sometimes excluded from sc$hedulingX PARAMETER SYI$_SCH_HARD_OFFLD = '00001283'X ! Bitmap of CPUs excluded from schedulingd PARAMETER SYI$_SCHED_FLAGS = '00001284'X ! Reserved cell for sched noodling, replaces parameter SC ! Reserved cell for sched noodling, replaces parameter SCH_CTL ! ADD 'EXE' (LONGWORD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ********L ! DO NOT ADD 'FLD' (FIELD) ITEMS HERE!!!! ADD THEM BEFORE 'LASTFLD' ******5 PARAMETER SYI$_LASTEXE = '00001285'X ! LAST INDEX < ! The following item %-codes are for 'sub-field data' items.: ! There usually exists another item-code to retrieve the< ! whole parent cell (longword) - in the EXE section above.. PARAMETER SYI$_CPU = '00002000'X ! CPU typeB PARAMETER SYI$_BUGREBOOT = '00002001'X ! Bugcheck reboot enableH PARAMETER SYI$_CRDENABLE = '00002002'X ! Memory error checking enable> PARAMETER SYI$_DUMPBUG = '00002003'X ! Bugcheck dump enableJ PARAMETER SYI$_BUGCHECKFATAL = '00002004'X ! All bugchecks become fatalJ PARAMETER SYI&$_ACP_MULTIPLE = '00002005'X ! New ACP for each disk classI PARAMETER SYI$_NOAUTOCONFIG = '00002006'X ! Auto configuration inhibit@ PARAMETER SYI$_NOCLOCK = '00002007'X ! Interval timer inhibitH PARAMETER SYI$_NOCLUSTER = '00002008'X ! Page read clustering inhibitH PARAMETER SYI$_POOLPAGING = '00002009'X ! Enable paging of paged poolI PARAMETER SYI$_SBIERRENABLE = '0000200A'X ! SBI error detection enableL PARAMETER SYI$_SETTIME = '0000200B'X ! Force entry of time at system bootD' PARAMETER SYI$_ACP_SHARE = '0000200C'X ! Enable sharing of F11ACPH PARAMETER SYI$_SYSPAGING = '0000200D'X ! Enable paging of system codeR PARAMETER SYI$_UAFALTERNATE = '0000200E'X ! Select alternate authorization fileQ PARAMETER SYI$_WRITABLESYS = '0000200F'X ! Leave system writable for debuggingN PARAMETER SYI$_RESALLOC = '00002010'X ! Enable resource allocation checkingQ PARAMETER SYI$_SSINHIBIT = '00002011'X ! Inhibit system services for processesJ PARAMETER SYI$_CONCEAL_DEVICE(S = '00002012'X ! Enable concealed devicesI PARAMETER SYI$_SAVEDUMP = '00002013'X ! Save dump if it's in page fileQ PARAMETER SYI$_MOUNTMSG = '00002014'X ! Enable oper notification of vol mountsP PARAMETER SYI$_DISMOUMSG = '00002015'X ! Enable oper notification of vol dismL PARAMETER SYI$_LOADERAPT = '00002016'X ! Load alt erase pattern generatorN PARAMETER SYI$_LOADCHKPRT = '00002017'X ! Load alt protection check routineF PARAMETER SYI$_XCPU = '00002018'X ! CPU subtype (Extended) SID info)E PARAMETER SYI$_CJFLOAD = '00002019'X ! Load common journaling codeN PARAMETER SYI$_CJFSYSRUJ = '0000201A'X ! Load recovery unit journaling code? PARAMETER SYI$_NODE_AREA = '0000201B'X ! System ID node areaC PARAMETER SYI$_NODE_NUMBER = '0000201C'X ! System ID node numberI PARAMETER SYI$_CLASS_PROT = '0000201D'X ! Non-discretionary check flag[ PARAMETER SYI$_CHARACTER_EMULATED = '0000201E'X ! Character string instructions emulatedW PARAMETER SYI$_DECIMAL_EMULATED = '*0000201F'X ! Decimal string instructions emulatedS PARAMETER SYI$_D_FLOAT_EMULATED = '00002020'X ! D floating instructions emulatedS PARAMETER SYI$_F_FLOAT_EMULATED = '00002021'X ! F floating instructions emulatedS PARAMETER SYI$_G_FLOAT_EMULATED = '00002022'X ! G floating instructions emulatedS PARAMETER SYI$_H_FLOAT_EMULATED = '00002023'X ! H floating instructions emulatedX PARAMETER SYI$_LOADMTACCESS = '00002024'X ! Load installation specific access routine: PARAMETER SYI$_AC+P_XQP_RES = '00002025'X ! Resident XQP` PARAMETER SYI$_WRITESYSPARAMS = '00002026'X ! Write active parameters to the system .PAR fileQ PARAMETER SYI$_LGI_BRK_TERM = '00002027'X ! Use term name in breakin detectionQ PARAMETER SYI$_LGI_BRK_DISUSER = '00002028'X ! Disable user account on breakinT PARAMETER SYI$_ACP_REBLDSYSD = '00002029'X ! Rebuild system disk when mounting itI PARAMETER SYI$_WS_OPA0 = '0000202A'X ! Workstation using QVSS for OPA0K PARAMETER SYI$_NOPGFLSWP = '0000202,B'X ! Inhibit swapping into pagefilesY PARAMETER SYI$_LOAD_SYS_IMAGES = '0000202D'X ! Control of how system images are loadedR PARAMETER SYI$_NISCS_CONV_BOOT = '0000202E'X ! Allow remote conversational bootM PARAMETER SYI$_NISCS_LOAD_PEA0 = '0000202F'X ! Load NI-SCS driver for PEA0T PARAMETER SYI$_SA_APP = '00002030'X ! Booting stand-alone application (SA-BACKUP)T PARAMETER SYI$_LOAD_PWD_POLICY = '00002031'X ! Load site-specific password policyI PARAMETER SYI$_FT_ACTIVE = '0000203-2'X ! CIRRUS system is fully activeN PARAMETER SYI$_WLKSYSDSK = '00002034'X ! Booting with write locked sys disk] PARAMETER SYI$_DBGTK_LOADED = '00002035'X ! Remote system debugger target kernel is loadedU PARAMETER SYI$_DAY_OVERRIDE = '00002036'X ! UAF day classifications are overriddenP PARAMETER SYI$_DAY_SECONDARY = '00002037'X ! UAF day override is to SecondaryE PARAMETER SYI$_CWLOGICALS = '00002038'X ! State of CAP_CWLOGICALS D PARAMETER SYI$_POWEROFF = '00002039'X ! Enabl.e software power-offX PARAMETER SYI$_MPDEV_ENABLE = '0000203A'X ! Multipath I/O switching control parameterd PARAMETER SYI$_MPDEV_REMOTE = '0000203B'X ! Multipath I/O switching control parameter for remote J PARAMETER SYI$_MPDEV_POLLER = '0000203C'X ! Multipath poller parameter ? PARAMETER SYI$_LCKMGR_MODE = '0000203D'X ! Lock Manager ModeC PARAMETER SYI$_LCKMGR_RSVD = '0000203E'X ! Lock Manager ReservedB PARAMETER SYI$_LCKMGR_CPUID = '0000203F'X ! Lock Manager CPU IDO PARAMETER S/YI$_PERSISTENT_RES = '00002040'X ! Fibre SCSI Reservation SupportN PARAMETER SYI$_SYSSER_LOGGING = '00002041'X ! Enable system service loggingU PARAMETER SYI$_SCSI_ERROR_POLL = '00002042'X ! Enable polling to flush SCSI errorsS PARAMETER SYI$_SSI_ENABLE = '00002043'X ! Enable system service intercept on I64d PARAMETER SYI$_VIRTUAL_MACHINE = '00002044'X ! True if we're running on a VMS guest under HPVM --C ! True if we're running on a VMS guest under HPVM -- useful oL ! ADD 'F 0LD' (FIELD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ***********L ! DO NOT ADD 'EXE' (LONGWORD) ITEMS HERE!!!! ADD THEM BEFORE 'LASTEXE' ***5 PARAMETER SYI$_LASTFLD = '00002045'X ! LAST INDEX = ! ) equals SYI$C_FLDTYPE@12 increment 1 prefix SYI tag $; ! *C ! * THE FOLLOWING DEFINITIONS EXIST FOR COMPATIBILITY WITH THE 1ST9 ! * IMPLEMENTATION OF SYS$GETSYI. DO NOT CHANGE THEM!!!: ! * ADD NEW GETSYI ITEM-CODES ONLY TO THE PREVIOUS LISTS. ! *@ PARAMETER SYI$C_SFWTYPE = '00000001'X 1 ! SYSTEM SOFTWARE ITEM 9 PARAMETER SYI$C_HDWTYPE = '00000002'X ! HARDWARE ITEM = PARAMETER SYI$C_LISTEND = '00000000'X ! ITMLST TERMINATOR # ! IDENTIFIER FOR SYSTEM SOFTWARE @ PARAMETER SYI$_OLDVERSION = '00000100'X ! VMS VERSION NUMBER 5 PARAMETER SYI$_LASTSFW = '00000101'X ! LAST INDEX G ! *******************************************************************G ! ********************* BEGIN TEMP FIX ******************************G ! ********************* BEGIN TEMP FIX ***** 2*************************G ! *******************************************************************< ! ) equals SYI$C_SFWTYPE@8 increment 1 prefix SYI tag $;G ! *******************************************************************G ! ********************** END TEMP FIX *******************************G ! ********************** END TEMP FIX *******************************G ! *******************************************************************! ! IDENTIFIER FOR HARDWARE TYPE 2 PARAMETER 3 SYI$_OLDCPU = '00000200'X ! CPU TYPE < PARAMETER SYI$_OLDSID = '00000201'X ! SYSTEM ID REGISTER 5 PARAMETER SYI$_LASTHDW = '00000202'X ! LAST INDEX > ! ) equals SYI$C_HDWTYPE@8 increment 1 prefix SYI tag $;F ! Define constant for the length of environmental vector item codes G ! (POWER_VECTOR, TEMPERATURE_VECTOR, THERMAL_VECTOR, and FAN_VECTOR).0 PARAMETER SYI$K_ENV_VECTOR_LENGTH = '00000010'XC ! Define status code for each element in the environmental vector0 PARAMETER SYI$K 4_ENV_STATUS_FAILED = '00000000'X, PARAMETER SYI$K_ENV_STATUS_OK = '00000001'X5 PARAMETER SYI$K_ENV_STATUS_NOT_PRESENT = '000000FF'X1 PARAMETER SYI$K_ENV_STATUS_UNKNOWN = '000000FE'X. ! Define the SYI$_ARCH_TYPE return constantsD PARAMETER SYI$K_ARCH_OTHER = '00000000'X ! Unknown SYI$_ARCH_TYPE< PARAMETER SYI$K_ARCH_VAX = '00000001'X ! VAX Architecture@ PARAMETER SYI$K_ARCH_ALPHA = '00000002'X ! Alpha ArchitectureE PARAMETER SYI$K_ARCH_IA64 = '00000003'X ! IA-64 (IPF) Architecture 5!DEC$ END OPTIONS ww9LΦ!*** MODULE $SYSEVTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNS PARAMETER SYSEVT$C_ALL_EVENTS = '00000001'X ! Valid for $Clear_system_event only] PARAMETER SYSEVT$C_ADD_GALAXY_MEMBER = '00000002'X ! One or more instances have joined the ! Galaxy community[ PARAMETER SYSEVT$C_DEL_GALAXY_MEMBER = '00000003'X ! One or more instances have left the ! Galaxy communityX PARAMETER SYSEVT$C_ADD_ACTIVE_CPU = '00000004'X 6! One or more CPUs have become active ! within this VMS instanceY PARAMETER SYSEVT$C_DEL_ACTIVE_CPU = '00000005'X ! One or more CPU have become inactiveY PARAMETER SYSEVT$C_ADD_CONFIG_CPU = '00000006'X ! One or more CPUs are now part of the$ ! configure set for this instance.] PARAMETER SYSEVT$C_DEL_CONFIG_CPU = '00000007'X ! One or more CPUS have left this instanceb PARAMETER SYSEVT$C_CONFIG_TREE = '00000008'X ! An update has occurred to the Galaxy config tree_ PARAMETER SYSEVT$7C_FASTPATH_CPUS = '00000009'X ! A modification has been made to the system  ! parameter, IO_PREFER_CPUS.I PARAMETER SYSEVT$C_TDF_CHANGE = '0000000A'X ! time differential changeD PARAMETER SYSEVT$C_CPU_POWER = '0000000B'X ! CPU power transitionS PARAMETER SYSEVT$C_INDICTMENT = '0000000C'X ! Component Indictment was performedD PARAMETER SYSEVT$C_MAX_EVENT = '0000000D'X ! maximum event numberA PARAMETER SYSEVT$C_NUM_EVENTS = '0000000C'X ! Number of events, PARAMETER SYSEVT$K_NUM_ 8EVENTS = '0000000C'XK PARAMETER SYSEVT$M_NOTIFY_ONCE = '00000000'X ! indicate one shot requestd PARAMETER SYSEVT$M_REPEAT_NOTIFY = '00000001'X ! Bit 0 represents whether the event notification d PARAMETER SYSEVT$V_REPEAT_NOTIFY = '00000000'X ! one shot deal or should be a repeating notificat!DEC$ END OPTIONS wwΦ! ********************************************************************************************************************************;! Created: 30-AUG-20097 11:30:29 by OpenVMS SDL IA64-2 \! Source: 30-AUG-2007 11:30:28 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]$SYSSRVNAM.SDI;1 ! ******************************************************************************************************************************** !*** MODULE STARLET ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! SYSTEM SERVICE ENTRY POINT DESCRIPTIONS !  ! ! $ACM[W] ! 0 ! Authentication and Credentials Management ! 2 ! $ACM[W:] [efn], func, [contxt], itmlst, acmsb, ! [astadr], [astprm] ! > ! efn = number of event flag to set at service completion" ! (read only, passed by value): ! func = function code and modifiers specifying action ! to be performed" ! (read only, passed by value)= ! contxt = context longword, used to maintain service state ! across iterative calls# ! (modify, passed by reference)% ! itmlst = list of item descriptors& ! (read only, passed by reference); ! acmsb = ACM status block' ! (write only, passed by reference)< ! astadr = procedure value for AST routine to be called at ! service completion) ! (execute only, passed by reference)A ! astprm = value to be passed as an argument to the AST routine ! (passed by value) !  INTEGER*4 SYS$ACM EXTERNAL SYS$ACM INTEGER*4 SYS$ACMW EXTERNAL SYS$ACMW !  ! $ADD_HOLDER ! / ! Add Holder Record To The Rights Database ! $ ! $ADD_HOLDER id, holder, [att<rib] ! - ! id = identifier longword to associate the ! holder record with6 ! holder = address of the holder identifier quadword7 ! attrib = attributes longword to grant to the holder INTEGER*4 SYS$ADD_HOLDER EXTERNAL SYS$ADD_HOLDER !  ! $ADD_IDENT ! , ! Add Identifier To The Rights Database ! , ! $ADD_IDENT name, [id], [attrib], [resid] ! 3 ! name = address of the identifier name character ! string descriptor5 ! id = identifier longword to asso=ciate with 'name'0 ! attrib = attributes longword to grant to the ! identifier8 ! resid = address of a longword to return the assigned ! identifier !  INTEGER*4 SYS$ADD_IDENT EXTERNAL SYS$ADD_IDENT !  ! $ADD_MAPPING ! - ! Add Mapping record to Mapping database !  ! $ADD_MAPPING initmlst ! K ! initmlst = address of a list of item descriptors for the operation !  INTEGER*4 SYS$ADD_MAPPING EXTERNAL SYS$ADD_MAPPING !  ! $ADD_>PROXY !  ! Add proxy record ! < ! $ADD_PROXY rem_node, rem_user, local_user, [flags] ! 8 ! rem_node in address of remote node descriptor8 ! rem_user in address of remote user descriptor7 ! local_user in address of local user descriptor( ! flags in proxy service flags !  INTEGER*4 SYS$ADD_PROXY EXTERNAL SYS$ADD_PROXY ! ! $ADJSTK ! & ! Adjust Outer Mode Stack Pointer ! + ! $ADJSTK [acmode] ,[adjust] ,newadr? ! ? ! acmode = access mode for which to adjust stack pointer0 ! adjust = 16-bit signed adjustment value< ! newadr = address of longword to store updated value !  INTEGER*4 SYS$ADJSTK EXTERNAL SYS$ADJSTK ! ! $ADJWSL !  ! Adjust Working Set Limit ! # ! $ADJWSL [pagcnt] ,[wsetlm] ! G ! pagcnt = number of pages to add to working set (if positive).G ! Number of pages to subtract from working set (if ! @ negative).G ! wsetlm = address of longword to receive new working set limit,G ! or current working set limit if pagcnt not specified. !  INTEGER*4 SYS$ADJWSL EXTERNAL SYS$ADJWSL ! ! $ALLOC !  ! Allocate Device ! = ! $ALLOC devnam ,[phylen] ,[phybuf] ,[acmode] ,[flags] ! G ! devnam = address of device name or logical name string ! descriptorD ! phylen = address of word to receive length of phyAsical name< ! phybuf = address of physical name buffer descriptor> ! acmode = access mode associated with allocated device# ! flags = options flags longword !  INTEGER*4 SYS$ALLOC EXTERNAL SYS$ALLOC ! ! $ASCEFC ! * ! Associate Common Event Flag Cluster ! + ! $ASCEFC efn ,name ,[prot] ,[perm] ! G ! efn = number of any event flag in the cluster with which to ! associate< ! name = address of the text name strinBg descriptor6 ! prot = protection indicator for the cluster4 ! 0 -> default, any process in group' ! 1 -> only owner's UIC% ! perm = permanent indicator( ! 0 -> temporary cluster( ! 1 -> permanent cluster !  INTEGER*4 SYS$ASCEFC EXTERNAL SYS$ASCEFC ! ! $ASCTIM ! * ! Convert Binary Time to ASCII String ! 6 ! $ASCTIM [timlen] ,timbuf ,[timadr] ,[cvtflg] ! G ! timlen = address Cof a word to receive the number of characters2 ! inserted into the output buffer.G ! timbuf = address of a character string descriptor describing; ! the buffer to receive the converted time.G ! timadr = address of the quadword containing the 64-bit time toA ! be converted to ASCII. If 0, use current time.& ! cvtflg = conversion indicator0 ! 0 -> return full date and time1 ! 1 -> return converteDd time only !  INTEGER*4 SYS$ASCTIM EXTERNAL SYS$ASCTIM ! ! $ASCTOID ! % ! Ascii To Identifier Conversion ! ! ! $ASCTOID name, [id], [attrib] ! 3 ! name = address of the identifier name character( ! string descriptor to be converted2 ! id = address to return the identifier longword6 ! attrib = address to return the attributes longword !  INTEGER*4 SYS$ASCTOID EXTERNAL SYS$ASCTOID ! ! $ASCUTC ! 5 ! Convert Binary UTC time into ASCI EI time string ! 0 ! $ASCUTC [timlen], timbuf, [utcadr], [cvtflg] ! 2 ! timlen = Length (in bytes) of the ASCII string/ ! returned by $ASCUTC. The timelen argument6 ! is the address of a word containing this length.? ! timbuf = Buffer into which $ASCUTC writes the ASCII string.7 ! The timbuf argument is the address of a character3 ! string descriptor pointing to the bufer. The5 ! buffer length specified in the timbuf argument,7 ! together rwith the cvtflg argu Fment, controls what ! information is returned.> ! utcadr = Time value that $ASCUTC is to convert. The utcadr9 ! argument is the address of this 128-bit time value.4 ! Relative times are not permitted. If utcadr is9 ! not specified ( ie 0 ), $ASCUTC returns the current ! date and time.@ ! cvtflg = Conversion indicator specifying which date and time; ! fields $ASCUTC should return. The cvtflg argument is8 ! a longword value, which is interpreted as Boolean.: ! GThe value 1 specifies that ASCUTC should return only? ! the hour,minute,second, and hundreths of a second fields.> ! The default value 0 specifies that $ASCUTC should return ! the full date and time. !  INTEGER*4 SYS$ASCUTC EXTERNAL SYS$ASCUTC ! ! $ASSIGN !  ! Assign I/O Channel ! ; ! $ASSIGN devnam ,chan ,[acmode] ,[mbxnam], [flags] ! G ! devnam = address of device name or logical name string ! descriptorD ! H chan = address of word to receive channel number assigned5 ! acmode = access mode associated with channelG ! mbxnam = address of mailbox logical name string descriptor, if0 ! mailbox associated with deviceC ! flags = optional channel flags longword for specifying options ! for the $ASSIGN operation !  INTEGER*4 SYS$ASSIGN EXTERNAL SYS$ASSIGN !  ! $AUDIT_EVENT ! $ ! Audit Security Relevant Event ! M ! $AUDIT_EVENT(W) [efn]I, [flags], itmlst, [audsts], [astadr], [astprm] ! 3 ! efn = number of event flag to set on completion ! ! flags = input flags longword ! 0 ! itmlst = address of list of item descriptors ! C ! audsts = address of longword to receive final completion status ! . ! astadr = address of AST completion routine ! : ! astprm = unsigned longword to be passed to AST routine !  INTEGER*4 SYS$AUDIT_EVENT EXTERNAL SYS$AUDIT_EVENT INTEGER*4 SYS$AUDIT_EVENTW EXTERNAL SYJS$AUDIT_EVENTW ! ! $BINTIM ! * ! Convert ASCII String to Binary Time ! ! $BINTIM timbuf ,timadr ! D ! timbuf = address of string descriptor for ASCII time stringG ! timadr = address of quadword to receive 64-bit binary time ! value ! ? ! Absolute time strings are specified in the format:) ! dd-mmm-yyyy hh:mm:ss.cc< ! Delta time strings are specified in the format:" ! dddd hh:Kmm:ss.cc !  INTEGER*4 SYS$BINTIM EXTERNAL SYS$BINTIM ! ! $BINUTC ! 0 ! Convert ASCII UTC time to a binary format ! ! $BINUTC timbuf, utcadr ! > ! timbuf = Buffer that holds the ASCII time to be converted.4 ! The timbuf argument specifies the address of a5 ! character string descriptor pointing to the VMS4 ! time string. The VMS time string specifies the0 ! absolute time to be converted by $BINUTC.8 ! utcadr = Time value that $BINUTC has conLverted. The9 ! utcadr argument is the address of the utc_date_time) ! which receives the converted time. !  INTEGER*4 SYS$BINUTC EXTERNAL SYS$BINUTC ! ! $BRDCST !  ! Broadcast ! " ! $BRDCST msgbuf ,[devnam] ! ? ! msgbuf = address of message buffer string descriptorG ! devnam = terminal device name string descriptor. If 0, sendG ! message to all terminals. If first word inG ! descriptorM is 0, send message to all allocated ! terminals. !  INTEGER*4 SYS$BRDCST EXTERNAL SYS$BRDCST ! $BRKTHRU ! " ! Write to terminal breakthru ! ? ! $BRKTHRU [efn] ,msgbuf, [sendto], [sndtyp], [iosb],5 ! ($BRKTHRUW) [carcon], [flags], [reqid], [timout], ! [astadr], [astprm] ! 3 ! efn = event flag to be set at completion ! 5 ! msgbuf = address of message buffer descriptor ! 3 ! sendto = address of send aNddress descriptor ! ) ! sndtyp = value to describe sendto ! 7 ! iosb = address of a quadword I/O status block ! ! ! carcon = carriage control ! ) ! flags = flags to modify broadcast ! , ! reqid = broadcast class requestor id ! ) ! timout = address of timeout value ! 5 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as an argument !  !  INTEGER*4 SYS$BRKTHRU EXTERONAL SYS$BRKTHRU INTEGER*4 SYS$BRKTHRUW EXTERNAL SYS$BRKTHRUW ! ! $CANCEL !  ! Cancel I/O on Channel !  ! $CANCEL chan ! F ! chan = number of the channel on which I/O is to be canceled !  INTEGER*4 SYS$CANCEL EXTERNAL SYS$CANCEL !  ! $CANCEL_SELECTIVE ! & ! Selective Cancel I/O on Channel ! 5 ! $CANCEL_SELECTIVE chan, [iosblst], [lenlst] ! G ! chan = number of the channel on which I/O is to be canceled7 ! P iosblst = address of a vector of IOSB pointersE ! lenlst = number of entries in the vector pointed by iosblst !  INTEGER*4 SYS$CANCEL_SELECTIVE EXTERNAL SYS$CANCEL_SELECTIVE ! $CANEVTAST ! " ! Cancel an Event AST Routine ! M ! $CANEVTAST [evtnam], [evtadr], [evtfac], [acmode], [flags], [reqid] ! ,[evtid] ! 4 ! evtnam = address of descriptor of event name ! ; ! evtadr = address of entry mask of event AST routine ! / ! Qevtfac = address of event facility code ! 1 ! acmode = access mode of event declaration ! * ! flags = address of optional flags ! = ! reqid = user provided identification of this request ! 6 ! evtid = unique identification of this request !  INTEGER*4 SYS$CANEVTAST EXTERNAL SYS$CANEVTAST ! ! $CANEXH !  ! Cancel Exit Handler !  ! $CANEXH [desblk] ! G ! desblk = address of exit control block describing exit handlerR3 ! to be deleted. If 0, delete all. !  INTEGER*4 SYS$CANEXH EXTERNAL SYS$CANEXH ! ! $CANTIM !  ! Cancel Timer Request ! $ ! $CANTIM [reqidt] ,[acmode] ! G ! reqidt = request identification for request to be canceled.. ! If 0, all requests canceled.8 ! acmode = access mode of requests to be canceled !  INTEGER*4 SYS$CANTIM EXTERNAL SYS$CANTIM ! ! $CANWAK !  ! Cancel Wakeup ! $ ! S $CANWAK [pidadr] ,[prcnam] ! G ! pidadr = address of process identification of process for2 ! which wakeups are to be canceled; ! prcnam = address of process name string descriptor !  INTEGER*4 SYS$CANWAK EXTERNAL SYS$CANWAK ! $CHANGE_ACL ! $ ! Set or modify an object's ACL ! ) ! $CHANGE_ACL [chan], objtyp, [objnam], ! itmlst, [acmode], [iosb],# ! [contxt] , [routin], [orbadr] ! : ! chan = number of a channel assigTned to the object or7 ! 0 if object is specified by the objnam parameter ! + ! objtyp = address of an object type code ! # ! objnam = address of object name ! 2 ! itmlst = address of a list of item descriptors ! < ! acmode = address of a byte containing the access mode in+ ! which the arguments will be validated ! 3 ! iosb = address of a quadword I/O status block ! ? ! contxt = address of a context long word (used for iterative' ! calls or a multi-entUry item list) ! = ! routin = address of routine to be executed in kernel mode ! (obsolete) ! + ! orbadr = address of a user supplied ORB !  INTEGER*4 SYS$CHANGE_ACL EXTERNAL SYS$CHANGE_ACL+ ! $CHANGE_CLASS objtyp, [objnam], itmlst ! [acmode], [orbadr] ! % ! Modify an objects access class ! / ! objtyp = address of an object type code ! 5 ! objnam = address of an object name descriptor ! 6 ! itmlst = address of a list of item descrViptors ! @ ! acmode = address of a byte containing the access mode in* ! which the arguments will be validated ! A ! orbadr = address of routine to be executed in kernel mode !  !  INTEGER*4 SYS$CHANGE_CLASS EXTERNAL SYS$CHANGE_CLASS ! $CHECK_ACCESS ! C ! $CHECK_ACCESS [objtyp], [objnam], [usrnam], itmlst, [contxt],$ ! [clsnam], [objpro], [usrpro] ! % ! Check User Access to an Object ! / ! objtyp = address of an object type code !W 5 ! objnam = address of an object name descriptor ! 2 ! usrnam = address of a user name descriptor ! 6 ! itmlst = address of a list of item descriptors ! 4 ! contxt = address of longword for UAI context ! 8 ! clsnam = address of object class name descriptor ! I ! objpro = address of object profile descriptor(ORB TLV or channel) ! = ! usrpro = address of user profile descriptor (ARB TLV) !  INTEGER*4 SYS$CHECK_ACCESS EXTERNAL SYS$XCHECK_ACCESS ! $CHECK_FEN ! 8 ! Check if floating point enabled for current image !  INTEGER*4 SYS$CHECK_FEN EXTERNAL SYS$CHECK_FEN ! $CHECK_PRIVILEGE[W] ! > ! Check for process privilege and perform security audit. ! d ! $CHECK_PRIVILEGE[W] [efn] ,prvadr ,[altprv] ,[flags] ,[itmlst] ,[audsts] ,[astadr] ,[astprm] ! G ! efn = event flag to set on asynchronous service completionL ! prvadr = address of quadword privilege mask or longword idYentifier@ ! altprv = address of quadword privilege mask to check against ! flags = control flags8 ! itmlst = address of a list of item descriptors> ! audsts = longword to receive final completion statusG ! astadr = address of AST routine to call on service completion2 ! astprm = longword to pass to AST routine !  INTEGER*4 SYS$CHECK_PRIVILEGE EXTERNAL SYS$CHECK_PRIVILEGE INTEGER*4 SYS$CHECK_PRIVILEGEW EXTERNAL SYS$CHECK_PRIVILEGEW ! ! $ZCHKPRO !  ! Check Access Protection ! + ! $CHKPRO itmlst, [objpro], [usrpro] ! 2 ! itmlst = address of a list of item descriptors? ! objpro = address of object handle descriptor (ORB TLV)= ! usrpro = address of user handle descriptor (ARB TLV) !  INTEGER*4 SYS$CHKPRO EXTERNAL SYS$CHKPRO ! $CLEAR_SYSTEM_EVENT ! & ! Clear System Event Notification ! 7 ! $CLEAR_SYSTEM_EVENT [handle], [acmode], [event] ! " ! handle = address of [handle ! # ! acmode = access mode of AST ! / ! event = code indicating type of event ! ! INTEGER*4 SYS$CLEAR_SYSTEM_EVENT EXTERNAL SYS$CLEAR_SYSTEM_EVENT ! $CLEAR_UNWIND_TABLE ! , ! Clears unwind table (UT) information. ! $ ! $CLEAR_UNWIND_TABLE code_base_va ! S ! code_base_va = process virtual address of the start of a registered code region ! ! INTEGER*4 SYS$CLEAR_UNWIND_TABLE EXTERNAL SYS$CLEAR_UNWIND_TABLE ! $CLRCLUEVT ! ' ! C\lear Cluster Event Notification ! . ! $CLRCLUEVT [handle], [acmode], [event] ! " ! handle = address of handle ! # ! acmode = access mode of AST ! / ! event = code indicating type of event !  INTEGER*4 SYS$CLRCLUEVT EXTERNAL SYS$CLRCLUEVT ! ! $CLREF !  ! Clear Event Flag !  ! $CLREF efn ! 4 ! efn = number of event flag to be cleared !  INTEGER*4 SYS$CLREF EXTERNAL SYS$CLREF ! ! $CLOSE !  !] Close File ! ! ! $CLOSE fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$CLOSE EXTERNAL SYS$CLOSE ! ! $CMEXEC !  ! Change to Executive Mode ! " ! $CMEXEC routin ,[arglst] ! G ! routin = address of the routine to be executed in executive ! modeG ! arglst = address of argu^ment list to be supplied to the ! routine !  INTEGER*4 SYS$CMEXEC EXTERNAL SYS$CMEXEC !  ! $CMEXEC_64 ! ; ! Change to Executive Mode with Quadword Argument List ! + ! $CMEXEC_64 routin_64 ,[arglst_64] ! J ! routin_64 = address of the routine to be executed in executive ! modeS ! arglst_64 = address of quadword argument list to be supplied to the ! routine !  INTEGER*4 SYS$C_MEXEC_64 EXTERNAL SYS$CMEXEC_64 ! $CMKRNL !  ! Change to Kernel Mode ! ! ! $CMKRNL routin ,[arglst] ! A ! routin = address of routine to be executed in kernel mode ! C ! arglst = address of argument list to be supplied to routine !  INTEGER*4 SYS$CMKRNL EXTERNAL SYS$CMKRNL ! $CMKRNL_64 ! 8 ! Change to Kernel Mode with Quadword Argument List ! * ! $CMKRNL_64 routin_64 ,[arglst_64] ! D ! routin_64 = address of routine` to be executed in kernel mode ! O ! arglst_64 = address of quadword argument list to be supplied to routine !  INTEGER*4 SYS$CMKRNL_64 EXTERNAL SYS$CMKRNL_64 ! ! $CONNECT !  ! Connect File ! # ! $CONNECT rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$CONNECT EXTERNAL SYS$CONNECT ! $CNTREG ! & ! a Contract Program/Control Region ! 5 ! $CNTREG pagcnt ,[retadr] ,[acmode] ,[region] ! A ! pagcnt = number of pages to be deleted from end of region ! F ! retadr = address of 2-longword array to receive virtual> ! addresses of starting and ending page of deleted area ! ; ! acmode = access mode for which service is performed ! ! ! region = region indicator< ! 0 -> program (P0) region 1 -> control (P1) region !  INTEGER*4 SYSb$CNTREG EXTERNAL SYS$CNTREG !  ! $CPU_CAPABILITIES ! # ! Modify CPU user capabilities ! R ! $CPU_CAPABILITIES cpu_id,[select_mask],[modify_mask],[prev_mask],[flags] ! @ ! cpu_id = CPUID number of processor to be affected by changesB ! select_mask = address of bitmask indicating which capabilities3 ! are to be involved in the specified operation; ! modify_mask = address of bitmask indicating final state3 ! of those capabilities specified in select_mask;c ! prev_mask = address of user quadword that will hold the3 ! previous states of the individual capabilities: ! flags = address of behavioral flags for this operation !  INTEGER*4 SYS$CPU_CAPABILITIES EXTERNAL SYS$CPU_CAPABILITIES !  ! $CPU_TRANSITION ! $CPU_TRANSITIONW !  ! CPU State Transitions ! Q ! $CPU_TRANSITION tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprmR ! $CPU_TRANSITIONW tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astpdrmP ! Inputs: tran_code - Transition code of operation to be initiatedC ! cpu_id - CPU ID of processor to affected= ! nodename - ASCII descriptor name equivalent to node ID4 ! node_id - Galactic node IDQ ! flags - Quadword pointer to longword behavioral flagsQ ! efn - Event flag number for completion notificationR ! iosb - IOSB block address for compleetion notificationM ! astadr - Address of AST routine name on completionQ ! astprm - AST parameter to be passed back on completion< ! timout - Timeout count in seconds !  INTEGER*4 SYS$CPU_TRANSITION EXTERNAL SYS$CPU_TRANSITION INTEGER*4 SYS$CPU_TRANSITIONW EXTERNAL SYS$CPU_TRANSITIONW ! ! $CREATE !  ! Create File ! " ! $CREATE fab, [err], [suc] !  ! fab = address of fab !f 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$CREATE EXTERNAL SYS$CREATE !  ! $CREATE_MAPPING ! % ! Create Mapping record database !  ! $CREATE_MAPPING !  INTEGER*4 SYS$CREATE_MAPPING EXTERNAL SYS$CREATE_MAPPING !  ! $CREATE_PROXY !  ! Create proxy database !  ! $CREATE_PROXY !  !  INTEGER*4 SYS$CREATE_PROXY EXTERNAL SYS$CREATE_PROXY !g  ! $CREATE_UID ! $ ! Create a Universal Identifier !  ! $CREATE_UID UID ! ; ! UID = address of the 16 byte buffer to receive the UID. !  INTEGER*4 SYS$CREATE_UID EXTERNAL SYS$CREATE_UID ! $CREATE_BUFOBJ !  ! Create I/O Buffer Object ! I ! $CREATE_BUFOBJ inadr ,[retadr] ,[acmode] ,[flags] ,buffer_handle ! M ! inadr = address of 2-longword array containing starting and endingM ! virtual addresses of existing VA to ihnclude in buffer object ! F ! retadr = address of 2-longword array to receive addresses7 ! actually included in the buffer object ! 6 ! acmode = access mode of owner of buffer object ! % ! flags = request option flags !  ! Bit Meaning (if set) ! E ! 0 Return system virtual address of buffer object in RETADR% ! (Caller must be in kernel mode) ! F ! buffer_handle = address of a quadword to receive the buffer handle.i ! that identifies the created buffer object !  INTEGER*4 SYS$CREATE_BUFOBJ EXTERNAL SYS$CREATE_BUFOBJ ! $CREATE_BUFOBJ_64 !  ! Create I/O Buffer Object ! a ! $CREATE_BUFOBJ_64 start_va_64, length_64, acmode, flags, return_va_64, return_length_64, ! buffer_handle_64 ! R ! start_va_64 = Starting address of existing address to include in buffer object ! H ! length_64 = Byte length of addresses to include in buffer object ! 6 ! acmode = access jmode of owner of buffer object ! % ! flags = request option flags ! ' ! Flag Meaning (if specified) ! W ! CBO_M_RETSVA Return system virtual address of buffer object in return_va_64% ! (Caller must be in kernel mode)L ! CBO_M_SVA_32 Create buffer object window in 32-bit (S0/S1) system space ! 7 ! return_va_64 = Address of buffer object created ! 7 ! return_length_64 = Length of buffer object created ! I ! buffer_handle_64 = address okf a quadword to receive the buffer handle. ! that identifies the created buffer object !  INTEGER*4 SYS$CREATE_BUFOBJ_64 EXTERNAL SYS$CREATE_BUFOBJ_64 ! $CREATE_GFILE ! 0 ! Create Permanent Global Disk File Section ! Z ! $CREATE_GFILE gsdnam_64, ident_64, file_offset_64, length_64, chan, acmode, flags,% ! return_length_64[, fault_cluster] ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! R ! l ident_64 = Address of quadword containing version id and match control ! ; ! file_offset_64 = Byte offset into file to start section ! 4 ! length_64 = Byte length of section to create ! ? ! chan = Number of channel on which file is accessed ! . ! acmode = Access mode for section ! + ! flags = Section characteristics ! ! Flag Meaning ! 2 ! SEC$M_CRF Copy-on-reference section. ! SEC$M_SYSGBL Smystem global section+ ! SEC$M_WRT Read/write section ! 1 ! return_length_64 = Length of section created ! ; ! fault_cluster = Page fault cluster size in bytes !  INTEGER*4 SYS$CREATE_GFILE EXTERNAL SYS$CREATE_GFILE ! $CREATE_GDZRO ! 2 ! Create Permanent Global Demand Zero Section ! d ! $CREATE_GDZRO gsdnam_64, ident_64, prot, length_64, acmode, flags[[, reserved_length], rad_mC ! $CREATE_GDZRO gsdnam_64, ident_64, prot, length_64n, acm ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! O ! ident_64 = Address of quadword containing version id and match control ! # ! prot = Protection mask ! 4 ! length_64 = Byte length of section to create ! . ! acmode = Access mode for section ! + ! flags = Section characteristics ! ! Flag Meaning ! . ! SEC$M_SYSGBL System global soection ! Z ! SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from ! K ! reserved_length_64 = Length of memory reserved for this global section ! X ! rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory INTEGER*4 SYS$CREATE_GDZRO EXTERNAL SYS$CREATE_GDZRO ! $CREATE_GPFILE ! 0 ! Create Permanent Global Page File Section ! J ! $CREATE_GPFILE gsdnam_64, ident_64, prot, length_64, acmode, flags !p A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! O ! ident_64 = Address of quadword containing version id and match control ! # ! prot = Protection mask ! 4 ! length_64 = Byte length of section to create ! . ! acmode = Access mode for section ! + ! flags = Section characteristics ! ! Flag Meaning ! . ! SEC$M_SYSGBL System global section !q  INTEGER*4 SYS$CREATE_GPFILE EXTERNAL SYS$CREATE_GPFILE ! $CREATE_GPFN ! 1 ! Create Permanent Global Page Frame Section ! T ! $CREATE_GPFN gsdnam_64, ident_64, prot, start_pfn, page_count, acmode, flags ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! R ! ident_64 = Address of quadword containing version id and match control ! # ! prot = Protection mask ! : ! start_pfn = Parge frame number of first page in section ! 1 ! page_count = Number of page frames in section ! . ! acmode = Access mode for section ! + ! flags = Section characteristics ! ! Flag Meaning ! ; ! SEC$M_ARGS64 All arguments are passed as 64-bits. ! SEC$M_SYSGBL System global section !  INTEGER*4 SYS$CREATE_GPFN EXTERNAL SYS$CREATE_GPFN !  ! $CREATE_RDB ! ! ! Create The Rights Database !  ! $CREATsE_RDB [sysid] ! 5 ! sysid = address of the quadword system identifier) ! to store in the maintenance record !  INTEGER*4 SYS$CREATE_RDB EXTERNAL SYS$CREATE_RDB ! $CREATE_REGION_64 ! $ ! Create Virtual Address Region ! [ ! $CREATE_REGION_64 length_64, region_prot, flags, return_region_id_64, return_va_64,# ! return_length_64[, start_va_64] ! 3 ! length_64 = Byte length of region to create ! + ! region_prot = Protection on region ! *t ! flags = Region characteristics ! H ! return_region_id_64 = Region id associated with newly created region ! 5 ! return_va_64 = Starting address of region created ! 0 ! return_length_64 = Length of region created ! 4 ! start_va_64 = Starting address to create region INTEGER*4 SYS$CREATE_REGION_64 EXTERNAL SYS$CREATE_REGION_64 !  ! $CREATE_USER_PROFILE ! & ! Create a user security profile. ! R ! $CREATE_USER_PROFILE [usrnam], [itmlst], [flags]u, usrpro, usrprolen, [context] ! L ! usrnam = address of username descriptor (optional with CHP$M_NOACCESS)# ! itmlst = address of item list ! flags = flags longwordM ! usrpro = address of buffer to receive user profile (opaque byte string)D ! usrprolen = address of longword to receive user profile length9 ! contxt = address of longword to receive UAI context ! " INTEGER*4 SYS$CREATE_USER_PROFILE! EXTERNAL SYS$CREATE_USER_PROFILE ! $CRELNM !  ! Creatve Logical Name ! = ! $CRELNM [attr], tabnam, lognam, [acmode], [itemlist] ! 1 ! attr = address of logical name attributes !  ! Attribute MeaningB ! LNM$M_CONFINE Logical name not to be copied into sub-process3 ! LNM$M_NO_ALIAS Logical name can not be aliased3 ! LNM$M_CRELOG Logical name created using $CRELOG ! @ ! tabnam = address of logical name table string descriptor ! : ! lognam = address of logical name string descriptor ! 8 ! acmowde = address of access mode for logical name ! 6 ! itmlst = address of a list of item descriptors !  INTEGER*4 SYS$CRELNM EXTERNAL SYS$CRELNM ! $CRELNT ! ! Create Logical Name Table ! 5 ! $CRELNT [attr], [resnam], [reslen], [quota],9 ! [promsk], [tabnam], [acmode], [partab], [uic] ! 7 ! attr = address of logical name table attributes ! A ! resnam = address of descriptor of a buffer to receive the ! created table's namex ! E ! reslen = address of word to recieve length of created table's ! name ! C ! quota = address of quota associated with logical name table ! + ! promsk = address of protection mask ! O ! tabnam = address of descriptor of logical name table name to be created ! B ! partab = address of name of table parent string descriptor ! 8 ! acmode = address of access mode for logical name ! B ! uic = owner of table created in response to yremote request !  INTEGER*4 SYS$CRELNT EXTERNAL SYS$CRELNT ! $CRELOG !  ! Create Logical Name ! 3 ! $CRELOG [tblflg] ,lognam ,eqlnam ,[acmode] ! * ! tblflg = logical name table number< ! 0 -> system (default) 1 -> group 2 -> process ! : ! lognam = address of logical name string descriptor ! > ! eqlnam = address of equivalence name string descriptor ! B ! acmode = access mode for logical name (process table only) !  IzNTEGER*4 SYS$CRELOG EXTERNAL SYS$CRELOG ! $CREMBX ! ( ! Create Mailbox and Assign Channel ! Z ! $CREMBX [prmflg] ,chan ,[maxmsg] ,[bufquo] ,[promsk] ,[acmode] ,[lognam], [flags] !  ! prmflg = permanent flag3 ! 0 -> temporary (default) 1 -> permanent ! 3 ! chan = address of word to receive channel ! : ! maxmsg = maximum message size that may be received ! D ! bufquo = number of bytes that can be used to buffer messages ! { ! promsk = protection mask ! / ! acmode = access mode of created mailbox ! F ! lognam = address of logical name string descriptor for mailbox ! K ! flags = optional flags for mailbox creation and channel assignment !  INTEGER*4 SYS$CREMBX EXTERNAL SYS$CREMBX ! $CREPRC !  ! Create Process ! H ! $CREPRC [pidadr] ,[image] ,[input] ,[output] ,[error] ,[prvadr]J ! ,[quota] ,[prcnam] ,[baspri] ,[uic] ,[mbxunt] ,[stsflg] ,[itmlst]  !| ,[node], [home_rad] ! D ! pidadr = address of longword to return id of created process ! < ! image = address of string descriptor for image name ! ; ! input = address of string descriptor for SYS$INPUT ! < ! output = address of string descriptor for SYS$OUTPUT ! ; ! error = address of string descriptor for SYS$ERROR ! 3 ! prvadr = address of quadword privilege list ! & ! quota = address of quota list ! > ! prcnam = a}ddress of string descriptor for process name ! % ! baspri = base priority (0-31) ! E ! uic = user identification code. If 0, create a subprocess ! 5 ! mbxunt = mailbox unit for termination message ! * ! stsflg = status and mode flag bits !  ! Bit Meaning ! , ! 0 disable resource wait mode9 ! 1 enable system service failure exception mode% ! 2 inhibit process swapping- ! 3 disable accounting m~essages ! 4 batch process4 ! 5 cause created process to hibernate> ! 6 allow login without authorization file check5 ! 7 process is a network connect object1 ! 22 start process on specified home rad ! 6 ! itmlst = address of a list of item descriptors ! = ! node = address of string descriptor for SCS node name ! F ! home_rad = RAD to start process on, if bit 22 in stsflg is set INTEGER*4 SYS$CREPRC EXTERNAL SYS$CREPRC ! $CRETVA ! # ! Create Virtual Address Space ! * ! $CRETVA inadr ,[retadr] ,[acmode] ! F ! inadr = address of 2-longword array containing starting and> ! ending virtual address of pages to be created ! F ! retadr = address of a 2-longword array to receive starting andA ! ending virtual address of pages actually created ! F ! acmode = access mode for the new pages (protection isA !  read/write for acmode and more privileged modes) !  INTEGER*4 SYS$CRETVA EXTERNAL SYS$CRETVA ! $CRETVA_64 ! # ! Create Virtual Address Space ! d ! $CRETVA_64 region_id_64, start_va_64, length_64, acmode, flags, return_va_64, return_lengthC ! $CRETVA_64 region_id_64, start_va_64, length_64, acmod ! [, page_prot] ! 1 ! region_id_64 = Address of quadword region id ! = ! start_va_64 = Starting address of address space to create ! 6 ! length_64 = Byte length of addresses to create ! I ! acmode = access mode for the new pages (protection isD ! read/write for acmode and more privileged modes) ! * ! flags = Address space creation flags ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! 2 ! page_prot = desired page protection (optional) !  INTEGER*4 SYS$CRETVA_64 EXTERNAL SYS$CRETVA_64 !  $CRMPSC !  ! Create and Map Section ! H ! $CRMPSC [inadr] ,[retadr] ,[acmode] ,[flags] ,[gsdnam] ,[ident]B ! ,[relpag] ,[chan] ,[pagcnt] ,[vbn] ,[prot] ,[pfc] ! F ! inadr = address of 2-longword array containing starting andA ! ending virtual addresses of space to map section ! F ! retadr = address of 2-longword array to receive addresses ! actually mapped ! . ! acmode = access mode of owner of pages ! ( ! flags = section characteristics !  ! Flag Meaning ! % ! SEC$M_GBL Global section0 ! SEC$M_CRF Copy-on-reference section( ! SEC$M_DZRO Demand zero pages1 ! SEC$M_EXPREG Find first available space( ! SEC$M_PERM Permanent section2 ! SEC$M_PFNMAP Physical page frame section, ! SEC$M_SYSGBL System global section) ! SEC$M_WRT Read/write section ! A ! gsdnam = address of global section name string descriptor ! L ! ident = address of quadword containing version id and match control ! 4 ! relpag = relative page number within section ! < ! chan = number of channel on which file is accessed ! + ! pagcnt = number of pages in section ! F ! vbn = virtual block number of beginning of section orC ! physical page frame number of beginning of section ! ! prot = protection mask ! ( ! pfc = page fault cluster size !  INTEGER*4 SYS$CRMPSC EXTERNAL SYS$CRMPSC ! $CRMPSC_FILE_64 ! / ! Create and Map Private Disk File Section ! V ! $CRMPSC_FILE_64 region_id_64, file_offset_64, length_64, chan, acmode, flags,$ ! return_va_64, return_length_643 ! [, fault_cluster[, start_va_64[, page_prot]]] ! 1 ! region_id_64 = Address of quadword region id ! ; ! file_offset_64 = Byte offset into file to start section ! 6 ! length_64 = Byte length of addresses to create ! ? ! chan = number of channel on which file is accessed ! 6 ! acmode = access mode for the new pages ! + ! flags = section characteristics ! ! Flag Meaning ! 2 ! SEC$M_CRF Copy-on-reference section* ! SEC$M_DZRO Demand zero pages3 ! SEC$M_EXPREG Find first available space< ! SEC$M_NO_OVERMAP Do not overmap existing address space+ ! SEC$M_WRT Read/write section ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! ; ! fault_cluster = Page fault cluster size in bytes ! = ! start_va_64 = Starting address of address space to create ! 2 ! page_prot = Desired page protection (optional) !  INTEGER*4 SYS$CRMPSC_FILE_64 EXTERNAL SYS$CRMPSC_FILE_64 ! $CRMPSC_GFILE_64 ! . ! Create and Map Global Disk File Section ! ^ ! $CRMPSC_GFILE_64  gsdnam_64, ident_64, file_offset_64, length_64, chan, region_id_64, G ! section_offset_64, acmode, flags, return_va_64, return_length_64E ! [, fault_cluster[, start_va_64[, map_length_64[, page_prot]]]] ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! O ! ident_64 = Address of quadword containing version id and match control ! ; ! file_offset_64 = Byte offset into file to start section ! 4 ! length_64 = Byte length of section to create ! ? ! chan = number of channel on which file is accessed ! 1 ! region_id_64 = Address of quadword region id ! L ! section_offset_64 = Relative byte within global section to start mapping ! 6 ! acmode = access mode for the new pages ! + ! flags = section characteristics ! ! Flag Meaning ! 2 ! SEC$M_CRF Copy-on-reference section3 ! SEC$M_EXPREG Find first available space< ! SEC$M_NO_OVERMAP Do not overmap existing address space* ! SEC$M_PERM Permanent section. ! SEC$M_SYSGBL System global section+ ! SEC$M_WRT Read/write section ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! ; ! fault_cluster = Page fault cluster size in bytes ! = ! start_va_64 = Starting address of address space to create ! : ! map_length_64  = Byte length of address space to map !  INTEGER*4 SYS$CRMPSC_GFILE_64 EXTERNAL SYS$CRMPSC_GFILE_64 ! $CRMPSC_GDZRO_64 ! 0 ! Create and Map Global Demand Zero Section ! ` ! $CRMPSC_GDZRO_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64,5 ! acmode, flags, return_va_64, return_length_64 V ! [, start_va_64[, map_length_64[, reserved_length_64[, rad_mask[, page_prot]]]]] ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! O ! ident_64 = Address of quadword containing version id and match control ! # ! prot = Protection mask ! 4 ! length_64 = Byte length of section to create ! 1 ! region_id_64 = Address of quadword region id ! L ! section_offset_64 = Relative byte within global section to start mapping ! 6 ! acmode = access mode for the new pages ! + ! flags = section characteristics ! !  Flag Meaning ! 3 ! SEC$M_EXPREG Find first available space< ! SEC$M_NO_OVERMAP Do not overmap existing address space* ! SEC$M_PERM Permanent section. ! SEC$M_SYSGBL System global sectionZ ! SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! = ! start_va_64 = Starting address of address space to create ! : ! map_length_64 = Byte length of address space to map ! K ! reserved_length_64 = Length of memory reserved for this global section ! X ! rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory !  INTEGER*4 SYS$CRMPSC_GDZRO_64 EXTERNAL SYS$CRMPSC_GDZRO_64 ! $CRMPSC_GPFILE_64 ! . ! Create and Map Global Page File Section ! a ! $CRMPSC_GPFILE_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64,5 ! acmode, flags, return_va_64, return_length_645 ! [, start_va_64[, map_length_64[, page_prot]]] ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! O ! ident_64 = Address of quadword containing version id and match control ! # ! prot = Protection mask ! 4 ! length_64 = Byte length of section to create ! 1 ! region_id_64 = Address of quadword region id ! L ! section_offset_64 = Relative byte within global section to start mapping ! 6 ! acmode = access mode for the new pages ! + ! flags = section characteristics ! ! Flag Meaning ! 3 ! SEC$M_EXPREG Find first available space< ! SEC$M_NO_OVERMAP Do not overmap existing address space* ! SEC$M_PERM Permanent section. ! SEC$M_SYSGBL System global section ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! = ! start_va_64 = Starting address of address space to create ! : ! map_length_64 = Byte length of address space to map !  INTEGER*4 SYS$CRMPSC_GPFILE_64 EXTERNAL SYS$CRMPSC_GPFILE_64 ! $CRMPSC_GPFN_64 ! / ! Create and Map Global Page Frame Section ! d ! $CRMPSC_GPFN_64 gsdnam_64, ident_64, prot, start_pfn, page_count, region_id_64, relative_paC ! $CRMPSC_GPFN_64 gsdnam_64, ident_64, prot, start_pfn, 3 ! acmode, flags, return_va_64, return_length_644 ! [, start_va_64[, map_page_count[, page_prot]]] ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! Q ! ident_64 = Address of quadword containing version id and match control ! # ! prot = Protection mask ! : ! start_pfn = Page frame number of first page in section ! 1 ! page_count = Number of page frames in section ! 1 ! region_id_64 = Address of quadword region id ! I ! relative_page = Relative page within global section to start mapping ! 8 ! acmode = Access mode of owner of mapped pages ! D ! flags = Flags overriding default section characteristics ! ! ! Flag Meaning ! ; ! SEC$M_ARGS64 All arguments are passed as 64-bits4 ! SEC$M_EXPREG Find first available space< ! SEC$M_NO_OVERMAP Do not overmap existing address space/ ! SEC$M_SYSGBL System global section8 ! SEC$M_WRT Read/write mapping of section ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! = ! start_va_64 = Starting address of address space to create ! 3 ! map_page_count = Number of page frames to map ! 2 ! page_prot = Desired page protection (optional) !  INTEGER*4 SYS$CRMPSC_GPFN_64 EXTERNAL SYS$CRMPSC_GPFN_64 ! $CRMPSC_PFN_64 ! 0 ! Create and Map Private Page Frame Section ! K ! $CRMPSC_PFN_64 region_id_64, start_pfn, page_count, acmode, flags,* ! return_va_64, return_length_64( ! [, start_va_64[, page_prot]] ! 1 ! region_id_64 = Address of quadword region id ! : ! start_pfn = Page frame number of first page in section ! 1 ! page_count = Number of page frames in section ! 6 ! acmode = access mode for the new pages ! + ! flags = section characteristics ! ! Flag Meaning ! 6 ! SEC$M_ARGS64 All arguments are passed as 64-bits3 ! SEC$M_EXPREG Find first available space4 ! SEC$M_GRANHINT Set granularity hints on pages< ! SEC$M_NO_OVERMAP Do not overmap existing address space+ ! SEC$M_WRT Read/write section ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! = ! start_va_64 = Starting address of address space to create ! 2 ! page_prot = Desired page protection (optional) !  INTEGER*4 SYS$CRMPSC_PFN_64 EXTERNAL SYS$CRMPSC_PFN_64 ! $DACEFC ! - ! Disassociate Common Event Flag Cluster !  ! $DACEFC efn ! 8 ! efn = number of any event flag in the cluster !  INTEGER*4 SYS$DACEFC EXTERNAL SYS$DACEFC ! $DALLOC !  ! Deallocate Device ! # ! $DALLOC [devnam] ,[acmode] ! I ! devnam = address of device name descriptor. If 0, deallocate all ! 3 ! acmode = access mode associated with device !  INTEGER*4 SYS$DALLOC EXTERNAL SYS$DALLOC ! $DASSGN !  ! Deassign I/O Channel !  ! $DASSGN chan ! 3 ! chan = number of channel to be deassigned !  INTEGER*4 SYS$DASSGN EXTERNAL SYS$DASSGN ! $DCLAST !  ! Declare AST ! + ! $DCLAST astadr ,[astprm] ,[acmode] ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine ! @ ! acmode = access mode for which the AST is to be declared !  INTEGER*4 SYS$DCLAST EXTERNAL SYS$DCLAST ! $DCLCMH ! 8 ! Declare Change Mode or Compatibility Mode Handler ! ) ! $DCLCMH addres ,[prvhnd] ,[type] ! # ! addres = address of handler ! H ! prvhnd = address of longword to receive previous handler address ! ' ! type = handler type indicatorK ! 0 -> change mode (current mode) 1 -> compatibility mode !  INTEGER*4 SYS$DCLCMH EXTERNAL SYS$DCLCMH ! $DCLEVT !  ! Declare an Event ! = ! $DCLEVT evtnam, [rcvacl], [evtfac], [acmode], [flags]; ! ,[evtdata], [nullarg], [nullarg], [nullarg], [nullarg] ! 5 ! evtnam = address of descriptor of event name ! . ! rcvacl = address of descriptor of ACL ! 0 ! evtfac = address of event facility code ! 2 ! acmode = access mode of event declaration !  ! flags = optional flags ! > ! evtdata = address of descriptor of optional event data !  INTEGER*4 SYS$DCLEVT EXTERNAL SYS$DCLEVT ! $DCLEXH !  ! Declare Exit Handler !  ! $DCLEXH desblk ! : ! desblk = address of exit control block containing: ! * ! +-------------------------------+* ! | forward link |* ! +-------------------------------+* ! | exit handler address |* ! +-------------------------------+* ! | argument count |* ! +-------------------------------+* ! | address to store reason |* ! +-------------------------------+* ! | additional arguments |* ! +-- for exit handler, --+* ! | if any |* ! +-------------------------------+ !  INTEGER*4 SYS$DCLEXH EXTERNAL SYS$DCLEXH !  ! $DEFINE_MAPPING ! : ! Define Mapping record types in the Mapping database ! - ! $DEFINE_MAPPING initmlst [,outitmlst] ! K ! initmlst = address of a list of item descriptors for the operationI ! outitmlst = address of a list of item descriptors for information ! from the operation !  INTEGER*4 SYS$DEFINE_MAPPING EXTERNAL SYS$DEFINE_MAPPING ! ! $DELETE !  ! Delete Record ! " ! $DELETE rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$DELETE EXTERNAL SYS$DELETE !  ! $DELETE_BITMAP !  ! Delete a Write Bitmap ! ! $DELETE_BITMAP handle !  INTEGER*4 SYS$DELETE_BITMAP EXTERNAL SYS$DELETE_BITMAP !  ! $DELETE_INTRUSION !  ! Delete intrusion record ! 3 ! $DELETE_INTRUSION user_criteria, [flags] ! < ! user_criteria in address of user criteria descriptor* ! flags in intrusion service flags !  INTEGER*4 SYS$DELETE_INTRUSION EXTERNAL SYS$DELETE_INTRUSION !  ! $DELETE_MAPPING ! 2 ! Delete Mapping record from Mapping database ! ! $DELETE_MAPPING initmlst ! K ! initmlst = address of a list of item descriptors for the operation !  INTEGER*4 SYS$DELETE_MAPPING EXTERNAL SYS$DELETE_MAPPING !  ! $DELETE_PROXY !  ! Delete proxy record ! ? ! $DELETE_PROXY rem_node, rem_user, local_user, [flags] ! 8 ! rem_node in address of remote node descriptor8 ! rem_user in address of remote user descriptor7 ! local_user in address of local user descriptor( ! flags in proxy service flags !  INTEGER*4 SYS$DELETE_PROXY EXTERNAL SYS$DELETE_PROXY ! $DELLNM ! ' ! Delete Logical Name and/or Table ! - ! $DELLNM [tabnam], [lognam], [acmode] ! H ! tabnam = address of descriptor of logical name table name string ! = ! lognam = address of descriptor of logical name string ! 8 ! acmode = address of access mode for logical name !  INTEGER*4 SYS$DELLNM EXTERNAL SYS$DELLNM ! $DELLOG !  ! Delete Logical Name ! - ! $DELLOG [tblflg] ,[lognam] ,[acmode] ! * ! tblflg = logical name table number: ! 0 -> system 1 -> group 2 -> process ! B ! lognam = address of logical name string descriptor. If 0,! ! delete all names ! A ! acmode = access mode of logical name (process table only) !  INTEGER*4 SYS$DELLOG EXTERNAL SYS$DELLOG ! $DELMBX !  ! Delete Mailbox !  ! $DELMBX chan ! 7 ! chan = channel number assigned to the mailbox !  INTEGER*4 SYS$DELMBX EXTERNAL SYS$DELMBX ! $DELPRC !  ! Delete Process ! , ! $DELPRC [pidadr] ,[prcnam] ,[flags] ! K ! pidadr = address of longword containing id of process to be deleted ! L ! prcnam = address of string descriptor for process name to be deleted ! @ ! flags = optional flags longword for specifying options  !  INTEGER*4 SYS$DELPRC EXTERNAL SYS$DELPRC ! $DELTVA ! # ! Delete Virtual Address Space ! * ! $DELTVA inadr ,[retadr] ,[acmode] ! F ! inadr = address of 2-longword array containing starting and< ! ending virtual addresses of pages to delete ! F ! retadr = address of 2-longword array to receive starting and; !  ending addresses of pages actually deleted ! ; ! acmode = access mode for which service is performed !  INTEGER*4 SYS$DELTVA EXTERNAL SYS$DELTVA ! $DELTVA_64 ! # ! Delete Virtual Address Space ! ` ! $DELTVA_64 region_id_64, start_va_64, length_64, acmode, return_va_64, return_length_64 ! 1 ! region_id_64 = Address of quadword region id ! = ! start_va_64 = Starting address of address space to delete ! 6 ! length_64 = Byte length of addresses to delete ! A ! acmode = access mode for which service is performed ! 7 ! return_va_64 = Address of address space deleted ! 7 ! return_length_64 = Length of address space deleted !  INTEGER*4 SYS$DELTVA_64 EXTERNAL SYS$DELTVA_64 ! $DELETE_BUFOBJ !  ! Delete I/O Buffer Object ! % ! $DELETE_BUFOBJ buffer_handle ! I ! buffer_handle = address of a quadword that contains the buffer handle0 ! identifying the buffer object to be deleted !  INTEGER*4 SYS$DELETE_BUFOBJ EXTERNAL SYS$DELETE_BUFOBJ ! $DELETE_REGION_64 ! $ ! Delete Virtual Address Region ! O ! $DELETE_REGION_64 region_id_64, acmode, return_va_64, return_length_64 ! 1 ! region_id_64 = Address of quadword region id ! A ! acmode = Access mode for which service is performed ! 7 ! return_va_64 = Address of address space deleted ! 7 ! return_length_64 = Length of address space deleted !  INTEGER*4 SYS$DELETE_REGION_64 EXTERNAL SYS$DELETE_REGION_64 ! $DEQ !  ! Dequeue Lock ! 1 ! $DEQ [lkid] ,[valblk] ,[acmode] ,[flags] ! 3 ! lkid = lock ID of the lock to be dequeued ! 0 ! valblk = address of the lock value block ! 8 ! acmode = access mode of the locks to be dequeued ! ! flags = optional flags. ! " ! LCK$M_DEQALL !  INTEGER*4 SYS$DEQ EXTERNAL SYS$DEQ ! $DEVICE_SCAN !  !  Wildcard device scan ! P ! $DEVICE_SCAN return_devnam, retlen, [search_devnam], [itmlst], [contxt] ! L ! return_devnam = address of descriptor of returned device name buffer ! G ! retlen = address to store length of device name returned ! C ! search_devnam = address of descriptor of search device name ! = ! itmlst = address of a list of item descriptors ! > ! contxt = address of quadword context structures !  !  INTEGER*4 SYS$DEVICE_SCAN EXTERNAL SYS$DEVICE_SCAN ! $DGBLSC !  ! Delete Global Section ! ) ! $DGBLSC [flags] ,gsdnam ,[ident] ! ! flags = type of sectionF ! 0 -> group section SEC$M_SYSGBL -> system section ! A ! gsdnam = address of global section name string descriptor# ! (32-bit or 64-bit descriptor) ! L ! ident = address of quadword containing version id and match control !  INTEGER*4 SYS$DGBLSC EXTERNAL SYS$DGBLSC ! $DIAGNOSE0 ! System Service for Diagnostics Programmers ! - ! $DIAGNOSE function, P2, [cpu_id, [flags]] ! , ! function = DIAG$SETAFF or DIAG$_ACTVCPUS ! 3 ! P2 = enable flag if function is DIAG$SETAFF, or2 ! address to return actvcpus in if function ! is DIAG$_ACTVCPUS ! * ! cpu_id = CPU number to set affinity to ! 7 ! flags = masks governing the checking to do, whether: ! affinity is set for image or process duration,, ! whether to set affinity to primary cpu. !  INTEGER*4 SYS$DIAGNOSE EXTERNAL SYS$DIAGNOSE !  ! $DISABLE_VP_USE ! * ! Disable Use of the Vector Processor ! - ! $DISABLE_VP_USE flags ,[curflg] ,[prvflg] ! @ ! flags = mask of facility(ies) that disabled vector use ! > ! curflg = address of longword to receive current flags ! ? ! prvflg = address of longword to receive previous flags !  INTEGER*4 SYS$DISABLE_VP_USE EXTERNAL SYS$DISABLE_VP_USE !  ! $DISABLE_VP_USE_INT ! 9 ! Disable Use of the Vector Processor, internal form ! 1 ! $DISABLE_VP_USE_INT flags ,[curflg] ,[prvflg] ! @ ! flags = mask of facility(ies) that disabled vector use ! > ! curflg = address of longword to receive current flags ! ? ! prvflg = address of longword to receive previous flags ! ! INTEGER*4 SYS$DISABLE_VP_USE_INT EXTERNAL SYS$DISABLE_VP_USE_INT !  ! $DISCONNECT !  ! Disconnect Record Stream ! & ! $DISCONNECT rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$DISCONNECT EXTERNAL SYS$DISCONNECT ! $DISMOU !  ! Dismount Volume ! + ! $DISMOU [devnam], [flags], [itmlst] ! B ! devnam = optional address of device name string descriptor ! I ! flags = 32-bit status mask selecting options for the dismountI ! The symbols for the flags are defined by the $DMTDEF ! macro. ! # ! Flag Meaning ! 8 ! DMT$M_NOUNLOAD Do not unload the volume. ! D ! DMT$M_UNIT Dismount the specified device, rather: ! than the entire volume set. ! @ ! itmlst = optional address of a list of item identifiers  !  INTEGER*4 SYS$DISMOU EXTERNAL SYS$DISMOU ! ! $DISPLAY !  ! Display File ! # ! $DISPLAY fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$DISPLAY EXTERNAL SYS$DISPLAY !  ! $DISPLAY_PROXY !  ! Display proxy record ! R ! $DISPLAY_PROXY rem_node, rem_user, buffer_sizes, proxy_node, proxy_user,: ! default_user, local_users, [flags], [context] ! 1 ! rem_node in address of remote node descriptor1 ! rem_user in address of remote user descriptorV ! buffer_sizes out address of array of words to receive output string lengthsK ! proxy_node out address of descriptor to receive matching proxy nodeK ! proxy_user out address of descriptor to receive matching proxy userI ! default_user out address of descriptor to receive default userI ! local_users out address of array of blocks to receive local users! ! flags in proxy service flags9 ! context in out address of optional longword context !  INTEGER*4 SYS$DISPLAY_PROXY EXTERNAL SYS$DISPLAY_PROXY ! $DLCEFC ! ' ! Delete Common Event Flag Cluster !  ! $DLCEFC name ! : ! name = address of cluster name string descriptor !  INTEGER*4 SYS$DLCEFC EXTERNAL SYS$DLCEFC ! $DNS !  ! DNS Clerk system service ! A ! $DNS [efn], func , itmlst, [dnsb] ,[astadr] ,[astprm] ! ($DNSW) ! : ! efn = number of event flag to set on completion ! @ ! func = function code specifying action to be performed ! 6 ! itmlst = address of a list of item descriptors ! F ! dnsb = address of quadword I/O status block to receive final" ! completion status ! 5 ! astadr = address of entry mask of AST routine ! > ! astprm = value to be passed to AST routine as argument !  INTEGER*4 SYS$DNS EXTERNAL SYS$DNS INTEGER*4 SYS$DNSW EXTERNAL SYS$DNSW ! ! $EMAA ! * ! Call Entity Management Assist Agent ! ! $EMAA !  INTEGER*4 SYS$EMAA EXTERNAL SYS$EMAA !  ! $ENABLE_VP_USE ! ) ! Enable Use of the Vector Processor ! , ! $ENABLE_VP_USE flags ,[curflg] ,[prvflg] ! @ ! flags = mask of facility(ies) that disabled vector use ! > ! curflg = address of longword to receive current flags ! ? ! prvflg = address of longword to receive previous flags !  INTEGER*4 SYS$ENABLE_VP_USE EXTERNAL SYS$ENABLE_VP_USE !  ! $ENABLE_VP_USE_INT ! 8 ! Enable Use of the Vector Processor, internal form ! 0 ! $ENABLE_VP_USE_INT flags ,[curflg] ,[prvflg] ! @ ! flags = mask of facility(ies) that disabled vector use ! > ! curflg = address of longword to receive current flags ! ? ! prvflg = address of longword to receive previous flags ! INTEGER*4 SYS$ENABLE_VP_USE_INT EXTERNAL SYS$ENABLE_VP_USE_INT !  $ENQ !  ! Enqueue Lock Request ! @ ! $ENQ [efn] ,lkmode ,lksb ,[flags] ,[resnam] ,[parid]C ! ($ENQW) ,[astadr] ,[astprm] ,[blkast] ,[acmode], [rsdm_id] ! ,[range] ,[priority] ! 3 ! efn = event flag to be set at completion ! 9 ! lkmode = type of lock mode requested. Modes are: ! ( ! LCK$K_NLMODE null lock. ! LCK$K_CRMODE concurrent read/ ! LCK$K_CWMODE concurrent write- ! LCK$K_PRMODE protected read. ! LCK$K_PWMODE protected write- ! LCK$K_EXMODE exclusive lock ! N ! lksb = address of the lock status block or extended lock status block ! K ! flags = flags defining the characteristics of the lock. These are: !  ! LCK$M_NOQUEUE ! LCK$M_SYNCSTS ! LCK$M_SYSTEM ! LCK$M_VALBLK ! LCK$M_CONVERT ! B ! resnam = address of string descriptor of the resource name% ! (32-bit or 64-bit descriptor) ! + ! parid = lock ID of the parent lock ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine ! > ! blkast = address of entry mask of blocking AST routine ! ; ! acmode = Access mode to be associated with the lock ! 1 ! rsdm_id = address of resource domain id ! < ! range = optional range to be locked within resource ! / ! priority = optional priority of request !  INTEGER*4 SYS$ENQ EXTERNAL SYS$ENQ INTEGER*4 SYS$ENQW EXTERNAL SYS$ENQW ! ! $ENTER !  ! Enter File ! ! ! $ENTER fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$ENTER EXTERNAL SYS$ENTER ! $ERAPAT ! ) ! Generate a security erase pattern. ! ! ! $ERAPAT type, [count], patadr ! ! ! type = type of security erase ! 4 ! count = iteration count (seed for erase pattern) ! 9 ! patadr = address of longword to receive erase pattern !  INTEGER*4 SYS$ERAPAT EXTERNAL SYS$ERAPAT ! $ERASE !  ! Erase File ! ! ! $ERASE fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$ERASE EXTERNAL SYS$ERASE !  ! $EVDPOSTEVENT !  ! Post Event to EVD !  ! $EVDPOSTEVENT EVENT !  INTEGER*4 SYS$EVDPOSTEVENT EXTERNAL SYS$EVDPOSTEVENT ! $EXIT !  ! Exit image !  ! $EXIT [code] ! + ! code = longword completion status !  INTEGER*4 SYS$EXIT EXTERNAL SYS$EXIT ! $EXPREG ! $ ! Expand Program/Control Region ! 5 ! $EXPREG pagcnt ,[retadr] ,[acmode] ,[region] ! B ! pagcnt = number of pages to add to end of specified region ! F ! retadr = address of 2-longword array to receive virtual7 ! addresses of starting and ending pages ! - ! acmode = access mode of the new pages ! ! ! region = region indicatorE ! 0 -> program (P0) region 1 -> control (P1) region !  INTEGER*4 SYS$EXPREG EXTERNAL SYS$EXPREG ! $EXPREG_64 ! ' ! Expand Addresses Within a Region ! X ! EXPREG_64 region_id_64, length_64, acmode, flags, return_va_64, return_length_64 ! [, page_prot] ! 1 ! region_id_64 = Address of quadword region id ! , ! length_64 = Byte length of addresses ! I ! acmode = access mode for the new pages (protection isD ! read/write for acmode and more privileged modes) ! * ! flags = Address space creation flags ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! 2 ! page_prot = Desired page protection (optional) !  INTEGER*4 SYS$EXPREG_64 EXTERNAL SYS$EXPREG_64 ! ! $EXTEND !  ! Extend File ! " ! $EXTEND fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$EXTEND EXTERNAL SYS$EXTEND ! $FAO !  ! Formatted ASCII Output ! < ! $FAO  ctrstr ,[outlen] ,outbuf ,[p1] ,[p2]...[pn] ! @ ! ctrstr = address of string descriptor for control string% ! (32-bit or 64-bit descriptor) ! @ ! outlen = address of word in which to store output length ! ; ! outbuf = address of output buffer string descriptor% ! (32-bit or 64-bit descriptor) ! 4 ! p1... = variable number of arguments to FAO !  INTEGER*4 SYS$FAO EXTERNAL SYS$FAO ! $FAOL ! 1 ! Formatted ASCII Output With List Parameter ! 1 ! $FAOL ctrstr ,[outlen] ,outbuf ,prmlst ! @ ! ctrstr = address of string descriptor for control string% ! (32-bit or 64-bit descriptor) ! @ ! outlen = address of word to receive output string length ! ; ! outbuf = address of output buffer string descriptor% ! (32-bit or 64-bit descriptor) ! 9 ! prmlst = address of a list of longword parameters !  INTEGER*4 SYS$FAOL EXTERNAL SYS$FAOL ! $FAOL_64 ! : ! Formatted ASCII Output With Quadword List Parameter ! @ ! $FAOL_64 ctrstr_64 ,[outlen_64] ,outbuf_64 ,prmlst_64 ! C ! ctrstr_64 = address of string descriptor for control string% ! (32-bit or 64-bit descriptor) ! C ! outlen_64 = address of word to receive output string length ! > ! outbuf_64 = address of output buffer string descriptor% ! (32-bit or 64-bit descriptor) ! < ! prmlst_64 = address of a list of quadword parameters !  INTEGER*4 SYS$FAOL_64 EXTERNAL SYS$FAOL_64 ! $FILES_64 ! $ ! Call the Files-64 file system ! : ! $FILES_64 [efn] ,func ,fsb ,[astadr] ,[astprm] ! : ! efn = number of event flag to set on completion ! @ ! func = function code specifying action to be performed ! - ! fsb = address of File System Block ! 5 ! astadr = address of entry mask of AST routine ! > ! astprm = value to be passed to AST routine as argument !  INTEGER*4  SYS$FILES_64 EXTERNAL SYS$FILES_64 ! $FILESCAN ! 6 ! Scan a string and identify a file specification ! G ! $FILESCAN srcstr, [valuelst], [fldflags] [,auxout] [,retlen] ! > ! srcstr = address of string descriptor for source string5 ! valuelst = address of a list of item descriptors6 ! fldflags = address of a longword to receive flags> ! auxout = address of string descriptor for output stringA ! retlen = address to store length of returned output string !  INTEGER*4 SYS$FILESCAN EXTERNAL SYS$FILESCAN ! ! $FIND !  ! Find Record in File ! ! $FIND rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$FIND EXTERNAL SYS$FIND !  ! $FIND_HELD ! & ! Find Identifiers Held By Holder ! / ! $FIND_HELD holder, [id], [attrib], [contxt] ! = ! holder = address of a quadword which specifies the holder ! id of the records to find2 ! id = address to return the identifier longword= ! attrib = address to return the holder attributes longword? ! contxt = address of a longword containing the record stream6 ! context. initially should be zero, value output6 ! on first call, value input on subsequent calls. !  INTEGER*4 SYS$FIND_HELD EXTERNAL SYS$FIND_HELD !  ! $FIND_HOLDER ! ! Find Holder Of Identifier ! 1 ! $FIND_HOLDER id, [holder], [attrib], [contxt] ! 1 ! id = identifier longword whose holder records ! are to be found5 ! holder = address to return the holder id quadword6 ! attrib = address to return the attributes longword? ! contxt = address of a longword containing the record stream6 ! context. initially should be zero, value output6 ! on first call, value input on subsequent calls. !  INTEGER*4 SYS$FIND_HOLDER EXTERNAL SYS$FIND_HOLDER !  ! $FINISH_RDB !  ! Clean up RMS Stream !  ! $FINISH_RDB contxt ! ? ! contxt = address of a longword containing the record stream ! context. !  INTEGER*4 SYS$FINISH_RDB EXTERNAL SYS$FINISH_RDB ! $FORCEX !  ! Force Exit ! + ! $FORCEX [pidadr] ,[prcnam] ,[code] ! F ! pidadr = address of process id of process to be forced to exit ! F ! prcnam = address of process name descriptor for forced process ! < ! code = longword completion status for exit service !  INTEGER*4 SYS$FORCEX EXTERNAL SYS$FORCEX !  ! $FORGE_WORD !  ! Forge random word. ! Q ! $FORGE_WORD [minlen], [maxlen], [mindata], [flags], [retdata], outlen, outstr ! * ! minlen minimum word length to return* ! maxlen maximum word length to return< ! mindata minimum amount of data to return (in decibits) ! flags miscellaneous flagsF ! retdata longword to receive actual amount of information in word4 ! outlen word to receive length of returned word. ! outstr address of buffer to receive word !  INTEGER*4 SYS$FORGE_WORD EXTERNAL SYS$FORGE_WORD !  ! $FORMAT_ACL ! * ! Format an Access Control list Entry ! 4 ! $FORMAT_ACL acl-entry, [acl-length], acl-string,2 ! [line-width], [term-desc], [line-indent], ! [bit-names], [routin] ! 9 ! acl-entry = address of a descriptor of a buffer which ! contains the ACE ! ; ! acl-length = address of a word to receive the length of ! the output string ! 9 ! acl-string = address of a descriptor of a buffer into/ ! which the output string is to be stored ! 2 ! line-width = address of the maximum line width ! (0 = infinite) ! < ! term_desc = address of a character descriptor containing2 ! a character string to be inserted whenever6 ! the line segment length exceeds the line-width ! < ! line-indent = address of the number of columns to indent ! the output line segment ! ? ! bit-names = address of a access bit name table (32 entries) ! > ! routin = address of routine to be executed in kernel mode !  INTEGER*4 SYS$FORMAT_ACL EXTERNAL SYS$FORMAT_ACL ! 4 ! $FORMAT_AUDIT fmttyp, audmsg, [outlen], outbuf,+ ! [width], [trmdsc], [routin], [fmtflg] ! - ! Format security auditing event message !  ! fmttyp = format type ! . ! audmsg = address of the message to format ! B ! outlen = address of a word to receive length of output string ! < ! outbuf = Address of a descriptor of a buffer to receive# ! the formatted event message ! ; ! width = address of a word containing the display width ! 9 ! trmdsc = address of a descriptor containing the line ! terminator character(s) ! * ! routin = address of an output routine ! " ! fmtflg = format control flags INTEGER*4 SYS$FORMAT_AUDIT EXTERNAL SYS$FORMAT_AUDIT# ! $FORMAT_CLASS itmlst, [routin] ! " !  Format access class strings ! 6 ! itmlst = address of a list of item descriptors ! A ! routin = address of routine to be executed in kernel mode !  !  INTEGER*4 SYS$FORMAT_CLASS EXTERNAL SYS$FORMAT_CLASS ! ! $FREE !  ! Free Record ! ! $FREE rab, [err], [suc] !  ! rab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$FREE EXTERNAL SYS$FREE !  ! $FREE_USER_CAPABILITY ! + ! Release a global user capability bit ! = ! $FREE_USER_CAPABILITY [cap_num],[prev_mask],[flags] ! F ! cap_num = address of cell with requested cap number to release; ! prev_mask = address of user quadword that will hold the5 ! previous state of the reserved capabilities cell: ! flags = address of behavioral flags for this operation ! # INTEGER*4 SYS$FREE_USER_CAPABILITY" EXTERNAL SYS$FREE_USER_CAPABILITY ! ! $FLUSH !  ! Flush Record ! ! ! $FLUSH rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$FLUSH EXTERNAL SYS$FLUSH !  ! $GET_BITMAP_INFO ! + ! GET Information about a Write Bitmap ! E ! $GET_BITMAP_INFO handle, chan, devnam, name, index, itmlst !  INTEGER*4 SYS$GET_BITMAP_INFO EXTERNAL SYS$GET_BITMAP_INFO !  ! $GET_BITMAP_INFOW ! 4 ! GET Information about a Write Bitmap and Wait ! H ! $GET_BITMAP_INFOW devnam, name, index, handle, itmlst, status !  INTEGER*4 SYS$GET_BITMAP_INFOW EXTERNAL SYS$GET_BITMAP_INFOW !  ! $GET_CPU_INFO ! " ! GET Information about a CPU ! H ! $GET_CPU_INFO func, flags, cpu_id, buffer, length, ret_length !  INTEGER*4 SYS$GET_CPU_INFO EXTERNAL SYS$GET_CPU_INFO ! $GET_REGION_INFO ! 3 ! Get Information About Virtual Address Region ! N ! $GET_REGION_INFO function, region_id_64, start_va_64, ,buffer_length,' ! buffer_address_64, return_length_64 !  ! function = Function code !  ! Code Meaning1 ! VA$_REGSUM_BY_ID Region summary, by ID1 ! VA$_REGSUM_BY_VA Region summary, by VA7 ! VA$_NEXT_REGSUM_BY_VA Next region summary, by VA ! = ! region_id_64 = Address of quadword region id to use with ! VA$_REGSUM_BY_ID ! > ! start_va_64 = Virtual address to use with VA$_REGSUM_BY_VA ! * ! buffer_length = Length of user buffer ! 6 ! buffer_address_64 = Address of user REGSUM buffer ! = ! return_length_64 = Length of data written to user buffer !  INTEGER*4 SYS$GET_REGION_INFO EXTERNAL SYS$GET_REGION_INFO ! $GET_SECURITY ! ! ! Get Object Securty Profile ! Z ! $GET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] !  INTEGER*4 SYS$GET_SECURITY EXTERNAL SYS$GET_SECURITY ! ! $GET !  ! Get Record from File !  ! $GET rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$GET EXTERNAL SYS$GET !  ! $GET_ARITH_EXCEPTION ! 7 ! Get AXP arithmetic exception context information ! 4 ! $GET_ARITH_EXCEPTION sigarg, mcharg, buffer ! : ! sigarg = address of signal array of the exception ! 8 ! mcharg = address of mechanism array of the exception ! 4 ! buffer = address of buffer to return information ! " INTEGER*4 SYS$GET_ARITH_EXCEPTION! EXTERNAL SYS$GET_ARITH_EXCEPTION ! $GETCHN ! " ! Get I/O Channel Information ! = ! $GETCHN chan ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] ! ; ! chan = number of a channel assigned to the device ! D ! prilen = address of word to receive length of primary buffer ! 5 ! pribuf = address of primary buffer descriptor ! F ! scdlen = address of word to receive length of secondary buffer ! 7 ! scdbuf = address of secondary buffer descriptor !  INTEGER*4 SYS$GETCHN EXTERNAL SYS$GETCHN ! $GETDEV ! ! ! Get I/O Device Information ! @ ! $GETDEV devnam ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] ! B ! devnam = address of device name or logical name descriptor ! D ! prilen = address of word to receive length of primary buffer ! 5 ! pribuf = address of primary buffer descriptor ! F ! scdlen = address of word to receive length of secondary buffer ! 7 ! scdbuf = address of secondary buffer descriptor !  INTEGER*4 SYS$GETDEV EXTERNAL SYS$GETDEV ! ! $GETDTI ! . ! Get Distributed Transaction Information ! H ! $GETDTI [efn], [flags], iosb, [astadr], [astprm], [log_id], context, ! ($GETDTIW) search, itmlst ! ) !  efn = event flag to set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O status block8 ! astadr = address of the entry mask of an AST routine. ! astprm = value to be passed to AST routine) ! log_id = address of log id for TM log0 ! context = address of longword search context7 ! search = address of a list of search criteria items2 ! itmlst = address of a list of item descriptors !  INTEGER*4 SYS$GETDTI EXTERNAL SYS$GETDTI INTEGER*4 SYS$GETDTIW EXTERNAL SYS$GETDTIW ! $GETDVI ! $ ! Get Device/Volume Information ! B ! $GETDVI [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr]; ! ($GETDVIW) ,[astprm] ,[nullarg], [pathname] ! 3 ! efn = event flag to be set at completion ! > ! chan = number of a channel assigned to the device orA ! 0 if device is specified by the devnam parameter ! B ! devnam = address of device name or logical name descriptor ! 6 !  itmlst = address of a list of item descriptors ! 7 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine !  ! nullarg = zilch ! = ! pathname = optional address of a path name descriptor !  !  INTEGER*4 SYS$GETDVI EXTERNAL SYS$GETDVI INTEGER*4 SYS$GETDVIW EXTERNAL SYS$GETDVIW ! $GETEVI !  ! Get Event Information ! " ! $GETEVI itmlst ,[nullarg] ! 6 ! itmlst = address of a list of item descriptors !  INTEGER*4 SYS$GETEVI EXTERNAL SYS$GETEVI ! $GETJPI ! " ! Get Job/Process Information ! E ! $GETJPI [efn] ,[pidadr] ,[prcnam] ,itmlst ,[iosb], [astadr], ! ($GETJPIW) [astprm] ! 3 ! efn = event flag to be set at completion ! 2 ! pidadr = address of process identification ! : ! prcnam = address of process name string descriptor ! 6 ! itmlst = address of a list of item descriptors ! 7 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as an argument !  !  INTEGER*4 SYS$GETJPI EXTERNAL SYS$GETJPI INTEGER*4 SYS$GETJPIW EXTERNAL SYS$GETJPIW ! $GETJPI_FAST ! : ! Get Job/Process Information For The Current Process !  ! $GETJPI_FAST ! : ! item_mask = Mask of current process info requested !  ! flags = MBZ for now !  ! return_buffer : ! = Address of buffer to return array of longword info !  ! return_buffer_length / ! = Length of return buffer array in bytes  !  !  INTEGER*4 SYS$GETJPI_FAST EXTERNAL SYS$GETJPI_FAST ! $GETLKI !  ! Get Lock Information ! D ! $GETLKI [efn] ,lkidadr ,itmlst ,[iosb], [astadr], [astprm], ! ($GETLKIW) [reserved] ! 3 ! efn = event flag to be set at completion ! 0 ! lkidadr = address of lock identification ! 6 ! itmlst = address of a list of item descriptors ! 7 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as an argument ! % ! reserved = reserved parameter !  !  INTEGER*4 SYS$GETLKI EXTERNAL SYS$GETLKI INTEGER*4 SYS$GETLKIW EXTERNAL SYS$GETLKIW ! $GETMSG !  ! Get Message ! 9 ! $GETMSG msgid ,msglen ,bufadr ,[flags] ,[outadr] ! : ! msgid = identification of message to be retrieved ! F ! msglen = address of a word to receive length of string ! returned ! F ! bufadr = address of buffer descriptor of buffer to receive ! string ! C ! flags = flag bits for message content (macro default = 15) ! ! Bit Value/Meaning ! ! 0 1 Include text' ! 0 Do not include text& ! 1 1 Include identifier- ! 0 Do not include identifier$ ! 2 1 Include severity+ ! 0 Do not include severity% ! 3 1 Include component, ! 0 Do not include component ! I ! outadr = address of 4-byte array to receive the following values: !  ! Byte Contents !  ! 0 Reserved$ ! 1 Count of FAO arguments !  2 User value ! 3 Reserved !  INTEGER*4 SYS$GETMSG EXTERNAL SYS$GETMSG ! $GETPTI ! ! ! Get Page Table Information ! : ! $GETPTI [inadr],[retadr],[acmode],[mask],[pagcnt] ! < ! inadr = address of two longwords containing starting, ! and ending virtual address to operate on ! = ! retadr = address of two longwords into which starting7 ! and ending address of pages operated on is returned ! A ! acmode = access mode against which ownership is checked ! : ! mask = mask of page table information control bits ! # ! pagcnt = minimum page count !  !  INTEGER*4 SYS$GETPTI EXTERNAL SYS$GETPTI ! $GETQUI !  ! Get Queue Information ! 3 ! $GETQUI [efn], func, [context], [itmlst],, ! ($GETQUIW) [iosb], [astadr], [astprm] ! = ! efn = event flag to be set when request completes: ! func = code specifying function to be performedC ! context = address of a longword containing a context numberI ! itmlst = address of a list of item descriptors for the operationP ! iosb = address of a quadword status block to receive the final statusO ! astadr = address of an ast routine to be called when request completes& ! astprm = 32-bit ast parameter !  INTEGER*4 SYS$GETQUI EXTERNAL SYS$GETQUI INTEGER*4 SYS$GETQUIW EXTERNAL SYS$GETQUIW ! $GETRMI ! ' ! Get Resource Monitor Information ! P ! $GETRMI  [efn] ,[nullarg] ,[nullarg] ,itmlst ,[iosb] ,[astadr] ,[astprm] ! 3 ! efn = event flag to be set at completion ! 6 ! itmlst = address of a list of item descriptors ! 7 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine ! # ! nullarg = reserved argument !  !  INTEGER*4 SYS$GETRMI EXTERNAL SYS$GETRMI ! $GETSYI ! " ! Get System-Wide Information ! F ! $GETSYI [efn] ,[csidadr],[nodename],itmlst ,[iosb] ,[astadr], ! ($GETSYIW) [astprm] ! 3 ! efn = event flag to be set at completion ! : ! csidadr = address of cluster system identification ! 9 ! nodename = address of node name string descriptor ! 6 ! itmlst = address of a list of item descriptors ! 7 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine !  ! G ! The second and third arguments in the $GETSYI argument list are3 ! not used; they are reserved for future use. !  INTEGER*4 SYS$GETSYI EXTERNAL SYS$GETSYI INTEGER*4 SYS$GETSYIW EXTERNAL SYS$GETSYIW ! $GETTIM !  ! Get Time !  ! $GETTIM timadr ! K ! timadr = address of a quadword to receive 64-bit current time value !  INTEGER*4 SYS$GETTIM EXTERNAL SYS$GETTIM !  ! $GET_USER_CAPABILITY ! + ! Reserve a global user capability bit ! W ! $GET_USER_CAPABILITY [cap_num],[select_num],[select_mask],[prev_mask],[flags] ! ; ! cap_num = address of cell with requested cap number: ! select_num = address of cell with selected cap number@ ! select_mask = address of bitmask indicating which capability ! bit selected by operation; ! prev_mask = address of user quadword that will hold the5 ! previous state of the reserved capabilities cell: ! flags = address of behavioral flags for this operation ! " INTEGER*4 SYS$GET_USER_CAPABILITY! EXTERNAL SYS$GET_USER_CAPABILITY ! $GETUTC !  ! Get UTC Time !  ! $GETUTC utcadr ! O ! utcadr = address of a utc_date_time to receive 128-bit current UTC time ! value !  INTEGER*4 SYS$GETUTC EXTERNAL SYS$GETUTC ! $GETUAI ! ) ! Get User Authorization Information ! B ! $GETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] ! ,[astprm] ! 3 ! efn = event flag to be set at completion ! > ! contxt = address of a context longword (UAF IFI & ISI) ! 0 ! usrnam = address of user name descriptor ! 6 ! itmlst = address of a list of item descriptors ! 7 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine !  !  INTEGER*4 SYS$GETUAI EXTERNAL SYS$GETUAI ! Alpha ! $GOTO_UNWIND_64 ! ! General Unwind Call Stack ! ; ! $GOTO_UNWIND_64 [target_invo_64], [target_pc_64],  ! [newretval], [newretval2] ! G ! target_invo_64 = address of longword (Alpha) or quadword (IPF) 7 ! containing the invocation handle (frame pointer on, ! Alpha) to unwind call stack ! G ! target_pc_64 = address of quadword that contains the PC to be . ! given control when the unwind is complete ! G ! newretval = address of a location that contains the value to be8 ! placed in the saved R0 field of the mechanism array ! H ! newretval2 = address of a location that contains the value to be8 ! placed in the saved R1 field of the mechanism array !  !  INTEGER*4 SYS$GOTO_UNWIND_64 EXTERNAL SYS$GOTO_UNWIND_64 ! ! $GRANTID ! " ! Grant Identifier to Process ! B ! $GRANTID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] ! 0 ! pidadr = address of PID of affected process: ! prcnam = address of string descriptor of process name; ! id = address of quadword identifier and attributes= ! name = address of string descriptor of identifier name: ! prvatr = address to store attributes of superseded id. ! segment = optional segment index, by value !  INTEGER*4 SYS$GRANTID EXTERNAL SYS$GRANTID !  ! $GRANT_LICENSE ! > ! Grant authorization to execute licensed software product. ! 7 ! $GRANT_LICENSE prdnam ,prducer [,contxt] [,itmlst] ! < ! prdnam = address of descriptor for software product name> ! prducer = address of descriptor for software producer name5 ! contxt = address of context buffer (4 longwords)2 ! itmlst = address of a list of item descriptors !  INTEGER*4 SYS$GRANT_LICENSE EXTERNAL SYS$GRANT_LICENSE ! $HASH_PASSWORD ! > ! Encrypt a user password to produce a quadword hash value. ! 1 ! $HASH_PASSWORD pwd, alg, [salt], usrnam, hash ! 6 ! pwd = address of descriptor for plaintext password# ! alg = algorithm to use for hash/ ! salt = salt value for use by hash algorithm. ! usrnam = address of descriptor of username1 ! hash = address of output quadword hash buffer !  INTEGER*4 SYS$HASH_PASSWORD EXTERNAL SYS$HASH_PASSWORD ! $HIBER !  ! Hibernate !  ! $HIBER_S !  INTEGER*4 SYS$HIBER EXTERNAL SYS$HIBER ! ! $IDTOASC ! % ! Identifier To Ascii Conversion ! @ ! $IDTOASC id, [namlen], [nambuf], [resid], [attrib], [contxt] ! 3 ! id = identifier longword to convert, or zero to) ! find all identifiers (wildcarding)9 ! namlen = address of a word to store the length of the ! identifier name: ! nambuf = address of a character string descriptor that9 ! describes the buffer to return the identifier name8 ! resid = address of a longword to return the id found ! while wildcarding6 ! attrib = address to return the attributes longword? ! contxt = address of a longword containing the record stream6 ! context. initially should be zero, value output6 ! on first call, value input on subsequent calls. !  INTEGER*4 SYS$IDTOASC EXTERNAL SYS$IDTOASC !  ! $IEEE_SET_FP_CONTROL ! / ! Set IEEE floating point control register ! 5 ! $IEEE_SET_FP_CONTROL [clrmsk], [setmsk], [prvmsk] ! 0 ! clrmsk = address of a quadword mask to clear. ! setmsk = address of a quadword mask to set; ! prvmsk = address of a quadword to return previous value ! " INTEGER*4 SYS$IEEE_SET_FP_CONTROL! EXTERNAL SYS$IEEE_SET_FP_CONTROL ! $IMGACT !  ! Image Activation ! 6 ! $IMGACT name,[dflnam],hdrbuf,[imgctl],[inadr], ! [retadr], [ident], [acmode] !  ! 9 ! name = address of descriptor for file name string ! 0 ! dflnam = descriptor for file name string ! 7 ! hdrbuf = address of 512 byte buffer to write in ! / ! imgctl = image activation control flags ! > ! inadr = address of quadword specifying virtual address ! range to be mapped ! ? ! retadr = address of quadword specifying virtual address ! range actually mapped ! ? ! ident = address of quadword holding image section match ! control and identifier ! A ! acmode = access mode to be the owner of the created pages !  INTEGER*4 SYS$IMGACT EXTERNAL SYS$IMGACT ! $IMGFIX ! " ! Image Address Fixup Service !  !  $IMGFIX !  INTEGER*4 SYS$IMGFIX EXTERNAL SYS$IMGFIX ! $INIT_VOL !  ! Initialize Volume ! * ! $INIT_VOL devnam, volnam, [itmlst] ! < ! devnam = device name containing volume to initialize ! 3 ! volnam = name to initialize the volume with ! E ! itmlst = address of item code list for initialization options !  INTEGER*4 SYS$INIT_VOL EXTERNAL SYS$INIT_VOL ! $IO_CLEANUP ! & ! Cleanup a previously set-up I/O !  ! $IO_CLEANUP fandle !  ! fandle = fandle to clean up !  INTEGER*4 SYS$IO_CLEANUP EXTERNAL SYS$IO_CLEANUP ! $IO_FASTPATH ! " ! I/O Fastpath system service ! : ! $IO_FASTPATH efn, cpu_mask, func, iosb, astadr, astprm !  ! efn = event flag number ! 8 ! cpu_mask = either -1 wildcard or pointer to longword ! containing CPU mask0 ! FP$K_BALANCE_PORTS = balance fastpath ports ! " ! func = fastpath function code ! ' ! iosb = address of I/O status block ! / ! astadr = address of AST completion routine ! # ! astprm = AST routine parameter !  INTEGER*4 SYS$IO_FASTPATH EXTERNAL SYS$IO_FASTPATH INTEGER*4 SYS$IO_FASTPATHW EXTERNAL SYS$IO_FASTPATHW ! $IO_PERFORM ! . ! Transfer data between device and buffer ! = ! $IO_PERFORM fandle, chan, iosadr, bufadr, buflen, devdata ! ($IO_PERFORMW) ! + ! fandle = fandle from previous $IO_SETUP ! ! ! chan = standard I/O channel !  ! iosadr = IOSA address ! - ! bufadr = address of data buffer (64 bits) ! , ! buflen = length of data buffer (64 bits) ! 7 ! devdata= data passed to driver, e.g., media address !  !  INTEGER*4 SYS$IO_PERFORM EXTERNAL SYS$IO_PERFORM INTEGER*4 SYS$IO_PERFORMW EXTERNAL SYS$IO_PERFORMW ! $IO_SETUP !  ! Set up a fast I/O ! A ! $IO_SETUP func, bufobj, iosobj, astadr, flags, return_fandle !  ! func = function code ! ? ! bufobj = data buffer object (address of (vector of 2 ints)) ! ? ! iosobj = IOSA buffer object (address of (vector of 2 ints)) ! 6 ! astadr = completion AST address (address of entry) !  ! flags = flags ! . ! return_fandle = address of returned fandle !  INTEGER*4 SYS$IO_SETUP EXTERNAL SYS$IO_SETUP ! $IPC ! ) ! Interprocess Communication Request ! 6 ! $IPC [efn] ,func ,ipcb ,[astadr] ,[astprm] ! ($IPCW) ! : ! efn = number of event flag to set on completion ! @ ! func = function code specifying action to be performed ! < ! ipcb = address of Interprocess Communication Block ! 5 ! astadr = address of entry mask of AST routine ! > ! astprm = value to be passed to AST routine as argument !  !  INTEGER*4 SYS$IPC EXTERNAL SYS$IPC INTEGER*4 SYS$IPCW EXTERNAL SYS$IPCW ! $LCKPAG !  ! Lock Pages in Memory ! * ! $LCKPAG inadr ,[retadr] ,[acmode] ! D ! inadr = address of 2-longword array containing starting and7 ! ending addresses of pages to be locked ! D ! retadr = address of 2-longword array to receive addresses of& ! pages actually locked ! D ! acmode = access mode to check against the owner of the pages !  INTEGER*4 SYS$LCKPAG EXTERNAL SYS$LCKPAG ! $LCKPAG_64 !  ! Lock Pages in Memory ! R ! $LCKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 ! ; ! start_va_64 = Starting address of address space to lock ! 4 ! length_64 = Byte length of addresses to lock ! D ! acmode = Access mode to be checked against the page owner ! 6 ! return_va_64 = Address of address space locked ! 6 ! return_length_64 = Length of address space locked !  INTEGER*4 SYS$LCKPAG_64 EXTERNAL SYS$LCKPAG_64 ! $LFS !  ! Call the LFS file system ! 5 ! $LFS [efn] ,func ,fsb ,[astadr] ,[astprm] ! : ! efn = number of event flag to set on completion ! @ ! func = function code specifying action to be performed ! - ! fsb = address of File System Block ! 5 ! astadr = address of entry mask of AST routine ! > ! astprm = value to be passed to AST routine as argument !  INTEGER*4 SYS$LFS EXTERNAL SYS$LFS ! $LKWSET ! ! Lock Pages in Working Set ! * ! $LKWSET inadr ,[retadr] ,[acmode] ! D ! inadr = address of 2-longword array containing starting and? ! ending virtual addresses of pages to be locked ! F ! retadr = address of a 2-longword array to receive starting andB ! ending virtual addresses of pages actually locked ! A ! acmode = access mode to be checked against the page owner !  INTEGER*4 SYS$LKWSET EXTERNAL SYS$LKWSET ! $LKWSET_64 ! ! Lock Pages in Working Set ! R ! $LKWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 ! ; ! start_va_64 = Starting address of address space to lock ! 4 ! length_64 = Byte length of addresses to lock ! D ! acmode = Access mode to be checked against the page owner ! 6 ! return_va_64 = Address of address space locked ! 6 ! return_length_64 = Length of address space locked !  INTEGER*4 SYS$LKWSET_64 EXTERNAL SYS$LKWSET_64 !  ! $LOOKUP_MAPPING ! 5 ! Find single Mapping record in Mapping database ! - ! $LOOKUP_MAPPING initmlst ,[outitmlst] ! L ! initmlst = address of a list of item descriptors for the operationL ! outitmlst = address of a list of item descriptors for the operation !  INTEGER*4 SYS$LOOKUP_MAPPING EXTERNAL SYS$LOOKUP_MAPPING ! $MGBLSC !  ! Map Global Section ! N ! $MGBLSC inadr ,[retadr] ,[acmode] ,[flags] ,gsdnam ,[ident] ,[relpag] ! D ! inadr = address of 2-longword array containing starting and7 ! ending addresses of pages to be mapped ! ? ! retadr = address of 2-longword array to receive virtual* ! addresses of pages mapped ! 5 ! acmode = access mode of owner of mapped pages ! A ! flags = flags overriding default section characteristics !  ! Flag Meaning ! + ! SEC$M_WRT Read/write section. ! SEC$M_SYSGBL System global section3 ! SEC$M_EXPREG Find first available space ! : ! gsdnam = address of global section name descriptor ! L ! ident = address of quadword containing version id and match control ! ; ! relpag = relative page number within global section !  INTEGER*4 SYS$MGBLSC EXTERNAL SYS$MGBLSC ! $MGBLSC_64 ! + ! Map Global Page or Disk File Section ! I ! $MGBLSC_64 gsdnam_64, ident_64, region_id_64, section_offset_64,@ ! length_64, acmode, flags, return_va_64, return_length_64$ ! [, start_va_64[, page_prot]] ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! Q ! ident_64 = Address of quadword containing version id and match control ! 1 ! region_id_64 = Address of quadword region id ! L ! section_offset_64 = Relative byte within global section to start mapping ! 1 ! length_64 = Byte length of section to map ! 8 ! acmode = Access mode of owner of mapped pages ! D ! flags = Flags overriding default section characteristics ! ! ! Flag Meaning ! 4 ! SEC$M_EXPREG Find first available space< ! SEC$M_NO_OVERMAP Do not overmap existing address space/ ! SEC$M_SYSGBL System global section8 ! SEC$M_WRT Read/write mapping of section ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! = ! start_va_64 = Starting address of address space to create ! 2 ! page_prot = Desired page protection (optional) !  INTEGER*4 SYS$MGBLSC_64 EXTERNAL SYS$MGBLSC_64 ! $MGBLSC_GPFN_64 ! $ ! Map Global Page Frame Section ! V ! $MGBLSC_GPFN_64 gsdnam_64, ident_64, region_id_64, relative_page, page_count,3 ! acmode, flags, return_va_64, return_length_64" ! [, start_va_64[, page_prot]] ! A ! gsdnam_64 = Address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! Q ! ident_64 = Address of quadword containing version id and match control ! 1 ! region_id_64 = Address of quadword region id ! I ! relative_page = Relative page within global section to start mapping ! - ! page_count = Number of page frames to map ! 8 ! acmode = Access mode of owner of mapped pages ! D ! flags = Flags overriding default section characteristics ! ! ! Flag Meaning ! 4 ! SEC$M_EXPREG Find first available space< ! SEC$M_NO_OVERMAP Do not overmap existing address space/ ! SEC$M_SYSGBL System global section8 ! SEC$M_WRT Read/write mapping of section ! 7 ! return_va_64 = Address of address space created ! 7 ! return_length_64 = Length of address space created ! = ! start_va_64 = Starting address of address space to create ! 2 ! page_prot = Desired page protection (optional) !  INTEGER*4 SYS$MGBLSC_GPFN_64 EXTERNAL SYS$MGBLSC_GPFN_64 ! ! $MODIFY !  ! Modify File ! " ! $MODIFY fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$MODIFY EXTERNAL SYS$MODIFY !  ! $MODIFY_MAPPING ! 0 ! Modify Mapping record in Mapping database ! + ! $MODIFY_MAPPING initmlst, moditmlst ! L ! initmlst = address of a list of item descriptors for the operationL ! moditmlst = address of a list of item descriptors for the operation !  INTEGER*4 SYS$MODIFY_MAPPING EXTERNAL SYS$MODIFY_MAPPING !  ! $MOD_HOLDER ! . ! Modify Holder Record In Rights Database ! 6 ! $MOD_HOLDER id, holder, [set_attrib], [clr_attrib] !  ! id = identifier longword9 ! holder = address of the holder identifier quadword: ! set_attrib = longword containing the attributes to set ! into the holder record< ! clr_attrib = longword containing the attributes to clear !  in the holder record !  INTEGER*4 SYS$MOD_HOLDER EXTERNAL SYS$MOD_HOLDER !  ! $MOD_IDENT ! 2 ! Modify Identifier Record In Rights Database ! F ! $MOD_IDENT id, [set_attrib], [clr_attrib], [new_name], [new_value] !  ! id = identifier longword3 ! set_attrib = longword containing the attributes+ ! to set into the identifier record3 ! clr_attrib = longword containing the attributes+ ! to clear in the identifier record= ! new_name = address of the new identifier name character' ! string descriptor. ! new_value = new identifier value longword !  INTEGER*4 SYS$MOD_IDENT EXTERNAL SYS$MOD_IDENT ! $MOUNT !  ! Mount Volume !  ! $MOUNT itmlst ! 6 ! itmlst = Address of a list of item identifiers !  INTEGER*4 SYS$MOUNT EXTERNAL SYS$MOUNT ! $MTACCESS ! 2 ! Installation specific accessibility routine ! ; ! $MTACCESS lblnam, [uic], [std_version], [ac cess_char], ! [access_spec],type ! < ! lblnam = On input this field is the address of the8 ! VOL1 or HDR1 label read off the magnetic tape. On4 ! output of labels this field is zero. The type0 ! of label is determined by the TYPE field.C ! uic = This field contains the longword volme UIC passed ! by value.= ! std_version = This field contains a byte value of the2 ! decimal equivalent of the version number6 ! gotten from the VO L1 label, passed by value.> ! access_char = This field contins the byte value of the8 ! accessibility character specified by the user,5 ! passed by value. For output of labels only.C ! access_spec = This field determines if the character passed7 ! in ACCESS_CHAR was specified by user, passed9 ! by value. It must contain one of the following ! values: ! MTA$K_CHARVALID = YES ! MTA$K_NOCHAR = NO% ! For output of labels only .G ! type = This field contains the type of accessibility to process,> ! passed by value. It must contain one of the following ! values:' ! MTA$K_INVOL1 = Input a VOL1 label' ! MTA$K_INHDR1 = Input a HDR1 label) ! MTA$K_OUTVOL1 = Output a VOL1 label) ! MTA$K_OUTHDR1 = Output a HDR1 label !  INTEGER*4 SYS$MTACCESS EXTERNAL SYS$MTACCESS ! $NUMTIM ! * ! Convert Binary Time to Numeric Time ! ! ! $NUMTIM timbuf ,[timadr] ! C !   timbuf = address of a 7-word buffer to receive numeric time ! information ! F ! timadr = address of a quadword containing the 64-bit time. If$ ! 0, use current time !  INTEGER*4 SYS$NUMTIM EXTERNAL SYS$NUMTIM ! ! $NUMUTC ! . ! Convert UTC Binary Time to Numeric Time ! ! ! $NUMUTC timbuf ,[utcadr] ! D ! timbuf = address of a 11-word buffer to receive numeric time ! information !  ! 31  0) ! +---------------+---------------+B ! | month of year | year since 0 | 7 word Date (ala NUMTIM)& ! +---------------+---------------+& ! | hour of day | day of month |& ! +---------------+---------------+& ! | sec. of min. | min. of hour |& ! +---------------+---------------+" ! | iDays | hund of Sec |+ ! +---------------+---------------+A ! | imins | ihours | 6 word Inaccuracy+ ! +---------------+------------- --++ ! | ihund of sec | isecs |+ ! +---------------+---------------+ ! | TDF in Min | ! +---------------+ ! 7 ! utcadr = address of a utc_date_time to convert.$ ! 0, use current time !  INTEGER*4 SYS$NUMUTC EXTERNAL SYS$NUMUTC ! ! $NXTVOL !  ! Go to Next Volume ! " ! $NXTVOL rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$NXTVOL EXTERNAL SYS$NXTVOL ! ! $OPEN !  ! Open File ! ! $OPEN fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine INTEGER*4 SYS$OPEN EXTERNAL SYS$OPEN ! ! $PARSE !  ! Parse File Name ! ! ! $PARSE fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$PARSE EXTERNAL SYS$PARSE !  ! $PARSE_ACL ! ) ! Parse an Access Control list Entry ! 7 ! $PARSE_ACL acl-string ,acl-entry ,[error-position], ! [bit-names], [routin] ! : ! acl-string = address of a descriptor of a buffer which& ! contains the text to be parsed ! 8 ! acl-entry = address of a descriptor of a buffer into0 ! which the converted ACE is to be written ! ? ! error-position = address of a word to receive the number of5 ! characters actually processed by the service.2 ! If the service fails, this count points to. ! the failing point in the input string. ! ? ! bit-names = address of a access bit name table (32 entries) ! > ! routin = address of routine to be executed in kernel mode !  INTEGER*4 SYS$PARSE_ACL EXTERNAL SYS$PARSE_ACL" ! $PARSE_CLASS itmlst, [routin] ! ! ! Parse access class strings ! 6 ! itmlst = address of a list of item descriptors ! A ! routin = address of routine to be executed in kernel mode !  !  INTEGER*4 SYS$PARSE_CLASS EXTERNAL SYS$PARSE_CLASS ! $PERSONA_CREATE !  ! Create Persona ! H ! $PERSONA_CREATE persona, [usrnam], [flags], [usrpro], [itmlst] ! B ! persona = address of longword holding persona identifier ! 3 ! usrnam = address of user name descriptor ! # ! flags = bitvector value ! c ! usrpro = address of a descriptor pointing to a user profile block (TLV structure) ! L ! itmlst = address of item list for modifications to persona !  INTEGER*4 SYS$PERSONA_CREATE EXTERNAL SYS$PERSONA_CREATE ! $PERSONA_CREATE_INT ! ' ! Create Persona Internal Service ! - ! $PERSONA_CREATE_INT persona, itmlst ! I ! persona = address of longword holding persona identifier ! G ! itmlst = address of item list containing persona data ! ! INTEGER*4 SYS$PERSONA_CREATE_INT EXTERNAL SYS$PERSONA_CREATE_INT ! $PERSONA_ASSUME !  ! Assume Persona ! @ ! $PERSONA_ASSUME persona, [flags], [previous], [acmode] ! I ! persona = address of longword holding persona identifier ! ) ! flags = longword value ! U ! previous = address of longword to receive previous persona identifier ! ? ! acmode = access mode of code assuming persona !  !  INTEGER*4 SYS$PERSONA_ASSUME EXTERNAL SYS$PERSONA_ASSUME ! $PERSONA_DELETE !  ! Delete Persona ! ! ! $PERSONA_DELETE persona ! I ! persona = address of longword holding persona identifier !  INTEGER*4 SYS$PERSONA_DELETE EXTERNAL SYS$PERSONA_DELETE ! $PERSONA_EXPORT_ARB ! + ! Move Persona data to ARB structures ! % ! $PERSONA_EXPORT_ARB [level] ! > ! level = level of ARB_SUPPORT to be provided ! ! INTEGER*4 SYS$PERSONA_EXPORT_ARB EXTERNAL SYS$PERSONA_EXPORT_ARB ! $PERSONA_IMPORT_ARB ! 3 ! Load Persona Block with ARB structures data ! % ! $PERSONA_IMPORT_ARB [level] ! > ! level = level of ARB_SUPPORT to be provided ! ! INTEGER*4 SYS$PERSONA_IMPORT_ARB EXTERNAL SYS$PERSONA_IMPORT_ARB ! $PERSONA_CLONE ! & !  Create duplicate Persona block ! ! $PERSONA_CLONE persona ! O ! persona = address of location in which to store the persona id( ! of the clone. ! Q ! input_id = address of location containing the persona ID to clone$ ! OPTIONAL! !  INTEGER*4 SYS$PERSONA_CLONE EXTERNAL SYS$PERSONA_CLONE !  ! $PROCESS_AFFINITY !  ! Modify process affinity ! ] ! $PROCESS_AFFINITY [pidad r],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags] ! G ! pidadr = address of process identification of process for1 ! which affinity is to be changed; ! prcnam = address of process name string descriptorB ! select_mask = address of bitmask indicating which capabilities3 ! are to be involved in the specified operation; ! modify_mask = address of bitmask indicating final state3 ! of those capabilities specified in select_mask; ! prev_mask = address of user quadword that will hold the3 ! previous states of the individual capabilities: ! flags = address of behavioral flags for this operation !  INTEGER*4 SYS$PROCESS_AFFINITY EXTERNAL SYS$PROCESS_AFFINITY !  ! $PROCESS_CAPABILITIES ! ' ! Modify process user capabilities ! a ! $PROCESS_CAPABILITIES [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags] ! G ! pidadr = address of process identification of process for7 !  which capabilities are to be modified; ! prcnam = address of process name string descriptorB ! select_mask = address of bitmask indicating which capabilities3 ! are to be involved in the specified operation; ! modify_mask = address of bitmask indicating final state3 ! of those capabilities specified in select_mask; ! prev_mask = address of user quadword that will hold the3 ! previous states of the individual capabilities: ! flags = address of behavioral flags for this operation ! # INTEGER*4 SYS$PROCESS_CAPABILITIES" EXTERNAL SYS$PROCESS_CAPABILITIES ! $PROCESS_SCAN ! & ! Initialize Process_scan context ! ) ! $Process_scan pidctx , [itmlst ] ! * ! pidctx = address of process ctx id ! 6 ! itmlst = address of a list of item descriptors !  !  INTEGER*4 SYS$PROCESS_SCAN EXTERNAL SYS$PROCESS_SCAN ! $PSHARED_REGISTER ! , ! Register a process and global section !  ! $PSHARED_REGISTER addr ! F ! addr = base address of the global section to be registered ! $PURGE_WS !  ! Purge Working Set ! ) ! $PURGE_WS start_va_64, length_64 ! < ! start_va_64 = Starting address of address space to purge ! 5 ! length_64 = Byte length of addresses to purge !  !  INTEGER*4 SYS$PURGE_WS EXTERNAL SYS$PURGE_WS ! $PURGWS !  ! Purge Working Set !  ! $PURGWS inadr ! D ! inadr = address of 2-longword array containing starting and8 ! ending addresses of pages to be removed !  INTEGER*4 SYS$PURGWS EXTERNAL SYS$PURGWS ! ! $PUT !  ! Put Record to File !  ! $PUT rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$PUT EXTERNAL SYS$PUT ! $PUTMSG !  ! Put Message ! 5 ! $PUTMSG msgvec ,[actrtn] ,[facnam], [actprm] ! 3 ! msgvec = address of message argument vector ! 8 ! actrtn = address of entry mask of action routine ! ; ! facnam = address of facility name string descriptor ! 4 ! actprm = parameter to pass to action routine !  INTEGER*4 SYS$PUTMSG EXTERNAL SYS$PUTMSG ! $QIO !  ! Queue I/O Request ! > ! $QIO [efn] ,chan ,func ,[iosb] ,[astadr] ,[astprm]4 ! ($QIOW) ,[p1] ,[p2] ,[p3] ,[p4] ,[p5] ,[p6] ! : ! efn = number of event flag to set on completion ! ; ! chan = number of channel on which I/O is directed ! @ ! func = function code specifying action to be performed ! F ! iosb = address of quadword I/O status block to receive final" ! completion status ! 5 ! astadr = address of entry mask of AST routine ! > ! astprm = value to be passed to AST routine as argument ! B ! p1... = optional device- and function-specific parameters !  INTEGER*4 SYS$QIO EXTERNAL SYS$QIO INTEGER*4 SYS$QIOW EXTERNAL SYS$QIOW ! ! $READ !  ! Read Block from File ! ! $READ rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$READ EXTERNAL SYS$READ ! $READEF !  ! Read Event Flag !  ! $READEF efn ,state ! = ! efn = eve nt flag number of any flag in the cluster ! F ! state = address of a longword to receive current state of all% ! flags in the cluster !  INTEGER*4 SYS$READEF EXTERNAL SYS$READEF !  ! $READ_THREAD_UNQ !  ! Read thread unique value ! ! $READ_THREAD_UNQ contxt ! < ! contxt = address of quadword in which to return the ! thread unique value !  INTEGER*4 SYS$READ_THREAD_UNQ EXTERNAL SYS$READ_THREAD_UNQ !  ! $REGI!STRY ! ) ! Interface to the Registry Database ! ; ! $REGISTRY [efn], func, [ntcredentials], itmlst, [iosb] $ ! [,astadr] [,astprm] [,timeout] ! ($REGISTRYW) ! - ! efn = event flag to be set at completion ! ; ! func = function code specifying action to be performed ! C ! ntcredentials = address of an NT user credentials buffer ! 3 ! itmlst = address of a list of item descriptors ! 2 ! iosb = address of a quadword I/O status block ! 2 ! "astadr = address of entry mask of AST routine ! / ! astprm = value to be passed to AST routine ! $ ! timeout = request timeout value !  INTEGER*4 SYS$REGISTRY EXTERNAL SYS$REGISTRY INTEGER*4 SYS$REGISTRYW EXTERNAL SYS$REGISTRYW ! ! $RELEASE !  ! Release Record ! # ! $RELEASE rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine# !  INTEGER*4 SYS$RELEASE EXTERNAL SYS$RELEASE !  ! $RELEASE_LICENSE ! @ ! Release authorization to execute licensed software product. !  ! $RELEASE_LICENSE context ! 4 ! contxt = address of context buffer returned by# ! $grant_license (4 longwords) !  INTEGER*4 SYS$RELEASE_LICENSE EXTERNAL SYS$RELEASE_LICENSE !  ! $RELEASE_VP ! # ! Release the Vector Processor !  ! $RELEASE_VP !  INTEGER*4 SYS$RELEASE_VP EXTERNAL SYS$RE$LEASE_VP !  ! $RELEASE_VP_INT ! 2 ! Release the Vector Processor, internal form !  ! $RELEASE_VP_INT !  INTEGER*4 SYS$RELEASE_VP_INT EXTERNAL SYS$RELEASE_VP_INT ! ! $REMOVE !  ! Remove File ! " ! $REMOVE fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$REMOVE EXTERNAL SYS$REMOVE !  ! $REM_HO%LDER ! 0 ! Remove Holder Record From Rights Database !  ! $REM_HOLDER id, holder !  ! id = identifier longword6 ! holder = address of the holder identifier quadword !  INTEGER*4 SYS$REM_HOLDER EXTERNAL SYS$REM_HOLDER !  ! $REM_IDENT ! - ! Remove Identifier From Rights Database !  ! $REM_IDENT id !  ! id = identifier longword !  INTEGER*4 SYS$REM_IDENT EXTERNAL SYS$REM_IDENT ! ! $RENAME !  ! Rename File ! - ! & $RENAME oldfab, [err], [suc], newfab ! # ! oldfab = address of oldfab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  ! newfab = address of new fab INTEGER*4 SYS$RENAME EXTERNAL SYS$RENAME !  ! $RESTORE_VP_EXCEPTION ! / ! Restore Vector Processor Exception State !  ! $RESTORE_VP_EXCEPTION excid ! * ! excid = address of a context longword ! # INTEGER*4 SYS$RESTORE_VP_EXCEPT'ION" EXTERNAL SYS$RESTORE_VP_EXCEPTION !  ! $RESTORE_VP_EXC_INT ! / ! Restore Vector Processor Exception State !  ! $RESTORE_VP_EXC_INT excid ! * ! excid = address of a context longword ! ! INTEGER*4 SYS$RESTORE_VP_EXC_INT EXTERNAL SYS$RESTORE_VP_EXC_INT !  ! $RESTORE_VP_STATE ! $ ! Restore Mainline Vector State !  ! $RESTORE_VP_STATE !  INTEGER*4 SYS$RESTORE_VP_STATE EXTERNAL SYS$RESTORE_VP_STATE ! $RESUME !  ! Resume Su(spended Process ! # ! $RESUME [pidadr] ,[prcnam] ! ? ! pidadr = address of process id of process to be resumed ! : ! prcnam = address of process name string descriptor !  INTEGER*4 SYS$RESUME EXTERNAL SYS$RESUME ! ! $REVOKID ! % ! Revoke Identifier from Process ! B ! $REVOKID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] ! 0 ! pidadr = address of PID of affected process: ! prcnam = address of string descriptor of process na)me; ! id = address of quadword identifier and attributes= ! name = address of string descriptor of identifier name: ! prvatr = address to store attributes of superseded id. ! segment = optional segment index, by value !  INTEGER*4 SYS$REVOKID EXTERNAL SYS$REVOKID ! ! $REWIND !  ! Rewind File ! " ! $REWIND rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of use*r success completion routine !  INTEGER*4 SYS$REWIND EXTERNAL SYS$REWIND ! $RMSRUNDWN ! = ! RMS rundown (close all files opened by OpenVMS RMS for3 ! the image or process and halts I/O activity. ! ( ! $RMSRUNDWN buf-addr, type-value ! < ! buf-addr = a descriptor pointing to a 22-byte buffer? ! that is to receive the device identificationC ! (16 bytes) and the file identification (6 bytes)> ! bytes) of a+n improperly closed output file.B ! type-value = a single byte code that specifies the type of1 ! I/O rundown to be performed. INTEGER*4 SYS$RMSRUNDWN EXTERNAL SYS$RMSRUNDWN ! $RUNDWN !  ! Rundown Process !  ! $RUNDWN [acmode] ! : ! acmode = access mode to rundown; this and all less( ! privileged access modes are rundown !  INTEGER*4 SYS$RUNDWN EXTERNAL SYS$RUNDWN !  ! $SAVE_VP_EXCEPTION ! , ! Save Vector Proce,ssor Exception State ! % ! $SAVE_VP_EXCEPTION excid ,[flags] ! * ! excid = address of a context longword !  ! flags = noallocation flag/ ! 0 -> allocate 1 -> don't allocate ! INTEGER*4 SYS$SAVE_VP_EXCEPTION EXTERNAL SYS$SAVE_VP_EXCEPTION !  ! $SAVE_VP_EXC_INT ! ; ! Save Vector Processor Exception State, internal form ! # ! $SAVE_VP_EXC_INT excid ,[flags] ! * ! excid = address of a context longword !  ! flags = noallocation fl-ag/ ! 0 -> allocate 1 -> don't allocate !  INTEGER*4 SYS$SAVE_VP_EXC_INT EXTERNAL SYS$SAVE_VP_EXC_INT !  ! $SCAN_INTRUSION !  ! Scan intrusion database ! C ! $SCAN_INTRUSION logfail_status, failed_user, job_type,I ! [source_terminal], [source_node], [source_user], [source_addr],@ ! [failed_password], [parent_user], [parent_id], [flags] ! / ! logfail_status in login failure status= ! failed_user in address of failed .username descriptor# ! job_type in job type indexA ! source_terminal in address of source terminal descriptor= ! source_node in address of source nodename descriptor= ! source_user in address of source username descriptor; ! source_address in address of source DECnet addressN ! failed_password in address of failed password (breakin attempts only)2 ! parent_user in address of parent username ! parent_id in parent PID* ! flags in int/rusion service flags !  INTEGER*4 SYS$SCAN_INTRUSION EXTERNAL SYS$SCAN_INTRUSION !  ! $SCAN_MAPPING ! 1 ! Locate Mapping records in Mapping database ! 3 ! $SCAN_MAPPING initmlst. outitmlst [,contxt] ! K ! initmlst = address of a list of item descriptors for the operationK ! outitmlst = address of a list of item descriptors for the operation2 ! contxt = address of a context long word !  INTEGER*4 SYS$SCAN_MAPPING EXTERNAL SYS$SCAN_MAP0PING ! $SCHDWK !  ! Schedule Wakeup ! 5 ! $SCHDWK [pidadr] ,[prcnam] ,daytim ,[reptim] ! @ ! pidadr = address of process id of process to be awakened ! : ! prcnam = address of process name string descriptor ! < ! daytim = address of quadword containing time to wake ! D ! reptim = address of quadword containing repeat time interval !  INTEGER*4 SYS$SCHDWK EXTERNAL SYS$SCHDWK ! ! $SEARCH !  ! Search for File Name ! 1" ! $SEARCH fab, [err], [suc] !  ! fab = address of fab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$SEARCH EXTERNAL SYS$SEARCH ! $SETCLUEVT ! % ! Set Cluster Event Notification ! > ! $SETCLUEVT event, astadr, [astprm], [acmode], [handle] ! / ! event = code indicating type of event ! 5 ! astadr = address of entry mask of AST routine ! A !2 astprm = value to be passed to AST routine as an argument ! # ! acmode = access mode of AST ! " ! handle = address of handle !  INTEGER*4 SYS$SETCLUEVT EXTERNAL SYS$SETCLUEVT ! $SETDDIR ! A ! Read and set the default directory string for the process. ! ? ! $SETDDIR [new-dir-addr] ,[length-addr] ,[cur-dir-addr] ! A ! new-dir-addr = a descriptor of the new default directory. ! A ! length-addr = a word that is to receive the le3ngth of the0 ! current default directory. ! @ ! cur-dir-addr = descriptor of a buffer that is to receive5 ! the current default directory. INTEGER*4 SYS$SETDDIR EXTERNAL SYS$SETDDIR ! $SETDFPROT ! B ! Read and write the default file protection for the process. ! < ! $SETDFPROT [new-def-prot-addr] ,[cur-def-prot-addr] ! F ! new-def-prot-addr = a word that specifies the new default file5 ! 4protection specification. ! N ! cur-def-prot-addr = a word that is to receive the current default file5 ! protection specification. INTEGER*4 SYS$SETDFPROT EXTERNAL SYS$SETDFPROT ! $SET_RETURN_VALUE ! 5 ! Set return value/status in the Mechanism array ! G ! $SET_RETURN_VALUE [mechanism_arg], [return_type], return_value ! 3 ! mechanism_arg = Address of mechanism vector ! J ! return_type = Address of a longword contai5ning one of the values? ! specified in the Function Return Signature Encoding tables% ! of the OpenVMS calling standard. ! H ! return_value = Address of a value of the type specified by the = ! return_type argument. The referenced value will be read; ! as a longword, quadword, or octaword, depending on the ! return_type value. !  !  INTEGER*4 SYS$SET_RETURN_VALUE EXTERNAL SYS$SET_RETURN_VALUE ! $SET_SYSTEM_EVENT ! $ ! Set System Event Notification6 ! C ! $SET_SYSTEM_EVENT event, astadr, [astprm], [acmode], handle ! / ! event = code indicating type of event ! 5 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as an argument ! # ! acmode = access mode of AST ! T ! flags = flags longword (one example is to indicate whether the notificationB ! of the event should be done only once or should be repeated) ! ( ! event_handle = add7ress of handle !  INTEGER*4 SYS$SET_SYSTEM_EVENT EXTERNAL SYS$SET_SYSTEM_EVENT !  ! $SET_IMPLICIT_AFFINITY ! ' ! Modify process implicit affinity ! N ! $SET_IMPLICIT_AFFINITY [pidadr],[prcnam],[state],[cpu_id],[prev_mask] ! G ! pidadr = address of process identification of process for1 ! which affinity is to be changed; ! prcnam = address of process name string descriptor@ ! cpu_id = CPUID number process is to be assigned to8 initially; ! prev_mask = address of user quadword that will hold the3 ! previous states of the individual capabilities ! $ INTEGER*4 SYS$SET_IMPLICIT_AFFINITY# EXTERNAL SYS$SET_IMPLICIT_AFFINITY ! $SET_RESOURCE_DOMAIN !  ! Set Resource Domain ! T ! $SET_RESOURCE_DOMAIN func ,rsdm_id ,uic_group ,[nullarg] ,[access] ,[acmode] ! 1 ! func = join or leave function to be performed( ! 1 - Join the System Resource Domain( ! 2 - Join the Process Default Domain;9 ! 3 - Join a new Resource Domain (not System or Process) ! / ! rsdm_id = address of the Resource Domain Id ! = ! domain_number = number identifying target Resource Domain ! - ! nullarg = Placeholder reserved to Digital ! 4 ! access = Access desired (defined by RSDM$M macro ! " ! acmode = requested access mode !  ! " INTEGER*4 SYS$SET_RESOURCE_DOMAIN! EXTERNAL SYS$SET_RESOURCE_DOMAIN ! $SET_SECURITY ! " ! Set Object Security Profile ! Z ! $S:ET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] !  INTEGER*4 SYS$SET_SECURITY EXTERNAL SYS$SET_SECURITY ! $SET_UNWIND_TABLE ! ; ! Register or extend and unwind table (UT) information ! C ! $SET_UNWIND_TABLE code_base_va, code_size, ut_base_va, ut_size,. ! handler_base_va, unwind_info_base, name ! P ! code_base_va = The process virtual address of the start of the code region ! - ! code_size = Size of code region in bytes ! ; D ! ut_base_va = Quadword aligned process virtual address of the UT ! + ! ut_size = The size of the UT in bytes ! X ! handler_base_va = The handler_base_va plus the unwind information block's conditionK ! handler procedure value must add up to the process virtual address3 ! of the condition handler's function value. ! V ! unwind_info_base = The unwind_info_base plus a particular unwind table entry (UTE)J ! unwind info block (UIB) offset must add up to the< process virtual ! address of that UIB. ! 7 ! name = Fixed length string, passed by descriptor. !  INTEGER*4 SYS$SET_UNWIND_TABLE EXTERNAL SYS$SET_UNWIND_TABLE ! $SETAST !  ! Set AST Enable !  ! $SETAST enbflg ! = ! enbflg = AST enable indicator for current access mode. ! 0 -> disable 1 -> enable !  INTEGER*4 SYS$SETAST EXTERNAL SYS$SETAST ! $SETEF !  ! Set Event Flag !  ! $SETEF efn != 1 ! efn = event flag number of flag to set !  INTEGER*4 SYS$SETEF EXTERNAL SYS$SETEF ! $GETENV ! " ! Get an environment variable !  ! $GETENV ItemList ! 9 ! ItemList = address of a zero terminated item list. !  !  INTEGER*4 SYS$GETENV EXTERNAL SYS$GETENV ! $SETENV ! " ! Set an environment variable !  ! $SETENV ItemList ! 9 ! ItemList = address of a zero terminated item list. !  !  INTEGER*4 SYS$SETENV> EXTERNAL SYS$SETENV ! $SETEVTAST ! % ! Establish an Event AST Routine ! I ! $SETEVTAST evtnam, evtadr, [evtfac], [acmode], [flags], [reqid]@ ! (SETEVTASTW) ,[evtid], [evtcrd], [efn], [iosb], [astadr] ! ,[astprm], [nullarg] ! 4 ! evtnam = address of descriptor of event name ! ; ! evtadr = address of entry mask of event AST routine ! / ! evtfac = address of event facility code ! 1 ! acmode = access mode of event declaratio?n !  ! flags = optional flags ! = ! reqid = user provided identification of this request ! I ! evtid = address to receive unique identification of this request ! < ! evtcrd = amount of AST credit to reserve for request ! < ! efn = event flag to set when $SETEVTAST completes ! 7 ! iosb = address of a quadword I/O status block ! @ ! astadr = address of entry mask of completion AST routine ! = ! astprm = value to be pas@sed to completion AST routine !  INTEGER*4 SYS$SETEVTAST EXTERNAL SYS$SETEVTAST INTEGER*4 SYS$SETEVTASTW EXTERNAL SYS$SETEVTASTW ! $SETEXV !  ! Set Exception Vector ! 7 ! $SETEXV [vector] ,[addres] ,[acmode] ,[prvhnd] !  ! vector = vector numberK ! 0 -> primary vector 1 -> secondary 2 -> last chance ! H ! addres = exception handler address (0 indicates deassign vector) ! 4 ! acmode = access mode for which vector Ais set ! H ! prvhnd = address of longword to receive previous handler address !  INTEGER*4 SYS$SETEXV EXTERNAL SYS$SETEXV ! $SETFLT ! ) ! Set Fault Characteristics on Pages ! 6 ! $SETFLT inadr ,[retadr] ,[acmode] ,fault_flag ! D ! inadr = address of 2-longword array containing starting and< ! ending virtual addresses of pages to change ! D ! retadr = address of 2-longword array containing starting and= ! ending adBdresses of pages which were changed ! ' ! acmode = access mode of request ! T ! fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) !  INTEGER*4 SYS$SETFLT EXTERNAL SYS$SETFLT ! $SETFLT_64 ! ) ! Set Fault Characteristics on Pages ! ^ ! $SETLFT_64 start_va_64, length_64, acmode, fault_flag, return_va_64, return_length_64 ! E ! start_va_64 = Starting address of address space to set protection ! > ! length_64 = ByCte length of addresses to set protection ! * ! acmode = Access mode of request ! P ! fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) ! H ! return_va_64 = Address of address space whose protection was set ! H ! return_length_64 = Length of address space whose protection was set !  INTEGER*4 SYS$SETFLT_64 EXTERNAL SYS$SETFLT_64 ! $SETIME !  ! Set System Time !  ! $SETIME [timadr] ! F ! timadr = address oDf quadword containing new system time inF ! 64-bit format. If 0, recalibrate system time using- ! hardware time-of-year clock. !  INTEGER*4 SYS$SETIME EXTERNAL SYS$SETIME ! $SETIMR !  ! Set Timer ! ; ! $SETIMR [efn] ,daytim ,[astadr] ,[reqidt] ,[flags] ! 5 ! efn = event flag to set when timer expires ! A ! daytim = address of quadword containing 64-bit time value ! 5 ! astadr = address of entry mask oEf AST routine ! = ! reqidt = request identification of this timer request ! 8 ! flags = only bit 0 used right now. If bit 0 is set,6 ! then this timer request is in terms of CPU time. !  INTEGER*4 SYS$SETIMR EXTERNAL SYS$SETIMR ! $SETPFM ! ! Set Page Fault Monitoring ! 7 ! $SETPFM [pfmflg] ,[astadr] ,[astprm] ,[acmode] ! & ! pfmflg = function/subfunction bits ! 1 ! astadr = address of entry mask of AST routine ! . ! astprm = value tFo be passed to AST routine ! < ! acmode = access mode for which the AST is to be declared ! ; ! bufcntadr = address of longword for which the number ofB ! page fault monitoring buffers allocated is stored. !  INTEGER*4 SYS$SETPFM EXTERNAL SYS$SETPFM ! $SETPRA !  ! Set Power Recovery AST ! ! ! $SETPRA astadr ,[acmode] ! 6 ! astadr = address of power recovery AST routine ! # ! acmode = access mode of AST !  INTEGER*4 SYS$SGETPRA EXTERNAL SYS$SETPRA ! $SETPRI !  ! Set Priority ! A ! $SETPRI [pidadr] ,[prcnam] ,pri ,[prvpri],[pol],[prvpol] ! ; ! pidadr = address of process id of process to be set ! : ! prcnam = address of process name string descriptor ! 2 ! pri = new base priority for the process ! F ! prvpri = address of longword to receive previous base priority ! A ! pol = address of new scheduling policy for the process ! E ! prHvpol = address of longword to receive previous sched policy !  INTEGER*4 SYS$SETPRI EXTERNAL SYS$SETPRI ! $SETPRN !  ! Set Process Name !  ! $SETPRN [prcnam] ! > ! prcnam = address of the process name string descriptor !  INTEGER*4 SYS$SETPRN EXTERNAL SYS$SETPRN ! $SETPRT !  ! Set Protection on Pages ! : ! $SETPRT inadr ,[retadr] ,[acmode] ,prot ,[prvprt] ! D ! inadr = address of 2-longword array containing starting aInd< ! ending virtual addresses of pages to change ! D ! retadr = address of 2-longword array containing starting and= ! ending addresses of pages which were changed ! ' ! acmode = access mode of request !  ! prot = new protection ! B ! prvprt = address of byte to receive previous protection of" ! last page changed !  INTEGER*4 SYS$SETPRT EXTERNAL SYS$SETPRT ! $SETPRT_64 !  ! Set Protection on PJages ! Y ! $SETPRT_64 start_va_64, length_64, acmode, prot, return_va_64, return_length_64, ! return_prot_64 ! E ! start_va_64 = Starting address of address space to set protection ! > ! length_64 = Byte length of addresses to set protection ! * ! acmode = Access mode of request ! " ! prot = New protection ! H ! return_va_64 = Address of address space whose protection was set ! H ! return_length_64 = Length of address space whose prKotection was set ! P ! return_prot_64 = Address of longword to receive previous protection of" ! last page changed !  INTEGER*4 SYS$SETPRT_64 EXTERNAL SYS$SETPRT_64 ! $SETPRV !  ! Set privileges.6 ! $SETPRV [enbflg] ,[prvadr] ,[prmflg] ,[prvprv] ! ! ! enbflg = enable indicator- ! 0 -> disable 1 -> enable ! E ! prvadr = 64-bit mask defining the privileges to be enabled or ! disabled ! $ ! L prmflg = permanent indicatorB ! 0 -> temporary (for this image) 1 -> permanent ! J ! prvprv = address of quadword buffer to receive previous privileges !  INTEGER*4 SYS$SETPRV EXTERNAL SYS$SETPRV ! $SETRWM !  ! Set Resource Wait Mode !  ! $SETRWM [watflg] !  ! watflg = wait indicatorE ! 0 -> wait for resources 1 -> return failure immediately< ! (type is NUMBER rather than BOOLEAN since WATFLG=TRUE@ ! meaMns don't wait, which is the opposite of what is seems) !  INTEGER*4 SYS$SETRWM EXTERNAL SYS$SETRWM ! $SETSFM ! & ! Set System Service Failure Mode !  ! $SETSFM [enbflg] ! ! ! enbflg = enable indicatorL ! 0 -> disable generation of exceptions on service failuresG ! 1 -> generate exceptions for system service failures !  INTEGER*4 SYS$SETSFM EXTERNAL SYS$SETSFM ! $SETSSF ! ! Set System Service Filter ! N ! $SETSSF [mask] ! , ! mask = flags for services to inhibit !  INTEGER*4 SYS$SETSSF EXTERNAL SYS$SETSSF ! $SETSHLV ! / ! Modify process default unshelving action ! / ! $SETSHLV [pidadr] ,[prcnam], [shlvflg] ! 1 ! pidadr = address of process id of process ! = ! prcnam = address of name string descriptor of process ! @ ! shlvflg = longword containing the desired shelving mode? ! in the bottom bit. If the bOottom bit is set,D ! then the default is not to automatically unshelveB ! shelved files. If the bottom bit is clear, thenC ! the default is to automatically unshelve shelved ! files. !  INTEGER*4 SYS$SETSHLV EXTERNAL SYS$SETSHLV ! $SETSTK !  ! SET VIRTUAL STACK LIMITS ! ) ! $SETSTK inadr ,[retadr] ,[acmode] ! F ! inadr = address of 2-longword array containing starting and> ! P ending virtual address of stack limits to set ! F ! retadr = address of a 2-longword array to receive starting and> ! ending virtual address of stack limits to set ! 8 ! acmode = access mode for the stack to change !  INTEGER*4 SYS$SETSTK EXTERNAL SYS$SETSTK ! $SETSTK_64 !  ! SET VIRTUAL STACK LIMITS ! T ! $SETSTK_64 start_va, length, acmode, flags, prev_start_va_64, prev_length_64 ! 9 ! start_va_64 = lowest address for nQew stack limits ! B ! length_64 = length of address range for new stack limits ! = ! acmode = access mode for the stack to change ! R ! flags = VA$M_SETSTK_REGISTER - set register stack limits (IA64 only) ! N ! prev_start_va_64 = pointer to lowest address for previous stack limits ! C ! prev_length_64 = pointer to length of previous stack limits !  INTEGER*4 SYS$SETSTK_64 EXTERNAL SYS$SETSTK_64 ! $SETSWM !  ! Set ProRcess Swap Mode !  ! $SETSWM [swpflg] !  ! swpflg = swap indicator? ! 0 -> enable swapping 1 -> disable swapping !  INTEGER*4 SYS$SETSWM EXTERNAL SYS$SETSWM ! ! $SETDTI ! . ! Set Distributed Transaction Information ! > ! $SETDTI [efn], [flags], iosb, [astadr], [astprm], context, ! ($SETDTIW) func, itmlst ! ) ! efn = event flag to set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O statuSs block8 ! astadr = address of the entry mask of an AST routine. ! astprm = value to be passed to AST routine0 ! context = address of longword search context( ! func = function code to be performed2 ! itmlst = address of a list of item descriptors !  INTEGER*4 SYS$SETDTI EXTERNAL SYS$SETDTI INTEGER*4 SYS$SETDTIW EXTERNAL SYS$SETDTIW ! $SETUAI ! , ! Modify User Authorization Information ! B ! $SETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] ! T ,[astprm] ! 3 ! efn = event flag to be set at completion ! > ! contxt = address of a context longword (UAF IFI & ISI) ! 0 ! usrnam = address of user name descriptor ! 6 ! itmlst = address of a list of item descriptors ! 7 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine !  !  INTEGER*4 SYS$SETUAI EXTERNAL SYS$SETUAI ! U  ! $SHOW_INTRUSION !  ! Show intrusion record ! e ! $SHOW_INTRUSION user_criteria, intruder, intruder_len, breakin_block, [flags], [context] ! = ! user_criteria in address of user criteria descriptor3 ! intruder in out address of intruder descriptorJ ! intruder_len out address of word to receive intruder string length6 ! breakin_block out address of intrusion block* ! flags in intrusion service flags9 ! context in out address of opVtional longword context !  INTEGER*4 SYS$SHOW_INTRUSION EXTERNAL SYS$SHOW_INTRUSION ! $SNDACC ! ) ! Send Message to Accounting Manager !  ! $SNDACC msgbuf ,[chan] ! < ! msgbuf = address of message buffer string descriptor ! G ! chan = number of channel assigned to mailbox to receive reply !  INTEGER*4 SYS$SNDACC EXTERNAL SYS$SNDACC ! $SNDERR ! # ! Send Message to Error Logger !  ! $SNDERR msgbuf ! < ! msgbufW = address of message buffer string descriptor !  INTEGER*4 SYS$SNDERR EXTERNAL SYS$SNDERR ! $SNDOPR !  ! Send Message to Operator !  ! $SNDOPR msgbuf ,[chan] ! < ! msgbuf = address of message buffer string descriptor ! G ! chan = number of channel assigned to mailbox to receive reply !  INTEGER*4 SYS$SNDOPR EXTERNAL SYS$SNDOPR ! $SNDSMB ! ' ! Send Message to Symbiont Manager !  ! $SNDSMB msgbuf ,[chan] ! < ! X msgbuf = address of message buffer string descriptor ! G ! chan = number of channel assigned to mailbox to receive reply !  INTEGER*4 SYS$SNDSMB EXTERNAL SYS$SNDSMB ! $SNDJBC ! % ! Send Message to Job Controller ! 3 ! $SNDJBC [efn], func, [nullarg], [itmlst],, ! ($SNDJBCW) [iosb], [astadr], [astprm] ! = ! efn = event flag to be set when request completes: ! func = code specifying function to be performedH ! nullarg = reYserved argument for similarity with $getxxx servicesI ! itmlst = address of a list of item descriptors for the operationP ! iosb = address of a quadword status block to receive the final statusO ! astadr = address of an ast routine to be called when request completes& ! astprm = 32-bit ast parameter !  INTEGER*4 SYS$SNDJBC EXTERNAL SYS$SNDJBC INTEGER*4 SYS$SNDJBCW EXTERNAL SYS$SNDJBCW ! ! $SPACE !  ! Space to Record in File ! ! ! Z $SPACE rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$SPACE EXTERNAL SYS$SPACE ! $SSIO_FSYNC ! G ! Synchronize file changes with the storage device for a file that; ! has been opened for Shared Stream I/O (SSIO) access. ! 3 ! $SSIO_FSYNC chan, iosa ,[ast] ,[astprm] ! ($SSIO_FSYNCW) ! 7 ! chan = chann[el number for SSIO accessed file  ! J ! iosa = address of I/O status area (4 quadwords) to receive final4 ! completion status (64-bit address)  ! 8 ! ast = address of AST routine (64-bit address) ! M ! astprm = value to be passed to AST routine as argument (64-bit value) !  INTEGER*4 SYS$SSIO_FSYNC EXTERNAL SYS$SSIO_FSYNC INTEGER*4 SYS$SSIO_FSYNCW EXTERNAL SYS$SSIO_FSYNCW ! $SSIO_GETFL ! H ! Get the current file status flags for \ a file that has been openedF ! for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with! ! F_SETFL command parameter. ! 3 ! $SSIO_GETFL chan ,iosa ,[ast] ,[astprm] ! ($SSIO_GETFLW) ! 7 ! chan = channel number for SSIO accessed file  ! J ! iosa = address of I/O status area (4 quadwords) to receive finalJ ! completion status and file status flags (64-bit address)  ! 8 ! ast = address of AST routine (64-bit address)] ! M ! astprm = value to be passed to AST routine as argument (64-bit value) !  INTEGER*4 SYS$SSIO_GETFL EXTERNAL SYS$SSIO_GETFL INTEGER*4 SYS$SSIO_GETFLW EXTERNAL SYS$SSIO_GETFLW ! $SSIO_LSEEK ! E ! Set the current file offset to a file that has been opened for' ! Shared Stream I/O (SSIO) access. ! F ! $SSIO_LSEEK chan ,offset_in ,whence ,iosa ,[ast] ,[astprm] ! ($SSIO_LSEEKW) ! 7 ! chan = channel number for SSIO accessed file ^ ! D ! offset_in = signed offset value used in conjunction with the: ! whence parameter to determine a new resultant file ! offset (64-bit value) ! @ ! whence = value that controls interpretation of offset_in ! Must be one of:5 ! SSIO$C_SEEK_SET: Resultant offset is offset_in9 ! SSIO$C_SEEK_CUR: Resultant offset is current value ! plus offset_in; ! SSIO$C_SEEK_END: Resultant offset is current end-of-& ! file position plus offset_in_ ! J ! iosa = address of I/O status area (4 quadwords) to receive final4 ! completion status (64-bit address)  ! 8 ! ast = address of AST routine (64-bit address) ! M ! astprm = value to be passed to AST routine as argument (64-bit value) !  INTEGER*4 SYS$SSIO_LSEEK EXTERNAL SYS$SSIO_LSEEK INTEGER*4 SYS$SSIO_LSEEKW EXTERNAL SYS$SSIO_LSEEKW ! $SSIO_READ ! G ! Read a byte stream from the current file offset from a file that: ! ` has been opened for Shared Stream I/O (SSIO) access ! B ! $SSIO_READ chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] ! ($SSIO_READW) ! 7 ! chan = channel number for SSIO accessed file  ! H ! buffer = address of data buffer to receive data (64-bit address) ! < ! bufsiz = size of data buffer in bytes (64-bit value) ! J ! iosa = address of I/O status area (4 quadwords) to receive final4 ! completion status (64-bit address)  ! a8 ! ast = address of AST routine (64-bit address) ! M ! astprm = value to be passed to AST routine as argument (64-bit value) !  INTEGER*4 SYS$SSIO_READ EXTERNAL SYS$SSIO_READ INTEGER*4 SYS$SSIO_READW EXTERNAL SYS$SSIO_READW ! $SSIO_SETFL ! H ! Set the current file status flags for a file that has been openedF ! for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with! ! F_SETFL command parameter. ! B ! $SSIO_SETFL chan ,file_sbts_flgs ,iosa ,[ast] ,[astprm] ! ($SSIO_SETFLW) ! 7 ! chan = channel number for SSIO accessed file  ! 6 ! file_sts_flgs = desired file status flag valueC ! Only mask value that can be changed is SSIO$M_O_APPEND. ! J ! iosa = address of I/O status area (4 quadwords) to receive final4 ! completion status (64-bit address)  ! 8 ! ast = address of AST routine (64-bit address) ! M ! astprm = value to be passed to AST routicne as argument (64-bit value) !  INTEGER*4 SYS$SSIO_SETFL EXTERNAL SYS$SSIO_SETFL INTEGER*4 SYS$SSIO_SETFLW EXTERNAL SYS$SSIO_SETFLW ! $SSIO_SYNC ! F ! Synchronize file changes that have been made via prior calls toG ! the $SSIO_WRITE and $SSIO_TRUNCATE services to all files on thisH ! system that have been opened for Shared Stream I/O (SSIO) access.G ! The file changes are synchronized with the corresponding storage ! device. !  ! $SSIO_SYNCd  !  INTEGER*4 SYS$SSIO_SYNC EXTERNAL SYS$SSIO_SYNC ! $SSIO_TRUNCATE ! B ! Truncate (or extend) a file that has been opened for Shared ! Stream I/O (SSIO) access. ! C ! $SSIO_TRUNCATE chan ,file_length ,iosa ,[ast] ,[astprm] ! ($SSIO_TRUNCATEW) ! 7 ! chan = channel number for SSIO accessed file  ! ; ! file_length = new end-of-file length (64-bit value) ! J ! iosa = address of I/O status area (4 quadwords) to receivee final4 ! completion status (64-bit address)  ! 8 ! ast = address of AST routine (64-bit address) ! M ! astprm = value to be passed to AST routine as argument (64-bit value) !  INTEGER*4 SYS$SSIO_TRUNCATE EXTERNAL SYS$SSIO_TRUNCATE INTEGER*4 SYS$SSIO_TRUNCATEW EXTERNAL SYS$SSIO_TRUNCATEW ! $SSIO_WRITE ! D ! Write a byte stream to the current file offset to a file that: ! has been opened for Shared Stream I/O (SSIO) access ! C ! f $SSIO_WRITE chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] ! ($SSIO_WRITEW) ! 7 ! chan = channel number for SSIO accessed file  ! H ! buffer = address of data buffer to receive data (64-bit address) ! < ! bufsiz = size of data buffer in bytes (64-bit value) ! J ! iosa = address of I/O status area (4 quadwords) to receive final4 ! completion status (64-bit address)  ! 8 ! ast = address of AST routine (64-bit address) ! Mg ! astprm = value to be passed to AST routine as argument (64-bit value) !  INTEGER*4 SYS$SSIO_WRITE EXTERNAL SYS$SSIO_WRITE INTEGER*4 SYS$SSIO_WRITEW EXTERNAL SYS$SSIO_WRITEW ! $SUSPND !  ! Suspend Process ! , ! $SUSPND [pidadr] ,[prcnam], [flags] ! A ! pidadr = address of process id of process to be suspended ! = ! prcnam = address of name string descriptor of process ! > ! flags = longword of bit flags, of which only bit 0 is2h ! currently used. If bit 0 is set, then this2 ! is a hard suspend request; if clear this is ! a soft suspend request. !  INTEGER*4 SYS$SUSPND EXTERNAL SYS$SUSPND ! $SYNCH ! # ! Synchronize Event Completion !  ! $SYNCH [iosb] ,[efn] ! 3 ! efn = event flag to be set at completion ! 7 ! iosb = address of a quadword I/O status block !  INTEGER*4 SYS$SYNCH EXTERNAL SYS$SYNCH ! $SUBSYSTEM ! , ! Modify Protected Suibsystem Attributes !  ! $SUBSYSTEM enbflg ! ! ! enbflg = enable indicator/ ! 0 => disable image identifiers# ! 1 => restore image identifiers !  INTEGER*4 SYS$SUBSYSTEM EXTERNAL SYS$SUBSYSTEM ! ! $TIMCON ! 7 ! Convert between binary UTC and Smithsonian times ! & ! $TIMCON smntim, utctim, cvtflg ! / ! For cvtflg = 0 (Convert UTC to Smithsonian)9 ! smnadr = Address of the output quadword to be written. ! with the UTCj time converted to date_time? ! utcadr = Address of the input 128 bit utc_date_time time to ! be converted ! cvtflg = 0 ! / ! For cvtflg = 1 (Convert Smithsonian to UTC); ! smnadr = Address of input Smithsonian binary time to be" ! converted (VMS Binabs time).9 ! utcadr = Address of the output 128 bit binary time to( ! be written with the converted time ! cvtflg = 1 !  INTEGER*4 SYS$TIMCON EXTERNAL SYS$TIMCON ! $TRNLNM !  ! Translate Logical Namek ! ? ! $TRNLNM [attr], tabnam, [lognam], [acmode], [itemlist] ! = ! attr = address of logical name translation attributes !  ! Attribute Meaning9 ! LNM$M_CASE_BLIND Search of string is case insensitive ! E ! tabnam = address of logical name table name string descriptor ! : ! lognam = address of logical name string descriptor ! 8 ! acmode = address of access mode for logical name ! 6 ! itmlst = address of a list of item descriptors !l  INTEGER*4 SYS$TRNLNM EXTERNAL SYS$TRNLNM ! $TRNLOG !  ! Translate Logical Name ! F ! $TRNLOG lognam ,[rsllen] ,rslbuf ,[table] ,[acmode] ,[dsbmsk] ! : ! lognam = address of logical name string descriptor ! D ! rsllen = address of word to receive length of resultant name ! F ! rslbuf = address of descriptor for buffer to receive resultant ! string ! E ! table = address of byte to receive logical name table number !m @ ! acmode = address of byte to receive access mode of entry% ! (process table only) ! * ! dsbmsk = table search disable mask !  ! Bit Set Meaning ! / ! 0 Do not search system table. ! 1 Do not search group table0 ! 2 Do not search process table !  INTEGER*4 SYS$TRNLOG EXTERNAL SYS$TRNLOG !  ! $TRUNCATE !  ! Truncate Record ! $ ! $TRUNCATE rab, [err], [suc] !  !n rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$TRUNCATE EXTERNAL SYS$TRUNCATE ! $ULKPAG !  ! Unlock Pages From Memory ! * ! $ULKPAG inadr ,[retadr] ,[acmode] ! D ! inadr = address of 2-longword array containing starting andA ! ending virtual addresses of pages to be unlocked ! F ! retadr = address of a 2-longword array too receive starting andD ! ending virtual addresses of pages actually unlocked ! D ! acmode = access mode to check against the owner of the pages !  INTEGER*4 SYS$ULKPAG EXTERNAL SYS$ULKPAG ! $ULKPAG_64 !  ! Unlock Pages in Memory ! R ! $ULKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 ! = ! start_va_64 = Starting address of address space to unlock ! 4 ! length_64 = Byte length of addresses to lock ! D !p acmode = Access mode to be checked against the page owner ! 8 ! return_va_64 = Address of address space unlocked ! 8 ! return_length_64 = Length of address space unlocked !  INTEGER*4 SYS$ULKPAG_64 EXTERNAL SYS$ULKPAG_64 ! $ULWSET ! $ ! Unlock Pages From Working Set ! * ! $ULWSET inadr ,[retadr] ,[acmode] ! D ! inadr = address of 2-longword array containing starting andA ! ending virtual addresses of pages to be unlockedq ! F ! retadr = address of a 2-longword array to receive starting andD ! ending virtual addresses of pages actually unlocked ! D ! acmode = access mode to check against the owner of the pages !  INTEGER*4 SYS$ULWSET EXTERNAL SYS$ULWSET ! $ULWSET_64 ! $ ! Unlock Pages from Working Set ! R ! $ULWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 ! = ! start_va_64 = Starting address of address space to unlock ! 4 !r length_64 = Byte length of addresses to lock ! D ! acmode = Access mode to be checked against the page owner ! 8 ! return_va_64 = Address of address space unlocked ! 8 ! return_length_64 = Length of address space unlocked !  INTEGER*4 SYS$ULWSET_64 EXTERNAL SYS$ULWSET_64 ! $UNWIND !  ! Unwind Call Stack ! " ! $UNWIND [depadr] ,[newpc] ! H ! depadr = address of longword containing number of logical frames- ! (depth)s to unwind call stack ! H ! newpc = address to be given control when the unwind is complete !  INTEGER*4 SYS$UNWIND EXTERNAL SYS$UNWIND ! ! $UPDATE !  ! Update Record ! " ! $UPDATE fab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = address of user success completion routine !  INTEGER*4 SYS$UPDATE EXTERNAL SYS$UPDATE ! $UPDSEC ! " ! Update Section File on Ditsk ! C ! $UPDSEC inadr ,[retadr] ,[acmode] ,[updflg] ,[efn] ,[iosb]' ! ($UPDSECW) ,[astadr] ,[astprm] ! D ! inadr = address of 2-longword array containing starting andF ! ending addresses of the pages to be potentially ! written ! F ! retadr = address of 2-longword array to receive addresses ofF ! the first and last page queued in the first I/O ! request ! F ! acmode = access mod ue on behalf of which the service is ! performed ! @ ! updflg = update indicator for read/write global sectionsA ! 0 -> write all read/write pages in the sectionR ! UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller ! F ! efn = number of event flag to set when the section file is ! updated ! 5 ! iosb = address of quadword I/O status block ! @ ! astadr = address of entry maskv of an AST service routine ! F ! astprm = AST parameter to be passed to the AST service routine !  INTEGER*4 SYS$UPDSEC EXTERNAL SYS$UPDSEC INTEGER*4 SYS$UPDSECW EXTERNAL SYS$UPDSECW ! $UPDSEC_64 ! " ! Update Section File on Disk ! H ! $UPDSEC_64 start_va_64, length_64, acmode, updflg, efn, iosa_64; ! return_va_64, return_length_64[,astadr_64[, astprm_64]] ! = ! start_va_64 = Starting address of address space to update ! 6 ! length_64 = By wte length of addresses to update ! G ! acmode = access mode on behalf of which the service is ! performed ! A ! updflg = update indicator for read/write global sectionsA ! 0 -> write all read/write pages in the sectionR ! UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller ! G ! efn = number of event flag to set when the section file is ! updated ! : ! iosa_64 = addrexss of 4 quadword I/O status area ! C ! return_va_64 = Address of address space queued in the first ! I/O request ! C ! return_length_64 = Length of address space queued in the first ! I/O request ! C ! astadr_64 = address of entry mask of an AST service routine ! I ! astprm_64 = AST parameter to be passed to the AST service routine !  INTEGER*4 SYS$UPDSEC_64 EXTERNAL SYS$UPDSEC_64 INTEGER*4 SYS$UPDSEC_64W EXTERNAL SYS$UPDSEC_64W !  ! $VE yRIFY_PROXY !  ! Verify proxy record ! ] ! $VERIFY_PROXY rem_node, rem_user, [proposed_user], local_user, local_user_len, flags ! 1 ! rem_node in address of remote node descriptor1 ! rem_user in address of remote user descriptorC ! proposed_user in address of optional proposed user descriptorB ! local_user out address of descriptor to receive local userH ! local_user_len out address of word to receive local user length( ! flags in proxy service f!zlags !  INTEGER*4 SYS$VERIFY_PROXY EXTERNAL SYS$VERIFY_PROXY ! ! $WAIT !  ! Wait on File !  ! $WAIT rab !  ! rab = address of rab !  !  INTEGER*4 SYS$WAIT EXTERNAL SYS$WAIT ! $WAITFR ! ! ! Wait for Single Event Flag !  ! $WAITFR efn ! . ! efn = event flag number to wait for !  INTEGER*4 SYS$WAITFR EXTERNAL SYS$WAITFR ! $WAKE ! ! Wake ! ! ! $WAKE [pidadr] ,[prcnam] ! A !{ pidadr = address of process id of process to be awakened ! C ! prcnam = address of name string descriptor of process to be ! awakened !  INTEGER*4 SYS$WAKE EXTERNAL SYS$WAKE ! $WFLAND ! * ! Wait for Logical AND of Event Flags !  ! $WFLAND efn ,mask ! A ! efn = event flag number of any flag within the cluster ! 6 ! mask = 32-bit mask of flags that must be set !  INTEGER*4 SYS$WFLAND EXTERNAL SYS$WFLAND !| $WFLOR ! ) ! Wait for Logical OR of Event Flags !  ! $WFLOR efn ,mask ! A ! efn = event flag number of any flag within the cluster ! ? ! mask = 32-bit mask of flags, any of which must be set !  INTEGER*4 SYS$WFLOR EXTERNAL SYS$WFLOR ! ! $WRITE !  ! Write Block to File ! ! ! $WRITE rab, [err], [suc] !  ! rab = address of rab ! 2 ! err = address of user error completion routine ! 4 ! suc = addr}ess of user success completion routine !  INTEGER*4 SYS$WRITE EXTERNAL SYS$WRITE !  ! $WRITE_THREAD_UNQ ! ! Write thread unique value ! " ! $WRITE_THREAD_UNQ contxt ! 7 ! contxt = address of quadword that contains the( ! thread unique value to be written !  INTEGER*4 SYS$WRITE_THREAD_UNQ EXTERNAL SYS$WRITE_THREAD_UNQ ! $XFS_CLIENT !  ! Call the XFS client ! < ! $XFS_CLIENT [efn] ,func ,fsb ,[astadr] ,[astprm] ! :~ ! efn = number of event flag to set on completion ! @ ! func = function code specifying action to be performed ! - ! fsb = address of File System Block ! 5 ! astadr = address of entry mask of AST routine ! > ! astprm = value to be passed to AST routine as argument !  INTEGER*4 SYS$XFS_CLIENT EXTERNAL SYS$XFS_CLIENT ! $XFS_SERVER !  ! Call the XFS server ! < ! $XFS_SERVER [efn] ,func ,fsb ,[astadr] ,[astprm] ! : ! efn = number of event flag to set on completion ! @ ! func = function code specifying action to be performed ! - ! fsb = address of File System Block ! 5 ! astadr = address of entry mask of AST routine ! > ! astprm = value to be passed to AST routine as argument !  INTEGER*4 SYS$XFS_SERVER EXTERNAL SYS$XFS_SERVER ! $DCLRNH !  ! Declare Restart Handler !  ! $DCLRNH desblk ! = ! desblk = address of handler cont rol block containing: ! * ! +-------------------------------+* ! | forward link |* ! +-------------------------------+* ! | restart handler address |* ! +-------------------------------+* ! | argument count |* ! +-------------------------------+* ! | reserved, must be zero |* ! +-------------------------------+* ! | address to store event code |* ! +-------------------------------+* ! | additional arguments |* ! +-- for restart handler, --+* ! | if any |* ! +-------------------------------+ !  INTEGER*4 SYS$DCLRNH EXTERNAL SYS$DCLRNH ! $CANRNH !  ! Cancel Restart Handler !  ! $CANRNH [desblk] ! < ! desblk = address of handler control block describing- ! handler to be deleted. If 0, delete all !  INTEGER*4 SYS$CANRNH EXTERNAL SYS$CANRNH !  ! $ABORT_TRANS !  ! Abort a transaction ! = ! $ABORT_TRANS [efn], [flags], iosb [, [astadr], [astprm],, ! ($ABORT_TRANSW) [tid], [reason], [bid]] ! , ! efn = event flag to be set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O status block4 ! astadr = address of an entry mask of AST routine= ! astprm = value to be passed to AST routine as an argument1 ! tid = identifier of transaction to be aborted1 ! reason = optional extended abort reason code8 ! bid = identifier of transaction branch to be aborted !  INTEGER*4 SYS$ABORT_TRANS EXTERNAL SYS$ABORT_TRANS INTEGER*4 SYS$ABORT_TRANSW EXTERNAL SYS$ABORT_TRANSW !  ! $ACK_EVENT ! 7 ! Acknowledge a resource manager transaction event ! B ! $ACK_REPORT [flags], report_id, report_reply, [, [reason],: ! [beftime], [afttime], [part_name], [rm_context], ! [timout]] !  ! flags = operation flags$ ! report_id = participant id value- ! report_reply = value of completion status8 ! reason = extended abort reason code (for veto vote)- ! beftim = lower bound of commit timestamp2 ! afttim = upper bound of commit timestamp6 ! part_name = address of participant name descriptor9 ! rm_context = RM private value to be passed to evt_rtn2 ! timout = transaction execution time-out value !  INTEGER*4 SYS$ACK_EVENT EXTERNAL SYS$ACK_EVENT !  ! $ADD_BRANCH !  ! Add a transaction branch ! 9 ! $ADD_BRANCH [efn], [flags], iosb, [astadr], [astprm],% ! ($ADD_BRANCHW) tid, tm_name, bid ! , ! efn = event flag to be set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O status block4 ! astadr = address of an entry mask of AST routine= ! astprm = value to be passed to AST routine as an argument( ! tid = transaction id for this branch6 ! tm_name = address of commit domain name descriptor2 ! bid = address to receive new branch identifier !  INTEGER*4 SYS$ADD_BRANCH EXTERNAL SYS$ADD_BRANCH INTEGER*4 SYS$ADD_BRANCHW EXTERNAL SYS$ADD_BRANCHW ! [ ! *************** NOTE: $CREATE_BRANCH(W) service definitions are obsolete ************** !  ! $CREATE_BRANCH ! " ! Create a transaction branch ! A ! $CREATE_BRANCH = [efn], [flags], iosb, [astadr], [astprm],B ! ($CREATE_BRANCHW) tid, bid [,[timout], [acmode], [tx_class]] ! , ! efn = event flag to be set at completion ! flags = operation flags1 ! io sb = address of a quadword I/O status block4 ! astadr = address of an entry mask of AST routine= ! astprm = value to be passed to AST routine as an argument( ! tid = transaction id for this branch6 ! bid = address to receive new branch identifier1 ! timout = transaction execution time-out value0 ! acmode = access mode for $CREATE_BRANCH call) ! tx_class= user transaction class name !  INTEGER*4 SYS$CREATE_BRANCH EXTERNAL SYS$CREATE_BRANCH INTEGER*4 SYS$CREATE_BRANCHW  EXTERNAL SYS$CREATE_BRANCHW ! $CVT_FILENAME ! B ! Convert a string between RMS format and file-system format. ! I ! $CVT_FILENAME cvttyp, srcstr, inflags, outbuf, outlen, outflags ! H ! cvttyp = value indicating conversion type (RMS-to-filesys or$ ! filesys-to-RMS)C ! srcstr = address of string descriptor for source stringB ! inflags = mask indicating source string characteristicsC ! outbuf = address of string descriptor for output stringF ! outlen = address to store length of returned output stringF ! outflags = address of a longword to receive flags describing" ! output string !  INTEGER*4 SYS$CVT_FILENAME EXTERNAL SYS$CVT_FILENAME ! ; ! $DECLARE_RM [efn], [flags], iosb, [astadr], [astprm],: ! ($DECLARE_RMW) rm_id, event_handler [, [part_name],8 ! [rm_context], [acmode], [tm_log_id], [event_mask]] ! ' ! Declare Resource Manager to DDTM !  / ! efn = event flag to set upon completion ! flags = operation flags* ! iosb = address of I/O status block5 ! astadr = address of entry mask of AST routine2 ! astprm = value to be passed to AST routineB ! rm_id = address of longword to receive resource manager idD ! event_rtn = address of entry mask of transaction event routine= ! part_name = address of resource manager name descriptor: ! rm_context = RM private value to be passed to evt_rtn@ ! acmode = value of access mode in which to invoke evt_rtnB ! tm_log_id = transaction manager log id for validation checksB ! event_mask = mask of events required by this resource manager !  INTEGER*4 SYS$DECLARE_RM EXTERNAL SYS$DECLARE_RM INTEGER*4 SYS$DECLARE_RMW EXTERNAL SYS$DECLARE_RMW !  ! $END_BRANCH ! , ! End an active branch of a transaction ! 9 ! $END_BRANCH [efn], [flags], iosb, [astadr], [astprm], ! ($END_BRANCHW) tid, bid ! , ! efn = event flag to be set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O status block; ! astadr = address of a completion AST routine entry mask9 ! astprm = value to be passed to completion AST routine+ ! tid = address of transaction identifier2 ! bid = address of transaction branch identifier !  INTEGER*4 SYS$END_BRANCH EXTERNAL SYS$END_BRANCH INTEGER*4 SYS$END_BRANCHW EXTERNAL SYS$END_BRANCHW !  ! $END_TRANS !  ! Commit a transaction ! B ! $END_TRANS [efn], [flags], iosb [, [astadr], [astprm], [tid] ] ! ($END_TRANSW) ! , ! efn = event flag to be set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O status block4 ! astadr = address of an entry mask of AST routine= ! astprm = value to be passed to AST routine as an argument3 ! tid = identifier of transaction to be committed !  INTEGER*4 SYS$END_TRANS EXTERNAL SYS$END_TRANS INTEGER*4 SYS$END_TRANSW EXTERNAL SYS$END_TRANSW !  ! $FINISH_RMOP ! : ! Finish resource manager transaction event operation ! : ! $FINISH_RMOP [efn], [flags], iosb, [astadr], [astprm],? ! ($FINISH_RMOPW) part_id, retsts [, [reason], ! [beftime], [afttime] ! + ! efn = event flag to set upon completion ! flags = operation flags& ! iosb = address of I/O status block1 ! astadr = address of entry mask of AST routine. ! astprm = value to be passed to AST routine" ! part_id = participant id value' ! retsts = value of completion status8 ! reason = extended abort reason code (for veto vote)- ! beftim = lower bound of commit timestamp2 ! afttim = upper bound of commit timestamp !  INTEGER*4 SYS$FINISH_RMOP EXTERNAL SYS$FINISH_RMOP INTEGER*4 SYS$FINISH_RMOPW EXTERNAL SYS$FINISH_RMOPW !  ! $FORGET_RM ! > ! Forget a resource manager previously declared to DECdtm ! > ! $FORGET_RM [efn], [flags], iosb, [astadr], [astprm], rm_id ! ($FORGET_RMW) ! + ! efn = event flag to set upon completion ! flags = operation flags& ! iosb = address of I/O status block1 ! astadr = address of entry mask of AST routine. ! astprm = value to be passed to AST routine% ! rm_id = resource manager id value !  INTEGER*4 SYS$FORGET_RM EXTERNAL SYS$FORGET_RM INTEGER*4 SYS$FORGET_RMW EXTERNAL SYS$FORGET_RMW !  ! $GET_DEFAULT_TRANS ! 2 ! Get the current process default transaction !  ! $GET_DEFAULT_TRANS tid ! 7 ! tid = identifier of the process default transaction ! INTEGER*4 SYS$GET_DEFAULT_TRANS EXTERNAL SYS$GET_DEFAULT_TRANS ! $GET_UNWIND_ENTRY_INFO ! , ! Get fixed-up unwind entry information ! 1 ! $GET_UNWIND_ENTRY_INFO pc, get_ue_block, name !  ! pc = target PC ! @ ! get_ue_block = address of a 4-quadword block to be filled in ! = ! name = Fixed length string, passed by descriptor. ! $ INTEGER*4 SYS$GET_UNWIND_ENTRY_INFO# EXTERNAL SYS$GET_UNWIND_ENTRY_INFO ! ! $JOIN_RM ! = ! Join a resource manager previously started transaction ! 6 ! $JOIN_RM [efn], [flags], iosb, [astadr], [astprm],H ! ($JOIN_RMW) rm_id [, [tid], [part_name], [rm_context], [timout]] ! / ! efn = event flag to set upon completion ! flags = operation flags* ! iosb = address of I/O status block5 ! astadr = address of entry mask of AST routine2 ! astprm = value to be passed to AST routine) ! rm_id = resource manager id value' ! tid = address of transaction id) ! part_name = participant name string; ! rm_context = RM private value to pass to event routine5 ! timout = transaction execution time-out value !  INTEGER*4 SYS$JOIN_RM EXTERNAL SYS$JOIN_RM INTEGER*4 SYS$JOIN_RMW EXTERNAL SYS$JOIN_RMW ! ! $RECOVER ! # ! Recover transaction state. ! 6 ! $RECOVER [efn], [flags], iosb, [astadr], [astprm],E ! ($RECOVER W) recovery_prefix, event_handler, tm_log_id [,: ! [tid], [node], [rm_context], [acmode], [max_events]] ! 3 ! efn = event flag to set upon completion# ! flags = operation flags. ! iosb = address of I/O status block9 ! astadr = address of entry mask of AST routine6 ! astprm = value to be passed to AST routine< ! recovery_prefix = address of search name descriptorJ ! event_handler = address of entry mask of recovery event r outine4 ! tm_log_id = address TM log identifier< ! tid = address of transaction identifier: ! node = address of node name descriptorN ! rm_context = value to be passed via event block to event_handlerW ! acmode = value of access mode in which event ASTs should be deliveredV ! max_events = value of maximum number of events to be queued concurrently !  INTEGER*4 SYS$RECOVER EXTERNAL SYS$RECOVER INTEGER*4 SYS$RECOVERW EXTERNAL SYS$RECOVERW !  ! $SET_DEFAULT_TRANS ! - ! Set up the process default transaction ! B ! $SET_DEFAULT_TRANS [efn], [flags], iosb [, [astadr], [astprm],0 ! ($SET_DEFAULT_TRANSW) [new_tid], [old_tid]] ! , ! efn = event flag to be set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O status block4 ! astadr = address of an entry mask of AST routine= ! astprm = value to be passed to AST routine as an argument; ! new_tid = identifier of new process default transactionB ! old_tid = identifier of superceded process default transaction ! INTEGER*4 SYS$SET_DEFAULT_TRANS EXTERNAL SYS$SET_DEFAULT_TRANS! INTEGER*4 SYS$SET_DEFAULT_TRANSW EXTERNAL SYS$SET_DEFAULT_TRANSW !  ! $START_BITMAP ! & ! Create and start a write bitmap ! R ! $START_BITMAP handle_in, chan, devnam, name, cluster, flags, handle_out !  INTEGER*4 SYS$START_BITMAP EXTERNAL SYS$START_BITMAP !  ! $START_BRANCH ! ! ! Start a transaction branch ! ? ! $START_BRANCH [efn], [flags], iosb, [astadr], [astprm],M ! ($START_BRANCHW) tid, tm_name, bid, [, [timout], [acmode], [tx_class]] ! , ! efn = event flag to be set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O status block4 ! astadr = address of an entry mask of AST routine= ! astprm = value to be passed to AST routine as an argument( ! tid = transaction id for this branch= ! tm_name = address of parent commit domain name descriptor) ! bid = address of branch identifier1 ! timout = transaction execution time-out value2 ! acmode = access mode for $READY_TO_COMMIT call) ! tx_class= user transaction class name !  INTEGER*4 SYS$START_BRANCH EXTERNAL SYS$START_BRANCH INTEGER*4 SYS$START_BRANCHW EXTERNAL SYS$START_BRANCHW !  ! $START_TRANS !  ! Start a new transaction ! @ ! $START_TRANS [efn], [flags], iosb [, [astadr], [as tprm],> ! ($START_TRANSW) [tid], [timout], [acmode], [tx_class]] ! , ! efn = event flag to be set at completion ! flags = operation flags1 ! iosb = address of a quadword I/O status block4 ! astadr = address of an entry mask of AST routine= ! astprm = value to be passed to AST routine as an argument0 ! tid = identifier of transaction just started1 ! timout = transaction execution time-out valueA ! acmode = outermost access mode allowed to end the transaction) ! tx_class= user transaction class name !  INTEGER*4 SYS$START_TRANS EXTERNAL SYS$START_TRANS INTEGER*4 SYS$START_TRANSW EXTERNAL SYS$START_TRANSW !  ! $TRANS_EVENT !  ! Start a new transaction ! < ! $TRANS_EVENT [efn], [flags], iosb, [astadr], [astprm],/ ! ($TRANS_EVENTW) tid, rm_id, tx_event ! 9 ! efn = event flag to be set at completion& ! flags = operation flags= ! iosb = address of a quadword I/O status block> !  astadr = address of an entry mask of AST routineG ! astprm = value to be passed to AST routine as an argument= ! tid = identifier of transaction just startedS ! rm_id = value of resource manager identifier returned by $DECLARE_RM3 ! tx_event = transaction transition event !  INTEGER*4 SYS$TRANS_EVENT EXTERNAL SYS$TRANS_EVENT INTEGER*4 SYS$TRANS_EVENTW EXTERNAL SYS$TRANS_EVENTW ! $TSTCLUEVT ! & ! Test Cluster Event Notification ! . ! $TSTCLUEVT [handle], [acmode], [event] ! " ! handle = address of handle ! # ! acmode = access mode of AST ! / ! event = code indicating type of event !  INTEGER*4 SYS$TSTCLUEVT EXTERNAL SYS$TSTCLUEVT ! PTD$CREATE !  ! Create a pseudo terminal ! B ! PTD$CREATE CHAN, [ACMODE], [CHARBUFF], [BUFLEN], [HANGUP_AST],* ! [HANGUP_ASTPRM], [AST_ACMODE], INADR ! C ! CHAN = Address of word to receive channel number  assigned6 ! ACMODE = Access mode associated with channelF ! CHARBUFF = Address ofa 3 - 5 longword array containing device ! characteristics.C ! BUFLEN = Length of characteristics buffer in bytes either ! 12, 16, or 207 ! ASTADR = Address of entry mask of AST routine4 ! ASTPRM = Value to be passed to AST routineI ! AST_ACMODE = Access mode for whjich the AST is to be deliveredE ! INADR = Address of 2-longword array containing starting and3 ! ending virtual address of pages to be used as ! I/O buffers INTEGER*4 PTD$CREATE EXTERNAL PTD$CREATE ! PTD$READ ! & ! Read data from the pseudo terminal ! E ! PTD$READ(W) [EFN], CHAN, [ASTADR], [ASTPRM], READBUF, READBUF_LEN9 ! EFN = Number of event flag to set on completionR ! CHAN = Word containing number of channel on which I/O is to be performed7 ! ASTADR = Address of entry mask of AST routine4 ! ASTPRM = Value to be passed to AST routineD ! READBUF = Address character string to hold characters readG ! READBUF_LEN = Number of character to be read from pseudo terminal INTEGER*4 PTD$READ EXTERNAL PTD$READ INTEGER*4 PTD$READW EXTERNAL PTD$READW ! PTD$WRITE ! % ! Write data to the pseudo terminal ! ; ! PTD$WRITE CHAN, [ASTADR], [ASTPRM], WRTBUF, WRTBUF_LEN, ! [ECHOBUF], ECHOBUF_LEN]R ! CHAN = Word containing number of channel on which I/O is to be performed7 ! ASTADR  = Address of entry mask of AST routine4 ! ASTPRM = Value to be passed to AST routineO ! WRTBUF = Address of character string containing character to write to ! pseudo terminalD ! WRTBUF_LEN = Number of characters to write to pseudo terminalD ! ECHOBUF = Address character string to hold characters readG ! ECHOBUF_LEN = Number of character to be read from pseudo terminal INTEGER*4 PTD$WRITE EXTERNAL PTD$WRITE ! PTD$SET_EVENT_NOTIFICATION ! 6 ! Enable or disable terminal event notification ASTs ! @ ! PTD$SET_EVENT_NOTIFICATION CHAN, ASTADR, [ASTPRM], [ACMODE], ! TYPER ! CHAN = Word containing number of channel on which I/O is to be performed7 ! ASTADR = Address of entry mask of AST routine4 ! ASTPRM = Value to be passed to AST routineH ! ACMODE = Access mode for whjich the AST is to be delivered$ ! TYPE = Longword containing% INTEGER*4 PTD$SET_EVENT_NOTIFICATION$ EXTERNAL PTD$SET_EVENT_NOTIFICATION ! PTD$CANCEL ! 4 ! Cancel queued control connection read request(s) !  ! PTD$CANCEL CHAN ! R ! CHAN = Word containing number of channel on which I/O is to be performed INTEGER*4 PTD$CANCEL EXTERNAL PTD$CANCEL ! PTD$DELETE !  ! Delete a pseudo terminal !  ! PTD$DELETE CHAN ! R ! CHAN = Word containing number of channel on which I/O is to be performed INTEGER*4 PTD$DELETE EXTERNAL PTD$DELETE ! PTD$DECTERM_SET_PAGE_SIZE ! ) ! Change terminal page length and width ! 8 ! PTD$DECTERM_SET_PAGE_SIZE CHAN, PAGE_LEN, PAGE_WIDTH ! R ! CHAN = Word containing number of channel on which I/O is to be performedC ! PAGE_LEN = Longword containing new page length of terminalB ! PAGE_WIDTH = Longword containing new page width of terminal$ INTEGER*4 PTD$DECTERM_SET_PAGE_SIZE# EXTERNAL PTD$DECTERM_SET_PAGE_SIZE ! $POSIX_FORK_CONTROL ! $ ! Control POSIX fork() operations ! H ! $POSIX_FORK_CONTROL cntrl , [when] , [handler] , [arg] , [ac ! @ ! cntrl = constant defining what control routine is to do ! : ! when = bit array of when handler is to be called ! ! handler= handler address ! = ! arg = arg value that is passed back to the handler ! D ! acmode = access mode at which to make the specified callback! INTEGER*4 SYS$POSIX_FORK_CONTROL EXTERNAL SYS$POSIX_FORK_CONTROL ! $START_ALIGN_FAULT_REPORT ! / ! Start user-image alignment fault reporting ! K ! $START_ALIGN_FAULT_REPORT report_method, [report_buffer, buffer_length] ! < ! report_method = either AFR$C_EXCEPTION or AFR$C_BUFFERED ! 9 ! report_buffer = buffer to use to save alignment fault1 ! data if the BUFFERED method is specified. ! 9 ! buffer_length = the size in bytes of the user buffer' INTEGER*4 SYS$START_ALIGN_FAULT_REPORT& EXTERNAL SYS$START_ALIGN_FAULT_REPORT ! $GET_ALIGN_FAULT_DATA ! 1 ! Get alignment fault data from the collector. ! : ! $GET_ALIGN_FAULT_DATA buffer, buffer_size, return_size ! 9 ! buffer = Buffer in which to save the alignment fault ! data. ! 6 ! buffer_size = The size in bytes of the user buffer ! > ! return_size = Address of a longword in which to return the/ ! size of the alignment fault data found.# INTEGER*4 SYS$GET_ALIGN_FAULT_DATA" EXTERNAL SYS$GET_ALIGN_FAULT_DATA ! $STOP_ALIGN_FAULT_REPORT ! . ! Stop user-image alignment fault reporting !  ! $STOP_ALIGN_FAULT_REPORT ! & INTEGER*4 SYS$STOP_ALIGN_FAULT_REPORT% EXTERNAL SYS$STOP_ALIGN_FAULT_REPORT ! $PERM_REPORT_ALIGN_FAULT ! 7 ! Start process permanent alignment fault reporting. !  ! $PERM_REPORT_ALIGN_FAULT ! & INTEGER*4 SYS$PERM_REPORT_ALIGN_FAULT% EXTERNAL SYS$PERM_REPORT_ALIGN_FAULT! ! $PERM_DIS_ALIGN_FAULT_REPORT ! 7 ! Start process permanent alignment fault reporting. ! ! $PERM_DIS_ALIGN_FAULT_REPORT ! * INTEGER*4 SYS$PERM_DIS_ALIGN_FAULT_REPORT) EXTERNAL SYS$PERM_DIS_ALIGN_FAULT_REPORT! ! $INIT_SYS_ALIGN_FAULT_REPORT ! 1 ! Start system wide alignment fault reporting. ! @ ! $INIT_SYS_ALIGN_FAULT_REPORT match_table, buffer_size, flags ! 5 ! match_table = Array of longwords used to restrict% ! the alignment faults reported ! > ! buffer_size = The number of bytes to use to save alignment ! fault data./ ! flags = can be either 0 or AFR$M_USER_INFO ! * INTEGER*4 SYS$INIT_SYS_ALIGN_FAULT_REPORT) EXTERNAL SYS$INIT_SYS_ALIGN_FAULT_REPORT ! $GET_SYS_ALIGN_FAULT_DATA ! = ! Get alignment fault data from the system wide collector. ! > ! $GET_SYS_ALIGN_FAULT_DATA buffer, buffer_size, return_size ! 8 ! buffer = Buffer in which to save the alignment fault ! data. ! 6 ! buffer_size = The size in bytes of the user buffer ! > ! return_size = Address of a longword in which to return the/ ! size of the alignment fault data found.' INTEGER*4 SYS$GET_SYS_ALIGN_FAULT_DATA& EXTERNAL SYS$GET_SYS_ALIGN_FAULT_DATA! ! $STOP_SYS_ALIGN_FAULT_REPORT ! / ! Stop system-wide alignment fault reporting ! ! $STOP_SYS_ALIGN_FAULT_REPORT ! * INTEGER*4 SYS$STOP_SYS_ALIGN_FAULT_REPORT) EXTERNAL SYS$STOP_SYS_ALIGN_FAULT_REPORT ! $RESCHED ! 4 ! Request voluntary preemption of current process ! ! $RESCHED !  INTEGER*4 SYS$RESCHED EXTERNAL SYS$RESCHED ! ! $SCHED !  ! Control class scheduler ! ! ! $SCHED func, P1, P2, P3 ! 9 ! func = function code (see CSHDEFS in STARLET) ! @ ! P1 = buffer address, AST entry point address, or 0 ! B ! P2 = buffer length address or AST acmode or PID or 0 ! = ! P3 = entry size of a single buffer element or 0 INTEGER*4 SYS$SCHED EXTERNAL SYS$SCHED !  ! $SIGNAL_ARRAY_64 ! - ! Return address of 64-bit signal array. ! , ! $SIGNAL_ARRAY_64 mcharg, sigarg_64 ! 0 ! mcharg = address of the mechanism array ! ; ! sigarg_64 = 64-bit pointer to which the address of% ! 64-bit signal array is written. INTEGER*4 SYS$SIGNAL_ARRAY_64 EXTERNAL SYS$SIGNAL_ARRAY_64 ! $AVOID_PREEMPT ! * ! Enable/disable preemption avoidance !  ! $AVOID_PREEMPT enbflg ! / ! enbflg = Avoid preempt enable indicator. ! 0 -> disable 1 -> enable !  INTEGER*4 SYS$AVOID_PREEMPT EXTERNAL SYS$AVOID_PREEMPT ! $SETUP_AVOID_PREEMPT ! 8 ! Enable/disable preemption avoidance underpinnings ! $ ! $SETUP_AVOID_PREEMPT enbflg ! / ! enbflg = Avoid preempt enable indicator. ! 0 -> disable 1 -> enable ! " INTEGER*4 SYS$SETUP_AVOID_PREEMPT! EXTERNAL SYS$SETUP_AVOID_PREEMPT !  ! $ICC_ACCEPT !  ! Accept an ICC connection ! ; ! $ICC_ACCEPT Conn_Handle ,[Accept_Buf] ,[Accept_Len] ! ,[User_Context] ,[Flags] ! A ! Conn_Handle = Handle value associated with the Connection1 ! Accept_Buf = Address of user Accept data. ! Accept_Len = Length of the accept data* ! User_Context = User context value ! Flags = Flags argument !  INTEGER*4 SYS$ICC_ACCEPT EXTERNAL SYS$ICC_ACCEPT !  ! $ICC_CLOSE_ASSOC !  ! Close an ICC association ! % ! $ICC_CLOSE_ASSOC Assoc_Handle ! C ! Assoc_Handle = Handle representing the Association to close !  INTEGER*4 SYS$ICC_CLOSE_ASSOC EXTERNAL SYS$ICC_CLOSE_ASSOC !  ! $ICC_CONNECT[W] ! ) ! Initiate an ICC Connection attempt ! A ! $ICC_CONNECT[W] IOS_ICC ,[astadr] ,[astprm] ,assoc_handle/ ! ,conn_hndl_A ,remote_assoc ,[remote_node]1 ! ,[user_context] ,[conn_buf] ,[conn_buf_len]4 ! ,[return_buf] ,[return_buf_len] ,[retlen_addr] ! ,[flags] ! ? ! ios_icc = address of a IOS_ICC (Connect version)F ! astadr = address of entry m ask of users' completion AST ! routineC ! astprm = value to be passed to the AST routine as an ! argumentE ! Assoc_Handle = Handle representing the Association to closeB ! Conn_Hndl_A = Address to return the handle value of the ! opened ConnectionF ! Remote_Assoc = Pointer to a descriptor describing the remote ! association name stringF ! Remote_Node = Pointer to a descriptor describing the remote ! node name string+ !  User_Context = User context valueD ! Conn_Buf = Address of a buffer containing Connect data? ! Conn_Buf_Len = Length of the connect data in Conn_Buf< ! Return_Buf = Address of a buffer for return dataG ! Return_Buf_Len = Length of the buffer available for return dataD ! Retlen_Addr = Address to receive the actual length of any ! return data$ ! Flags = Flags argument !  INTEGER*4 SYS$ICC_CONNECT EXTERNAL SYS$ICC_CONNECT INTEGER*4 SYS$ICC_CONNECTW EXTERNAL SYS$ICC_CONNECTW !  ! $ICC_DISCONNECT[W] ! $ ! Initiate an ICC Disconnection ! @ ! $ICC_DISCONNECT[W] conn_handle ,IOSB ,[astadr] ,[astprm]" ! ,[disc_buf] ,[disc_buf_len] ! H ! Conn_Handle = Handle representing the Connection to terminate> ! iosb = Address of a quadword I/O status blockF ! astadr = Address of entry mask of users' completion AST ! routineC ! astprm = Value to be passed to the AST routine as an ! argumentA ! Disc_Buf = Address of an optional buffer containing ! Disconnect dataB ! Disc_Buf_Len = Length of the disconnect data in Disc_Buf !  INTEGER*4 SYS$ICC_DISCONNECT EXTERNAL SYS$ICC_DISCONNECT INTEGER*4 SYS$ICC_DISCONNECTW EXTERNAL SYS$ICC_DISCONNECTW !  ! $ICC_REJECT !  ! Reject an ICC connection ! ? ! $ICC_REJECT Conn_Handle ,[Reject_Buf] ,[Reject_Buf_Len] ! ,[Reason] ! A ! Conn_Handle = Handle value associated with the Connection9 ! Reject_Buf = Address of optional user Reject data2 ! Reject_Buf_Len = Length of the reject data* ! Reason = Reason for the rejection !  INTEGER*4 SYS$ICC_REJECT EXTERNAL SYS$ICC_REJECT !  ! $ICC_OPEN_ASSOC !  ! Open an ICC association ! B ! $ICC_OPEN_ASSOC assoc_handle ,[assoc_name] ,[logical_name]. ! ,[logical_table] ,[conn_rtn] ,[disc_rtn]* ! ,[recv_rtn] ,[maxflowb ufcnt] ,[prot] ! ? ! Assoc_Handle = Address to return the handlevalue of the ! opened Association@ ! Assoc_Name = Pointer to a descriptor describing the ! association name stringF ! Logical_Name = Pointer to a descriptor describing a logical/ ! name for use by the ICC simple registryG ! Logical_Table = Pointer to a descriptor describing a logical5 ! name table for use by the ICC simple registry= ! Conn_Rtn = Address of the User's Connect AST routine@ ! Disc_Rtn = Address of the User's Disconnect AST routine= ! Recv_Rtn = Address of the User's receive AST routineC ! Maxflowbufcnt = Maximum number of pending inbound message ! buffers2 ! Prot = Default protection for association !  INTEGER*4 SYS$ICC_OPEN_ASSOC EXTERNAL SYS$ICC_OPEN_ASSOC !  ! $ICC_RECEIVE[W] ! * ! Receive data over an ICC connection ! @ ! $ICC_RECEIVE[W] conn_handle ,ios_icc ,[astadr] ,[a stprm] ! ,recv_buf ,recv_buf_len ! D ! conn_handle = Handle representing the Connection the data ! is being transferred overC ! ios_icc = Address of an I/O status block (16-byte ICC ! RECEIVE layout)F ! astadr = Address of entry mask of users' completion AST ! routineC ! astprm = Value to be passed to the AST routine as an ! argument@ ! recv_buf = Address of a buffer to receive the data@ !  recv_buf_len = Length of the buffer receiving the data !  INTEGER*4 SYS$ICC_RECEIVE EXTERNAL SYS$ICC_RECEIVE INTEGER*4 SYS$ICC_RECEIVEW EXTERNAL SYS$ICC_RECEIVEW !  ! $ICC_REPLY[W] ! * ! Send a reply over an ICC connection ! > ! $ICC_REPLY[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,reply_buf ,reply_len ! D ! conn_handle = Handle representing the Connection the data is ! being transferred over@ ! ios_icc = Address of an I/O status block (8-byte ICC ! REPLY layout)C ! astadr = Address of entry mask of users' completion AST ! routine@ ! astprm = Value to be passed to the AST routine as an ! argument= ! reply_buf = Address of a buffer containing the data5 ! reply_len = Length of the data in reply_buf !  INTEGER*4 SYS$ICC_REPLY EXTERNAL SYS$ICC_REPLY INTEGER*4 SYS$ICC_REPLYW EXTERNAL SYS$ICC_REPLYW !  ! $ICC_TRANSCEIVE[W] !  !  ICC transceive operation ! D ! $ICC_TRANSCEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,send_buf ,send_len ! D ! conn_handle = Handle representing the Connection the data is ! being transferred overC ! ios_icc = Address of an I/O status block (20-byte ICC" ! TRANSCEIVE layout )C ! astadr = Address of entry mask of users' completion AST ! routine@ ! astprm = Value to be passed to the AST routine as an ! argument? ! send_buf = Address of a buffer conta in ing the data4 ! send_len = Length of the data in send_buf !  INTEGER*4 SYS$ICC_TRANSCEIVE EXTERNAL SYS$ICC_TRANSCEIVE INTEGER*4 SYS$ICC_TRANSCEIVEW EXTERNAL SYS$ICC_TRANSCEIVEW !  ! $ICC_TRANSMIT[W] ! + ! Transmit data over an ICC connection ! A ! $ICC_TRANSMIT[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,send_buf ,send_len ! D ! conn_handle = Handle representing the Connection the data is ! being transferred over; ! ios_icc = Address of a quadword I/O status blockC ! astadr = Address of entry mask of users' completion AST ! routine@ ! astprm = Value to be passed to the AST routine as an ! argument? ! send_buf = Address of a buffer conta in ing the data4 ! send_len = Length of the data in send_buf !  INTEGER*4 SYS$ICC_TRANSMIT EXTERNAL SYS$ICC_TRANSMIT INTEGER*4 SYS$ICC_TRANSMITW EXTERNAL SYS$ICC_TRANSMITW ! $PERSONA_QUERY ! ! ! Query Persona Information ! ( ! $PERSONA_QUERY persona, itmlst ! I ! persona = address of longword holding persona identifier ! 8 ! itmlst = address of list of item descriptors !  !  INTEGER*4 SYS$PERSONA_QUERY EXTERNAL SYS$PERSONA_QUERY ! $PERSONA_FIND ! * ! Locate Persona With Characteristic ! ' ! $PERSONA_FIND persona, itmlst ! I ! persona = address of longword holding persona identifier ! 8 ! itmlst = address of list of item descriptors ! ? ! contxt = address of a context long word (used for iterative' ! calls or a multi-entry item list) !  !  !  INTEGER*4 SYS$PERSONA_FIND EXTERNAL SYS$PERSONA_FIND ! $PERSONA_RESERVE ! + ! Reserve Persona Slot For Delegation ! - ! $PERSONA_RESERVE clientPID, persona ! C ! clientPID = address of longword holding client's PID ! I ! persona = address of longword holding persona identifier !  !  INTEGER*4 SYS$PERSONA_RESERVE EXTERNAL SYS$PERSONA_RESERVE ! $PERSONA_DELEGATE ! + ! Delegate Persona To Another Process ! 8 ! $PERSONA_DELEGATE serverPID, persona, input_id ! C ! serverPID = address of longword holding server's PID ! \ ! persona = address of longword holding persona identifier reserved by server ! U !  input_id = address of longword holding persona identifier to delegate !  INTEGER*4 SYS$PERSONA_DELEGATE EXTERNAL SYS$PERSONA_DELEGATE ! $PERSONA_EXTENSION_LOOKUP ! % ! Find Extension on the system ! > ! $PERSONA_EXTENSION_LOOKUP extensionName, extensionID ! ? ! extensionName = address of string descriptor of name ! C ! extensionID = address of longword the ID is written to !  ! ' INTEGER*4 SYS$PERSONA_EXTENSION_LOOKUP& EXTERNAL SYS$PERSONA_EXTENSION_LOOKUP ! $PERSONA_CREATE_EXTENSION ! ! Create Persona Extension ! O ! $PERSONA_CREATE_EXTENSION persona, extensionID, buffer, length, flags ! I ! persona = address of longword holding persona identifier ! J ! extensionID = address of longword holding extension to create ! 0 ! buffer = address of TLV buffer ! K ! length = address of longword containing TLV size in bytes ! 6 ! flags = address of a flags longword !  ! ' INTEGER*4 SYS$PERSONA_CREATE_EXTENSION& EXTERNAL SYS$PERSONA_CREATE_EXTENSION ! $PERSONA_DELETE_EXTENSION ! + ! Delete An Extension From A Persona ! 8 ! $PERSONA_DELETE_EXTENSION persona, extensionID ! I ! persona = address of longword holding persona identifier ! J ! extensionID = address of longword holding extension to delete !  ! ' INTEGER*4 SYS$PERSONA_DELETE_EXTENSION& EXTERNAL SYS$PERSONA_DELETE_EXTENSION ! $PERSONA_MODIFY !  ! Modify Persona ! ) ! $PERSONA_MODIFY persona, itmlst ! I ! persona = address of longword holding persona identifier ! 8 ! itmlst = address of list of item descriptors !  !  INTEGER*4 SYS$PERSONA_MODIFY EXTERNAL SYS$PERSONA_MODIFY !  ! $SET_PROCESS_PROPERTIES[W] ! 3 ! Set a simple value associated with a process ! A ! $SET_PROCE SS_PROPERTIES[W] mbz1 ,pidadr ,prcnam ,property, ! ,value, prev_value [,bufsiz] [,bufcnt] ! > ! mbz1 = Reserved for future use by Digital. Must ! be specified as 0.D ! pidadr = For system service logging, the address of 2 ! the PID of the target process. Otherwise, 0.C ! prcnam = For system service logging, the address of/ ! the process name descriptor of the target$ ! process. Otherwise, must be 0.F ! property = A constan t that selects which property to set= ! value = A quadword value to set the property toI ! prev_value = The address of a quadword which will receive the$ ! previous value of the propertyO ! bufsiz = For PPROP$C_SS_ENABLE, the size in bytes of a log bufferI ! bufcnt = For PPROP$C_SS_ENABLE, the number of log buffersD ! flags = for PPROP$C_SS_ENABLE, the associated flags ! % INTEGER*4 SYS$SET_PROCESS_PROPERTIES$ EXTERNAL SYS$SET_PROCESS_PROPERTIES& INTEGER*4 SYS$SET_PROCESS_PROPERTIESW% EXTERNAL SYS$SET_PROCESS_PROPERTIESW ! SYS$ACQUIRE_GALAXY_LOCK ! 2 ! $ACQUIRE_GALAXY_LOCK lock_handle,timeout,flags !  ! lock_handle - GLOCK handle8 ! timeout - timeout value in 10 microsecond units ! flags - flags" INTEGER*4 SYS$ACQUIRE_GALAXY_LOCK! EXTERNAL SYS$ACQUIRE_GALAXY_LOCK ! SYS$CREATE_GALAXY_LOCK ! L ! $CREATE_GALAXY_LOCK lcktbl_handle,name,size,timeout,ipl,rank,lock_handle ! D ! lcktbl_handle - handle of lock table in which to create the lockG ! name - pointer to name of lock; 16 bytes. ASCIZ or Descriptor ! size - size of lock? ! timeout - wait timeout value in 10 micro second unitsH ! ipl - IPL to raise to when lock is acquired (kernel mode only) ! rank - rank of lock ! lock_handle - lock handle !  ! ! INTEGER*4 SYS$CREATE_GALAXY_LOCK EXTERNAL SYS$CREATE_GALAXY_LOCK! ! SYS$CREATE_GALAXY_LOCK_TABLE ! a  ! $CREATE_GALAXY_LOCK_TABLE name,accmode,section_size,section_type,prot,lock_size,lcktbl_handle ! L ! name - pointer to name of section; 16 bytes. ASCIZ or Descriptor ! accmode - access mode6 ! section_size - virtual size of the section (bytes): ! section_type - glcktbl$c_process | glcktbl$c_system ! prot - page protection- ! lock_size - size of locks in the section( ! lcktbl_handle - handle of lock table ! ' INTEGER*4 SYS$CREATE_GALAXY_LOCK_TABLE& EXTERNAL SYS$CREATE_GALAXY_LOCK_TABLE ! SYS$DELETE_GALAXY_LOCK ! # ! $DELETE_GALAXY_LOCK lock_handle !  ! lock_handle - lock handle ! ! INTEGER*4 SYS$DELETE_GALAXY_LOCK EXTERNAL SYS$DELETE_GALAXY_LOCK! ! SYS$DELETE_GALAXY_LOCK_TABLE ! + ! $DELETE_GALAXY_LOCK_TABLE lcktbl_handle ! ( ! lcktbl_handle - handle of lock table ! ' INTEGER*4 SYS$DELETE_GALAXY_LOCK_TABLE& EXTERNAL SYS$DELETE_GALAXY_LOCK_TABLE ! SYS$GET_GALAXY_LOCK_INFO ! [ ! $GET_GALAXY_LOCK_INF O lcktbl_handle,name,timeout,size,ipl,rank,lock_handle, name_length !  ! lock_handle - lock handleC ! name - pointer to name of lock; 16 bytes, zero terminated? ! timeout - wait timeout value in 10 micro second units ! size - size of lockH ! ipl - IPL to raise to when lock is acquired (kernel mode only) ! rank - rank of lock! ! flags - flags from lockS ! name_length - pointer to a word where the length of the name will be returned ! # INTEGER*4 SYS$GET_GALAXY_LOCK_INFO" EXTERNAL SYS$GET_GALAXY_LOCK_INFO ! SYS$GET_GALAXY_LOCK_SIZE ! , ! $GET_GALAXY_LOCK_SIZE min_size, max_size ! , ! min_size - minimum size of a galaxy lock, ! max_size - maximum size of a galaxy lock ! # INTEGER*4 SYS$GET_GALAXY_LOCK_SIZE" EXTERNAL SYS$GET_GALAXY_LOCK_SIZE ! SYS$INIT_GALAXY_LOCK ! ? ! $INIT_GALAXY_LOCK va,name,size,timeout,ipl,rank,lock_handle ! 3 ! va - local va of memory to be initializedC ! name - pointer to name of lock; 16 bytes, zero terminated ! size - size of lock? ! timeout - wait timeout value in 10 micro second unitsH ! ipl - IPL to raise to when lock is acquired (kernel mode only) ! rank - rank of lock ! lock_handle - lock handle !  !  INTEGER*4 SYS$INIT_GALAXY_LOCK EXTERNAL SYS$INIT_GALAXY_LOCK ! SYS$INIT_GALAXY_LOCK_TABLE ! f ! $INIT_GALAXY_LOCK_TABLE region_va,reg_phys_size,reg_virt_size,section_type,lock_size,lcktbl_handle ! G ! region_va - local va of shared memory region where the locks reside7 ! reg_phys_size - physical size of the region (bytes)6 ! reg_virt_size - virtual size of the region (bytes): ! section_type - glcktbl$c_process | glcktbl$c_system- ! lock_size - size of locks in the section( ! lcktbl_handle - handle of lock table ! % INTEGER*4 SYS$INIT_GALAXY_LOCK_TABLE$ EXTERNAL SYS$INIT_GALAXY_LOCK_TABLE ! SYS$RELEASE_GALAXY_LOCK ! $ ! $RELEASE_GALAXY_LOCK lock_handle !  ! lock_handle - lock handle ! " INTEGER*4 SYS$RELEASE_GALAXY_LOCK! EXTERNAL SYS$RELEASE_GALAXY_LOCK ! SYS$RESET_GALAXY_LOCK ! " ! $RESET_GALAXY_LOCK lock_handle !  ! lock_handle - lock handle) ! lock_va - local address of lock ! INTEGER*4 SYS$RESET_GALAXY_LOCK EXTERNAL SYS$RESET_GALAXY_LOCK ! SYS$WAIT_ON_GLOCK ! & ! $WAIT_ON_GLOCK lock_handle,timeout !  ! lock_handle - lock handle@ ! timeout - timeout value; overrides the value in the lock !  INTEGER*4 SYS$WAIT_ON_GLOCK EXTERNAL SYS$WAIT_ON_GLOCK ! SYS$NOTIFY_GLOCK_WAITERS ! - ! $NOTIFY_GLOCK_WAITERS lock_handle,waiters !  ! lock_handle - lock handleD ! waiters - bitmask of galaxy nodes with waiters for this lock ! # INTEGER*4 SYS$NOTIFY_GLOCK_WAITERS" EXTERNAL SYS$NOTIFY_GLOCK_WAITERS ! $QIOSERVER ! ( ! QIOserver Control and Information ! 6 ! $QIOSERVER [efn], func, [context], [itmlst],/ ! ( $QIOSERVERW) [iosb], [astadr], [astprm] ! = ! efn = event flag to be set when request completes: ! func = code specifying function to be performedC ! context = address of a longword containing a context numberI ! itmlst = address of a list of item descriptors for the operationP ! iosb = address of a quadword status block to receive the final statusO ! astadr = address of an ast routine to be called when request completes? ! astprm = 32-bit (VAX) or 64-bit (ALPHA) ast parameter  !  INTEGER*4 SYS$QIOSERVER EXTERNAL SYS$QIOSERVER INTEGER*4 SYS$QIOSERVERW EXTERNAL SYS$QIOSERVERW ! $DEVICE_PATH_SCAN ! # ! SCAN Device Path Information ! H ! $DEVICE_PATH_SCAN [chan] ,[devnam] ,itmlst ,[contxt] ,[nullarg] ! > ! chan = number of a channel assigned to the device orA ! 0 if device is specified by the devnam parameter ! B ! devnam = address of device name or logical name descriptor ! 6 ! itmlst = address of a list of item descriptors ! \ ! contxt = address of long word used to indicate current position of $DEVICE_PATH_SCAN ! # ! nullarg = reserved argument !  !  INTEGER*4 SYS$DEVICE_PATH_SCAN EXTERNAL SYS$DEVICE_PATH_SCAN ! $SET_DEVICE ! $SET_DEVICEW !  ! SET Device Information ! L ! $SET_DEVICE [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr],0 ! $SET_DEVICEW [astprm] ,[nullarg] ! 3 ! efn = event flag to be set at completion ! > ! chan = number of a channel assigned to the device orA ! 0 if device is specified by the devnam parameter ! B ! devnam = address of device name or logical name descriptor ! 6 ! itmlst = address of a list of item descriptors ! 7 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine ! # ! nullarg = reserved argument !  !  INTEGER*4 SYS$SET_DEVICE EXTERNAL SYS$SET_DEVICE INTEGER*4 SYS$SET_DEVICEW EXTERNAL SYS$SET_DEVICEW !  ! $IO_TRANSITION ! $IO_TRANSITIONW !  ! IO State Transitions ! \ ! $IO_TRANSITION tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm\ ! $IO_TRANSITIONW tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm !  ! Parameters:C ! tran_code - Transition code of operation to be initiated: ! devnam - CPU ID of processor to affected: ! nodename - ASCII descriptor name equivalent to node ID+ ! node_id - Galactic node IDH ! flags - Quadword pointer to longword behavioral flagsH ! efn - Event flag number for completion notificationI ! iosb - IOSB block address for completion notificationD ! astadr - Address of AST routine name on completionH ! astprm - AST parameter to be passed back on completion# ! contxt - Context longword !  INTEGER*4 SYS$IO_TRANSITION EXTERNAL SYS$IO_TRANSITION INTEGER*4 SYS$IO_TRANSITIONW EXTERNAL SYS$IO_TRANSITIONW ! SYS$MAP_UIC !  ! $MAP_UIC uic, uid, gid ! 7 ! uic - address of the UIC to look up mapping for8 ! uid - address of cell to write matching UID into8 ! gid - address of cell to write matching GID into !  INTEGER*4 SYS$MAP_UIC EXTERNAL SYS$MAP_UIC ! SYS$MAP_UID ! + ! $MAP_UIC uid, uic, username, retlen ! 7 ! uid - address of the UID to look up mapping for8 ! uid - address of cell to write matching UIC intoQ ! username - address of a string descriptor to write matching username intoK ! retlen - address of a word to write the length of the username into !  INTEGER*4 SYS$MAP_UID EXTERNAL SYS$MAP_UID4 ! SYS$SET_SESSION_ID - Create new POSIX session !  ! $SET_SESSION_ID sid ! M ! sid - address of a longword written with the newly created Session ID. !  INTEGER*4 SYS$SET_SESSION_ID EXTERNAL SYS$SET_SESSION_IDC ! SYS$SET_PROCESS_GROUP - Create or change POSIX process group ! , ! $SET_PROCESS_GROUP pid, pgid, retpgid ! = ! pid - address of a PID that is the target of this callU ! pgid - address of a longword Process Group ID (also a PID) to have target joinT ! retpgid - address of a longword written with PGID of a new group (also a PID) ! INTEGER*4 SYS$SET_PROCESS_GROUP EXTERNAL SYS$SET_PROCESS_GROUP7 ! SYS$SET_POSIX_IDS - Set POSIX UID and GID values ! # ! $SET_POSIX_IDS itmlst, flags ! C ! itlmst - address of an item list 3 of POSIX ID values to set. ! flags - flags signed longword, by value !  INTEGER*4 SYS$SET_POSIX_IDS EXTERNAL SYS$SET_POSIX_IDS: ! SYS$LOG_SYSTEM_SERVICE - Log system service request ! ] ! $LOG_SY STEM_SERVICE logtype, [bufseqnum], [logentry], [service_status], [service_ra], 0 ! [arglist_add],[vector_index], [prev_mode] ! : ! logtype - type of log entry, e.g., SSLOG$C_SS_ENTRYJ ! bufseqnum - address to store/fetch longword sequence number assoc.  ! with log's bufferH ! logentry - address to fetch/store 64-bit log buffer entry addressA ! service_status - completion status of service being loggedI ! service_ra - address corresponding to return address from call to  ! service being loggedO ! arglist_add - address of VAX-style argument list to service being loggedQ ! vector_index - position of system service vector in SYS$PUBLIC_VECTORS of  ! service being loggedB ! prev_mode - mode from which service being logged was called! INTEGER*4 SYS$LOG_SYSTEM_SERVICE EXTERNAL SYS$LOG_SYSTEM_SERVICE ! ! $GETLMI ! $GETLMIW ! ) ! Get License Management Information ! ? ! $GETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm? ! $GETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm ! Inputs:; ! efn - Event flag number. (optional, by value)d ! contxt - Context block used for subsequent calls for wildcard license type. (optional by referC ! contxt - Context block used for subsequent calls for wildd ! reserved - String passed by descriptor. May be used for nodename in the future. (optional, by deC ! reserved - String passed by descriptor. May be used for nod d ! itmlst - Item list containing information to fully describe the requested function. (required,C ! itmlst - Item list containing information to fully descri9 ! iosb - I/O status block. (optional, by reference)f ! astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference)F ! astprm - AST parameter for the AST routine. (optional, by value) !  INTEGER*4 SYS$GETLMI EXTERNAL SYS$GETLMI INTEGER*4 SYS$GETLMIW EXTERNAL SYS$GETLMIW ! ! $SETLMI ! $SETLMIW ! ) ! Set License Management Information ! ? ! $SETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm? ! $SETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm ! Inputs:; ! efn - Event flag number. (optional, by value)d ! contxt - Context block used for subsequent calls for wildcard license type. (optional by referC ! contxt - Context block used for subsequent calls for wildd ! reserved - String passed by descriptor. May be used for nodename in the future. (optional, by deC ! reserved - String passed by descriptor. May be used for nodd ! itmlst - Item list containing information to fully describe the requested function. (required,C ! itmlst - Item list containing information to fully descri9 ! iosb - I/O status block. (optional, by reference)f ! astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference)F ! astprm - AST parameter for the AST routine. (optional, by value) !  INTEGER*4 SYS$SETLMI EXTERNAL SYS$SETLMI INTEGER*4 SYS$SETLMIW EXTERNAL SYS$SETLMIW !  ! $IEEE_SET_ROUNDING_MODE ! $IEEE_SET_PRECISION_MODE ! V ! Set and retrieve the IEEE rounding/precision mode for the current kernel thread ! 4 ! $IEEE_SET_ROUNDING_MODE( value, prev_value ) ! U ! value = A longword constant specifying the rounding mode for the threadI ! prev_value = The address of a longword which will receive the ! previous rounding mode ! % INTEGER*4 SYS$IEEE_SET_ROUNDING_MODE$ EXTERNAL SYS$IEEE_SET_ROUNDING_MODE& INTEGER*4 SYS$IEEE_SET_PRECISION_MODE% EXTERNAL SYS$IEEE_SET_PRECISION_MODE ! $DEBUG_BREAK ! * ! Manipulate hardware debug resources ! J ! $DEBUG_BREAK func, handle, addr, addr_mask, mode_mask, access_mask ! ' ! func = what function to perform ! " ! handle = address of handle ! % ! addr = address to be debugged ! = ! addr_mask = which bits in the address are significant ! > ! mode_mask = which mode(s) are to generate an exception ! 8 ! access_mask = are we monitoring reads or writes? INTEGER*4 SYS$DEBUG_BREAK EXTERNAL SYS$DEBUG_BREAK!DEC$ END OPTIONSwwLΦ!*** MODULE $TBKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN STRUCTURE /tbk_api_param/B INTEGER*2 TBK$W_LENGTH ! Input, structure length, by value3 BYTE TBK$B_TYPE ! Input, must be zero.C BYTE TBK$B_VERSION ! Input, version of this structure.7 INTEGER*4 TBK$L_RESERVEDA ! Input, must be zero.A INTEGER*4 TBK$Q_FAULTING_PC(2) ! Input, pc value, by valueF INTEGER*4 TBK$Q_FAULTING_FP(2) ! Input, frame pointer, by valueA INTEGER*8 TBK$PQ_FILENAME_DESC ! Output, string descriptorF INTEGER*8 TBK$PQ_LIBRARY_MODULE_DESC ! Output, string descriptord INTEGER*8 TBK$PQ_RECORD_NUMBER ! Output, record number within filename or within text libraryC ! Output, record number within filename or within text libraryJ INTEGER*8 TBK$PQ_IMAGE_DESC ! Output, string descriptor, image nameL INTEGER*8 TBK$PQ_MODULE_DESC ! Output, string descriptor, module nameN INTEGER*8 TBK$PQ_ROUTINE_DESC ! Output, string descriptor, routine nameM INTEGER*8 TBK$PQ_LISTING_LINENO ! Output, compiler listing line numberS INTEGER*8 TBK$PQ_REL_PC ! Output, relative pc within module or  within imaged INTEGER*8 TBK$PQ_IMAGE_BASE_ADDR ! Output, base address of the image which contains the pc valC ! Output, base address of the image which contains the pc valu ! by referenced INTEGER*8 TBK$PQ_MODULE_BASE_ADDR ! Output, base address of the module, which contains the pc C ! Output, base address of the module, which contains the pc va ! by referenceE ! Input, address of a routine, which provides malloc() functionality INTEGER*8 TBK$PQ_MALLOC_RTNC ! I nput, address of a routine, which provides free() functionality INTEGER*8 TBK$PQ_FREE_RTNO ! Input, address of a quadword, specifying options to be provided by this call% INTEGER*8 TBK$PQ_SYMBOLIZE_FLAGS4 INTEGER*4 TBK$Q_RESERVED0(2) ! Reserved by HP4 INTEGER*4 TBK$Q_RESERVED1(2) ! Reserved by HP4 INTEGER*4 TBK$Q_RESERVED2(2) ! Reserved by HP END STRUCTURE ! tbk_api_param% PARAMETER tbk$k_length = '00000098'X% PARAMETER tbk$c_length = '00000098'X& PARAMETER t bk$k_version = '00000001'X !  ! SYMBOLIZE_FLAGS options; ! The following may be applied to the quadword pointed to! ! by the SYMBOLIZE_FLAGS field. ! 4 ! EXCEPTION_IS_FAULT values affect line number and" ! record number calculation.S ! On an API entry, when an exception has occurred in a frame, select the value 1.Y ! 0=> (Default) Program Adjusts the PC value to correctly determine the line numberL ! 1=> Program Uses the supplied PC value to determine the line number  ! - ! ENTRY_TYPE values which affect processing/ ! 0=> TRACE was entered via the API ENTRYD ! 1=> TRACE was entered via the TRACEBACK exception processing ! 1 PARAMETER TBK$M_EXCEPTION_IS_FAULT = '00000001'X) PARAMETER TBK$M_ENTRY_TYPE = '00000000'X STRUCTURE /tbk_symbolize_flags/+ PARAMETER TBK$S_EXCEPTION_IS_FAULT = 1+ PARAMETER TBK$V_EXCEPTION_IS_FAULT = 0! PARAMETER TBK$S_FILLER1 = 31 PARAMETER TBK$V_FILLER1 = 1# PARAMETER TBK$S_ENTRY_TYPE = 1$ PARAMETER TBK$V_ENTRY_TYPE = 32! PARAMETER TBK$S_FILLER2 = 31! PARAMETER TBK$V_FILLER2 = 33 BYTE %FILL (8)$ END STRUCTURE ! tbk_symbolize_flags!DEC$ END OPTIONS ww1LΦ!*** MODULE $TEBDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ( ! Thread Environment Block Definitions ! % PARAMETER TEB$M_ASTACT = '00000001'X$ PARAMETER TEB$M_ASTEN = '00000002'X STRUCTURE /TEB/4 INTEGER*8 TEB$PQ_FLINK ! Forwar d queue link5 INTEGER*8 TEB$PQ_BLINK ! Backward queue link5 INTEGER*2 TEB$W_SIZE ! Size of TEB, in bytes9 BYTE TEB$B_VERSION ! Version number for TEB; BYTE TEB$B_TYPE ! Structure type code for TEB@ BYTE TEB$b_reserved_2(1:4) ! Reserved to DECthreads< INTEGER*4 TEB$Q_SEQUENCE(2) ! Thread sequence numberA INTEGER*4 TEB$q_reserved_3(2,1:2) ! Reserved to DECthreadsH INTEGER*8 TEB$PQ_PER_KT_AREA ! Address of per kernel thread areaK INTEGER*8 TEB$PQ_STACK_BASE ! Address of first usable byte in stackN INTEGER*8 TEB$PQ_STACK_RESERVE ! Address of first byte in reserve areaL INTEGER*8 TEB$PQ_STACK_YELLOW ! Address of first byte in yellow areaJ INTEGER*8 TEB$PQ_STACK_GUARD ! Address of first byte in guard areaY INTEGER*4 TEB$Q_STACK_SIZE(2) ! Total stack allocation (green+reserve+yellow+red)K INTEGER*8 TEB$PQ_TSD_VALUES ! Address of thread-specific data arrayH INTEGER *4 TEB$L_TSD_COUNT ! Count of thread-specific data values3 INTEGER*4 TEB$L_CANCEL_FLAGS ! cancel flagsD INTEGER*4 TEB$L_CANCEL_COUNT ! CMA alert scope nesting count UNION MAP7 INTEGER*4 TEB$L_THREAD_FLAGS ! thread flags END MAP MAP' PARAMETER TEB$S_ASTACT = 1K PARAMETER TEB$V_ASTACT = 0 ! there's a user mode AST active& PARAMETER TEB$S_ASTEN = 1E PARAMETER TEB$V_ASTEN = 1 ! use mode ASTs are enabled BYTE %FILL (1) END MAP END UNION: INTEGER*4 TEB$L_THD_ERRNO ! Per-thread errno value; INTEGER*4 TEB$l_reserved_4 ! Reserved to DECthreads@ INTEGER*8 TEB$PQ_STACK_HIWATER ! Lowest known SP address4 INTEGER*4 TEB$L_HOME_RAD ! Thread's home RADA INTEGER*4 TEB$L_RAD_SAFE ! Scratch: written by Tru64 UNIX? INTEGER*8 TEB$PQ_REG_STACK_BASE ! Current regstack baseG INTEGER*8 TEB$PQ_REG_STACK_YELLOW !  Current regstack yellow zoneE INTEGER*8 TEB$PQ_REG_STACK_GUARD ! Current regstack guard zone: INTEGER*8 TEB$PQ_REG_STACK_SIZE ! Size of regstack= INTEGER*8 TEB$PQ_REG_STACK_HIWATER ! Highest known bsp END STRUCTURE ! TEB8 PARAMETER TEB$K_LENGTH = '000000B8'X ! Length of TEB 8 PARAMETER TEB$C_LENGTH = '000000B8'X ! Length of TEB O PARAMETER TEB$C_TSD_KEY_SSPI = '00000001'X ! TSD key value reserved for SSPI!DEC$ END OPTIONS wwfΦ!*** MODUL E $TIRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 1 ! Text, information and relocation record (TIR) ! D PARAMETER TIR$C_STA_GBL = '00000000'X ! Stack global symbol value ; PARAMETER TIR$C_STA_SB = '00000001'X ! Stack signed byte ; PARAMETER TIR$C_STA_SW = '00000002'X ! Stack signed word 8 PARAMETER TIR$C_STA_LW = '00000003'X ! Stack longword K PARAMETER TIR$C_STA_PB = '00000004'X ! Stack psect base plus byte offset K PARAMETER TIR$C_STA_PW = '00000005'X ! Stack psect base plus word offset O PARAMETER TIR$C_STA_PL = '00000006'X ! Stack psect base plus longword offset = PARAMETER TIR$C_STA_UB = '00000007'X ! Stack unsigned byte = PARAMETER TIR$C_STA_UW = '00000008'X ! Stack unsigned word @ PARAMETER TIR$C_STA_BFI = '00000009'X ! Stack byte from image @ PARAMETER TIR$C_STA_WFI = '0000000A'X ! Stack word from image D PARAMETER TIR$C_STA_LFI = '0000000B'X ! Stack longword from image A PARAMETER TIR$C_STA_EPM = '0000000C'X ! Stack entry point mask ^ PARAMETER TIR$C_STA_CKARG = '0000000D'X ! Stack result of argument checking (true or false) a PARAMETER TIR$C_STA_WPB = '0000000E'X ! Stack psect base plus byte offset -- word psect number a PARAMETER TIR$C_STA_WPW = '0000000F'X ! Stack psect base plus word offset -- word psect number d PARAMETER TIR$C_STA_WPL = '00000010'X ! Stack psect base plus longword offset -- word of psect numC ! Stack psect base plus longword offset -- word of psect numbeC PARAMETER TIR$C_STA_LSY = '00000011'X ! Stack local symbol value 8 PARAMETER TIR$C_STA_LIT = '00000012'X ! Stack literal O PARAMETER TIR$C_STA_LEPM = '00000013'X ! Stack local symbol entry point mask N PARAMETER TIR$C_MAXSTACOD = '00000013'X ! Last assigned code of stack group N PARAMETER TIR$C_MINSTOCOD = '00000014'X ! First assigned store command code ; PARAMETER TIR$C_STO_SB = '00000014'X ! Store signed byte ; PARAMETER TIR$C_STO_SW = '00000015'X ! Store signed word 7 PARAMETER TIR$C_STO_L = '00000016'X ! Store longword > PARAMETER TIR$C_STO_BD = '00000017'X ! Store byte displaced > PARAMETER TIR$C_STO_WD = '00000018'X ! Store word displaced B PARAMETER TIR$C_STO_LD = '00000019'X ! Store longword displaced = PARAMETER TIR$C_STO_LI = '0000001A'X ! Store short literal L PARAMETER TIR$C_STO_PIDR = '0000001B'X ! Store pos. indep. data reference L PARAMETER TIR$C_STO_PICR = '0000001C'X ! Store pos. indep. code reference E PARAMETER TIR$C_STO_RSB = '0000001D'X ! Store repeated signed by te E PARAMETER TIR$C_STO_RSW = '0000001E'X ! Store repeated signed word A PARAMETER TIR$C_STO_RL = '0000001F'X ! Store repeated longword @ PARAMETER TIR$C_STO_VPS = '00000020'X ! Store arbitrary field > PARAMETER TIR$C_STO_USB = '00000021'X ! Store unsigned byte > PARAMETER TIR$C_STO_USW = '00000022'X ! Store unsigned word G PARAMETER TIR$C_STO_RUB = '00000023'X ! Store repeated unsigned byte G PARAMETER TIR$C_STO_RUW = '00000024'X ! Store repeated unsigned word 3 PARAMETER TIR$C_STO_B = '00000025'X ! Store byte 3 PARAMETER TIR$C_STO_W = '00000026'X ! Store word = PARAMETER TIR$C_STO_RB = '00000027'X ! Store repeated byte = PARAMETER TIR$C_STO_RW = '00000028'X ! Store repeated word S PARAMETER TIR$C_STO_RIVB = '00000029'X ! Store repeated immediate variable bytes P PARAMETER TIR$C_STO_PIRR = '0000002A'X ! Store pos. indep. relative reference M PARAMETER TIR$C_MAXSTOCOD = '0000002A'X ! Last assigned store command code Q PARAMETER TIR$C_MINOPRCOD = '00000032'X  ! First assigned operator command code 0 PARAMETER TIR$C_OPR_NOP = '00000032'X ! No-op . PARAMETER TIR$C_OPR_ADD = '00000033'X ! Add 3 PARAMETER TIR$C_OPR_SUB = '00000034'X ! Subtract 3 PARAMETER TIR$C_OPR_MUL = '00000035'X ! Multiply 1 PARAMETER TIR$C_OPR_DIV = '00000036'X ! Divide 6 PARAMETER TIR$C_OPR_AND = '00000037'X ! Logical AND ? PARAMETER TIR$C_OPR_IOR = '00000038'X ! Logical inclusive OR ? PARAMETER TIR$C_OPR_EOR = '00000039'X ! Logical exclusive OR 1 PARAMETER TIR$C _OPR_NEG = '0000003A'X ! Negate 5 PARAMETER TIR$C_OPR_COM = '0000003B'X ! Complement < PARAMETER TIR$C_OPR_INSV = '0000003C'X ! Insert bit field ; PARAMETER TIR$C_OPR_ASH = '0000003D'X ! Arithmetic shift 9 PARAMETER TIR$C_OPR_USH = '0000003E'X ! Unsigned shift 1 PARAMETER TIR$C_OPR_ROT = '0000003F'X ! Rotate X PARAMETER TIR$C_OPR_SEL = '00000040'X ! Select one of three longwords on top of stack N PARAMETER TIR$C_OPR_REDEF = '00000041'X ! Redefine this symbol after pass 2 = PARAMETER TIR$C_OPR_DFLIT = '00000042'X ! Define a literal P PARAMETER TIR$C_MAXOPRCOD = '00000042'X ! Last assigned operator command code P PARAMETER TIR$C_MINCTLCOD = '00000050'X ! First assigned control command code @ PARAMETER TIR$C_CTL_SETRB = '00000050'X ! Set relocation base D PARAMETER TIR$C_CTL_AUGRB = '00000051'X ! Augment relocation base B PARAMETER TIR$C_CTL_DFLOC = '00000052'X ! Define debug location ? PARAMETER TIR$C_CTL_STLOC = '00000053'X ! Set debug location A PARAMETER TIR$C_CTL_STKDL = '00000054'X ! Stack debug location O PARAMETER TIR$C_MAXCTLCOD = '00000054'X ! Last assigned control command code  STRUCTURE /TIRDEF/ UNION MAP9 BYTE TIR$B_RECTYP ! Record type (OBJ$C_TIR) END MAP ! Define relocation commands END UNION END STRUCTURE ! TIRDEF ! ( ! EVAX dependent structures start here ! !DEC$ END OPTIONS ww{MΦ!*** MODULE $TPADEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN  ! Q ! TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE,5 ! AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. ! @ PARAMETER TPA$K_COUNT0 = '00000008'X ! ZERO LEVEL VALUE IS 8 % PARAMETER TPA$M_BLANKS = '00000001'X% PARAMETER TPA$M_ABBREV = '00000002'X% PARAMETER TPA$M_ABBRFM = '00000004'X$ PARAMETER TPA$M_AMBIG = '00010000'XP PARAMETER TPA$K_LENGTH0 = '00000024'X ! LENGTH OF ZERO LEVEL PARAMETER BLOCK P PARAMETER TPA$C_LENGTH0 = '00000024'X ! LEN GTH OF ZERO LEVEL PARAMETER BLOCK  STRUCTURE /TPADEF/F INTEGER*4 TPA$L_COUNT ! ARGUMENT COUNT (NUMBER OF LONGWORDS) UNION MAP8 INTEGER*4 TPA$L_OPTIONS ! OPTIONS LONGWORD  END MAP MAP' PARAMETER TPA$S_BLANKS = 1P PARAMETER TPA$V_BLANKS = 0 ! PROCESS BLANKS AND TABS EXPLICITLY ' PARAMETER TPA$S_ABBREV = 1H PARAMETER TPA$V_ABBREV = 1 ! ALLOW MINIMAL ABBREVIATION ' PARAMET ER TPA$S_ABBRFM = 1L PARAMETER TPA$V_ABBRFM = 2 ! ALLOW FIRST MATCH ABBREVIATION & PARAMETER TPA$S_AMBIG = 1M PARAMETER TPA$V_AMBIG = 16 ! AMBIGUOUS KEYWORD AT THIS STATE  BYTE %FILL (1) END MAP MAP! BYTE %FILL(1:3)K BYTE TPA$B_MCOUNT ! MINIMUM ABBREVIATION ON KEYWORDS  END MAP END UNIONF INTEGER*4 TPA$L_STRINGCNT ! BYTE COUNT OF STRING BEING PARSED C INT EGER*4 TPA$L_STRINGPTR ! ADDRESS OF STRING BEING PARSED H INTEGER*4 TPA$L_TOKENCNT ! BYTE COUNT OF CURRENT MATCHING TOKEN = INTEGER*4 TPA$L_TOKENPTR ! ADDRESS OF MATCHING TOKEN UNION MAP UNION MAPQ INTEGER*4 TPA$L_CHAR ! ASCII CODE OF SINGLE CHARACTER TOKEN  END MAP MAPJ BYTE TPA$B_CHAR ! BYTE FORM OF SINGLE CHAR CELL  END MAP  END UNIONI INTEGER*4 TPA$L_NUMBER ! NUMERIC VALUE OF NUMERIC TOKEN  END MAP MAPN INTEGER*4 TPA$Q_NUMBER(2) ! 64-bit NUMERIC VALUE OF NUMERIC TOKEN  END MAP END UNIONE INTEGER*4 TPA$L_PARAM ! PARAMETER LONGWORD FROM STATE TABLE  END STRUCTURE ! TPADEF ! Q ! TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE,5 ! AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. ! ; PARAMETER TPA 64$K_COUNT0 = -1 ! ZERO LEVEL VALUE IS -1 ' PARAMETER TPA64$M_BLANKS = '00000001'X' PARAMETER TPA64$M_ABBREV = '00000002'X' PARAMETER TPA64$M_ABBRFM = '00000004'X& PARAMETER TPA64$M_AMBIG = '00010000'XR PARAMETER TPA64$K_LENGTH0 = '00000050'X ! LENGTH OF ZERO LEVEL PARAMETER BLOCK R PARAMETER TPA64$C_LENGTH0 = '00000050'X ! LENGTH OF ZERO LEVEL PARAMETER BLOCK  STRUCTURE /TPA64DEF/H INTEGER*4 TPA64$L_COUNT ! ARGUMENT COUNT (NUMBER OF LONGWORDS) UNION MAP9  INTEGER*4 TPA64$L_OPTIONS ! OPTIONS LONGWORD  END MAP MAP) PARAMETER TPA64$S_BLANKS = 1R PARAMETER TPA64$V_BLANKS = 0 ! PROCESS BLANKS AND TABS EXPLICITLY ) PARAMETER TPA64$S_ABBREV = 1J PARAMETER TPA64$V_ABBREV = 1 ! ALLOW MINIMAL ABBREVIATION ) PARAMETER TPA64$S_ABBRFM = 1N PARAMETER TPA64$V_ABBRFM = 2 ! ALLOW FIRST MATCH ABBREVIATION ( PARAMETER TPA64$S_AMBIG = 1O  PARAMETER TPA64$V_AMBIG = 16 ! AMBIGUOUS KEYWORD AT THIS STATE  BYTE %FILL (1) END MAP MAP! BYTE %FILL(1:3)L BYTE TPA64$B_MCOUNT ! MINIMUM ABBREVIATION ON KEYWORDS  END MAP END UNIONU INTEGER*4 TPA64$Q_STRINGDESC(2) ! DSC64 first quadword of string being parsedK INTEGER*4 TPA64$Q_STRINGCNT(2) ! BYTE COUNT OF STRING BEING PARSED E INTEGER*8 TPA64$Q_STRINGPTR ! ADDRESS OF STR ING BEING PARSED X INTEGER*4 TPA64$Q_TOKENDESC(2) ! DSC64 first quadword OF CURRENT MATCHING TOKEN M INTEGER*4 TPA64$Q_TOKENCNT(2) ! BYTE COUNT OF CURRENT MATCHING TOKEN ? INTEGER*8 TPA64$Q_TOKENPTR ! ADDRESS OF MATCHING TOKEN UNION MAPM INTEGER*4 TPA64$Q_CHAR(2) ! ASCII CODE OF SINGLE CHARACTER TOKEN  END MAP MAPD BYTE TPA64$B_CHAR ! BYTE FORM OF SINGLE CHAR CELL  END MAP END UNIONE INT EGER*4 TPA64$Q_NUMBER(2) ! NUMERIC VALUE OF NUMERIC TOKEN I INTEGER*4 TPA64$Q_PARAM(2) ! PARAMETER LONGWORD FROM STATE TABLE  END STRUCTURE ! TPA64DEF!DEC$ END OPTIONS wwMΦ%!*** MODULE $TPUDEF IDENT V03-006 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN& ! Item list codes for TPU$INITIALIZEM PARAMETER TPU$_CHAIN = -1 ! Chain entry - Matches other VMS CHAIN entriesL PARAMETER TPU$_ENDLIST = '00000000'X ! End of list [*** Must be zer o ***]J PARAMETER TPU$_OPTIONS = '00000001'X ! Command line options (see below)4 PARAMETER TPU$_FILENAME = '00000006'X ! File nameA PARAMETER TPU$_OTHER_FILENAMES = '00000007'X ! more filenames 9 PARAMETER TPU$_FILEIO = '0000000E'X ! File I/O routine< PARAMETER TPU$_CALLUSER = '0000000F'X ! CALL_USER routineA PARAMETER TPU$_JOURNALFILE = '00000010'X ! /JOURNAL= file nameA PARAMETER TPU$_SECTIONFILE = '00000013'X ! /SECTION= file name? PARAMETER TPU$_OUTPUTFILE = '00000014'X ! /OUTPUT= file nameA PARAMETER TPU$_COMMANDFILE = '00000015'X ! /COMMAND= file nameN PARAMETER TPU$_DISPLAYFILE = '00000016'X ! /DISPLAY= keyword -or- file name? PARAMETER TPU$_CTRL_C_ROUTINE = '00000017'X ! CTRL/C routineA 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 routineA PARAMETER TPU$_FILE_SEARCH = '0000001B'X ! FILE_SEARCH routineG PARAMETER TPU$_TERMINAL_INPUT = '0000001C'X ! Terminal input routineL PARAMETER TPU$_KANJI_DICFILE = '0000001D'X ! /KANJI_DICTIONARY= file nameM PARAMETER TPU$_TEXT_LANGUAGE = '0000001E'X ! /TEXT_LANGUAGE= language nameC PARAMETER TPU$_DEFAULTSFILE = '0000001F'X ! /DEFAULTS= file nameV PARAMETER TPU$_PARENT_WIDGET = '00000020'X ! DECwindows widget to use as our parentA PARAMETER TPU$_EXTENSION = '00000021'X ! Extension Table EntryA PARAMETER TPU$_GET_DEFAULT = '00000022'X ! GET_DEFAULT routineA PARAMETER TPU$_SET_DEFAULT = '00000023'X ! SET_DEFAULT routine; PARAMETER TPU$_WORKFILE = '00000024'X ! /WORK= file nameT PARAMETER TPU$_APPLICATION_CONTEXT = '00000025'X ! Decwindows application contextQ PARAMETER TPU$_CHARACTERSET = '00000026'X ! /CHARACTER_SET= character set nameE PARAMETER TPU$_LANGUAGE = '00000101'X ! LSE's /LANGUAGE= file nameG PARAMETER TPU$_ENVFILE = '00000102'X ! LSE's /ENVIRONMENT= file nameF PARAMETER TPU$_INIT_FILE = '00000103'X !  /INITIALIZATION= file nameB PARAMETER TPU$_START_LINE = '00000104'X ! /START_POSITION= lineG PARAMETER TPU$_START_CHAR = '00000105'X ! /START_POSITION= characterT PARAMETER TPU$_SYSTEM_ENVFILE = '00000106'X ! LSE's /SYSTEM_ENVIROMENT= file name ! Item list codes for file I/OE PARAMETER TPU$_ACCESS = '00000004'X ! File access type (see below)8 PARAMETER TPU$_FLUSH = '00000005'X ! Flush after Puts4 PARAMETER TPU$_FILESIZE = '00000007'X ! File size? PARAMETER TPU$_RECORD_ATTR =  '00000008'X ! Record attributes; PARAMETER TPU$_RECORD_FORM = '00000009'X ! Record formatF PARAMETER TPU$_MAXIMIZE_VER = '0000000A'X ! Maximize version number? PARAMETER TPU$_DEFAULTFILE = '00000011'X ! Default file name? PARAMETER TPU$_RELATEDFILE = '00000012'X ! Related file nameO PARAMETER TPU$_FILE_RECOVERABLE = '00000013'X ! File available upon recoveryX PARAMETER TPU$_TRN_TPT = '00000014'X ! File will allow truncates - journal files only@ PARAMETER TPU$_CREATE_TIME = '0 0000101'X ! Creation date/time5 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% P ARAMETER 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 = 12 PARAMETER TPU$V_RECOVER = 0 ! /RECOVER$ PARAMETER TPU$S_JOURNAL = 12 PARAMETER TPU$V_JOURNAL = 1  ! /JOURNAL! PARAMETER TPU$S_READ = 11 PARAMETER TPU$V_READ = 2 ! /READ_ONLY$ PARAMETER TPU$S_SECTION = 12 PARAMETER TPU$V_SECTION = 3 ! /SECTION# PARAMETER TPU$S_OUTPUT = 10 PARAMETER TPU$V_OUTPUT = 4 ! /OUTPUT$ PARAMETER TPU$S_COMMAND = 12 PARAMETER TPU$V_COMMAND = 5 ! /COMMAND$ PARAMETER TPU$S_DISPLAY = 12 PARAMETER TPU$V_DISPLAY = 6 ! /DISPLAY# PARAMETER TPU$S_CREATE = 10  PARAMETER TPU$V_CREATE = 7 ! /CREATE% PARAMETER TPU$S_STARTPOS = 1: PARAMETER TPU$V_STARTPOS = 8 ! /START_POSITION+ PARAMETER TPU$S_COMMAND_DFLTED = 1B 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> P ARAMETER TPU$V_TEXT_LANGUAGE = 12 ! /TEXT_LANGUAGE% PARAMETER TPU$S_DEFAULTS = 1> PARAMETER TPU$V_DEFAULTS = 13 ! Explicit /DEFAULTS' PARAMETER TPU$S_NODEFAULTS = 1B PARAMETER TPU$V_NODEFAULTS = 14 ! Explicit /NODEFAULTS( PARAMETER TPU$S_ENVIRONMENT = 1@ PARAMETER TPU$V_ENVIRONMENT = 16 ! LSE's /ENVIRONMENT! PARAMETER TPU$S_INIT = 17 PARAMETER TPU$V_INIT = 17 ! /INITIALIZATION' PARAMETER TPU$S_SYSTEM_ENV = 1G PARAMETER TPU$V_SYSTEM_ENV = 18 ! LSE's /SYSTEM_ENVIRONMENT) PARAMETER TPU$S_CURRENT_FILE = 1B 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 = 1H 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 = 1H PARAMETER TPU$V_SEC_LNM_MODE = 25 ! Section logical name mode$ PARAMETER TPU$S_CHARSET = 19 PARAMETER TPU$V_CHARSET = 26 ! /CHARACTER_SET BYTE %FILL (4) END MAP END UNION END STRUCTURE ! TPU$$FILL_32_ ! Access codes for TPU$_ACCESSA PARAMET ER TPU$K_INPUT = '00000000'X ! Open file for input onlyC PARAMETER TPU$K_OUTPUT = '00000001'X ! Open file for output onlyI PARAMETER TPU$K_IO = '00000002'X ! Open file for both input and outputM PARAMETER TPU$K_OUTPUT_DDIF = '00000003'X ! Open file for DDIF output only ! Codes for file I/O3 PARAMETER TPU$K_OPEN = '00000000'X ! Open a file5 PARAMETER TPU$K_CLOSE = '00000001'X ! Close a fileG PARAMETER TPU$K_CLOSE_DELETE = '00000002'X ! Close and delete a file= PARAMETER T PU$K_PUT = '00000003'X ! Put a record to a file? PARAMETER TPU$K_GET = '00000004'X ! Get a record from a file9 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 = 12 PARAMETER TPU$V_NODE = 0 ! Return node PARAMETER TPU$S_DEV = 14 PARAMETER TPU$V_DEV = 1 ! Return device PARAMETER TPU$S_DIR = 17 PARAMETER TPU$V_DIR = 2 ! Return directory! PARAMETER TPU$S_NAME = 12 PARAMETER TPU$V_NAME = 3 ! Retur n name! PARAMETER TPU$S_TYPE = 12 PARAMETER TPU$V_TYPE = 4 ! Return type PARAMETER TPU$S_VER = 15 PARAMETER TPU$V_VER = 5 ! Return version! PARAMETER TPU$S_HEAD = 1H PARAMETER TPU$V_HEAD = 6 ! Return head (Ultrix node+dev+dir)! PARAMETER TPU$S_TAIL = 1I PARAMETER TPU$V_TAIL = 7 ! Return tail (Ultrix name+type+ver)$ PARAMETER TPU$S_REPARSE = 1E PARAMETER TPU$V_REPARSE = 16 ! Reparse (FILE_SEA RCH only) BYTE %FILL (2) END MAP END UNION END STRUCTURE ! TPU$$FILL_34_ ! Codes for terminal inputM PARAMETER TPU$K_INITIALIZE_INPUT = '00000000'X ! Initialize terminal inputH PARAMETER TPU$K_TYPEAHEAD_COUNT = '00000001'X ! Fetch typeahead countQ PARAMETER TPU$K_CANCEL_INPUT = '00000002'X ! Cancel outstanding terminal inputI PARAMETER TPU$K_READ_CHARACTER = '00000003'X ! Read a single characterJ PARAMETER TPU$K_READ_STRING = '00000004'X ! Read a string of charac tersG PARAMETER TPU$K_READ_LINE = '00000005'X ! Read a line with promptingK PARAMETER TPU$K_TERMINATE_INPUT = '00000006'X ! Terminate terminal inputZ 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 = 1A 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 = 1E PARAMETER TPU$V_EXECUTE_FILE = 6 ! Re-execute command file) PARAMETER TPU$S_EXECUTE_PROC = 1K PARAMETER TPU$V_EXECUTE_PROC = 7 ! Re-execute TPU$INIT_PROCEDURE+ PARAMETER TPU$S_DELETE_CONTEXT = 1B PARAMETER  TPU$V_DELETE_CONTEXT = 8 ! Delete all context+ PARAMETER TPU$S_RESET_TERMINAL = 1D PARAMETER TPU$V_RESET_TERMINAL = 9 ! Reset terminal state+ PARAMETER TPU$S_KILL_PROCESSES = 1D PARAMETER TPU$V_KILL_PROCESSES = 10 ! Delete subprocesses* PARAMETER TPU$S_CLOSE_SECTION = 1B PARAMETER TPU$V_CLOSE_SECTION = 11 ! Close section file* PARAMETER TPU$S_DELETE_OTHERS = 1D PARAMETER TPU$V_DELETE_OTHERS = 12 ! Delete miscellaneous& PARAMETER TPU$S_LAST_TIME = 16 PARAMETER TPU$V_LAST_TIME = 13 ! Last call, PARAMETER TPU$S_CLOSE_KANJI_DIC = 1B PARAMETER TPU$V_CLOSE_KANJI_DIC = 14 ! Close dictionary BYTE %FILL (2) END MAP END UNION END STRUCTURE ! TPU$$FILL_37_!DEC$ END OPTIONS ww4MΦ!*** MODULE $TRMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! / ! Define symbols for the item list QIO format !  ! Item list type  codes' PARAMETER TRM$_MODIFIERS = '00000000'X& PARAMETER TRM$_EDITMODE = '00000001'X% PARAMETER TRM$_TIMEOUT = '00000002'X" PARAMETER TRM$_TERM = '00000003'X$ PARAMETER TRM$_PROMPT = '00000004'X& PARAMETER TRM$_INISTRNG = '00000005'X& PARAMETER TRM$_PICSTRNG = '00000006'X% PARAMETER TRM$_FILLCHR = '00000007'X' PARAMETER TRM$_INIOFFSET = '00000008'X' PARAMETER TRM$_ALTECHSTR = '00000009'X' PARAMETER TRM$_ESCTRMOVR = '0000000A'XC PARAMETER TRM$_LASTITM = '0000000B'X ! must remain th e last item' PARAMETER TRM$_RESERVE12 = '0000000C'X' PARAMETER TRM$_RESERVE13 = '0000000D'X' PARAMETER TRM$_RESERVE14 = '0000000E'X' PARAMETER TRM$_RESERVE15 = '0000000F'X' PARAMETER TRM$_RESERVE16 = '00000010'X' PARAMETER TRM$_RESERVE17 = '00000011'X' PARAMETER TRM$_RESERVE18 = '00000012'X' PARAMETER TRM$_RESERVE19 = '00000013'X' PARAMETER TRM$_RESERVE20 = '00000014'X' PARAMETER TRM$_RESERVE21 = '00000015'X' PARAMETER TRM$_RESERVE22 = '00000016'X' PARAMETER TRM$_RESERVE23 = '0 0000017'X' PARAMETER TRM$_RESERVE24 = '00000018'X' PARAMETER TRM$_RESERVE25 = '00000019'X' PARAMETER TRM$_RESERVE26 = '0000001A'X' PARAMETER TRM$_RESERVE27 = '0000001B'X' PARAMETER TRM$_RESERVE28 = '0000001C'X' PARAMETER TRM$_RESERVE29 = '0000001D'X' PARAMETER TRM$_RESERVE30 = '0000001E'XG PARAMETER TRM$_RECLINE = '0000001F'X ! Reserved for exclusive use by) ! Japanese input method; this code MUST) ! remain in the invalid item code range !  ! Editmode type codes ! ) ! PARAMETER TRM$K_EM_DEFAULT = '00000000'X* PARAMETER TRM$K_EM_RDVERIFY = '00000001'X( PARAMETER TRM$M_TM_NOECHO = '00000040'X' PARAMETER TRM$M_TM_TIMED = '00000080'X( PARAMETER TRM$M_TM_CVTLOW = '00000100'X) PARAMETER TRM$M_TM_NOFILTR = '00000200'X* PARAMETER TRM$M_TM_DSABLMBX = '00000400'X' PARAMETER TRM$M_TM_PURGE = '00000800'X+ PARAMETER TRM$M_TM_TRMNOECHO = '00001000'X) PARAMETER TRM$M_TM_REFRESH = '00002000'X( PARAMETER TRM$M_TM_ESCAPE = '00004000'X( PARAMETER TRM$M_TM_NOEDIT = ' "00008000'X* PARAMETER TRM$M_TM_NORECALL = '00010000'X( PARAMETER TRM$M_TM_R_JUST = '00020000'X* PARAMETER TRM$M_TM_AUTO_TAB = '00040000'X( PARAMETER TRM$M_TM_ARROWS = '00080000'X, PARAMETER TRM$M_TM_TERM_ARROW = '00100000'X* PARAMETER TRM$M_TM_TERM_DEL = '00200000'X( PARAMETER TRM$M_TM_TOGGLE = '00400000'X* PARAMETER TRM$M_TM_OTHERWAY = '00800000'X) PARAMETER TRM$M_TM_NOCLEAR = '01000000'X' PARAMETER TRM$M_CV_UPPER = '00000001'X' PARAMETER TRM$M_CV_LOWER = '00000002'X) PARAMETER TRM$M_C#V_NUMERIC = '00000004'X) PARAMETER TRM$M_CV_NUMPUNC = '00000008'X+ PARAMETER TRM$M_CV_PRINTABLE = '00000010'X% PARAMETER TRM$M_CV_ANY = '00000020'X, PARAMETER TRM$M_ST_FIELD_FULL = '00000001'X* PARAMETER TRM$M_ST_OTHERWAY = '00000002'X STRUCTURE /TRMDEF/ UNION MAP& PARAMETER TRM$S_TM_NOECHO = 12 PARAMETER TRM$V_TM_NOECHO = 6 ! NOECHO % PARAMETER TRM$S_TM_TIMED = 10 PARAMETER TRM$V_TM_TIMED = 7 ! TIMED & PARAMETER TRM$S_TM_CVTLOW = 1 $> PARAMETER TRM$V_TM_CVTLOW = 8 ! CONVERT LOWER CASE ' PARAMETER TRM$S_TM_NOFILTR = 16 PARAMETER TRM$V_TM_NOFILTR = 9 ! NO FILTER ( PARAMETER TRM$S_TM_DSABLMBX = 1= PARAMETER TRM$V_TM_DSABLMBX = 10 ! DISABLE MAILBOX % PARAMETER TRM$S_TM_PURGE = 1; PARAMETER TRM$V_TM_PURGE = 11 ! PURGE TYPEAHEAD ) PARAMETER TRM$S_TM_TRMNOECHO = 1I PARAMETER TRM$V_TM_TRMNOECHO = 12 ! TERMINATORS ARE NOT ECHOED ' PARAM %ETER TRM$S_TM_REFRESH = 1I PARAMETER TRM$V_TM_REFRESH = 13 ! Control-R interrupted read n& PARAMETER TRM$S_TM_ESCAPE = 1N PARAMETER TRM$V_TM_ESCAPE = 14 ! TERMINATE READ ON ESCAPE SEQUENCE & PARAMETER TRM$S_TM_NOEDIT = 1D PARAMETER TRM$V_TM_NOEDIT = 15 ! DISABLE ADVANCED EDITING( PARAMETER TRM$S_TM_NORECALL = 1[ PARAMETER TRM$V_TM_NORECALL = 16 ! Disable the recall feature of advanced editing& PARAMETER TRM$S_TM_R_JUST = & 1? PARAMETER TRM$V_TM_R_JUST = 17 ! Right justification( PARAMETER TRM$S_TM_AUTO_TAB = 1; PARAMETER TRM$V_TM_AUTO_TAB = 18 ! Auto tab field& PARAMETER TRM$S_TM_ARROWS = 1K PARAMETER TRM$V_TM_ARROWS = 19 ! enable left & right arrow keys* PARAMETER TRM$S_TM_TERM_ARROW = 1I PARAMETER TRM$V_TM_TERM_ARROW = 20 ! pass arrows as terminator( PARAMETER TRM$S_TM_TERM_DEL = 1F PARAMETER TRM$V_TM_TERM_DEL = 21 ! pass < 'DEL> as terminator& PARAMETER TRM$S_TM_TOGGLE = 1K PARAMETER TRM$V_TM_TOGGLE = 22 ! allow insert/overstrike toggle( PARAMETER TRM$S_TM_OTHERWAY = 1V PARAMETER TRM$V_TM_OTHERWAY = 23 ! overstrike R-justify or insert L-justify' PARAMETER TRM$S_TM_NOCLEAR = 1` PARAMETER TRM$V_TM_NOCLEAR = 24 ! don't replace fill with clear after first non-fill BYTE %FILL (3) END MAP MAP% PARAMETER TRM$S_CV_UPPER = 15 PAR (AMETER TRM$V_CV_UPPER = 0 ! upper case% PARAMETER TRM$S_CV_LOWER = 15 PARAMETER TRM$V_CV_LOWER = 1 ! lower case' PARAMETER TRM$S_CV_NUMERIC = 1: PARAMETER TRM$V_CV_NUMERIC = 2 ! numeric (0-9)' PARAMETER TRM$S_CV_NUMPUNC = 1H PARAMETER TRM$V_CV_NUMPUNC = 3 ! numeric punctuation (+ - .)) PARAMETER TRM$S_CV_PRINTABLE = 1A PARAMETER TRM$V_CV_PRINTABLE = 4 ! printable character# PARAMETER TRM$S_CV_ANY = 1)6 PARAMETER TRM$V_CV_ANY = 5 ! any character BYTE %FILL (1) END MAP MAP* PARAMETER TRM$S_ST_FIELD_FULL = 1c PARAMETER TRM$V_ST_FIELD_FULL = 0 ! field full condition IOSB+7 contains index to cursor( PARAMETER TRM$S_ST_OTHERWAY = 1] PARAMETER TRM$V_ST_OTHERWAY = 1 ! left-justify insert OR right-justify overstrike BYTE %FILL (1) END MAP END UNION END STRUCTURE ! TRMDEF!DEC$ END OPTIONS wwO*!*** MODULE $TT2DEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN( PARAMETER TT2$M_LOCALECHO = '00000001'X' PARAMETER TT2$M_AUTOBAUD = '00000002'X% PARAMETER TT2$M_HANGUP = '00000004'X( PARAMETER TT2$M_MODHANGUP = '00000008'X( PARAMETER TT2$M_BRDCSTMBX = '00000010'X" PARAMETER TT2$M_XON = '00000020'X" PARAMETER TT2$M_DMA = '00000040'X( PARAMETER TT2$M_ALTYPEAHD = '00000080'X' PARAMETER TT2$M_SETSPEED = '00000100'X) PARAMETER TT2$M_DCL_MAILBX = '00000200'X& PARAMET +ER TT2$M_DECCRT4 = '00000400'X' PARAMETER TT2$M_COMMSYNC = '00000800'X& PARAMETER TT2$M_EDITING = '00001000'X% PARAMETER TT2$M_INSERT = '00002000'X' PARAMETER TT2$M_FALLBACK = '00004000'X% PARAMETER TT2$M_DIALUP = '00008000'X% PARAMETER TT2$M_SECURE = '00010000'X) PARAMETER TT2$M_DISCONNECT = '00020000'X& PARAMETER TT2$M_PASTHRU = '00040000'X% PARAMETER TT2$M_SYSPWD = '00080000'X$ PARAMETER TT2$M_SIXEL = '00100000'X# PARAMETER TT2$M_DRCS = '00200000'X& PARAMETER TT2$M_PRINTER = '00,400000'X) PARAMETER TT2$M_APP_KEYPAD = '00800000'X& PARAMETER TT2$M_ANSICRT = '01000000'X$ PARAMETER TT2$M_REGIS = '02000000'X$ PARAMETER TT2$M_BLOCK = '04000000'X" PARAMETER TT2$M_AVO = '08000000'X# PARAMETER TT2$M_EDIT = '10000000'X% PARAMETER TT2$M_DECCRT = '20000000'X& PARAMETER TT2$M_DECCRT2 = '40000000'X& PARAMETER TT2$M_DECCRT3 = '80000000'X STRUCTURE /TT2DEF/ UNION MAP& PARAMETER TT2$S_LOCALECHO = 1& PARAMETER TT2$V_LOCALECHO = 0% PARAMETER TT2-$S_AUTOBAUD = 1% PARAMETER TT2$V_AUTOBAUD = 1# PARAMETER TT2$S_HANGUP = 1# PARAMETER TT2$V_HANGUP = 2& PARAMETER TT2$S_MODHANGUP = 1& PARAMETER TT2$V_MODHANGUP = 3& PARAMETER TT2$S_BRDCSTMBX = 1& PARAMETER TT2$V_BRDCSTMBX = 4 PARAMETER TT2$S_XON = 1 PARAMETER TT2$V_XON = 5 PARAMETER TT2$S_DMA = 1 PARAMETER TT2$V_DMA = 6& PARAMETER TT2$S_ALTYPEAHD = 1& PARAMETER TT2$V_ALTYPEAHD = . 7% PARAMETER TT2$S_SETSPEED = 1% PARAMETER TT2$V_SETSPEED = 8' PARAMETER TT2$S_DCL_MAILBX = 1L PARAMETER TT2$V_DCL_MAILBX = 9 ! TEMP DEFINITIONS FOR DCL SPAWN $ PARAMETER TT2$S_DECCRT4 = 1S PARAMETER TT2$V_DECCRT4 = 10 ! Level 4 terminals (was OUTBAND-obsolete)% PARAMETER TT2$S_COMMSYNC = 1E PARAMETER TT2$V_COMMSYNC = 11 ! (was DCL_CTRLC-obsolete) $ PARAMETER TT2$S_EDITING = 1B PARAMETER TT2$V_EDI /TING = 12 ! enable advanced editing# PARAMETER TT2$S_INSERT = 1F PARAMETER TT2$V_INSERT = 13 ! INPUT EDITING INSTER DEFAULT% PARAMETER TT2$S_FALLBACK = 1F PARAMETER TT2$V_FALLBACK = 14 ! USE MULTINATIONAL FALLBACK# PARAMETER TT2$S_DIALUP = 1I PARAMETER TT2$V_DIALUP = 15 ! TERMINAL IS CONNECTED TO DIALUP# PARAMETER TT2$S_SECURE = 1A PARAMETER TT2$V_SECURE = 16 ! RECOGNIZE SECURE SERVER' PARAMETER TT2$S 0_DISCONNECT = 1J PARAMETER TT2$V_DISCONNECT = 17 ! TERMINAL CAN BE DISCONNECTED$ PARAMETER TT2$S_PASTHRU = 1C PARAMETER TT2$V_PASTHRU = 18 ! passall with flowcontrol# PARAMETER TT2$S_SYSPWD = 1B PARAMETER TT2$V_SYSPWD = 19 ! System password required" PARAMETER TT2$S_SIXEL = 18 PARAMETER TT2$V_SIXEL = 20 ! SIXEL SUPPORTED! PARAMETER TT2$S_DRCS = 1( PARAMETER TT2$V_DRCS = 21 ! $ PARAMETER TT2$S_P 1RINTER = 1A PARAMETER TT2$V_PRINTER = 22 ! PRINTER PORT AVAILABLE' PARAMETER TT2$S_APP_KEYPAD = 1J PARAMETER TT2$V_APP_KEYPAD = 23 ! Keypad in applicationis mode$ PARAMETER TT2$S_ANSICRT = 1F PARAMETER TT2$V_ANSICRT = 24 ! ANSI, REGIS, BLOCK and AVO " PARAMETER TT2$S_REGIS = 1H PARAMETER TT2$V_REGIS = 25 ! must be contiguous for SCRPKG. " PARAMETER TT2$S_BLOCK = 1# PARAMETER TT2$V_BLOCK = 26 PARAM2ETER TT2$S_AVO = 1! PARAMETER TT2$V_AVO = 27! PARAMETER TT2$S_EDIT = 1" PARAMETER TT2$V_EDIT = 28# PARAMETER TT2$S_DECCRT = 1$ PARAMETER TT2$V_DECCRT = 29$ PARAMETER TT2$S_DECCRT2 = 19 PARAMETER TT2$V_DECCRT2 = 30 ! DECCRT level 2$ PARAMETER TT2$S_DECCRT3 = 1% PARAMETER TT2$V_DECCRT3 = 31- BYTE %FILL (4) ! DECCRT level 3 END MAP END UNION END STRUCTURE ! TT2DEF!DEC$ END OPTIONS w3w:OΦ!*** MODULE $TT3DEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN$ PARAMETER TT3$M_POSIX = '00000001'X) PARAMETER TT3$M_ANSI_COLOR = '00000002'X& PARAMETER TT3$M_DECCRT5 = '00000004'X' PARAMETER TT3$M_RTS_FLOW = '00000008'X! PARAMETER TT3$M_BS = '00000010'X STRUCTURE /TT3DEF/ UNION MAP" PARAMETER TT3$S_POSIX = 1" PARAMETER TT3$V_POSIX = 0' PARAMETER TT3$S_ANSI_COLOR = 1' PARAMETER TT3$V_ANSI_COLOR = 1$ 4 PARAMETER TT3$S_DECCRT5 = 1$ PARAMETER TT3$V_DECCRT5 = 2% PARAMETER TT3$S_RTS_FLOW = 1% PARAMETER TT3$V_RTS_FLOW = 3 PARAMETER TT3$S_BS = 1 PARAMETER TT3$V_BS = 4& PARAMETER TT3$S_tt_spare = 11% PARAMETER TT3$V_tt_spare = 5) PARAMETER TT3$S_AS_RESERVED = 16) PARAMETER TT3$V_AS_RESERVED = 16 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! TT3DEF!DEC$ END OPTIONS ww5?PΦ!*** MODULE $TTCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN' PARAMETER TTC$M_RESERVED = '000000FF'X# PARAMETER TTC$M_KANA = '00000100'X$ PARAMETER TTC$M_KANJI = '00000200'X$ PARAMETER TTC$M_HANZI = '00000400'X% PARAMETER TTC$M_HANGUL = '00000800'X$ PARAMETER TTC$M_HANYU = '00001000'X# PARAMETER TTC$M_THAI = '00002000'X STRUCTURE /TTCDEF/ UNION MAP% PARAMETER TTC$S_RESERVED = 8A PARAMETER TTC$V_RESERVED = 0 ! First byte is r 6eserved! PARAMETER TTC$S_KANA = 1/ PARAMETER TTC$V_KANA = 8 ! Katakana" PARAMETER TTC$S_KANJI = 1- PARAMETER TTC$V_KANJI = 9 ! Kanji" PARAMETER TTC$S_HANZI = 1. PARAMETER TTC$V_HANZI = 10 ! Hanzi# PARAMETER TTC$S_HANGUL = 10 PARAMETER TTC$V_HANGUL = 11 ! Hangul" PARAMETER TTC$S_HANYU = 1. PARAMETER TTC$V_HANYU = 12 ! Hanyu! PARAMETER TTC$S_THAI = 1, PARAMETER TTC$V_THAI = 137 ! Thai BYTE %FILL (2) END MAP END UNION END STRUCTURE ! TTCDEF!DEC$ END OPTIONS ww΋PΦ!*** MODULE $TTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! # ! DEFINE TERMINAL SPECIAL SYMBOLS ! % PARAMETER TT$C_BAUD_50 = '00000001'X% PARAMETER TT$C_BAUD_75 = '00000002'X& PARAMETER TT$C_BAUD_110 = '00000003'X& PARAMETER TT$C_BAUD_134 = '00000004'X& PARAMETER TT$C_BAUD_150 = '00000005'X& PARAMETER TT$C_BAUD_300 = '00000006'X 8& PARAMETER TT$C_BAUD_600 = '00000007'X' PARAMETER TT$C_BAUD_1200 = '00000008'X' PARAMETER TT$C_BAUD_1800 = '00000009'X' PARAMETER TT$C_BAUD_2000 = '0000000A'X' PARAMETER TT$C_BAUD_2400 = '0000000B'X' PARAMETER TT$C_BAUD_3600 = '0000000C'X' PARAMETER TT$C_BAUD_4800 = '0000000D'X' PARAMETER TT$C_BAUD_7200 = '0000000E'X' PARAMETER TT$C_BAUD_9600 = '0000000F'X( PARAMETER TT$C_BAUD_19200 = '00000010'X( PARAMETER TT$C_BAUD_38400 = '00000011'X( PARAMETER TT$C_BAUD_57600 = '00000012'X( P 9ARAMETER TT$C_BAUD_76800 = '00000013'X) PARAMETER TT$C_BAUD_115200 = '00000014'X ! *** MATCHES DCDEF MACRO $ PARAMETER TT$_UNKNOWN = '00000000'X+ PARAMETER TT$_VT05 = '00000001'X ! VT05 9 PARAMETER TT$_VK100 = '00000002'X ! strange terminals " PARAMETER TT$_VT173 = '00000003'X# PARAMETER TT$_TQ_BTS = '00000004'X$ PARAMETER TT$_TEK401X = '0000000A'X= PARAMETER TT$_FT1 = '00000010'X ! FOREIGN TERMINAL TYPES ? PARAMETER TT$_FT2 = '00000011'X ! new support also includes: PARAM :ETER TT$_FT3 = '00000012'X ! the negative numbers PARAMETER TT$_FT4 = '00000013'X PARAMETER TT$_FT5 = '00000014'X PARAMETER TT$_FT6 = '00000015'X PARAMETER TT$_FT7 = '00000016'X; PARAMETER TT$_FT8 = '00000017'X ! END OF FOREIGN TYPES ( ! RESERVE REST UP TO 32 FOR EXTENSIONS PARAMETER TT$_LAX = '00000020'X! PARAMETER TT$_LA36 = '00000020'X" PARAMETER TT$_LA120 = '00000021'X! PARAMETER TT$_LA34 = '00000022'X! PARAMETER TT$_LA38 = '00000023'X! PARAMETER TT$_LA12 = '00000024'X;" PARAMETER TT$_LA100 = '00000025'X! PARAMETER TT$_LA24 = '00000025'X" PARAMETER TT$_LQP02 = '00000026'X! PARAMETER TT$_LA84 = '00000027'X" PARAMETER TT$_LA210 = '00000028'X! PARAMETER TT$_LN03 = '00000029'X" PARAMETER TT$_LN01K = '0000002A'X! PARAMETER TT$_LA80 = '0000002B'X! PARAMETER TT$_VT5X = '00000040'X! PARAMETER TT$_VT52 = '00000040'X! PARAMETER TT$_VT55 = '00000041'X- PARAMETER TT$_VT100 = '00000060'X ! VT100 " PARAMETER TT$_VT101 = '00000061'X" PARAMETER TT$_VT102 = ' <00000062'X" PARAMETER TT$_VT105 = '00000063'X" PARAMETER TT$_VT125 = '00000064'X" PARAMETER TT$_VT131 = '00000065'X" PARAMETER TT$_VT132 = '00000066'X! PARAMETER TT$_VT80 = '00000067'X) PARAMETER TT$_VT200_Series = '0000006E'X' PARAMETER TT$_Pro_Series = '0000006F'X) PARAMETER TT$_VT300_Series = '00000070'X) PARAMETER TT$_VT400_Series = '00000071'X) PARAMETER TT$_VT500_Series = '00000072'XB ! from 128 on is reserved for foreign terminals and must not be ! ! used for terminal defini=tions% PARAMETER TT$M_PASSALL = '00000001'X$ PARAMETER TT$M_NOECHO = '00000002'X' PARAMETER TT$M_NOTYPEAHD = '00000004'X$ PARAMETER TT$M_ESCAPE = '00000008'X& PARAMETER TT$M_HOSTSYNC = '00000010'X$ PARAMETER TT$M_TTSYNC = '00000020'X$ PARAMETER TT$M_SCRIPT = '00000040'X# PARAMETER TT$M_LOWER = '00000080'X% PARAMETER TT$M_MECHTAB = '00000100'X" PARAMETER TT$M_WRAP = '00000200'X$ PARAMETER TT$M_CRFILL = '00000400'X$ PARAMETER TT$M_LFFILL = '00000800'X# PARAMETER TT$M_SCOPE = '00001000'>X$ PARAMETER TT$M_REMOTE = '00002000'X& PARAMETER TT$M_RESERVED = '00004000'X& PARAMETER TT$M_EIGHTBIT = '00008000'X& PARAMETER TT$M_MBXDSABL = '00010000'X& PARAMETER TT$M_NOBRDCST = '00020000'X& PARAMETER TT$M_READSYNC = '00040000'X& PARAMETER TT$M_MECHFORM = '00080000'X% PARAMETER TT$M_HALFDUP = '00100000'X# PARAMETER TT$M_MODEM = '00200000'X" PARAMETER TT$M_OPER = '00400000'X" PARAMETER TT$M_PAGE = 'FF000000'X& PARAMETER TT$M_ALTFRAME = '00000010'X% PARAMETER TT$M_ALTRPAR = '0000002?0'X$ PARAMETER TT$M_PARITY = '00000040'X! PARAMETER TT$M_ODD = '00000080'X% PARAMETER TT$M_TWOSTOP = '00000100'X' PARAMETER TT$M_DISPARERR = '00000200'X' PARAMETER TT$M_ALTDISPAR = '00000400'X# PARAMETER TT$M_BREAK = '00000800'X$ PARAMETER TT$M_DS_DTR = '00000002'X& PARAMETER TT$M_DS_SECTX = '00000008'X$ PARAMETER TT$M_DS_RTS = '00000010'X' PARAMETER TT$M_DS_SECREC = '00000008'X$ PARAMETER TT$M_DS_CTS = '00000010'X( PARAMETER TT$M_DS_CARRIER = '00000020'X% PARAMETER TT$M_DS_RING = @'00000040'X$ PARAMETER TT$M_DS_DSR = '00000080'X STRUCTURE /TTDEF/ UNION MAP# PARAMETER TT$S_PASSALL = 1# PARAMETER TT$V_PASSALL = 0" PARAMETER TT$S_NOECHO = 1" PARAMETER TT$V_NOECHO = 1% PARAMETER TT$S_NOTYPEAHD = 1% PARAMETER TT$V_NOTYPEAHD = 2" PARAMETER TT$S_ESCAPE = 1" PARAMETER TT$V_ESCAPE = 3$ PARAMETER TT$S_HOSTSYNC = 1$ PARAMETER TT$V_HOSTSYNC = 4" PARAMETER TT$S_TTSYNC = 1" A PARAMETER TT$V_TTSYNC = 5" PARAMETER TT$S_SCRIPT = 1" PARAMETER TT$V_SCRIPT = 6! PARAMETER TT$S_LOWER = 1! PARAMETER TT$V_LOWER = 7# PARAMETER TT$S_MECHTAB = 1# PARAMETER TT$V_MECHTAB = 8 PARAMETER TT$S_WRAP = 1 PARAMETER TT$V_WRAP = 9" PARAMETER TT$S_CRFILL = 1# PARAMETER TT$V_CRFILL = 10" PARAMETER TT$S_LFFILL = 1# PARAMETER TT$V_LFFILL = 11! PARAMETER TT$S_SCOPE = 1" B PARAMETER TT$V_SCOPE = 12" PARAMETER TT$S_REMOTE = 1# PARAMETER TT$V_REMOTE = 13$ PARAMETER TT$S_RESERVED = 1% PARAMETER TT$V_RESERVED = 14$ PARAMETER TT$S_EIGHTBIT = 1% PARAMETER TT$V_EIGHTBIT = 15$ PARAMETER TT$S_MBXDSABL = 1% PARAMETER TT$V_MBXDSABL = 16$ PARAMETER TT$S_NOBRDCST = 1% PARAMETER TT$V_NOBRDCST = 17$ PARAMETER TT$S_READSYNC = 1% PARAMETER TT$V_READSYNC = 18$ C PARAMETER TT$S_MECHFORM = 1% PARAMETER TT$V_MECHFORM = 19# PARAMETER TT$S_HALFDUP = 1$ PARAMETER TT$V_HALFDUP = 20! PARAMETER TT$S_MODEM = 1" PARAMETER TT$V_MODEM = 21 PARAMETER TT$S_OPER = 1! PARAMETER TT$V_OPER = 22 PARAMETER TT$S_PAGE = 8! PARAMETER TT$V_PAGE = 24 BYTE %FILL (4) END MAP MAP$ PARAMETER TT$S_ALTFRAME = 1$ PARAMETER TT$V_ALTFRAME = 4# PARAMETER TT$DS_ALTRPAR = 1# PARAMETER TT$V_ALTRPAR = 5" PARAMETER TT$S_PARITY = 1" PARAMETER TT$V_PARITY = 6 PARAMETER TT$S_ODD = 1 PARAMETER TT$V_ODD = 7# PARAMETER TT$S_TWOSTOP = 1# PARAMETER TT$V_TWOSTOP = 8% PARAMETER TT$S_DISPARERR = 1% PARAMETER TT$V_DISPARERR = 9% PARAMETER TT$S_ALTDISPAR = 1& PARAMETER TT$V_ALTDISPAR = 10! PARAMETER TT$S_BREAK = 1" PARAMETER TT$V_BREAK = 11 E BYTE %FILL (1) END MAP MAP" PARAMETER TT$S_DS_DTR = 1< PARAMETER TT$V_DS_DTR = 1 ! OUTPUT MODEM CONTROL $ PARAMETER TT$S_DS_SECTX = 1$ PARAMETER TT$V_DS_SECTX = 3" PARAMETER TT$S_DS_RTS = 1" PARAMETER TT$V_DS_RTS = 4 BYTE %FILL (1) END MAP MAP% PARAMETER TT$S_DS_SECREC = 1% PARAMETER TT$V_DS_SECREC = 3" PARAMETER TT$S_DS_CTS = 1" PARAMETER TT$V_DS_CTS = 4& PARAMETER TFT$S_DS_CARRIER = 1& PARAMETER TT$V_DS_CARRIER = 5# PARAMETER TT$S_DS_RING = 1# PARAMETER TT$V_DS_RING = 6" PARAMETER TT$S_DS_DSR = 1" PARAMETER TT$V_DS_DSR = 7 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! TTDEF!DEC$ END OPTIONS ww=PΦ!*** MODULE $TTYDPORTDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN* PARAMETER TTY$M_NO_AUTO_XON = '00000001'X' PARAMETER TTY$M_RESERVED = '000000FE'X G+ PARAMETER TTY$M_PARITY_ERROR = '00000100'X1 PARAMETER TTY$M_USE_WINDOW_CONSOLE = '00000200'X3 PARAMETER TTY$M_LOAD_INPUT_EXTENSION = '00000400'X2 PARAMETER TTY$M_IA64_POLLED_CONSOLE = '00000800'X STRUCTURE /TTYDPORTDEF/ UNION MAP( PARAMETER TTY$S_NO_AUTO_XON = 1H PARAMETER TTY$V_NO_AUTO_XON = 0 ! Disable automatic Xon/Xoff% PARAMETER TTY$S_RESERVED = 7C PARAMETER TTY$V_RESERVED = 1 ! Next 7 bits are reserved) PARAMETER TTY$S_PARIT HY_ERROR = 1E PARAMETER TTY$V_PARITY_ERROR = 8 ! Drop parity error chars/ PARAMETER TTY$S_USE_WINDOW_CONSOLE = 1B PARAMETER TTY$V_USE_WINDOW_CONSOLE = 9 ! Console option1 PARAMETER TTY$S_LOAD_INPUT_EXTENSION = 1E PARAMETER TTY$V_LOAD_INPUT_EXTENSION = 10 ! Console option0 PARAMETER TTY$S_IA64_POLLED_CONSOLE = 1X PARAMETER TTY$V_IA64_POLLED_CONSOLE = 11 ! IA64 flag to force console to poll BYTE %FILL (2) END MAP EIND UNION END STRUCTURE ! TTYDPORTDEF!DEC$ END OPTIONS wwJQΦ!*** MODULE $UAF070DEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ++" ! User authorization file format> ! Note: With the exception of the username and account name,> ! all strings are blank padded counted strings. Username and- ! account name are uncounted, blank padded. ! --A PARAMETER UAF070$C_USER_ID = '00000001'X ! main user ID record; PARAMETER UAF070$C_VERSION1 = '00J000001'X ! this versionH PARAMETER UAF070$C_KEYED_PART = '00000034'X ! ISAM keys come this farV PARAMETER UAF070$C_MAX_PWD_LENGTH = '00000020'X ! maximum plaintext password lengthV PARAMETER UAF070$K_MAX_PWD_LENGTH = '00000020'X ! maximum plaintext password lengthF PARAMETER UAF070$C_AD_II = '00000000'X ! AUTODIN-II 32 bit crc codeN PARAMETER UAF070$C_PURDY = '00000001'X ! Purdy polynomial over salted inputY PARAMETER UAF070$C_PURDY_V = '00000002'X ! Purdy polynomial + variable leKngth usernameQ PARAMETER UAF070$C_PURDY_S = '00000003'X ! PURDY_V folded into password lengthT PARAMETER UAF070$K_CURRENT_ALGORITHM = '00000003'X ! current DEC algorithm numberT PARAMETER UAF070$C_CURRENT_ALGORITHM = '00000003'X ! current DEC algorithm number4 PARAMETER UAF070$C_PREFERED_ALGORITHM = '0000007F'X4 PARAMETER UAF070$K_PREFERED_ALGORITHM = '0000007F'X` PARAMETER UAF070$C_PREFERRED_ALGORITHM = '0000007F'X ! preferred hash algorithm - use current` PARAMETER UAF070$K_PREFERRELD_ALGORITHM = '0000007F'X ! preferred hash algorithm - use currentP PARAMETER UAF070$C_CUST_ALGORITHM = '00000080'X ! customer algorithm divisionP PARAMETER UAF070$K_CUST_ALGORITHM = '00000080'X ! customer algorithm divisionC PARAMETER UAF070$K_FIXED = '00000284'X ! length of fixed portionC PARAMETER UAF070$C_FIXED = '00000284'X ! length of fixed portion( PARAMETER UAF070$K_LENGTH = '00000584'X( PARAMETER UAF070$C_LENGTH = '00000584'X[ PARAMETER UAF070$S_UAF070DEF = '00000584'X ! MOld size name, synonym for UAF070$S_UAF070 STRUCTURE /UAF070/5 BYTE UAF070$B_RTYPE ! UAF070 record type: BYTE UAF070$B_VERSION ! UAF070 format versionL INTEGER*2 UAF070$W_USRDATOFF ! offset of counted string of user data UNION MAP5 CHARACTER*32 UAF070$T_USERNAME ! username END MAP MAP CHARACTER*31 %FILLO CHARACTER*1 UAF070$T_USERNAME_TAG ! tag to differentiate records END MNAP END UNION UNION MAP2 INTEGER*4 UAF070$L_UIC ! user ID code END MAP MAP9 INTEGER*2 UAF070$W_MEM ! member subfield8 INTEGER*2 UAF070$W_GRP ! group subfield END MAP END UNION7 INTEGER*4 UAF070$L_SUB_ID ! user sub-identifierM INTEGER*4 UAF070$Q_PARENT_ID(2) ! identifier of owner of this account4 CHARACTER*32 UAF070$T_ACCOUNT ! account name2 CHARACTER*32 UAF070$T_OWNER O ! owner's name5 CHARACTER*32 UAF070$T_DEFDEV ! default device8 CHARACTER*64 UAF070$T_DEFDIR ! default directory9 CHARACTER*64 UAF070$T_LGICMD ! login command fileB CHARACTER*32 UAF070$T_DEFCLI ! default command interpreter9 CHARACTER*32 UAF070$T_CLITABLES ! user CLI tables UNION MAP7 INTEGER*4 UAF070$Q_PWD(2) ! hashed password END MAP MAP9 INTEGER*4 UAF070$L_PWD ! 32 bit subfield P END MAP END UNION4 INTEGER*4 UAF070$Q_PWD2(2) ! second password= INTEGER*2 UAF070$W_LOGFAILS ! count of login failures7 INTEGER*2 UAF070$W_SALT ! random password saltD BYTE UAF070$B_ENCRYPT ! primary password hash algorithm ! known hash algorithm indicesG BYTE UAF070$B_ENCRYPT2 ! secondary password hash algorithm? BYTE UAF070$B_PWD_LENGTH ! minimum password length BYTE %FILL(1:1)E INTEGER*4 UAF070$Q_EXPIRATIQON(2) ! expiration date for account= INTEGER*4 UAF070$Q_PWD_LIFETIME(2) ! password lifetime@ INTEGER*4 UAF070$Q_PWD_DATE(2) ! date of password changeE INTEGER*4 UAF070$Q_PWD2_DATE(2) ! date of 2nd password changeI INTEGER*4 UAF070$Q_LASTLOGIN_I(2) ! date of last interactive loginM INTEGER*4 UAF070$Q_LASTLOGIN_N(2) ! date of last non-interactive login= INTEGER*4 UAF070$Q_PRIV(2) ! process privilege vectorC INTEGER*4 UAF070$Q_DEF_PRIV(2) ! defRault process privileges BYTE %FILL(1:20) BYTE %FILL(1:20) UNION MAP: INTEGER*4 UAF070$L_FLAGS ! user flags longword END MAP MAP+ PARAMETER UAF070$S_DISCTLY = 1B PARAMETER UAF070$V_DISCTLY = 0 ! no user control-y* PARAMETER UAF070$S_DEFCLI = 1K PARAMETER UAF070$V_DEFCLI = 1 ! only allow user default CLI+ PARAMETER UAF070$S_LOCKPWD = 1M PAR SAMETER UAF070$V_LOCKPWD = 2 ! disable SET PASSWORD command. PARAMETER UAF070$S_RESTRICTED = 1X PARAMETER UAF070$V_RESTRICTED = 3 ! restricted account (pre-V5.2 CAPTIVE)+ PARAMETER UAF070$S_DISACNT = 1E PARAMETER UAF070$V_DISACNT = 4 ! no interactive login- PARAMETER UAF070$S_DISWELCOM = 1F PARAMETER UAF070$V_DISWELCOM = 5 ! skip welcome message+ PARAMETER UAF070$S_DISMAIL = 1F PARAMET TER UAF070$V_DISMAIL = 6 ! skip new mail message* PARAMETER UAF070$S_NOMAIL = 1E PARAMETER UAF070$V_NOMAIL = 7 ! disable mail delivery* PARAMETER UAF070$S_GENPWD = 1K PARAMETER UAF070$V_GENPWD = 8 ! passwords must be generated/ PARAMETER UAF070$S_PWD_EXPIRED = 1H PARAMETER UAF070$V_PWD_EXPIRED = 9 ! password has expired0 PARAMETER UAF070$S_PWD2_EXPIRED = 1N PARAMETER UAF070$V_PWD2_EXPIR UED = 10 ! 2nd password has expired) PARAMETER UAF070$S_AUDIT = 1A PARAMETER UAF070$V_AUDIT = 11 ! audit all actions- PARAMETER UAF070$S_DISREPORT = 1K PARAMETER UAF070$V_DISREPORT = 12 ! skip last login messages0 PARAMETER UAF070$S_DISRECONNECT = 1K PARAMETER UAF070$V_DISRECONNECT = 13 ! inhibit reconnections- PARAMETER UAF070$S_AUTOLOGIN = 1B PARAMETER UAF070$V_AUTOLOGIN = 14 ! aut Vo-login only7 PARAMETER UAF070$S_DISFORCE_PWD_CHANGE = 1[ PARAMETER UAF070$V_DISFORCE_PWD_CHANGE = 15 ! disable forced password change+ PARAMETER UAF070$S_CAPTIVE = 1P PARAMETER UAF070$V_CAPTIVE = 16 ! captive account (no overrides), PARAMETER UAF070$S_DISIMAGE = 1T PARAMETER UAF070$V_DISIMAGE = 17 ! disable arbitrary image activation- PARAMETER UAF070$S_DISPWDDIC = 1U PARAMETER UAF070$V_ WDISPWDDIC = 18 ! disable password dictionary search- PARAMETER UAF070$S_DISPWDHIS = 1R PARAMETER UAF070$V_DISPWDHIS = 19 ! disable password history search- PARAMETER UAF070$S_DEFCLSVAL = 1R PARAMETER UAF070$V_DEFCLSVAL = 20 ! default classification is valid BYTE %FILL (3) END MAP END UNIONP BYTE UAF070$B_NETWORK_ACCESS_P(1:3) ! hourly network access, primaryR BYTE UAF070$B_NETWORK_ACCESS_S(1:3X) ! hourly network access, secondaryL BYTE UAF070$B_BATCH_ACCESS_P(1:3) ! hourly batch access, primaryN BYTE UAF070$B_BATCH_ACCESS_S(1:3) ! hourly batch access, secondaryL BYTE UAF070$B_LOCAL_ACCESS_P(1:3) ! hourly local access, primaryN BYTE UAF070$B_LOCAL_ACCESS_S(1:3) ! hourly local access, secondaryN BYTE UAF070$B_DIALUP_ACCESS_P(1:3) ! hourly dialup access, primaryP BYTE UAF070$B_DIALUP_ACCESS_S(1:3) ! hourly dialup access, Y secondaryN BYTE UAF070$B_REMOTE_ACCESS_P(1:3) ! hourly remote access, primaryP BYTE UAF070$B_REMOTE_ACCESS_S(1:3) ! hourly remote access, secondary> BYTE %FILL(1:12) ! space for 2 more access types UNION MAPI BYTE UAF070$B_PRIMEDAYS ! bits representing primary days END MAP MAP* PARAMETER UAF070$S_MONDAY = 1U PARAMETER UAF070$V_MONDAY = 0 ! bit clear means this is a primary day+ Z PARAMETER UAF070$S_TUESDAY = 1Q PARAMETER UAF070$V_TUESDAY = 1 ! bit set means this is an off day- PARAMETER UAF070$S_WEDNESDAY = 1- PARAMETER UAF070$V_WEDNESDAY = 2, PARAMETER UAF070$S_THURSDAY = 1, PARAMETER UAF070$V_THURSDAY = 3* PARAMETER UAF070$S_FRIDAY = 1* PARAMETER UAF070$V_FRIDAY = 4, PARAMETER UAF070$S_SATURDAY = 1, PARAMETER UAF070$V_SATURDAY = 5* [ PARAMETER UAF070$S_SUNDAY = 1* PARAMETER UAF070$V_SUNDAY = 6 BYTE %FILL (1) END MAP END UNION BYTE %FILL(1:1)7 BYTE UAF070$B_PRI ! base process priority@ BYTE UAF070$B_QUEPRI ! maximum job queuing priorityA INTEGER*2 UAF070$W_MAXJOBS ! maximum jobs for UIC allowed ! 0 means no limitI INTEGER*2 UAF070$W_MAXACCTJOBS ! maximum jobs for account allowed ! 0 means no limitI INTEGER*2 UAF070$W_MAXD \ETACH ! maximum detached processes for UIC ! 0 means no limit= INTEGER*2 UAF070$W_PRCCNT ! subprocess creation limit5 INTEGER*2 UAF070$W_BIOLM ! buffered I/O limit3 INTEGER*2 UAF070$W_DIOLM ! direct I/O limit: INTEGER*2 UAF070$W_TQCNT ! timer queue entry limit2 INTEGER*2 UAF070$W_ASTLM ! AST queue limit0 INTEGER*2 UAF070$W_ENQLM ! enqueue limit2 INTEGER*2 UAF070$W_FILLM ! open file limit7 INTEGER*2 UAF070$W_SHRFILLM ! shared fil ]e limit; INTEGER*4 UAF070$L_WSQUOTA ! working set size quota= INTEGER*4 UAF070$L_DFWSCNT ! default working set size< INTEGER*4 UAF070$L_WSEXTENT ! working set size limit6 INTEGER*4 UAF070$L_PGFLQUOTA ! page file quota2 INTEGER*4 UAF070$L_CPUTIM ! CPU time quota@ INTEGER*4 UAF070$L_BYTLM ! buffered I/O byte count limitE INTEGER*4 UAF070$L_PBYTLM ! paged buffer I/O byte count limitO INTEGER*4 UAF070$L_JTQUOTA ! job-wide logical name tab ^le creation quotaG INTEGER*2 UAF070$W_PROXY_LIM ! number of proxies user can grant> INTEGER*2 UAF070$W_PROXIES ! number of proxies grantedG INTEGER*2 UAF070$W_ACCOUNT_LIM ! number of sub-accounts allowedC INTEGER*2 UAF070$W_ACCOUNTS ! number of sub-accounts in use BYTE %FILL(1:20), BYTE %FILL(1:44) ! spare space6 BYTE %FILL(1:768) ! user-extensible area END STRUCTURE ! UAF070!DEC$ END OPTIONS wwQ_!*** MODULE $UAIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! B ! Get User Authorization Information Data Identifier Definitions !  ! **** NOTE **** ! F ! New items must always be added to the END of each item list1 ! so that users will not have to relink. !  ! -7 PARAMETER UAI$_RTYPE = '00000001'X ! UAF record type< PARAMETER UAI$_VERSION = '00000002'X ! UAF format versionQ PARAMETER UAI$_USRDATOFF = '00000003'X ! offs `et of counted string of user data3 PARAMETER UAI$_USERNAME = '00000004'X ! usernameK PARAMETER UAI$_USERNAME_TAG = '00000005'X ! tag to differentiate records2 PARAMETER UAI$_UIC = '00000006'X ! user ID code5 PARAMETER UAI$_MEM = '00000007'X ! member subfield4 PARAMETER UAI$_GRP = '00000008'X ! group subfield< PARAMETER UAI$_SUB_ID = '00000009'X ! user sub-identifierO PARAMETER UAI$_PARENT_ID = '0000000A'X ! identifier of owner of this account6 PARAMETER UAI$_ACCOUNT = '00000 a00B'X ! account name4 PARAMETER UAI$_OWNER = '0000000C'X ! owner's name7 PARAMETER UAI$_DEFDEV = '0000000D'X ! default device: PARAMETER UAI$_DEFDIR = '0000000E'X ! default directory; PARAMETER UAI$_LGICMD = '0000000F'X ! login command fileD PARAMETER UAI$_DEFCLI = '00000010'X ! default command interpreter; PARAMETER UAI$_CLITABLES = '00000011'X ! user CLI tables5 PARAMETER UAI$_PWD = '00000012'X ! hashed password6 PARAMETER UAI$_PWD2 = '00000013'X ! second passwordB PARbAMETER UAI$_LOGFAILS = '00000014'X ! count of login failures; PARAMETER UAI$_SALT = '00000015'X ! random password saltI PARAMETER UAI$_ENCRYPT = '00000016'X ! primary password hash algorithmL PARAMETER UAI$_ENCRYPT2 = '00000017'X ! secondary password hash algorithmD PARAMETER UAI$_PWD_LENGTH = '00000018'X ! minimum password lengthH PARAMETER UAI$_EXPIRATION = '00000019'X ! expiration date for account@ PARAMETER UAI$_PWD_LIFETIME = '0000001A'X ! password lifetimeB PARAMETER UAI$_cPWD_DATE = '0000001B'X ! date of password changeG PARAMETER UAI$_PWD2_DATE = '0000001C'X ! date of 2nd password changeL PARAMETER UAI$_LASTLOGIN_I = '0000001D'X ! date of last interactive loginP PARAMETER UAI$_LASTLOGIN_N = '0000001E'X ! date of last non-interactive login? PARAMETER UAI$_PRIV = '0000001F'X ! process privilege vectorE PARAMETER UAI$_DEF_PRIV = '00000020'X ! default process privilegesB PARAMETER UAI$_MIN_CLASS = '00000021'X ! minimum security classB PARAMETER UAId$_MAX_CLASS = '00000022'X ! maximum security class; PARAMETER UAI$_FLAGS = '00000023'X ! user flags longwordQ PARAMETER UAI$_NETWORK_ACCESS_P = '00000024'X ! hourly network access, primaryS PARAMETER UAI$_NETWORK_ACCESS_S = '00000025'X ! hourly network access, secondaryM PARAMETER UAI$_BATCH_ACCESS_P = '00000026'X ! hourly batch access, primaryO PARAMETER UAI$_BATCH_ACCESS_S = '00000027'X ! hourly batch access, secondaryM PARAMETER UAI$_LOCAL_ACCESS_P = '00000028'X ! hourly loecal access, primaryO PARAMETER UAI$_LOCAL_ACCESS_S = '00000029'X ! hourly local access, secondaryO PARAMETER UAI$_DIALUP_ACCESS_P = '0000002A'X ! hourly dialup access, primaryQ PARAMETER UAI$_DIALUP_ACCESS_S = '0000002B'X ! hourly dialup access, secondaryO PARAMETER UAI$_REMOTE_ACCESS_P = '0000002C'X ! hourly remote access, primaryQ PARAMETER UAI$_REMOTE_ACCESS_S = '0000002D'X ! hourly remote access, secondaryJ PARAMETER UAI$_PRIMEDAYS = '0000002E'X ! bits representing primary fdays; PARAMETER UAI$_PRI = '0000002F'X ! base process priorityE PARAMETER UAI$_QUEPRI = '00000030'X ! maximum job queuing priorityF PARAMETER UAI$_MAXJOBS = '00000031'X ! maximum jobs for UIC allowedN PARAMETER UAI$_MAXACCTJOBS = '00000032'X ! maximum jobs for account allowedN PARAMETER UAI$_MAXDETACH = '00000033'X ! maximum detached processes for UICB PARAMETER UAI$_PRCCNT = '00000034'X ! subprocess creation limit: PARAMETER UAI$_BIOLM = '00000035'X ! buffered I/O limit8 PARAM gETER UAI$_DIOLM = '00000036'X ! direct I/O limit? PARAMETER UAI$_TQCNT = '00000037'X ! timer queue entry limit7 PARAMETER UAI$_ASTLM = '00000038'X ! AST queue limit5 PARAMETER UAI$_ENQLM = '00000039'X ! enqueue limit7 PARAMETER UAI$_FILLM = '0000003A'X ! open file limit< PARAMETER UAI$_SHRFILLM = '0000003B'X ! shared file limit@ PARAMETER UAI$_WSQUOTA = '0000003C'X ! working set size quotaB PARAMETER UAI$_DFWSCNT = '0000003D'X ! default working set sizeA PARAMETER UAI$_WSEXhTENT = '0000003E'X ! working set size limit; PARAMETER UAI$_PGFLQUOTA = '0000003F'X ! page file quota7 PARAMETER UAI$_CPUTIM = '00000040'X ! CPU time quotaE PARAMETER UAI$_BYTLM = '00000041'X ! buffered I/O byte count limitJ PARAMETER UAI$_PBYTLM = '00000042'X ! paged buffer I/O byte count limitT PARAMETER UAI$_JTQUOTA = '00000043'X ! job-wide logical name table creation quotaL PARAMETER UAI$_PROXY_LIM = '00000044'X ! number of proxies user can grantC PARAMETER UAI$_PROXIES = i'00000045'X ! number of proxies grantedL PARAMETER UAI$_ACCOUNT_LIM = '00000046'X ! number of sub-accounts allowedH PARAMETER UAI$_ACCOUNTS = '00000047'X ! number of sub-accounts in use: PARAMETER UAI$_USER_DATA = '00000048'X ! user data areaE PARAMETER UAI$_PASSWORD = '00000049'X ! plaintext primary passwordH PARAMETER UAI$_PASSWORD2 = '0000004A'X ! plaintext secondary passwordK PARAMETER UAI$_DEF_CLASS = '0000004B'X ! default security classificationW PARAMETER UAI$_AUDIT_FLAGjS = '0000004C'X ! passed from $SETUAI to UAF$SECURITY_AUDIT& ! ADD ITEM-CODES BEFORE THIS COMMENTK PARAMETER UAI$_MAX_ITEM_CODE = '0000004D'X ! maximum legal item code + 1: ! Add UAI$_DEFCHARGE_CODE as an alias for UAI$_ACCOUNT.O PARAMETER UAI$_DEFCHARGE_CODE = '0000000B'X ! default charge code (=account)0 ! Define the various password hash algorithms.C PARAMETER UAI$C_AD_II = '00000000'X ! AUTODIN-II 32 bit crc codeK PARAMETER UAI$C_PURDY = '00000001'X ! Purdy polynomial overk salted inputV PARAMETER UAI$C_PURDY_V = '00000002'X ! Purdy polynomial + variable length usernameN PARAMETER UAI$C_PURDY_S = '00000003'X ! PURDY_V folded into password length1 PARAMETER UAI$C_PREFERED_ALGORITHM = '0000007F'X] PARAMETER UAI$C_PREFERRED_ALGORITHM = '0000007F'X ! preferred hash algorithm - use currentM PARAMETER UAI$C_CUST_ALGORITHM = '00000080'X ! customer algorithm divisionL PARAMETER UAI$C_MAX_PWD_LENGTH = '00000020'X ! maximum plaintext password1 ! Define the f llags for the user flags longword.& PARAMETER UAI$M_DISCTLY = '00000001'X% PARAMETER UAI$M_DEFCLI = '00000002'X& PARAMETER UAI$M_LOCKPWD = '00000004'X) PARAMETER UAI$M_RESTRICTED = '00000008'X& PARAMETER UAI$M_DISACNT = '00000010'X( PARAMETER UAI$M_DISWELCOM = '00000020'X& PARAMETER UAI$M_DISMAIL = '00000040'X% PARAMETER UAI$M_NOMAIL = '00000080'X% PARAMETER UAI$M_GENPWD = '00000100'X* PARAMETER UAI$M_PWD_EXPIRED = '00000200'X+ PARAMETER UAI$M_PWD2_EXPIRED = '00000400'X$ PARAMETER UAI m$M_AUDIT = '00000800'X( PARAMETER UAI$M_DISREPORT = '00001000'X+ PARAMETER UAI$M_DISRECONNECT = '00002000'X( PARAMETER UAI$M_AUTOLOGIN = '00004000'X2 PARAMETER UAI$M_DISFORCE_PWD_CHANGE = '00008000'X& PARAMETER UAI$M_CAPTIVE = '00010000'X' PARAMETER UAI$M_DISIMAGE = '00020000'X( PARAMETER UAI$M_DISPWDDIC = '00040000'X( PARAMETER UAI$M_DISPWDHIS = '00080000'X( PARAMETER UAI$M_DEFCLSVAL = '00100000'X& PARAMETER UAI$M_EXTAUTH = '00200000'X) PARAMETER UAI$M_MIGRATEPWD = '00400000'X& PARAMET nER UAI$M_VMSAUTH = '00800000'X* PARAMETER UAI$M_DISPWDSYNCH = '01000000'X% PARAMETER UAI$M_PWDMIX = '02000000'X, STRUCTURE /FLAGS/ ! user flags longword PARAMETER UAI$S_DISCTLY = 17 PARAMETER UAI$V_DISCTLY = 0 ! no user control-y PARAMETER UAI$S_DEFCLI = 1@ PARAMETER UAI$V_DEFCLI = 1 ! only allow user default CLI PARAMETER UAI$S_LOCKPWD = 1B PARAMETER UAI$V_LOCKPWD = 2 ! disable SET PASSWORD command# PARAMETER UAI$S_RESTRICTED = 1N PARAMET oER UAI$V_RESTRICTED = 3 ! restricted account (pre-V5.2 CAPTIVE) PARAMETER UAI$S_DISACNT = 1: PARAMETER UAI$V_DISACNT = 4 ! no interactive login" PARAMETER UAI$S_DISWELCOM = 1< PARAMETER UAI$V_DISWELCOM = 5 ! skip welcome message PARAMETER UAI$S_DISMAIL = 1; PARAMETER UAI$V_DISMAIL = 6 ! skip new mail message PARAMETER UAI$S_NOMAIL = 1: PARAMETER UAI$V_NOMAIL = 7 ! disable mail delivery PARAMETER UAI$S_GENPWD = 1@ PARAMETER UAI$V_G pENPWD = 8 ! passwords must be generated$ PARAMETER UAI$S_PWD_EXPIRED = 1> PARAMETER UAI$V_PWD_EXPIRED = 9 ! password has expired% PARAMETER UAI$S_PWD2_EXPIRED = 1C PARAMETER UAI$V_PWD2_EXPIRED = 10 ! 2nd password has expired PARAMETER UAI$S_AUDIT = 16 PARAMETER UAI$V_AUDIT = 11 ! audit all actions" PARAMETER UAI$S_DISREPORT = 1A PARAMETER UAI$V_DISREPORT = 12 ! skip last login messages% PARAMETER UAI$S_DISRECONNECT = 1@ PARAMETER UAI q$V_DISRECONNECT = 13 ! inhibit reconnections" PARAMETER UAI$S_AUTOLOGIN = 18 PARAMETER UAI$V_AUTOLOGIN = 14 ! auto-login only, PARAMETER UAI$S_DISFORCE_PWD_CHANGE = 1P PARAMETER UAI$V_DISFORCE_PWD_CHANGE = 15 ! disable forced password change PARAMETER UAI$S_CAPTIVE = 1E PARAMETER UAI$V_CAPTIVE = 16 ! captive account (no overrides)! PARAMETER UAI$S_DISIMAGE = 1J PARAMETER UAI$V_DISIMAGE = 17 ! disable arbitrary image activation" PARAMETER UAI r$S_DISPWDDIC = 1K PARAMETER UAI$V_DISPWDDIC = 18 ! disable password dictionary filter" PARAMETER UAI$S_DISPWDHIS = 1H PARAMETER UAI$V_DISPWDHIS = 19 ! disable password history search" PARAMETER UAI$S_DEFCLSVAL = 1H PARAMETER UAI$V_DEFCLSVAL = 20 ! default classification is valid PARAMETER UAI$S_EXTAUTH = 1F PARAMETER UAI$V_EXTAUTH = 21 ! external authentication enabled# PARAMETER UAI$S_MIGRATEPWD = 1J PARAMETER UAI$V_MIGRATEPWD = 22 ! migr sate UAF pwd to external auth PARAMETER UAI$S_VMSAUTH = 1A PARAMETER UAI$V_VMSAUTH = 23 ! VMS alternative is allowed$ PARAMETER UAI$S_DISPWDSYNCH = 1B PARAMETER UAI$V_DISPWDSYNCH = 24 ! no ACME password sharing PARAMETER UAI$S_PWDMIX = 1A PARAMETER UAI$V_PWDMIX = 25 ! enable mixed-case passwords BYTE %FILL (4) END STRUCTURE ! FLAGS/ ! Define the flags representing primary days.; STRUCTURE /PRIMEDAYS/ ! bits representing primary days PARAMET tER UAI$S_MONDAY = 1J PARAMETER UAI$V_MONDAY = 0 ! bit clear means this is a primary day PARAMETER UAI$S_TUESDAY = 1F PARAMETER UAI$V_TUESDAY = 1 ! bit set means this is an off day" PARAMETER UAI$S_WEDNESDAY = 1" PARAMETER UAI$V_WEDNESDAY = 2! PARAMETER UAI$S_THURSDAY = 1! PARAMETER UAI$V_THURSDAY = 3 PARAMETER UAI$S_FRIDAY = 1 PARAMETER UAI$V_FRIDAY = 4! PARAMETER UAI$S_SATURDAY = 1! PARAMETER UAI$V_SATURDAY = 5 PARAMETER UAIu$S_SUNDAY = 1 PARAMETER UAI$V_SUNDAY = 6 BYTE %FILL (1) END STRUCTURE ! PRIMEDAYS!DEC$ END OPTIONS ww@ RΦ!*** MODULE $UICDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! D ! Format of UIC - user identification code. May be either two part> ! group / member identifier, or a single uniform identifier. ! 4 ! The binary layout of the id space is as follows: !  ! ---------- Bit --------( ! 31 30 29 28 27 26 Descr viptionE ! === === === === === === ======================================== ! 4 ! 0 0 - - - - UIC form (group/member)# ! 0 1 - - - - Unused, ! 1 0 - - - - Identifier form3 ! 1 0 0 0 - - System identifiers> ! 1 0 0 1 - - Facility-specific identifiersA ! 1 0 1 0 - - Arbitrary assignment identifiers; ! 1 0 1 0 0 0 SEVMS identifier space+ ! 1 0 1 0 0 1 w Unused+ ! 1 0 1 0 1 0 Unused+ ! 1 0 1 0 1 1 Unused' ! 1 0 1 1 - - Unused# ! 1 1 - - - - Unused ! -? PARAMETER UIC$K_MAX_UIC = '3FFFFFFF'X ! Highest possible UICH PARAMETER UIC$K_WILD_MEMBER = '0000FFFF'X ! Code for wild card memberF PARAMETER UIC$K_WILD_GROUP = '00003FFF'X ! Code for wild card group= PARAMETER UIC$K_UIC_FORMAT = '00000000'X ! UIC format code; PARAMETER UIC$K_ID_FORMAT = '00000002'Xx ! ID format code? PARAMETER UIC$K_TYPE_SYSTEM = '00000008'X ! system ID or UICC PARAMETER UIC$K_TYPE_FACILITY = '00000009'X ! facility ID or UICL PARAMETER UIC$K_TYPE_ARBITRARY = '0000000A'X ! arbitrary assignment spaceD PARAMETER UIC$K_FIRST_ID = '80010000'X ! First general identifierB PARAMETER UIC$K_LAST_ID = '8FFFFFFF'X ! Last general identifier: PARAMETER UIC$K_MATCH_ALL = -1 ! Match all identifiersO PARAMETER UIC$K_ASSIGN_SEVMS = '00000000'X ! SEVMS block of identifieyr space STRUCTURE /UICDEF/ UNION MAP UNION MAP0 INTEGER*4 UIC$L_UIC ! Full longword END MAP MAP4 INTEGER*2 UIC$W_MEM ! Member number3 INTEGER*2 UIC$W_GRP ! Group number END MAP END UNION END MAP MAP$ PARAMETER UIC$S_MEMBER = 166 PARAMETER UIC$V_MEMBER = 0 ! Member number# PARAMETER UIC$S_GROUP = 145 PARAMETER UIC$V_GROUP = 16 ! Group numzber# PARAMETER UIC$S_FORMAT = 2$ PARAMETER UIC$V_FORMAT = 30* BYTE %FILL (4) ! Format code END MAP MAP% PARAMETER UIC$S_ID_CODE = 281 PARAMETER UIC$V_ID_CODE = 0 ! ID code$ PARAMETER UIC$S_ID_TYPE = 4% PARAMETER UIC$V_ID_TYPE = 28' BYTE %FILL (4) ! ID type END MAP MAP) PARAMETER UIC$S_FAC_ID_CODE = 165 PARAMETER UIC$V_FAC_ID_CODE = 0 ! ID code& PARAMETER U{IC$S_FACILITY = 129 PARAMETER UIC$V_FACILITY = 16 ! Facility code BYTE %FILL (4) END MAP MAP) PARAMETER UIC$S_ARB_ID_CODE = 265 PARAMETER UIC$V_ARB_ID_CODE = 0 ! ID code( PARAMETER UIC$S_ASSIGN_CODE = 2= PARAMETER UIC$V_ASSIGN_CODE = 26 ! Assignment code BYTE %FILL (4) END MAP END UNION END STRUCTURE ! UICDEF!DEC$ END OPTIONS wwURΦ!*** MODULE $UIDDEF ***:!DEC$ OPTIONS/ALIGN=(RECOR |DS=PACKED,COMMONS=PACKED)/NOWARNK PARAMETER UID$K_ArchVersion = '00000001'X ! Current architecture version; PARAMETER UID$K_Apollo1 = '00000000'X ! UID format types& PARAMETER UID$K_Apollo2 = '00000001'X& PARAMETER UID$K_Digital = '00000002'X( PARAMETER UID$K_Microsoft = '00000003'X@ PARAMETER UID$K_LENGTH = '00000010'X ! Total structure length STRUCTURE /UIDDEF/ UNION MAP? INTEGER*4 UID$q_timeAndVersion(2) ! Time and version END MAP MAP }D INTEGER*4 UID$l_timeLow ! Low order 32 bits of timeG INTEGER*2 UID$w_timeMid ! Middle order 16 bits of time UNION MAPT INTEGER*2 UID$w_timeHiAndVersion ! High order 12 bits of time and END MAP MAP ! 4 bits of version0 PARAMETER UID$S_timeHi = 12O PARAMETER UID$V_timeHi = 0 ! High order 12 bits of time0 PARAMET~ER UID$S_Version = 41 PARAMETER UID$V_Version = 12< BYTE %FILL (2) ! 4 bits of version END MAP END UNION END MAP END UNION UNION MAPL INTEGER*2 UID$w_clockSeqAndReserved ! Clock sequence and reserved END MAP MAP UNION MAP^ BYTE UID$b_clockSeqHiAndReserved ! High order 6 bits of clock sequence  END MAP MAP ! and 2 reserved bits3 PARAMETER UID$S_clockSeqHi = 6\ PARAMETER UID$V_clockSeqHi = 0 ! High order 6 bits of clock sequence1 PARAMETER UID$S_Reserved = 21 PARAMETER UID$V_Reserved = 6= BYTE %FILL (1) ! 2 bits of reserved END MAP END UNIONP BYTE UID$b_clockSeqLow ! Low order 8 bits of clock sequence END MAP END UNION UNION MAP" BYTE UID$b_node(1:6) END MAP MAPK INTEGER*2 UID$w_nodeHi ! High order 16 bits of node numberK INTEGER*4 UID$l_nodeLow ! Low order 32 bits of node number END MAP END UNION END STRUCTURE ! UIDDEF!DEC$ END OPTIONS wwԡRΦ!*** MODULE $USGDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +J ! Disk usage acc ounting file produced by ANALYZE/DISK_STRUCTURE utility. ! -? PARAMETER USG$K_IDENT = '00000001'X ! Identification record 4 PARAMETER USG$K_FILE = '00000002'X ! File record D PARAMETER USG$K_IDENT_LEN = '0000003D'X ! Length of IDENT record D PARAMETER USG$C_IDENT_LEN = '0000003D'X ! Length of IDENT record  STRUCTURE /USGDEF/, BYTE USG$B_TYPE ! Record type 7 INTEGER*4 USG$L_SERIALNUM ! Pack serial number 7 CHARACTER*12 USG$T_STRUCNAME ! Volume set name 1 CHARACTER*12 USG$T_VOLNAME ! Volume name 9 CHARACTER*12 USG$T_OWNERNAME ! Volume owner name 7 CHARACTER*12 USG$T_FORMAT ! Volume format type ( ! *** Preceding same as home block ***; INTEGER*4 USG$Q_TIME(2) ! Time usage file created  END STRUCTURE ! USGDEFJ PARAMETER USG$K_FILE_LEN = '000001A7'X ! Maximum length of FILE record J PARAMETER USG$C_FILE_LEN = '000001A7'X ! Maximum length of FILE record  STRUCTURE /USGDEF1/ BYTE %FILL UNI ON MAP7 INTEGER*4 USG$L_FILEOWNER ! File owner UIC  END MAP MAP> INTEGER*2 USG$W_UICMEMBER ! UIC member number < INTEGER*2 USG$W_UICGROUP ! UIC group number  END MAP END UNIONH INTEGER*4 USG$L_ALLOCATED ! Blocks allocated, including headers , INTEGER*4 USG$L_USED ! Blocks used > INTEGER*2 USG$W_DIR_LEN ! Length of directory string I INTEGER*2 USG$W_SPEC_LEN ! Length of complete file specification D CHARACTER*406 USG$T_FILESPEC ! File spec "[dir]nam.typ;ver"  END STRUCTURE ! USGDEF1!DEC$ END OPTIONS wwRΦ!*** MODULE $USRIDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! User image bit definitions !  ! * PARAMETER USRI$M_DBG_MAPPED = '00000001'X STRUCTURE /USRIDEF/ UNION MAP( PARAMETER USRI$S_DBG_MAPPED = 1D PARAMETER USRI$V_DBG_MAPPED = 0 ! Debugger is now mapped BYTE %FILL (1) END MAP END UNION END STRUCTURE ! USRIDEF!DEC$ END OPTIONS wwHrΦ!*** MODULE $UTCBLKDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! A ! $UTCBLKDEF defines the STARLET structure for UTC based times. !  ! - STRUCTURE /UTCBLK/I INTEGER*4 UTCBLK$O_TIME_BLOCK(2,1:2) ! Double quad for entire time END STRUCTURE ! UTCBLK!DEC$ END OPTIONS wwCSΦ!*** MODULE $VADEF ***:!DEC$ OPTIONS/AL IGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! VIRTUAL ADDRESS VIELDS ! - PARAMETER VA$M_P1 = '40000000'X$ PARAMETER VA$M_SYSTEM = '80000000'X/ PARAMETER VA$M_BYTES_PER_PAGELET = '000001FF'X- PARAMETER VA$M_BYTE_IN_PAGELET = '000001FF'X! PARAMETER VA$M_VRN = '00000000'XA PARAMETER VA$C_VRN_SYSTEM = '00000007'X ! VRN for system spaceH PARAMETER VA$C_REGION_COUNT = '00000008'X ! Number of virtual regions" PARAMETER VA$M_VRNX = '00000000'XC PARAMETER VA$C_VRNX_SYSTEM = '0000000F'X ! VRNX for system spaceM PARAMETER VA$C_VRNX_COUNT = '00000010'X ! Number of virtual address spaces# PARAMETER VA$S_VADEF = '00000008'X* PARAMETER VA$C_PAGELET_SIZE = '00000200'X0 PARAMETER VA$C_PAGELET_SHIFT_SIZE = '00000009'X STRUCTURE /VA/ UNION MAP INTEGER*4 VA$Q_QUAD(2) END MAP MAP" PARAMETER VA$S_P1 = 12 PARAMETER VA$V_P1 = 30 ! P1 SPACE & PARAMETER VA$S_SYSTEM = 1' PARAMETER VA$V_SYSTEM = 31/ BYTE %FILL (1) ! SYSTEM SPACE  END MAP MAP1 PARAMETER VA$S_BYTES_PER_PAGELET = 9F PARAMETER VA$V_BYTES_PER_PAGELET = 0 ! BYTES PER PAGELET BYTE %FILL (2) END MAP MAP/ PARAMETER VA$S_BYTE_IN_PAGELET = 9P PARAMETER VA$V_BYTE_IN_PAGELET = 0 ! BYTE IN PAGELET (common name) BYTE %FILL (2) END MAP MAP# PARAMETER VA$S_VRN = 3$ PARAMETER VA$V_VRN = 618 BYTE %FILL (1) ! Virtual Region Number END MAP MAP$ PARAMETER VA$S_VRNX = 4% PARAMETER VA$V_VRNX = 609 BYTE %FILL (1) ! Virtual Address Space  END MAP END UNION END STRUCTURE ! VA ! + ! Process permanent region ids ! -I PARAMETER VA$C_P0 = '00000000'X ! Region id for 32-bit program regionB PARAMETER VA$C_P1 = '00000001'X ! Region id for contro l regionJ PARAMETER VA$C_P2 = '00000002'X ! Region id for 64-bit program region % PARAMETER VA$M_DESCEND = '00000001'X& PARAMETER VA$M_P0_SPACE = '00000002'X& PARAMETER VA$M_P1_SPACE = '00000004'X' PARAMETER VA$M_PERMANENT = '00000008'X. PARAMETER VA$M_EXPAND_ON_ACCVIO = '00000010'X( PARAMETER VA$M_SHARED_PTS = '00000040'X( PARAMETER VA$M_OWNER_MODE = '0000000F'X) PARAMETER VA$M_CREATE_MODE = '000000F0'X+ PARAMETER VA$C_REGSUM_LENGTH = '00000028'X) PARAMETER VA$_REGSUM_BY_ID = '00000 000'X) PARAMETER VA$_REGSUM_BY_VA = '00000001'X. PARAMETER VA$_NEXT_REGSUM_BY_VA = '00000002'X ! +1 PARAMETER VA$C_REGION_UCREATE_UOWN = '00000033'X1 PARAMETER VA$C_REGION_UCREATE_SOWN = '00000032'X1 PARAMETER VA$C_REGION_UCREATE_EOWN = '00000031'X1 PARAMETER VA$C_REGION_UCREATE_KOWN = '00000030'X1 PARAMETER VA$C_REGION_SCREATE_SOWN = '00000022'X1 PARAMETER VA$C_REGION_SCREATE_EOWN = '00000021'X1 PARAMETER VA$C_REGION_SCREATE_KOWN = '00000020'X1 PARAMETER VA$C_REGION_ECREATE_EOWN = '00000011'X1 PARAMETER VA$C_REGION_ECREATE_KOWN = '00000010'X1 PARAMETER VA$C_REGION_KCREATE_KOWN = '00000000'X STRUCTURE /REGSUM/2 INTEGER*4 VA$Q_REGION_ID(2) ! Id of region UNION MAP2 INTEGER*4 VA$L_FLAGS ! FLAGS longword END MAP MAP' PARAMETER VA$S_DESCEND = 1A PARAMETER VA$V_DESCEND = 0 ! Region is descending( PARAMETER VA$S_P0_SPACE = 1C PARAMETER VA$V_P0_SPACE = 1 ! Regi on is in P0 space( PARAMETER VA$S_P1_SPACE = 1C PARAMETER VA$V_P1_SPACE = 2 ! Region is in P1 space) PARAMETER VA$S_PERMANENT = 1B PARAMETER VA$V_PERMANENT = 3 ! Region is permanent0 PARAMETER VA$S_EXPAND_ON_ACCVIO = 1S PARAMETER VA$V_EXPAND_ON_ACCVIO = 4 ! Expand within region on accvio ! public interface.* PARAMETER VA$S_SHARED_PTS = 1L PARAMETER VA$V_SHARED_PTS = 6 ! Region is a shared PT region BYTE %FILL (1) END MAP END UNION UNION MAP) INTEGER*4 VA$L_REGION_PROTECTION END MAP MAP* PARAMETER VA$S_OWNER_MODE = 4A PARAMETER VA$V_OWNER_MODE = 0 ! Region owner mode+ PARAMETER VA$S_CREATE_MODE = 4+ PARAMETER VA$V_CREATE_MODE = 45 BYTE %FILL (1) ! Region create mode END MAP END UNION UNION MAP?  INTEGER*8 VA$PQ_START_VA ! Lowest address in region END MAP MAPF INTEGER*4 VA$PS_START_VA ! Lowest address in 32-bit region END MAP END UNION UNION MAP: INTEGER*4 VA$Q_REGION_SIZE(2) ! Size of region END MAP MAP> INTEGER*4 VA$L_REGION_SIZE ! Size of 32-bit region END MAP END UNION UNION MAPC INTEGER*8 VA$PQ_FIRST_FREE_VA ! First free VA in region END MAP MAPJ INTEGER*4 VA$PS_FIRST_FREE_VA ! First free VA in 32-bit region END MAP END UNION ! Region protection encodings ! - END STRUCTURE ! REGSUM ! + ! VA flags  ! -( PARAMETER VA$M_NO_OVERMAP = '00000001'X STRUCTURE /VA_FLAGS/" PARAMETER VA$S_NO_OVERMAP = 1K PARAMETER VA$V_NO_OVERMAP = 0 ! Do not overmap while creating pages BYTE %FILL (1) END STRUCTURE ! VA_FLAGS ! + ! SETSTK_64 flags  ! -- PARAMETER VA$M_SETSTK_REGISTER = '00000001'X STRUCTURE /SETSTK_FLAGS/' PARAMETER VA$S_SETSTK_REGISTER = 1E PARAMETER VA$V_SETSTK_REGISTER = 0 ! Set register stack limits BYTE %FILL (1) END STRUCTURE ! SETSTK_FLAGS!DEC$ END OPTIONS wwSΦ!*** MODULE $VAXDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN# PARAMETER VAX$C_V780 = '00000001'X# PARAMETER VAX$K_V780 = '00000001'X# PARAMETER VAX$C_V782 = '00000002'X# PARAMETER VAX$K_V782 = '00000002'X# PARAMETER VAX$C_V750 = '00000003'X# PARAMETER VAX$K_V750 = '00000003'X# PARAMETER VAX$C_V730 = '00000004'X# PARAMETER VAX$K_V730 = '00000004'X# PARAMETER VAX$C_V785 = '00000005'X# PARAMETER VAX$K_V785 = '00000005'X# PARAMETER VAX$C_VUV1 = '00000006'X# PARAMETER VAX$K_VUV1 = '00000006'X# PARAMETER VAX$C_VWS1 = '00000007'X# PARAMETER VAX$K_VWS1 = '00000007'X# PARAMETER VAX$C_VUV2 = '00000008'X# PARAMETER VAX$K_VUV2 = '00000008'X# PARAMETER VAX$C_VWS2 = '00000009'X# PARAMETER VAX$K_VWS2 = '00000009'X# PARAMETER VAX$C_VWSD = '0000000A'X# PARAMETER VAX$K_VWSD = '0000000A'X$ PARAMETER VAX$C_V8600 = '0000000B'X$ PARAMETER VAX$K_V8600 = '0000000B'X$ PARAMETER VAX$C_V8650 = '0000000C'X$ PARAMETER VAX$K_V8650 = '0000000C'X$ PARAMETER VAX$C_V8200 = '0000000D'X$ PARAMETER VAX$K_V8200 = '0000000D'X$ PARAMETER VAX$C_V8300 = '0000000E'X$ PARAMETER VAX$K_V8300 = '0000000E'X$ PARAMETER VAX$C_V8530 = '0000000F'X$ PARAMETER VAX$K_V8530 = '0000000F'X$ PARAMETER VAX$C_V8550 = '00000010'X$ PARAMETER VAX$K_V8550 = '00000010'X$ PARAMETER VAX$C_V8700 = '00000011'X$ PARAMETER VAX$K_V8700 = '00000011'X$ PARAMETER VAX$C_V8800 = '00000012'X$ PARAMETER VAX$K_V8800 = '00000012'X& PARAMETER VAX$C_VWS2000 = '00000013'X& PARAMETER VAX$K_VWS2000 = '00000013'X& PARAMETER VAX$C_VUV2000 = '00000014'X& PARAMETER VAX$K_VUV2000 = '00000014'X' PARAMETER VAX$C_VWSD2000 = '00000015'X' PARAMETER VAX$K_VWSD2000 = '00000015'X# PARAMETER VAX$C_V009 = '00000016'X# PARAMETER VAX$K_V009 = '00000016'X$ PARAMETER VAX$C_V8250 = '00000017'X$ PARAMETER VAX$K_V8250 = '00000017'X$ PARAMETER VAX$C_V8350 = '00000018'X$ PARAMETER VAX$K_V8350 = '00000018'X$ PARAMETER VAX$C_V3600 = '00000019'X$ PARAMETER VAX$K_V3600 = '00000019'X% PARAMETER VAX$C_V3600W = '0000001A'X% PARAMETER VAX$K_V3600W = '0000001A'X% PARAMETER VAX$C_V3600D = '0000001B'X% PARAMETER VAX$K_V3600D = '0000001B'X# PARAMETER VAX$K_V9CC = '0000001C'X# PARAMETER VAX$C_V9CC = '0000001C'X& PARAMETER VAX$K_V6210_T = '0000001C'X& PARAMETER VAX$C_V6210_T = '0000001C'X$ PARAMETER VAX$K_V6210 = '0000001C'X$ PARAMETER VAX$C_V6210 = '0000001C'X$ PARAMETER VAX$C_V3520 = '0000001D'X$ PARAMETER VAX$K_V3520 = '0000001D'X% PARAMETER VAX$C_V3520L = '0000001E'X% PARAMETER VAX$K_V3520L = '0000001E'X# PARAMETER VAX$K_V8PS = '0000001F'X# PARAMETER VAX$C_V8PS = '0000001F'X$ PARAMETER VAX$K_V8840 = '0000001F'X$ PARAMETER VAX$C_V8840 = '0000001F'X# PARAMETER VAX$K_V9RR = '00000020'X# PARAMETER VAX$C_V9RR = '00000020'X% PARAMETER VAX$K_VUV2_S = '00000021'X% PARAMETER VAX$C_VUV2_S = '00000021'X% PARAMETER VAX$K_VUV2_J = '00000022'X% PARAMETER VAX$C_VUV2_J = '00000022'X% PARAMETER VAX$K_VWS2_T = '00000023'X% PARAMETER VAX$C_VWS2_T = '00000023'X% PARAMETER VAX$K_VWS2_J = '00000024'X% PARAMETER VAX$C_VWS2_J = '00000024'X% PARAMETER VAX$K_VWSD_T = '00000025'X% PARAMETER VAX$C_VWSD_T = '00000025'X% PARAMETER VAX$K_VWSD_J = '00000026'X% PARAMETER VAX$C_VWSD_J = '00000026'X(  PARAMETER VAX$K_VUV2000_S = '00000027'X( PARAMETER VAX$C_VUV2000_S = '00000027'X( PARAMETER VAX$K_VUV2000_J = '00000028'X( PARAMETER VAX$C_VUV2000_J = '00000028'X( PARAMETER VAX$K_VWS2000_T = '00000029'X( PARAMETER VAX$C_VWS2000_T = '00000029'X( PARAMETER VAX$K_VWS2000_J = '0000002A'X( PARAMETER VAX$C_VWS2000_J = '0000002A'X) PARAMETER VAX$K_VWSD2000_T = '0000002B'X) PARAMETER VAX$C_VWSD2000_T = '0000002B'X) PARAMETER VAX$K_VWSD2000_J = '0000002C'X) PARAMETER VAX$C_VWSD2000_J = '0000002C'X& PARAMETER VAX$K_V3600_S = '0000002D'X& PARAMETER VAX$C_V3600_S = '0000002D'X& PARAMETER VAX$K_V3600_J = '0000002E'X& PARAMETER VAX$C_V3600_J = '0000002E'X' PARAMETER VAX$K_V3600W_T = '0000002F'X' PARAMETER VAX$C_V3600W_T = '0000002F'X' PARAMETER VAX$K_V3600W_J = '00000030'X' PARAMETER VAX$C_V3600W_J = '00000030'X' PARAMETER VAX$K_V3600D_T = '00000031'X' PARAMETER VAX$C_V3600D_T = '00000031'X' PARAMETER VAX$K_V3600D_J = '00000032'X' PARAMETER VAX$C_V3600D_J = '00000032'X& PAR AMETER VAX$K_V3520_S = '00000033'X& PARAMETER VAX$C_V3520_S = '00000033'X& PARAMETER VAX$K_V3520_J = '00000034'X& PARAMETER VAX$C_V3520_J = '00000034'X' PARAMETER VAX$K_V3520L_T = '00000035'X' PARAMETER VAX$C_V3520L_T = '00000035'X' PARAMETER VAX$K_V3520L_J = '00000036'X' PARAMETER VAX$C_V3520L_J = '00000036'X% PARAMETER VAX$K_V8250L = '00000037'X% PARAMETER VAX$C_V8250L = '00000037'X' PARAMETER VAX$K_V8250L_J = '00000038'X' PARAMETER VAX$C_V8250L_J = '00000038'X" PARAMETER VAX$K_VCV = '00000039'X" PARAMETER VAX$C_VCV = '00000039'X$ PARAMETER VAX$K_VCVWS = '0000003A'X$ PARAMETER VAX$C_VCVWS = '0000003A'X% PARAMETER VAX$K_VCVWSD = '0000003B'X% PARAMETER VAX$C_VCVWSD = '0000003B'X$ PARAMETER VAX$K_VCV_S = '0000003C'X$ PARAMETER VAX$C_VCV_S = '0000003C'X$ PARAMETER VAX$K_VCV_J = '0000003D'X$ PARAMETER VAX$C_VCV_J = '0000003D'X& PARAMETER VAX$K_VCVWS_T = '0000003E'X& PARAMETER VAX$C_VCVWS_T = '0000003E'X& PARAMETER VAX$K_VCVWS_J = '0000003F'X& PARAMETER VAX$C_VCVWS_J = '0000003F'X' PARAMETER VAX$K_VCVWSD_T = '00000040'X' PARAMETER VAX$C_VCVWSD_T = '00000040'X' PARAMETER VAX$K_VCVWSD_J = '00000041'X' PARAMETER VAX$C_VCVWSD_J = '00000041'X$ PARAMETER VAX$C_V8500 = '00000042'X$ PARAMETER VAX$K_V8500 = '00000042'X$ PARAMETER VAX$K_V8370 = '00000043'X$ PARAMETER VAX$C_V8370 = '00000043'X% PARAMETER VAX$K_V8650P = '00000044'X% PARAMETER VAX$C_V8650P = '00000044'X& PARAMETER VAX$K_V6220_T = '00000045'X& PARAMETER VAX$C_V6220_T = '00000045'X$ PARAMETER VAX$K_V6220 = '00000045'X$ PARAMETER VAX$C_V6220 = '00000045'X& PARAMETER VAX$K_V6230_T = '00000046'X& PARAMETER VAX$C_V6230_T = '00000046'X$ PARAMETER VAX$K_V6230 = '00000046'X$ PARAMETER VAX$C_V6230 = '00000046'X& PARAMETER VAX$K_V6240_T = '00000047'X& PARAMETER VAX$C_V6240_T = '00000047'X$ PARAMETER VAX$K_V6240 = '00000047'X$ PARAMETER VAX$C_V6240 = '00000047'X& PARAMETER VAX$K_V6250_T = '00000048'X& PARAMETER VAX$C_V6250_T = '00000048'X$ PARAMETER VAX$K_V6250 = '00000048'X$ PARAMETER VAX$C_V6250 = '00000048'X& PARAMETER VAX$K_V6260_T = '00000049'X& PARAMETER VAX$C_V6260_T = '00000049'X$ PARAMETER VAX$K_V6260 = '00000049'X$ PARAMETER VAX$C_V6260 = '00000049'X& PARAMETER VAX$K_V6270_T = '0000004A'X& PARAMETER VAX$C_V6270_T = '0000004A'X$ PARAMETER VAX$K_V6270 = '0000004A'X$ PARAMETER VAX$C_V6270 = '0000004A'X& PARAMETER VAX$K_V6280_T = '0000004B'X& PARAMETER VAX$C_V6280_T = '0000004B'X$ PARAMETER VAX$K_V6280 = '0000004B'X$ PARAMETER VAX$C_V6280 = '0000004B'X& PARAMETER VAX$K_V6310_T = '0000004C'X& PARAMETER VAX$C_V6310_T = '0000004C'X$ PARAMETER VAX$K_V6215 = '0000004C'X$ PARAMETER VAX$C_V6215 = '0000004C'X& PARAMETER VAX$K_V6320_T = '0000004D'X& PARAMETER VAX$C_V6320_T = '0000004D'X$ PARAMETER VAX$K_V6225 = '0000004D'X$ PARAMETER VAX$C_V6225 = '0000004D'X& PARAMETER VAX$K_V6330_T = '0000004E'X& PARAMETER VAX$C_V6330_T = '0000004E'X$ PARAMETER VAX$K_V6235 = '0000004E'X$ PARAMETER VAX$C_V6235 = '0000004E'X& PARAMETER VAX$K_V6340_T = '0000004F'X& PARAMETER VAX$C_V6340_T = '0000004F'X$ PARAMETER VAX$K_V6245 = '0000004F'X$ PARAMETER VAX$C_V6245 = '0000004F'X& PARAMETER VAX$K_V6350_T = '00000050'X& PARAMETER VAX$C_V6350_T = '00000050'X$ PARAMETER VAX$K_V6255 = '00000050'X$ PARAMETER VAX$C_V6255 = '00000050'X& PARAMETER VAX$K_V6360_T = '00000051'X& PARAMETER VAX$C_V6360_T = '00000051'X$ PARAMETER VAX$K_V6265 = '00000051'X$ PARAMETER VAX$C_V6265 = '00000051'X& PARAMETER VAX$K_V6370_T = '00000052'X& PARAMETER VAX$C_V6370_T = '00000052'X$ PARAMETER VAX$K_V6275 = '00000052'X$ PARAMETER VAX$C_V6275 = '00000052'X& PARAMETER VAX$K_V6380_T = '00000053'X& PARAMETER VAX$C_V6380_T = '00000053'X$ PARAMETER VAX$K_V6285 = '00000053'X$ PARAMETER VAX$C_V6285 = '00000053'X$ PARAMETER VAX$K_V8810 = '00000054'X$ PARAMETER VAX$C_V8810 = '00000054'X$ PARAMETER VAX$K_V8820 = '00000055'X$ PARAMETER VAX$C_V8820 = '00000055'X$ PARAMETER VAX$K_V8830 = '00000056'X$ PARAMETER VAX$C_V8830 = '00000056'X$ PARAMETER VAX$C_V3400 = '00000057'X$ PARAMETER VAX $K_V3400 = '00000057'X% PARAMETER VAX$C_V3400W = '00000058'X% PARAMETER VAX$K_V3400W = '00000058'X% PARAMETER VAX$C_V3400D = '00000059'X% PARAMETER VAX$K_V3400D = '00000059'X& PARAMETER VAX$K_V3400_S = '0000005A'X& PARAMETER VAX$C_V3400_S = '0000005A'X& PARAMETER VAX$K_V3400_J = '0000005B'X& PARAMETER VAX$C_V3400_J = '0000005B'X' PARAMETER VAX$K_V3400W_T = '0000005C'X' PARAMETER VAX$C_V3400W_T = '0000005C'X' PARAMETER VAX$K_V3400W_J = '0000005D'X' PARAMETER VAX$C_V3400W_J = '0000005 D'X' PARAMETER VAX$K_V3400D_T = '0000005E'X' PARAMETER VAX$C_V3400D_T = '0000005E'X' PARAMETER VAX$K_V3400D_J = '0000005F'X' PARAMETER VAX$C_V3400D_J = '0000005F'X( PARAMETER VAX$K_VUV2000_O = '00000060'X( PARAMETER VAX$C_VUV2000_O = '00000060'X( PARAMETER VAX$K_VWS2000_O = '00000061'X( PARAMETER VAX$C_VWS2000_O = '00000061'X) PARAMETER VAX$K_VWSD2000_O = '00000062'X) PARAMETER VAX$C_VWSD2000_O = '00000062'X' PARAMETER VAX$C_VWSK2000 = '00000063'X' PARAMETER VAX$K_VWSK2000 = '00000063'X& PARAMETER VAX$K_V6210_S = '00000064'X& PARAMETER VAX$C_V6210_S = '00000064'X& PARAMETER VAX$K_V6220_S = '00000065'X& PARAMETER VAX$C_V6220_S = '00000065'X& PARAMETER VAX$K_V6230_S = '00000066'X& PARAMETER VAX$C_V6230_S = '00000066'X& PARAMETER VAX$K_V6240_S = '00000067'X& PARAMETER VAX$C_V6240_S = '00000067'X& PARAMETER VAX$K_V6250_S = '00000068'X& PARAMETER VAX$C_V6250_S = '00000068'X& PARAMETER VAX$K_V6260_S = '00000069'X& PARAMETER VAX$C_V6260_S = '00000069'X& PARAMETER VAX$K_V6270_S = '0000006A'X& PARAMETER VAX$C_V6270_S = '0000006A'X& PARAMETER VAX$K_V6280_S = '0000006B'X& PARAMETER VAX$C_V6280_S = '0000006B'X& PARAMETER VAX$K_V6310_S = '0000006C'X& PARAMETER VAX$C_V6310_S = '0000006C'X& PARAMETER VAX$K_V6215_S = '0000006C'X& PARAMETER VAX$C_V6215_S = '0000006C'X& PARAMETER VAX$K_V6320_S = '0000006D'X& PARAMETER VAX$C_V6320_S = '0000006D'X& PARAMETER VAX$K_V6225_S = '0000006D'X& PARAMETER VAX$C_V6225_S = '0000006D'X& PARAMETER VAX$K_V6330_S = '0000006E'X& PAR AMETER VAX$C_V6330_S = '0000006E'X& PARAMETER VAX$K_V6235_S = '0000006E'X& PARAMETER VAX$C_V6235_S = '0000006E'X& PARAMETER VAX$K_V6340_S = '0000006F'X& PARAMETER VAX$C_V6340_S = '0000006F'X& PARAMETER VAX$K_V6245_S = '0000006F'X& PARAMETER VAX$C_V6245_S = '0000006F'X& PARAMETER VAX$K_V6350_S = '00000070'X& PARAMETER VAX$C_V6350_S = '00000070'X& PARAMETER VAX$K_V6255_S = '00000070'X& PARAMETER VAX$C_V6255_S = '00000070'X& PARAMETER VAX$K_V6360_S = '00000071'X& PARAMETER VAX$C_V6360_S = '00000071'X& PARAMETER VAX$K_V6265_S = '00000071'X& PARAMETER VAX$C_V6265_S = '00000071'X& PARAMETER VAX$K_V6370_S = '00000072'X& PARAMETER VAX$C_V6370_S = '00000072'X& PARAMETER VAX$K_V6275_S = '00000072'X& PARAMETER VAX$C_V6275_S = '00000072'X& PARAMETER VAX$K_V6380_S = '00000073'X& PARAMETER VAX$C_V6380_S = '00000073'X& PARAMETER VAX$K_V6285_S = '00000073'X& PARAMETER VAX$C_V6285_S = '00000073'X& PARAMETER VAX$K_V6200_J = '00000074'X& PARAMETER VAX$C_V6200_J = '00000074'X& PARAMETER VAX$K_V6300_J = '00000075'X& PARAMETER VAX$C_V6300_J = '00000075'X& PARAMETER VAX$K_V6205_J = '00000075'X& PARAMETER VAX$C_V6205_J = '00000075'X$ PARAMETER VAX$C_V3900 = '00000076'X$ PARAMETER VAX$K_V3900 = '00000076'X& PARAMETER VAX$K_V3900_S = '00000077'X& PARAMETER VAX$C_V3900_S = '00000077'X% PARAMETER VAX$C_V3900D = '00000078'X% PARAMETER VAX$K_V3900D = '00000078'X' PARAMETER VAX$K_V3900D_T = '00000079'X' PARAMETER VAX$C_V3900D_T = '00000079'X& PARAMETER VAX$K_V3900_J = '0000007A'X& P ARAMETER VAX$C_V3900_J = '0000007A'X' PARAMETER VAX$K_V3900D_J = '0000007B'X' PARAMETER VAX$C_V3900D_J = '0000007B'X% PARAMETER VAX$C_V2000A = '0000007C'X% PARAMETER VAX$K_V2000A = '0000007C'X' PARAMETER VAX$K_V2000A_S = '0000007D'X' PARAMETER VAX$C_V2000A_S = '0000007D'X& PARAMETER VAX$C_V2000AW = '0000007E'X& PARAMETER VAX$K_V2000AW = '0000007E'X& PARAMETER VAX$C_V2000AD = '0000007F'X& PARAMETER VAX$K_V2000AD = '0000007F'X( PARAMETER VAX$K_V2000AW_T = '00000080'X( PARAMETER VAX$C_V 2000AW_T = '00000080'X( PARAMETER VAX$K_V2000AD_T = '00000081'X( PARAMETER VAX$C_V2000AD_T = '00000081'X' PARAMETER VAX$K_V2000A_J = '00000082'X' PARAMETER VAX$C_V2000A_J = '00000082'X( PARAMETER VAX$K_V2000AW_J = '00000083'X( PARAMETER VAX$C_V2000AW_J = '00000083'X( PARAMETER VAX$K_V2000AD_J = '00000084'X( PARAMETER VAX$C_V2000AD_J = '00000084'X$ PARAMETER VAX$C_V3540 = '00000085'X$ PARAMETER VAX$K_V3540 = '00000085'X& PARAMETER VAX$K_V3540_S = '00000086'X& PARAMETER VAX$C_V3540_S = '00000086'X% PARAMETER VAX$C_V3540L = '00000087'X% PARAMETER VAX$K_V3540L = '00000087'X' PARAMETER VAX$K_V3540L_T = '00000088'X' PARAMETER VAX$C_V3540L_T = '00000088'X$ PARAMETER VAX$C_V3560 = '00000089'X$ PARAMETER VAX$K_V3560 = '00000089'X& PARAMETER VAX$K_V3560_S = '0000008A'X& PARAMETER VAX$C_V3560_S = '0000008A'X% PARAMETER VAX$C_V3560L = '0000008B'X% PARAMETER VAX$K_V3560L = '0000008B'X' PARAMETER VAX$K_V3560L_T = '0000008C'X' PARAMETER VAX$C_V3560L_T = '0000008C'X$ PARAMETER VAX$C_V3580 = '0000008D'X$ PARAMETER VAX$K_V3580 = '0000008D'X& PARAMETER VAX$K_V3580_S = '0000008E'X& PARAMETER VAX$C_V3580_S = '0000008E'X% PARAMETER VAX$C_V3580L = '0000008F'X% PARAMETER VAX$K_V3580L = '0000008F'X' PARAMETER VAX$K_V3580L_T = '00000090'X' PARAMETER VAX$C_V3580L_T = '00000090'X$ PARAMETER VAX$C_V35A0 = '00000091'X$ PARAMETER VAX$K_V35A0 = '00000091'X& PARAMETER VAX$K_V35A0_S = '00000092'X& PARAMETER VAX$C_V35A0_S = '00000092'X" PARAMETER VAX$K_VPV = '00000093'X" PARAMETER VAX$C_VPV = '00000093'X$ PARAMETER VAX$K_VPVWS = '00000094'X$ PARAMETER VAX$C_VPVWS = '00000094'X% PARAMETER VAX$K_VPVWSD = '00000095'X% PARAMETER VAX$C_VPVWSD = '00000095'X$ PARAMETER VAX$K_VPV_S = '00000096'X$ PARAMETER VAX$C_VPV_S = '00000096'X$ PARAMETER VAX$K_VPV_J = '00000097'X$ PARAMETER VAX$C_VPV_J = '00000097'X& PARAMETER VAX$K_VPVWS_T = '00000098'X& PARAMETER VAX$C_VPVWS_T = '00000098'X& PARAMETER VAX$K_VPVWS_J = '00000099'X& PARAMETER VAX$C_VPVWS_J = '00000099'X' PARAMET ER VAX$K_VPVWSD_T = '0000009A'X' PARAMETER VAX$C_VPVWSD_T = '0000009A'X' PARAMETER VAX$K_VPVWSD_J = '0000009B'X' PARAMETER VAX$C_VPVWSD_J = '0000009B'X" PARAMETER VAX$K_VTM = '0000009C'X" PARAMETER VAX$C_VTM = '0000009C'X$ PARAMETER VAX$K_VTM_S = '0000009D'X$ PARAMETER VAX$C_VTM_S = '0000009D'X$ PARAMETER VAX$K_VTM_J = '0000009E'X$ PARAMETER VAX$C_VTM_J = '0000009E'X' PARAMETER VAX$K_V9RR10_T = '0000009F'X' PARAMETER VAX$C_V9RR10_T = '0000009F'X' PARAMETER VAX$K_V9RR20_T = '000000A0' X' PARAMETER VAX$C_V9RR20_T = '000000A0'X' PARAMETER VAX$K_V9RR30_T = '000000A1'X' PARAMETER VAX$C_V9RR30_T = '000000A1'X' PARAMETER VAX$K_V9RR40_T = '000000A2'X' PARAMETER VAX$C_V9RR40_T = '000000A2'X' PARAMETER VAX$K_V9RR50_T = '000000A3'X' PARAMETER VAX$C_V9RR50_T = '000000A3'X' PARAMETER VAX$K_V9RR60_T = '000000A4'X' PARAMETER VAX$C_V9RR60_T = '000000A4'X' PARAMETER VAX$K_V9RR70_T = '000000A5'X' PARAMETER VAX$C_V9RR70_T = '000000A5'X' PARAMETER VAX$K_V9RR80_T = '000000A6'X ' PARAMETER VAX$C_V9RR80_T = '000000A6'X' PARAMETER VAX$K_V9RR10_S = '000000A7'X' PARAMETER VAX$C_V9RR10_S = '000000A7'X' PARAMETER VAX$K_V9RR20_S = '000000A8'X' PARAMETER VAX$C_V9RR20_S = '000000A8'X' PARAMETER VAX$K_V9RR30_S = '000000A9'X' PARAMETER VAX$C_V9RR30_S = '000000A9'X' PARAMETER VAX$K_V9RR40_S = '000000AA'X' PARAMETER VAX$C_V9RR40_S = '000000AA'X' PARAMETER VAX$K_V9RR50_S = '000000AB'X' PARAMETER VAX$C_V9RR50_S = '000000AB'X' PARAMETER VAX$K_V9RR60_S = '000000AC'X'  PARAMETER VAX$C_V9RR60_S = '000000AC'X' PARAMETER VAX$K_V9RR70_S = '000000AD'X' PARAMETER VAX$C_V9RR70_S = '000000AD'X' PARAMETER VAX$K_V9RR80_S = '000000AE'X' PARAMETER VAX$C_V9RR80_S = '000000AE'X' PARAMETER VAX$K_V9RR10_J = '000000AF'X' PARAMETER VAX$C_V9RR10_J = '000000AF'X% PARAMETER VAX$K_V9AR10 = '000000B0'X% PARAMETER VAX$C_V9AR10 = '000000B0'X% PARAMETER VAX$K_V9AR20 = '000000B1'X% PARAMETER VAX$C_V9AR20 = '000000B1'X% PARAMETER VAX$K_V9AQ10 = '000000B2'X% PARAMETER V AX$C_V9AQ10 = '000000B2'X% PARAMETER VAX$K_V9AQ20 = '000000B3'X% PARAMETER VAX$C_V9AQ20 = '000000B3'X% PARAMETER VAX$K_V9AQ30 = '000000B4'X% PARAMETER VAX$C_V9AQ30 = '000000B4'X% PARAMETER VAX$K_V9AQ40 = '000000B5'X% PARAMETER VAX$C_V9AQ40 = '000000B5'X' PARAMETER VAX$K_V6305E_T = '000000B6'X' PARAMETER VAX$C_V6305E_T = '000000B6'X' PARAMETER VAX$K_V6305E_S = '000000B7'X' PARAMETER VAX$C_V6305E_S = '000000B7'X' PARAMETER VAX$K_V6305E_J = '000000B8'X' PARAMETER VAX$C_V6305E_J = '000000B8'X' PARAMETER VAX$K_V1202_1T = '000000B9'X' PARAMETER VAX$C_V1202_1T = '000000B9'X' PARAMETER VAX$K_V1202_2T = '000000BA'X' PARAMETER VAX$C_V1202_2T = '000000BA'X' PARAMETER VAX$K_V1202_3T = '000000BB'X' PARAMETER VAX$C_V1202_3T = '000000BB'X' PARAMETER VAX$K_V1202_4T = '000000BC'X' PARAMETER VAX$C_V1202_4T = '000000BC'X' PARAMETER VAX$K_V1202_5T = '000000BD'X' PARAMETER VAX$C_V1202_5T = '000000BD'X' PARAMETER VAX$K_V1202_6T = '000000BE'X' PARAMETER VAX$C_V1202_6T = '0 00000BE'X' PARAMETER VAX$K_V1202_7T = '000000BF'X' PARAMETER VAX$C_V1202_7T = '000000BF'X' PARAMETER VAX$K_V1202_8T = '000000C0'X' PARAMETER VAX$C_V1202_8T = '000000C0'X' PARAMETER VAX$K_V1202_1S = '000000C1'X' PARAMETER VAX$C_V1202_1S = '000000C1'X' PARAMETER VAX$K_V1202_2S = '000000C2'X' PARAMETER VAX$C_V1202_2S = '000000C2'X' PARAMETER VAX$K_V1202_3S = '000000C3'X' PARAMETER VAX$C_V1202_3S = '000000C3'X' PARAMETER VAX$K_V1202_4S = '000000C4'X' PARAMETER VAX$C_V1202_4S = '000 000C4'X' PARAMETER VAX$K_V1202_5S = '000000C5'X' PARAMETER VAX$C_V1202_5S = '000000C5'X' PARAMETER VAX$K_V1202_6S = '000000C6'X' PARAMETER VAX$C_V1202_6S = '000000C6'X' PARAMETER VAX$K_V1202_7S = '000000C7'X' PARAMETER VAX$C_V1202_7S = '000000C7'X' PARAMETER VAX$K_V1202_8S = '000000C8'X' PARAMETER VAX$C_V1202_8S = '000000C8'X' PARAMETER VAX$K_V1202_1J = '000000C9'X' PARAMETER VAX$C_V1202_1J = '000000C9'X& PARAMETER VAX$K_VPV2M_S = '000000CA'X& PARAMETER VAX$C_VPV2M_S = '000000CA'X& PARAMETER VAX$K_VPV2M_T = '000000CB'X& PARAMETER VAX$C_VPV2M_T = '000000CB'X& PARAMETER VAX$K_VPV2M_J = '000000CC'X& PARAMETER VAX$C_VPV2M_J = '000000CC'X& PARAMETER VAX$K_VPV2C_S = '000000CD'X& PARAMETER VAX$C_VPV2C_S = '000000CD'X& PARAMETER VAX$K_VPV2C_T = '000000CE'X& PARAMETER VAX$C_VPV2C_T = '000000CE'X& PARAMETER VAX$K_VPV2C_J = '000000CF'X& PARAMETER VAX$C_VPV2C_J = '000000CF'X% PARAMETER VAX$K_VPV2_S = '000000D0'X% PARAMETER VAX$C_VPV2_S = '000000D0'X% PARAMETER VAX$K_VPV2_T = '000000D1'X% PARAMETER VAX$C_VPV2_T = '000000D1'X% PARAMETER VAX$K_VPV2_J = '000000D2'X% PARAMETER VAX$C_VPV2_J = '000000D2'X$ PARAMETER VAX$K_V4500 = '000000D3'X$ PARAMETER VAX$C_V4500 = '000000D3'X# PARAMETER VAX$C_V670 = '000000D3'X# PARAMETER VAX$K_V670 = '000000D3'X& PARAMETER VAX$K_V4500_S = '000000D4'X& PARAMETER VAX$C_V4500_S = '000000D4'X% PARAMETER VAX$K_V670_S = '000000D4'X% PARAMETER VAX$C_V670_S = '000000D4'X& PARAMETER VAX$K_V4500_J = '000000D5'X& PARAMETER VAX$C _V4500_J = '000000D5'X% PARAMETER VAX$K_V670_J = '000000D5'X% PARAMETER VAX$C_V670_J = '000000D5'X% PARAMETER VAX$K_V520FT = '000000D6'X% PARAMETER VAX$C_V520FT = '000000D6'X' PARAMETER VAX$K_VRMAXM_S = '000000D7'X' PARAMETER VAX$C_VRMAXM_S = '000000D7'X' PARAMETER VAX$K_VRMAXM_T = '000000D8'X' PARAMETER VAX$C_VRMAXM_T = '000000D8'X' PARAMETER VAX$K_VRMAXM_J = '000000D9'X' PARAMETER VAX$C_VRMAXM_J = '000000D9'X' PARAMETER VAX$K_VRMAXS_S = '000000DA'X' PARAMETER VAX$C_VRMAXS_S = '000000DA'X' PARAMETER VAX$K_VRMAXS_T = '000000DB'X' PARAMETER VAX$C_VRMAXS_T = '000000DB'X' PARAMETER VAX$K_VRMAXS_J = '000000DC'X' PARAMETER VAX$C_VRMAXS_J = '000000DC'X& PARAMETER VAX$K_VRMAX_S = '000000DD'X& PARAMETER VAX$C_VRMAX_S = '000000DD'X& PARAMETER VAX$K_VRMAX_T = '000000DE'X& PARAMETER VAX$C_VRMAX_T = '000000DE'X& PARAMETER VAX$K_VRMAX_J = '000000DF'X& PARAMETER VAX$C_VRMAX_J = '000000DF'X' PARAMETER VAX$K_VRMAXD_S = '000000E0'X' PARAMETER VAX$C_VRMAXD_S = '000000E0'X'  PARAMETER VAX$K_VRMAXD_T = '000000E1'X' PARAMETER VAX$C_VRMAXD_T = '000000E1'X' PARAMETER VAX$K_VRMAXD_J = '000000E2'X' PARAMETER VAX$C_VRMAXD_J = '000000E2'X& PARAMETER VAX$K_VPV0S_S = '000000E3'X& PARAMETER VAX$C_VPV0S_S = '000000E3'X& PARAMETER VAX$K_VPV0S_T = '000000E4'X& PARAMETER VAX$C_VPV0S_T = '000000E4'X& PARAMETER VAX$K_VPV0S_J = '000000E5'X& PARAMETER VAX$C_VPV0S_J = '000000E5'X& PARAMETER VAX$K_VPV1S_S = '000000E6'X& PARAMETER VAX$C_VPV1S_S = '000000E6'X& PARAMETER VAX$K_V PV1S_T = '000000E7'X& PARAMETER VAX$C_VPV1S_T = '000000E7'X& PARAMETER VAX$K_VPV1S_J = '000000E8'X& PARAMETER VAX$C_VPV1S_J = '000000E8'X& PARAMETER VAX$K_VPV2S_S = '000000E9'X& PARAMETER VAX$C_VPV2S_S = '000000E9'X& PARAMETER VAX$K_VPV2S_T = '000000EA'X& PARAMETER VAX$C_VPV2S_T = '000000EA'X& PARAMETER VAX$K_VPV2S_J = '000000EB'X& PARAMETER VAX$C_VPV2S_J = '000000EB'X' PARAMETER VAX$K_VKA46M_S = '000000EC'X' PARAMETER VAX$C_VKA46M_S = '000000EC'X' PARAMETER VAX$K_VKA46M_T = '000000ED'X ' PARAMETER VAX$C_VKA46M_T = '000000ED'X' PARAMETER VAX$K_VKA46M_J = '000000EE'X' PARAMETER VAX$C_VKA46M_J = '000000EE'X' PARAMETER VAX$K_VKA46C_S = '000000EF'X' PARAMETER VAX$C_VKA46C_S = '000000EF'X' PARAMETER VAX$K_VKA46C_T = '000000F0'X' PARAMETER VAX$C_VKA46C_T = '000000F0'X' PARAMETER VAX$K_VKA46C_J = '000000F1'X' PARAMETER VAX$C_VKA46C_J = '000000F1'X' PARAMETER VAX$K_VKA46S_S = '000000F2'X' PARAMETER VAX$C_VKA46S_S = '000000F2'X' PARAMETER VAX$K_VKA46S_T = '000000F3'X'  PARAMETER VAX$C_VKA46S_T = '000000F3'X' PARAMETER VAX$K_VKA46S_J = '000000F4'X' PARAMETER VAX$C_VKA46S_J = '000000F4'X& PARAMETER VAX$K_VKA46_S = '000000F5'X& PARAMETER VAX$C_VKA46_S = '000000F5'X& PARAMETER VAX$K_VKA46_T = '000000F6'X& PARAMETER VAX$C_VKA46_T = '000000F6'X& PARAMETER VAX$K_VKA46_J = '000000F7'X& PARAMETER VAX$C_VKA46_J = '000000F7'X# PARAMETER VAX$C_V660 = '000000F8'X# PARAMETER VAX$K_V660 = '000000F8'X% PARAMETER VAX$K_V660_S = '000000F9'X% PARAMETER VAX$C_V660_S = '000000F9'X% PARAMETER VAX$K_V660_J = '000000FA'X% PARAMETER VAX$C_V660_J = '000000FA'X$ PARAMETER VAX$C_V3820 = '000000FB'X$ PARAMETER VAX$K_V3820 = '000000FB'X% PARAMETER VAX$C_V3820L = '000000FC'X% PARAMETER VAX$K_V3820L = '000000FC'X& PARAMETER VAX$K_V3820_S = '000000FD'X& PARAMETER VAX$C_V3820_S = '000000FD'X& PARAMETER VAX$K_V3820_J = '000000FE'X& PARAMETER VAX$C_V3820_J = '000000FE'X' PARAMETER VAX$K_V3820L_T = '000000FF'X' PARAMETER VAX$C_V3820L_T = '000000FF'X' PARAMETER  VAX$K_V3820L_J = '00000100'X' PARAMETER VAX$C_V3820L_J = '00000100'X$ PARAMETER VAX$C_V3840 = '00000101'X$ PARAMETER VAX$K_V3840 = '00000101'X& PARAMETER VAX$K_V3840_S = '00000102'X& PARAMETER VAX$C_V3840_S = '00000102'X% PARAMETER VAX$C_V3840L = '00000103'X% PARAMETER VAX$K_V3840L = '00000103'X' PARAMETER VAX$K_V3840L_T = '00000104'X' PARAMETER VAX$C_V3840L_T = '00000104'X$ PARAMETER VAX$C_V3860 = '00000105'X$ PARAMETER VAX$K_V3860 = '00000105'X& PARAMETER VAX$K_V3860_S = '00000106'X& PARAMETER VAX$C_V3860_S = '00000106'X% PARAMETER VAX$C_V3860L = '00000107'X% PARAMETER VAX$K_V3860L = '00000107'X' PARAMETER VAX$K_V3860L_T = '00000108'X' PARAMETER VAX$C_V3860L_T = '00000108'X$ PARAMETER VAX$C_V3880 = '00000109'X$ PARAMETER VAX$K_V3880 = '00000109'X& PARAMETER VAX$K_V3880_S = '0000010A'X& PARAMETER VAX$C_V3880_S = '0000010A'X% PARAMETER VAX$C_V3880L = '0000010B'X% PARAMETER VAX$K_V3880L = '0000010B'X' PARAMETER VAX$K_V3880L_T = '0000010C'X' PARAMETER VAX$C_V3880L_T = '0000010C'X$ PARAMETER VAX$C_V38A0 = '0000010D'X$ PARAMETER VAX$K_V38A0 = '0000010D'X& PARAMETER VAX$K_V38A0_S = '0000010E'X& PARAMETER VAX$C_V38A0_S = '0000010E'X$ PARAMETER VAX$C_VPV1A = '0000010F'X$ PARAMETER VAX$K_VPV1A = '0000010F'X% PARAMETER VAX$C_VPV1AW = '00000110'X% PARAMETER VAX$K_VPV1AW = '00000110'X% PARAMETER VAX$C_VPV1AD = '00000111'X% PARAMETER VAX$K_VPV1AD = '00000111'X& PARAMETER VAX$C_VPV1A_S = '00000112'X& PARAMETER VAX$K_VPV1A_S = '00000112'X& PARAMETER V AX$K_VPV1A_J = '00000113'X& PARAMETER VAX$C_VPV1A_J = '00000113'X' PARAMETER VAX$K_VPV1AW_T = '00000114'X' PARAMETER VAX$C_VPV1AW_T = '00000114'X' PARAMETER VAX$K_VPV1AW_J = '00000115'X' PARAMETER VAX$C_VPV1AW_J = '00000115'X' PARAMETER VAX$K_VPV1AD_T = '00000116'X' PARAMETER VAX$C_VPV1AD_T = '00000116'X' PARAMETER VAX$K_VPV1AD_J = '00000117'X' PARAMETER VAX$C_VPV1AD_J = '00000117'X% PARAMETER VAX$K_VPV1AS = '00000118'X% PARAMETER VAX$C_VPV1AS = '00000118'X' PARAMETER VAX$K_VPV1AS_T = '00000119'X' PARAMETER VAX$C_VPV1AS_T = '00000119'X' PARAMETER VAX$K_VPV1AS_J = '0000011A'X' PARAMETER VAX$C_VPV1AS_J = '0000011A'X# PARAMETER VAX$C_V690 = '0000011B'X# PARAMETER VAX$K_V690 = '0000011B'X% PARAMETER VAX$K_V690_S = '0000011C'X% PARAMETER VAX$C_V690_S = '0000011C'X% PARAMETER VAX$K_V690_J = '0000011D'X% PARAMETER VAX$C_V690_J = '0000011D'X# PARAMETER VAX$C_V680 = '0000011E'X# PARAMETER VAX$K_V680 = '0000011E'X% PARAMETER VAX$K_V680_S = '0000011F'X% PARAMET ER VAX$C_V680_S = '0000011F'X% PARAMETER VAX$K_V680_J = '00000120'X% PARAMETER VAX$C_V680_J = '00000120'X' PARAMETER VAX$K_V520FT_S = '00000121'X' PARAMETER VAX$C_V520FT_S = '00000121'X' PARAMETER VAX$K_VFT110_T = '00000122'X' PARAMETER VAX$C_VFT110_T = '00000122'X' PARAMETER VAX$K_VFT110_S = '00000123'X' PARAMETER VAX$C_VFT110_S = '00000123'X' PARAMETER VAX$K_VFT210_T = '00000124'X' PARAMETER VAX$C_VFT210_T = '00000124'X' PARAMETER VAX$K_VFT210_S = '00000125'X' PARAMETER VAX$C _VFT210_S = '00000125'X' PARAMETER VAX$K_V1302_1T = '00000126'X' PARAMETER VAX$C_V1302_1T = '00000126'X' PARAMETER VAX$K_V1302_2T = '00000127'X' PARAMETER VAX$C_V1302_2T = '00000127'X' PARAMETER VAX$K_V1302_3T = '00000128'X' PARAMETER VAX$C_V1302_3T = '00000128'X' PARAMETER VAX$K_V1302_4T = '00000129'X' PARAMETER VAX$C_V1302_4T = '00000129'X' PARAMETER VAX$K_V1302_5T = '0000012A'X' PARAMETER VAX$C_V1302_5T = '0000012A'X' PARAMETER VAX$K_V1302_6T = '0000012B'X' PARAMETER VAX$C_V 1302_6T = '0000012B'X' PARAMETER VAX$K_V1302_7T = '0000012C'X' PARAMETER VAX$C_V1302_7T = '0000012C'X' PARAMETER VAX$K_V1302_8T = '0000012D'X' PARAMETER VAX$C_V1302_8T = '0000012D'X' PARAMETER VAX$K_V1302_1S = '0000012E'X' PARAMETER VAX$C_V1302_1S = '0000012E'X' PARAMETER VAX$K_V1302_2S = '0000012F'X' PARAMETER VAX$C_V1302_2S = '0000012F'X' PARAMETER VAX$K_V1302_3S = '00000130'X' PARAMETER VAX$C_V1302_3S = '00000130'X' PARAMETER VAX$K_V1302_4S = '00000131'X' PARAMETER VAX$C_V13 02_4S = '00000131'X' PARAMETER VAX$K_V1302_5S = '00000132'X' PARAMETER VAX$C_V1302_5S = '00000132'X' PARAMETER VAX$K_V1302_6S = '00000133'X' PARAMETER VAX$C_V1302_6S = '00000133'X' PARAMETER VAX$K_V1302_7S = '00000134'X' PARAMETER VAX$C_V1302_7S = '00000134'X' PARAMETER VAX$K_V1302_8S = '00000135'X' PARAMETER VAX$C_V1302_8S = '00000135'X' PARAMETER VAX$K_V1302_1J = '00000136'X' PARAMETER VAX$C_V1302_1J = '00000136'X' PARAMETER VAX$K_V9AQII10 = '00000137'X' PARAMETER VAX$C_V9AQI I10 = '00000137'X' PARAMETER VAX$K_V9AQII20 = '00000138'X' PARAMETER VAX$C_V9AQII20 = '00000138'X' PARAMETER VAX$K_V9AQII30 = '00000139'X' PARAMETER VAX$C_V9AQII30 = '00000139'X' PARAMETER VAX$K_V9AQII40 = '0000013A'X' PARAMETER VAX$C_V9AQII40 = '0000013A'X' PARAMETER VAX$K_V9ARII10 = '0000013B'X' PARAMETER VAX$C_V9ARII10 = '0000013B'X' PARAMETER VAX$K_V9ARII20 = '0000013C'X' PARAMETER VAX$C_V9ARII20 = '0000013C'X( PARAMETER VAX$K_V9AQIII10 = '0000013D'X( PARAMETER VAX$C_V9AQIII 10 = '0000013D'X( PARAMETER VAX$K_V9AQIII20 = '0000013E'X( PARAMETER VAX$C_V9AQIII20 = '0000013E'X( PARAMETER VAX$K_V9AQIII30 = '0000013F'X( PARAMETER VAX$C_V9AQIII30 = '0000013F'X( PARAMETER VAX$K_V9AQIII40 = '00000140'X( PARAMETER VAX$C_V9AQIII40 = '00000140'X( PARAMETER VAX$K_V9ARIII10 = '00000141'X( PARAMETER VAX$C_V9ARIII10 = '00000141'X( PARAMETER VAX$K_V9ARIII20 = '00000142'X( PARAMETER VAX$C_V9ARIII20 = '00000142'X' PARAMETER VAX$K_VFT410_T = '00000143'X' PARAMETER VAX$C_VFT410_T = '00000143'X' PARAMETER VAX$K_VFT410_S = '00000144'X' PARAMETER VAX$C_VFT410_S = '00000144'X' PARAMETER VAX$K_VFT510_T = '00000145'X' PARAMETER VAX$C_VFT510_T = '00000145'X' PARAMETER VAX$K_VFT510_S = '00000146'X' PARAMETER VAX$C_VFT510_S = '00000146'X' PARAMETER VAX$K_VFT610_T = '00000147'X' PARAMETER VAX$C_VFT610_T = '00000147'X' PARAMETER VAX$K_VFT610_S = '00000148'X' PARAMETER VAX$C_VFT610_S = '00000148'X' PARAMETER VAX$K_VFT612_T = '00000149'X' PARAMETER VAX$C_VFT612_T = '00000149'X' PARAMETER VAX$K_VFT612_S = '0000014A'X' PARAMETER VAX$C_VFT612_S = '0000014A'X' PARAMETER VAX$K_VFT710_T = '0000014B'X' PARAMETER VAX$C_VFT710_T = '0000014B'X' PARAMETER VAX$K_VFT710_S = '0000014C'X' PARAMETER VAX$C_VFT710_S = '0000014C'X' PARAMETER VAX$K_VFT712_T = '0000014D'X' PARAMETER VAX$C_VFT712_T = '0000014D'X' PARAMETER VAX$K_VFT712_S = '0000014E'X' PARAMETER VAX$C_VFT712_S = '0000014E'X& PARAMETER VAX$K_VKA48_T = '0000014F'X& PARAMETER VAX$C_VKA48_T = '0000014F'X& PARAMETER VAX$K_VKA48_S = '00000150'X& PARAMETER VAX$C_VKA48_S = '00000150'X& PARAMETER VAX$K_VKA48_J = '00000151'X& PARAMETER VAX$C_VKA48_J = '00000151'X' PARAMETER VAX$K_VKA48W_T = '00000152'X' PARAMETER VAX$C_VKA48W_T = '00000152'X' PARAMETER VAX$K_VKA48W_S = '00000153'X' PARAMETER VAX$C_VKA48W_S = '00000153'X' PARAMETER VAX$K_VKA48W_J = '00000154'X' PARAMETER VAX$C_VKA48W_J = '00000154'X' PARAMETER VAX$K_V9AR10_S = '00000155'X' PARAMETER VAX$C_V9AR10_S = '00000155'X' P ARAMETER VAX$K_V9AR20_S = '00000156'X' PARAMETER VAX$C_V9AR20_S = '00000156'X' PARAMETER VAX$K_V9AQ10_S = '00000157'X' PARAMETER VAX$C_V9AQ10_S = '00000157'X' PARAMETER VAX$K_V9AQ20_S = '00000158'X' PARAMETER VAX$C_V9AQ20_S = '00000158'X' PARAMETER VAX$K_V9AQ30_S = '00000159'X' PARAMETER VAX$C_V9AQ30_S = '00000159'X' PARAMETER VAX$K_V9AQ40_S = '0000015A'X' PARAMETER VAX$C_V9AQ40_S = '0000015A'X) PARAMETER VAX$K_V9ARII10_S = '0000015B'X) PARAMETER VAX$C_V9ARII10_S = '0000015B'X)  PARAMETER VAX$K_V9ARII20_S = '0000015C'X) PARAMETER VAX$C_V9ARII20_S = '0000015C'X) PARAMETER VAX$K_V9AQII10_S = '0000015D'X) PARAMETER VAX$C_V9AQII10_S = '0000015D'X) PARAMETER VAX$K_V9AQII20_S = '0000015E'X) PARAMETER VAX$C_V9AQII20_S = '0000015E'X) PARAMETER VAX$K_V9AQII30_S = '0000015F'X) PARAMETER VAX$C_V9AQII30_S = '0000015F'X) PARAMETER VAX$K_V9AQII40_S = '00000160'X) PARAMETER VAX$C_V9AQII40_S = '00000160'X* PARAMETER VAX$K_V9ARIII10_S = '00000161'X* PARAMETER VAX$C_V9ARI II10_S = '00000161'X* PARAMETER VAX$K_V9ARIII20_S = '00000162'X* PARAMETER VAX$C_V9ARIII20_S = '00000162'X* PARAMETER VAX$K_V9AQIII10_S = '00000163'X* PARAMETER VAX$C_V9AQIII10_S = '00000163'X* PARAMETER VAX$K_V9AQIII20_S = '00000164'X* PARAMETER VAX$C_V9AQIII20_S = '00000164'X* PARAMETER VAX$K_V9AQIII30_S = '00000165'X* PARAMETER VAX$C_V9AQIII30_S = '00000165'X* PARAMETER VAX$K_V9AQIII40_S = '00000166'X* PARAMETER VAX$C_V9AQIII40_S = '00000166'X' PARAMETER VAX$K_V1701_1T = '00000167'X' P ARAMETER VAX$C_V1701_1T = '00000167'X' PARAMETER VAX$K_V1701_2T = '00000168'X' PARAMETER VAX$C_V1701_2T = '00000168'X' PARAMETER VAX$K_V1701_3T = '00000169'X' PARAMETER VAX$C_V1701_3T = '00000169'X' PARAMETER VAX$K_V1701_4T = '0000016A'X' PARAMETER VAX$C_V1701_4T = '0000016A'X' PARAMETER VAX$K_V1701_5T = '0000016B'X' PARAMETER VAX$C_V1701_5T = '0000016B'X' PARAMETER VAX$K_V1701_6T = '0000016C'X' PARAMETER VAX$C_V1701_6T = '0000016C'X' PARAMETER VAX$K_V1701_7T = '0000016D'X' PAR AMETER VAX$C_V1701_7T = '0000016D'X' PARAMETER VAX$K_V1701_8T = '0000016E'X' PARAMETER VAX$C_V1701_8T = '0000016E'X' PARAMETER VAX$K_V1701_1S = '0000016F'X' PARAMETER VAX$C_V1701_1S = '0000016F'X' PARAMETER VAX$K_V1701_2S = '00000170'X' PARAMETER VAX$C_V1701_2S = '00000170'X' PARAMETER VAX$K_V1701_3S = '00000171'X' PARAMETER VAX$C_V1701_3S = '00000171'X' PARAMETER VAX$K_V1701_4S = '00000172'X' PARAMETER VAX$C_V1701_4S = '00000172'X' PARAMETER VAX$K_V1701_5S = '00000173'X' PARAM ETER VAX$C_V1701_5S = '00000173'X' PARAMETER VAX$K_V1701_6S = '00000174'X' PARAMETER VAX$C_V1701_6S = '00000174'X' PARAMETER VAX$K_V1701_7S = '00000175'X' PARAMETER VAX$C_V1701_7S = '00000175'X' PARAMETER VAX$K_V1701_8S = '00000176'X' PARAMETER VAX$C_V1701_8S = '00000176'X' PARAMETER VAX$K_V1701_1J = '00000177'X' PARAMETER VAX$C_V1701_1J = '00000177'X' PARAMETER VAX$K_VKA49C_S = '00000178'X' PARAMETER VAX$C_VKA49C_S = '00000178'X' PARAMETER VAX$K_VKA49C_T = '00000179'X' PARAMET ER VAX$C_VKA49C_T = '00000179'X' PARAMETER VAX$K_VKA49C_J = '0000017A'X' PARAMETER VAX$C_VKA49C_J = '0000017A'X' PARAMETER VAX$K_VKA49S_S = '0000017B'X' PARAMETER VAX$C_VKA49S_S = '0000017B'X' PARAMETER VAX$K_VKA49S_T = '0000017C'X' PARAMETER VAX$C_VKA49S_T = '0000017C'X' PARAMETER VAX$K_VKA49S_J = '0000017D'X' PARAMETER VAX$C_VKA49S_J = '0000017D'X$ PARAMETER VAX$C_VKA50 = '0000017E'X$ PARAMETER VAX$K_VKA50 = '0000017E'X& PARAMETER VAX$K_VKA50_S = '0000017F'X& PARAMETER VAX$C_VKA50_S = '0000017F'X& PARAMETER VAX$K_VKA50_J = '00000180'X& PARAMETER VAX$C_VKA50_J = '00000180'X$ PARAMETER VAX$C_VKA51 = '00000181'X$ PARAMETER VAX$K_VKA51 = '00000181'X& PARAMETER VAX$K_VKA51_S = '00000182'X& PARAMETER VAX$C_VKA51_S = '00000182'X& PARAMETER VAX$K_VKA51_J = '00000183'X& PARAMETER VAX$C_VKA51_J = '00000183'X$ PARAMETER VAX$C_VKA52 = '00000184'X$ PARAMETER VAX$K_VKA52 = '00000184'X& PARAMETER VAX$K_VKA52_S = '00000185'X& PARAMETER VAX$C_VKA52_S = '00000185'X& PARAMETER VAX $K_VKA52_J = '00000186'X& PARAMETER VAX$C_VKA52_J = '00000186'X$ PARAMETER VAX$C_VKA53 = '00000187'X$ PARAMETER VAX$K_VKA53 = '00000187'X& PARAMETER VAX$K_VKA53_S = '00000188'X& PARAMETER VAX$C_VKA53_S = '00000188'X& PARAMETER VAX$K_VKA53_J = '00000189'X& PARAMETER VAX$C_VKA53_J = '00000189'X% PARAMETER VAX$C_VKA675 = '0000018A'X% PARAMETER VAX$K_VKA675 = '0000018A'X' PARAMETER VAX$K_VKA675_S = '0000018B'X' PARAMETER VAX$C_VKA675_S = '0000018B'X' PARAMETER VAX$K_VKA675_J = '0000018C'X ' PARAMETER VAX$C_VKA675_J = '0000018C'X' PARAMETER VAX$K_V1703_1T = '0000018D'X' PARAMETER VAX$C_V1703_1T = '0000018D'X' PARAMETER VAX$K_V1703_2T = '0000018E'X' PARAMETER VAX$C_V1703_2T = '0000018E'X' PARAMETER VAX$K_V1703_3T = '0000018F'X' PARAMETER VAX$C_V1703_3T = '0000018F'X' PARAMETER VAX$K_V1703_4T = '00000190'X' PARAMETER VAX$C_V1703_4T = '00000190'X' PARAMETER VAX$K_V1703_5T = '00000191'X' PARAMETER VAX$C_V1703_5T = '00000191'X' PARAMETER VAX$K_V1703_6T = '00000192'X'  PARAMETER VAX$C_V1703_6T = '00000192'X' PARAMETER VAX$K_V1703_7T = '00000193'X' PARAMETER VAX$C_V1703_7T = '00000193'X' PARAMETER VAX$K_V1703_8T = '00000194'X' PARAMETER VAX$C_V1703_8T = '00000194'X' PARAMETER VAX$K_V1703_1S = '00000195'X' PARAMETER VAX$C_V1703_1S = '00000195'X' PARAMETER VAX$K_V1703_2S = '00000196'X' PARAMETER VAX$C_V1703_2S = '00000196'X' PARAMETER VAX$K_V1703_3S = '00000197'X' PARAMETER VAX$C_V1703_3S = '00000197'X' PARAMETER VAX$K_V1703_4S = '00000198'X' P ARAMETER VAX$C_V1703_4S = '00000198'X' PARAMETER VAX$K_V1703_5S = '00000199'X' PARAMETER VAX$C_V1703_5S = '00000199'X' PARAMETER VAX$K_V1703_6S = '0000019A'X' PARAMETER VAX$C_V1703_6S = '0000019A'X' PARAMETER VAX$K_V1703_7S = '0000019B'X' PARAMETER VAX$C_V1703_7S = '0000019B'X' PARAMETER VAX$K_V1703_8S = '0000019C'X' PARAMETER VAX$C_V1703_8S = '0000019C'X' PARAMETER VAX$K_V1703_1J = '0000019D'X' PARAMETER VAX$C_V1703_1J = '0000019D'X' PARAMETER VAX$K_VPCVAX_T = '0000019E'X' PAR AMETER VAX$C_VPCVAX_T = '0000019E'X' PARAMETER VAX$K_VPCVAX_J = '0000019F'X' PARAMETER VAX$C_VPCVAX_J = '0000019F'X' PARAMETER VAX$K_V1704_1T = '000001A0'X' PARAMETER VAX$C_V1704_1T = '000001A0'X' PARAMETER VAX$K_V1704_2T = '000001A1'X' PARAMETER VAX$C_V1704_2T = '000001A1'X' PARAMETER VAX$K_V1704_3T = '000001A2'X' PARAMETER VAX$C_V1704_3T = '000001A2'X' PARAMETER VAX$K_V1704_4T = '000001A3'X' PARAMETER VAX$C_V1704_4T = '000001A3'X' PARAMETER VAX$K_V1704_5T = '000001A4'X' PARAM ETER VAX$C_V1704_5T = '000001A4'X' PARAMETER VAX$K_V1704_6T = '000001A5'X' PARAMETER VAX$C_V1704_6T = '000001A5'X' PARAMETER VAX$K_V1704_7T = '000001A6'X' PARAMETER VAX$C_V1704_7T = '000001A6'X' PARAMETER VAX$K_V1704_8T = '000001A7'X' PARAMETER VAX$C_V1704_8T = '000001A7'X' PARAMETER VAX$K_V1704_1S = '000001A8'X' PARAMETER VAX$C_V1704_1S = '000001A8'X' PARAMETER VAX$K_V1704_2S = '000001A9'X' PARAMETER VAX$C_V1704_2S = '000001A9'X' PARAMETER VAX$K_V1704_3S = '000001AA'X' PARAMET ER VAX$C_V1704_3S = '000001AA'X' PARAMETER VAX$K_V1704_4S = '000001AB'X' PARAMETER VAX$C_V1704_4S = '000001AB'X' PARAMETER VAX$K_V1704_5S = '000001AC'X' PARAMETER VAX$C_V1704_5S = '000001AC'X' PARAMETER VAX$K_V1704_6S = '000001AD'X' PARAMETER VAX$C_V1704_6S = '000001AD'X' PARAMETER VAX$K_V1704_7S = '000001AE'X' PARAMETER VAX$C_V1704_7S = '000001AE'X' PARAMETER VAX$K_V1704_8S = '000001AF'X' PARAMETER VAX$C_V1704_8S = '000001AF'X' PARAMETER VAX$K_V1704_1J = '000001B0'X' PARAMETER  VAX$C_V1704_1J = '000001B0'X' PARAMETER VAX$K_V1705_1T = '000001B1'X' PARAMETER VAX$C_V1705_1T = '000001B1'X' PARAMETER VAX$K_V1705_2T = '000001B2'X' PARAMETER VAX$C_V1705_2T = '000001B2'X' PARAMETER VAX$K_V1705_3T = '000001B3'X' PARAMETER VAX$C_V1705_3T = '000001B3'X' PARAMETER VAX$K_V1705_4T = '000001B4'X' PARAMETER VAX$C_V1705_4T = '000001B4'X' PARAMETER VAX$K_V1705_5T = '000001B5'X' PARAMETER VAX$C_V1705_5T = '000001B5'X' PARAMETER VAX$K_V1705_6T = '000001B6'X' PARAMETER V AX$C_V1705_6T = '000001B6'X' PARAMETER VAX$K_V1705_7T = '000001B7'X' PARAMETER VAX$C_V1705_7T = '000001B7'X' PARAMETER VAX$K_V1705_8T = '000001B8'X' PARAMETER VAX$C_V1705_8T = '000001B8'X' PARAMETER VAX$K_V1705_1S = '000001B9'X' PARAMETER VAX$C_V1705_1S = '000001B9'X' PARAMETER VAX$K_V1705_2S = '000001BA'X' PARAMETER VAX$C_V1705_2S = '000001BA'X' PARAMETER VAX$K_V1705_3S = '000001BB'X' PARAMETER VAX$C_V1705_3S = '000001BB'X' PARAMETER VAX$K_V1705_4S = '000001BC'X' PARAMETER VAX $C_V1705_4S = '000001BC'X' PARAMETER VAX$K_V1705_5S = '000001BD'X' PARAMETER VAX$C_V1705_5S = '000001BD'X' PARAMETER VAX$K_V1705_6S = '000001BE'X' PARAMETER VAX$C_V1705_6S = '000001BE'X' PARAMETER VAX$K_V1705_7S = '000001BF'X' PARAMETER VAX$C_V1705_7S = '000001BF'X' PARAMETER VAX$K_V1705_8S = '000001C0'X' PARAMETER VAX$C_V1705_8S = '000001C0'X' PARAMETER VAX$K_V1705_1J = '000001C1'X' PARAMETER VAX$C_V1705_1J = '000001C1'X% PARAMETER VAX$C_VKA676 = '000001C2'X% PARAMETER VAX$K_V KA676 = '000001C2'X' PARAMETER VAX$K_VKA676_S = '000001C3'X' PARAMETER VAX$C_VKA676_S = '000001C3'X' PARAMETER VAX$K_VKA676_J = '000001C4'X' PARAMETER VAX$C_VKA676_J = '000001C4'X% PARAMETER VAX$C_VKA681 = '000001C5'X% PARAMETER VAX$K_VKA681 = '000001C5'X' PARAMETER VAX$K_VKA681_S = '000001C6'X' PARAMETER VAX$C_VKA681_S = '000001C6'X' PARAMETER VAX$K_VKA681_J = '000001C7'X' PARAMETER VAX$C_VKA681_J = '000001C7'X% PARAMETER VAX$C_VKA691 = '000001C8'X% PARAMETER VAX$K_VKA691 = '0 00001C8'X' PARAMETER VAX$K_VKA691_S = '000001C9'X' PARAMETER VAX$C_VKA691_S = '000001C9'X' PARAMETER VAX$K_VKA691_J = '000001CA'X' PARAMETER VAX$C_VKA691_J = '000001CA'X% PARAMETER VAX$C_VKA692 = '000001CB'X% PARAMETER VAX$K_VKA692 = '000001CB'X' PARAMETER VAX$K_VKA692_S = '000001CC'X' PARAMETER VAX$C_VKA692_S = '000001CC'X' PARAMETER VAX$K_VKA692_J = '000001CD'X' PARAMETER VAX$C_VKA692_J = '000001CD'X% PARAMETER VAX$C_VKA600 = '000001CE'X% PARAMETER VAX$K_VKA600 = '000001CE'X ' PARAMETER VAX$K_VKA600_S = '000001CF'X' PARAMETER VAX$C_VKA600_S = '000001CF'X' PARAMETER VAX$K_VKA600_J = '000001D0'X' PARAMETER VAX$C_VKA600_J = '000001D0'X% PARAMETER VAX$C_VKA605 = '000001D1'X% PARAMETER VAX$K_VKA605 = '000001D1'X' PARAMETER VAX$K_VKA605_S = '000001D2'X' PARAMETER VAX$C_VKA605_S = '000001D2'X' PARAMETER VAX$K_VKA605_J = '000001D3'X' PARAMETER VAX$C_VKA605_J = '000001D3'X% PARAMETER VAX$C_VKA52A = '000001D4'X% PARAMETER VAX$K_VKA52A = '000001D4'X' PARAMET ER VAX$K_VKA52A_S = '000001D5'X' PARAMETER VAX$C_VKA52A_S = '000001D5'X' PARAMETER VAX$K_VKA52A_J = '000001D6'X' PARAMETER VAX$C_VKA52A_J = '000001D6'X' PARAMETER VAX$K_VFT810_T = '000001D7'X' PARAMETER VAX$C_VFT810_T = '000001D7'X' PARAMETER VAX$K_VFT810_S = '000001D8'X' PARAMETER VAX$C_VFT810_S = '000001D8'X' PARAMETER VAX$K_VFT812_T = '000001D9'X' PARAMETER VAX$C_VFT812_T = '000001D9'X' PARAMETER VAX$K_VFT812_S = '000001DA'X' PARAMETER VAX$C_VFT812_S = '000001DA'X( PARAMETER  VAX$K_VKA49AC_S = '000001DB'X( PARAMETER VAX$C_VKA49AC_S = '000001DB'X( PARAMETER VAX$K_VKA49AC_T = '000001DC'X( PARAMETER VAX$C_VKA49AC_T = '000001DC'X( PARAMETER VAX$K_VKA49AC_J = '000001DD'X( PARAMETER VAX$C_VKA49AC_J = '000001DD'X( PARAMETER VAX$K_VKA49AS_S = '000001DE'X( PARAMETER VAX$C_VKA49AS_S = '000001DE'X( PARAMETER VAX$K_VKA49AS_T = '000001DF'X( PARAMETER VAX$C_VKA49AS_T = '000001DF'X( PARAMETER VAX$K_VKA49AS_J = '000001E0'X( PARAMETER VAX$C_VKA49AS_J = '000001E0'X( PARAMETER V AX$K_VKA49BC_S = '000001E1'X( PARAMETER VAX$C_VKA49BC_S = '000001E1'X( PARAMETER VAX$K_VKA49BC_T = '000001E2'X( PARAMETER VAX$C_VKA49BC_T = '000001E2'X( PARAMETER VAX$K_VKA49BC_J = '000001E3'X( PARAMETER VAX$C_VKA49BC_J = '000001E3'X( PARAMETER VAX$K_VKA49BS_S = '000001E4'X( PARAMETER VAX$C_VKA49BS_S = '000001E4'X( PARAMETER VAX$K_VKA49BS_T = '000001E5'X( PARAMETER VAX$C_VKA49BS_T = '000001E5'X( PARAMETER VAX$K_VKA49BS_J = '000001E6'X( PARAMETER VAX$C_VKA49BS_J = '000001E6'X$ PARAMETER VAX$C_VKA54 = '000001E7'X$ PARAMETER VAX$K_VKA54 = '000001E7'X& PARAMETER VAX$K_VKA54_S = '000001E8'X& PARAMETER VAX$C_VKA54_S = '000001E8'X& PARAMETER VAX$K_VKA54_J = '000001E9'X& PARAMETER VAX$C_VKA54_J = '000001E9'X$ PARAMETER VAX$C_VKA55 = '000001EA'X$ PARAMETER VAX$K_VKA55 = '000001EA'X& PARAMETER VAX$K_VKA55_S = '000001EB'X& PARAMETER VAX$C_VKA55_S = '000001EB'X& PARAMETER VAX$K_VKA55_J = '000001EC'X& PARAMETER VAX$C_VKA55_J = '000001EC'X$ PARAMETER VAX$C_VKA56 = '000001ED'X$ PARAMETER  VAX$K_VKA56 = '000001ED'X& PARAMETER VAX$K_VKA56_S = '000001EE'X& PARAMETER VAX$C_VKA56_S = '000001EE'X& PARAMETER VAX$K_VKA56_J = '000001EF'X& PARAMETER VAX$C_VKA56_J = '000001EF'X% PARAMETER VAX$C_VKA694 = '000001F0'X% PARAMETER VAX$K_VKA694 = '000001F0'X' PARAMETER VAX$K_VKA694_S = '000001F1'X' PARAMETER VAX$C_VKA694_S = '000001F1'X' PARAMETER VAX$K_VKA694_J = '000001F2'X' PARAMETER VAX$C_VKA694_J = '000001F2'X' PARAMETER VAX$K_v1706_1T = '000001F3'X' PARAMETER VAX$C_v1706_1T = '000001F3'X' PARAMETER VAX$K_v1706_2T = '000001F4'X' PARAMETER VAX$C_v1706_2T = '000001F4'X' PARAMETER VAX$K_v1706_3T = '000001F5'X' PARAMETER VAX$C_v1706_3T = '000001F5'X' PARAMETER VAX$K_v1706_4T = '000001F6'X' PARAMETER VAX$C_v1706_4T = '000001F6'X' PARAMETER VAX$K_v1706_5T = '000001F7'X' PARAMETER VAX$C_v1706_5T = '000001F7'X' PARAMETER VAX$K_v1706_6T = '000001F8'X' PARAMETER VAX$C_v1706_6T = '000001F8'X' PARAMETER VAX$K_v1706_7T = '000001F9'X' PARAMETER VAX$C_v1706_7T = '0 00001F9'X' PARAMETER VAX$K_v1706_8T = '000001FA'X' PARAMETER VAX$C_v1706_8T = '000001FA'X' PARAMETER VAX$K_v1706_1S = '000001FB'X' PARAMETER VAX$C_v1706_1S = '000001FB'X' PARAMETER VAX$K_v1706_2S = '000001FC'X' PARAMETER VAX$C_v1706_2S = '000001FC'X' PARAMETER VAX$K_v1706_3S = '000001FD'X' PARAMETER VAX$C_v1706_3S = '000001FD'X' PARAMETER VAX$K_v1706_4S = '000001FE'X' PARAMETER VAX$C_v1706_4S = '000001FE'X' PARAMETER VAX$K_v1706_5S = '000001FF'X' PARAMETER VAX$C_v1706_5S = '000 001FF'X' PARAMETER VAX$K_v1706_6S = '00000200'X' PARAMETER VAX$C_v1706_6S = '00000200'X' PARAMETER VAX$K_v1706_7S = '00000201'X' PARAMETER VAX$C_v1706_7S = '00000201'X' PARAMETER VAX$K_v1706_8S = '00000202'X' PARAMETER VAX$C_v1706_8S = '00000202'X' PARAMETER VAX$K_v1706_1J = '00000203'X' PARAMETER VAX$C_v1706_1J = '00000203'X' PARAMETER VAX$K_v1707_1T = '00000204'X' PARAMETER VAX$C_v1707_1T = '00000204'X' PARAMETER VAX$K_v1707_2T = '00000205'X' PARAMETER VAX$C_v1707_2T = '00000 205'X' PARAMETER VAX$K_v1707_3T = '00000206'X' PARAMETER VAX$C_v1707_3T = '00000206'X' PARAMETER VAX$K_v1707_4T = '00000207'X' PARAMETER VAX$C_v1707_4T = '00000207'X' PARAMETER VAX$K_v1707_5T = '00000208'X' PARAMETER VAX$C_v1707_5T = '00000208'X' PARAMETER VAX$K_v1707_6T = '00000209'X' PARAMETER VAX$C_v1707_6T = '00000209'X' PARAMETER VAX$K_v1707_7T = '0000020A'X' PARAMETER VAX$C_v1707_7T = '0000020A'X' PARAMETER VAX$K_v1707_8T = '0000020B'X' PARAMETER VAX$C_v1707_8T = '0000020 B'X' PARAMETER VAX$K_v1707_1S = '0000020C'X' PARAMETER VAX$C_v1707_1S = '0000020C'X' PARAMETER VAX$K_v1707_2S = '0000020D'X' PARAMETER VAX$C_v1707_2S = '0000020D'X' PARAMETER VAX$K_v1707_3S = '0000020E'X' PARAMETER VAX$C_v1707_3S = '0000020E'X' PARAMETER VAX$K_v1707_4S = '0000020F'X' PARAMETER VAX$C_v1707_4S = '0000020F'X' PARAMETER VAX$K_v1707_5S = '00000210'X' PARAMETER VAX$C_v1707_5S = '00000210'X' PARAMETER VAX$K_v1707_6S = '00000211'X' PARAMETER VAX$C_v1707_6S = '00000211'X' PARAMETER VAX$K_v1707_7S = '00000212'X' PARAMETER VAX$C_v1707_7S = '00000212'X' PARAMETER VAX$K_v1707_8S = '00000213'X' PARAMETER VAX$C_v1707_8S = '00000213'X' PARAMETER VAX$K_v1707_1J = '00000214'X' PARAMETER VAX$C_v1707_1J = '00000214'X$ PARAMETER VAX$C_VKA57 = '00000215'X$ PARAMETER VAX$K_VKA57 = '00000215'X& PARAMETER VAX$K_VKA57_S = '00000216'X& PARAMETER VAX$C_VKA57_S = '00000216'X& PARAMETER VAX$K_VKA57_J = '00000217'X& PARAMETER VAX$C_VKA57_J = '00000217'X$ PARAMETER VAX$C_VKA58 = '00000218'X$ PARAMETER VAX$K_VKA58 = '00000218'X& PARAMETER VAX$K_VKA58_S = '00000219'X& PARAMETER VAX$C_VKA58_S = '00000219'X& PARAMETER VAX$K_VKA58_J = '0000021A'X& PARAMETER VAX$C_VKA58_J = '0000021A'X$ PARAMETER VAX$C_VKA59 = '0000021B'X$ PARAMETER VAX$K_VKA59 = '0000021B'X& PARAMETER VAX$K_VKA59_S = '0000021C'X& PARAMETER VAX$C_VKA59_S = '0000021C'X& PARAMETER VAX$K_VKA59_J = '0000021D'X& PARAMETER VAX$C_VKA59_J = '0000021D'X( PARAMETER VAX$C_MAX_MODEL = '0000021D'X( PARAMETER VAX$K_MAX_MODEL = '0000021D'X!DEC$ END OPTIONS wwnPUΦ!*** MODULE $VA_RANGEDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +6 ! Define the 32-bit virtual address range structure. ! - STRUCTURE /VA_RANGE/A INTEGER*4 VA_RANGE$PS_START_VA ! Starting virtual addressD INTEGER*4 VA_RANGE$PS_END_VA ! Ending (last) virtual address END STRUCTURE ! VA_RANGEK PARAMETER VA_RANGE$K_LENGTH = '00000008'X ! Length of VA_RANGE structureK PARAMETER VA_RANGE$C_LENGTH = '00000008'X ! Length of VA_RANGE structure!DEC$ END OPTIONS wwUΦ"!*** MODULE $WWIDDEF IDENT X-4 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! P ! Longword header prefixed to the World-Wide Identifier used in fibre channel.P ! A WWID can be in any one of the eleven formats specified here. At this timeN ! though, only seven of these formats (WWID types 1-4, 9-11) are implemented ! in OpenVMS. ! M ! No te that this is a common header, used by OpenVMS, Digital UNIX, and theO ! Console. Any changes to this structure should be made in cooperation with  ! these other groups. ! . PARAMETER WWIDHDR$M_WWID_LENGTH = '000FFFFF'X- PARAMETER WWIDHDR$M_ASCII_DATA = '00100000'X, PARAMETER WWIDHDR$M_WWID_TYPE = 'FF000000'XR PARAMETER WWIDHDR$K_IEEE_REGEXT = '00000001'X ! 1: Page83, ID type 3, NAA 0110O PARAMETER WWIDHDR$K_IEEE_REG = '00000002'X ! 2: Page83, ID type 3, NAA 0101L PARAMETER WWIDHDR$K_PG83TY1_VID = '00000003'X ! 3: PID+Page83, ID type 1S PARAMETER WWIDHDR$K_PG80_SERIALNO = '00000004'X ! 4: VID+PID+Ser_No from Page80Z PARAMETER WWIDHDR$K_INQ_SERIALNO = '00000005'X ! 5: VID+PID+Ser_No from std. inq. dataN PARAMETER WWIDHDR$K_TGT_IDENT = '00000006'X ! 6: VID+PID+Persistent_Tgt_IDH PARAMETER WWIDHDR$K_BTL = '00000007'X ! 7: VID+PID+Bus_No+Tgt_ID+LUNO PARAMETER WWIDHDR$K_DEC_UNIQUE = '00000008'X ! 8: HSZ-specific serial no's.Y PARAMETER WWIDHDR$K_HSZ_THISOTHER = '00000009'X ! 9: THIS/OTHER ser. no. (older HSZs)R PARAMETER WWIDHDR$K_IEEE48_VEXT = '0000000A'X ! 10: Page83, ID type 3, NAA 0010R PARAMETER WWIDHDR$K_IEEE48_0EXT = '0000000B'X ! 11: Page83, ID type 3, NAA 0001G PARAMETER WWIDHDR$K_IEEE_EUI64 = '0000000C'X ! 12: Page83, ID type 2D PARAMETER WWIDHDR$K_ISCSI_NAME = '0000000D'X ! 13: X-4 iSCSI Name STRUCTURE /WWIDHDR/- PARAMETER WWIDHDR$S_WWID_LENGTH = 20D PARAMETER WWIDHDR$V_WWID_LENGTH = 0 ! Length of WWID data+ PARAMETER WWIDHDR$S_ASCII_DATA = 1H PARAMETER WWIDHDR$V_ASCII_DATA = 20 ! Data is in ASCII format* PARAMETER WWIDHDR$S_RESERVED1 = 38 PARAMETER WWIDHDR$V_RESERVED1 = 21 ! Reserved* PARAMETER WWIDHDR$S_WWID_TYPE = 8+ PARAMETER WWIDHDR$V_WWID_TYPE = 24/ BYTE %FILL (4) ! WWID format type END STRUCTURE ! WWIDHDR !  ! World-Wide Identifier ! L ! Includes the 4-byte header defined above and the body of the WWID. The J ! largest WWID is currently the type that includes Vendor ID (8 bytes), L ! Product ID (16 bytes), and Serial Number (up to 251 bytes). Rounding upB ! to the nearest quadword boundary, this comes out to 276 bytes. !  STRUCTURE /WWID/# RECORD /WWIDHDR/ WWID$R_HEADER! BYTE WWID$B_DATA(1:276) END STRUCTURE ! WWID& PARAMETER WWID$K_LENGTH = '00000118'X !  ! Serial Number WWID ! J ! This is the WWID that gets put together from both standard and Page 80P ! inquiry data. The Product ID and Vendor ID come from standard inquiry data.O ! The Serial Number comes from Vital Product Data Page 80. The Header is the' ! standard WWID header defined above. !  STRUCTURE /SN_WWID/& RECORD /WWIDHDR/ SN_WWID$R_HEADER' BYTE SN_WWID$B_VENDOR_ID(1:8)) BYTE SN_WWID$B_PRODUCT_ID(1:16)) BYTE SN_WWID$B_SERIAL_NO(1:252) END STRUCTURE ! SN_WWID) PARAMETER SN_WWID$K_LENGTH = '00000118'X ! I ! The longest WWID  is one that is made from the device's serial number, ! product ID, and vendor ID.@ ! 4 8 16 <= 252Q ! +------+------------+-------------------+-----------------------------------+Q ! |Header| Vendor | Product | Serial Number |Q ! +------+------------+-------------------+-----------------------------------+ ! < ! Maximum WWID length comes out to 4+8+16+252 = 280 bytes. ! * PARAMETER WWID$K_MAX_LENGTH = '00000118'X !  ! WWID Table Entry ! K ! The WWID table is created during boot by EXEC_INIT and is used by both N ! EXEC_INIT and, later on in the boot, STACONFIG. The table stores informa-P ! tion about all devices that have been registered by the user at the console. !  STRUCTURE /WWIDENT/ INTEGER*4 WWIDENT$L_UNIT_NO INTEGER*4 WWIDENT$L_DNP INTEGER*4 WWIDENT$L_WWIDLEN* RECORD /WWIDHDR/ WWIDENT$R_HEADER* BYTE WWIDENT$B_FCWWID(1:112)  END STRUCTURE ! WWIDENT) PARAMETER WWIDENT$K_LENGTH = '00000080'XO PARAMETER WWIDTBL$K_MAX_ENTRIES = '000003E8'X ! Max. entries in a WWID Table ! K ! This structure points to a Fibre Channel adapter ID. This WWID differsK ! from the other WWIDs in this file in that it is obtained directly from O ! the adapter rather than the SCSI Device Identification page. Consequently,G ! there is no header, vendor, and product information associated withM ! this 64 bit identifier. The format of this 64 bit WWID is an IEEE 48 bitH ! address with additional information as defined in the FC-PH. But weO ! don't really care about the FC-PH format since all we want to do is displayO ! the 64 bits using the asci hex format of XXXX-XXXX-XXXX-XXXX, which is the < ! widely accepted format used to display this information. !  STRUCTURE /FC_WWID_64B/! BYTE FC_WWIDB_NAME(1:8) END STRUCTURE ! FC_WWID_64B!DEC$ END OPTIONS wwpΦ!*** MODULE $XABALLDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! % ! allocation xab definitions ! $xaballdef ! 4 ! the fields thru bkz cannot be rearranged due to ! their commonality with fab ! 5 PARAMETER XAB$C_ALL = '00000014'X ! xaball id code" PARAMETER XAB$M_HRD = '00000001'X" PARAMETER XAB$M_ONC = '00000002'X" PARAMETER XAB$M_CBT = '00000020'X" PARAMETER XAB$M_CTG = '00000080'X: PARAMETER XAB$C_ANY = '00000000'X ! any allocation o. k.8 PARAMETER XAB$C_CYL = '00000001'X ! cylinder boundary@ PARAMETER XAB$C_LBN = '00000002'X ! allocate at specified lbnB PARAMETER XAB$C_VBN = '00000003'X ! allocate near specified vbnA PARAMETER XAB$C_RFI = '00000004'X ! allocate near related file STRUCTURE /XABALLDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEF  UNION MAP5 BYTE XAB$B_AOP ! allocation options END MAP MAP$ PARAMETER XAB$S_HRD = 1Q PARAMETER XAB$V_HRD = 0 ! fail if requested alignment impossible$ PARAMETER XAB$S_ONC = 1S PARAMETER XAB$V_ONC = 1 ! locate allocated space within a cylinder$ PARAMETER XAB$S_CBT = 1K PARAMETER XAB$V_CBT = 5 ! contiguous alllocation, best try$ PARAMETER XAB$S_CTG =  1$ PARAMETER XAB$V_CTG = 78 BYTE %FILL (1) ! contiguous allocation END MAP END UNION- BYTE XAB$B_ALN ! alignment typeA INTEGER*2 XAB$W_VOL ! relative volume no. for allocation( ! (not applicable if aln = vbn or rfi)2 INTEGER*4 XAB$L_LOC ! allocation location2 INTEGER*4 XAB$L_ALQ ! allocation quantity: INTEGER*2 XAB$W_DEQ ! default allocation quantityJ BYTE %FILL ! bucket size for area (note: field name is bkz,: ! defined above in $xabdef,since it is shared by the fhc+ ! xab and has the same offset, of course) ! -----***** ! HAVE BEEN DEFINED BY $XABDEF- BYTE XAB$B_AID ! area id number UNION MAP6 INTEGER*2 XAB$W_RFI(1:3) ! related file id END MAP MAP3 INTEGER*2 XAB$W_RFI0 ! file number2 INTEGER*2 XAB$W_RFI2 ! seq number2 INTEGER*2 XAB$W_RFI4 ! rev number  END MAP END UNION# INTEGER*2 %FILL ! (spare) END STRUCTURE ! XABALLDEFA ! basealign on aggregate XABALLDEF operates after aggregate end: PARAMETER XAB$K_ALLLEN = '00000020'X ! length of xaball: PARAMETER XAB$C_ALLLEN = '00000020'X ! length of xaball!DEC$ END OPTIONS wwΦ!*** MODULE $XABCXFDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 2 ! RMS Context XAB associated with the FAB ! $xabcxfdef ! 5 PARAMETER XAB$C_CXF = '00000020'X ! XABCXF id code% PARAMETER XAB$M_CXFRST = '00000001'X STRUCTURE /XABCXFDEF/- BYTE %FILL ! COD - xab id code. BYTE %FILL ! BLN - block length# INTEGER*2 %FILL ! (spare)0 INTEGER*4 %FILL ! NXT - xab chain link% ! UP TILL NOW COMMON AMONG ALL XABS ! 7 ! Following in common with the CXR block, too.2 ! Do not rearrange without changing both. ! D INTEGER*4 XAB$L_CXFSTS  ! Status of the last file operation.J INTEGER*4 XAB$L_CXFSTV ! Status Value of the last file operation. ! M ! Top four bits of the options longword are reserved for the XABCXR. These0 ! bits describe the version of the key buffer. ! UNION MAP6 INTEGER*4 XAB$L_CXFCOP ! Context Options. END MAP MAP' PARAMETER XAB$S_CXFRST = 1[ PARAMETER XAB$V_CXFRST = 0 ! Restore file state - use context blk as input.  BYTE %FILL (1) END MAP END UNION2 INTEGER*4 XAB$L_CXFBKP ! Bookkeeping bits: INTEGER*2 XAB$W_CXFIFI ! Internal File Identifier6 BYTE XAB$B_CXFVER ! prologue version num? BYTE %FILL ! spare to longword align commonality! INTEGER*4 %FILL ! spare ! 2 ! Up Till now in common with XABCXR, too. ! E ! The following fields correspond to those in the FAB or IFBF ! They should not be rearrang ed as their order is assumed forE ! purposes of moving large chunks of data rather than a byteF ! or word at a time. Note: ASSUME is used in the actual code ! < INTEGER*2 XAB$W_CXFDEQ ! Default extention quantity- BYTE XAB$B_CXFFAC ! File access. BYTE XAB$B_CXFSHR ! File Sharing, INTEGER*2 XAB$W_CXFRTE ! (Not used)! BYTE %FILL ! spare3 BYTE XAB$B_CXFORG ! file organization5 INTEGER*2 XAB$W_CXFGBC  ! global buffer count2 BYTE XAB$B_CXFRTV ! retrieval window BYTE %FILL& INTEGER*4 %FILL(1:4) ! spares END STRUCTURE ! XABCXFDEFA ! basealign on aggregate XABCXFDEF operates after aggregate end@ PARAMETER XAB$K_CXFLEN = '0000003C'X ! length of xab type CXF@ PARAMETER XAB$C_CXFLEN = '0000003C'X ! length of xab type CXF!DEC$ END OPTIONS wwc Φ!*** MODULE $XABCXRDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN  ! 2 ! RMS Context XAB associated with the RAB ! $xabcxrdef ! 5 PARAMETER XAB$C_CXR = '00000021'X ! XABCXR id code% PARAMETER XAB$M_CXRRST = '00000001'X' PARAMETER XAB$C_CXB_VER1 = '00000001'XC PARAMETER XAB$C_CXRBLEN = '00000200'X ! Length of CXRBUF (bytes) STRUCTURE /XABCXRDEF/- BYTE %FILL ! COD - xab id code. BYTE %FILL ! BLN - block length# INTEGER*2 %FILL ! (spare)0 INTEGER*4 %FILL ! NXT - xab chain link% ! UP TILL NOW COMMON AMONG ALL XABS ! 7 ! Following in common with the CXF block, too.0 ! Do not rearrange without changing it. ! F INTEGER*4 XAB$L_CXRSTS ! Status of the last record operation.L INTEGER*4 XAB$L_CXRSTV ! Status Value of the last record operation. UNION MAP6 INTEGER*4 XAB$L_CXRCOP ! Context Options. END MAP MAP' PARAMETER XAB$S_CXRRST = 1b PARAMETER XAB$V_CXRRS T = 0 ! Restore file/record state - use context blk as input.( PARAMETER XAB$S_CXRBVER = 4) PARAMETER XAB$V_CXRBVER = 288 BYTE %FILL (1) ! Version of Key buffer END MAP END UNION2 INTEGER*4 XAB$L_CXRBKP ! Bookkeeping bits< INTEGER*2 XAB$W_CXRISI ! Internal Record Identifier7 BYTE XAB$B_CXRVER ! prologue version num.? BYTE %FILL ! spare to longword align commonality! INTEGER*4 %FILL  ! spare ! 2 ! Up Till now in common with XABCXF, too. !  ! I ! The following elements are arranged such that large amounts ofJ ! data can be moved at a time rather than words or bytes. Do not= ! rearrange them without this consideration in mind. ! I ! The following elements are stream dependent regardless of file org. ! 3 BYTE XAB$B_CXRMBF ! Multibuffer count2 BYTE XAB$B_CXRMBC ! Multiblock count6 INTEGER*2  XAB$W_CXRBFZ ! sz in byte of CXRBUF ! G ! The following elements are necessary for saving the NRP context for" ! Sequential and Relative files. ! ) INTEGER*4 XAB$L_CXRVBN ! NRP VBN3 INTEGER*2 XAB$W_CXROFF ! NRP offset in VBN6 INTEGER*2 XAB$W_FILL_8 ! mbz - longword align ! G ! The following elements are necessary for saving the NRP context for ! ISAM files. ! : INTEGER*4 XAB$L_CXRPOS0 ! Primary Positioning RFA INTEGER*2 XAB$W_CXR POS4% INTEGER*2 %FILL ! Spare MBZ: INTEGER*4 XAB$L_CXRCUR0 ! Current Positioning RFA INTEGER*2 XAB$W_CXRCUR4% INTEGER*2 %FILL ! Spare MBZ7 INTEGER*4 XAB$L_CXRSID0 ! SIDR positioning RFA INTEGER*2 XAB$W_CXRSID4% INTEGER*2 %FILL ! Spare MBZ2 INTEGER*2 XAB$W_CXRCNT ! SIDR array count7 BYTE XAB$B_CXRKREF ! Cur Key of Reference0 BYTE XAB$B_CXRKLEN ! Length of key4 INTEGER*4 XAB$L_CXRBUF ! address  of key buf& INTEGER*4 %FILL(1:2) ! Spares END STRUCTURE ! XABCXRDEFA ! basealign on aggregate XABCXRDEF operates after aggregate end@ PARAMETER XAB$K_CXRLEN = '00000054'X ! Length of XAB type CXR@ PARAMETER XAB$C_CXRLEN = '00000054'X ! Length of XAB type CXR!DEC$ END OPTIONS wwUΦ!*** MODULE $XABDATDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! $ ! date/time xab definitions ! $xabdatdef !  ! 5 P ARAMETER XAB$C_DAT = '00000012'X ! xabdat id codeD PARAMETER XAB$K_DATLEN_V2 = '00000024'X ! Version 2 XABDAT lengthD PARAMETER XAB$C_DATLEN_V2 = '00000024'X ! Version 2 XABDAT length> PARAMETER XAB$K_DATLEN_V54 = '0000002C'X ! length of XABDAT> PARAMETER XAB$C_DATLEN_V54 = '0000002C'X ! length of XABDATd PARAMETER XAB$K_DATLEN_PRE_ACCDATES = '0000003C'X ! XABDAT length before addition of 3 access datd PARAMETER XAB$C_DATLEN_PRE_ACCDATES = '0000003C'X ! XABDAT length before additi on of 3 access datd PARAMETER XAB$K_DATLEN_POST_ACCDATES = '00000054'X ! XABDAT length after addition of 3 access datd PARAMETER XAB$C_DATLEN_POST_ACCDATES = '00000054'X ! XABDAT length after addition of 3 access dat STRUCTURE /XABDATDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEFR INTEGER*2 %FILL ! REVISION !,DEFINED IN $XABDEF,SINCE COMMON TO DAT & RDT! INTEGER*2 %FILL ! spareE INTEGER*4 %FILL(2) ! revision date & time,defined in $xabdef UNION MAP: INTEGER*4 XAB$Q_CDT(2) ! creation date & time END MAP MAP! INTEGER*4 XAB$L_CDT0! INTEGER*4 XAB$L_CDT4 END MAP END UNION UNION MAP< INTEGER*4 XAB$Q_EDT(2) ! expiration date & time END MAP MAP! INTEGER*4 XAB$L_EDT0! INTEGER*4 XAB$L_EDT4 END MAP END UNION UNION MAP: INTEGER*4 XAB$Q_BDT(2) ! backup date and time END MAP MAP! INTEGER*4 XAB$L_BDT0! INTEGER*4 XAB$L_BDT4 END MAP END UNION UNION MAP< INTEGER*4 XAB$Q_RCD(2) ! Recorded date and time END MAP MAP! INTEGER*4 XAB$L_RCD0! INTEGER*4 XAB$L_RCD4 END MAP END UNION UNION MAP= INTEGER*4 XAB$Q_EFF(2) ! Effective date and time END MAP MAP! INTEGER*4 XAB$L_EFF0! INTEGER*4 XAB$L_EFF4 END MAP END UNION UNION MAP: INTEGER*4 XAB$Q_ACC(2) ! Access date and time END MAP MAP! INTEGER*4 XAB$L_ACC0! INTEGER*4 XAB$L_ACC4 END MAP END UNION UNION  MAPD INTEGER*4 XAB$Q_ATT(2) ! Attribute change date and time END MAP MAP! INTEGER*4 XAB$L_ATT0! INTEGER*4 XAB$L_ATT4 END MAP END UNION UNION MAPE INTEGER*4 XAB$Q_MOD(2) ! data Modification date and time END MAP MAP! INTEGER*4 XAB$L_MOD0! INTEGER*4 XAB$L_MOD4 END MAP END UNION END STRUCTURE ! XABDATDEFA ! basealign on aggregate XABDATDEF operates after aggregate end: PARAMETER XAB$K_DATLEN = '00000054'X ! length of XABDAT: PARAMETER XAB$C_DATLEN = '00000054'X ! length of XABDAT!DEC$ END OPTIONS wwΦ!*** MODULE $XABDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! $ ! definitions for all xabs ! $xabdef ! @ ! the first four fields are shared in common between all xabs$ ! and hence are defined only onceI ! (the only exception is that the spare word may be used by some xabs) !  STRUCTURE /XABDEF/* BYTE XAB$B_COD ! xab id code+ BYTE XAB$B_BLN ! block length# INTEGER*2 %FILL ! (spare)- INTEGER*4 XAB$L_NXT ! xab chain link INTEGER*2 XAB$W_RVN INTEGER*2 %FILL UNION MAP INTEGER*4 XAB$Q_RDT(2) END MAP MAP! INTEGER*4 XAB$L_RDT0! INTEGER*4 XAB$L_RDT4 ! COMMON AMONG DAT AND RDT XABS  END MAP END UNION END STRUCTURE ! XABDEF STRUCTURE /XABDEF1/ BYTE %FILL(1:8)= BYTE %FILL ! THESE FIELDS WILL BE DEFINED LATER BYTE %FILL INTEGER*2 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*2 %FILL8 BYTE XAB$B_BKZ ! COMMON TO FHC AND ALQ XABS END STRUCTURE ! XABDEF1L PARAMETER XAB$C_CXT_VER1 = '00000001'X ! RMS Context Extraction version 1!DEC$ END OPTIONS wwAΦ!*** MODULE $XABFHCDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 6 ! file header characteristics xab definitions ! $xabfhcdef ! 6 ! the fields of this xab cannot be rearranged since, ! they correspond to an on-disk structure ! 5 PARAMETER XAB$C_FHC = '0000001D'X ! xabfhc id code" PARAMETER XAB$M_FTN = '00000001'X! PARAMETER XAB$M_CR = '00000002'X" PARAMETER XAB$M_PRN = '00000004'X" PARAMETER XAB$M_BLK = '00000008'X* PARAMETER XAB$M_GBC_PERCENT = '00000001'X* PARAMETER XAB$M_GBC_DEFAULT = '00000002'X STRUCTURE /XABFHCDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEF9 BYTE XAB$B_RFO ! record format and file org UNION MAP4 BYTE XAB$B_ATR ! record attributes END MAP MAP$ PARAMETER XAB$S_FTN = 1?  PARAMETER XAB$V_FTN = 0 ! fortran carriage-ctl# PARAMETER XAB$S_CR = 1C PARAMETER XAB$V_CR = 1 ! lf-record-cr carriage ctl$ PARAMETER XAB$S_PRN = 1B PARAMETER XAB$V_PRN = 2 ! print-file carriage ctl$ PARAMETER XAB$S_BLK = 1O PARAMETER XAB$V_BLK = 3 ! records don't cross block boundaries BYTE %FILL (1) END MAP END UNION6 INTEGER*2 XAB$W_LRL ! longest record's length UNION MAP3 INTEGER*4 XAB$L_HBK ! hi vbn allocated END MAP ! (n.b. reversed on disk!) MAP! INTEGER*2 XAB$W_HBK0! INTEGER*2 XAB$W_HBK2 END MAP END UNION UNION MAP* INTEGER*4 XAB$L_EBK ! eof vbn END MAP ! (n.b. reversed on disk) MAP! INTEGER*2 XAB$W_EBK0! INTEGER*2 XAB$W_EBK2 END MAP END UNION; INTEG ER*2 XAB$W_FFB ! first free byte in eof blockJ BYTE %FILL ! bucket size for fhc ( note: field name is bkz,: ! defined above in $xabdef,since it is shared by the fhc+ ! xab and has the same offset, of course) ! -----***** ! HAVE BEEN DEFINED BY $XABDEF0 ! defined above in $xabdef, since it is shared ! by the all xab)2 BYTE XAB$B_HSZ ! header size for vfc. INTEGER*2 XAB$W_MRZ ! max record size6 INTEGER*2 XAB$W_DXQ ! default extend quantity UNION MAPF INTEGER*2 XAB$W_GBC ! global buffer count (original word) END MAP MAP+ INTEGER*2 XAB$W_GBC16 ! Alias  END MAP END UNION UNION MAPK BYTE XAB$B_RECATTR_FLAGS ! flags for record attribute area END MAP MAP, PARAMETER XAB$S_GBC_PERCENT = 1f PARAMETER XAB$V_GBC_PERCENT = 0 ! Interpret value in GBC32 as percent instead of count,  PARAMETER XAB$S_GBC_DEFAULT = 1f PARAMETER XAB$V_GBC_DEFAULT = 1 ! RMS should set default for GBC at runtime and ignore" ! any values in GBC16 or GBC32 BYTE %FILL (1) END MAP END UNIONO BYTE %FILL ! reserved for future use (possible flags word union)O INTEGER*4 XAB$L_GBC32 ! longword implementation of global buffer countL BYTE %FILL(1:2) ! spare space documented as unused in I/O REF : INTEGER*2 XAB$W_VERLIMIT ! version limit for file. ! -----*****9 INTEGER*4 XAB$L_SBN ! starting lbn if contiguous END STRUCTURE ! XABFHCDEFA ! basealign on aggregate XABFHCDEF operates after aggregate end: PARAMETER XAB$K_FHCLEN = '0000002C'X ! length of xabfhc: PARAMETER XAB$C_FHCLEN = '0000002C'X ! length of xabfhc!DEC$ END OPTIONS ww:Φ!*** MODULE $XABITMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Item XAB definitions  ! 5 PARAMETER XAB$C_ITM = '00000024'X ! xabitm id codeQ ! The following set of flags exactly mimic the FCHDEF flags defined in STARLET.V ! They are here to provide an unsupported interface to the UCHAR longword maintained ! by the file system. ! K ! Note: RESERVED6 is the counterpart of FCH$x_SCRATCH. This SCRATCH bitH ! means the file is a temporary file that should only exist within theM ! context of an XQP operation. This bit should NEVER be visible to a user.I ! (It was implemented by XQP for ACP MOVEFILE subfunction. A 'scratch'I ! file is created with the scratch bit set in the file header. This isJ ! made to be the 'moved' file, then the original file is replaced by theI ! moved file, and finally everything is cleaned up. If a crash occurs,L ! the scratch file is left lying around; the scratch bit is used to signalK ! to ANALYZE/DISK/REPAIR that this header is not being used.) RMS should7 ! not provide any interface to sense or set this bit. ! ( PARAMETER XAB$M_WASCONTIG = '00000001'X' PARAMETER XAB$M_NOBACKUP = '00000002'X( PARAMETER XAB$M_WRITEBACK = '00000004'X( PARAMETER XAB$M_READCHECK = '00000008'X( PARAMETER XAB$M_WRITCHECK = '00000010'X& PARAMETER XAB$M_CONTIGB = '00000020'X% PARAMETER XAB$M_LOCKED = '00000040'X% PARAMETER XAB$M_CONTIG = '00000080'X( PARAMETER XAB$M_RESERVED1 = '00000100'X( PARAMETER XAB$M_RESERVED2 = '00000200'X( PARAMETER XAB$M_RESERVED3 = '00000400'X% PARAMETER XAB$M_BADACL = '00000800'X$  PARAMETER XAB$M_SPOOL = '00001000'X( PARAMETER XAB$M_DIRECTORY = '00002000'X' PARAMETER XAB$M_BADBLOCK = '00004000'X& PARAMETER XAB$M_MARKDEL = '00008000'X' PARAMETER XAB$M_NOCHARGE = '00010000'X$ PARAMETER XAB$M_ERASE = '00020000'X( PARAMETER XAB$M_RESERVED4 = '00040000'X& PARAMETER XAB$M_SHELVED = '00080000'X( PARAMETER XAB$M_RESERVED6 = '00100000'X% PARAMETER XAB$M_NOMOVE = '00200000'X* PARAMETER XAB$M_NOSHELVABLE = '00400000'X) PARAMETER XAB$M_PRESHELVED = '00800000'X- STRUCTURE /!UCHAR_FLAGS/ ! mimics $FCHDEF" PARAMETER XAB$S_WASCONTIG = 1" PARAMETER XAB$V_WASCONTIG = 0! PARAMETER XAB$S_NOBACKUP = 1! PARAMETER XAB$V_NOBACKUP = 1" PARAMETER XAB$S_WRITEBACK = 1" PARAMETER XAB$V_WRITEBACK = 2" PARAMETER XAB$S_READCHECK = 1" PARAMETER XAB$V_READCHECK = 3" PARAMETER XAB$S_WRITCHECK = 1" PARAMETER XAB$V_WRITCHECK = 4 PARAMETER XAB$S_CONTIGB = 1 PARAMETER XAB$V_CONTIGB = 5 PARAMETER XAB$S_LOCKED = 1 PAR"AMETER XAB$V_LOCKED = 6 PARAMETER XAB$S_CONTIG = 1 PARAMETER XAB$V_CONTIG = 7" PARAMETER XAB$S_RESERVED1 = 1" PARAMETER XAB$V_RESERVED1 = 8" PARAMETER XAB$S_RESERVED2 = 1" PARAMETER XAB$V_RESERVED2 = 9" PARAMETER XAB$S_RESERVED3 = 1# PARAMETER XAB$V_RESERVED3 = 10 PARAMETER XAB$S_BADACL = 1 PARAMETER XAB$V_BADACL = 11 PARAMETER XAB$S_SPOOL = 1 PARAMETER XAB$V_SPOOL = 12" PARAMETER XAB$S_DIRECTORY = 1# PARAMETER XAB$V_DIR#ECTORY = 13! PARAMETER XAB$S_BADBLOCK = 1" PARAMETER XAB$V_BADBLOCK = 14 PARAMETER XAB$S_MARKDEL = 1! PARAMETER XAB$V_MARKDEL = 15! PARAMETER XAB$S_NOCHARGE = 1" PARAMETER XAB$V_NOCHARGE = 16 PARAMETER XAB$S_ERASE = 1 PARAMETER XAB$V_ERASE = 17" PARAMETER XAB$S_RESERVED4 = 1# PARAMETER XAB$V_RESERVED4 = 18 PARAMETER XAB$S_SHELVED = 1! PARAMETER XAB$V_SHELVED = 19" PARAMETER XAB$S_RESERVED6 = 1# PARAMETER XAB$V_RESERVED6 = $ 20 PARAMETER XAB$S_NOMOVE = 1 PARAMETER XAB$V_NOMOVE = 21$ PARAMETER XAB$S_NOSHELVABLE = 1% PARAMETER XAB$V_NOSHELVABLE = 22# PARAMETER XAB$S_PRESHELVED = 1$ PARAMETER XAB$V_PRESHELVED = 23 BYTE %FILL (3) END STRUCTURE ! UCHAR_FLAGSQ PARAMETER XAB$_NET_BUFFER_SIZE = '00000001'X ! (sense) negociated buffer sizeS PARAMETER XAB$_NET_BLOCK_COUNT = '00000002'X ! (set,sense) requested block countO PARAMETER XAB$_NET_REMOTE_SYSTEM = '00000003'X ! (sen%se) remote system typeY PARAMETER XAB$_NET_REMOTE_FILE_SYSTEM = '00000004'X ! (sense) remote file system typeU PARAMETER XAB$_NET_EXTPROT = '00000005'X ! (set,sense) actual extended protectionV PARAMETER XAB$_NET_SYSCAP_LOCAL = '00000006'X ! (sense) DAP SYSCAP of local systemX PARAMETER XAB$_NET_SYSCAP_REMOTE = '00000007'X ! (sense) DAP SYSCAP of remote systemV PARAMETER XAB$_NET_DAPVER_LOCAL = '00000008'X ! (sense) DAP version - local systemX PARAMETER XAB$_NET_DAPVER_REMOTE &= '00000009'X ! (sense) DAP version - remote system] PARAMETER XAB$_NET_LINK_TIMEOUT = '0000000A'X ! (set,sense) logical link timeout (seconds)O PARAMETER XAB$_NET_DATA_CRC_ENABLE = '0000000B'X ! (set,sense) DAP level CRC] PARAMETER XAB$_NET_LINK_CACHE_ENABLE = '0000000C'X ! (set,sense) Logical link cache enableG ! ,NET_DATA_COMPRESSION /* (set,sense) do data compression (FUTURE)& PARAMETER XAB$K_NET_MIN = '00000001'X& PARAMETER XAB$K_NET_MAX = '0000000C'XP PARAMETER XAB$_STAT_E'NABLE = '00000040'X ! (set,sense) Read statistics enabled PARAMETER XAB$_FILE_LENGTH_HINT = '00000041'X ! (set,sense) File length hint (set of 2 quadword f' PARAMETER XAB$K_STAT_MIN = '00000040'X' PARAMETER XAB$K_STAT_MAX = '00000041'XT PARAMETER XAB$_UCHAR = '00000080'X ! (sense) Read file characteristics (obsolete)I PARAMETER XAB$_UCHAR_WASCONTIG = '00000081'X ! (sense) FCH$V_WASCONTIGK PARAMETER XAB$_UCHAR_NOBACKUP = '00000082'X ! (set,sense) FCH$V_NOBACKUPI PARAMETER XAB$_UCHA(R_WRITEBACK = '00000083'X ! (sense) FCH$V_WRITEBACKM PARAMETER XAB$_UCHAR_READCHECK = '00000084'X ! (set,sense) FCH$V_READCHECKO PARAMETER XAB$_UCHAR_WRITECHECK = '00000085'X ! (set,sense) FCH$V_WRITECHECKI PARAMETER XAB$_UCHAR_CONTIGB = '00000086'X ! (set,sense) FCH$V_CONTIGBG PARAMETER XAB$_UCHAR_LOCKED = '00000087'X ! (set,sense) FCH$V_LOCKEDC PARAMETER XAB$_UCHAR_CONTIG = '00000088'X ! (sense) FCH$V_CONTIGC PARAMETER XAB$_UCHAR_BADACL = '00000089'X ! (sense) FCH$V_BADACL)A PARAMETER XAB$_UCHAR_SPOOL = '0000008A'X ! (sense) FCH$V_SPOOLI PARAMETER XAB$_UCHAR_DIRECTORY = '0000008B'X ! (sense) FCH$V_DIRECTORYG PARAMETER XAB$_UCHAR_BADBLOCK = '0000008C'X ! (sense) FCH$V_BADBLOCKF PARAMETER XAB$_UCHAR_MARKDEL = '0000008D'X ! (sense) FCH$V_BADBLOCKG PARAMETER XAB$_UCHAR_NOCHARGE = '0000008E'X ! (sense) FCH$V_NOCHARGEE PARAMETER XAB$_UCHAR_ERASE = '0000008F'X ! (set,sense) FCH$V_ERASEG PARAMETER XAB$_UCHAR_NOMOVE = '00000090'X ! (set,sense) FCH$V_NOM*OVEJ PARAMETER XAB$_UCHAR_SHELVED = '00000091'X ! (sense) FCH$V_SHELVEDR PARAMETER XAB$_UCHAR_NOSHELVABLE = '00000092'X ! (set,sense) FCH$V_NOSHELVABLEK PARAMETER XAB$_UCHAR_PRESHELVED = '00000093'X ! (sense) FCH$V_PRESHELVED( PARAMETER XAB$K_UCHAR_MIN = '00000080'X( PARAMETER XAB$K_UCHAR_MAX = '00000093'X[ PARAMETER XAB$_STORED_SEMANTICS = '000000C0'X ! (set,sense) Stored semantics of the file[ PARAMETER XAB$_ACCESS_SEMANTICS = '000000C1'X ! (set,sense) Access semantics of t+he file] PARAMETER XAB$_RMS_EXTENSION = '000000C2'X ! (set,sense) Required RMS processing extension( PARAMETER XAB$K_XLATE_MIN = '000000C0'X( PARAMETER XAB$K_XLATE_MAX = '000000C2'X^ PARAMETER XAB$C_SEMANTICS_MAX_LEN = '00000040'X ! max length for stored or access semantics^ PARAMETER XAB$K_SEMANTICS_MAX_LEN = '00000040'X ! max length for stored or access semanticsf PARAMETER XAB$_MULTIBUFFER_COUNT = '00000100'X ! (set-only) Multibuffer count (not limited to 127) ! legal only on $ ,CONNECTd PARAMETER XAB$_NORECORD = '00000101'X ! (set-only) Norecord suppresses update of the expiration dC ! (set-only) Norecord suppresses update of the expiration d/t ! on $OPEN or $CLOSEC PARAMETER XAB$_RECOVERY = '00000102'X ! Used to indicate type of ! recovery in progress.I PARAMETER XAB$_RUJVOLNAM = '00000103'X ! Used to control RUJ placementO PARAMETER XAB$_GBC32 = '00000104'X ! (set/sense) GBC longword implementationO PARAMETER XAB$_LINKCOUNT = '00000105'X ! - (set/sense) ODS-5 (hard) link count@ PARAMETER XAB$_GBCFLAGS = '00000106'X ! (set/sense) GBC flags' PARAMETER XAB$K_MISC_MIN = '00000100'X' PARAMETER XAB$K_MISC_MAX = '00000106'X6 PARAMETER XAB$_TID = '00000140'X ! (set/sense) TID& PARAMETER XAB$K_TID_MIN = '00000140'X& PARAMETER XAB$K_TID_MAX = '00000140'XY PARAMETER XAB$_CACHING_OPTIONS = '00000180'X ! (set,sense) VDC runtime caching options[ PARAMETER XAB$_CACHING_ATTRIBUTE = '00000181'X ! (set, sense) VDC perm caching attrib .ute2 PARAMETER XAB$K_CACHING_OPTIONS_MIN = '00000180'X2 PARAMETER XAB$K_CACHING_OPTIONS_MAX = '00000181'XA PARAMETER XAB$_ACCDATE = '000001C0'X ! (set,sense) access dateK PARAMETER XAB$_ATTDATE = '000001C1'X ! (set,sense) attribute change dateL PARAMETER XAB$_MODDATE = '000001C2'X ! (set,sense) data modification date' PARAMETER XAB$K_DATE_MIN = '000001C0'X' PARAMETER XAB$K_DATE_MAX = '000001C2'X( PARAMETER XAB$K_SENSEMODE = '00000001'X& PARAMETER XAB$K_SETMODE = '00000002'X STRUC /TURE /XABITMDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEF; INTEGER*4 XAB$L_ITEMLIST ! Address of the item listF ! In the user interface, item codes are arbitrary integer values, soF ! we may as well allow logical groups to have contiguous codes, with4 ! room for expansion (to allow table driven code).C BYTE 0 XAB$B_MODE ! must be either SETMODE or SENSEMODED BYTE %FILL(1:3) ! Reserved space for future definitionD INTEGER*4 %FILL(1:4) ! Reserved space for future definition END STRUCTURE ! XABITMDEFA ! basealign on aggregate XABITMDEF operates after aggregate end% PARAMETER XAB$K_ITMLEN = '00000020'X% PARAMETER XAB$C_ITMLEN = '00000020'XH ! Define fields and constant values for XAB$_CACHING_OPTIONS longword.0 ! These must match [STARLET]FIBDEF.SDL exactly. PARAMETER 1 XAB$M_FILE_ATTRIBUTES = '0000000F'X, PARAMETER XAB$M_FILE_CONTENTS = '000000F0'X& PARAMETER XAB$K_DEFAULT = '00000000'X+ PARAMETER XAB$K_WRITETHROUGH = '00000001'X* PARAMETER XAB$K_WRITEBEHIND = '00000002'X( PARAMETER XAB$K_NOCACHING = '00000003'X- PARAMETER XAB$M_FLUSH_ON_CLOSE = '00000F00'X$ PARAMETER XAB$K_FLUSH = '00000001'X& PARAMETER XAB$K_NOFLUSH = '00000002'X+ PARAMETER XAB$M_CACHECTL_MBZ = 'FFFFF000'X& STRUCTURE /XAB_CACHING_OPTIONS_FLAGS/( PARAMETER XAB$S_FILE_ATTRIBUTES = 2 4( PARAMETER XAB$V_FILE_ATTRIBUTES = 0& PARAMETER XAB$S_FILE_CONTENTS = 4& PARAMETER XAB$V_FILE_CONTENTS = 4' PARAMETER XAB$S_FLUSH_ON_CLOSE = 4' PARAMETER XAB$V_FLUSH_ON_CLOSE = 8& PARAMETER XAB$S_CACHECTL_MBZ = 20& PARAMETER XAB$V_CACHECTL_MBZ = 12 BYTE %FILL (4)* END STRUCTURE ! XAB_CACHING_OPTIONS_FLAGS? ! The following set of flags mimic the IFB$B_RECVRFLGS flags.6 ! They are here to provide an interface for RECOVER.% PARAMETER XAB$M_RCF_RU = '030000001'X% PARAMETER XAB$M_RCF_AI = '00000002'X% PARAMETER XAB$M_RCF_BI = '00000004'X( PARAMETER XAB$M_RCF_NOPAD = '00000008'X STRUCTURE /XAB_RCF_FLAGS/ PARAMETER XAB$S_RCF_RU = 1 PARAMETER XAB$V_RCF_RU = 0 PARAMETER XAB$S_RCF_AI = 1 PARAMETER XAB$V_RCF_AI = 1 PARAMETER XAB$S_RCF_BI = 1 PARAMETER XAB$V_RCF_BI = 2" PARAMETER XAB$S_RCF_NOPAD = 1" PARAMETER XAB$V_RCF_NOPAD = 3 BYTE %FILL (1) END STRUCTURE ! XAB_RCF_FLAGS& PARAMETER XAB$K_D4ISABLE = '00000000'X% PARAMETER XAB$K_ENABLE = '00000001'X# PARAMETER XAB$K_RT11 = '00000001'X# PARAMETER XAB$K_RSTS = '00000002'X% PARAMETER XAB$K_RSX11S = '00000003'X% PARAMETER XAB$K_RSX11M = '00000004'X% PARAMETER XAB$K_RSX11D = '00000005'X" PARAMETER XAB$K_IAS = '00000006'X% PARAMETER XAB$K_VAXVMS = '00000007'X% PARAMETER XAB$K_TOPS20 = '00000008'X% PARAMETER XAB$K_TOPS10 = '00000009'X# PARAMETER XAB$K_RTS8 = '0000000A'X" PARAMETER XAB$K_OS8 = '0000000B'X& PARAMETER XAB$K_R5SX11MP = '0000000C'X& PARAMETER XAB$K_COPOS11 = '0000000D'X# PARAMETER XAB$K_P_OS = '0000000E'X% PARAMETER XAB$K_VAXELN = '0000000F'X" PARAMETER XAB$K_CPM = '00000010'X% PARAMETER XAB$K_MS_DOS = '00000011'X( PARAMETER XAB$K_ULTRIX_32 = '00000012'X( PARAMETER XAB$K_ULTRIX_11 = '00000013'X$ PARAMETER XAB$K_RMS11 = '00000001'X$ PARAMETER XAB$K_RMS20 = '00000002'X$ PARAMETER XAB$K_RMS32 = '00000003'X$ PARAMETER XAB$K_FCS11 = '00000004'X% PARAMETER XAB$K_RT11FS = '00000005'X$ PARAMETER XAB 6$K_NO_FS = '00000006'X' PARAMETER XAB$K_TOPS20FS = '00000007'X' PARAMETER XAB$K_TOPS10FS = '00000008'X$ PARAMETER XAB$K_OS8FS = '00000009'X% PARAMETER XAB$K_RMS32S = '0000000A'X$ PARAMETER XAB$K_CPMFS = '0000000B'X' PARAMETER XAB$K_MS_DOSFS = '0000000C'X* PARAMETER XAB$K_ULTRIX32_FS = '0000000D'X* PARAMETER XAB$K_ULTRIX11_FS = '0000000E'X) PARAMETER XAB$M_NET_NOREAD = '00000001'X* PARAMETER XAB$M_NET_NOWRITE = '00000002'X, PARAMETER XAB$M_NET_NOEXECUTE = '00000004'X+ PARAMETER XAB$M_N7ET_NODELETE = '00000008'X+ PARAMETER XAB$M_NET_NOAPPEND = '00000010'X. PARAMETER XAB$M_NET_NODIRECTORY = '00000020'X+ PARAMETER XAB$M_NET_NOUPDATE = '00000040'X+ PARAMETER XAB$M_NET_NOCHANGE = '00000080'X+ PARAMETER XAB$M_NET_NOEXTEND = '00000100'X STRUCTURE /XABNETEXTPROT/ UNION MAP# INTEGER*2 XAB$W_SYSTEM_ACC END MAP MAP+ PARAMETER XAB$S_NET_NOREAD = 1+ PARAMETER XAB$V_NET_NOREAD = 0, PARAMETER XAB$S_N 8ET_NOWRITE = 1, PARAMETER XAB$V_NET_NOWRITE = 1. PARAMETER XAB$S_NET_NOEXECUTE = 1. PARAMETER XAB$V_NET_NOEXECUTE = 2- PARAMETER XAB$S_NET_NODELETE = 1- PARAMETER XAB$V_NET_NODELETE = 3- PARAMETER XAB$S_NET_NOAPPEND = 1- PARAMETER XAB$V_NET_NOAPPEND = 40 PARAMETER XAB$S_NET_NODIRECTORY = 10 PARAMETER XAB$V_NET_NODIRECTORY = 5- PARAMETER XAB$S_NET_NOUPDATE = 1- 9 PARAMETER XAB$V_NET_NOUPDATE = 6- PARAMETER XAB$S_NET_NOCHANGE = 1- PARAMETER XAB$V_NET_NOCHANGE = 7- PARAMETER XAB$S_NET_NOEXTEND = 1- PARAMETER XAB$V_NET_NOEXTEND = 8 BYTE %FILL (2) END MAP END UNION INTEGER*2 XAB$W_OWNER_ACC INTEGER*2 XAB$W_GROUP_ACC INTEGER*2 XAB$W_WORLD_ACC END STRUCTURE ! XABNETEXTPROT STRUCTURE /XABNETDAPVER/ BYTE XAB$B_VER_DAP BYTE XAB$B_VER_ECO: BYTE XAB$B_VER_CUS BYTE XAB$B_VER_DSV BYTE XAB$B_VER_CSV END STRUCTURE ! XABNETDAPVER STRUCTURE /XABNETCAPDEF/# PARAMETER XAB$S_CAP_FILALL = 1# PARAMETER XAB$V_CAP_FILALL = 0# PARAMETER XAB$S_CAP_SEQORG = 1# PARAMETER XAB$V_CAP_SEQORG = 1# PARAMETER XAB$S_CAP_RELORG = 1# PARAMETER XAB$V_CAP_RELORG = 2# PARAMETER XAB$S_CAP_EXTEND = 1# PARAMETER XAB$V_CAP_EXTEND = 4# PARAMETER XAB$S_CAP_SEQFIL = 1# PARAMET;ER XAB$V_CAP_SEQFIL = 5# PARAMETER XAB$S_CAP_RANRRN = 1# PARAMETER XAB$V_CAP_RANRRN = 6# PARAMETER XAB$S_CAP_RANVBN = 1# PARAMETER XAB$V_CAP_RANVBN = 7# PARAMETER XAB$S_CAP_RANKEY = 1# PARAMETER XAB$V_CAP_RANKEY = 8# PARAMETER XAB$S_CAP_RANRFA = 1$ PARAMETER XAB$V_CAP_RANRFA = 10# PARAMETER XAB$S_CAP_IDXORG = 1$ PARAMETER XAB$V_CAP_IDXORG = 11# PARAMETER XAB$S_CAP_SWMODE = 1$ PARAMETER XAB$V_CAP_SWMODE = 12# PARAMETER XAB$S_CAP<_APPEND = 1$ PARAMETER XAB$V_CAP_APPEND = 13# PARAMETER XAB$S_CAP_SUBMIT = 1$ PARAMETER XAB$V_CAP_SUBMIT = 14 PARAMETER XAB$S_CAP_MDS = 1! PARAMETER XAB$V_CAP_MDS = 16$ PARAMETER XAB$S_CAP_DISPLAY = 1% PARAMETER XAB$V_CAP_DISPLAY = 17# PARAMETER XAB$S_CAP_MSGBLK = 1$ PARAMETER XAB$V_CAP_MSGBLK = 18# PARAMETER XAB$S_CAP_UNRBLK = 1$ PARAMETER XAB$V_CAP_UNRBLK = 19# PARAMETER XAB$S_CAP_BIGBLK = 1$ PARAMETER XAB$V_CAP_BIGBLK = 20# = PARAMETER XAB$S_CAP_DAPCRC = 1$ PARAMETER XAB$V_CAP_DAPCRC = 21# PARAMETER XAB$S_CAP_KEYXAB = 1$ PARAMETER XAB$V_CAP_KEYXAB = 22# PARAMETER XAB$S_CAP_ALLXAB = 1$ PARAMETER XAB$V_CAP_ALLXAB = 23# PARAMETER XAB$S_CAP_SUMXAB = 1$ PARAMETER XAB$V_CAP_SUMXAB = 24& PARAMETER XAB$S_CAP_DIRECTORY = 1' PARAMETER XAB$V_CAP_DIRECTORY = 25# PARAMETER XAB$S_CAP_TIMXAB = 1$ PARAMETER XAB$V_CAP_TIMXAB = 26# PARAMETER XAB$S_CAP_PROXAB = 1$ PAR>AMETER XAB$V_CAP_PROXAB = 27# PARAMETER XAB$S_CAP_FOPSPL = 1$ PARAMETER XAB$V_CAP_FOPSPL = 29# PARAMETER XAB$S_CAP_FOPSCF = 1$ PARAMETER XAB$V_CAP_FOPSCF = 30# PARAMETER XAB$S_CAP_FOPDLT = 1$ PARAMETER XAB$V_CAP_FOPDLT = 31# PARAMETER XAB$S_CAP_SEQRAC = 1$ PARAMETER XAB$V_CAP_SEQRAC = 33# PARAMETER XAB$S_CAP_BITOPT = 1$ PARAMETER XAB$V_CAP_BITOPT = 35$ PARAMETER XAB$S_CAP_WARNING = 1% PARAMETER XAB$V_CAP_WARNING = 36# PARAMETER XAB?$S_CAP_RENAME = 1$ PARAMETER XAB$V_CAP_RENAME = 37% PARAMETER XAB$S_CAP_WILDCARD = 1& PARAMETER XAB$V_CAP_WILDCARD = 38# PARAMETER XAB$S_CAP_GNGOPT = 1$ PARAMETER XAB$V_CAP_GNGOPT = 39# PARAMETER XAB$S_CAP_NAMMSG = 1$ PARAMETER XAB$V_CAP_NAMMSG = 40# PARAMETER XAB$S_CAP_SEGMSG = 1$ PARAMETER XAB$V_CAP_SEGMSG = 41& PARAMETER XAB$S_CAP_CHGATTCLS = 1' PARAMETER XAB$V_CAP_CHGATTCLS = 42& PARAMETER XAB$S_CAP_CHGTIMCLS = 1' PARAMETER XAB @$V_CAP_CHGTIMCLS = 43& PARAMETER XAB$S_CAP_CHGPROCLS = 1' PARAMETER XAB$V_CAP_CHGPROCLS = 44& PARAMETER XAB$S_CAP_CHGNAMCLS = 1' PARAMETER XAB$V_CAP_CHGNAMCLS = 45& PARAMETER XAB$S_CAP_MODATTCRE = 1' PARAMETER XAB$V_CAP_MODATTCRE = 46% PARAMETER XAB$S_CAP_NAM3PART = 1& PARAMETER XAB$V_CAP_NAM3PART = 47& PARAMETER XAB$S_CAP_CHGATTREN = 1' PARAMETER XAB$V_CAP_CHGATTREN = 48& PARAMETER XAB$S_CAP_CHGTIMREN = 1' PARAMETER XAB$V_CAP_CHGTIMRENA = 49& PARAMETER XAB$S_CAP_CHGPROREN = 1' PARAMETER XAB$V_CAP_CHGPROREN = 50& PARAMETER XAB$S_CAP_CTLBLKCNT = 1' PARAMETER XAB$V_CAP_CTLBLKCNT = 51% PARAMETER XAB$S_CAP_OCTALVER = 1& PARAMETER XAB$V_CAP_OCTALVER = 52 BYTE %FILL (6) END STRUCTURE ! XABNETCAPDEF* PARAMETER XAB$S_BUFFER_SIZE = '00000004'X2 PARAMETER XAB$S_NETWORK_BLOCK_COUNT = '00000004'X, PARAMETER XAB$S_REMOTE_SYSTEM = '00000004'X1 PARAMETER XAB$S_REMOTE_FILE_SYSTEM = '00000004'X, PARAMETERB XAB$S_EXTPROT_LOCAL = '00000008'X- PARAMETER XAB$S_EXTPROT_REMOTE = '00000008'X, PARAMETER XAB$S_CAPABIL_LOCAL = '00000008'X- PARAMETER XAB$S_CAPABIL_REMOTE = '00000008'X+ PARAMETER XAB$S_DAPVER_LOCAL = '00000005'X, PARAMETER XAB$S_DAPVER_REMOTE = '00000005'X( PARAMETER XAB$S_CACHE_TMO = '00000004'X* PARAMETER XAB$S_HINT_LENGTH = '00000010'X+ PARAMETER XAB$S_GBC32_LENGTH = '00000004'X. PARAMETER XAB$S_GBCFLAGS_LENGTH = '00000004'X!DEC$ END OPTIONS wwΦ!*** MOD CULE $XABJNLDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! " ! Journal XAB definitions ! $xabjnldef ! 5 PARAMETER XAB$C_JNL = '00000022'X ! xabjnl id code, PARAMETER XAB$C_JNL_TYPE_NONE = '00000000'X0 PARAMETER XAB$C_AI = '00000001'X ! AI journal0 PARAMETER XAB$C_BI = '00000002'X ! BI journal0 PARAMETER XAB$C_AT = '00000003'X ! AT journal? PARAMETER XAB$C_RU_DEFAULT = '00000004'X ! default RU volume/ PARAMETER XAB$M_JOURNAL_DISDABLED = '00000001'X* PARAMETER XAB$M_BACKUP_DONE = '00000002'X STRUCTURE /XABJNLDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEF5 BYTE XAB$B_XABJNL_TYPE ! type of $XABJNL BYTE %FILL UNION MAPO INTEGER*2 XAB$W_JNL_FLAGS ! journal flags (from ACE$W_RMSJNL_FLAGS) END MAP E MAP1 PARAMETER XAB$S_JOURNAL_DISABLED = 1^ PARAMETER XAB$V_JOURNAL_DISABLED = 0 ! journaling disabled by BACKUP (AI/BI/AT), PARAMETER XAB$S_BACKUP_DONE = 1N PARAMETER XAB$V_BACKUP_DONE = 1 ! Backup done since last $OPEN BYTE %FILL (1) END MAP END UNION> INTEGER*4 XAB$L_JNL_FAB ! address of journal file FABJ INTEGER*4 XAB$L_VOLNAM_BUF ! address of journal volume name bufferG INTEGER*2 XFAB$W_VOLNAM_SIZ ! size of journal volume name bufferI INTEGER*2 XAB$W_VOLNAM_LEN ! return length of journal volume nameZ INTEGER*4 XAB$Q_JNL_VERIFY_CDATE(2) ! journal file creation date (from ACE$Q_CDATE)0 ! (to match with journal file's creation date)J INTEGER*4 XAB$L_JNLIDX ! Journal stream index within journal file> INTEGER*4 XAB$L_BACKUP_SEQNO ! Backup sequence number.R INTEGER*4 XAB$Q_JNL_MOD_TIME(2) ! Timestamp of last backup or last journal ! enGtry recovered. INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL END STRUCTURE ! XABJNLDEFA ! basealign on aggregate XABJNLDEF operates after aggregate end% PARAMETER XAB$K_JNLLEN = '00000050'X% PARAMETER XAB$C_JNLLEN = '00000050'X!DEC$ END OPTIONS wwDΦ!*** MODULE $XABKEYDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !H / ! key definition xab field definitions ! $xabkeydef ! 5 PARAMETER XAB$C_KEY = '00000015'X ! xabkey id code" PARAMETER XAB$M_DUP = '00000001'X" PARAMETER XAB$M_CHG = '00000002'X" PARAMETER XAB$M_NUL = '00000004'X( PARAMETER XAB$M_IDX_NCMPR = '00000008'X( PARAMETER XAB$M_KEY_NCMPR = '00000040'X( PARAMETER XAB$M_DAT_NCMPR = '00000080'X- PARAMETER XAB$C_STG = '00000000'X ! stringF PARAMETER XAB$C_IN2 = '00000001'X ! signed 15 bit integer (2 bytes)4 PAR IAMETER XAB$C_BN2 = '00000002'X ! 2 byte binaryF PARAMETER XAB$C_IN4 = '00000003'X ! signed 31 bit integer (4 bytes)4 PARAMETER XAB$C_BN4 = '00000004'X ! 4 byte binaryB PARAMETER XAB$C_PAC = '00000005'X ! packed decimal (1-16 bytes)F PARAMETER XAB$C_IN8 = '00000006'X ! signed 63 bit integer (4 bytes)4 PARAMETER XAB$C_BN8 = '00000007'X ! 8 byte binary/ PARAMETER XAB$C_COL = '00000008'X ! collatedD PARAMETER XAB$C_MAX_ASCEND = '00000008'X ! maximum ascending type9 PARAMETER XAB$CJ_DSTG = '00000020'X ! descending string> PARAMETER XAB$C_DIN2 = '00000021'X ! " signed word@ PARAMETER XAB$C_DBN2 = '00000022'X ! " unsigned wordB PARAMETER XAB$C_DIN4 = '00000023'X ! " signed longwordD PARAMETER XAB$C_DBN4 = '00000024'X ! " unsigned longwordA PARAMETER XAB$C_DPAC = '00000025'X ! " packed decimalB PARAMETER XAB$C_DIN8 = '00000026'X ! " signed quadwordD PARAMETER XAB$C_DBN8 = '00000027'X ! " unsigne Kd quadword; PARAMETER XAB$C_DCOL = '00000028'X ! " collated> PARAMETER XAB$C_MAXDTP = '00000028'X ! max. legal data type> PARAMETER XAB$K_KEYLEN_V2 = '00000040'X ! old xabkey length> PARAMETER XAB$C_KEYLEN_V2 = '00000040'X ! old xabkey length ! > PARAMETER XAB$C_PRG3 = '00000003'X ! Prologue version three< PARAMETER XAB$C_PRG2 = '00000002'X ! Prologue version two< PARAMETER XAB$C_PRG1 = '00000001'X ! Prologue versoin oneC PARAMETER XAB$K_KEYLEN_V4 = '0000004C'X ! x Labkey length until V5C PARAMETER XAB$C_KEYLEN_V4 = '0000004C'X ! xabkey length until V5 STRUCTURE /XABKEYDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEF ! = ! the field layout of the key xab is such that it matchs as< ! closely as possible the layout of a key decriptor in the= ! index file prologue. this is so the co Mntents may be moved: ! between the two structures as efficiently as possible. ! 6 BYTE XAB$B_IAN ! index level area number= BYTE XAB$B_LAN ! lowest index level area number5 BYTE XAB$B_DAN ! data level area number3 BYTE XAB$B_LVL ! level of root bucketF BYTE XAB$B_IBS ! size of index buckets in virtual blocksE BYTE XAB$B_DBS ! size of data buckets in virtual blocks4 INTEGER*4 XAB$L_RVB ! root bucket s Ntart vbn UNION MAP3 BYTE XAB$B_FLG ! key option flags END MAP MAP$ PARAMETER XAB$S_DUP = 1G PARAMETER XAB$V_DUP = 0 ! duplicate key values allowed$ PARAMETER XAB$S_CHG = 1X PARAMETER XAB$V_CHG = 1 ! alt key only --key field may change on update$ PARAMETER XAB$S_NUL = 1O PARAMETER XAB$V_NUL = 2 ! alt key only --null key value enable* PARAMETER X OAB$S_IDX_NCMPR = 1d PARAMETER XAB$V_IDX_NCMPR = 3 ! indicate index records for given key are not compres* PARAMETER XAB$S_KEY_NCMPR = 1^ PARAMETER XAB$V_KEY_NCMPR = 6 ! indicates key is not compressed in data record BYTE %FILL (1) END MAP MAP* PARAMETER XAB$S_DAT_NCMPR = 1* PARAMETER XAB$V_DAT_NCMPR = 7@ BYTE %FILL (1) ! data record is not compressed END MAP END UNION P2 BYTE XAB$B_DTP ! key field data type5 BYTE XAB$B_NSG ! number of key segments0 BYTE XAB$B_NUL ! nul key character; BYTE XAB$B_TKS ! total key field size (bytes)< BYTE XAB$B_REF ! key of reference (0=prim key, ! 1-254 = alternate keys)I INTEGER*2 XAB$W_MRL ! minimun record length to contain key field= INTEGER*2 XAB$W_IFL ! index bucket fill size (bytes); INTEGER*2 XAB$W_DFL ! data bucket fil size Q(bytes) UNION MAPH INTEGER*2 XAB$W_POS(1:8) ! key field record offset positions END MAP MAP1 INTEGER*2 XAB$W_POS0 ! segment 01 INTEGER*2 XAB$W_POS1 ! segment 11 INTEGER*2 XAB$W_POS2 ! segment 21 INTEGER*2 XAB$W_POS3 ! segment 31 INTEGER*2 XAB$W_POS4 ! segment 41 INTEGER*2 XAB$W_POS5 ! segment 51 INTEGER*2 XAB$W_POS6 ! segment 61R INTEGER*2 XAB$W_POS7 ! segment 7 END MAP END UNION UNION MAP> BYTE XAB$B_SIZ(1:8) ! key field segment sizes END MAP MAP1 BYTE XAB$B_SIZ0 ! segment 01 BYTE XAB$B_SIZ1 ! segment 11 BYTE XAB$B_SIZ2 ! segment 21 BYTE XAB$B_SIZ3 ! segment 31 BYTE XAB$B_SIZ4 ! segment 41 BYTE XAB$B_SIZ5 !S segment 51 BYTE XAB$B_SIZ6 ! segment 61 BYTE XAB$B_SIZ7 ! segment 7 END MAP END UNION! INTEGER*2 %FILL ! spare ! H ! the positions of the above fields are dictated by the key descriptor- ! record layout in the index file prologue. ! F INTEGER*4 XAB$L_KNM ! pointer to 32 character key name buffer: INTEGER*4 XAB$L_DVB ! first data bucket start vbn" ! Additions for prologue 3 files ! UNION T MAP> BYTE XAB$B_TYP(1:8) ! key field segment types END MAP MAP1 BYTE XAB$B_TYP0 ! segment 01 BYTE XAB$B_TYP1 ! segment 11 BYTE XAB$B_TYP2 ! segment 21 BYTE XAB$B_TYP3 ! segment 31 BYTE XAB$B_TYP4 ! segment 41 BYTE XAB$B_TYP5 ! segment 51 BYTE XAB$B_TYP6 ! segment 61 BYTE XAB$B_T UYP7 ! segment 7 END MAP END UNIONV BYTE XAB$B_PROLOG ! indicate prologue version desired (primary key only)! BYTE %FILL ! spare! INTEGER*2 %FILL ! spare: INTEGER*4 XAB$L_COLTBL ! address of collate table7 INTEGER*4 XAB$L_COLSIZ ! size of collate table7 INTEGER*4 XAB$L_COLNAM ! name of collate table! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare ! --V ! ++ END STRUCTURE ! XABKEYDEFA ! basealign on aggregate XABKEYDEF operates after aggregate end> PARAMETER XAB$K_KEYLEN = '00000064'X ! xabkey length for V5> PARAMETER XAB$C_KEYLEN = '00000064'X ! xabkey length for V5!DEC$ END OPTIONS wwEΦ!*** MODULE $XABPRODEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! protection xab field definitions ! $xabprodef !  ! 5 PARAMETER XAB$C_PRO = '00000013'X ! xWabpro id code% PARAMETER XAB$M_NOREAD = '00000001'X& PARAMETER XAB$M_NOWRITE = '00000002'X$ PARAMETER XAB$M_NOEXE = '00000004'X$ PARAMETER XAB$M_NODEL = '00000008'X STRUCTURE /XABPRODEF/ UNION MAP# PARAMETER XAB$S_NOREAD = 19 PARAMETER XAB$V_NOREAD = 0 ! deny read access$ PARAMETER XAB$S_NOWRITE = 1; PARAMETER XAB$V_NOWRITE = 1 ! deny write access" PARAMETER XAB$S_NOEXE = 1= PARAMETER XAB$V_NOEXE = 2 ! deny execution accXess" PARAMETER XAB$S_NODEL = 1: PARAMETER XAB$V_NODEL = 3 ! deny delete access BYTE %FILL (1) END MAP END UNION END STRUCTURE ! XABPRODEF( PARAMETER XAB$M_PROPAGATE = '00000001'X> PARAMETER XAB$K_PROLEN_V3 = '00000010'X ! V3a xabpro length> PARAMETER XAB$C_PROLEN_V3 = '00000010'X ! V3a xabpro length STRUCTURE /XABPRODEF1/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELDY, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEF UNION MAP2 INTEGER*2 XAB$W_PRO ! protection mask END MAP MAP$ PARAMETER XAB$S_SYS = 41 PARAMETER XAB$V_SYS = 0 ! system$ PARAMETER XAB$S_OWN = 40 PARAMETER XAB$V_OWN = 4 ! owner$ PARAMETER XAB$S_GRP = 40 PARAMETER XAB$V_GRP = 8 ! group$ PARAMETER XAB$S_WLD = 4% Z PARAMETER XAB$V_WLD = 12( BYTE %FILL (2) ! world END MAP END UNION= BYTE XAB$B_MTACC ! Magtape access control char. UNION MAP; BYTE XAB$B_PROT_OPT ! XABPRO options field END MAP MAP* PARAMETER XAB$S_PROPAGATE = 1c PARAMETER XAB$V_PROPAGATE = 0 ! Propagate security attributes on $ENTER and $RENAME BYTE %FILL (1) END MAP END UNION UNION[ MAP+ INTEGER*4 XAB$L_UIC ! uic code END MAP MAP2 INTEGER*2 XAB$W_MBM ! member code1 INTEGER*2 XAB$W_GRP ! group code END MAP END UNION UNION MAPG INTEGER*4 XAB$Q_PROT_MODE(2) ! eventually may be a quadword END MAP MAPE BYTE XAB$B_PROT_MODE ! but currently only a byte END MAP END UNION> INTEGER*4 XAB$L_ACLBUF ! ad \dress of user's ACL buffer; INTEGER*2 XAB$W_ACLSIZ ! size of user's ACL buffer= INTEGER*2 XAB$W_ACLLEN ! return length of entire ACL3 INTEGER*4 XAB$L_ACLCTX ! ACL context field7 INTEGER*4 XAB$L_ACLSTS ! ACL return err status! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ] ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare END STRUCTURE ! XABPRODEF1B ! basealign on aggregate XABPRODEF1 operates after aggregate end7 PARAMETER XAB$K_PROLEN = '00000058'X ! xabpro length7 PARAMETER XAB$C_PROLEN = '00000058'X ! xabpro length!DEC$ END OPTIONS wwؑΦ!*** MODULE $XABRDTDEF ***:!DEC$ OPTIONS/ALIGN=(REC^ORDS=PACKED,COMMONS=PACKED)/NOWARN ! - ! revision date/time xab definitions ! $xabrdtdef ! 5 PARAMETER XAB$C_RDT = '0000001E'X ! xabrdt id code STRUCTURE /XABRDTDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEFR INTEGER*2 %FILL ! REVISION !,DEFINED IN $XABDEF,SINCE COMMON TO DAT & RDT!_ INTEGER*2 %FILL ! spareE INTEGER*4 %FILL(2) ! revision date & time,defined in $xabdef END STRUCTURE ! XABRDTDEFA ! basealign on aggregate XABRDTDEF operates after aggregate end; PARAMETER XAB$K_RDTLEN = '00000014'X ! length of rdt xab; PARAMETER XAB$C_RDTLEN = '00000014'X ! length of rdt xab!DEC$ END OPTIONS ww"ޖΦ!*** MODULE $XABRUDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ( ! Recovery Unit XAB definit`ions ! $xabrudef ! 3 PARAMETER XAB$C_RU = '00000023'X ! xabru id code% PARAMETER XAB$M_NOJOIN = '00000001'X STRUCTURE /XABRUDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEF UNION MAP, INTEGER*2 XAB$W_RU_FLAGS ! Flags END MAP MAP' PARAMETER XAB$Sa_NOJOIN = 1J PARAMETER XAB$V_NOJOIN = 0 ! Do not join any recovery unit BYTE %FILL (1) END MAP END UNION INTEGER*2 %FILLC INTEGER*4 XAB$L_RU_HANDLE ! RU handle to join (input field)I INTEGER*4 XAB$L_RU_HANDLE_JOINED ! RU handle joined (output field) INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL INTEGER*4 %FILL END STRUCTURE ! XABRUDEF@ ! babsealign on aggregate XABRUDEF operates after aggregate end$ PARAMETER XAB$K_RULEN = '00000030'X$ PARAMETER XAB$C_RULEN = '00000030'X!DEC$ END OPTIONS wwGΦ!*** MODULE $XABSUMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ( ! summary xab field definitions ! $xabsumdef ! 5 PARAMETER XAB$C_SUM = '00000016'X ! xabsum id code STRUCTURE /XABSUMDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA c INTEGER*4 %FILL ! HAS SAME COD, BLN, SPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEFE BYTE XAB$B_NOA ! number of defined areas for index fileD BYTE XAB$B_NOK ! number of defined keys for index fileQ INTEGER*2 XAB$W_PVN ! prologue version number (relative and index files) END STRUCTURE ! XABSUMDEFA ! basealign on aggregate XABSUMDEF operates after aggregate end7 PARAMETER XAB$K_SUMLEN = '0000000C'X d ! xabsum length7 PARAMETER XAB$C_SUMLEN = '0000000C'X ! xabsum length!DEC$ END OPTIONS wwPΦ!*** MODULE $XABTRMDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 1 ! terminal control xab field definitions ! $xabtrmdef !  ! 4 PARAMETER XAB$C_TRM = '0000001F'X ! XABTRM ID CODE STRUCTURE /XABTRMDEF/ BYTE %FILL BYTE %FILL INTEGER*2 %FILLA INTEGER*4 %FILL ! HAS SAME COD, BLN, eSPARE AND NXT FIELD, ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND ! HAVE BEEN DEFINED BY $XABDEF3 INTEGER*4 XAB$L_ITMLST ! item list address5 INTEGER*2 XAB$W_ITMLST_LEN ! item list length! INTEGER*2 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare! INTEGER*4 %FILL ! spare END STRUCTURE ! XABTRMDEFA ! basealign on aggregate XABTRMDEF operates aftefr aggregate endP PARAMETER XAB$K_TRMLEN = '00000024'X ! length of xab of type terminal controlP PARAMETER XAB$C_TRMLEN = '00000024'X ! length of xab of type terminal control!DEC$ END OPTIONS wwUΦ!*** MODULE $XADEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! +: ! DR11-W DEFINITIONS FOR DEVICE SPECIFIC CHARACTERISTICS" ! - & PARAMETER XA$M_DATAPATH = '00000001'X" PARAMETER XA$M_LINK = '00000002'X STRUCTURE /XAgDEF/ UNION MAP$ PARAMETER XA$S_DATAPATH = 1@ PARAMETER XA$V_DATAPATH = 0 ! USE BUFFERED DATAPATH PARAMETER XA$S_LINK = 1@ PARAMETER XA$V_LINK = 1 ! INTERPROCESSOR LINK MODE  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! XADEF!DEC$ END OPTIONS wwL5VΦ!*** MODULE $XKDEVDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! 3271 DEVICE STATUS BLOCK ! M ! THE DRIVER RETURNS N COP hIES OF THIS BLOCK FOLLOWING THE LINE STATUS BLOCKN ! IN THE USER'S BUFFER, WHERE N IS THE NUMBER OF ACTIVE DEVICES ON THE LINE. ! J PARAMETER XKDEV$K_SIZE = '0000000F'X ! SIZE OF THE DEVICE STATUS BLOCK J PARAMETER XKDEV$C_SIZE = '0000000F'X ! SIZE OF THE DEVICE STATUS BLOCK  STRUCTURE /XKDEVDEF/C BYTE XKDEV$B_DUEB ! DEVICE ADDRESS (DU - HEX EBCDIC) G INTEGER*4 XKDEV$L_DPID ! PROCESS ID OF PROCESS OWNING THIS DU ? INTEGER*2 XKDEV$W_TBLK ! NUMBER OF BLOCiKS TRANSMITTED < INTEGER*2 XKDEV$W_RBLK ! NUMBER OF BLOCKS RECEIVED D INTEGER*2 XKDEV$W_SPOL ! NUMBER OF SPECIFIC POLLS RECEIVED E INTEGER*2 XKDEV$W_ASEL ! NUMBER OF ADDRESS SELECTS RECEIVED A INTEGER*2 XKDEV$W_CREJ ! NUMBER OF COMMAND REJECTS SENT  END STRUCTURE ! XKDEVDEF!DEC$ END OPTIONS wwVΦ!*** MODULE $XKSTSDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! D ! DEFINITIONS FOR 3271 LINE STATUS BLOCK (RE jTURNED BY IO$_RDSTATS) ! K PARAMETER XKSTS$K_LSTR = '00000000'X ! OFFSET OF BEGINNING OF DATA AREA K PARAMETER XKSTS$C_LSTR = '00000000'X ! OFFSET OF BEGINNING OF DATA AREA $ PARAMETER XKSTS$M_ACT = '00000001'X$ PARAMETER XKSTS$M_DGN = '00000002'XJ PARAMETER XKSTS$K_DSTR = '0000002D'X ! LENGTH OF THE LINE STATUS BLOCK J PARAMETER XKSTS$C_DSTR = '0000002D'X ! LENGTH OF THE LINE STATUS BLOCK  STRUCTURE /XKSTSDEF/D BYTE XKSTS$B_CUAD ! CONTROL UNIT ADDRESS (HEX EBCDIC) k UNION MAP2 INTEGER*2 XKSTS$W_LSTS ! LINE STATUS  END MAP MAP& PARAMETER XKSTS$S_ACT = 1W PARAMETER XKSTS$V_ACT = 0 ! IF SET, LINE IS 'ON' (ACTIVE IN 3271 MODE) & PARAMETER XKSTS$S_DGN = 1W PARAMETER XKSTS$V_DGN = 1 ! IF SET, LINE IS EXECUTING A DIAGNOSTIC QIO  BYTE %FILL (1) END MAP END UNION, BYTE XKSTS$B_PLSZ ! POOL SIZE H INTEGER*2 XKSTS$W_BSIZ l ! MAXIMUM BLOCK TO BE RECEIVED FROM IBM 0 BYTE XKSTS$B_ECNT ! ENQ THRESHOLD = INTEGER*2 XKSTS$W_TNAK ! NUMBER OF NAKS TRANSMITTED : INTEGER*2 XKSTS$W_RNAK ! NUMBER OF NAKS RECEIVED 6 INTEGER*2 XKSTS$W_TENQ ! NUMBER OF ENQS SENT : INTEGER*2 XKSTS$W_RENQ ! NUMBER OF ENQS RECEIVED = INTEGER*2 XKSTS$W_TRVI ! NUMBER OF RVIS TRANSMITTED : INTEGER*2 XKSTS$W_RRVI ! NUMBER OF RVIS RECEIVED J INTEGER*2 XKSTS$W_RCNV ! NUMBER OF CO mNVERSATIONAL MODE RESPONSES ! RECEIVEDD INTEGER*2 XKSTS$W_CHAI ! NUMBER OF CHAINED WRITES RECEIVED C INTEGER*2 XKSTS$W_GPOL ! NUMBER OF GENERAL POLLS RECEIVED B INTEGER*2 XKSTS$W_XACK ! NUMBER OF INVALID ACKS RECEIVED D INTEGER*2 XKSTS$W_HABO ! NUMBER OF HOST ABORTS ENCOUNTERED F INTEGER*2 XKSTS$W_DABO ! NUMBER OF DRIVER ABORTS ENCOUNTERED B INTEGER*2 XKSTS$W_RTIM ! NUMBER OF ACK RESPONSE TIMEOUTS D INTEGER*2 XKSTS$W_DISC ! NUMBER OnF DISCONNECTS ENCOUNTERED I INTEGER*2 XKSTS$W_HARD ! NUMBER OF HARDWARE FAILURES (INCLUDING  ! DISCONNECTS) ENCOUNTERED? INTEGER*2 XKSTS$W_TBLK ! NUMBER OF BLOCKS TRANSMITTED < INTEGER*2 XKSTS$W_RBLK ! NUMBER OF BLOCKS RECEIVED = INTEGER*2 XKSTS$W_HABX ! NUMBER OF DUBIOUS ACK OUTS > INTEGER*2 XKSTS$W_IEOT ! NUMBER OF EOTS IMPLYING ACK  END STRUCTURE ! XKSTSDEF!DEC$ END OPTIONS wwVΦ!*** MODULE $XMDEF ***:!DEC$ OPTIONS/ oALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! DEFINITIONS FOR STATUS, CHARACTERISTICS AND ERRORS FOR DMC-11/DMR-11/DMP-11 !  STRUCTURE /XMDEV/1 BYTE XMDEV$B_P1_CLASS ! Device Class/ BYTE XMDEV$B_P1_TYPE ! Device type7 INTEGER*2 XMDEV$W_P1_MMS ! Maximum message size8 BYTE XMDEV$B_P1_CHAR ! Unit characteristics. BYTE XMDEV$B_P1_STS ! Unit Status1 BYTE XMDEV$B_P1_ESUM ! Error Summary8 BYTE XMDEV$B_P1_TPpI ! Transmit Pipeline no. END STRUCTURE ! XMDEV% PARAMETER XM$M_CHR_MOP = '00000001'X' PARAMETER XM$M_CHR_LOOPB = '00000002'X' PARAMETER XM$M_CHR_HDPLX = '00000004'X' PARAMETER XM$M_CHR_SLAVE = '00000008'X% PARAMETER XM$M_CHR_MBX = '00000010'X% PARAMETER XM$M_CHR_DMC = '00000020'X& PARAMETER XM$M_CHR_CTRL = '00000040'X& PARAMETER XM$M_CHR_TRIB = '00000080'X& PARAMETER XM$M_STS_DCHK = '00000100'X& PARAMETER XM$M_STS_TIMO = '00000200'X& PARAMETER XM$M_STS_ORUN = '00000400'X( PARAM qETER XM$M_STS_ACTIVE = '00000800'X) PARAMETER XM$M_STS_BUFFAIL = '00001000'X) PARAMETER XM$M_STS_RUNNING = '00002000'X& PARAMETER XM$M_STS_DISC = '00004000'X' PARAMETER XM$M_ERR_FATAL = '00010000'X' PARAMETER XM$M_ERR_MAINT = '00080000'X& PARAMETER XM$M_ERR_LOST = '00100000'X( PARAMETER XM$M_ERR_THRESH = '00200000'X& PARAMETER XM$M_ERR_TRIB = '00400000'X' PARAMETER XM$M_ERR_START = '00800000'X( PARAMETER XM$M_MDM_RTSHLD = '00000001'X( PARAMETER XM$M_MDM_STNDBY = '00000002'X( PARAMETER r XM$M_MDM_MAINT2 = '00000004'X( PARAMETER XM$M_MDM_MAINT1 = '00000008'X& PARAMETER XM$M_MDM_FREQ = '00000020'X% PARAMETER XM$M_MDM_RDY = '00000040'X& PARAMETER XM$M_MDM_POLL = '00000080'X& PARAMETER XM$M_MDM_SELM = '00000100'X% PARAMETER XM$M_MDM_INT = '00000800'X% PARAMETER XM$M_MDM_V35 = '00001000'X' PARAMETER XM$M_MDM_RS232 = '00004000'X' PARAMETER XM$M_MDM_RS422 = '00008000'X) PARAMETER XM$M_MDM_CARRDET = '00000001'X) PARAMETER XM$M_MDM_MSTNDBY = '00000002'X% PARAMETER XM$M_MDM_sCTS = '00000004'X% PARAMETER XM$M_MDM_DSR = '00000008'X% PARAMETER XM$M_MDM_HDX = '00000010'X% PARAMETER XM$M_MDM_RTS = '00000020'X% PARAMETER XM$M_MDM_DTR = '00000040'X& PARAMETER XM$M_MDM_RING = '00000080'X( PARAMETER XM$M_MDM_CHRMOD = '00000100'X( PARAMETER XM$M_MDM_MCLOCK = '00000200'X) PARAMETER XM$M_MDM_MODTEST = '00000400'X) PARAMETER XM$M_MDM_SIGQUAL = '00004000'X) PARAMETER XM$M_MDM_SIGRATE = '00008000'X STRUCTURE /XMDEF/ UNION MAP# PARAMETER XM$S_CHR_MOP t= 12 PARAMETER XM$V_CHR_MOP = 0 ! MOP MODE % PARAMETER XM$S_CHR_LOOPB = 15 PARAMETER XM$V_CHR_LOOPB = 1 ! LOOP BACK % PARAMETER XM$S_CHR_HDPLX = 17 PARAMETER XM$V_CHR_HDPLX = 2 ! HALF DUPLEX % PARAMETER XM$S_CHR_SLAVE = 1E PARAMETER XM$V_CHR_SLAVE = 3 ! HALF DUPLEX SLAVE STATION # PARAMETER XM$S_CHR_MBX = 1< PARAMETER XM$V_CHR_MBX = 4 ! MAILBOX IS ENABLED # PARAMETER XM$S_CHR_DMC = 1C u PARAMETER XM$V_CHR_DMC = 5 ! DMC-11 COMPATABILITY MODE $ PARAMETER XM$S_CHR_CTRL = 1: PARAMETER XM$V_CHR_CTRL = 6 ! CONTROL STATION $ PARAMETER XM$S_CHR_TRIB = 1< PARAMETER XM$V_CHR_TRIB = 7 ! TRIBUTARY STATION $ PARAMETER XM$S_STS_DCHK = 1= PARAMETER XM$V_STS_DCHK = 8 ! DATA CHECK OCCURED $ PARAMETER XM$S_STS_TIMO = 1: PARAMETER XM$V_STS_TIMO = 9 ! TIMEOUT OCCURED $ PARAMETER XM$S_STS_ORUN = 1A v PARAMETER XM$V_STS_ORUN = 10 ! DATA OVER RUN OCCURED & PARAMETER XM$S_STS_ACTIVE = 19 PARAMETER XM$V_STS_ACTIVE = 11 ! ACTIVE UNIT ' PARAMETER XM$S_STS_BUFFAIL = 1P PARAMETER XM$V_STS_BUFFAIL = 12 ! BUFFER ALLOCATION FAILURE OCCURED ' PARAMETER XM$S_STS_RUNNING = 1? PARAMETER XM$V_STS_RUNNING = 13 ! PROTOCOL RUNNING $ PARAMETER XM$S_STS_DISC = 1C PARAMETER XM$V_STS_DISC = 14 ! LINE DISCONNECT OCCURED % w PARAMETER XM$S_ERR_FATAL = 1; PARAMETER XM$V_ERR_FATAL = 16 ! HARDWARE ERROR % PARAMETER XM$S_ERR_MAINT = 1I PARAMETER XM$V_ERR_MAINT = 19 ! DDCMP MAINT MESSAGE RECEIVED $ PARAMETER XM$S_ERR_LOST = 1U PARAMETER XM$V_ERR_LOST = 20 ! DATA LOST BECAUSE OF BUFFER SIZE MISMATCH & PARAMETER XM$S_ERR_THRESH = 1> PARAMETER XM$V_ERR_THRESH = 21 ! THRESHOLD ERRORS $ PARAMETER XM$S_ERR_TRIB = 1D PARAMETER XM$ xV_ERR_TRIB = 22 ! TRIBUTARY MALFUNCTIONING % PARAMETER XM$S_ERR_START = 1& PARAMETER XM$V_ERR_START = 23< BYTE %FILL (3) ! DDCMP START MESSAGE RECEIVED END MAP MAP& PARAMETER XM$S_MDM_RTSHLD = 15 PARAMETER XM$V_MDM_RTSHLD = 0 ! RTS HOLD & PARAMETER XM$S_MDM_STNDBY = 1; PARAMETER XM$V_MDM_STNDBY = 1 ! SELECT STANDBY & PARAMETER XM$S_MDM_MAINT2 = 1? PARAMETER XM$V_MDM_MAINT2 = 2 ! MAINTENANC yE MODE 2 & PARAMETER XM$S_MDM_MAINT1 = 1? PARAMETER XM$V_MDM_MAINT1 = 3 ! MAINTENANCE MODE 1 $ PARAMETER XM$S_MDM_FREQ = 1; PARAMETER XM$V_MDM_FREQ = 5 ! SELECT FREQUENCY # PARAMETER XM$S_MDM_RDY = 1= PARAMETER XM$V_MDM_RDY = 6 ! DATA TERMINAL READY $ PARAMETER XM$S_MDM_POLL = 1D PARAMETER XM$V_MDM_POLL = 7 ! SELECT POLLING MODEM MODE $ PARAMETER XM$S_MDM_SELM = 1K PARAMETER XM$V_MDM_SELM = 8 ! z MODEM INTERFACE PROGRAM SELECTED # PARAMETER XM$S_MDM_INT = 19 PARAMETER XM$V_MDM_INT = 11 ! INTEGRAL MODEM # PARAMETER XM$S_MDM_V35 = 1/ PARAMETER XM$V_MDM_V35 = 12 ! V.35 % PARAMETER XM$S_MDM_RS232 = 1> PARAMETER XM$V_MDM_RS232 = 14 ! RS-232-C OR RS423 % PARAMETER XM$S_MDM_RS422 = 1& PARAMETER XM$V_MDM_RS422 = 15& BYTE %FILL (2) ! RS-422 END MAP MAP' PARAMETER XM$S_MDM_CARRDE {T = 1< PARAMETER XM$V_MDM_CARRDET = 0 ! CARRIER DETECT ' PARAMETER XM$S_MDM_MSTNDBY = 1; PARAMETER XM$V_MDM_MSTNDBY = 1 ! MODEM STANDBY # PARAMETER XM$S_MDM_CTS = 17 PARAMETER XM$V_MDM_CTS = 2 ! CLEAR TO SEND # PARAMETER XM$S_MDM_DSR = 18 PARAMETER XM$V_MDM_DSR = 3 ! DATA SET READY # PARAMETER XM$S_MDM_HDX = 15 PARAMETER XM$V_MDM_HDX = 4 ! HALF-DUPLEX # PARAMETER XM$S_MDM_RTS = 19 | PARAMETER XM$V_MDM_RTS = 5 ! REQUEST TO SEND # PARAMETER XM$S_MDM_DTR = 1= PARAMETER XM$V_MDM_DTR = 6 ! DATA TERMINAL READY $ PARAMETER XM$S_MDM_RING = 1/ PARAMETER XM$V_MDM_RING = 7 ! RING & PARAMETER XM$S_MDM_CHRMOD = 1K PARAMETER XM$V_MDM_CHRMOD = 8 ! CHARACTER OR BIT PROTOCOL MODE & PARAMETER XM$S_MDM_MCLOCK = 1> PARAMETER XM$V_MDM_MCLOCK = 9 ! MAINTENANCE CLOCK ' PARAMETER XM$S_MDM_MODTEST = 1>} PARAMETER XM$V_MDM_MODTEST = 10 ! MODEM TEST MODE ' PARAMETER XM$S_MDM_SIGQUAL = 1= PARAMETER XM$V_MDM_SIGQUAL = 14 ! SIGNAL QUALITY ' PARAMETER XM$S_MDM_SIGRATE = 1( PARAMETER XM$V_MDM_SIGRATE = 15+ BYTE %FILL (2) ! SIGNAL RATE END MAP END UNION END STRUCTURE ! XMDEF!DEC$ END OPTIONS wwVΦ!*** MODULE $XWDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ++ ! 1 ! XWDEF ~- System definitions for software DDCMP !  ! --% PARAMETER XW$M_CHA_FDX = '00000001'X% PARAMETER XW$M_CHA_XPR = '00000002'X% PARAMETER XW$M_CHA_DSR = '00000004'X& PARAMETER XW$M_FAT_STAT = '000003FF'X' PARAMETER XW$M_INFO_STAT = '0000FC00'X! PARAMETER XW$M_EOT = '00000001'X$ PARAMETER XW$M_DATACK = '00000002'X# PARAMETER XW$M_NODSR = '00000004'X$ PARAMETER XW$M_DISCON = '00000008'X' PARAMETER XW$M_TRABINTMO = '00000010'X' PARAMETER XW$M_PIPE_MARK = '00000020'X& PARAMETER XW$M_BADCHAIN = '00000040'X$ PARAMETER XW$M_ILLMOD = '00000080'X! PARAMETER XW$M_RVI = '00000400'X$ PARAMETER XW$M_CONACK = '00000800'X! PARAMETER XW$M_XPR = '00001000'X$ PARAMETER XW$M_ETXEND = '00002000'X# PARAMETER XW$M_PUNCH = '00010000'X% PARAMETER XW$M_HOR_FOR = '00020000'X# PARAMETER XW$M_IOMOD = '0000E000'X STRUCTURE /XWDEF/ UNION MAP# PARAMETER XW$S_CHA_FDX = 1: PARAMETER XW$V_CHA_FDX = 0 ! Full duplex line # PARAMETER XW$S_CHA_XPR = 16  PARAMETER XW$V_CHA_XPR = 1 ! Transparency # PARAMETER XW$S_CHA_DSR = 1< PARAMETER XW$V_CHA_DSR = 2 ! Data Set Ready set  BYTE %FILL (1) END MAP !  ! Device dependent status !  MAP% PARAMETER XW$S_FAT_STAT = 10H PARAMETER XW$V_FAT_STAT = 0 ! Beginning of fatal stat flags % PARAMETER XW$S_INFO_STAT = 6& PARAMETER XW$V_INFO_STAT = 10= BYTE %FILL (2) ! Start of informational status END MAP ! = ! Bit definitions for fatal and informational status fields !  MAP PARAMETER XW$S_EOT = 13 PARAMETER XW$V_EOT = 0 ! EOT received " PARAMETER XW$S_DATACK = 1A PARAMETER XW$V_DATACK = 1 ! Retry threshold exceeded ! PARAMETER XW$S_NODSR = 1: PARAMETER XW$V_NODSR = 2 ! Line not connected " PARAMETER XW$S_DISCON = 1C PARAMETER XW$V_DISCON = 3 ! Disconnect (DLE, EOT) rcvd % PARAMETER X W$S_TRABINTMO = 1C PARAMETER XW$V_TRABINTMO = 4 ! Binary transmit timeout % PARAMETER XW$S_PIPE_MARK = 1H PARAMETER XW$V_PIPE_MARK = 5 ! Aborted because of pipe mark $ PARAMETER XW$S_BADCHAIN = 1: PARAMETER XW$V_BADCHAIN = 6 ! Bad record list " PARAMETER XW$S_ILLMOD = 1= PARAMETER XW$V_ILLMOD = 7 ! Illegal QIO modifier  PARAMETER XW$S_RVI = 1= PARAMETER XW$V_RVI = 10 ! Buffer ACKed with RVI "  PARAMETER XW$S_CONACK = 1G PARAMETER XW$V_CONACK = 11 ! Buffer ACKed with conver resp  PARAMETER XW$S_XPR = 1E PARAMETER XW$V_XPR = 12 ! Buffer rcvd with transparency " PARAMETER XW$S_ETXEND = 1C PARAMETER XW$V_ETXEND = 13 ! Rcvd block ended with ETX ! PARAMETER XW$S_PUNCH = 1; PARAMETER XW$V_PUNCH = 16 ! Punch select found # PARAMETER XW$S_HOR_FOR = 1G PARAMETER XW$V_HOR_FOR = 17 ! Horizontal forms record rcvd  BYTE %FILL (2) END MAP ! + ! Read/Write function modifier definition !  MAP! PARAMETER XW$S_IOMOD = 3" PARAMETER XW$V_IOMOD = 138 BYTE %FILL (1) ! I/O modifier field start END MAP END UNION END STRUCTURE ! XWDEF!DEC$ END OPTIONSww>9TΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:31 by OpenVMS SDL IA64-2 b! Source: 30-AUG-2007 11:29:31 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]ACLEDIT$ROUTINES.SDI;1 ! ******************************************************************************************************************************** *!*** MODULE ACLEDIT$ROUTINES IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 0 ! Access Control List Editor (ACLEDIT) Routine !  ! + ! ACLEDIT$EDIT - Edit Access Control List ! % ! stat us = ACLEDIT$EDIT (item_list) ! ' ! item_list - Itemlist for operation !  INTEGER*4 ACLEDIT$EDIT EXTERNAL ACLEDIT$EDIT!DEC$ END OPTIONSwwHعΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:32 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:32 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]CLI$ROUTINES.SDI;1 ! ******************************************************************************************************************************** &!*** MODULE CLI$ROUTINES IDENT X-2 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! / ! Command Language Interpreter (CLI) Routines !  ! , ! CLI$DCL_PARSE - Parse DCL command string ! D ! status = CLI$DCL_PARSE ([command_string], table [,param_routine]3 ! [,prompt_routine] [,prompt_string]) ! - ! command_string - Command string to parse# ! table - Command table: ! param_routine - Routine to obtain omitted parameters1 ! prompt_routine - Routine to prompt for input/ ! prompt_string - Prompt string for display !  INTEGER*4 CLI$DCL_PARSE EXTERNAL CLI$DCL_PARSE ! - ! CLI$DISPATCH - Dispatch to action routine ! % ! status = CLI$DISPATCH ([userarg]) !  ! userarg - User argument !  INTEGER*4 CLI$DISPATCH EXTERNAL CLI$DISPATCH ! 9 ! CLI$GET_VALUE - Get value of entity in command string ! ? ! status = CLI$GET_VALUE (entity_desc, retdesc [, retlength]) ! % ! entity_desc - Entity to retrieve( ! retdesc - Returned value string+ ! retlength - Length of returned value !  INTEGER*4 CLI$GET_VALUE EXTERNAL CLI$GET_VALUE ! @ ! CLI$PRESENT - Determine presence of entity in command string ! & ! status = CLI$PRESENT (entity_desc) ! % ! entity_desc - Entity to retrieve !  INTEGER*4 CLI$PRESENT EXTERNAL CLI$PRESENT5 PARAMETER CLI$K_token_size_traditional = '000000FF'X5 PARAMETER CLI$C_token_size_traditional = '000000FF'X2 PARAMETER CLI$K_token_size_extended = '00000FA0'X2 PARAMETER CLI$C_token_size_extended = '00000FA0'Xd PARAMETER CLI$K_command_size_traditional = '000000FF'X ! command size with no continuation charac7 PARAMETER CLI$C_command_size_traditional = '000000FF'Xd PARAMETER CLI$K_command_size_extended = '00001000'X ! command size with no continuation character4 PARAMETER CLI$C_command_size_extended = '00001000 'Xf PARAMETER CLI$K_buffer_size_traditional = '00000400'X ! command size with continuation character(s)] PARAMETER CLI$C_buffer_size_traditional = '00000400'X ! or from input file c PARAMETER CLI$K_buffer_size_extended = '00002000'X ! command size with continuation character(s)Z PARAMETER CLI$C_buffer_size_extended = '00002000'X ! or from input file !DEC$ END OPTIONSwwfN7Φ'!*** MODULE CMA$DEF IDENT V3.15-001 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! FACILITY: ! 7 ! Common Multithread Architecture (CMA) services !  ! ABSTRACT: ! . ! External definitions for CMA services ! ! AUTHORS: ! " ! Dave Butenhof (-Original) ! Paul Curtin (-Generic/SDL) !  ! CREATION DATE: ! ( ! 2 November 1988 (-Original)& ! 7 September 1990 (-Generic/SDL) !  ! MODIFIED BY: !  ! Dave Butenhof ! Paul Curtin ! Gerald Feldman !  Brian Keane ! Webb Scales !  ! H ! Define a symbol which client code can test to determine whether the H ! underlying threads package is DECthreads or not. This is especiallyF ! important to clients of the Pthreads interface who may want to useL ! certain DECthreads extensions, such as the global lock and non-real-timeF ! scheduling policies, on the DECthreads platform while maintaining 7 ! portability to a "vanilla" pthreads implementation. ! $ PARAMETER DECTHREADS_ = '00000001'X ! ** INTEGER*4 cma$t_integer ! ** INTEGER*4 cma$t_boolean ! ** INTEGER*4 cma$t_natural ! ** REAL*4 cma$t_interval ! ** INTEGER*4 cma$t_key ! ** INTEGER*4 cma$t_status ! ** INTEGER*4 cma$t_priority ! ** INTEGER*4 cma$t_address, PARAMETER cma$c_prio_fifo_min = '00000010'X, PARAMETER cma$c_prio_fifo_mid = '00000018'X, PARAMETER cma$c_prio_fifo_max = '0000001F'X* PARAMETER cma$c_prio_rr_min = '00000010'X* PARAMETER cma$c_prio_rr_mid = '00000018'X* PARAMETER cma$c_p rio_rr_max = '0000001F'X/ PARAMETER cma$c_prio_through_min = '00000008'X/ PARAMETER cma$c_prio_through_mid = '0000000C'X/ PARAMETER cma$c_prio_through_max = '0000000F'X, PARAMETER cma$c_prio_back_min = '00000000'X, PARAMETER cma$c_prio_back_mid = '00000004'X, PARAMETER cma$c_prio_back_max = '00000007'X/ PARAMETER cma$c_prio_ada_low_min = '00000000'X/ PARAMETER cma$c_prio_ada_low_mid = '00000004'X/ PARAMETER cma$c_prio_ada_low_max = '00000007'X/ PARAMETER cma$c_prio_ada_rtb_min = '00000 000'X/ PARAMETER cma$c_prio_ada_rtb_mid = '00000004'X/ PARAMETER cma$c_prio_ada_rtb_max = '00000007'X ! E ! The implementation of the date_time type should match the "nativeN ! time" of the platform: that allows clients to use the full set of platformF ! time operations, rather than just "get_expiration", to compute and ! test timed waits. ! L ! This section assumes the platform is either "VMS" or "UNIX-ish". Others ! will require changes. !  STRUCTURE /cma$t_date_time/ INTEGER*4 low INTEGER*4 high END STRUCTURE ! cma$t_date_time ! / ! Sample decisions for what handles shall be  !  STRUCTURE /cma$t_handle/7 INTEGER*4 handle_field1 ! type is "cma$t_natural"7 INTEGER*4 handle_field2 ! type is "cma$t_natural" END STRUCTURE ! cma$t_handle* PARAMETER cma$c_handle_size = '00000008'X ! G ! Sample decision for a one-time initialization control block and its ! initialization macro. !  !  STRUCTURE /cma$t_once/ 5 INTEGER*4 once_field1 ! type is "cma$t_integer"5 INTEGER*4 once_field2 ! type is "cma$t_integer"5 INTEGER*4 once_field3 ! type is "cma$t_integer" END STRUCTURE ! cma$t_once ! C ! Sample decision for a variable to save the current alert state. !  STRUCTURE /cma$t_alert_state/0 INTEGER*4 state1 ! type is "cma$t_integer"0 INTEGER*4 state2 ! type is "cma$t_integer"" END STRUCTURE ! cma$t_alert_state ! 2 ! The following are the portable CMA definitions !  !  ! Operations on threads ! # ! ** INTEGER*4 cma$t_start_routine ! ! Constants ! $ PARAMETER cma$c_false = '00000000'X# PARAMETER cma$c_true = '00000001'X' PARAMETER cma$c_null_ptr = '00000000'X ! ! Objects ! 4 STRUCTURE /cma$t_mutex/ ! Needed for ONCE_BLOCK0 INTEGER*4 field1 ! type is "cma$t_address" INTEGER*2 field2 INTEGER*2 field3 END STRUCTURE ! cma$t_mutex STRUCTURE /cma$t_attr/0 INTEGER*4 field1 ! type is "cma$t_address" INTEGER*2 field2 INTEGER*2 field3 END STRUCTURE ! cma$t_attr STRUCTURE /cma$t_thread/0 INTEGER*4 field1 ! type is "cma$t_address" INTEGER*2 field2 INTEGER*2 field3 END STRUCTURE ! cma$t_thread STRUCTURE /cma$t_cond/0 INTEGER*4 field1 ! type is "cma$t_address" INTEGER*2 field2 INTEGER*2 field3 END STRUCTURE ! cma$t_cond STRUCTURE /cma$t_stack_np/0 INTEGER*4 field1 ! type is "cma$t_address" INTEGER*2 field2  INTEGER*2 field3 END STRUCTURE ! cma$t_stack_np !  ! Exit status constants ! ! ! ** INTEGER*4 cma$t_exit_status) PARAMETER cma$c_term_error = '00000000'X* PARAMETER cma$c_term_normal = '00000001'X) PARAMETER cma$c_term_alert = '00000002'X! PARAMETER cma$c_null_thread = -1 ! " ! Schedule inheritance constants ! # ! ** INTEGER*4 cma$t_sched_inherit, PARAMETER cma$c_sched_inherit = '00000000'X0 PARAMETER cma$c_sched_use_default = '00000001'X !  ! Schedule policy constants ! " ! ** INTEGER*4 cma$t_sched_policy) PARAMETER cma$c_sched_fifo = '00000000'X' PARAMETER cma$c_sched_rr = '00000001'X/ PARAMETER cma$c_sched_throughput = '00000002'X/ PARAMETER cma$c_sched_background = '00000003'X, PARAMETER cma$c_sched_ada_low = '00000004'X !  ! Default and other policies. ! , PARAMETER cma$c_sched_default = '00000002'X* PARAMETER cma$c_sched_other = '00000002'X !  ! Mutex types ! ! ** INTEGER*4 cma$t_mutex_kind) PARAMETER cma$c_m utex_fast = '00000000'X. PARAMETER cma$c_mutex_recursive = '00000001'X1 PARAMETER cma$c_mutex_nonrecursive = '00000002'X ! # ! Sample decision for error codes ! 9 ! Values used are "VMS status codes" in decimal. These@ ! must remain in synch with the "message file" MESSAGE_VMS.MSGD ! Note: these values cannot be altered after they have shipped in A ! some CMA release. Octal boundaries are shown on the decimal B ! values. GAF 6/1/92 Coordinated definitions with exc_handling.h ! ' PARAMETER cma$_exception = '0040800C'X$ PARAMETER cma$_exccop = '00408014'X' PARAMETER cma$_uninitexc = '0040801C'X' PARAMETER cma$_unkstatus = '00408404'X' PARAMETER cma$_exccoplos = '0040840C'X% PARAMETER cma$_illaddr = '0000000C'X% PARAMETER cma$_exquota = '0000001C'X% PARAMETER cma$_insfmem = '00000124'X$ PARAMETER cma$_nopriv = '00000024'X$ PARAMETER cma$_normal = '00000001'X& PARAMETER cma$_illinstr = '0000043C'X% PARAMETER cma$_resaddr = '0000044C'X& PARAMETER cma$_privinst = '0000043C'X% PARAMETER cma$_resoper = '00000454'X% PARAMETER cma$_SIGTRAP = '00000414'X$ PARAMETER cma$_SIGIOT = '0000002C'X$ PARAMETER cma$_SIGEMT = '0000042C'X& PARAMETER cma$_aritherr = '0000048C'X$ PARAMETER cma$_SIGSYS = '00000014'X% PARAMETER cma$_SIGPIPE = '00000274'X# PARAMETER cma$_excpu = '000020AC'X& PARAMETER cma$_exfilsiz = '000003EC'X$ PARAMETER cma$_intovf = '0000047C'X$ PARAMETER cma$_intdiv = '00000484'X$ PARAMETER cma$_fltovf = '0000048C'X$ PARAMETER cma$_fltdiv = '00000494'X$ PARAMETER cma$_fltund = '0000049C'X$ PARAMETER cma$_decovf = '000004A4'X$ PARAMETER cma$_subrng = '000004AC'X$ PARAMETER cma$_accvio = '0000000C'X$ PARAMETER cma$_SIGILL = '0000043C'X$ PARAMETER cma$_SIGFPE = '0000048C'X$ PARAMETER cma$_SIGBUS = '0000043C'X% PARAMETER cma$_SIGSEGV = '0000043C'X% PARAMETER cma$_SIGXCPU = '000020AC'X% PARAMETER cma$_SIGXFSZ = '000003EC'X% PARAMETER cma$_alerted = '00408184'X' PARAMETER cma$_assertion = '0040818C'X& PARAMETER cma$_ badparam = '00408194'X& PARAMETER cma$_bugcheck = '0040819C'X) PARAMETER cma$_exit_thread = '004081A4'X' PARAMETER cma$_existence = '004081AC'X$ PARAMETER cma$_in_use = '004081B4'X' PARAMETER cma$_use_error = '004081BC'X( PARAMETER cma$_wrongmutex = '004081C4'X& PARAMETER cma$_stackovf = '0000022A'X( PARAMETER cma$_nostackmem = '004081D4'X) PARAMETER cma$_notcmastack = '004081DC'X' PARAMETER cma$_timed_out = '004081E4'X# PARAMETER cma$_unimp = '004081EC'X' PARAMETER cma$_inialrpro = '004081F4'X* PARAMETER cma$_defer_q_full = '004081FC'X+ PARAMETER cma$_signal_q_full = '00408204'X+ PARAMETER cma$_alert_nesting = '0040820C'X !  ! EXCEPTION TYPE DEFINITIONS ! ! ! ** INTEGER*4 cma$exc_address_t ! ** INTEGER*4 cma$exc_kind_t ! ** INTEGER*4 cma$exc_int_t ! - ! Internal contents of an exception object. !  STRUCTURE /cma$t_exception/3 INTEGER*4 exc_kind ! type is "cma$exc_kind_t"6 INTEGER*4 exc_info ! type is "cma$exc_address_t"= INTEGER *4 exc_filler(1:6) ! type is "cma$exc_address_t" END STRUCTURE ! cma$t_exception) RECORD /cma$t_exception/ cma$e_uninitexc' RECORD /cma$t_exception/ cma$e_illaddr' RECORD /cma$t_exception/ cma$e_exquota' RECORD /cma$t_exception/ cma$e_insfmem& RECORD /cma$t_exception/ cma$e_nopriv( RECORD /cma$t_exception/ cma$e_illinstr' RECORD /cma$t_exception/ cma$e_resaddr( RECORD /cma$t_exception/ cma$e_privinst' RECORD /cma$t_exception/ cma$e_resoper' RECORD /cma$t_exception/ cma$e_SIGTRAP&  RECORD /cma$t_exception/ cma$e_SIGIOT& RECORD /cma$t_exception/ cma$e_SIGEMT( RECORD /cma$t_exception/ cma$e_aritherr& RECORD /cma$t_exception/ cma$e_SIGSYS' RECORD /cma$t_exception/ cma$e_SIGPIPE% RECORD /cma$t_exception/ cma$e_excpu( RECORD /cma$t_exception/ cma$e_exfilsiz& RECORD /cma$t_exception/ cma$e_intovf& RECORD /cma$t_exception/ cma$e_intdiv& RECORD /cma$t_exception/ cma$e_fltovf& RECORD /cma$t_exception/ cma$e_fltdiv& RECORD /cma$t_exception/ cma$e_fltund& RECORD /cma$t_excep tion/ cma$e_decovf& RECORD /cma$t_exception/ cma$e_subrng' RECORD /cma$t_exception/ cma$e_alerted) RECORD /cma$t_exception/ cma$e_assertion( RECORD /cma$t_exception/ cma$e_badparam( RECORD /cma$t_exception/ cma$e_bugcheck+ RECORD /cma$t_exception/ cma$e_exit_thread) RECORD /cma$t_exception/ cma$e_existence& RECORD /cma$t_exception/ cma$e_in_use) RECORD /cma$t_exception/ cma$e_use_error* RECORD /cma$t_exception/ cma$e_wrongmutex( RECORD /cma$t_exception/ cma$e_stackovf* RECORD /cma$t_exception/ cma$e_nostackmem+ RECORD /cma$t_exception/ cma$e_notcmastack% RECORD /cma$t_exception/ cma$e_unimp) RECORD /cma$t_exception/ cma$e_inialrpro, RECORD /cma$t_exception/ cma$e_defer_q_full- RECORD /cma$t_exception/ cma$e_signal_q_full- RECORD /cma$t_exception/ cma$e_alert_nesting !  ! Operations on Handles !  ! G ! The value of a handle can be assigned the value of another handle.  !  ! Subroutine cma$handle_assign ! G ! The value of a handle can be assigned the value of another handle.  ! 6 INTEGER*4 cma$handle_equal ! type is "cma$t_boolean" EXTERNAL cma$handle_equal ! J ! An attributes object is created to specify the attributes of other CMA! ! objects that will be created. !  ! Subroutine cma$attr_create ! D ! An attributes object can be deleted when it is no longer needed. !  ! Subroutine cma$attr_delete ! D ! The following procedures can be used to control thread creation, ! termination and deletion. !  ! N ! To create a thread object and runnable thread, a routine must be specifiedI ! as the new thread's start routine. An argument may be passed to thisN ! routine, as an untyped address; an untyped address may also be returned asM ! the routine's value. An attributes object may be used to specify details+ ! about the kind of thread being created. !  ! Subroutine cma$thread_create ! J ! A thread object may be "detached" to specify that the return value and, ! completion status will not be requested. !  ! Subroutine cma$thread_detach ! . ! A thread may terminate it's own execution. ! # ! Subroutine cma$thread_exit_error !  ! Exit a thread normally. ! $ ! Subroutine cma$thread_exit_normal ! L ! A thread can await termination of another thread and retrieve the return. ! value and completion status of the thread. !  ! Subroutine cma$thread_join ! 3 ! Operations to define thread creation attributes !  ! . ! Set or obtain the default thread priority. ! # ! Subroutine cma$attr_set_priority ! 2 ! Obtain thread priority from attributes object. ! # ! Subroutine cma$attr_get_priority ! 3 ! Set or obtain the default scheduling algorithm. ! ! Subroutine cma$attr_set_sched ! ; ! Get thread scheduling algorithm from attributes object. ! ! Subroutine cma$attr_get_sched ! N ! Set or obtain whether a thread will use the default scheduling attributes,- ! or inherit them from the creating thread. ! ( ! Subroutine cma$attr_set_inherit_sched ! ) ! Obtain default scheduling attributes. ! ( ! Subroutine cma$attr_get_inherit_sched !  ! Set the default stack size ! $ ! Subroutine cma$attr_set_stacksize ! " ! Obtain the default stack size. ! $ ! Subroutine cma$attr_get_stacksize !  ! Set the default guard size ! $ ! Subroutine cma$attr_set_guardsize ! ! ! Obtain the default guard size ! $ ! Subroutine cma$attr_get_guardsize ! ! Thread Scheduling Operations !  ! B ! The current user_assigned priority of a thread can be changed. ! % ! Subroutine cma$thread_set_priority ! M ! The current user_assigned scheduler algorithm of a thread can be changed. ! " ! Subroutine cma$thread_set_sched ! M ! A thread may tell the scheduler that its processor can be made available. !  ! Subroutine cma$yield ! B ! A thread may enter a wait state for a specifed period of time. !  ! Subroutine cma$delay ! ! ! Thread Information Operations !  ! 8 ! A thread may obtain a copy of its own thread handle. ! ! ! Subroutine cma$thread_get_self ! ? ! The current user_assigned priority of a thread can be read. ! % ! Subroutine cma$thread_get_priority ! J ! The current user_assigned scheduler algorithm of a thread can be read. ! " ! Subroutine cma$thread_get_sched !  ! Operations on Mutexes !  ! % ! Set whether mutex locks can nest. ! % ! Subroutine cma$attr_set_mutex_kind ! ( ! Obtain whether mutex locks can nest. ! % ! Subroutine cma$attr_get_mutex_kind ! C ! The following routines create, delete, lock and unlock mutexes. !  ! Subroutine cma$mutex_create !  ! Delete a mutex. !  ! Subroutine cma$mutex_delete !  ! Lock a mutex. !  ! Subroutine cma$mutex_lock !  ! Try to lock a mutex. ! 8 INTEGER*4 cma$mutex_try_lock ! type is "cma$t_boolean" EXTERNAL cma$mutex_try_lock !  ! Unlock a mutex. !  ! Subroutine cma$mutex_unlock !  ! Lock Global mutex. !  ! Subroutine cma$lock_global !  ! Unlock Global mutex. !  ! Subroutine cma$unlock_global ! 7 ! A thread can create and delete condition variables. !  ! Subroutine cma$cond_create ! ! Delete a condition variable. !  ! Subroutine cma$cond_delete ! A ! A thread can signal to and broadcast on a condition variable. ! ! Subroutine cma$cond_broadcast ! ! Signal a condition variable. !  ! Subroutine cma$cond_signal ! ) ! Interupt signal a condition variable. ! ! ! Subroutine cma$cond_signal_int ! L ! A thread can wait for a condition variable to be signalled or broadcast. !  ! Subroutine cma$cond_wait ! ! Operations for timed waiting !  ! > ! A thread can perform a timed wait on a condition variable. ! 8 INTEGER*4 cma$cond_timed_wait ! type is "cma$t_status" EXTERNAL cma$cond_timed_wait ! M ! A thread may perform some operations on absolute date-time and intervals. ! % ! Subroutine cma$time_get_expiration ! 1 ! Operations for CMA and client initialization. !  ! ! Initialize the CMA facility. !  ! Subroutine cma$init ! K ! A thread can declare a one-time initialization routine. The address of8 ! the init block and routine are passed as parameters. ! " ! ** INTEGER*4 cma$t_init_routine !  ! Once routine !  ! Subroutine cma$once ! % ! Operations for per-thread context ! ! ** INTEGER*4 cma$t_destructor ! C ! A unique per-thread context key can be obtained for the process !  ! Subroutine cma$key_create ! D ! A thread can set a per-thread context value identified by a key. ! ! ! Subroutine cma$key_set_context ! I ! A thread can retrieve a per-thread context value identified by a key. ! ! ! Subroutine cma$key_get_context !  ! Operations for alerts. !  ! J ! The current thread can request that a thread terminate it's execution. !  ! Subroutine cma$thread_alert ! 3 ! The current thread can poll for alert delivery. !  ! Subroutine cma$alert_test ! ! ! Control alert delivery state. ! & ! Subroutine cma$alert_disable_asynch' ! Subroutine cma$alert_disable_general% ! Subroutine cma$alert_enable_asynch& ! Subroutine cma$alert_enable_general ! Subroutine cma$alert_restore !  ! Operations on stacks ! " ! ** INTEGER*4 cma$t_call_routine !  ! Assign a stack to a thread ! ! ! Subroutine cma$stack_assign_np ! ! ! Call a routine on a new stack ! ' ! Subroutine cma$stack_call_routine_np !  ! Check stack limit ! > INTEGER*4 cma$stack_check_limit_np ! type is "cma$t_boolean"" EXTERNAL cma$stack_check_limit_np !  ! Create a new stack ! ! ! Subroutine cma$stack_create_np !  ! Delete a stack ! ! ! Subroutine cma$stack_delete_np !  ! CMA Debug entry point !  ! Subroutine cma$debug !  ! Fetch the fp ! 6 INTEGER*4 cma$exc_fetch_fp ! type is "cma$t_address" EXTERNAL cma$exc_fetch_fp !  ! Push an exception context !  ! Subroutine cma$exc_push_ctx ! Subroutine cma$exc_pop_ctx ! Subroutine cma$exc_raise" ! Subroutine cma$exc_raise_status ! Subroutine cma$exc_report5 INTEGER*4 cma$exc_handler ! type is "cma$t_integer" EXTERNAL cma$exc_handler1 INTEGER*4 cma$sigwait ! type is "cma$t_integer" EXTERNAL cma$sigwait ! E ! The following are the portable CMA High-Level Library definitions !  ! $ ! Operations on attributes objects !  STRUCTURE /cma$lib_t_attr/0 INTEGER*4 field1 ! type is "cma$t_address" INTEGER*2 field2 INTEGER*2 field3 END STRUCTURE ! cma$lib_t_attr ! J ! An attributes object is created to specify the attributes of other CMA! ! objects that will be created. ! ! ! Subroutine cma$lib_attr_create ! D ! An attributes object can be deleted when it is no longer needed. ! ! ! Subroutine cma$lib_attr_delete !  ! Operations on queues !  STRUCTURE /cma$lib_t_queue/0 INTEGER*4 field1 ! type is "cma$t_address" INTEGER*2 field2 INTEGER*2 field3 END STRUCTURE ! cma$lib_t_queue" ! Subroutine cma$lib_queue_create" ! Subroutine cma$lib_queue_delete# ! Subroutine cma$lib_queue_dequeue# ! Subroutine cma$lib_queue_enqueueC INTEGER*4 cma$lib_queue_try_enqueue_int ! type is "cma$t_boolean"' EXTERNAL cma$lib_queue_try_enqueue_int# ! Subroutine cma$lib_queue_requeue? INTEGER*4 cma$lib_queue_try_dequeue ! type is "cma$t_boolean"# EXTERNAL cma$lib_queue_try_dequeue? INTEGER*4 cma$lib_queue_try_enqueue ! type is "cma$t_boolean"# EXTERNAL cma$lib_queue_try_enqueue? INTEGER*4 cma$lib_queue_try_requeue ! type is "cma$t_boolean"# EXTERNAL cma$lib_queue_try_requeue ! ( ! Set or obtain the default queue size ! ( ! Subroutine cma$lib_attr_get_queuesize( ! Subroutine cma$lib_attr_set_queuesize!DEC$ END OPTIONSww'dΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:33 by OpenVMS SDL IA64-2 _! Source: 30-AUG-2007 11:29:33 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]CONV$ROUTINES.SDI;1 ! ******************************************************************************************************************************** '!*** MODULE CONV$ROUTINES IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! Convert (CONV) Routines !  ! & ! CONV$CONVERT - Initiate conversion ! ; ! status = CONV$CONVERT ([status_block_address] [,flags]) ! I ! status_block_address - Array of longwords into which will be writtenG ! statistics about the conversion. The firstA ! element contains the number of following elements; ! flags - Flags to control the conversion !  INTEGER*4 CONV$CONVERT EXTERNAL CONV$CONVERT ! . ! CONV$PASS_FILES - Specify conversion files ! = ! status = CONV$PASS_FILES (input_filespec, output_filespec7 ! [,fdl_filespec] [,exception_filespec] ! [,flags]) ! . ! input_filespec - File to be converted* ! output_filespec - Destination file< ! fdl_filespec - File containing FDL for conversion; ! exception_filespec - File to contain exception records6 ! flags - Flags controlling conversion INTEGER*4 CONV$PASS_FILES EXTERNAL CONV$PASS_FILES ! 2 ! CONV$PASS_OPTIONS - Specify processing options ! B ! status = CONV$PASS_OPTIONS ([parameter_list_address] [,flags]) ! > ! parameter_list_address - Array specifying convert options: ! flags - Flags controlling conversion !  INTEGER*4 CONV$PASS_OPTIONS EXTERNAL CONV$PASS_OPTIONS ! " ! CONV$RECLAIM - CONVERT/RECLAIM ! < ! status - CONV$RECLAIM (input_filespec [,statistics_blk]) ! * ! input_fil espec - File to be convertedK ! statistics_blk - Array to receive statistics; first longword specifies% ! number of statistics !  INTEGER*4 CONV$RECLAIM EXTERNAL CONV$RECLAIM!DEC$ END OPTIONSww4aΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:35 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:34 GEM$:[GEMGROUP.SHEILAM.FORSYSDE F.IVMS-V83]CVT$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE cvt$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNM ! **************************************************************************M ! M ! Copyright (c) 1993,1994 M ! by DIGITAL Equipment Corporation, Maynard, Mass. M ! M ! This software is furnished under a license and may be used and copied M ! only in accordance with the terms of such license and with the M ! inclusion of the above copyright notice. This software or any other M ! copies thereof may not be provided or otherwise made available to any M ! other person. No title to and ownership of the software is hereby M ! transferred. M ! M ! The information in this software is subject to change without notice M ! and should not be construed as a commitment by DIGITAL Equipment M ! Corporation. M !  M ! DIGITAL assumes no responsibility for the use or reliability of its M ! software on equipment which is not supplied by DIGITAL. M ! M ! ************************************************************************** ! CVT$CONVERT_FLOAT ! ) ! Convert floating point data types. ! H ! The CVT$CONVERT_FLOAT converts floating point data types to other+ !  supported floating point data types. !  INTEGER*4 cvt$convert_float EXTERNAL cvt$convert_float INTEGER*4 CVT$FTOF EXTERNAL CVT$FTOF!DEC$ END OPTIONSwwΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:36 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:35 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]DCX$ROUTINES.SDI;1 ! ******************************************************************************************************************************** &!*** MODULE DCX$ROUTINES IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNB ! --------------------------------------------------------------- ! - ! Data Compression/Expansion (DCX) Routines !  ! , ! DCX$ANALYZE_DATA - Analyze a data record ! / ! status = DCX$ANALYZE_DATA (context, record) ! 9 ! context - Context value returned by DCX$ANALYZE_INIT$ ! record - Record to be analyzed INTEGER*4 DCX$ANALYZE_DATA EXTERNAL DCX$ANALYZE_DATA ! ( ! DCX$ANALYZE_DONE - Complete analysis ! ' ! status = DCX$ANALYZE_DONE (context) ! 9 ! context - Context value returned by DCX$ANALYZE_INIT INTEGER*4 DCX$ANALYZE_DONE EXTERNAL DCX$ANALYZE_DONE ! 6 ! DCX$ANALYZE_INIT - Initialize context for analysis ! @ ! status = DCX$ANALYZE_INIT (context [,item_code, item_value]) ! 7 ! context - Receives context value for data streamA ! item_code - Specifies information to be used during analysis+ ! item_value - Value of information itemG ! [Note - successive pairs of item_code and item_value can be passed ! in the argument list] !  INTEGER*4 DCX$ANALYZE_INIT EXTERNAL DCX$ANALYZE_INIT ! . ! DCX$COMPRESS_DATA - Compress a data record ! E ! status = DCX$COMPRESS_DATA (context, in_rec, out_rec, out_length) ! 5 ! context - Value returned by DCX$COMPRESS_INIT. ! in_rec - Data record to be compressed, ! out_rec - Receives compressed record6 ! out_length - Receives length of compressed record !  INTEGER*4 DCX$COMPRESS_DATA EXTERNAL DCX$COMPRESS_DATA ! 6 ! DCX$COMPRESS_DONE - Delete context for compression ! ( ! status = DCX$COMPRESS_DONE (context) ! 2 ! context - Value returned by DCX$COMPRESS_INIT !  INTEGER*4 DCX$COMPRESS_DONE EXTERNAL DCX$COMPRESS_DONE ! : ! DCX$COMPRESS_INIT - Initialize context for compression ! - ! status = DCX$COMPRESS_INIT (context, map) ! 1 ! context - Context value for this data stream1 ! map - Map value returned by DCX$MAKE_MAP !  INTEGER*4 DCX$COMPRESS_INIT EXTERNAL DCX$COMPRESS_INIT ! 5 ! DCX$EXPAND_DATA - Expand a compressed data record ! E ! status = DCX$EXPAND_DATA (context, in_rec, out_rec [,out_length]) ! 3 ! context - Value returned by DCX$EXPAND_INIT, ! in_rec - Data record to be expanded/ ! out_rec - Receives expanded data record4 ! out_length - Receives length of expanded record !  INTEGER*4 DCX$EXPAND_DATA EXTERNAL DCX$EXPAND_DATA ! 2 ! DCX$EXPAND_DONE - Delete context for expansion ! & ! status = DCX$EXPAND_DONE (context) ! 0 ! context - Value returned by DCX$EXPAND_INIT !  INTEGER*4 DCX$EXPAND_DONE EXTERNAL DCX$EXPAND_DONE ! 6 ! DCX$EXPAND_INIT - Initialize context for expansion ! + ! status = DCX$EXPAND_INIT (context, map) ! = ! context - Receives context value identifying data stream1 ! map - Map value returned by DCX$MAKE_MAP !  INTEGER*4 DCX$EXPAND_INIT EXTERNAL DCX$EXPAND_INIT ! 4 ! DCX$MAKE_MAP - Compute compression/expansion map ! : ! status = DCX$MAKE_MAP (context, map_addr [, map_size]) ! 1 ! context - Value returned by DCX$ANALYZE_INIT6 ! map_addr - Receives address of allocated map data3 ! map_size - Receives size of allocated map data !  INTEGER*4 DCX$MAKE_MAP EXTERNAL DCX$MAKE_MAP!DEC$ END OPTIONSwwHΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:37 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:36 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]DTK$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE dtk$routines ***:!DEC$ OPTION S/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! *************************************************************************** ! *2 ! COPYRIGHT (c) 1988 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF TH E ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL A SSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *N ! *************************************************************************** ! DTK$ANSWER_PHONE ! ( ! Wait for Phone to Ring and Answer ! 5 ! The Wait for Phone to Ring and Answer routine B ! waits for the phone connected to the DECtalk device to ring ! and then answers it.  !  INTEGER*4 dtk$answer_phone EXTERNAL dtk$answer_phone ! DTK$CHECK_HDWR_STATUS !  ! Check Hardware Status ! Q ! The Check Hardware Status routine checks the DECtalk hardware for hardware ! malfunctions.  ! INTEGER*4 dtk$check_hdwr_status EXTERNAL dtk$check_hdwr_status ! DTK$DIAL_PHONE !  ! Dial the Telephone ! R ! The Dial the Telephone routine dials the specified number on the telephone. !  INTEGER*4 dtk$dial_phone EXTERNAL dtk$dial_phone ! DTK$HANGUP_PHONE !  ! Hang Up the Phone ! D ! The Hang Up the Phone routine speaks an optional message and  ! then hangs up the phone. !  INTEGER*4 dtk$hangup_phone EXTERNAL dtk$hangup_phone ! DTK$INITIALIZE !  ! Initialize DECtalk ! d ! The Initialize DECtalk routine initializes a DECtalk device and returns the device's assigned ! voice identifier.  !  INTEGER*4 dtk$initialize EXTERNAL dtk$initialize ! DTK$LOAD_DICTIONARY ! . ! Load a Word into the DECtalk Dictionary ! ; ! The Load a Word into the DECtalk Dictionary routine > ! loads a phonemic definition of a word into the DECtalk  ! dictionary. !  INTEGER*4 dtk$load_dictionary EXTERNAL dtk$load_dictionary ! DTK$READ_KEYSTROKE ! ' ! Read a Key Entered on the Keypad ! 4 ! The Read a Key Entered on the Keypad routine / ! reads a key entered on the phone keypad. !  INTEGER*4 dtk$read_keystroke EXTERNAL dtk$read_keystroke ! DTK$READ_STRING ! 2 ! Read a Series of Keys Entered on the Keypad ! G ! The Read a Series of Keys Entered on the Keypad routine reads a 2 ! series of keys entered on the phone keypad. !  INTEGER*4 dtk$read_string EXTERNAL dtk$read_string ! DTK$RETURN_LAST_INDEX !  ! Return Last Index Spoken ! J ! The Return Last Index Spoken routine returns the last index spoken. ! INTEGER*4 dtk$return_last_index EXTERNAL dtk$return_last_index ! DTK$SPELL_TEXT !  ! Spell Text ! H ! The Spell Text routine causes DECtalk to pronounce each letter of ! the specified text.  !  INTEGER*4 dtk$spell_text EXTERNAL dtk$spell_text ! DTK$SPEAK_FILE ! ) ! Speak the Text in a Specified File ! 6 ! The Speak the Text in a Specified File routine 7 ! speaks the text contained in the specified file. !  INTEGER*4 dtk$speak_file EXTERNAL dtk$speak_file ! DTK$SPEAK_PHONEMIC_TEXT ! ( ! Speak the Specified Phonemic Text ! 5 ! The Speak the Specified Phonemic Text routine ? ! sends the specified phonemic text to the DECtalk device  ! to be spoken. ! " INTEGER*4 dtk$speak_phonemic_text! EXTERNAL dtk$speak_phonemic_text ! DTK$SPEAK_TEXT !  ! Speak the Specified Text ! , ! The Speak the Specified Text routine 6 ! sends the specified text to the DECtalk device  ! to be spoken. !  INTEGER*4 dtk$speak_text EXTERNAL dtk$speak_text ! DTK$SET_INDEX ! . ! Insert an Index at the Current Position ! ; ! The Insert an Index at the Current Position routine 7 ! inserts an index into the current output stream. !  INTEGER*4 dtk$set_index EXTERNAL dtk$set_index ! DTK$SET_KEYPAD_MODE ! ' ! Turn the Phone Keypad On and Off ! F ! The Turn the Phone Keypad On and Off routine turns recognition ) ! of the telephone keypad on or off. !  INTEGER*4 dtk$set_keypad_mode EXTERNAL dtk$set_keypad_mode ! DTK$SET_LOGGING_MODE ! R ! Set the Logging Mode for the Video Terminal Connected to the DECtalk Device ! 7 ! The Set the Logging Mode for the Video Terminal . ! Connected to the DECtalk Device routine> ! controls the information that is displayed on the video9 ! terminal while the DECtalk device is functioning.  !  INTEGER*4 dtk$set_logging_mode EXTERNAL dtk$set_logging_mode ! DTK$SET_MODE ! , ! Set the Mode for the DECtalk Terminal ! 9 ! The Set the Mode for the DECtalk Terminal routine @ ! sets or resets the mode settings of the DECtalk terminal. !  INTEGER*4 dtk$set_mode EXTERNAL dtk$set_mode ! DTK$SET_SPEECH_MODE ! " ! Turn Speech Mode On and Off ! / ! The Turn Speech Mode On and Off routine : ! either starts or stops the DECtalk device's speech. !  INTEGER*4 dtk$set_speech_mode EXTERNAL dtk$set_speech_mode ! DTK$SET_TERMINAL_MODE ! J ! Set the Mode for the Video Terminal Connected to the DECtalk Device ! / ! The Set the Mode for the Video Terminal . ! Connected to the DECtalk Device routine> ! controls the attributes of the video terminal connected ! to the DECtalk device.  ! INTEGER*4 dtk$set_terminal_mode EXTERNAL dtk$set_terminal_mode ! DTK$SET_VOICE ! ! Set Voice Characteristics ! , ! The Set Voice Characteristics routine? ! changes the DECtalk voice characteristics to match those ! specified.  !  INTEGER*4 dtk$set_voice EXTERNAL dtk$set_voice ! DTK$TERMINATE !  ! Terminate DECtalk ! Q ! The Terminate DECtalk routine terminates the use of an initialized DECtalk ! device. !  INTEGER*4 dtk$terminate EXTERNAL dtk$terminate!DEC$ END OPTIONSww9Φ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:38 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:38 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]EDT$ROUTINES.SDI;1 ! ******************************************************************************************************************************** &!*** MODULE EDT$ROUTINES IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! EDT Editor (EDT) Routines !  !  ! EDT$EDIT - Edit a file ! N ! status = EDT$EDIT (in_file [,out_file] [,com_file] [,jou_file] [,options] 5 ! [,fileio] [,workio] [,xlate] ) ! ( ! in_file - Input file specification) ! out_file - Output file specification2 ! com_file - Startup command file specification* ! jou_file - Journal file specification* ! options - Options for edit operation: ! fileio - Bound procedure value for file I/O routine; ! workio - Bound procedure value for work I/O routine 7 ! xlate - Bound procedure value for XLATE routine !  INTEGER*4 EDT$EDIT EXTERNAL EDT$EDIT!DEC$ END OPTIONSwwcΦ! ************************************************************************************************************ ********************;! Created: 30-AUG-2007 11:29:38 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:38 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]FDL$ROUTINES.SDI;1 ! ******************************************************************************************************************************** &!*** MODULE FDL$ROUTINES IDENT X-2 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! File Definition Language (FDL) Routines ! > ! Note - FDL routines accept only class S string descriptors !  !  ! FDL$CREATE - Create a file ! = ! status = FDL$CREATE (fdl_desc [,filename] [,default_name]= ! [,result_name] [,fid_block] [,flags]= ! [,stmnt_num] [,retlen] [,sts] [,stv] ! [,dflt-fdl-spc] ! B ! fdl_desc - Name of file or string containg FDL statements. ! filename - Name of file to be created' ! default_name - Default name string0 ! result_name - Receives resultant file name4 ! fid_block - Receives file ID of created file/ ! flags - Flags controlling operation9 ! stmt_num - Receives number of statement in error2 ! retlen - Receives length of result_name* ! sts - Receives RMS STS value* ! stv - Receives RMS STV valueL ! dflt-fdl-spc - Name of file or string containing default FDL statements INTEGER*4 FDL$CREATE EXTERNAL FDL$CREATE ! < ! FDL$GENERATE - Generate an FDL specification from a file ! : ! status = FDL$GENERATE (flags, fab_pointer, rab_pointer< ! [,fdl_file_dst] [,fdl_file_resnam]0 ! [,fdl_str_dst] [,bad_blk_addr] [,retlen]) ! 2 ! flags - Flags controlling operation+ ! fab_pointer - Address of FAB block+ ! rab_pointer - Address of RAB block5 ! fdl_file_dst - Name of FDL file to be created: ! fdl_file_resnam - Receives resultant name of FDL file* ! fdl_str_dst - Receives FDL string< ! bad_blk_addr - Receives address of invalid RMS blockH ! retlen - Receives length of fdl_file_resnam or fdl_str_dst !  INTEGER*4 FDL$GENERATE EXTERNAL FDL$GENERATE ! * ! FDL$PARSE - Parse an FDL specification ! C ! status = FDL$PARSE (fdl_spec, fdl_fab_pointer, fdl_rab_pointer > ! [,flags] [,dflt_fdl_spec] [,stmt_num]) ! B ! fdl_spec - Name of FDL file or FDL string to be parsed6 ! fdl_fab_pointer - Receives address of created FAB6 ! fdl_rab_pointer - Receives address of created RAB2 ! flags - Flags controlling operationE ! dflt_fdl_spec - Name of default FDL file or default FDL string< ! stmt_num - Receives number of statement in error !  INTEGER*4 FDL$PARSE EXTERNAL FDL$PARSE ! % ! FDL$RELEASE - Release FDL context ! ? ! status = FDL$RELEASE ([fab_pointer] [,rab_pointer] [,flags]) ! [,badblk_addr]) ! 3 ! fab_pointer - Address of FAB to be deallocated3 ! rab _pointer - Address of RAB to be deallocated. ! flags - Flags controlling operation7 ! badblk_addr - Recives address of invalid RMS block !  INTEGER*4 FDL$RELEASE EXTERNAL FDL$RELEASE!DEC$ END OPTIONSww~ƄΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:40 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:40 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]LBR$ROUTINES.SDI;1 ! ******************************************************************************************************************************** &!*** MODULE LBR$ROUTINES IDENT X-4 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! @ ! This package defines the interfaces to the Librarian utilityD ! routines as documented in the OpenVMS Utility Routines Reference ! Manual. !  !  ! LBR$CLOSE - CLose a library ! & ! status = LBR$CLOSE (library_index) ! < ! library_index - Index value returned by LBR$INI_CONTROL !  INTEGER*4 LBR$CLOSE EXTERNAL LBR$CLOSE ! , ! LBR$DELETE_DATA - Delete a module's data ! = ! status = LBR$DELETE_DATA (library_index, txtrfa [,flags]) ! < ! library_index - Index value returned by LBR$INI_CONTROL> ! txtrfa - RFA of module header for module to delete ! flags - key flags !  INTEGER*4 LBR$DELETE_DATA EXTERNAL LBR$DELETE_DATA ! ! ! LBR$DELETE_KEY - Delete a key ! H ! status = LBR$DELETE_KEY (library_index, key_name [,txtrfa] [,flags]) ! < ! library_index - Index value returned by LBR$INI_CONTROLC ! key_name - Key to be deleted - for binary keys, passed by> ! reference, for string keys, by descriptor6 ! txtrfa - RFA of module header for key to delete ! flags - key flags !  INTEGER*4 LBR$DELETE_KEY EXTERNAL LBR$DELETE_KEY ! ) ! LBR$FIND - Lookup a module by its RFA ! - ! status = LBR$FIND (library_index, txtrfa) ! < ! library_index - Index value returned by LBR$INI_CONTROL, ! txtrfa - RFA of module to access !  INTEGER*4 LBR$FIND EXTERNAL LBR$FIND ! & ! LBR$FLUSH - Recover virtual memory ! 2 ! status = LBR$FLUSH (library_index, block_type) ! < ! library_index - Index value returned by LBR$INI_CONTROL2 ! block_type - Extent of the flush operation INTEGER*4 LBR$FLUSH EXTERNAL LBR$FLUSH ! 8 ! LBR$GET_HEADER - Retrieve library header information ! 3 ! status = LBR$GET_HEADER (library_index, retary) ! < ! library_index - Index value returned by LBR$INI_CONTROLE ! retary - Array of 128 longwords to receive library header !  INTEGER*4 LBR$GET_HEADER EXTERNAL LBR$GET_HEADER ! % ! LBR$GET_HELP - Retrieve help text ! A ! status = LBR$GET_HELP (library_index [,line_width] [,routine]/ ! [,data] [,key_n...])< ! library_index - Index value returned by LBR$INI_CONTROL0 ! line_width - Width of the help text line7 ! routine - Routine called to output text line0 ! data - User data passed to routine- ! key_n - Zero or more key strings !  INTEGER*4 LBR$GET_HELP EXTERNAL LBR$GET_HELP ! > ! LBR$GET_HISTORY - Retrieve a library history update record ! < ! status = LBR$GET_HISTORY (library_index, action_routine) ! = ! library_index - Index value returned by LBR$INI_CONTROL8 ! action_routine - Routine to process history records !  INTEGER*4 LBR$GET_HISTORY EXTERNAL LBR$GET_HISTORY ! 8 ! LBR$GET_INDEX - Call routine for selected index keys ! E ! status = LBR$GET_INDEX (library_index, index_number, routine_name2 ! [,match_desc] [,flags]) ! < ! library_index - Index value returned by LBR$INI_CONTROL2 ! index_number - Number of the index to search7 ! routine_name - User routine to process selections( ! match_desc - Key matching string ! flags - Key flags !  INTEGER*4 LBR$GET_INDEX EXTERNAL LBR$GET_INDEX ! ' ! LBR$GET_RECORD - Read a data record ! D ! status = LBR$GET_RECORD (library_index [,inbufdes] [,outbufdes]) ! < ! library_index - Index value returned by LBR$INI_CONTROL- ! inbufdes - Buffer to receive recordB ! outbufdes - Descriptor receiving information about record INTEGER*4 LBR$GET_RECORD EXTERNAL LBR$GET_RECORD ! < ! LBR$INI_CONTROL - Initialize a library control structure ! D ! status = LBR$INI_CONTROL (library_index, func [,type] [,namblk]) ! * ! library_index - Receives index value - ! func - Function to be performed$ ! type - Type of library. ! namblk - RMS NAM block for library !  INTEGER*4 LBR$INI_CONTROL EXTERNAL LBR$INI_CONTROL ! % ! LBR$INSERT_KEY - Insert a new key ! F ! status = LBR$INSERT_KEY (library_index, key_name, txtrfa [,flags]) ! < ! library_index - Index value returned by LBR$INI_CONTROLE ! key_name - Name of key to insert (reference for binary key,- ! descriptor for text key)" ! txtrfa - RFA of module ! flags - key flags !  INTEGER*4 LBR$INSERT_KEY EXTERNAL LBR$INSERT_KEY ! * ! LBR$LOOKUP_KEY - Look up a library key ! F ! status = LBR$LOOKUP_KEY (library_index, key_name, txtrfa [,flags]) ! < ! library_index - Index value returned by LBR$INI_CONTROLE ! key_name - Name of key to insert (reference for binary key,- ! descriptor for text key)+ ! txtrfa - Receives RFA of module! ! flags - Receives key flags !  INTEGER*4 LBR$LOOKUP_KEY EXTERNAL LBR$LOOKUP_KEY ! B ! LBR$LOOKUP_TYPE - Look up a type of key with specified RFA in $ ! library's current index ! E ! status = LBR$LOOKUP_TYPE (library_index, key_name, txtrfa, flags) ! < ! library_index - Index value returned by LBR$INI_CONTROLE ! key_name - Name of key to insert (reference for binary key,- ! descriptor for text key)" ! txtrfa - RFA of module# ! flags - Receives type of key !  INTEGER*4 LBR$LOOKUP_TYPE EXTERNAL LBR$LOOKUP_TYPE ! ' ! LBR$OPEN - Open or create a library ! D ! status = LBR$OPEN (library_index [,fns] [,create_options] [,dns]0 ! [,rlfna] [,rns] [,rnslen]) ! = ! library_index - Index value returned by LBR$INI_CONTROL7 ! fns - File specification of the library@ ! create_options - Library characteristics ($LBRDEF, $CREDEF)0 ! dns - Default file specification- ! rlfna - Related file name block; ! rns - Receives resultant file specificationE ! rnslen - Receives length of resultant file specification !  INTEGER*4 LBR$OPEN EXTERNAL LBR$OPEN ! * ! LBR$OUTPUT_HELP - Output help messages ! I ! status = LBR$OUTPUT_HELP (output_routine [,output_width] [,line_desc]H !  [,library_name] [,flags] [,input_routine]) ! 9 ! output_routine - Routine called to output text lines3 ! output_width - Maximum width of output lines' ! line_desc - Help request line. ! library_name - Name of the help library0 ! flags - Flags to control operation0 ! input_routine - Routine used for prompting !  INTEGER*4 LBR$OUTPUT_HELP EXTERNAL LBR$OUTPUT_HELP ! H ! LBR$PUT_MODULE - Put an ELF object module to the ELF object library. ! ? ! status = LBR$PUT_MODULE (library_index, addr, size, txtrfa) ! < ! library_index - Index value returned by LBR$INI_CONTROL, ! addr - address of the ELF object module) ! size - Size of the ELF object module$ ! txtrfa - Receives RFA of module !  INTEGER*4 LBR$PUT_MODULE EXTERNAL LBR$PUT_MODULE ! / ! LBR$PUT_END - Write an end-of-module record ! ( ! status = LBR$PUT_END (library_index) ! < ! library_index - Index value returned by LBR$INI_CONTROL !  INTEGER*4 LBR$PUT_END EXTERNAL LBR$PUT_END ! 4 ! LBR$PUT_HISTORY - Write an update history record ! 9 ! status = LBR$PUT_HISTORY (library_index, record_desc) ! < ! library_index - Index value returned by LBR$INI_CONTROL# ! record_desc - History record !  INTEGER*4 LBR$PUT_HISTORY EXTERNAL LBR$PUT_HISTORY ! ( ! LBR$PUT_RECORD - Write a data record ! F ! status = LBR$PUT_RECORD (library_index, bufdes, txtrfa [,modsize]) ! < ! library_index - Index value returned by LBR$INI_CONTROL) ! bufdes - Record to be written+ ! txtrfa - Receives RFA of module' ! modsize - ELF object module size INTEGER*4 LBR$PUT_RECORD EXTERNAL LBR$PUT_RECORD ! + ! LBR$REPLACE_KEY - Replace a library key ! O ! status = LBR$REPLACE_KEY (library_index, key_name, oldrfa, newrfa [,flags]) ! < ! library_index - Index value returned by LBR$INI_CONTROLC ! key_name - Name of key, passed by reference or descriptor- !  oldrfa - RFA of old module header- ! newrfa - RFA of new module header ! flags - key flags !  INTEGER*4 LBR$REPLACE_KEY EXTERNAL LBR$REPLACE_KEY ! 0 ! LBR$RET_RMSSTV - Return VMS RMS status value !  ! status = LBR$RET_RMSSTV () !  INTEGER*4 LBR$RET_RMSSTV EXTERNAL LBR$RET_RMSSTV ! ! LBR$SEARCH - Search an index ! B ! status = LBR$SEARCH (library_index, index_number, rfa_to_find,* ! routine_name [,flags]) ! < ! library_index - Index value returned by LBR$INI_CONTROL. ! index_number - Number of index to search0 ! rfa_to_find - RFA of module to search for3 ! routine_name - Routine called to process keys ! flags - Key flags INTEGER*4 LBR$SEARCH EXTERNAL LBR$SEARCH ! 0 ! LBR$SET_INDEX - Set the current index number ! 8 ! status = LBR$SET_INDEX (library_index, index_number) ! < ! library_index - Index value returned by LBR$INI_CONTROL% ! index_number - New index number !  INTEGER*4 LBR$SET_INDEX EXTERNAL LBR$SET_INDEX ! 5 ! LBR$SET_LOCATE - Set record access to locate mode ! + ! status = LBR$SET_LOCATE (library_index) ! < ! library_index - Index value returned by LBR$INI_CONTROL !  INTEGER*4 LBR$SET_LOCATE EXTERNAL LBR$SET_LOCATE ! 3 ! LBR$SET_MODULE - Read or update a module header ! : ! status = LBR$SET_MODULE (library_index, rfa [,bufdesc]( ! [,buflen] [,updatedesc]) ! < ! library_index - Index value returned by LBR$INI_CONTROL) ! rfa - RFA of module header+ ! bufdesc - Receives module header5 ! buflen - Receives length of module headerI ! updatedesc - Additional information to be stored in module header !  INTEGER*4 LBR$SET_MODULE EXTERNAL LBR$SET_MODULE ! 1 ! LBR$SET_MOVE - Set record access to move mode ! ) ! status = LBR$SET_MOVE (library_index) ! < ! library_index - Index value returned by LBR$INI_CONTROL !  INTEGER*4 LBR$SET_MOVE EXTERNAL LBR$SET_MOVE ! H ! LBR$MAP_MODULE - Copy/map an ELF object module from current library  ! to the memory space ! < ! statust = LBR$MAP_MODULE (library_index, addr, len, rfa) ! < ! library_index - Index value returned by LBR$INI_CONTROL* ! addr - Receives address of the module$ ! len - Receives length of module ! rfa - RFA of module !  INTEGER*4 LBR$MAP_MODULE EXTERNAL LBR$MAP_MODULE ! P ! LBR$UNMAP_MODULE - Remove/release an ELF object module from the memory space ! 2 ! status = LBR$UNMAP_MODULE (library_index, rfa) ! < ! library_index - Index value returned by LBR$INI_CONTROL ! rfa - RFA of module !  INTEGER*4 LBR$UNMAP_MODULE EXTERNAL LBR$UNMAP_MODULE!DEC$ END OPTIONSwwWΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:42 by OpenVMS SDL IA64-2 ^! Source: 30-AUG -2007 11:29:41 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]LIB$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE lib$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! *************************************************************************** ! *@ ! COPYRIGHT (c) 1992, 1994, 1995, 1996, 1997, 2003 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *N ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *$ ! TRANSFERRED . * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *N ! *************************************************************************** ! LIB$ADAWI ! & ! Add Aligned Word with Interlock ! P ! The Add Aligned Word with Interlock routine allows the user to perform an7 ! interlocked add operation using an aligned word. !  INTEGER*4 lib$adawi EXTERNAL lib$adawi ! LIB$ADDX ! 0 ! Add Two Multiple-Precision Binary Numbers ! L ! The Add Two Multiple-Precision Binary Numbers routine adds two signed5 ! two's complement integers of arbitrary length. !  INTEGER*4 lib$addx EXTERNAL lib$addx ! LIB$ADD_TIMES !  ! Add Two Quadword Times ! K ! The Add Two Quadword Times routine adds two VMS internal time format ! times. !  INTEGER*4 lib$add_times EXTERNAL lib$add_times ! LIB$ANALYZE_SDESC ! ! ! Analyze String Descriptors ! I ! The Analyze String Descriptors routine extracts the length and theJ ! address at which the data starts for a variety of string descriptor ! classes. !  INTEGER*4 lib$analyze_sdesc EXTERNAL lib$analyze_sdesc ! LIB$ANALYZE_SDESC_64 ! ! ! Analyze String Descriptors ! I ! The Analyze String Descriptors routine extracts the length and theJ ! address at which the data starts for a variety of string descriptor ! classes. !  INTEGER*4 lib$analyze_sdesc_64 EXTERNAL lib$analyze_sdesc_64 ! LIB$ASCII_TO_UID !  ! Convert Text To UID ! I !  The Convert Text to UID routine converts a standard representation8 ! of a UID in an ASCII text string to a binary UID. !  INTEGER*4 lib$ascii_to_uid EXTERNAL lib$ascii_to_uid ! LIB$ASN_WTH_MBX ! " ! Assign Channel with Mailbox ! O ! The Assign Channel with Mailbox routine assigns a channel to a specifiedK ! device and associates a mailbox with the device. It returns both the. ! device channel and the mailbox channel. !  INTEGER*4 lib$asn_wth_mbx EXTERNAL lib$asn_wth_mbx ! LIB$AST_IN_PROG !  ! AST in Progress ! K ! The AST in Progress routine indicates whether an AST is currently in ! progress. !  BYTE lib$ast_in_prog EXTERNAL lib$ast_in_prog ! LIB$ATTACH ! ! ! Attach Terminal to Process ! L ! The Attach Terminal to Process routine requests the calling process'sO ! Command Language Interpreter (CLI) to detach the terminal of the calling9 ! process and to reattach it to a different process. !  INTEGER*4 lib$attach EXTERNAL lib$attach ! LIB$BBCCI ! ( ! Test and Clear Bit with Interlock ! G ! The Test and Clear Bit with Interlock routine tests and clears a+ ! selected bit under memory interlock. !  INTEGER*4 lib$bbcci EXTERNAL lib$bbcci ! LIB$BBSSI ! & ! Test and Set Bit with Interlock ! C ! The Test and Set Bit with Interlock routine tests and sets a+ ! selected bit under memory interlock. !  INTEGER*4 lib$bbssi EXTERNAL lib$bbssi ! LIB$BUILD_NODESPEC ! & ! Build a Node-Name Specification ! E ! The Build a Node-Name Specification routine builds a node-name0 ! specification from the primary node name. !  INTEGER*4 lib$build_nodespec EXTERNAL lib$build_nodespec ! LIB$CALLG ! G ! Call Routine with General Argument List (longword argument list) ! O !  The Call Routine with General Argument List routine calls a routine withN ! an argument list specified as an array of longwords, the first of whichN ! is a count of the remaining longwords. LIB$CALLG is a callable version$ ! of the VAX CALLG instruction. !  INTEGER*4 lib$callg EXTERNAL lib$callg ! LIB$CALLG_64 ! G ! Call Routine with General Argument List (quadword argument list) ! O ! The Call Routine with General Argument List routine  calls a routine withN ! an argument list specified as an array of quadwords, the first of whichI ! is a count of the remaining quadwords. LIB$CALLG_64 is a callable, ! version of the VAX CALLG instruction. !  INTEGER*4 lib$callg_64 EXTERNAL lib$callg_64 ! LIB$CHAR ! 2 ! Transform Byte to First Character of String ! K ! The Transform Byte to First Character of String routine transforms aM ! single 8-bit ASCII character to an ASCII string consisting of a singleP ! character followed by trailing spaces, if needed, to fill out the string.4 ! The range of the input byte is 0 through 255. !  INTEGER*4 lib$char EXTERNAL lib$char ! LIB$COMPARE_NODENAME !  ! Compare Two Node Names ! < ! The Compare Node Name routine compares two node names4 ! to see if they resolve to the same full name. !  INTEGER*4 lib$compare_nodename EXTERNAL lib$compare_nodename ! LIB$COMPARE_UID !  ! Compare Two UIDs ! 9 ! The Compare Two UIDs routine compares the contents. ! of two UIDs for total lexical ordering. !  INTEGER*4 lib$compare_uid EXTERNAL lib$compare_uid ! LIB$COMPRESS_NODENAME ! - ! Compress a Node Name to its Short Form ! D ! The Compress a Node Name routine compresses a node name to anB ! unambiguous short form usable within the naming environment* ! where the compression is performed. !  INTEGER*4 lib$compress_nodename EXTERNAL lib$compress_nodename ! LIB$CONVERT_DATE_STRING ! & ! Convert Date String to Quadword ! L ! The Convert Date String to Quadword routine converts an absolute dateK ! string into a VMS internal format date-time quadword. That is, given7 ! an input date/time string of a specified format,L ! LIB$CONVERT_DATE_STRING converts this string to a VMS internal format ! time.  ! " INTEGER*4 lib$convert_date_string! EXTERNAL lib$convert_date_string ! LIB$CRC ! 0 ! Calculate a Cyclic Redundancy Check (CRC) ! L ! The Calculate a Cyclic Redundancy Check routine calculates the cyclic0 ! redundancy check (CRC) for a data stream. !  INTEGER*4 lib$crc EXTERNAL lib$crc ! LIB$CRC_TABLE ! 7 ! Construct a Cyclic Redundancy Check (CRC) Table  ! I ! The Construct a Cyclic Redundancy Check Table routine constructs aG ! 16-longword table that uses a cyclic redundancy check polynomial# ! specification as a bit mask. !  ! Subroutine lib$crc_table ! LIB$CREATE_DIR !  ! Create a Directory ! J ! The Create a Directory routine creates a directory or subdirectory. !  INTEGER*4 lib$create_dir EXTERNAL lib$create_dir ! LIB$CREATE_USER_VM_ZONE ! ' ! Create User-Defined Storage Zone ! N ! The Create User-Defined Storage Zone routine creates a new user-defined ! storage zone. ! " INTEGER*4 lib$create_user_vm_zone! EXTERNAL lib$create_user_vm_zone! ! LIB$CREATE_USER_VM_ZONE_64 ! ' ! Create User-Defined Storage Zone ! N ! The Create User-Defined Storage Zone routine creates a new user-defined ! storage zone. ! % INTEGER*4 lib$create_user_vm_zone_64$ EXTERNAL lib$create_user_vm_zone_64 ! LIB$CREATE_VM_ZONE !  ! Create a New Zone ! L ! The Create a New Zone routine creates a new storage zone according to ! specified arguments. !  INTEGER*4 lib$create_vm_zone EXTERNAL lib$create_vm_zone ! LIB$CREATE_VM_ZONE_64 !  ! Create a New Zone ! L ! The Create a New Zone routine creates a new storage zone according to ! specified arguments. ! INTEGER*4 lib$create_vm_zone_64 EXTERNAL lib$create_vm_zone_64 ! LIB$CRF_INS_KEY ! * ! Insert Key in Cross-Reference Table ! J !  The Insert Key in Cross-Reference Table routine inserts information0 ! about a key into a cross-reference table. !  ! Subroutine lib$crf_ins_key ! LIB$CRF_INS_REF ! = ! Insert Reference to a Key in the Cross-Reference Table ! I ! The Insert Reference to a Key in the Cross-Reference Table routineF ! inserts a reference to a key in a cross-reference symbol table. !  ! Subroutine lib$crf_ins_ref ! LIB$CRF_OUTPUT ! / ! Output Cross-Reference Table Information ! H ! The Output Cross-Reference Table Information routine extracts theP ! information from the cross-reference tables and formats the output pages. !  ! Subroutine lib$crf_output ! LIB$CURRENCY ! ! ! Get System Currency Symbol ! K ! The Get System Currency Symbol routine returns the system's currency ! symbol. !  INTEGER*4 lib$currency EXTERNAL lib$currency" ! LIB$CVTS_FROM_INTERNAL_ TIME ! F ! Convert Internal Time to External Time (S-Floating Point Value) ! J ! The Convert Internal Time to External Time (S-Floating Point Value)I ! routine converts a delta internal VMS system time into an external ! S-floating time. ! & INTEGER*4 lib$cvts_from_internal_time% EXTERNAL lib$cvts_from_internal_time" ! LIB$CVTF_FROM_INTERNAL_TIME ! F ! Convert Internal Time to External Time (F-Floating Point Value) ! J ! The Conve rt Internal Time to External Time (F-Floating Point Value)I ! routine converts a delta internal VMS system time into an external ! F-floating time. ! & INTEGER*4 lib$cvtf_from_internal_time% EXTERNAL lib$cvtf_from_internal_time ! LIB$CVTS_TO_INTERNAL_TIME ! F ! Convert External Time to Internal Time (S-Floating Point Value) ! J ! The Convert External Time to Internal Time (S-Floating Point Value)L ! routine converts an external time interval in to a VMS internal format ! S-floating delta time. !  ! $ INTEGER*4 lib$cvts_to_internal_time# EXTERNAL lib$cvts_to_internal_time ! LIB$CVTF_TO_INTERNAL_TIME ! F ! Convert External Time to Internal Time (F-Floating Point Value) ! J ! The Convert External Time to Internal Time (F-Floating Point Value)L ! routine converts an external time interval into a VMS internal format ! F-floating delta time. ! $ INTEGER*4 lib$cvtf_to_internal_ti me# EXTERNAL lib$cvtf_to_internal_time ! LIB$CVT_DTB ! % ! Convert Numeric Text to Binary ! I ! The Convert Numeric Text to Binary routine returns a 32-bit binaryJ ! representation of the ASCII text string representation of a decimal ! number. !  INTEGER*4 lib$cvt_dtb EXTERNAL lib$cvt_dtb ! LIB$CVT_DTB_64 ! % ! Convert Numeric Text to Binary ! I ! The Convert Numeric Text to Binary routine returns a 64-bit binary J ! representation of the ASCII text string representation of a decimal ! number. !  INTEGER*4 lib$cvt_dtb_64 EXTERNAL lib$cvt_dtb_64 ! LIB$CVT_DX_DX ! + ! General Data Type Conversion Routine ! N ! The General Data Type Conversion routine converts a VMS standard atomicO ! or string datum described by a source descriptor to another VMS standardJ ! atomic or string datum described by a destination descriptor. ThisL ! conversion is supported over a subset of the VMS standard data types. !  INTEGER*4 lib$cvt_dx_dx EXTERNAL lib$cvt_dx_dx! ! LIB$CVT_FROM_INTERNAL_TIME ! - ! Convert Internal Time to External Time ! N ! The Convert Internal Time to External Time routine converts an internalI ! VMS system time (either absolute or delta) into an external time.  ! % INTEGER*4 lib$cvt_from_internal_time$ EXTERNAL lib$cvt_from_internal_time ! LIB$CVT_HTB ! % ! Convert Numeric Text to Binary ! I ! The Convert Numeric Text to Binary routine returns a 32-bit binaryN ! representation of the ASCII text string representation of a hexadecimal ! number. !  INTEGER*4 lib$cvt_htb EXTERNAL lib$cvt_htb ! LIB$CVT_HTB_64 ! % ! Convert Numeric Text to Binary ! I ! The Convert Numeric Text to Binary routine returns a 64-bit binaryN ! representation of the ASCII text string representation of a hexadecimal ! number. !  INTEGER*4 lib$cvt_htb_64 EXTERNAL lib$cvt_htb_64 ! LIB$CVT_OTB ! % ! Convert Numeric Text to Binary ! I ! The Convert Numeric Text to Binary routine returns a 32-bit binaryI ! representation of the ASCII text string representation of an octal ! number. !  INTEGER*4 lib$cvt_otb EXTERNAL lib$cvt_otb ! LIB$CVT_OTB_64 ! % ! Convert Numeric Text to Binary ! I ! The Convert Numeric Text to Binary routine returns a 64-bit binaryI ! representation of the ASCII text string representation of an octal ! number. !  INTEGER*4 lib$cvt_otb_64 EXTERNAL lib$cvt_otb_64 ! LIB$CVT_TO_INTERNAL_TIME ! - ! Convert External Time to Internal Time ! E ! The Convert External Time to Internal Time routine converts anD ! external time interval into a VMS internal format delta time. ! # INTEGER*4 lib$cvt_to_internal_time" EXTERNAL lib$cvt_to_internal_time ! LIB$CVT_VECTIM ! 1 ! Convert Seven-Word Vector to Internal Time ! H ! The Convert Seven-Word Vector to Internal Time routine converts aK ! seven-word vector into a VMS internal format delta or absolute time. !  INTEGER*4 lib$cvt_vectim EXTERNAL lib$cvt_vectim ! LIB$DATE_TIME ! ) ! Date and Time Returned as a String ! L ! The Date and Time Returned as a String routine returns the VMS system@ ! date and time in the semantics of a user-provided string. !  INTEGER*4 lib$date_time EXTERNAL lib$date_time ! LIB$DAY ! 0 ! Day Number Returned as a Longword Integer ! O ! The Day Number Returned as a Longword Integer routine returns the numberM ! of days since the system zero date of November 17, 1858, or the number? ! of days from November 17, 1858, to a user-supplied date. !  INTEGER*4 lib$day EXTERNAL lib$day ! LIB$DAY_OF_WEEK !  ! Show Numeric Day of Week !  O ! The Show Numeric Day of Week routine returns the numeric day of the weekN ! for an input time value. If 0 is the input time value, the current dayO ! of the week is returned. The days are numbered 1 through 7, with Monday$ ! as day 1 and Sunday as day 7. !  INTEGER*4 lib$day_of_week EXTERNAL lib$day_of_week ! LIB$DECODE_FAULT ! - ! Decode Instruction Stream During Fault ! P ! The Decode Instruction Stream During Fault routine is a tool for buildingK ! condition handlers that process instruction fault exceptions. It is' ! called from a condition handler. ! I ! This routine is not available to native Alpha VMS programs, but is* ! available to translated VAX images. !  INTEGER*4 lib$decode_fault EXTERNAL lib$decode_fault ! LIB$DEC_OVER ! 3 ! Enable or Disable Decimal Overflow Detection ! J ! The Enable or Disable Decimal Overflow Detection routine enables orN ! disables decimal overflow detection for the calling routine activation.9 ! The previous decimal overflow setting is returned. ! H ! This routine is available on Alpha VMS systems in translated form7 ! and is applicable to translated VAX images only. !  INTEGER*4 lib$dec_over EXTERNAL lib$dec_over ! LIB$DELETE_FILE !  ! Delete One or More Files ! J ! The Delete One or More Files routine deletes one or more files. TheH ! s pecification of the file(s) to be deleted may include wildcards.H ! LIB$DELETE_FILE is similar in function to the DCL command DELETE. !  INTEGER*4 lib$delete_file EXTERNAL lib$delete_file ! LIB$DELETE_LOGICAL !  ! Delete Logical Name ! M ! The Delete Logical Name routine requests the calling process's CommandM ! Language Interpreter (CLI) to delete a supervisor-mode process logicalN ! name. LIB$DELETE_LOGICAL provides the same function as the DCL command ! DEASSIGN. !  INTEGER*4 lib$delete_logical EXTERNAL lib$delete_logical ! LIB$DELETE_SYMBOL !  ! Delete CLI Symbol ! K ! The Delete CLI Symbol routine requests the calling process's CommandC ! Language Interpreter (CLI) to delete an existing CLI symbol. !  INTEGER*4 lib$delete_symbol EXTERNAL lib$delete_symbol ! LIB$DELETE_VM_ZONE ! ! ! Delete Virtual Memory Zone ! @ ! The Delete Virtual Memory Zone routine deletes a zone andA ! returns all pages on VAX or pagelets on Alpha owned by the) ! zone to the processwide page pool. !  INTEGER*4 lib$delete_vm_zone EXTERNAL lib$delete_vm_zone ! LIB$DELETE_VM_ZONE_64 ! ! ! Delete Virtual Memory Zone ! @ ! The Delete Virtual Memory Zone routine deletes a zone andA ! returns all pages on VAX or pagelets on Alpha owned by the) ! zone to the processwide page pool. ! INTEGER*4 lib$delete_vm_zone_64 EXTERNAL lib$delete_vm_zone_64 ! LIB$DIGIT_SEP ! ! ! Get Digit Separator Symbol ! H ! The Get Digit Separator Symbol routine returns the system's digit ! separator symbol. !  INTEGER*4 lib$digit_sep EXTERNAL lib$digit_sep ! LIB$DISABLE_CTRL ! 5 ! Disable CLI Interception of Control Characters ! N ! The Disable CLI Interception of Control Characters routine requests theL ! calling process's Com mand Language Interpreter (CLI) to not interceptP ! the selected control characters when they are typed during an interactiveL ! terminal session. LIB$DISABLE_CTRL provides the same function as the! ! DCL command SET NOCONTROL. !  INTEGER*4 lib$disable_ctrl EXTERNAL lib$disable_ctrl ! LIB$DO_COMMAND !  ! Execute Command ! J ! The Execute Command routine stops program execution and directs theL ! Command Language Interpreter to execute a command which you supply asK ! the argument. If successful, LIB$DO_COMMAND does not return controlK ! to the calling program. Instead, LIB$DO_COMMAND begins execution ofK ! the specified command. If you want control to return to the caller, ! use LIB$SPAWN instead. !  INTEGER*4 lib$do_command EXTERNAL lib$do_command ! LIB$EDIV ! ! Extended-Precision Divide ! H ! The Extended-Precision Divide routine performs extended-precisionH ! division. LIB$EDIV makes the VAX EDIV instruction available as a ! callable routine. !  INTEGER*4 lib$ediv EXTERNAL lib$ediv ! LIB$EMODD ! L ! Extended Multiply and Integerize Routines for D-Floating Point Values ! M ! The Extended Multiply and Integerize routine (D-Floating Point Values)M ! allows higher-level language users to perform accurate range reduction ! of D-floating arguments. ! K ! D-floating point values are not supported in full precision on AlphaM ! systems. They are precise to 56 bits on VAX systems, 53 bits on Alpha ! systems. !  INTEGER*4 lib$emodd EXTERNAL lib$emodd ! LIB$EMODT ! L ! Extended Multiply and Integerize Routines for T-Floating Point Values ! M ! The Extended Multiply and Integerize routine (T-Floating Point Values)M ! allows higher-level language users to perform accurate range reduction ! of T-floating arguments. !  !  INTEGER*4 lib$emodt EXTERNAL lib$emodt ! LIB$EMODS ! L ! Extended Multiply and Integerize Routines for S-Floating Point Values ! M ! The Extended Multiply and Integerize routine (S-Floating Point Values)M ! allows higher-level language users to perform accurate range reduction ! of S-floating arguments. !  INTEGER*4 lib$emods EXTERNAL lib$emods ! LIB$EMODF ! L ! Extended Multiply and Integerize Routines for F-Floating Po int Values ! M ! The Extended Multiply and Integerize routine (F-Floating Point Values)M ! allows higher-level language users to perform accurate range reduction ! of F-floating arguments. !  INTEGER*4 lib$emodf EXTERNAL lib$emodf ! LIB$EMODG ! L ! Extended Multiply and Integerize Routines for G-Floating Point Values ! M ! The Extended Multiply and Integerize routine (G-Floating Point Values)M ! allows higher-level language user!s to perform accurate range reduction ! of G-floating arguments. !  INTEGER*4 lib$emodg EXTERNAL lib$emodg ! LIB$EMODH ! L ! Extended Multiply and Integerize Routines for H-Floating Point Values ! K ! On VAX VMS, the Extended Multiply and Integerize routine (H-FloatingK ! Point Values) allows higher-level language users to perform accurate/ ! range reduction of H-floating arguments. !  INTEGER*4 lib$emodh EXTERNAL lib$emodh !" LIB$EMUL ! " ! Extended-Precision Multiply ! J ! The Extended-Precision Multiply routine performs extended-precisionL ! multiplication. LIB$EMUL makes the VAX EMUL instruction available as ! a callable routine. !  INTEGER*4 lib$emul EXTERNAL lib$emul ! LIB$ENABLE_CTRL ! 4 ! Enable CLI Interception of Control Characters ! M ! The Enable CLI Interception of Control Characters routine requests theE ! calling process's C #ommand Language Interpreter (CLI) to resumeJ ! interception of the selected control characters when they are typedL ! during an interactive terminal session. LIB$ENABLE_CTRL provides the4 ! same function as the DCL command SET CONTROL. !  INTEGER*4 lib$enable_ctrl EXTERNAL lib$enable_ctrl ! LIB$ESTABLISH ! $ ! Establish a Condition Handler ! G ! The Establish a Condition Handler routine moves the address of aK ! condition handling routin $e (which can be a user-written or a libraryP ! routine) to longword 0 of the stack frame of the caller of LIB$ESTABLISH. ! 8 ! ENTRY lib$establish ALIAS $lib_establish PARAMETER (, ! ADDRESS (ENTRY) NAMED new_handler IN& ! TYPENAME procedure VALUE )< ! RETURNS ADDRESS (ENTRY) NAMED RESULT TYPENAME routine; ! LIB$EXPAND_NODENAME ! 5 ! Expand a Node Name to its Full Name equivalent ! A ! The Expand a Node Name to its Full Name equivalent %routine7 ! expands a node name to its full name equivalent. !  INTEGER*4 lib$expand_nodename EXTERNAL lib$expand_nodename ! LIB$EXTV ! & ! Extract a Field and Sign-Extend ! J ! The Extract a Field and Sign-Extend routine returns a sign-extendedM ! longword field that has been extracted from the specified variable bitN ! field. LIB$EXTV makes the VAX EXTV instruction available as a callable ! routine. !  INTEGER*4 lib$extv EXT&ERNAL lib$extv ! LIB$EXTZV ! $ ! Extract a Zero-Extended Field ! C ! The Extract a Zero-Extended Field routine returns a longwordE ! zero-extended field that has been extracted from the specifiedE ! variable bit field. LIB$EXTZV makes the VAX EXTZV instruction' ! available as a callable routine. !  INTEGER*4 lib$extzv EXTERNAL lib$extzv ! LIB$FFC ! " ! Find First Clear or Set Bit ! M ! The Find First Clear or S'et Bit routines search the field specified byJ ! the start position, size, and base for the first clear or set bit. N ! LIB$FFC and LIB$FFS make the VAX FFC and VAX FFS instructions available ! as callable routines. ! ; ! On Alpha VMS systems, Alpha instructions perform the ! equivalent operations. !  INTEGER*4 lib$ffc EXTERNAL lib$ffc ! LIB$FFS ! " ! Find First Clear or Set Bit ! M ! The Find First Clear or Set Bit routine(s search the field specified byJ ! the start position, size, and base for the first clear or set bit. N ! LIB$FFC and LIB$FFS make the VAX FFC and VAX FFS instructions available ! as callable routines. ! ; ! On Alpha VMS systems, Alpha instructions perform the ! equivalent operations. !  INTEGER*4 lib$ffs EXTERNAL lib$ffs ! LIB$FID_TO_NAME ! 7 ! Convert Device and File ID to File Specification ! N ! The Convert Device and File ) ID to File Specification routine converts aD ! disk device name and file identifier to a file specification. !  INTEGER*4 lib$fid_to_name EXTERNAL lib$fid_to_name ! LIB$FILE_SCAN !  ! File Scan ! K ! The File Scan routine searches an area, such as a directory, for allH ! files matching the file specification given and transfers programF ! execution to the specified user-written routine. Wildcards areJ ! acceptable. An action routine is * called for each file and/or errorK ! found. LIB$FILE_SCAN allows the search sequence to continue even if: ! an error occurs while processing a particular file.J ! CP120606 - Changed fab type from unsigned int * to struct _fabdef *A ! and data types of arguments to user_success_procedure and 9 ! user_error_procedure from void to __unknown_params !  INTEGER*4 lib$file_scan EXTERNAL lib$file_scan ! LIB$FILE_SCAN_END !  ! End-of-File Scan ! +M ! The End-of-File Scan routine is called after each sequence of calls toO ! LIB$FILE_SCAN. LIB$FILE_SCAN_END deallocates any saved Record ManagementP ! Service (RMS) context and/or deallocates the virtual memory that had beenH ! allocated for holding the related file specification information.D ! CP - Changed fab type from unsigned int * to struct _fabdef * !  INTEGER*4 lib$file_scan_end EXTERNAL lib$file_scan_end ! LIB$FIND_FILE !  ! Find Fi,le ! M ! The Find File routine is called with a wildcard file specification forM ! which it searches. LIB$FIND_FILE returns all file specifications that0 ! satisfy that wildcard file specification. !  INTEGER*4 lib$find_file EXTERNAL lib$find_file ! LIB$FIND_FILE_END !  ! End of Find File ! O ! The End of Find File routine is called once after each sequence of callsG ! to LIB$FIND_FILE. LIB$FIND_FILE_END deallocates any saved R -ecordO ! Management Service (RMS) context and deallocates the virtual memory used+ ! to hold the allocated context block. !  INTEGER*4 lib$find_file_end EXTERNAL lib$find_file_end ! LIB$FIND_IMAGE_SYMBOL ! 4 ! Find Universal Symbol in Shareable Image File ! F ! The Find Universal Symbol in Shareable Image File routine readsJ ! universal symbols from the shareable image file. This routine thenK ! dynamically activates a shareable image i.nto the P0 address space of ! a process. ! INTEGER*4 lib$find_image_symbol EXTERNAL lib$find_image_symbol ! LIB$FIND_VM_ZONE ! , ! Return the Next Valid Zone Identifier ! D ! The Return the Next Valid Zone Identifier routine returns theD ! zone identifier of the next valid zone in the heap management ! database. !  INTEGER*4 lib$find_vm_zone EXTERNAL lib$find_vm_zone ! LIB$FIND_VM_ZONE_64 ! , ! Return the Next Val/id Zone Identifier ! D ! The Return the Next Valid Zone Identifier routine returns theD ! zone identifier of the next valid zone in the heap management ! database. !  INTEGER*4 lib$find_vm_zone_64 EXTERNAL lib$find_vm_zone_64 ! LIB$FIT_NODENAME ! + ! Fit a Node Name into an output field ! 7 ! The Fit a Node Name into an output field routine- ! fits a Node Name into an output field. !  INTEGER*4 lib$fit_nodename EXTER 0NAL lib$fit_nodename ! LIB$FIXUP_FLT ! $ ! Fix Floating Reserved Operand ! N ! The Fix Floating Reserved Operand routine finds the reserved operand ofN ! any F-floating, D-floating, G-floating, or H-floating instruction (withI ! some exceptions) after a reserved operand fault has been signaled.L ! LIB$FIXUP_FLT changes the reserved operand from --0.0 to the value ofI ! the new-operand argument, if present; or to +0.0 if new-operand is ! absent.1 ! H ! This routine is available on Alpha VMS systems in translated form7 ! and is applicable to translated VAX images only. !  INTEGER*4 lib$fixup_flt EXTERNAL lib$fixup_flt ! LIB$FLT_UNDER ! ) ! Floating-Point Underflow Detection ! I ! The Floating-Point Underflow Detection routine enables or disablesM ! floating-point underflow detection for the calling routine activation.< ! The previous setting is returned as a function value.2 ! H ! This routine is available on Alpha VMS systems in translated form7 ! and is applicable to translated VAX images only. !  INTEGER*4 lib$flt_under EXTERNAL lib$flt_under ! LIB$FORMAT_DATE_TIME !  ! Format Date and/or Time ! P ! The Format Date and/or Time routine allows the user to select at run timeI ! a specific output language and format for a date or time, or both. !  INTEGER*4 lib$format_date_time EXTERNAL lib$format_d3ate_time ! LIB$FORMAT_SOGW_PROT !  ! Format Protection Mask ! F ! The Format Protection Mask routine translates a protection mask ! into a formatted string. !  INTEGER*4 lib$format_sogw_prot EXTERNAL lib$format_sogw_prot! ! LIB$FREE_DATE_TIME_CONTEXT ! N ! Free the Context Area Used When Formatting Dates and Times for Input or ! Output ! O ! The Free the Context Area Used When Formatting Dates and Times for InputM ! 4 or Output routine frees the virtual memory associated with the contextG ! area used by the date/time input and output Formatting Routines. ! % INTEGER*4 lib$free_date_time_context$ EXTERNAL lib$free_date_time_context ! LIB$FREE_EF !  ! Free Event Flag ! P ! The Free Event Flag routine frees a local event flag previously allocatedC ! by LIB$GET_EF. LIB$FREE_EF is the complement of LIB$GET_EF. !  INTEGER*4 lib$free_ef EXTERNAL lib$free_e5f ! LIB$FREE_LUN !  ! Free Logical Unit Number ! J ! The Free Logical Unit Number routine releases a logical unit numberO ! allocated by LIB$GET_LUN to the pool of available numbers. LIB$FREE_LUN) ! is the complement of LIB$GET_LUN.  !  INTEGER*4 lib$free_lun EXTERNAL lib$free_lun ! LIB$FREE_TIMER !  ! Free Timer Storage ! B ! The Free Timer Storage routine frees the storage allocated  ! by LIB$INIT_TIMER6. !  INTEGER*4 lib$free_timer EXTERNAL lib$free_timer ! LIB$FREE_VM ! . ! Free Virtual Memory from Program Region ! I ! The Free Virtual Memory from Program Region routine deallocates anN ! entire block of contiguous bytes that were allocated by a previous callK ! to LIB$GET_VM. The arguments passed are the same as for LIB$GET_VM. !  INTEGER*4 lib$free_vm EXTERNAL lib$free_vm ! LIB$FREE_VM_64 ! . ! Free Virtual Memo7ry from Program Region ! I ! The Free Virtual Memory from Program Region routine deallocates anN ! entire block of contiguous bytes that were allocated by a previous callB ! to LIB$GET_VM_64. The arguments passed are the same as for ! LIB$GET_VM_64. !  INTEGER*4 lib$free_vm_64 EXTERNAL lib$free_vm_64 ! LIB$FREE_VM_PAGE !  ! Free Virtual Memory Page ! B ! The Free Virtual Memory Page routine deallocates a block ofG ! conti8guous pages on VAX or pagelets on Alpha that were allocated, ! by previous calls to LIB$GET_VM_PAGE. !  INTEGER*4 lib$free_vm_page EXTERNAL lib$free_vm_page ! LIB$FREE_VM_PAGE_64 !  ! Free Virtual Memory Page ! B ! The Free Virtual Memory Page routine deallocates a block ofG ! contiguous pages on VAX or pagelets on Alpha that were allocated/ ! by previous calls to LIB$GET_VM_PAGE_64. !  INTEGER*4 lib$free_vm_page_64 EXTERNAL lib$9free_vm_page_64 ! LIB$GETDVI ! $ ! Get Device/Volume Information ! P ! The Get Device/Volume Information routine provides a simplified interfaceO ! to the $GETDVI system service. It returns information about the primaryJ ! and secondary device characteristics of an I/O device. The callingL ! process need not have a channel assigned to the device about which it ! wants information. !  INTEGER*4 lib$getdvi EXTERNAL lib$getdvi ! LIB$G:ETJPI ! " ! Get Job/Process Information ! N ! The Get Job/Process Information routine provides a simplified interfaceJ ! to the $GETJPI system service. It provides accounting, status, and< ! identification information about a specified process.H ! LIB$GETJPI obtains only one item of information in a single call. !  INTEGER*4 lib$getjpi EXTERNAL lib$getjpi ! LIB$GETQUI !  ! Get Queue Information ! O ! The Get Queue Inf ;ormation routine provides a simplified interface to theL ! $GETQUI system service. It provides queue, job, file, characteristic,6 ! and form information about a specified process.H ! LIB$GETQUI obtains only one item of information in a single call. !  INTEGER*4 lib$getqui EXTERNAL lib$getqui ! LIB$GETSYI ! ! ! Get Systemwide Information ! M ! The Get Systemwide Information routine provides a simplified interfaceP ! to the $GETSYI system < service. The $GETSYI system service obtains status7 ! and identification information about the system.H ! LIB$GETSYI returns only one item of information in a single call. !  INTEGER*4 lib$getsyi EXTERNAL lib$getsyi ! LIB$GET_ACCNAM ! 7 ! Get Access Name Table for Protected Object Class ! K ! The Get Access Name Table for Protected Object Class routine returnsK ! a pointer to the access name table for a protected object class that ! = is specified by name. !  INTEGER*4 lib$get_accnam EXTERNAL lib$get_accnam ! LIB$GET_ACCNAM_BY_CONTEXT ! 7 ! Get Access Name Table for Protected Object Class ! K ! The Get Access Name Table for Protected Object Class routine returnsK ! a pointer to the access name table for a protected object class that! ! is specified by a context. ! $ INTEGER*4 lib$get_accnam_by_context# EXTERNAL lib$get_accnam_by_context ! LIB$GET_COMMAND ! > ! Get Line from SYS$COMMAND ! O ! The Get Line from SYS$COMMAND routine gets one record of ASCII text fromJ ! the current controlling input device, specified by the logical name ! SYS$COMMAND. !  INTEGER*4 lib$get_command EXTERNAL lib$get_command ! LIB$GET_COMMON !  ! Get String from Common ! O ! The Get String from Common routine copies a string in the common area toL ! the destination string. (The common area is an a?rea of storage whichL ! remains defined across multiple image activations in a process.) TheI ! string length is taken from the first longword of the common area. !  INTEGER*4 lib$get_common EXTERNAL lib$get_common ! LIB$GET_DATE_FORMAT ! ' ! Get the User's Date Input Format ! M ! The Get The User's Date Input Format routine returns information about5 ! the user's choice of a date/time input format. !  INTEGER*4 lib$get_date_format@ EXTERNAL lib$get_date_format ! LIB$GET_EF !  ! Get Event Flag ! G ! The Get Event Flag routine allocates one local event flag from aL ! process-wide pool and returns the number of the allocated flag to theM ! caller. If no flags are available, LIB$GET_EF returns an error as its ! function value. !  INTEGER*4 lib$get_ef EXTERNAL lib$get_ef ! LIB$GET_FOREIGN !  ! Get Foreign Command Line ! H ! The Get Foreign A Command Line routine requests the calling image'sG ! Command Language Interpreter (CLI) to return the contents of the= ! foreign command line that activated the current image. !  INTEGER*4 lib$get_foreign EXTERNAL lib$get_foreign ! LIB$GET_FULLNAME_OFFSET ! F ! Get the Offset to the Starting Position of the Most Significant ! Part of a Full Name ! J ! The Get the Offset to the Starting Position of the Most SignificantB ! Part of a Full BName routine gets the offset to the starting< ! position of the most significant part of a full name. ! " INTEGER*4 lib$get_fullname_offset! EXTERNAL lib$get_fullname_offset ! LIB$GET_HOSTNAME !  ! Get Host Node Name ! C ! The Get Host Node Name routine returns the host node name of ! the local system. !  INTEGER*4 lib$get_hostname EXTERNAL lib$get_hostname ! LIB$GET_INPUT !  ! Get Line from SYS$INPUT ! M ! C The Get Line from SYS$INPUT routine gets one record of ASCII text fromD ! the current controlling input device, specified by SYS$INPUT. !  INTEGER*4 lib$get_input EXTERNAL lib$get_input ! LIB$GET_LOGICAL !  ! Get Logical ! K ! The Get Logical routine gets the logical name information by calling- ! the system service routine SYS$TRNLNM. !  INTEGER*4 lib$get_logical EXTERNAL lib$get_logical ! LIB$GET_LUN !  ! Get L Dogical Unit Number ! L ! The Get Logical Unit Number routine allocates one logical unit numberP ! from a process-wide pool. If a unit is available, its number is returnedM ! to the caller. Otherwise, an error is returned as the function value. !  INTEGER*4 lib$get_lun EXTERNAL lib$get_lun" ! LIB$GET_MAXIMUM_DATE_LENGTH ! 8 ! Retrieve the Maximum Length of a Date/Time String ! K ! Given an output format and language, the Retrieve the Maximum Len EgthO ! of a Date/Time String routine determines the maximum possible length for? ! the date-string string returned by LIB$FORMAT_DATE_TIME. ! & INTEGER*4 lib$get_maximum_date_length% EXTERNAL lib$get_maximum_date_length ! LIB$GET_SYMBOL !  ! Get Value of CLI Symbol ! I ! The Get Value of CLI Symbol routine requests the calling process'sM ! Command Language Interpreter (CLI) to return the value of a CLI symbolJ ! as a string. LIB$GET_SYMBOFL then returns the string to the caller.M ! Optionally, LIB$GET_SYMBOL can return the length of the returned value3 ! and the table in which the symbol was found. !  INTEGER*4 lib$get_symbol EXTERNAL lib$get_symbol) ! LIB$GET_UIB_INFO ** IPF only ** ! C ! Returns information from the unwind information block (UIB). !  INTEGER*4 lib$get_uib_info EXTERNAL lib$get_uib_info ! LIB$GET_USERS_LANGUAGE ! ! ! Return the User's LanguageG ! M ! The Return the User's Language routine determines the user's choice ofO ! a natural language. The choice is determined by translating the logical ! SYS$LANGUAGE. ! ! INTEGER*4 lib$get_users_language EXTERNAL lib$get_users_language ! LIB$GET_VM !  ! Allocate Virtual Memory ! J ! The Allocate Virtual Memory routine allocates a specified number ofM ! contiguous bytes in the program region and returns the virtual address# ! oHf the first byte allocated. !  INTEGER*4 lib$get_vm EXTERNAL lib$get_vm ! LIB$GET_VM_64 !  ! Allocate Virtual Memory ! J ! The Allocate Virtual Memory routine allocates a specified number ofM ! contiguous bytes in the program region and returns the virtual address# ! of the first byte allocated. !  INTEGER*4 lib$get_vm_64 EXTERNAL lib$get_vm_64 ! LIB$GET_VM_PAGE !  ! Get Virtual Memory Page ! J ! The Get I Virtual Memory Page routine allocates a specified number ofM ! contiguous pages on VAX and pagelets on Alpha of memory in the programL ! region and returns the virtual address of the first allocated page on ! VAX and pagelet on Alpha. !  INTEGER*4 lib$get_vm_page EXTERNAL lib$get_vm_page ! LIB$GET_VM_PAGE_64 !  ! Get Virtual Memory Page ! J ! The Get Virtual Memory Page routine allocates a specified number ofM ! contiguous pages on VAXJ and pagelets on Alpha of memory in the programL ! region and returns the virtual address of the first allocated page on ! VAX and pagelet on Alpha. !  INTEGER*4 lib$get_vm_page_64 EXTERNAL lib$get_vm_page_64 ! LIB$ICHAR ! 3 ! Convert First Character of String to Integer ! L ! The Convert First Character of String to Integer routine converts theL ! first character of a source string to an 8-bit ASCII integer extended ! to a longword.K !  INTEGER*4 lib$ichar EXTERNAL lib$ichar ! LIB$INDEX ! . ! Index to Relative Position of Substring ! L ! The Index to Relative Position of Substring routine returns an index,L ! which is the relative position of the first occurrence of a substring ! in the source string. !  INTEGER*4 lib$index EXTERNAL lib$index! ! LIB$INIT_DATE_TIME_CONTEXT ! O ! Initialize the Context Area Used in Formatting Dates and Times for Input !L or Output ! M ! The Initialize the Context Area Used in Formatting Dates and Times forM ! Input or Output routine allows the user to initialize the context areaL ! used by LIB$FORMAT_DATE_TIME or LIB$CONVERT_DATE_STRING with specific< ! strings, instead of through logical name translation. ! % INTEGER*4 lib$init_date_time_context$ EXTERNAL lib$init_date_time_context ! LIB$INIT_TIMER ! " ! Initialize Times and Counts ! K ! The InitiMalize Times and Counts routine stores the current values ofO ! specified times and counts for use by LIB$SHOW_TIMER or LIB$STAT_TIMER.  !  INTEGER*4 lib$init_timer EXTERNAL lib$init_timer ! LIB$INSERT_TREE ! - ! Insert Entry in a Balanced Binary Tree ! M ! The Insert Entry in a Balanced Binary Tree routine inserts a node in a ! balanced binary tree. !  INTEGER*4 lib$insert_tree EXTERNAL lib$insert_tree ! LIB$INSERT_TREE_64 !N - ! Insert Entry in a Balanced Binary Tree ! M ! The Insert Entry in a Balanced Binary Tree routine inserts a node in a ! balanced binary tree. !  INTEGER*4 lib$insert_tree_64 EXTERNAL lib$insert_tree_64 ! LIB$INSQHI ! $ ! Insert Entry at Head of Queue ! M ! The Insert Entry at Head of Queue routine inserts a queue entry at theF ! head of the specified self-relative interlocked longword queue.J ! LIB$INSQHI makes the OVAX INSQHI instruction available as a callable ! routine. !  INTEGER*4 lib$insqhi EXTERNAL lib$insqhi ! LIB$INSQHIQ ! / ! Insert Entry at Head of Queue (Quadword) ! M ! The Insert Entry at Head of Queue routine inserts a queue entry at theF ! head of the specified self-relative interlocked quadword queue.K ! LIB$INSQHIQ makes the Alpha unprivileged PALcode instruction INSQHIQ' ! available as a callable routine. !  INTEGER*4 lib$insqhPiq EXTERNAL lib$insqhiq ! LIB$INSQTI ! $ ! Insert Entry at Tail of Queue ! M ! The Insert Entry at Tail of Queue routine inserts a queue entry at theF ! tail of the specified self-relative interlocked longword queue.J ! LIB$INSQTI makes the VAX INSQTI instruction available as a callable ! routine. !  INTEGER*4 lib$insqti EXTERNAL lib$insqti ! LIB$INSQTIQ ! / ! Insert Entry at Tail of Queue (Quadword) ! M ! The I Qnsert Entry at Tail of Queue routine inserts a queue entry at theF ! tail of the specified self-relative interlocked quadword queue.K ! LIB$INSQTIQ makes the Alpha unprivileged PALcode instruction INSQTIQ' ! available as a callable routine. !  INTEGER*4 lib$insqtiq EXTERNAL lib$insqtiq ! LIB$INSV ! " ! Insert a Variable Bit Field ! N ! The Insert a Variable Bit Field routine replaces the variable bit fieldN ! specified by the base, position R, and size arguments with bits 0 throughL ! of the source field. If the size of the bit field is zero, nothing isH ! inserted. LIB$INSV makes the VAX INSV instruction available as a ! callable routine. !  ! Subroutine lib$insv ! LIB$INT_OVER ! ! ! Integer Overflow Detection ! I ! The Integer Overflow Detection routine enables or disables integerK ! overflow detection for the calling routine activation. The previous3 ! integer overfSlow enable setting is returned. ! H ! This routine is available on Alpha VMS systems in translated form7 ! and is applicable to translated VAX images only. !  INTEGER*4 lib$int_over EXTERNAL lib$int_over2 ! LIB$I64_CREATE_INVO_CONTEXT ** IPF only ** ! P ! A thread can allocte an invocation context block on the heap by using the! ! following function format: ! & INTEGER*4 lib$i64_create_invo_context% EXTERNAL lib$i64_create_invo_context1 ! LTIB$I64_FREE_INVO_CONTEXT ** IPF only ** ! M ! A thread can free an invocation context block to the heap by using the! ! following function format: ! ' ! Subroutine lib$i64_free_invo_context4 ! LIB$I64_GET_CURR_INVO_CONTEXT ** IPF only ** ! W ! A thread can obtain the invocation context of the current procedure by using the! ! following function format: ! ( INTEGER*4 lib$i64_get_curr_invo_context' EXTERNAL lib$i64_get_curr_invo_context3 ! L UIB$I64_GET_CURR_INVO_HANDLE ** IPF only ** ! T ! A thread can obtain the invocation handle corresponding to current invocationO ! context of the current procedure by using the following function format: ! ' INTEGER*4 lib$i64_get_curr_invo_handle& EXTERNAL lib$i64_get_curr_invo_handle/ ! LIB$I64_GET_INVO_CONTEXT ** IPF only ** ! V ! A thread can obtain the invocation context of any active procedure by using the! ! following function format: ! # INT VEGER*4 lib$i64_get_invo_context" EXTERNAL lib$i64_get_invo_context. ! LIB$I64_GET_INVO_HANDLE ** IPF only ** ! W ! A thread can obtain an invocation handle corresponding to any invocation context4 ! block by using the following function format: ! " INTEGER*4 lib$i64_get_invo_handle! EXTERNAL lib$i64_get_invo_handle4 ! LIB$I64_GET_PREV_INVO_CONTEXT ** IPF only ** ! X ! A thread can obtain the invocation context of the procedure context preceding anyF ! W other procedure context by using the following function format: ! ( INTEGER*4 lib$i64_get_prev_invo_context' EXTERNAL lib$i64_get_prev_invo_context3 ! LIB$I64_GET_PREV_INVO_HANDLE ** IPF only ** ! W ! A thread can obtain an invocation handle of the procedure context preceding thatO ! of a specified procedure context by using the following function format: ! ' INTEGER*4 lib$i64_get_prev_invo_handle& EXTERNAL lib$i64_get_prev_invo_handle1 ! LIB$I64_INIT_IN XVO_CONTEXT ** IPF only ** ! G ! A thread can initialize an invocation context block by using the! ! following function format: ! $ INTEGER*4 lib$i64_init_invo_context# EXTERNAL lib$i64_init_invo_context- ! LIB$I64_PREV_INVO_END ** IPF only ** ! T ! This routine should be called at the conclusion of call tracing operations toU ! free the memory used to process unwind descriptors. The call tracing routinesG ! are LIB$I64_GET_INVO_CONTEXT, LIB$I64_G YET_PREV_INVO_CONTEXT, and% ! LIB$I64_GET_CURR_INVO_CONTEXT. ! X ! To provide efficient call tracing, some unwind information can be tracked in heapW ! storage from one call to the next. This heap storage should be freed before you5 ! release or reuse the invocation context block. ! R ! Calling this routine is only necessary if the LIBICB$V_UO_FLAG_CACHE_UNWINDK ! flag is set in the LIBICB$Q_UO_FLAGS field of the invocation contextG ! block. This flag cauZses unwind information to be cached between ! calls. ! INTEGER*4 lib$i64_prev_invo_end EXTERNAL lib$i64_prev_invo_end1 ! LIB$I64_PUT_INVO_REGISTERS ** IPF only ** ! Q ! The fields of a given procedure invocation context can be updated with newV ! register contents by calling a system library function in the following format: ! % INTEGER*4 lib$i64_put_invo_registers$ EXTERNAL lib$i64_put_invo_registers) ! LIB$I64_SET_FPSR ** IPF only ** ! [P ! Given an invocation context block and a quadword FPSR value in fpsr_copy,R ! write the fpsr_copy value to the invocation context block FPSR and then useP ! LIB$I64_PUT_INVO_REGISTERS to write to the actual context. The invocation< ! context block remains unchanged if the routine fails. !  INTEGER*4 lib$i64_set_fpsr EXTERNAL lib$i64_set_fpsr' ! LIB$I64_GET_FR ** IPF only ** ! T ! Given an invocation context block and floating-point register index suc \h thatR ! 2 <= index < 128, copy the register value to fr_copy. For example, an indexV ! value of 4 fetches the invocation context block FREG[4] value, which represents* ! the contents of F4 for the context. !  INTEGER*4 lib$i64_get_fr EXTERNAL lib$i64_get_fr' ! LIB$I64_SET_FR ** IPF only ** ! ^ ! Given an invocation context block, a floating-point register index, and a floatingpointS ! register value in fr_copy, writes the corresponding invocation cont ]ext blockK ! FREG entry, and calls LIB$I64_PUT_INVO_REGISTERS to write the actualT ! context. The invocation context block remains unchanged if the routine fails. !  INTEGER*4 lib$i64_set_fr EXTERNAL lib$i64_set_fr' ! LIB$I64_GET_GR ** IPF only ** ! M ! Given an invocation context block and general register index such thatQ ! 0 < index < 128,) copy the register value to gr_copy, for example, index 4X ! fetches the invocation context block IREG[4] va ^lue, which represents the contents ! of R4 for the context. !  INTEGER*4 lib$i64_get_gr EXTERNAL lib$i64_get_gr' ! LIB$I64_SET_GR ** IPF only ** ! L ! Given an invocation context block, a general register index such thatN ! 0 < index < 128, and a quadword value gr_copy, writes the correspondingR ! invocation context block general register, clears the corresponding NaT bitN ! and uses LIB$I64_PUT_INVO_REGISTERS to write to the actual context. TheG ! _ invocation context block remains unchanged if the routine fails. !  INTEGER*4 lib$i64_set_gr EXTERNAL lib$i64_set_gr' ! LIB$I64_SET_PC ** IPF only ** ! R ! Given an invocation context block and a quadword PC value in pc_copy, writeU ! the pc_copy value to the invocation context block PC and then use LIB$I64_PUT_R ! INVO_REGISTERS to write to the actual context. The invocation context block. ! remains unchanged if the routine fails. !  INTEGER*4 ` lib$i64_set_pc EXTERNAL lib$i64_set_pc4 ! LIB$I64_GET_UNWIND_HANDLER_FV ** IPF only ** ! V ! Given a pc_value, find the function value (address of the procedure descriptor)Y ! for the condition handler, if present, and write it to handler_fv. If not present," ! then write 0 to handler_fv. ! ( INTEGER*4 lib$i64_get_unwind_handler_fv' EXTERNAL lib$i64_get_unwind_handler_fv/ ! LIB$I64_GET_UNWIND_LSDA ** IPF only ** ! I ! Given a pc_value, find the ad adress of the unwind information blockU ! language-specific data area (LSDA), if present, and write it to unwind_lsda_p.6 ! If not present, then write 0 to unwind_lsda_va. ! " INTEGER*4 lib$i64_get_unwind_lsda! EXTERNAL lib$i64_get_unwind_lsda/ ! LIB$I64_GET_UNWIND_OSSD ** IPF only ** ! S ! Given a pc_value, find the address of the unwind information block operatingS ! system-specific data area, if present, and write it to unwind_ossd_p. If not. ! presebnt, then write 0 to unwind_ossd_p. ! " INTEGER*4 lib$i64_get_unwind_ossd! EXTERNAL lib$i64_get_unwind_ossd4 ! LIB$I64_IS_AST_DISPATCH_FRAME ** IPF only ** ! 1 ! Used to determine whether a given PC value) ! represents the AST dispatch frame. ! ( INTEGER*4 lib$i64_is_ast_dispatch_frame' EXTERNAL lib$i64_is_ast_dispatch_frame4 ! LIB$I64_IS_EXC_DISPATCH_FRAME ** IPF only ** ! 1 ! Used to determine whether a given PC value/ ! represents the excecption dispatch frame. ! ( INTEGER*4 lib$i64_is_exc_dispatch_frame' EXTERNAL lib$i64_is_exc_dispatch_frame ! LIB$LEN ! 2 ! Length of String Returned as Longword Value ! J ! The Length of String Returned as Longword Value routine returns the ! length of a string. !  INTEGER*2 lib$len EXTERNAL lib$len ! LIB$LOCC !  ! Locate a Character ! H ! The Locate a Character routine locates a character in a string byM ! d comparing successive bytes in the string with the character specified.M ! The search continues until the character is found or the string has noM ! more characters. LIB$LOCC makes the VAX LOCC instruction available as ! a callable routine. !  INTEGER*4 lib$locc EXTERNAL lib$locc ! LIB$LOCK_IMAGE  ! ! Lock Image in working set ! @ ! Lock all address ranges associated with a specified image ! into the working set. !  INTEGER*4 lib$locek_image EXTERNAL lib$lock_image ! LIB$LOOKUP_KEY !  ! Look Up Keyword in Table ! M ! The Look Up Keyword In Table routine scans a table of keywords to findH ! one that matches the keyword or keyword abbreviation specified by ! search-string. !  INTEGER*4 lib$lookup_key EXTERNAL lib$lookup_key ! LIB$LOOKUP_TREE ! 1 ! Look Up an Entry in a Balanced Binary Tree ! I ! The Look Up an Entry in a Balanced Binary Tree froutine looks up an' ! entry in a balanced binary tree. !  INTEGER*4 lib$lookup_tree EXTERNAL lib$lookup_tree ! LIB$LOOKUP_TREE_64 ! 1 ! Look Up an Entry in a Balanced Binary Tree ! I ! The Look Up an Entry in a Balanced Binary Tree routine looks up an' ! entry in a balanced binary tree. !  INTEGER*4 lib$lookup_tree_64 EXTERNAL lib$lookup_tree_64 ! LIB$LP_LINES ! ! ! Lines on Each Printer Page ! L ! T ghe Lines on Each Printer Page routine computes the default number ofL ! lines on a printer page. This routine can be used by native-mode VMS? ! utilities that produce listing files and paginate files. !  INTEGER*4 lib$lp_lines EXTERNAL lib$lp_lines ! LIB$MATCHC ! 1 ! Match Characters, Return Relative Position ! K ! The Match Characters and Return Relative Position routine searches aM ! source string for a specified substring and returns an hindex, which isJ ! the relative position of the first occurrence of a substring in theN ! source string. The relative character positions returned by LIB$MATCHCK ! are numbered 1, 2, , n. Thus, zero means that the substring was not ! found. !  INTEGER*4 lib$matchc EXTERNAL lib$matchc ! LIB$MATCH_COND !  ! Match Condition Values ! L ! The Match Condition Values routine checks to see if a given condition@ ! value matches a list of ciondition values that you supply. !  INTEGER*4 lib$match_cond EXTERNAL lib$match_cond ! LIB$MOVC3 !  ! Move Characters ! L ! The Move Characters routine makes the VAX MOVC3 instruction availableP ! as a callable routine. The source item is moved to the destination item.N ! Overlap of the source and destination items does not affect the result. !  ! Subroutine lib$movc3 ! LIB$MOVC5 ! ! Move Characters with Fill ! jL ! The Move Characters with Fill routine makes the VAX MOVC5 instructionH ! available as a callable routine. The source item is moved to theN ! destination item. Overlap of the source and destination items does not ! affect the result. !  ! Subroutine lib$movc5 ! LIB$MOVTC ! ! ! Move Translated Characters ! F ! The Move Translated Characters routine moves the source string,J ! character by character, to the destination string after traknslating= ! each character using the specified translation table. H ! LIB$MOVTC makes the VAX MOVTC instruction available as a callable ! routine. !  INTEGER*4 lib$movtc EXTERNAL lib$movtc ! LIB$MOVTUC ! & ! Move Translated Until Character ! K ! The Move Translated Until Character routine moves the source string,O ! character by character, to the destination string after translating eachO ! character using the specified translation t lable until the stop characterM ! is encountered. LIB$MOVTUC makes the VAX MOVTUC instruction available ! as a callable routine. !  INTEGER*4 lib$movtuc EXTERNAL lib$movtuc ! LIB$MT_DENSITY_CONVERSION ! 8 ! Convert the DCL command line qualifiers specfied for5 ! /DENSITY, /COMPACTION, /MEDIA_FORMAT=DENSITY= and= ! /MEDIA_FORMAT=COMPACTION to a OpenVMS density/compression> ! code (MT3DEF or MTDEF symbols) and return value indicatingA ! the tape driver ownimng the device is MTD enhanced or not.  ! $ INTEGER*4 lib$mt_density_conversion# EXTERNAL lib$mt_density_conversion ! " ! LIB$MT_DENSITY_VERIFICATION  ! ? ! Verify a OpenVMS density/compression code (MT3DEF or MTDEF > ! symbols) is indeed an acceptable density/compression code? ! for both MTD enhanced tape device drivers and non enhanced8 ! tape device drivers. Also return a value indicating< ! the driver owning the device is MTD enhanced or not.  ! & INTEGnER*4 lib$mt_density_verification% EXTERNAL lib$mt_density_verification !  !  ! LIB$MT_DENSITY_STRCVT  ! B ! Copies the string equivalent of a OpenVMS density/compression A ! code into a user supplied buffer. This works for both MT3DEF ! symbols and MTDEF symbols. !  ! INTEGER*4 lib$mt_density_strcvt EXTERNAL lib$mt_density_strcvt ! LIB$MULTF_DELTA_TIME ! 2 ! Multiply Delta Time by an F_Floating Scalar ! K ! The Multiply Deltoa Time by an F-Floating Scalar routine multiplies a* ! delta time by an F-floating scalar. !  INTEGER*4 lib$multf_delta_time EXTERNAL lib$multf_delta_time ! LIB$MULTS_DELTA_TIME ! 2 ! Multiply Delta Time by an S_Floating Scalar ! K ! The Multiply Delta Time by an S-Floating Scalar routine multiplies a* ! delta time by an S-floating scalar. !  INTEGER*4 lib$mults_delta_time EXTERNAL lib$mults_delta_time ! LIB$MULT_DELTA_TIME ! p$ ! Multiply Delta Time by Scalar ! K ! The Multiply Delta Time by Scalar routine multiplies a delta time by! ! a longword integer scalar. !  INTEGER*4 lib$mult_delta_time EXTERNAL lib$mult_delta_time ! LIB$PARSE_ACCESS_CODE ! ' ! Parse Access Encoded Name String ! I ! The Parse Access Encoded Name String routine parses and translatesF ! a string of access names into a mask for a particular ownership ! category. ! q INTEGER*4 lib$parse_access_code EXTERNAL lib$parse_access_code ! LIB$PARSE_SOGW_PROT !  ! Parse Protection String ! @ ! The Parse Protection String routine parses and translates2 ! a protection string into a protection mask. !  INTEGER*4 lib$parse_sogw_prot EXTERNAL lib$parse_sogw_prot ! LIB$PAUSE !  ! Pause Program Execution ! I ! The Pause Program Execution routine suspends program execution and4 ! returns contrrol to the calling command level. !  INTEGER*4 lib$pause EXTERNAL lib$pause ! LIB$POLYD !  ! Evaluate Polynomials ! H ! The Evaluate Polynomials routine (D-floating point values) allowsE ! higher-level language users to evaluate D-floating point value ! polynomials. !  INTEGER*4 lib$polyd EXTERNAL lib$polyd ! LIB$POLYF !  ! Evaluate Polynomials ! H ! The Evaluate Polynomials routine (F-floating point valuess) allows? ! higher-level language users to evaluate F-floating point ! polynomials. !  INTEGER*4 lib$polyf EXTERNAL lib$polyf ! LIB$POLYT !  ! Evaluate Polynomials ! H ! The Evaluate Polynomials routine (T-floating point values) allowsE ! higher-level language users to evaluate T-floating point value ! polynomials. !  INTEGER*4 lib$polyt EXTERNAL lib$polyt ! LIB$POLYS !  ! Evaluate Polynomials ! H ! t The Evaluate Polynomials routine (S-floating point values) allows? ! higher-level language users to evaluate S-floating point ! polynomials. !  INTEGER*4 lib$polys EXTERNAL lib$polys ! LIB$POLYG !  ! Evaluate Polynomials ! H ! The Evaluate Polynomials routine (G-floating point values) allowsE ! higher-level language users to evaluate G-floating point value ! polynomials. !  INTEGER*4 lib$polyg EXTERNAL lib$polyg ! LIB$P uOLYH !  ! Evaluate Polynomials ! M ! On VAX VMS, the Evaluate Polynomials routine (H-floating point values)M ! allows higher-level language users to evaluate H-floating point value ! polynomials. ! I ! This routine is not available to native Alpha VMS programs, but is* ! available to translated VAX images. ! I ! This routine is not available to native Alpha VMS programs, but isO ! recognized and handled appropriately by most Digital vhigh-level language ! compilers. !  INTEGER*4 lib$polyh EXTERNAL lib$polyh ! LIB$PUT_COMMON !  ! Put String to Common ! L ! The Put String to Common routine copies the contents of a string intoL ! the common area. The common area is an area of storage which remainsK ! defined across multiple image activations in a process. Optionally,E ! LIB$PUT_COMMON returns the actual number of characters copied.B ! The maximum number of cwharacters that can be copied is 252. !  INTEGER*4 lib$put_common EXTERNAL lib$put_common ! LIB$PUT_OUTPUT !  ! Put Line to SYS$OUTPUT ! H ! The Put Line to SYS$OUTPUT routine writes a record to the currentL ! controlling output device, specified by SYS$OUTPUT using the RMS $PUT ! service. !  INTEGER*4 lib$put_output EXTERNAL lib$put_output ! LIB$RADIX_POINT !  ! Radix Point Symbol ! N ! The Radix Point Sym xbol routine returns the system's radix point symbol.M ! This symbol is used inside a digit string to separate the integer partM ! from the fraction part. This routine works by attempting to translateN ! the logical name SYS$RADIX_POINT as a process, group, or system logical ! name. !  INTEGER*4 lib$radix_point EXTERNAL lib$radix_point ! LIB$REMQHI ! & ! Remove Entry from Head of Queue ! L ! The Remove Entry from Head of Queue routine removyes an entry from theG ! head of the specified self-relative interlocked longword queue. ? ! LIB$REMQHI makes the VAX REMQHI instruction available as ! a callable routine. !  INTEGER*4 lib$remqhi EXTERNAL lib$remqhi ! LIB$REMQHIQ ! 1 ! Remove Entry from Head of Queue (Quadword) ! L ! The Remove Entry from Head of Queue routine removes an entry from theG ! head of the specified self-relative interlocked quadword queue. K ! LIB$REMQHzIQ makes the Alpha unprivileged PALcode instruction REMQHIQ' ! available as a callable routine. !  INTEGER*4 lib$remqhiq EXTERNAL lib$remqhiq ! LIB$REMQTI ! & ! Remove Entry from Tail of Queue ! L ! The Remove Entry from Tail of Queue routine removes an entry from theG ! tail of the specified self-relative interlocked longword queue. A ! LIB$REMQTI makes the VAX REMQTI instruction available as a ! callable routine. !  INTEGER{*4 lib$remqti EXTERNAL lib$remqti ! LIB$REMQTIQ ! 1 ! Remove Entry from Tail of Queue (Quadword) ! L ! The Remove Entry from Tail of Queue routine removes an entry from theG ! tail of the specified self-relative interlocked quadword queue. K ! LIB$REMQTIQ makes the Alpha unprivileged PALcode instruction REMQTIQ' ! available as a callable routine. !  INTEGER*4 lib$remqtiq EXTERNAL lib$remqtiq ! LIB$RENAME_FILE !  ! Renam|e One or More Files ! L ! The Rename One or More Files routine changes the names of one or moreF ! files. The specification of the files to be renamed may includeL ! wildcards. LIB$RENAME_FILE is similar in function to the DCL command ! RENAME. !  INTEGER*4 lib$rename_file EXTERNAL lib$rename_file ! LIB$RESERVE_EF !  ! Reserve Event Flag ! I ! The Reserve Event Flag routine allocates a local event flag number& ! specified by }event-flag-number. !  INTEGER*4 lib$reserve_ef EXTERNAL lib$reserve_ef ! LIB$RESET_VM_ZONE ! ! Reset Virtual Memory Zone ! L ! The Reset Virtual Memory Zone routine frees all blocks of memory that/ ! were previously allocated from the zone. !  INTEGER*4 lib$reset_vm_zone EXTERNAL lib$reset_vm_zone ! LIB$RESET_VM_ZONE_64 ! ! Reset Virtual Memory Zone ! L ! The Reset Virtual Memory Zone routine frees all block~s of memory that/ ! were previously allocated from the zone. !  INTEGER*4 lib$reset_vm_zone_64 EXTERNAL lib$reset_vm_zone_64 ! LIB$REVERT ! 5 ! Revert to the Handler of the Routine Activator ! M ! The Revert to the Handler of the Routine Activator routine deletes theM ! condition handler established by LIB$ESTABLISH by clearing the addressK ! pointing to the condition handler from the activated routine's stack ! frame. ! & ! ENTRY lib$revert ALIAS $lib_revert4 ! RETURNS ADDRESS NAMED RESULT TYPENAME address; ! LIB$RUN_PROGRAM !  ! Run New Program ! M ! The Run New Program routine causes the current program to stop running/ ! and begins execution of another program. !  INTEGER*4 lib$run_program EXTERNAL lib$run_program ! LIB$SCANC ! 7 ! Scan for Characters and Return Relative Position ! N ! The Scan for Characters and Return Relative Position routine is used to@ ! find a specified set of characters in the source string. ? ! LIB$SCANC makes the VAX SCANC instruction available as a ! callable routine. !  INTEGER*4 lib$scanc EXTERNAL lib$scanc ! LIB$SCOPY_DXDX ! = ! Copy Source String Passed by Descriptor to Destination ! I ! The Copy Source String Passed by Descriptor to Destination routineK ! copies a source string passed by descriptor to a destination string. !  INTEGER*4 lib$scopy_dxdx EXTERNAL lib$scopy_dxdx ! LIB$SCOPY_R_DX ! C ! Copy Source String Passed by Reference to Destination String ! O ! The Copy Source String Passed by Reference to Destination String routineJ ! copies a source string passed by reference to a destination string. !  INTEGER*4 lib$scopy_r_dx EXTERNAL lib$scopy_r_dx ! LIB$SCOPY_R_DX_64 ! C ! Copy Source String Passed by Reference to Destination String ! O  ! The Copy Source String Passed by Reference to Destination String routineJ ! copies a source string passed by reference to a destination string. !  INTEGER*4 lib$scopy_r_dx_64 EXTERNAL lib$scopy_r_dx_64 ! LIB$SET_LOGICAL !  ! Set Logical Name ! J ! The Set Logical Name routine requests the calling process's CommandI ! Language Interpreter (CLI) to define or redefine a supervisor-modeM ! process logical name. It provides the same function as the DCL DEFINE ! command. !  INTEGER*4 lib$set_logical EXTERNAL lib$set_logical ! LIB$SET_SYMBOL !  ! Set Value of CLI Symbol ! I ! The Set Value of CLI Symbol routine requests the calling process'sM ! Command Language Interpreter (CLI) to define or redefine a CLI symbol. !  INTEGER*4 lib$set_symbol EXTERNAL lib$set_symbol ! LIB$SFREE1_DD !  ! Free One Dynamic String ! M ! The Free One Dynamic String routine returns the dynamically allocated $ ! storage for a dynamic string. !  INTEGER*4 lib$sfree1_dd EXTERNAL lib$sfree1_dd ! LIB$SFREEN_DD ! ' ! Free One or More Dynamic Strings ! O ! The Free One or More Dynamic Strings routine returns one or more dynamic ! strings to free storage. !  INTEGER*4 lib$sfreen_dd EXTERNAL lib$sfreen_dd ! LIB$SGET1_DD !  ! Get One Dynamic String ! M ! The Get One Dynamic String routine allocates dynamic virtual memory to) ! the string descriptor you specify. !  INTEGER*4 lib$sget1_dd EXTERNAL lib$sget1_dd ! LIB$SGET1_DD_64 !  ! Get One Dynamic String ! M ! The Get One Dynamic String routine allocates dynamic virtual memory to) ! the string descriptor you specify. !  INTEGER*4 lib$sget1_dd_64 EXTERNAL lib$sget1_dd_64 ! LIB$SHOW_TIMER ! ( ! Show Accumulated Times and Counts ! M ! The Show Accumulated Times and Counts routine returns times and countsM ! accumulated since the last call to LIB$INIT_TIMER and displays them onH ! SYS$OUTPUT. (LIB$INIT_TIMER must be called prior to invoking thisG ! routine.) A user-supplied action routine may change this default ! behavior. !  INTEGER*4 lib$show_timer EXTERNAL lib$show_timer ! LIB$SHOW_VM ! % ! Show Virtual Memory Statistics ! H ! The Show Virtual Memory Statistics routine returns the statisticsJ ! accumulated from calls to LIB$GET_VM, LIB$FREE_VM, LIB$GET_VM_PAGE, ! and LIB$FREE_VM_PAGE.  !  INTEGER*4 lib$show_vm EXTERNAL lib$show_vm ! LIB$SHOW_VM_64 ! % ! Show Virtual Memory Statistics ! H ! The Show Virtual Memory Statistics routine returns the statistics? ! accumulated from calls to LIB$GET_VM_64, LIB$FREE_VM_64,4 ! LIB$GET_VM_PAGE_64, and LIB$FREE_VM_PAGE_64.  !  INTEGER*4 lib$show_vm_64 EXTERNAL lib$show_vm_64 ! LIB$SHOW_VM_ZONE ! & ! Return Information About a Zone ! P ! The Return Information About a Zone routine returns formatted informationO ! about the specified zone, detailing such information as the zone's name,I ! characteristics, and areas, and then passes the information to the+ ! specified or default action routine. !  INTEGER*4 lib$show_vm_zone EXTERNAL lib$show_vm_zone ! LIB$SHOW_VM_ZONE_64 ! & ! Return Information About a Zone ! P ! The Return Information About a Zone routine returns formatted informationO ! about the specified zone, detailing such information as the zone's name,I ! characteristics, and areas, and then passes the information to the+ ! specified or default action routine. !  INTEGER*4 lib$show_vm_zone_64 EXTERNAL lib$show_vm_zone_64 ! LIB$SIGNAL ! ! ! Signal Exception Condition ! O  ! The Signal Exception Condition routine generates a signal that indicatesO ! that an exception condition has occurred in your program. If a conditionP ! handler does not take corrective action and the condition is severe, then ! your program will exit. !  ! Subroutine lib$signal ! LIB$SIG_TO_RET ! * ! Signal Converted to a Return Status ! L ! The Signal Converted to a Return Status routine converts any signaledP ! condition value to a value returned as a function. The signaled conditionI ! is returned to the caller of the user routine that established theN ! handler that is calling LIB$SIG_TO_RET. This routine may be established- ! as or called from a condition handler. !  INTEGER*4 lib$sig_to_ret EXTERNAL lib$sig_to_ret ! LIB$SIG_TO_STOP ! 6 ! Convert a Signaled Condition to a Signaled Stop ! M ! The Convert a Signaled Condition to a Signaled Stop routine converts aK ! signaled condition to a signaled condition that cannot be continued. !  INTEGER*4 lib$sig_to_stop EXTERNAL lib$sig_to_stop ! LIB$SIM_TRAP !  ! Simulate Floating Trap ! N ! The Simulate Floating Trap routine converts floating faults to floatingP ! traps. It can be enabled as a condition handler or can be called by one. ! I ! This routine is not available to native Alpha VMS programs, but is* ! available to translated VAX images. !  INTEGER*4 lib$sim_trap EXTERNAL lib$sim_trap ! LIB$SKPC !  ! Skip Equal Characters ! K ! The Skip Equal Characters routine compares each character of a givenM ! string with a given character and returns the relative position of theI ! first nonequal character as an index. LIB$SKPC makes the VAX SKPC3 ! instruction available as a callable routine. !  INTEGER*4 lib$skpc EXTERNAL lib$skpc ! LIB$SPANC !  ! Skip Selected Characters ! N ! The Skip Selected Characters routine is used to skip a specified set ofF ! characters in the source string. LIB$SPANC makes the VAX SPANC3 ! instruction available as a callable routine. !  INTEGER*4 lib$spanc EXTERNAL lib$spanc ! LIB$SPAWN !  ! Spawn Subprocess ! M ! The Spawn Subprocess routine requests the command language interpreterK ! (CLI) of the calling process to spawn a subprocess for executin g CLIP ! commands. LIB$SPAWN provides the same function as the DCL SPAWN command. !  INTEGER*4 lib$spawn EXTERNAL lib$spawn ! LIB$STAT_TIMER ! 6 ! Statistics, Return Accumulated Times and Counts ! J ! The Statistics, Return Accumulated Times and Counts routine returnsK ! to its caller one of five available statistics accumulated since theM ! last call to LIB$INIT_TIMER. Unlike LIB$SHOW_TIMER, which formats theI ! values for output, LI B$STAT_TIMER returns the value as an unsigned ! longword or quadword. !  INTEGER*4 lib$stat_timer EXTERNAL lib$stat_timer ! LIB$STAT_VM ! ' ! Return Virtual Memory Statistics ! M ! The Return Virtual Memory Statistics routine returns to its caller oneK ! of six statistics available from calls to LIB$GET_VM/LIB$FREE_VM andK ! LIB$GET_VM_PAGE/LIB$FREE_VM_PAGE. Unlike LIB$SHOW_VM, which formatsI ! the values for output and displays them on SYS$OUTPUT, LIB$STAT_VMM ! returns the statistic in the value-argument argument. Only one of the: ! statistics is returned by each call to LIB$STAT_VM. !  INTEGER*4 lib$stat_vm EXTERNAL lib$stat_vm ! LIB$STAT_VM_64 ! ' ! Return Virtual Memory Statistics ! P ! The Return Virtual Memory Statistics routine returns to its caller one ofN ! six statistics available from calls to LIB$GET_VM_64/LIB$FREE_VM_64 andQ ! LIB$GET_VM_PAGE_64/LIB$FREE _VM_PAGE_64. Unlike LIB$SHOW_VM, which formatsL ! the values for output and displays them on SYS$OUTPUT, LIB$STAT_VM_64M ! returns the statistic in the value-argument argument. Only one of the= ! statistics is returned by each call to LIB$STAT_VM_64. !  INTEGER*4 lib$stat_vm_64 EXTERNAL lib$stat_vm_64 ! LIB$STAT_VM_ZONE ! & ! Return Information About a Zone ! L ! The Return Information About a Zone routine returns a single piece of- !  information about the specified zone.  ! : ! Edit: Routine LIB$STAT_VM_ZONE is not yet implemented. ! > ! ENTRY lib$stat_vm_zone ALIAS $lib_stat_vm_zone PARAMETER (* ! LONGWORD UNSIGNED NAMED zone_id IN* ! TYPENAME identifier REFERENCE,# ! LONGWORD NAMED item_code IN/ ! TYPENAME longword_signed REFERENCE,3 ! LONGWORD NAMED resultant_value OUT OPTIONAL/ ! TYPENAME longword_signed REFERENCE,B ! CHARACTER RTL_STR_DESC NAMED resulta nt_string OUT OPTIONAL! ! TYPENAME char_string,9 ! WORD UNSIGNED NAMED resultant_length OUT OPTIONAL. ! TYPENAME word_unsigned REFERENCE )4 ! RETURNS LONGWORD UNSIGNED TYPENAME cond_value; ! LIB$STOP ! . ! Stop Execution and Signal the Condition ! M ! The Stop Execution and Signal the Condition routine generates a signalO ! that indicates that an exception condition has occurred in your program.M ! Exception conditions signaled by LIB$STOP cannot be continued from the ! point of the signal. !  ! Subroutine lib$stop ! LIB$SUBX ! , ! Multiple-Precision Binary Subtraction ! M ! The Multiple-Precision Binary Subtraction routine performs subtraction? ! on signed two's complement integers of arbitrary length. !  INTEGER*4 lib$subx EXTERNAL lib$subx ! LIB$SUB_TIMES ! " ! Subtract Two Quadword Times ! @ ! The Subtract Two Quadword Times routine subtracts two VMS" ! internal-time-format times. !  INTEGER*4 lib$sub_times EXTERNAL lib$sub_times ! LIB$SYS_ASCTIM ! < ! Invoke $ASCTIM to Convert Binary Time to ASCII String ! R ! The Invoke $ASCTIM to Convert Binary Time to ASCII String routine calls theT ! system service $ASCTIM to convert a binary date and time value, returning the? ! ASCII string using the semantics of the caller's string. !  INTEGER*4 lib$sys_asctim EXTERNAL lib$sys_asctim ! LIB$SYS_FAO ! 2 ! Invoke $FAO System Service to Format Output ! J ! The Invoke $FAO System Service to Format Output routine calls $FAO,M ! returning a string in the semantics you provide. If called with otherI ! than a fixed-length string for output, the length of the resultant@ ! string is limited to 256 bytes and truncation will occur. !  INTEGER*4 lib$sys_fao EXTERNAL lib$sys_fao ! LIB$SYS_FAOL ! 3  ! Invoke $FAOL System Service to Format Output ! I ! The Invoke $FAOL System Service to Format Output routine calls theJ ! system service routine $FAOL, returning the string in the semanticsH ! you provide. If called with other than a fixed-length string forI ! output, the length of the resultant string is limited to 256 bytes! ! and truncation will occur. !  INTEGER*4 lib$sys_faol EXTERNAL lib$sys_faol ! LIB$SYS_FAOL_64 ! 3 ! Invoke $FAOL System Service to Format Output ! I ! The Invoke $FAOL System Service to Format Output routine calls theJ ! system service routine $FAOL, returning the string in the semanticsH ! you provide. If called with other than a fixed-length string forI ! output, the length of the resultant string is limited to 256 bytes! ! and truncation will occur. !  INTEGER*4 lib$sys_faol_64 EXTERNAL lib$sys_faol_64 ! LIB$SYS_GETMSG ! 8 ! Invoke $GETMSG System Service to Get Message Text ! J ! The Invoke $GETMSG System Service to Get Message Text routine callsC ! the System Service $GETMSG and returns a message string intoE ! destination-string using the semantics of the caller's string. !  INTEGER*4 lib$sys_getmsg EXTERNAL lib$sys_getmsg ! LIB$SYS_TRNLOG ! > ! Invoke $TRNLOG System Service to Translate Logical Name ! J ! The Invoke $TRNLOG System Service to Translate Logical Name routineC ! uses the system service $TRNLOG to translate a logical name.F ! LIB$SYS_TRNLOG returns the logical name's translation using the( ! semantics of the caller's string. !  INTEGER*4 lib$sys_trnlog EXTERNAL lib$sys_trnlog! ! LIB$TPARSE/LIB$TABLE_PARSE ! ' ! Table-Driven Finite-State Parser ! I ! The Table-Driven Finite State Parser routine is a general-purpose,H ! table-driven parser implemented as a finite-state automaton, withI ! e xtensions that make it suitable for a wide range of applications.I ! It parses a string and returns a message indicating whether or not! ! the input string is valid. ! 4 ! LIB$TPARSE performs this function on VAX VMS. ! K ! LIB$TABLE_PARSE performs this function on Alpha VMS and is availableN ! only on Alpha VMS. LIB$TPARSE is available in translated form on AlphaN ! VMS. LIB$TABLE_PARSE differs from LIB$TPARSE only in the way that user, ! specified action routines are called. !  INTEGER*4 lib$table_parse EXTERNAL lib$table_parse2 ! ENTRY lib$tparse ALIAS $lib_tparse PARAMETER (' ! ANY NAMED argument_block IN OUT# ! TYPENAME any REFERENCE, ! ANY NAMED state_table IN# ! TYPENAME any REFERENCE, ! ANY NAMED key_table IN$ ! TYPENAME any REFERENCE )4 ! RETURNS LONGWORD UNSIGNED TYPENAME cond_value; ! LIB$TRAVERSE_TREE ! & ! Traverse a Balanced Binary Tree ! J ! The Traverse a Balanced Binary Tree routine calls an action routine& ! for each node in a binary tree. !  INTEGER*4 lib$traverse_tree EXTERNAL lib$traverse_tree ! LIB$TRAVERSE_TREE_64 ! & ! Traverse a Balanced Binary Tree ! J ! The Traverse a Balanced Binary Tree routine calls an action routine& ! for each node in a binary tree. !  INTEGER*4 lib$traverse_tree_64 EXTERNAL lib$traverse_tree_64 ! LIB$TRA_ASC_EBC ! !  Translate ASCII to EBCDIC ! G ! The Translate ASCII to EBCDIC routine translates an ASCII string ! to an EBCDIC string. !  INTEGER*4 lib$tra_asc_ebc EXTERNAL lib$tra_asc_ebc ! LIB$TRA_EBC_ASC ! ! Translate EBCDIC to ASCII ! H ! The Translate EBCDIC to ASCII routine translates an EBCDIC string ! to an ASCII string. !  INTEGER*4 lib$tra_ebc_asc EXTERNAL lib$tra_ebc_asc ! LIB$TRIM_FILESPEC ! 3 ! Fit Long File Specifi cation into Fixed Field ! L ! The Fit Long File Specification into Fixed Field routine takes a fileK ! specification, such as an RMS resultant name string, and shortens itB ! (if necessary) so that it fits into a field of fixed width. !  INTEGER*4 lib$trim_filespec EXTERNAL lib$trim_filespec ! LIB$TRIM_FULLNAME ! : ! Trim a Full Name to Fit into a Desired Output Field ! F ! The Trim a Full Name to Fit into a Desired Output Field routine< ! trims a full name to fit into a desired output field. !  INTEGER*4 lib$trim_fullname EXTERNAL lib$trim_fullname ! LIB$UID_TO_ASCII !  ! Convert a UID to Text ! : ! The Convert a UID to Text routine converts a UID to8 ! standard representation ina an ASCII text string. !  INTEGER*4 lib$uid_to_ascii EXTERNAL lib$uid_to_ascii ! LIB$UNLOCK_IMAGE  ! $ ! Unlock Image from working set ! B ! Unlock all address ranges associated with a specified image ! from the working set. !  INTEGER*4 lib$unlock_image EXTERNAL lib$unlock_image ! LIB$VERIFY_VM_ZONE !  ! Verify a Zone ! A ! The Verify a Zone routine performs verification of a zone. !  INTEGER*4 lib$verify_vm_zone EXTERNAL lib$verify_vm_zone ! LIB$VERIFY_VM_ZONE_64 !  ! Verify a Zone ! A ! The Verify a Zone routine performs verification of a zone. ! INTEGER*4 lib$verify_vm_zone_64 EXTERNAL lib$verify_vm_zone_64 ! LIB$WAIT ! & ! Wait a Specified Period of Time ! M ! The Wait a Specified Period of Time routine places the current processL ! into hibernation for the number of seconds specified in its argument. !  INTEGER*4 lib$wait EXTERNAL lib$wait!DEC$ END OPTIONSwwjΦ! ********************************************************************************************************************************;!  Created: 30-AUG-2007 11:29:46 by OpenVMS SDL IA64-2 _! Source: 30-AUG-2007 11:29:45 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]MAIL$ROUTINES.SDI;1 ! ******************************************************************************************************************************** '!*** MODULE MAIL$ROUTINES IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN !  ! D ! This package defines the interfaces to the callable OpenVMS MAILD ! routines as documented in the OpenVMS Utility Routines Reference ! Manual.  !  !  ! Mail File routines !  ! 3 ! MAILFILE_BEGIN - Initiates mail file processing ! G ! status = MAIL$MAILFILE_BEGIN (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MAILFILE_BEGIN EXTERNAL MAIL$MAILFILE_BEGIN ! 8 ! MAILFILE_CLOSE - Closes the currently open mail file ! G ! status = MAIL$MAILFILE_CLOSE (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MAILFILE_CLOSE EXTERNAL MAIL$MAILFILE_CLOSE ! . ! MAILFILE_COMPRESS - Compresses a mail file ! J ! status = MAIL$MAILFILE_COMPRESS (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list ! ! INTEGER*4 MAIL$MAILFILE_COMPRESS EXTERNAL MAIL$MAILFILE_COMPRESS ! 2 ! MAILFILE_END - Terminates mail file processing ! E ! status = MAIL$MAILFILE_END (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MAILFILE_END EXTERNAL MAIL$MAILFILE_END ! H ! MAILFILE_INFO_FILE - Obtains information about a specified mail file ! K ! status = MAIL$MAILFILE_INFO_FILE (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list ! " INTEGER*4 MAIL$MAILFILE_INFO_FILE! EXTERNAL MAIL$MAILFILE_INFO_FILE ! F ! MAILFILE_MODIFY - Modifies the information in an indexed mail file ! H ! status = MAIL$MAILFILE_MODIFY (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MAILFILE_MODIFY EXTERNAL MAIL$MAILFILE_MODIFY ! > ! MAILFILE_OPEN - Opens a specified mail file for processing ! F ! status = MAIL$MAILFILE_OPEN (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MAILFILE_OPEN EXTERNAL MAIL$MAILFILE_OPEN ! @ ! MAILFILE_PURGE_WASTE - Purges the wastebasket of a mail file ! M ! status = MAIL$MAILFILE_PURGE_WASTE (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list ! $ INTEGER*4 MAIL$MAILFILE_PURGE_WASTE# EXTERNAL MAIL$MAILFILE_PURGE_WASTE !  ! Message routines !  ! , ! MESSAGE_BEGIN - Begin message processing ! F ! status = MAIL$MESSAGE_BEGIN (context, in_item_list, out_item_list) ! " ! context - Context value$ !  in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MESSAGE_BEGIN EXTERNAL MAIL$MESSAGE_BEGIN ! ; ! MESSAGE_COPY - Copies messages between files or folders ! E ! status = MAIL$MESSAGE_COPY (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MESSAGE_COPY EXTERNAL MAIL$MESSAGE_COPY ! & ! MESSAGE_DELETE - Deletes a message ! G ! status = MAIL$MESSAGE_DELETE (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MESSAGE_DELETE EXTERNAL MAIL$MESSAGE_DELETE ! ) ! MESSAGE_END - Ends message processing ! D ! status = MAIL$MESSAGE_END (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MESSAGE_END EXTERNAL MAIL$MESSAGE_END ! G ! MESSAGE_GET - Retrieves a message from the set of selected messages ! D ! status = MAIL$MESSAGE_GET (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MESSAGE_GET EXTERNAL MAIL$MESSAGE_GET ! @ ! MESSAGE_INFO - Obtains information about a specified message ! E ! status = MAIL$MESSAGE_INFO (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MESSAGE_INFO EXTERNAL MAIL$MESSAGE_INFO ! 1 ! MESSAGE_MODIFY = Modifies message information ! G ! status = MAIL$MESSAGE_MODIFY (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MESSAGE_MODIFY EXTERNAL MAIL$MESSAGE_MODIFY ! @ ! MESSAGE_SELECT - Selects messages from the current mail file ! G ! status = MAIL$MESSAGE_SELECT (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$MESSAGE_SELECT EXTERNAL MAIL$MESSAGE_SELECT !  ! Send routines !  ! 1 ! SEND_ABORT - Cancels a current send operation ! C ! status = MAIL$SEND_ABORT (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$SEND_ABORT EXTERNAL MAIL$SEND_ABORT ! : ! SEND_ADD_ADDRESS - Adds an address to the address list ! I ! status = MAIL$SEND_ADD_ADDRESS (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list ! INTEGER*4 MAIL$SEND_ADD_ADDRESS EXTERNAL MAIL$SEND_ADD_ADDRESS ! A ! SEND_ADD_ATTRIBUTE - Adds an attribute to the current message ! K ! status = MAIL$SEND_ADD_ATTRIBUTE (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list ! " INTEGER*4 MAIL$SEND_ADD_ATTRIBUTE! EXTERNAL MAIL$SEND_ADD_ATTRIBUTE ! 7 ! SEND_BEGIN - Initiates processing to send a message ! C ! status = MAIL$SEND_BEGIN (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$SEND_BEGIN EXTERNAL MAIL$SEND_BEGIN ! 4 ! SEND_ADD_BODYPART - Builds the body of a message ! J ! status = MAIL$SEND_ADD_BODYPART (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list ! ! INTEGER*4 MAIL$SEND_ADD_BODYPART EXTERNAL MAIL$SEND_ADD_BODYPART ! ) ! SEND_END - Terminates send processing ! A ! status = MAIL$SEND_END (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$SEND_END EXTERNAL MAIL$SEND_END ! 5 ! SEND_MESSAGE - Begins actual sending of a message ! E ! status = MAIL$SEND_MESSAGE (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$SEND_MESSAGE EXTERNAL MAIL$SEND_MESSAGE !  ! User data base routines !  ! > ! USER_BEGIN - Initiates access to the common user data base ! C ! status = MAIL$USER_BEGIN (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$USER_BEGIN EXTERNAL MAIL$USER_BEGIN ! E ! USER_DELETE_INFO - Remove a user record from the common data base ! I ! status = MAIL$USER_DELETE_INFO (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list ! INTEGER*4 MAIL$USER_DELETE_INFO EXTERNAL MAIL$USER_DELETE_INFO ! = ! USER_END - terminates access to the common user data base ! A ! status = MAIL$USER_END (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$USER_END EXTERNAL MAIL$USER_END ! 4 ! USER_GET_INFO - Obtains information about a user ! F ! status = MAIL$USER_GET_INFO (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$USER_GET_INFO EXTERNAL MAIL$USER_GET_INFO ! = ! USER_SET_INFO - Adds or modifies information about a user ! F ! status = MAIL$USER_SET_INFO (context, in_item_list, out_item_list) ! " ! context - Context value$ ! in_item_list - Input item list% ! out_item_list - Output item list !  INTEGER*4 MAIL$USER_SET_INFO EXTERNAL MAIL$USER_SET_INFO!DEC$ END OPTIONSwwthΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:47 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:47 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]MTH$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE mth$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! ********************************* ****************************************** ! *2 ! COPYRIGHT (c) 1988 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *N ! *************************************************************************** ! MTH$ACOS ! / ! Arc Cosine of Angle Expressed in Radians ! Q ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians! ! routine returns that angle ! (in radians). !  REAL*4 mth$acos EXTERNAL mth$acos ! MTH$DACOS ! / ! Arc Cosine of Angle Expressed in Radians ! Q ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians! ! routine returns that angle ! (in radians). !  REAL*8 mth$dacos EXTERNAL mth$dacos ! MTH$GACOS ! / ! Arc Cosine of Angle Expressed in Radians ! Q ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians! ! routine returns that angle ! (in radians). !  REAL*8 mth$gacos EXTERNAL mth$gacos ! MTH$ACOSD ! / ! Arc Cosine of Angle Expressed in Degrees ! Q ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees).  !  REAL*4 mth$acosd EXTERNAL mth$acosd ! MTH$DACOSD ! / ! Arc Cosine of Angle Expressed in Degrees ! Q ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that !  angle (in degrees).  !  REAL*8 mth$dacosd EXTERNAL mth$dacosd ! MTH$GACOSD ! / ! Arc Cosine of Angle Expressed in Degrees ! Q ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees).  !  REAL*8 mth$gacosd EXTERNAL mth$gacosd ! MTH$ASIN !  ! Arc Sine in Radians ! : ! Given the sine of an angle, the Arc Sine in Radians! ! routine returns that angle ! (in radians). !  REAL*4 mth$asin EXTERNAL mth$asin ! MTH$DASIN !  ! Arc Sine in Radians ! : ! Given the sine of an angle, the Arc Sine in Radians! ! routine returns that angle ! (in radians). !  REAL*8 mth$dasin EXTERNAL mth$dasin ! MTH$GASIN# !  ! Arc Sine in Radians ! : ! Given the sine of an angle, the Arc Sine in Radians! ! routine returns that angle ! (in radians). !  REAL*8 mth$gasin EXTERNAL mth$gasin ! MTH$ASIND !  ! Arc Sine in Degrees ! : ! Given the sine of an angle, the Arc Sine in Degrees! ! routine returns that angle ! (in degrees). !  REAL*4 mth$asind EXTERNAL mth$asind ! MTH$DASIND !  ! Arc Sine in Degrees ! : ! Given the sine of an angle, the Arc Sine in Degrees! ! routine returns that angle !  (in degrees). !  REAL*8 mth$dasind EXTERNAL mth$dasind ! MTH$GASIND !  ! Arc Sine in Degrees ! : ! Given the sine of an angle, the Arc Sine in Degrees! ! routine returns that angle ! (in degrees). !  REAL*8 mth$gasind EXTERNAL mth$gasind ! MTH$ATAN !  ! Arc Tangent in Radians ! @ ! Given the tangent of an angle, the Arc Tangent in Radians0 ! routine returns that angle (in radians).  !   REAL*4 mth$atan EXTERNAL mth$atan ! MTH$DATAN !  ! Arc Tangent in Radians ! @ ! Given the tangent of an angle, the Arc Tangent in Radians0 ! routine returns that angle (in radians).  !  REAL*8 mth$datan EXTERNAL mth$datan ! MTH$GATAN !  ! Arc Tangent in Radians ! @ ! Given the tangent of an angle, the Arc Tangent in Radians0 ! routine returns that angle (in radians). . !   REAL*8 mth$gatan EXTERNAL mth$gatan ! MTH$ATAN2 ! 0 ! Arc Tangent in Radians with Two Arguments ! 3 ! Given cosine and cosine, the Arc Tangent in ! ! Radians with Two Arguments- ! routine returns the angle (in radians)C ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine.  !  REAL*4 mth$atan2 EXTERNAL mth$atan2 ! MTH$DATAN2 ! 0 ! Arc Tangent in Radians with Two Arguments ! 3 ! Given cosine and cosine, the Arc Tangent in ! ! Radians with Two Arguments- ! routine returns the angle (in radians)C ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine.  !  REAL*8 mth$datan2 EXTERNAL mth$datan2 ! MTH$GATAN2 ! 0 ! Arc Tangent in Radians with Two Arguments ! 3 ! Given cosine and cosine, the Arc Tangent in ! ! Radians with Two Arguments- ! routine returns the angle (in radians)C ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine.  !  REAL*8 mth$gatan2 EXTERNAL mth$gatan2 ! MTH$ATAND !  ! Arc Tangent in Degrees ! @ ! Given the tangent of an angle, the Arc Tangent in Degrees0 ! routine returns that angle (in degrees).  !  REAL*4 mth$atand EXTERNAL mth$atand ! MTH$DATAND !  ! Arc Tangent in Degrees ! @ ! Given the tangent of an angle, the Arc Tangent in Degrees0 ! routine returns that angle (in degrees).  !  REAL*8 mth$datand EXTERNAL mth$datand ! MTH$GATAND !  ! Arc Tangent in Degrees ! @ ! Given the tangent of an angle, the Arc Tangent in Degrees0 ! routine returns that angle (in degrees).  !  REAL*8 mth$gatand EXTERNAL mth$gatand ! MTH$ATANH !  ! Hyperbolic Arc Tangent ! K ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns0 ! the hyperbolic arc tangent of that angle. !  REAL*4 mth$atanh EXTERNAL mth$atanh ! MTH$DATANH !  ! Hyperbolic Arc Tangent ! K ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns0 ! the hyperbolic arc tangent of that angle. !  REAL*8 mth$datanh EXTERNAL mth$datanh ! MTH$GATANH !  ! Hyperbolic Arc Tangent ! K ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns0 ! the hyperbolic arc tangent of that angle. !  REAL*8 mth$gatanh EXTERNAL mth$gatanh ! MTH$ATAND2 ! 0 ! Arc Tangent in Degrees with Two Arguments ! 3 ! Given cosine and cosine, the Arc Tangent in ! ! Degrees with Two Arguments ! routine returns + ! the angle (in degrees) whose tangent6 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. !  REAL*4 mth$atand2 EXTERNAL mth$atand2 ! MTH$DATAND2 ! 0 ! Arc Tangent in Degrees with Two Arguments ! 3 ! Given cosine and cosine, the Arc Tangent in ! ! Degrees with Two Arguments ! routine returns + ! the angle (in degrees) whose tangent6 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. !  REAL*8 mth$datand2 EXTERNAL mth$datand2 ! MTH$GATAND2 ! 0 ! Arc Tangent in Degrees with Two Arguments ! 3 ! Given cosine and cosine, the Arc Tangent in ! ! Degrees with Two Arguments ! routine returns + ! the angle (in degrees) whose tangent6 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. !  REAL*8 mth$gatand2 EXTERNAL mth$gatand2 ! MTH$CABS !  ! Complex Absolute Value ! ) ! The Complex Absolute Value routine< ! returns the absolute value of a complex number (r,i). !  REAL*4 mth$cabs EXTERNAL mth$cabs ! MTH$CDABS !  ! Complex Absolute Value ! ) ! The Complex Absolute Value routine< ! returns the absolute value of a complex number (r,i). !  REAL*8 mth$cdabs EXTERNAL mth$cdabs ! MTH$CGABS !  ! Complex Absolute Value ! ) ! The Complex Absolute Value routine< ! returns the absolute value of a complex number (r,i).. !  REAL*8 mth$cgabs EXTERNAL mth$cgabs ! MTH$CCOS ! 4 ! Cosine of a Complex Number (F-floating Value) ! 8 ! The Cosine of a Complex Number (F-floating Value)< ! routine returns the cosine of a complex number as an  ! F-floating value. !  COMPLEX mth$ccos EXTERNAL mth$ccos ! MTH$CEXP ! - ! Complex Exponential (F-floating Value) ! 1 ! The Complex Exponential (F-floating Value)3 ! routine returns the complex exponential of a- ! complex number as an F-floating value. !  COMPLEX mth$cexp EXTERNAL mth$cexp ! MTH$CLOG ! 3 ! Complex Natural Logarithm (F-floating Value) ! 7 ! The Complex Natural Logarithm (F-floating Value)L ! routine returns the complex natural logarithm of a complex number as  ! an F-floating value. !  COMPLEX mth$clog EXTERNAL mth$clog ! MTH$CMPLX ! 0 ! Complex Number Made from F-floating-Point ! 4 ! The Complex Number Made from F-floating-PointN ! routine returns a complex number from two floating-point input values.  !  COMPLEX mth$cmplx EXTERNAL mth$cmplx ! MTH$DCMPLX ! 6 ! Complex Number Made from D- or G-floating-Point ! $ ! The Complex Number Made from  ! D- or G-floating-PointP ! routine returns a complex number from two D- or G-floating input values.  !  ! Subroutine mth$dcmplx ! MTH$GCMPLX ! 6 ! Complex Number Made from D- or G-floating-Point ! $ ! The Complex Number Made from  ! D- or G-floating-PointP ! routine returns a complex number from two D- or G-floating input values.  !  ! Subroutine mth$gcmplx ! MTH$CONJG ! 7 ! Conjugate of a Complex Number (F-floating Value) ! 5 ! The Conjugate of a Complex Number (F-floating ! Value)H ! routine returns the complex conjugate (r,-i) of a complex number $ ! (r,i) as an F-floating value. !  COMPLEX mth$conjg EXTERNAL mth$conjg ! MTH$DCONJG ! $ ! Conjugate of a Complex Number ! ( ! The Conjugate of a Complex NumberO ! routine returns the complex conjugate (r,-i) of a complex number (r,i).  !  ! Subroutine mth$dconjg ! MTH$GCONJG ! $ ! Conjugate of a Complex Number ! ( ! The Conjugate of a Complex NumberO ! routine returns the complex conjugate (r,-i) of a complex number (r,i).  !  ! Subroutine mth$gconjg ! MTH$COS ! + ! Cosine of Angle Expressed in Radians ! / ! The Cosine of Angle Expressed in Radians@ ! routine returns the cosine of a given angle (in radians). !  REAL*4 mth$cos EXTERNAL mth$cos ! MTH$DCOS ! + ! Cosine of Angle Expressed in Radians ! / ! The Cosine of Angle Expressed in Radians@ ! routine returns the cosine of a given angle (in radians). !  REAL*8 mth$dcos EXTERNAL mth$dcos ! MTH$GCOS ! + ! Cosine of Angle Expressed in Radians ! / ! The Cosine of Angle Expressed in Radians@ ! routine returns the cosine of a given angle (in radians). !  REAL*8 mth$gcos EXTERNAL mth$gcos ! MTH$COSD ! + ! Cosine of Angle Expressed in Degrees ! / ! The Cosine of Angle Expressed in Degrees@ ! routine returns the cosine of a given angle (in degrees). !  REAL*4 mth$cosd EXTERNAL mth$cosd ! MTH$DCOSD ! + ! Cosine of Angle Expressed in Degrees ! / ! The Cosine of Angle Expressed in Degrees@ ! routine returns the cosine of a given angle (in degrees). !  REAL*8 mth$dcosd EXTERNAL mth$dcosd ! MTH$GCOSD ! + ! Cosine of Angle Expressed in Degrees ! / ! The Cosine of Angle Expressed in Degrees@ ! routine returns the cosine of a given angle (in degrees). !  REAL*8 mth$gcosd EXTERNAL mth$gcosd ! MTH$COSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine0 ! routine returns the hyperbolic cosine of  ! the input value. !  REAL*4 mth$cosh EXTERNAL mth$cosh ! MTH$DCOSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine0 ! routine returns the hyperbolic cosine of  ! the input value. !  REAL*8 mth$dcosh EXTERNAL mth$dcosh ! MTH$GCOSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine0 ! routine returns the hyperbolic cosine of  ! the input value. !  REAL*8 mth$gcosh EXTERNAL mth$gcosh ! MTH$CSIN ! 0 ! Sine of Complex Number (F-floating Value) ! . ! The Sine of Complex Number (F-floating ! Value)@ ! routine returns the sine of a complex number (r,i) as an  ! F-floating value. !  COMPLEX mth$csin EXTERNAL mth$csin ! MTH$CSQRT ! - ! Complex Square Root (F-floating Value) ! 9 ! The Complex Square Root (F-floating Value) routineB ! returns the complex square root of a complex number (r,i).  !  COMPLEX mth$csqrt EXTERNAL mth$csqrt ! MTH$CVT_D_G ! ) ! Convert One Double-Precision Value ! 6 ! The Convert One Double-Precision Value routines0 ! convert one double-precision value to theH ! destination data type and return the result as a function value. @ ! MTH$CVT_D_G converts a D_floating value to G_floating andF ! MTH$CVT_G_D converts a G_floating value to a D_floating value.  !  REAL*8 mth$cvt_d_g EXTERNAL mth$cvt_d_g ! MTH$CVT_G_D ! ) ! Convert One Double-Precision Value ! 6 ! The Convert One Double-Precision Value routines0 ! convert one double-precision value to theH ! destination data type and return the result as a function value. @ ! MTH$CVT_D_G converts a D_floating value to G_floating andF ! MTH$CVT_G_D converts a G_floating value to a D_floating value.  !  REAL*8 mth$cvt_g_d EXTERNAL mth$cvt_g_d ! MTH$CVT_DA_GA ! 2 ! Convert an Array of Double-Precision Values !  ! The Convert an Array of ! Double-Precision Values- ! routines convert a contiguous array ofR ! double-precision values to the destination data type and return the resultsN ! as an array. MTH$CVT_DA_GA converts D_floating values to G_floating and? ! MTH$CVT_GA_DA converts G_floating values to D_floating.  !  ! Subroutine mth$cvt_da_ga ! MTH$CVT_GA_DA ! 2 ! Convert an Array of Double-Precision Values !  ! The Convert an Array of ! Double-Precision Values- ! routines convert a contiguous array ofR ! double-precision values to the destination data type and return the resultsN ! as an array. MTH$CVT_DA_GA converts D_floating values to G_floating and? ! MTH$CVT_GA_DA converts G_floating values to D_floating.  !  ! Subroutine mth$cvt_ga_da ! MTH$CDCOS ! ! ! Cosine of a Complex Number ! % ! The Cosine of a Complex Number6 ! routine returns the cosine of a complex number. !  ! Subroutine mth$cdcos ! MTH$CGCOS ! ! ! Cosine of a Complex Number ! % ! The Cosine of a Complex Number6 ! routine returns the cosine of a complex number. !  ! Subroutine mth$cgcos ! MTH$CDEXP !  ! Complex Exponential !  ! The Complex Exponential3 ! routine returns the complex exponential of a ! complex number. !  ! Subroutine mth$cdexp ! MTH$CGEXP !  ! Complex Exponential !  ! The Complex Exponential3 ! routine returns the complex exponential of a ! complex number. !  ! Subroutine mth$cgexp ! MTH$CDLOG ! ! Complex Natural Logarithm ! $ ! The Complex Natural LogarithmJ ! routine returns the complex natural logarithm of a complex number.  !  ! Subroutine mth$cdlog ! MTH$CGLOG ! ! Complex Natural Logarithm ! $ ! The Complex Natural LogarithmJ ! routine returns the complex natural logarithm of a complex number.  !  ! Subroutine mth$cglog ! MTH$CDSIN !  ! Sine of Complex Number ! ! ! The Sine of Complex Number: ! routine returns the sine of a complex number (r,i). !  ! Subroutine mth$cdsin ! MTH$CGSIN !  ! Sine of Complex Number ! ! ! The Sine of Complex Number: ! routine returns the sine of a complex number (r,i).. !  ! Subroutine mth$cgsin ! MTH$CDSQRT !  ! Complex Square Root ! & ! The Complex Square Root routineB ! returns the complex square root of a complex number (r,i).  !  ! Subroutine mth$cdsqrt ! MTH$CGSQRT !  ! Complex Square Root ! & ! The Complex Square Root routineB ! returns the complex square root of a complex number (r,i). . !  ! Subroutine mth$cgsqrt ! MTH$EXP !  ! Exponential !  ! The Exponential; ! routine returns the exponential of the input value.  !  REAL*4 mth$exp EXTERNAL mth$exp ! MTH$DEXP !  ! Exponential !  ! The Exponential; ! routine returns the exponential of the input value. . !  REAL*8 mth$dexp EXTERNAL mth$dexp ! MTH$GEXP !  ! Exponential !  ! The Exponential; ! routine returns the exponential of the input value.  !  REAL*8 mth$gexp EXTERNAL mth$gexp ! MTH$HACOS ! B ! Arc Cosine of Angle Expressed in Radians (H-floating Value) ! I ! Given the cosine of an angle, the Arc Cosine of Angle Expressed inL ! Radians (H-floating Value) routine returns that angle (in radians) in# ! H-floating-point precision.  !  ! Subroutine mth$hacos ! MTH$HACOSD ! B ! Arc Cosine of Angle Expressed in Degrees (H-Floating Value) ! J ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in ! ! Degrees (H-Floating Value) ! routine returns that1 ! angle (in degrees) as an H-floating value. !  ! Subroutine mth$hacosd ! MTH$HASIN ! - ! Arc Sine in Radians (H-floating Value) ! M ! Given the sine of an angle, the Arc Sine in Radians (H-floating Value)! ! routine returns that angle+ ! (in radians) as an H-floating value. !  ! Subroutine mth$hasin ! MTH$HASIND ! - ! Arc Sine in Degrees (H-Floating Value) ! M ! Given the sine of an angle, the Arc Sine in Degrees (H-Floating Value)! ! routine returns that angle+ ! (in degrees) as an H-floating value. !  ! Subroutine mth$hasind ! MTH$HATAN ! 0 ! Arc Tangent in Radians (H-floating Value) ! S ! Given the tangent of an angle, the Arc Tangent in Radians (H-floating Value). ! routine returns that angle (in radians) ! as an H-floating value. !  ! Subroutine mth$hatan ! MTH$HATAN2 ! C !  Arc Tangent in Radians (H-floating Value) with Two Arguments ! 2 ! Given cosine and cosine, the Arc Tangent inH ! Radians (H-floating Value) with Two Arguments routine returns theJ ! angle (in radians) as an H-floating value whose tangent is given by) ! the quotient of cosine and cosine, ! cosine/cosine.  !  ! Subroutine mth$hatan2 ! MTH$HATAND ! 0 ! Arc Tangent in Degrees (H-floating Value) ! S ! Given the tangent of an angle, the Arc Tangent in Degrees (H-floating Value). ! routine returns that angle (in degrees)$ ! as an H-floating point value. !  ! Subroutine mth$hatand ! MTH$HATANH ! 0 ! Hyperbolic Arc Tangent (H-floating Value) ! D ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc ! ! Tangent (H-floating Value) ! routine returnsI ! the hyperbolic arc tangent (as an H-floating value) of that angle. !  ! Subroutine mth$hatanh ! MTH$HCOS ! > ! Cosine of Angle Expressed in Radians (H-floating Value) ! 0 ! The Cosine of Angle Expressed in Radians  ! (H-floating Value)F ! routine returns the cosine of a given angle (in radians) as an  ! H-floating value. !  ! Subroutine mth$hcos ! MTH$HCOSD ! > ! Cosine of Angle Expressed in Degrees (H-floating Value) ! 0 ! The Cosine of Angle Expressed in Degrees  ! (H-floating Value)F ! routine returns the cosine of a given angle (in degrees) as an  ! H-floating value. !  ! Subroutine mth$hcosd ! MTH$HCOSH ! + ! Hyperbolic Cosine (H-floating Value) !  ! The Hyperbolic Cosine0 ! routine returns the hyperbolic cosine of . ! the input value as an H-floating value. !  ! Subroutine mth$hcosh ! MTH$HEXP ! % ! Exponential (H-floating Value) !  ! The ExponentialK ! routine returns the exponential of the input value as an H-floating ! value. !  ! Subroutine mth$hexp ! MTH$HLOG10 ! * ! Common Logarithm (H-floating Value) ! . ! The Common Logarithm (H-floating Value)8 ! routine returns the common (base 10) logarithm of1 ! the input argument as an H-floating value. !  ! Subroutine mth$hlog10 ! MTH$HLOG ! + ! Natural Logarithm (H-floating Value) ! / ! The Natural Logarithm (H-floating Value)8 ! routine returns the natural (base e) logarithm of1 ! the input argument as an H-floating value. !  ! Subroutine mth$hlog ! MTH$HLOG2 ! * ! Base 2 Logarithm (H-floating Value) ! . ! The Base 2 Logarithm (H-floating Value)> ! routine returns the base 2 logarithm of the input value@ ! specified by floating-point-input-value as an H-floating ! value. !  ! Subroutine mth$hlog2 ! MTH$HSIN ! < ! Sine of Angle Expressed in Radians (H-floating Value) ! : ! The Sine of Angle Expressed in Radians (H-floating ! Value)D ! routine returns the sine of a given angle (in radians) as an  ! H-floating value. !  ! Subroutine mth$hsin ! MTH$HSIND ! < ! Sine of Angle Expressed in Degrees (H-floating Value) ! : ! The Sine of Angle Expressed in Degrees (H-floating ! Value)D ! routine returns the sine of a given angle (in degrees) as an  !  H-floating value. !  ! Subroutine mth$hsind ! MTH$HSINH ! ) ! Hyperbolic Sine (H-floating Value) ! - ! The Hyperbolic Sine (H-floating Value)7 ! routine returns the hyperbolic sine of the input; ! value specified by floating-point-input-value as an  ! H-floating value. !  ! Subroutine mth$hsinh ! MTH$HSQRT ! % ! Square Root (H-floating Value) ! ) ! The Square Root (H-floating Value)9 ! routine returns the square root of the input value9 ! floating-point-input-value as an H-floating value. !  ! Subroutine mth$hsqrt ! MTH$HTAN ! ? ! Tangent of Angle Expressed in Radians (H-floating Value) ! 1 ! The Tangent of Angle Expressed in Radians  ! (H-floating Value)G ! routine returns the tangent of a given angle (in radians) as an  ! H-floating value. !  ! Subroutine mth$htan ! MTH$HTAND ! ? ! Tangent of Angle Expressed in Degrees (H-floating Value) ! 1 ! The Tangent of Angle Expressed in Degrees  ! (H-floating Value)G ! routine returns the tangent of a given angle (in degrees) as an  ! H-floating value. !  ! Subroutine mth$htand ! MTH$HTANH ! 8 ! Compute the Hyperbolic Tangent (H-floating Value) ! 6 ! The Compute the Hyperbolic Tangent (H-floating ! Value)- ! routine returns the hyperbolic tangent1 ! of the input value as an H-floating value. !  ! Subroutine mth$htanh ! MTH$HATAND2 ! C ! Arc Tangent in Degrees (H-floating Value) with Two Arguments ! 4 ! Given cosine and cosine, MTH$xHTAND2 returns + ! the angle (in degrees) whose tangent6 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. !  ! Subroutine mth$hatand2 ! MTH$AIMAG ! ) ! Imaginary Part of a Complex Number ! - ! The Imaginary Part of a Complex Number> ! routine returns the imaginary part of a complex number. !  REAL*4 mth$aimag EXTERNAL mth$aimag ! MTH$DIMAG ! ) ! Imaginary Part of a Complex Number ! - ! The Imaginary Part of a Complex Number> ! routine returns the imaginary part of a complex number. !  REAL*8 mth$dimag EXTERNAL mth$dimag ! MTH$GIMAG ! ) ! Imaginary Part of a Complex Number ! - ! The Imaginary Part of a Complex Number> ! routine returns the imaginary part of a complex number. !  REAL*8 mth$gimag EXTERNAL mth$gimag ! MTH$ALOG !  ! Natural Logarithm !  ! The Natural Logarithm8 ! routine returns the natural (base e) logarithm of ! the input argument.  !  REAL*4 mth$alog EXTERNAL mth$alog ! MTH$DLOG !  ! Natural Logarithm !  ! The Natural Logarithm8 ! routine returns the natural (base e) logarithm of ! the input argument.  !  REAL*8 mth$dlog EXTERNAL mth$dlog ! MTH$GLOG !  ! Natural Logarithm !  ! The Natural Logarithm8 ! routine returns the natural (base e) logarithm of ! the input argument.  !  REAL*8 mth$glog EXTERNAL mth$glog ! MTH$ALOG10 !  ! Common Logarithm !  ! The Common Logarithm8 ! routine returns the common (base 10) logarithm of ! the input argument. !  REAL*4 mth$alog10 EXTERNAL mth$alog10 ! MTH$DLOG10 !  ! Common Logarithm !  ! The Common Logarithm8 ! routine returns the common (base 10) logarithm of ! the input argument. !  REAL*8 mth$dlog10 EXTERNAL mth$dlog10 ! MTH$GLOG10 !  ! Common Logarithm !  ! The Common Logarithm8 ! routine returns the common (base 10) logarithm of ! the input argument. !  REAL*8 mth$glog10 EXTERNAL mth$glog10 ! MTH$ALOG2 !  ! Base 2 Logarithm !  ! The Base 2 Logarithm> ! routine returns the base 2 logarithm of the input value/ ! specified by floating-point-input-value. !  REAL*4 mth$alog2 EXTERNAL mth$alog2 ! MTH$DLOG2 !  ! Base 2 Logarithm !  ! The Base 2 Logarithm> ! routine returns the base 2 logarithm of the input value/ ! specified by floating-point-input-value. !  REAL*8 mth$dlog2 EXTERNAL mth$dlog2 ! MTH$GLOG2 !  ! Base 2 Logarithm !  ! The Base 2 Logarithm> ! routine returns the base 2 logarithm of the input value/ ! specified by floating-point-input-value. !  REAL*8 mth$glog2 EXTERNAL mth$glog2 ! MTH$RANDOM ! 5 ! Random-Number Generator, Uniformly Distributed ! 9 ! The Random-Number Generator, Uniformly Distributed5 ! routine is a general random-number generator.  !  REAL*4 mth$random EXTERNAL mth$random ! MTH$REAL ! $ ! Real Part of a Complex Number ! ( ! The Real Part of a Complex Number9 ! routine returns the real part of a complex number. !  REAL*4 mth$real EXTERNAL mth$real ! MTH$DREAL ! $ ! Real Part of a Complex Number ! ( ! The Real Part of a Complex Number9 ! routine returns the real part of a complex number. !  REAL*8 mth$dreal EXTERNAL mth$dreal ! MTH$GREAL ! $ ! Real Part of a Complex Number ! ( ! The Real Part of a Complex Number9 ! routine returns the real part of a complex number. !  REAL*8 mth$greal EXTERNAL mth$greal ! MTH$SIN ! ) ! Sine of Angle Expressed in Radians ! - ! The Sine of Angle Expressed in Radians> ! routine returns the sine of a given angle (in radians). !  REAL*4 mth$sin EXTERNAL mth$sin !  MTH$DSIN ! ) ! Sine of Angle Expressed in Radians ! - ! The Sine of Angle Expressed in Radians> ! routine returns the sine of a given angle (in radians). !  REAL*8 mth$dsin EXTERNAL mth$dsin ! MTH$GSIN ! ) ! Sine of Angle Expressed in Radians ! - ! The Sine of Angle Expressed in Radians> ! routine returns the sine of a given angle (in radians). !  REAL*8 mth$gsin EXTERNAL mth$gsin ! MTH$SIND ! ) ! Sine of Angle Expressed in Degrees ! - ! The Sine of Angle Expressed in Degrees> ! routine returns the sine of a given angle (in degrees). !  REAL*4 mth$sind EXTERNAL mth$sind ! MTH$DSIND ! ) ! Sine of Angle Expressed in Degrees ! - ! The Sine of Angle Expressed in Degrees> ! routine returns the sine of a given angle (in degrees). !  REAL*8 mth$dsind EXTERNAL mth$dsind ! MTH$GSIND ! ) !  Sine of Angle Expressed in Degrees ! - ! The Sine of Angle Expressed in Degrees> ! routine returns the sine of a given angle (in degrees). !  REAL*8 mth$gsind EXTERNAL mth$gsind ! MTH$SINH !  ! Hyperbolic Sine !  ! The Hyperbolic Sine7 ! routine returns the hyperbolic sine of the input6 ! value specified by floating-point-input-value.  !  REAL*4 mth$sinh EXTERNAL mth$sinh ! MTH$DSINH !  !  Hyperbolic Sine !  ! The Hyperbolic Sine7 ! routine returns the hyperbolic sine of the input6 ! value specified by floating-point-input-value.  !  REAL*8 mth$dsinh EXTERNAL mth$dsinh ! MTH$GSINH !  ! Hyperbolic Sine !  ! The Hyperbolic Sine7 ! routine returns the hyperbolic sine of the input6 ! value specified by floating-point-input-value.  !  REAL*8 mth$gsinh EXTERNAL mth$gsinh ! MTH$SINCOS !  4 ! Sine and Cosine of Angle Expressed in Radians ! 8 ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine 4 ! and the cosine of a given angle (in radians). !  ! Subroutine mth$sincos ! MTH$DSINCOS ! 4 ! Sine and Cosine of Angle Expressed in Radians ! 8 ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine 4 ! and the cosine of a given angle (in radians).. !   ! Subroutine mth$dsincos ! MTH$GSINCOS ! 4 ! Sine and Cosine of Angle Expressed in Radians ! 8 ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine 4 ! and the cosine of a given angle (in radians). !  ! Subroutine mth$gsincos ! MTH$HSINCOS ! 4 ! Sine and Cosine of Angle Expressed in Radians ! 8 ! The Sine and Cosine of Angle Expressed in Radians ! routine returns the sine 4 ! and the cosine of a given angle (in radians). !  ! Subroutine mth$hsincos ! MTH$SINCOSD ! 4 ! Sine and Cosine of Angle Expressed in Degrees ! 8 ! The Sine and Cosine of Angle Expressed in DegreesJ ! routine returns the sine and cosine of a given angle (in degrees).  !  ! Subroutine mth$sincosd ! MTH$DSINCOSD ! 4 ! Sine and Cosine of Angle Expressed in Degrees ! 8 ! The Sine and Cosine of Angle Expressed in DegreesJ ! routine returns the sine and cosine of a given angle (in degrees).  !  ! Subroutine mth$dsincosd ! MTH$GSINCOSD ! 4 ! Sine and Cosine of Angle Expressed in Degrees ! 8 ! The Sine and Cosine of Angle Expressed in DegreesJ ! routine returns the sine and cosine of a given angle (in degrees). . !  ! Subroutine mth$gsincosd ! MTH$HSINCOSD ! 4 ! Sine and Cosine of Angle Expressed in Degrees ! 8 ! The Sine and Cosine of Angle Expressed in DegreesJ ! routine returns the sine and cosine of a given angle (in degrees). . !  ! Subroutine mth$hsincosd ! MTH$SQRT !  ! Square Root !  ! The Square Root9 ! routine returns the square root of the input value" ! floating-point-input-value. !  REAL*4 mth$sqrt EXTERNAL mth$sqrt ! MTH$DSQRT !  ! Square Root !  ! The Square Root9 ! routine returns the square root of the input value" ! floating-point-input-value. !  REAL*8 mth$dsqrt EXTERNAL mth$dsqrt ! MTH$GSQRT !  ! Square Root !  ! The Square Root9 ! routine returns the square root of the input value" ! floating-point-input-value. !  REAL*8 mth$gsqrt EXTERNAL mth$gsqrt ! MTH$TAN ! , ! Tangent of Angle Expressed in Radians ! 0 ! The Tangent of Angle Expressed in RadiansA ! routine returns the tangent of a given angle (in radians). !  REAL*4 mth$tan EXTERNAL mth$tan ! MTH$DTAN ! , ! Tangent of Angle Expressed in Radians ! 0 ! The Tangent of Angle Expressed in RadiansA ! routine returns the tangent of a given angle (in radians). !  REAL*8 mth$dtan EXTERNAL mth$dtan ! MTH$GTAN ! , ! Tangent of Angle Expressed in Radians ! 0 ! The Tangent of Angle Expressed in RadiansA ! routine returns the tangent of a given angle (in radians). !  REAL*8 mth$gtan EXTERNAL mth$gtan ! MTH$TAND ! , ! Tangent of Angle Expressed in Degrees ! 0 ! The Tangent of Angle Expressed in DegreesA ! routine returns the tangent of a given angle (in degrees). !  REAL*4 mth$tand EXTERNAL mth$tand ! MTH$DTAND ! , ! Tangent of Angle Expressed in Degrees ! 0 ! The Tangent of Angle Expressed in DegreesA ! routine returns the tangent of a given angle (in degrees). !  REAL*8 mth$dtand EXTERNAL mth$dtand ! MTH$GTAND ! , ! Tangent of Angle Expressed in Degrees ! 0 ! The Tangent of Angle Expressed in DegreesA ! routine returns the tangent of a given angle (in degrees). !  REAL*8 mth$gtand EXTERNAL mth$gtand ! MTH$TANH ! % ! Compute the Hyperbolic Tangent ! ) ! The Compute the Hyperbolic Tangent- ! routine returns the hyperbolic tangent ! of the input value. !  REAL*4 mth$tanh EXTERNAL mth$tanh ! MTH$DTANH ! % ! Compute the Hyperbolic Tangent ! ) ! The Compute the Hyperbolic Tangent- ! routine returns the hyperbolic tangent ! of the input value. !  REAL*8 mth$dtanh EXTERNAL mth$dtanh ! MTH$GTANH ! % ! Compute the Hyperbolic Tangent ! ) ! The Compute the Hyperbolic Tangent- ! routine returns the hyperbolic tangent ! of the input value. !  REAL*8 mth$gtanh EXTERNAL mth$gtanh ! MTH$UMAX !  ! Compute Unsigned Maximum ! # ! The Compute Unsigned MaximumL ! routine computes the unsigned longword maximum of n unsigned longword9 ! arguments, where n is greater than or equal to 1.  !  INTEGER*4 mth$umax EXTERNAL mth$umax ! MTH$UMIN !   ! Compute Unsigned Minimum ! # ! The Compute Unsigned MinimumM ! routine computes the unsigned longword minimum of n unsigned longword - ! arguments, where n is greater than or  ! equal to 1. !  INTEGER*4 mth$umin EXTERNAL mth$umin ! MTH$ABS ! ( ! F_floating Absolute Value Routine !  REAL*4 mth$abs EXTERNAL mth$abs ! MTH$DABS ! ( ! D_floating Absolute Value Routine !  REAL*8 mth$dabs EXTERNAL mth$dabs ! MTH$GABS ! ( ! G_floating Absolute Value Routine !  REAL*8 mth$gabs EXTERNAL mth$gabs ! MTH$HABS ! ( ! H_floating Absolute Value Routine !  ! Subroutine mth$habs ! MTH$IIABS ! " ! Word Absolute Value Routine !  INTEGER*2 mth$iiabs EXTERNAL mth$iiabs ! MTH$JIABS ! & ! Longword Absolute Value Routine !  INTEGER*4 mth$jiabs EXTERNAL mth$jiabs ! MTH$IIAND ! 1 ! Bitwise AND of Two Word Parameters Routine !  INTEGER*2 mth$iiand EXTERNAL mth$iiand ! MTH$JIAND ! 5 ! Bitwise AND of Two Longword Parameters Routine !  INTEGER*4 mth$jiand EXTERNAL mth$jiand ! MTH$DBLE ! 7 ! Convert F_floating to D_floating (Exact) Routine !  REAL*8 mth$dble EXTERNAL mth$dble ! MTH$GDBLE ! 7 ! Convert F_floating to G_floating (Exact) Routine !  REAL*8 mth$gdble EXTERNAL mth$gdble ! MTH$DIM ! ? ! Positive Difference of Two F_floating Parameters Routine !  REAL*4 mth$dim EXTERNAL mth$dim ! MTH$DDIM ! ? ! Positive Difference of Two D_floating Parameters Routine !  REAL*8 mth$ddim EXTERNAL mth$ddim ! MTH$GDIM ! ? ! Positive Difference of Two D_floating Parameters Routine !  REAL*8 mth$gdim EXTERNAL mth$gdim ! MTH$HDIM ! ? ! Positive  Difference of Two D_floating Parameters Routine !  ! Subroutine mth$hdim ! MTH$IIDIM ! 9 ! Positive Difference of Two Word Parameters Routine+ !  INTEGER*2 mth$iidim EXTERNAL mth$iidim ! MTH$JIDIM ! = ! Positive Difference of Two Longword Parameters Routine !  INTEGER*4 mth$jidim EXTERNAL mth$jidim ! MTH$IIEOR ! : ! Bitwise Exclusive OR of Two Word Parameters Routine !   INTEGER*2 mth$iieor EXTERNAL mth$iieor ! MTH$JIEOR ! > ! Bitwise Exclusive OR of Two Longword Parameters Routine !  INTEGER*4 mth$jieor EXTERNAL mth$jieor ! MTH$IIFIX ! 5 ! Convert F_floating to Word (Truncated) Routine !  INTEGER*2 mth$iifix EXTERNAL mth$iifix ! MTH$JIFIX ! 9 ! Convert F_floating to Longword (Truncated) Routine !  INTEGER*4 mth$jifix EXTERNAL mth$jifix ! MTH$FLOATI ! 1 !   Convert Word to F_floating (Exact) Routine !  REAL*4 mth$floati EXTERNAL mth$floati ! MTH$DFLOTI ! 1 ! Convert Word to D_floating (Exact) Routine !  REAL*8 mth$dfloti EXTERNAL mth$dfloti ! MTH$GFLOTI ! 1 ! Convert Word to G_floating (Exact) Routine !  REAL*8 mth$gfloti EXTERNAL mth$gfloti ! MTH$FLOATJ ! 5 ! Convert Longword to F_floating (Exact) Routine !  REAL*4 mth$floatj EXTERNA L mth$floatj ! MTH$DFLOTJ ! 5 ! Convert Longword to D_floating (Exact) Routine !  REAL*8 mth$dflotj EXTERNAL mth$dflotj ! MTH$GFLOTJ ! 5 ! Convert Longword to G_floating (Exact) Routine !  REAL*8 mth$gflotj EXTERNAL mth$gflotj ! MTH$FLOOR ! @ ! Convert F_floating to Greatest F_floating Integer Routine !  REAL*4 mth$floor EXTERNAL mth$floor ! MTH$DFLOOR ! @ ! Convert D_floating to G reatest D_floating Integer Routine !  REAL*8 mth$dfloor EXTERNAL mth$dfloor ! MTH$GFLOOR ! @ ! Convert G_floating to Greatest G_floating Integer Routine !  REAL*8 mth$gfloor EXTERNAL mth$gfloor ! MTH$HFLOOR ! @ ! Convert H_floating to Greatest H_floating Integer Routine !  ! Subroutine mth$hfloor ! MTH$AINT ! 9 ! Convert F_floating to Truncated F_floating Routine !  REAL*4 mth$aint EXTERNAL mth$aint ! MTH$DINT  ! 9 ! Convert D_floating to Truncated D_floating Routine !  REAL*8 mth$dint EXTERNAL mth$dint ! MTH$IIDINT ! 5 ! Convert D_floating to Word (Truncated) Routine !  INTEGER*2 mth$iidint EXTERNAL mth$iidint ! MTH$JIDINT ! 9 ! Convert D_floating to Longword (Truncated) Routine !  INTEGER*4 mth$jidint EXTERNAL mth$jidint ! MTH$GINT ! ; ! Convert G_floating to G_floating (Truncated) Routine !  REAL*8 mth$gint EXTERNAL mth$gint ! MTH$IIGINT ! 5 ! Convert G_floating to Word (Truncated) Routine !  INTEGER*2 mth$iigint EXTERNAL mth$iigint ! MTH$JIGINT ! 9 ! Convert G_floating to Longword (Truncated) Routine !  INTEGER*4 mth$jigint EXTERNAL mth$jigint ! MTH$HINT ! ; ! Convert H_floating to H_floating (Truncated) Routine !  ! Subroutine mth$hint !  MTH$IIHINT ! 3 ! Convert H_floating to Truncated Word Routine !  INTEGER*2 mth$iihint EXTERNAL mth$iihint ! MTH$JIHINT ! 7 ! Convert H_floating to Truncated Longword Routine !  INTEGER*4 mth$jihint EXTERNAL mth$jihint ! MTH$IINT ! 5 ! Convert F_floating to Word (Truncated) Routine !  INTEGER*2 mth$iint EXTERNAL mth$iint ! MTH$JINT ! 9 ! Convert F_floating to Longword (Truncated) Routine !  INTEGER*4 mth$jint EXTERNAL mth$jint ! MTH$IIOR ! : ! Bitwise Inclusive OR of Two Word Parameters Routine !  INTEGER*2 mth$iior EXTERNAL mth$iior ! MTH$JIOR ! > ! Bitwise Inclusive OR of Two Longword Parameters Routine !  INTEGER*4 mth$jior EXTERNAL mth$jior ! MTH$AIMAX0 ! 5 ! F_floating Maximum of N WordParameters Routine !  REAL*4 mth$aimax0 EXTERNAL mth$aimax0 ! MTH$AJMAX0 ! : ! F_floating Maximum of N Longword Parameters Routine !  REAL*4 mth$ajmax0 EXTERNAL mth$ajmax0 ! MTH$IMAX0 ! 0 ! Word Maximum of N Word Parameters Routine !  INTEGER*2 mth$imax0 EXTERNAL mth$imax0 ! MTH$JMAX0 ! 8 ! Longword Maximum of N Longword Parameters Routine !  INTEGER*4 mth$jmax0 EXTERNAL mth$jmax0 ! MTH$AMAX1 ! < ! F_floating Maximum of N F_floating Parameters Routine !  REAL*4 mth$amax1 EXTERNAL mth$amax1 ! MTH$DMAX1 ! < ! D_floating Maximum of N D_floating Parameters Routine !  REAL*8 mth$dmax1 EXTERNAL mth$dmax1 ! MTH$GMAX1 ! < ! G_floating Maximum of N G_floating Parameters Routine !  REAL*8 mth$gmax1 EXTERNAL mth$gmax1 ! MTH$HMAX1 ! < ! H_floating Maximum of N H_floating Parameters Routine !  ! Subroutine mth$hmax1 ! MTH$IMAX1 ! 6 ! Word Maximum of N F_floating Parameters Routine !  INTEGER*2 mth$imax1 EXTERNAL mth$imax1 ! MTH$JMAX1 ! : ! Longword Maximum of N F_floating Parameters Routine !  INTEGER*4 mth$jmax1 EXTERNAL mth$jmax1 ! MTH$AIMIN0 ! 6 ! F_floating Minimum of N Word Parameters Routine !  REAL*4 mth$aimin0 EXTERNAL mth$aimin0 ! MTH$AJMIN0 ! : ! F_floating Minimum of N Longword Parameters Routine !  REAL*4 mth$ajmin0 EXTERNAL mth$ajmin0 !  MTH$IMIN0 ! 0 ! Word Minimum of N Word Parameters Routine !  INTEGER*2 mth$imin0 EXTERNAL mth$imin0 ! MTH$JMIN0 ! 8 ! Longword Minimum of N Longword Parameters Routine !  INTEGER*4 mth$jmin0 EXTERNAL mth$jmin0 ! MTH$AMIN1 ! < ! F_floating Minimum of N F_floating Parameters Routine !  REAL*4 mth$amin1 EXTERNAL mth$amin1 ! MTH$DMIN1 ! < ! D_floating Minimum of N D_floating Parameters Routine !   REAL*8 mth$dmin1 EXTERNAL mth$dmin1 ! MTH$GMIN1 ! < ! G_floating Minimum of N G_floating Parameters Routine !  REAL*8 mth$gmin1 EXTERNAL mth$gmin1 ! MTH$HMIN1 ! < ! H_floating Minimum of N H_floating Parameters Routine !  ! Subroutine mth$hmin1 ! MTH$IMIN1 ! 6 ! Word Minimum of N F_floating Parameters Routine !  INTEGER*2 mth$imin1 EXTERNAL mth$imin1 ! MTH$JMIN1 ! : ! Longword Minimum of N F_floating Parameters Routine !  INTEGER*4 mth$jmin1 EXTERNAL mth$jmin1 ! MTH$AMOD ! 5 ! Remainder of Two F_floating Parameters Routine !  REAL*4 mth$amod EXTERNAL mth$amod ! MTH$DMOD ! 5 ! Remainder of Two D_floating Parameters Routine !  REAL*8 mth$dmod EXTERNAL mth$dmod ! MTH$GMOD ! 5 ! Remainder of Two G_floating Parameters Routine !  REAL*8 mth$gmod EXTERNAL mth$gmod ! MTH$HMOD ! 5 ! Remainder of Two H_floating Parameters Routine !  ! Subroutine mth$hmod ! MTH$IMOD ! / ! Remainder of Two Word Parameters Routine !  INTEGER*2 mth$imod EXTERNAL mth$imod ! MTH$JMOD ! 3 ! Remainder of Two Longword Parameters Routine !  INTEGER*4 mth$jmod EXTERNAL mth$jmod ! MTH$ANINT ! ? ! Convert F_floating to Nearest F_floating Integer Routine !  REAL*4 mth$anint EXTERNAL mth$anint ! MTH$DNINT ! ? ! Convert D_floating to Nearest D_floating Integer Routine !  REAL*8 mth$dnint EXTERNAL mth$dnint ! MTH$IIDNNT ! 1 ! Convert D_floating to Word Integer Routine !  INTEGER*2 mth$iidnnt EXTERNAL mth$iidnnt ! MTH$JIDNNT ! = ! Convert D_floating to Nearest Longword Integer Routine !  INTEGER*4 mth$jidnnt EXTERNAL mth$jidnnt ! MTH$GNINT ! ? ! Convert G_floating to Nearest G_floating Integer Routine !  REAL*8 mth$gnint EXTERNAL mth$gnint ! MTH$IIGNNT ! ? ! Convert T_floating to Nearest G_floating Integer Routine !  INTEGER*2 mth$iignnt EXTERNAL mth$iignnt ! MTH$JIGNNT ! = ! Convert G_floating to Nearest Longword Integer Routine !  INTEGER*4 mth$jignnt EXTERNAL mth$jignnt ! MTH$HNINT ! ? ! Convert H_floating to Nearest H_floating Integer Routine !  ! Subroutine mth$hnint ! MTH$IIHNNT ! 9 ! Convert H_floating to Nearest Word Integer Routine !  INTEGER*2 mth$iihnnt EXTERNAL mth$iihnnt ! MTH$JIHNNT ! = ! Convert H_floating to Nearest Longword Integer Routine !  INTEGER*4 mth$jihnnt EXTERNAL mth$jihnnt ! MTH$ININT ! 9 ! Convert F_floating to Nearest Word Integer Routine !  INTEGER*2 mth$inint EXTERNAL mth$inint ! MTH$JNINT ! = ! Convert F_floating to Nearest Longword Integer Routine !  INTEGER*4 mth$jnint EXTERNAL mth$jnint ! MTH$INOT ! 3 ! Bitwise Complement of Word Parameter Routine !  INTEGER*2 mth$inot EXTERNAL mth$inot ! MTH$JNOT ! 7 ! Bitwise Complement of Longword Parameter Routine !  INTEGER*4 mth$jnot EXTERNAL mth$jnot ! MTH$DPROD ! > ! D_floating Product of Two F_floating Parameters Routine !  REAL*8 mth$dprod EXTERNAL mth$dprod ! MTH$GPROD ! > ! G_floating Product of Two F_floating Parameters Routine !  REAL*8 mth$gprod EXTERNAL mth$gprod ! MTH$SGN !  ! F_floating Sign Function !  INTEGER*4 mth$sgn EXTERNAL mth$sgn ! MTH$IISHFT ! $ ! Bitwise Shift of Word Routine !  INTEGER*2 mth$iishft EXTERNAL mth$iishft ! MTH$JISHFT ! ( ! Bitwise Shift of Longword Routine !  INTEGER*4 mth$jishft EXTERNAL mth$jishft ! MTH$SIGN ! < ! F_floating Transfer of Sign of Y to Sign of X Routine !  REAL*4 mth$sign EXTERNAL mth$sign ! MTH$DSIGN ! < ! D_floating Transfer of Sign of Y to Sign of X Routine !  REAL*8 mth$dsign EXTERNAL mth$dsign ! MTH$GSIGN ! < ! G_floating Transfer of Sign of X to Sign of X Routine !  REAL*8 mth$gsign EXTERNAL mth$gsign ! MTH$HSIGN ! < ! H_floating Transfer of Sign of Y to Sign of X Routine !  ! Subroutine mth$hsign ! MTH$IISIGN ! 6 ! Word Transfer of Sign of Y to Sign of X Routine !  INTEGER*2 mth$iisign EXTERNAL mth$iisign ! MTH$JISIGN ! : ! Longword Transfer of Sign of Y to Sign of X Routine !  INTEGER*4 mth$jisign EXTERNAL mth$jisign ! MTH$SNGL ! 9 ! Convert D_floating to F_floating (Rounded) Routine !  REAL*4 mth$sngl EXTERNAL mth$sngl ! MTH$SNGLG !  9 ! Convert G_floating to F_floating (Rounded) Routine !  REAL*4 mth$snglg EXTERNAL mth$snglg!DEC$ END OPTIONSwwbΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:48 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:48 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]NCS$ROUTINES.SDI;1 ! ************************************************ !******************************************************************************** !*** MODULE ncs$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! *************************************************************************** ! *2 ! COPYRIGHT (c) 1988 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND "MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD #NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *N ! *************************************************************************** ! NCS$COMPARE !  ! Compare Strings ! L ! Compares two strings using specified collating sequ$ence as comparison ! basis. !  INTEGER*4 ncs$compare EXTERNAL ncs$compare ! NCS$CONVERT !  ! Convert String ! @ ! Convert a string using the specified conversion function. !  INTEGER*4 ncs$convert EXTERNAL ncs$convert ! NCS$END_CF !  ! End Conversion Function ! J ! Terminates the use of a conversion function by the calling program. !  INTEGER*4 ncs$end_cf EXTERNAL ncs$end_cf ! NCS$END_CS% !  ! End Collating Sequence ! I ! Terminates the use of a collating sequence by the calling program. !  INTEGER*4 ncs$end_cs EXTERNAL ncs$end_cs ! NCS$GET_CF !  ! Get Conversion Function ! M ! Retrieves the definition of the named conversion function from the NCS ! library. !  INTEGER*4 ncs$get_cf EXTERNAL ncs$get_cf ! NCS$GET_CS !  ! Get Collating Sequence ! L ! Retrieves the def&inition of the named collating sequence from the NCS ! library. !  INTEGER*4 ncs$get_cs EXTERNAL ncs$get_cs ! NCS$RESTORE_CF ! " ! Restore Conversion Function ! I ! Permits the calling program to restore the definition of a "saved"; ! conversion function from a data base or an RMS file. !  INTEGER*4 ncs$restore_cf EXTERNAL ncs$restore_cf ! NCS$RESTORE_CS ! ! ! Restore Collating Sequence ! S ! Permits t'he calling program to restore the definition of a "saved" collating0 ! sequence from a data base or an RMS file. !  INTEGER*4 ncs$restore_cs EXTERNAL ncs$restore_cs ! NCS$SAVE_CF !  ! Save Conversion Function ! Q ! Provides the calling program with information that permits the applicationR ! to store the definition of a conversion function in a local data base or an, ! RMS file rather than the NCS$LIBRARY. !  INTEGER*4 ncs$save_cf( EXTERNAL ncs$save_cf ! NCS$SAVE_CS !  ! Save Collating Sequence ! Q ! Provides the calling program with information that permits the applicationQ ! to store the definition of a collating sequence in a local data base or an, ! RMS file rather than the NCS$LIBRARY. !  INTEGER*4 ncs$save_cs EXTERNAL ncs$save_cs!DEC$ END OPTIONSwwCaΦ! ******************************************************************************************** )************************************;! Created: 30-AUG-2007 11:29:55 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:54 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]OTS$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE ots$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! *************************************************************************** ! * *2 ! COPYRIGHT (c) 1988 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO A +NY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ,* ! * ! *N ! *************************************************************************** ! G ! 20-Mar-2007 JML QXCM1000393572 Headers returning complex results@ ! can't be compiled by BASIC. ! E ! Well clearly the routines returning complex resultsL ! by value (requiring 2 registers) need header generation toE ! be limited to only those languages KNOWN to be able8 ! - to support it and likely to call them. !  ! F ! 14-Dec-2006 JML QXCM1000384200 Headers returning complex results? ! can't be compiled by C/C++ ! N ! Now I understand why a number of headers have been commentedK ! out. When I added all the new IEEE forms, even for thoseM ! VAX forms commented out, I didn't realize that C/C++ cannotN ! return more than 64bits by val .ue. Five of the existing IEEEL ! routines return complex results by value and those requireI ! 2 registers. This resulted in a .h file for C/C++ thatF ! would not compile. The fix is to use iflanguage andN ! prevent those headers from being generated for C/C++. TheseH ! routines most likely will be called by Fortran anyway. ! K ! 23-Feb-2006 JML PTR 75-109-96 Add missing headers for IEEE forms of7 ! / various routines. ! N ! As of 23-Feb-2006 SDL has no types to describe IEEE floatingL ! data. Since the actual type is only material with respectM ! to size of the argument (single vs double precision) we useK ! F-Floating to represent IEEE S-Floating and D-Floating to, ! represent IEEE T-Floating. ! I ! In the course of fixing this PTR it was discovered thatJ ! 0 number of header definitions have been commented out forJ ! years. Attempts to determine why they are commented outM ! proved futile. Rather than risk enabling them and possiblyM ! introducing a collision between the system supplied headersM ! and private headers users may have developed to work aroundE ! the lack of them, they shall remain commented out.I ! However, their new IEEE forms wi1ll be enabled as these = ! routines only came into existence recently.< ! (see DPML$SHR.OPT checkin of 24-Mar-2004). !  ! OTS$CVT_T_D ! 5 ! Convert Numeric Text to D- or F-Floating Value ! < ! The Convert Numeric Text to D- or F-Floating routines7 ! convert an ASCII text string representation of a9 ! numeric value to a D_floating or F_floating value. !  INTEGER*4 ots$cvt_t_d EXTERNAL ots$cvt_t_d ! OTS$C2VT_T_F ! 5 ! Convert Numeric Text to D- or F-Floating Value ! < ! The Convert Numeric Text to D- or F-Floating routines7 ! convert an ASCII text string representation of a9 ! numeric value to a D_floating or F_floating value. !  INTEGER*4 ots$cvt_t_f EXTERNAL ots$cvt_t_f ! OTS$CVT_T_T ! 5 ! Convert Numeric Text to T- or S-Floating Value ! < ! The Convert Numeric Text to T- or S-Floating routines7 ! convert an ASCII te3xt string representation of a9 ! numeric value to a T_floating or S_floating value. !  INTEGER*4 ots$cvt_t_t EXTERNAL ots$cvt_t_t ! OTS$CVT_T_S ! 5 ! Convert Numeric Text to T- or S-Floating Value ! < ! The Convert Numeric Text to T- or S-Floating routines7 ! convert an ASCII text string representation of a9 ! numeric value to a T_floating or S_floating value. !  INTEGER*4 ots$cvt_t_s EXTERNAL ots$cvt_t_s ! OTS$CVT_T_G !4 5 ! Convert Numeric Text to G- or H-Floating Value ! < ! The Convert Numeric Text to G- or H-Floating routines7 ! convert an ASCII text string representation of a9 ! numeric value to a G_floating or H_floating value. !  INTEGER*4 ots$cvt_t_g EXTERNAL ots$cvt_t_g ! OTS$CVT_T_H ! 5 ! Convert Numeric Text to G- or H-Floating Value ! < ! The Convert Numeric Text to G- or H-Floating routines7 ! convert an ASCII text string 5representation of a9 ! numeric value to a G_floating or H_floating value. !  INTEGER*4 ots$cvt_t_h EXTERNAL ots$cvt_t_h ! OTS$DIVC !  ! Complex Division ! $ ! The Complex Division routines7 ! return a complex result of a division on complex ! numbers. ! - ! ENTRY ots$divc ALIAS $ots_divc PARAMETER (3 ! F_FLOATING COMPLEX NAMED complex_dividend IN- ! TYPENAME f_floating_complex VALUE,2 ! F_FLOATING COMPLEX NA6MED complex_divisor IN. ! TYPENAME f_floating_complex VALUE )I ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$DIVCD_R3 !  ! Complex Division ! $ ! The Complex Division routines7 ! return a complex result of a division on complex ! numbers. ! 5 ! ENTRY ots$divcd_r3 ALIAS $ots_divcd_r3 PARAMETER (3 ! D_FLOATING COMPLEX NAMED complex_dividend IN- ! TYPENAME d_floating_complex VALUE,2 ! D7_FLOATING COMPLEX NAMED complex_divisor IN. ! TYPENAME d_floating_complex VALUE )I ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$DIVCG_R3 !  ! Complex Division ! $ ! The Complex Division routines7 ! return a complex result of a division on complex ! numbers. ! 5 ! ENTRY ots$divcg_r3 ALIAS $ots_divcg_r3 PARAMETER (3 ! G_FLOATING COMPLEX NAMED complex_dividend IN- ! TYPENAME g_floating_compl8ex VALUE,2 ! G_FLOATING COMPLEX NAMED complex_divisor IN- ! TYPENAME g_floatin_complex VALUE )I ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$DIVCS !  ! Complex Division ! $ ! The Complex Division routines7 ! return a complex result of a division on complex ! numbers. !  COMPLEX ots$divcs EXTERNAL ots$divcs ! OTS$DIVCT_R3 !  ! Complex Division ! $ ! The Complex9 Division routines7 ! return a complex result of a division on complex ! numbers. !  COMPLEX*16 ots$divct_r3 EXTERNAL ots$divct_r3 ! OTS$DIV_PK_LONG ! 0 ! Packed Decimal Division with Long Divisor ! < ! The Packed Decimal Division with Long Divisor routineB ! divides fixed-point decimal data, which is stored in packedQ ! decimal form, when precision and scale requirements for the quotient call L ! for multiple precision division. Th:e divisor must have a precision of# ! thirty or thirty-one digits. !  INTEGER*4 ots$div_pk_long EXTERNAL ots$div_pk_long ! OTS$DIV_PK_SHORT ! 1 ! Packed Decimal Division with Short Divisor ! = ! The Packed Decimal Division with Short Divisor routine' ! divides fixed-point decimal dataF ! when precision and scale requirements for the quotient call for$ ! multiple-precision division.  !  INTEGER*4 ots$div_pk_short EXTERNAL ot;s$div_pk_short ! OTS$MOVE3 !  ! Move Data Without Fill ! ) ! The Move Data Without Fill routine< ! moves up to 231-1 bytes, (2,147,483,647 bytes) from aD ! specified source address to a specified destination address.  !  ! Subroutine ots$move3 ! OTS$MOVE5 !  ! Move Data with Fill ! & ! The Move Data with Fill routine< ! moves up to 231-1 bytes, (2,147,483,647 bytes) from aC ! specified source address to a spe<cified destination address,5 ! with separate source and destination lengths, C ! and with fill. Overlap of the source and destination arrays" ! does not affect the result.. !  ! Subroutine ots$move5 ! OTS$MULC !  ! Complex Multiplication ! * ! The Complex Multiplication routines3 ! calculate the complex product of two complex ! values. ! - ! ENTRY ots$mulc ALIAS $ots_mulc PARAMETER (=5 ! F_FLOATING COMPLEX NAMED complex_multiplier IN- ! TYPENAME f_floating_complex VALUE,7 ! F_FLOATING COMPLEX NAMED complex_multiplicand IN. ! TYPENAME f_floating_complex VALUE )I ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$MULCD_R3 !  ! Complex Multiplication ! * ! The Complex Multiplication routines3 ! calculate the complex product of two complex ! values. ! 5 ! ENTRY ots$mulcd_r >3 ALIAS $ots_mulcd_r3 PARAMETER (5 ! D_FLOATING COMPLEX NAMED complex_multiplier IN- ! TYPENAME d_floating_complex VALUE,7 ! D_FLOATING COMPLEX NAMED complex_multiplicand IN. ! TYPENAME d_floating_complex VALUE )I ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$MULCG_R3 !  ! Complex Multiplication ! * ! The Complex Multiplication routines3 ! calculate the complex product of two complex ! value?s. ! 5 ! ENTRY ots$mulcg_r3 ALIAS $ots_mulcg_r3 PARAMETER (5 ! G_FLOATING COMPLEX NAMED complex_multiplier IN- ! TYPENAME g_floating_complex VALUE,7 ! G_FLOATING COMPLEX NAMED complex_multiplicand IN. ! TYPENAME g_floating_complex VALUE )I ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$MULCS !  ! Complex Multiplication ! * ! The Complex Multiplication routines3 ! calculate the complex product@ of two complex ! values. !  COMPLEX ots$mulcs EXTERNAL ots$mulcs ! OTS$MULCT_R3 !  ! Complex Multiplication ! * ! The Complex Multiplication routines3 ! calculate the complex product of two complex ! values. !  COMPLEX*16 ots$mulct_r3 EXTERNAL ots$mulct_r3 ! OTS$CNVOUT ! N ! Convert D_floating, G_floating or H_floating Number to Character String ! @ ! The Convert Floating to Character String roAutines convert5 ! a D_floating, G_floating or H_floating number ! to a character string in  ! the FORTRAN E format. !  INTEGER*4 ots$cnvout EXTERNAL ots$cnvout ! OTS$CNVOUT_G ! N ! Convert D_floating, G_floating or H_floating Number to Character String ! @ ! The Convert Floating to Character String routines convert5 ! a D_floating, G_floating or H_floating number ! to a character string in  ! the FORTRAN E format. ! B  INTEGER*4 ots$cnvout_g EXTERNAL ots$cnvout_g ! OTS$CNVOUT_H ! N ! Convert D_floating, G_floating or H_floating Number to Character String ! @ ! The Convert Floating to Character String routines convert5 ! a D_floating, G_floating or H_floating number ! to a character string in  ! the FORTRAN E format. !  INTEGER*4 ots$cnvout_h EXTERNAL ots$cnvout_h ! OTS$CNVOUT_S ! 1 ! Convert IEEE S_floatingto Character StringC ! @ ! The Convert Floating to Character String routines convert9 ! a IEEE S_floating number to a character string in  ! the FORTRAN E format. !  INTEGER*4 ots$cnvout_s EXTERNAL ots$cnvout_s ! OTS$CNVOUT_T ! 9 ! Convert IEEE T_floating Number to Character String ! @ ! The Convert Floating to Character String routines convert9 ! a IEEE T_floating number to a character string in  ! the FORTRAN E format. !  INTEGER*4 ots$cDnvout_t EXTERNAL ots$cnvout_t ! OTS$POWCC ! @ ! Raise a Complex Base to a Complex Floating-Point Exponent ! M ! The Raise a Complex Base to a Complex Floating-Point Exponent routines: ! return the complex floating-point result of raising, ! a complex base to a complex exponent. ! / ! ENTRY ots$powcc ALIAS $ots_powcc PARAMETER (/ ! F_FLOATING COMPLEX NAMED complex_base IN- ! TYPENAME f_floating_complex VALUE,= ! F_FLOATING COMPLE EX NAMED complex_exponent_value IN . ! TYPENAME f_floating_complex VALUE )I ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$POWCDCD_R3 ! @ ! Raise a Complex Base to a Complex Floating-Point Exponent ! L ! The Raise a Complex Base to a Complex Floating-Point Exponent routine, ! returns the complex result of raising, ! a complex base to a complex exponent. ! 9 ! ENTRY ots$powcdcd_r3 ALIAS $ots_powcdcd_r3 PARAME FTER (/ ! D_FLOATING COMPLEX NAMED complex_base IN- ! TYPENAME d_floating_complex VALUE,9 ! D_FLOATING COMPLEX NAMED complex_exponent_value IN. ! TYPENAME d_floating_complex VALUE )I ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$POWCGCG_R3 ! @ ! Raise a Complex Base to a Complex Floating-Point Exponent ! L ! The Raise a Complex Base to a Complex Floating-Point Exponent routine, ! returns the complex r Gesult of raising, ! a complex base to a complex exponent. ! 9 ! ENTRY ots$powcgcg_r3 ALIAS $ots_powcgcg_r3 PARAMETER (/ ! G_FLOATING COMPLEX NAMED complex_base IN- ! TYPENAME g_floating_complex VALUE,9 ! G_FLOATING COMPLEX NAMED complex_exponent_value IN. ! TYPENAME g_floating_complex VALUE )I ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$POWCSCS ! @ ! Raise a Complex Base to a Complex Floating-Point ExpoHnent ! L ! The Raise a Complex Base to a Complex Floating-Point Exponent routine, ! returns the complex result of raising, ! a complex base to a complex exponent. !  COMPLEX ots$powcscs EXTERNAL ots$powcscs ! OTS$POWCTCT_R3 ! @ ! Raise a Complex Base to a Complex Floating-Point Exponent ! L ! The Raise a Complex Base to a Complex Floating-Point Exponent routine, ! returns the complex result of raising, ! a complex base to a cIomplex exponent. !  COMPLEX*16 ots$powctct_r3 EXTERNAL ots$powctct_r3 ! OTS$POWCJ ! A ! Raise a Complex Base to a Signed Longword Integer Exponent ! F ! The Raise a Complex Base to a Signed Longword Integer Exponent J ! routine returns the complex result of raising a complex base to an ! integer exponent. ! / ! ENTRY ots$powcj ALIAS $ots_powcj PARAMETER (/ ! F_FLOATING COMPLEX NAMED complex_base IN- ! TYPENAME f_floating_com Jplex VALUE,2 ! LONGWORD NAMED longword_integer_exponent IN+ ! TYPENAME longword_signed VALUE )I ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$POWCDJ_R3 ! A ! Raise a Complex Base to a Signed Longword Integer Exponent ! F ! The Raise a Complex Base to a Signed Longword Integer Exponent I ! routine returns the complex result of raising a complex base to an ! integer exponent. ! 7 ! ENTRY ots$powcdj_r3 A KLIAS $ots_powcdj_r3 PARAMETER (/ ! D_FLOATING COMPLEX NAMED complex_base IN- ! TYPENAME D_floating_complex VALUE,2 ! LONGWORD NAMED longword_integer_exponent IN+ ! TYPENAME longword_signed VALUE )I ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$POWCGJ_R3 ! A ! Raise a Complex Base to a Signed Longword Integer Exponent ! F ! The Raise a Complex Base to a Signed Longword Integer Exponent I ! routine ret Lurns the complex result of raising a complex base to an ! integer exponent. ! 7 ! ENTRY ots$powcgj_r3 ALIAS $ots_powcgj_r3 PARAMETER (/ ! G_FLOATING COMPLEX NAMED complex_base IN- ! TYPENAME g_floating_complex VALUE,2 ! LONGWORD NAMED longword_integer_exponent IN+ ! TYPENAME longword_signed VALUE )I ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$POWCSJ ! A ! Raise a Complex Base to a Signed Longword IntMeger Exponent ! F ! The Raise a Complex Base to a Signed Longword Integer Exponent J ! routine returns the complex result of raising a complex base to an ! integer exponent. !  COMPLEX ots$powcsj EXTERNAL ots$powcsj ! OTS$POWCTJ_R3 ! A ! Raise a Complex Base to a Signed Longword Integer Exponent ! F ! The Raise a Complex Base to a Signed Longword Integer Exponent I ! routines return the complex result of raising a complex base Nto an ! integer exponent. !  COMPLEX*16 ots$powctj_r3 EXTERNAL ots$powctj_r3 ! OTS$POWDD ! 5 ! Raise a D_floating Base to D_floating Exponent ! C ! The Raise a D_floating Base to a D_floating Exponent routineQ ! returns the D_floating result of raising a D_floating base to a D_floating ! exponent.  ! / ! ENTRY ots$powdd ALIAS $ots_powdd PARAMETER (0 ! D_FLOATING NAMED D_floating_point_base IN% ! TYPENAME d_floating O VALUE,4 ! D_FLOATING NAMED D_floating_point_exponent IN& ! TYPENAME d_floating VALUE )9 ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWDJ ! 5 ! Raise a D_floating Base to a Longword Exponent ! A ! The Raise a D_floating Base to a Longword Exponent routineZ ! returns the D_floating result of raising a D_floating base to a longword exponent.  ! / ! ENTRY ots$powdj ALIAS $ots_powdj PARAMETER (0 ! D_FLOATING NAMED D_flPoating_point_base IN% ! TYPENAME d_floating VALUE,2 ! LONGWORD NAMED longword_integer_exponent IN+ ! TYPENAME longword_signed VALUE )9 ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWDR ! 8 ! Raise a D_floating Base to an F_floating Exponent ! E ! The Raise a D_floating Base to an F_floating Exponent routinesG ! return the D_floating result of raising a D_floating base to an  ! F_floating exponent.  ! / ! E QNTRY ots$powdr ALIAS $ots_powdr PARAMETER (0 ! D_FLOATING NAMED D_floating_point_base IN% ! TYPENAME d_floating VALUE,4 ! F_FLOATING NAMED F_floating_point_exponent IN& ! TYPENAME f_floating VALUE )9 ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWGG ! 7 ! Raise a G_floating Base to a G_floating Exponent ! C ! The Raise a G_floating Base to a G_floating Exponent routine[ ! returns the G_floating result of raising a RG_floating base to a G_floating exponent. ! / ! ENTRY ots$powgg ALIAS $ots_powgg PARAMETER (0 ! G_FLOATING NAMED G_floating_point_base IN% ! TYPENAME g_floating VALUE,4 ! G_FLOATING NAMED G_floating_point_exponent IN& ! TYPENAME g_floating VALUE )9 ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWTT ! C ! Raise an IEEE T_floating Base to an IEEE T_floating Exponent ! O ! The Raise an IEEE T_floating Base to an IEESE T_floating Exponent routineM ! returns the IEEE T_floating result of raising an IEEE T_floating base & ! to an IEEE T_floating exponent. !  !  REAL*8 ots$powtt EXTERNAL ots$powtt ! OTS$POWGJ ! 5 ! Raise a G_floating Base to a Longword Exponent ! A ! The Raise a G_floating Base to a Longword Exponent routineY ! returns the G_floating result of raising a G_floating base to a longword exponent. ! / ! ENTRY ots$powgj ALIAS T $ots_powgj PARAMETER (0 ! G_FLOATING NAMED G_floating_point_base IN% ! TYPENAME g_floating VALUE,2 ! LONGWORD NAMED longword_integer_exponent IN+ ! TYPENAME longword_signed VALUE )9 ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWTJ ! ; ! Raise an IEEE T_floating Base to a Longword Exponent ! I ! The Raise and IEEE T_floating Base to a Longword Exponent routine I ! returns the IEEE T_floating result of raisiUng an IEEE T_floating # ! base to a longword exponent. !  REAL*8 ots$powtj EXTERNAL ots$powtj ! OTS$POWHH_R3 ! 9 ! Raise an H_floating Base to an H_floating Exponent ! > ! The Raise an H_floating Base to an H_floating Exponent K ! routine returns the H_floating result of raising an H_floating base " ! to an H_floating exponent.  ! 5 ! ENTRY ots$powhh_r3 ALIAS $ots_powhh_r3 PARAMETER (0 ! H_FLOATING NAMED H_floating_pointV_base IN% ! TYPENAME h_floating VALUE,4 ! H_FLOATING NAMED H_floating_point_exponent IN& ! TYPENAME h_floating VALUE )9 ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$POWHJ_R3 ! 7 ! Raise an H_floating Base to an Longword Exponent ! ; ! The Raise an H_floating Base to a Longword Exponent F ! routine returns the H_floating result of raising an H_floating $ ! base to a longword exponent.  ! 5 ! ENTRY ots$powhj_r W3 ALIAS $ots_powhj_r3 PARAMETER (0 ! H_FLOATING NAMED H_floating_point_base IN% ! TYPENAME h_floating VALUE,2 ! LONGWORD NAMED longword_integer_exponent IN+ ! TYPENAME longword_signed VALUE )9 ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$POWII ! + ! Raise a Word Base to a Word Exponent ! 7 ! The Raise a Word Base to a Word Exponent routineI ! returns the word result of raising a word base to a word exponent. ! X  INTEGER*2 ots$powii EXTERNAL ots$powii ! OTS$POWJJ ! 3 ! Raise a Longword Base to a Longword Exponent ! ? ! The Raise a Longword Base to a Longword Exponent routine? ! returns the longword result of raising a signed longword, ! base to a signed longword exponent.  !  INTEGER*4 ots$powjj EXTERNAL ots$powjj ! OTS$POWLULU ! G ! Raise an Unsigned Longword Base to an Unsigned Longword Exponent ! C ! The Raise aYn Unsigned Longword Base to an Unsigned Longword @ ! Exponent routine returns the unsigned longword result of 4 ! raising an unsigned longword integer base to - ! an unsigned longword integer exponent. !  INTEGER*4 ots$powlulu EXTERNAL ots$powlulu ! OTS$POWRD ! 6 ! Raise an F_floating Base to D_floating Exponent ! = ! The Raise an F_floating Base to a D_floating Exponent ; ! routine returns the F_floating result of raising an 1 ! F Z_floating base to a D_floating exponent.  ! / ! ENTRY ots$powrd ALIAS $ots_powrd PARAMETER (0 ! F_FLOATING NAMED F_floating_point_base IN% ! TYPENAME f_floating VALUE,4 ! D_FLOATING NAMED D_floating_point_exponent IN> ! TYPENAME d_floating VALUE ) 9 ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWRJ ! 6 ! Raise an F_floating Base to a Longword Exponent ! ; ! The Raise an F_floating Base to a[ Longword Exponent ; ! routine returns the F_floating result of raising an / ! F_floating base to a longword exponent.  !  REAL*4 ots$powrj EXTERNAL ots$powrj ! OTS$POWSJ ! ; ! Raise an IEEE S_floating Base to a Longword Exponent ! H ! The Raise an IEEE S_floating Base to a Longword Exponent routine M ! returns the IEEE S_floating result of raising an IEEE S_floating base  ! to a longword exponent.  !  REAL*4 ots$powsj E\XTERNAL ots$powsj ! OTS$POWRR ! 6 ! Raise an F_floating Base to F_floating Exponent ! > ! The Raise an F_floating Base to an F_floating Exponent F ! routine returns the F_floating result of raising an F_floating ' ! base to an F_floating exponent.  !  REAL*4 ots$powrr EXTERNAL ots$powrr ! OTS$POWSS ! @ ! Raise an IEEE S_floating Base to IEEE S_floating Exponent ! E ! The Raise an IEEE S_floating Base to IEEE S_floa ]ting Exponent= ! routines retursn the IEEE S_floating result of raising? ! an IEEES_floating base to an IEEE S_floating exponent.  !  REAL*4 ots$powss EXTERNAL ots$powss ! OTS$POWRLU ! K ! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent ! F ! The Raise a Floating-Point Base to an Unsigned Longword IntegerE ! Exponent routines returns the floating-point result of raisingG ! a floating-point base to an unsigned long^word integer exponent.  !  REAL*4 ots$powrlu EXTERNAL ots$powrlu ! OTS$POWDLU ! G ! Raise a D-Floating Base to an Unsigned Longword Integer Exponent ! C ! The Raise a D-Floating Base to an Unsigned Longword Integer A ! Exponent routines returns the D-Floating result of raisingC ! a D-Floating base to an unsigned longword integer exponent.  ! 1 ! ENTRY ots$powdlu ALIAS $ots_powdlu PARAMETER (. ! D_FLOATING NAMED floating_point_b _ase IN% ! TYPENAME d_floating VALUE,= ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN- ! TYPENAME longword_unsigned VALUE )9 ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWGLU ! G ! Raise a G_floating Base to an Unsigned Longword Integer Exponent ! C ! The Raise a G-Floating Base to an Unsigned Longword Integer A ! Exponent routines returns the G-Floating result of raisingC ! a G-Floating base to an uns `igned longword integer exponent.  ! 1 ! ENTRY ots$powglu ALIAS $ots_powglu PARAMETER (. ! G_FLOATING NAMED floating_point_base IN% ! TYPENAME g_floating VALUE,= ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN- ! TYPENAME longword_unsigned VALUE )9 ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWSLU ! M ! Raise an IEEE S-Floating Base to an Unsigned Longword Integer Exponent ! L ! The Raise an IEEE S-F aloating Base to an Unsigned routines returns theI ! IEEE S-flloating result of raising an IEEE S-Floating base to an + ! unsigned longword integer exponent.  !  REAL*4 ots$powslu EXTERNAL ots$powslu ! OTS$POWTLU ! M ! Raise an IEEE T-Floating Base to an Unsigned Longword Integer Exponent ! I ! The Raise and IEEE T-Floating Base to an Unsigned Longword IntegerG ! Exponent routines returns the IEEE T-Floating result of raising I ! a bn IEEE T-Floating base to an unsigned longword integer exponent.  !  REAL*8 ots$powtlu EXTERNAL ots$powtlu ! OTS$POWHLU_R3 ! H ! Raise an H-Floating Base to an Unsigned Longword Integer Exponent ! D ! The Raise an H-Floating Base to an Unsigned Longword Integer @ ! Exponent routine returns the H-Floating result of raisingD ! an H-Floating base to an unsigned longword integer exponent.  ! 7 ! ENTRY ots$powhlu_r3 ALIAS $ots_powhlu_r3 PARAME cTER (. ! H_FLOATING NAMED floating_point_base IN% ! TYPENAME h_floating VALUE,= ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN- ! TYPENAME longword_unsigned VALUE )9 ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$SCOPY_DXDX ! H ! Copy a Source String Passed by Descriptor to a Destination String ! M ! The Copy a Source String Passed by Descriptor to a Destination String  ! routineG ! copies a source sdtring to a destination string. Both strings are ! passed by descriptor.  !  INTEGER*2 ots$scopy_dxdx EXTERNAL ots$scopy_dxdx ! OTS$SCOPY_R_DX ! G ! Copy a Source String Passed by Reference to a Destination String ! L ! The Copy a Source String Passed by Reference to a Destination String J ! routine copies a source string passed by reference to a destination ! string.  !  INTEGER*2 ots$scopy_r_dx EXTERNAL ots$scopy_r_dx ! e OTS$SFREE1_DD ! ! Strings, Free One Dynamic ! * ! The Free One Dynamic String routine7 ! returns one dynamic string area to free storage. !  ! Subroutine ots$sfree1_dd ! OTS$SFREEN_DD( !  ! Strings, Free n Dynamic ! ) ! The Free n Dynamic Strings routineF ! takes as input a vector of one or more dynamic string areas and% ! returns them to free storage.  !  ! Subroutine ots$sfrefen_dd ! OTS$SGET1_DD !  ! Strings, Get One Dynamic ! * ! The Get One Dynamic String routine ? ! allocates a specified number of bytes of dynamic virtual0 ! memory to a specified string descriptor.  !  ! Subroutine ots$sget1_dd ! OTS$CVT_L_TB ! 1 ! Convert an Unsigned Integer to Binary Text ! = ! The Convert an Unsigned Integer to Binary Text routine@ ! converts an unsigned integer value of arbitrary length toOg ! binary representation in an ASCII text string. By default, a longword is ! converted. !  INTEGER*4 ots$cvt_l_tb EXTERNAL ots$cvt_l_tb ! OTS$CVT_L_TI ! - ! Convert Signed Integer to Decimal Text ! 9 ! The Convert Signed Integer to Decimal Text routineE ! converts a signed integer to a decimal ASCII text string. ThisP ! routine supports FORTRAN Iw and Iw.m output and BASIC output conversion.  !  INTEGER*4 ots$cvt_l_ti EXThERNAL ots$cvt_l_ti ! OTS$CVT_L_TL ! & ! Convert Integer to Logical Text ! 2 ! The Convert Integer to Logical Text routineA ! converts an integer to an ASCII text string representation) ! using FORTRAN L (logical) format.  !  INTEGER*4 ots$cvt_l_tl EXTERNAL ots$cvt_l_tl ! OTS$CVT_L_TO ! - ! Convert Unsigned Integer to Octal Text ! 9 ! The Convert Unsigned Integer to Octal Text routineB ! converts an unsigned initeger to an octal ASCII text string.L ! OTS$CVT_L_TO supports FORTRAN Ow and Ow.m output conversion formats.  !  INTEGER*4 ots$cvt_l_to EXTERNAL ots$cvt_l_to ! OTS$CVT_L_TU ! / ! Convert Unsigned Integer to Decimal Text ! ; ! The Convert Unsigned Integer to Decimal Text routineB ! converts a byte, word or longword value to unsigned decimalH ! representation in an ASCII text string. By default, a longword is ! converted.  ! j INTEGER*4 ots$cvt_l_tu EXTERNAL ots$cvt_l_tu ! OTS$CVT_L_TZ ! * ! Convert Integer to Hexadecimal Text ! 6 ! The Convert Integer to Hexadecimal Text routine? ! converts an unsigned integer to a hexadecimal ASCII textJ ! string. OTS$CVT_L_TZ supports FORTRAN Zw and Zw.m output conversion ! formats.  !  INTEGER*4 ots$cvt_l_tz EXTERNAL ots$cvt_l_tz ! OTS$CVT_TB_L ! . ! Convert Binary Text to Unsigned Integer ! : ! k The Convert Binary Text to Unsigned Integer routineB ! converts an ASCII text string representation of an unsignedQ ! binary value to an unsigned integer value of arbitrary length. By default,M ! the result is a longword. Valid input characters are the blank and the- ! digits 0 and 1. No sign is permitted.  !  INTEGER*4 ots$cvt_tb_l EXTERNAL ots$cvt_tb_l ! OTS$CVT_TI_L ! - ! Convert Signed Integer Text to Integer ! 9 ! The Convertl Signed Integer Text to Integer routine@ ! converts an ASCII text string representation of a decimalA ! number to a signed byte, word, or longword integer value. " ! The result is a longword byJ ! default, but the calling program can specify a byte or a word value ! instead.  !  INTEGER*4 ots$cvt_ti_l EXTERNAL ots$cvt_ti_l ! OTS$CVT_TL_L ! & ! Convert Logical Text to Integer ! 2 ! The Convert Logical Text to Integer routineE ! m converts an ASCII text string representation of a FORTRAN-77 LU ! format to a byte, word, or longword integer value. The result is a longword byJ ! default, but the calling program can specify a byte or a word value ! instead.  !  INTEGER*4 ots$cvt_tl_l EXTERNAL ots$cvt_tl_l ! OTS$CVT_TO_L ! + ! Convert Octal Text to Signed Integer ! 7 ! The Convert Octal Text to Signed Integer routine9 ! converts an ASCII text string representation nof anO ! octal value to an signed integer of an arbitrary length. The result is aM ! longword by default, but the calling program can specify a byte, word, ! or longword. !  INTEGER*4 ots$cvt_to_l EXTERNAL ots$cvt_to_l ! OTS$CVT_TU_L ! / ! Convert Unsigned Decimal Text to Integer ! < ! The Convert Unsigned Decimal Text to Integer routine B ! converts an ASCII text string representation of an unsignedR ! decimal value to an unsig oned byte, word, or longword value. By default, theR ! result is a longword. Valid input characters are the space and the digits 0( ! through 9. No sign is permitted.  !  INTEGER*4 ots$cvt_tu_l EXTERNAL ots$cvt_tu_l ! OTS$CVT_TZ_L  ! 3 ! Convert Hexadecimal Text to Unsigned Integer ! ? ! The Convert Hexadecimal Text to Unsigned Integer routineB ! converts an ASCII text string representation of an unsignedG ! hexadecimal value to an unspigned integer of an arbitrary length.O ! The result is a longword by default, but the calling program can specify ! a byte, word, or longword ! value. !  INTEGER*4 ots$cvt_tz_l EXTERNAL ots$cvt_tz_l!DEC$ END OPTIONSww؍Φ!*** MODULE PPL$DEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN: ! Definitions for RTL Parallel Processing Facility - PPL !  ! Pre-defined event ids. ! H PARAMETER PPL$K_ABNORMAL_EXIT = -2 ! abnoqrmal participant terminationD PARAMETER PPL$K_NORMAL_EXIT = -1 ! normal participant termination ! ! Shared memory options flags. ! % PARAMETER PPL$M_NOZERO = '00000001'X$ PARAMETER PPL$M_NOWRT = '00000002'X$ PARAMETER PPL$M_FLUSH = '00000004'X$ PARAMETER PPL$M_NOUNI = '00000008'X) PARAMETER PPL$m_mopt_spare = 'FFFFFFF0'X STRUCTURE /mem_options/ PARAMETER PPL$S_NOZERO = 14 PARAMETER PPL$V_NOZERO = 0 ! not demand-zero PARAMETER PPL$S_NOWRT = 1- PARAMETER PrPL$V_NOWRT = 1 ! read-only PARAMETER PPL$S_FLUSH = 11 PARAMETER PPL$V_FLUSH = 2 ! write to disk PARAMETER PPL$S_NOUNI = 1A PARAMETER PPL$V_NOUNI = 3 ! non-unique name not requested$ PARAMETER PPL$S_mopt_spare = 28# PARAMETER PPL$V_mopt_spare = 4% BYTE %FILL (4) ! extra bits END STRUCTURE ! mem_options !  ! Processing options flags. ! ) PARAMETER PPL$M_INIT_SYNCH = '00000001'X& PARAMETER PPL$M_NODEBUG = '00000002'X, PARAMETER PPL$M s_STOP_CHILDREN = '00000004'X+ PARAMETER PPL$M_NON_BLOCKING = '00000008'X) PARAMETER PPL$M_NOTIFY_ONE = '00000010'X( PARAMETER PPL$M_SPIN_WAIT = '00000020'X' PARAMETER PPL$M_FORMONLY = '00000040'X' PARAMETER PPL$M_JOINONLY = '00000080'X# PARAMETER PPL$M_PERM = '00000100'X% PARAMETER PPL$M_SYSTEM = '00000200'X( PARAMETER PPL$M_DELETEALL = '00000400'X( PARAMETER PPL$M_TAILFIRST = '00000800'X% PARAMETER PPL$M_ATHEAD = '00001000'X' PARAMETER PPL$M_FROMTAIL = '00002000'X' PARAMETER PPL$M t_FORCEDEL = '00004000'X' PARAMETER PPL$M_NOCLISYM = '00008000'X' PARAMETER PPL$M_NOLOGNAM = '00010000'X' PARAMETER PPL$M_NOKEYPAD = '00020000'X% PARAMETER PPL$M_NOTIFY = '00040000'X( PARAMETER PPL$M_NOCONTROL = '00080000'X* PARAMETER PPL$M_CALL_UNIQUE = '00100000'X* PARAMETER PPL$M_PROC_UNIQUE = '00200000'X+ PARAMETER PPL$M_SPIN_COUNTED = '00400000'X/ PARAMETER PPL$M_NOSAVE_PROC_INFO = '00800000'X+ PARAMETER PPL$M_IGNORE_EXITS = '01000000'X) PARAMETER PPL$m_popt_spare = 'FE000000'X u STRUCTURE /proc_options/# PARAMETER PPL$S_INIT_SYNCH = 1J PARAMETER PPL$V_INIT_SYNCH = 0 ! parent blocks until children init PARAMETER PPL$S_NODEBUG = 13 PARAMETER PPL$V_NODEBUG = 1 ! disable DEBUG& PARAMETER PPL$S_STOP_CHILDREN = 1O PARAMETER PPL$V_STOP_CHILDREN = 2 ! stop children of terminating process% PARAMETER PPL$S_NON_BLOCKING = 1N PARAMETER PPL$V_NON_BLOCKING = 3 ! don't block if semaphore unavailable# PARAMETER PPL$S_NOTIFY_ONE v= 1J PARAMETER PPL$V_NOTIFY_ONE = 4 ! notify only one enabler for event" PARAMETER PPL$S_SPIN_WAIT = 1? PARAMETER PPL$V_SPIN_WAIT = 5 ! spin rather than $HIBER! PARAMETER PPL$S_FORMONLY = 1J PARAMETER PPL$V_FORMONLY = 6 ! Only form (do not join) a new appl.! PARAMETER PPL$S_JOINONLY = 1J PARAMETER PPL$V_JOINONLY = 7 ! Only join (do not form) a new appl. PARAMETER PPL$S_PERM = 1A PARAMETER PPL$V_PERM = 8 ! Create a permanent application w PARAMETER PPL$S_SYSTEM = 1E PARAMETER PPL$V_SYSTEM = 9 ! Create a system-wide application" PARAMETER PPL$S_DELETEALL = 1L PARAMETER PPL$V_DELETEALL = 10 ! Delete all corresponding work items" PARAMETER PPL$S_TAILFIRST = 1B PARAMETER PPL$V_TAILFIRST = 11 ! Delete from tail of queue PARAMETER PPL$S_ATHEAD = 1A PARAMETER PPL$V_ATHEAD = 12 ! Insert at the head of queue! PARAMETER PPL$S_FROMTAIL = 1A PARAMETER PPL$V_FROMTAIL = 13 ! Re xmove from tail of queue! PARAMETER PPL$S_FORCEDEL = 1D PARAMETER PPL$V_FORCEDEL = 14 ! Force deletion of work queue! PARAMETER PPL$S_NOCLISYM = 1K PARAMETER PPL$V_NOCLISYM = 15 ! Do not inherit parent's CLI symbols! PARAMETER PPL$S_NOLOGNAM = 1H PARAMETER PPL$V_NOLOGNAM = 16 ! Do not inherit parent's logicals! PARAMETER PPL$S_NOKEYPAD = 1L PARAMETER PPL$V_NOKEYPAD = 17 ! Inherit parent's keypad state & defs PARAMETER PPL$S_NOTIFY = 1J y PARAMETER PPL$V_NOTIFY = 18 ! Broadcast message on child terminate" PARAMETER PPL$S_NOCONTROL = 1M PARAMETER PPL$V_NOCONTROL = 19 ! No carriage control prefix on prompt$ PARAMETER PPL$S_CALL_UNIQUE = 1B PARAMETER PPL$V_CALL_UNIQUE = 20 ! Request call unique name$ PARAMETER PPL$S_PROC_UNIQUE = 1E PARAMETER PPL$V_PROC_UNIQUE = 21 ! Request process unique name% PARAMETER PPL$S_SPIN_COUNTED = 1O PARAMETER PPL$V_SPIN_COUNTED = 22 ! Spin for counted zperiod before hiber) PARAMETER PPL$S_NOSAVE_PROC_INFO = 1* PARAMETER PPL$V_NOSAVE_PROC_INFO = 23% PARAMETER PPL$S_IGNORE_EXITS = 1& PARAMETER PPL$V_IGNORE_EXITS = 24# PARAMETER PPL$S_popt_spare = 7$ PARAMETER PPL$V_popt_spare = 25% BYTE %FILL (4) ! extra bits END STRUCTURE ! proc_options!DEC$ END OPTIONSww 6Φ! ************************************************************************************************************************ {********;! Created: 30-AUG-2007 11:29:56 by OpenVMS SDL IA64-2 Y! Source: 30-AUG-2007 11:29:56 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]PPL$MSG.SDI;1 ! ******************************************************************************************************************************** !*** MODULE $PPLDEF ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! O ! This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.74 ! " ! FILE: PPLMSG.MSG EDIT: | CMF1004 ! O ! **************************************************************************** ! * *& ! * COPYRIGHT (C) 1987 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *O ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *O ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *O ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS }SOFTWARE OR ANY OTHER *O ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * *O ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *O ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * *O ! * DIGITAL ASSUMES NO RESPONSIBILITY ~FOR THE USE OR RELIABILITY OF ITS *D ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *O ! **************************************************************************** !  ! ++ !  ! FACILITY: VAX PPL ! ! ABSTRACT: ! C ! THIS FILE CONTAINS THE DEFINITION FOR THE PPL FACILITY SPECIFIC6 ! ERROR MESSAGES. THE FACILITY CODE FOR PPL IS 481. ! " ! ENVIRONMENT: VAX/VMS USER MODE ! 2 ! AUTHOR: P. GILBERT, CREATION DATE: 30-SEP-1986 !  ! MODIFIED BY: !  ! E01-001 ORIGINAL ! 6 ! E01-002 TO ADD THE FACILITY CODE. CMF 23-JAN-1987 ! : ! E01-003 TO CORRECT THE IDENT TO MATCH CMF 26-JAN-1987 ! THE CMS GENERATION NUMBER. ! : ! E01-004 REVAMP THE FILE TO CONFORM TO CMF 28-JAN-1987& ! RTL STANDARDS. ( PATTERNED AFTER ! LIBMSG.MSG ) ! < ! E01-005 TO CHANGE THE MODULE NAME FROM CMF 16-FEB-1987! ! PPL$MSG TO PPL$MSGDEF TO BE$ ! CONSISTENT WITH THE OTHER RTLS ! > ! E01-006 TO ADD PPL$_ATTUSETWO TO INDICATE CMF 16-FEB-1987& ! THAT AN ATTEMPT HAS BEEN MADE TO( ! USE TWO BARRIERS THUS RESULTING IN ! DEAD LOCK. ! < ! E01-007 ADD MSGS FOR BARRIERS AND EVENTS, DLR 24-JUL-87 ! PLUS OTHER MISC UPDATES.- ! REMOVE OLD DEAD ONES BY ! *** NOTATION. ! @ ! E01-008 CONFORM TO DOCUMENTATION STANDARDS. DLR 19-AUG-1987 ! 6 ! V051-001 ADDED PPL$_NO_NEXT_PROC WWS 09-SEP-1988 ! = ! V53-001 CORRECTED EVENT SIGNAL MESSAGES WWS 20-MAR-1989 ! 6 ! V53-002 ADDED THE V5.3 MESSAGES WWS 27-MAR-1989 ! > ! V57-001 ADD A SPACE TO NOONE_ENABLED TEXT PJC 22-JAN-1993 ! ? ! V57-002 CHANGE REFERENCE TO PPL$INITIALIZE PJC 30-AUG-1993 ! -- ! +@ ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! PPL$_ABCMNOXYZ ! L ! IN ADDITION, THE IBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",I ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE9 ! ERROR MESSAGE, NOT COUNTING ARTICLES AND PREPSITIONS. ! N ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR8 ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  !  !  ! MACRO-32PROGRAMMING: !  ! THE MACROS CALL: ! ! $PPLDEF ! > ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.< ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;@ ! THE MACROS ARE PROVIDED ONLY FOR THE COVENIENCE OF THE USER. ! - ! + ! SPECIAL NO TE: ! C ! THE MESSAGES HERE SHOULD BE RESOLVED FROM STARLET.OLB. INORDERB ! FOR THIS TO HAPPEN, SEVERAL VMS BUILD FILES NEED TO BE EDITED.A ! THIS WILL BE DONE FOR SYS 11. NOTE THAT SEVERAL OF OUT BUILD< ! PROCEDURES MAY NEED TO BE EDITED. PPLRTLBLD.COM TO COPY6 ! AND DELETE APPROPRIATE FILE IN APPROPRIATE PLACES. ! F ! ALSO, THE FILE PPLDEF WILL NEED TO BE CHANGED TO BE NAME PPLMSGDEF2 ! TO FOLLOW THE STANDARDS OF THE OTHER ROUTINES. ! G ! PPLRTLLNK.OPT MAY NEED TO BE EDITED TO GET RID OF UNIVERSAL SYMBOLD? ! SO THAT THERE WON'T BE EXTRA BAGAGE IN THE SHAREABLE IMAGE. !  ! - ! ; SET LH TO 481 (DECIMAL).& PARAMETER PPL$_FACILITY = '000001E1'X$ PARAMETER PPL$_NORMAL = '01E18001'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY ! EXPLANATION: ALL IS WELL.= ! USER ACTION: ENJOY YOUR SUCCESS. ALL THINGS MUST PASS. ! --% PARAMETER PPL$_CREATED = '01E18011'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY@ ! EXPLANATION: ITEM WAS CREATED, AN ALTERNATE SUCCESS STATUS: ! INDICATING THE ITEM WAS NOT JUST SUCCESSFULLY FOUND.% ! USER ACTION: CONTINUE NORMALLY. ! --+ PARAMETER PPL$_NOONE_ENABLED = '01E18019'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: EVENT TRIGGER IS SUCCESSFULLY QUEUED, AND NO ONE IS; ! PRESENTLY ENABLED TO RECEIVE IT. THE FIRST CALLER TO ! ENABLE IT WILL RECEIVE IT.% ! USER ACTION: CONTINUE NORMALLY. ! --+ PARAMETER PPL$_NOT_AVAILABLE = '01E18021'X ! + +( ! FACILITY: PPL, RUN-TIME LIBRARYG ! EXPLANATION: ALTERNATE SUCCESS STATUS RETURNED WHEN USER REQUESTS7 ! IMMEDIATE NON-BLOCKING ACCESS TO A RESOURCE WHICH ! WAS NOT AVAILABLE.% ! USER ACTION: CONTINUE NORMALLY. ! --* PARAMETER PPL$_CREATED_SOME = '01E18029'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYI ! EXPLANATION: SOME OF THE REQUESTED ITEMS WERE CREATED, BUT NOT ALL.I ! USER ACTION: IF PROCESSING CAN CONTINUE WITH FEWER ITEMS THAN THOSE( ! REQUESTED, THEN CONTINUE NORMALLY. ! --* PARAMETER PPL$_NO_NEXT_PROC = '01E18031'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY ! E ! EXPLANATION: THIS CODE IS FOR INTERNAL USE ONLY AND IS RETURNED: ! FROM THE ROUTINE, PPL$$TELL, WHEN IT IS INVOKED WITH8 ! THE TELL_K_NEXT_PROCESS FLAG AND THERE IS ONLY ONE+ ! PROCESS CURRENTLY IN THE APPLICATION. ! = ! USER ACTION: NONE: THIS CODE IS FOR INTERNAL USE ONLY. ! --% PARAMETER PPL$_DELETED = '01E18039'X ! ++% ! FACILITY: PPL, RUN-TIME LIBRARY ! @ ! EXPLANATION: THE USER REQUESTED THAT THE OBJECT BE DELETED= ! REGARDLESS OF ITS STATE. THE DELETION WAS SUCCESSFULLY ! PERFORMED. ! # ! USER ACTION CONTINUE NORMALLY ! --< ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES!!!, ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW. ! ; SET LH TO 481 (DECIMAL)L ! *** EXCQUESIZ  ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY5 ! EXPLANATION: TOO MANY CALLERS REQUIRED QUEUING.I ! USER ACTION: RECODE TO REDUCE NUMBER OF CALLERS ACCESSING RESOURCE. ! --' PARAMETER PPL$_INCOMPEXI = '01E18204'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY: ! EXPLANATION: ALL PPL OBJECTS MUST HAVE UNIQUE NAMES.? ! USER ACTION: RECODE THE CALL TO SPECIFY A DIFFERENT NAME. ! --' PARAMETER PPL$_INSVIRMEM = '01E1820C'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYE ! EXPLANATION: CALLER DOES NOT HAVE SUFFICIENT AVAILABLE SPACE TO ! COMPLETE REQUEST.F ! USER ACTION: IF YOU USE EXTENSIVE PPL SERVICES, TRY SPECIFYING A7 ! LARGER VALUE TO PPL$INITIALIZE. OTHERWISE, CHECK9 ! YOUR SYSTEM QUOTAS TO SEE IF AN INCREASE IS NEEDED. ! --% PARAMETER PPL$_INVDESC = '01E18214'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY) ! EXPLANATION: DESCRIPTOR IS INVALID.4 ! USER ACTION: RECODE TO CORRECT THE DESCRIPTOR. ! --& PARAMETER PPL$_INVELEID = '01E1821C'X ! ++( !  FACILITY: PPL, RUN-TIME LIBRARY? ! EXPLANATION: SPECIFIED ELEMENT ID IS NOT A LEGITIMATE ID.B ! USER ACTION: EXAMINE PROGRAM CODE - SOME MODIFICATION OF THE ! ELEMENT ID HAS OCCURRED. ! --' PARAMETER PPL$_INVELENAM = '01E18224'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY, ! EXPLANATION: ILLEGAL CHARACTER STRING., ! USER ACTION: FIX THE CHARACTER STRING. ! --' PARAMETER PPL$_INVELETYP = '01E1822C'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYE ! EXPLANATION: USER SPECIFIED AN ELEMENT WHICH CANNOT BE OPERATED ! BY THE CALLED ROUTINE.: ! USER ACTION: RECODE TO PASS THE PROPER ELEMENT TYPE. ! --' PARAMETER PPL$_INVNUMCHI = '01E18234'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY; ! EXPLANATION: USER REQUESTED CREATION OF A NUMBER < 1.: ! USER ACTION: RECODE REQUEST TO USE THE PROPER VALUE. ! --7 ! *** INVQUESIZ  ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY& ! EXPLANATION: INVALID QUEUE SIZE.- ! USER ACTION: SPECIFY A POSITIVE NUMBER. ! --' PARAMETER PPL$_INVSEMINI = '01E1823C'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYD ! EXPLANATION: A SEMAPHORE INITIAL VALUE MUST BE <= ITS MAXIMUM.6 ! USER ACTION: CHANGE THE SPECIFIED INITIAL VALUE. ! --' PARAMETER PPL$_INVSEMMAX = '01E18244'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY@ ! EXPLANATION: A SEMAPHORE'S MAXIMUM VALUE MUST BE POSITIVE.6 ! USER ACTION: CHANGE THE SPECIFIED MAXIMUM VALUE. ! --' PARAMETER PPL$_LOCNOTEST = '01E1824C'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYG ! EXPLANATION: YOU CANNOT RELEASE A LOCK YOU HAVE NOT BEEN GRANTED.@ ! USER ACTION: RECODE TO ASSURE THAT THE LOCK IS HELD BY THE& ! CALLER ATTEMPTING TO RELEASE IT. ! --% PARAMETER PPL$_NOSECEX = '01E18254'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: SECTION SPECIFIED FOR FLUSH OR DELETE DOES NOT EXIST.I ! USER ACTION: RECODE TO ASSURE THAT SECTION TO DELETE/FLUSH HAS BEEN ! CREATED. ! --( ! *** NOSHRM  ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY+ ! EXPLANATION: NO SHARED MEMORY EXISTS. ! USER ACTION: DITTO. ! --' PARAMETER PPL$_NOSUCHELE = '01E1825C'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY; ! EXPLANATION: NO ELEMENT IS SPECIFIED BY THE INPUT ID.> ! USER ACTION: RECODE TO ASSURE THAT THE INPUT ID IS FOR A# ! LEGITIMATELY CREATED ELEMENT. ! --' PARAMET ER PPL$_NOSUCHLOC = '01E18264'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY@ ! EXPLANATION: NO LOCK ELEMENT IS SPECIFIED BY THE INPUT ID.> ! USER ACTION: RECODE TO ASSURE THAT THE INPUT ID IS FOR A( ! LEGITIMATELY CREATED LOCK ELEMENT. ! --' PARAMETER PPL$_NOSUCHNAM = '01E1826C'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: INPUT NAME DOES NOT SPECIFY AN EXISTING ELEMENT.C ! USER ACTION: RECODE TO ASSURE THAT THE NAME MATCHES A CREATED ! ELEMENT. ! --' PARAMETER PPL$_WRONUMARG = '01E18274'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYG ! EXPLANATION: TOO MANY OR TOO FEW ARGUMENTS SPECIFIED IN THE CALL.; ! USER ACTION: RECODE USING PROPER NUMBER OF ARGUMENTS. ! --' PARAMETER PPL$_ABNTERMIN = '01E1827C'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY( ! EXPLANATION: ABNORMAL TERMINATION.C ! USER ACTION: AN APPLICATION PARTICIPANT HAS ENDED ABNORMALLY.8 ! SOME APPLICATION-SPECIFIC RECOVERY MAY BE DESIRED. ! --' PARAMETER PPL$_EXHNEVCAL = '01E18284'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY@ ! EXPLANATION: AN APPLICATION PARTICIPANT TERMINATED WITHOUT% ! EXECUTING ITS PPL EXIT HANDLER.D ! USER ACTION: APPLICATION HAS BEEN ABNORMALLY TERMINATED. SOME3 ! APPLICATION-SPECIFIC RECOVERY MAY BE DESIRED. ! --$ PARAMETER PPL$_INVARG = '01E1828C'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY3 ! EXPLANATION: A SPECIFIED ARGUMENT IS INVALID.6 ! USER ACTION: RECODE TO PASS THE PROPER ARGUMENT. ! --$ PARAMETER PPL$_NOINIT = '01E18294'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYE ! EXPLANATION: PPL$INITIALIZE MUST BE CALLED BEFORE THIS ROUTINE.J ! USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER.8 ! PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST6 ! CALLS, BUT NOT FOR THOSE WHICH REQUIRE THE PRIOR ! CREATION OF AN ELEMENT. ! --$ PARAMETER PPL$_NONPIC = '01E1829C'X ! ++( ! FACILITY: PPL, RU N-TIME LIBRARYE ! EXPLANATION: PPL CANNOT MAP REQUESTED ADDRESS SPACE TO THE SAME! ! ADDRESSES IN ALL PROCESSES.J ! USER ACTION: IF IT IS CRITICAL TO THE APPLICATION THAT THE REQUESTED: ! SPACE APPEAR AT THE SAME ADDRESSES IN ALL PROCESSES,: ! THE USER MUST TAKE STEPS TO ASSURE THAT ENOUGH SPACE< ! IS MADE AVAILABLE. THIS MAY REQUIRE INCREASING SYSTEM8 ! QUOTAS OR RESERVING THE REQUIRED ADDRESSES THROUGH ! LINKTIME OPERATIONS. ! --' PARAMETER PPL$_SEMININON = '01E182A4'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY4 ! EXPLANATION: IMPROPER INITIAL VALUE SPECIFIED.@ ! USER ACTION: RECODE TO ASSURE THAT PROPER VALUE IS PASSED. ! --$ PARAMETER PPL$_NOTIMP = '01E182AC'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: A CALL HAS BEEN ISSUED TO AN UNIMPLEMENTED SERVICE.1 ! USER ACTION: RECODE TO ELIMINATE THIS CALL. ! --' PARAMETER PPL$_ATTUSETWO = '01E182B4'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYC !  EXPLANATION: USER HAS ATTEMPTED TO WAIT ON 2 APPLICATION-WIDE ! BARRIERS AT THE SAME TIME.G ! USER ACTION: RECODE TO ASSURE THAT DEADLOCK IS AVOIDED BY WAITING5 ! ON ONLY ONE APPLICATION-WIDE BARRIER AT A TIME. ! --- PARAMETER PPL$_IN_BARRIER_WAIT = '01E182BC'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: THE BARRIER WAS ALREADY IN EFFECT AT THE TIME OF ! THIS CALL.J ! USER ACTION: RECODE TO ASSURE THAT THE BARRIER QUORUM IS ESTABLISHED4 ! BEFORE ANYONE ATTEMPTS TO WAIT ON THE BARRIER. ! --+ PARAMETER PPL$_NO_SUCH_PARTY = '01E182C4'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY? ! EXPLANATION: SPECIFIED PARTICIPANT DOES NOT EXIST IN THIS ! APPLICATION.H ! USER ACTION: RECODE TO ASSURE THAT PROPER PARTICIPANT IS SPECIFIED" ! IN THE CALL TO THIS ROUTINE. ! --' PARAMETER PPL$_APPALREXI = '01E182CC'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYA ! EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO FORM AN; ! APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION5 ! ALREADY EXISTS, AND SO CANNOT BE FORMED BY THIS ! PROCESS.C ! USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO FORM AN2 ! APPLICATION, THIS IS APPLICATION-DEPENDENT.  ! --& PARAMETER PPL$_ELEINUSE = '01E182D4'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: THIS PROCESS ATTEMPTED AN OPERATION WHICH MAY ONLY 4 ! BE PERFORMED ON AN OBJECT WHICH IS NOT IN USE.= ! THE SPECIF IED OBJECT IS CURRENTLY IN USE AND THEREFORE ) ! THE OPERATION MAY NOT BE PERFORMED.D ! USER ACTION: RECODE TO FREE THE OBJECT BEFORE ATTEMPTING THIS @ ! OPERATION, OR, IF APPLICABLE, SPECIFY THE OPTION TO FORCE  ! THIS OPERATION. ! --' PARAMETER PPL$_INCOMPARG = '01E182DC'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: THIS PROCESS SPECIFIED A SIZE, PROTECTION, OR FLAG ON A; ! CALL TO PPL$INITIALIZE WHICH IS INCOMPATIBLE WITH THE; ! EXISTING APPLICATION WHICH THIS PROCESS IS ATTEMPTING ! TO JOIN.D ! USER ACTION: RECODE THE CALL TO OMIT THE ARGUMENTS, OR SPECIFY6 ! ARGUMENTS WHICH ARE COMPATIBLE WITH THE EXISTING ! APPLICATION. ! --' PARAMETER PPL$_INVAPPNAM = '01E182E4'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY, ! EXPLANATION: ILLEGAL CHARACTER STRING., ! USER ACTION: FIX THE CHARACTER STRING. ! --' PARAMETER PPL$_NOSUCHAPP = '01E182EC'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYJ ! E XPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO JOIN AN EXISTING; ! APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION5 ! DOES NOT EXIST, AND SO CANNOT BE JOINED BY THIS ! PROCESS.C ! USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO JOIN AN2 ! APPLICATION, THIS IS APPLICATION-DEPENDENT.  ! --% PARAMETER PPL$_BUFOVFL = '01E19000'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYG ! EXPLANATION: BUFFER COULD NOT CONTAIN THE COMPLETE OUTPUT STRING.2 ! USER ACTION: RECODE TO PASS A LARGER BUFFER. ! --% PARAMETER PPL$_ALTSIZE = '01E19008'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY: ! EXPLANATION: PPL$INITIALIZE HAS ALREADY BEEN CALLED.J ! USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER.8 ! PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST: ! CALLS. ALTERING THE INTERNAL STRUCTURE SIZE MUST BE( ! DONE BEFORE ANY OTHER CALL TO PPL. ! --' PARAMETER PPL$_ELEALREXI = '01E1C003'X ! ++( ! FACIL ITY: PPL, RUN-TIME LIBRARYB ! EXPLANATION: AN ELEMENT BY THIS NAME ALREADY EXISTS, AND ITS ! ID HAS BEEN RETURNED.F ! USER ACTION: CONTINUE NORMALLY IF THE NAME IS EXPECTED TO EXIST. ! --' PARAMETER PPL$_SEMALRMAX = '01E1C00B'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY; ! EXPLANATION: SEMAPHORE CANNOT BE INCREMENTED FURTHER.G ! USER ACTION: RECODE TO ASSURE THAT ONLY THE PROPER MAXIMUM NUMBER5 ! OF PPL$INCREMENT_SEMAPHORE REQUESTS ARE ISSUED. ! --' PAR AMETER PPL$_INTDELPRC = '01E1C013'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: AN APPLICATION CALL TO PPL$STOP FORCED THE TEMINATION ! OF THIS PARTICIPANT.F ! USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY,, ! ANY ACTIONS ARE APPLICATION-DEPENDENT. ! --' PARAMETER PPL$_INTTERMIN = '01E1C01B'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYB ! EXPLANATION: AN APPLICATION CALL TO PPL$TERMINATE FORCED THE% ! TEMINATION OF THIS PARTICIPANT.F ! USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY,, ! ANY ACTIONS ARE APPLICATION-DEPENDENT. ! --( PARAMETER PPL$_EXITSTATUS = '01E1C023'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: AN APPLICATION PARTICIPANT EXITED WITH THIS STATUS.F ! USER ACTION: DETERMINE THE CAUSE OF THE TERMINATION BY EXAMINING ! THE STATUS CODE. ! --, PARAMETER PPL$_EVENT_OCCURRED = '01E1C02B'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYE ! E XPLANATION: THIS CODE INDICATES THE OCCURRENCE OF AN EVENT FOR8 ! WHICH NOTIFICATION HAS BEEN REQUESTED BY THE USER.E ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,( ! RESPONSE IS APPLICATION-DEPENDENT. ! --) PARAMETER PPL$_NORMAL_EXIT = '01E1C033'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE NORMAL$ ! PARTICIPANT TERMINATION EVENT.E ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,( ! RESPONSE IS APPLICATION-DEPENDENT. ! --+ PARAMETER PPL$_ABNORMAL_EXIT = '01E1C03B'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARYE ! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE ABNORMAL$ ! PARTICIPANT TERMINATION EVENT.E ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,( ! RESPONSE IS APPLICATION-DEPENDENT. ! --' PARAMETER PPL$_FORMEDAPP = '01E1C043'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY9 ! EXPLANATION: THI S PROCESS FORMED A NEW APPLICATION.D ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. ! --' PARAMETER PPL$_JOINEDAPP = '01E1C04B'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY? ! EXPLANATION: THIS PROCESS JOINED AN EXISTING APPLICATION.D ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. ! --% PARAMETER PPL$_NOMATCH = '01E1C053'X ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY@ ! EXPLANATION: NO MATCH FOR THE SPECIFIED ELEMENT WAS FOUND. D ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. ! --!DEC$ END OPTIONSwwΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:29:56 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:56 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]PPL$ROUTINES.SDI;1 ! ****************************************************************************************** ************************************** !*** MODULE ppl$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! *************************************************************************** ! *2 ! COPYRIGHT (c) 1988 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG ITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *N ! ***************************************************************************# ! PPL$ADJUST_SEMAPHORE_MAXIMUM ! ! ! Adjust a Semaphore Maximum ! R ! The Adjust a Semaphore Maximum routine increments or decrements the maximum$ ! associated with a semaphore.  ! ' INTEGER*4 ppl$adjust_semaphore_maximum& EXTERNAL ppl$adjust_semaphore_maximum ! PPL$ADJUST_QUORUM !  ! Adjust Barrier Quorum ! L ! The Adjust Barrier Quorum routine increments or decrements the quorum! ! associated with a barrier. !  INTEGER*4 ppl$adjust_quorum EXTERNAL ppl$adjust_quorum ! PPL$AWAIT_EVENT !  ! Await Event Occurrence ! J ! The Await Event Occurrence routine blocks the caller until an event ! occurs.  !  INTEGER*4 ppl$await_event EXTERNAL ppl$await_event ! PPL$CREATE_APPLICATION ! & ! Form or Join a PPL$ Application ! M ! The Form or Join a PPL$ Application routine informs the PPL$ facility M ! that the calling process is forming or joining a parallel application. ! ! INTEGER*4 ppl$create_application EXTERNAL ppl$create_application ! PPL$CREATE_BARRIER !  ! Create a Barrier ! = ! The Create a Barrier routine creates and initializes a3 ! barrier, and returns the barrier identifier.G ! You use the barrier identifier to perform all operations on that ! barrier. !  INTEGER*4 ppl$create_barrier EXTERNAL ppl$create_barrier ! PPL$CREATE_EVENT !  ! Create an Event ! J ! The Create an Event routine creates an arbitrary user-defined eventH ! and returns the event identifier. You use the event identifier to- ! perform all operations on that event.  !  INTEGER*4 ppl$create_event EXTERNAL ppl$create_event ! PPL$CREATE_SPIN_LOCK !  ! Create Spin Lock ! K ! The Create Spin Lock routine creates and initializes a simple (spin)N ! lock, and returns the lock identifier. You use that lock identifier to  ! get and free the lock. !  INTEGER*4 ppl$create_spin_lock EXTERNAL ppl$create_spin_lock ! PPL$CREATE_SHARED_MEMORY !  ! Create Shared Memory ! I ! The Create Shared Memory routine creates (if necessary) and maps aB ! section of memory that can be shared by multiple processes. ! # INTEGER*4 ppl$create_shared_memory" EXTERNAL ppl$create_shared_memory ! PPL$CREATE_WORK_QUEUE !  ! Create a Work Queue ! P ! The Create a Work Queue routine creates and initializes a work queue, and) ! returns the work queue identifier. !  INTEGER*4 ppl$create_work_queue EXTERNAL ppl$create_work_queue ! PPL$CREATE_SEMAPHORE !  ! Create a Semaphore ! ? ! The Create a Semaphore routine creates and initializes aL ! semaphore with a waiting queue, and returns the semaphore identifier.I ! You use the semaphore identifier to perform all operations on that ! semaphore. !  INTEGER*4 ppl$create_semaphore EXTERNAL ppl$create_semaphore ! PPL$CREATE_VM_ZONE ! ' !  Create a New Virtual Memory Zone ! I ! The Create a New Virtual Memory Zone routine creates a new storageH ! zone, according to specified arguments, which is available to all' ! participants in the application. !  INTEGER*4 ppl$create_vm_zone EXTERNAL ppl$create_vm_zone ! PPL$DELETE_APPLICATION ! ! Delete a PPL$ Application ! H ! The Delete a PPL$ Application routine marks all shared memory forO ! deletion and prevents additional processes from joining the application. ! ! INTEGER*4 ppl$delete_application EXTERNAL ppl$delete_application ! PPL$DECREMENT_SEMAPHORE !  ! Decrement a Semaphore ! H ! The Decrement a Semaphore routine waits for a semaphore to have a6 ! value greater than 0, then decrements the value5 ! by 1 to indicate the allocation of a resource. ! " INTEGER*4 ppl$decrement_semaphore! EXTERNAL ppl$decrement_semaphore ! PPL$DISABLE_EVENT ! 4 ! Disable Asynchronous Notification of an Event ! W ! The Disable Asynchronous Notification of an Event routine disables delivery to aC ! process of notification of an event by either AST or signal. !  INTEGER*4 ppl$disable_event EXTERNAL ppl$disable_event ! PPL$DELETE_WORK_ITEM !  ! Delete a Work Queue Item ! K ! The Delete a Work Queue Item routine deletes a work item from a work ! queue.  !  INTEGER*4 ppl$delete_work_item EXTERNAL ppl$delete_work_item ! PPL$DELETE_SHARED_MEMORY !  ! Delete Shared Memory ! G ! The Delete Shared Memory routine deletes or unmaps from a globalK ! section that you created using the PPL$CREATE_SHARED_MEMORY routine.L ! Optionally, this routine writes the contents of the global section to( ! disk before deleting the section. ! # INTEGER*4 ppl$delete_shared_memory" EXTERNAL ppl$delete_shared_memory ! PPL$DELETE_WORK_QUEUE !  ! Delete a Work Queue ! U ! The Delete a Work Queue routine deletes the specified work queue, and releases& ! any storage associated with it. ! INTEGER*4 ppl$delete_work_queue EXTERNAL ppl$delete_work_queue ! PPL$ENABLE_EVENT_AST ! * ! Enable AST Notification of an Event ! O ! The Enable AST Notification of an Event routine specifies the address ofR ! an AST routine (and optionally an argument to that routine) to be delivered ! when an event occurs. !  INTEGER*4 ppl$enable_event_ast EXTERNAL ppl$enable_event_ast ! PPL$ENABLE_EVENT_SIGNAL ! - ! Enable Signal Notification of an Event ! E ! The Enable Signal Notification of an Event routine specifies a< ! condition value to be signaled when the event occurs. ! " INTEGER*4 ppl$enable_event_signal! EXTERNAL ppl$enable_event_signal ! PPL$FLUSH_SHARED_MEMORY !  ! Flush Shared Memory ! L ! The Flush Shared Memory routine writes (flushes) to disk the contentsN ! of a global section that you created using the PPL$CREATE_SHARED_MEMORYG ! routine. Only pages that have been modified are flushed to disk. ! " INTEGER*4 ppl$flush_shared_memory! EXTERNAL ppl$flush_shared_memory ! PPL$FIND_OBJECT_ID ! ! ! Find Object Identification ! L ! Given the name of a spin lock, semaphore, barrier, event, work queue,L ! or shared memory zone, the Find Object Identification routine returnsJ ! the identifier of the object associated with the name you specify.  !  INTEGER*4 ppl$find_object_id EXTERNAL ppl$find_object_id ! PPL$FIND_SYNCH_ELEMENT_ID ! ! Find  ! G ! Given the name of a spin lock, semaphore, barrier, or event, theF ! Find Synchronization Element Identification routine returns the< ! identifier of the associated synchronization element. ! $ INTEGER*4 ppl$find_synch_element_id# EXTERNAL ppl$find_synch_element_id ! PPL$GET_INDEX ! ! ! Get Index of a Participant ! M ! The Get Index of a Participant routine returns an index that is uniqueM ! within the application. A value of zero signifies the participant thatH ! formed the application. The other participants in the application1 ! always return an index greater than zero.  !  INTEGER*4 ppl$get_index EXTERNAL ppl$get_index ! PPL$INSERT_WORK_ITEM !  ! Insert a Work Queue Item ! W ! The Insert a Work Queue Item routine inserts a work item into the specified work ! queue.  !  INTEGER*4 ppl$insert_work_item EXTERNAL ppl$insert_work_item ! PPL$INCREMENT_SEMAPHORE !  ! Increment a Semaphore ! N ! The Increment a Semaphore routine increments the value of the semaphoreI ! by 1, analogous to the signal protocol. If any other participantsK ! are b locked on a call to PPL$DECREMENT_SEMAPHORE for this semaphore,2 ! one is removed from the queue and awakened.D ! The semaphore must have been created by PPL$CREATE_SEMAPHORE. ! " INTEGER*4 ppl$increment_semaphore! EXTERNAL ppl$increment_semaphore ! PPL$INDEX_TO_PID ! + ! Convert Participant Index to VMS PID ! K ! The Convert Participant Index to VMS PID routine returns the VMS PID: ! of the process associated with the specified index. !   INTEGER*4 ppl$index_to_pid EXTERNAL ppl$index_to_pid ! PPL$INITIALIZE ! # ! Initialize the PPL$ Facility ! R ! The Initialize the PPL$ Facility routine informs the PPL$ facility that theK ! caller is forming or joining the parallel application. Calling thisB ! routine is optional, because PPL$ initializes itself at the$ ! first call to a PPL$ routine. !  INTEGER*4 ppl$initialize EXTERNAL ppl$initialize ! PPL$PID_TO_INDEX !  + ! Convert VMS PID to Participant Index ! P ! The Convert VMS PID to Participant Index routine returns the PPL$-defined< ! participant index of the process associated with the  ! specified VMS PID. !  INTEGER*4 ppl$pid_to_index EXTERNAL ppl$pid_to_index ! PPL$READ_BARRIER !  ! Read a Barrier ! T ! The Read a Barrier routine returns the specified barrier's current quorum andR ! the number of participants currently waiting (blocked) at the barrier. The= ! barrier must have been created by PPL$CREATE_BARRIER.  !  INTEGER*4 ppl$read_barrier EXTERNAL ppl$read_barrier ! PPL$READ_EVENT !  ! Read an Event State ! R ! The Read an Event State routine returns the current state of the specified ! event.6 ! The state can be not_occurred or not_occurred. !  INTEGER*4 ppl$read_event EXTERNAL ppl$read_event ! PPL$READ_SEMAPHORE !  ! Read Semaphore Values ! ? ! The Read Semaphore Values routine returns the current orD ! maximum values, or both, of the specified counting semaphore./ ! The semaphore must have been created by  ! PPL$CREATE_SEMAPHORE. !  INTEGER*4 ppl$read_semaphore EXTERNAL ppl$read_semaphore ! PPL$RELEASE_SPIN_LOCK !  ! Release Spin Lock ! O ! The Release Spin Lock routine relinquishes the spin lock by clearing theE ! bit representing the lock. The lock must have been created by  ! PPL$CREATE_SPIN_LOCK. ! INTEGER*4 ppl$release_spin_lock EXTERNAL ppl$release_spin_lock ! PPL$RESET_EVENT !  ! Reset an Event ! < ! The Reset an Event routine resets an event's state to ! not_occurred.  !  INTEGER*4 ppl$reset_event EXTERNAL ppl$reset_event ! PPL$REMOVE_WORK_ITEM !  ! Remove a Work Queue Item ! V ! The Remove a Work Queue Item routine removes the next item in order from a work ! queue.  !  INTEGER*4 ppl$remove_work_item EXTERNAL ppl$remove_work_item ! PPL$READ_SPIN_LOCK !  ! Read a Spin Lock State ! M ! The Read a Spin Lock State routine returns the current state of a spin9 ! lock. The state can be not_seized or not_seized.  !  INTEGER*4 ppl$read_spin_lock EXTERNAL ppl$read_spin_lock ! PPL$READ_WORK_QUEUE !  ! Read a Work Queue ! L ! The Read a Work Queue routine returns information about a work queue. !  INTEGER*4 ppl$read_work_queue EXTERNAL ppl$read_work_queue ! PPL$SET_SEMAPHORE_MAXIMUM !  ! Set a Semaphore Maximum ! R ! The Set a Semaphore Maximum routine dynamically sets the maximum value of a ! semaphore. ! $ INTEGER*4 ppl$set_semaphore_maximum# EXTERNAL ppl$set_semaphore_maximum ! PPL$SPAWN ! " ! Initiate Parallel Execution ! H ! The Initiate Parallel Execution routine executes code in parallelO ! with the caller by creating one or more subordinate threads of execution ! (VMS subprocesses). !  INTEGER*4 ppl$spawn EXTERNAL ppl$spawn ! PPL$SET_QUORUM !  ! Set Barrier Quorum ! F ! The Set Barrier Quorum routine dynamically sets a value for the$ ! specified barrier's quorum.  !  INTEGER*4 ppl$set_quorum EXTERNAL ppl$set_quorum ! PPL$STOP !  ! Stop a Participant ! O ! The Stop a Participant routine terminates the execution of the specified' ! participant in this application. !  INTEGER*4 ppl$stop EXTERNAL ppl$stop ! PPL$SEIZE_SPIN_LOCK !  ! Seize Spin Lock ! Q ! The Seize Spin Lock routine retrieves a simple (spin) lock by waiting in aK ! spin loop until the lock is free. The lock must have been created by# ! PPL$CREATE_SPIN_LOCK./*  !  INTEGER*4 ppl$seize_spin_lock EXTERNAL ppl$seize_spin_lock ! PPL$TERMINATE !  ! Abort PPL$ Participation ! = ! The Abort PPL$ Participation routine ends the caller'sK ! participation in the application prematurely---that is, at some time: ! before the caller actually completes its execution. !  INTEGER*4 ppl$terminate EXTERNAL ppl$terminate ! PPL$TRIGGER_EVENT !  ! Trigger an Event ! F ! The Trigger an Event routine causes the e vent's state to become= ! occurred. You control whether all pending actions forI ! the event are processed (made to occur), or just one is processed.I ! A pending action can be an AST, a signal (condition), or a wakeup. !  INTEGER*4 ppl$trigger_event EXTERNAL ppl$trigger_event ! PPL$UNIQUE_NAME !  ! Produce a Unique Name ! L ! The Produce a Unique Name routine returns an application-unique name.M ! A system-unique string specific to the calling application is appended+ ! to the string specified by the user.> ! The resulting name is identical for all participants inS ! the application, but different from those for all other applications on that ! system. !  INTEGER*4 ppl$unique_name EXTERNAL ppl$unique_name ! PPL$WAIT_AT_BARRIER !  ! Synchronize at a Barrier ! @ ! The Synchronize at a Barrier routine causes the caller to% ! wait at the specified barrier.I !  The barrier is in effect from the time the first participant calls3 ! PPL$WAIT_AT_BARRIER until each member of theH ! quorum has issued the call. At that time, the wait concludes and. ! all are released for further execution. !  INTEGER*4 ppl$wait_at_barrier EXTERNAL ppl$wait_at_barrier!DEC$ END OPTIONSww;dΦ! ********************************************************************************************************************************;! Creat ed: 30-AUG-2007 11:29:56 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:29:56 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]PSM$ROUTINES.SDI;1 ! ******************************************************************************************************************************** &!*** MODULE PSM$ROUTINES IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! . ! Print Symbiont Modification (PSM) Routines !  ! 2 ! PSM$PRINT - Invoke VMS-Supplied Print Symbiont ! 7 ! status = PSM$PRINT ([streams], [bufsiz], [worksiz]) ! 3 ! streams - Maximum number of streams to supportA ! bufsiz - Maximum buffer size in bytes for output operations9 ! worksiz - Size in bytes of work area to be allocated !  INTEGER*4 PSM$PRINT EXTERNAL PSM$PRINT ! 4 ! PSM$READ_ITEM_DX - Obtain Value of Message Items ! 8 ! status = PSM$READ_ITEM_DX (request_id, item, buffer) ! M ! request_id - Request identifier supplied by the symbiont to user routineC ! item - Item code identifying message item to be returned4 ! buffer - Buffer into which data is returned !  INTEGER*4 PSM$READ_ITEM_DX EXTERNAL PSM$READ_ITEM_DX ! . ! PSM$REPLACE - Declare User Service Routine ! ( ! status = PSM$REPLACE (code, routine) ! ? ! code - Code identifying symbiont routine to be replaced7 ! routine - User routine to replace symbiont routine !  INTEGER*4 PSM$REPLACE EXTERNAL PSM$REPLACE ! ) ! PSM$REPORT - Report Completion Status ! / ! status = PSM$REPORT (request_id [, status]) ! M ! request_id - Request identifier supplied by the symbiont to user routineG ! status - Completion status of asynchronous operation completed !  INTEGER*4 PSM$REPORT EXTERNAL PSM$REPORT!DEC$ END OPTIONSwwWΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:30:03 by Open VMS SDL IA64-2 ^! Source: 30-AUG-2007 11:30:02 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]SMB$ROUTINES.SDI;1 ! ******************************************************************************************************************************** &!*** MODULE SMB$ROUTINES IDENT X-1 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! 4 ! Symbiont/Job Controller Interface (SMB) Routines !  ! A ! SMB$CHECK_FOR_MESSAGE - Check for Message from Job Controller ! % ! status = SMB$CHECK_FOR_MESSAGE () ! INTEGER*4 SMB$CHECK_FOR_MESSAGE EXTERNAL SMB$CHECK_FOR_MESSAGE ! 5 ! SMB$INITIALIZE - Initialize User-Written Symbiont ! G ! status = SMB$INITIALIZE (structure_level [,ast_routine] [,streams]) ! G ! structure_level - Version of the job-controller/symbiont interface3 ! ast_routine - Message-handling AST routine; ! streams - Maximum number of streams to support !  INTEGER*4 SMB$INITIALIZE EXTERNAL SMB$INITIALIZE ! < ! SMB$READ_MESSAGE - Obtain Message Sent by Job Controller ! 7 ! status = SMB$READ_MESSAGE (stream, buffer, request) ! ( ! stream - Stream number for message3 ! buffer - Buffer into which message is written/ ! request - Code that identifies the request !  INTEGER*4 SMB$READ_MESSAGE EXTERNAL SMB$READ_MESSAGE ! ? ! SMB$READ_MESSAGE_ITEM - Parse Next Item from Message Buffer ! G ! status = SMB$READ_MESSAGE_ITEM (message, context, item_code, buffer- !  [, size]) ! & ! message - Message items to read ! context - Context value* ! item_code - Item code of message read ! buffer - Message item% ! size - Size of message item ! INTEGER*4 SMB$READ_MESSAGE_ITEM EXTERNAL SMB$READ_MESSAGE_ITEM ! 7 ! SMB$SEND_TO_JOBCTL - Send Message to Job Controller ! @ ! status = SMB$SEND_TO_JOBCTL (stream [,request] [,accounting]6 ! [,checkpoint] [,device_status] [,error]) ! = ! stream - Number of stream to which message refers= ! request - Code identifying request being completed8 ! accounting - Accounting information about a task7 ! checkpoint - Checkpoint data about current task< ! device_status - Status of device served by the symbiontB ! error - Condition code returned by the requested task !  INTEGER*4 SMB$SEND_TO_JOBCTL EXTERNAL SMB$SEND_TO_JOBCTL!DEC$ END OPTIONSwwቒΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:30:03 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:30:03 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]SMG$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE smg$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! ***** ********************************************************************** ! *+ ! COPYRIGHT (c) 1992, 1995 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N !  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS  *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *N ! *************************************************************************** ! SMG$ADD_KEY_DEF !  ! Add Key Definition ! G ! The Add Key Definition routine adds a keypad key definition to a ! table of key definitions. !  !  INTEGER*4 smg$add_key_def EXTERNAL smg$add_key_def ! SMG$ALLOW_ESCAPE !  ! Allow Escape Sequences ! K ! SMG$ALLOW_ESCAPE enables or disables SMG parsing of escape sequences- ! which are output to a virtual display. ! . !  INTEGER*4 smg$allow_escape EXTERNAL smg$allow_escape ! SMG$BEGIN_DISPLAY_UPDATE ! ( ! Begin Batching of Display Updates ! K ! The Begin Batching of Display Updates routine saves, or batches, all; ! output to a virtual display until a matching call to- ! SMG$END_DISPLAY_UPDATE is encountered. !  ! # INTEGER*4 smg$begin_display_update" EXTERNAL smg$begin_display_update" ! SMG$BEGIN_PASTEBOARD_UPDATE ! + ! Begin Batching of Pasteboard Updates ! A ! The Begin Batching of Pasteboard Updates routine saves, orC ! batches, all output to a pasteboard until a matching call to0 ! SMG$END_PASTEBOARD_UPDATE is encountered. ! . ! & INTEGER*4 smg$begin_pasteboard_update% EXTERNAL smg$begin_pasteboard_update ! SMG$CANCEL_INPUT !  ! Cancel Input Request ! ? ! The Cancel Input Request routine immediately cancels anyB ! read-in-progress that was issued by SMG$READ_COMPOSED_LINE,? ! SMG$READ_KEYSTROKE, SMG$READ_STRING, or SMG$READ_VERIFY. !  !  INTEGER*4 smg$cancel_input EXTERNAL smg$cancel_input% ! SMG$CHANGE_PBD_CHARACTERISTICS ! ( ! Change Pasteboard Characteristics ! H ! The Change Pasteboard Characteristics routine lets you change the4 ! characteristics associated with a pasteboard. ! ) INTEGER*4 smg$change_pbd_characteristics( EXTERNAL smg$change_pbd_characteristics ! SMG$CHANGE_RENDITION !  ! Change Default Rendition ! H ! The Change Default Rendition routine changes the video attributes, ! for all or part of a virtual display. !  !  INTEGER*4 smg$change_rendition EXTERNAL smg$change_rendition ! SMG$CHANGE_VIEWPORT !  ! Change the Viewport ! H ! The Change the Viewport Associated with a Virtual Display routineI ! changes the size of an existing viewport in a virtual display. TheH ! text that is currently in the viewport is remapped to fit the new ! dimensions. !  INTEGER*4 smg$change_viewport EXTERNAL smg$change_viewport! ! SMG$CHANGE_VIRTUAL_DISPLAY !  ! Change Virtual Display ! I ! The Change Virtual Display routine lets you change the dimensions,9 ! border, and video attributes of a virtual display.. ! % INTEGER*4 smg$change_virtual_display$ EXTERNAL smg$change_virtual_display ! SMG$CHECK_FOR_OCCLUSION !  ! Check for Occlusion ! F ! The Check for Occlusion routine checks to see whether a virtual@ ! display is covered (occluded) by another virtual display. ! " INTEGER*4 smg$check_for_occlusion! EXTERNAL smg$check_for_occlusion ! SMG$CONTROL_MODE !  ! Control Mode ! I ! The Control Mode routine controls the mode of the pasteboard. ThisJ ! includes buffering, minimal updating, whether the screen is clearedJ ! when the pasteboard is deleted, and whether tab characters are used ! for screen formatting. !  INTEGER*4 smg$control_mode EXTERNAL smg$control_mode ! SMG$COPY_VIRTUAL_DISPLAY !  ! Copy a Virtual Display ! G ! The Copy a Virtual Display routine creates a copy of an existingJ ! virtual display and assigns to it a new virtual display identifier. ! # INTEGER*4 smg$copy_virtual_display" EXTERNAL smg$copy_virtual_display ! SMG$CREATE_KEY_TABLE !  ! Create Key Table ! H ! The Create Key Table routine creates a table for key definitions. !  INTEGER*4 smg$create_key_table EXTERNAL smg$create_key_table ! SMG$CREATE_MENU ! + ! Fill the Virtual Display with a Menu ! E ! The Fill the Virtual Display with a Menu routine displays menu !  choicesG ! in the virtual display indicated, starting at the specified row. !  INTEGER*4 smg$create_menu EXTERNAL smg$create_menu ! SMG$CREATE_PASTEBOARD !  ! Create a Pasteboard ! R ! The Create Pasteboard routine creates a pasteboard and returns its assigned ! pasteboard identifier. ! INTEGER*4 smg$create_pasteboard EXTERNAL smg$create_pasteboard ! SMG$CREATE_SUBPROCESS ! ) ! Create and Initialize a Subprocess ! C ! The Create and Initialize a Subprocess routine creates a DCL; ! subprocess and associates it with a virtual display. ! INTEGER*4 smg$create_subprocess EXTERNAL smg$create_subprocess ! SMG$CREATE_VIEWPORT ! ! Create a Virtual Viewport ! C ! The Create a Virtual Viewport routine creates a viewport andI ! associates it with a virtual display. The location and size of the, ! viewport are specified by the caller. !  INTEGER*4 smg$create_viewport EXTERNAL smg$create_viewport! ! SMG$CREATE_VIRTUAL_DISPLAY !  ! Create a Virtual Display ! G ! The Create Virtual Display routine creates a virtual display and ! returns# ! assigned display identifier. ! % INTEGER*4 smg$create_virtual_display$ EXTERNAL smg$create_virtual_display" ! SMG$CREATE_VIRTUAL_KEYBOARD !  ! Create Virtual Keyboard ! I ! The Create Virtual Keyboard routine creates a virtual keyboard and0 ! returns its assigned keyboard identifier. ! & INTEGER*4 smg$create_virtual_keyboard% EXTERNAL smg$create_virtual_keyboard ! SMG$CURSOR_COLUMN ! $ ! Return Cursor Column Position ! D ! The Return Cursor Column Position routine returns the virtual ! cursor's> ! current column position in a specified virtual display. !  INTEGER*4 smg$cursor_column EXTERNAL smg$cursor_column ! SMG$CURSOR_ROW ! ! ! Return Cursor Row Position ! J ! The Return Cursor Row Position routine returns the virtual cursor's; ! current row position in a specified virtual display. !  INTEGER*4 smg$cursor_row EXTERNAL smg$cursor_row ! SMG$DEFINE_KEY ! # ! Perform a DEFINE/KEY Command ! G ! The Perform a DEFINE/KEY Command routine performs the DEFINE/KEY ! command you provide.* !  INTEGER*4 smg$define_key EXTERNAL smg$define_key ! SMG$DELETE_CHARS !  ! Delete Characters ! D ! The Delete Characters routine deletes characters in a virtual ! display.. !  INTEGER*4 smg$delete_chars EXTERNAL smg$delete_chars ! SMG$DELETE_KEY_DEF !  ! Delete Key Definition ! J ! The Delete Key Definition routine deletes a key definition from the* ! specified table of key definitions.* !  INTEGER*4 smg$delete_key_def EXTERNAL smg$delete_key_def ! SMG$DELETE_LINE !  ! Delete Line ! D ! The Delete Line routine deletes lines from a virtual display.* !  INTEGER*4 smg$delete_line EXTERNAL smg$delete_line ! SMG$DELETE_MENU ! 2 ! End Access to a Menu in the Virtual Display ! J ! The End Access to a Menu in the Virtual Display routine ends access< ! to the menu choices in the specified virtual display. !  INTEGER*4 smg$delete_menu EXTERNAL smg$delete_menu ! SMG$DELETE_PASTEBOARD !  ! Delete Pasteboard ! : ! The Delete Pasteboard routine deletes a pasteboard.* ! INTEGER*4 smg$delete_pasteboard EXTERNAL smg$delete_pasteboard ! SMG$DELETE_SUBPROCESS !  ! Terminate a Subprocess ! G ! The Terminate a Subprocess routine deletes a subprocess that was6 ! created with the SMG$CREATE_SUBPROCESS routine. ! INTEGER*4 smg$delete_subprocess EXTERNAL smg$delete_subprocess ! SMG$DELETE_VIEWPORT !  ! Delete a Viewport ! H ! The Delete a Viewport routine deletes the specified viewport from- ! any pasteboards to which it is pasted.* !  INTEGER*4 smg$delete_viewport EXTERNAL smg$delete_viewport! ! SMG$DELETE_VIRTUAL_DISPLAY !  ! Delete Virtual Display ! D ! The Delete Virtual Display routine deletes a virtual display.* !  % INTEGER*4 smg$delete_virtual_display$ EXTERNAL smg$delete_virtual_display" ! SMG$DELETE_VIRTUAL_KEYBOARD !  ! Delete Virtual Keyboard ! F ! The Delete Virtual Keyboard routine deletes a virtual keyboard.* ! & INTEGER*4 smg$delete_virtual_keyboard% EXTERNAL smg$delete_virtual_keyboard ! SMG$DEL_TERM_TABLE !  ! Delete Terminal Table ! G ! The Delete Terminal Table routine terminates access to a private !  TERMTABL6 ! and frees the associated virtual address space. !  INTEGER*4 smg$del_term_table EXTERNAL smg$del_term_table) INTEGER*4 smg$disable_broadcast_trapping( EXTERNAL smg$disable_broadcast_trapping$ ! SMG$DISABLE_UNSOLICITED_INPUT ! ! Disable Unsolicited Input ! E ! The Disable Unsolicited Input routine disables the trapping of ! unsolicited input.* ! ( INTEGER*4 smg$disable_unsolicited_input' EXTERNAL smg$disable_unsolicited_input ! SMG$DRAW_CHAR ! , ! Draw a Character in a Virtual Display ! J ! The Draw a Character in a Virtual Display routine draws a character ! at3 ! the specified position in a virtual display.. !  INTEGER*4 smg$draw_char EXTERNAL smg$draw_char ! SMG$DRAW_LINE !  ! Draw a Line ! C ! The Draw a Line routine draws a horizontal or vertical line.* !   INTEGER*4 smg$draw_line EXTERNAL smg$draw_line ! SMG$DRAW_RECTANGLE !  ! Draw a Rectangle ! 6 ! The Draw a Rectangle routine draws a rectangle. !  INTEGER*4 smg$draw_rectangle EXTERNAL smg$draw_rectangle# ! SMG$ENABLE_UNSOLICITED_INPUT !  ! Enable Unsolicited Input ! I ! The Enable Unsolicited Input routine detects unsolicited input and( ! calls an AST routine in response.* ! ' INTEGER*4 smg$enable_unsolicited_input& EXTERNAL smg$enable_unsolicited_input ! SMG$END_DISPLAY_UPDATE !  ! End Display Update ! H ! The End Display Update routine ends update batching for a virtual ! display. ! ! INTEGER*4 smg$end_display_update EXTERNAL smg$end_display_update ! SMG$END_PASTEBOARD_UPDATE !  ! End Pasteboard Update ! C ! The End Pasteboard Update routine ends update batching for a ! pasteboard. ! $ INTEGER*4 smg$end_pasteboard_update# EXTERNAL smg$end_pasteboard_update ! SMG$ERASE_CHARS !  ! Erase Characters ! J ! The Erase Characters routine erases characters in a virtual display ! by" ! replacing them with blanks. !  INTEGER*4 smg$erase_chars EXTERNAL smg$erase_chars ! SMG$ERASE_COLUMN ! ! Erase Column from Display ! I ! The Erase Column From Display routine erases the specified portionG ! of the virtual display from the given position to the end of the ! column. !  INTEGER*4 smg$erase_column EXTERNAL smg$erase_column ! SMG$ERASE_DISPLAY !  ! Erase Virtual Display ! H ! The Erase Virtual Display routine erases all or part of a virtual8 ! display by replacing text characters with blanks. !  INTEGER*4 smg$erase_display EXTERNAL smg$erase_display ! SMG$ERASE_LINE !  ! Erase Line ! G ! The Erase Line routine erases all or part of a line in a virtual ! display.* !  INTEGER*4 smg$erase_line EXTERNAL smg$erase_line ! SMG$ERASE_PASTEBOARD !  ! Erase Pasteboard ! H ! The Erase Pasteboard routine erases the contents of a pasteboard. !  INTEGER*4 smg$erase_pasteboard EXTERNAL smg$erase_pasteboard ! SMG$EXECUTE_COMMAND ! & ! Execute Command in a Subprocess ! I ! The Execute Command in a Subprocess routine executes the specifiedG ! command in the subprocess created with the SMG$CREATE_SUBPROCESS ! routine. !  INTEGER*4 smg$execute_command EXTERNAL smg$execute_command ! SMG$FIND_CURSOR_DISPLAY !  ! Find Display ! D ! The Find Display that Contains the Cursor routine returns theK ! identifier of the most recently pasted virtual display that contains ! the physical cursor.* ! " INTEGER*4 smg$find_cursor_display! EXTERNAL smg$find_cursor_display ! SMG$FLUSH_BUFFER !  ! Flush Buffer ! B ! The Flush Buffer routine flushes all buffered output to the ! terminal. !  INTEGER*4 smg$flush_buffer EXTERNAL smg$flush_buffer ! SMG$FLUSH_DISPLAY_UPDATE !  ! Flush Display Update ! J ! The Flush Display Update routine flushes any update batching to the7 ! screen and leaves the update batching in effect. ! # INTEGER*4 smg$flush_display_update" EXTERNAL smg$flush_display_update !  SMG$GET_BROADCAST_MESSAGE !  ! Get Broadcast Message ! I ! The Get Broadcast Message routine determines whether a message has@ ! been broadcast to the pasteboard and returns the message. ! $ INTEGER*4 smg$get_broadcast_message# EXTERNAL smg$get_broadcast_message& ! SMG$GET_CHAR_AT_PHYSICAL_CURSOR ! " ! Return Character at Cursor ! J ! The Return Character at Cursor routine returns the character at the( ! current physical cursor position. ! * INTEGER*4 smg$get_char_at_physical_cursor) EXTERNAL smg$get_char_at_physical_cursor ! SMG$GET_DISPLAY_ATTR !  ! Get Display Attributes ! K ! The Get Display Attributes routine returns the attributes associated ! with a virtual display. !  INTEGER*4 smg$get_display_attr EXTERNAL smg$get_display_attr" ! SMG$GET_KEYBOARD_ATTRIBUTES !  ! Get Keyboard Attributes ! K ! The Get Keyboard Attributes routine gets information about a virtualC ! keyboard and leaves it in a user-supplied area: the keyboard ! information table (KIT).* ! & INTEGER*4 smg$get_keyboard_attributes% EXTERNAL smg$get_keyboard_attributes ! SMG$GET_KEY_DEF !  ! Get Key Definition ! F ! The Get Key Definition routine returns the key definition for a ! specified key. !  INTEGER*4 smg$get_key_def EXTERNAL smg$get_key_def ! SMG$GET_NUMERIC_DATA ! ! Get Numeric Terminal Data ! G ! The Get Numeric Terminal Data routine accesses TERMTABLE.EXE andG ! returns the value associated with a specified Boolean or numeric ! capability. !  INTEGER*4 smg$get_numeric_data EXTERNAL smg$get_numeric_data$ ! SMG$GET_PASTEBOARD_ATTRIBUTES ! ! Get Pasteboard Attributes ! K ! The Get Pasteboard Attributes routine gets pasteboard attributes and7 ! stores them in the pasteboard information table. ! ( INTEGER*4 smg$get_pasteboard_attributes' EXTERNAL smg$get_pasteboard_attributes ! SMG$GET_PASTING_INFO ! ! ! Return Pasting Information ! K ! Provided that the specified virtual display is currently pasted, theK ! Return Pasting Information routine returns the row and column of the ! pasting. !  INTEGER*4 smg$get_pasting_info EXTERNAL smg$get_pasting_info ! SMG$GET_TERM_DATA !  ! Get Terminal Data ! K ! The Get Terminal Data routine accesses TERMTABLE.EXE and returns theG ! character sequence that causes a terminal to perform a specified ! operation. !  INTEGER*4 smg$get_term_data EXTERNAL smg$get_term_data ! SMG$GET_VIEWPORT_CHAR ! . ! Get Characteristics of Display Viewport ! F ! The Get Characteristics of Display Viewport routine returns the1 ! characteristics of the specified viewport. ! INTEGER*4 smg$get_viewport_char EXTERNAL smg$get_viewport_char ! SMG$HOME_CURSOR !  ! Home Cursor ! H ! The Home Cursor routine moves the virtual cursor to the specified# ! corner of a virtual display. !  INTEGER*4 smg$home_cursor EXTERNAL smg$home_cursor ! SMG$INIT_TERM_TABLE ! ! Initialize Terminal Table ! F ! The Initialize Terminal Table routine initializes the TERMTABLEC ! database for the terminal named, so that subsequent calls toH ! SMG$GET_TERM_DATA can extract information and command strings for !  that ! terminal. !  INTEGER*4 smg$init_term_table EXTERNAL smg$init_term_table" ! SMG$INIT_TERM_TABLE_BY_TYPE ! 0 ! Initialize TERMTABLE by VMS Terminal Type ! H ! The Initialize TERMTABLE by VMS Terminal Type routine initializesH ! the TERMTABLE database for the terminal named, so that subsequentE ! calls to SMG$GET_TERM_DATA can extract information and command! ! strings for that terminal. ! & INTEGER*4 smg$init_term_table_by_type% EXTERNAL smg$init_term_table_by_type ! SMG$INSERT_CHARS !  ! Insert Characters ! F ! The Insert Characters routine inserts characters into a virtual ! display. !  INTEGER*4 smg$insert_chars EXTERNAL smg$insert_chars ! SMG$INSERT_LINE !  ! Insert Line ! H ! The Insert Line routine inserts a line into a virtual display and ! scrolls the display.* !  INTEGER*4 smg$insert_line EXTERNAL smg$insert_line ! SMG$INVALIDATE_DISPLAY ! ! Mark a Display as Invalid ! K ! The Mark a Display as Invalid routine marks a display as invalid and/ ! causes the entire display to be redrawn. ! ! INTEGER*4 smg$invalidate_display EXTERNAL smg$invalidate_display ! SMG$KEYCODE_TO_NAME ! + ! Translate a Key Code into a Key Name ! J ! The Translate a Key Code into a Key Name routine translates the key ! code= ! of a key on the keyboard into its associated key name. !  INTEGER*4 smg$keycode_to_name EXTERNAL smg$keycode_to_name ! SMG$LABEL_BORDER ! % ! Label a Virtual Display Border ! H ! The Label a Virtual Display Border routine supplies a label for a ! virtual display's border. !  INTEGER*4 smg$label_border EXTERNAL smg$label_border ! SMG$LIST_KEY_DEFS !  ! List Key Definitions ! C ! The List Key Definitions routine returns, one at a time, theG ! definitions (equivalence strings) associated with specified keys ! in a specified key table. !  INTEGER*4 smg$list_key_defs EXTERNAL smg$list_key_defs ! SMG$LIST_PASTEBOARD_ORDER ! ! ! Return Pasting Information ! D ! The Return Pasting Information routine returns the pasteboardJ ! identifier of the pasteboard to which the specified virtual displayL ! is pasted. Optionally, the pasteboard row 1 and column 1 (origins) of. ! the virtual displays are also returned. ! $ I NTEGER*4 smg$list_pasteboard_order# EXTERNAL smg$list_pasteboard_order ! SMG$LIST_PASTING_ORDER ! 1 ! Return Virtual Display Pasting Information ! I ! The Return Virtual Display Pasting Information routine returns the@ ! identifiers of the virtual displays pasted to a specified@ ! pasteboard. Optionally, the pasteboard row 1 and column= ! 1 (origins) of the virtual displays are also returned. ! ! INTEGER*4 smg$list_pasting_order EXTERNAL smg$list_pasting_order ! SMG$LOAD_KEY_DEFS !  ! Load Key Definitions ! ; ! The Load Key Definitions routine loads a file of key ! definitions8 ! (DEFINE/KEY commands) into a specified key table. !  INTEGER*4 smg$load_key_defs EXTERNAL smg$load_key_defs ! SMG$LOAD_VIRTUAL_DISPLAY !  ! Load a Virtual Display ! K ! The Load a Virtual Display from a File routine creates a new virtual= ! display and loads it with a virtual display saved with  ! SMG$SAVE_VIRTUAL_DISPLAY. ! # INTEGER*4 smg$load_virtual_display" EXTERNAL smg$load_virtual_display ! SMG$MOVE_TEXT ! 4 ! Move Text from One Virtual Display to Another ! H ! The Move Text from One Virtual Display to Another routine moves aM ! rectangle of text from one virtual display to another virtual display.K ! Given two points in opposite corners of the rectangle, SMG$MOVE_TEXTJ ! determines the desired width and height of the new virtual display. !  INTEGER*4 smg$move_text EXTERNAL smg$move_text ! SMG$MOVE_VIRTUAL_DISPLAY !  ! Move Virtual Display ! H ! The Move Virtual Display routine relocates a virtual display on a2 ! pasteboard and preserves the pasting order. ! # INTEGER*4 smg$move_virtual_display" EXTERNAL smg$move_virtual_display ! SMG$NAME_TO_KEYCODE ! + ! Translate a Key Name into a Key Code ! J ! The Translate a Key Name into a Key Code routine translates the keyB ! name of a key on the keyboard into its associated key code. !  INTEGER*4 smg$name_to_keycode EXTERNAL smg$name_to_keycode ! SMG$PASTE_VIRTUAL_DISPLAY !  ! Paste Virtual Display ! F ! The Paste Virtual Display routine pastes a virtual display to a ! pasteboard. ! $ INTEGER*4 smg$paste_virtual_display# EXTERNAL smg$paste_virtual_display ! SMG$POP_VIRTUAL_DISPLAY ! * ! Delete a Series of Virtual Displays ! J ! The Delete a Series of Virtual Displays routine deletes a specifiedI ! virtual display and all displays that were pasted on the specified: ! pasteboard on top of the specified virtual display. ! " INTEGER*4 smg$pop_virtual_display! EXTERNAL smg$pop_virtual_display ! SMG$PRINT_PASTEBOARD ! + ! Print Pasteboard Using a Print Queue ! K ! The Print Pasteboard Using a Print Queue routine prints the contents5 ! of the specified pasteboard on a line printer. !  INTEGER*4 smg$print_pasteboard EXTERNAL smg$print_pasteboard ! SMG$PRINT_PASTEBOARD ! + ! Print Pasteboard Using a Print Queue ! K ! The Print Pasteboard Using a Print Queue routine prints the contents5 ! of the specified pasteboard on a line printer. !  INTEGER*4 smg$put_chars EXTERNAL smg$put_chars ! SMG$PUT_CHARS_HIGHWIDE ! 2 ! Write Double-Height Double-Width Characters ! E ! The Write Double-Height Double-Width Characters routine writesC !  double-height, double-width characters to a virtual display. ! ! INTEGER*4 smg$put_chars_highwide EXTERNAL smg$put_chars_highwide ! SMG$PUT_CHARS_MULTI ! 3 ! Put Text with Multiple Renditions to Display ! K ! The Put Text with Multiple Renditions to Display routine writes text ! with2 ! multiple renditions to the virtual display. !  INTEGER*4 smg$put_chars_multi EXTERNAL smg$put_chars_multi ! SMG$PUT_CHARS_WIDE ! $ ! Write Double-Width Characters ! D ! The Write Double-Width Characters routine writes double-width' ! characters to a virtual display. !  INTEGER*4 smg$put_chars_wide EXTERNAL smg$put_chars_wide ! SMG$PUT_HELP_TEXT ! & ! Output Help Text to the Display ! H ! The Output Help Text to the Display routine retrieves and outputsM ! the help text for the specified topic in the virtual display provided. !  INTEGER*4 smg$put_help_text EXTERNAL smg$put_help_text ! SMG$PUT_LINE ! $ ! Write Line to Virtual Display ! K ! The Write Line to Virtual Display routine writes a line of text to aI ! virtual display, beginning at the current virtual cursor position. !  INTEGER*4 smg$put_line EXTERNAL smg$put_line ! SMG$PUT_LINE_HIGHWIDE ! 0 ! Write Double-Height and Double-Width Line ! J ! The Write Double-Height and Double-Width Line routine writes a line ! of; ! text with double-height and double-width characters. ! INTEGER*4 smg$put_line_highwide EXTERNAL smg$put_line_highwide ! SMG$PUT_LINE_MULTI ! 5 ! Write Line with Multiple Renditions to Display ! A ! The Write Line with Multiple Renditions to Display routineD ! writes lines with multiple renditions to the virtual display,8 ! optionally followed by cursor movement sequences. !  INTEGER*4 smg$put_line_multi EXTERNAL smg$put_line_multi ! SMG$PUT_LINE_WIDE !  ! Write Double-Width Line ! H ! The Write Double-Width Line routine writes a line of double-width ! text ! to a virtual display. !  INTEGER*4 smg$put_line_wide EXTERNAL smg$put_line_wide ! SMG$PUT_PASTEBOARD ! & ! Output Pasteboard Using Routine ! K ! The Output Pasteboard Using Routine routine accesses the contents of ! a pasteboard. !  INTEGER*4 smg$put_pasteboard EXTERNAL smg$put_pasteboard ! SMG$PUT_STATUS_LINE ! 2 ! Output Line of Text to Hardware Status Line ! H ! The Output Line of Text to Hardware Status Line routine outputs a ! line+ ! of text to the hardware status line. !  INTEGER*4 smg$put_status_line EXTERNAL smg$put_status_line& ! SMG$PUT_VIRTUAL_DISPLAY_ENCODED ! & ! Write Encoded String To Display ! G ! SMG$PUT_VIRTUAL_DISPLAY_ENCODED lets you write a string that has6 ! multiple video renditions to a virtual display. ! * INTEGER*4 smg$put_virtual_display_encoded) EXTERNAL smg$put_virtual_display_encoded ! SMG$PUT_WITH_SCROLL !  ! Write Text and Scroll ! I ! SMG$PUT_WITH_SCROLL writes a line of text to a virtual display and( ! scrolls the display if necessary. !  INTEGER*4 smg$put_with_scroll EXTERNAL smg$put_with_scroll ! SMG$READ_COMPOSED_LINE !  ! Read Composed Line ! G ! The Read Composed Line routine reads a line of input composed of1 ! normal keystrokes and equivalence strings. ! ! INTEGER*4 smg$read_composed_line EXTERNAL smg$read_composed_line ! SMG$READ_FROM_DISPLAY !  ! Read Text from Display ! V ! The Read Text from Display routine reads a line of text from a virtual display. ! INTEGER*4 smg$read_from_display EXTERNAL smg$read_from_display ! SMG$READ_KEYSTROKE !  ! Read a Single Character ! H ! The Read a Single Character routine reads a keystroke and returns( ! that keystroke's terminator code. !  INTEGER*4 smg$read_keystroke EXTERNAL smg$read_keystroke ! SMG$READ_LOCATOR !  ! Read Locator Information ! C ! The Read Locator Information routine reads information from N ! a DECwindows workstation terminal's locator device (such as a mouse or  ! tablet). !  INTEGER*4 smg$read_locator EXTERNAL smg$read_locator ! SMG$READ_STRING !  ! Read String ! F ! The Read String routine reads a string from a virtual keyboard. * !  INTEGER*4 smg$read_string EXTERNAL smg$read_string ! SMG$READ_VERIFY !  ! Read and Verify a String ! J ! The Read and Verify a String routine reads a sequence of characters! ! and verifies the sequence. !  INTEGER*4 smg$read_verify EXTERNAL smg$read_verify ! SMG$REMOVE_LINE ! + ! Remove a Line from a Virtual Display ! K ! The Remove a Line from a Virtual Display routine removes a  line fromK ! a specified virtual display that was drawn with the SMG$DRAW_LINE or# ! SMG$DRAW_RECTANGLE routines. !  INTEGER*4 smg$remove_line EXTERNAL smg$remove_line ! SMG$REPAINT_LINE ! : ! Repaint One or More Lines on the Current Pasteboard ! F ! The Repaint One or More Lines on the Current Pasteboard routine< ! repaints a series of lines on the current pasteboard. !  INTEGER*4 smg$repaint_line EXTERNAL smg$repaint_line ! SMG$REPAINT_S CREEN ! ! ! Repaint Current Pasteboard ! D ! The Repaint Current Pasteboard routine repaints the specified ! pasteboard after! ! non-SMG$ I/O has occurred. !  INTEGER*4 smg$repaint_screen EXTERNAL smg$repaint_screen" ! SMG$REPASTE_VIRTUAL_DISPLAY !  ! Repaste Virtual Display ! K ! The Repaste Virtual Display routine moves a virtual display to a newF ! position on the pasteboard. The pasting order is not preserved. ! & INTEGER*4 smg $repaste_virtual_display% EXTERNAL smg$repaste_virtual_display ! SMG$REPLACE_INPUT_LINE !  ! Replace Input Line ! I ! The Replace Input Line routine replaces the specified lines in the/ ! recall buffer with the specified string. !  ! ! INTEGER*4 smg$replace_input_line EXTERNAL smg$replace_input_line" ! SMG$RESTORE_PHYSICAL_SCREEN ! " ! Restore Physical Pasteboard ! F ! The Restore Physical Pasteboard routine rewrites the pasteboardG  ! image as it was at the time the SMG$SAVE_PHYSICAL_SCREEN routine ! was called. ! & INTEGER*4 smg$restore_physical_screen% EXTERNAL smg$restore_physical_screen ! SMG$RETURN_CURSOR_POS !  ! Return Cursor Position ! E ! The Return Cursor Position routine returns the current virtual ! cursor/ ! position in a specified virtual display. ! INTEGER*4 smg$return_cursor_pos EXTERNAL smg$return_cursor_pos ! SMG$RETURN_INPUT_LINE !  !  Return Input Line ! H ! The Return Input Line routine returns to the caller the requestedD ! line from the recall buffer. This line is retrieved either byK ! matching it with a specified string or by specifying the appropriate ! line number. ! INTEGER*4 smg$return_input_line EXTERNAL smg$return_input_line ! SMG$RING_BELL ! ' ! Ring the Terminal Bell or Buzzer ! G ! The Ring the Terminal Bell or Buzzer routine sounds the terminal ! bell or buzzer. !  INTEGER*4 smg$ring_bell EXTERNAL smg$ring_bell ! SMG$SAVE_PHYSICAL_SCREEN !  ! Save Physical Screen ! A ! The Save Physical Screen routine saves the contents of the ! pasteboard soG ! that a later call to SMG$RESTORE_PHYSICAL_SCREEN can restore it. ! # INTEGER*4 smg$save_physical_screen" EXTERNAL smg$save_physical_screen ! SMG$SAVE_VIRTUAL_DISPLAY ! ) ! Save the Virtual Display to a File ! K ! The Save the Virtual Display to a File routine saves the contents of ! a/ ! virtual display and stores it in a file. ! # INTEGER*4 smg$save_virtual_display" EXTERNAL smg$save_virtual_display ! SMG$SCROLL_DISPLAY_AREA !  ! Scroll Display Area ! H ! The Scroll Display Area routine scrolls a rectangular region of a ! virtual display. ! " INTEGER*4 smg$scroll_display_area! EXTERNAL smg$scroll_display_area ! SMG$SCROLL_VIEWPORT ! ( ! Scroll a Display Under a Viewport ! F ! The Scroll a Display Under a Viewport routine scrolls a virtual- ! display under its associated viewport. !  INTEGER*4 smg$scroll_viewport EXTERNAL smg$scroll_viewport ! SMG$SELECT_FROM_MENU ! % ! Make a Selection from the Menu ! K ! The Make a Selection from the Menu routine lets you move between theI ! menu choices using the arrow keys and lets you make a selection by ! pressing the return key. !  INTEGER*4 smg$select_from_menu EXTERNAL smg$select_from_menu! ! SMG$SET_BROADCAST_TRAPPING ! ! Enable Broadcast Trapping ! D ! The Enable Broadcast Trapping routine enables the trapping of ! broadcast ! messages. ! % INTEGER*4 smg$set_broadcast_trapping$ EXTERNAL smg$set_broadcast_trapping ! SMG$SET_CURSOR_ABS ! # ! Set Absolute Cursor Position ! K ! The Set Absolute Cursor Position routine moves the virtual cursor to3 ! the specified position in a virtual display. !  INTEGER*4 smg$set_cursor_abs EXTERNAL smg$set_cursor_abs ! SMG$SET_CURSOR_MODE !  ! Set the Cursor Mode !  ! The Set the Cursor Mode> ! routine turns the physical cursor on or off and selects ! jump or smooth scrolling. !  INTEGER*4 smg$set_cursor_mode EXTERNAL smg$set_cursor_mode ! SMG$SET_CURSOR_REL ! / ! Move Cursor Relative to Current Position ! E ! The Move Cursor Relative to Current Position routine moves the ! virtualG ! cursor the specified number of rows and columns from the current4 ! virtual cursor position in a virtual display. !  INTEGER*4 smg$set_cursor_rel EXTERNAL smg$set_cursor_rel ! SMG$SET_DEFAULT_STATE !  ! Set Default State ! D ! The Set Default State routine sets and/or returns the current ! default ! state for a key table. ! INTEGER*4 smg$set_default_state EXTERNAL smg$set_default_state$ ! SMG$SET_DISPLAY_SCROLL_REGION ! & ! Create Display Scrolling Region ! D ! The Create Display Scrolling Region routine creates a virtual ! scrolling r ! in a virtual display. ! ( INTEGER*4 smg$set_display_scroll_region' EXTERNAL smg$set_display_scroll_region ! SMG$SET_KEYPAD_MODE !  ! Set Keypad Mode ! H ! The Set Keypad Mode routine sets the terminal's numeric keypad to+ ! either numeric or applications mode. !  INTEGER*4 smg$set_keypad_mode EXTERNAL smg$set_keypad_mode ! SMG$SET_OUT_OF_BAND_ASTS !  ! Set Out-of-Band ASTs ! F ! The Set Out-of-Band ASTs routine either enables or disables the2 ! trapping of out-of-band control characters. ! # INTEGER*4 smg$set_out_of_band_asts" EXTERNAL smg$set_out_of_band_asts ! SMG$SET_PHYSICAL_CURSOR ! $ ! Set Cursor on Physical Screen ! J ! The Set Cursor on Physical Screen routine moves the physical cursor3 ! to the specified position on the pasteboard. ! " INTEGER*4 smg$set_physical_cursor! EXTERNAL smg$set_physical_cursor# ! SMG$SET_TERM_CHARACTERISTICS ! & ! Change Terminal Characteristics ! K ! The Change Terminal Characteristics routine changes or retrieves the7 ! terminal characteristics for a given pasteboard. ! ' INTEGER*4 smg$set_term_characteristics& EXTERNAL smg$set_term_characteristics ! SMG$SNAPSHOT !  ! Write Snapshot ! I ! The Write Snapshot routine writes the current pasteboard buffer toL ! the file or hardcopy terminal specified by the pasteboard identifier. !  INTEGER*4 smg$snapshot EXTERNAL smg$snapshot ! SMG$SNAPSHOT_TO_PRINTER ! ! Write Snapshot to Printer ! J ! The Write Snapshot to Printer routine writes the current pasteboard6 ! buffer to the printer attached to the terminal. ! " INTEGER*4 smg$snapshot_to_printer! EXTERNAL smg$snapshot_to_printer" ! SMG$UNPASTE_VIRTUAL_DISPLAY !  ! Remove Virtual Display ! J ! The Remove Virtual Display routine removes a virtual display from a ! pasteboard. ! & INTEGER*4 smg$unpaste_virtual_display% EXTERNAL smg$unpaste_virtual_display!DEC$ END OPTIONSww㆓Φ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:30:05 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:30:05 GEM$:[GEMGR OUP.SHEILAM.FORSYSDEF.IVMS-V83]SOR$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE sor$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! *************************************************************************** ! *2 ! COPYRIGHT (c) 1988 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL  RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * !  *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *N ! *************************************************************************** !  ! SOR$BEGIN_MERGE  ! ! ! Initialize a Merge Operation ! J ! Initializes the merge operation by opening the input and output filesH ! and by providing the number of input files, the key specifications, ! and the merge options. !  INTEGER*4 SOR$BEGIN_MERGE EXTERNAL SOR$BEGIN_MERGE !  ! SOR$BEGIN_SORT  !  ! Begin a Sort Operation ! J ! Initializes a sort operation by opening input and output files and by6 ! passing the key information and any sort options. !  INTEGER*4 SOR$BEGIN_SORT EXTERNAL SOR$BEGIN_SORT !  ! SOR$DO_MERGE  !  ! Obsolete (from VMS V3) !  INTEGER*4 SOR$DO_MERGE EXTERNAL SOR$DO_MERGE !  ! SOR$END_SORT  !  ! End a Sort Operation ! H ! Does cleanup functions, such as closing files and releasing memory. !  INTEGER*4 SOR$END_SORT EXTERNAL SOR$END_SORT !  ! SOR$INIT_MERGE  !  ! Obsolete (from VMS V3) !  INTEGER*4 SOR$INIT_MERGE EXTERNAL SOR$INIT_MERGE !  ! SOR$INIT_SORT  !  ! Obsolete (from VMS V3) !  INTEGER*4 SOR$INIT_SORT EXTERNAL SOR$INIT_SORT !  ! SOR$PASS_FILES  !  ! Pass File Names ! ? ! Passes the names of input and output files and output file& ! characteristics to SORT or MERGE. !  INTEGER*4 SOR$PASS_FILES EXTERNAL SOR$PASS_FILES !  ! SOR$RELEASE_REC  !  ! Pass One Record to Sort ! G ! Used with the record interface to pass one input record to SORT or ! MERGE . !  INTEGER*4 SOR$RELEASE_REC EXTERNAL SOR$RELEASE_REC !  ! SOR$RETURN_REC !  ! Return One Sorted Record ! B ! Used with the record interface to return one sorted or merged ! record to a program. !  INTEGER*4 SOR$RETURN_REC EXTERNAL SOR$RETURN_REC !  ! SOR$SORT_MERGE  ! ! Sort !  ! Sorts the input records. !  INTEGER*4 SOR$SORT_MERGE EXTERNAL SOR$SORT_MERGE !  ! SOR$SPEC_FILE  ! # ! Pass a Specification File Nam!e ! = ! Used to pass a specification file or specification text.) !  INTEGER*4 SOR$SPEC_FILE EXTERNAL SOR$SPEC_FILE ! ! SOR$STAT !  ! Obtain Sorting Statistics ! H ! Returns one statistic about the sort or merge operation to the user ! program. !  INTEGER*4 SOR$STAT EXTERNAL SOR$STAT!DEC$ END OPTIONSwwE^BΦ! **************************************************************************************"******************************************;! Created: 30-AUG-2007 11:30:30 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:30:30 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]STR$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE str$routines ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! *************************************************************************** # ! *0 ! COPYRIGHT (c) 1988, 1994, 1995 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE $TO ANY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. % * ! * ! *N ! *************************************************************************** ! STR$ADD !  ! Add Two Decimal Strings ! * ! The Add Two Decimal Strings routine* ! adds two decimal strings of digits. !  INTEGER*4 str$add EXTERNAL str$add ! STR$ANALYZE_SDESC ! ! Analyze String Descriptor ! : ! The Analyze String Descriptor routine extracts the . ! length and starting addre&ss of the data3 ! for a variety of string descriptor classes.  !  INTEGER*2 str$analyze_sdesc EXTERNAL str$analyze_sdesc ! STR$ANALYZE_SDESC_64 ! = ! Analyze String Descriptor (quadword output parameters) ! : ! The Analyze String Descriptor routine extracts the . ! length and starting address of the data3 ! for a variety of string descriptor classes.  !  INTEGER*4 str$analyze_sdesc_64 EXTERNAL str$analyze_sdesc_64 ! STR$APP'END !  ! Append String ! H ! The Append String routine appends a source string to the end of aG ! destination string. The destination string must be a dynamic or ! varying-length string.  !  INTEGER*4 str$append EXTERNAL str$append ! STR$CASE_BLIND_COMPARE ! - ! Compare Strings Without Regard to Case ! M ! The Compare Strings Without Regard to Case routine compares two input M ! strings of any supported class and (data type without regard to whether< ! the alphabetic characters are uppercase or lowercase. ! ! INTEGER*4 str$case_blind_compare EXTERNAL str$case_blind_compare ! STR$COMPARE !  ! Compare Two Strings ! 4 ! The Compare Two Strings routine compares the ! ! contents of two strings.  !  INTEGER*4 str$compare EXTERNAL str$compare ! STR$COMPARE_EQL ! ' ! Compare Two Strings for Equality ! B ! The Compare Two S )trings for Equality routine, compares two @ ! strings to see if they have the same length and contents.C ! Uppercase and lowercase characters are not considered equal. !  INTEGER*4 str$compare_eql EXTERNAL str$compare_eql ! STR$COMPARE_MULTI ! I ! Compare Two Strings for Equality Using Multinational Character Set ! I ! The Compare Two Strings for Equality Using Multinational CharacterH ! Set routine compares two character strings for equality* using the' ! DEC Multinational character set. !  INTEGER*4 str$compare_multi EXTERNAL str$compare_multi ! STR$CONCAT ! & ! Concatenate Two or More Strings ! M ! The Concatenate Two or More Strings routine concatenates all specified9 ! source strings into a single destination string.  !  INTEGER*4 str$concat EXTERNAL str$concat ! STR$COPY_DX ! H ! Copy a Source String Passed by Descriptor to a Destination String !+ 8 ! The Copy a Source String Passed by Descriptor to > ! a Destination String routine copies a source string to - ! a destination string. Both strings are ! passed by descriptor.  !  INTEGER*4 str$copy_dx EXTERNAL str$copy_dx ! STR$COPY_R ! G ! Copy a Source String Passed by Reference to a Destination String ! K ! The Copy a Source String Passed by Reference to a Destination StringJ ! routine copies a source string passed b,y reference to a destination ! string.  !  INTEGER*4 str$copy_r EXTERNAL str$copy_r ! STR$COPY_R_64 ! G ! Copy a Source String Passed by Reference to a Destination String ! K ! The Copy a Source String Passed by Reference to a Destination StringJ ! routine copies a source string passed by reference to a destination ! string.  !  INTEGER*4 str$copy_r_64 EXTERNAL str$copy_r_64 ! STR$DIVIDE ! ! ! Divide Two Deci-mal Strings ! J ! The Divide Two Decimal Strings routine divides two decimal strings. !  INTEGER*4 str$divide EXTERNAL str$divide ! STR$DUPL_CHAR ! ! ! Duplicate Character Times ! E ! The Duplicate Character empty Times routine generates a stringJ ! containing n duplicates of the input character. If the destinationG ! string is an empty dynamic string descriptor, STR$DUPL_CHAR will* ! allocate and initialize the string. ! .  INTEGER*4 str$dupl_char EXTERNAL str$dupl_char ! STR$ELEMENT ! * ! Extract Delimited Element Substring ! B ! The Extract Delimited Element Substring routine extracts anA ! element from a string in which the elements are separated ! by a specified delimiter. !  INTEGER*4 str$element EXTERNAL str$element ! STR$FIND_FIRST_IN_SET ! 2 ! Find First Character in a Set of Characters ! I ! The Find First Character in a / Set of Characters routine searches aI ! string one character at a time, from left to right, comparing eachG ! character in the string to every character in a specified set of- ! characters for which it is searching.  ! INTEGER*4 str$find_first_in_set EXTERNAL str$find_first_in_set ! STR$FIND_FIRST_NOT_IN_SET ! 6 ! Find First Character that Does Not Occur in Set ! K ! The Find First Character that Does Not Occur in Set routine searchesJ ! 0 a string, comparing each character to the characters in a specifiedI ! set of characters. The string is searched character by character,M ! from left to right. STR$FIND_FIRST_NOT_IN_SET returns the position ofG ! the first character in the string that does not match any of the5 ! characters in the selected set of characters.  ! $ INTEGER*4 str$find_first_not_in_set# EXTERNAL str$find_first_not_in_set ! STR$FIND_FIRST_SUBSTRING ! + ! Find Firs1t Substring in Input String ! 7 ! The Find First Substring in Input String routine7 ! finds the first substring (in a provided list of0 ! substrings) occurring in a given string.  ! # INTEGER*4 str$find_first_substring" EXTERNAL str$find_first_substring ! STR$FREE1_DX !  ! Free One Dynamic String ! J ! The Free One Dynamic String routine deallocates one dynamic string. !  INTEGER*4 str$free1_dx EXTERNAL str$free1_dx ! 2 STR$GET1_DX ! " ! Allocate One Dynamic String ! K ! The Allocate One Dynamic String routine allocates a specified numberG ! of bytes of dynamic virtual memory to a specified dynamic string ! descriptor.  !  INTEGER*4 str$get1_dx EXTERNAL str$get1_dx ! STR$GET1_DX_64 ! 7 ! Allocate One Dynamic String (quadword parameter) ! K ! The Allocate One Dynamic String routine allocates a specified numberG ! of bytes of dynamic v3irtual memory to a specified dynamic string ! descriptor.  !  INTEGER*4 str$get1_dx_64 EXTERNAL str$get1_dx_64 ! STR$LEFT ! & ! Extract a Substring of a String ! K ! The Extract a Substring of a String routine copies a substring of a E ! source string into a destination string. The relative starting* ! position in the source string is 1. !  INTEGER*4 str$left EXTERNAL str$left ! STR$LEN_EXTR ! & ! Extract a S4ubstring of a String ! H ! The Extract a Substring of a String routine copies a substring of1 ! a source string into a destination string. !  INTEGER*4 str$len_extr EXTERNAL str$len_extr ! STR$MATCH_WILD ! # ! Match Wildcard Specification ! L ! The Match Wildcard Specification routine is used to compare a patternL ! string that includes wildcard characters with a candidate string. ItH ! returns a condition value of STR$_MATCH if 5the strings match and 5 ! line_break STR$_NOMATCH if they do not match.  !  INTEGER*4 str$match_wild EXTERNAL str$match_wild ! STR$MUL ! # ! Multiply Two Decimal Strings ! O ! The Multiply Two Decimal Strings routine multiplies two decimal strings. !  INTEGER*4 str$mul EXTERNAL str$mul ! STR$POSITION ! , ! Return Relative Position of Substring ! I ! The Return Relative Position of Substring routine searches fo6r theI ! first occurrence of a single substring within a source string. IfI ! STR$POSITION finds the substring, it returns the relative positionF ! of that substring. If the substring is not found, STR$POSITION ! returns a zero. !  INTEGER*4 str$position EXTERNAL str$position ! STR$POS_EXTR ! & ! Extract a Substring of a String ! J ! The Extract a Substring of a String routine copies a substring of a/ ! source string into a dest7ination string. !  INTEGER*4 str$pos_extr EXTERNAL str$pos_extr ! STR$PREFIX !  ! Prefix a String ! A ! The Prefix a String routine inserts a source string at the@ ! beginning of a destination string. The destination string) ! must be dynamic or varying length. !  INTEGER*4 str$prefix EXTERNAL str$prefix ! STR$RECIP ! % ! Reciprocal of a Decimal String ! M ! The Reciprocal of a Decimal String routine takes 8the reciprocal of theJ ! first decimal string to the precision limit specified by the secondB ! decimal string and returns the result as a decimal string.  !  INTEGER*4 str$recip EXTERNAL str$recip ! STR$REPLACE !  ! Replace a Substring ! B ! The Replace a Substring routine copies a source string to aD ! destination string, replacing part of the string with anotherI ! string. The substring to be replaced is specified by its starting !9 and ending positions.  !  INTEGER*4 str$replace EXTERNAL str$replace ! STR$RIGHT ! & ! Extract a Substring of a String ! E ! The Extract a Substring of a String routine copies a substring6 ! of a source string into a destination string.  !  INTEGER*4 str$right EXTERNAL str$right ! STR$ROUND ! ) ! Round or Truncate a Decimal String ! K ! The Round or Truncate a Decimal String routine rounds or truncates a :L ! decimal string to a specified number of significant digits and places- ! the result in another decimal string.  !  INTEGER*4 str$round EXTERNAL str$round ! STR$TRANSLATE ! # ! Translate Matched Characters ! J ! The Translate Matched Characters routine successively compares eachH ! character in a source string to all characters in a match string.L ! If a source character has a match, the destination character is takenL ! from the ;translate string. Otherwise, STR$TRANSLATE moves the source+ ! character to the destination string. !  INTEGER*4 str$translate EXTERNAL str$translate ! STR$TRIM ! $ ! Trim Trailing Blanks and Tabs ! G ! The Trim Trailing Blanks and Tabs routine copies a source stringE ! to a destination string and deletes the trailing blank and tab ! characters.  !  INTEGER*4 str$trim EXTERNAL str$trim ! STR$UPCASE ! 1 ! Con <vert String to All Uppercase Characters ! > ! The Convert String to All Uppercase Characters routine - ! converts a source string to uppercase. !  INTEGER*4 str$upcase EXTERNAL str$upcase!DEC$ END OPTIONSwwΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:30:30 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:30:30 GEM$:[GEMGROUP. =SHEILAM.FORSYSDEF.IVMS-V83]TBK$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE TBK$ROUTINES ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN INTEGER*4 TBK$I64_SYMBOLIZE EXTERNAL TBK$I64_SYMBOLIZE!DEC$ END OPTIONSwwZԢΦ! ****************************************************************************************************************************** >**;! Created: 30-AUG-2007 11:30:31 by OpenVMS SDL IA64-2 ^! Source: 30-AUG-2007 11:30:31 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]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 D?uring TPU Session ! ! status = TPU$CLEANUP (flags) !  ! flags - Cleanup options !  INTEGER*4 TPU$CLEANUP EXTERNAL TPU$CLEANUP ! ' ! TPU$CLIPARSE - Parse a command line ! 5 ! 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 ! 2 ! TPU$CLOS@E_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_ACOMMAND - 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 ! 6 ! 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) ! 1 ! codBe - 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]) ! 1 ! result_string - Resultant file specification8 ! flags - Specifies components to be returned0 ! filespec - File specification to parseC/ ! default_spec - Default file specification/ ! related_spec - Related file specification !  INTEGER*4 TPU$FILE_PARSE EXTERNAL TPU$FILE_PARSE ! 5 ! TPU$FILE_SEARCH - Search for a File Specification ! = ! status = TPU$FILE_SEARCH (result_string, flags, filespec,< ! [default_spec], [related_spec]) ! 1 ! result_string - Resultant file specification8 ! flags - Specifies components to be returned0 ! filespec - File specificDation 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 ! 2 ! statusE = TPU$INITIALIZE (callback [, user_arg) ! 6 ! 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) ! 6 !F 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 ! H ! status = TPU$SPECIFY_ASYNC_ACTION (facility_index [, tGpu_statement]) ! 1 ! facility_index - Index number of this action9 ! 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 ! 6 ! status = TPU$TRIGGER_ASYNC_ACTION (facility_index) ! 1 H ! facility_index - Index number of this action ! # INTEGER*4 TPU$TRIGGER_ASYNC_ACTION" EXTERNAL TPU$TRIGGER_ASYNC_ACTION!DEC$ END OPTIONSwwΦ! ********************************************************************************************************************************;! Created: 30-AUG-2007 11:30:31 by OpenVMS SDL IA64-2 _! Source: 30-AUG-2007 11:30:31 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]UTIL$ROUTINES.SDI;1 ! ************************************ I******************************************************************************************** *!*** MODULE util$routines IDENT X01-01 ***:!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARNN ! *************************************************************************** ! *% ! COPYRIGHT (c) 1998 BY *B ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$ ! ALL RIGHTS RESERVED. * ! *N ! THIS SOFTWARE IS FURNISHED UNDER JA LICENSE AND MAY BE USED AND COPIED *N ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *N ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *N ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *O ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ ! TRANSFERRED. * ! *N ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N ! K AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *N ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *N ! *************************************************************************** !  ! UTIL$CQUAL_FILE_PARSE ! INTEGER*4 util$cqual_file_parse EXTERNAL util$cqual_file_parse !  ! UTIL$CQUAL_FILE_MATCH ! INTEGER*4 util$cqual_file_match EXTERNAL util$cqual_file_match !  ! UTIL$CQUAL_FILE_END !  INTEGER*4 util$cqual_file_end EXTERNAL util$cqual_file_end !  ! UTIL$CQUAL_CONFIRM_ACT ! ! INTEGER*4 util$cqual_confirm_act EXTERNAL util$cqual_confirm_act!DEC$ END OPTIONSww