% VAX-11 Librarian V04-00͡J()---(Z $ACCDEF'$ACEDEF?z$ACLDEFG$ACMEDEFMf $ACMEVMSDEFl$ACRDEFz^$AGNDEF{ $ALPHADEF&$ARGDEF$ARMDEFf$ATRDEF$BRKDEF$CHFDEF0 $CHKPNTDEF$CHPDEF $CIADEFN$CLIDEF=0 $CLIMSGDEFY $CLISERVDEF] $CLIVERBDEFdZ$CLSDEFsZ $CLUEVTDEFt&$CMBDEFu$CONVDEF $CONVMSGDEFv $CQUALDEFx$CRDEF$CREDEF$CRFDEF$CRFMSG$CSHDEF$CVTDEF$CVTMSG`u$CONVDEF $CONVMSGDEFv $CQUALDEFx$CRDEF$CREDEF$CRFDEF$CRFMSG$CSHDEF$CVTDEF$CVTMSG$DCDEF:$DDTMDEF $DDTMMSGDEFZ$DEVDEF$DIBDEF $DISMOUMSGDEF$DMPDEF.$DMTDEF1$DSCDEF]*$DSTDEFa$DTIDEFk$DTKDEFyZ$DTKMSGh$DVIDEF $DVSDEF$EEOMDEF $EFNDEF$EGPSDEF$EGSDEF$EGSTDEF$EGSYDEF$EIDCDEF$EMHDEF$ENVDEF$CMBDEF$DVIDEF$ETIRDEF$JPIDEF$LPDEF$NETDEF $PR46DEF $PROVDEF $SDFMDEF $TEBDEF $XABFHCDEF DCX$ROUTINES UTIL$ROUTINESf $DVSDEF$EEOMDEF $EFNDEF$EGPSDEF$EGSDEF$EGSTDEF$EGSYDEF$EIDCDEF$EMHDEF$ENVDEF $EOBJRECDEF$EOMDEF$EOMWDEF$EPMDEFB$EPMMDEF.$EPMVDEF$EPMWDEF$ERADEF$ESDFDEF8 $ESDFMDEF $ESDFVDEF  $ESGPSDEF$ESRFDEF`$ETIRDEF ^$FABDEF<$FALDEFT$FDLDEFV $FDLMSGDEF_Z$FIBDEFf$FIDDEF$FMLDEF$FORDEF $FORIOSDEFg ^$FABDEF<$FALDEFT$FDLDEFV $FDLMSGDEF_Z$FIBDEFf$FIDDEF$FMLDEF$FORDEF $FORIOSDEF.$FSCNDEF$GPSDEFN$GSDEFN$GSYDEF$HLPDEFP$HWDEF($IACDEF$ICCDEF$IDCDEF$IMPDEF$INITDEF$IODEF8$IOSADEF?J$ISSDEFQL $JBCMSGDEFl$JPIDEFd$KGBDEF$LADEF$LATDEF. $LATMSGDEFP $LBRCTLTBL$LBRDEF$LCKDEF$LEPMDEF$LHIDEF_d$KGBDEF$LADEF$LATDEF. $LATMSGDEFP $LBRCTLTBL$LBRDEF$LCKDEF$LEPMDEF$LHIDEF< $LIBCLIDEFn $LIBDCFDEFR$LIBDEF) $LIBDTDEF4~ $LIBFILDEF5 $LIBFISDEF6 $LIBVMDEF8: $LIBWAITDEF9 $LICENSEDEFA`$LKIDEFP$LMFDEFT$LNKDEFW4$LNMDEF^R$LPDEFb$LPRODEFd$LSDFDEFf@$LSRFDEFgv$LSYDEFj $MACIDDEFn$MAILDEF $MAILMSGDEF` $MAPPINGDEF$MHDDEF`b$LPRODEFd$LSDFDEFf@$LSRFDEFgv$LSYDEFj $MACIDDEFn$MAILDEF $MAILMSGDEF` $MAPPINGDEF$MHDDEF$MHDEF$MMEDEF$MMIDEF$MNTDEF$MOUNDEFD$MSGDEF+ $MSGHLPDEF-$MT2DEF1$MT3DEF8>$MTADEF9$MTDEFB$MTHDEFJ$NAMDEFc$NCSDEFk$NETDEFl$NSADEF $NSARECDEF<& $OBJRECDEFS<$OPCDEFt$OPCMSG&$OPDEF$OPRDEF$OSSDEF0$OTSDEF$PCCDEFel$NSADEF $NSARECDEF<& $OBJRECDEFS<$OPCDEFt$OPCMSG&$OPDEF$OPRDEF$OSSDEF0$OTSDEF$PCCDEF$PLVDEF $POSIX_SERVICEDEF$PQLDEF $PR009DEF $PR1202DEF\ $PR1302DEFP$PR13DEFN $PR1701DEF~ $PR410DEF $PR420DEF$PR43DEF $PR440DEF,$PR46DEF$PR49DEF$PR4ADEF $PR520DEFJ $PR560DEF$PR60DEF $PR650DEF $PR660DEFB $PR670DEF| $PR730DEFd$PR49DEF$PR4ADEF $PR520DEFJ $PR560DEF$PR60DEF $PR650DEF $PR660DEFB $PR670DEF| $PR730DEFV $PR750DEF6 $PR780DEF $PR790DEF $PR8NNDEF  $PR8PSDEF $PR8SSDEF v $PR9AQDEF4 B $PR9CCDEF= , $PR9RRDEFZ $PRCDEFc x$PRDEFx l$PRODEFz $PROMDEF| $PROVDEF~ $PROWDEF $PRTDEF $PRUV1DEF  $PRUV2DEF ~$PRVDEF *$PRXDEF Z $PSCANDEF $PSLDEF l $PSMMSGDEF_~ $PROWDEF $PRTDEF $PRUV1DEF  $PRUV2DEF ~$PRVDEF *$PRXDEF Z $PSCANDEF $PSLDEF l $PSMMSGDEF $PSWDEF $PTDDEF $QUIDEF $RABDEF X$RBLDDEF 2$REGDEF# "$RMEDEF# V$RMSDEFX $RNHBLKDEFY $RSDMDEF[ $SBKDEF_ F$SCRDEFe $SDDEF $SDFDEF ($SDFMDEF $SDFVDEF 8$SDFWDEF $SECDEF F $SECSRVDEF r $SECSRVMSGDEF $SFDEF $SGPSDEF $SHRDEF $SJCDEFg $SDFVDEF 8$SDFWDEF $SECDEF F $SECSRVDEF r $SECSRVMSGDEF $SFDEF $SGPSDEF $SHRDEF $SJCDEF * $SMBMSGDEF $SMGDEFd >$SMGMSG h $SMGTRMPTR $SMRDEF $SNAPEVTDEF $SORDEF $SRFDEF $SRMDEF Z$SSDEF $STRDEF $STSDEF $SYIDEF n $SYSSRVNAM <$TEBDEF $TIRDEF $TPADEF $TRMDEF $TT2DEF $TT3DEF L$TTCDEF$TTDEF, $TTYDPORTDEFH $UAF070DEF[ $TIRDEF $TPADEF $TRMDEF $TT2DEF $TT3DEF L$TTCDEF$TTDEF, $TTYDPORTDEFH $UAF070DEF'X$UAIDEF<$UICDEFB$UIDDEFGP$USGDEFK4$USRIDEFK$VAERDEFN$VAXDEF$VPSRDEF  $XABALLDEF $XABCXFDEF $XABCXRDEF $XABDATDEFt$XABDEF $XABFHCDEFR $XABITMDEFX $XABJNLDEF $XABKEYDEF $XABPRODEF $XABRDTDEF  $XABRUDEF  $XABSUMDEF  $XABTRMDEF$XADEF[R $XABITMDEFX $XABJNLDEF $XABKEYDEF $XABPRODEF $XABRDTDEF  $XABRUDEF  $XABSUMDEF  $XABTRMDEF$XADEFd$XFDEF& $XKDEVDEF( $XKSTSDEF-$XMDEF<^$XRVDEFX&$XWDEF_ACLEDIT$ROUTINESa CLI$ROUTINESezCMA$DEFf CONV$ROUTINES CVT$ROUTINES< DCX$ROUTINES DTK$ROUTINES6 EDT$ROUTINES FDL$ROUTINES FORTRAN$IDENT| LBR$ROUTINES: LIB$ROUTINESPr MAIL$ROUTINESu DTK$ROUTINES6 EDT$ROUTINES FDL$ROUTINES FORTRAN$IDENT| LBR$ROUTINES: LIB$ROUTINESPr MAIL$ROUTINESd MTH$ROUTINES NCS$ROUTINESd OTS$ROUTINESQPPL$DEF[PPL$MSGp PPL$ROUTINES PSM$ROUTINES| SMB$ROUTINES SMG$ROUTINESx SOR$ROUTINES6 STR$ROUTINES TPU$ROUTINES# UTIL$ROUTINES !-X!*** MODULE $ACCDEF ***CDEC$ OPTIONS /NOALIGNE PARAMETER ACC$K_TERMLEN = '00000054'X ! TERMINATION MESSAGE LENGTH E PARAMETER ACC$C_TERMLEN = '00000054'X ! TERMINATION MESSAGE LENGTH +! AND ACCOUNTING RECORD FOR NON BATCH JOBSP PARAMETER ACC$K_JOB_LEN = '0000006C'X ! LENGTH OF BATCH JOB ACCOUNTING RECORD P PARAMETER ACC$C_JOB_LEN = '0000006C'X ! LENGTH OF BATCH JOB ACCOUNTING RECORD  STRUCTURE /ACCDEF/3 INTEGER*2 ACC$W_MSGTYP ! MESSAGE TYPE CODE O I"NTEGER*2 ACC$W_MSGSIZ ! LENGTH OF DATA MESSAGE (VALID ONLY IN ACCLOG) 4 INTEGER*4 ACC$L_FINALSTS ! FINAL EXIT STATUS ) INTEGER*4 ACC$L_PID ! PROCESS ID J INTEGER*4 ACC$L_JOBID ! JOB IDENTIFICATION (VALID ONLY IN ACCLOG) D INTEGER*4 ACC$Q_TERMTIME(2) ! TERMINATION TIME (100NS UNITS) F CHARACTER*8 ACC$T_ACCOUNT ! ACCOUNT NAME STRING (BLANK FILLED) E CHARACTER*12 ACC$T_USERNAME ! USER NAME STRING (BLANK FILLED) 6 INTEGER*4 ACC$L_CPUTIM ! CPUTIM IN # 10MS UNITS 4 INTEGER*4 ACC$L_PAGEFLTS ! TOTAL PAGE FAULTS 9 INTEGER*4 ACC$L_PGFLPEAK ! PEAK PAGING FILE USAGE 7 INTEGER*4 ACC$L_WSPEAK ! PEAK WORKING SET SIZE B INTEGER*4 ACC$L_BIOCNT ! COUNT OF BUFFERED I/O OPERATIONS @ 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) 8 INTEGER*4 ACC$L_OWNER ! PID OF SUBPROCESS OWNER ! E $ND OF TERMINATION MESSAGE< CHARACTER*8 ACC$T_JOB_NAME ! JOB NAME (BLANK FILLED) 8 CHARACTER*16 ACC$T_JOB_QUE ! QUEUE NAME (.ASCIC)  END STRUCTURE ! ACCDEFL PARAMETER ACC$K_PRT_LEN = '00000058'X ! LENGTH OF PRINT ACCOUNTING RECORD L PARAMETER ACC$C_PRT_LEN = '00000058'X ! LENGTH OF PRINT ACCOUNTING RECORD !  STRUCTURE /ACCDEF1/ BYTE %FILL(1:48)5 INTEGER*4 ACC$L_PAGCNT ! SYMBIONT PAGE COUNT 4 INTEGER*4 ACC$L_QIOCNT ! SYMBIONT QIO COUNT 4 INTEGER %*4 ACC$L_GETCNT ! SYMBIONT GET COUNT 8 INTEGER*4 ACC$Q_QUETIME(2) ! TIME JOB WAS QUEUED 6 CHARACTER*8 ACC$T_PRT_NAME ! NAME OF PRINT JOB 8 CHARACTER*12 ACC$T_PRT_QUE ! NAME OF PRINT QUEUE +! DEFINE USER ACCOUNTING MESSAGE DATA AREA!  END STRUCTURE ! ACCDEF1C PARAMETER ACC$K_INS_LEN = '000000B0'X ! LENGTH OF INSERT MESSAGE C PARAMETER ACC$C_INS_LEN = '000000B0'X ! LENGTH OF INSERT MESSAGE ! 9 PARAMETER ACC$K_PRCTRM = '00000001'X ! JOB TERMINATION ? PARAMETER A &CC$K_BATTRM = '00000002'X ! BATCH JOB TERMINATION E PARAMETER ACC$K_INTTRM = '00000003'X ! INTERACTIVE JOB TERMINATION K PARAMETER ACC$K_LOGTRM = '00000004'X ! LOGIN FAILURE PROCESS TERMINATION ; PARAMETER ACC$K_IMGTRM = '00000005'X ! IMAGE TERMINATION @ PARAMETER ACC$K_SUBTRM = '00000006'X ! SUBPROCESS TERMINATION F PARAMETER ACC$K_DETTRM = '00000007'X ! DETACHED PROCESS TERMINATION E 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 ! N PARAMETER ACC$K_INSMESG = '00000001'X ! INSERT MESSAGE INTO ACCOUNTING FILE D 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 F PARAMETER ACC$K_ENABSEL = '00000005'X ! ENABLE SELECTIVE ACCOUNTING G PARAMETER ACC$K_DISASEL = '00(000006'X ! DISABLE SELECTIVE ACCOUNTING  STRUCTURE /ACCDEF2/ BYTE %FILL(1:44)J 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 ! ACCDEF2CDEC$ END OPTIONS wwm[!*** MODULE $ACEDEF ***CDEC$ OPTIONS /NOALIGN! +! 2! Access Control list Entry structure definit )ions! ! -= PARAMETER ACE$C_KEYID = '00000001'X ! Key identifier entry : PARAMETER ACE$C_RMSJNL_BI = '00000002'X ! RMS BI journal: PARAMETER ACE$C_RMSJNL_AI = '00000003'X ! RMS AI journal: PARAMETER ACE$C_RMSJNL_AT = '00000004'X ! RMS AT journalD PARAMETER ACE$C_AUDIT = '00000005'X ! Security audit journal entry< PARAMETER ACE$C_ALARM = '00000006'X ! Security alarm entryB PARAMETER ACE$C_INFO = '00000007'X ! General purpose informationM PARAMETER ACE$C_RMSJNL_RU_DEFAULT = '00000008 *'X ! RU journal default volumeE PARAMETER ACE$C_DIRDEF = '00000009'X ! Directory default protectionF PARAMETER ACE$C_RMSJNL_RU = '0000000A'X ! RU journal (many per file)G PARAMETER ACE$C_SUBSYSTEM_IDS = '0000000B'X ! Protected subsystem ids> PARAMETER ACE$C_OIL = '0000000C'X ! Object Information LabelD PARAMETER ACE$C_NEW_OWNER = '0000000D'X ! Protection for owner ACEG PARAMETER ACE$C_MAX_CODE = '0000000E'X ! Maximum ACE type code plus 1! ACE types registered to@ PARAMETER ACE$C_P+ATHWORKS = '00000080'X ! Pathworks common ACEA PARAMETER ACE$C_LANMAN_SECURITY = '00000081'X ! LANMAN securityJ PARAMETER ACE$C_LANMAN_ATTRIB = '00000082'X ! LANMAN extended attributes9 PARAMETER ACE$C_NETWARE = '00000083'X ! Netware trustee? PARAMETER ACE$C_MAC_COMMENT = '00000084'X ! MacIntosh commentC PARAMETER ACE$C_PATHWORKS_1 = '00000085'X ! reserved to PathworksC PARAMETER ACE$C_PATHWORKS_2 = '00000086'X ! reserved to PathworksC PARAMETER ACE$C_PATHWORKS_3 = '00000087'X ! re ,served to Pathworks< PARAMETER ACE$C_RESERVED = '000000FF'X ! Reserved ACE typeL PARAMETER ACE$C_APPLICATION = '00000007'X ! Alternate application ACE code7 PARAMETER ACE$C_CUST = '00000001'X ! Customer defined1 PARAMETER ACE$C_CSS = '00000002'X ! CSS defined1 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_HID -DEN = '00000400'X* PARAMETER ACE$M_NOPROPAGATE = '00000800'X# PARAMETER ACE$M_READ = '00000001'X$ PARAMETER ACE$M_WRITE = '00000002'X& PARAMETER ACE$M_EXECUTE = '00000004'X% PARAMETER ACE$M_DELETE = '00000008'X& PARAMETER ACE$M_CONTROL = '00000010'XE PARAMETER ACE$K_LENGTH = '00000008'X ! Length of the overhead area E PARAMETER ACE$C_LENGTH = '00000008'X ! Length of the overhead area S PARAMETER ACE$C_RMS_ATTRIBUTES = '00000000'X ! variant of ACE for file attributesS PARAMETER ACE$K._RMS_ATTRIBUTES = '00000000'X ! variant of ACE for file attributesG PARAMETER ACE$K_RMSATR_MINOR_V50 = '00000002'X ! minor ID for VMS 5.0O PARAMETER ACE$K_RMSATR_MINOR_VDW = '00000002'X ! minor ID for DECwindows V1.0T PARAMETER ACE$C_RMSATR_MINOR_ID = '00000002'X ! current minor ID (obsolete symbol). PARAMETER ACE$K_RMSATR_MINOR_ID = '00000002'XB 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'XW PARAMETER ACE$S_RMSATR = '00000014'X ! 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)F! Beyond the fixed fields, variable length information will by storedX PARAMETER ACE$_RMSATR_ORGANIZATION = '00000001'X ! organizational extension object ID J PARAMETER 0 ACE$_RMSATR_SEMANTICS = '00000002'X ! file semantics object ID1 PARAMETER ACE$K_RMSATR_ORG_MAX_LEN = '00000040'X1 PARAMETER ACE$K_RMSATR_SEM_MAX_LEN = '00000040'XS 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'XC PARAMETER ACE$S_RMSJNL_RU = '00000026'X ! length of RMSJNL RU ACEF PARAMETER ACE$S_RMSJNL = '00000032'X ! length of RMSJNL AI/BI/AT ACEE PARAMETER ACE 1$S_OIL_S64I64 = '00000020'X ! Length of Type 0 OIL ACEC PARAMETER ACE$S_OIL_S128 = '00000020'X ! Length of Type 1 OIL ACE: PARAMETER ACE$S_OIL = '00000020'X ! Maximum OIL ACE Size STRUCTURE /ACEDEF/1 BYTE ACE$B_SIZE ! Size of the entry - BYTE ACE$B_TYPE ! Type of entry ! outside products. Not! recognized by VMS software.! Registered for Pathworks... UNION MAPG INTEGER*2 ACE$W_FLAGS ! Type dependent & independent flags  2 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 = 4I PARAMETER ACE$V_RESERVED = 0 ! Count of reserved longwords BYTE %FILL (1) END MAP MAP( PARAMETER ACE$S_SUCCESS = 1H PARAMETER ACE$V_SUCCESS = 0 ! Audit or alarm upon success( PARAM 3ETER ACE$S_FAILURE = 1H PARAMETER ACE$V_FAILURE = 1 ! Audit ot alarm upon failure BYTE %FILL (1) END MAP MAP( PARAMETER ACE$S_DEFAULT = 1E PARAMETER ACE$V_DEFAULT = 8 ! Directory default entry * PARAMETER ACE$S_PROTECTED = 1< PARAMETER ACE$V_PROTECTED = 9 ! Protected ACE' PARAMETER ACE$S_HIDDEN = 17 PARAMETER ACE$V_HIDDEN = 10 ! Hidden ACE, PARAMETER ACE$S_N4OPROPAGATE = 1P PARAMETER ACE$V_NOPROPAGATE = 11 ! No propagation between versions BYTE %FILL (1) END MAP END UNION UNION MAP UNION MAPC INTEGER*4 ACE$L_ACCESS ! Access rights bitmask  END MAP MAP- PARAMETER ACE$S_READ = 1B PARAMETER ACE$V_READ = 0 ! Allowed to read . PARAMETER ACE$S_WRITE = 1 5D PARAMETER ACE$V_WRITE = 1 ! Allowed to write 0 PARAMETER ACE$S_EXECUTE = 1H PARAMETER ACE$V_EXECUTE = 2 ! Allowed to execute / PARAMETER ACE$S_DELETE = 1F PARAMETER ACE$V_DELETE = 3 ! Allowed to delete 0 PARAMETER ACE$S_CONTROL = 1Q PARAMETER ACE$V_CONTROL = 4 ! All privileges of the owner  BYTE %FILL (1) END6 MAP END UNION UNION MAPA INTEGER*4 ACE$L_KEY ! Start of the key fields END MAP MAPT CHARACTER*16 ACE$T_AUDITNAME ! Start of the security journal name END MAP END UNION END MAP MAP UNION MAPK INTEGER*4 ACE$L_INFO_FLAGS ! INFO type application flags END MAP 7 MAPT INTEGER*2 ACE$W_APPLICATION_FLAGS ! VMS application flags wordZ INTEGER*2 ACE$W_APPLICATION_FACILITY ! VMS application facility code END MAP END UNION UNION MAPJ 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 AC 8ET 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 unusedY INTEGER*2 ACE$W_RMSATR_MINOR_ID ! RMS file attributes ACE minor IDY INTEGER*2 ACE$W_RMSATR_MAJOR_ID ! RMS file attributes ACE major ID UNION MAPe INT 9EGER*4 ACE$L_RMS_ATTRIBUTE_FLAGS ! RMS file attributes flags definitions END MAP MAP; PARAMETER ACE$S_STATISTICS = 1j PARAMETER ACE$V_STATISTICS = 0 ! Statistics monitoring enabled on this file: PARAMETER ACE$S_XLATE_DEC = 1[ PARAMETER ACE$V_XLATE_DEC = 1 ! File semantics are DEC-local' BYTE %FILL (1) : END MAP END UNIONI! using a {field-type, length, value} scheme. This allows extensibility! and compact representation.! ! field types are: END MAP END UNION END MAP MAPF CHARACTER*12 ACE$T_VOLNAM ! Volume name of journal fileQ BYTE ACE$B_VOLNAM_LEN ! Length of volume name of journal fileI BYTE ACE$B_RJRVER ! RMS journal file structure ;level UNION MAP6 INTEGER*2 ACE$W_FID(1:3) ! file id  END MAP MAP> INTEGER*2 ACE$W_FID_NUM ! file number B INTEGER*2 ACE$W_FID_SEQ ! sequence number  UNION MAPM INTEGER*2 ACE$W_FID_RVN ! relative volume number END MAP MAPO < BYTE ACE$B_FID_RVN ! alternate format RVN a BYTE ACE$B_FID_NMX ! alternate format file number extension END MAP END UNION END MAP END UNION UNION MAP- INTEGER*2 ACE$W_RMSJNL_FLAGS END MAP MAP9 PARAMETER ACE$S_JOURNAL_DISABLED = 1P PARAMET =ER ACE$V_JOURNAL_DISABLED = 0 ! journaling disabled#! (AI, BI, AT only; set by BACKUP)4 PARAMETER ACE$S_BACKUP_DONE = 1R PARAMETER ACE$V_BACKUP_DONE = 1 ! BACKUP done on this file;%! RMS needs to write a backup marker#! (AI, BI, AT only; set by BACKUP) BYTE %FILL (1) END MAP END UNIOND INTEGER*4 ACE$L_JNLIDX ! journal stream index numberG INTEGER*4 ACE$Q_CDATE(2) ! cr >eation date/time of journalH INTEGER*4 ACE$L_BACKUP_SEQNO ! BACKUP sequence number (to#! find where to start in journal).U INTEGER*4 ACE$Q_MODIFICATION_TIME(2) ! timestamp of last backup or last! journal entry recovered. END MAP MAP6 INTEGER*4 ACE$L_SPARE1 ! For alignmentC INTEGER*4 ACE$L_SYS_PROT ! Default system protectionB INTEGER*4 ACE$L_OWN_PROT ! Default owner protectionB INTEGER ?*4 ACE$L_GRP_PROT ! Default group protectionB INTEGER*4 ACE$L_WOR_PROT ! Default world protection END MAP MAP6 INTEGER*4 ACE$L_SPARE2 ! For alignmentG INTEGER*4 ACE$Q_IMAGE_IDS(2) ! Start of the image ids (a ! quadword for each identifier) END MAP MAP8 INTEGER*4 ACE$L_OIL_FLAGS ! For AlignmentB INTEGER*4 ACE$L_BRAND_NAME ! OIL Type-Specific Info= CHARACTER*1 ACE$R_CLASS@_PROT ! OIL Class Block END MAP END UNION END STRUCTURE ! ACEDEFCDEC$ END OPTIONS ww^!*** MODULE $ACLDEF ***CDEC$ OPTIONS /NOALIGNE PARAMETER ACL$K_LENGTH = '0000000C'X ! Length of the overhead area E PARAMETER ACL$C_LENGTH = '0000000C'X ! Length of the overhead area , PARAMETER ACL$C_FILE = '00000001'X ! Files: PARAMETER ACL$C_DEVICE = '00000002'X ! MBX, MT, TT, etc.C PARAMETER ACL$C_JOBCTL_QUEUE = '00000003'X ! Job controller queueNA PARAMETER ACL$C_COMMON_EF_CLUSTER = '00000004'X ! Common event flag clustersH PARAMETER ACL$C_LOGICAL_NAME_TABLE = '00000005'X ! Logical name tables1 PARAMETER ACL$C_PROCESS = '00000006'X ! ProcessL PARAMETER ACL$C_GROUP_GLOBAL_SECTION = '00000007'X ! Group global sectionsN PARAMETER ACL$C_SYSTEM_GLOBAL_SECTION = '00000008'X ! System global sections7 PARAMETER ACL$C_CAPABILITY = '00000009'X ! Capability? PARAMETER ACL$C_EVENT_FACILITY = '0000000A'X ! Event facility: PARAMETER ACL$C_L BOCK = '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! Action 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 entryC? PARAMETER ACL$C_FNDACLENT = '00000004'X ! Locate an ACL entryD PARAMETER ACL$C_FNDACETYP = '00000005'X ! Locate specific ACE typeI PARAMETER ACL$C_DELETEACL = '00000006'X ! Delete ACL, leaving protected6 PARAMETER ACL$C_READACL = '00000007'X ! Read the ACL@ PARAMETER ACL$C_ACLLENGTH = '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 ! Wr Dite lock on ACLC 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 ACLD PARAMETER ACL$C_RESERVED_ITEM_2 = '00000010'X ! Reserved item codeD PARAMETER ACL$C_RESERVED_ITEM_3 = '00000011'X ! Reserved item code< PARAMETER ACL$S_ADDACLENT = '000000FF'X ! Add an ACL entry? PARAMETER ACL$S_DELEACLENT = '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 entryD PARAMETER ACL$S_FNDACETYP = '000000FF'X ! Locate specific ACE typeI PARAMETER ACL$S_DELETEACL = '000000FF'X ! Delete ACL, leaving protected6 PARAMETER ACL$S_READACL = '00000200'X ! Read the ACL@ PARAMETER ACL$S_ACLLENGTH = '00000004'X ! Get the ACL's length; PARAMETER ACL$S_READACE = '000000FF'X ! Read a single ACEF< 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_NEXT_ACE = '00000004'X ! Increment ACE number> PARAMETER ACL$S_DELETE_ALL = '000000FF'X ! Delete entire ACLD PARAMETER ACL$S_RESERVED_ITEM_2 = '000000FF'X ! Reserved item codeD PARAMETER ACL$S_RESERVED_ITEM_3 = '000000FF'X G ! Reserved item codeK PARAMETER ACL$C_MAX_SEGMENT_SIZE = '00000200'X ! Maximum ACL segemnt sizeK PARAMETER ACL$K_MAX_SEGMENT_SIZE = '00000200'X ! Maximum ACL segemnt size STRUCTURE /ACLDEF/G INTEGER*4 ACL$L_FLINK ! Forward link to next list in the queue D INTEGER*4 ACL$L_BLINK ! Back link to previous list in queue 6 INTEGER*2 ACL$W_SIZE ! Total size of the list 3 BYTE ACL$B_TYPE ! Structure type code - BYTE %FILL ! Spare unused byte C H INTEGER*4 ACL$L_LIST ! Start of the Access Control Entries ! Object types END STRUCTURE ! ACLDEFCDEC$ END OPTIONS wwM:`!*** MODULE $ACMEDEF ***CDEC$ OPTIONS /NOALIGN! H! Definitions for the $AUTHENTICATE[W], $LOGON[W], and $SET_PASSWORD[W]! system services.! ! ! $LOGON[W] function codes.! H PARAMETER ACME$_MAP_TO_USERNAME = '00000001'X ! Map userid to usernameL PARAMETER ACME$_VERIFY_PASSWORD_ONLY = '00000002'X ! Authenticate passwordS P IARAMETER ACME$_MAX_FUNCTION_CODE = '00000003'X ! maximum legal function code + 1! @! Item codes. Codes specific to a particular service are noted:! ! $AU = $AUTHENTICATE[W]! $LO = $LOGON[W]! $SP = $SET_PASSWORD[W]! A PARAMETER ACME$_NULL = '00000001'X ! NULL item code (skip item)> PARAMETER ACME$_DOMAIN = '00000002'X ! Authentication domain0 PARAMETER ACME$_USERID = '00000003'X ! User ID: PARAMETER ACME$_PASSWORD = '00000004'X ! Single password= PARAMETER ACME$_PASSWORD_JLIST = '00000005'X ! Password listA PARAMETER ACME$_NEW_PASSWORD = '00000006'X ! New password ($SP)S PARAMETER ACME$_OUTPUT_VMS_USERNAME = '00000007'X ! Mapped OpenVMS username ($LO)S PARAMETER ACME$_NOAUTHENTICATION = '00000008'X ! No password authentication ($SP)P PARAMETER ACME$_OVERRIDE_POLICY = '00000009'X ! Override password policy ($SP)O PARAMETER ACME$_SYNCHRONIZE = '0000000A'X ! Set password in all domains ($SP)G PARAMETER ACME$_REASON_CODE = '0000000B'X ! ACME-specific reas Kon codeM 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 2K PARAMETER ACME$_MAX_ITEM_CODE = '00000010'X ! maximum legal item code + 1! ! Structures and constants.! C PARAMETER ACME$C_MAJOR_VERSION = '00000001'X ! Major ACME versionC PARAMETER A LCME$C_MINOR_VERSION = '00000000'X ! Minor ACME versionC PARAMETER ACME$S_MAX_DOMAIN = '00000100'X ! Maximum domain lengthC PARAMETER ACME$S_MAX_USERID = '00000100'X ! Maximum userid lengthG PARAMETER ACME$S_MAX_PASSWORD = '00000100'X ! Maximum password length! J! The PASSWORD_LIST item code requires a list of password items with eachJ! item specified by a PWDITM structure definition. The list is terminated! by a longword zero.!  STRUCTURE /ACME$R_PWDITM/ UNION M MAP= INTEGER*4 ACME$L_TERMINATOR ! Termination longword END MAP MAPK INTEGER*2 ACME$W_PWDNUM ! Password number (1=primary, etc.)F INTEGER*2 ACME$W_RSRVD1 ! reserved for future use, MBZ END MAP END UNIONE INTEGER*4 ACME$A_OLDPWD ! Descriptor address for old passwordE INTEGER*4 ACME$A_NEWPWD ! Descriptor address for new password END STRUCTURE ! ACME$R_PWDITM! 6! Maximum password number to be used in pNassword list! 0 PARAMETER ACME$C_MAX_PASSWORD_NUM = '00000008'XCDEC$ END OPTIONS wwa%!*** MODULE $acmevmsdef IDENT X-3 ***CDEC$ OPTIONS /NOALIGN! 6! ACMEVMSIC structures mirror an ACMEDEF declaration!! until SDL READ works for Ada.! ! +! ! $ACM Item Codes! >! Item codes are 16-bit unsigned values, encoded as follows:! ! 1$! 5 8 7 0%! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+%! | | | | | | | | | | | | | | | | O|%! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ ! ^ ^ ^ ! | | |E! | | +-- Bit [13] = 0 ==> not subject to VTF-7 <-> UCS conversionA! | | 1 ==> subject to VTF-7 <-> UCS conversion! | |(! | +---- Bit [14] = 0 ==> input item)! | 1 ==> output item! |)! +------ Bit [15] = 0 ==> common item0! 1 ==> ACME specific item! ! -) PARAMETER acmevmsic$M_ITEM = '00001FFF'X( PARAMETER acmevmsic$m_ucs = '00002000'X+ PAR PAMETER acmevmsic$m_output = '00004000'X2 PARAMETER acmevmsic$m_acme_specific = '00008000'X+ PARAMETER acmevmsic$k_length = '00000002'X STRUCTURE /acmevmsic/ UNION MAP< INTEGER*2 acmevmsic$w_item_code ! Composite field END MAP MAP, PARAMETER acmevmsic$S_ITEM = 13< PARAMETER acmevmsic$V_ITEM = 0 ! Ranged value* PARAMETER acmevmsic$S_ucs = 1] PARAMETER acmevmsic$V_ucs = 13 ! 0 ==> not subject to VQTF-7 <-> UCS conversion,! 1 ==> subject to VTF-7 <-> UCS conversion- PARAMETER acmevmsic$S_output = 1B PARAMETER acmevmsic$V_output = 14 ! 0 ==> input item! 1 ==> output item4 PARAMETER acmevmsic$S_acme_specific = 1J PARAMETER acmevmsic$V_acme_specific = 15 ! 0 ==> common item! 1 ==> ACME specific item BYTE %FILL (2) END MAP END UNION END STRUCTURE ! acmevmsic! ! Item code biasing factors! ! BackwarRd-compatibility! Not for initial call! Contemporary supported! $CREPRC argument items ! UAI data! "! ACME-specific output data types! 6! These codes are provided by the VMS ACME for return-! in field MAX_LENGTH of an output Item Set.! 7! The field MAX_LENGTH is named for its purpose within6! 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.! @! These ACME-spec Sific values are provided only where the caller?! is one the VMS ACME knows can handle these particular binary! codes, i.e. LOGINOUT.! M! These data types are defined exclusively to provide backward compatibilityI! with interface methods used prior to the introduction of SYS$ACM[W] byH! TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces.D! They will not be provided to other clients which call SYS$ACM[W].! / PARAMETER acmevms$k_min_msg_type = '00008000'XR PARAMETTER acmevms$k_old_decw_pwd_exp_1 = '00008000'X ! Binary expiration warningR PARAMETER acmevms$k_old_decw_pwd_exp_2 = '00008001'X ! Binary expiration warningY PARAMETER acmevms$k_old_decw_pwd_quality = '00008002'X ! Binary password quality statusI PARAMETER acmevms$k_old_sysuaf_070 = '00008003'X ! Authorization RecordO PARAMETER acmevms$k_old_auth_flags = '00008004'X ! Password requirement flags/ PARAMETER acmevms$k_max_msg_type = '00008004'X! ,! ACME-specific Item Codes for the VMS ACUME! ;! 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 handling@! of multiple input item codes of the same value, the semantics:! of the VM VS 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! H! These codes are defined exclusively to provide backward compatibilityI! with interface methods used prior to the introduction of SYS$ACM[W] byH! TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces.E! They will not be honored from other clients wWhich call SYS$ACM[W].! , PARAMETER acmevms$_min_old_in = '00008000'X` 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 authentication mechanism[ PARAMETER acmevms$_old_lgi_phase = '00008003'X ! old LGI-callout authentication mechanism\ PARAMETER acmevms$_old_lgi_status = '00008004'X X ! old LGI-callout authentication mechanism, PARAMETER acmevms$_max_old_in = '00008004'X! ! Solicited Input Item Codes! D! These codes support historic LOGINOUT behavour and in addition toD! being retricted to LOGINOUT are not honored on initial calls fromI! LOGINOUT. They can only be provided in response to an Input Item Set.! 2 PARAMETER acmevms$_min_solicited_in = '00008100'XZ PARAMETER acmevms$_loginout_local_flag = '00008100'X ! LOGINOUT received /LOCAL_PASSWORDe PARAMETER Y acmevms$_loginout_reconn_flag = '00008101'X ! LOGINOUT is authenticating for reconnection2 PARAMETER acmevms$_max_solicited_in = '00008101'X! ! General Input Items! ?! These non-converting input item codes are permanent features@! of the VMS ACME, although some require particular privileges.! @! LOGINOUT_CREPRC_FLAGS is only honored from LOGINOUT, althoughE! other clients can achieve the same results using other Item Codes.@! The reason LOGINOUT_CREPRC_FLAGS exists is to minimZize coding>! changes for the transition of LOGINOUT to using SYS$ACM[W].! 0 PARAMETER acmevms$_min_general_in = '00008200'Xa PARAMETER acmevms$_autologin_allowed_flag = '00008200'X ! autologin is allowed for this request^ PARAMETER acmevms$_default_principal_flag = '00008201'X ! default principal name if possibleW PARAMETER acmevms$_genpwd_count = '00008202'X ! desired number of generated passwords\ PARAMETER acmevms$_genpwd_mandatory_flag = '00008203'X ! generated password must be chos[enZ PARAMETER acmevms$_genpwd_maxlength = '00008204'X ! maximum length of generated passwordZ PARAMETER acmevms$_genpwd_minlength = '00008205'X ! minimum length of generated password\ PARAMETER acmevms$_loginout_creprc_flags = '00008206'X ! CTL$GL_CREPRC_FLAGS from LOGINOUTE PARAMETER acmevms$_parent_pid = '00008207'X ! PID of client processT PARAMETER acmevms$_preauthentication_flag = '00008208'X ! preauthenticated request_ PARAMETER acmevms$_uses_system_password = '00008209'X ! this con \nection uses system passwords0 PARAMETER acmevms$_max_general_in = '00008209'X! 7! Input item codes subject to VTF-7 <-> UCS conversion! 4 PARAMETER acmevms$_min_general_in_ucs = '0000A400'XZ PARAMETER acmevms$_net_proxy = '0000A400'X ! network proxy username string from LOGINOUTO PARAMETER acmevms$_parent_username = '0000A401'X ! Username of client processU PARAMETER acmevms$_confirm_password_sys = '0000A402'X ! Reenter New System PasswordT PARAMETER acmevms$_confirm_password_1 = ' ]0000A403'X ! Reenter New Primary PasswordV PARAMETER acmevms$_confirm_password_2 = '0000A404'X ! Reenter New Secondary Password4 PARAMETER acmevms$_max_general_in_ucs = '0000A404'X! ! Output Item Codes! <! While SYS$ACM does not specify semantics for the handlingA! 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! ! ! CREPRC-based output items! C! These Output Item Codes provide information in a format suitableD! 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'XH PARAMETER acmevms$_creprc_baspri = '0000C300'X ! Process base priorityG PARAMETER acmevms$_creprc_image = '0000C301'X ! Image name (LOGINOUT)G PARAMETER acmevms$_creprc_prcnam = '0000C _302'X ! Process name (blank)D PARAMETER acmevms$_creprc_prvadr = '0000C303'X ! Process privilegeD PARAMETER acmevms$_creprc_quota = '0000C304'X ! Process quota listH PARAMETER acmevms$_creprc_uic = '0000C305'X ! UIC for detached process0 PARAMETER acmevms$_max_creprc_out = '0000C305'X! ! UAI-based output items! @! These codes provide the same information returned by $GETUAI,A! but synchronized with the UAI data as used for authentication.! >! Correspondence between these code `s and those from UAIDEF isA! 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.! C! The UAI_BASE constant defined below, added to normal UAI$_ codes@! 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 typeC PARAMETER acmevms$_auai_version = '0000C401'X ! UAF format versionX PARAMETER acmevms$_uai_usrdatoff = '0000C402'X ! offset of counted string of user data: PARAMETER acmevms$_uai_username = '0000C403'X ! usernameR PARAMETER acmevms$_uai_username_tag = '0000C404'X ! tag to differentiate records9 PARAMETER acmevms$_uai_uic = '0000C405'X ! user ID code< PARAMETER acmevms$_uai_mem = '0000C406'X ! member subfield; PARAMETER acmevms$_uai_grp = '0000C407'X ! group subfieldC PARAMETER acmevms$_uai_sub_id = '0000bC408'X ! user sub-identifierV 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 deviceA PARAMETER acmevms$_uai_defdir = '0000C40D'X ! default directoryB PARAMETER acmevms$_uai_lgicmd = '0000C40E'X ! login command fileK PARAMETER acmevms$_uai_defcli = '0000C40F'X ! default commcand interpreterB PARAMETER acmevms$_uai_clitables = '0000C410'X ! user CLI tables< PARAMETER acmevms$_uai_pwd = '0000C411'X ! hashed password= PARAMETER acmevms$_uai_pwd2 = '0000C412'X ! second passwordI PARAMETER acmevms$_uai_logfails = '0000C413'X ! count of login failuresB PARAMETER acmevms$_uai_salt = '0000C414'X ! random password saltP PARAMETER acmevms$_uai_encrypt = '0000C415'X ! primary password hash algorithmS PARAMETER acmevms$_uai_encrypt2 = '0000C416'X ! secondary passwordd hash algorithmK PARAMETER acmevms$_uai_pwd_length = '0000C417'X ! minimum password lengthO PARAMETER acmevms$_uai_expiration = '0000C418'X ! expiration date for accountG PARAMETER acmevms$_uai_pwd_lifetime = '0000C419'X ! password lifetimeI PARAMETER acmevms$_uai_pwd_date = '0000C41A'X ! date of password changeN PARAMETER acmevms$_uai_pwd2_date = '0000C41B'X ! date of 2nd password changeS PARAMETER acmevms$_uai_lastlogin_i = '0000C41C'X ! date of last interactive loginW PARAMETER aecmevms$_uai_lastlogin_n = '0000C41D'X ! date of last non-interactive loginF PARAMETER acmevms$_uai_priv = '0000C41E'X ! process privilege vectorL PARAMETER acmevms$_uai_def_priv = '0000C41F'X ! default process privilegesI PARAMETER acmevms$_uai_min_class = '0000C420'X ! minimum security classI PARAMETER acmevms$_uai_max_class = '0000C421'X ! maximum security classB PARAMETER acmevms$_uai_flags = '0000C422'X ! user flags longwordX PARAMETER acmevms$_uai_network_access_p = '0000C423'X ! fhourly network access, primaryZ PARAMETER acmevms$_uai_network_access_s = '0000C424'X ! hourly network access, secondaryT PARAMETER acmevms$_uai_batch_access_p = '0000C425'X ! hourly batch access, primaryV PARAMETER acmevms$_uai_batch_access_s = '0000C426'X ! hourly batch access, secondaryT PARAMETER acmevms$_uai_local_access_p = '0000C427'X ! hourly local access, primaryV PARAMETER acmevms$_uai_local_access_s = '0000C428'X ! hourly local access, secondaryV PARAMETER acmevms$_uai_dialup_accgess_p = '0000C429'X ! hourly dialup access, primaryX PARAMETER acmevms$_uai_dialup_access_s = '0000C42A'X ! hourly dialup access, secondaryV PARAMETER acmevms$_uai_remote_access_p = '0000C42B'X ! hourly remote access, primaryX PARAMETER acmevms$_uai_remote_access_s = '0000C42C'X ! hourly remote access, secondaryQ PARAMETER acmevms$_uai_primedays = '0000C42D'X ! bits representing primary daysB PARAMETER acmevms$_uai_pri = '0000C42E'X ! base process priorityL PARAMETER acmevms$_uai_quepri =h '0000C42F'X ! maximum job queuing priorityM PARAMETER acmevms$_uai_maxjobs = '0000C430'X ! maximum jobs for UIC allowedU PARAMETER acmevms$_uai_maxacctjobs = '0000C431'X ! maximum jobs for account allowedU PARAMETER acmevms$_uai_maxdetach = '0000C432'X ! maximum detached processes for UICI PARAMETER acmevms$_uai_prccnt = '0000C433'X ! subprocess creation limitA PARAMETER acmevms$_uai_biolm = '0000C434'X ! buffered I/O limit? PARAMETER acmevms$_uai_diolm = '0000C435'X ! direct I/O li imitF 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 limitC PARAMETER acmevms$_uai_shrfillm = '0000C43A'X ! shared file limitG PARAMETER acmevms$_uai_wsquota = '0000C43B'X ! working set size quotaI PARAMETER acmevms$_uai_dfwscnt = '0000C43C'X ! default working set sizeH PARAMETER acmevmsj$_uai_wsextent = '0000C43D'X ! working set size limitB PARAMETER acmevms$_uai_pgflquota = '0000C43E'X ! page file quota> PARAMETER acmevms$_uai_cputim = '0000C43F'X ! CPU time quotaL PARAMETER acmevms$_uai_bytlm = '0000C440'X ! buffered I/O byte count limitQ 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 quotaS PARAMETER acmevms$_uai_proxy_lim = '0000C443'X ! number of pkroxies user can grantJ PARAMETER acmevms$_uai_proxies = '0000C444'X ! number of proxies grantedS PARAMETER acmevms$_uai_account_lim = '0000C445'X ! number of sub-accounts allowedO PARAMETER acmevms$_uai_accounts = '0000C446'X ! number of sub-accounts in useA PARAMETER acmevms$_uai_user_data = '0000C447'X ! user data area*! Next two codes not supported for outputL PARAMETER acmevms$_uai_password = '0000C448'X ! plaintext primary passwordO PARAMETER acmevms$_uai_password2 = '0000C449'X l! plaintext secondary password.! Previous two codes not supported for outputR PARAMETER acmevms$_uai_def_class = '0000C44A'X ! default security classification- PARAMETER acmevms$_max_uai_out = '0000C44A'X! 8! Output item codes subject to VTF-7 <-> UCS conversion! ! +! ! Miscellaneous constants! ! -] PARAMETER acmevms$k_auth_mech_argus = '00D38000'X ! Authentication mechanism for TNT$SERVERU PARAMETER acmevms$k_uai_base = '0000C3FF'X ! Base to which UAI$_ codes can be madded` PARAMETER acmevms$k_maxchar_vms_username = '00000020'X ! Maximum size of a Mapped VMS UsernameCDEC$ END OPTIONS ww-d!*** MODULE $ACRDEF ***CDEC$ OPTIONS /NOALIGN! +)! ACRDEF - ACCOUNTING RECORD DEFINITIONS! H! NOTE: IF ANY FIELDS CHANGE, A NEW VERSION NUMBER MUST BE ADDED AND *O! "ACR$K_CURVER" EQUATED TO IT. *! ! -*! RECORD/PACKET VERSIONS (ACR$V_VERSION) K PARAMETER ACR$K_VERSION2 = '00000000' nX ! VMS VERSION 2 ACCOUNTING FORMAT E PARAMETER ACR$K_VERSION3T = '00000001'X ! VMS VERSION 3 FIELD TEST K PARAMETER ACR$K_VERSION3 = '00000002'X ! VMS VERSION 3 ACCOUNTING FORMAT G 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'X8 PARAMETER ACR$K_PRCDEL = '00000001'X ! P oROCESS DELETE 7 PARAMETER ACR$K_PRCPUR = '00000002'X ! PROCESS PURGE 6 PARAMETER ACR$K_IMGDEL = '00000003'X ! IMAGE DELETE 5 PARAMETER ACR$K_IMGPUR = '00000004'X ! IMAGE PURGE @ PARAMETER ACR$K_SYSINIT = '00000005'X ! SYSTEM INITIALIZATION : PARAMETER ACR$K_SETTIME = '00000006'X ! SET SYSTEM TIME C PARAMETER ACR$K_LOGFAIL = '00000007'X ! LOGIN VALIDATION FAILURE 2 PARAMETER ACR$K_PRINT = '00000008'X ! PRINT JOB : PARAMETER ACR$K_USER = '00000009'X ! USER SUPPLIED DATA D PARAMETER ApCR$K_ENABLE = '0000000A'X ! ACC. MANG. FUNCTION ENABLE F PARAMETER ACR$K_DISABLE = '0000000B'X ! ACC. MANG. FUNCTION DISABLE F PARAMETER ACR$K_ALTACM = '0000000C'X ! DECLARE ALTERNATE ACC. MANG. I PARAMETER ACR$K_FILE_FL = '0000000D'X ! ACCOUNTING FILE - FORWARD LINK J PARAMETER ACR$K_FILE_BL = '0000000E'X ! ACCOUNTING FILE - BACKWARD LINK ,! RECORD SUBTYPE (ACR$V_SUBTYPE) CONSTANTS B PARAMETER ACR$K_INTERACTIVE = '00000001'X ! INTERACTIVE PROCESS 8 PARAMETER ACR$K_SUBPROCESS = '0000000 q2'X ! SUBPROCESS < PARAMETER ACR$K_DETACHED = '00000003'X ! DETACHED PROCESS 6 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 A 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 A rCR$K_USER_DATA = '00000005'X ! USER DATA PACKET  STRUCTURE /ACRDEF/ UNION MAP6 INTEGER*2 ACR$W_TYPE ! RECORD/PACKET TYPE  END MAP MAP' PARAMETER ACR$S_PACKET = 1@ 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 = 4C PARAMETER ACR$V_SUBTYPE = 8 ! RECORD/PACKET SUBTYsPE ( PARAMETER ACR$S_VERSION = 3K PARAMETER ACR$V_VERSION = 12 ! RECORD/PACKET VERSION NUMBER ) PARAMETER ACR$S_CUSTOMER = 1* PARAMETER ACR$V_CUSTOMER = 159 BYTE %FILL (2) ! DIGITAL(0)/CUSTOMER(1)  END MAP&! RECORD TYPE (ACR$V_TYPE) CONSTANTS  END UNION9 INTEGER*2 ACR$W_LENGTH ! RECORD OR PACKET LENGTH ! ! RECORD HEADER!  END STRUCTURE ! ACRDEF> PARAMETER ACR$K_HDRLEN = '0000000C'X ! RECORtD HEADER LENGTH > PARAMETER ACR$C_HDRLEN = '0000000C'X ! RECORD HEADER LENGTH !  STRUCTURE /ACRDEF1/ BYTE %FILL(1:4)6 INTEGER*4 ACR$Q_SYSTIME(2) ! EVENT SYSTEM TIME ! IDENTIFICATION PACKET!  END STRUCTURE ! ACRDEF1' PARAMETER ACR$M_FULLNAME = '00000001'X% PARAMETER ACR$M_FILL_1 = '000000FE'XK PARAMETER ACR$K_IDVAR = '00000032'X ! BEGINNING OF VARIABLE STORAGE AREA K PARAMETER ACR$C_IDVAR = '00000032'X ! BEGINNING OF VARIABLE STORAGE AREA !  STRUCTURE /ACRDuEF2/ BYTE %FILL(1:4)) INTEGER*4 ACR$L_PID ! PROCESS ID 0 INTEGER*4 ACR$L_OWNER ! OWNER PROCES ID UNION MAP. INTEGER*4 ACR$L_UIC ! PROCESS UIC  END MAP MAP1 INTEGER*2 ACR$W_MEM ! MEMBER UIC 0 INTEGER*2 ACR$W_GRP ! GROUP UIC  END MAP END UNION/ INTEGER*4 ACR$Q_PRIV(2) ! PROCESS PRIV / BYTE ACR$B_PRI ! PROCESS PRIORITY UNION MAP3 B vYTE ACR$B_IDFLGS ! FLAGS BIT MASK END MAP MAP) PARAMETER ACR$S_FULLNAME = 1G PARAMETER ACR$V_FULLNAME = 0 ! NOT PRESENT(0)/PRESENT(1)' PARAMETER ACR$S_FILL_1 = 7' PARAMETER ACR$V_FILL_1 = 1, BYTE %FILL (1) ! SPARE BITS END MAP END UNION2 INTEGER*2 ACR$W_USERNAME ! USERNAME OFFSET 6 INTEGER*2 ACR$W_ACCOUNT ! ACCOUNT NAME OFFSET 3 INTEGER*2 ACR$W_NODENAME ! NODE N wAME OFFSET 7 INTEGER*2 ACR$W_TERMINAL ! TERMINAL NAME OFFSET 2 INTEGER*2 ACR$W_JOBNAME ! JOB NAME OFFSET ' INTEGER*4 ACR$L_JOBID ! JOB ID 2 INTEGER*2 ACR$W_QUEUE ! QUEUE NAME OFFSET 6 INTEGER*2 ACR$W_NODEADDR ! REMOTE NODE ADDRESS 3 INTEGER*2 ACR$W_REMOTEID ! REMOTE ID OFFSET 8 INTEGER*2 ACR$W_FULLADDR ! REMOTE PHASE V ADDRESS9 INTEGER*2 ACR$W_FULLNAME ! REMOTE PHASE V FULLNAME! RESOURCE PACKET!  END STRUCTURE ! ACRDEF2 STRUCTURE x /ACRDEF3/ BYTE %FILL(1:4); INTEGER*4 ACR$Q_LOGIN(2) ! PROCESS/IMAGE START TIME < INTEGER*4 ACR$L_STATUS ! PROCESS/IMAGE FINAL STATUS G INTEGER*4 ACR$L_IMGCNT ! IMAGE EXECUTION COUNT/SEQUENCE NUMBER 9 INTEGER*4 ACR$L_CPUTIME ! PROCESS/IMAGE CPU TIME @ INTEGER*4 ACR$L_FAULTS ! PROCESS/IMAGE PAGE FAULT COUNT E INTEGER*4 ACR$L_FAULTIO ! PROCESS/IMAGE PAGE FAULT I/O COUNT @ INTEGER*4 ACR$L_WSPEAK ! PROCESS/IMAGE WORKING SET PEAK D y INTEGER*4 ACR$L_PAGEFL ! PROCESS/IMAGE PEAK PAGE FILE USAGE @ INTEGER*4 ACR$L_DIOCNT ! PROCESS/IMAGE DIRECT I/O COUNT B INTEGER*4 ACR$L_BIOCNT ! PROCESS/IMAGE BUFFERED I/O COUNT C INTEGER*4 ACR$L_VOLUMES ! PROCESS/IMAGE VOLUME MOUNT COUNT A INTEGER*4 ACR$L_VP_CPUTIME ! PROCESS/IMAGE VECTOR CPU TIME! ! IMAGENAME PACKET!  END STRUCTURE ! ACRDEF3 STRUCTURE /ACRDEF4/ BYTE %FILL(1:4)1 CHARACTER*256 ACR$T_IMAGENAME ! IMAGENAME ! ! PRIzNT RESOURCE PACKET!  END STRUCTURE ! ACRDEF4 STRUCTURE /ACRDEF5/ BYTE %FILL(1:4)- INTEGER*4 ACR$L_PRINTSTS ! JOB STATUS 8 INTEGER*4 ACR$Q_QUETIME(2) ! TIME JOB WAS QUEUED 7 INTEGER*4 ACR$Q_BEGTIME(2) ! TIME JOB WAS BEGUN 5 INTEGER*4 ACR$L_SYMCPUTIM ! SYMBIONT CPU TIME 6 INTEGER*4 ACR$L_PAGECNT ! TOTAL PAGES PRINTED 3 INTEGER*4 ACR$L_QIOCNT ! TOTAL QIOS ISSUED 3 INTEGER*4 ACR$L_GETCNT ! TOTAL GETS ISSUED ! ! FILENAME PACKET{!  END STRUCTURE ! ACRDEF5 STRUCTURE /ACRDEF6/ BYTE %FILL(1:4)/ CHARACTER*256 ACR$T_FILENAME ! FILENAME ! ! USER DATA PACKET!  END STRUCTURE ! ACRDEF6 STRUCTURE /ACRDEF7/ BYTE %FILL(1:4)1 CHARACTER*256 ACR$T_USER_DATA ! USER DATA  END STRUCTURE ! ACRDEF7CDEC$ END OPTIONS wwmg!*** MODULE $AGNDEF ***CDEC$ OPTIONS /NOALIGN! + ! $ASSIGN FLAGS bit definitions! -' PARAMETER AGN$M_READONLY = '00000001'X( PAR|AMETER AGN$M_WRITEONLY = '00000002'X STRUCTURE /AGNDEF/ UNION MAP% PARAMETER AGN$S_READONLY = 1X PARAMETER AGN$V_READONLY = 0 ! Channel to be assigned to device is READ ONLY.& PARAMETER AGN$S_WRITEONLY = 1Z PARAMETER AGN$V_WRITEONLY = 1 ! Channel to be assigned to device is WRITE ONLY. BYTE %FILL (1) END MAP END UNION END STRUCTURE ! AGNDEFCDEC$ END OPTIONS ww bi!*** MODULE $ALPHADEF ***CDEC$ OPTIONS /N }OALIGN( PARAMETER ALPHA$K_ID_BASE = '00000401'XB PARAMETER ALPHA$K_A7000_610 = '00000401'X ! (DEC 7000 Model 610)B PARAMETER ALPHA$K_A7000_620 = '00000402'X ! (DEC 7000 Model 620)B PARAMETER ALPHA$K_A7000_630 = '00000403'X ! (DEC 7000 Model 630)B PARAMETER ALPHA$K_A7000_640 = '00000404'X ! (DEC 7000 Model 640)D PARAMETER ALPHA$K_A10000_610 = '00000405'X ! (DEC 10000 Model 610)D PARAMETER ALPHA$K_A10000_620 = '00000406'X ! (DEC 10000 Model 620)D PARAMETER ALPHA$K_A10000_630 = '00000407'X ~! (DEC 10000 Model 630)D PARAMETER ALPHA$K_A10000_640 = '00000408'X ! (DEC 10000 Model 640)C PARAMETER ALPHA$K_A3000_500W = '00000409'X ! (DEC 3000 Model 500)D PARAMETER ALPHA$K_A3000_500S = '0000040A'X ! (DEC 3000 Model 500S)C PARAMETER ALPHA$K_A3000_400W = '0000040B'X ! (DEC 3000 Model 400)D PARAMETER ALPHA$K_A3000_400S = '0000040C'X ! (DEC 3000 Model 400S)B PARAMETER ALPHA$K_A4000_610 = '0000040D'X ! (DEC 4000 Model 610)B 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'XB PARAMETER ALPHA$K_A3000_300 = '00000412'X ! (DEC 3000 Model 300)D PARAMETER ALPHA$K_A3000_300L = '00000413'X ! (DEC 3000 Model 300L)B PARAMETER ALPHA$K_A2000_300 = '00000414'X ! (DEC 2000 Model 300)D PARAMETER ALPHA$K_A2000_300S = '00000415'X ! (DEC 2000 Model 300S)B PARAMETER ALPHA$K_A7000_650 = '00000416'X ! (DEC 7000 Model 650)B PARAMETER ALPHA$K_A7000_660 = '00000417'X ! (DEC 7000 Model 660)D PARAMETER ALPHA$K_A10000_650 = '00000418'X ! (DEC 10000 Model 650)D 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'XD PARAMETER ALPHA$K_A3000_500X = '00000420'X ! (DEC 3000 Model 500X)E PARAMETER ALPHA$K_AS0202020001 = '00000421'X ! (DEC 4000 Model 710)E PARAMETER ALPHA$K_AS0202020002 = '00000422'X ! (DEC 4000 Model 720)P PARAMETER ALPHA$K_AS0902020001 = '00000423'X ! (AlphaServer 2100 4/200) (1cpu)P PARAMETER ALPHA$K_AS0902020002 = '00000424'X ! (AlphaServer 2100 4/200) (2cpu)P PARAMETER ALPHA$K_AS0902020003 = '00000425'X ! (AlphaServer 2100 4/200) (3cpu)P PARAMETER ALPHA$K_AS0902020004 = '00000426'X ! (AlphaServer 2100 4/200) (4cpu)E PARAMETER ALPHA$K_AS0402040001 = '00000427'X ! (DEC 3000 Model 800)E PARAMETER ALPHA$K_AS0402060001 = '00000428'X ! (DEC 3000 Model 600)E PARAMETER ALPHA$K_AS0602010001 = '00000429'X ! (DEC 2000 Model 500)F PARAMETER ALPHA$K_AS0702020001 = '0000042C'X ! (DEC 3000 Model 300X)G PARAMETER ALPHA$K_AS0702030001 = '0000042D'X ! (DEC 3000 Model 300LX)E PARAMETER ALPHA$K_AS0406070001 = '0000042E'X ! (DEC 3000 Model 700)E PARAMETER ALPHA$K_AS0406080001 = '0000042F'X ! (DEC 3000 Model 900); PARAMETER ALPHA$K_AS0706040001 = '00000430'X ! (DEC 3000); PARAMETER ALPHA$K_AS0706050001 = '00000431'X ! (DEC 3000)E PARAMETER ALPHA$K_AS0306030001 = '00000432'X ! (DEC 7000 Model 710)E PARAMETER ALPHA$K_AS0306030002 = '00000433'X ! (DEC 7000 Model 720)E PARAMETER ALPHA$K_AS0306030003 = '00000434'X ! (DEC 7000 Model 730)E PARAMETER ALPHA$K_AS0306030004 = '00000435'X ! (DEC 7000 Model 740)E PARAMETER ALPHA$K_AS0306030005 = '00000436'X ! (DEC 7000 Model 750)E PARAMETER ALPHA$K_AS0306030006 = '00000437'X ! (DEC 7000 Model 760)I PARAMETER ALPHA$K_AS0D02010001 = '0000043E'X ! (AlphaStation 400 4/166)I PARAMETER ALPHA$K_AS0D02020001 = '0000043F'X ! (AlphaStation 200 4/166)I PARAMETER ALPHA$K_AS0D02030001 = '00000440'X ! (AlphaStation 200 4/133)I PARAMETER ALPHA$K_AS0F05010001 = '00000441'X ! (AlphaStation 600 5/300)I PARAMETER ALPHA$K_AS1102010001 = '00000442'X ! (AlphaServer 1000 4/200)I PARAMETER ALPHA$K_AS1106020001 = '00000443'X ! (AlphaServer 1000 4/233)P PARAMETER ALPHA$K_AS0C05000001 = '00000445'X ! (AlphaServer 8200 5/300) (1cpu)P PARAMETER ALPHA$K_AS0C05000002 = '00000446'X ! (AlphaServer 8200 5/300) (2cpu)P PARAMETER ALPHA$K_AS0C05000003 = '00000447'X ! (AlphaServer 8200 5/300) (3cpu)P PARAMETER ALPHA$K_AS0C05000004 = '00000448'X ! (AlphaServer 8200 5/300) (4cpu)P PARAMETER ALPHA$K_AS0C05000005 = '00000449'X ! (AlphaServer 8200 5/300) (5cpu)P PARAMETER ALPHA$K_AS0C05000006 = '0000044A'X ! (AlphaServer 8200 5/300) (6cpu)P PARAMETER ALPHA$K_AS0C05010001 = '0000044B'X ! (AlphaServer 8400 5/300) (1cpu)P PARAMETER ALPHA$K_AS0C05010002 = '0000044C'X ! (AlphaServer 8400 5/300) (2cpu)P PARAMETER ALPHA$K_AS0C05010003 = '0000044D'X ! (AlphaServer 8400 5/300) (3cpu)P PARAMETER ALPHA$K_AS0C05010004 = '0000044E'X ! (AlphaServer 8400 5/300) (4cpu)P PARAMETER ALPHA$K_AS0C05010005 = '0000044F'X ! (AlphaServer 8400 5/300) (5cpu)P PARAMETER ALPHA$K_AS0C05010006 = '00000450'X ! (AlphaServer 8400 5/300) (6cpu)P PARAMETER ALPHA$K_AS0C05010007 = '00000451'X ! (AlphaServer 8400 5/300) (7cpu)P PARAMETER ALPHA$K_AS0C05010008 = '00000452'X ! (AlphaServer 8400 5/300) (8cpu)P PARAMETER ALPHA$K_AS0C05010009 = '00000453'X ! (AlphaServer 8400 5/300) (9cpu)Q PARAMETER ALPHA$K_AS0C0501000A = '00000454'X ! (AlphaServer 8400 5/300) (10cpu)Q PARAMETER ALPHA$K_AS0C0501000B = '00000455'X ! (AlphaServer 8400 5/300) (11cpu)Q PARAMETER ALPHA$K_AS0C0501000C = '00000456'X ! (AlphaServer 8400 5/300) (12cpu)P PARAMETER ALPHA$K_AS0906020001 = '0000045B'X ! (AlphaServer 2100 4/275) (1cpu)P PARAMETER ALPHA$K_AS0906020002 = '0000045C'X ! (AlphaServer 2100 4/275) (2cpu)P PARAMETER ALPHA$K_AS0906020003 = '0000045D'X ! (AlphaServer 2100 4/275) (3cpu)P PARAMETER ALPHA$K_AS0906020004 = '0000045E'X ! (AlphaServer 2100 4/275) (4cpu)P PARAMETER ALPHA$K_AS0905020001 = '0000045F'X ! (AlphaServer 2100 5/250) (1cpu)P PARAMETER ALPHA$K_AS0905020002 = '00000460'X ! (AlphaServer 2100 5/250) (2cpu)P PARAMETER ALPHA$K_AS0905020003 = '00000461'X ! (AlphaServer 2100 5/250) (3cpu)P PARAMETER ALPHA$K_AS0905020004 = '00000462'X ! (AlphaServer 2100 5/250) (4cpu)P PARAMETER ALPHA$K_AS0902010001 = '00000463'X ! (AlphaServer 2000 4/200) (1cpu)P PARAMETER ALPHA$K_AS0902010002 = '00000464'X ! (AlphaServer 2000 4/200) (2cpu)P PARAMETER ALPHA$K_AS0902010003 = '00000465'X ! (AlphaServer 2000 4/200) (3cpu)P PARAMETER ALPHA$K_AS0902010004 = '00000466'X ! (AlphaServer 2000 4/200) (4cpu)P PARAMETER ALPHA$K_AS0906010001 = '00000467'X ! (AlphaServer 2000 4/275) (1cpu)P PARAMETER ALPHA$K_AS0906010002 = '00000468'X ! (AlphaServer 2000 4/275) (2cpu)P PARAMETER ALPHA$K_AS0906010003 = '00000469'X ! (AlphaServer 2000 4/275) (3cpu)P PARAMETER ALPHA$K_AS0906010004 = '0000046A'X ! (AlphaServer 2000 4/275) (4cpu)P PARAMETER ALPHA$K_AS0905010001 = '0000046B'X ! (AlphaServer 2000 5/250) (1cpu)P PARAMETER ALPHA$K_AS0905010002 = '0000046C'X ! (AlphaServer 2000 5/250) (2cpu)P PARAMETER ALPHA$K_AS0905010003 = '0000046D'X ! (AlphaServer 2000 5/250) (3cpu)P PARAMETER ALPHA$K_AS0905010004 = '0000046E'X ! (AlphaServer 2000 5/250) (4cpu)S PARAMETER ALPHA$K_AS0902030001 = '0000046F'X ! (AlphaServer 2100-RM 4/200) (1cpu)S PARAMETER ALPHA$K_AS0902030002 = '00000470'X ! (AlphaServer 2100-RM 4/200) (2cpu)S PARAMETER ALPHA$K_AS0902030003 = '00000471'X ! (AlphaServer 2100-RM 4/200) (3cpu)S PARAMETER ALPHA$K_AS0902030004 = '00000472'X ! (AlphaServer 2100-RM 4/200) (4cpu)S PARAMETER ALPHA$K_AS0906030001 = '00000473'X ! (AlphaServer 2100-RM 4/275) (1cpu)S PARAMETER ALPHA$K_AS0906030002 = '00000474'X ! (AlphaServer 2100-RM 4/275) (2cpu)S PARAMETER ALPHA$K_AS0906030003 = '00000475'X ! (AlphaServer 2100-RM 4/275) (3cpu)S PARAMETER ALPHA$K_AS0906030004 = '00000476'X ! (AlphaServer 2100-RM 4/275) (4cpu)S PARAMETER ALPHA$K_AS0905030001 = '00000477'X ! (AlphaServer 2100-RM 5/250) (1cpu)S PARAMETER ALPHA$K_AS0905030002 = '00000478'X ! (AlphaServer 2100-RM 5/250) (2cpu)S PARAMETER ALPHA$K_AS0905030003 = '00000479'X ! (AlphaServer 2100-RM 5/250) (3cpu)S PARAMETER ALPHA$K_AS0905030004 = '0000047A'X ! (AlphaServer 2100-RM 5/250) (4cpu)I PARAMETER ALPHA$K_AS0D06040001 = '0000047F'X ! (AlphaStation 200 4/233)I PARAMETER ALPHA$K_AS0D06050001 = '00000480'X ! (AlphaStation 400 4/233)N PARAMETER ALPHA$K_AS0D06060001 = '00000481'X ! (AlphaStation 400 4/266) (2M)Q PARAMETER ALPHA$K_AS0D06070001 = '00000482'X ! (AlphaStation 400 4/266) (512kb)5 PARAMETER ALPHA$K_AS0D06080001 = '00000483'X ! (M3)I PARAMETER ALPHA$K_AS0D02090001 = '00000484'X ! (AlphaStation 200 4/100)I PARAMETER ALPHA$K_AS0D060A0001 = '00000485'X ! (AlphaStation 200 4/300)I PARAMETER ALPHA$K_AS0D060B0001 = '00000486'X ! (AlphaStation 200 4/266)6 PARAMETER ALPHA$K_AS0D060C0001 = '00000487'X ! (M3+)I PARAMETER ALPHA$K_AS0D060D0001 = '00000488'X ! (AlphaStation 400 4/300)I PARAMETER ALPHA$K_AS0F05020001 = '00000489'X ! (AlphaStation 600 5/266)5 PARAMETER ALPHA$K_AS1706010001 = '0000048F'X ! (K2)P PARAMETER ALPHA$K_AS0906010101 = '00000493'X ! (AlphaServer 2000 4/233) (1cpu)P PARAMETER ALPHA$K_AS0906010102 = '00000494'X ! (AlphaServer 2000 4/233) (2cpu)P PARAMETER ALPHA$K_AS0906010103 = '00000495'X ! (AlphaServer 2000 4/233) (3cpu)P PARAMETER ALPHA$K_AS0906010104 = '00000496'X ! (AlphaServer 2000 4/233) (4cpu)P PARAMETER ALPHA$K_AS0905010101 = '00000497'X ! (AlphaServer 2000 5/300) (1cpu)P PARAMETER ALPHA$K_AS0905010102 = '00000498'X ! (AlphaServer 2000 5/300) (2cpu)P PARAMETER ALPHA$K_AS0905010103 = '00000499'X ! (AlphaServer 2000 5/300) (3cpu)P PARAMETER ALPHA$K_AS0905010104 = '0000049A'X ! (AlphaServer 2000 5/300) (4cpu)P PARAMETER ALPHA$K_AS0906020101 = '0000049B'X ! (AlphaServer 2100 4/233) (1cpu)P PARAMETER ALPHA$K_AS0906020102 = '0000049C'X ! (AlphaServer 2100 4/233) (2cpu)P PARAMETER ALPHA$K_AS0906020103 = '0000049D'X ! (AlphaServer 2100 4/233) (3cpu)P PARAMETER ALPHA$K_AS0906020104 = '0000049E'X ! (AlphaServer 2100 4/233) (4cpu)P PARAMETER ALPHA$K_AS0905020101 = '0000049F'X ! (AlphaServer 2100 5/300) (1cpu)P PARAMETER ALPHA$K_AS0905020102 = '000004A0'X ! (AlphaServer 2100 5/300) (2cpu)P PARAMETER ALPHA$K_AS0905020103 = '000004A1'X ! (AlphaServer 2100 5/300) (3cpu)P PARAMETER ALPHA$K_AS0905020104 = '000004A2'X ! (AlphaServer 2100 5/300) (4cpu)S PARAMETER ALPHA$K_AS0906030101 = '000004A3'X ! (AlphaServer 2100-RM 4/233) (1cpu)S PARAMETER ALPHA$K_AS0906030102 = '000004A4'X ! (AlphaServer 2100-RM 4/233) (2cpu)S PARAMETER ALPHA$K_AS0906030103 = '000004A5'X ! (AlphaServer 2100-RM 4/233) (3cpu)S PARAMETER ALPHA$K_AS0906030104 = '000004A6'X ! (AlphaServer 2100-RM 4/233) (4cpu)S PARAMETER ALPHA$K_AS0905030101 = '000004A7'X ! (AlphaServer 2100-RM 5/300) (1cpu)S PARAMETER ALPHA$K_AS0905030102 = '000004A8'X ! (AlphaServer 2100-RM 5/300) (2cpu)S PARAMETER ALPHA$K_AS0905030103 = '000004A9'X ! (AlphaServer 2100-RM 5/300) (3cpu)S PARAMETER ALPHA$K_AS0905030104 = '000004AA'X ! (AlphaServer 2100-RM 5/300) (4cpu)Q PARAMETER ALPHA$K_AS1806010001 = '000004AB'X ! (AlphaServer 2000A 4/233) (1cpu)Q PARAMETER ALPHA$K_AS1806010002 = '000004AC'X ! (AlphaServer 2000A 4/233) (2cpu)Q PARAMETER ALPHA$K_AS1806010003 = '000004AD'X ! (AlphaServer 2000A 4/233) (3cpu)Q PARAMETER ALPHA$K_AS1806010004 = '000004AE'X ! (AlphaServer 2000A 4/233) (4cpu)Q PARAMETER ALPHA$K_AS1806010101 = '000004AF'X ! (AlphaServer 2000A 4/275) (1cpu)Q PARAMETER ALPHA$K_AS1806010102 = '000004B0'X ! (AlphaServer 2000A 4/275) (2cpu)Q PARAMETER ALPHA$K_AS1806010103 = '000004B1'X ! (AlphaServer 2000A 4/275) (3cpu)Q PARAMETER ALPHA$K_AS1806010104 = '000004B2'X ! (AlphaServer 2000A 4/275) (4cpu)Q PARAMETER ALPHA$K_AS1805010001 = '000004B3'X ! (AlphaServer 2000A 5/250) (1cpu)Q PARAMETER ALPHA$K_AS1805010002 = '000004B4'X ! (AlphaServer 2000A 5/250) (2cpu)Q PARAMETER ALPHA$K_AS1805010003 = '000004B5'X ! (AlphaServer 2000A 5/250) (3cpu)Q PARAMETER ALPHA$K_AS1805010004 = '000004B6'X ! (AlphaServer 2000A 5/250) (4cpu)Q PARAMETER ALPHA$K_AS1805010101 = '000004B7'X ! (AlphaServer 2000A 5/300) (1cpu)Q PARAMETER ALPHA$K_AS1805010102 = '000004B8'X ! (AlphaServer 2000A 5/300) (2cpu)Q PARAMETER ALPHA$K_AS1805010103 = '000004B9'X ! (AlphaServer 2000A 5/300) (3cpu)Q PARAMETER ALPHA$K_AS1805010104 = '000004BA'X ! (AlphaServer 2000A 5/300) (4cpu)Q PARAMETER ALPHA$K_AS1806020001 = '000004BB'X ! (AlphaServer 2100A 4/233) (1cpu)Q PARAMETER ALPHA$K_AS1806020002 = '000004BC'X ! (AlphaServer 2100A 4/233) (2cpu)Q PARAMETER ALPHA$K_AS1806020003 = '000004BD'X ! (AlphaServer 2100A 4/233) (3cpu)Q PARAMETER ALPHA$K_AS1806020004 = '000004BE'X ! (AlphaServer 2100A 4/233) (4cpu)Q PARAMETER ALPHA$K_AS1806020101 = '000004BF'X ! (AlphaServer 2100A 4/275) (1cpu)Q PARAMETER ALPHA$K_AS1806020102 = '000004C0'X ! (AlphaServer 2100A 4/275) (2cpu)Q PARAMETER ALPHA$K_AS1806020103 = '000004C1'X ! (AlphaServer 2100A 4/275) (3cpu)Q PARAMETER ALPHA$K_AS1806020104 = '000004C2'X ! (AlphaServer 2100A 4/275) (4cpu)Q PARAMETER ALPHA$K_AS1805020001 = '000004C3'X ! (AlphaServer 2100A 5/250) (1cpu)Q PARAMETER ALPHA$K_AS1805020002 = '000004C4'X ! (AlphaServer 2100A 5/250) (2cpu)Q PARAMETER ALPHA$K_AS1805020003 = '000004C5'X ! (AlphaServer 2100A 5/250) (3cpu)Q PARAMETER ALPHA$K_AS1805020004 = '000004C6'X ! (AlphaServer 2100A 5/250) (4cpu)Q PARAMETER ALPHA$K_AS1805020101 = '000004C7'X ! (AlphaServer 2100A 5/300) (1cpu)Q PARAMETER ALPHA$K_AS1805020102 = '000004C8'X ! (AlphaServer 2100A 5/300) (2cpu)Q PARAMETER ALPHA$K_AS1805020103 = '000004C9'X ! (AlphaServer 2100A 5/300) (3cpu)Q PARAMETER ALPHA$K_AS1805020104 = '000004CA'X ! (AlphaServer 2100A 5/300) (4cpu)T PARAMETER ALPHA$K_AS1806030001 = '000004CB'X ! (AlphaServer 2100A-RM 4/233) (1cpu)T PARAMETER ALPHA$K_AS1806030002 = '000004CC'X ! (AlphaServer 2100A-RM 4/233) (2cpu)T PARAMETER ALPHA$K_AS1806030003 = '000004CD'X ! (AlphaServer 2100A-RM 4/233) (3cpu)T PARAMETER ALPHA$K_AS1806030004 = '000004CE'X ! (AlphaServer 2100A-RM 4/233) (4cpu)T PARAMETER ALPHA$K_AS1806030101 = '000004CF'X ! (AlphaServer 2100A-RM 4/275) (1cpu)T PARAMETER ALPHA$K_AS1806030102 = '000004D0'X ! (AlphaServer 2100A-RM 4/275) (2cpu)T PARAMETER ALPHA$K_AS1806030103 = '000004D1'X ! (AlphaServer 2100A-RM 4/275) (3cpu)T PARAMETER ALPHA$K_AS1806030104 = '000004D2'X ! (AlphaServer 2100A-RM 4/275) (4cpu)T PARAMETER ALPHA$K_AS1805030001 = '000004D3'X ! (AlphaServer 2100A-RM 5/250) (1cpu)T PARAMETER ALPHA$K_AS1805030002 = '000004D4'X ! (AlphaServer 2100A-RM 5/250) (2cpu)T PARAMETER ALPHA$K_AS1805030003 = '000004D5'X ! (AlphaServer 2100A-RM 5/250) (3cpu)T PARAMETER ALPHA$K_AS1805030004 = '000004D6'X ! (AlphaServer 2100A-RM 5/250) (4cpu)T PARAMETER ALPHA$K_AS1805030101 = '000004D7'X ! (AlphaServer 2100A-RM 5/300) (1cpu)T PARAMETER ALPHA$K_AS1805030102 = '000004D8'X ! (AlphaServer 2100A-RM 5/300) (2cpu)T PARAMETER ALPHA$K_AS1805030103 = '000004D9'X ! (AlphaServer 2100A-RM 5/300) (3cpu)T PARAMETER ALPHA$K_AS1805030104 = '000004DA'X ! (AlphaServer 2100A-RM 5/300) (4cpu)< PARAMETER ALPHA$K_AS1A05010001 = '000004DD'X ! (EB164 266)< PARAMETER ALPHA$K_AS1A05020001 = '000004DE'X ! (EB164 300)I PARAMETER ALPHA$K_AS0D06200001 = '000004E2'X ! (AlphaStation 205 4/133)I PARAMETER ALPHA$K_AS0D06210001 = '000004E3'X ! (AlphaStation 205 4/166)I PARAMETER ALPHA$K_AS0D06220001 = '000004E4'X ! (AlphaStation 205 4/200)I PARAMETER ALPHA$K_AS0D06230001 = '000004E5'X ! (AlphaStation 205 4/233)I PARAMETER ALPHA$K_AS0D06240001 = '000004E6'X ! (AlphaStation 205 4/266)I PARAMETER ALPHA$K_AS0D06250001 = '000004E7'X ! (AlphaStation 205 4/300)I PARAMETER ALPHA$K_AS0D06260001 = '000004E8'X ! (AlphaStation 205 4/333)I PARAMETER ALPHA$K_AS0D06270001 = '000004E9'X ! (AlphaStation 255 4/133)I PARAMETER ALPHA$K_AS0D06280001 = '000004EA'X ! (AlphaStation 255 4/166)I PARAMETER ALPHA$K_AS0D06290001 = '000004EB'X ! (AlphaStation 255 4/200)I PARAMETER ALPHA$K_AS0D062A0001 = '000004EC'X ! (AlphaStation 255 4/233)I PARAMETER ALPHA$K_AS0D062B0001 = '000004ED'X ! (AlphaStation 255 4/266)I PARAMETER ALPHA$K_AS0D062C0001 = '000004EE'X ! (AlphaStation 255 4/300)I PARAMETER ALPHA$K_AS0D062D0001 = '000004EF'X ! (AlphaStation 255 4/333)I PARAMETER ALPHA$K_AS1106030001 = '000004F0'X ! (AlphaServer 1000 4/266)J PARAMETER ALPHA$K_AS1B06010001 = '000004F1'X ! (AlphaServer 1000A 4/266)I PARAMETER ALPHA$K_AS0F05030001 = '000004F2'X ! (AlphaStation 500 5/266)I PARAMETER ALPHA$K_AS0F05040001 = '000004F3'X ! (AlphaStation 500 5/300)I PARAMETER ALPHA$K_AS0F05050001 = '000004F4'X ! (AlphaStation 500 5/333)I PARAMETER ALPHA$K_AS1105040001 = '000004F5'X ! (AlphaServer 1000 5/300)J PARAMETER ALPHA$K_AS1B05020001 = '000004F6'X ! (AlphaServer 1000A 5/300)I PARAMETER ALPHA$K_AS0F05060001 = '000004FB'X ! (AlphaStation 600 5/333)I PARAMETER ALPHA$K_AS0F05070001 = '000004FC'X ! (AlphaStation 600 5/366)I PARAMETER ALPHA$K_AS0F05080001 = '000004FD'X ! (AlphaStation 600 5/400)I PARAMETER ALPHA$K_AS0F05090001 = '000004FE'X ! (AlphaStation 600 5/433)I PARAMETER ALPHA$K_AS0F050A0001 = '000004FF'X ! (AlphaStation 600 5/466)I PARAMETER ALPHA$K_AS0F050B0001 = '00000500'X ! (AlphaStation 600 5/500)G PARAMETER ALPHA$K_AS0F070C0001 = '00000501'X ! (AlphaStation 500/333)G PARAMETER ALPHA$K_AS0F070D0001 = '00000502'X ! (AlphaStation 500/366)G PARAMETER ALPHA$K_AS0F070E0001 = '00000503'X ! (AlphaStation 500/400)G PARAMETER ALPHA$K_AS0F070F0001 = '00000504'X ! (AlphaStation 500/433)G PARAMETER ALPHA$K_AS0F07100001 = '00000505'X ! (AlphaStation 500/466)G PARAMETER ALPHA$K_AS0F07110001 = '00000506'X ! (AlphaStation 500/500)P PARAMETER ALPHA$K_AS0C05020001 = '0000050C'X ! (AlphaServer 8200 5/350) (1cpu)P PARAMETER ALPHA$K_AS0C05020002 = '0000050D'X ! (AlphaServer 8200 5/350) (2cpu)P PARAMETER ALPHA$K_AS0C05020003 = '0000050E'X ! (AlphaServer 8200 5/350) (3cpu)P PARAMETER ALPHA$K_AS0C05020004 = '0000050F'X ! (AlphaServer 8200 5/350) (4cpu)P PARAMETER ALPHA$K_AS0C05020005 = '00000510'X ! (AlphaServer 8200 5/350) (5cpu)P PARAMETER ALPHA$K_AS0C05020006 = '00000511'X ! (AlphaServer 8200 5/350) (6cpu)P PARAMETER ALPHA$K_AS0C05030001 = '00000512'X ! (AlphaServer 8400 5/350) (1cpu)P PARAMETER ALPHA$K_AS0C05030002 = '00000513'X ! (AlphaServer 8400 5/350) (2cpu)P PARAMETER ALPHA$K_AS0C05030003 = '00000514'X ! (AlphaServer 8400 5/350) (3cpu)P PARAMETER ALPHA$K_AS0C05030004 = '00000515'X ! (AlphaServer 8400 5/350) (4cpu)P PARAMETER ALPHA$K_AS0C05030005 = '00000516'X ! (AlphaServer 8400 5/350) (5cpu)P PARAMETER ALPHA$K_AS0C05030006 = '00000517'X ! (AlphaServer 8400 5/350) (6cpu)P PARAMETER ALPHA$K_AS0C05030007 = '00000518'X ! (AlphaServer 8400 5/350) (7cpu)P PARAMETER ALPHA$K_AS0C05030008 = '00000519'X ! (AlphaServer 8400 5/350) (8cpu)P PARAMETER ALPHA$K_AS0C05030009 = '0000051A'X ! (AlphaServer 8400 5/350) (9cpu)Q PARAMETER ALPHA$K_AS0C0503000A = '0000051B'X ! (AlphaServer 8400 5/350) (10cpu)Q PARAMETER ALPHA$K_AS0C0503000B = '0000051C'X ! (AlphaServer 8400 5/350) (11cpu)Q PARAMETER ALPHA$K_AS0C0503000C = '0000051D'X ! (AlphaServer 8400 5/350) (12cpu)H PARAMETER ALPHA$K_AS1B07040001 = '0000051E'X ! (AlphaServer 600 5/333)J PARAMETER ALPHA$K_AS1B07030001 = '0000051F'X ! (AlphaServer 1000A 5/400)I PARAMETER ALPHA$K_AS1107050001 = '00000520'X ! (AlphaServer 1000 5/400)T PARAMETER ALPHA$K_AS1605020001 = '00000521'X ! (AlphaServer 4100 5/266 0MB) (1cpu)T PARAMETER ALPHA$K_AS1605020002 = '00000522'X ! (AlphaServer 4100 5/266 0MB) (2cpu)T PARAMETER ALPHA$K_AS1605020003 = '00000523'X ! (AlphaServer 4100 5/266 0MB) (3cpu)T PARAMETER ALPHA$K_AS1605020004 = '00000524'X ! (AlphaServer 4100 5/266 0MB) (4cpu)T PARAMETER ALPHA$K_AS1605010001 = '00000525'X ! (AlphaServer 4100 5/266 0MB) (1cpu)T PARAMETER ALPHA$K_AS1605010002 = '00000526'X ! (AlphaServer 4100 5/266 0MB) (2cpu)T PARAMETER ALPHA$K_AS1605010003 = '00000527'X ! (AlphaServer 4100 5/266 0MB) (3cpu)T PARAMETER ALPHA$K_AS1605010004 = '00000528'X ! (AlphaServer 4100 5/266 0MB) (4cpu)T PARAMETER ALPHA$K_AS1605020101 = '00000529'X ! (AlphaServer 4100 5/300 0MB) (1cpu)T PARAMETER ALPHA$K_AS1605020102 = '0000052A'X ! (AlphaServer 4100 5/300 0MB) (2cpu)T PARAMETER ALPHA$K_AS1605020103 = '0000052B'X ! (AlphaServer 4100 5/300 0MB) (3cpu)T PARAMETER ALPHA$K_AS1605020104 = '0000052C'X ! (AlphaServer 4100 5/300 0MB) (4cpu)T PARAMETER ALPHA$K_AS1605010101 = '0000052D'X ! (AlphaServer 4100 5/300 0MB) (1cpu)T PARAMETER ALPHA$K_AS1605010102 = '0000052E'X ! (AlphaServer 4100 5/300 0MB) (2cpu)T PARAMETER ALPHA$K_AS1605010103 = '0000052F'X ! (AlphaServer 4100 5/300 0MB) (3cpu)T PARAMETER ALPHA$K_AS1605010104 = '00000530'X ! (AlphaServer 4100 5/300 0MB) (4cpu)T PARAMETER ALPHA$K_AS1607020001 = '00000531'X ! (AlphaServer 4100 5/400 0MB) (1cpu)T PARAMETER ALPHA$K_AS1607020002 = '00000532'X ! (AlphaServer 4100 5/400 0MB) (2cpu)T PARAMETER ALPHA$K_AS1607020003 = '00000533'X ! (AlphaServer 4100 5/400 0MB) (3cpu)T PARAMETER ALPHA$K_AS1607020004 = '00000534'X ! (AlphaServer 4100 5/400 0MB) (4cpu)T PARAMETER ALPHA$K_AS1607010001 = '00000535'X ! (AlphaServer 4100 5/400 0MB) (1cpu)T PARAMETER ALPHA$K_AS1607010002 = '00000536'X ! (AlphaServer 4100 5/400 0MB) (2cpu)T PARAMETER ALPHA$K_AS1607010003 = '00000537'X ! (AlphaServer 4100 5/400 0MB) (3cpu)T PARAMETER ALPHA$K_AS1607010004 = '00000538'X ! (AlphaServer 4100 5/400 0MB) (4cpu)T PARAMETER ALPHA$K_AS1605020201 = '00000539'X ! (AlphaServer 4100 5/266 1MB) (1cpu)T PARAMETER ALPHA$K_AS1605020202 = '0000053A'X ! (AlphaServer 4100 5/266 1MB) (2cpu)T PARAMETER ALPHA$K_AS1605020203 = '0000053B'X ! (AlphaServer 4100 5/266 1MB) (3cpu)T PARAMETER ALPHA$K_AS1605020204 = '0000053C'X ! (AlphaServer 4100 5/266 1MB) (4cpu)T PARAMETER ALPHA$K_AS1605010201 = '0000053D'X ! (AlphaServer 4100 5/266 1MB) (1cpu)T PARAMETER ALPHA$K_AS1605010202 = '0000053E'X ! (AlphaServer 4100 5/266 1MB) (2cpu)T PARAMETER ALPHA$K_AS1605010203 = '0000053F'X ! (AlphaServer 4100 5/266 1MB) (3cpu)T PARAMETER ALPHA$K_AS1605010204 = '00000540'X ! (AlphaServer 4100 5/266 1MB) (4cpu)T PARAMETER ALPHA$K_AS1605020301 = '00000541'X ! (AlphaServer 4100 5/300 1MB) (1cpu)T PARAMETER ALPHA$K_AS1605020302 = '00000542'X ! (AlphaServer 4100 5/300 1MB) (2cpu)T PARAMETER ALPHA$K_AS1605020303 = '00000543'X ! (AlphaServer 4100 5/300 1MB) (3cpu)T PARAMETER ALPHA$K_AS1605020304 = '00000544'X ! (AlphaServer 4100 5/300 1MB) (4cpu)T PARAMETER ALPHA$K_AS1605010301 = '00000545'X ! (AlphaServer 4100 5/300 1MB) (1cpu)T PARAMETER ALPHA$K_AS1605010302 = '00000546'X ! (AlphaServer 4100 5/300 1MB) (2cpu)T PARAMETER ALPHA$K_AS1605010303 = '00000547'X ! (AlphaServer 4100 5/300 1MB) (3cpu)T PARAMETER ALPHA$K_AS1605010304 = '00000548'X ! (AlphaServer 4100 5/300 1MB) (4cpu)T PARAMETER ALPHA$K_AS1607020101 = '00000549'X ! (AlphaServer 4100 5/400 1MB) (1cpu)T PARAMETER ALPHA$K_AS1607020102 = '0000054A'X ! (AlphaServer 4100 5/400 1MB) (2cpu)T PARAMETER ALPHA$K_AS1607020103 = '0000054B'X ! (AlphaServer 4100 5/400 1MB) (3cpu)T PARAMETER ALPHA$K_AS1607020104 = '0000054C'X ! (AlphaServer 4100 5/400 1MB) (4cpu)T PARAMETER ALPHA$K_AS1607010101 = '0000054D'X ! (AlphaServer 4100 5/400 1MB) (1cpu)T PARAMETER ALPHA$K_AS1607010102 = '0000054E'X ! (AlphaServer 4100 5/400 1MB) (2cpu)T PARAMETER ALPHA$K_AS1607010103 = '0000054F'X ! (AlphaServer 4100 5/400 1MB) (3cpu)T PARAMETER ALPHA$K_AS1607010104 = '00000550'X ! (AlphaServer 4100 5/400 1MB) (4cpu)T PARAMETER ALPHA$K_AS1605020401 = '00000551'X ! (AlphaServer 4100 5/266 2MB) (1cpu)T PARAMETER ALPHA$K_AS1605020402 = '00000552'X ! (AlphaServer 4100 5/266 2MB) (2cpu)T PARAMETER ALPHA$K_AS1605020403 = '00000553'X !  (AlphaServer 4100 5/266 2MB) (3cpu)T PARAMETER ALPHA$K_AS1605020404 = '00000554'X ! (AlphaServer 4100 5/266 2MB) (4cpu)T PARAMETER ALPHA$K_AS1605010401 = '00000555'X ! (AlphaServer 4100 5/266 2MB) (1cpu)T PARAMETER ALPHA$K_AS1605010402 = '00000556'X ! (AlphaServer 4100 5/266 2MB) (2cpu)T PARAMETER ALPHA$K_AS1605010403 = '00000557'X ! (AlphaServer 4100 5/266 2MB) (3cpu)T PARAMETER ALPHA$K_AS1605010404 = '00000558'X ! (AlphaServer 4100 5/266 2MB) (4cpu)T PARAMETER ALPHA$K_AS1605020501 = '00000559'X ! (AlphaServer 4100 5/300 2MB) (1cpu)T PARAMETER ALPHA$K_AS1605020502 = '0000055A'X ! (AlphaServer 4100 5/300 2MB) (2cpu)T PARAMETER ALPHA$K_AS1605020503 = '0000055B'X ! (AlphaServer 4100 5/300 2MB) (3cpu)T PARAMETER ALPHA$K_AS1605020504 = '0000055C'X ! (AlphaServer 4100 5/300 2MB) (4cpu)T PARAMETER ALPHA$K_AS1605010501 = '0000055D'X ! (AlphaServer 4100 5/300 2MB) (1cpu)T PARAMETER ALPHA$K_AS1605010502 = '0000055E'X ! (AlphaServer 4100 5/300 2MB) (2cpu)T PARAMETER ALPHA$K_AS1605010503 = '0000055F'X ! (AlphaServer 4100 5/300 2MB) (3cpu)T PARAMETER ALPHA$K_AS1605010504 = '00000560'X ! (AlphaServer 4100 5/300 2MB) (4cpu)T PARAMETER ALPHA$K_AS1607020201 = '00000561'X ! (AlphaServer 4100 5/400 2MB) (1cpu)T PARAMETER ALPHA$K_AS1607020202 = '00000562'X ! (AlphaServer 4100 5/400 2MB) (2cpu)T PARAMETER ALPHA$K_AS1607020203 = '00000563'X ! (AlphaServer 4100 5/400 2MB) (3cpu)T PARAMETER ALPHA$K_AS1607020204 = '00000564'X ! (AlphaServer 4100 5/400 2MB) (4cpu)T PARAMETER ALPHA$K_AS1607010201 = '00000565'X ! (AlphaServer 4100 5/400 2MB) (1cpu)T PARAMETER ALPHA$K_AS1607010202 = '00000566'X ! (AlphaServer 4100 5/400 2MB) (2cpu)T PARAMETER ALPHA$K_AS1607010203 = '00000567'X ! (AlphaServer 4100 5/400 2MB) (3cpu)T PARAMETER ALPHA$K_AS1607010204 = '00000568'X ! (AlphaServer 4100 5/400 2MB) (4cpu)T PARAMETER ALPHA$K_AS1605020601 = '00000569'X ! (AlphaServer 4100 5/266 4MB) (1cpu)T PARAMETER ALPHA$K_AS1605020602 = '0000056A'X ! (AlphaServer 4100 5/266 4MB) (2cpu)T PARAMETER ALPHA$K_AS1605020603 = '0000056B'X ! (AlphaServer 4100 5/266 4MB) (3cpu)T PARAMETER ALPHA$K_AS1605020604 = '0000056C'X ! (AlphaServer 4100 5/266 4MB) (4cpu)T PARAMETER ALPHA$K_AS1605010601 = '0000056D'X ! (AlphaServer 4100 5/266 4MB) (1cpu)T PARAMETER ALPHA$K_AS1605010602 = '0000056E'X ! (AlphaServer 4100 5/266 4MB) (2cpu)T PARAMETER ALPHA$K_AS1605010603 = '0000056F'X ! (AlphaServer 4100 5/266 4MB) (3cpu)T PARAMETER ALPHA$K_AS1605010604 = '00000570'X ! (AlphaServer 4100 5/266 4MB) (4cpu)T PARAMETER ALPHA$K_AS1605020701 = '00000571'X ! (AlphaServer 4100 5/300 4MB) (1cpu)T PARAMETER ALPHA$K_AS1605020702 = '00000572'X ! (AlphaServer 4100 5/300 4MB) (2cpu)T PARAMETER ALPHA$K_AS1605020703 = '00000573'X ! (AlphaServer 4100 5/300 4MB) (3cpu)T PARAMETER ALPHA$K_AS1605020704 = '00000574'X ! (AlphaServer 4100 5/300 4MB) (4cpu)T PARAMETER ALPHA$K_AS1605010701 = '00000575'X ! (AlphaServer 4100 5/300 4MB) (1cpu)T PARAMETER ALPHA$K_AS1605010702 = '00000576'X ! (AlphaServer 4100 5/300 4MB) (2cpu)T PARAMETER ALPHA$K_AS1605010703 = '00000577'X ! (AlphaServer 4100 5/300 4MB) (3cpu)T PARAMETER ALPHA$K_AS1605010704 = '00000578'X ! (AlphaServer 4100 5/300 4MB) (4cpu)T PARAMETER ALPHA$K_AS1607020301 = '00000579'X ! (AlphaServer 4100 5/400 4MB) (1cpu)T PARAMETER ALPHA$K_AS1607020302 = '0000057A'X ! (AlphaServer 4100 5/400 4MB) (2cpu)T PARAMETER ALPHA$K_AS1607020303 = '0000057B'X ! (AlphaServer 4100 5/400 4MB) (3cpu)T PARAMETER ALPHA$K_AS1607020304 = '0000057C'X ! (AlphaServer 4100 5/400 4MB) (4cpu)T PARAMETER ALPHA$K_AS1607010301 = '0000057D'X ! (AlphaServer 4100 5/400 4MB) (1cpu)T PARAMETER ALPHA$K_AS1607010302 = '0000057E'X ! (AlphaServer 4100 5/400 4MB) (2cpu)T PARAMETER ALPHA$K_AS1607010303 = '0000057F'X ! (AlphaServer 4100 5/400 4MB) (3cpu)T PARAMETER ALPHA$K_AS1607010304 = '00000580'X ! (AlphaServer 4100 5/400 4MB) (4cpu)T PARAMETER ALPHA$K_AS1605040001 = '00000581'X ! (AlphaServer 4000 5/266 0MB) (1cpu)T PARAMETER ALPHA$K_AS1605040002 = '00000582'X ! (AlphaServer 4000 5/266 0MB) (2cpu)T PARAMETER ALPHA$K_AS1605030001 = '00000583'X ! (AlphaServer 4000 5/266 0MB) (1cpu)T PARAMETER ALPHA$K_AS1605030002 = '00000584'X ! (AlphaServer 4000 5/266 0MB) (2cpu)T PARAMETER ALPHA$K_AS1605040101 = '00000585'X ! (AlphaServer 4000 5/300 0MB) (1cpu)T PARAMETER ALPHA$K_AS1605040102 = '00000586'X ! (AlphaServer 4000 5/300 0MB) (2cpu)T PARAMETER ALPHA$K_AS1605030101 = '00000587'X ! (AlphaServer 4000 5/300 0MB) (1cpu)T PARAMETER ALPHA$K_AS1605030102 = '00000588'X ! (AlphaServer 4000 5/300 0MB) (2cpu)T PARAMETER ALPHA$K_AS1607040001 = '00000589'X ! (AlphaServer 4000 5/400 0MB) (1cpu)T PARAMETER ALPHA$K_AS1607040002 = '0000058A'X ! (AlphaServer 4000 5/400 0MB) (2cpu)T PARAMETER ALPHA$K_AS1607030001 = '0000058B'X ! (AlphaServer 4000 5/400 0MB) (1cpu)T PARAMETER ALPHA$K_AS1607030002 = '0000058C'X ! (AlphaServer 4000 5/400 0MB) (2cpu)T PARAMETER ALPHA$K_AS1605040201 = '0000058D'X ! (AlphaServer 4000 5/266 1MB) (1cpu)T PARAMETER ALPHA$K_AS1605040202 = '0000058E'X ! (AlphaServer 4000 5/266 1MB) (2cpu)T PARAMETER ALPHA$K_AS1605030201 = '0000058F'X ! (AlphaServer 4000 5/266 1MB) (1cpu)T PARAMETER ALPHA$K_AS1605030202 = '00000590'X ! (AlphaServer 4000 5/266 1MB) (2cpu)T PARAMETER ALPHA$K_AS1605040301 = '00000591'X ! (AlphaServer 4000 5/300 1MB) (1cpu)T PARAMETER ALPHA$K_AS1605040302 = '00000592'X ! (AlphaServer 4000 5/300 1MB) (2cpu)T PARAMETER ALPHA$K_AS1605030301 = '00000593'X ! (AlphaServer 4000 5/300 1MB) (1cpu)T PARAMETER ALPHA$K_AS1605030302 = '00000594'X ! (AlphaServer 4000 5/300 1MB) (2cpu)T PARAMETER ALPHA$K_AS1607040101 = '00000595'X ! (AlphaServer 4000 5/400 1MB) (1cpu)T PARAMETER ALPHA$K_AS1607040102 = '00000596'X ! (AlphaServer 4000 5/400 1MB) (2cpu)T PARAMETER ALPHA$K_AS1607030101 = '00000597'X ! (AlphaServer 4000 5/400 1MB) (1cpu)T PARAMETER ALPHA$K_AS1607030102 = '00000598'X ! (AlphaServer 4000 5/400 1MB) (2cpu)T PARAMETER ALPHA$K_AS1605040401 = '00000599'X ! (AlphaServer 4000 5/266 2MB) (1cpu)T PARAMETER ALPHA$K_AS1605040402 = '0000059A'X ! (AlphaServer 4000 5/266 2MB) (2cpu)T PARAMETER ALPHA$K_AS1605030401 = '0000059B'X ! (AlphaServer 4000 5/266 2MB) (1cpu)T PARAMETER ALPHA$K_AS1605030402 = '0000059C'X ! (AlphaServer 4000 5/266 2MB) (2cpu)T PARAMETER ALPHA$K_AS1605040501 = '0000059D'X ! (AlphaServer 4000 5/300 2MB) (1cpu)T PARAMETER ALPHA$K_AS1605040502 = '0000059E'X ! (AlphaServer 4000 5/300 2MB) (2cpu)T PARAMETER ALPHA$K_AS1605030501 = '0000059F'X ! (AlphaServer 4000 5/300 2MB) (1cpu)T PARAMETER ALPHA$K_AS1605030502 = '000005A0'X ! (AlphaServer 4000 5/300 2MB) (2cpu)T PARAMETER ALPHA$K_AS1607040201 = '000005A1'X ! (AlphaServer 4000 5/400 2MB) (1cpu)T PARAMETER ALPHA$K_AS1607040202 = '000005A2'X ! (AlphaServer 4000 5/400 2MB) (2cpu)T PARAMETER ALPHA$K_AS1607030201 = '000005A3'X ! (AlphaServer 4000 5/400 2MB) (1cpu)T PARAMETER ALPHA$K_AS1607030202 = '000005A4'X ! (AlphaServer 4000 5/400 2MB) (2cpu)T PARAMETER ALPHA$K_AS1605040601 = '000005A5'X ! (AlphaServer 4000 5/266 4MB) (1cpu)T PARAMETER ALPHA$K_AS1605040602 = '000005A6'X ! (AlphaServer 4000 5/266 4MB) (2cpu)T PARAMETER ALPHA$K_AS1605030601 = '000005A7'X ! (AlphaServer 4000 5/266 4MB) (1cpu)T PARAMETER ALPHA$K_AS1605030602 = '000005A8'X ! (AlphaServer 4000 5/266 4MB) (2cpu)T PARAMETER ALPHA$K_AS1605040701 = '000005A9'X ! (AlphaServer 4000 5/300 4MB) (1cpu)T PARAMETER ALPHA$K_AS1605040702 = '000005AA'X ! (AlphaServer 4000 5/300 4MB) (2cpu)T PARAMETER ALPHA$K_AS1605030701 = '000005AB'X ! (AlphaServer 4000 5/300 4MB) (1cpu)T PARAMETER ALPHA$K_AS1605030702 = '000005AC'X ! (AlphaServer 4000 5/300 4MB) (2cpu)T PARAMETER ALPHA$K_AS1607040301 = '000005AD'X ! (AlphaServer 4000 5/400 4MB) (1cpu)T PARAMETER ALPHA$K_AS1607040302 = '000005AE'X ! (AlphaServer 4000 5/400 4MB) (2cpu)T PARAMETER ALPHA$K_AS1607030301 = '000005AF'X ! (AlphaServer 4000 5/400 4MB) (1cpu)T PARAMETER ALPHA$K_AS1607030302 = '000005B0'X ! (AlphaServer 4000 5/400 4MB) (2cpu)U PARAMETER ALPHA$K_AS1605060001 = '000005B1'X ! (AlphaServer 4000A 5/266 0MB) (1cpu)U PARAMETER ALPHA$K_AS1605060002 = '000005B2'X ! (AlphaServer 4000A 5/266 0MB) (2cpu)U PARAMETER ALPHA$K_AS1605050001 = '000005B3'X ! (AlphaServer 4000A 5/266 0MB) (1cpu)U PARAMETER ALPHA$K_AS1605050002 = '000005B4'X ! (AlphaServer 4000A 5/266 0MB) (2cpu)U PARAMETER ALPHA$K_AS1605060101 = '000005B5'X ! (AlphaServer 4000A 5/300 0MB) (1cpu)U PARAMETER ALPHA$K_AS1605060102 = '000005B6'X ! (AlphaServer 4000A 5/300 0MB) (2cpu)U PARAMETER ALPHA$K_AS1605050101 = '000005B7'X ! (AlphaServer 4000A 5/300 0MB) (1cpu)U PARAMETER ALPHA$K_AS1605050102 = '000005B8'X ! (AlphaServer 4000A 5/300 0MB) (2cpu)U PARAMETER ALPHA$K_AS1607060001 = '000005B9'X ! (AlphaServer 4000A 5/400 0MB) (1cpu)U PARAMETER ALPHA$K_AS1607060002 = '000005BA'X ! (AlphaServer 4000A 5/400 0MB) (2cpu)U PARAMETER ALPHA$K_AS1607050001 = '000005BB'X ! (AlphaServer 4000A 5/400 0MB) (1cpu)U PARAMETER ALPHA$K_AS1607050002 = '000005BC'X ! (AlphaServer 4000A 5/400 0MB) (2cpu)U PARAMETER ALPHA$K_AS1605060201 = '000005BD'X ! (AlphaServer 4000A 5/266 1MB) (1cpu)U PARAMETER ALPHA$K_AS1605060202 = '000005BE'X ! (AlphaServer 4000A 5/266 1MB) (2cpu)U PARAMETER ALPHA$K_AS1605050201 = '000005BF'X ! (AlphaServer 4000A 5/266 1MB) (1cpu)U PARAMETER ALPHA$K_AS1605050202 = '000005C0'X ! (AlphaServer 4000A 5/266 1MB) (2cpu)U PARAMETER ALPHA$K_AS1605060301 = '000005C1'X ! (AlphaServer 4000A 5/300 1MB) (1cpu)U PARAMETER ALPHA$K_AS1605060302 = '000005C2'X ! (AlphaServer 4000A 5/300 1MB) (2cpu)U PARAMETER ALPHA$K_AS1605050301 = '000005C3'X ! (AlphaServer 4000A 5/300 1MB) (1cpu)U PARAMETER ALPHA$K_AS1605050302 = '000005C4'X ! (AlphaServer 4000A 5/300 1MB) (2cpu)U PARAMETER ALPHA$K_AS1607060101 = '000005C5'X ! (AlphaServer 4000A 5/400 1MB) (1cpu)U PARAMETER ALPHA$K_AS1607060102 = '000005C6'X ! (AlphaServer 4000A 5/400 1MB) (2cpu)U PARAMETER ALPHA$K_AS1607050101 = '000005C7'X ! (AlphaServer 4000A 5/400 1MB) (1cpu)U PARAMETER ALPHA$K_AS1607050102 = '000005C8'X ! (AlphaServer 4000A 5/400 1MB) (2cpu)U PARAMETER ALPHA$K_AS1605060401 = '000005C9'X ! (AlphaServer 4000A 5/266 2MB) (1cpu)U PARAMETER ALPHA$K_AS1605060402 = '000005CA'X ! (AlphaServer 4000A 5/266 2MB) (2cpu)U PARAMETER ALPHA$K_AS1605050401 = '000005CB'X ! (AlphaServer 4000A 5/266 2MB) (1cpu)U PARAMETER ALPHA$K_AS1605050402 = '000005CC'X ! (AlphaServer 4000A 5/266 2MB) (2cpu)U PARAMETER ALPHA$K_AS1605060501 = '000005CD'X ! (AlphaServer 4000A 5/300 2MB) (1cpu)U PARAMETER ALPHA$K_AS1605060502 = '000005CE'X ! (AlphaServer 4000A 5/300 2MB) (2cpu)U PARAMETER ALPHA$K_AS1605050501 = '000005CF'X ! (AlphaServer 4000A 5/300 2MB) (1cpu)U PARAMETER ALPHA$K_AS1605050502 = '000005D0'X ! (AlphaServer 4000A 5/300 2MB) (2cpu)U PARAMETER ALPHA$K_AS1607060201 = '000005D1'X ! (AlphaServer 4000A 5/400 2MB) (1cpu)U PARAMETER ALPHA$K_AS1607060202 = '000005D2'X ! (AlphaServer 4000A 5/400 2MB) (2cpu)U PARAMETER ALPHA$K_AS1607050201 = '000005D3'X ! (AlphaServer 4000A 5/400 2MB) (1cpu)U PARAMETER ALPHA$K_AS1607050202 = '000005D4'X ! (AlphaServer 4000A 5/400 2MB) (2cpu)U PARAMETER ALPHA$K_AS1605060601 = '000005D5'X ! (AlphaServer 4000A 5/266 4MB) (1cpu)U PARAMETER ALPHA$K_AS1605060602 = '000005D6'X ! (AlphaServer 4000A 5/266 4MB) (2cpu)U PARAMETER ALPHA$K_AS1605050601 = '000005D7'X ! (AlphaServer 4000A 5/266 4MB) (1cpu)U PARAMETER ALPHA$K_AS1605050602 = '000005D8'X ! (AlphaServer 4000A 5/266 4MB) (2cpu)U PARAMETER ALPHA$K_AS1605060701 = '000005D9'X ! (AlphaServer 4000A 5/300 4MB) (1cpu)U PARAMETER ALPHA$K_AS1605060702 = '000005DA'X ! (AlphaServer 4000A 5/300 4MB) (2cpu)U PARAMETER ALPHA$K_AS1605050701 = '000005DB'X ! (AlphaServer 4000A 5/300 4MB) (1cpu)U PARAMETER ALPHA$K_AS1605050702 = '000005DC'X ! (AlphaServer 4000A 5/300 4MB) (2cpu)U PARAMETER ALPHA$K_AS1607060301 = '000005DD'X ! (AlphaServer 4000A 5/400 4MB) (1cpu)U PARAMETER ALPHA$K_AS1607060302 = '000005DE'X ! (AlphaServer 4000A 5/400 4MB) (2cpu)U PARAMETER ALPHA$K_AS1607050301 = '000005DF'X ! (AlphaServer 4000A 5/400 4MB) (1cpu)U PARAMETER ALPHA$K_AS1607050302 = '000005E0'X ! (AlphaServer 4000A 5/400 4MB) (2cpu)P PARAMETER ALPHA$K_AS0907010001 = '000005E1'X ! (AlphaServer 2000 5/375) (1cpu)P PARAMETER ALPHA$K_AS0907010002 = '000005E2'X ! (AlphaServer 2000 5/375) (2cpu)P PARAMETER ALPHA$K_AS0907010003 = '000005E3'X ! (AlphaServer 2000 5/375) (3cpu)P PARAMETER ALPHA$K_AS0907010004 = '000005E4'X ! (AlphaServer 2000 5/375) (4cpu)P PARAMETER ALPHA$K_AS0907020001 = '000005E5'X ! (AlphaServer 2100 5/375) (1cpu)P PARAMETER ALPHA$K_AS0907020002 = '000005E6'X ! (AlphaServer 2100 5/375) (2cpu)P PARAMETER ALPHA$K_AS0907020003 = '000005E7'X ! (AlphaServer 2100 5/375) (3cpu)P PARAMETER ALPHA$K_AS0907020004 = '000005E8'X ! (AlphaServer 2100 5/375) (4cpu)S PARAMETER ALPHA$K_AS0907030001 = '000005E9'X ! (AlphaServer 2100-RM 5/375) (1cpu)S PARAMETER ALPHA$K_AS0907030002 = '000005EA'X ! (AlphaServer 2100-RM 5/375) (2cpu)S PARAMETER ALPHA$K_AS0907030003 = '000005EB'X ! (AlphaServer 2100-RM 5/375) (3cpu)S PARAMETER ALPHA$K_AS0907030004 = '000005EC'X ! (AlphaServer 2100-RM 5/375) (4cpu)P PARAMETER ALPHA$K_AS0907010101 = '000005ED'X ! (AlphaServer 2000 5/400) (1cpu)P PARAMETER ALPHA$K_AS0907010102 = '000005EE'X ! (AlphaServer 2000 5/400) (2cpu)P PARAMETER ALPHA$K_AS0907010103 = '000005EF'X ! (AlphaServer 2000 5/400) (3cpu)P PARAMETER ALPHA$K_AS0907010104 = '000005F0'X ! (AlphaServer 2000 5/400) (4cpu)P PARAMETER ALPHA$K_AS0907020101 = '000005F1'X ! (AlphaServer 2100 5/400) (1cpu)P PARAMETER ALPHA$K_AS0907020102 = '000005F2'X ! (AlphaServer 2100 5/400) (2cpu)P PARAMETER ALPHA$K_AS0907020103 = '000005F3'X ! (AlphaServer 2100 5/400) (3cpu)P PARAMETER ALPHA$K_AS0907020104 = '000005F4'X ! (AlphaServer 2100 5/400) (4cpu)S PARAMETER ALPHA$K_AS0907030101 = '000005F5'X ! (AlphaServer 2100-RM 5/400) (1cpu)S PARAMETER ALPHA$K_AS0907030102 = '000005F6'X ! (AlphaServer 2100-RM 5/400) (2cpu)S PARAMETER ALPHA$K_AS0907030103 = '000005F7'X ! (AlphaServer 2100-RM 5/400) (3cpu)S PARAMETER ALPHA$K_AS0907030104 = '000005F8'X ! (AlphaServer 2100-RM 5/400) (4cpu)Q PARAMETER ALPHA$K_AS1807010001 = '000005F9'X ! (AlphaServer 2000A 5/375) (1cpu)Q PARAMETER ALPHA$K_AS1807010002 = '000005FA'X ! (AlphaServer 2000A 5/375) (2cpu)Q PARAMETER ALPHA$K_AS1807010003 = '000005FB'X ! (AlphaServer 2000A 5/375) (3cpu)Q PARAMETER ALPHA$K_AS1807010004 = '000005FC'X ! (AlphaServer 2000A 5/375) (4cpu)Q PARAMETER ALPHA$K_AS1807020001 = '000005FD'X ! (AlphaServer 2100A 5/375) (1cpu)Q PARAMETER ALPHA$K_AS1807020002 = '000005FE'X ! (AlphaServer 2100A 5/375) (2cpu)Q PARAMETER ALPHA$K_AS1807020003 = '000005FF'X ! (AlphaServer 2100A 5/375) (3cpu)Q PARAMETER ALPHA$K_AS1807020004 = '00000600'X ! (AlphaServer 2100A 5/375) (4cpu)T PARAMETER ALPHA$K_AS1807030001 = '00000601'X ! (AlphaServer 2100A-RM 5/375) (1cpu)T PARAMETER ALPHA$K_AS1807030002 = '00000602'X ! (AlphaServer 2100A-RM 5/375) (2cpu)T PARAMETER ALPHA$K_AS1807030003 = '00000603'X ! (AlphaServer 2100A-RM 5/375) (3cpu)T PARAMETER ALPHA$K_AS1807030004 = '00000604'X ! (AlphaServer 2100A-RM 5/375) (4cpu)Q PARAMETER ALPHA$K_AS1807010101 = '00000605'X ! (AlphaServer 2000A 5/400) (1cpu)Q PARAMETER ALPHA$K_AS1807010102 = '00000606'X ! (AlphaServer 2000A 5/400) (2cpu)Q PARAMETER ALPHA$K_AS1807010103 = '00000607'X ! (AlphaServer 2000A 5/400) (3cpu)Q PARAMETER ALPHA$K_AS1807010104 = '00000608'X ! (AlphaServer 2000A 5/400) (4cpu)Q PARAMETER ALPHA$K_AS1807020101 = '00000609'X ! (AlphaServer 2100A 5/400) (1cpu)Q PARAMETER ALPHA$K_AS1807020102 = '0000060A'X ! (AlphaServer 2100A 5/400) (2cpu)Q PARAMETER ALPHA$K_AS1807020103 = '0000060B'X ! (AlphaServer 2100A 5/400) (3cpu)Q PARAMETER ALPHA$K_AS1807020104 = '0000060C'X ! (AlphaServer 2100A 5/400) (4cpu)T PARAMETER ALPHA$K_AS1807030101 = '0000060D'X ! (AlphaServer 2100A-RM 5/400) (1cpu)T PARAMETER ALPHA$K_AS1807030102 = '0000060E'X ! (AlphaServer 2100A-RM 5/400) (2cpu)T PARAMETER ALPHA$K_AS1807030103 = '0000060F'X ! (AlphaServer 2100A-RM 5/400) (3cpu)T PARAMETER ALPHA$K_AS1807030104 = '00000610'X ! (AlphaServer 2100A-RM 5/400) (4cpu)J PARAMETER ALPHA$K_AS1B07030101 = '00000616'X ! (AlphaServer 1000A 5/333)I PARAMETER ALPHA$K_AS1107050101 = '00000617'X ! (AlphaServer 1000 5/333)P PARAMETER ALPHA$K_AS0C07040001 = '00000618'X ! (AlphaServer 8200 5/440) (1cpu)P PARAMETER ALPHA$K_AS0C07040002 = '00000619'X ! (AlphaServer 8200 5/440) (2cpu)P PARAMETER ALPHA$K_AS0C07040003 = '0000061A'X ! (AlphaServer 8200 5/440) (3cpu)P PARAMETER ALPHA$K_AS0C07040004 = '0000061B'X ! (AlphaServer 8200 5/440) (4cpu)P PARAMETER ALPHA$K_AS0C07040005 = '0000061C'X ! (AlphaServer 8200 5/440) (5cpu)P PARAMETER ALPHA$K_AS0C07040006 = '0000061D'X ! (AlphaServer 8200 5/440) (6cpu)P PARAMETER ALPHA$K_AS0C07050001 = '0000061E'X ! (AlphaServer 8400 5/440) (1cpu)P PARAMETER ALPHA$K_AS0C07050002 = '0000061F'X ! (AlphaServer 8400 5/440) (2cpu)P PARAMETER ALPHA$K_AS0C07050003 = '00000620'X ! (AlphaServer 8400 5/440) (3cpu)P PARAMETER ALPHA$K_AS0C07050004 = '00000621'X ! (AlphaServer 8400 5/440) (4cpu)P PARAMETER ALPHA$K_AS0C07050005 = '00000622'X ! (AlphaServer 8400 5/440) (5cpu)P PARAMETER ALPHA$K_AS0C07050006 = '00000623'X ! (AlphaServer 8400 5/440) (6cpu)P PARAMETER ALPHA$K_AS0C07050007 = '00000624'X ! (AlphaServer 8400 5/440) (7cpu)P PARAMETER ALPHA$K_AS0C07050008 = '00000625'X ! (AlphaServer 8400 5/440) (8cpu)P PARAMETER ALPHA$K_AS0C07050009 = '00000626'X ! (AlphaServer 8400 5/440) (9cpu)Q PARAMETER ALPHA$K_AS0C0705000A = '00000627'X ! (AlphaServer 8400 5/440) (10cpu)Q PARAMETER ALPHA$K_AS0C0705000B = '00000628'X ! (AlphaServer 8400 5/440) (11cpu)Q PARAMETER ALPHA$K_AS0C0705000C = '00000629'X ! (AlphaServer 8400 5/440) (12cpu)* PARAMETER ALPHA$K_MAX_MODEL = '00000420'XCDEC$ END OPTIONS wwl!*** MODULE $ARGDEF ***CDEC$ OPTIONS /NOALIGN! )! ARG$ - The argument descriptors! A PARAMETER ARG$C_UNKNOWN = '00000000'X ! Unspecified or unknown 8 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 UNION6 BYTE ARG$B_BYTECNT ! Remaining byte count  END STRUCTURE ! ARGDEFCDEC$ END OPTIONS ww|o!*** MODULE $ARMDEF ***CDEC$ OPTIONS /NOALIGN! +*! 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" PARAMETER ARM$M_USE = '00000001'X STRUCTURE /ARMDEF/ UNION MAP UNION MAP INTEGER*4 %FILL END MAP MAP% PARAMETER ARM$S_READ = 15 PARAMETER ARM$V_READ = 0 ! Read access& PARAMETER ARM$S_WRITE = 17 PARAMETER ARM$V_WRITE = 1 ! Write access( PARAMETER ARM$S_EXECUTE = 1; PARAMETER ARM$V_EXECUTE = 2 ! Execute access' PARAMETER ARM$S_DELETE = 19 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 = 5O  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 = 1B 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 = 1G 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 = 1J PARAMETER ARM$V_PHYSICAL = 2 ! Physical I/O access (device)( PARAMETER ARM$S_LOGICAL = 1H 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 = 1V 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 = 1A PARAMETER ARM$V_SUBMIT = 1 ! Submit access (queue)' PARAMETER ARM$S_MANAGE = 1A PARAMETER ARM$V_MANAGE = 2 ! Manage access (queue) BYTE %FILL (1) END MAP END UNION END MAP MAP UNION MAP INTEGER*4 %FILL END MAP MAP$ PARAMETER ARM$S_USE = 1A PARAMETER ARM$V_USE = 0 ! Use access (capability) BYTE %FILL (1) END MAP END UNION END MAP END UNION END STRUCTURE ! ARMDEFCDEC$ END OPTIONS ww-q!*** MODULE $ATRDEF ***CDEC$ OPTIONS /NOALIGNM! ATTRIBUTE LIST DESCRIPTION. THE ATTRIBUTE CONTROL LIST IS USED TO READ ANDN! WRITE FILE ATTRIBUTES. IT CONSISTS OF CONCATENATED ATTRIBUTE CONTROL BLOCKS(! TERMINATED BY A SINGLE ZERO LONGWORD.! I PARAMETER ATR$C_UCHAR = '00000003'X ! 4 BYTE USER FILE CHARACTERISTICS E PARAMETER ATR$C_RECATTR = '00000004'X ! 32 BYTES RECORD ATTRIBUTES A PARAMETER ATR$C_FILNAM = '00000005'X ! 6 BYTE RAD-50 FILE NAME A PARAMETER ATR$C_FILTYP = '00000006'X ! 2 BYTE RAD-50 FILE TYPE D PARAMETER ATR$C_FILVER = '00000007'X ! 2 BYTE BINARY FILE VERSION F PARAMETER ATR$C_EXPDAT = '00000008'X ! 7 BYTE ASCII EXPIRATION DATE C 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 Q PARAMETER ATR$C_ASCDATES = '0000000D'X ! REVISION COUNT THRU EXP DATE IN ASCII O PARAMETER ATR$C_ALCONTROL = '0000000E'X ! COMPATIBILITY MODE ALLOCATION DATA i PARAMETER ATR$C_ENDLBLAST = '0000000F'X ! END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK M 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 A 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 @ PARAMETER ATR$C_RPRO = '00000017'X ! 2 BYTE RECORD PROTECTION C PARAMETER ATR$C_ACLEVEL = '00000018'X ! 1 BYTE FILE ACCESS LEVEL F PARAMETER ATR$C_SEMASK = '00000019'X ! FILE SECURITY MASK AND LIMIT 7 PARAMETER ATR$C_UIC_RO = '0000001A'X ! READ ONLY UIC I PARAMETER ATR$C_DIRSEQ = '0000001B'X ! DIRECTORY UPDATE SEQUENCE COUNT B PARAMETER ATR$C_BACKLINK = '0000001C'X ! FILE BACK LINK POINTER @ PARAMETER ATR$C_JOURNAL = '0000001D'X ! JOURNAL CONTROL FLAGS U PARAMETER ATR$C_HDR1_ACC = '0000001E'X ! ANSI TAPE HEADER 1 ACCESSIBILITY CHARACTERH PARAMETER ATR$C_ADDACLENT = '0000001F'X ! ADD AN ACCESS CONTROL ENTRY K PARAMETER ATR$C_DELACLENT = '00000020'X ! REMOVE AN ACCESS CONTROL ENTRY @ PARAMETER ATR$C_MODACLENT = '00000021'X ! MODIFY AN ACL ENTRY @ PARAMETER ATR$C_FNDACLENT = '00000022'X ! LOCATE AN ACL ENTRY H PARAMETER ATR$C_FNDACLTYP = '00000023'X ! FIND A SPECIFIC TYPE OF ACE H PARAMETER ATR$C_DELETEACL = '00000024'X ! DELETE ACL LEAVING PROTECTED> PARAMETER ATR$C_READACL = '00000025'X ! READ THE ENTIRE ACL H 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 AREAO PARAMETER ATR$C_HIGHWATER = '00000029'X ! HIGHWATER MARK (USER READ ONLY) < PARAMETER ATR$C_DUMMY_0 = '0000002A'X ! *** AVAILABLE CODEK PARAMETER ATR$C_PRIVS_USED = '0000002B'X ! PRIVILEGES USED TO GAIN ACCESSO 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 DESCRIPTORSD PARAMETER ATR$C_FILE_SPEC = '0000002E'X ! CONVERT FID TO FILE-SPECR PARAMETER ATR$C_CLASS_MASK = '0000002F'X ! Non-discretionary classification masko PARAMETER ATR$C_BUFFER_OFFSET = '00000030'X ! For magnetic tape only length of buffer offset of block in fileg PARAMETER ATR$C_RU_ACTIVE = '00000031'X ! Recoverable facility id number (if non-zero, means file has2! active recovery units managed by that facility)? PARAMETER ATR$C_GRANT_ACE = '00000032'X ! ACE granting access? PARAMETER ATR$C_NEXT_ACE = '00000033'X ! Increment ACE numberB PARAMETER ATR$C_DELETE_ ALL = '00000034'X ! Delete the entire ACLV 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 Date@ PARAMETER ATR$C_RCDDATE = '00000037'X ! ISO 9660 Recorded Date7 PARAMETER ATR$C_VD = '00000038'X ! Volume Descriptor @ PARAMETER ATR$C_PVD = '00000039'X ! Primary Volume Descriptor F PARAMETER ATR$C_SVD = '0000003A'X ! Supplementary Volume Descriptor B PARAMETER ATR$C_VPD = '0000003B'X ! Volume Partition Descriptor H PARAMETER ATR$C_VDST = '0000003C'X ! Volume Descriptor Set Terminator 3 PARAMETER ATR$C_BOOT = '0000003D'X ! Boot Record 8 PARAMETER ATR$C_PTR = '0000003E'X ! Path Table Record 7 PARAMETER ATR$C_DIR = '0000003F'X ! Directory Record @ 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 FlagsC PARAMETER ATR$C_ESCAPE_SEQUENCES = '00000043'X ! Escape SequencesE PARAMETER ATR$C_VOLUME_SET_ID = '00000044'X ! Volume Set IdentifierI PARAMETER ATR$C_COPYRIGHT_FID = '00000045'X ! Copyright File IdentifierH PARAMETER ATR$C_ABSTRACT_FID = '00000046'X ! Abstract File Identifier R PARAMETER ATR$C_BIBLIOGRAPHIC_FID = '00000047'X ! Bibliographic File Identifier B PARAMETER ATR$C_CACHE_SEQ = '00000048'X ! Cache Sequence NumbersN PARAMETER ATR$C_FILE_SYSTEM_INFO = '00000049'X ! File system structure levelK PARAMETER ATR$C_FILE_ATTR_CACHING_POLICY = '0000004A'X ! F64 caching onlyK PARAMETER ATR$C_FILE_DATA_CACHING_POLICY = '0000004B'X ! F64 caching onlyN PARAMETER ATR$C_CACHING_OPTIONS = '0000004C'X ! Spiralog/VDC caching optionsD PARAMETER ATR$C_POSIX_DATA = '0000004D'X ! POSIX private data area@ PARAMETER ATR$C_ACCDATE = '0000004E'X ! ODS-5 last access timeG PARAMETER ATR$C_ATTDATE = '0000004F'X ! ODS-5 last attribute mod timeI PARAMETER ATR$C_LENGTH_HINT = '00 000050'X ! ODS-5 file length hint areaU PARAMETER ATR$C_EX_RECATTR = '00000051'X ! ODS-5 extended RMS attributes - Reserved,! to Digital for future use. Must be zero.7 PARAMETER ATR$C_EXTFLAGS = '00000052'X ! MS-DOS flags! All new attributes should be! added here before MAX_PLUS1B PARAMETER ATR$C_MAX_PLUS1 = '00000053'X ! Maximum code plus one ' PARAMETER ATR$C_MAX_CODE = '00000052'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 LENGTHS I PARAMETER ATR$S_UCHAR = '00000004'X ! 4 BYTE USER FILE CHARACTERISTICS E PARAMETER ATR$S_RECATTR = '00000020'X ! 32 BYTES RECORD ATTRIBUTES A PARAMETER ATR$S_FILNAM = '00000006'X ! 6 BYTE RAD-50 FILE NAME A PARAMETER ATR$S_FILTYP = '00000002'X ! 2 BYTE RAD-50 FILE TYPE D PARAMETER ATR$S_FILVER = '00000002'X ! 2 BYTE BINARY FILE VERSION F PARAMETER ATR$S_EXPDAT = '00000007'X ! 7 BYTE ASCII EXPIRATION DATE C 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 Q PARAMETER ATR$S_ASCDATES = '00000023'X ! REVISION COUNT THRU EXP DATE IN ASCII O PARAMETER ATR$S_ALCONTROL = '0000000E'X ! COMPATIBILITY MODE ALLOCATION DATA i PARAMETER ATR$S_ENDLBLAST = '00000004'X ! END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK C 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 A 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 @ PARAMETER ATR$S_RPRO = '00000002'X ! 2 BYTE RECORD PROTECTION C PARAMETER ATR$S_ACLEVEL = '00000001'X ! 1 BYTE FILE ACCESS LEVEL F PARAMETER ATR$S_SEMASK = '00000008'X ! FILE SECURITY MASK AND LIMIT 7 PARAMETER ATR$S_UIC_RO = '00000004'X ! READ ONLY UIC I PARAMETER ATR$S_DIRSEQ = '00000002'X ! DIRECTORY UPDATE SEQUENCE COUNT B PARAMETER ATR$S_BACKLINK = '00000006'X ! FILE BACK LINK POINTER @ PARAMETER ATR$S_JOURNAL = '00000001'X ! JOURNAL CONTROL FLAGS L PARAMETER ATR$S_HDR1_ACC = '00000001'X ! ANSI TAPE HEADER 1 ACCESSIBILITY ! CHARACTERH PARAMETER ATR$S_ADDACLENT = '000000FF'X ! ADD AN ACCESS CONTROL ENTRY K PARAMETER ATR$S_DELACLENT = '000000FF'X ! REMOVE AN ACCESS CONTROL ENTRY @ PARAMETER ATR$S_MODACLENT = '000000FF'X ! MODIFY AN ACL ENTRY @ PARAMETER ATR$S_FNDACLENT = '000000FF'X ! LOCATE AN ACL ENTRY H PARAMETER ATR$S_FNDACLTYP = '000000FF'X ! FIND A SPECIFIC TYPE OF ACE H PARAMETER ATR$S_FNDACETYP = '000000FF'X ! FIND A SPECIFIC TYPE OF ACE H PARAMETER ATR$S_DELETEACL = '000000FF'X ! DELETE ACL LEAVING PROTECTED> PARAMETER ATR$S_READACL = '00000200'X ! READ THE ENTIRE ACL H 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 AREAU PARAMETER ATR$S_HIGHWATER = '00000004'X ! FILE HIGH WATER MARK (USER READ ONLY)  < PARAMETER ATR$S_DUMMY_0 = '00000004'X ! *** AVAILABLE CODEF PARAMETER ATR$S_PRIVS_USED = '00000004'X ! PRIVS USED TO GAIN ACCESSF PARAMETER ATR$S_MATCHING_ACE = '000000FF'X ! ACE USED TO GAIN ACCESS] PARAMETER ATR$S_ACCESS_MODE = '00000001'X ! ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORSD PARAMETER ATR$S_FILE_SPEC = '00001002'X ! CONVERT FID TO FILE-SPECR PARAMETER ATR$S_CLASS_MASK = '00000014'X ! Non-discretionary classification maskJ PARAMETER ATR$S_BUFFER_OFFSET = '00000002'X ! Buffer offset length fieldQ 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 numberC PARAMETER ATR$S_DELETE_ALL = '000000FF'X ! Delete the entire ACL V PARAMETER ATR$S_BACKUP_DONE = '00000001'X ! Alter backup info in RMS journaling ACEs? PARAMETER ATR$S_EFFDATE = '00000008'X ! 64 BIT EFFECTIVE DATE? PARAMETER ATR$S_RCDDATE = '00000008 'X ! 64 BIT RECORDED DATE 7 PARAMETER ATR$S_VD = '00000007'X ! Volume Descriptor @ PARAMETER ATR$S_PVD = '00000573'X ! Primary Volume Descriptor F PARAMETER ATR$S_SVD = '00000573'X ! Supplementary Volume Descriptor B PARAMETER ATR$S_VPD = '00000058'X ! Volume Partition Descriptor H PARAMETER ATR$S_VDST = '00000007'X ! Volume Descriptor Set Terminator 3 PARAMETER ATR$S_BOOT = '00000047'X ! Boot Record 8 PARAMETER ATR$S_PTR = '0000002D'X ! Path Table Record 7 PARAMETER ATR$S_DIR = '00 000200'X ! Directory Record @ 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 FlagsC PARAMETER ATR$S_ESCAPE_SEQUENCES = '00000020'X ! Escape SequencesE PARAMETER ATR$S_VOLUME_SET_ID = '00000080'X ! Volume Set IdentifierI PARAMETER ATR$S_COPYRIGHT_FID = '00000025'X ! Copyright File IdentifierH PARAMETER ATR$S_ABSTRACT_FID = '00000025'X ! Abstract File Identifier R PARAMETER ATR$S_BIBLIOGRAPHIC_FID = '00000025'X ! Bibliographic File Identifier A PARAMETER ATR$S_CACHE_SEQ = '00000008'X ! Cache sequence numberN PARAMETER ATR$S_FILE_SYSTEM_INFO = '00000002'X ! file system structure levelN PARAMETER ATR$S_FILE_ATTR_CACHING_POLICY = '00000001'X ! Dollar caching onlyN PARAMETER ATR$S_FILE_DATA_CACHING_POLICY = '00000001'X ! Dollar caching only@ PARAMETER ATR$S_POSIX_DATA = '00000040'X ! Dollar caching onlyN PARAM ETER ATR$S_CACHING_OPTIONS = '00000004'X ! Spiralog/VDC caching options@ PARAMETER ATR$S_ACCDATE = '00000008'X ! ODS-5 last access timeG PARAMETER ATR$S_ATTDATE = '00000008'X ! ODS-5 last attribute mod timeI PARAMETER ATR$S_LENGTH_HINT = '00000010'X ! ODS-5 file length hint areaJ PARAMETER ATR$S_EX_RECATTR = '00000008'X ! ODS-5 extended RMS attributes7 PARAMETER ATR$S_EXTFLAGS = '00000002'X ! MS-DOS flags STRUCTURE /ATRDEF/: INTEGER*2 ATR$W_SIZE ! SIZE OF ATTRIBUTE IN BYTES 3 INTEGER*2 ATR$W_TYPE ! ATTRIBUTE TYPE CODE 9 INTEGER*4 ATR$L_ADDR ! ADDRESS OF ATTRIBUTE TEXT ! ATTRIBUTE CODES  END STRUCTURE ! ATRDEFG! Define fields and constant values for ATR$_CACHING_OPTIONS longword./! These must match [STARLET]FIBDEF.SDL exactly. PARAMETER ATR$M_FILE_ATTRIBUTES = '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_FLAGSCDEC$ END OPTIONS wwmt!*** MODULE $BRKDEF ***CDEC$ OPTIONS /NOALIGN! +! .! Breakthru system service input definitions.! ! -4 PARAMETER BRK$C_DEVICE = '00000001'X ! device name4 PARAMETER BRK$C_USERNAME = '00000002'X ! user name4 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)! B PARAMETER BRK$C_GENERAL = '00000000'X ! GENERAL (OR UNSPECIFIED)- PARAMETER BRK$C_PHONE = '00000001'X ! PHONE+ PARAMETER BRK$C_MAIL = '00000002'X ! MAIL5 PARAMETER BRK$C_QUEUE = '00000003'X ! QUEUE MANAGER: PARAMETER BRK$C_SHUTDOWN = '00000004'X ! SYSTEM SHUTDOWN7 PARAMETER BRK$C_URGENT = '00000005'X ! URGENT MESSAGE5 PARAMETER BRK$C_DCL = ' 00000006'X ! DCL (control T)8 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 ! re served 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 ! res erved to customer= PARAMETER BRK$C_USER15 = '0000002E'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'X) PARAMETER BRK$M_REMOTENODE = '00001000'X- PARAMETER BRK$M_PROVIDE_COUNTS = '00002000'X# PARAMETER BRK$M_CSID = '00004000'X/ STRUCTURE /FLAGS_INPUT/ ! mimics $BRDCSTDEF$ PARAMETER B RK$S_ERASE_LINES = 8A 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 = 1C PARAMETER BRK$V_NOREFRESH = 10 ! Refresh an interrupted read PARAMETER BRK$S_CLUSTER = 1: PARAMETER BRK$V_CLUSTER = 11 ! broadcast to cluster# PARAMETER BRK$S_REMOTENODE = 1E PARAMETER BRK$V_REMOTENODE = 12 ! Specified remote target node' PARAMETER BRK$S_PROVIDE_COUNTS = 1L PARAMETER BRK$V_PROVIDE_COUNTS = 13 ! Return information in IOSB about! number of terminals notified PARAMETER BRK$S_CSID = 1D PARAMETER BRK$V_CSID = 14 ! Remote node is really a node CSID BYTE %FILL (2) END STRUCTURE ! FLAGS_INPUTCDEC$ END OPTIONS ww u!*** MODULE $CHFDEF ***CDEC$ OPTIONS /NOALIGN! +! CONDITION HANDLING ARGUMENT LIST OFFSETSH! THERE ARE THREE CONDITIONAL HANDLING STRUCTURES: THE PRIMARY ARGUMENTL! LIST, AND THE SIGNAL AND MECHANISM ARRAYS. ALL ARE IDENTIFIED BY THE SAME! BLOCK PREFIX.!  STRUCTURE /CHFDEF/1 INTEGER*4 %FILL ! PRIMARY ARGUMENT COUNT > INTEGER*4 CHF$L_SIGARGLST ! ADDRESS OF SIGNAL ARGUMENTS @ INTEGER*4 CHF$L_MCHARGLST ! ADDRESS OF MECHANISM ARGUMENTS END STRUCTURE ! CHFDEF STRUCTURE /CHFDEF1/ UNION MAP@ INTEGER*4 CHF$IS_SIG_ARGS ! NUMBER OF SIGNAL ARGUMENTS END MAP MAP@ INTEGER*4 CHF$L_SIG_ARGS ! NUMBER OF SIGNAL ARGUMENTS  END MAP END UNION UNION MAP1 INTEGER*4 CHF$IS_SIG_NAME ! SIGNAL NAME END MAP MAP1 INTEGER*4 CHF$L_SIG_NAME ! SIGNAL NAME  END MAP END UNION UNION MAPD INTEGER*4 CHF$IS_SIG_ARG1 ! FIRST SIGNAL SPECIFIC ARGUMENT END MAP MAPD  INTEGER*4 CHF$L_SIG_ARG1 ! FIRST SIGNAL SPECIFIC ARGUMENT  END MAP END UNION END STRUCTURE ! CHFDEF1 STRUCTURE /CHFDEF2/ UNION MAPD INTEGER*4 CHF$IS_MCH_ARGS ! NUMBER OF MECHANISM ARGUMENTS  END MAP MAPC INTEGER*4 CHF$L_MCH_ARGS ! NUMBER OF MECHANISM ARGUMENTS  END MAP END UNION UNION MAPA INTEGER*4 CHF$PH_MCH_FRAME ! ESTABLISHER FRAME ADDRESS  END MAP MAP@ INTEGER*4 CHF$L_MCH_FRAME ! ESTABLISHER FRAME ADDRESS  END MAP END UNION UNION MAPB INTEGER*4 CHF$IS_MCH_DEPTH ! FRAME DEPTH OF ESTABLISHER  END MAP MAPA INTEGER*4 CHF$L_MCH_DEPTH ! FRAME DEPTH OF ESTABLISHER  END MAP END UNION UNION MAP9 INTEGER*4 CHF$IH_MCH_SAVR0 ! SAVED REGISTER R0  END MAP MAP8 INTEGER*4 CHF$L_MCH_SAVR0 ! SAVED REGISTER R0  END MAP END UNION UNION MAP9 INTEGER*4 CHF$IH_MCH_SAVR1 ! SAVED REGISTER R1  END MAP MAP8 INTEGER*4 CHF$L_MCH_SAVR1 ! SAVED REGISTER R1  END MAP END UNION END STRUCTURE ! CHFDEF2CDEC$ END OPTIONS www!*** MODULE $CHKPNTDEF ***CDEC$ OPTIONS /NOALIGN! -! <! 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 = 1I PARAMETER CHKPNT$V_AUTO_RESTART = 0 ! auto-restart detached process! PARAMETER CHKPNT$S_DEBUG = 14 PARAMETER CHKPNT$V_DEBUG = 1 ! merge in DEBUG! PARAMETER CHKPNT$S_ASYNC = 1F PARAMETER CHKPNT$V_ASYNC = 2 ! asynchronous checkpoint process  BYTE %FILL (1) END STRUCTURE ! CHKPNTDEFCDEC$ END OPTIONS wwMx !*** MODULE $CHPDEF ***CDEC$ OPTIONS /NOALIGN! J! Item code definition for the $CHKPRO (check protection) system service.! - PARAMETER CHP$_END = '00000000'X ! list end7 PARAMETER CHP$_ACCESS = '00000001'X ! intended access9 PARAMETER CHP$_FLAGS = '00000002'X ! read / write flags4 PARAMETER CHP$_PRIV = '00000003'X ! privilege mask< PARAMETER CHP$_ACMODE = '00000004'X ! accessor access modeI PARAMETER CHP$_ACCLASS = '00000005'X ! accessor security classification3 PARAMETER CHP$_RIGHTS = '00000006'X ! rights listK PARAMETER CHP$_ADD_RIGHTS = '00000007'X ! additional rights list segments8 PARAMETER CHP$_MODE = '00000008'X ! simple access mode= PARAMETER CHP$_MODES = '00000009'X ! per action access modeJ PARAMETER CHP$_MIN_CLASS = '0000000A'X ! minimum security classificationJ PARAMETER CHP$_MAX_CLASS = '0000000B'X ! maximum security classification7 PARAMETER CHP$_OWNER = '0000000C'X ! object owner UIC5 PARAMETER CHP$_PROT = '0000000D'X ! protection mask@ PARAMETER CHP$_ACL = '0000000E'X ! access control list segment@ PARAMETER CHP$_AUDIT_NAME = '0000000F'X ! audit names returned@ PARAMETER CHP$_ALARM_NAME = '00000010'X ! alarm names returnedD PARAMETER CHP$_MATCHED_ACE = '00000011'X ! address of matching ACEL PARAMETER CHP$_PRIVUSED = '00000012'X ! address of mask of privileges usedS PARAMETER CHP$_AUDIT_LIST = '00000013'X ! address of supplemental audit item listC PARAMETER CHP$_OBJECT_NAME = '00000014'X ! object name descriptorJ P ARAMETER CHP$_OBJECT_CLASS = '00000015'X ! object class name descriptor1 PARAMETER CHP$_UIC = '00000016'X ! accessor UICS PARAMETER CHP$_OBJECT_SPECIFIC = '00000017'X ! object specific longword (for OSR)!! add new item codes before here@ 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 = '00000005'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 = '0 0000040'X% PARAMETER CHP$M_GRPNAM = '00000080'X% PARAMETER CHP$M_SYSNAM = '00000100'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 = 1A PARAMETER CHP$V_UPGRADE = 2 ! access via UPGRADE privilege" PARAMETER CHP$S_DOWNGRADE = 1E 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 = 1A 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 = 1@ 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' PARAMET ER CHP$M_INTERNAL = '00000400'X% PARAMETER CHP$M_SERVER = '00000800'X STRUCTURE /FLAG_BITS/ UNION MAP$ PARAMETER CHP$S_OBSERVE = 1F PARAMETER CHP$V_OBSERVE = 0 ! non-discretionary read access" PARAMETER CHP$S_ALTER = 1E PARAMETER CHP$V_ALTER = 1 ! non-discretionary write access BYTE %FILL (1) END MAP MAP! PARAMETER CHP$S_READ = 1C PARAMETER CHP$V_READ = 0 ! non-discretionary read access" PARAMETER C HP$S_WRITE = 1E PARAMETER CHP$V_WRITE = 1 ! non-discretionary write access' PARAMETER CHP$S_USEREADALL = 1E 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 = 1M PARAMETER CHP$V_NOFAILAUD = 4 ! do not perform failed access audit& PARAMETER CHP$S_NOSUCCAUD = 1Q PARAMETER CHP$V_NOSUCCAUD = 5 ! d o not perform successful access audit# PARAMETER CHP$S_DELETE = 1J PARAMETER CHP$V_DELETE = 6 ! perform audit as delete event type& PARAMETER CHP$S_MANDATORY = 1B PARAMETER CHP$V_MANDATORY = 7 ! perform mandatory audit" PARAMETER CHP$S_FLUSH = 1I PARAMETER CHP$V_FLUSH = 8 ! force buffer flush in AUDIT_SERVER# PARAMETER CHP$S_CREATE = 1J PARAMETER CHP$V_CREATE = 9 ! perform audit as create event type% PARAMETER  CHP$S_INTERNAL = 1E PARAMETER CHP$V_INTERNAL = 10 ! audit on behalf of VMS TCB# PARAMETER CHP$S_SERVER = 1O 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' PARAMET ER CHP$M_DEFCLASS = '00000020'X STRUCTURE /PROFILE_FLAGS/! PARAMETER CHP$S_NOACCESS = 1H PARAMETER CHP$V_NOACCESS = 0 ! do not access UAF to build profile! PARAMETER CHP$S_REMDUPID = 1H 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 = 1G PARAMETER CHP$V_DEFPRIV = 4 ! initialize privs from default mask! PARAMETER CHP$S_DEFCLASS = 1H PARAMETER CHP$V_DEFCLASS = 5 ! initialize class from default mask BYTE %FILL (1) END STRUCTURE ! PROFILE_FLAGSCDEC$ END OPTIONS ww{ !*** MODULE CIADEF IDENT x-6 ***CDEC$ OPTIONS /NOALIGN# 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_MAX_CIA_CODE = '00000006'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 CIA$L_AUDITS% INTEGER*4 CIA$L_INVALID_MESSAGES INTEGER*4 CIA$L_INTRUDERS INTEGER*4 CIA$L_SUSPE CTS 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 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 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_FILL_1 = 'FFFFE000'X, PARAMETER CIA$K_HEADER_LENGTH = '00000008'X STRUCTURE /HEADER/ INTEGER*4 CIA$L_CONTEXT UNION MAP% I NTEGER*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_FILL_1 = 19( PARAMETER CIA$V_FILL_1 = 13 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 = '00000004'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) END 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 ! BREAKIN_BLOCK STRUCTURE /CIA$GENERIC_REPLY/7 INTEGER*4 CIA$L_REPLY_STATUS ! status of request" END STRUCTURE ! CIA$GENERIC_REPLYCDEC$ END OPTIONS ww;~!*** MODULE $CLIDEF ***CDEC$ OPTIONS /NOALIGN! ++! 4! $CLIDEF --- COMMAND LAGUAGE INTERFACE DEFINITIONS! @! 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/5  INTEGER*4 CLI$L_INIARGCNT ! INITIAL ARG COUNT B INTEGER*4 CLI$A_PROGXFER ! PROGRAM TRANSFER VECTOR ADDRESS A 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 5 INTEGER*4 CLI$L_LINKFLAG ! LINK FLAG LONGWORD UNION MAP8 INTEGER*4 CLI$L_CLIFLAG ! CLI FLAG LONGWORD  END MAP MAP& PARAM ETER CLI$S_DEBUG = 1@ PARAMETER CLI$V_DEBUG = 0 ! DEBUG QUALIFIER SEEN ' PARAMETER CLI$S_DBGTRU = 1; PARAMETER CLI$V_DBGTRU = 1 ! DEBUG WAS TRUE ' PARAMETER CLI$S_VERIFY = 19 PARAMETER CLI$V_VERIFY = 2 ! VERIFY IS ON & PARAMETER CLI$S_BATCH = 1G PARAMETER CLI$V_BATCH = 3 ! THIS PROCESS IS A BATCH JOB ) PARAMETER CLI$S_INDIRECT = 1O PARAMETER CLI$V_INDIRECT = 4 ! INDIRECT  LEVEL NOT EQUAL TO ZERO ' PARAMETER CLI$S_VFYINP = 1H PARAMETER CLI$V_VFYINP = 5 ! UTILITY SHOULD VERFIY INPUT ) PARAMETER CLI$S_TRMVRBLV = 2G PARAMETER CLI$V_TRMVRBLV = 8 ! TERMINAL VERBOSITY LEVEL ( PARAMETER CLI$S_DBGEXCP = 1T PARAMETER CLI$V_DBGEXCP = 16 ! DEBUGGER CALLED VIA "DEBUG" EXCEPTION  BYTE %FILL (2) END MAPE! THE FOLLOWING ARGUMENTS ARE OPTIONAL DEPENDING ON INIARGCNT  END UNIONG INTEGER*4 CLI$L_ARGLIST ! ADDRESS OF APPLICATION ARGUMENT LIST '! (USED FOR MERGED IMAGE ARG. PASSING)! 4! 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& PARAM!ETER CLI$M_MOREINP = '00000004'X& PARAMETER CLI$M_PARMDEF = '00000008'X' PARAMETER CLI$M_MOREVALS = '00000001'X& PARAMETER CLI$M_KEYVALU = '00000002'X@ PARAMETER CLI$K_REQDESC = '0000001C'X ! SIZE OF THE STRUCTURE @ PARAMETER CLI$C_REQDESC = '0000001C'X ! SIZE OF THE STRUCTURE !  STRUCTURE /CLIDEF1/ UNION MAP) INTEGER*4 %FILL ! DUMMY ARG  END MAP MAP UNION MAPH BYTE CLI$B_RQTYPE ! TYP "E OF REQUEST BEING MADE  END MAP MAP/ PARAMETER CLI$S_SUBTYP = 4C PARAMETER CLI$V_SUBTYP = 0 ! SUB TYPE VIELD / PARAMETER CLI$S_PRITYP = 4/ PARAMETER CLI$V_PRITYP = 48 BYTE %FILL (1) ! PRIMARY TYPYE  END MAP END UNION UNION MAP? INTEGER*2 CLI$W_SERVCOD ! CLI SERVICE CODE#  END MAP MAP UNION MAPT BYTE CLI$B_RQINDX ! OFFSET FOR VALUE KEYWORD INDEX END MAP MAPX BYTE CLI$B_BITNUM ! BIT TO SET IF REQUEST IS SUCESSFUL END MAP END UNION UNION MAPT BYTE $ CLI$B_RQFLGS ! INPUT FLAGS CONCERNING REQUEST END MAP MAP8 PARAMETER CLI$S_PARMREQ = 1S PARAMETER CLI$V_PARMREQ = 0 ! PARAMATER IS REQUIRED 7 PARAMETER CLI$S_ABSADR = 1U PARAMETER CLI$V_ABSADR = 1 ! ALL ADDRESS ARE ABSOLUTE 7 PARAMETER CLI$S_EXPNAM = 1W PARAMETER C %LI$V_EXPNAM = 2 ! RETURN EXPLICIT NAMES ONLY ' BYTE %FILL (1) END MAP MAP8 PARAMETER CLI$S_LASTVAL = 1P PARAMETER CLI$V_LASTVAL = 0 ! LAST VALUE ALLOWED 6 PARAMETER CLI$S_DUMMY = 1Z PARAMETER CLI$V_DUMMY = 1 ! *** SAVE PLACE FOR ABS ADR *** ' BYTE %FILL (1) & END MAP END UNION END MAP END UNION UNION MAPA BYTE CLI$B_RQSTAT ! OUTPUT STATUS FLAGS  END MAP MAP0 PARAMETER CLI$S_PARMPRS = 1J PARAMETER CLI$V_PARMPRS = 0 ! PARAMETER IS PRESENT 2 PARAMETER CLI$S_CONCATINP = 1R PARAMETER CLI$V_CONCATINP = 1 ! INPUT CONCATONATION ' EXISTS 0 PARAMETER CLI$S_MOREINP = 1U PARAMETER CLI$V_MOREINP = 2 ! ANOTHER SET OF INPUT PARAMETERS 0 PARAMETER CLI$S_PARMDEF = 1U PARAMETER CLI$V_PARMDEF = 3 ! PARAMETER WAS DEFAULTED PRESENT  BYTE %FILL (1) END MAP MAP1 PARAMETER CLI$S_MOREVALS = 1P PARAMETER CLI$V_MOREVALS = 0 ! UNPROCESSED VALUES REMAIN 0 ( PARAMETER CLI$S_KEYVALU = 1W PARAMETER CLI$V_KEYVALU = 1 ! SUBSEQUENT TOKEN IS VALUE FOR KEY  BYTE %FILL (1) END MAP END UNION END MAP END UNIONA INTEGER*4 CLI$A_ERRACT ! ADDRESS OF ERROR ACTION ROUTINE UNION MAPC INTEGER*4 CLI$Q_RQDESC(2) ! QUADWORD REQUEST DESCRIPTOR  END MAP MAPE INTEGER*2 CLI$W_RQSIZE ! RESULTANT SIZE )OF PARAMETER < INTEGER*2 %FILL ! SPARE WORD IN DESCRIPTOR  UNION MAPO INTEGER*4 CLI$L_RQVALU ! ACTUAL VALUE IN VALUE CONVERSTION  END MAP MAPL INTEGER*4 CLI$A_RQADDR ! ADDRESS OF RESULTANT PARAMETER  END MAP END UNION END MAP END UNIONB INTEGER*4 CLI$A_PRSACT ! PARAMETER PRESENT ACTION ROUTINE A INTEGER*4 CLI$A_ABSAC *T ! PARAMETER ABSENT ACTION ROUTINE 7 INTEGER*4 CLI$A_QUALST ! ADDRESS OF QUALIFIERS B! Define the Descriptor Used by Symbol and Logical-name Callbacks!  END STRUCTURE ! CLIDEF1 STRUCTURE /CLIDEF2/ BYTE %FILL(1:4)@ INTEGER*4 CLI$Q_NAMDESC(2) ! Logical name or symbol name E INTEGER*4 CLI$Q_VALDESC(2) ! Equivalence name or symbol value > INTEGER*4 CLI$Q_TABDESC(2) ! Name of logical name table5 INTEGER*4 CLI$L_ITMLST ! Address of item list<+ INTEGER*4 CLI$L_ATTR ! Address of attribute longword! 7! Define the Descriptor Locations Used for the Old/New!! Out-of-Band Character(s) Masks!  END STRUCTURE ! CLIDEF2 STRUCTURE /CLIDEF3/ BYTE %FILL(1:4)6 INTEGER*4 CLI$L_NEW_MASK ! Enable/disable mask ? INTEGER*4 CLI$L_OLD_MASK ! Previous enabled values mask ! 1! Define the descriptor used for ATTACH callback!  END STRUCTURE ! CLIDEF3 STRUCTURE /CLIDEF4/ BYTE %FILL(1:4); INT,EGER*4 CLI$L_PID ! PID of "destination" process ! 0! 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$K_SPAWN_VERSION = '00000001'X ! Latest version> PARAMETER CLI$C_SPAWN_VERSION = '00000001'X ! Latest versionO PARAMETER CLI$K_SRVDESC = '00000054'X ! Length of longest "service" callback O PARAMETER CLI$C_SRVDESC = '00000054'X ! Length of longest "service" callback !  STRUCTURE /CLIDEF5/ BYTE %FILL(1:4) UNION MAP3 BYTE CLI$B_FLAGS ! Flags (as byte) END MAP MAP3 INTEGER*2 CLI$W_FLAGS ! Flags (a .s word) END MAP MAP' PARAMETER CLI$S_NOWAIT = 1R PARAMETER CLI$V_NOWAIT = 0 ! Do not wait for subprocess completion ) PARAMETER CLI$S_NOCLISYM = 1T PARAMETER CLI$V_NOCLISYM = 1 ! Do not copy CLI symbols to subprocess ) PARAMETER CLI$S_NOLOGNAM = 1V PARAMETER CLI$V_NOLOGNAM = 2 ! Do not copy logical names to subprocess ) PARAMETER CLI$S_NOKEYPAD = 1T PARAMETER CLI$V_NOK /EYPAD = 3 ! Do not copy keypad state to subprocess' PARAMETER CLI$S_NOTIFY = 1G PARAMETER CLI$V_NOTIFY = 4 ! Output notification message* PARAMETER CLI$S_NOCONTROL = 1Y PARAMETER CLI$V_NOCONTROL = 5 ! Do not put CR/LF in front of prompt string( PARAMETER CLI$S_TRUSTED = 1W PARAMETER CLI$V_TRUSTED = 6 ! Allow spawn regardless of UAF CAPTIVE flag) PARAMETER CLI$S_AUTHPRIV = 1N PARAMETER C 0LI$V_AUTHPRIV = 7 ! Propagate AUTHPRIV to subprocess* PARAMETER CLI$S_SUBSYSTEM = 1Y PARAMETER CLI$V_SUBSYSTEM = 8 ! Copy protected subsystem IDs to subprocess BYTE %FILL (2) END MAP END UNION& BYTE %FILL(1:2) ! Unused = INTEGER*4 CLI$L_OUTPID ! PID of subprocess on return L INTEGER*4 CLI$L_LSTSTATUS ! Address to store final subprocess status @ INTEGER*4 CLI$Q_CMDSTR(2) ! Descriptor of command string ? I 1NTEGER*4 CLI$Q_INPUT(2) ! Descriptor of input filespec A INTEGER*4 CLI$Q_OUTPUT(2) ! Descriptor of output filespec E INTEGER*4 CLI$Q_PRCNAM(2) ! Descriptor of name for subprocess D INTEGER*4 CLI$L_ASTADR ! Address of termination AST routine B INTEGER*4 CLI$L_ASTPRM ! Address of AST routine parameter ? BYTE CLI$B_EFN ! Event flag to set on termination 8 BYTE CLI$B_VERSION ! Data structure version& BYTE %FILL(1:2) ! Unused > 2 INTEGER*4 CLI$Q_PROMPT(2) ! Descriptor of prompt string7 INTEGER*4 CLI$Q_CLI(2) ! Descriptor of cli name> INTEGER*4 CLI$Q_TABLE(2) ! Descriptor of cli table name! L! Define the length of the longest "supervisor-mode service" request block,G! 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% PARAM 3ETER CLI$M_QDEXPA = '00000004'X& PARAMETER CLI$M_QUALTRU = '00000001'X& PARAMETER CLI$M_QUALEXP = '00000002'XJ PARAMETER CLI$K_QUALDEF = '00000014'X ! SIZE OF FIXED PART OF STRUCTURE J PARAMETER CLI$C_QUALDEF = '00000014'X ! SIZE OF FIXED PART OF STRUCTURE N PARAMETER CLI$K_QDBITS = '00000014'X ! START OF BIT LISTS(VARIALBLE LENGTH) N PARAMETER CLI$C_QDBITS = '00000014'X ! START OF BIT LISTS(VARIALBLE LENGTH)  STRUCTURE /CLIDEF6/: BYTE CLI$B_QDBLKSIZ ! SIZE OF THE FINAL BLOCK 4; BYTE CLI$B_QDCODE ! ID CODE FOR THE QUALIFIER UNION MAP0 BYTE CLI$B_QDFLGS ! FLAGS BYTE  END MAP MAP) PARAMETER CLI$S_ALLOCCUR = 1L PARAMETER CLI$V_ALLOCCUR = 0 ! TAKE ACTION ON ALL OCCURANCES ' PARAMETER CLI$S_QDUSRV = 1I PARAMETER CLI$V_QDUSRV = 1 ! USER CONTEX VALUE IS PRESENT ' PARAMETER CLI$S_QDEXPA = 1O PARAMETER CLI$V_QDEXPA = 2 ! TAKE ACT5ION ON EXPLICIT OCCURANCES  BYTE %FILL (1) END MAP END UNION UNION MAP6 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 = 1I PARAMETER CLI$V_QUALEXP = 1 ! QUALIFIER EXPLICITLY STATED  BYTE %FILL (1) END MAP END UNION UNION 6 MAPE INTEGER*4 CLI$Q_QDVALDESC(2) ! QUALIFIER VALUE DESCRIPTOR  END MAP MAP8 INTEGER*2 CLI$W_QDVALSIZ ! SIZE OF VALUE . INTEGER*2 %FILL ! SPARE WORD B INTEGER*4 CLI$A_QDVALADR ! ADDRESS OF VALUE STRING  END MAP END UNION? INTEGER*4 CLI$A_TRUACT ! QUALIFIER TRUE ACTION ROUTINE @ INTEGER*4 CLI$A_FLSACT ! QUALIFIER FALSE ACTION ROUTINE > INTEGER*4 CLI$L_USRVAL ! OPTION USER VALUE I 7F 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 M PARAMETER CLI$K_INPSPEC = '00000001'X ! REQUEST FOR AN INPUT SPECIFICATION G PARAMETER CLI$K_OUTSPEC = '00000002'X ! AN OUTPUT FILE SPECIFICATION A PARAMETER CLI$K_PARDONE = '00000003'X ! PARAMETER DONE REQUEST E P 8ARAMETER CLI$K_VALCONV = '00000004'X ! REQUEST A VALUE CONVERSION 9 PARAMETER CLI$K_CLINT = '00000005'X ! CLINT OPERATIONS ! J PARAMETER CLI$K_INITPRS = '00000000'X ! REQUEST INITIALIZATION OF PARSE C PARAMETER CLI$K_GETCMD = '00000001'X ! GET COMMAND BUFFER LIMITS E PARAMETER CLI$K_GETQUAL = '00000002'X ! OPTAIN STATE OF QUALIFIERS ? PARAMETER CLI$K_GETOPT = '00000003'X ! DECODE COMMAND OPTION ; PARAMETER CLI$K_GETLINE = '00000004'X ! GET COMMAND LINE ! K! THE CLISERV REQUEST 9 TYPE APPEARS HERE, INSTEAD OF WITH THE OTHER REQUESTJ! TYPES, BECAUSE IT HAS NO SUBFUNCTIONS ASSOCIATED WITH IT, AND BECAUSE AH! DAY 1 CODING ERROR CAUSES DCL TO EXPECT THAT THIS REQUEST NUMBER WILLH! APPEAR IN THE SUBFUNCTION BITS. THIS MEANS THAT NO UTILITY OPERATION0! CAN BE DEFINED WITH THE SUBFUNCTION NUMBER 5.! I PARAMETER CLI$K_CLISERV = '00000005'X ! REQUEST A SERVICE FROM THE CLI ! 7 PARAMETER CLI$K_INPUT1 = '00000010'X ! PRIMARY INPUT 9 PARAMETER CLI$K_INPUT2 = '0000001 :1'X ! SECONDARY INPUT 0 PARAMETER CLI$K_INPUT3 = '00000012'X ! THIRD, 5 PARAMETER CLI$K_INPUT4 = '00000013'X ! ETC,ETC,ETC ! 7 PARAMETER CLI$K_OUTPUT1 = '00000020'X ! FIRST OUTPUT 8 PARAMETER CLI$K_OUTPUT2 = '00000021'X ! SECOND OUTPUT 2 PARAMETER CLI$K_OUTPUT3 = '00000022'X ! THIRD,- 6 PARAMETER CLI$K_OUTPUT4 = '00000023'X ! ETC,ETC,ETC ! D PARAMETER CLI$K_ENDPRM1 = '00000030'X ! COMPLETED PARAMETER SET 1 D PARAMETER CLI$K_ENDPRM2 = '00000031'X ! COMPLETED PARAMETER SET 2 D P ;ARAMETER CLI$K_ENDPRM3 = '00000032'X ! COMPLETED PARAMETER SET 3 D PARAMETER CLI$K_ENDPRM4 = '00000033'X ! COMPLETED PARAMETER SET 4 ! : PARAMETER CLI$K_NUMERVAL = '00000040'X ! NUMBERIC VALUE 7 PARAMETER CLI$K_ASCIIVAL = '00000041'X ! ASCII VALUE 8 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 ! I PARAMETER CLI$K_PRESENT = '00000050'X ! DETERMINE IF ENT <ITY IS PRESENT ? PARAMETER CLI$K_GETVALUE = '00000051'X ! GET VALUE OF ENTITY J PARAMETER CLI$K_ENDPARSE = '00000052'X ! CLEAN UP AFTER PARSING COMMAND C PARAMETER CLI$K_DCLPARSE = '00000053'X ! PARSE USER COMMAND LINE F PARAMETER CLI$K_DISPATCH = '00000054'X ! DISPATCH TO ACTION ROUTINE A 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 CL=I UTILITY REQUEST CODES! 8! CODES ARE 8 BITS, CONSISTING OF 2 4 BIT FIELDS4! THE LEAST 4 BITS ARE SUBFUCTION DEFINITONS:! AND THE MOST SIGNIFICANT 4 BITS ARE REQUEST TYPE! ! DEFINE REQUEST TYPE CODES /! DEFINE COMPLETE CODES FOR UTILITY OPERATIONS! 1! DEFINE COMPLETE CODES FOR INPUT SPECIFICATIONS! 2! DEFINE COMPLETE CODES FOR OUTPUT SPECIFICATIONS! 5! DEFINE CODES FOR RESULT PARSE PARAMETER COMPLETION! -! DEFINE CODES FOR VALUE CONVERSION REQUE>STS! /! DEFINE COMPLETE CODES FOR UTILITY OPERATIONS! $! DEFINE SET CODE SET REQUEST BLOCK! END UNION END STRUCTURE ! CLIDEF7 STRUCTURE /CLIDEF8/ BYTE %FILL(1:4)0 INTEGER*4 CLI$L_CODESET ! CODE SET VALUE END STRUCTURE ! CLIDEF8CDEC$ END OPTIONS wwM!*** MODULE $CLIMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:10.24! ! ! VERSION: 'X-15'! ! * *: ?! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993 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. *! * A *! * *! ! MODIFIED BY:! ! X-15 BRIAN MAN 26-MAR-1996$! UPDATE WITH LATEST ALPHA CHANGE.! ?! X-10 NYK578 NITIN Y. KARKHANIS 8-MAR-1996;! ADD UNSUPITEM WARNING MESSAGE; USED WHEN AN UNSUPPORTED<! ITEM CODE IS SUPPLIED TO THE F$GETXXI LEXICAL FUNCTIONS.! #! X-14 STEVE T. LEE 06-FEB-1996!! UPDATE MESSAGES FOR DCL PIPE.! *! X-13 STL0200 STEVE T. LEE 30-AUG-1995+! ADD NEW MESSAGES FOR DCL PIPE SUPPORT.! 0! X-12 DCBP DAVID C. PASTERCHIK 25-AUG-19942! CLARIFY TEXT OF GBLNDF MESSAGE (V6 QAR 00787).! .! X-11 RAB0176 RICHARD A. BISHOP 21-OCT-19936! ADD CMDSEG2 FROM ALPHA, *BEFORE* INVNOD TO KEEP IN! STEP WITH ALPHA V1.5! *! X-10 STL00067 STEVE T. LEE 24-JUN-19939! FIX WRONG PUNCTUATION USED IN THE NEW MESSAGE INVNOD.! )! X-9 STL00065 STEVE T. LEE 12-JUN-1993>! FULLNAME BL3 CHECKIN. (FIX EDIT HISTORY AND MODULE IDENT.)! '! X-8 WXD BILL DAVENPORT 12-APR-1993! FULLNAME BCL1 CHECKIN.! +! X-7A1 STL00045 STEVE T. LEE 14-MAR-19938! ADD INVNOD WARNING FOR DECNET/OSI FULLNAMES SUPPORT.! 7! X-7 CRB0239 COLIN R. BLAKE 18-DEC-1991 11:38:24.768! THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE.! .! X-6A1 FAK001 FORREST A. KENNEY 23-SEP-1991@! MERGE C2 CHANGES INTO BLADE. MAKE MODULE IDENT AND REVISION9! HISTORY AGREE WITH CMS AFTER THE MASTER PACK CLEANUP.! =! T-2 LBB LEE BARTON 22-MAY-1991)! DPICK UP PHOENIX CHANGE:! '! X-18 TNF0094 TODD FLOLO 23 FEB 1991! ADD MESSAGE FOR SET PREFIX.! /! X-15 RNM0119 RUSS MURRAY 10-OCT-1990*! MAKE IVPROT MESSAGE TEXT MORE GENERIC.! (! X-14 RNM0109 RUSS MURRAY 25-MAY-1990A! ADD MSNGENDS TO FLAG MISSING ENDSUBROUTINES ON A FORWARD SCAN! FOR A CALL TARGET.! C! INCLUDE THE TARGET LABEL NAME IN THE USCALL MESSAGE, AND CHANGE;! THE TEXT OF THE MESSAGE TO INDICATE THE LABEL COULD BE ! INACCESSIBLE.! (! XE-13 RNM0102 RUSS MURRAY 28-FEB-1989-! ADD NOREADCP ERROR MESSAGE TO FLAG FILES ! NOT OPENED FOR READ ACCESS.! (! X-12 RNM0090 RUSS MURRAY 11-OCT-19896! ADD THE CURRENT DISK FILE NAME (IF ONE EXISTS) TO '! THE MISSPELL INFORMATIONAL MESSAGE.! (! X-11 RNM0086 RUSS MURRAY 20-SEP-19890! SUPPORT FOR COMMAND VERB/QUALIFIER SPELLING 3! CHECKS: ADD MISSPELL INFORMATIONAL MESSAGE FOR (! COMMAND VERB/QUALIFIER MISSPELLINGS.! &! X-10 TNF0056 TODD FLOLO 6-FEB-1989.! ADFD MESSAGE FOR DISABLED RUN & MCR COMMAND! %! X-9 TNF0053 TODD FLOLO 2-DEC-19880! ADD MESSAGES FOR CAPTIVE & DISIMAGE ACCOUNTS! &! X-8 TNF0047 TODD FLOLO 06-OCT-19883! ADD NEW MESSAGES FOR CONTEXT SYMBOL PROCESSING.! *! X-7 HWS0263 HAROLD SCHULTZ 08-DEC-19860! 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-19851! CHANGE THE IGNVCALL 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$ PARAMETER CLI$_ABVERB = '00038008'X$ PARAMET HER 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'XB 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 = 'I00038070'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'XC 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$ PARJAMETER 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 K$_UNDSYM = '00038140'X$ PARAMETER CLI$_USGOTO = '00038148'X$ PARAMETER CLI$_VALREQ = '00038150'X$ PARAMETER CLI$_ONEVAL = '00038158'X$ PARAMETER CLI$_OVRFLW = '00038160'XC PARAMETER CLI$_UNPROQUAL = '00038168'X ! OLD CLI INTERFACE STATUSC PARAMETER CLI$_UNPROPARM = '00038170'X ! OLD CLI INTERFACE STATUSF PARAMETER CLI$_INVKEY = '00038178'X ! OLD MCR STATUS GOING AWAY SOONB PARAMETER CLI$_INVRSP = '00038180'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_UNDFIL = '00038188'XB PARAMETER C LLI$_FILOPN = '00038190'X ! NOT USED BY DCL NOR BY MCRB PARAMETER CLI$_BADRET = '00038198'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_ABSYMD = '000381A0'X$ PARAMETER CLI$_INVUIC = '000381A8'XC PARAMETER CLI$_BADTEXT = '000381B0'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_ABFNAM = '000381B8'X$ PARAMETER CLI$_IVFNAM = '000381C0'XF PARAMETER CLI$_BLKOVRFLOW = '000381C8'X ! NOT USED BY DCL NOR BY MCRF PARAMETER CLI$_BLKUNDFLOW = '000381D0'X ! NOT USED BY DCL NOR BY MCRB PARAMETER CLI$_ MBADBLK = '000381D8'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_NOLBLS = '000381E0'X9 PARAMETER CLI$_NOCHANGE = '000381E8'X ! MCR-ONLY STATUS@ PARAMETER CLI$_ABSENT = '000381F0'X ! NEW CLI INTERFACE STATUSA PARAMETER CLI$_NEGATED = '000381F8'X ! NEW CLI INTERFACE STATUS' PARAMETER CLI$_INVFILSPE = '00038200'XE PARAMETER CLI$_INVLOGFIL = '00038208'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_NOTHEN = '00038210'X' PARAMETER CLI$_SYMTOOLNG = '00038218'X7 PARAMETER CLI$_ASTDCL = '00 N038220'X ! GOES AWAY IN V4& PARAMETER CLI$_INVRANGE = '00038228'X@ 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$ PARAMETER CLI$_SYMABR = '00038278'X& PARAMETER CLI$_IVKEYN OAM = '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$ PARAMETER CLI$_USCALL = '000382D8'X% PARAMETER CLI$_USGOSUB = '00038P2E0'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 = '00038338'X' PARAMETER CLI$_INVREDSYN = '00038340'X( PAR QAMETER CLI$_INVCONCHAR = '00038348'X, PARAMETER CLI$_CMDNOTALLINPIP = '00038350'X, PARAMETER CLI$_LBLNOTALLINPIP = '00038358'X+ PARAMETER CLI$_TOOMANYPIPCMD = '00038360'X* PARAMETER CLI$_UNSUPITEM = '00038368'X ! /! DEFINE CLI RELATED "ERROR" LEVEL ERROR CODES(! BEGIN ERROR CODE 2048 FROM WARNING TO! LEAVE ROOM FOR 256 WARNINGS.! B PARAMETER CLI$_CONFQUAL = '00038802'X ! OLD CLI INTERFACE STATUSA PARAMETER CLI$_INVQUAL = '0003880A'X ! OLD CLI INTERFACE STATUSC PARAMETER CLI$_REQPRRMABS = '00038812'X ! OLD CLI INTERFACE STATUSD PARAMETER CLI$_INVQUALNUM = '0003881A'X ! OLD CLI INTERFACE STATUS= PARAMETER CLI$_INVREQTYP = '00038822'X ! USED BY CALL BACKSA PARAMETER CLI$_NOVALUE = '0003882A'X ! OLD CLI INTERFACE STATUSC PARAMETER CLI$_VALCNVERR = '00038832'X ! OLD CLI INTERFACE STATUS: PARAMETER CLI$_ILLVAL = '0003883A'X ! USED BY CALL BACKSB PARAMETER CLI$_NOOPTPRS = '00038842'X ! OLD CLI INTERFACE STATUSE PARAMETER CLI$_CREQUEJOB = '0003884A'X ! NOT USED BY D SCL NOR BY MCRE PARAMETER CLI$_SUBMITERR = '00038852'X ! NOT USED BY DCL NOR BY MCRD PARAMETER CLI$_DEVALSPL = '0003885A'X ! NOT USED BY DCL NOR BY MCRE PARAMETER CLI$_DEVNOTSPL = '00038862'X ! NOT USED BY DCL NOR BY MCR: PARAMETER CLI$_IVDEVTYPE = '0003886A'X ! MCR-ONLY STATUS7 PARAMETER CLI$_IMGFNF = '00038872'X ! MCR-ONLY STATUSE PARAMETER CLI$_DEVNOTFOR = '0003887A'X ! NOT USED BY DCL NOR BY MCR> PARAMETER CLI$_PWDNOTVAL = '00038882'X ! SET PASSWORD STATUS> PARAMETER CLI$_PWDNOT TVER = '0003888A'X ! SET PASSWORD STATUS> PARAMETER CLI$_PWDLOCKED = '00038892'X ! SET PASSWORD STATUSF PARAMETER CLI$_NOTFR = '0003889A'X ! IMAGE ACTIVATION ERROR - PART 2> PARAMETER CLI$_PWDSYNTAX = '000388A2'X ! SET PASSWORD STATUSH PARAMETER CLI$_IMGNAME = '000388AA'X ! IMAGE ACTIVATION ERROR - PART 2I PARAMETER CLI$_IMAGEFNF = '000388B2'X ! IMAGE ACTIVATION ERROR - PART 2E PARAMETER CLI$_BADSTRLVL = '000388BA'X ! NOT USED BY DCL NOR BY MCR% PARAMETER CLI$_REFUSED = '000388C2'X= P UARAMETER CLI$_BADCTLMSK = '000388CA'X ! USED BY CALL BACKS$ PARAMETER CLI$_INVRFM = '000388D2'X8 PARAMETER CLI$_NOCLINT = '000388DA'X ! MCR-ONLY STATUS8 PARAMETER CLI$_NOSPAWN = '000388E2'X ! MCR-ONLY STATUS$ PARAMETER CLI$_SPWNIO = '000388EA'X$ PARAMETER CLI$_TRMMBX = '000388F2'X' PARAMETER CLI$_STRTOOLNG = '000388FA'X8 PARAMETER CLI$_CMDGONE = '00038902'X ! MCR-ONLY STATUS' PARAMETER CLI$_NOCMDPROC = '0003890A'X% PARAMETER CLI$_INVROUT = '00038912'X$ PARAMETER CLI$_OLDTAB = '000389V1A'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& PARAMETER CLI$_NOREADCP = '00038972'X' PARAMETER CLI$_INVPREFIX = '0003897A'X' PARAMETER CLI$_CAWPTSPAWN = '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'X8 PARAMETER CLI$_INSPRIV = '0003DDF3'X ! MCR-ONLY STATUS9 PARAMETER CLI$_NODIRCHG = '0003DDFB'X ! MCR-ONLY STATUS% PARAMETER CLI$_IGNQUAL = '0003DE03'X& PARAMETER CLI$_TABEXIST =X '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 = '0003FD01'X& PARAMETER CLI$_ATTACHED = '0003FD09'X& PARAMETER CLI$_RETURNED = '0003FD11'XA PARAMETER CLI$_YPRESENT = '0003FD19'X ! NEW CLI INTERFACE STATUSC PARAMETER CLI$_DEFAULTED = '0003FD21'X ! NEW CLI INTERFACE STATUS@ PARAMETER CLI$_CONCAT = '0003FD29'X ! NEW CLI INTERFACE STATUSA PARAMETER CLI$_LOCPRES = '0003FD31'X ! NEW CLI INTERFACE STATUS? PARAMETER CLI$_COMMA = '0003FD39'X ! NEW CLI INTERFACE STATUSD PARAMETER CLI$_OKTAB = '0003FD41'X ! CDU CONVERSION ROUTINE STATUSE PARAMETER CLI$_UPGTAB = '0003FD49'X ! CDU CONVERSION ROUTINE STATUSC PARAMETER CLI$_PROC_ID = '0003FFF1'X ! NZOT USED BY DCL NOR BY MCRE PARAMETER CLI$_QUEJOBCRE = '0003FFF9'X ! NOT USED BY DCL NOR BY MCR$ PARAMETER CLI$_NORMAL = '00030001'XCDEC$ END OPTIONSww ́!*** MODULE $CLISERVDEF ***CDEC$ OPTIONS /NOALIGN! #! DEFINE CLI SERVICE REQUEST CODES! ! DEFINE CLI SERVICE CODES 8 PARAMETER CLI$K_PAUSE = '00000001'X ! PAUSE THE IMAGE N PARAMETER CLI$K_DEFLOCAL = '00000002'X ! DEFINE A SYMBOL IN THE LOCAL TABLE P PARAMETER CLI$K_DEFGLOBAL = '00000003'X ! DEFINE A S[YMBOL IN THE GLOBAL TABLE L PARAMETER CLI$K_CHAIN = '00000004'X ! PASS AN IMAGE TO RUN AFTER THIS ONE O PARAMETER CLI$K_COMMAND = '00000005'X ! PASS A COMMAND LINE TO LATER EXECUTE H PARAMETER CLI$K_CREALOG = '00000006'X ! DEFINE A PROCESS LOGICAL NAME H PARAMETER CLI$K_DELELOG = '00000007'X ! DELETE A PROCESS LOGICAL NAME M PARAMETER CLI$K_DISACTRLY = '00000008'X ! DISABLE DCL CONTROL Y PROCESSING L PARAMETER CLI$K_ENABCTRLY = '00000009'X ! ENABLE DCL CONTROL Y PROCESSING B PARAMETER C\LI$K_GETSYM = '0000000A'X ! RETURN VALUE OF A SYMBOL @ PARAMETER CLI$K_DELELCL = '0000000B'X ! DELETE A LOCAL SYMBOL A PARAMETER CLI$K_DELEGBL = '0000000C'X ! DELETE A GLOBAL SYMBOL K PARAMETER CLI$K_DISAOOB = '0000000D'X ! DISABLE OUT-OF-BAND CHARACTER(S) M PARAMETER CLI$K_ENABOOB = '0000000E'X ! RE-ENABLE OUT-OF-BAND CHARACTER(S) ; PARAMETER CLI$K_SPAWN = '0000000F'X ! SPAWN A SUBPROCESS = PARAMETER CLI$K_ATTACH = '00000010'X ! ATTACH TO A PROCESS a PARAMETER CLI$K_LIBDEFLOCAL = ']00000011'X ! DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOLc PARAMETER CLI$K_LIBDEFGLOBAL = '00000012'X ! DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOLS PARAMETER CLI$K_LIBGETSYM = '00000013'X ! GET A SYMBOL VALUE USING LIB$GET_SYMBOLT PARAMETER CLI$K_LIBDELELCL = '00000014'X ! DELETE A SYMBOL USING LIB$DELETE_SYMBOL[ PARAMETER CLI$K_LIBDELEGBL = '00000015'X ! DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOL9 PARAMETER CLI$K_SETCODESET = '00000016'X ! SET CODE SET! 5! Def^ine local/global symbol flag returned by GETSYM! 9 PARAMETER CLI$K_LOCAL_SYM = '00000001'X ! Local symbol ; PARAMETER CLI$K_GLOBAL_SYM = '00000002'X ! Global symbol CDEC$ END OPTIONS wwR!*** MODULE $CLIVERBDEF ***CDEC$ OPTIONS /NOALIGN! !! DEFINE GENERIC CODES FOR VERBS! ! DEFINE VERB QENERIC CODES 5 PARAMETER CLI$K_VERB_ALLO = '00000001'X ! ALLOCATE 4 PARAMETER CLI$K_VERB_ANAL = '00000002'X ! ANALIZE 3 PARAMETER CLI$K_VERB_ASSI = '00000003'X ! _ ASSIGN 2 PARAMETER CLI$K_VERB_BASI = '00000004'X ! BASIC 2 PARAMETER CLI$K_VERB_BLIS = '00000005'X ! BLISS 2 PARAMETER CLI$K_VERB_COBO = '00000006'X ! COBOL 5 PARAMETER CLI$K_VERB_CONT = '00000007'X ! CONTINUE 1 PARAMETER CLI$K_VERB_COPY = '00000008'X ! COPY 3 PARAMETER CLI$K_VERB_CREA = '00000009'X ! CREATE 1 PARAMETER CLI$K_VERB_DATA = '0000000A'X ! DATA 7 PARAMETER CLI$K_VERB_DEAL = '0000000B'X ! DEALLOCATE 5 PARAMETER CLI$K_VERB_DEAS = '0000000C'X ! DEASSIGN 2 PARAMETER ` CLI$K_VERB_DEBU = '0000000D'X ! DEBUG 3 PARAMETER CLI$K_VERB_DEFI = '0000000E'X ! DEFINE 3 PARAMETER CLI$K_VERB_DELE = '0000000F'X ! DELETE 4 PARAMETER CLI$K_VERB_DEPO = '00000010'X ! DEPOSIT ? PARAMETER CLI$K_VERB_DIFF = '00000011'X ! DIFFERENCE COMMAND 6 PARAMETER CLI$K_VERB_DIRE = '00000012'X ! DIRECTORY 5 PARAMETER CLI$K_VERB_DISM = '00000013'X ! DISMOUNT 1 PARAMETER CLI$K_VERB_EDIT = '00000014'X ! EDIT / PARAMETER CLI$K_VERB_EOD = '00000015'X ! EOD 4 PARAMETER CLI$K_VERB_ aEXAM = '00000016'X ! EXAMINE 1 PARAMETER CLI$K_VERB_EXIT = '00000017'X ! EXIT 4 PARAMETER CLI$K_VERB_FORT = '00000018'X ! FORTRAN 1 PARAMETER CLI$K_VERB_GOTO = '00000019'X ! GOTO 1 PARAMETER CLI$K_VERB_HELP = '0000001A'X ! HELP - PARAMETER CLI$K_VERB_IF = '0000001B'X ! IF 7 PARAMETER CLI$K_VERB_INIT = '0000001C'X ! INITIALIZE 4 PARAMETER CLI$K_VERB_INQU = '0000001D'X ! INQUIRE 1 PARAMETER CLI$K_VERB_LINK = '0000001E'X ! LINK 3 PARAMETER CLI$K_VERB_LOGO = '0000001F'X ! LOGOUT b2 PARAMETER CLI$K_VERB_MACR = '00000020'X ! MACRO / PARAMETER CLI$K_VERB_MCR = '00000021'X ! MCR - PARAMETER CLI$K_VERB_ON = '00000022'X ! ON 2 PARAMETER CLI$K_VERB_PRIN = '00000023'X ! PRINT / PARAMETER CLI$K_VERB_RUN = '00000024'X ! RUN / PARAMETER CLI$K_VERB_SET = '00000025'X ! SET 1 PARAMETER CLI$K_VERB_SHOW = '00000026'X ! SHOW 2 PARAMETER CLI$K_VERB_STAR = '00000027'X ! START 1 PARAMETER CLI$K_VERB_STOP = '00000028'X ! STOP 3 PARAMETER CLI$K_VERB_SUBM = '00000029'X ! SU cBMIT 1 PARAMETER CLI$K_VERB_TYPE = '0000002A'X ! TYPE 2 PARAMETER CLI$K_VERB_MOUN = '0000002B'X ! MOUNT 2 PARAMETER CLI$K_VERB_PATC = '0000002C'X ! PATCH 3 PARAMETER CLI$K_VERB_REPL = '0000002D'X ! REPLAY 3 PARAMETER CLI$K_VERB_UNLO = '0000002E'X ! UNLOCK ; PARAMETER CLI$K_VERB_APPE = '0000002F'X ! APPEND COMMAND 1 PARAMETER CLI$K_VERB_DUMP = '00000030'X ! DUMP 2 PARAMETER CLI$K_VERB_PURG = '00000031'X ! PURGE 3 PARAMETER CLI$K_VERB_RENA = '00000032'X ! RENAME 3 PARAMETER CLI d$K_VERB_CANC = '00000033'X ! CANCEL 4 PARAMETER CLI$K_VERB_LIBR = '00000034'X ! LIBRARY 1 PARAMETER CLI$K_VERB_SORT = '00000035'X ! SORT 4 PARAMETER CLI$K_VERB_REQU = '00000036'X ! REQUEST 7 PARAMETER CLI$K_VERB_SYNC = '00000037'X ! SYNCRONIZE 2 PARAMETER CLI$K_VERB_CORA = '00000038'X ! CORAL 3 PARAMETER CLI$K_VERB_PASC = '00000039'X ! PASCAL 0 PARAMETER CLI$K_VERB_PLI = '0000003A'X ! PL/1 4 PARAMETER CLI$K_VERB_MESS = '0000003B'X ! MESSAGE ! DEFINE VERB QENERIC CODES < PARAMeETER CLI$K_VERB_FORE = '000000FF'X ! FOREIGN COMMAND CDEC$ END OPTIONS wwMل!*** MODULE $CLSDEF ***CDEC$ OPTIONS /NOALIGN! +! A! Security classification block. Contains secrecy and integrityJ! level and categories for non-discretionary (mandatory) access controls.! ! -? STRUCTURE /CLSDEF_TLVRNG/ ! Range specifier field references2 INTEGER*2 CLS$W_RANGE_LOW ! Range low limit4 INTEGER*2 CLS$W_RANGE_HIGH ! Range high limit END STRUCTURE !f CLSDEF_TLVRNG5 PARAMETER CLS$K_END = '00000000'X ! List terminatorO PARAMETER CLS$K_SC_ENUMERATE = '00000001'X ! Secrecy category enumerated listF PARAMETER CLS$K_SC_RANGE = '00000002'X ! Secrecy category range listB PARAMETER CLS$K_SC_MASK = '00000003'X ! Secrecy category bitmaskQ PARAMETER CLS$K_IC_ENUMERATE = '00000011'X ! Integrity category enumerated listH PARAMETER CLS$K_IC_RANGE = '00000012'X ! Integirty category range listD PARAMETER CLS$K_IC_MASK = '00000013'X ! Integrity cagtegory bitmask3 PARAMETER CLS$K_VOID = '000000FF'X ! Voided entry7 STRUCTURE /CLSDEF_TLV/ ! TLV entry field references UNION MAP- BYTE CLS$B_TAG ! Format code UNION ! dependent: MAPH BYTE CLS$B_COUNT ! # entries in an enumerated list END MAP!! # range pairs in a range list&! # longwords following voided entry MAPD BYTE CLS$B_MASK_SIZE ! # longwords in a bitmask h END MAP END UNION UNION MAPR INTEGER*2 CLS$W_CATLST(1:1) ! Vector of enumerated cat. END MAP MAP INTEGER*2 %FILLP INTEGER*4 CLS$L_RNGLST(1:1) ! Vector of high:low word! range pairs END MAP MAP5 INTEGER*2 CLS$W_BASE ! Bias valueH INTEGER*4 CLS$L_MASK(1:1) ! <32 * MASK_SIZE> bit mask i END MAP MAP% INTEGER*2 %FILL(1:3) END MAP MAPD INTEGER*2 CLS$W_VOID(1:1) ! words END MAP END UNION END MAP END UNION END STRUCTURE ! CLSDEF_TLVD PARAMETER CLS$K_MIN_SEC_LEV = '00000000'X ! Minimum secrecy level F PARAMETER CLS$K_MIN_INT_LEV = '00000000'X ! Minimum integrity level D PARAMETER CLS$K_MAX_SEC_LEV = '000000FF'X ! Maximum secrecy level F PARAMETERj CLS$K_MAX_INT_LEV = '000000FF'X ! Maximum integrity level G PARAMETER CLS$K_MIN_SEC_CAT = '00000001'X ! Minimum secrecy category I PARAMETER CLS$K_MIN_INT_CAT = '00000001'X ! Minimum integrity category Q PARAMETER CLS$K_MAX_SEC_CAT = '00010000'X ! Maximum supported secrecy category S PARAMETER CLS$K_MAX_INT_CAT = '00010000'X ! Maximum supported integrity category U PARAMETER CLS$K_MAX_SEC_CAT_S64I64 = '00000040'X ! Maximum type 0 secrecy category W PARAMETER CLS$K_MAX_INT_CAT_S64I64 k= '00000040'X ! Maximum type 0 integrity category S PARAMETER CLS$K_MAX_SEC_CAT_S128 = '00000080'X ! Maximum type 1 secrecy category V PARAMETER CLS$K_MAX_SEC_CAT_DYN_CAT = '00010000'X ! Maximum type 2 secrecy category X PARAMETER CLS$K_MAX_INT_CAT_DYN_CAT = '00010000'X ! Maximum type 2 integrity category J PARAMETER CLS$K_TYP_S64I64 = '00000000'X ! Type 0 class block identifierH PARAMETER CLS$K_TYP_S128 = '00000001'X ! Type 1 class block identifierK PARAMETER CLS$K_TYP_DYN_CAT = '000000 l02'X ! Type 2 class blook identifierK PARAMETER CLS$K_LENGTH_S64I64 = '00000014'X ! Size of type 0 class blockI PARAMETER CLS$K_LENGTH_S128 = '00000014'X ! Size of type 1 class block- PARAMETER CLS$K_LENGTH_DYN_CAT = '00000008'X! Size of type 2 class block< PARAMETER CLS$K_LENGTH = '00000014'X ! length of structure STRUCTURE /CLSDEF/ UNION MAP3 BYTE CLS$B_SEC_LEV ! Secrecy level5 BYTE CLS$B_INT_LEV ! Integrity level3 BYTE C mLS$B_TYPE ! Class block type! Class block type identifiersI BYTE CLS$B_TLVLST_SIZE ! Size in longwords of TLV list in! a type 2 class block. UNION! I! Usage of the ..._S64I64 and ..._S128 symbolic name forms is preferred.K! Previous name forms have been retained for backwards compatibility only.!  MAPL INTEGER*4 CLS$Q_SEC_CAT_S64I64(2) ! Secrecy category maskN INTEGER*4 CLS$Q_INT_CAT_S64I64(2) ! Integnrity category mask END MAP MAPK INTEGER*4 CLS$O_SEC_CAT_S128(4) ! Secrecy category mask END MAP MAPJ INTEGER*4 CLS$L_TLVLST(1:1) ! Tag-Length-Value_set list! fixed portion END MAP! j! The following definitions have been superseded and are being retained for backwards compatibility only.D! Usage of the ..._S64I64 and ..._S128 symbolic names is preferred.!  MAPs o INTEGER*4 CLS$Q_SEC_CAT_0(2) ! Secrecy category mask - Usage of CLS$Q_SEC_CAT_S64I64 preferredt INTEGER*4 CLS$Q_INT_CAT_0(2) ! Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred END MAP MAPp INTEGER*4 CLS$O_SEC_CAT_1(4) ! Secrecy category mask - Usage of CLS$O_SEC_CAT_S128 preferred END MAP END UNION END MAP! j! The following definitions have been superseded and are bein pg retained for backwards compatibility only.D! Usage of the ..._S64I64 and ..._S128 symbolic names is preferred.!  MAPX BYTE CLS$B_SECUR_LEV ! Security level - Usage of CLS$B_SEC_LEV preferredY BYTE CLS$B_INTEG_LEV ! Integrity level - Usage of CLS$B_INT_LEV preferred' INTEGER*2 %FILL ! Reserved} INTEGER*4 CLS$Q_SECUR_CAT(2) ! Security category mask - Usage of CLS$Q_SEC_CAT_S64I64/CLS$O_SEC_CAT_S128 preferredk INTEGER*4 CLS$Q q_INTEG_CAT(2) ! Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred END MAP END UNION END STRUCTURE ! CLSDEF! F! $CHANGE_CLASS, PARSE_CLASS, FORMAT_CLASS system service item codes! G PARAMETER CLS$_SECSTR = '00000001'X ! Textual secrecy/security string@ PARAMETER CLS$_INTSTR = '00000002'X ! Textual integrity stringC PARAMETER CLS$_CLSBLK = '00000003'X ! Simple classification blockG PARAMETER CLS$_MINCLSBLK = '00000004'X ! Minimum classification blockG PARrAMETER CLS$_MAXCLSBLK = '00000005'X ! Maximum classification blockI PARAMETER CLS$_WIDTH = '00000006'X ! Width of display for $FORMAT_CLASSI PARAMETER CLS$_TRMDSC = '00000007'X ! Line terminator for $FORMAT_CLASSH PARAMETER CLS$_INDENT = '00000008'X ! Line indenting for $FORMAT_CLASSH PARAMETER CLS$_OLDCLSBLK = '00000009'X ! Previous classification blockG PARAMETER CLS$_OLDMINCLS = '0000000A'X ! Previous minimum class blockG PARAMETER CLS$_OLDMAXCLS = '0000000B'X ! Previous maximum cl sass blocka PARAMETER CLS$_TRANQUIL = '0000000C'X ! Override tranquility checks - Usage reserved to Digital? PARAMETER CLS$_FLAGS = '0000000D'X ! Formatting control flags%! 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 /fill_71/ UNION MAP; INTEGER*4 CLS$L_FLAGS ! $FORMAT_CLASS control flags END MAPt MAP% PARAMETER CLS$S_COMPRESS = 1I PARAMETER CLS$V_COMPRESS = 0 ! Compress category range strings# PARAMETER CLS$S_EXPAND = 1F PARAMETER CLS$V_EXPAND = 1 ! Expande category range strings BYTE %FILL (1) END MAP END UNION END STRUCTURE ! fill_71CDEC$ END OPTIONS ww!*** MODULE $CLUEVTDEF ***CDEC$ OPTIONS /NOALIGNA PARAMETER CLUEVTHNDL$K_LENGTH = '00000008'X ! Length of block. A PARAMETER CLUEVTHNDL$C_LEuNGTH = '00000008'X ! Length of block.  STRUCTURE /CLUEVTHNDL/' INTEGER*4 cluevthndl$l_cluacb_addr# INTEGER*4 cluevthndl$l_seq_num END STRUCTURE ! CLUEVTHNDL% PARAMETER CLUEVT$C_ADD = '00000001'X( PARAMETER CLUEVT$C_REMOVE = '00000002'XCDEC$ END OPTIONS ww-m!*** MODULE $CMBDEF ***CDEC$ OPTIONS /NOALIGN! + ! $CREMBX FLAGS bit definitions! -' PARAMETER CMB$M_READONLY = '00000001'X( PARAMETER CMB$M_WRITEONLY = '00000002'X STRUCTURE /CMBDEFv/ UNION MAP% PARAMETER CMB$S_READONLY = 1Y PARAMETER CMB$V_READONLY = 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 ! CMBDEFCDEC$ END OPTIONS ww `"!*** MODULE $CONVDEF IDENT X-4 ***CDEC$ OPTIONS /NOALIGN& PARAMETER CONV$M_SIGNAL = '00000001w'X* PARAMETER CONV$M_FDL_STRING = '00000002'X STRUCTURE /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 x CONV$K_FAST = '00000003'X% PARAMETER CONV$K_MERGE = '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_ yREAD_CHECK = '0000000F'X+ PARAMETER CONV$K_WRITE_CHECK = '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 CzONV$L_CREATE INTEGER*4 CONV$L_SHARE INTEGER*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 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 = '0000 |0004'X* PARAMETER CONV$S_STATISTICS = '00000014'X* 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- PARAMET }ER CONV$K_SORT_CPU_TIME = '00000010'X- PARAMETER CONV$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 INTEGER*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_CPU_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 = '00000004'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$STATISTICSCDEC$ END OPTIONSww>!*** MODULE $CONVM SGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:11.67! ! * *5! * COPYRIGHT (C) 1978, 1980, 1982, 1984 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 *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. *! * *! * *! ++! ! FACILITY: VAX-11 CONVERT! ! ENVIRONMENT:! ! VAX/VMS OPERATING SYSTEM! ! ABSTRACT:.! CONVERT AND CONVERT/RECLAIM ERROR MESSAGES! ! 6! AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980! ! ! MODIFIED BY:! %! X-3 BP BOB PREMOVICH 22-JUL-1998,! MERGE IN OPENVMS ALPHA RAVEN_FT3 CHANGE:! (! X-4 BP026 BOB PREMOVICH 29-MAY-19987! CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT4! WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO6! FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET ! FACILITY.! ,! X-2 SBL1003 STEVEN B. LIONEL 13-DEC-1991!! SET MACRO NAME TO $CONVMSGDEF! -! V03-005 RAS0318 RON SCHAEFER 27-JUN-1984'! FIX SPELLINGS AND TEXT OF MESSAGES.! 1! V03-004 KBT0468 KEITH B. THOMPSON 21-JAN-1983! CHANGE THE TEXT OF RSZ! 1! V03-003 KBT0438 KEITH B. THOMPSON 30-DEC-1982! CHANGE THE TEXT OF CREA_ERR! 1! V03-002 KBT0394 KEITH B. THOMPSON 29-OCT-19828! 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'XZ PARAMETER CONV$_CREATEDSTM = '00B212FB'X ! /FAO=1H PARAMETER CONV$_INSVIRMEM = '00B212F2'X ! C PARAMETER CONV$_OPENERR = '00B2138A'X ! /FAO=1K PARAMETER CONV$_OPENIN = '00B2109A'X ! /FAO=1M PARAMETER CONV$_OPENOUT = '00B210A2'X ! /FAO=1C PARAMETER CONV$_READERR = '00B210B2'X ! /FAO=1D PARAMETER CONV$_WRITEERR = '00B210D2'X ! /FAO=1L PARAMETER CONV$_CLOSEIN = '00B21052'X ! /FAO=1N PARAMETER CON V$_CLOSEOUT = '00B2105A'X ! /FAO=1I PARAMETER CONV$_BADLOGIC = '00B21122'X ! ? PARAMETER CONV$_NOWILD = '00B2112A'X ! O PARAMETER CONV$_VALERR = '00B211EA'X ! B 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'X4 PARAMETER CONV$_DELPRI = '00B2807A'X ! UNUSED IN V4' PARAMETER CONV$_EXTN_ERR = '00B28082'X' PAR AMETER CONV$_FATALEXC = '00B2808A'X& PARAMETER 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'X4 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'XCDEC$ END OPTIONSwwMh!*** MODULE $CQUALDEF ***CDEC$ OPTIONS /NOALIGN+ 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 UTIL$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 STRUCTURE /CFQUALS/ UNION MAP- PARAMETER UTIL$S_CQF_CONFIRM = 11 PARAMETER UTIL$V_CQF_CONFIRM = 0 ! - PAR AMETER UTIL$S_CQF_EXCLUDE = 11 PARAMETER UTIL$V_CQF_EXCLUDE = 1 ! , PARAMETER UTIL$S_CQF_BEFORE = 11 PARAMETER UTIL$V_CQF_BEFORE = 2 ! + PARAMETER UTIL$S_CQF_SINCE = 10 PARAMETER UTIL$V_CQF_SINCE = 3 ! - PARAMETER UTIL$S_CQF_CREATED = 11 PARAMETER UTIL$V_CQF_CREATED = 4 ! . PARAMETER UTIL$S_CQF_MODIFIED = 12 PARAMETER UTIL$V_CQF_MODIFIED = 5 ! - PARAMETER UTIL$ S_CQF_EXPIRED = 11 PARAMETER UTIL$V_CQF_EXPIRED = 6 ! , PARAMETER UTIL$S_CQF_BACKUP = 11 PARAMETER UTIL$V_CQF_BACKUP = 7 ! - PARAMETER UTIL$S_CQF_BYOWNER = 10 PARAMETER UTIL$V_CQF_BYOWNER = 8 !  BYTE %FILL (2) END MAP MAP. PARAMETER UTIL$S_CQF_ASSIGNED = 9. PARAMETER UTIL$V_CQF_ASSIGNED = 01 PARAMETER UTIL$S_CQF_UNASSIGNED = 230 PARAMETER UTIL$V_CQF_UNASSIGNED = 9 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! CFQUALS! !! define prompt parameter values! / PARAMETER UTIL$K_CQF_UNSPECIFIED = '00000000'X) PARAMETER 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 = 11 PARAMETER LIB$V_CQF_CONFIRM = 0 ! , PARAMET ER LIB$S_CQF_EXCLUDE = 11 PARAMETER LIB$V_CQF_EXCLUDE = 1 ! + PARAMETER LIB$S_CQF_BEFORE = 10 PARAMETER LIB$V_CQF_BEFORE = 2 ! * PARAMETER LIB$S_CQF_SINCE = 1/ PARAMETER LIB$V_CQF_SINCE = 3 ! , PARAMETER LIB$S_CQF_CREATED = 11 PARAMETER LIB$V_CQF_CREATED = 4 ! - PARAMETER LIB$S_CQF_MODIFIED = 11 PARAMETER LIB$V_CQF_MODIFIED = 5 ! , PARAMETER LIB$S_CQF_EXPIRED = 11 PARAMETER LIB$V_CQF_EXPIRED = 6 ! + PARAMETER LIB$S_CQF_BACKUP = 10 PARAMETER LIB$V_CQF_BACKUP = 7 ! , PARAMETER LIB$S_CQF_BYOWNER = 10 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 ! CQUALSCDEC$ END OPTIONSww-m!*** MODULE $CRDEF ***CDEC$ OPTIONS /NOALIGN! +! CARD READER STATUS BITS! -# PARAMETER CR$M_TMODE = '0000000F'X@ PARAMETER CR$K_T026 = '00000000'X ! 026 PUNCH CODE TRANSLATION @ PARAMETER CR$K_T029 = '00000001'X ! 029 PUNCH CODE TRANSLATION  STRUCTURE /CRDEF/ UNION MAP! PARAMETER CR$S_TMODE = 47 PARAMETER CR$V_TMODE = 0 ! TRANSLATION MODE  BYTE %FILL (1) END MAP! ! TRANSLATION MODE DEFINITIONS! ! END UNION END STRUCTURE ! CRDEFCDEC$ END OPTIONS ww !*** MODULE $CREDEF ***CDEC$ OPTIONS /NOALIGN! ! Create options table! C PARAMETER CRE$C_VMSV2 = '00000002'X ! VMS version V04-000 format = PARAMETER CRE$C_VMSV3 = '00000003'X ! VMS version 3 format ( PARAMETER CRE$M_NOCASECMP = '00000001'X( PARAMETER CRE$M_NOCASENTR = '00000002'X( PARAMETER CRE$M_U PCASNTRY = '00000004'XV PARAMETER CRE$C_HLPCASING = '00000006'X ! Treat upper casing as it is for HELP libs X PARAMETER CRE$C_OBJCASING = '00000003'X ! Treat upper casing as it is for OBJECT libs ` 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_LENGTH = '00000050'X !  STRUCTURE /CREDEF// INTEGER*4 CRE$L_TYPE ! Type of library &! (library types defined in $LBRDEF); I NTEGER*4 CRE$L_KEYLEN ! Length of keys in library 8 INTEGER*4 CRE$L_ALLOC ! Initial file allocation ; INTEGER*4 CRE$L_IDXMAX ! Maximum number of indices G INTEGER*4 CRE$L_UHDMAX ! Size of additional module header data I INTEGER*4 CRE$L_ENTALL ! Number of index entries to pre-allocate S INTEGER*4 CRE$L_LUHMAX ! Number of library update history records to store C INTEGER*4 CRE$L_VERTYP ! Version type of library to create UNION MAP 3 INTEGER*4 CRE$L_IDXOPT ! Index options  END MAP MAP* PARAMETER CRE$S_NOCASECMP = 1O PARAMETER CRE$V_NOCASECMP = 0 ! Do not upper case the match key * PARAMETER CRE$S_NOCASENTR = 1o PARAMETER CRE$V_NOCASENTR = 1 ! Do not upper case the index key when comparing with a match key * PARAMETER CRE$S_UPCASNTRY = 1j PARAMETER CRE$V_UPCASNTRY = 2 ! Upper case the index key when entering it into the library  BYTE %FILL (1) END MAP END UNION6 INTEGER*4 %FILL(1:11) ! Reserved 11 longwords  END STRUCTURE ! CREDEFCDEC$ END OPTIONSww!*** MODULE $CRFDEF ***CDEC$ OPTIONS /NOALIGN! ! CRF$INSRTREF ARGUMENT LIST!  STRUCTURE /CRFDEF/* INTEGER*4 %FILL ! ARGUMENT COUNT 9 INTEGER*4 CRF$L_IR_CTLTBL ! CRF CONTROL TABLE ADR / 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 8 BYTE CRF$B_IR_DEFIND ! DEFINITION INDICATOR & BYTE %FILL(1:3) ! UNUSED ! ! CRF$INSRTKEY ARGUMENT LIST!  END STRUCTURE ! CRFDEF STRUCTURE /CRFDEF1/* INTEGER*4 %FILL ! ARGUMENT COUNT 9 INTEGER*4 CRF$L_IK_CTLTBL ! CRF CONTROL TABLE ADR 2 INTEGER*4 CRF$L_IK_KEYADR ! ADDRESS OF KEY 4 INTEGER*4 CRF$L_IK_VALADR ! ADDRESS OF VALUE / INTEGER*2 CRF$W_IK_VALFLG ! VALUE FLAGS & BYTE %FILL(1:2) ! UNUSED ! ! CRF$OUT ARGUMENT LIST!  END STRUCTURE ! CRFDEF1 STRUCTURE /CRFDEF2/* INTEGER*4 %FILL ! ARGUMENT COUNT 9 INTEGER*4 CRF$L_OU_CTLTBL ! CRF CONTROL TABLE ADR 5 INTEGER*4 CRF$L_OU_LINWID ! OUTPUT LINE WIDTH 1 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 7 BYTE CRF$B_OU_PRTIND ! REF PRINT INDICATOR & BYTE %FILL(1:3) ! UNUSED 2 BYTE CRF$B_OU_SAVIND ! SAVE INDICATOR ! ! CRF CONTROL TABLE OFFSETS!  END STRUCTURE ! CRFDEF2 STRUCTURE /CRFDEF3/3 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 = 1H PARAMETER CRF$V_BINARY = 0 ! 1 = KEY IS BINARY 0 = ASCII  BYTE %FILL (1) END MAP END UNIONA BYTE CRF$B_FLAGS ! MISC. FLAGS FOR FUTURE EXPANSION = INTEGER*2 CRF$W_ERRSTS ! SECONDARY ERROR STATUS CODE G INTEGER*4 CRF$L_ENTRIES ! NUMBER OF ENTRIES IN CROSS REFERENCE @ INTEGER*4 CRF$L_DYNMEM(1:2) ! LISTHEAD OF DYNAMIC MEMORY F INTEGER*4 CRF$L_MAXBLK ! SIZE (IN BYTES)  OF BLOCK TO ALLOCATE F INTEGER*4 CRF$L_MEMEXP ! SIZE (IN PAGES) OF BLOCK TO ALLOCATE & INTEGER*4 %FILL(1:8) ! SPARES 6 INTEGER*4 CRF$L_ERROR ! ERROR ROUTINE ADDRESS 8 INTEGER*4 CRF$L_OUTPUT ! 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 ! CRFDEF3CDEC$ END OPTIONSww-!*** MODULE $CRFMSG ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:06.19! ! ! ! VERSION: 'V04-001'! ! * *:! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1994 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. *! * *! * *! 2! RETURN STATUS CODES FOR CROSS REFERENCE PROGRAM! ! MODIFIED BY:! /! 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! )! 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'XCDEC$ END OPTIONSww !*** MODULE CSHDEF IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! $SCHED function codesD PARAMETER CSH$_READ_ALL = '00000017'X ! Read data on all processesD PARAMETER CSH$_READ_NEW = '00000018'X ! Read data on new processesK PARAMETER CSH$_SET_CLASS = '00000019'X ! Place process(es) into class(es)" PARAMETER CSH$_RES1 = '0000001A'X" PARAMETER CSH$_RE S2 = '0000001B'X" PARAMETER CSH$_RES3 = '0000001C'X" PARAMETER CSH$_RES4 = '0000001D'XE 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'XK PARAMETER CSH$_READ_QUANT = '00000024'X ! Read per-class quanta remainingB PARAMETER CSH$_SET_QUANT = '00000025'X ! Define per-class quanta" PARAMETER CSH$_RES9 = '00000026'X" PARAMETER CSH$_RESA = '00000027'X" PARAMETER CSH$_RESB = '00000028'X" PARAMETER CSH$_RESC = '00000029'XE 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'XC 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 ! J! 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/6 INTEGER*4 CSHC$L_EPID ! EPID of target processB 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 ! CSHC3! CSHP -- Class ScHeduler data block for Processes! K! 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/3 INTEGER*4 CSHP$L_STATUS ! Copy of PCB$L_STS1 INTEGER*2 CSHP$W_PIX ! Process index slot: BYTE CSHP$B_PRI ! Current priority (internal)@ BYTE CSHP$B_PRIB ! Current base priority (internal)0 INTEGER*4 CSHP$L_EPID ! The official PID; CHARACTER*8 CSHP$T_ACCOUNT ! Account string from PCB2 INTEGER*4 CSHP$L_CPUTIM ! CPU time charged END STRUCTURE ! CSHPCDEC$ END OPTIONS wwM!*** MODULE $cvtdef ***CDEC$ OPTIONS /NOALIGNE PARAMETER CVT$K_VAX_F = '00000000'X ! VAX F Floating point dataE PARAMETER CVT$K_VAX_D = '00000001'X ! VAX D Floating point dataE PARAMETER CVT$K_VAX_G = '00000002'X ! VAX G Floating point dataE PARAMETER CVT$K_VAX_H = '00000003'X ! VAX H Floating point dataF PARAMETER CVT$K_IEEE_S = '00000004'X ! IEEE S Floating point dataF PARAMETER CVT$K_IEEE_T = '00000005'X ! IEEE T Floating point dataH PARAMETER CVT$K_IBM_LONG = '00000006'X ! IBM Long Floating point dataI PARAMETER CVT$K_IBM_SHORT = '00000007'X ! IBM Short Floating point dataD PARAMETER CVT$K_CRAY = '00000008'X ! Cray Floating point dataF PARAMETER CVT$K_IEEE_X = '00000009'X ! IEEE X Floating point da taQ PARAMETER CVT$K_BIG_ENDIAN_IEEE_S = '0000000A'X ! IEEE S Floating point dataQ PARAMETER CVT$K_BIG_ENDIAN_IEEE_T = '0000000B'X ! IEEE S Floating point dataQ 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_I NVALID_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_RE TURN_STATUS/+ PARAMETER CVT$S_INVALID_INPUT_TYPE = 1+ PARAMETER CVT$V_INVALID_INPUT_TYPE = 0, PARAMETER CVT$S_INVALID_OUTPUT_TYPE = 1, PARAMETER 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_I NVALID_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_OPTIONSCDEC$ END OPTIONSww(o!*** MODULE $CVTMSG ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:09.02! ! N! * *N! * COPYRIGHT (C) 1991 *N! * BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *N! * *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 *N! * TRANSFERRED. *N! * *N! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *N! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *N! * CORPORATION. *N! * *N! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *N! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *N! * *N! ============================================================================! ! FILE: CVTMSG.MSG! ! VERSION: 1-001! 7! FACILITY: CVTRTL - VMS CONVERSION RUN TIME LIBRARY! 8! ABSTRACT: MESSAGE DEFINITIONS FOR THE CVT FACILITY.! ! AUTHOR:  JEFFREY S. YOUNG! ! CREATION DATE: 25-JUN-1991! ! MODIFICATION HISTORY:N! --------------------------------------------------------------------------+! 1-001 25-JUN-1991 JSY ORIGINAL VERSION.! N! ============================================================================N! ============================================================================! ?! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:! ! CVT$_ABCMNOXYZ! L! IN ADDITION, THE LIBRARY ST ANDARDS SPECIFY THAT THE LETTERS "abc", "mno",N! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR3! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.! M! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR7! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION.! N! ============================================================================! & 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'XCDEC$ END OPTIONSwwmz!!*** MODULE $DCDEF IDENT 42.1 ***CDEC$ OPTIONS /NOALIGN! .! DEVICE ADAPTER, CLASS, AND TYPE DEFINITIONS! ! ! DEFINE ADAPTER TYPESK! When adding a new adapter type, make sure a corresponding entry is addedO! to the ADP_TBL_UP and ADP_TBL_DWN tables in any affected [SYSLOA]ERRSUB*.MAR ! modules.! ! DEFINE ADAPTER TYPES 5 PARAMETER AT$_MBA = '00000000'X ! MASSBUS ADAPTER 4 PARAMETER AT$_UBA = '00000001'X ! UNIBUS ADAPTER 1 PARAMETER AT$_DR = '00000002'X ! DR32 ADAPTER 7 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)3 PARAMETER AT$_DMB32 = '00000007'X ! DMB32 ADAPTER3 PARAMETER AT$_DRB32 = '00000008'X ! DRB32 ADAPTER8 PARAMETER AT$_BVP = '00000009'X ! BVP GENERIC ADAPTER@ PARAMETER AT$_BVP_SSP = '0000000A'X ! BVP STORAGE SYSTEMS PORT3 PARAMETER AT$_BVP_NIP = '0000000B'X ! BVP NI PORT4 PARAMETER AT$_KA410 = '0000000C'X ! VAXstar system: PAR AMETER AT$_KA420 = '0000000C'X ! PVAX/CVAXstar system7 PARAMETER AT$_GENBI = '0000000D'X ! Generic BI device0 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$_KA550 = '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$_CIMNA = '00000034'X% PARAMETER AT$_XZA_DSSI = '00000035'X" PARAMETER AT$_DEMNA = '00000036'X! PARAMETER AT$_KA4A = '0000003B'X" PARAMETER AT$_KA600 = '0000003C'X# PARAMETER AT$_SCSI_B = '0000003D'X" PARAMETER AT$_TT600 = '0000003E'X" PARAMETER AT$_KA560 = '0000003F'X! ! DEFINE DEVICE CLASSES! ! DEFINE DEVICE CLASSES * PARAMETER DC$_DISK = '00000001'X ! DISK + PARAMETER DC$_TAPE = '00000002'X ! TAPES H PARAMETER DC$_SCOM = '00000020'X ! SYNCHRONOUS COMMUNICATIONS DEVICES 1 PARAMETER DC$_CARD = '00000041'X ! CARD READER . PARAMETER DC$_TERM = '00000042'X ! TERMINAL 1 PARAMETER DC$_LP = '00000043'X ! LINE PRINT ER 8 PARAMETER DC$_WORKSTATION = '00000046'X ! WORKSTATIONS3 PARAMETER DC$_REALTIME = '00000060'X ! REAL-TIME : PARAMETER DC$_DECVOICE = '00000061'X ! DECVOICE products3 PARAMETER DC$_AUDIO = '00000062'X ! General audio3 PARAMETER DC$_VIDEO = '00000063'X ! General video4 PARAMETER DC$_BUS = '00000080'X ! BUSES, E.G, CI 0 PARAMETER DC$_MAILBOX = '000000A0'X ! MAILBOX E 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 . PARAMET ER 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 disk 1 PARAMETER DT$_RB02 = '00000012'X ! R02 ON RB730 1 PARAMETER DT$_RB80 = '00000013'X ! R80 ON RB730 B PARAMETER DT$_RA80 = '00000014'X ! R80 ON INTELLIGENT CONTROLLER B PARAMETER DT$_RA81 = '00000015'X ! R81 ON INTELLIGENT CONTROLLER D 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)9 PARAMETER DT$_RD51 = '0000001 9'X ! RD51 FIXED DISK DRIVE: PARAMETER DT$_RX50 = '0000001A'X ! RX50 FLOPPY DISK DRIVE9 PARAMETER DT$_RD52 = '0000001B'X ! RD52 FIXED DISK DRIVE9 PARAMETER DT$_RD53 = '0000001C'X ! RD53 FIXED DISK DRIVE9 PARAMETER DT$_RD26 = '0000001D'X ! RD26 FIXED DISK DRIVE9 PARAMETER DT$_RA82 = '0000001E'X ! RA82 FIXED DISK DRIVE9 PARAMETER DT$_RD31 = '0000001F'X ! RD31 FIXED DISK DRIVE9 PARAMETER DT$_RD54 = '00000020'X ! RD54 FIXED DISK DRIVE1 PARAMETER DT$_CRX50 = '00000021'X ! Console RX50* PAR AMETER DT$_RRD50 = '00000022'X ! RRD506 PARAMETER DT$_GENERIC_DU = '00000023'X ! Brand X Disk7 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 D T$_RF37 = '0000007C'X! PARAMETER DT$_RF74 = '0000007D'X! PARAMETER DT$_RF75 = '0000007E'X" PARAMETER DT$_HSZ10 = '0000007F'X! PARAMETER DT$_RZ28 = '00000080'X7 PARAMETER DT$_FD1 = '00000081'X ! FOREIGN DISK TYPE 17 PARAMETER DT$_FD2 = '00000082'X ! FOREIGN DISK TYPE 27 PARAMETER DT$_FD3 = '00000083'X ! FOREIGN DISK TYPE 37 PARAMETER DT$_FD4 = '00000084'X ! FOREIGN DISK TYPE 47 PARAMETER DT$_FD5 = '00000085'X ! FOREIGN DISK TYPE 57 PARAMETER DT$_FD6 = '00000086'X ! FOREIGN DISK TYPE 67 PARAMETER DT$_FD7 = '00000087'X ! FOREIGN DISK TYPE 77 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$_SNAPPY_DISK = '000000B4'X( PARAMETER DT$_SNAPPY_POOL = '000000B5'X! ! TAPE DEVICES! 1 PARAMETER DT$_TE16 = '00000001'X ! TE16 MAGTAPE 1 PARAMETER DT$_TU45 = '00000002'X ! TU45 MAGTAPE 1 PARAMETER DT$_TU77 = '00000003'X ! TU77 MAGTAPE 1 PARAMETER DT$_TS11 = '00000004'X ! TS11 MAGTAPE 1 PARAMETER DT$_TU78 = '00000005'X ! TU78 MAGTAPE 1 PARAMETER DT$_TA78 = '00000006'X ! TA78 MAGTAPE 1 PARAMETER DT$_TU80 = '00000007'X ! TU80 MAGTAPE 1 PARAMETER DT$_TU81 = '00000008'X ! TU81 MAGTAPE ! PARAMETER DT$_TA81 = '00000009'X7 PARAMETER DT$_TK50 = '0000000A'X ! TK50 CARTRIDGE TAPE; PARAMETER DT$_MR_TU70 = '0000000B'X ! TU70 STC TAPE (DX20)4 PARAMETER DT$_MR_TU72 = '0000000C'X ! TU72 STC TAPE8 PARAMETER DT$_MW_TSU05 = '0000000D'X ! TSU05 TAPE (CSS)8 PARAMETER DT$_MW_TSV05 = '0000000E'X ! TSV05 TAPE (CSS)7 PARAMETER DT$_TK70 = '0000000F'X ! TK70 CARTRIDGE TAPE! PARAMETER DT$_RV20 = '00000010'X! PARAMETER DT$_RV80 = '00000010'X7 PARAMETER DT$_TK60 = '00000011'X ! TK60 CARTRIDGE TAPE6 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! E! new definitions for terminal types should be placed in $ttdef only3! 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 EXTENSIONS6 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 * PAR AMETER DT$_VT55 = '00000041'X ! VT55 - PARAMETER DT$_TQ_BTS = '00000004'X ! TQ_BTS6 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 = '0000 0061'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 CONTROLLER 5 PARAMETER DT$_DZ32 = '00000043'X ! DZ32 CONTROLLER ? PARAMETER DT$_DZ730 = '00000044'X ! DZ730 (COMBO) CONTROLLER 6 PARAMETER DT$_DMZ32 = '00000045'X ! DMZ32 CONTROLLER3 PARAMETER DT$_DHV = '00000046'X ! DHV CONTROLLER3 PARAMETER DT$_DHU = '00000047 'X ! DHU CONTROLLER= PARAMETER DT$_SLU = '00000048'X ! Onboard Serial Line Unit4 PARAMETER DT$_TERM9 = '00000049'X ! Terminal on 0092 PARAMETER DT$_LAT = '0000004A'X ! LAT terminals! ! Terminal WORKSTATIONS! 4 PARAMETER DT$_VS100 = '00000001'X ! VAXstation 1004 PARAMETER DT$_VS125 = '00000002'X ! VAXstation 125@ PARAMETER DT$_VL_VS8200 = '00000003'X ! VAXstation 8200 (Lynx): PARAMETER DT$_VD = '00000004'X ! VAXstation Vir. Device( PARAMETER DT$_DECW_OUTPUT = '00000005'X' P ARAMETER 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 ! DMR11 J PARAMETER 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 = '0 0000007'X ! ISB-11 DEC dataway D PARAMETER DT$_MX_MUX200 = '00000008'X ! MUX-200 PROTOCOL EMULATOR , PARAMETER DT$_DMP11 = '00000009'X ! DMP11 , PARAMETER DT$_DMF32 = '0000000A'X ! DMF32 E 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 t o NI adapter 8 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 PARAMETER DT$_YR_DDCMP = '00000013'X ! " DDCMP / PARAMETER DT$_YS_SDLC = '00000014'X ! " SDLC 0 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_LANC E = '00000018'X ! SCORPIO to NI adapter : PARAMETER DT$_DELUA = '00000019'X ! LSI version of DEUNA, PARAMETER DT$_NQ_3271 = '0000001A'X ! DHCF5 PARAMETER DT$_DMB32 = '0000001B'X ! DMB32 (BICombo)N 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)A PARAMETER DT$_SJ_DSV11 = '0000001E'X ! DSV11 Q-BUS sync adapter> PARAMETER DT$_SL_DSB32 = '0000001F'X ! DSB32 BI sync adaptor3 PARAMETER DT$_ZS_DST32 = '00000020'X ! DST32, X25D PARAMETER DT$_XQ_DELQA = '00000021'X ! DELQA - Q-BUS to NI adaptor> PARAMETER DT$_ET_DEBNI = '00000022'X ! DEBNI (BI-NI adapter)B 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$_KWV 32 = '00000029'X% PARAMETER DT$_SM_DSF32 = '0000002A'X% PARAMETER DT$_FX_DEMFA = '0000002B'XK PARAMETER DT$_SF_DSF32 = '0000002C'X ! FT unit for DSF32 CIRRUS sync commH PARAMETER DT$_SE_DUP11 = '0000002D'X ! SEDRIVER common DUP11 sync commH 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 FDDI@ 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 EthernetA 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 EthernetK 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 FDDI6 PARAMETER DT$_FQ_DEFQA = '0000003A'X ! Q-bus to FDDI9 PARAMETER DT$_FR_DEFEA = '0000003B'X ! EISA bus to FDDIC 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 RingC PARAMETER DT$_ER_DE425 = '00000043'X ! EISA bus to TULIP EthernetB PARAMETER DT$_EW_DE435 = '00000044'X ! PCI bus to TULIP EthernetB PARAMETER DT$_ER_DE205 = '000 00045'X ! ISA bus to LEMAC Ethernet; PARAMETER DT$_HC_OTTO = '00000046'X ! Turbochannel to ATM< PARAMETER DT$_ZS_PBXDI = '00000047'X ! ISA sync comms cardC PARAMETER DT$_EL_ELAN = '00000048'X ! Emulated CSMACD LAN for ATM2 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 TokenRing@ PARAMETER DT$_EW_DE450 = '0000004C'X ! PCI to DC21040 Ethernet@ PARAMETER DT$_EW_DE500 = '0000004 D'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! ,! 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 ! DMB323 PARAMETER DT$_PRTR9 = '00000006'X ! Printer on 009; PARAMETER DT$_SCSI_SCANNER_1 = '00000007'X ! SCSI Scanner6 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 MAILBOX 4 PARAMETER DT$_NULL = '00000003'X ! The NULL DEVICE0 PARAMETER DT$_PIPE = '00000004'X ! PIPE DEVICE! &! REMOTE CONSOLE STORAGE DEVICE TYPES! > PARAMETER DT$_DAP_DEVICE = '00000001'X ! DAP-ACCESSED DEVICE! ! REALTIME DEVICE T YPES! - 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 INTERFACE 5 PARAMETER DT$_BS_DT07 = '00000008'X ! UNIBUS SWITCHQ PARAMETER DT$_XP_PCL11B = '00000009'X ! PCL-11B (DECNET and NONDECNET mode CSS)E PARAMETER DT$_IX_IEX11 = '0000000A'X ! IEEE-488 to UNIBUS INTERFACEE PARAMETER DT$_FP_FEPCM = '0000000B'X ! FEPCM CSS frontend processorC PARAMETER DT$_TK_FCM = '0000000C'X ! FEPCM CSS frontend processorF PARAMETER DT$_XI_DR11C = '0000000D'X ! PARALLEL INTERFACE ON DMF-32 A PARAMETER DT$_XA_DRV11WA = '0000000E'X ! DMA Parallel Interface4 PARAMETER DT$_DRB32 = '0000000F'X ! DRB32 (or MFA)B PARAMETER DT$_HX_DRQ3B = '00000010'X ! DRQ3B PARALLEL INTERFACE ! ! DECVOICE DEVICES! B PARAMETER DT$_DECVOICE = '00000001'X ! VQ- DECVOICE class driverE PARAMETER DT$_DTC04 = '00000002'X ! VX DECvoice 1 M7132 port driverG PARAMETER DT$_DTC05 = '00000003'X ! VM Decvoice III M3135 port driverG PARAMETER DT$_DTCN5 = '00000004'X ! VN Decvoice III M3136 port driver! ! AUDIO DEVICES! B PARAMETER DT$_AMD79C30A = '00000001'X ! AMD79C30A on VLC/PMARIAH! ! BUS CLASS DEVICES! , PARAMETER DT$_CI780 = '00000001'X ! CI780 , PARAMETER DT$_CI750 = '00 000002'X ! CI750 < PARAMETER DT$_UQPORT = '00000003'X ! UQPORT is generic UDA, PARAMETER DT$_UDA50 = '00000003'X ! UDA50 - PARAMETER DT$_UDA50A = '00000004'X ! UDA50A4 PARAMETER DT$_LESI = '00000005'X ! Low end storage/ PARAMETER DT$_TU81P = '00000006'X ! TU81 port. PARAMETER DT$_RDRX = '00000007'X ! RDRX port/ PARAMETER DT$_TK50P = '00000008'X ! TK50 port1 PARAMETER DT$_RUX50P = '00000009'X ! RUX50 port0 PARAMETER DT$_RC26P = '0000000A'X ! RC26P port; PARAMETER DT$_QDA50 = '00 00000B'X ! KDA50 port (old name)0 PARAMETER DT$_KDA50 = '0000000B'X ! KDA50 port; PARAMETER DT$_BDA50 = '0000000C'X ! KDB50 port (old name)> PARAMETER DT$_KDB50 = '0000000C'X ! KDB50 port (alias BDA50)1 PARAMETER DT$_RRD50P = '0000000D'X ! RRD50 port; PARAMETER DT$_QDA25 = '0000000E'X ! KDA25 port (old name)0 PARAMETER DT$_KDA25 = '0000000E'X ! KDA25 port4 PARAMETER DT$_BCI750 = '0000000F'X ! BI-CI750 port/ PARAMETER DT$_BCA = '00000010'X ! BI-CI port0 PARAMETER DT$_RQDX3 = '00 000011'X ! RQDX3 port1 PARAMETER DT$_NISCA = '00000012'X ! NI-SCA port1 PARAMETER DT$_AIO = '00000013'X ! BVP SSP port2 PARAMETER DT$_KFBTA = '00000013'X ! BVP SSP port3 PARAMETER DT$_AIE = '00000014'X ! BVP multi-port4 PARAMETER DT$_DEBNT = '00000014'X ! BVP multi-port PARAMETER DT$_BSA = '00000015'X" PARAMETER DT$_KSB50 = '00000015'X/ PARAMETER DT$_TK70P = '00000016'X ! TK70 port" PARAMETER DT$_RV20P = '00000017'X" PARAMETER DT$_RV80P = '00000017'X/ 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$_CIPCA = '0000002F'X$ PARAMETER DT$_ISP1020 = '00000030'X! ! MISCELLANEOUS DEVICES! 0 PARAMETER DT$_DN11 = '00000001'X ! AUTODIALER 3 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$_DMA_560 = '00000008'XCDEC$ END OPTIONS ww픒!*** MODULE $DDTMDEF ***CDEC$ OPTIONS /NOALIGN! 6! 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 = 1D PARAMETER DDTM$V_NONDEFAULT = 1 ! Not the default transaction! PARAMETER DDTM$S_PROCESS = 1: PARAMETER DDTM$V_PROCESS = 2 ! Process-permanent RM"  PARAMETER DDTM$S_VOLATILE = 1: PARAMETER DDTM$V_VOLATILE = 3 ! volatile-only state! PARAMETER DDTM$S_RUNDOWN = 14 PARAMETER DDTM$V_RUNDOWN = 4 ! forget all RMs PARAMETER DDTM$S_CANCEL = 19 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 = 1G PARAMETER DDTM$V_BRANCH_UNSYNCHED = 7 ! Don't need to sync branch% P ARAMETER 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 = 1G PARAMETER DDTM$V_FINAL_STATE = 10 ! Get final transaction outcome PARAMETER DDTM$S_LATE = 1 PARAMETER DDTM$V_LATE = 312 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 = 1L 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! I PARAMETER DDTM$K_TX_PREPARE = '00000001'X ! Prepare transaction requestE PARAMETER DDTM$K_TX_COMMIT = '00000 002'X ! Commit transaction orderC PARAMETER DDTM$K_TX_ABORT = '00000003'X ! Abort transaction orderM PARAMETER DDTM$K_TX_RECOVER_COMMIT = '00000004'X ! Commit order on recoveryK 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 operation8 PARAMETER DDTM$K_ABORT = '00000003'X ! Abort operationD PARAMETER DDTM$K_ONE_PHASE_COMMIT = '00000004'X ! One-phase commitH PARAMETER DDTM$K_DEFAULT_CLEARED = '00000005'X ! Tid no longer defaultF PARAMETER DDTM$K_DEFAULT_SET = '00000006'X ! Tid now process defaultR PARAMETER DDTM$K_STARTED_DEFAULT = '00000007'X ! New process default transactionP PARAMETER DDTM$K_STARTED_NONDEFAULT = '00000008'X ! New nondefault transactionJ PARAMETER DDTM$K_RECOVER_COMMITTED = '00000009'X ! Transaction committedF PARAMETER DDTM$K_RECOVER_ERROR = '0000000A'X ! Error during recoveryI PARAMETER DDTM$K_RECOVER_INDOUBT = '0000000B'X ! Transaction is indoubtO PARAMETER DDTM$K_RECOVER_RESOLVE = '0000000C'X ! RM resposible for resolution! -! Transaction report structure (DECdtm V1.0)! > STRUCTURE /DDTM$R_ASTDEF/ ! Transaction event AST parameter2 INTEGER*4 DDTM$L_ARGLEN ! Structure length- INTEGER*4 DDTM$A_TID ! Transaction id8 INTEGER*4 DDTM$L_PART_ID ! Participant identifier1 INTEGER*4 DDTM$L_RM_CTX ! RM event ASTPRM0 INT EGER*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/5 INTEGER*4 DDTM$L_REPORT_LEN ! Structure length0 INTEGER*4 DDTM$A_TID_PTR ! Transaction id5 INTEGER*4 DDTM$L_REPORT_ID ! Report identifier4 INTEG ER*4 DDTM$L_RM_CONTEXT ! RM event ASTPRM6 INTEGER*4 DDTM$L_EVENT_TYPE ! Event report typeA 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 DigitalB INTEGER*4 DDTM$Q_TX_CLASS(2) ! Transaction class descriptor= INTEGER*4 DDTM$Q_PART_NAME(2) ! RM Instance descriptor! END STRUCTURE ! DDTM$R_REPORTDEFCDEC$ END OPTIONS ww !*** MODULE $DDTMMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:12.87! =! .TITLE DDTMMSGDEF -- DECDTM SERVICES EXTENDED REASON CODES! * *-! * COPYRIGHT (C) 1990, 1991, 1993 BY *?! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *!! * ALL RIGHTS RESERVED. *! * *Q! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ONLY *Q! * IN ACCORDANCE WITH THE TE RMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE *Q! * ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT *Q! * BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO *=! * AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. *! * *Q! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND *Q! * SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. *! * *Q! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFT- *=! * WARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! * *! ++! FACILITY: DDTM! ! ABSTRACT:! J! THIS MODULE DEFINES THE EXTENDED TRANSACTION ABORT REASON CODES FOR THE! DECDTM TRANSACTION MANAGER.! ! ENVIRONMENT:! VMS V5.4 OR LATER.! 8! AUTHOR: JAMES E JOHNSON CREATION DATE: 27-FEB-1990! ! MODIFIED BY:! #! X-7 RM RUDI MARTIN 20-SEP-1993'! *** ALPHA CHANGE PICKED UP FOR VAX.! (! A-4 KJP KEVIN PLAYFORD 15-SEP-1993@! UPDATED ALPHA VERSION OF DECDTM MESSAGES TO REFLECT MESSAGE(! TEXT AS FOUND IN HELP MESSAGE TEXT.! #! X-6 RM RUDI MARTIN 9-AUG-19933! UPDATE SYNCH_FAIL AND ORPHAN_BRANCH MESSAGES TO*! CORRESPOND TO THEIR HELP/MESSAGE TEXT.! #! X-5 RM RUDI MARTIN 25-FEB-1993! ADD XA ERROR CODES.! &! X-4 CW CHRIS WHITAKER 26-FEB-1991<! 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'XC 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 = '0 4A3801A'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'XCDEC$ END OPTIONSww!*** MODULE $DEVDEF ***CDEC$ OPTIONS /NOALIGN! <! 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_MULTI_SECONDARY = '00000800'X% PARAMETER DEV$M_FILL_3 = '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_AIP = '08000000'X% PARAMETER DEV$M_CRAMIO = '10000000'X" PARAMETER DEV$M_DTN = '20000000'X, PARAMETER  DEV$M_MULTI_ENABLED = '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 = 1E PARAMETER DEV$V_DIR = 3 ! DEVICE IS DIRECTORY STRU CTURED PARAMETER DEV$S_SDI = 1L PARAMETER DEV$V_SDI = 4 ! DEVICE IS SINGLE DIRECTORY STRUCTURED PARAMETER DEV$S_SQD = 1W 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 = 1P PARAMETER DEV$V_RCT = 8  ! DISK CONTAINS RCT (DEC STANDARD 166 DISK) ! PARAMETER DEV$S_QSVD = 1M PARAMETER DEV$V_QSVD = 9 ! Device is a client served via QIOserver" PARAMETER DEV$S_QSVBL = 1G PARAMETER DEV$V_QSVBL = 10 ! Device is servable by QIOserver, PARAMETER DEV$S_MULTI_SECONDARY = 1c PARAMETER DEV$V_MULTI_SECONDARY = 11 ! Indicates device is a secondary in a multipath set' PARAMETER DEVDEF$$S_FILL_3 = 1A PARAMETER DEVDEF$$V_FILL_3 = 12 ! SPARE FOR THE FUTURE PARAMETER DEV$S_NET = 15 PARAMETER DEV$V_NET = 13 ! NETWORK DEVICE PARAMETER DEV$S_FOD = 1P 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 = 17 PARAMETER DEV$V_SHR = 16 ! DEVICE SHAREABLE PARAMETER DEV$S_GEN = 1A PARAMETER DEV$V_GEN = 17 ! DEVICE IS A GE NERIC DEVICE PARAMETER DEV$S_AVL = 1? PARAMETER DEV$V_AVL = 18 ! DEVICE AVAILABLE FOR USE PARAMETER DEV$S_MNT = 18 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 = 1A PARAMETER DEV$V_DMT = 21 ! DEVICE MARKED FOR DISMOUNT PARAMETER DEV$S_ELG = 1G PARAMETER DEV$V_ELG = 22 ! DEVICE HAS ERROR LOGGING ENABL ED 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 = 1F PARAMETER DEV$V_SWL = 25 ! DEVICE IS SOFTWARE WRITE LOCKED PARAMETER DEV$S_IDV = 1H PARAMETER DEV$V_IDV = 26 ! DEVICE CAPABLE OF PROVIDING INPUT PARAMETER DEV$S_ODV = 1I PARAMETER DEV$V_ODV =  27 ! DEVICE CAPABLE OF PROVIDING OUTPUT PARAMETER DEV$S_RND = 1B PARAMETER DEV$V_RND = 28 ! DEVICE ALLOWS RANDOM ACCESS PARAMETER DEV$S_RTM = 1C PARAMETER DEV$V_RTM = 29 ! DEVICE IS REALTIME IN NATURE PARAMETER DEV$S_RCK = 1G PARAMETER DEV$V_RCK = 30 ! DEVICE HAS READ CHECKING ENABLED PARAMETER DEV$S_WCK = 1! PARAMETER DEV$V_WCK = 31@ BYTE %FILL (4) ! DEVICE HAS WRITE CHECKING ENABLED END M AP MAP PARAMETER DEV$S_CLU = 1F PARAMETER DEV$V_CLU = 0 ! DEVICE IS AVAILABLE CLUSTER-WIDE PARAMETER DEV$S_DET = 1A PARAMETER DEV$V_DET = 1 ! DEVICE IS DETACHED TERMINAL PARAMETER DEV$S_RTT = 1N PARAMETER DEV$V_RTT = 2 ! DEVICE HAS REMOTE TERMINAL UCB EXTENSION PARAMETER DEV$S_CDP = 1B PARAMETER DEV$V_CDP = 3 ! DUAL PATH DEVICE WITH 2 UCBs PARAMETER DEV$S_2P = 1G PARAMETER DEV$V_2P = 4 ! TWO PATHS ARE KNOWN TO THIS DEVICE! PARAMETER DEV$S_MSCP = 1O PARAMETER DEV$V_MSCP = 5 ! DEVICE ACCESSED USING MSCP (disk or tape) PARAMETER DEV$S_SSM = 1C PARAMETER DEV$V_SSM = 6 ! DEVICE IS A SHADOW SET MEMBER PARAMETER DEV$S_SRV = 1J PARAMETER DEV$V_SRV = 7 ! DEVICE IS SERVED VIA THE MSCP SERVER PARAMETER DEV$S_RED = 1C PARAMETER DEV$V_RED = 8 ! DEVICE IS redirected terminal PARAMETER DEV$S_NNM =  1@ PARAMETER DEV$V_NNM = 9 ! DEVICE HAS "node$" PREFIX PARAMETER DEV$S_WBC = 1H PARAMETER DEV$V_WBC = 10 ! DEVICE SUPPORTS WRITE-BACK CACHING PARAMETER DEV$S_WTC = 1K PARAMETER DEV$V_WTC = 11 ! DEVICE SUPPORTS WRITE-THROUGH CACHING PARAMETER DEV$S_HOC = 1B 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 = 1X PARAMETER DEV$V_NLT = 16 ! DEVICE IS NOT-LAST-TRACK (I.E. IT HAS NO BAD BLOCK!! INFORMATION ON ITS LAST TRACK) PARAMETER DEV$S_SEX = 1W PARAMETER DEV$V_SEX = 17 ! DEVICE (tape) SUPPORTS SERIOUS EXCEPTION HANDLING PARAMETER  DEV$S_SHD = 1S PARAMETER DEV$V_SHD = 18 ! DEVICE IS A MEMBER OF A HOST BASED SHADOW SET PARAMETER DEV$S_VRT = 1I 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 = 1T PARAMETER DEV$V_NOLB = 21 ! DEVICE IGNORES SERVER LOAD BALANCING REQUESTS" PARAMETER DEV$S_NOCLU = 1S PARAMETER DEV$V_NOCLU = 22 ! DEVICE WILL NEVER BE AVAILABLE CLUSTER-WIDE! PARAMETER DEV$S_VMEM = 1J 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_WLG = 1I PARAMETER DEV$V_WLG = 25 ! DEVICE HAS WRITE LOGGING CAPABILITY! PARAMETER DEV$S_NOFE = 1J PARAMETER DEV$V_NOFE = 26 ! DEVICE DOESN'T SUPPORT FORCED ERROR PARAMETER DEV$S_A IP = 1B PARAMETER DEV$V_AIP = 27 ! Allocation in progress (MME)# PARAMETER DEV$S_CRAMIO = 1= PARAMETER DEV$V_CRAMIO = 28 ! Performs Mailbox I/O PARAMETER DEV$S_DTN = 1O PARAMETER DEV$V_DTN = 29 ! Device has DDR Device Type Name available* PARAMETER DEV$S_MULTI_ENABLED = 1u PARAMETER DEV$V_MULTI_ENABLED = 30 ! Device is part of a multipath set. This bit used to be DEV$V_SHADDEV.% 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 ! DEVDEFCDEC$ END OPTIONS ww(!*** MODULE $DIBDEF ***CDEC$ OPTIONS /NOALIGN! +'! 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/8 INTEGER*4 DIB$L_DEVCHAR ! DEVICE CHARACTERIST ICS . BYTE DIB$B_DEVCLASS ! DEVICE CLASS - BYTE DIB$B_DEVTYPE ! DEVICE TYPE 5 INTEGER*2 DIB$W_DEVBUFSIZ ! DEVICE BUFFER SIZE UNION MAPC INTEGER*4 DIB$L_DEVDEPEND ! DEVICE DEPENDENT INFORMATION  END MAP MAPG BYTE DIB$B_SECTORS ! (DISK ONLY) SECTORS PER TRACK ? BYTE DIB$B_TRACKS ! " TRACKS PER CYLINDER A INTEGER*2 DIB$W_CYLINDERS ! " NUMBER OF CYLINDERS  END  MAP END UNION1 INTEGER*2 DIB$W_UNIT ! DEVICE UNIT NUMBER G INTEGER*2 DIB$W_DEVNAMOFF ! OFFSET TO DEVICE NAME COUNTED STRING A INTEGER*4 DIB$L_PID ! DEVICE OWNER PROCESS IDENTIFICATION F INTEGER*4 DIB$L_OWNUIC ! DEVICE OWNER USER IDENTIFICATION CODE 6 INTEGER*2 DIB$W_VPROT ! DEVICE PROTECTION MASK 3 INTEGER*2 DIB$W_ERRCNT ! DEVICE ERROR COUNT 7 INTEGER*4 DIB$L_OPCNT ! DEVICE OPERATIONS COUNT H INTEGER*2 DIB$W_VOLNAMOFF ! OFFSET TO VOLUME LABEL COUNTED STRING 4 INTEGER*2 DIB$W_RECSIZ ! BLOCKED RECORD SIZE G CHARACTER*76 DIB$T_DEVNAME ! SPACE FOR DEVNAME AND LABEL (64+12) < INTEGER*4 DIB$L_MAXBLOCK ! DISK VOLUME SIZE IN BLOCKS  END STRUCTURE ! DIBDEFCDEC$ END OPTIONS wwml!*** MODULE $DISMOUMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:17.07! F! MOUNTMSG.MDL - SYSTEM MESSAGE FILE FOR MOUNT AND DISMOUNT UTILITIES! ! VERSION: 'X-8'! ! * *E! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1988, 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 MA Y 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. *! * *! * *! ++! ,! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES! ! ABSTRACT:! G! THIS FILE CONTAINS THE MDL SOURCE FOR THE DISMOUNT UTILITY MESSAGES.! ! ENVIRONMENT:! ! N/A! ! --! ! 5! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976! ! MODIFIED BY:! 1! X-8 JJF0037 J. JEFFERY FRIEDRICHS 20-JUL-1995! ADDED INCONUCB MESSAGE.! ,! X-7 SBL1003 STEVEN B. LIONEL 13-DEC-1991'! CHANGED MACRO NAME TO $DISMOUMSGDEF! -! X-6 PRD0534 PAUL R. DESTEFANO 12-OCT-1989! ADDED SRCMEM MESSAGE.! -! X-5 PRD0462 PAUL R. DESTEFANO 01-NOV-1988-! ADDED WAITINGDMT AND RMTDMTSUCC MESSAGES.! -! X-4 PRD0465 PAUL R. DESTEFANO 28-OCT-19887! ADD FAO CONTROL STRING FOR DEVICE NAME TO OPEN FILE7! MESSAGES. ADD FILESOPEN MESSAGE. CHANGE OPENFILES! MESSAGE TO USERFILES.! -! X-3 PRD0457 PAUL R. DESTEFANO 05-OCT-19883! ADD MESSAGES FOR DISMOUNT'S OPEN FILE CHECKING.! -! X-2 PRD0417 PAUL R. DESTEFANO 23-SEP-19876! ADD RMTDSMFAIL AND DSMCLUFAIL WARNING MESSAGES FOR!! CLUSTER-WIDE DISMOUNT STATUS.! 0! 0105 STJ0011 STEVEN T. JEFFREYS, 14-OCT-1980/! ADD OPERATOR ASSISTED MOUNT ERROR MESSAGES.! 8! 0104 ACG0123 ANDREW C. GOLDSTEIN, 17-JAN-1980 19:52%! INTEGRATE DISK REBUILD WITH MOUNT! 7! 0103 ACG0079 ANDREW C. GOLDSTEIN, 4-NOV-1979 17:32/! ADD MESSAGES RELATED TO WRITE-BACK CACHEING! :! 0102 ACG0044 ANDREW C. GOLDSTEIN, 18-JUN-1979 13:31! ADD DISK QUOTA SUPPORT! :! 0101 ACG0003 ANDREW C. GOLDSTEIN, 29-DEC-1978 13:01%! ADD MESSAGES FOR MULTI-VOLUME DISK! ! **! +! <! THE FOLLOWING ARE MESSAGES ISSUED BY THE DISMOUNT UTILITY! ! -' PARAMETER DISM$_FACILITY = '00000073'X% PARAMETER DISM$_MAXDEV = '0073800C'X% PARAMETER DISM$_SYSDEV = '00738014'X% PARAMETER DISM$_BADOVR = '0073801C'X% PARAMETER DISM$_SRCMEM = '00738024'X' PARAMETER DISM$_INCONUCB = '0073802C'X) PARAMETER DISM$_RMTDSMFAIL = '00739000'X) PARAMETER DISM$_DSMCLUFAIL = '00739008'X( PARAMETER DISM$_CANNOTDMT = '00739010'X( PARAMETER DISM$_INSWPGFIL = '00739018'X( PARAMETER DISM$_SPOOLEDEV = '00739020'X( PARAMETER DISM$_INSTIMAGE = '00739028'X( PARAMETER DISM$_USERFILES = '00739030'X( PARAMETER DISM$_FILESOPEN = '00739038'X( PARAMETER DISM$_MARKEDDMT = '0073A003'X) PARAMETER DISM$_WAITINGDMT = '0073A00B'X) PARAMETER DISM$_RMTDMTSUCC = '0073A013'XCDEC$ END OPTIONSwwm!*** MODULE $DMPDEF ***CDEC$ OPTIONS /NOALIGN! 5! LAYOUT OF THE HEADER BLOCK OF THE SYSTEM DUMP FILE<! (WHICH IS THE FIRST DISK BLOCK OF SYS$SYSTEM:SYSDUMP.DMP)! / PARAMETER DMP$M_SELECT_DUMPSTYLE = '00000001'X, PARAMETER DMP$M_FULL_MESSAGES = '00000002'X& PARAMETER DMP$M_DO_DOSD = '00000004'X. PARAMETER DMP$M_COMPRESSED_DUMP = '00000008'X4 PARAMETER DMP$M_IGN_DOSD_VOLLABEL_CHK = '00000010'X3 PARAMETER DMP$M_DOSD_IGNORE_SIZE_CHK = '00000200'X& PARAMETER DMP$M_NO_DOTS = ' 00000400'X/ PARAMETER DMP$M_BUGCHECK_SQUARED = '00000800'X5 PARAMETER DMP$M_DOSD_7K_VALIDATE_PATHS = '00008000'X& PARAMETER DMP$M_DOSD_7K = '0FFF0000'X& PARAMETER DMP$M_OLDDUMP = '00000001'X$ PARAMETER DMP$M_EMPTY = '00000002'X% PARAMETER DMP$M_HDRBLK = '00000004'X% PARAMETER DMP$M_ERRLOG = '00000008'X% PARAMETER DMP$M_MEMORY = '00000010'X" PARAMETER DMP$M_SPT = '00000020'X( PARAMETER DMP$M_WRITECOMP = '00000040'X) PARAMETER DMP$M_ERRLOGCOMP = '00000080'X) PARAMETER DMP$M_DUMP_STYLE != '00000F00'X* PARAMETER DMP$M_DUMP_COPIED = '00001000'X* PARAMETER DMP$M_DUMP_COPING = '00002000'X, PARAMETER DMP$M_CLUE_SNAPDONE = '00004000'X* PARAMETER DMP$M_DUMP_IN_USE = '00008000'XO PARAMETER DMP$K_FULL_DUMP = '00000000'X ! FULL PHYSICAL MEMORY DUMP (OLD WAY)V PARAMETER DMP$K_SUBSET_DUMP = '00000001'X ! SUBSETTED DUMP FILE (NOT ALL INFO SAVED)U PARAMETER DMP$C_DUMP_LUMP = '0000007F'X ! NUMBER OF SPTES REQUIRED FOR SUBSET DUMPS) PARAMETER DMP$M_COMPRESSED = '00000001'X' PARAMETER " DMP$M_NOTSAVED = '00000002'X& PARAMETER DMP$M_VAXDUMP = '00000004'X( PARAMETER DMP$M_ALPHADUMP = '00000008'X' PARAMETER DMP$M_BITS_4_7 = '000000F0'XJ PARAMETER DMP$C_MEMDSCSIZ = '00000008'X ! SIZE OF ONE MEMORY DESCRIPTOR G PARAMETER DMP$C_NMEMDSC = '00000008'X ! NUMBER OF MEMORY DESCRIPTORS B PARAMETER DMP$K_DUMPVER = '00000530'X ! DUMP FILE VERSION NUMBER? PARAMETER DMP$K_LENGTH = '00000084'X ! LENGTH OF FILE HEADER ? PARAMETER DMP$C_LENGTH = '00000084'X ! LENGTH OF FILE HEADER  # STRUCTURE /DMPDEF/ UNION MAP@ INTEGER*4 DMP$L_ERRSEQ ! LAST ERROR LOG SEQ. NUMBER  END MAP MAP1 PARAMETER DMP$S_SELECT_DUMPSTYLE = 1` PARAMETER DMP$V_SELECT_DUMPSTYLE = 0 ! Differentiate between full and subset dumps. PARAMETER DMP$S_FULL_MESSAGES = 1] PARAMETER DMP$V_FULL_MESSAGES = 1 ! To keep the risc and cisc platforms in step( PARAMETER DMP$S_DO_DOSD = 1X PARAMETER D$MP$V_DO_DOSD = 2 ! Requests for Dump Off System Disk behaviour0 PARAMETER DMP$S_COMPRESSED_DUMP = 13 PARAMETER DMP$V_COMPRESSED_DUMP = 3 ! 6 PARAMETER DMP$S_IGN_DOSD_VOLLABEL_CHK = 1e PARAMETER DMP$V_IGN_DOSD_VOLLABEL_CHK = 4 ! Over-ride volume label check on DOSD device5 PARAMETER DMP$S_DOSD_IGNORE_SIZE_CHK = 1O PARAMETER DMP$V_DOSD_IGNORE_SIZE_CHK = 9 ! Allow > 2Meg full dumps( PARAMETER DMP$S_NO_DOTS =% 1D PARAMETER DMP$V_NO_DOTS = 10 ! Disallow printing them1 PARAMETER DMP$S_BUGCHECK_SQUARED = 1Q PARAMETER DMP$V_BUGCHECK_SQUARED = 11 ! Prevent recursive bugchecks7 PARAMETER DMP$S_DOSD_7K_VALIDATE_PATHS = 1v PARAMETER DMP$V_DOSD_7K_VALIDATE_PATHS = 15 ! For Neon systems only, validate both paths to system disk ) PARAMETER DMP$S_DOSD_7K = 12Y PARAMETER DMP$V_DOSD_7K = 16 ! For Neon systems only dump d&evice 1 -> FFF BYTE %FILL (3) END MAP END UNION UNION MAP7 INTEGER*2 DMP$W_FLAGS ! DUMP FILE FLAGS END MAP MAP( PARAMETER DMP$S_OLDDUMP = 1J PARAMETER DMP$V_OLDDUMP = 0 ! SET IF DUMP ALREADY ANALYZED & PARAMETER DMP$S_EMPTY = 1J PARAMETER DMP$V_EMPTY = 1 ! SET IF DUMP HAS NO DATA BLOCKS ' PARAMETER DMP$S_HDRBLK = 1[ PARAMETER DMP$V_HDRBLK '= 2 ! SET IF ERROR WRITING FIRST BLOCK OF DUMP HEADER' PARAMETER DMP$S_ERRLOG = 1Z PARAMETER DMP$V_ERRLOG = 3 ! SET IF ERROR WRITING BLOCKS 2-3 OF DUMP HEADER' PARAMETER DMP$S_MEMORY = 1] PARAMETER DMP$V_MEMORY = 4 ! SET IF ERROR WRITING MEMORY CONTENTS TO DUMP FILE$ PARAMETER DMP$S_SPT = 1d PARAMETER DMP$V_SPT = 5 ! SET IF ERROR WRITING SYSTEM PAGE TABLE BLOCKS TO DUMP FILE* PARAMETER DMP$S_WRITECO(MP = 1N PARAMETER DMP$V_WRITECOMP = 6 ! SET IF DUMP WRITE WAS COMPLETED+ PARAMETER DMP$S_ERRLOGCOMP = 1\ PARAMETER DMP$V_ERRLOGCOMP = 7 ! SET IF HEADER/ERROR LOGS WRITE WAS COMPLETED+ PARAMETER DMP$S_DUMP_STYLE = 4b PARAMETER DMP$V_DUMP_STYLE = 8 ! SET TO DIFFERENTIATE BETWEEN DIFFERENT STYLE DUMPS, PARAMETER DMP$S_DUMP_COPIED = 1] PARAMETER DMP$V_DUMP_COPIED = 12 ! Set if SDA has successfully copied th )is dump, PARAMETER DMP$S_DUMP_COPING = 1R PARAMETER DMP$V_DUMP_COPING = 13 ! Set if this dump is being copied . PARAMETER DMP$S_CLUE_SNAPDONE = 1` PARAMETER DMP$V_CLUE_SNAPDONE = 14 ! Set if CLUE has taken a snapshot of this dump, PARAMETER DMP$S_DUMP_IN_USE = 1- PARAMETER DMP$V_DUMP_IN_USE = 15D BYTE %FILL (2) ! Set if this dump is being written  END MAP! DUMP_STYLE BITFIELD SETTINGS * END UNION UNION MAP= BYTE DMP$B_FLAGS2 ! More dump file flags END MAP MAP+ PARAMETER DMP$S_COMPRESSED = 1N PARAMETER DMP$V_COMPRESSED = 0 ! SET IF DUMP DATA IS COMPRESSED) PARAMETER DMP$S_NOTSAVED = 1i PARAMETER DMP$V_NOTSAVED = 1 ! Set by SYSINIT if SAVEDUMP not set and dump in PAGEFILE.SYS( PARAMETER DMP$S_VAXDUMP = 16 PARAMETER DMP$V_VAXDUMP = 2 ! Never s +et* PARAMETER DMP$S_ALPHADUMP = 19 PARAMETER DMP$V_ALPHADUMP = 3 ! Always set) PARAMETER DMP$S_BITS_4_7 = 4) PARAMETER DMP$V_BITS_4_7 = 4' BYTE %FILL (1) ! SPARE END MAP END UNIONX BYTE DMP$B_ERLBUFPAGES ! PAGES PER ERL BUFFER; IF ZERO, CORRECT VALUE IS ONE3 INTEGER*4 DMP$L_SBR ! SYSTEM BASE REGISTER 5 INTEGER*4 DMP$L_SLR ! SYSTEM LENGTH REGISTER 3 INTEGER*4 DMP$L_KSP ! KERN,EL STACK POINTER 6 INTEGER*4 DMP$L_ESP ! EXECUTIVE STACK POINTER 7 INTEGER*4 DMP$L_SSP ! SUPERVISOR STACK POINTER 1 INTEGER*4 DMP$L_USP ! USER STACK POINTER 6 INTEGER*4 DMP$L_ISP ! INTERRUPT STACK POINTER UNION MAP] INTEGER*4 %FILL(1:16) ! RESERVE SPACE FOR 8 MEMORY DESCRIPTORS (2 LONGWORDS EACH) END MAP MAP UNION MAP> INTEGER*4 DMP$L_MEMDSC ! 8 MEMORY DESCRIPTORS  - END MAP MAP, PARAMETER DMP$S_PAGCNT = 24J PARAMETER DMP$V_PAGCNT = 0 ! NUMBER OF PAGES IN MEMORY ' PARAMETER DMP$S_TR = 8C PARAMETER DMP$V_TR = 24 ! TR NUMBER FOR MEMORY - PARAMETER DMP$S_BASEPFN = 32- PARAMETER DMP$V_BASEPFN = 32: BYTE %FILL (8) ! BASE PFN FOR MEMORY  END MAP END UNION END MAP END UNION7 INTEGER .*4 DMP$L_SYSVER ! SYSTEM VERSION NUMBER : INTEGER*4 DMP$L_CHECK ! ONES COMPLEMENT OF SYSVER : INTEGER*2 DMP$W_DUMPVER ! DUMP FILE VERSION NUMBER? INTEGER*2 DMP$W_ERLBUFCNT ! NUMBER OF ERROR LOG BUFFERS ; INTEGER*2 DMP$W_ERLBUFHEAD ! RING BUFFER HEAD INDEX ; INTEGER*2 DMP$W_ERLBUFTAIL ! RING BUFFER TAIL INDEX D INTEGER*4 DMP$L_ERRSTATUS ! LAST ERROR STATUS FROM DUMP WRITEC INTEGER*4 DMP$L_DUMPERRS ! COUNT OF ERRORS DURING DUMP WRITE? INTEG/ER*4 DMP$L_MEMPAGCNT ! COUNT OF MEMORY PAGES DUMPEDJ INTEGER*4 DMP$L_SAVEPRCCNT ! COUNT OF SAVED PROCESSES (SUBSET DUMP)= INTEGER*4 DMP$L_CRASHERL ! SYSTEM CRASH ERR LOG ENTRY  END STRUCTURE ! DMPDEFCDEC$ END OPTIONS ww 6!*** MODULE $DMTDEF ***CDEC$ OPTIONS /NOALIGN! 7! FLAG BITS FOR THE $DISMOU (DISMOUNT) SYSTEM SERVICE.! ' PARAMETER DMT$M_NOUNLOAD = '00000001'X# PARAMETER DMT$M_UNIT = '00000002'X$ PARAMETER DMT$M_ABORT = '00000004'X& P 0ARAMETER 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'X STRUCTURE /DMTDEF/ UNION MAP% PARAMETER DMT$S_NOUNLOAD = 1O PARAMETER DMT$V_NOUNLOAD = 0 ! DO NOT UNLOAD (SPIN DOWN) THE VOLUME ! PARAMETER DMT$S_UNIT = 1I PARAMETER DMT$V_UNIT = 1 ! DISMOUNT ONLY THE SPECIFIED VOLUME " PARAMETER DMT$S_A 1BORT = 17 PARAMETER DMT$V_ABORT = 2 ! FORCED DISMOUNT $ PARAMETER DMT$S_CLUSTER = 1> PARAMETER DMT$V_CLUSTER = 3 ! CLUSTER-WIDE DISMOUNT# PARAMETER DMT$S_UNLOAD = 1O PARAMETER DMT$V_UNLOAD = 4 ! EXPLICIT UNLOAD (OVERRIDE UCB$x_UNLOAD)' PARAMETER DMT$S_OVR_CHECKS = 1E PARAMETER DMT$V_OVR_CHECKS = 5 ! OVERRIDE OPEN FILE CHECKS' PARAMETER DMT$S_CHECK_ONLY = 1V PARAMETER DMT$V_CHECK_ONLY = 6 ! CHECK ONLY FOR O2PEN FILES - DON'T DISMOUNT# PARAMETER DMT$S_REMOTE = 1# PARAMETER DMT$V_REMOTE = 7U BYTE %FILL (1) ! CURRENT DISMOUNTER IS REMOTE WITH RESPECT TO ORIGINATOR END MAP END UNION END STRUCTURE ! DMTDEFCDEC$ END OPTIONS wwk!*** MODULE $DSCDEF ***CDEC$ OPTIONS /NOALIGN'! Define Procedure argument data types! C.9 ARGUMENT DATA TYPES=! The following encoding is used for atomic data elements:*! Mnemonic Cod 3e DescriptionO PARAMETER DSC$K_DTYPE_Z = '00000000'X ! Unspecified. The calling program has /! specified no data type/* the called.! procedure should assume the argument is of! the correct type.F PARAMETER DSC$K_DTYPE_V = '00000001'X ! Bit. An aligned bit string. R PARAMETER DSC$K_DTYPE_BU = '00000002'X ! Byte Logical. 8-bit unsigned quantity. S PARAMETER DSC$K_DTYPE_WU = '00000003'X ! Word Logical. 16-bit unsigned quantity. M PARAMETER DSC$K_DTYPE_LU = '00000004'X ! L 4ongword Logical. 32-bit unsigned ! quantity.M PARAMETER DSC$K_DTYPE_QU = '00000005'X ! Quadword Logical. 64-bit unsigned ! quantity.N PARAMETER DSC$K_DTYPE_OU = '00000019'X ! Octaword Logical. 128-bit unsigned ! quantity.T PARAMETER DSC$K_DTYPE_B = '00000006'X ! Byte Integer. 8-bit signed 2's-complement ! integer.U PARAMETER DSC$K_DTYPE_W = '00000007'X ! Word Integer. 16-bit signed 2's-complement ! integer.J PARAMETER DSC$K_DTYPE_L = '00000008'X ! Longword Integer. 32-bit 5 signed ! 2's-complement integer.J PARAMETER DSC$K_DTYPE_Q = '00000009'X ! Quadword Integer. 64-bit signed ! 2's-complement integer.K PARAMETER DSC$K_DTYPE_O = '0000001A'X ! Octaword Integer. 128-bit signed ! 2's-complement integer.^ PARAMETER DSC$K_DTYPE_F = '0000000A'X ! F_floating. 32-bit F_floating quantity representing ! a single-precision number.^ PARAMETER DSC$K_DTYPE_D = '0000000B'X ! D_floating. 64-bit D_floating quantity representing ! a double-precision number.^ P6ARAMETER DSC$K_DTYPE_G = '0000001B'X ! G_floating. 64-bit G_floating quantity representing ! a double-precision number._ PARAMETER DSC$K_DTYPE_H = '0000001C'X ! H_floating. 128-bit H_floating quantity representing ! a quadruple-precision number.Z PARAMETER DSC$K_DTYPE_FC = '0000000C'X ! F_floating complex. Ordered pair of F_floating 5! quantities representing a single-precision complex/! number. The lower addressed quantity is the3! real part, the higher addressed quantity is th 7e! imaginary part.Z PARAMETER DSC$K_DTYPE_DC = '0000000D'X ! D_floating complex. Ordered pair of D_floating 5! quantities representing a double-precision complex/! number. The lower addressed quantity is the3! real part, the higher addressed quantity is the! imaginary part.Z PARAMETER DSC$K_DTYPE_GC = '0000001D'X ! G_floating complex. Ordered pair of G_floating 5! quantities representing a double-precision complex/! number. The lower addressed quantity is the3! real part 8, the higher addressed quantity is the! imaginary part.Z PARAMETER DSC$K_DTYPE_HC = '0000001E'X ! H_floating complex. Ordered pair of H_floating 8! quantities representing a quadruple-precision complex/! number. The lower addressed quantity is the3! real part, the higher addressed quantity is the! imaginary part.e PARAMETER DSC$K_DTYPE_FS = '00000034'X ! IEEE floating basic single S. 32-bit quantity representing! a single-precision number.e PARAMETER DSC$K_DTYPE_FT = '00000 9035'X ! IEEE floating basic double T. 64-bit quantity representing! a double-precision number.l PARAMETER DSC$K_DTYPE_FSC = '00000036'X ! IEEE floating basic single S complex. Ordered pair of S_floating5! quantities representing a single-precision complex/! number. The lower addressed quantity is the3! real part, the higher addressed quantity is the! imaginary part.l PARAMETER DSC$K_DTYPE_FTC = '00000037'X ! IEEE floating basic double T complex. Ordered pair of T_floating5! q :uantities representing a double-precision complex/! number. The lower addressed quantity is the3! real part, the higher addressed quantity is the! imaginary part.j PARAMETER DSC$K_DTYPE_FX = '00000039'X ! IEEE floating basic quadruple X. 128-bit quantity representing ! an extended-precision number.p PARAMETER DSC$K_DTYPE_FXC = '0000003A'X ! IEEE floating basic quadruple X complex. Ordered pair of X_floating 8! quantities representing an extended-precision complex/! number. The ;lower addressed quantity is the3! real part, the higher addressed quantity is the! imaginary part.Y PARAMETER DSC$K_DTYPE_CIT = '0000001F'X ! COBOL Intermediate Temporary. Floating point ,! datum with an 18 digit normalized decimal0! 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. A detailed0! description of this data type can be found in!! Section 7.4 of <SRM Appendix C.: PARAMETER DSC$K_DTYPE_VU = '00000022'X ! Bit Unaligned. J! The following string types are ordinarily described by a stringF! descriptor. The data type codes below occur in those descriptors:Y PARAMETER DSC$K_DTYPE_T = '0000000E'X ! Character-coded text. A single 8-bit character +! (atomic data type) or a sequence of 0 to/! 2**16-1 8-bit characters (string data type).S PARAMETER DSC$K_DTYPE_VT = '00000025'X ! Varying Character-coded Text Data Type. K PARAM=ETER DSC$K_DTYPE_T2 = '00000026'X ! 16-bit Text (Asian workstations)E PARAMETER DSC$K_DTYPE_NU = '0000000F'X ! Numeric string, unsigned. O PARAMETER DSC$K_DTYPE_NL = '00000010'X ! Numeric string, left separate sign. S PARAMETER DSC$K_DTYPE_NLO = '00000011'X ! Numeric string, left overpunched sign. P PARAMETER DSC$K_DTYPE_NR = '00000012'X ! Numeric string, right separate sign. T PARAMETER DSC$K_DTYPE_NRO = '00000013'X ! Numeric string, right overpunched sign. G PARAMETER DSC$K_DTYPE_NZ >= '00000014'X ! Numeric string, zoned sign. A PARAMETER DSC$K_DTYPE_P = '00000015'X ! Packed decimal string. A! The following encodings are used for miscellaneous data types:E PARAMETER DSC$K_DTYPE_ZI = '00000016'X ! Sequence of instructions. B PARAMETER DSC$K_DTYPE_ZEM = '00000017'X ! Procedure entry mask. [ PARAMETER DSC$K_DTYPE_DSC = '00000018'X ! Descriptor. This data type allows a descriptor 0! to be an argument data type, thereby allowing$! the use of levels of descriptors.Y ? PARAMETER DSC$K_DTYPE_BPV = '00000020'X ! Bound Procedure Value. A two longword entity 3! in which the first longword contains the address4! of a procedure entry mask and the second longword4! contains the environment value. The environmeent-! value is determined in a language specific2! fashion when the original Bound Procedure Value-! is generated. When the bound procedure is0! invoked, the calling program loads the second2! longword into R1. This data type can be passed/! @ using the immediate value mechanism when the1! environment value is not needed. In this case2! the argument list entry contains the address of3! the procedure entry mask and the second longword! is omitted.? PARAMETER DSC$K_DTYPE_BLV = '00000021'X ! Bound label value. C PARAMETER DSC$K_DTYPE_ADT = '00000023'X ! Absolute Date and Time R! K DTYPE_???,36 /* DTYPE code 36 is reserved for future definitionD! The following types are used by the VAX/VMS Debug Facility: A\FORH! INTERNAL DOCUMENTATION ONLY. For details, see VAX/VMS Debug Facility! Documentation.\H PARAMETER DSC$K_DTYPE_CAD = '000000B2'X ! Address calculation command D PARAMETER DSC$K_DTYPE_ENT = '000000B3'X ! Entry global definition E PARAMETER DSC$K_DTYPE_GBL = '000000B4'X ! Global symbol definition D PARAMETER DSC$K_DTYPE_EPT = '000000B5'X ! Entry point to routine. T PARAMETER DSC$K_DTYPE_R11 = '000000B6'X ! Line number relative to R11 correlation ! table.> PARAMETER DSC$K_DTYPEB_FLD = '000000B7'X ! BLISS FIELD name. ? PARAMETER DSC$K_DTYPE_PCT = '000000B8'X ! PSECT information. Q PARAMETER DSC$K_DTYPE_DPC = '000000B9'X ! PC correlation table for FORTRAN IV+ = PARAMETER DSC$K_DTYPE_LBL = '000000BA'X ! LITERAL or LABEL S PARAMETER DSC$K_DTYPE_SLB = '000000BB'X ! Label in non-assembly language modules D PARAMETER DSC$K_DTYPE_MOD = '000000BC'X ! Beginning of new module : PARAMETER DSC$K_DTYPE_EOM = '000000BD'X ! End of module E PARAMETER DSC$K_DTYPE_RTN = '0000 C00BE'X ! Beginning of new routine ; PARAMETER DSC$K_DTYPE_EOR = '000000BF'X ! End of routine :! The following type codes are RESERVED for future use:.! 37-177 RESERVED to DEC=! 192-255 RESERVED to CSS and customers! C.10 ARGUMENT DESCRIPTORSI! A uniform descriptor mechanism is defined for use by all proceduresI! which conform to this standard. Descriptors are uniformly typed andI! the mechanism is extensible. As new varieties D of descriptor become3! necessary, they will be added to this catalogue.! Note:! D! All fields represent unsigned quantities unless explicitly stated ! otherwise.! C.10.1 Descriptor PrototypeI! Each class of descriptor consists of at least 2 longwords in the! following format:)! +-------+-------+---------------+6! | CLASS | DTYPE | LENGTH | :Descriptor)! +-------+-------+---------------+)! | POINTER |)! E +-------------------------------+B! DSC$W_LENGTH A one-word field specific to the descriptorE! <0,15:0> class/* typically a 16-bit (unsigned) length.! A! DSC$B_DTYPE A one-byte atomic data type code (see C.9)! <0,23:16>! C! DSC$B_CLASS A one-byte descriptor class code (see below)! <0,31:24>! C! DSC$A_POINTER A longword pointing to the first byte of the.! <1,31:0> data element described.I! Note that the des Fcriptor can be placed in a pair of registers with aI! MOVQ instruction and then the length and address used directly. ThisI! gives a word length, so the class and type are placed as bytes in theI! rest of that longword. Class 0 is unspecified and hence no more than(! the above information can be assumed.&! Define the descriptor class codes/*6 PARAMETER DSC$K_CLASS_Z = '00000000'X ! Unspecified D PARAMETER DSC$K_CLASS_S = '00000001'X ! Scalar, String Descriptor D PARAMETER DSCG$K_CLASS_D = '00000002'X ! Dynamic String Descriptor F PARAMETER DSC$K_CLASS_V = '00000003'X ! Reserved for use by Digital ; PARAMETER DSC$K_CLASS_A = '00000004'X ! Array Descriptor ? PARAMETER DSC$K_CLASS_P = '00000005'X ! Procedure Descriptor L PARAMETER DSC$K_CLASS_PI = '00000006'X ! Procedure Incarnation Descriptor F PARAMETER DSC$K_CLASS_J = '00000007'X ! Reserved for use by Digital 4 PARAMETER DSC$K_CLASS_JI = '00000008'X ! Obsolete L PARAMETER DSC$K_CLASS_SD = '00000009'X ! DecHimal Scalar String Descriptor L PARAMETER DSC$K_CLASS_NCA = '0000000A'X ! Non-contiguous Array Descriptor E PARAMETER DSC$K_CLASS_VS = '0000000B'X ! Varying String Descriptor L PARAMETER DSC$K_CLASS_VSA = '0000000C'X ! Varying String Array Descriptor L PARAMETER DSC$K_CLASS_UBS = '0000000D'X ! Unaligned Bit String Descriptor K PARAMETER DSC$K_CLASS_UBA = '0000000E'X ! Unaligned Bit Array Descriptor I PARAMETER DSC$K_CLASS_SB = '0000000F'X ! String with Bounds Descriptor Y PARAMETER DSCI$K_CLASS_UBSB = '00000010'X ! Unaligned Bit String with Bounds Descriptor E! The following descriptor class is FOR INTERNAL USE ONLY by the VAXG! Common Run-Time Library and Debugger. This descriptor is not passedE! between separately compiled modules. For further information, see@! VAX-11 BASIC Description of Generated Code, Software Document! Retrieval Number JBS-79-004.H PARAMETER DSC$K_CLASS_BFA = '000000BF'X ! BASIC File Array Descriptor :! Descriptor classes 17-190 are RES JERVED to DEC. Classes5! 192 through 255 are RESERVED to CSS and customers.%! Array Descriptor (DSC$K_CLASS_A)H! An array descriptor consists of 3 contiguous blocks. The first blockJ! contains the descriptor prototype information and is part of everyJ! array descriptor. The second and third blocks are optional. If the1! third block is present then so is the second..! A complete array descriptor has the form:*! +-------+-------+---------------+7! | 4 K | DTYPE | LENGTH | :Descriptor*! +-------+-------+---------------+*! | POINTER |*! +-------+-------+---------------+G! | DIMCT | AFLAGS|DIGITS | SCALE | Block 1 - Prototype*! +-------+-------+---------------+*! | ARSIZE |*! +-------------------------------+! *! +-------------------------------+*! | A0 |*! +------------------------ L-------+*! | M1 |*! +-------------------------------+I! | ... | Block 2 - Multipliers*! +-------------------------------+*! | M(n-1) |*! +-------------------------------+*! | Mn |*! +-------------------------------+! *! +-------------------------------+*! | L1 |*! +----------M---------------------+*! | U1 |*! +-------------------------------+D! | ... | Block 3 - Bounds*! +-------------------------------+*! | Ln |*! +-------------------------------+*! | Un |*! +-------------------------------+! ! ! Define descriptor fields:<! \The following three fields are only valid for descriptor'! c Nlass DSC$K_CLASS_BFA (see above). \ STRUCTURE /DSCDEF/P INTEGER*4 DSC$A_HANDLE ! The address of a vector of data concerning the 2! current state of processing of the array. This'! is set to zero by the creator of the/! descriptor, and maintained thereafter by the)! BASIC file array processing functions.! O 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 aOrray! does not have zero origin.! M INTEGER*4 DSC$L_LOGUNIT ! The logical unit number (BASIC channel) on *! which the file containing the array has2! been opened. This is set by the creator of the1! descriptor before first referencing the array.! E! End of BASIC File Array specific descriptor fields. The remaining.! fields are common to all array descriptors.! ! U INTEGER*2 DSC$W_LENGTH ! A one-word field specifiec to the descriptor class; (! typically a 1 P6-bit (unsigned) length. END STRUCTURE ! DSCDEF STRUCTURE /DSCDEF1/V 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)K BYTE DSC$B_DTYPE ! A one-byte atomic data type code (see C.9) 6! Symbols used in this filed have form: DSC$K_DTYPE_t/! where t is the data type mnemonic from above&! and agrees with methodology manual.N BYTE DSC$B_CLASS ! A one-byte descriptor clas Qs code (see above). 6! Symbols used in this field have form: DSC$K_CLASS_f3! where f is the argument form mnemonic from above*! and agrees with the methodology manual.T INTEGER*4 DSC$A_POINTER ! A longword pointing to the first byte of the data ! element described. END STRUCTURE ! DSCDEF1P PARAMETER DSC$K_Z_BLN = '00000008'X ! Block length in bytes for Z class desc. P PARAMETER DSC$C_Z_BLN = '00000008'X ! Block length in bytes for Z class desc. Q PARAMETER DSC$K_S_BLN = '0000R0008'X ! Block length in bytes for S class descr. Q PARAMETER DSC$C_S_BLN = '00000008'X ! Block length in bytes for S class descr. Q PARAMETER DSC$K_D_BLN = '00000008'X ! Block length in bytes for D class descr. Q PARAMETER DSC$C_D_BLN = '00000008'X ! Block length in bytes for D class descr. Q PARAMETER DSC$K_P_BLN = '00000008'X ! Block length in bytes for P class descr. Q PARAMETER DSC$C_P_BLN = '00000008'X ! Block length in bytes for P class descr. Q PARAMETER DSC$K_J_BLN = '000000 S08'X ! Block length in bytes for J class descr. Q PARAMETER DSC$C_J_BLN = '00000008'X ! Block length in bytes for J class descr. S PARAMETER DSC$K_VS_BLN = '00000008'X ! Block length in bytes for VS class descr. S PARAMETER DSC$C_VS_BLN = '00000008'X ! Block length in bytes for VS class descr. ! + STRUCTURE /DSCDEF2/ BYTE %FILL(1:4)U INTEGER*4 DSC$A_BASE ! Base of address relative to which the signed relative 7! bit position, POS, is used to locate the bit stringT.! (Classes UBS, UBA and UBSB)1! End of common definitions for all descriptors.! -! +$! Unaligned bit string definitions.! - END STRUCTURE ! DSCDEF2U PARAMETER DSC$K_UBS_BLN = '0000000C'X ! Block length in bytes for UBS class descr. U PARAMETER DSC$C_UBS_BLN = '0000000C'X ! Block length in bytes for UBS class descr. ! + STRUCTURE /DSCDEF3/ BYTE %FILL(1:8)D INTEGER*4 DSC$L_POS ! Signed longword relative bit position (! with respect to BASE of the firUst bit! of unaligned bit string1! WARNING!! Do not use this symbol to reference0! class UBA descriptors! The DSC$L_POS in that1! descriptor is at a variable location after the ! bounds and multiplier blocks.&! Varying type descriptor definitions! - END STRUCTURE ! DSCDEF3 STRUCTURE /DSCDEF4/ BYTE %FILL(1:8)A INTEGER*2 DSC$W_MAXLEN ! An unsigned word specifying the "! maximum length of the data item! (i.e., the space allocated)) INTEGER*2 %FILL V! reserved word ! +! Array Descriptor definitions! - END STRUCTURE ! DSCDEF4S PARAMETER DSC$K_SD_BLN = '0000000C'X ! Block length in bytes for SD class descr. S PARAMETER DSC$C_SD_BLN = '0000000C'X ! Block length in bytes for SD class descr.  STRUCTURE /DSCDEF5/ BYTE %FILL(1:8)N BYTE DSC$B_SCALE ! Signed power of ten multiplier to convert the 0! internal form to external form. For example,-! if internal number is 123 and scale is +1,0! then the re Wpresented external number is 1230.I 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 MAP6 BYTE DSC$B_AFLAGS ! Array flag bits.  END MAP MAP) PARAMETER DSC$S_FL_REDIM = 1V PARAMETER DSC$V_FL_REDIM = 4 ! If set, the array can be redimensioned; *! i.e., DSC$A_A0, DSC$L X_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 = 1U 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 = 1Y PARAMETER DSC$V_FL_COEFF = 6 ! If set, the multiplicative coefficients in ! Blo Yck 2 are present.* PARAMETER DSC$S_FL_BOUNDS = 1Y PARAMETER DSC$V_FL_BOUNDS = 7 ! If set, the bounds information in Block 3 ! is present. BYTE %FILL (1) END MAP END UNION5 BYTE DSC$B_DIMCT ! Number of dimensions O INTEGER*4 DSC$L_ARSIZE ! Total size of array (in bytes unless DTYPE is (! EQUL DSC$K_DTYPE_V or DSC$K_DTYPE_P).C INTEGER*4 DSC$A_A0 ! Address of element A(0,0,...,0). This +! need not be within th Ze actual array/* it,! is the same as DSC$A_POINTER for 0-origin ! arrays. END STRUCTURE ! DSCDEF5 STRUCTURE /DSCDEF6/ BYTE %FILL(1:16)K INTEGER*4 DSC$L_V0 ! Signed bit offset of element A(0,0,...0) with ! respect to BASE. (Class UBA)@! The following two fields have meaning only if the array is of0! class DSC$K_CLASS_NCA (Non-contiguous array).E INTEGER*4 DSC$L_S1 ! Stride of the first dimension, i.e. the &! difference between the addresses of.! success [ive elements of the first dimension.= INTEGER*4 DSC$L_S2 ! Stride of the second dimension.  END STRUCTURE ! DSCDEF6 STRUCTURE /DSCDEF7/ BYTE %FILL(1:20)A INTEGER*4 DSC$L_M1 ! Addressing coefficient M1 = U1-L1+1 A INTEGER*4 DSC$L_M2 ! Addressing coefficient M2 = U2-L2+1 ! +8! Procedure Incarnation descriptor (DSC$K_CLASS_PI) and1! Label Incarnation descriptor (DSC$K_CLASS_JI).! - END STRUCTURE ! DSCDEF7S PARAMETER DSC$K_PI_BLN = '0000000C'X ! Blo \ck length in bytes for PI class descr. S PARAMETER DSC$C_PI_BLN = '0000000C'X ! Block length in bytes for PI class descr. S PARAMETER DSC$K_JI_BLN = '0000000C'X ! block length in bytes for JI class descr. S PARAMETER DSC$C_JI_BLN = '0000000C'X ! block length in bytes for JI class descr. ! + STRUCTURE /DSCDEF8/ BYTE %FILL(1:8)1 INTEGER*4 DSC$A_FRAME ! Address of frame 2! String with Bounds descriptor (DSC$K_CLASS_SB).! - END STRUCTURE ! DSCDEF8 STRUCTURE /DS ]CDEF9/ BYTE %FILL(1:8)E INTEGER*4 DSC$L_SB_L1 ! Signed lower bound of first dimensionE INTEGER*4 DSC$L_SB_U1 ! Signed upper bound of first dimension! +B! Unaligned Bit String with Bounds descriptor (DSC$K_CLASS_UBSB).! - END STRUCTURE ! DSCDEF9 STRUCTURE /DSCDEF10/ BYTE %FILL(1:12)G INTEGER*4 DSC$L_UBSB_L1 ! Signed lower bound of first dimensionG INTEGER*4 DSC$L_UBSB_U1 ! Signed upper bound of first dimension END STRUCTURE ! DSC^DEF10CDEC$ END OPTIONS ww,!*** MODULE $DSTDEF ***CDEC$ OPTIONS /NOALIGN ! Use a K to indicate constant I PARAMETER DST$K_LOCOMMAND = '00000000'X ! Low value for range 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 = '00000007'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 @ PARAMETER DST$K_STA_R10 = '0000000A'X ! Stack contents of R10 @ PARAMETER DST$K_STA_R11 = '0000000B'X ! Stack contents of R11 E PAR`AMETER DST$K_STA_R12 = '0000000C'X ! Stack contents of R12 (AP) E PARAMETER DST$K_STA_R13 = '0000000D'X ! Stack contents of R13 (FP) E PARAMETER DST$K_STA_R14 = '0000000E'X ! Stack contents of R14 (SP) E PARAMETER DST$K_STA_R15 = '0000000F'X ! Stack contents of R15 (PC) K PARAMETER DST$K_STA_IMM_B = '00000010'X ! Stack contents of byte operand ! sign extending to longwordK PARAMETER DST$K_STA_IMM_W = '00000011'X ! Stack contents of word operand ! sign extending to longword aO PARAMETER DST$K_STA_IMM_L = '00000012'X ! Stack contents of longword operand B PARAMETER DST$K_OPR_ADD = '00000013'X ! Pop two operands, add , ! stack longword resultQ PARAMETER DST$K_STA_REP_B = '00000014'X ! Pop top item and stack sign extended ! byte at that addressQ PARAMETER DST$K_STA_REP_W = '00000015'X ! Pop top item and stack sign extended ! word at that addressO PARAMETER DST$K_STA_REP_L = '00000016'X ! Pop top item and stack longword at ! that addressbN PARAMETER DST$K_OPR_STOP = '00000017'X ! Terminate command string. Longword &! at top of stack contains address! of data item.H PARAMETER DST$K_HICOMMAND = '00000017'X ! Hi value for range checking CDEC$ END OPTIONSww!*** MODULE $DTIDEF ***CDEC$ OPTIONS /NOALIGN! ! DTI flag definitions! ! Item list definitions> PARAMETER DTI$_ENDITEM = '00000000'X ! End of item list codeP PARAMETER DTI$_TRANSACTION_INFORMATION = '00000001'X ! Active tran csaction listK PARAMETER DTI$_CURRENT_TID = '00000002'X ! Current transaction identifierP PARAMETER DTI$_MEMBERSHIP_COUNT = '00000003'X ! # members still in transactionM PARAMETER DTI$_BRANCH_COUNT = '00000004'X ! # branches still in transaction9 PARAMETER DTI$_ROOT_NODE_NAME = '00000005'X ! Root nodeE PARAMETER DTI$_STARTING_TIME = '00000006'X ! Transaction start time, PARAMETER dti$K_MAX_ITEM_CODE = '00000006'X! Transaction states# PARAMETER DTI$K_NULL = '00000000'X9 PARAMETER D dTI$K_STARTING = '00000001'X ! Starting state5 PARAMETER DTI$K_ACTIVE = '00000002'X ! Active stateI PARAMETER DTI$K_ONE_P_COMMITTING = '00000003'X ! Committing (one-phase); PARAMETER DTI$K_PREPARING = '00000004'X ! Preparing state9 PARAMETER DTI$K_PREPARED = '00000005'X ! Prepared state= PARAMETER DTI$K_COMMITTING = '00000006'X ! Committing state; PARAMETER DTI$K_COMMITTED = '00000007'X ! Committed stateG PARAMETER DTI$K_ONE_P_COMMITTED = '00000008'X ! Committed (one-phase)9 PAR eAMETER DTI$K_ABORTING = '00000009'X ! Aborting stateD PARAMETER DTI$K_ABORTED = '0000000A'X ! Aborted or forgotten state! SET item codes= PARAMETER DTI$K_ILLEGAL = '00000000'X ! Make code 0 illegalG PARAMETER DTI$K_DELETE_TRANSACTION = '00000001'X ! Delete transactionH PARAMETER DTI$K_DELETE_RM_NAME = '00000002'X ! Delete resource managerG PARAMETER DTI$K_MODIFY_STATE = '00000003'X ! Modify transaction stateG PARAMETER DTI$K_DELETE_BRANCH_NODE = '00000004'X ! Delete branch nodeX f 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 g_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 nodeY PARAMETER DTI$_SEARCH_CURRENT_TID = '00000002'X ! Search current transaction identifierI PARAMETER DTI$_SEARCH_TID = '00000003'X ! Search transaction identifierG PARAMETER DTI$_SEARCH_RM_NAME = '00000004'X ! Search resource managerL PARAMETER DTI h$_SEARCH_BRANCH_NAME = '00000005'X ! Search branch node names: PARAMETER DTI$_SEARCH_STATE = '00000006'X ! Search stateL PARAMETER DTI$_SEARCH_RESOLVED_STATE = '00000007'X ! Search resolved state. PARAMETER DTI$K_MAX_SEARCH_CODE = '00000007'X/ STRUCTURE /DTISEARCHDEF/ ! Search list codes( PARAMETER DTI$S_SEARCH_STARTING = 1: PARAMETER DTI$V_SEARCH_STARTING = 0 ! Starting state& PARAMETER DTI$S_SEARCH_ACTIVE = 16 PARAMETER DTI$V_SEARCH_ACTIVE = 1 ! Active state, PAR iAMETER DTI$S_SEARCH_1P_COMITTING = 1C 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 j= 6 ! Committed state, PARAMETER DTI$S_SEARCH_1P_COMMITTED = 1B 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 = 18 PARAMETER DTI$V_SEARCH_ABORTED = 9 ! Aborted state! Search item list definitions BYTE %FILL (2) END STRUCTURE ! DTISEARCHDEF% PARAMETER DTI$M_UPDATE = '00000001'X' PARAMETER DTI$M_LOCAL_RM = '00000002'Xb k PARAMETER DTI$S_TRANSACTION_INFORMATION = '00000054'X ! length of transaction information recordF STRUCTURE /DTIRECDEF/ ! Transaction information record definitions UNION MAP2 INTEGER*2 DTI$W_FLAGS ! Modifier flags END MAP MAP' PARAMETER DTI$S_UPDATE = 1T PARAMETER DTI$V_UPDATE = 0 ! Delete resource manager from transaction) PARAMETER DTI$S_LOCAL_RM = 1Q PARAMETER DTI$V_LOCAL_RM = 1 ! Particlipant type (1 = RM, 0 = node) BYTE %FILL (1) END MAP END UNION1 BYTE DTI$B_STATE ! Transaction stateA BYTE DTI$B_PART_NAME_LEN ! Length of participant name6 CHARACTER*32 DTI$T_PART_NAME ! Participant name: CHARACTER*16 DTI$T_PART_LOG_ID ! Participant log id/ CHARACTER*16 DTI$T_TID ! Transaction ID: INTEGER*4 DTI$O_UTC_COMMIT_TIME(4) ! UTC commit time END STRUCTURE ! DTIRECDEFCDEC$ END OPTIONS ww͎mS!*** MODULE $DTKDEF ***CDEC$ OPTIONS /NOALIGN)! 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' n 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 D PARAMETER DTK$K_TRM_TIMEOUT = '000001FD'X ! Timeout period expired@ PARAMETER DTK$K_TRM_BUFFER_FULL = '000001FE'X ! Buffer is full@ PoARAMETER 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 = '0000p0000'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/ PARAMETERq 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.! M PARAMETER DTK$K_IMMED = '00000000'X ! Return immedately after sending text.Y PARAMETER DTK$K_WAIT = '00000001'X ! Wait until text is completely spoken be returning.\ PARAMETER DTK$K_STATUS = '00000002'X ! Wait for text to be spoken and re rturn phone status.! 9! 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'X5 PARAMETER DTK$M_NORMAL = '00000000'X ! no bits set D PARAMETER DTK$K_SQUARE = '00000000'X ! Mode square bitvector index1 PARAMETER DTK$K_ASCII = '00000001'X ! asky modeI PARAMETER DTK$K_MINUS = '00000002'X ! Say da ssh as minus bitvector index> PARAMETER DTK$K_EUROPE = '00000003'X ! European type numbers7 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'XD PARAMETER DTK$K_HOST = '00000000'X ! Send all chars typed to host.B PARAMETER DTK$K_SPEAK_ALL = '00000001'X ! Spea tk all chars typed.C PARAMETER DTK$K_EDITED = '00000002'X ! Line edit all chars typed.H PARAMETER DTK$K_HARD = '00000003'X ! Do local echo in hardcopy format.P PARAMETER DTK$K_SETUP = '00000004'X ! Speak all chars displayed in setup mode.O PARAMETER DTK$K_FILTER = '00000005'X ! Don't send DECtalk specific sequences.# PARAMETER DTK$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_OUT uHOST = '00000010'X$ PARAMETER DTK$M_ERROR = '00000020'X$ PARAMETER DTK$M_TRACE = '00000040'X$ PARAMETER DTK$M_DEBUG = '00000080'X6 PARAMETER DTK$K_TEXT = '00000000'X ! Log ASCII text.< PARAMETER DTK$K_PHONEME = '00000001'X ! Log phonemic text.K PARAMETER DTK$K_RAWHOST = '00000002'X ! Log all chars without inspection.A PARAMETER DTK$K_INHOST = '00000003'X ! Log text read from host.@ PARAMETER DTK$K_OUTHOST = '00000004'X ! Log text sent to host.; PARAMETER DTK$K_ERROR = '00000005'X ! Lovg error messages.B PARAMETER DTK$K_TRACE = '00000006'X ! Log sequences symbolically0 PARAMETER DTK$K_DEBUG = '00000007'X ! Reserved STRUCTURE /DTKDEF/ UNION! 8! 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 = 10 PARAMETER DTK$V_ASCII = 1 ! asky mode" PARAMETER DTK$S_MINUS = 18 PARAMETER DTK$V_MINUS = 2 ! Sayw dash as minus# PARAMETER DTK$S_EUROPE = 1/ PARAMETER DTK$V_EUROPE = 3 ! Europe " PARAMETER DTK$S_SPELL = 16 PARAMETER DTK$V_SPELL = 4 ! Spell all words BYTE %FILL (1) END MAP MAP! PARAMETER DTK$S_HOST = 1C PARAMETER DTK$V_HOST = 0 ! Send all chars typed to host.& PARAMETER DTK$S_SPEAK_ALL = 1A PARAMETER DTK$V_SPEAK_ALL = 1 ! Speak all chars typed.# PARAMETER DTK$S_EDITED = 1B PAR xAMETER DTK$V_EDITED = 2 ! Line edit all chars typed.! PARAMETER DTK$S_HARD = 1G PARAMETER DTK$V_HARD = 3 ! Do local echo in hardcopy format." PARAMETER DTK$S_SETUP = 1O PARAMETER DTK$V_SETUP = 4 ! Speak all chars displayed in setup mode.# PARAMETER DTK$S_FILTER = 1N PARAMETER DTK$V_FILTER = 5 ! Don't send DECtalk specific sequences. BYTE %FILL (1) END MAP MAP! PARAMETER DTK$S_TEXT = 15 PARAMETER DTK y$V_TEXT = 0 ! Log ASCII text.$ PARAMETER DTK$S_PHONEME = 1; PARAMETER DTK$V_PHONEME = 1 ! Log phonemic text.$ PARAMETER DTK$S_RAWHOST = 1J PARAMETER DTK$V_RAWHOST = 2 ! Log all chars without inspection.# PARAMETER DTK$S_INHOST = 1@ 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: PARAMzETER DTK$V_ERROR = 5 ! Log error messages." PARAMETER DTK$S_TRACE = 1A 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 ! DTKDEFCDEC$ END OPTIONSww!*** MODULE $DTKMSG ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:01.96! !! FILE: { DTKMSG.MSG EDIT: TS1004! ! * *J! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 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 *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. *! * *! * *! ! 1! 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! L! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",N! AND "xyz" ARE THE FIR~ST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR3! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.! M! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR7! 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;@! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER.! ! -%! TEMPLATE FOR DOCUMENTING MESSAGES.9! EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND! IS FOLLOWED BY A BLANK LINE.G! BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "!" IN REGULAR COMMENTS>! AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE9! 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: DTKD! EXPLANATION: A USER TRIED TO CREATE A NEW VOICE_ID FOR A DECTALK 7! DEVICE, WHEN ONE ALREADY EXISTS. THIS IS NORMAL IN1! 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: DTKA! 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.9! ADD THEM BELOW AFTER THE REMAINING .SUCCESS MESSAGES.! -" PARAMETER DTK$_BUSY = '01A38023'X! ++! FACILITY: DTKE! 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: DTKE! 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: DTKE! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE/! NUMBER AND NO DIAL TONE WAS DETECTED ON THE! PHONE LINE. B!  USER ACTION: CORRECT THE TELEPHONE LINE PROBLEM AND CALL AGAIN.! --% PARAMETER DTK$_OFFHOOK = '01A3803B'X! ++! FACILITY: DTKA! 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: DTKA! 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: DTKA! 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 THE7! PHONE LINE. THE CALLER MAY HAVE HUNG UP THE PHONE.! USER ACTION: NONE.! --% PARAMETER DTK$_COMFAIL = '01A3805B'X! ++! FACILITY: DTKD! 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: DTKH! 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: DTKH! 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: DTKC! EXPLANATION: A DECTALK PRIVATE CONTROL SEQUENCE MALFUNCTION HAS 2! OCCURRED SINCE THE DECTALK UNIT WAS TURNED ON.+! USER ACTION: CHECK THE DECTALK HARDWARE.! --' PARAMETER DTK$_DECTSTFAI = '01A38083'X! ++! FACILITY: DTKA! 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: DTK9! EXPLANATION: AN INTERNAL ERROR HAS OCCURED WITHIN DTK.5! USER ACTION: SUBMIT AN SPR DESCRIBING THE PROBLEM.! --' PARAMETER DTK$_FILTOOLON = '01A3820C'X! ++! FACILITY: DTK2! 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: DTKG! 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.7! USER ACTION: EXAMINE THE ARGUMENT. DETERMINE WHAT IS*! OUT OF RANGE AND CORRECT YOUR PROGRAM.! --' PARAMETER DTK$_INVVOI_ID = '01A38224'X! ++! FACILITY: DTK2! EXPLANATION: AN INVALID VOICE-ID WAS SPECIFIED.D! USER ACTION: CHECK THAT YOU ARE PASSING THE VOICE ID BY REFERENCE.! NOT BY VALUE. ENSURE THAT THE VOICE ID WAS2! PREVIOUSLY SET UP BY A CALL TO DTK$INITIALIZE.! --$ PARAMETER DTK$_NOROOM = '01A3822C'X! ++!  FACILITY: DTK@! EXPLANATION: THERE IS NO ROOM LEFT IN THE DICTIONARY FOR THIS! DEFINITION.?! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS FEWER 8! DICTIONARY ENTRIES OR SO THAT EACH ENTRY IS SMALLER.! --$ PARAMETER DTK$_NOTIMP = '01A38234'X! ++! FACILITY: DTKB! EXPLANATION: YOU TRIED TO USE A FEATURE THAT IS NOT IMPLEMENTED! IN THIS VERSION OF DTK$.4! USER ACTION: GET THE APPROPRIATE VERSION OF DTK$.! --' PARAMETER DTK$_PROTOOLON = '01A3823C'X! ++! FACIL ITY: DTKF! 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: DTKD! EXPLANATION: AN DTK OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE$! EMBEDDED IN THE OUTPUT STRING. A! USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE6! SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION3! PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST:!  LIKELY A DTK ROUTINE THAT PROVIDES THAT FUNCTIONALITY.! --% PARAMETER DTK$_TOOLONG = '01A3824C'X! ++! FACILITY: DTK@! EXPLANATION: THE LENGTH OF THE SPECIFIED STRING WAS TOO LONG.G! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A PHONE NUMBER9! OR DICTIONARY SUBSTITUTION OF 255 CHARACTERS OR LESS.! --' PARAMETER DTK$_UNKESCSEQ = '01A38254'X! ++! FACILITY: DTKB! EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE%! THAT IT WAS UNABLE TO UNDERSTAND.! USER ACTION: ????! --& PARAMETER DTK$_UNKREPLY = '01A3825C'X! ++! FACILITY: DTKB! 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 ARGUMENTS0! (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS)! OR TOO MANY ARGUMENTS.9! 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 ROUTINE0! THAT INTERRUPTED A DTK ROUTINE WITH THE SAME ! VOICE_ID.9! 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.0! USER ACTION: SPECIFY A LOCAL TERMINAL DEVICE.! --' PARAMETER DTK$_NOMALFUN1 = '01A38801'X! ++! FACILITY: DTKA! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT3! NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK1! UNIT WAS TURNED ON. THIS IS THE FIRST REPLY.! USER ACTION: NONE.! --' PARAMETER DTK$_NOMALFUN2 = '01A38809'X! ++! FACILITY: DTKA! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT3! NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK;! UNIT WAS TURNED ON. THIS IS THE SECOND OR LATER REPLY.! USER ACTION: NONE.! --CDEC$ END OPTIONSwwMC!*** MODULE $DVIDEF ***CDEC$ OPTIONS /NOALIGN! +! @! Get Device and Volume Information Data Identifier Definitions! ! **** NOTE ****! D! New items must always be added at the END of the list so that&! users will not have to rebuild.! A! For RESERVED items (ie. symbols that are used on Alpha and5! are not used on VAX, requiring "placeholders" )C! Insert the same code (in the same order) as on Alpha in thisC! file. Then edit [VMSLIB]DVITABLE.MAR to include the symbol:! DVI_ITEM_CODE -! , TO! note: only a "T" is used as the second qualifier (after the symbol name)9! Then edit [SYS]SYSGETDVI.MAR to include the label:! SPC_:,! below the other labels for the singleB! BRW EXE$DVI_RETURN_ZERO ; Continue in $GETDVI.B! instruction. Search for the "Generic return zero" comment.! ! -R PARAMETER DVI$_DEVCHAR = '00000002'X ! Device characteristics - VALUE - 4 bytes H PARAMETER DVI$_DEVCLASS = '00000004'X ! Device class - VALUE - 1 byte F PARAMETER DVI$_DEVTYPE = '00000006'X ! Device type - VALUE - 1 byte P PARAMETER DVI$_DEVBUFSIZ = '00000008'X ! Device buffer size - VALUE - 2 bytes Z PARAMETER DVI$_DEVDEPEND = '0000000A'X ! Device dependent information - VALUE - 4 bytes D PARAMETER DVI$_UNIT = '0000000C'X ! Unit number - VALUE - 2 bytes ^ PARAMETER DVI$_PID = '0000000E'X ! Process identification of device owner - VALUE - 4 bytes N PARAMETER DVI$_OWNUIC = '00000010'X ! UIC of device owner - VALUE - 4 bytes P PARAMETER DVI$_VPROT = '00000012'X ! Volume protection mask - VALUE - 2 bytes F PARAMETER DVI$_ERRCNT = '00000014'X ! Error count - VALUE - 2 bytes I PARAMETER DVI$_OPCNT = '00000016'X ! Operation count - VALUE - 4 bytes N PARAMETER DVI$_RECSIZ = '00000018'X ! Blocked record size - VALUE - 2 bytes j PARAMETER DVI$_MAXBLOCK = '0000001A'X ! Number of logical blocks on the volume (disk) - VALUE - 4 bytes _ PARAMETER DVI$_DEVDEPEND2 = '0000001C'X ! Additional device dependent data - VALUE - 4 bytes W PARAMETER DVI$_REFCNT = '0000001E'X ! Reference count of processes - VALUE - 2 bytes H PARAMETER DVI$_DEVNAM = '00000020'X ! Device name - STRING - 64 bytes H 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 f PARAMETER DVI$_CYLINDERS = '00000028'X ! Number of cylinders on the volume (disk) - VALUE - 2 bytes i PARAMETER DVI$_FREEBLOCKS = '0000002A'X ! Number of free blocks on the volume (disk) - VALUE - 4 bytes S PARAMETER DVI$_LOGVOLNAM = '0000002C'X ! Logical volume name - STRING - 64 bytes g PARAMETER DVI$_VOLNUMBER = '0000002E'X ! Number of this volume in volume set (disk) - VALUE - 4 byte a PARAMETER DVI$_VOLCOUNT = '00000030'X ! Count of volumes in volume set (disk) - VALUE - 4 byte p PARAMETER DVI$_ROOTDEVNAM = '00000032'X ! Device name of root volume in volume set (disk) - STRING - 64 bytes p PARAMETER DVI$_NEXTDEVNAM = '00000034'X ! Device name of next volume in volume set (disk) - STRING - 64 bytes U PARAMETER DVI$_TRANSCNT = '00000036'X ! Volume Transaction Count - VALUE - 2 bytes H PARAMETER DVI$_MOUNTCNT = '00000038'X ! Mount count - VALUE - 2 bytes V 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 Y PARAMETER DVI$_SERIALNUM = '0000003E'X ! Volume Serial Number (disk) - VALUE - 4 bytes I PARAMETER DVI$_ACPPID = '00000040'X ! ACP Process ID - VALUE - 4 bytes H PARAMETER DVI$_ACPTYPE = '00000042'X ! ACP type code - VALUE - 1 byte Z PARAMETER DVI$_CONCEALED = '00000044'X ! Device is a concealed device - BOOLEA N - 1 byte! G! * 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 D PARAMETER DVI$_DIR = '0000004C'X ! DEVICE IS DIRECTORY STRUCTURED K PARAMETER DVI$_SDI = '0000004E'X ! DEVICE IS SINGLE DIRECTORY STRUCTURED V PARAMETER DVI$_SQD = '00000050'X ! SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., M AGTAPE) : PARAMETER DVI$_SPL = '00000052'X ! DEVICE BEING SPOOLED ; PARAMETER DVI$_OPR = '00000054'X ! DEVICE IS AN OPERATOR O PARAMETER DVI$_RCT = '00000056'X ! DISK CONTAINS RCT (DEC STANDARD 166 DISK) 4 PARAMETER DVI$_NET = '00000058'X ! NETWORK DEVICE O PARAMETER DVI$_FOD = '0000005A'X ! FILES-ORIENTED DEVICE (I.E., DISK AND MT) ; PARAMETER DVI$_DUA = '0000005C'X ! DEVICE IS DUAL PORTED 6 PARAMETER DVI$_SHR = '0000005E'X ! DEVICE SHAREABLE @ PARAMETER DVI$_GEN = '00000060'X ! D EVICE IS A GENERIC DEVICE > PARAMETER DVI$_AVL = '00000062'X ! DEVICE AVAILABLE FOR USE 7 PARAMETER DVI$_MNT = '00000064'X ! DEVICE IS MOUNTED 9 PARAMETER DVI$_MBX = '00000066'X ! DEVICE IS A MAILBOX @ PARAMETER DVI$_DMT = '00000068'X ! DEVICE MARKED FOR DISMOUNT F PARAMETER DVI$_ELG = '0000006A'X ! DEVICE HAS ERROR LOGGING ENABLED 9 PARAMETER DVI$_ALL = '0000006C'X ! DEVICE IS ALLOCATED [ PARAMETER DVI$_FOR = '0000006E'X ! DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) E PAR AMETER DVI$_SWL = '00000070'X ! DEVICE IS SOFTWARE WRITE LOCKED G PARAMETER DVI$_IDV = '00000072'X ! DEVICE CAPABLE OF PROVIDING INPUT H PARAMETER DVI$_ODV = '00000074'X ! DEVICE CAPABLE OF PROVIDING OUTPUT A PARAMETER DVI$_RND = '00000076'X ! DEVICE ALLOWS RANDOM ACCESS B PARAMETER DVI$_RTM = '00000078'X ! DEVICE IS REALTIME IN NATURE F PARAMETER DVI$_RCK = '0000007A'X ! DEVICE HAS READ CHECKING ENABLED G PARAMETER DVI$_WCK = '0000007C'X ! DEVICE HAS WRITE CHECKING ENABLED ! J! *  THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND LONGWORD7! * (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 = '0000 008E'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! K! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND2 LONGWORD8! * (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'XN 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' PARAMETER 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! 4 PARAMETER DVI$_STS = '000000E2'X ! STATUS LONGWORD: PARAMETER DVI$_DEVSTS = '000000E4'X ! DEVICE STATUS WORDc PARAMETER DVI$_DEVCHAR2 = '000000E6'X ! Second device characteristics longword - VALUE - 4 bytes G PARAMETER DVI$_FULLDEVNAM = '000000E8'X ! Fully qualified device nameH PARAMETER DVI$_LOCKID = '000000EA'X ! Device lock id - VALUE - 4 bytesI 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 ! L! * THE FOLLOWING CODES SUPPORT FEATURES OF DUAL-PATH AND SHADOW-SET DEVICES! H PARAMETER DVI$_ALLOCLASS = '000000F2'X ! Allocation class of host(s) H PARAMETER DVI$_ALT_HOST_AVAIL = '000000F4'X ! Alternate host is activeR PARAMETER DVI$_ALT_HOST_NAME = '000000F6'X ! Name of host serving alternate pathE PARAMETER DVI$_ALT_HOST_TYPE = '000000F8'X ! Type of alternate hostB PARAMETER DVI$_HOST_AVAIL = '000000FA'X ! Primary host is activeI PARAMETER DVI$_HOST_COUNT = '000000FC'X ! Number of paths to the deviceP PARAMETER DVI$_HOST_NAME = '000000FE'X ! Name of host serving the primary patho PARAMETER DVI$_HOST_TYPE = '00000100'X ! Type of primary host (today one of "V785", "V780", "V750" or "HS50")T PARAMETER DVI$_REMOTE_DEVICE = '00000102'X ! Device is not connected to local nodeN PARAMETER DVI$_SERVED_DEVICE = '00000104'X ! Device is served to the clusterR PARAMETER DVI$_SHDW_CATCHUP_COPYING = '00000106'X ! Catch-up copy is in progress] PARAMETER DVI$_SHDW_MASTER = '00000108'X ! Device is "virtual" master device for shadow setf PARAMETER DVI$_SHDW_MASTER_NAME = '0000010A'X ! Name of the "virtual" master device for a shadow set] PARAMETER DVI$_SHDW_MEMBER = '0000010C'X ! Device is one of the volumes making a shadow setM PARAMETER DVI$_SHDW_MERGE_COPYING = '0000010E'X ! Merge copy is in progressY 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.d PARAMETER DVI$_MEDIA_NAME = '00000116'X ! Decoded media name from UCB$L_MEDIA_ID field (ie. RK07 )b PARAMETER DVI$_MEDIA_TYPE = '00000118'X ! Decoded media type from UCB$L_MEDIA_ID field (ie. DM )Q PARAMETER DVI$_MEDIA_ID = '0000011A'X ! NONdecoded media id from UCB$L_MEDIA_ID! c 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 hash4! value, not useful for customers or applications)Z 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. Counted0! string in remote native format, ie: LAT, X.29G PARAMETER DVI$_DEVDEPEND3 = '00000124'X ! Device dependent longword 3G PARAMETER DVI$_TT_MULTISESSION = '00000126'X ! Multi-session terminalA PARAMETER DVI$_TT_DECCRT3 = '00000128'X ! VT3xx series terminalQ PARAMETER DVI$_SET_HOST_TERMINAL = '0000012A'X ! SET HOST session terminal J PARAMETER DVI$_DFS_ACCESS = '0000012C'X ! DFS client access point deviceT PARAMETER DVI$_DAPDEVNAM = '0000012E'X ! DAP device name, used to store the remote/! name string of a device that is accessed via-! t he DAP protocol (without DECnet), such as! certain console disks.A PARAMETER DVI$_TT_DECCRT4 = '00000130'X ! VT4xx series terminalN PARAMETER DVI$_TT_CHARSET = '00000132'X ! Terminal character set information! K! * The following codes are the individual bits of the TT_CHARSET longword/! * in the terminal UCB (as defined in TTCDEF)! F PARAMETER DVI$_TT_CS_KANA = '00000134'X ! Support Kana character setH PARAMETER DVI$_TT_CS_KANJI = '00000136'X ! Support Kanji character setH PAR AMETER DVI$_TT_CS_HANZI = '00000138'X ! Support Hanzi character setJ PARAMETER DVI$_TT_CS_HANGUL = '0000013A'X ! Support Hangul character setH PARAMETER DVI$_TT_CS_HANYU = '0000013C'X ! Support Hanyu character setF PARAMETER DVI$_TT_CS_THAI = '0000013E'X ! Support Thai character set! *! * THE FOLLOWING CODES ARE REGULAR ITEMS! G PARAMETER DVI$_DEVDEPEND4 = '00000140'X ! Device dependent longword 4F PARAMETER DVI$_DEVICE_TYPE_NAME = '00000142'X ! DDR Device type nameQ PARAMETER DVI$_TT_ASIAN_MODE = '00000144'X ! Asian terminal I/O characteristicsW PARAMETER DVI$_PREFERRED_CPU = '00000146'X ! Reserved for Alpa CPU affinity of deviceA PARAMETER DVI$_TT_DECCRT5 = '00000148'X ! VT5xx series terminal\ PARAMETER DVI$_TT_ANSI_COLOR = '0000014A'X ! Terminal supports ANSI color escape sequencesP PARAMETER DVI$_MT3_SUPPORTED = '0000014C'X ! Tape UCB owned by an MTD enhanced! driver? (longword)E PARAMETER DVI$_MT3_DENSITY = '0000014E'X ! Tape density. (longword)S PARAMETER DVI$_DRIVER_CLASS = '00000150'X ! Reserved, DRIVER_CLASS only on ALPHA.! >! *** 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 /DVIDEF/" PARAMETER DVI$S_SECONDARY = 1K PARAMETER DVI$V_SECONDARY = 0 ! Use secondary device characteristics# PARAMETER DVI$S_ITEM_CODE = 14: PARAMETER DVI$V_ITEM_CODE = 1 ! Space for item codeA! Define additional flags here, subtracting the space out of theC! 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! 0! Constant form of name for past compatibility.! ( PARAMETER DVI$C_SECONDARY = '00000001'X! ?! The following ACP type codes are formally  defined in $AQBDEF=! These synonyms are available to user programs and they areC! guaranteed to be consistent by ASSUME's in SYSGETDEV. Additions@! to the ACP type codes in $AQBDEF should be reflected here and! in the ASSUMES in SYSGETDEV.! G PARAMETER DVI$C_ACP_F11V1 = '00000001'X ! FILES-11 STRUCTURE LEVEL 1 G PARAMETER DVI$C_ACP_F11V2 = '00000002'X ! FILES-11 STRUCTURE LEVEL 2 2 PARAMETER DVI$C_ACP_MTA = '00000003'X ! MAGTAPE 3 PARAMETER DVI$C_ACP_NET = '00000004'X ! NETW ORKS 5 PARAMETER DVI$C_ACP_REM = '00000005'X ! REMOTE I/O > PARAMETER DVI$C_ACP_HBS = '00000006'X ! HOST BASED SHADOWINGM PARAMETER DVI$C_ACP_F11V3 = '00000007'X ! Files-11 presentation of ISO 9660P PARAMETER DVI$C_ACP_F11V4 = '00000008'X ! Files-11 presentation of High Sierra9 PARAMETER DVI$C_ACP_F64 = '00000009'X ! Dollar ACP typeM PARAMETER DVI$C_ACP_UCX = '0000000A'X ! ACP for TCP/IP Services for OpenVMSG PARAMETER DVI$C_ACP_F11V5 = '0000000B'X ! FILES-11 STRUCTURE LEVEL 5 CDEC$ END OPTIONS wwP!*** MODULE $DVSDEF ***CDEC$ OPTIONS /NOALIGN! +! *! Device Scan Data Identifier Definitions! ! **** NOTE ****! B! New items must always be added at the END of the list so that$! users will not have to rebuild.! ! -X PARAMETER DVS$_DEVCLASS = '00000001'X ! Device class - VALUE - 4 bytes (only one used)V PARAMETER DVS$_DEVTYPE = '00000002'X ! Device type - VALUE - 4 bytes (only one used)CDEC$ END OPTIONS ww o!*** MODULE $EEOMDEF ***CDEC$ OPTIONS /NOALIGN! #! EVAX End of module record (EEOM)! A PARAMETER EEOM$C_SUCCESS = '00000000'X ! Successful (no errors) : PARAMETER EEOM$C_WARNING = '00000001'X ! Warnings issued 8 PARAMETER EEOM$C_ERROR = '00000002'X ! Errors detected 7 PARAMETER EEOM$C_ABORT = '00000003'X ! Abort the link B PARAMETER EEOM$K_EOMMIN = '0000000A'X ! Min length of EOM record B PARAMETER EEOM$C_EOMMIN = '0000000A'X ! Min length of EOM record Q PARAMETER EEOM$ K_EOMMX1 = '0000000A'X ! Length of EOM record w/o transfer flags Q PARAMETER EEOM$C_EOMMX1 = '0000000A'X ! Length of EOM record w/o transfer flags % PARAMETER EEOM$M_WKTFR = '00000001'XF PARAMETER EEOM$K_EOMMAX = '00000018'X ! Maximum length of EOM record F PARAMETER EEOM$C_EOMMAX = '00000018'X ! Maximum length of EOM record  STRUCTURE /EEOMDEF/9 INTEGER*2 EEOM$W_RECTYP ! Record type (OBJ$C_EOM) 1 INTEGER*2 EEOM$W_SIZE ! size of this EEMODT 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 = 1D PARAMETER EEOM$V_WKTFR = 0 ! Transfer address is weak  BYTE %FILL (1) END MAP END UNION2 BYTE EEOM$B_TEMP ! pad to align PSINDX< INTEGER*4 EEOM$L_PSINDX ! P-sect of transfer address UNION MAP8 INTEGER*4 EEOM$Q_TFRADR(2) ! Transfer address  END MAP MAP5 INTEGER*4 EEOM$L_TFRADR ! Transfer address END MAP END UNION END STRUCTURE ! EEOMDEFCDEC$ END OPTIONS ww-ס!*** MODULE $EFNDEF ***CDEC$ OPTIONS /NOALIGNE PARAMETER EFN$C_ENF = '00000080'X ! Event No Flag (no stored state)CDEC$ END OPTIONS wwCq!*** MODULE $EGPSDEF ***CDEC$ OPTIONS /NOALIGN! (! 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 MAP/ INTEGER*2 EGPS$W_GSDTYP ! Typ field  END MAP MAP8 ! unsupported type CHARACTER*0 EGPS$T_START INTEGER*2 %FILL END MAP END UNION0 INTEGER*2 EGPS$W_SIZE ! size of this EGPS1 BYTE EGPS$B_ALIGN ! P-sect alignment / BYTE  EGPS$B_TEMP ! pad for aligning UNION MAP1 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 = 1@ PARAMETER EGPS$V_LIB = 1 ! From a shareable image % PARAMETER EGPS$S_OVR = 1D PARAMETER EGPS$V_OVR = 2 ! Overlaid memory allocation % PARAMETER EGPS$S_REL = 15  PARAMETER EGPS$V_REL = 3 ! Relocatable % PARAMETER EGPS$S_GBL = 16 PARAMETER EGPS$V_GBL = 4 ! Global scope % PARAMETER EGPS$S_SHR = 13 PARAMETER EGPS$V_SHR = 5 ! Shareable % PARAMETER EGPS$S_EXE = 14 PARAMETER EGPS$V_EXE = 6 ! Executable $ PARAMETER EGPS$S_RD = 12 PARAMETER EGPS$V_RD = 7 ! Readable % PARAMETER EGPS$S_WRT = 13 PARAMETER EGPS$V_WRT = 8 ! Writeable % PARAMETER EGPS$S_VEC = 16 PARAMETER EGPS$V_VEC = 9 ! Vector psect ' PARAMETER EGPS$S_NOMOD = 1; PARAMETER EGPS$V_NOMOD = 10 ! Not stored into% PARAMETER EGPS$S_COM = 1B PARAMETER EGPS$V_COM = 11 ! Associated with COMM sym- PARAMETER EGPS$S_ALLOC_64BIT = 1E 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 7 BYTE EGPS$B_NAMLNG ! Length of p-sect name , CHARACTER*31 EGPS$T_NAME ! Name field  END STRUCTURE ! EGPSDEF! /! 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 MAP0 INTEGER*2 EGPS64$W_GSDTYP ! Typ field  END MAP MAP: ! unsupported type CHARACTER*0 EGPS64$T_START INTEGER*2 %FILL END MAP END UNION2 INTEGER*2 EGPS64$W_SIZE ! size of this EGPS2 BYTE EGPS64$B_ALIGN ! P-sect alignment 1 BYTE EGPS64$B_TEMP ! pad for aligning UNION MAP2 INTEGER*2 EGPS64$W_FLAGS ! P-sect flags  END MAP MAP' PARAMETER EGPS64$S_PIC = 1@ PARAMETER EGPS64$V_PIC = 0 ! Position independent ' PARAMETER EGPS64$ S_LIB = 1B PARAMETER EGPS64$V_LIB = 1 ! From a shareable image ' PARAMETER EGPS64$S_OVR = 1F PARAMETER EGPS64$V_OVR = 2 ! Overlaid memory allocation ' PARAMETER EGPS64$S_REL = 17 PARAMETER EGPS64$V_REL = 3 ! Relocatable ' PARAMETER EGPS64$S_GBL = 18 PARAMETER EGPS64$V_GBL = 4 ! Global scope ' PARAMETER EGPS64$S_SHR = 15 PARAMETER EGPS64$V_SHR = 5 ! Shareable ' P ARAMETER EGPS64$S_EXE = 16 PARAMETER EGPS64$V_EXE = 6 ! Executable & PARAMETER EGPS64$S_RD = 13 PARAMETER EGPS64$V_RD = 7 ! Readable ' PARAMETER EGPS64$S_WRT = 15 PARAMETER EGPS64$V_WRT = 8 ! Writeable ' PARAMETER EGPS64$S_VEC = 18 PARAMETER EGPS64$V_VEC = 9 ! Vector psect ) PARAMETER EGPS64$S_NOMOD = 1= PARAMETER EGPS64$V_NOMOD = 10 ! Not stored into' PARAMETER EGPS64$S_COM = 1D PARAMETER EGPS64$V_COM = 11 ! Associated with COMM sym/ PARAMETER EGPS64$S_ALLOC_64BIT = 1G PARAMETER EGPS64$V_ALLOC_64BIT = 12 ! Load in 64-bit space BYTE %FILL (2) END MAP END UNION UNION MAPD INTEGER*4 EGPS64$Q_ALLOC(2) ! Length of this contribution  END MAP MAP2 INTEGER*4 EGPS64$L_ALLOC ! Low Longword END MAP END UNION8 BYTE EGPS64$B_NAMLNG ! Length of p-sect name . CHARACTER*31 EGPS64$T_NAME ! Name field  END STRUCTURE ! EGPS64DEFCDEC$ END OPTIONS ww-r!*** MODULE $EGSDEF ***CDEC$ OPTIONS /NOALIGN! .! EVAX Global symbol definition record (EGSD)! J PARAMETER EGSD$K_ENTRIES = '00000002'X ! Offset to first entry in record J PARAMETER EGSD$C_ENTRIES = '00000002'X ! Offset to first entry in record 7 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 H PARAMETER EGSD$C_SPSC = '00000005'X ! Shareable image psect definition N PARAMETER EGSD$C_SYMV = '00000006'X ! Vectored (dual-valued) versions of SYM,> PARAMETER EGSD$C_SYMM = '00000007'X ! Masked versions of SYM,@ PARAMETER EGSD$C_SYMG = '00000008'X ! EGST - gst version of SYM@ PARAMETER EGSD$C_PSC64 = '00000009'X ! Psect with 64-bit lengthX PARAMETER EGSD$C_SPSC64 = '0000000A'X ! Shareable image pse ct definition w/64b len/baseG PARAMETER EGSD$C_MAXRECTYP = '0000000A'X ! Maximum entry type defined  STRUCTURE /EGSDEF/9 INTEGER*2 EGSD$W_RECTYP ! Record type (OBJ$C_GSD) 8 INTEGER*2 EGSD$W_RECSIZ ! Size of theis EVAX EGSDF INTEGER*4 EGSD$L_ALIGNLW ! Insure that subrecords are QW alignedE INTEGER*2 EGSD$W_GSDTYP ! Type of entry (first byte of entry) 4 INTEGER*2 EGSD$W_GSDSIZ ! Size of this entry  END STRUCTURE ! EGSDEFCDEC$ END OPTIONS wwPt!*** MODULE $EGSTDEF ***CDEC$ OPTIONS /NOALIGN! Q! EVAX Universal Symbol Definition - used by the linker instead of ESDF$ recordsO! 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 UNION0 INTEGER*2 EGST$W_SIZE ! size of this EGST5 BYTE EGST$B_DATYP ! Maps over GSY$B_DATYP1 BYTE EGST$B_TEMP ! pad for alignment 6 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 UNION5 INTEGER*4 EGST$L_PSINDX ! Owning psect number 0 BYTE EGST$B_NAMLNG ! Length of name - CHARACTER*31 EGST$T_NAME ! Symbol name  END STRUCTURE ! EGSTDEFCDEC$ END OPTIONS wwmu!*** MODULE $EGSYDEF ***CDEC$ OPTIONS /NOALIGN! %! EVAX GSD entry - Symbol definition! /! 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 MAP0 INTEGER*2 EGSY$W_GSDTYP ! Type field  END MAP MAP8 ! unsupported type CHARACTER*0 EGSY$T_START BYTE %FILL END MAP END UNION0 INTEGER*2 EGSY$W_SIZE ! size of this EGSY1 BYTE EGSY$B_DATYP ! Symbol data type 0 BYTE EGSY$B_TEMP ! pad for alignment UNION MAP1 INTEGER*2 EGSY$W_FLAGS ! Symbol flags  END MAP MAP&  PARAMETER EGSY$S_WEAK = 16 PARAMETER EGSY$V_WEAK = 0 ! Weak symbol % PARAMETER EGSY$S_DEF = 14 PARAMETER EGSY$V_DEF = 1 ! Definition % PARAMETER EGSY$S_UNI = 13 PARAMETER EGSY$V_UNI = 2 ! Universal % PARAMETER EGSY$S_REL = 15 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 = 72 BYTE %FILL (1) ! Value is quadword END MAP END UNION END STRUCTURE ! EGSYDEFCDEC$ END OPTIONS ww ^w!*** MODULE $EIDCDEF ***CDEC$ OPTIONS /NOALIGN! 3! 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 field4 INTEGER*2 EIDC$W_SIZE ! size of this EIDCDEF UNION MAP* INTEGER*4 EIDC$L_FLAGS ! Flags  END MAP MAP* PARAMETER EIDC$S_BINIDENT = 1Y 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 = 3R 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 name/! Followed by byte of length of name of object! Followed by the object name! Followed by! byte of ident length7! ident string (length = string length)! or1! ident binary value (length = 4) END MAP END UNION END STRUCTURE ! EIDCDEFCDEC$ END OPTIONS wwx!*** MODULE $EMHDEF ***CDEC$ OPTIONS /NOALIGN! "! EVAX Module hea der record (EMH)! 8 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 6 PARAMETER EMH$C_CPR = '00000004'X ! Copyright notice 8 PARAMETER EMH$C_MTC = '00000005'X ! Maintenence status 2 PARAMETER EMH$C_GTX = '00000006'X ! General text B PARAMETER EMH$C_MAXHDRTYP = '00000006'X ! Maximum allowable type   STRUCTURE /EMHDEF/8 INTEGER*2 EMH$W_RECTYP ! Record type (OBJ$C_MHD) 0 INTEGER*2 EMH$W_SIZE ! length of this EMH3 INTEGER*2 EMH$W_HDRTYP ! Type field for MHD ! Types of header records 0 BYTE EMH$B_STRLVL ! Structure level + BYTE EMH$B_TEMP ! temp pad byte6 INTEGER*4 EMH$L_ARCH1 ! target architecture LW16 INTEGER*4 EMH$L_ARCH2 ! target architecture LW24 INTEGER*4 EMH$L_RECSIZ ! Maximum record size 3 BYTE EMH$B_NAMLNG ! Module name length - CHARACTER*31 EMH$T_NAME ! Module name  END STRUCTURE ! EMHDEFCDEC$ END OPTIONS wwMkz!*** MODULE $ENVDEF ***CDEC$ OPTIONS /NOALIGN! (! ENV - Define/reference an environment! " PARAMETER ENV$M_DEF = '00000001'X% PARAMETER ENV$M_NESTED = '00000002'X STRUCTURE /ENVDEF/+ BYTE ENV$B_GSDTYP ! Type field UNION MAP5 INTEGER*2 ENV$W_FLAGS ! Environment flags  END MAP MAP$  PARAMETER ENV$S_DEF = 1C PARAMETER ENV$V_DEF = 0 ! Definition of environment ' PARAMETER ENV$S_NESTED = 1D PARAMETER ENV$V_NESTED = 1 ! Nested environment if set BYTE %FILL (1) END MAP END UNION= INTEGER*2 ENV$W_ENVINDX ! Index of parent environment ; BYTE ENV$B_NAMLNG ! Length of environment name 2 CHARACTER*31 ENV$T_NAME ! Environment name  END STRUCTURE ! ENVDEFCDEC$ END OPTIONS w w{!*** MODULE $EOBJRECDEF ***CDEC$ OPTIONS /NOALIGN! F! These are the record types defined for VAX and EVAX object records.C! Some types are only recognized in one format of object file, but4! the types must be a single set of distinct codes.! @ PARAMETER EOBJ$C_EMH = '00000008'X ! EVAX module header record A PARAMETER EOBJ$C_EEOM = '00000009'X ! EVAX end of module record L PARAMETER EOBJ$C_EGSD = '0000000A'X ! EVAX global symbol definition record D PARAMETER EOB J$C_ETIR = '0000000B'X ! EVAX text information record H PARAMETER EOBJ$C_EDBG = '0000000C'X ! EVAX Debugger information record I PARAMETER EOBJ$C_ETBT = '0000000D'X ! EVAX Traceback information record F PARAMETER EOBJ$C_MAXRECTYP = '0000000D'X ! Last assigned record type & PARAMETER EOBJ$K_SUBTYP = '00000004'X& PARAMETER EOBJ$C_SUBTYP = '00000004'XF PARAMETER EOBJ$C_MAXRECSIZ = '00002000'X ! Maximum legal record size 9 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 K PARAMETER EOBJ$C_STOREPLIM = -1 ! Maximum repeat count on store commands E PARAMETER EOBJ$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 6 INTEGER*2 EOBJ$W_SUBTYP ! Record sub-type byte 2 BYTE EOBJ$B_MHD_STRLV ! Structure level1 BYTE EOBJ$B_MHD_HOLD ! alignment temp UNION MAP; INTEGER*2 EOBJ$W_MHD_RECSZ ! Maximum record size  END MAP MAP! BYTE %FILL(1:2)P ! unsupported type CHARACTER*0 EOBJ$T_MHD_NAME ! Module name field ! Misc. constants  END MAP END UNION END STRUCTURE ! EOBJRECDEFCDEC$ END OPTIONS wwx}!*** MODULE $EOMDEF ***CDEC$ OPTIONS /NOALIGN! ! End of module record (EOM)! @ PARAMETER EOM$C_SUCCESS = '00000000'X ! Successful (no errors) 9 PARAMETER EOM$C_WARNING = '00000001'X ! Warnings issued 7 PARAMETER EOM$C_ERROR = '00000002'X ! Errors detected 6 PARAMETER EOM$C_ABORT = '00000003'X ! Abort the link A PARAMETER EOM$K_EOMMIN = '00000002'X ! Min length of EOM record A PARAMETER EOM$C_EOMMIN = '00000002'X ! Min length of EOM record P PARAM ETER EOM$K_EOMMX1 = '00000007'X ! Length of EOM record w/o transfer flags P PARAMETER EOM$C_EOMMX1 = '00000007'X ! Length of EOM record w/o transfer flags E PARAMETER EOM$K_EOMMAX = '00000008'X ! Maximum length of EOM record E PARAMETER EOM$C_EOMMAX = '00000008'X ! Maximum length of EOM record $ PARAMETER EOM$M_WKTFR = '00000001'X STRUCTURE /EOMDEF/8 BYTE EOM$B_RECTYP ! Record type (OBJ$C_EOM) 9 BYTE EOM$B_COMCOD ! Compiler completion code ! Values ; BYTE  EOM$B_PSINDX ! P-sect of transfer address 1 INTEGER*4 EOM$L_TFRADR ! Transfer address UNION MAP; BYTE EOM$B_TFRFLG ! Transfer address flags  END MAP MAP& PARAMETER EOM$S_WKTFR = 1C PARAMETER EOM$V_WKTFR = 0 ! Transfer address is weak  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! EOMDEFCDEC$ END OPTIONS wwx}!*** MODULE $EOMWDEF ***CDEC$ OPTIONS /N OALIGN! 1! End of module record with word of psect (EOMW)! B PARAMETER EOMW$K_EOMMIN = '00000002'X ! Min length of EOM record B PARAMETER EOMW$C_EOMMIN = '00000002'X ! Min length of EOM record R PARAMETER EOMW$K_EOMMX1 = '00000008'X ! Length of EOMW record w/o transfer flags R PARAMETER EOMW$C_EOMMX1 = '00000008'X ! Length of EOMW record w/o transfer flags G PARAMETER EOMW$K_EOMMAX = '00000009'X ! Maximum length of EOMW record G PARAMETER EOMW$C_EOMMAX = '00000009'X ! Maximum length of EOMW record % PARAMETER EOMW$M_WKTFR = '00000001'X STRUCTURE /EOMWDEF/9 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 2 INTEGER*4 EOMW$L_TFRADR ! Transfer address UNION MAP< BYTE EOMW$B_TFRFLG ! Transfer address flags  END MAP MAP' PARAMETER EOMW$S_WKTFR = 1D PARAMETER EOMW$V_WKTFR = 0 ! Transfer address is weak  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! EOMWDEFCDEC$ END OPTIONS ww-~!*** MODULE $EPMDEF ***CDEC$ OPTIONS /NOALIGN! 5! 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 UNION5 BYTE EPM$B_DATYP ! Maps over GSY$B_DATYP 5 INTEGER*2 EPM$W_FLAGS ! Maps over GSY$W_FLAGS 7 BYTE EPM$B_PSINDX ! Maps over SDF$B_PSINDX J INTEGER*4 EPM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE / INTEGER*2 EPM$W_MASK ! Entry point mask / BYTE EPM$B_NAMLNG ! Length of name - CHARACTER*31 EPM$T_NAME ! Symbol name  END STRUCTURE ! EPMDEFCDEC$ END OPTIONS wwͅ!*** MODULE $EPMMDEF ***CDEC$ OPTIONS /NOALIGN! ;! 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 %FILL  END MAP END UNION6 BYTE EPMM$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 EPMM$W_FLAGS ! Maps over GSY$W_FLAGS 8 BYTE EPMM$B_PSINDX ! Maps over SDF$B_PSINDX K INTEGER*4 EPMM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE ; INTEGER*4 EPMM$L_VERSION_MASK ! Mask value for symbol0 INTEGER*2 EPMM$W_MASK ! Entry point mask 0 BYTE EPMM$B_NAMLNG ! Length of name - CHARACTER*31 EPMM$T_NAME ! Symbol name  END STRUCTURE ! EPMMDEFCDEC$ END OPTIONS wwm !*** MODULE $EPMVDEF ***CDEC$ OPTIONS /NOALIGN! 7! 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 E ND UNION6 BYTE EPMV$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 EPMV$W_FLAGS ! Maps over GSY$W_FLAGS 8 BYTE EPMV$B_PSINDX ! Maps over SDF$B_PSINDX K INTEGER*4 EPMV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE = INTEGER*4 EPMV$L_VECTOR ! Vectored entry point address0 INTEGER*2 EPMV$W_MASK ! Entry point mask 0 BYTE EPMV$B_NAMLNG ! Length of name - CHARACTER*31 EPMV$T_NAME ! Symbol name  END STRUCTURE ! EPMVDEFCDEC$ END OPTIONS wwm !*** MODULE $EPMWDEF ***CDEC$ OPTIONS /NOALIGN! >! 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 ! unsupported type CHARACTER*0 EPMW$T_START BYTE %FILL END MAP END UNION6 BYTE EPMW$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 EPMW$W_FLAGS ! Maps over GSY$W_FLAGS 9 INTEGER*2 EPMW$W_PSINDX ! Maps over SDFW$W_PSINDX L INTEGER*4 EPMW$L_ADDRS ! Entry point address, maps over SDFW$L_VALUE 0 INTEGER*2 EPMW$W_MASK ! Entry point mask 0 BYTE EPMW$B_NAMLNG ! Length of name - CHARACTER*31 EPMW$T_NAME ! Symbol name  END STRUCTURE ! EPMWDEFCDEC$ END OPTIONS ww]!*** MODULE $ERADEF ***CDEC$ OPTIONS /NOALIGN! ! >! Define erase type codes. The codes LODUMMY and HIDUMMY are@! used as placeholders, to make the definition of the upper andB! 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 storageG PARAMETER ERA$K_TAPE = '00000003'X ! Erase magnetic tape mass storage) PARAMETER ERA$K_HIDUMMY = '00000004'X ! I PARAMETER ERA$K_MINTYPE = '00000001'X ! Lower bound of erase type codesI PARAMETER ERA$K_MAXTYPE = '00000003'X ! Upper bound of erase type codesCDEC$ END OPTIONSww !*** MODULE $ESDFDEF ***CDEC$ OPTIONS /NOALIGN! ! 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 UNION0 INTEGER*2 ESDF$W_SIZE ! size of this ESDF5 BYTE ESDF$B_DATYP ! Maps over GSY$B_DATYP1 BYTE ESDF$B_TEMP ! pad for alignment 6 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 UNIONO INTEGER*4 ESDF$L_CA_PSINDX ! Psect index of the code address (which is in! LP_1 if the norm bit is set).5 INTEGER*4 ESDF$L_PSINDX ! Owning psect number 0 BYTE ESDF$B_NAMLNG ! Length of name - CHARACTER*31 ESDF$T_NAME ! Symbol name  END STRUCTURE ! ESDFDEFCDEC$ END OPTIONS ww!*** MODULE $ESDFMDEF ***CDEC$ OPTIONS /NOALIGN! 2! 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 UNION2 INTEGER*2 ESDFM$W_SIZE ! size of this ESDFM6 BYTE ESDFM$B_DATYP ! Maps over GSY$B_DATYP2 BYTE ESDFM$B_TEMP ! pad for alignment 7 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 UNION5 INTEGER*4 ESDFM$L_PSINDX ! Owning psect number 6 INTEGER*4 ESDFM$L_VERSION_MASK ! Mask for symbol0 BYTE ESDFM$B_NAMLNG ! Length of name . CHARACTER*31 ESDFM$T_NAME ! Symbol name  END STRUCTURE ! ESDFMDEFCDEC$ END OPTIONS wwM!*** MODULE $ESDFVDEF ***CDEC$ OPTIONS /NOALIGN! .! 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 UNION1 INTEGER*2 ESDFV$W_SIZE ! size of this SDFV6 BYTE ESDFV$B_DATYP ! Maps over GSY$B_DATYP2 BYTE ESDFV$B_TEMP ! pad for alignment 7 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 UNION5 INTEGER*4 ESDFV$L_PSINDX ! Owning psect number 9 INTEGER*4 ESDFV$L_VECTOR ! Vectored value of symbol0 BYTE ESDFV$B_NAMLNG ! Length of name . CHARACTER*31 ESDFV$T_NAME ! Symbol name  END STRUCTURE ! ESDFVDEFCDEC$ END OPTIONS ww&!*** MODULE $ESGPSDEF ***CDEC$ OPTIONS /NOALIGN! ;! 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 MAP/ INTEGER*2 ESGPS$W_GSDTYP ! Typ field  END MAP MAP9 ! unsupported type CHARACTER*0 ESGPS$T_START BYTE %FILL END MAP END UNION2 INTEGER*2 ESGPS$W_SIZE ! size of this ESGPS2 BYTE ESGPS$B_ALIGN ! P-sect alignment 2 BYTE ESGPS$B_TEMP ! pad for allignment UNION MAP2 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 = 1A PARAMETER ESGPS$V_LIB = 1 ! From a shareable image & PARAMETER ESGPS$S_OVR = 1E PARAMETER ESGPS$V_OVR = 2 ! Overlaid memory allocation & PARAMETER ESGPS$S_REL = 16 PARAMETER ESGPS$V_REL = 3 ! Relocatable & PARAMETER ESGPS$S_GBL = 17 PARAMETER ESGPS$V_G BL = 4 ! Global scope & PARAMETER ESGPS$S_SHR = 14 PARAMETER ESGPS$V_SHR = 5 ! Shareable & PARAMETER ESGPS$S_EXE = 15 PARAMETER ESGPS$V_EXE = 6 ! Executable % PARAMETER ESGPS$S_RD = 12 PARAMETER ESGPS$V_RD = 7 ! Readable & PARAMETER ESGPS$S_WRT = 14 PARAMETER ESGPS$V_WRT = 8 ! Writeable & PARAMETER ESGPS$S_VEC = 17 PARAMETER ESGPS$V_VEC = 9 ! Vector psect (  PARAMETER ESGPS$S_NOMOD = 1< PARAMETER ESGPS$V_NOMOD = 10 ! Not stored into& PARAMETER ESGPS$S_COM = 1C PARAMETER ESGPS$V_COM = 11 ! Associated with COMM sym. PARAMETER ESGPS$S_ALLOC_64BIT = 1F PARAMETER ESGPS$V_ALLOC_64BIT = 12 ! Load in 64-bit space BYTE %FILL (2) END MAP END UNIONC INTEGER*4 ESGPS$L_ALLOC ! Length of this psect in shr image O 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 UNION7 BYTE ESGPS$B_NAMLNG ! Length of p-sect name - CHARACTER*31 ESGPS$T_NAME ! Name field  END STRUCTURE ! ESGPSDEF! B! 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 MAP1 INTEGER*2 ESGPS64$W_GSDTYP ! Typ field  END MAP MAP; ! unsupported type CHARACTER*0 ESGPS64$T_START BYTE %FILL END MAP END UNION3 INTEGER*2 ESGPS64$W_SIZE ! size of this ESGPS3 BYTE ESGPS64$B_ALIGN ! P-sect alignment 3 BYTE ESGPS64$B_TEMP ! pad for allignment UNION MAP3 INTEGER*2 ESGPS64$W_FLAGS ! P-sect f lags  END MAP MAP( PARAMETER ESGPS64$S_PIC = 1A PARAMETER ESGPS64$V_PIC = 0 ! Position independent ( PARAMETER ESGPS64$S_LIB = 1C PARAMETER ESGPS64$V_LIB = 1 ! From a shareable image ( PARAMETER ESGPS64$S_OVR = 1G PARAMETER ESGPS64$V_OVR = 2 ! Overlaid memory allocation ( PARAMETER ESGPS64$S_REL = 18 PARAMETER ESGPS64$V_REL = 3 ! Relocatable ( PARAMETER ESGPS 64$S_GBL = 19 PARAMETER ESGPS64$V_GBL = 4 ! Global scope ( PARAMETER ESGPS64$S_SHR = 16 PARAMETER ESGPS64$V_SHR = 5 ! Shareable ( PARAMETER ESGPS64$S_EXE = 17 PARAMETER ESGPS64$V_EXE = 6 ! Executable ' PARAMETER ESGPS64$S_RD = 14 PARAMETER ESGPS64$V_RD = 7 ! Readable ( PARAMETER ESGPS64$S_WRT = 16 PARAMETER ESGPS64$V_WRT = 8 ! Writeable ( PARAMETER ESGPS64$S_VEC = 1 9 PARAMETER ESGPS64$V_VEC = 9 ! Vector psect * PARAMETER ESGPS64$S_NOMOD = 1> PARAMETER ESGPS64$V_NOMOD = 10 ! Not stored into( PARAMETER ESGPS64$S_COM = 1E PARAMETER ESGPS64$V_COM = 11 ! Associated with COMM sym0 PARAMETER ESGPS64$S_ALLOC_64BIT = 1H PARAMETER ESGPS64$V_ALLOC_64BIT = 12 ! Load in 64-bit space BYTE %FILL (2) END MAP END UNION UNION MAPK INTEGER*4 ESGPS64$Q_ALLOC(2) ! Length of this psect in shr image  END MAP MAP3 INTEGER*4 ESGPS64$L_ALLOC ! Low Longword END MAP END UNION UNION MAPW INTEGER*4 ESGPS64$Q_BASE(2) ! Offset into img of psect, copy of symbol vector END MAP MAP2 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 UNION9 BYTE ESGPS64$B_NAMLNG ! Length of p-sect name / CHARACTER*31 ESGPS64$T_NAME ! Name field  END STRUCTURE ! ESGPS64DEFCDEC$ END OPTIONS ww!*** MODULE $ESRFDEF ***CDEC$ OPTIONS /NOALIGN! 9! 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 UNION0 INTEGER*2 ESRF$W_SIZE ! size of this ESRF5 BYTE ESRF$B_DATYP ! Maps over GSY$B_DATYP1 BYTE ESRF$B_TEMP ! pad for alignment 6 INTEGER*2 ESRF$W_FLAGS ! Maps over GSY$W_FLAGS 7 BYTE ESRF$B_NAMLNG ! Length of symbol name - CHARACTER*31 ESRF$T_NAME ! Symbol name  END STRUCTURE ! ESRFDEFCDEC$ END OPTIONS ww-4!*** MODULE $ETIRDEF ***CDEC$ OPTIONS /NOALIGN! 6! EVAX Text, information and relocation record (ETIR)! ? PARAMETER ETIR$C_MINSTACOD = '00000000'X ! Minimum store code D PARAMETER ETIR$C_STA_GBL = '00000000'X ! Stack global symbol value 8 PARAMETER ETIR$C_STA_LW = '00000001'X ! Stack longword 8 PARAMETER ETIR$C_STA_QW = '00000002'X ! Stack quadword O PARAMETER ETIR$C_STA_PQ = '00 000003'X ! Stack psect base plus quadword offset 7 PARAMETER ETIR$C_STA_LI = '00000004'X ! Stack literal 6 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 3 PARAMETER ETIR$C_STO_B = '00000032'X ! Store byte 3 PARAMETER ETIR$C_STO_W = '00000033'X ! Store word 8 PARAMETER ETIR$C_STO_LW = '00000034'X  ! Store longword 7 PARAMETER ETIR$C_STO_QW = '00000035'X ! Store quadwordC PARAMETER ETIR$C_STO_IMMR = '00000036'X ! Store immediate Repeated7 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 D PARAMETER ETIR$C_STO_OFF = '0000003B'X ! Store offset within psect : PARAMETER ETIR$C_STO_IMM = '0000003 D'X ! Store immediate B PARAMETER ETIR$C_STO_GBL_LW = '0000003E'X ! Store global Longword0! STO_LP_PSB not valid in level 2 use STC_LP_PSBW PARAMETER ETIR$C_STO_BR_GBL = '00000040'X ! Store 21 bit displayment to global addressV PARAMETER ETIR$C_STO_BR_PS = '00000041'X ! Store 21 bit displayment to psect + offset? PARAMETER ETIR$C_MAXSTOCOD = '00000041'X ! Maximum store code A PARAMETER ETIR$C_MINOPRCOD = '00000064'X ! Minimum operate code 0 PARAMETER ETIR$C_OPR_NOP = '00000064'X ! No-op . P ARAMETER ETIR$C_OPR_ADD = '00000065'X ! Add 3 PARAMETER ETIR$C_OPR_SUB = '00000066'X ! Subtract 3 PARAMETER ETIR$C_OPR_MUL = '00000067'X ! Multiply 1 PARAMETER ETIR$C_OPR_DIV = '00000068'X ! Divide 6 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 1 PARAMETER ETIR$C_OPR_NEG = '0000006C'X ! Negate 5 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 9 PARAMETER ETIR$C_OPR_USH = '00000070'X ! Unsigned shift 1 PARAMETER ETIR$C_OPR_ROT = '00000071'X ! Rotate X PARAMETER ETIR$C_OPR_SEL = '00000072'X ! Select one of three longwords on top of stack N PARAMETER ETIR$C_OPR_REDEF = '00000073'X ! Redefine this symbol after pass 2 = PARAMETER ETIR$C_OPR_DFLIT = '00000074'X ! Define a literal A PARAMETER ETIR$C_MAXOPRCOD = '00000074' X ! Maximum operate code A PARAMETER ETIR$C_MINCTLCOD = '00000096'X ! Minimum control code @ PARAMETER ETIR$C_CTL_SETRB = '00000096'X ! Set relocation base D PARAMETER ETIR$C_CTL_AUGRB = '00000097'X ! Augment relocation base B PARAMETER ETIR$C_CTL_DFLOC = '00000098'X ! Define debug location ? PARAMETER ETIR$C_CTL_STLOC = '00000099'X ! Set debug location A PARAMETER ETIR$C_CTL_STKDL = '0000009A'X ! Stack debug location A PARAMETER ETIR$C_MAXCTLCOD = '0000009A'X ! Maximum control code J PARAMETER ETIR$C_MINSTCCOD = '000000C8'X ! Minimum store-conditional codeG PARAMETER ETIR$C_STC_LP = '000000C8'X ! Store-conditional Linkage Paird PARAMETER ETIR$C_STC_LP_PSB = '000000C9'X ! Store-conditional Linkage Pair with Procedure SignatureU PARAMETER ETIR$C_STC_GBL = '000000CA'X ! Store-conditional Address at global addressZ PARAMETER ETIR$C_STC_GCA = '000000CB'X ! Store-conditional Code Address at global addressT PARAMETER ETIR$C_STC_PS = '000000CC'X ! Store-conditional Address at psect + offsetX PARAMETER ETIR$C_STC_NOP_GBL = '000000CD'X ! Store-conditional NOP at address of globalS PARAMETER ETIR$C_STC_NOP_PS = '000000CE'X ! Store-conditional NOP at pect + offsetU PARAMETER ETIR$C_STC_BSR_GBL = '000000CF'X ! Store-conditional BSR at global addressS PARAMETER ETIR$C_STC_BSR_PS = '000000D0'X ! Store-conditional BSR at pect + offsetU PARAMETER ETIR$C_STC_LDA_GBL = '000000D1'X ! Store-conditional LDA at global addressT 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 + offseta PARAMETER ETIR$C_STC_NBH_GBL = '000000D5'X ! Store-conditional NOP,BSR or HINT at global address` PARAMETER ETIR$C_STC_NBH_PS = '000000D6'X ! Store-conditional NOP,BSR or HINT at psect + offsetJ 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! ! 9! MNEUMONIC DESCRIPTION FORMAT STACK EFFECT9! --------- ----------- ------ ------------2! 0 2 4 6 8 12 16 20 241! | | | | | | | | |1! v v v v v v v v v! M! STA_GBL pushes symbol val ue on stack |type|size|counted string... +1! F! STA_LW pushes longword value on stack |type|size|longword | +1! N! STA_QW pushes quadword value on stack |type|size| quadword | +1! S! STA_PQ pushes image offset associated |type|size| psect | quadword | +1)! with psect index + quadword ! offset on stackL! STA_LI pushes literal value on stack |type|size|counted string... +1! M! STA_MOD pushes image offset associated |type|size|counted string... +1! with module on stack! Q! 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! L! STO_GBL stores value associated with |type|size|counted string... 0"! global symbol at location ! pointer! L! STO_CA stores contents of value |type|size|counted string... 0%! associated with global symbol! +8 at location pointer! K! STO_RB adds offset from location |type|size|psect| quadword | 0 %! pointer to image offset value%!  associated with psect index +#! quadword offset to low word! at location pointer! L! 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! R! STO_IMMR pops repeat count and stores |type|size| size |immediate... -1'! this number of immediates at! location counter! C! STO_LP stores code address at |type|size|counted string... 0! location pointer and global! symbol value at location! pointer + 8! P! STO_IMM stores this number of |type|size| size |immediate... 0)! immediates at location counter! O! STO_GBL_LW stores low order 32 bits of |type|size|counted string... 0$! value associated with global"! sy mbol 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).! Y! STO_BR_GBL Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 |5! 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 bit1! displacement field of instruction'! at location ps1 + off1.! Y! STO_BR_PS Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 |J! 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! @! OPR_ADD pop two elements from stack |type|size| -1! adds and push results! @! 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! @! OPR_DIV pop two elements from stack |typ e|size| -1 ! divides and push results! @! OPR_AND pop two elements from stack |type|size| -1! ANDs and push results! @! OPR_IOR pop two elements from stack |type|size| -1&! inclusive ors and push results! @! 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! @! OPR_INSV pop two elements from stack |type|size| -1$! inserts bit field from first$! into second and push results! @! OPR_USH pop two elements from stack |type|size| -1'! unsigned shift and push results! @! OPR_ASH pop two elements from stack |type|size| -1"! arithmetic shift and push ! results! @! OPR_ROT pop two elements from st ack |type|size| -1! rotate and push results! D! OPR_SEL pop three elements from stack |type|size| -2! if first is true ! then push third! else push second! S! OPR_REDEF pop value from stack and |type|size|counted string... -1#! assign this value to global! symbol! S! OPR_DFLIT pop value from stack and |type|size|counted string... -1$! assign this value to literal! ! D! C TL_SETRB pop value from stack and move |type|size| -1! to location pointer ! Q! CTL_AUGRB add quadword to location |type|size| quadword | 0 ! pointer! T! CTL_DFLOC pop index from stack and save |type|size| quadword index | -1#! current location pointer in! debug table using index! W! 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! W! CTL_STKDL pop index from stack, get |type|size| quadword index | 0!! saved location pointer in#! debug table using index and! push it! ! 9! MNEUMONIC DESCRIPTION FORMAT STACK EFFECT9! --------- ----------- ------ ------------2! 0 2 4 6 8 12 16 20 241! | | | | | | | |  |1! v v v v v v v v v! e! 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 0! it weren't successfully replaced.! by other STC_** commands, then.! store code address at location/! pointer and global symbol value(! at location pointer + 8.! e! STC_LP_PSB If the linkage pair specified |type|size|lp index |counted string...|- 0T! by the index is referenced, |size|signature block...| .! i.e. all instructions ref'ing 0! it weren't successfully replaced.! by other STC_** commands, then.! store code address at location/! pointer and global symbol value.! at location pointer + 8. Store.! signat ure information in fixup,! section following the LP_PSB! fixups.! e! STC_GBL store value associated with |type|size|lp index |counted string... 0-! global symbol (if norm bit is/! set this is the procedure desc.,! address) in the linkage pair,! pointed to by the index only7! if that part of the lp is referenced. 7! When the norm bit is set the index w ill/! point to the second quadword of!! the linkage pair.! e! STC_GCA store the value from the field |type|size|lp index |counted string... 0)! ESDF$L_LP_1 of the global*! symbol in the linkage pair,! pointed to by the index only7! if that part of the lp is referenced. 6! The global symbol must be a procedure,-! and the norm bit must be set..!  The lp index must point to the3! first quadword of the linkage pair.! ! e! 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.! a! STC_NOP_GBL Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - e!  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.! ! a! STC_NOP_PS Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - X! compiler) at the location |repl inst|psc2|qw off2 | - e! pointed to by PS1, offset1 |psc3|qw off3 | 0)! if the displacement from +! ps2, offset2 to ps3,offset3-! can be squished into 21 bits.! a! STC_BSR_GBL Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - e! repl inst) at the location |repl inst|psc2|qw off2 |counted stri ng 0e! 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..! Insert the 21 bit displacement%! into the instruction.! a! STC_BSR_PS Store a BSR (specified in |type|size|lp index |p sc1|qw off1 | - X! repl inst) at the location |repl inst|psc2|qw off2 | - e! 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.! a! STC_LDA_GBL Store a LDA (specified in |typ e|size|lp index |psc1|qw off1 | - e! repl inst) at the location |repl inst|psc2|qw off2 |counted string 0e! pointed to by PS1, 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.0! The global symbol cannot be from"! a shareable image..! Insert the 16 bit displacement%! into the instruction.0! The index is only nonzero if the/! instruction being replaced refs! a linkage pair.! a! STC_LDA_PS Store a LDA (specified in |type|size|lp index |psc1|qw off1 | - X! repl inst) at the location |repl inst|psc2|qw off2 | - e! poin ted to by PS1, offset1 |psc3|qw off3 | 0)! if the displacement from +! ps2, offset2 to ps3,offset3-! can be squished into 16 bits.6! PS3 cannot be a shareable image psect..! Insert the 16 bit displacement%! into the instruction.0! The index is only nonzero if the/! instruction being replaced refs! a linkage pair.! a!  STC_BOH_GBL Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - e! repl inst) at the location |repl inst|ps2 |qw off2 |counted string 0b! 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 /! displacement is too large, then.! store the low order 16 bits of1! the virtual address of the global.! symbol shifted two bits to the'! right into the location! ps1 + off1.! a! STC_BOH_PS Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - V!  repl inst) at the location |repl inst|ps2 |qw off2 | -e! 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 /! displacement is too large, then.! store the low order 16 bits of1 ! the virtual address of the global.! symbol shifted two bits to the'! right into the location! ps1, off1.! a! STC_NBH_GBL Equivalent to STC_NOP_GBL, |type|size|lp index |ps1 |qw off1 | - X! index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - e! off2 + 4, counted string, |repl ins2|counted string... 0/! followed by STC_BOH_GB L, index,/! ps2, off2, ins2, ps2, off2 + 4,! counted string.,! Implicit assumption is that 4! the original instructions (LDQ, JSR)! are contiguous.! a! STC_NBH_PS Equivalent to STC_NOP_PS, |type|size|lp index |ps1 |qw off1 | - X! index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - e! off2 + 4, ps3, off3, |repl ins2|ps3 |qw off3 ! | 0.! followed by STC_BOH_PS, index,/! ps2, off2, ins2, ps2, off2 + 4,! ps3, off3.,! Implicit assumption is that 4! the original instructions (LDQ, JSR)! are contiguous.!  END STRUCTURE ! ETIRDEFCDEC$ END OPTIONSww M !*** MODULE $FABDEF ***CDEC$ OPTIONS /NOALIGN ! +++++*****4! the fields thru ctx must not be modified due to$! commonality between" fab/rab/xab3 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 = '004000$00'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_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 = '00000004'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_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 F &AB$C_HSH = '00000030'X ! hashed " 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'X> PARAMETER FAB$C_RFM_DFLT = '00000002'X ! var len is default E 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 = '0000 '0003'X ! variable fixed control T PARAMETER FAB$C_STM = '00000004'X ! RMS-11 stream (valid only for sequential org) R PARAMETER FAB$C_STMLF = '00000005'X ! LF stream (valid 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! P(ARAMETER FAB$M_AT = '00000010'X' PARAMETER FAB$M_NEVER_RU = '00000020'X+ PARAMETER FAB$M_JOURNAL_FILE = '00000040'X% PARAMETER FAB$M_RCF_RU = '00000001'X% PARAMETER FAB$M_RCF_AI = '00000002'X% PARAMETER FAB$M_RCF_BI = '00000004'X4 PARAMETER FAB$K_BLN = '00000050'X ! length of fab 4 PARAMETER FAB$C_BLN = '00000050'X ! length of fab  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 = 1W 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 = 15A 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 = 1A 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 file 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 PARAMETER 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 FAB$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 P .ARAMETER 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 = 1h PARAMETER FAB$V_SYNCSTS = 22 ! Synchronous status notification for asynchronous routines.$ 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 $ PARAMET 0ER FAB$S_ESC = 1V PARAMETER FAB$V_ESC = 27 ! 'escape' to non-standard function ($modify) $ PARAMETER FAB$S_TEF = 1h PARAMETER FAB$V_TEF = 28 ! truncate at eof on close (write-accessed seq. disk file only) $ 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) 1 BYTE %FILL (4) END MAP END UNION% INTEGER*4 FAB$L_STS ! status + INTEGER*4 FAB$L_STV ! status value 2 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 2 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_BRO3 = 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 4= 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_UPI5 = 1V PARAMETER FAB$V_UPI = 6 ! user provided interlocking (allows multiple ! writers to seq. files) BYTE %FILL (1) 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 %FIL6L (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 = 1O7 PARAMETER FAB$V_BLK = 3 ! records don't cross block boundaries $ PARAMETER FAB$S_MSB = 1B PARAMETER FAB$V_MSB = 4 ! MSB formatted byte count BYTE %FILL (1) END MAP END UNION, BYTE FAB$B_RFM ! record format UNION MAPM 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 8 PARAMETER FAB$V_ONLY_RU = 0 ! file is accessible only in recovery unit # PARAMETER 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 trai 9l journal ) PARAMETER FAB$S_NEVER_RU = 1W PARAMETER FAB$V_NEVER_RU = 5 ! file is never accessible in recovery unit- PARAMETER FAB$S_JOURNAL_FILE = 1G PARAMETER FAB$V_JOURNAL_FILE = 6 ! this is a journal file BYTE %FILL (1) END MAP END UNIONC BYTE FAB$B_RU_FACILITY ! recoverable facility id number" INTEGER*2 %FILL ! (spare)* INTEGER*4 FAB$L_XAB ! xab address 0 INTEGER*4 FAB$L_NAM ! : nam block address 7 INTEGER*4 FAB$L_FNA ! file name string address < INTEGER*4 FAB$L_DNA ! default file name string addr 4 BYTE FAB$B_FNS ! file name string size 7 BYTE FAB$B_DNS ! default name string size 2 INTEGER*2 FAB$W_MRS ! maximum record size 4 INTEGER*4 FAB$L_MRN ! maximum record number 1 INTEGER*2 FAB$W_BLS ! blocksize for tape * BYTE FAB$B_BKS ! bucket size 0 BYTE FAB$B_FSZ ! fixed header size 5 ; INTEGER*4 FAB$L_DEV ! device characteristics > INTEGER*4 FAB$L_SDC ! spooling device characteristics 2 INTEGER*2 FAB$W_GBC ! Global buffer count UNION MAP8 BYTE FAB$B_ACMODES ! agent access modes END MAP MAP) PARAMETER FAB$S_LNM_MODE = 2A PARAMETER FAB$V_LNM_MODE = 0 ! ACMODE for log nams* PARAMETER FAB$S_CHAN_MODE = 2A PARAMETER FAB$V_CHAN_MODE = 2 ! ACMODE for chan<nel* PARAMETER FAB$S_FILE_MODE = 2_ PARAMETER FAB$V_FILE_MODE = 4 ! ACMODE to use for determining file accessibility- PARAMETER FAB$S_CALLERS_MODE = 2S 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 MAP@ BYTE FAB$B_RCF ! (only for use by RMS Recovery) END MAP MAP=' PARAMETER FAB$S_RCF_RU = 1B PARAMETER FAB$V_RCF_RU = 0 ! recovery unit recovery' PARAMETER FAB$S_RCF_AI = 1@ PARAMETER FAB$V_RCF_AI = 1 ! after image recovery' PARAMETER FAB$S_RCF_BI = 1A PARAMETER FAB$V_RCF_BI = 2 ! before image recovery BYTE %FILL (1) END MAP END UNION# INTEGER*4 %FILL ! (spare)  END STRUCTURE ! FABDEFCDEC$ END OPTIONS ww %!***> MODULE $FALDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:50.87! ! ! VERSION: 'X-3'! ! * *5! * COPYRIGHT (C) 1978, 1980, 1982, 1984 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. *! * *! * *! ! ++ ! FACILITY:! G! MESSAGES ARE FOR THE FAL (DECNET FILE ACCESS LISTENER) FACILITY, BUT)! ARE GENERATED ON BEHALF OF FAL BY RMS.! ! ABSTRACT:! H! THIS MODULE DEFINES FAL STATUS CODE SYMBOLS AND CORRESPONDING MESSAGEG! TEXT. NOTE THAT THIS MESSAGE FILE IS MAINTAINED BY THE ARMS FACILITY,G! NOT THE FAL FACILITY, BECAUSE RMS DOES THE TRANSLATION OF DAP STATUSK! INTO FAL STATUS CODES WHICH ARE REPORTED AS SECONDARY STATUS INFORMATIONJ! TO THE RMS$_NETFAIL AND RMS$_SUPPORT COMPLETION CODES ON BEHALF OF FAL.! ! ENVIRONMENT: VAX/VMS! 6! AUTHOR: JAMES A. KRYCKA, CREATION DATE: 15-JAN-1982! ! MODIFIED BY:! -! X-3 SAD009 STUART A. DAVIDSON 06-OCT-1986 ! ADD STATUS CODES FOR SNADTF.! (! X-2 DAS DAVID A. SOLOMON 01-AUG-19869! REMOVE /MACRO=B 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.! ! --! ++D! DEFINE FAL STATUS CODES FOR USE BY RMS AS SECONDARY STATUS CODES.! ! LAYOUT OF MESSAGE SPACE:! 0! MSG NUMBERS MSG NUMBERS MSG CODES DESCRIPTION(! (DECIMAL) (HEXADECIMAL) (HEXADECIMAL)! -! 0 - 1023 C 0000 - 03FF 8000 - 9FFF UNUSED7! 1024 - 2047 0400 - 07FF A000 - BFFF FOR RMS$_NETFAIL7! 2048 - 4095 0800 - 0FFF C000 - FFFF FOR RMS$_SUPPORT! --& PARAMETER FAL$_FACILITY = '000001F7'X! +O! DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_NETFAIL COMPLETION8! CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB.! I! USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITHM! MACCODE = 4 THRU 7) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS):! C D! MESSAGE-CODE = (2**15 + ((MICCODE + 1024) * 8) + SEVERITY-LEVEL)! J! NOTE: THE FIRST THREE CHARACTERS OF THE MESSAGE IDENTIFICATION MNEMONICE! FOR EACH MESSAGE CODE IN THIS SET INDICATES ITS ORIGIN AS FOLLOWS:! H! RMS --- THE CODE IS DEFINED FOR RMS-11 OR RMS-20, BUT NOT FOR RMS-32.8! (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.6! DAP --- ORIGIN IN THE DEAP 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$_RMSINIF = '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$_RMGSSTK = '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$_RMSUDFH = '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 = 'I01F7A574'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$J 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 = K'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% PARAMET LER 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' PARAMETER FAL$_TENSFDREN = '01F7A8EC'X' PARAMETER FAL$_TENCDFNDR = '01F7A8F4'X' PARAMETER FAL$_TENJCREAD = '01F7A8FC'X' PARAMETER FAL$_TENRENSFMD = '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& P NARAMETER 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 = 'O01F7A9C4'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! +O! DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_SUPPORT COMPLETION8! CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB.! I! USE THE FOLLOWING FORMULA TO MAP A DAP STAT PUS CODE (STSCODE FIELD WITHF! MACCODE = 2) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS):! C! MESSAGE-CODE = (2**15 + ((MICCODE + 2048) * 8) + SEVERITY-LEVEL)! N! NOTE: THE INTENT IN THIS SECTION IS TO DEFINE FAL STATUS CODES ONLY FOR DAPG! FIELDS THAT CORRESPOND DIRECTLY TO RMS CONTROL BLOCK FIELDS USED FORH! INPUT. FOR OTHER DAP FIELDS THAT MAY BE REJECTED BY THE REMOTE FAL ASI! BEING UNSUPPORTED, THE RMS$_SUP COMPLETION CODE IS RETURNED IN THE STSH! FIELD OF THE FAB ORQ 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 = '01F7RC4E4'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 = '01F7C884'X! MICCODE = 0422 (OCTAL)! PARAMETER FAL$_RAC = '01F7C894'X! PARAMETER FAL$_KEY = '01F7C89C'X! PARAMETER FAL$_KRF = '01F7C8A4'X! PARAMETER FAL$_ROP = '01FS7C8AC'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$_TNUL = '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'XU! 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'XCDEC$ END OPTIONSww !*** MODULE $FDLDEF ***CDEC$ OPTIONS /NOALIGN! +#! FVDL CALL INTERFACE CONTROL FLAGS! -% PARAMETER FDL$M_SIGNAL = '00000001'X) PARAMETER FDL$M_FDL_STRING = '00000002'X- PARAMETER FDL$M_DEFAULT_STRING = '00000004'X* PARAMETER FDL$M_FULL_OUTPUT = '00000008'X( PARAMETER FDL$M_$CALLBACK = '00000010'X STRUCTURE /FDLDEF/ UNION MAP# PARAMETER FDL$S_SIGNAL = 1C PARAMETER FDL$V_SIGNAL = 0 ! SIGNAL ERRORS, DON'T RETURN' PARAMETER FDL$S_FDL_STRING = 1J PARAMETER FDL$V_FDL_STRING = 1 ! MAIN FDL SPEC WIS A CHAR STRING+ PARAMETER FDL$S_DEFAULT_STRING = 1P PARAMETER FDL$V_DEFAULT_STRING = 2 ! DEFAULT FDL SPEC IS A CHAR STRING( PARAMETER FDL$S_FULL_OUTPUT = 1J PARAMETER FDL$V_FULL_OUTPUT = 3 ! PRODUCE A 'COMPLETE' FDL SPEC& PARAMETER FDL$S_$CALLBACK = 1J PARAMETER FDL$V_$CALLBACK = 4 ! USED BY EDF ON INPUT (DEC ONLY) BYTE %FILL (1) END MAP END UNION END STRUCTURE ! FDLDEFCDEC$ END OPTIONS ww!***X MODULE $FDLMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:18.34! ! ! VERSION: 'X-4'! ! * *5! * COPYRIGHT (C) 1978, 1980, 1982, 1984 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 Y 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. *! Z* *N! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! * *! * *! ++! !! FACILITY: VAX-11 FDL UTILITIES! ! ENVIRONMENT:! ! VAX/VMS OPERATING SYSTEM! ! ABSTRACT:! FDL ERROR MESSAGES! ! ! --! 6! AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980! ! ! MODIFIED BY:! %! X-4 BP BOB PREMOVICH 22-JUL-1998,! MERGE [IN OPENVMS ALPHA RAVEN_FT3 CHANGE:! (! X-4 BP026 BOB PREMOVICH 28-MAY-19988! CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT 4! WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO6! FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET ! FACILITY.! ,! 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! /! V03-001 KBT0033 KEITH THOMPSON 31-MAR-1982! ADD INVDATIM MESSAGE! ! ****& PARAMETER FDL$_FACILITY = '000000B4'XH PARAMETER FDL$_BADLOGIC = '00B41122'X ! K PARAMETER FDL$_CLOSEIN = '00B41052'X ! /FAO=1M PARAM]ETER FDL$_CLOSEOUT = '00B4105A'X ! /FAO=1< PARAMETER FDL$_CREATED = '00B41073'X ! /FAO=1Y PARAMETER FDL$_CREATEDSTM = '00B412FB'X ! /FAO=1G PARAMETER FDL$_INSVIRMEM = '00B412F2'X ! J PARAMETER FDL$_OPENIN = '00B4109A'X ! /FAO=1L PARAMETER FDL$_OPENOUT = '00B410A2'X ! /FAO=1B PARAMETER FDL$_READERR = '00B410B2'X ! /FAO=1N PARAMETER FDL$_VALERR = '00B411EA'X ! C 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% PARAMETER FDL$_NULLPRI = '00B48030'X# PARAMETER FDL$_RFLOC = '00B48038'X$ PARAMETER FDL$_VALPRI = '00B4_8040'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'XCDEC$ END OPTIONSww-!*** MODULE $FIBDEF ***CDEC$ OPTIONS /NOALIGN! ----! 0! LAYOUT OF THE FILE IDENTIFICATION BLOCK (FIB)! ! ****! V! NOTE: If the size of the FIB is changed the following must be changed(! to reflect the change:! :! In Module: [RMS.SRC]RMSFWADEF.SDL! 4! Field: FWA$T_FIBBUF! /! aConstant: FWA$C_FIBLEN! H! Both the field and constant must be GEQ to the size ofI! the FIB, i.e. FIB$C_LENGTH. FIB length is currently 96.! H! N.B. FWA$C_FIBLEN is currently set to the values of FIB$C_F64LENA! due to some nasty hackery in som e other facilities.! ! ****! & PARAMETER FIB$M_NOWRITE = '00000001'X$ PARAMETER FIB$M_DLOCK = '00000002'X' PARAMETER FIB$M_BLK_LOCK = '00000004'X* PARAMETER FIB$M_FASTRDSQNOS = '000000b08'X$ PARAMETER 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_EXECUTE = '00010000'X( PARAMETER FIB$M_PRSRV_ATR = '00020000'X& PARAMETER FIB$M_R cMSLOCK = '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'XJ PARAMETER FIB$K_ACCDATA = '0000000A'X ! ABOVE DATA NECESSARY FOR ACCESS J PARAMETER FIB$C_ACCDATA = '0000000A'X ! ABOVE DATA NECESSARY FOR ACCESS Q P dARAMETER FIB$K_DIRDATA = '00000016'X ! ABOVE DATA NECESSARY FOR DIRECTORY OPS Q 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_WILD = '00000100'X% PARAMETER FIB$M_NEWVER = '00000200'X( PARAM eETER FIB$M_SUPERSEDE = '00000400'X& PARAMETER FIB$M_FINDFID = '00000800'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 = '00000004'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 = '0000 f0400'X& PARAMETER FIB$M_NOPLACE = '00004000'X' PARAMETER FIB$M_NOCHARGE = '00008000'XS PARAMETER FIB$K_EXTDATA = '00000020'X ! ABOVE NECESSARY FOR BASIC FILE EXTENSION S PARAMETER FIB$C_EXTDATA = '00000020'X ! ABOVE NECESSARY FOR BASIC FILE EXTENSION $ PARAMETER FIB$M_EXACT = '00000001'X$ PARAMETER FIB$M_ONCYL = '00000002'XA PARAMETER FIB$C_CYL = '00000001'X ! CYLINDER ADDRESS SPECIFIED 4 PARAMETER FIB$C_LBN = '00000002'X ! LBN SPECIFIED > PARAMETER FIB$C_VBN = '00000003'X ! PROXIMAT gE VBN SPECIFIED @ PARAMETER FIB$C_RFI = '00000004'X ! RELATED FILE ID SPECIFIED M PARAMETER FIB$K_ALCDATA = '0000002C'X ! ABOVE DATA NECESSARY FOR PLACEMENT M PARAMETER FIB$C_ALCDATA = '0000002C'X ! ABOVE DATA NECESSARY FOR PLACEMENT & PARAMETER FIB$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 h 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'XJ PARAMETER FIB$K_MOVEFILE = '00000048'X ! end of FIB required by MOVEFILEJ 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'XC PARAMETER FIB$C_DEFAULT = '00000000'X ! Use i default caching policyF PARAMETER FIB$C_WRITETHROUGH = '00000001'X ! Use writethrough cachingD PARAMETER FIB$C_WRITEBEHIND = '00000002'X ! Use writebehind caching< PARAMETER FIB$C_NOCACHING = '00000003'X ! Do not cache file- PARAMETER FIB$M_FLUSH_ON_CLOSE = '00000F00'XM PARAMETER FIB$C_FLUSH = '00000001'X ! Flush file from cache when file closedN PARAMETER FIB$C_NOFLUSH = '00000002'X ! Retain file in cache when file closed2 PARAMETER FIB$M_CACHING_OPTIONS_MBZ = 'FFFFF000'XH PARAMETER FIB$C j_ODS2 = '00000000'X ! Name is ODS-2 legal ASCII encodedB PARAMETER FIB$C_ISL1 = '00000001'X ! Name is 8-bit (ISO Latin 1)< PARAMETER FIB$C_ISO_LATIN = '00000001'X ! Synonym for ISL10! NOTE - Name format type 2 reserved (was UTF8)C PARAMETER FIB$C_UCS2 = '00000003'X ! Name is UCS-2 encoded (both)V 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 = '000k00060'X% PARAMETER FIB$C_F64LEN = '00000060'X STRUCTURE /FIBDEF/ UNION MAP8 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 = 1@ PARAMETER FIB$V_DLOCK = 1 ! ENABLE DEACCESS LOCK ) PARAMETER FIB$S_BLK_LOCK = 1J PARAMETER FIB$V_BLK_LOCK = 2 ! ENABLE RMS-11 BL lOCK LOCKING , PARAMETER FIB$S_FASTRDSQNOS = 1M 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 = 1@ PARAMETER FIB$V_WRITECK = 5 ! ENABLE WRITE CHECK ( PARAMETER FIB$S_SEQONLY = 1D PARAMETER FIB$V_SEQONLY = 6 ! SEQUENTIAL ONLY ACCESS & PARAMETER FIB$S_SEQNO = 1E m PARAMETER FIB$V_SEQNO = 7 ! STORE SEQNOS FOR THIS FILE& PARAMETER FIB$S_WRITE = 18 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 = 1H PARAMETER FIB$V_NOTRUNC = 11 ! FILE MAY NOT BE TRUNCATED ( n PARAMETER FIB$S_CONTROL = 1D PARAMETER FIB$V_CONTROL = 12 ! CONTROL ACCESS TO FILE- PARAMETER FIB$S_NO_READ_DATA = 1M PARAMETER FIB$V_NO_READ_DATA = 13 ! NO READ ACCESS TO FILE DATA#! THE HIGH 8 BITS CANNOT BE COPIED*! INTO THE ACCESS MODE WORD IN THE WINDOW( PARAMETER FIB$S_EXECUTE = 1Z PARAMETER FIB$V_EXECUTE = 16 ! ACCESS FOR EXECUTE (USE EXECUTE PROTECTION) * PARAMETER FIB$S_PRSRV_ATR = 1U P oARAMETER FIB$V_PRSRV_ATR = 17 ! PRESERVE ORIGINAL ATTRIBUTES OF FILE ( PARAMETER FIB$S_RMSLOCK = 1K PARAMETER FIB$V_RMSLOCK = 18 ! OPEN WITH RMS RECORD LOCKING * PARAMETER FIB$S_WRITETHRU = 1W PARAMETER FIB$V_WRITETHRU = 19 ! FORCE CACHE WRITE-THROUGH ON OPERATION ' PARAMETER FIB$S_NOLOCK = 1H PARAMETER FIB$V_NOLOCK = 20 ! OVERRIDE ACCESS INTERLOCKS ) PARAMETER FIB$S_NORECORD = 1I PARAM pETER FIB$V_NORECORD = 21 ! DO NOT RECORD FILE ACCESS ) PARAMETER FIB$S_NOVERIFY = 1N PARAMETER FIB$V_NOVERIFY = 22 ! Do not perform compare on move.+ PARAMETER FIB$S_CHANGE_VOL = 1, PARAMETER FIB$V_CHANGE_VOL = 23O BYTE %FILL (3) ! Allow Movefile move between volumes in a set. END MAP MAP' PARAMETER FIB$S_REWIND = 18 PARAMETER FIB$V_REWIND = 3 ! REWIND TAPE ' PARAMqETER FIB$S_CURPOS = 1L PARAMETER FIB$V_CURPOS = 4 ! CREATE AT CURRENT TAPE POSITION ' PARAMETER FIB$S_UPDATE = 1T PARAMETER FIB$V_UPDATE = 6 ! UPDATE MODE (POSITION TO START OF FILE)  BYTE %FILL (1) END MAP MAP! BYTE %FILL(1:3)4 BYTE FIB$B_WSIZE ! WINDOW SIZE  END MAP END UNION UNION MAP. INTEGER*2 FIB$W_FID(1:3) ! FILE ID  END MAP r MAP6 INTEGER*2 FIB$W_FID_NUM ! FILE NUMBER ? INTEGER*2 FIB$W_FID_SEQ ! FILE SEQUENCE NUMBER  UNION MAPE INTEGER*2 FIB$W_FID_RVN ! RELATIVE VOLUME NUMBER  END MAP MAPA BYTE FIB$B_FID_RVN ! SHORT FORM RVN G BYTE FIB$B_FID_NMX ! EXTENDED FILE NUMBER  END MAP END UNION END MAP s MAPG INTEGER*2 FIB$W_FID_DIRNUM ! Directory number of File-IdD INTEGER*4 FIB$L_FID_RECNUM ! Record number of File-ID END MAP END UNION UNION MAP3 INTEGER*2 FIB$W_DID(1:3) ! DIRECTORY ID  END MAP MAP6 INTEGER*2 FIB$W_DID_NUM ! FILE NUMBER ? INTEGER*2 FIB$W_DID_SEQ ! FILE SEQUENCE NUMBER  UNION MAPE INTEGER*2 FIB$W_DID_RtVN ! RELATIVE VOLUME NUMBER  END MAP MAPA BYTE FIB$B_DID_RVN ! SHORT FORM RVN G BYTE FIB$B_DID_NMX ! EXTENDED FILE NUMBER  END MAP END UNION END MAP MAPG INTEGER*2 FIB$W_DID_DIRNUM ! Directory number of File-IdD INTEGER*4 FIB$L_DID_RECNUM ! Record number of File-ID END MAP END UNION0 INTEGER*4 FIB$L_W uCC ! WILD CARD CONTEXT UNION MAP6 INTEGER*2 FIB$W_NMCTL ! NAME CONTROL BITS  END MAP MAP+ PARAMETER FIB$S_NAMES_8BIT = 1L PARAMETER FIB$V_NAMES_8BIT = 0 ! RETURN 8BIT FILENAMES (HFS), PARAMETER FIB$S_NAMES_16BIT = 1M PARAMETER FIB$V_NAMES_16BIT = 1 ! RETURN 16BIT FILENAMES (HFS)0 PARAMETER FIB$S_PERCENT_LITERAL = 1P PARAMETER FIB$V_PERCENT_LITERAL = 2 ! PERCENT IS L vITERAL (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_WILD = 1B PARAMETER FIB$V_WILD = 8 ! WILD CARDS IN FILE NAME ' PARAMETER FIB$S_NEWVER = 1D PARAMETER w FIB$V_NEWVER = 9 ! MAXIMIZE VERSION NUMBER * PARAMETER FIB$S_SUPERSEDE = 1H PARAMETER FIB$V_SUPERSEDE = 10 ! SUPERSEDE EXISTING FILE ( PARAMETER FIB$S_FINDFID = 1A PARAMETER FIB$V_FINDFID = 11 ! SEARCH FOR FILE ID ' PARAMETER FIB$S_LOWVER = 1J PARAMETER FIB$V_LOWVER = 14 ! LOWER VERSION OF FILE EXISTS ( PARAMETER FIB$S_HIGHVER = 1) PARAMETER FIB$V_HIGHVER = 15@ BYTE %FILL (2x) ! HIGHER VERSION OF FILE EXISTS  END MAP END UNION UNION MAP3 INTEGER*2 FIB$W_EXCTL ! EXTEND CONTROL  END MAP MAP& PARAMETER FIB$S_ALCON = 1? PARAMETER FIB$V_ALCON = 0 ! ALLOCATE CONTIGUOUS ' PARAMETER FIB$S_ALCONB = 1C PARAMETER FIB$V_ALCONB = 1 ! CONTIGUOUS BEST EFFORT ' PARAMETER FIB$S_FILCON = 1A PARAMETER FIB$V_FILCON = 2 ! MARK FILE CONTIG yUOUS & PARAMETER FIB$S_ALDEF = 1C PARAMETER FIB$V_ALDEF = 3 ! ALLOCATE DEFAULT AMOUNT ) PARAMETER FIB$S_ALLOCATR = 1W 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 = 1H z 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 = 1V PARAMETER FIB$V_NOPLACE = 14 ! DON'T ADD PLACEMENT POINTERS IN MOVEFILE) PARAMETER FIB$S_NOCHARGE = 1* PARAMETER FIB$V_NOCHARGE = 159 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 MAP8 BYTE FIB$B_ALOPTS ! ALLOCATION OPTIONS  END MAP MAP& PARAMETER FIB$S_EXACT = 1D PARAMETER FIB$V_EXACT = 0 ! EXACT PLACEMENT REQUIRED & PARAMETER FIB$S_ONCYL = 1J PARAMETER FIB$V_ONCYL = 1 ! PUT ALLOCATION ON ONE CYLINDER  BYTE %FILL (1) END MAP END UNION7 BYTE FIB$B_ALA|LIGN ! ALLOCATION ALIGNMENT UNION MAP< INTEGER*2 FIB$W_ALLOC(1:5) ! ALLOCATION LOCATION  END MAP MAP UNION MAPB INTEGER*2 FIB$W_LOC_FID(1:3) ! RELATED FILE ID  END MAP MAPF INTEGER*2 FIB$W_LOC_NUM ! RELATED FILE NUMBER G INTEGER*2 FIB$W_LOC_SEQ ! FILE SEQUENCE NUMBER  UNION } MAPB INTEGER*2 FIB$W_LOC_RVN ! RELATED RVN END MAP MAPI BYTE FIB$B_LOC_RVN ! SHORT FORM RVN O BYTE FIB$B_LOC_NMX ! EXTENDED FILE NUMBER END MAP END UNION END MAP END UNIONK INTEGER*4 FIB$L_LOC_ADDR ! LOCATION ADDRESS (VBN, LBN, CYL)  END~ MAP END UNION@ INTEGER*2 FIB$W_VERLIMIT ! DIRECTORY ENTRY VERSION LIMIT 6 BYTE FIB$B_AGENT_MODE ! AGENTS ACCESS MODE> BYTE FIB$B_RU_FACILITY ! RECOVERABLE-FACILITY CODE6 INTEGER*4 FIB$L_ACLCTX ! ACL CONTEXT FOR READ D 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 = 1F  PARAMETER FIB$V_ALT_REQ = 0 ! ALTERNATE ACCESS REQUIRED, PARAMETER FIB$S_ALT_GRANTED = 1I PARAMETER FIB$V_ALT_GRANTED = 1 ! ALTERNATE ACCESS GRANTED' PARAMETER FIB$S_DIRACL = 1H PARAMETER FIB$V_DIRACL = 2 ! DO DIRECTORY ACL PROPAGATION* PARAMETER FIB$S_PROPAGATE = 1M PARAMETER FIB$V_PROPAGATE = 3 ! DO PROPAGATION ON ENTER/MODIFY* PARAMETER FIB$S_NOCOPYACL = 1F PARAMETER FIB$V_NOCOPYACL  = 4 ! DON'T PROPAGATE THE ACL, PARAMETER FIB$S_NOCOPYOWNER = 1N PARAMETER FIB$V_NOCOPYOWNER = 5 ! DON'T PROPAGATE THE OWNER UIC+ PARAMETER FIB$S_NOCOPYPROT = 1S 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 F IB$V_ALIAS_ENTRY = 8 ! FILE ACCESSED VIA AN ALIAS DIRECTORY ENTRY- PARAMETER FIB$S_WILDFID_FLAG = 1B PARAMETER FIB$V_WILDFID_FLAG = 9 ! WILDCARD FID FLAG- PARAMETER FIB$S_DID_FILESPEC = 1J PARAMETER FIB$V_DID_FILESPEC = 10 ! FILESPEC HAS BEEN DID'ED BYTE %FILL (2) END MAP END UNION9 INTEGER*4 FIB$L_ALT_ACCESS ! ALTERNATE ACCESS MASK UNION MAPA INTEGER*4 FIB$L_MOV_SVBN ! starting  VBN (MOVEFILE)D INTEGER*4 FIB$L_MOV_VBNCNT ! count of VBNs (MOVEFILE) END MAP END UNIONN INTEGER*2 FIB$W_FILE_HDRSEQ_INCR ! header seq no increment for indiv fileR INTEGER*2 FIB$W_DIR_HDRSEQ_INCR ! header seq no increment for directory fileM INTEGER*2 FIB$W_FILE_DATASEQ_INCR ! data seq no increment for indiv fileP INTEGER*2 FIB$W_DIR_DATASEQ_INCR ! data seq no increment for driectory fileI! Define fields and constant values for FIB$L_CACHING_OP TIONS longword./! These must match [STARLET]ATRDEF.SDL exactly UNION MAPJ INTEGER*4 FIB$L_CACHING_OPTIONS ! F64XQP cache control bitvector END MAP MAP0 PARAMETER FIB$S_FILE_ATTRIBUTES = 4P PARAMETER FIB$V_FILE_ATTRIBUTES = 0 ! File attributes caching field. PARAMETER FIB$S_FILE_CONTENTS = 4L PARAMETER FIB$V_FILE_CONTENTS = 4 ! File contents caching field/ PARAMETER FIB$S_FLUSH_ON_CLOSE = 4K 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 MAP1 INTEGER*2 FIB$W_SD_FID(1:3) ! FILE ID  END MAP MAP8 INTEGER*2 FIB$W_SD_FID_NUM ! FILE NUMBER A INTEGER*2 FIB$W_SD_FID_SEQ ! FILE SEQUENCE NUMBER  UNION MAPG INTEGER*2 FIB$W_SD_FID_RVN ! RELATIVE VOLUME NUMBER  END MAP MAPC BYTE FIB$B_SD_FID_RVN ! SHORT FORM RVN I BYTE FIB$B_SD_FID_NMX ! EXTENDED FILE NUMBER  END MAP END UNION END MAP END UNION8 INTEGER*2 %FILL ! Pad up to a longword boundaryB BYTE FIB$B_NAME_FORMAT_IN ! Inbound file name encodingH BYTE FIB$B_NAME_FORMAT_OUT ! Returned file name encoding B BYTE FIB$B_ASCNAME_FORMAT ! ASCNAME attribute encodingK BYTE FIB$B_RESERVED_2 ! For alignment. NOTE - Must be zero.  END STRUCTURE ! FIBDEF> PARAMETER FIB$C_REWINDVOL = '00000001'X ! REWIND VOLUME SET G 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 = '00000004'X ! SPACE MAGNETIC TAPE * PARAMETER FIB$C_ILLEGAL = '00000005'X ! 8 PARAMETER FIB$C_REWINDFIL = '00000006'X ! REWIND FILE J PARAMETER FIB$C_LOCK_VOL = '00000007'X ! LOCK VOLUME AGAINST ALLOCATION 9 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 A PARAMETER FIB$C_ADD_QUOTA = '0000000B'X ! ADD QUOTA FILE ENTRY E PARAMETER FIB$C_EXA_QUOTA = '0000000C'X ! EXAMINE QUOTA FILE ENTRY D PARAMETER FIB$C_MOD_QUOTA = '0000000D'X ! MODIFY QUOTA FILE ENTRY D PARAMETER FIB$C_REM_QUOTA = '0000000E'X ! REMOVE QUOTA FILE ENTRY K PARAMETER FIB$C_USEREOT = '0000000F'X ! ENABLE USER END OF TAPE HANDLING : PARAMETER FIB$C_REMAP = '00000010'X ! REMAP FILE WINDOW d PARAMETER FIB$C_CLSEREXCP = '00000011'X ! ALLOW THE USER TO CLEAR A SERIOUS EXCP FROM A TAPE DRIVEB PARAMETER FIB$C_FLUSH_CACHE = '00000012'X ! FLUSH SELECTED CACHEL PARAMETER FIB$C_FORCE_MV = '00000013'X ! FORCE MOUNT VERIFICATION TO OCCURb PARAMETER FIB$C_VALIDATE_VOLUME = '00000014'X ! VALIDATE VOLUME SET FOLLOWING SNAPSHOT FILE BOOTZ PARAMETER FIB$C_VALIDATE_FILE = '00000015'X ! VALIDATE FILE FOLLOWING SNAPSHOT FILE BOOTc PARAMETER FIB$C_UPDATE_VOL_PROFILE = '00000016'X ! UPDATE A VOLUME'S (PERMANENT) SECURITY PROFILEa PARAMETER FIB$C_UPDATE_FIL_PROFILE = '00000017'X ! UPDATE A FILE'S (PERMANENT) SECURITY PROFILEZ PARAMETER 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 THREADB PARAMETER FIB$C_EXA_THREAD = '0000001B'X ! INQUIRE ABOUT THREADSK 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= PARAMETER FIB$C_WRITEBACK_CACHE = '0000001F'X ! F64 caching= PARAMETER FIB$C_WRITETHRU_CACHE = '00000020'X ! F64 cachingL PARAMETER FIB$C_FILE_SYNCH = '00000021'X ! VDC/Spiralog flush file to diskR PARAMETER FIB$C_CACHING_OPTIONS = '00000022'X ! VDC/Spiralog select caching modeY PARAMETER FIB$C_WRITE_BARRIER = '00000023'X ! VDC/Spiralog barrier writes to this pointL PARAMETER FIB$C_VOL_FLUSH = '00000024'X ! VDC volume flush local node onlyU PARAMETER FIB$C_VOL_FLUSH_ALL = '00000025'X ! VDC flush all volumes local node onlyf PARAMETER F IB$C_CLONE_FIL_PROFILE = '00000026'X ! Return a copy of a file's current security profileB PARAMETER FIB$C_STRUC_LEVEL2 = '00000027'X ! Set the vcb to ods2B PARAMETER FIB$C_STRUC_LEVEL5 = '00000028'X ! Set the vcb to ods5? PARAMETER FIB$K_MTALEN = '0000001C'X ! LENGTH OF MTAACP DATA ? PARAMETER FIB$C_MTALEN = '0000001C'X ! LENGTH OF MTAACP DATA ! ? PARAMETER FIB$C_FID_CACHE = '00000001'X ! FLUSH THE FID CACHEE PARAMETER FIB$C_EXTENT_CACHE = '00000002'X ! FLUSH THE EXTENT CACHEC PAR AMETER FIB$C_QUOTA_CACHE = '00000003'X ! FLUSH THE QUOTA CACHEA PARAMETER FIB$C_BFRD_CACHE = '00000004'X ! FLUSH THE BFRD CACHE? PARAMETER FIB$C_VBN_CACHE = '00000005'X ! FLUSH THE VBN CACHE! R PARAMETER FIB$C_FLUSH_FILE_ATTRIBUTES = '00000001'X ! Only flush file attributesN PARAMETER 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)8 INTEGER*2 FIB$W_CNTRLFUNC ! ACP CONTROL FUNCTION $! DEFINE ACP CONTROL FUNCTION CODES! UNION MAPK INTEGER*4 FIB$L_CNTRLVAL ! ACP CONTROL FUNCTION VALUE PARAMETER  END MAP)! CACHE IDENTIFIER CODES FOR FLUSH_CACHE! 0! Files-64 CACHE IDENTIFIER CODES FOR FILE_SYNC ! )! CONTROL BITS FOR QUOTA FILE OPERATIONS! MAP( PARAMETER FIB$S_ALL_MEM = 1F PARAMETER FIB$V_ALL_MEM = 0 ! MATCH ALL MEMBER NUMBERS ( PARAMETER FIB$S_ALL_GRP = 1E PARAMETER FIB$V_ALL_GRP = 1 ! MATCH ALL GROUP NUMBERS ( PARAMETER FIB$S_MOD_USE = 1? PARAMETER FIB$V_MOD_USE = 2 ! MODIFY USAGE DATA ) PARAMETER FIB$S_MOD_PERM = 1E PARAMETER FIB$V_MOD_PERM = 3 ! MODIFY PERMANENT QUOTA ) PARAMETER FIB$S_MOD_OVER = 1E PARAMETER FIB$V_MOD_OVER = 4 ! MODIFY OVERDRAFT LIMIT  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! FIBDEF1@! Add a synonym for FIB$C_FILE_SYNCH to keep naming consistency) PARAMETER FIB$C_FILE_FLUSH = '00000021'XCDEC$ END OPTIONS ww !*** MODULE $FIDDEF ***CDEC$ OPTIONS /NOALIGN! ! STRUCTURE OF A FILE ID (FID)! % PARAMETER FID$K_LENGTH = '00000006'X% P ARAMETER FID$C_LENGTH = '00000006'X4 PARAMETER FID$C_INDEXF = '00000001'X ! INDEX FILE : PARAMETER FID$C_BITMAP = '00000002'X ! STORAGE MAP FILE 8 PARAMETER FID$C_BADBLK = '00000003'X ! BAD BLOCK FILE < PARAMETER FID$C_MFD = '00000004'X ! MASTER FILE DIRECTORY 9 PARAMETER FID$C_CORIMG = '00000005'X ! CORE IMAGE FILE > PARAMETER FID$C_VOLSET = '00000006'X ! VOLUME SET LIST FILE D PARAMETER FID$C_CONTIN = '00000007'X ! STANRARD CONTINUATION FILE 9 PARAMETER FID$C_BACKUP = '00000008'X !  BACKUP LOG FILE < PARAMETER FID$C_BADLOG = '00000009'X ! BAD BLOCK LOG FILE 9 PARAMETER FID$C_FREFIL = '0000000A'X ! FREE SPACE FILE  STRUCTURE /FIDDEF/ UNION MAP@ INTEGER*2 FID$W_FID(1:3) ! File Identification Number END MAP MAP2 INTEGER*2 FID$W_NUM ! FILE NUMBER ; INTEGER*2 FID$W_SEQ ! FILE SEQUENCE NUMBER  UNION MAPA INTEGER*2 FID$W_RVN ! RELATIVE VOLUME NUMBER  END MAP MAP? BYTE FID$B_RVN ! BYTE FORM OF RVN D BYTE FID$B_NMX ! FILE NUMBER EXTENSION  END MAP END UNION END MAP MAPD INTEGER*2 FID$W_DIRNUM ! Directory number of File-IdA INTEGER*4 FID$L_RECNUM ! Record number of File-ID END MAP END UNION END STRUCTURE ! FIDDEFCDEC$ END OPTIONS ww ȏ!*** MODULE $FMLDEF ***CDEC$ OPTIONS /NOALIGN! ?! Appended to a procedure definition are the formal arguments:C! 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 T BYTE FML$B_MAXARGS ! Maximum which include function if procedure is one  END STRUCTURE ! FMLDEFCDEC$ END OPTIONS ww-Y!*** MODULE $FORDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:55.34! ! ! * *@! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1993 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 SUC H 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. *! * *! * *! ! :! 1-014 - ADD ERRORS 17-19 FOR NAMELIST. SBL 10-NOV-19806! 1-015 - CORRECT TYPO IN TOOMANVAL. SBL 15-DEC-1980O! 1-016 - RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015.! SBL 6-JAN-1981M! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTE D FROM FORMSG.MDL$! VERSION 1-016. SBL 22-APR-1981E! 2-002 - ADD UNFIO_FMT, FMTIO_UNF, DIRIO_KEY, SEQIO_DIR, KEYIO_DIR,6! IO_NONFOR, INVTXTREC, FLOUNDEXC. JAW 23-AUG-1981:! 2-003 - CHANGE INVTXTREC TO INVTEXREC. JAW 24-AUG-1981R! 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXEDP! AND INTERNAL FILES THAT DO NOT HAVE A VALID RECORD NUMBER. DGP 21-DEC-1981'! 2-005 - ADD .TITLE. SBL 28-AUG-19827! 2-006 - ADD OPEREQDIS AND OPEREQSEQ. SBL 2-JUN-19833! 2-007 - ADD ULTRIX SPECIFIC ERRORS AND WARNINGS.+! 2-008 - ADD INVMATKEY. DJM 14-SEP-1987.1! 2-009 - ADD FORRTL2 MESSAGES. CHH 22-SEP-1987! X-4 STEVE LIONEL 16-OCT-1989! ADD SUBPRCDEL,UNAWAKSUB'! X-5 SBL1001 22-OCT-1991 STEVE LIONEL! ADD FOR$_VECALIGNEXC,! X-6 SBL6100 STEVEN B. LIONEL 15-MAR-1993! ADD FLOCONFAI! --! +?! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:! ! FOR$_ABCMNOXYZ! L! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",N! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR3! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.! M! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR7! 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.7! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).?!  THESE SYMBOLS ARE DECLARED EXTERNAL BY THE RUN-TIME LIBRARY,@! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER.! -2! ; MAKE ALL ERRORS BE SEVERE (EXCEPT AS NOTED)2! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE! ; SET LH TO 24 (DECIMAL).& PARAMETER FOR$_FACILITY = '00000018'X' PARAMETER FOR$_NOTFORSPE = '0018800C'X2! ; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR3! ; 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'X2! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE! ; SET LH TO 24 (DECIMAL).' 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 FOR$_ 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$_ATTACCNON = '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$_INVARGFOR = '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'X2! ; SET SUB-SYSTEM SPECIFIC BIT AND MAK E SEVERE' PARAMETER FOR$_LISIO_SYN = '001881DC'X' PARAMETER FOR$_INFFORLOO = '001881E4'X' PARAMETER FOR$_FORVARMIS = '001881EC'X' PARAMETER FOR$_SYNERRFOR = '001881F4'X>! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE ERROR (NOT SEVERE)' PARAMETER FOR$_OUTCONERR = '001881FA'X2! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE' PARAMETER FOR$_INPCONERR = '00188204'X2! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE' PARAMETER FOR$_OUTSTAOVE = '00188214'X' PARAMETER FOR$_INPSTAREQ = '00188 21C'X' PARAMETER FOR$_VFEVALERR = '00188224'X2! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE' PARAMETER FOR$_ADJARRDIM = '001882EC'X' PARAMETER FOR$_INVMATKEY = '001882F4'X' PARAMETER FOR$_FLOCONFAI = '001882FA'X ! **********E! THE FOLLOWING MESSAGES ARE SECONDARY MESSAGES, OR ARE USED ONLY INE! EXIT HANDLERS, AND THEREFORE DO NOT NEED TO BE (AND SHOULD NOT BE)&! CONTIGUOUS WITH THE MESSAGES ABOVE.I! 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'XI! THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN! FOR$$UDF_WF AND FOR$$UDF_WL.' PARAMETER FOR$_INVTEXREC = '00188834'X$ PARAMETER FOR$_INVTEX = '0018883C'X ! ADDITIONAL SECONDARY MESSAGES' P ARAMETER FOR$_OPEREQDIS = '00188844'X' PARAMETER FOR$_OPEREQSEQ = '0018884C'XH! THE NEXT MESSAGES ARE PRIMARY MESSAGES USED IN THE EXIT HANDLER WHICH6! IS DECLARED BY FOR$HANDLER OR FOR$VECALIGN_HANDLER.' PARAMETER FOR$_FLOUNDEXC = '00188963'X) PARAMETER FOR$_VECALIGNEXC = '0018896B'X! END OF SPECIAL MESSAGES ! ********** ! **********@! THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE 5! VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT. ! ' PARAMETER FOR$_FATINT ERR = '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( PARAMETER 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' PARAMETER FOR$_INVUNWIND = '001890AC'X' PARAMETER FOR$_STKBUFOVR = '001890B4'X' PARAMETER FOR$_SUBPRCDEL = '001890BC'X( PARAMETER FOR$_ASSERTFAIL = '001890C4'X' 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'XB PARAMETER FOR$_UNAWAKSUB = '0018A82B'X ! END OF FORRTL2 MESSAGES ! **********CDEC$ END OPTIONSww-ۓ8!*** MODULE $FOR IOSDEF ***! >! Define FORTRAN error numbers for use with IOSTAT and ERRSNS! + PARAMETER FOR$IOS_SUCCESS = 0 ! Success: PARAMETER FOR$IOS_EOF = -1 ! End of fileK PARAMETER FOR$IOS_NOTFORSPE = '00000001'X ! not a FORTRAN specific error ! ERRSNS only - IOSTAT can not! return this value.: PARAMETER FOR$IOS_NOTIMP = '00000002'X ! not implementedI PARAMETER FOR$IOS_IGNORED = '00000003'X ! ignored requested disposition] PARAMETER FOR$IOS_IGNNOTDEL = '00000004'X ! ignored requested disposition, file not deletedM PARAMETER FOR$IOS_SYNERRNAM = '00000011'X ! syntax error in NAMELIST inputT PARAMETER FOR$IOS_TOOMANVAL = '00000012'X ! too many values for NAMELIST variableL PARAMETER FOR$IOS_INVREFVAR = '00000013'X ! invalid reference to variable9 PARAMETER FOR$IOS_REWERR = '00000014'X ! REWIND error M PARAMETER FOR$IOS_DUPFILSPE = '00000015'X ! duplicate file specifications E PARAMETER FOR$IOS_INPRECTOO = '00000016'X ! input record too long < PARAMETER FOR$IOS_BACERR = '00000017'X ! BACKSPACE error G PARAMETER FOR$IOS_ENDDURREA = '00000018'X ! end-of-file during read !! (ERRSNS only - IOSTAT returns$! a negative value for this error)K PARAMETER FOR$IOS_RECNUMOUT = '00000019'X ! record number outside range K PARAMETER FOR$IOS_OPEDEFREQ = '0000001A'X ! OPEN or DEFINE FILE requiredP PARAMETER FOR$IOS_TOOMANREC = '0000001B'X ! too many records in I/O statement8 PARAMETER FOR$IOS_CLOERR = '0000001C'X ! CLOSE error > PARAMETER FOR$IOS_FILNOTFOU = '0000001D'X ! file not found 9 PARAMETER FOR$IOS_OPEFAI = '0000001E'X ! open failure G PARAMETER FOR$IOS_MIXFILACC = '0000001F'X ! mixed file access modes K PARAMETER FOR$IOS_INVLOGUNI = '00000020'X ! invalid logical unit number = PARAMETER FOR$IOS_ENDFILERR = '00000021'X ! ENDFILE error A PARAMETER FOR$IOS_UNIALROPE = '00000022'X ! unit already open M PARAMETER FOR$IOS_SEGRECFOR = '00000023'X ! segmented record format error T PARAMETER FOR$IOS_ATTACCNON = '00000024'X ! attempt to access non-existent recordJ PARAMETER FOR$IOS_INCRECLEN = '00000025'X ! inconsistent record length B PARAMETER FOR$IOS_ERRDURWRI = '00000026'X ! error during write A PARAMETER FOR$IOS_ERRDURREA = '00000027'X ! error during read G PARAMETER FOR$IOS_RECIO_OPE = '00000028'X ! recursive I/O operation K PARAMETER FOR$IOS_INSVIRMEM = '00000029'X ! insufficient virtual memory > PARAMETER FOR$IOS_NO_SUCDEV = '0000002A'X ! no such device M PARAMETER FOR$IOS_FILNAMSPE = '0000002B'X ! file name specification error G PARAMETER FOR$IOS_INCRECTYP = '0000002C'X ! inconsistent record typeU PARAMETER FOR$IOS_KEYVALERR = '0000002D'X ! keyword value error in OPEN statement Q PARAMETER FOR$IOS_INCOPECLO = '0000002E'X ! inconsistent OPEN/CLOSE parametersF PARAMETER FOR$IOS_WRIREAFIL = '0000002F'X ! write to READONLY file \ PARAMETER FOR$IOS_INVARGFOR = '00000030'X ! invalid argument to FORTRAN Run-Time Library H PARAMETER FOR$IOS_INVKEYSPE = '00000031'X ! invalid key specificationW PARAMETER FOR$IOS_INCKEYCHG = '00000032'X ! inconsistent key change or duplicate keyM PARAMETER FOR$IOS_INCFILORG = '00000033'X ! inconsistent file organizationF PARAMETER FOR$IOS_SPERECLOC = '00000034'X ! specified record locked@ PARAMETER FOR$IOS_NO_CURREC = '00000035'X ! no current record< PARAMETER FOR$IOS_REWRITERR = '00000036'X ! REWRITE error8 PARAMETER FOR$IOS_DELERR = '00000037'X ! DELETE error8 PARAMETER FOR$IOS_UNLERR = '00000038'X ! UNLOCK error6 PARAMETER FOR$IOS_FINERR = '00000039'X ! FIND errorN PARAMETER FOR$IOS_LISIO_SYN = '0000003B'X ! list-directed I/O syntax error D PARAMETER FOR$IOS_INFFORLOO = '0000003C'X ! infinite format loop M PARAMETER FOR$IOS_FORVARMIS = '0000003D'X ! format/variable-type mismatch F PARAMETER FOR$IOS_SYNERRFOR = '0000003E'X ! syntax error in format G PARAMETER FOR$IOS_OUTCONERR = '0000003F'X ! output conversion error F PARAMETER FOR$IOS_INPCONERR = '00000040'X ! input conversion error Q PARAMETER FOR$IOS_OUTSTAOVE = '00000042'X ! output statement overflows record V PARAMETER FOR$IOS_INPSTAREQ = '00000043'X ! input statement requires too much data V PARAMETER FOR$IOS_VFEVALERR = '00000044'X ! variable format expression value error ;! Error numbers 70-77 refer to hardware exceptions and are! not returned by IOSTAT.< PARAMETER FOR$IOS_INTOVF = '00000046'X ! integer overflowB PARAMETER FOR$IOS_INTDIV = '00000047'X ! integer divide by ze ro= PARAMETER FOR$IOS_FLTOVF = '00000048'X ! floating overflowK PARAMETER FOR$IOS_FLTDIV = '00000049'X ! floating/decimal divide by zero> PARAMETER FOR$IOS_FLTUND = '0000004A'X ! floating underflowB PARAMETER FOR$IOS_SUBRNG = '0000004D'X ! subscript out of range@! Error numbers 80-89 refer to Math Library reported errors and! are not returned by IOSTAT.H PARAMETER FOR$IOS_WRONUMARG = '00000050'X ! wrong number of argumentsO PARAMETER FOR$IOS_INVARGMAT = '00000051'X ! invalid argument to math libraryD PARAMETER FOR$IOS_UNDEXP = '00000052'X ! undefined exponentiationR PARAMETER FOR$IOS_LOGZERNEG = '00000053'X ! logarithm of zero or negative valueL PARAMETER FOR$IOS_SQUROONEG = '00000054'X ! square root of negative valueP PARAMETER FOR$IOS_SIGLOSMAT = '00000057'X ! significance lost in math libraryP PARAMETER FOR$IOS_FLOOVEMAT = '00000058'X ! floating overflow in math libraryQ PARAMETER FOR$IOS_FLOUNDMAT = '00000059'X ! floating underflow in math libraryP PARAMETER FOR$IOS_ADJARRDIM = '0000005D'X ! adjustable array dimension error \ PARAMETER FOR$IOS_INVMATKEY = '0000005E'X ! invalid key match specifier for key directionO PARAMETER FOR$IOS_FLOCONFAI = '0000005F'X ! floating point conversion failed! ! End of FORIOSDEF.FOR! ww !*** MODULE $FSCNDEF ***CDEC$ OPTIONS /NOALIGN! ++! +! 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 = '00000100'X. PARAMETER FSCN$M_NODE_SECONDARY = '00000200'X STRUCTURE /FLDFLAGS/ PARAMETER FSCN$S_NODE = 14 PARAMETER FSCN$V_NODE = 0 ! Node name present PARAMETER FSCN$S_DEVICE = 18 PARAMETER FSCN$V_DE VICE = 1 ! Device name present PARAMETER FSCN$S_ROOT = 19 PARAMETER FSCN$V_ROOT = 2 ! Root directory present# PARAMETER FSCN$S_DIRECTORY = 19 PARAMETER FSCN$V_DIRECTORY = 3 ! Directory present PARAMETER FSCN$S_NAME = 14 PARAMETER FSCN$V_NAME = 4 ! File name present PARAMETER FSCN$S_TYPE = 14 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 = 1& PARAMETER FSCN$V_NODE_PRIMARY = 7" PARAMETER FSCN$S_NODE_ACS = 1" PARAMETER FSCN$V_NODE_ACS = 8( PARAMETER FSCN$S_NODE_SECONDARY = 1( PARAMETER FSCN$V_NODE_SECONDARY = 9 BYTE %FILL (2) END STRUCTURE ! FLDFLAGS< PARAMETER FSCN$_FILESPEC = '00000001'X ! complete filespec3 PARAMETER FSCN$_NODE = '00000002'X ! node:: field6 PARAMETER FSCN$_DEVICE = '00000003'X ! device: field4 PARAMETER FSCN$_ROOT = '00000004'X ! [root.] field= PARAMETER F SCN$_DIRECTORY = '00000005'X ! [directory] field1 PARAMETER FSCN$_NAME = '00000006'X ! name field1 PARAMETER FSCN$_TYPE = '00000007'X ! .typ field8 PARAMETER FSCN$_VERSION = '00000008'X ! ;version field+ PARAMETER FSCN$_node_primary = '00000009'X' PARAMETER FSCN$_node_acs = '0000000A'X- PARAMETER FSCN$_node_secondary = '0000000B'X( PARAMETER FSCN$S_ITEM_LEN = '00000008'X STRUCTURE /FSCNDEF/4 INTEGER*2 FSCN$W_LENGTH ! return length word3 INTEGER*2 FSCN$W_ITEM_CODE ! item code value1 INTEGER*4 FSCN$L_ADDR ! component address END STRUCTURE ! FSCNDEFCDEC$ END OPTIONS ww ȏ!*** MODULE $GPSDEF ***CDEC$ OPTIONS /NOALIGN! #! 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'X" 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 UNION0 BYTE  GPS$B_ALIGN ! P-sect alignment UNION MAP0 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 = 1@ PARAMETER GPS$V_LIB = 1 ! From a shareable image $ PARAMETER GPS$S_OVR = 1D PARAMETER GPS$V_OVR = 2 ! Overlaid memory allocation $ PARAMETER GPS$S_REL = 15  PARAMETER GPS$V_REL = 3 ! Relocatable $ PARAMETER GPS$S_GBL = 16 PARAMETER GPS$V_GBL = 4 ! Global scope $ PARAMETER GPS$S_SHR = 13 PARAMETER GPS$V_SHR = 5 ! Shareable $ PARAMETER GPS$S_EXE = 14 PARAMETER GPS$V_EXE = 6 ! Executable # PARAMETER GPS$S_RD = 11 PARAMETER GPS$V_RD = 7 ! Readable $ PARAMETER GPS$S_WRT = 13 PARAMETER GPS$V_WRT = 8 ! Writeable $  PARAMETER GPS$S_VEC = 16 PARAMETER GPS$V_VEC = 9 ! Vector psect & PARAMETER GPS$S_NOMOD = 1: PARAMETER GPS$V_NOMOD = 10 ! Not stored into$ PARAMETER GPS$S_COM = 1A 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 6 BYTE GPS$B_NAMLNG ! Length of p-sect name , CHARACTER*31 GPS$T_NAME ! Name field  END STRUCTURE ! GPSDEFCDEC$ END OPTIONS wwMՒ!*** MODULE $GSDEF ***CDEC$ OPTIONS /NOALIGN! (! Global symbol definition record (GSD)! I PARAMETER GSD$K_ENTRIES = '00000001'X ! Offset to first entry in record I PARAMETER GSD$C_ENTRIES = '00000001'X ! Offset to first entry in record 6 PARAMETER GSD$C_PSC = '00000000'X ! Psect definition : PARAMETER GSD$C_SYM = '00000001'X ! Symbol specification E PARAMETER GSD$C_EPM = '00000002'X ! Entry point  and mask definition E PARAMETER GSD$C_PRO = '00000003'X ! Procedure with formal arguments K PARAMETER GSD$C_SYMW = '00000004'X ! Symbol specification with word psect G PARAMETER GSD$C_EPMW = '00000005'X ! Entry point mask with word psect @ PARAMETER GSD$C_PROW = '00000006'X ! Procedure with word psect 9 PARAMETER GSD$C_IDC = '00000007'X ! Random entity check 8 PARAMETER GSD$C_ENV = '00000008'X ! Define environment 2 PARAMETER GSD$C_LSY = '00000009'X ! Local symbol J PARAMETER GSD$C_LEPM = '0000000A'X ! Local symbol entry point definition H PARAMETER GSD$C_LPRO = '0000000B'X ! Local symbol procedure definition G PARAMETER GSD$C_SPSC = '0000000C'X ! Shareable image psect definition ! 4 PARAMETER GSD$C_VECTOR_TYPE_INCREMENT = '0000000C'XM 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 PARAMETER GSD$C_MASK_TYPE_INCREMENT = '0000000F'X= PARAMETER GSD$C_S YMM = '00000010'X ! Masked versions of SYM,0 PARAMETER GSD$C_EPMM = '00000011'X ! EPM,/ PARAMETER GSD$C_PROM = '00000012'X ! PROF PARAMETER GSD$C_MAXRECTYP = '00000012'X ! Maximum entry type defined  STRUCTURE /GSDEF/8 BYTE GSD$B_RECTYP ! Record type (OBJ$C_GSD) D BYTE GSD$B_GSDTYP ! Type of entry (first byte of entry) K! Vectored symbol types are (regular + 12). For example, SYMV = SYM + 12.! G! Mask symbol types are (regular + 15). For example, SYMM = SYM + 15.!  END STRUCTURE ! GSDEFCDEC$ END OPTIONS ww[!*** MODULE $GSYDEF ***CDEC$ OPTIONS /NOALIGN! ! GSD entry - Symbol definition! /! 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 GSY$M_REL = '00000008'X# PARAMETER GSY$M_COMM = '00000010'X STRUCTURE /GSYDEF/ UNION MAP/ BYTE GSY$B_GSDTYP ! Type field  END MAP MAP7 ! unsupported type CHARACTER*0 GSY$T_START BYTE %FILL END MAP END UNION0 BYTE GSY$B_DATYP ! Symbol data type UNION MAP0 INTEGER*2 GSY$W_FLAGS ! Symbol flags  END MAP MAP% PARAMETER GSY$S_WEAK = 15 PARAMETER GSY$V_WEAK = 0 ! Weak symbol $ PARAMETER GSY$S_DEF = 14 PARAMETER GSY$V_DEF = 1 ! Definition $ PARAMETER GSY$S_UNI = 13 PARAMETER GSY$V_UNI = 2 ! Universal $ PARAMETER GSY$S_REL = 15 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 UNION END STRUCTURE ! GSYDEFCDEC$ END OPTIONS ww!*** MODULE $HLPDEF ***CDEC$ OPTIONS /NOALIGN! &! 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 HLP$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 = 1U PARAMETER HLP$V_PROCESS = 1 ! Process logical name table searches enabled " PARAMETER HLP$S_GROUP = 1Q PARAMETER HLP$V_GROUP = 2 ! Group logical name table searches e nabled # PARAMETER HLP$S_SYSTEM = 1S PARAMETER HLP$V_SYSTEM = 3 ! System logical name table searched enabled $ PARAMETER HLP$S_LIBLIST = 1J PARAMETER HLP$V_LIBLIST = 4 ! Output list of default libraries ! PARAMETER HLP$S_HELP = 1Q PARAMETER HLP$V_HELP = 5 ! Display help 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 = 1D PARAMETER HLP$V_OUTPUT = 9 ! Output listing file enabled $ PARAMETER HLP$S_LIBRARY = 1I PARAMETER HLP$V_LIBRARY = 10 ! Main library specified by user PARAMETER HLP$S_ALL = 1O PARAMETER HLP$V_ALL = 11 ! Some logical name table searches enabled $ PARAMETER HLP$S_PAGEDEF  = 1H PARAMETER HLP$V_PAGEDEF = 12 ! Page flag defaulting disabled $ PARAMETER HLP$S_PMPTDEF = 1J PARAMETER HLP$V_PMPTDEF = 13 ! Prompt flag defaulting disabled $ PARAMETER HLP$S_NOTTERM = 1I PARAMETER HLP$V_NOTTERM = 14 ! Input device is not a terminal  BYTE %FILL (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/E 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 = 1X PARAMETER HLP$V_NOHLPTXT = 0 ! Line is part of text due to no help found * PARAMETER HLP$S_KEYNAMLIN = 1T PARAMETER HLP$V_KEYNAMLIN = 1 ! Line contains keynames to be printed * PARAMETER HLP$S_OTHERINFO = 1V PARAMETER HLP$V_OTHERINFO = 2 ! Line is part of "other info available"  BYTE %FILL (1) END MAP END UNIONG INTEGER*4 HLP$L_DATA ! Address of user data passed to GET_HELP 3 INTEGER*4 HLP$L_LEVEL ! Level of this help  END STRUCTURE ! HLPDEF1CDEC$ END OPTIONS ww2!*** MODULE $HWDEF ***CDEC$ OPTIONS /NOALIGN5 PARAMETER HW$_VAX = '00000001'X ! VAX architecture8 PARAMETER HW$_ALPHA = '00000002'X ! Alpha architectureCDEC$ END OPTIONS wwM!*** MODULE $IACDEF ***CDEC$ OPTIONS /NOALIGN! +!! 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( PARAM ETER IAC$M_SETVECTOR = '00200000'X( PARAMETER IAC$M_PROTECTED = '00400000'XI PARAMETER IAC$C_LARGEST = '00000006'X ! LARGEST FLAG CALLER MAY SPECIFY  STRUCTURE /IACDEF/ UNION MAP" PARAMETER IAC$S_NOACT = 1N PARAMETER IAC$V_NOACT = 0 ! DO NOT ACTIVATE THE IMAGE (FOR INSTALL) % PARAMETER IAC$S_WRITABLE = 1B PARAMETER IAC$V_WRITABLE = 1 ! MAKE IMAGE FILE WRITABLE & PARAMETER IAC$S_SHAREABLE = 1R PARAMETER IAC$V_SHAREABLE = 2 ! ACT. S HAREABLE IMAGE FOR EXECUTABLE IMG & PARAMETER IAC$S_PRIVILEGE = 1R PARAMETER IAC$V_PRIVILEGE = 3 ! ACT. SHARE. IMG FOR PRIV EXECUTABLE IMG " PARAMETER IAC$S_MERGE = 1L PARAMETER IAC$V_MERGE = 4 ! ACT 2ND EXECUTABLE IMG INTO ADR SPACE # PARAMETER IAC$S_EXPREG = 1I PARAMETER IAC$V_EXPREG = 5 ! MAP IMAGE INTO NEXT FREE VA SPACE $ PARAMETER IAC$S_P1MERGE = 1P 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 = 14 PARAMETER IAC$V_LIM = 9 ! LINKABLE IMAGE " PARAMETER IAC$S_RETRY = 1> PARAMETER IAC$V_RETRY = 10 ! RETRY IMAGE ACTIVATION % PARAMETER IAC$S_NOCMKRNL = 1M PARAMETER IAC$V_NOCMKRNL = 11 ! SHUT OFF CMKRNL,CMEXEC-SYSVER DI FF & PARAMETER IAC$S_SEQDEVLOD = 1P 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 = 1F PARAMETER IAC$V_KP_RESHDR = 14 ! MAKE IMAGE HEADER RESIDENT & PARAMETER IAC$S_IS_RESHDR = 1D PARAMETER IAC$V_IS_RESHDR = 15 ! IMAGE HEADER IS RESIDENT & PARAMETER IAC$S_NOTSHARED = 1M PARAM ETER IAC$V_NOTSHARED = 16 ! DO NOT SET IS_SHARED IN KFI ENTRY & PARAMETER IAC$S_GBLCLUSTR = 1P PARAMETER IAC$V_GBLCLUSTR = 17 ! CURRENTLY PROCESSING GBL ISD CLUSTER % PARAMETER IAC$S_SHMIDENT = 1O PARAMETER IAC$V_SHMIDENT = 18 ! SHARED MEMORY IDENT USED FOR GBL SEC # PARAMETER IAC$S_NOCOPY = 1O PARAMETER IAC$V_NOCOPY = 19 ! NO PRIVATE COPY OF SECTION IN EXEC IMG & PARAMETER IAC$S_P1MERG_P0 = 1P PARAMETER IAC$V_P1MERG_P0 = 20 ! P1 MERGED ACTIVATION WITH P0 ADDRESS ! RANGE (INTERNAL FLAG ONLY)& PARAMETER IAC$S_SETVECTOR = 1Q PARAMETER IAC$V_SETVECTOR = 21 ! SIGNAL ALTERNATE ENTRY TO SET VECTORS & PARAMETER IAC$S_PROTECTED = 1K PARAMETER IAC$V_PROTECTED = 22 ! REQUIRE SHAREABLES BE /PROTECTED BYTE %FILL (3) END MAP END UNION END STRUCTURE ! IACDEFCDEC$ END OPTIONS ww?!!*** MODULE $ICCDEF IDENT X-4 ***CDEC$ OPTIONS /NOALIGN! 5 ! ICC IOSB data structure for data transfer routines! J! Past the 1st longword, the IOS_ICC fields vary depending on the type ofJ! request/operation. The diagram attempts to picture those relationshipsJ! below. Longwords 2-5 are done in columns, each column representing the=! value of that longword for that type of request/operation.! ! +4 +2 +0?! +---------------------------------------------------------+C! L1: | Undefined | Return s tatus code |?! |---------------------------------------------------------|?! |---------------------------------------------------------|! | | | | |?! | RECEIVE | REPLY | TRANSCEIVE | CONNECT |! | | | | |C! L2: | rcv_len | replyto_handle| txrcv_len | RemStat |C! |---------------|---------------|---------------|---------|C! L3: | req_handle | Unused | | Unused |C! |---------------|--- ------------| reply_buffer | |C! L4: | reply_len | Unused | | |C! |---------------|---------------|---------------| |C! L5: | Unused | Unused | txreply_len | |C! |---------------+---------------+---------------+---------|!  STRUCTURE /IOS_ICC/< INTEGER*2 IOS_ICC$w_status ! return status (returned). INTEGER*2 IOS_ICC$w_reserved ! reserved UNION MAPE INTEGER*4  IOS_ICC$l_remstat ! remote status (returned)! INTEGER*4 %FILL(1:3) END MAP MAPM INTEGER*4 IOS_ICC$l_rcv_len ! number of bytes recvd (returned)J INTEGER*4 IOS_ICC$l_req_handle ! request handle (returned)I INTEGER*4 IOS_ICC$l_reply_len ! reply len (returned) INTEGER*4 %FILL END MAP MAPJ INTEGER*4 IOS_ICC$l_replyto_handle ! request_handle (input)! INTEGER*4 %FILL(1:3) END MAP MAPO INTEGER*4 IOS_ICC$l_txrcv_len ! number of bytes recvd (returned)? INTEGER*4 IOS_ICC$A_reply_buffer ! buffer address INTEGER*4 %FILLG 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! @! Connection flag bit definitions (for connect/accept services)! ) PARAMETER ICC$M_Synch_Mode = '00000001'X! STRUCTURE /ICC_CONNECTION_FLAGS/# PARAMETER ICC$S_Synch_Mode = 1I 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! ! Length constants! , PARAMETER ICC$C_MAX_ASSOC_LEN = '0000001F'X0 PARAMETER ICC$C_MAX_CONN_DATA_LEN = '000003E8'X! H!  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! L PARAMETER ICC$C_DEFAULT_MAXFLOWBUFCNT = '00000005'X ! Pending inbound msgsCDEC$ END OPTIONS ww!*** MODULE $IDCDEF ***CDEC$ OPTIONS /NOALIGN! .! IDC - Random entity ident consistency check! " PARAMETER IDC$C_LEQ = '00000000'X$ PARAMETER IDC$C_EQUAL = '00000001'X STRUCTURE /IDCDEF/+ BYTE IDC$B_GSDTYP ! Type field UNION MAP) INTEGER*2 IDC$W_FLAGS ! Flags  END MAP MAP) PARAMETER IDC$S_BINIDENT = 1X PARAMETER IDC$V_BINIDENT = 0 ! Ident is binary longword rather than ASCIC ( PARAMETER IDC$S_IDMATCH = 2Z PARAMETER IDC$V_IDMATCH = 1 ! Field for ident match control if binary ident ' PARAMETER IDC$S_ERRSEV = 3Q 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 length7! ident string (length = string length)! or1! ident binary value (length = 4)/! Followed by byte of length of name of object! Followed by the object name END MAP END UNION END STRUCTURE ! IDCDEFCDEC$ END OPTIONS ww!*** MODULE $IMPDEF ***CDEC$ OPTIONS /NOALIGN! +9! $PERSONA_CREATE, $PERSONA_ASSUME FLAGS bit definitions! -. PARAMETER IMP$M_ASSUME_SECURITY = '00000001'X- PARAMETER IMP$M_ASSUME_ACCOUNT = '00000002'X. PARAMETER IMP$M_ASSUME_JOB_WIDE = '00000004'X- PARAMETER IMP$M_ASSUME_DEFPRIV = '00000008'X. PARAMETER IMP$M_ASSUME_DEFCLASS = '00000010'X STRUCTURE /IMPFLAGDEF/ UNION MAP, PARAMETER IMP$S_ASSUME_SECURITY = 1, PARAMETER IMP$V_ASSUME_SECURITY = 0+ PARAMETER IMP$S_ASSUME_ACCOUNT = 1+ PARAMETER IMP$V_ASSUME_ACCOUNT = 1, PARAMETER IMP$S_ASSUME_JOB_WIDE = 1, PARAMETER IMP$V_ASSUME_JOB_WIDE = 2+ PARAMETER IMP$S_ASSUME_DEFPRIV = 1+ PARAMETER IMP$V_ASSUME_DEFPRIV = 3, PARAMETER IMP$S_ASSUME_DEFCLASS = 1, PARAMETER IMP$V_ASSUME_DEFCLASS = 4 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! IMPFLAGDEFCDEC$ END OPTIONS ww-M!*** MODULE $INITDEF ***CDEC$ OPTIONS /NOALIGN! &! Values for INIT$_DENSITY item cod e.! ? PARAMETER INIT$K_DENSITY_800_BPI = '00000001'X ! 800 bpi tapeA PARAMETER INIT$K_DENSITY_1600_BPI = '00000002'X ! 1600 bpi tapeA PARAMETER INIT$K_DENSITY_6250_BPI = '00000003'X ! 6250 bpi tapeJ PARAMETER INIT$K_DENSITY_SINGLE_DISK = '00000004'X ! Single-density RX02R 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")H PARAMETER INIT$K_DENSITY_HD_DISK = '0 0000007'X ! High density disketteP PARAMETER INIT$K_DENSITY_COMPACT = '00000008'X ! TA90 with data compaction on G PARAMETER INIT$K_DENSITY_ED_DISK = '00000009'X ! New density for RX26! )! Values for INIT$_HOMEBLOCKS item code.! I PARAMETER INIT$K_HOMEBLOCKS_GEOMETRY = '00000001'X ! geometry dependentB PARAMETER INIT$K_HOMEBLOCKS_FIXED = '00000002'X ! fixed positionC 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 blockI 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 blockI INTEGER*4 INIT$L_BADBLOCKS_SEC_COUNT ! Count of blocks to be marked= INTEGER*4 INIT$L_BADBLOCKS_TRACK ! Track of first blockC INTEGER*4 INIT$L_BADBLOCKS_CYLINDER ! Cylinder of first block" END STRUCTURE ! BADBLOCKS_SEC_DEF! Define codes as constantsP PARAMETER INIT$_ACCESSED = '00000001'X ! Number of directories in system spaceW PARAMETER INIT$_BADBLOCKS_LBN = '00000002'X ! Bad block areas by logical block numberZ PARAMETER INIT$_BADBLOCKS_SEC = '00000003'X ! Bad block areas by sector, track, cylinderE PARAMETER INIT$_CLUSTERSIZE = '00000004'X ! Minimum allocation unitE PARAMETER INIT$_COMPACTION = '00000005'X ! Data compaction for TA90B PARAMETER INIT$_NO_COMPACTION = '00000006'X ! No data compaction0 PARAMETER INIT$_DENSITY = '00000007'X ! FormatR PARAMETER INIT$_DIRECTORIES = '00000008'X ! Preallocated entries for directories> PARAMETER INIT$_ERASE = '00000009'X ! Destroy data on volumeH PARAMETER INIT$_NO_ERASE = '0000000A'X ! Do not destroy data on volumeL PARAMETER INIT$_EXTENSION = '0000000B'X ! Default extension size for filesD PARAMETER INIT$_FPROT = '0000000C'X ! Default protection for filesO PARAMETER INIT$_HEADERS = '0000000D'X ! Number of file headers for index fileQ PARAMETER INIT$_HIGHWATER = '0000000E'X ! Set the file highwater mark attribute[ PARAMETER INIT$_NO_HIGHWATER = '0000000F'X ! Do not set the file highwater mark attributeY PARAMETER INIT$_INDEX_BEGINNING = '00000010'X ! Place index file at beginning of volume@ PARAMETER INIT$_INDEX_BLOCK = '00000011'X ! LBN for index fileM PARAMETER INIT$_INDEX_END = '00000012'X ! Place index file at end of volumeS PARAMETER INIT$_INDEX_MIDDLE = '00000013'X ! Place index file at middle of volumeS PARAMETER INIT$_INTERCHANGE = '00000014'X ! Do not write VMS-specific informationO PARAMETER INIT$_NO_INTERCHANGE = '00000015'X ! Write VMS-specific informationU PARAMETER INIT$_LABEL_ACCESS = '00000016'X ! Character for ANSI accessability fieldI PARAMETER INIT$_LABEL_VOLO = '00000017'X ! Text for ANSI owner ID fieldL PARAMETER INIT$_MAXFILES = '00000018'X ! Maximum number of files on volumeN PARAMETER INIT$_OVR_ACCESS = '00000019'X ! Override ANSI accessability fieldX PARAMETER INIT$_NO_OVR_ACCESS = '0000001A'X ! Do not override ANSI accessability fieldB PARAMETER INIT$_OVR_EXP = '0000001B'X ! Override expiration dateL PARAMETER INIT$_NO_OVR_EXP = '0000001C'X ! Do not override expiration dateG PARAMETER INIT$_OVR_VOLO = '0000001D'X ! Override ANSI owner ID fieldQ PARAMETER INIT$_NO_OVR_VOLO = '0000001E'X ! Do not override ANSI owner ID field6 PARAMETER INIT$_OWNER = '0000001F'X ! UIC for volumeE PARAMETER INIT$_READCHECK = '00000020'X ! Check all read operationsO PARAMETER INIT$_NO_READCHECK = '00000021'X ! Do not check all read operations7 PARAMETER INIT$_SIZE = '00000022'X ! Size of RAM diskN PARAMETER INIT$_STRUCTURE_LEVEL_1 = '00000023'X ! Format in Files-11 level 1N 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 2@ PARAMETER INIT$_USER_NAME = '00000026'X ! User name for volumeG PARAMETER INIT$_VERIFIED = '00000027'X ! Use bad block data on volumeM PARAMETER INIT$_NO_VERIFIED = '00000028'X ! Ignore bad block data on volume9 PARAMETER INIT$_VPROT = '00000029'X ! Volume protectionT PARAMETER INIT$_WINDOW = '0000002A'X ! Number of mapping pointers for file windowsG PARAMETER INIT$_WRITECHECK = '0000002B'X ! Check all write operationsQ PARAMETER INIT$_NO_WRITECHECK = '0000002C'X ! Do not check all write operationsJ PARAMETER INIT$_MIN_CLASS = '0000002D'X ! Minimum secu rity classficationJ PARAMETER INIT$_MAX_CLASS = '0000002E'X ! Maximum security classficationR PARAMETER INIT$_NO_PROTECTION = '0000002F'X ! No default security classificationP PARAMETER INIT$_HOMEBLOCKS = '00000030'X ! Homeblock placement strategy to useN PARAMETER INIT$_STRUCTURE_LEVEL_5 = '00000031'X ! Format in Files-11 level 5L PARAMETER INIT$S_USER_NAME = '0000000C'X ! Max size of user name on volumeCDEC$ END OPTIONS wwmZ !*** MODULE $IODEF ***CDEC$ OPTIONS /NOALIGN! + ! I/O FUNCTION CODE DEFINITIONS! -! ,! *** START PHYSICAL I/O FUNCTION CODES ***! 1 PARAMETER IO$_NOP = '00000000'X ! NO OPERATION 3 PARAMETER IO$_UNLOAD = '00000001'X ! UNLOAD DRIVE 8 PARAMETER IO$_LOADMCODE = '00000001'X ! LOAD MICROCODE 7 PARAMETER IO$_START_BUS = '00000001'X ! START LAVC BUS2 PARAMETER IO$_SEEK = '00000002'X ! SEEK CYLINDER 5 PARAMETER IO$_SPACEFILE = '00000002'X ! SPACE FILES ? PARAMETER IO$_STARTMPROC = '00000002'X ! START MICROPROCESSOR 5  PARAMETER IO$_STOP_BUS = '00000002'X ! STOP LAVC BUS7 PARAMETER IO$_RECAL = '00000003'X ! RECALIBRATE DRIVE 7 PARAMETER IO$_DUPLEX = '00000003'X ! ENTER DUPLEX MODE) PARAMETER IO$_STOP = '00000003'X ! STOP @ PARAMETER IO$_DEF_COMP = '00000003'X ! DEFINE NETWORK COMPONENT2 PARAMETER IO$_DRVCLR = '00000004'X ! DRIVE CLEAR 5 PARAMETER IO$_INITIALIZE = '00000004'X ! INITIALIZE 5 PARAMETER IO$_MIMIC = '00000004'X ! ENTER MIMIC MODEJ PARAMETER IO$_DEF_COMP_LIST = '00000004'X ! DEFINE NETWORK COMPONENT LIST4 PARAMETER IO$_RELEASE = '00000005'X ! RELEASE PORT > PARAMETER IO$_SETCLOCKP = '00000005'X ! SET CLOCK (PHYSICAL) I PARAMETER IO$_START_ANALYSIS = '00000005'X ! START LAVC FAILURE ANALYSIS8 PARAMETER IO$_OFFSET = '00000006'X ! OFFSET READ HEADS 4 PARAMETER IO$_ERASETAPE = '00000006'X ! ERASE TAPE I PARAMETER IO$_STARTDATAP = '00000006'X ! START DATA TRANSFER (PHYSICAL) G PARAMETER IO$_STOP_ANALYSIS = '00000006'X ! STOP LAVC FAILURE ANALYSIS> PARAMETER IO$_RETCENTER = '000000 07'X ! RETURN TO CENTERLINE 8 PARAMETER IO$_QSTOP = '00000007'X ! QUEUE STOP REQUEST H PARAMETER IO$_START_MONITOR = '00000007'X ! START LAVC CHANNEL MONITOR.8 PARAMETER IO$_PACKACK = '00000008'X ! PACK ACKNOWLEDGE F PARAMETER IO$_STOP_MONITOR = '00000008'X ! STOP LAVC CHANNEL MONITOR.8 PARAMETER IO$_SEARCH = '00000009'X ! SEARCH FOR SECTOR 9 PARAMETER IO$_SPACERECORD = '00000009'X ! SPACE RECORDS G PARAMETER IO$_READRCT = '00000009'X ! READ REPLACEMENT & CACHING TABLE; PARAMETER IO$_WRITECH ECK = '0000000A'X ! WRITE CHECK DATA > 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 7 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 J PARAMETER IO$_COPYSHAD = '0000000F'X ! PERFORM SHADOW SET COPY OPERATIONS: PARAMETER IO$_READTRACKD = '00000010'X ! READ TRACK DATA D PARAMETER IO$_REMSHAD = '00000010'X ! REMOVE MEMBER FROM SHADOW SETI 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 LABELG PARAMETER IO$_REMSHADMBR = '00000014'X ! REMOVE MEMBER FROM SHA DOW SETE PARAMETER IO$_DSE = '00000015'X ! DATA SECURITY ERASE (AND REWIND) 3 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 SET7 PARAMETER IO$_REREADP = '00000017'X ! REREAD PREVIOUS < PARAMETER IO$_WHM = '00000017'X ! WRITE HISTORY MANAGEMENTC PARAMETER IO$_AS_SETCHAR = '00000017'X ! ASIAN SET CHARACTERISTICS4 PARAMETER IO$_WRITERET = '00000018'X ! WRITE RETRY G PARAMETER IO$_WRITECHECKH = '00000018'X ! WRITE CHECK HEADER AND DATA G PARAMETER IO$_AS_SENSECHAR = '00000018'X ! ASIAN SENSE CHARACTERISTICSB PARAMETER IO$_ADDSHADMBR = '00000019'X ! ADD MEMBER TO SHADOW SET8 PARAMETER IO$_READPRESET = '00000019'X ! READIN PRESET 8 PARAMETER IO$_STARTSPNDL = '00000019'X ! START SPINDLE ; PARAMETER IO$_SETCHAR = '0000001A'X ! SET CHARACTERISTICS D PARAMETER IO$_SENSECHAR = '0000001B'X ! SENSE TAPE CHARACTERISTICS 9 PARAMETER IO$_WRITEMARK = '0000001C'X ! WRI TE TAPE MARK 2 PARAMETER IO$_COPYMEM = '0000001C'X ! COPY MEMORYC PARAMETER IO$_PSXSETCHAR = '0000001C'X ! POSIX SET CHARACTERISTICS= PARAMETER IO$_WRTTMKR = '0000001D'X ! WRITE TAPE MARK RETRY 1 PARAMETER IO$_DIAGNOSE = '0000001D'X ! DIAGNOSE F PARAMETER IO$_SHADMV = '0000001D'X ! PREFORM MOUNT VER. ON SHADOW SETG PARAMETER IO$_PSXSENSECHAR = '0000001D'X ! POSIX SENSE CHARACTERISTICS- PARAMETER IO$_FORMAT = '0000001E'X ! FORMAT 0 PARAMETER IO$_CLEAN = '0000001E'X ! CLEAN TAPE : PARAMET ER IO$_UPSHAD = '0000001E'X ! UP DATE SHAD LOCK IDK 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 @ PARAMETER IO$_REWINDOFF = '00000022'X ! REWIND AND SET OFFLINE < PARAMETER IO$_READRCTL = '00000022'X ! READ RCT SECTOR ZERO0 PARAMETER IO$_SETMODE = '00000023'X ! SET MODE 2 PARAMETER IO$_REW IND = '00000024'X ! REWIND TAPE 3 PARAMETER IO$_SKIPFILE = '00000025'X ! SKIP FILES 8 PARAMETER IO$_PSXSETMODE = '00000025'X ! POSIX SET MODE7 PARAMETER IO$_SKIPRECORD = '00000026'X ! SKIP RECORDS < PARAMETER IO$_PSXSENSEMODE = '00000026'X ! POSIX SENSE MODE9 PARAMETER IO$_SENSEMODE = '00000027'X ! SENSE TAPE MODE 9 PARAMETER IO$_WRITEOF = '00000028'X ! WRITE END OF FILE T PARAMETER IO$_TTY_PORT_BUFIO = '00000028'X ! BUFFERED I/O TERMINAL PORT FDT ROUTINEA PARAMETER IO$_TTY_PORT = '0000002 9'X ! TERMINAL PORT FDT ROUTINE; PARAMETER IO$_FREECAP = '00000029'X ! RETURN FREE CAPACITY; PARAMETER IO$_FLUSH = '0000002A'X ! FLUSH CONTROLLER CACHE8 PARAMETER IO$_AS_SETMODE = '0000002A'X ! ASIAN SET MODEB PARAMETER IO$_READLCHUNK = '0000002B'X ! READ LARGE LOGICAL BLOCK< PARAMETER IO$_AS_SENSEMODE = '0000002B'X ! ASIAN SENSE MODED PARAMETER IO$_WRITELCHUNK = '0000002C'X ! WRITE LARGE LOGICAL BLOCKI PARAMETER IO$_LOGICAL = '0000002F'X ! HIGHEST LOGICAL I/O FUNCTION CODE ! '! *** STA RT VIRTUAL I/O FUNCTION CODES! = PARAMETER IO$_WRITEVBLK = '00000030'X ! WRITE VIRTUAL BLOCK ; PARAMETER IO$_READVBLK = '00000031'X ! READ VIRTUAL BLOCK 2 PARAMETER IO$_ACCESS = '00000032'X ! ACCESS FILE ? PARAMETER IO$_PSXWRITEVBLK = '00000032'X ! POSIX WRITE VIRTUAL2 PARAMETER IO$_CREATE = '00000033'X ! CREATE FILE 6 PARAMETER IO$_DEACCESS = '00000034'X ! DEACCESS FILE = PARAMETER IO$_PSXREADVBLK = '00000034'X ! POSIX READ VIRTUAL2 PARAMETER IO$_DELETE = '00000035'X ! DELETE FILE 2 P ARAMETER IO$_MODIFY = '00000036'X ! MODIFY FILE G PARAMETER IO$_NETCONTROL = '00000036'X ! X25 NETWORK CONTROL FUNCTION D PARAMETER IO$_READPROMPT = '00000037'X ! READ TERMINAL WITH PROMPT 2 PARAMETER IO$_SETCLOCK = '00000037'X ! SET CLOCK 1 PARAMETER IO$_AUDIO = '00000037'X ! CD-ROM AUDIOD PARAMETER IO$_ACPCONTROL = '00000038'X ! MISCELLANEOUS ACP CONTROL 4 PARAMETER IO$_STARTDATA = '00000038'X ! START DATA 2 PARAMETER IO$_MOUNT = '00000039'X ! MOUNT VOLUME A PARAMETER IO$_TTYREADALL = '000 0003A'X ! TERMINAL READ PASSALL G PARAMETER IO$_TTYREADPALL = '0000003B'X ! TERM READ W/PROMPT PASSALL I PARAMETER IO$_CONINTREAD = '0000003C'X ! Connect to interrupt readonly L PARAMETER IO$_CONINTWRITE = '0000003D'X ! Connect to interrupt with write > PARAMETER IO$_READDIR = '0000003E'X ! READ DIRECTORY CONTENTSD PARAMETER IO$_VIRTUAL = '0000003F'X ! HIGHEST VIRTUAL I/O FUNCTION ! $! FUNCTION MODIFIER BIT DEFINITIONS! # PARAMETER IO$M_FCODE = '0000003F'X( PARAMETER IO$M_FMODIFIE RS = '0000FFC0'X& PARAMETER IO$M_INHERLOG = '00000800'X# PARAMETER IO$M_ERASE = '00000400'X3 PARAMETER IO$V_ENCRYPT = '0000000D'X ! Encryption% PARAMETER IO$M_ENCRYPT = '00002000'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_FILE_FLUSH = '00100000'X% PARAMETER IO$M_BARRIER = '00200000'X% PARAMETER IO$M_INHSEEK = '00001000'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' PARAMETER 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_VUEX_FC = '00000200'X' PARAMETER IO$M_FORCEPATH = '00000040'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' PAR AMETER 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& PARAMETER 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% PARAMETER 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& PARAMETER 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_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'XG PARAMETER IO$K_SRRUNOUT = '00000000'X ! Send or rcv until cnt runout C PARAMETER IO$K_PTPBSC = '00002000'X ! Point to point BSC control 4 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% PARAMETER 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 = '00000040'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 = '00001000'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_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 STRUCTURE /IODEF/ UNION.! Basic I/O function code/modifiers structure MAP! PARAMETER IO$S_FCODE = 69 PARAMETER IO$V_FCODE = 0 ! Function Code Field' PARAMETER IO$S_FMODIFIERS = 10& PARAMETER IO$V_FMODIFIERS = 66 BYTE %FILL (2) ! Function Modifiers Field END MAPB! 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 MAP0! General disk and tape function code modifiers MAP! PARAMETER IO$S_ERASE = 11 PARAMETER 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 = 1J PARAMETER IO$V_DATACHECK = 14 ! Write check data after transfer$ PARAMETER IO$S_INHRETRY = 1= PARAMETER IO$V_INHRETRY = 15 ! Inhibit error retry0! the following are only valid if EXFUNC is set# PARAMETER IO$S_SYNCSTS = 1E PARAMETER IO$V_SYNCSTS = 16 ! allow synchronous completion$  PARAMETER IO$S_NOVCACHE = 1> PARAMETER IO$V_NOVCACHE = 17 ! do not use VBN cache& PARAMETER IO$S_FILE_FLUSH = 1> PARAMETER IO$V_FILE_FLUSH = 20 ! Flush file to disk# PARAMETER IO$S_BARRIER = 1I PARAMETER IO$V_BARRIER = 21 ! Insert a barrier after the write BYTE %FILL (1) END MAP'! General disk function code modifiers MAP# PARAMETER IO$S_INHSEEK = 1S PARAMETER IO$V_INHSEEK = 12 ! Inhibit implied seek on phy sical functions BYTE %FILL (1) END MAP'! General tape function code modifiers MAP# PARAMETER IO$S_REVERSE = 19 PARAMETER IO$V_REVERSE = 6 ! Reverse operation" PARAMETER IO$S_NOWAIT = 1E PARAMETER IO$V_NOWAIT = 7 ! No wait for rewind to complete% PARAMETER IO$S_INHEXTGAP = 1M PARAMETER IO$V_INHEXTGAP = 12 ! Inhibit extended inter-record gap % PARAMETER IO$S_RETENSION = 1h PARAMETER IO$V_RETENSION = 13 ! Traverse the entire tape to uniformly set the tape's tension.2! Applies only to IO$_REWIND/REWINDOFF functions% PARAMETER IO$S_ALLOWFAST = 1T PARAMETER IO$V_ALLOWFAST = 14 ! Allow fast skip by filemarks when enabled4! Applies only to IO$_SKIPFILE/SPACEFILE functions' PARAMETER IO$S_MT3_DENSITY = 1( PARAMETER IO$V_MT3_DENSITY = 15U BYTE %FILL (1) ! Indicates this QIO request uses MT3 density parameters. END MAPE! DU & TU, dis k & tape class driver transfer function modifier bits MAP& PARAMETER IO$S_MSCPMODIFS = 1C 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 = 77 BYTE %FILL (1) ! Shadowing Locate function END MAP MAP' PARAMETER IO$S_MSCP_FORMAT = 1H PARAMETER IO$V_MSCP_FORMAT = 6 ! PACKACK media for formatting BYTE %FILL (1) END MAP MAP$ PARAMETER IO$S_ALLHOSTS = 1N 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 = 1Q PARAMETER IO$V_NOCLEANUP = 8 ! Normal shadow set cleanup not necessary BYTE %FILL (1) END MAP  MAP$ PARAMETER IO$S_SPINDOWN = 1A PARAMETER IO$V_SPINDOWN = 6 ! Spin down removed member BYTE %FILL (1) END MAP MAP( PARAMETER IO$S_EST_COM_PATH = 1I 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 = 1F PARAMETER IO$V_RTN_COM_PATH = 8 ! Retain Communication Path B YTE %FILL (1) END MAP MAP% PARAMETER IO$S_DEALC_ALL = 18 PARAMETER IO$V_DEALC_ALL = 6 ! Deallocate All% PARAMETER IO$S_DEALC_HRN = 1M PARAMETER IO$V_DEALC_HRN = 7 ! Deallocate by Host Reference Number( PARAMETER IO$S_DEALC_ENTLOC = 1H PARAMETER IO$V_DEALC_ENTLOC = 8 ! Deallocate by Entry Locator$ PARAMETER IO$S_DECR_AFC = 1K PARAMETER IO$V_DECR_AFC = 9 ! Decrement Allocation Failure Count$ PARAMET ER IO$S_READ_ALL = 12 PARAMETER IO$V_READ_ALL = 10 ! Read All$ PARAMETER IO$S_READ_HRN = 1G 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 = 19 PARAMETER I O$V_STEPOVER = 6 ! Stepover SCBLBN." PARAMETER IO$S_COPYOP = 1@ PARAMETER IO$V_COPYOP = 8 ! Shad Server Cpy Operation BYTE %FILL (1) END MAP MAP" PARAMETER IO$S_EXISTS = 19 PARAMETER IO$V_EXISTS = 6 ! VU already exists. PARAMETER IO$S_CBS = 1@ PARAMETER IO$V_CBS = 7 ! Controller based shadowing.# PARAMETER IO$S_BOOTING = 1@ PARAMETER IO$V_BOOTING = 8 ! Creshad for system disk. BYTE %FILL (1) END MAP MAP# PARAMETER IO$S_VUEX_FC = 1A PARAMETER IO$V_VUEX_FC = 9 ! Exclude Full copy members BYTE %FILL (1) END MAP1! Function modifier bits for Set Preferred Path. MAP:! No modifiers set, passes in a preferred path (DUDRIVER)% PARAMETER IO$S_FORCEPATH = 1L PARAMETER IO$V_FORCEPATH = 6 ! Make path change happen (DUDRIVER) BYTE %FILL (1) END MAP$! DR driver function modifier bits. MAP" PAR AMETER IO$S_COMMOD = 19 PARAMETER IO$V_COMMOD = 6 ! Diagnostic command& PARAMETER IO$S_MOVETRACKD = 1@ 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 = 1I PARAMETER IO$V_NOMRSP = 6 ! Do not use MRSP for this operation BYTE %FILL (1) END MAP9! Magnetic tape I/O function modifier bits for the TS11. MAP PARAMETER IO$S_SWAP = 16 PARAMETER IO$V_SWAP = 8 ! Swap byte (TS11)$ PARAMETER IO$S_OPPOSITE = 1H 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 = 1K 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 = 1B 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 = 12 PARAMETER IO$V_ACCESS = 6 ! Access file" PARAMETER IO$S_CREATE = 1 2 PARAMETER IO$V_CREATE = 7 ! Create file" PARAMETER IO$S_DELETE = 12 PARAMETER IO$V_DELETE = 8 ! Delete file! PARAMETER IO$S_MOUNT = 12 PARAMETER IO$V_MOUNT = 9 ! Mount volume" PARAMETER IO$S_DMOUNT = 17 PARAMETER IO$V_DMOUNT = 10 ! Dismount volume# PARAMETER IO$S_REMOUNT = 17 PARAMETER IO$V_REMOUNT = 11 ! Remount volume$ PARAMETER IO$S_MOVEFILE = 15 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 MAP2! CR (card reader) driver function modifier bits. MAP" PARAMETER IO$S_BINARY = 12 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.C! The following modifers are for the QIO READ, WRITE and SENSEMODE ! functions. MAP PARAMETER IO$S_NOW = 1G PARAMETER IO$V_NOW = 6 ! Do not wait for operation complete" PARAMETER IO$S_STREAM = 1V PARAMETER IO$V_STREAM = 7 ! Perform stream mode operation (vs. record mode)' PARAMETER IO$S_READERCHECK = 1l PARAMETER IO$V_READERCHEC K = 8 ! Perform operation if no read channel is assigned to the mailbox.' PARAMETER IO$S_WRITERCHECK = 1m PARAMETER IO$V_WRITERCHECK = 9 ! Perform operation if no write channel is assigned to the mailbox.$ PARAMETER IO$S_NORSWAIT = 1E PARAMETER IO$V_NORSWAIT = 10 ! Do not allow resource waits! Bit 13 used for EXFUNC! Bit 19 used for TRUSTED BYTE %FILL (1) END MAP3! More MB (mailbox) driver function modifier bits.*! Mailbox QIO SETMO DE function modifiers. MAP* PARAMETER IO$S_MB_ROOM_NOTIFY = 1g PARAMETER IO$V_MB_ROOM_NOTIFY = 6 ! Notify when some (any) space in the mailbox is available.$ PARAMETER IO$S_READATTN = 1F PARAMETER IO$V_READATTN = 7 ! Request ast on waiting reader# PARAMETER IO$S_WRTATTN = 1E 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 = 1b PARAMETER IO$V_READERWAIT = 10 ! Wait for a read channel to be assigned to the mailbox.& PARAMETER IO$S_WRITERWAIT = 1c 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+ PARAM ETER IO$V_TIMED = 7 ! Timed" PARAMETER IO$S_CVTLOW = 19 PARAMETER IO$V_CVTLOW = 8 ! Convert lower case# PARAMETER IO$S_NOFILTR = 11 PARAMETER IO$V_NOFILTR = 9 ! No filter$ PARAMETER IO$S_DSABLMBX = 19 PARAMETER IO$V_DSABLMBX = 10 ! Disable mailbox! PARAMETER IO$S_PURGE = 16 PARAMETER IO$V_PURGE = 11 ! Purge typeahead% PARAMETER IO$S_TRMNOECHO = 1E PARAMETER IO$V_TRMNOECHO = 12 ! Terminators are  not echoed# PARAMETER IO$S_REFRESH = 1C PARAMETER IO$V_REFRESH = 13 ! Control-R interrupted read" PARAMETER IO$S_ESCAPE = 1I 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 = 19 PARAMETER IO$V_CANC TRLO = 6 ! Cancel control O$ PARAMETER IO$S_ENABLMBX = 17 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 = 17 PARAMETER IO$V_BREAKTHRU = 9 ! Broadcast I/O# PARAMETER IO$S_NEWLINE = 19 PARAMETER IO$V_NEWLINE = 10 ! Output a newline BYTE %FILL (1) END MAP.! TT driver SENSEMODE function modifier bit!s. MAP& PARAMETER IO$S_TYPEAHDCNT = 1F PARAMETER IO$V_TYPEAHDCNT = 6 ! Sense typeahead information BYTE %FILL (1) END MAP/! TT driver SETMODE subfunction modifier bits. MAP! PARAMETER IO$S_MAINT = 1@ 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 = 16 PARAMETER IO$V_CTRLCAST = 8 ! Set C "ontrol C" PARAMETER IO$S_HANGUP = 1@ 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 = 1H PARAMETER IO$V_TT_CONNECT = 11 ! Connect to detached terminal% PARAMETER IO$S_TT_DISCON = 1G PARAMETER IO$V_TT_DISCON = 12 ! Disconnect detached terminal& PARAMETER IO$S_TT_PROCESS = 1F PARAMETER IO$V_TT #_PROCESS = 13 ! Define controlling process" PARAMETER IO$S_BRDCST = 1= PARAMETER IO$V_BRDCST = 14 ! Define broadcast mask BYTE %FILL (2) END MAP5! TT driver MAINTIANCE subfunction submodifier bits. MAP PARAMETER IO$S_LOOP = 19 PARAMETER IO$V_LOOP = 7 ! Diagnostic loopback" PARAMETER IO$S_UNLOOP = 1@ PARAMETER IO$V_UNLOOP = 8 ! Diagnostic reset loopback$ PARAMETER IO$S_LINE_OFF = 15 PARAMETER IO$V_ $LINE_OFF = 9 ! Disable line% PARAMETER IO$S_SET_MODEM = 1C PARAMETER IO$V_SET_MODEM = 10 ! Diagnostic modem control# PARAMETER IO$S_LINE_ON = 14 PARAMETER IO$V_LINE_ON = 11 ! Enable line$ PARAMETER IO$S_LOOP_EXT = 1F 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 I%O$V_AUTXOF_DIS = 14 ! Disable auto XOFF BYTE %FILL (1) END MAP'! TT driver out-of-band modifier bits. MAP# PARAMETER IO$S_INCLUDE = 1D 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 = 1L PARAMETER & IO$V_POSIXINIT = 6 ! Enable initialization subfunctions% PARAMETER IO$S_POSIXFLOW = 1% PARAMETER IO$V_POSIXFLOW = 7> BYTE %FILL (1) ! Enable flow control subfunctions END MAP;! Posix terminal driver INIT subfunction submodifier bits. MAP% PARAMETER IO$S_SET_POSIX = 1H PARAMETER IO$V_SET_POSIX = 7 ! Set TT3$M_POSIX and set up PTC' PARAMETER IO$S_CLEAR_POSIX = 1O PARAMETER IO$V_CLEAR_POSIX = 8 ! Clear TT3$M_POSI 'X (opt. delete PTC)' PARAMETER IO$S_SET_TERMIOS = 1: PARAMETER IO$V_SET_TERMIOS = 9 ! Set up termios# PARAMETER IO$S_SET_PTC = 1: PARAMETER IO$V_SET_PTC = 10 ! Set up all of PTC% PARAMETER IO$S_CLEAR_PTC = 14 PARAMETER IO$V_CLEAR_PTC = 11 ! clear PTC% PARAMETER IO$S_FLUSH_TAB = 1A PARAMETER IO$V_FLUSH_TAB = 12 ! flush typeahead buffer( PARAMETER IO$S_FLUSH_OUTPUT = 1E PARAMETER IO$V_FLUSH_OUTPUT = 1 (3 ! flush outstanding writes& PARAMETER IO$S_UPDATE_PTC = 16 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_XOF)F = 10 ! Simulate input XOFF" PARAMETER IO$S_IN_XON = 1: PARAMETER IO$V_IN_XON = 11 ! Simulate input XON BYTE %FILL (1) END MAP5! Posix terminal driver READ function modifier bits. MAP& PARAMETER IO$S_O_NONBLOCK = 13 PARAMETER IO$V_O_NONBLOCK = 6 ! Nonblock BYTE %FILL (1) END MAP9! 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 = 1E 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 = 1D PARAMETER IO$V_NOBLOCK = 9 ! Segment message w/o blocking! Bit 13 used for EXFUNC! Bit 19 used for TRUSTED BYTE %FILL (1) END MAP2! Network ACCESS/DEACCESS function modifier bits. MAP! P+ARAMETER IO$S_ABORT = 1E 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 MAP3! DATALINK driver WRITE subfunction modifier bits. MAP$ PARAMETER IO$S_RESPONSE = 1K PARAMETER IO$V_RESPONSE = 6 ! Transmit this packet as a response BYTE %FILL (1) END MAP6! DATALINK driver SETMODE subfunction modifier bits.  , MAP# PARAMETER IO$S_STARTUP = 16 PARAMETER IO$V_STARTUP = 6 ! Start protocol$ PARAMETER IO$S_SHUTDOWN = 16 PARAMETER IO$V_SHUTDOWN = 7 ! Stop protocol# PARAMETER IO$S_ATTNAST = 15 PARAMETER IO$V_ATTNAST = 8 ! Attention AST PARAMETER IO$S_CTRL = 1K 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 - BYTE %FILL (1) END MAP7! DATALINK driver SENSEMODE subfunction modifier bits. MAP" PARAMETER IO$S_RD_MEM = 19 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 = 16 PARAMETER IO$V_RD_COUNT = 8 ! Read counters% PARAMETER IO$S_CLR_COUNT = 19 PARAMETER IO$V_CLR_COUNT = 10 ! Clear counters% PARAMETER. IO$S_SENSE_MAC = 1? PARAMETER IO$V_SENSE_MAC = 11 ! Sense MAC parameters 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 = 71 BYTE %FILL (1) ! Accept virtual call END MAP)! LPA-11 driver STARTDATA modifier bits. MAP" PARAMETER IO$S_SETEVF = 15 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 = 1Q PARAMETER IO$V_WORD = 6 ! Word (inte 0rrupt)/block (DMA) mode specifier# PARAMETER IO$S_SETFNCT = 1E PARAMETER IO$V_SETFNCT = 9 ! Set "FNCT" bits in device CSR$ PARAMETER IO$S_DATAPATH = 1O PARAMETER IO$V_DATAPATH = 10 ! Change UBA datapath (direct/buffered)! PARAMETER IO$S_CYCLE = 1D 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 1&! 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 = 1F 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 = 1B PARAMETER IO$V_SETENQCNT = 11 ! Set a new ENQ threshold! PARAMETER IO$S_CLEAR 2= 1; PARAMETER IO$V_CLEAR = 12 ! Zero status counters" PARAMETER IO$S_LPBEXT = 1E PARAMETER IO$V_LPBEXT = 13 ! Loopback is external loopback" PARAMETER IO$S_LPBINT = 1M PARAMETER IO$V_LPBINT = 14 ! Loopback is internal loopback (DUP11)# PARAMETER IO$S_READCSR = 1$ PARAMETER IO$V_READCSR = 150 BYTE %FILL (1) ! Read CSRs on DUP11 END MAP$! XW driver function modifier bits. MAP% PARAMETER IO$S_NO 3CTSWAIT = 1> PARAMETER IO$V_NOCTSWAIT = 6 ! Diagnostic function $ PARAMETER IO$S_SLAVLOOP = 1= PARAMETER IO$V_SLAVLOOP = 7 ! Diagnostic function % PARAMETER IO$S_NODSRWAIT = 1E 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 = 1A PARAMETER IO$V_LASTBLOCK = 10 ! Last block of message $ 4 PARAMETER IO$S_INTCLOCK = 19 PARAMETER IO$V_INTCLOCK = 12 ! Internal clock  BYTE %FILL (1) END MAP%! LAT driver function modifier bits. MAP& PARAMETER IO$S_LT_CONNECT = 1R PARAMETER IO$V_LT_CONNECT = 6 ! Solicit connection to remote LAT device% PARAMETER IO$S_LT_DISCON = 1@ PARAMETER IO$V_LT_DISCON = 7 ! Disconnect LAT session' PARAMETER IO$S_LT_READPORT = 1@ PARAMETER IO$V_LT_READPORT = 8 ! Read LAT 5 device info' PARAMETER IO$S_LT_MAP_PORT = 1@ 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 = 1A PARAMETER IO$V_LT_SOL_INFO = 11 ! Request solicit info' PARAMETER IO$S_LT_RCV_INFO = 1B PARAMETER IO$V_LT_RCV_INFO = 12 ! Setup to recive reply& PARAMETER IO$S_LT_SETMODE = 1A PARAMETER I 6O$V_LT_SETMODE = 13 ! SETMODE on LTA device( PARAMETER IO$S_LT_SENSEMODE = 1D PARAMETER IO$V_LT_SENSEMODE = 14 ! SENSEMODE on LTA device, 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 7_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 = 1@ PARAMETER IO$V_LT_MAP_SRVNAM = 3 ! Server service name) PARAMETER IO$S_LT_MAP_LNKNAM = 16 PARAMETER IO$V_LT_MAP_LNKNAM = 4 ! Link name) PARAMETER IO$S_LT_MAP_NETADR = 1A PARAMETER IO$V_LT_MAP_NETADR = 5 ! Server Ethernet Add. 8 BYTE %FILL (1) END MAP*! MKDRIVER function modifiers for SETMODE MAP# PARAMETER IO$S_MKFILL1 = 1M PARAMETER IO$V_MKFILL1 = 6 ! Filler to not coincide with TU modif.+ PARAMETER IO$S_ALLOWFAST_NEVER = 1L PARAMETER IO$V_ALLOWFAST_NEVER = 7 ! Disable all skip by filemarks, PARAMETER IO$S_ALLOWFAST_PER_IO = 1T PARAMETER IO$V_ALLOWFAST_PER_IO = 8 ! Enable skip by filemarks w/ modifier, PARAMETER IO$S_ALLOWFAST_ALWAYS9 = 1U PARAMETER IO$V_ALLOWFAST_ALWAYS = 9 ! Default all IO$_SKIPFILE to filemarks BYTE %FILL (1) END MAP END UNION END STRUCTURE ! IODEFCDEC$ END OPTIONS ww'!*** MODULE $IOSADEF ***CDEC$ OPTIONS /NOALIGN! +! NOTE:D! The tags used in the data structures defined by this file reflect@! the size of the field in the OpenVMS V7.0 ALPHA release. TheD! field names have been ported to the VAX release for compatabilityC! reasons and it is : recognized that some of the fields are shorterC! than their tags indicated. If the tags were to be corrected forB! their proper size on VAX it would break our goal of application)! source code compatability for Fast IO.! -! +! Define I/O Status Area! -8 PARAMETER IOSA$K_LENGTH = '00000020'X ! Length of IOSA8 PARAMETER IOSA$C_LENGTH = '00000020'X ! Length of IOSA7 PARAMETER iosa$S_IOSADEF = '00000020'X ! Size of IOSA STRUCTURE /iosa/( INTEGER*4 iosa$l_status ! ;Status1 INTEGER*4 iosa$l_resd ! Reserved (driver) UNION MAP3 INTEGER*4 iosa$q_count_q(2) ! Force size END MAP MAP5 INTEGER*4 iosa$ih_count ! Number of bytes END MAP END UNION UNION MAP5 INTEGER*4 iosa$q_context_q(2) ! Force size END MAP MAP: INTEGER*4 iosa$ph_context_p ! User context area END MAP MAP8 INTEGER*4 iosa$ih_context ! < User context area END MAP END UNION UNION MAP; INTEGER*4 iosa$l_resl(1:2) ! in the future some END MAP MAP5 INTEGER*4 iosa$q_resq ! additional space END MAP END UNION END STRUCTURE ! iosa! +! $IO_SETUP flag bits! -' PARAMETER fio$m_expedite = '00000001'X* PARAMETER fio$m_ast_nofloat = '00000002'X STRUCTURE /setup_flags/ UNION MAP# INTEGER*4 fio$l_flags_longword END MAP = MAP% PARAMETER fio$S_expedite = 1G PARAMETER fio$V_expedite = 0 ! Make this a high-priority I/O( PARAMETER fio$S_ast_nofloat = 1S PARAMETER fio$V_ast_nofloat = 1 ! The AST routine does not use f.p. regs BYTE %FILL (1) END MAP END UNION END STRUCTURE ! setup_flags! D! These entry point definitions were ported from Alpha STARLET.SDL.C! They are applicable only when the IOSA structure definitions areF! present and are not actual sy>stem services on VAX. Therefore, they5! will remain in this file (IOSADEF.SDL) for the VAX! ! $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_PERFORM! -! Transfer data between device and buffer! <! $IO_PERFORM fandle, chan, iosadr, bufadr, buflen, devdata! ($IO_PERFORMW)! *! fandle = fandle from previous $IO_SETUP! ! chan = st?andard I/O channel! ! iosadr = IOSA address! ,! bufadr = address of data buffer (64 bits)! +! buflen = length of data buffer (64 bits)! 6! 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! @! $IO_SETUP func, bufobj, iosobj, astadr, flags, return_fandle! ! func = function code ! >! bufobj = data buffer ob@ject (address of (vector of 2 ints))! >! iosobj = IOSA buffer object (address of (vector of 2 ints))! 5! astadr = completion AST address (address of entry)! ! flags = flags! -! return_fandle = address of returned fandle!  INTEGER*4 SYS$IO_SETUP EXTERNAL SYS$IO_SETUPCDEC$ END OPTIONS ww+!*** MODULE $ISSDEF ***CDEC$ OPTIONS /NOALIGN! +;! $PERSONA_CREATE, $PERSONA_CREATE_INT itemlist item codesD! These item codes must match the TLV item Acodes in [LIB]PSBDEF.SDL! ! -! +L! At the time of this modules creation there are four CHP$ item codes whichL! 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! G! This is to preserve backward comptibility with $CREATE_USER_PROFILE.! -7 PARAMETER ISS$_FLAGS = '00000001'X ! 1 Persona Bflags3 PARAMETER ISS$_ARBFLAGS = '00000002'X ! 2 Unused? PARAMETER ISS$_WORKPRIV = '00000003'X ! 3 Working privileges4 PARAMETER ISS$_MODE = '00000004'X ! 4 Access modeD PARAMETER ISS$_WORKCLASS = '00000005'X ! 5 Working classification1 PARAMETER ISS$_RIGHTS = '00000006'X ! 6 Rights@ PARAMETER ISS$_ADD_RIGHTS = '00000007'X ! 7 Add to the RightsH PARAMETER ISS$_ADD_AUTHRIGHTS = '00000008'X ! 8 Add to the AuthRights5 PARAMETER ISS$_USERNAME = '00000009'X ! 9 Username3 PARAMCETER ISS$_ACCOUNT = '0000000A'X ! 10 Account< PARAMETER ISS$_NOAUDIT = '0000000B'X ! 11 No Audit settingB PARAMETER ISS$_AUTHPRIV = '0000000C'X ! 12 Authorized privilegesA PARAMETER ISS$_PERMPRIV = '0000000D'X ! 13 Permanent privilegesK PARAMETER ISS$_IMAGE_WORKPRIV = '0000000E'X ! 14 Image working privileges? PARAMETER ISS$_ENABLED = '0000000F'X ! 15 Rights enabled mask@ PARAMETER ISS$_AUTHRIGHTS = '00000010'X ! 16 Authorized rightsC PARAMETER ISS$_MINCLASS = '00000011'X ! 17 Minim Dum classificationC PARAMETER ISS$_MAXCLASS = '00000012'X ! 18 Maximum classification+ PARAMETER ISS$_UID = '00000013'X ! 19 UID9 PARAMETER ISS$_PERSONA_ID = '00000014'X ! 20 Persona ID< PARAMETER ISS$_PRINCIPAL = '00000015'X ! 21 Principal Name+ PARAMETER ISS$_UIC = '00000016'X ! 22 UICO PARAMETER ISS$_SWITCH_EXTENSION = '00000017'X ! 23 Switch Extension directiveK PARAMETER ISS$_PRIMARY_EXTENSION = '00000018'X ! 24 PSB Primary ExtensionM PARAMETER ISS$_EXTENSION_COUNT = '0000001 E9'X ! 25 Count of valid extensionsP PARAMETER ISS$_EXTENSION_ARRAY = '0000001A'X ! 26 Array of valid extension IDsN PARAMETER ISS$_RIGHTS_INDEX = '0000001B'X ! 27 Rights Chain Index - sets the ! chain for all rights list! operations.+ PARAMETER ISS$_MIN_ITEM_CODE = '00000001'X+ PARAMETER ISS$_MAX_ITEM_CODE = '0000001B'X! +#! Bits within item code ISS$_FLAGS! -- PARAMETER ISS$M_FLAG_PERMANENT = '00000001'X, PARAMETER ISS$M_FLAG_SECAUDIT = '00000002'X STRUCTURE /ISSFFLAGSDEF/ 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 attributes that are normally$! present in all persona extensions3 PARAMETER ISS$_COMMON_FLAGS = '00000400'X ! Flags9 PARAMETER ISS$_COMMON_USERNAME = '00000401'X ! Username7 PARAM GETER 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 ! 2 PARAMETER ISS$_MIN_COMMON_ITEM_CODE = '00000400'X2 PARAMETER ISS$_MAX_COMMON_ITEM_CODE = '00000406'XF! Codes that represent attributes specific to each persona extension.,! These codes are shared by all extensions."! NT Persona extension item codes/ PARAM HETER ISS$_NT_TOKEN = '00002000'X ! tokenE 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'XO PARAMETER ISS$_NT_CREDENTIALS = '00002005'X ! access token + security context3 PARAMETER ISS$_NT_NT_OWF_PASSWORD = '00002006'X ! 3 PARAMETER ISS$_NT_LM_OWF_PASSWORD = '00002007'X ! 1 PARAMETER ISS$_NT_UNPACK_CRED_SIZE = '00002008'X. PARAMETER ISS$_ INT_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_VARIABLELENGTH = '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_D JEFAULTDACL = '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_T KOKEN_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 =L '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 M, 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 ENDN 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'X+ PARAMETER ISS$C_ARB_MAX_CODE = '00000003'X+ PARAMETER ISS$C_ARB_MIN_CODE = '00000000'X! Reserved Persona Ids) PARAMETER ISS$C_ID_NATURAL = '00000001'X! +!! Persona services control flags! -( PARAMETER ISS$M_IOMP_FLAGS = '0000007F'X1 PARAMETER ISS$M_ASSUME_NODEREF_OLD = '00010000'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_NOACCESS = '00100000'X STRUCTURE /ISSSRVCFLG/ UNION! ! Common flags!  MAP& PARAMETER ISS$S_IMP_FLAGS = 7G PARAMETER ISS$V_IMP_FLAGS = 0 ! Previously defined IMP flags BYTE %FILL (1) END MAP! ! ASSUME service Pcontrol flags!  MAP/ PARAMETER ISS$S_ASSUME_NODEREF_OLD = 1N PARAMETER ISS$V_ASSUME_NODEREF_OLD = 16 ! Do not drop a reference to! the old (pre-ASSUME) persona- PARAMETER ISS$S_ASSUME_NOREF_NEW = 1K 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 = 1H PARAMETERQ ISS$V_CREATE_DEFPRIV = 3 ! Create psb w/ def. privs., PARAMETER ISS$S_CREATE_DEFCLASS = 1I PARAMETER ISS$V_CREATE_DEFCLASS = 4 ! Create psb w/ def. class.! and the assume flags.% PARAMETER ISS$S_NOACCESS = 1B PARAMETER ISS$V_NOACCESS = 20 ! When set, do not access! the SYSUAF or RIGHTSLIST.! This is similar to ! CREATE_USER_PROFILE. BYTE %FILL (1) END MAP END UNION END STRUCTURE ! ISSSRVCFLG! NT TLV version number + PARRAMETER ISS$K_NT_VERSION_1 = '00000001'XCDEC$ END OPTIONS ww!*** MODULE $JBCMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:49.39! 3! DEC/CMS REPLACEMENT HISTORY, ELEMENT JBCMSG.MSGD! *12 7-SEP-1990 17:30:09 HEIMBACH "Add a few more V6 messages"9! *11 7-AUG-1990 16:57:43 HEIMBACH "Add V6 messages"b! 10K1 31-MAY-1990 02:20:49 GRIFFIN "Re-create EVAX variant stream (create gen with 'K' i Sn it)"F! 10E1 1-MAR-1990 19:36:34 GRIFFIN "create variant 'E' generation"?! *10 18-NOV-1987 18:33:07 KRYCKA "add JOBCTLABORT message")! *9 12-JAN-1987 14:28:05 SPEIGHT ""g! *8 29-DEC-1986 16:47:51 SPEIGHT "Changes for rolling upgrade - ACLs on queues, and misc. fixes.")! *7 23-OCT-1986 16:52:39 SPEIGHT ""G! *6 9-JUL-1986 15:46:18 SPEIGHT "B1 changes for job controller."T! 5H1 23-MAY-1986 19:42:09 GAMACHE "Create new SMP thread from V5.0_BL2 modules"X! 5TE1 3-APR-1986 19:48:43 HOLSTEIN "Create new Exec Reorg thread from V4.4 modules"Q! 5F1 18-MAR-1986 19:00:17 HOLSTEIN "Create new SMP thread from V4.4 modules"W! 5D1 10-DEC-1985 14:57:10 HOLSTEIN "Create new exec reorg thread from BL7 modules"Z! 1C5 31-OCT-1985 16:27:45 MATTHEWS "Copy SMP initial generation to EXEC_REORG thread"G! 1C4 25-OCT-1985 09:39:57 FIORELLI "base level1 used to do builds"B! 1C3 24-OCT-1985 08:41:47 FIORELLI "bring up to base level 2"B! 1C2 21-OUCT-1985 22:22:36 FIORELLI "bring up to base level 2"E! *5 4-OCT-1985 14:18:56 SPEIGHT "Change JBC$_NOSUCHNODE text."+! *4 19-SEP-1985 13:59:56 SPEIGHT "::"@! *3 5-SEP-1985 13:17:52 SPEIGHT "Form per queue changes."B! 1C1 29-JUL-1985 22:55:17 FIORELLI "Initial EXEC_REORG entry">! 2A1 20-JUL-1985 06:05:18 SYSTEMBUILD "Initial SMP entry">! *2 17-JUN-1985 23:32:46 SYSTEMBUILD "Post V4.0 changes"I! *1 17-JUN-1985 23:32:08 SYSTEMBUILD "Initial entry of V4.0 source V"3! DEC/CMS REPLACEMENT HISTORY, ELEMENT JBCMSG.MSG! ! VERSION: 'X-19'! ! * *@! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1990,1994 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. TH WIS 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 USEX OR RELIABILITY OF ITS *C! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! * *! * *! MODIFIED BY:<! X-19 CAK1010 ASWIN KUMAR 13-MAY-1994J! ADD ACCNOTENB, TO BE USED WHEN ACCOUNTING IS DISABLED AND1! SJC$_NEW_VERSION ITEM IS PRESENT! '! X-18 TNF0319 TODD FLOLO 12 FEB 1992C! ADD QMANABORT, DENOTING THAT A REQUEST CAUSED THE QUEUE MANAGER ! TO ABORT.! +! X-17 RG40209 R YAY GUZMAN 11-NOV-1991B! ADD THREE NEW MESSAGES TO RETURN TO THE USER. QMGREXISTS ISB! RETURNED WHEN AN ATTEMPT TO ADD A QUEUE MANAGER NAME THAT ISB! ALREADY DEFINED IS MADE. TWOQMGRS IS RETURNED WHEN A REQUESTB! IS MADE THAT WOULD REQUIRE INFORMATION FROM TWO DIFFERENTB! QUEUE MANAGERS. INVQMANNAM IS RETURNED FOR INVALIDE QUEUED! MANAGER NAMES. NOMOREQMGR IS RETURNED DURING WILDCARD SEARCHES.! +! X-16 RG40126 RAY GUZMAN 4-APR-1991B! MODIFY THE TEXT Z OF TWO MESSAGES INVMSG, NOAUTOSTART &B! QUEDISABLED. ALSO REMOVE BADMSG, NOMASTER, & BADLOCK FROMB! THIS FILE SINCE THEY ARE NO LONGER USEFUL AND NEVER WENT WITHB! ANY SHIPPED RELEASE. ALSO ADD FAILCREPRC TO THE LIST OF! MESSAGES TO BE SIGNALLED.! +! X-15 RG40063 RAY GUZMAN 8-FEB-1991B! ADD TWO NEW MESSAGES ONE FOR UNEXPECTED QUEUE MANAGER FAILURES4! AND ANOTHER FOR RESOLVING LOST DELPROC MESSAGES.! +! X-14 RG40052 RAY GUZMAN 22-JAN-19912! [ MODIFY JBC$_NOTSUPPORTED TO BE A SEVERE ERROR.! +! X-13 RG40043 RAY GUZMAN 11-JAN-1991B! ADD BUFTOOSMALL TO INDICATE THAT ALL THE DESIRED DATA COULDB! NOT BE RETURNED BECAUSE OF A LIMITTED BUFFER SIZE. ALSO ADDB! QMANNOTSTARTED TO INDICATE THAT THE QUEUE MANAGER COULD NOT BE ! STARTED.! ,! X-12 SEH0032 SUSAN HEIMBACH 6-SEP-1990(! MODIFY NOTSUPPORTED AND TOOMUCHINFO.+! 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-19865! FIX ERROR NFYQUESTATE TO ALLOW A PARAMETER, WHERE3! THAT PARAMETER WILL BE USED TO SPECIFY A NUMBER3! OF QUEUE STATES - STALLED, STOPPED, PAUSED ETC.! (! X-7 JES0036 JACK SPEIGHT 08-SEP-19864! ADD NEW MESSAGES FOR VERSION 5.0 - BASE LE]VEL 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-1985@! MOVE JBC$_NOCMKRNL, JBC$_NOOPER, AND JBC$_SYSNAM DEFINITIONS! HERE FROM JOBCTLDEF.REQ.! *! V04-004 JAK0405 J A KRYCKA 26-APR-1985:! ADD JBC$_NOMORECHAR, JBC$_NOMOREFILE, JBC$_NOMOREFORM,D! JBC$_NOMOREJOB, JBC$_NOMOREQUE, JBC$_NOJOBCTX, AND JBC$_NOQU ^ECTX ! 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 ACTUALLYB! RETURNED BY THE JOB CONTROLLER IN THE USER'S I/O STATUS BLOCK.@! PRIOR TO THIS CHANGE ALL NON-SUCCESS CODES WERE DEFINED HEREA! WITH A SEVERITY LEVEL OF WARNING AND THE JOB CONTROLLER ADDED?! THE PROPER SEVERITY LEVEL. ALSO MAKE MINOR EDITS TO CERTAIN! MESSAGE TEXT.! /! V04-002 JES_0032 JACK SPEIGHT 03-APR-19859! ADD JBC$_RESTRICT, JBC$_NFY_FAILURE, JBC$_NFY_CPULIM, ! AND JBC$_NFY_WSVAL MESSAGES.! /! V04-001 JES0031 JACK SPEIGHT 15-MAR-1985 ! ADD JBC$_QUENOTSTOP MESSAGE.& PARAMETER JBC$_FACILITY = '00000004'X! Q! THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB5! SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE.! G! THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE.! P! NOTE: ERROR CODES W `ITH ASSOCIATED TEXT OF <> ARE RETIRED ERROR CODES AND HAVE! A SEVERITY LEVEL OF SEVERE.! C PARAMETER JBC$_NORMAL = '00040001'X ! O PARAMETER JBC$_NOCMKRNL = '00042802'X ! K PARAMETER JBC$_NOOPER = '00042892'X ! O PARAMETER JBC$_NOSYSNAM = '00042812'X ! ' PARAMETER JBC$_ILLDEVNAM = '00048004'X' PARAMETER JBC$_UNSDEVTYP = '0004800C'X' PARAMETER JBC a$_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( PARAMETER JBC$_REFERENCED = '00048052'X% PARAMETER JBC$_STARTED = '0004805A'X' PARAMETER JBC$_INVITMCOD = '00048064'X' PARAMETER JBC$_INVFUNCOD = '0004806C'X& PARAMETER JBC$_EMPTYJOB b = '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 JBC$_CREPRCFAL = '000480B4'X' PARAMETER JBC$_SYMNTBFUL = '000480BC'X& PARAMETER JBC$_NODSTQUE = '000480C2'X' PARAMETER JBC$_INVDSTQUE = '000480CC'X' PARAMETER JBC$_JOBDELETE = '00048 c0D4'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$_INVPARVAL = '00048114'X' PARAMETER JBC$_INCQUETYP = '0004811C'X' PARAMETER JBC$_INCDSTQUE = '00048124'X' PARAMETER JBC$_JOBQUEENA = '0004812A'X' PARAMETER JBC$_NOTASSIGN = '00048132'X d( 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$_NOSUCHFILE = '00048172'X' PARAMETER JBC$_DELACCESS = '0004817A'X( PARAMETER JBC$_QUENOTSTOP = '00048182'X( PARAMETER JBC$_NOMORECHAR = '0004818A'X( PARAMETER JBC$_NOMOREFILE = '00048192'X( P eARAMETER 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 = '000481D2'X' PARAMETER JBC$_NOSUCHENT = '000481DA'X' PARAMETER JBC$_NOMOREENT = '000481E2'X) PARAMETER JBC$_JOBCTLABORT = '000481EC'X* PARAMETER JBC$_NOTSUPPORTED = '000481F4'X+ PARAM fETER 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$_ATTNOTAVAIL = '00048232'X% PARAMETER JBC$_QEXISTS = '0004823A'X( PARAMETER JBC$_NOSUCHQMGR = '00048242'X( PARAMETER JBC$_JOBNOTEXEC = '0004824A'X) PARAMETER JBC$_DUPCHARNAME = '00048252'X( g 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$_NOTALLREQUE = '00048290'X# PARAMETER JBC$_NULL1 = '0004829C'X) PARAMETER JBC$_TOOMUCHINFO = '000482A2'X* PARAMETER JBC$_AUTONOTSTART = '000482AB'X# PARAMETER JBC$_NULL2 = '000482B2'X, h 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$_QMANABORT = '000482F4'X! N! THE FOLLOWING CODES ARE SIGNALLED TO THE CONSOLE OR BROADCAST TO THE USER'S"! TERMINAL BY THE JOB CONTROLLER.! I! THESE MESSAGES ARE NOT PUBLIC AND MiAY CHANGE FROM RELEASE TO REALEASE.! O! 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 JBC$_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 j$_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 = '0004847A'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_TI kMER = '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 = '000484DB'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_ lNOLOWER = '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 = '0004853C'X% PARAMETER JBC$_QMANDEL = '00048542'X! 9! THIS IS CONTINUATION OF THE FIRST PORTION OF MESSAGES.Q! THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMBm5! SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE.! G! THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE.! ' PARAMETER JBC$_ACCNOTENB = '00048FA2'XCDEC$ END OPTIONSww .!*** MODULE $JPIDEF ***CDEC$ OPTIONS /NOALIGN! +! :! Get Job Process Information Data Identifier Definitions! ! **** NOTE ****! E! New items must always be added to the END of each item listG! (preceeding the ENDlistname item) so that users nwill not have! to relink.! -! DEFINE TABLE NUMBERS "! STRUCTURE CODES MUST START AT 1B PARAMETER JPI$C_ADRTYPE = '00000001'X ! ITEM IS ADDRESS OF DATA D PARAMETER JPI$C_CTLTYPE = '00000002'X ! ITEM IS IN CONTROL REGION 6 PARAMETER JPI$C_PCBTYPE = '00000003'X ! ITEM IN PCB 6 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_JIBTY oPE = '00000007'X ! ITEM IN JIB (SUBTYPE)? PARAMETER JPI$C_ARBTYPE = '00000008'X ! ITEM IN ARB (SUBTYPE)< PARAMETER JPI$C_MAXSTRUC = '00000006'X ! TOTAL OF 6 TABLESC PARAMETER JPI$C_LISTEND = '00000000'X ! DEFINE ITMLST TERMINATOR . PARAMETER JPI$_CHAIN = -1 ! CHAIN INDICATORB 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 p STRUCTURE /JPICTLDEF/ UNION MAP1 INTEGER*4 %FILL ! Control item flags END MAP MAP1 PARAMETER JPI$S_NO_TARGET_INSWAP = 1z PARAMETER JPI$V_NO_TARGET_INSWAP = 0 ! Do not inswap the target process, (do deliver ASTs if it is resident). PARAMETER JPI$S_NO_TARGET_AST = 1K PARAMETER JPI$V_NO_TARGET_AST = 1 ! Do not send AST to target5 PARAMETER JPI$S_IGNORE_TARGET_STATUS = 1Q q PARAMETER JPI$V_IGNORE_TARGET_STATUS = 2 ! Don't check target state BYTE %FILL (1) END MAP END UNION END STRUCTURE ! JPICTLDEF>! NOTE: the following constants must match values in $JIBDEF!8 PARAMETER JPI$K_OTHER = '00000000'X ! JPI$_Mode values: PARAMETER JPI$K_NETWORK = '00000001'X ! JPI$_Mode values8 PARAMETER JPI$K_BATCH = '00000002'X ! JPI$_Mode values> PARAMETER JPI$K_INTERACTIVE = '00000003'X ! JPI$_Mode values> PARAMETER JPI$K_DETACHED = '00000000'X ! r 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_PASSWORD_WARNING = '00000008'X0 PARAMETER JPI$M_PASSWORD2_CHANGED = '00000010'X0 PARAMETER JPI$M s_PASSWORD2_EXPIRED = '00000020'X0 PARAMETER JPI$M_PASSWORD2_WARNING = '00000040'X STRUCTURE /JPILGIDEF/ UNION MAP8 INTEGER*4 %FILL ! Miscellaneous LOGIN flags END MAP MAP2 PARAMETER JPI$S_NEW_MAIL_AT_LOGIN = 1R PARAMETER JPI$V_NEW_MAIL_AT_LOGIN = 0 ! User had new MAIL message(s)1 PARAMETER JPI$S_PASSWORD_CHANGED = 1M PARAMETER JPI$V_PASSWORD_CHANGED = 1 ! Primary password changed1 PtARAMETER JPI$S_PASSWORD_EXPIRED = 1V PARAMETER JPI$V_PASSWORD_EXPIRED = 2 ! Primary password expired on login1 PARAMETER JPI$S_PASSWORD_WARNING = 1Y PARAMETER JPI$V_PASSWORD_WARNING = 3 ! Primary password expiration imminent2 PARAMETER JPI$S_PASSWORD2_CHANGED = 1P PARAMETER JPI$V_PASSWORD2_CHANGED = 4 ! Secondary password changed2 PARAMETER JPI$S_PASSWORD2_EXPIRED = 1Y PARAMETER JPI$V_PASSWORD2_EXPIRED = 5 u ! 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 F PARAMETER JPI$_ASTACT = '00000300'X ! ACCESS MODES WITH ACTIVE ASTS F PARAMETER JPI$_ASTEN = '00000301'X ! ACCESS MODES WITH ASTS ENABLED > PARAMETER JPI$_PRI = '00000302'X ! CURRENT PROCESS PRI vORITY > PARAMETER JPI$_OWNER = '00000303'X ! PID OF CREATOR PROCESS 4 PARAMETER JPI$_UIC = '00000304'X ! UIC OF PROCESS 4 PARAMETER JPI$_STS = '00000305'X ! PROCESS STATUS 5 PARAMETER JPI$_STATE = '00000306'X ! PROCESS STATE 9 PARAMETER JPI$_MEM = '00000307'X ! MEMBER FIELD OF UIC 8 PARAMETER JPI$_GRP = '00000308'X ! GROUP FIELD OF UIC < PARAMETER JPI$_PRIB = '00000309'X ! PROCESS BASE PRIORITY @ PARAMETER JPI$_APTCNT = '0000030A'X ! ACTIVE PAGE TABLE COUNT ? PARAMETER JPI$_TMBU = 'w0000030B'X ! TERMINATION MAILBOX UNIT I PARAMETER JPI$_GPGCNT = '0000030C'X ! GLOBAL PAGE COUNT IN WORKING SET J PARAMETER JPI$_PPGCNT = '0000030D'X ! PROCESS PAGE COUNT IN WORKING SET < PARAMETER JPI$_ASTCNT = '0000030E'X ! AST COUNT REMAINING E PARAMETER JPI$_BIOCNT = '0000030F'X ! BUFFERED I/O COUNT REMAINING : PARAMETER JPI$_BIOLM = '00000310'X ! BUFFERED I/O LIMIT N PARAMETER JPI$_BYTCNT = '00000311'X ! BYTE COUNT REMAINING FOR BUFFERED I/O C PARAMETER JPI$_DIOCNT = '00000312'X ! x DIRECT I/O COUNT REMAINING > PARAMETER JPI$_DIOLM = '00000313'X ! DIRECT I/O COUNT LIMIT F PARAMETER JPI$_FILCNT = '00000314'X ! COUNT REMAINING OF OPEN FILES N PARAMETER JPI$_TQCNT = '00000315'X ! COUNT REMAINING OF TIMER QUEUE ENTRIES ; PARAMETER JPI$_EFWM = '00000316'X ! EVENT FLAG WAIT MASK = PARAMETER JPI$_EFCS = '00000317'X ! LOCAL EVENT FLAGS 0-31 > PARAMETER JPI$_EFCU = '00000318'X ! LOCAL EVENT FLAGS 32-63 < PARAMETER JPI$_PID = '00000319'X ! PROCESS IDENTIFICATION E PARAMyETER JPI$_BYTLM = '0000031A'X ! BUFFERED I/0 BYTE COUNT LIMIT 9 PARAMETER JPI$_PRCCNT = '0000031B'X ! SUBPROCESS COUNT 5 PARAMETER JPI$_PRCNAM = '0000031C'X ! PROCESS NAME > PARAMETER JPI$_TERMINAL = '0000031D'X ! LOGIN TERMINAL NAME P PARAMETER JPI$_JOBPRCCNT = '0000031E'X ! TOTAL COUNT OF SUBPROCESSES IN A JOB @ PARAMETER JPI$_ENQCNT = '0000031F'X ! ENQUEUE COUNT REMAINING ; PARAMETER JPI$_ENQLM = '00000320'X ! ENQUEUE COUNT LIMIT K PARAMETER JPI$_SWPFILLOC = '00000321'X ! SWAP FI zLE BACKING STORE ADDRESS K PARAMETER JPI$_MODE = '00000322'X ! MODE VALUE (FROM STS) - DEFINED ABOVE6 PARAMETER JPI$_JOBTYPE = '00000323'X ! JOB TYPE CODE9 PARAMETER JPI$_PROC_INDEX = '00000324'X ! PROCESS INDEX> PARAMETER JPI$_MASTER_PID = '00000325'X ! MASTER PROCESS PID> PARAMETER JPI$_RIGHTSLIST = '00000326'X ! PROCESS RIGHTSLIST. PARAMETER JPI$_CPU_ID = '00000327'X ! CPU IDD PARAMETER JPI$_STS2 = '00000328'X ! Second process status longwordR PARAMETER JPI$_NODENAME = '00000329'X{ ! Name of node on which process is runningS 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 runningN PARAMETER JPI$_TT_PHYDEVNAM = '0000032C'X ! Physical device name of terminalJ PARAMETER JPI$_TT_ACCPORNAM = '0000032D'X ! Access port name of terminal> PARAMETER JPI$_PROCESS_RIGHTS = '0000032E'X ! Process rights< PARAMETER JPI$_SYSTEM_RIGHTS = '0000032F'X ! System righ|tsQ PARAMETER JPI$_IMAGE_RIGHTS = '00000330'X ! Image (protected sub-system) rights\ PARAMETER JPI$_RIGHTS_SIZE = '00000331'X ! Approximate size (in bytes) of all rights listsN PARAMETER JPI$_CLASSIFICATION = '00000332'X ! Current process classificationU PARAMETER JPI$_RMS_FILEPROT = '00000334'X ! Process default file protection for RMSN PARAMETER JPI$_MULTITHREAD = '00000335'X ! Kernel threads - max thread countG PARAMETER JPI$_KT_COUNT = '00000336'X ! Kernel threads - thread countW P}ARAMETER JPI$_INITIAL_THREAD_PID = '00000337'X ! Kernel threads - initial thread PIDK PARAMETER JPI$_THREAD_INDEX = '00000338'X ! Kernel threads - thread index)! ADD NEW ITEM-CODES BEFORE THIS COMMENT@ PARAMETER JPI$_LASTPCB = '0000034B'X ! MAX INDEX IN PCB TABLE ! ITEM IDENTIFIERS FOR PHD H PARAMETER JPI$_CURPRIV = '00000400'X ! CURRENT PROCESS PRIVILEGE MASK D PARAMETER JPI$_WSAUTH = '00000401'X ! AUTHORIZED WORKING SET SIZE C PARAMETER JPI$_WSQUOTA = '00000402'X ! QUOTA ON WORKIN ~G SET SIZE B PARAMETER JPI$_DFWSCNT = '00000403'X ! DEFAULT WORKING SET SIZE U PARAMETER JPI$_FREP0VA = '00000404'X ! FIRST FREE VIRTUAL ADDR. AT END OF P0 SPACE M PARAMETER JPI$_FREP1VA = '00000405'X ! FIRST FREE ADDR. AT END OF P1 SPACE B PARAMETER JPI$_DFPFC = '00000406'X ! DEFAULT PAGE FAULT CLUSTER = PARAMETER JPI$_CPUTIM = '00000407'X ! ACCUMULATED CPU TIME 8 PARAMETER JPI$_PRCLM = '00000408'X ! SUBPROCESS QUOTA 1 PARAMETER JPI$_ASTLM = '00000409'X ! AST LIMIT ? PARAMETER JPI$_PAGEFLTS = '0000040A'X ! COUNT OF PAGE FAULTS E PARAMETER JPI$_DIRIO = '0000040B'X ! PROCESS DIRECT I/O OPERATIONS G PARAMETER JPI$_BUFIO = '0000040C'X ! PROCESS BUFFERED I/O OPERATIONS D PARAMETER JPI$_CPULIM = '0000040D'X ! LIMIT ON CPUTIM FOR PROCESS C PARAMETER JPI$_PGFLQUOTA = '0000040E'X ! MAX. VIRTUAL PAGE COUNT 7 PARAMETER JPI$_FILLM = '0000040F'X ! OPEN FILE LIMIT 8 PARAMETER JPI$_TQLM = '00000410'X ! TIMER QUEUE LIMIT A PARAMETER JPI$_WSSIZE = '00000411'X ! CURRENT WORKING SET SIZE D PARAMETER JPI$_AUTHPRIV = '00000412'X ! AUTHORIZED PRIVILEGE MASK I PARAMETER JPI$_IMAGPRIV = '00000413'X ! INSTALLED IMAGE PRIVILEGE MASK L PARAMETER JPI$_PAGFILCNT = '00000414'X ! PAGES CHARGED TO PAGE FILE QUOTA P PARAMETER JPI$_FREPTECNT = '00000415'X ! ROOM FOR EXPANSION OF P0 OR P1 SPACE E PARAMETER JPI$_WSEXTENT = '00000416'X ! EXTENT OF WORKING SET SIZE J PARAMETER JPI$_WSAUTHEXT = '00000417'X ! MAX EXTENT OF WORKING SET SIZE I PARAMETER JPI$_AUTHPRI = '00000418'X ! AUTHORIZED PRIORITY FOR $SETPRI K PARAMETER JPI$_PAGFILLOC = '00000419'X ! PAGE FILE BACKING STORE ADDRESS O PARAMETER JPI$_IMAGECOUNT = '0000041A'X ! IMAGE COUNTER (CLOCKED BY RUNDOWN) C PARAMETER JPI$_PHDFLAGS = '0000041B'X ! PROCESS HEADER FLAGS WORD: PARAMETER JPI$_VP_CPUTIM = '0000041C'X ! VECTOR CPU TIMEW PARAMETER JPI$_VP_CONSUMER = '0000041D'X ! Flag -- is this process a vector consumer?)! ADD NEW ITEM-CODES BEFORE THIS COMMENTE PARAMETER JPI$_LASTPHD = '00000423'X ! M AX 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 ! USERNAME STRING = PARAMETER JPI$_ACCOUNT = '00000203'X ! ACCOUNT NAME STRING A PARAMETER JPI$_PROCPRIV = '00000204'X ! PROCESS PRIVILEGE MASK 9 PARAMETER JPI$_VOLUMES = '00000205'X ! VOLUMES MOUNTED L PARAMETER JPI$_LOGINTIM = '00000206'X ! TIME OF LOGIN OR PROCESS CREATION B PARAMETER JPI$_IMAGNAME = '00000207'X ! CURRENT IMAGE FILE NAME I PARAMETER JPI$_SITESPEC = '00000208'X ! PER-PROCESS SITE-SPECIFIC CELL F PARAMETER JPI$_MSGMASK = '00000209'X ! PROCESS DEFAULT MESSAGE FLAGSJ PARAMETER JPI$_CLINAME = '0000020A'X ! COMMAND LANGUAGE INTERPRETER NAMER PARAMETER JPI$_TABLENAME = '0000020B'X ! COMMAND LANGUAGE INTERPRETER TABLE NAMEW PARAMETER JPI$_CREPRC_FLAGS = '0000020C'X ! $CREPRC FLAGS USED TO CREATE THIS PROCESS@ PARAMETER JPI$_UAF_FLAGS = '0000020D'X ! FLAGS FROM UAF RECORDU PARAMETER JPI$_MAXDETACH = '0000020E'X ! MAXIMUM DETACHED PROCESSES FOR SINGLE USERQ PARAMETER JPI$_MAXJOBS = '0000020F'X ! MAXIMUM ACTIVE PROCESSES FOR SINGLE USERC PARAMETER JPI$_SHRFILLM = '00000210'X ! MAXIMUM OPEN SHARED FILESV PARAMETER JPI$_FAST_VP_SWITCH = '00000211'X ! NUMBER OF FAST VECTOR CONTEXT SWITCHESV PARAMETER JPI$_SLOW_VP_SWITCH = '00000212'X ! NUMBER OF SLOW VECTOR CONTEXT SWITCHESD PARAMETER JPI$_LAST_LOGIN_I = '00000213'X ! Last interactive loginH PARAMETER JPI$_LAST_LOGIN_N = '00000214'X ! Last non-interactive loginQ PARAMETER JPI$_LOGIN_FAILURES = '00000215'X ! Number of login failures at loginF PARAMETER JPI$_LOGIN_FLAGS = '00000216'X ! Miscellaneous login flagsI PARAMETER JPI$_RMS_DFMBC = '00000217'X ! RMS default: multi-block countS PARAMETER JPI$_RMS_DFMBFSDK = '00000218'X ! " " multi-buffer count for disk (SEQ)M PARAMETER JPI$_RMS_DFMBFSMT = '00000219'X ! " " multi-buffer count for tapeT PARAMETER JPI$_RMS_DFMBFSUR = '0000021A'X ! " " multi-buffer count for unit recordR PARAMETER JPI$_RMS_DFMBFREL = '0000021B'X ! " " multi-buffer count for REL filesS PARAMETER JPI$_RMS_DFMBFIDX = '0000021C'X ! " " multi-buffer count for ISAM files8 PARAMETER JPI$_RMS_PROLOGUE = '0000021D'X ! " " prologI PARAMETER JPI$_RMS_EXTEND_SIZE = '0000021E'X ! " " file extend quantityB PARAMETER JPI$_RMS_DFNBC = '0000021F'X ! " " network block countD PARAMETER JPI$_RMS_DFLRL = '00000220'X ! " " Heuri stic default LRLS PARAMETER JPI$_RMS_HEURISTIC = '00000221'X ! " " Heuristic enable/disable setting)! ADD NEW ITEM-CODES BEFORE THIS COMMENTE PARAMETER JPI$_LASTCTL = '00000225'X ! MAX INDEX IN CONTROL REGION %! ITEM IDENTIFIERS FOR ADDRESS DATA M PARAMETER JPI$_EXCVEC = '00000100'X ! ADDRESS OF "EXCEPTION VECTOR" VECTOR S PARAMETER JPI$_FINALEXC = '00000101'X ! ADDRESS OF LAST CHANCE EXCEPTION VECTORS )! ADD NEW ITEM-CODES BEFORE THIS COMMENTD PARAMETER JPI$_LASTADR = '00000102'X ! MAX INDEX IN ADDRESS TABLE ! ITEM IDENTIFIERS FOR PCBFLD%! ADD ITEM-CODES BEFORE THIS COMMENTF PARAMETER JPI$_LASTPCBFLD = '00000500'X ! MAX INDEX IN PCBFLD TABLE ! ITEM IDENTIFIERS FOR PHDFLD%! ADD ITEM-CODES BEFORE THIS COMMENTF PARAMETER JPI$_LASTPHDFLD = '00000600'X ! MAX INDEX IN PHDFLD TABLE CDEC$ END OPTIONS wwM#1!*** MODULE $KGBDEF ***CDEC$ OPTIONS /NOALIGN! ++H! Key Grant Block definitions: Format of records in the rights databaseE! fil e. These records (1) associate identifier codes with names, and9! (2) list the holders of all identifiers in the system.! --N! WARNING : If you add attributes, you must change the following modules:! 7! [AUDSRV]FORMATBL.B32 - add name to id_attr_table! V! Changing these modules is necessary so that auditing will reflect the new attr name! ' PARAMETER KGB$M_RESOURCE = '00000001'X& PARAMETER KGB$M_DYNAMIC = '00000002'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'XB PARAMETER KGB$K_HOLD_RECORD = '00000010'X ! End of holder recordG PARAMETER KGB$K_IDENT_RECORD = '00000030'X ! End of identifier recordB PARAMETER KGB$K_LEVEL1 = '00000101'X ! Version 1 structure levelH PARAMETER KGB$K_MAINT_RECORD = '00000040'X ! End of maintenance record3 PARAMETER KGB$K_NUMBER_OF_ATTRIBUTES = '00000007'X S TRUCTURE /KGBDEF/: INTEGER*4 KGB$L_IDENTIFIER ! Binary identifier code UNION MAPA INTEGER*4 KGB$L_ATTRIBUTES ! Attribute bit definitions END MAP MAP) PARAMETER KGB$S_RESOURCE = 1S PARAMETER KGB$V_RESOURCE = 0 ! Resource may be charged to identifier( PARAMETER KGB$S_DYNAMIC = 1R PARAMETER KGB$V_DYNAMIC = 1 ! Identifier may be enabled 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 = 1Y PARAMETER KGB$V_IMPERSONATE = 4 ! Identifier can be used for impersonation. PARAMETER KGB$S_HOLDER_HIDDEN = 1O PARAMETER 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 UNION4 INTEGER*4 KGB$Q_HOLDER(2) ! Holder identifierG CHARACTER*32 KGB$T_NAME ! Identifier name (blank filled string)4 INTEGER*2 KGB$W_LEVEL ! File structure level INTEGER*2 %FILL4 INTEGER*4 KGB$Q_SYS_ID(2) ! System identifier; INTEGER*4 KGB$L_NEXT_ID ! Next available  identifier END STRUCTURE ! KGBDEF! ++,! Define the environmental rights ID values! --9 PARAMETER KGB$K_BATCH_ID = -2147483647 ! Batch ID value; PARAMETER KGB$K_DIALUP_ID = -2147483646 ! Dialup ID valueE PARAMETER KGB$K_INTERACTIVE_ID = -2147483645 ! Interactive ID value9 PARAMETER KGB$K_LOCAL_ID = -2147483644 ! Local ID value= PARAMETER KGB$K_NETWORK_ID = -2147483643 ! Network ID value; PARAMETER KGB$K_REMOTE_ID = -2147483642 ! Remote ID valueC PARAMETER KGB$K_DECWINDOWS_ ID = -2147483641 ! Decwindows ID valueH PARAMETER KGB$K_BOBUSER_ID = -2147483640 ! Buffer Object User ID valueT PARAMETER KGB$K_MRES_USER_ID = -2147483639 ! Memory Resident Section User ID valueP PARAMETER KGB$K_LAST_ENV_ID = -2147483638 ! NOTE: Add all new ones before this! 0! Define the range of environmental identifiers! * PARAMETER KGB$K_BASE_ENV_ID = -21474836470 PARAMETER KGB$K_NUMBER_OF_ENV_IDS = '00000009'X! O! Define the restricted range of system identifiers as lowest id (%x800000000)! to %x80010000. ! / PARAMETER KGB$K_RESTRICTED_RANGE = -2147418112! *! Define the various access class ranges.! - PARAMETER KGB$K_SEC_LEVEL_BASE = -2147482648- PARAMETER KGB$K_INT_LEVEL_BASE = -21474823920 PARAMETER KGB$K_SEC_CATEGORY_BASE = -21474821360 PARAMETER KGB$K_INT_CATEGORY_BASE = -21474820724 PARAMETER KGB$K_SEC_ACCESS_CLASS_BASE = -21474826483 PARAMETER KGB$K_SEC_ACCESS_CLASS_END = -2147482008! G! Define the values for the optional $GRANTID/$REVOKID FLAGS argument.! 6 PARAMETER KGB$K_PROCESS = '00000000'X ! local rights6 PARAMETER KGB$K_SYSTEM = '00000001'X ! system rightsB PARAMETER KGB$K_EXTENDED = '00000002'X ! local rights (extended)J PARAMETER KGB$K_IMAGE = '00000003'X ! image (protected subsystem) rights& PARAMETER KGB$K_MAX_SEG = '00000004'XN PARAMETER KGB$K_SUBSYSTEM = '00000003'X ! image (protected subsystem) rightsCDEC$ END OPTIONS ww2!*** MODULE $LADEF ***CDEC$ OPTIONS /NOALIGN! +! %!  LPA-11 CHARACTERISTICS DEFINITIONS! ! -! MICROCODE TYPE VALUES @ PARAMETER LA$K_MRMCODE = '00000001'X ! MULTIREQUEST MICROCODE A PARAMETER LA$K_ADMCODE = '00000002'X ! DEDICATED A/D MICROCODE A 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 = 18 PARAMETER LA$V_MCVALID = 0 ! MICROCODE VALID " PARAMETER LA$S_MCTYPE = 26 PARAMETER LA$V_MCTYPE = 1 ! MICROCODE TYPE # PARAMETER LA$S_CONFIG = 10A PARAMETER LA$V_CONFIG = 3 ! DEVICE CONFIGURATION BITS PARAMETER LA$S_RATE = 31 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 = 1/ PARAMETER LA$V_CLOCKA = 3 ! CLOCK A " PARAMETER LA$S_CLOCKB = 1/ PARAMETER LA$V_CLOCKB = 4 ! CLOCK B  PARAMETER LA$S_AD1 = 1- PARAMETER 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 = 16 PARAMETER LA$V_DIO1 = 8 ! DIGITAL I/O ! 1 PARAMETER LA$S_DIO2 = 16 PARAMETER LA$V_DIO2 = 9 ! DIGITAL I/O ! 2 PARAMETER LA$S_DIO3 = 16 PARAMETER LA$V_DIO3 = 10 ! DIGITAL I/O ! 3 PARAMETER LA$S_DIO4 = 16 PARAMETER LA$V_DIO4 = 11 ! DIGITAL I/O ! 4 PARAMETER LA$S_DIO5 = 16 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 ! LADEFCDEC$ END OPTIONS ww04!*** MODULE $latdef ***CDEC$ OPTIONS /NOALIGN$ PARAMETER LAT$M_ETYPE = '0000FFFF'X' PARAMETER LAT$C_E NT_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 existF PARAMETER LAT$C_ENTS_NEW = '00000001'X ! Must NOT exist. Create it.F PARAMETER LAT$C_ENTS_UNK = '00000002'X ! Create if it does not existA 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 = 1A PARAMETER LAT$V_SENSE_NEXT = 0 ! Wildcard flag/ PARAMETER LAT$S_SENSE_FULL = 1K PARAMETER LAT$V_SENSE_FULL = 1 ! Full (vs. summary) flag1 PARAMETER LAT$S_READ_HISTORY = 1L 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'XE PARAMETER LAT$_ITM_STATE = '00000001'X ! Entity (node or port) stateE PARAMETER LAT$_ITM_CIRCUIT_TIMER = '00000002'X ! Circuit timer valueI PARAMETER LAT$_ITM_KEEPALIVE_TIMER = '00000003'X ! Keepalive timer valueI PARAMETER LAT$_ITM_MULTICAST_TIMER = '00000004'X ! Multicast timer valueF PARAMETER LAT$_ITM_NODE_LIMIT = '00000005'X ! Maximum number of nodesK PARAMETER LAT$_ITM_RETRANSMIT_LIMIT = '00000006'X ! Retransmit limit valueF PARAMETER LAT$_ITM_SERVER_MODE = '00000007'X ! Enable LAT master flagN PARAMETER LAT$_ITM_OUTGOING_SES_LIMIT = '00000008'X ! Outgoing sessions limitN PARAMETER LAT$_ITM_INCOMING_SES_LIMIT = '00000009'X ! Incoming sessions limitE PARAMETER LAT$_ITM_CONNECTIONS = '0000000A'X ! Enable LAT slave flagJ PARAMETER LAT$_ITM_DECNET_ADDRESS = '0000000B'X ! Use DECnet address flagB PARAMETER LAT$_ITM_RATING = '0000000C'X ! Static LAT rating valueJ PARAMETER LAT$_ITM_RATING_TYPE = '0000000D'X ! Dynamic/static rating flagI PARAMETER LAT$_ITM_NODE_TYPE = '0000000E'X ! Local/remote node type flagJ PARAMETER LAT$_ITM_NODE_STATUS = '0000000F'X ! Reachable/unreachable flagM PARAMETER LAT$_ITM_SERVICE_STATUS = '00000010'X ! Available/unavailable flag= PARAMETER LAT$_ITM_PORT_TYPE = '00000011'X ! Port type valueG PARAMETER LAT$_ITM_QUEUED = '00000012'X ! Queued/nonqueued access flagP PARAMETER LAT$_ITM_DISCONNECT_REASON = '00000013'X ! Reason for last disconnectN PARAMETER LAT$_ITM_CONNECTED_COUNT = '00000014'X ! Number of current sessionsC PARAMETER LAT$_ITM_SERVICE_TYPE = '00000015'X ! Service type valueI PARAMETER LAT$_ITM_CTNOD_SSZ = '00000016'X ! (node) Seconds since zeroedG PARAMETER LAT$_ITM_CTNOD_MSGR = '00000017'X ! (node) Messages receivedJ PARAMETER LAT$_ITM_CTNOD_MSGT = '00000018'X ! (node) Messages transmittedD PARAMETER LAT$_ITM_CTNOD_SLTR = '00000019'X ! (node) Slots receivedG PARAMETER LAT$_ITM_CTNOD_SLTT = '0000001A'X ! (node) Slots transmittedD PARAMETER LAT$_ITM_CTNOD_BYTR = '0000001B'X ! (node) Bytes receivedG PARAMETER LAT$_ITM_CTNOD_BYTT = '0000001C'X ! (node) Bytes transmittedL PARAMETER LAT$_ITM_CTNOD_MNA = '0000001D'X ! (node) Multiple node addressesH PARAMETER LAT$_ITM_CTNOD_DUP = '0000001E'X ! (node) Duplicates receivedK PARAMETER LAT$_ITM_CTNOD_MRT = '0000001F'X ! (node) Messages retransmittedN PARAMETER LAT$_ITM_CTNOD_ILM = '00000020'X ! (node) Illegal messages receivedK PARAMETER LAT$_ITM_CTNOD_ILS = '00000021'X ! (node) Illegal slots receivedL PARAMETER LAT$_ITM_CTNOD_SLCA = '00000022'X ! (node) Solicitations acceptedL PARAMETER LAT$_ITM_CTNOD_SLCR = '00000023'X ! (node) Solicitations rejectedD PARAMETER LAT$_ITM_CTNOD_TER = '00000024'X ! (node) Transmit errorsD PARAMETER LAT$_ITM_CTNOD_RES = '00000025'X ! (node) Resource errorsG PARAMETER LAT$_ITM_CTNOD_NTB = '00000026'X ! (node) No transmit bufferM PARAMETER LAT$_ITM_CTNOD_TMO = '00000027'X ! (node) Virtual circuit timeoutsK PARAMETER LAT$_ITM_CTNOD_DOB = '00000028'X ! (node) Discarded output bytesJ PARAMETER LAT$_ITM_CTNOD_LSTER = '00000029'X ! (node) Last transmit errorK PARAMETER LAT$_ITM_CTNOD_PROTO = '0000002A'X ! (node) Protocol error countV PARAMETER LAT$_ITM_CTPRO_IVM = '0000002B'X ! (protocol) Invalid message type receivedW PARAMETER LAT$_ITM_CTPRO_ISM = '0000002C'X ! (protocol) Invalid start message receivedP PARAMETER LAT$_ITM_CTPRO_IVS = '0000002D'X ! (protocol) Invalid sequence numberQ PARAMETER LAT$_ITM_CTPRO_NIZ = '0000002E'X ! (protocol) Zero node index receivedR PARAMETER LAT$_ITM_CTPRO_ICI = '0000002F'X ! (protocol) Invalid server slot indexQ PARAMETER LAT$_ITM_CTPRO_CSI = '00000030'X ! (protocol) Circuit sequence invalidV PARAMETER LAT$_ITM_CTPRO_NLV = '00000031'X ! (protocol) Circuit index no longer validP PARAMETER LAT$_ITM_CTPRO_HALT = '00000032'X ! (protocol) Circuit forced to haltR PARAMETER LAT$_ITM_CTPRO_MIZ = '00000033'X ! (protocol) Invalid master slot indexQ PARAMETER LAT$_ITM_CTPRO_SIZ = '00000034'X ! (protocol) Invalid slave slot indexN PARAMETER LAT$_ITM_CTPRO_CRED = '00000035'X ! (protocol) Invalid credit fieldS PARAMETER LAT$_ITM_CTPRO_RCSM = '00000036'X ! (protocol) Repeat master slot createW PARAMETER LAT$_ITM_CTPRO_RDSM = '00000037'X ! (protocol) Repeat master slot disconnectL PARAMETER LAT$_ITM_CTSRV_SSZ = '00000038'X ! (service) Seconds since zeroedN PARAMETER LAT$_ITM_CTSRV_MCNA = '00000039'X ! (service) Connections attemptedN PARAMETER LAT$_ITM_CTSRV_MCNC = '0000003A'X ! (service) Connections completedM PARAMETER LAT$_ITM_CTSRV_SCNA = '0000003B'X ! (service) Connections acceptedM PARAMETER LAT$_ITM_CTSRV_SCNR = '0000003C'X ! (service) Connections rejectedI PARAMETER LAT$_ITM_CTPRT_SSZ = '0000003D'X ! (port) Seconds since zeroedD PARAMETER LAT$_ITM_CTPRT_RMT = '0000003E'X ! (port) Remote accessesD PARAMETER LAT$_ITM_CTPRT_BYTR = '0000003F'X ! (port) Bytes receivedG PARAMETER LAT$_ITM_CTPRT_BYTT = '00000040'X ! (port) Bytes transmittedP PARAMETER LAT$_ITM_MAXIMUM_UNITS = '00000041'X ! Maximum LTA device unit numberJ PARAMETER LAT$_ITM_SERVICE_CLASS = '00000042'X ! Port service class itemM PARAMETER LAT$_ITM_DISPLAY_NUMBER = '00000043'X ! X Display Number (Binary): PARAMETER LAT$_ITM_CPU_RATING = '00000044'X ! CPU ratingH PARAMETER LAT$_ITM_SERVICE_RESPONDER = '00000045'X ! Service responderK PARAMETER LAT$_ITM_CTNOD_MCBXMT = '00000046'X ! (node) Multicast bytes xmtK PARAMETER LAT$_ITM_CTNOD_MCBRCV = '00000047'X ! (node) Multicast bytes rcvJ PARAMETER LAT$_ITM_CTNOD_MCMXMT = '00000048'X ! (node) Multicast msgs xmtJ PARAMETER LAT$_ITM_CTNOD_MCMRCV = '00000049'X ! (node) Multicast msgs rcvI PARAMETER LAT$_ITM_CTNOD_SOLFAIL = '0000004A'X ! (node) Solicit failuresJ PARAMETER LAT$_ITM_CTNOD_ATLOS = '0000004B'X ! (node) Attention slot lostF PARAMETER LAT$_ITM_CTNOD_DATLOS = '0000004C'X ! (node) User data lostJ PARAMETER LAT$_ITM_CTNOD_NOREJ = '0000004D'X ! (node) No reject slot sentH PARAMETER LAT$_ITM_CTNOD_LOSCT = '0000004E'X ! (node) Node counter lostF PARAMETER LAT$_ITM_CTNOD_LOSSAM = '0000004F'X ! (node) s.a.m. lossageK PARAMETER LAT$_ITM_CTNOD_NOSAM = '00000050'X ! (node) Couldn't send s.a.m.G PARAMETER LAT$_ITM_CTNOD_NOSTS = '00000051'X ! (node) Lost node statusI PARAMETER LAT$_ITM_CTNOD_NOXMT = '00000052'X ! (node) No link to send onH PARAMETER LAT$_ITM_HISTORY = '00000053'X ! (node) History buffer enableI PARAMETER LAT$_ITM_CTNOD_CTLERR = '00000054'X ! (node) Controller errorsN PARAMETER LAT$_ITM_CTNOD_CERRCOD = '00000055'X ! (node) Last controller errorS PARAMETER LAT$_ITM_CTNOD_ISOLA = '00000056'X ! (node) (Incoming) solicits acceptedS PARAMETER LAT$_ITM_CTNOD_ISOLR = '00000057'X ! (node) (Incoming) solicits rejectedO PARAMETER LAT$_ITM_CONNECTED_SESSIONS = '00000058'X ! Connected session countA PARAMETER LAT$_ITM_CONNECT_TYPE = '00000059'X ! Connection typeQ PARAMETER LAT$_ITM_CONNECTION_SESS_LIM = '0000005A'X ! Connection session limitE PARAMETER LAT$_ITM_CTCON_MSGRCV = '0000005B'X ! (conn) msgs receivedE PARAMETER LAT$_ITM_CTCON_DUPRCV = '0000005C'X ! (conn) dup msgs rcvdA PARAMETER LAT$_ITM_CTCON_MSGXMT = '0000005D'X ! (conn) msgs xmtdI PARAMETER LAT$_ITM_CTCON_MSGILL = '0000005E'X ! (conn) illegal msgs rcvdJ PARAMETER LAT$_ITM_CTCON_MSGRXT = '0000005F'X ! (conn) msgs retransmittedF PARAMETER LAT$_ITM_CTCON_SLTILL = '00000060'X ! (conn) ill slots rcvdF PARAMETER LAT$_ITM_CTCON_DUPNOD = '00000061'X ! (conn) duplicate nodeJ PARAMETER LAT$_ITM_CTCON_SECZER = '00000062'X ! (conn) seconds since zeroF PARAMETER LAT$_ITM_CTCON_BYTRCV = '00000063'X ! (conn) bytes receivedB PARAMETER LAT$_ITM_CTCON_BYTXMT = '00000064'X ! (conn) bytes xmtdB PARAMETER LAT$_ITM_CTCON_SLTRCV = '00000065'X ! (conn) slots rcvdI PARAMETER LAT$_ITM_CTCON_SLTXMT = '00000066'X ! (conn) slots transmittedI PARAMETER LAT$_ITM_CTCON_SOLACP = '00000067'X ! (conn) solicits acceptedI PARAMETER LAT$_ITM_CTCON_SOLREJ = '00000068'X ! (conn) solicits rejectedI PARAMETER LAT$_ITM_CTCON_XERR = '00000069'X ! (conn) last transmit errorL PARAMETER LAT$_ITM_CTCON_XERRCOD = '0000006A'X ! (conn) last xmt error codeK PARAMETER LAT$_ITM_CTCON_ATTLOS = '0000006B'X ! (conn) attention slot lossA PARAMETER LAT$_ITM_CTCON_DATLOS = '0000006C'X ! (conn) data lossI PARAMETER LAT$_ITM_CTCON_CANTREJ = '0000006D'X ! (conn) reject slot lossU PARAMETER  LAT$_ITM_SESSION_NUMBER = '0000006E'X ! (conn) session number for subblockV PARAMETER LAT$_ITM_FORWARD_SESSION_LIMIT = '0000006F'X ! (node) forward session limitQ PARAMETER LAT$_ITM_EXTRA_DATALINK_BUFFERS = '00000070'X ! Extra datalink buffersR PARAMETER LAT$_ITM_TRANSMIT_BUFFERS_INUSE = '00000071'X ! Transmit buffers in useM PARAMETER LAT$_ITM_QUE_POS_OBSOLETE = '00000072'X ! Queue position for entry! Obsolete - node queue and! service queue position are! now implemented.N PARAMETER LAT$_ITM_QUEUE_DEPTH_LIMIT = '00000073'X ! (node) queue depth limitB PARAMETER LAT$_ITM_DEVICE_SEED = '00000074'X ! (node) device seedU PARAMETER LAT$_ITM_NODE_QUEUE_POSITION = '00000075'X ! (port) minimum queue positionX PARAMETER LAT$_ITM_SERVICE_QUEUE_POSITION = '00000076'X ! (port) maximum queue positionG PARAMETER LAT$_ITM_DIALUP = '00000077'X ! (port) dialup characteristicE PARAMETER LAT$_ITM_AUTOPROMPT = '00000078'X ! (port) autoprompt char^ PARAMETER LAT$_ITM_RATING_LOAD_OBSOLETE = '00000079'X ! obsolete - portion of rating for loadC PARAMETER LAT$_ITM_CTPRT_LCL = '0000007A'X ! (port) local accessesL PARAMETER LAT$_ITM_CTPRT_SLCA = '0000007B'X ! (port) Solicitations acceptedL PARAMETER LAT$_ITM_CTPRT_SLCR = '0000007C'X ! (port) Solicitations rejectedS PARAMETER LAT$_ITM_CTPRT_ISOLA = '0000007D'X ! (node) (Incoming) solicits acceptedS PARAMETER LAT$_ITM_CTPRT_ISOLR = '0000007E'X ! (node) (Incoming) solicits rejected! C! This next item code is only returned (it cannot be supplied as aE! SETMODE item). It indicates whether or not a service on the local! node is password protected.! L PARAMETER LAT$_ITM_PASSWORD = '0000007F'X ! (svc) Password enabled/disabledG PARAMETER LAT$_ITM_HI_CIRCUITS = '00000080'X ! (node) Hi circuit countM PARAMETER LAT$_ITM_CUR_CIRCUITS = '00000081'X ! (node) Current circuit countP PARAMETER LAT$_ITM_MAX_CIRCUITS = '00000082'X ! (node) Maximum virtual circuitsG PARAMETER LAT$_ITM_HI_SESSIONS = '00000083'X ! (node) Hi session countM PARAMETER LAT$_ITM_CUR_SESSIONS = '00000084'X ! (node) Current session countM PARAMETER LAT$_ITM_MAX_SESSIONS = '00000085'X ! (node) Maximum session countQ PARAMETER LAT$_ITM_HI_OUT_QUEUE = '00000086'X ! (node) Hi outgoing queue entriesS PARAMETER LAT$_ITM_CUR_OUT_QUEUE = '00000087'X ! (node) Current outgoing q entriesS PARAMETER LAT$_ITM_MAX_OUT_QUEUE = '00000088'X ! (node) Maximum outgoing q entriesP PARAMETER LAT$_ITM_HI_IN_QUEUE = '00000089'X ! (node) Hi incoming queue entriesR PARAMETER LAT$_ITM_CUR_IN_QUEUE = '0000008A'X ! (node) Current incoming q entriesR PARAMETER LAT$_ITM_MAX_IN_QUEUE = '0000008B'X ! (node) Maximum incoming q entriesM PARAMETER LAT$_ITM_HI_SAMS_QUEUED = '0000008C'X ! (node) Hi unprocessed SAMsS PARAMETER LAT$_ITM_CUR_SAMS_QUEUED = '0000008D'X ! (node) Current unprocessed SAMsS PARAMETER LAT$_ITM_MAX_SAMS_QUEUED = '0000008E'X ! (node) Maximum unprocessed SAMsQ PARAMETER LAT$_ITM_HI_SOL_QUEUED = '0000008F'X ! (node) Hi unprocessed sol infosW PARAMETER LAT$_ITM_CUR_SOL_QUEUED = '00000090'X ! (node) Current unprocessed sol infosW PARAMETER LAT$_ITM_MAX_SOL_QUEUED = '00000091'X ! (node) Maximum unprocessed sol infosN PARAMETER LAT$_ITM_HI_AVAIL_SVCS = '00000092'X ! (node) Hi available servicesT PARAMETER LAT$_ITM_CUR_AVAIL_SVCS = '00000093'X ! (node) Current available servicesT PARAMETER LAT$_ITM_MAX_AVAIL_SVCS = '00000094'X ! (node) Maximum available servicesL PARAMETER LAT$_ITM_HI_REACH_NODES = '00000095'X ! (node) Hi reachable nodesR PARAMETER LAT$_ITM_CUR_REACH_NODES = '00000096'X ! (node) Current reachable nodesR PARAMETER LAT$_ITM_MAX_REACH_NODES = '00000097'X ! (node) Maximum reachable nodesH PARAMETER LAT$_ITM_HI_LCL_SVCS = '00000098'X ! (node) Hi local servicesN PARAMETER LAT$_ITM_CUR_LCL_SVCS = '00000099'X ! (node) Current local servicesN PARAMETER LAT$_ITM_MAX_LCL_SVCS = '0000009A'X ! (node) Maximum local servicesJ PARAMETER LAT$_ITM_DISCARDED_NODES = '0000009B'X ! (node) Discarded nodesR PARAMETER LAT$_ITM_MAX_DL_BUFFERS = '0000009C'X ! (conn) Maximum datalink buffersD PARAMETER LAT$_ITM_PRODUCT_TYPE = '0000009D'X ! (conn) Product typeU PARAMETER LAT$_ITM_REM_PRODUCT_VERSION = '0000009E'X ! (conn) Remote product versionG PARAMETER LAT$_ITM_CTPRT_FRAMERR = '0000009F'X ! (port) Framing errorsE PARAMETER LAT$_ITM_CTPRT_PARERR = '000000A0'X ! (port) Parity errorsF PARAMETER LAT$_ITM_CTPRT_OVERRUN = '000000A1'X ! (port) Data overrunsb PARAMETER LAT$_ITM_CTPRO_INVCLASS = '000000A2'X ! (protocol) protocol error invalid service classd PARAMETER LAT$_ITM_CTPRO_EXCSTART = '000000A3'X ! (protocol) protocol error (excessive start slots)V PARAMETER LAT$_ITM_CTNOD_XSTR = '000000A4'X ! (node) Remote node too many START slotsV PARAMETER LAT$_ITM_PASSWORD_FAILURES = '000000A5'X ! (service,port) Password failuresH PARAMETER LAT$_ITM_CTPRO_ILLSAM = '000000A6'X ! (protocol) Illegal SAMsH PARAMETER LAT$_ITM_TYPEAHEAD = '000000A7'X ! (port) 1 = typeahd presentC PARAMETER LAT$_ITM_CTLAT_RMSG = '000000A8'X ! (link) LAT msgs rcvdD PARAMETER LAT$_ITM_CTLAT_RBYT = '000000A9'X ! (link) LAT bytes rcvdB PARAMETER LAT$_ITM_CTLAT_XMSG = '000000AA'X ! (link) LAT msgs xmtC PARAMETER LAT$_ITM_CTLAT_XBYT = '000000AB'X ! (link) LAT bytes xmtQ PARAMETER LAT$_ITM_CTLAT_MUL_RMSG = '000000AC'X ! (link) LAT multicast msgs rcvdR PARAMETER LAT$_ITM_CTLAT_MUL_RBYT = '000000AD'X ! (link) LAT multicast bytes rcvdP PARAMETER LAT$_ITM_CTLAT_MUL_XMSG = '000000AE'X ! (link) LAT multicast msgs xmtQ PARAMETER LAT$_ITM_CTLAT_MUL_XBYT = '000000AF'X ! (link) LAT multicast bytes xmtB PARAMETER LAT$_ITM_PATH_STATE = '000000B0'X ! Datalink path stateQ PARAMETER LAT$_ITM_LARGE_BUFFERS = '000000B1'X ! Use of large buffers by defaultW PARAMETER LAT$_ITM_ANNOUNCEMENTS = '000000B2'X ! (node) Transmit service announcementsC PARAMETER LAT$_ITM_PORT_STATE = '000000B3'X ! (port) Current stateR PARAMETER LAT$_ITM_CTPRO_BADUID = '000000B4'X ! (protocol) Invalid node UID event, PARAMETER LAT$C_ITM_MAXSCALAR = '000000B4'XZ PARAMETER LAT$_ITM_IDENTIFICATION = '00004100'X ! Entity (node or service) identification= PARAMETER LAT$_ITM_SERVICE_NAME = '00004101'X ! Service name7 PARAMETER LAT$_ITM_NODE_NAME = '00004102'X ! Node name7 PARAMETER LAT$_ITM_PORT_NAME = '00004103'X ! Port nameX PARAMETER LAT$_ITM_CONNECTED_SERVICE_NAME = '00004104'X ! Port's connected service nameR PARAMETER LAT$_ITM_CONNECTED_NODE_NAME = '00004105'X ! Port's connected node nameR PARAMETER LAT$_ITM_CONNECTED_PORT_NAME = '00004106'X ! Port's connected port nameR PARAMETER LAT$_ITM_TARGET_SERVICE_NAME = '00004107'X ! Port's target service nameL PARAMETER LAT$_ITM_TARGET_NODE_NAME = '00004108'X ! Port's target node nameL PARAMETER LAT$_ITM_TARGET_PORT_NAME = '00004109'X ! Port's target port nameQ PARAMETER LAT$_ITM_SERVICE_GROUPS = '0000410A'X ! Enabled service groups bitmaskK PARAMETER LAT$_ITM_USER_GROUPS = '0000410B'X ! Enabled user groups bitmask7 PARAMETER LAT$_ITM_LINK_NAME = '0000410C'X ! Link nameE PARAMETER LAT$_ITM_SERVICE_PASSWORD = '0000410D'X ! Service passwordB PARAMETER LAT$_ITM_DEVICE_NAME = '0000410E'X ! Link's device nameS PARAMETER LAT$_ITM_DATALINK_ADDRESS = '0000410F'X ! 6-byte binary Ethernet addressP PARAMETER LAT$_ITM_PROTOCOL_VERSION = '00004110'X ! LAT protocol version stringM PARAMETER LAT$_ITM_SVC_NODE_BLOCK = '00004111'X ! Subblock for SENSE SERVICEJ PARAMETER LAT$_ITM_NODE_SVC_BLOCK = '00004112'X ! Subblock for SENSE NODEO PARAMETER LAT$_ITM_DED_PORT_BLOCK = '00004113'X ! Subblock for dedicated portsB PARAMETER LAT$_ITM_COUNTERS = '00004114'X ! Subblock for countersP PARAMETER LAT$_ITM_PROTOCOL_ERRORS = '00004115'X ! Subblock for protocol errorsR PARAMETER LAT$_ITM_CONNECTED_LINK_NAME = '00004116'X ! Port's connected link nameK PARAMETER LAT$_ITM_HISTORY_ENTRY = '00004117'X ! Node history buffer entry> PARAMETER LAT$_ITM_CONNECT_ID = '00004118'X ! Connect ID nameO PARAMETER LAT$_ITM_SESSION_BLOCK = '00004119'X ! Subblock for SENSE CONNECTIONJ PARAMETER LAT$_ITM_QUEUED_ENTRY_ID = '000 0411A'X ! Queued entry ID stringM PARAMETER LAT$_ITM_LIM_PORT_BLOCK = '0000411B'X ! subblock for limited portsR PARAMETER LAT$_ITM_SERVICE_CLASSES = '0000411C'X ! service class bitmask for nodeL PARAMETER LAT$_ITM_LAT_DEV_CTR_BLOCK = '0000411D'X ! link LAT only countersH 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'XE PARAMETER LAT$C_PT_FORWARD = '00000000'X ! "Forward" connection portI PARAMETER LAT$C_PT_INTERACTIVE = '00000001'X ! Interactive incoming port@ PARAMETER LAT$C_PT_APPLICATION = '00000002'X ! Application port< PARAMETER LAT$C_PT_DEDICATED = '00000003'X ! Dedicated port8 PARAMETER LAT$C_PT_LIMITED = '00000004'X ! Limited portF PARAMETER LAT$C_PT_STATE_INACTIVE = '00000000'X ! Idle, no connectionU PARAMETER LAT$C_PT_STATE_CONNECTING = '00000001'X ! Connection in progress, not done@ PARAMETER LAT$C_PT_STATE_ACTIVE = '00000002'X ! Fully connectedQ PARAMETER LAT$C_PT_STATE_DISCONNECTING = '00000003'X ! In the disconnect process5 PARAMETER LAT$C_NT_LOCAL = '00000000'X ! My o wn node8 PARAMETER LAT$C_NT_REMOTE = '00000001'X ! The other guyG PARAMETER LAT$C_ST_GENERAL = '00000000'X ! General timesharing serviceC PARAMETER LAT$C_ST_APPLICATION = '00000001'X ! Application service; PARAMETER LAT$C_ST_LIMITED = '00000002'X ! Limited service< PARAMETER LAT$C_DYNAMIC = '00000000'X ! Dynamic calculation4 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'XC 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 thereA PARAMETER LAT$C_UNKNOWN = '00000001'X ! Haven't heard in a while; PARAMETER LAT$C_REACHABLE = '00000002'X ! I heard from him9 PARAMETER LAT$C_UNAVAILABLE = '00000000'X ! Can't get it6 PARAMETER LAT$C_AVAILABLE = '00000001'X ! It IS thereF PARAMETER LAT$C_SERVCLASS_INTERACTIVE = '00000001'X ! SC1 = TTDRIVERJ PARAMETER LAT$C_SERVCLASS_TESTSERVICE = '00000002'X ! SC2 = TEST SERVICEH 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 ! LATSETBITSE PARAMETER LAT$C_RATING_VECTOR_LENGTH = '00000038'X ! Size of vector STRUCTURE /RATING_VEC/C INTEGER*4 LAT$A_CONTROL_INIT_RTN ! Address of controller init; INTEGER*4 LAT$A_UNIT_INIT_RTN ! Address of init initN INTEGER*4 LAT$A_RATING_INIT_RTN ! Address of initial call from LTDRIVER= INTEGER*4 LAT$A_TIMER_RTN ! Routine called each secondG INTEGER*4 LAT$A_CALC_RATING_RTN ! Routine that calculates rating@ INTEGER*4 LAT$A_STOP_RTN ! Routine called at LAT sh utdown9 INTEGER*4 LAT$A_SPARE1_RTN ! Expansion placeholder9 INTEGER*4 LAT$A_SPARE2_RTN ! Expansion placeholder9 INTEGER*4 LAT$A_SPARE3_RTN ! Expansion placeholder9 INTEGER*4 LAT$A_SPARE4_RTN ! Expansion placeholder9 INTEGER*4 LAT$A_SPARE5_RTN ! Expansion placeholder9 INTEGER*4 LAT$A_SPARE6_RTN ! Expansion placeholder9 INTEGER*4 LAT$A_SPARE7_RTN ! Expansion placeholder9 INTEGER*4 LAT$A_SPARE8_RTN ! Expansion placeholder END STRUCTURE ! RATING_VECCDEC$ END OPTIONS ww!*** MODULE $LATMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:36:42.46! ! MODULE: LATMSG.MSG! VERSION: 'V6.0-064'! ! * *I! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1987, 1990-1995 BY *B! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$! * ALL RIGHTS RESERVED. *! * *N! * THIS SOFTWARE IS FURNIS HED 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. *! * *! * *! -! 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-19945! ADD NEW CONNECT MESSAGE FOR LTPAD WHEN DISCONNECT! CHARACTER IS DISABLED.! -! V05-059 MICHAEL D. RASPUZZI 30-AUG-19936! 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-19926! 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-19915! 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-19907! 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-19904! 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 DISPLAY7! 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-19893! ADD NEWLOGNAME FOR CREATE PORT/LOG/LOGICAL_NAME! ,! V05-30 MICHAEL D. RASPUZZI 16-OCT-19899! ADD VERMISMATCH SO WE CAN USE TO BUILD OLD COMPONENTS! )! V05-29 JAMES F. CAHILL 16-OCT-19891! ADD LATCP MESSAGES TO SUPPORT /LOG QUALIFIER.! '! V05-28 DAVID H. COOK 06-OCT-19891! ADD ACPNOCTL, ACPNOKSTK, ACPNOVIRT, NODLIMIT.! '! V05-27 DAVID H. COOK 18-SEP-19893! 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.! /! V05-24 ELM032 ERIC L. MERSHON 21-JUL-1989*! CHANGED FAO PARAMETER OF END TO ASCID.! /! 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.! /! 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 CONNECTIONS@! TO NODES WHICH HAVE THE SAME NAME AS THE SERVICE THEY OFFER.! (! V05-16 SY001 SHOOU YIU 16-MAY-1989)! ADD MESSAGES USED BY LTDRIVER MODULES! /!  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 NOTERM@! TO NOTATERM TO AVOID CONFUSION WITH EXISING MESSAGE NOTERMS.! /! V05-013 ELM009 ERIC L. MERSHON 1-MAY-1989! ADD NOTERM MESSAGE.! 0! V05-012 ELM008 ERIC L. MERSHON 28-APR-1989<! ADD CTRL/Y MESSAGE, AND REMOVE SECOND FAO ARGUMENTS FROM! CONFAIL AND CONLOST.! 0! V05-011 ELM007 ERIC L. MERSHON 18-APR-1989@! ADD MESSAGES FOR LTPAD, AND CLEAN OUT MESSAGES INTENDED, BUT! NO LONGER NEEDED FOR DDE.! *! V05-010 JAMES F. CAHILL 10-APR-19897! CHANGE CMDERROR AND INVCMD FROM ERRORS TO WARNINGS.! *! V05-009 JAMES F. CAHILL 9-MAR-19898! SHARED MESSAGE INVCMD NOT FOUND, SO ADD LAT$_INVCMD.! *! V05-008 JAMES F. CAHILL 9-MAR-1989$! ADD OUTOFRANGE, REMOVE PRSERROR.! 0! V05-007 ELM006 ERIC L. MERSHON 8-MAR-19894! MERGE IN MESSAGES FROM LAT$MESSAGES AND ADD MORE ! DECSERVER EMULATOR MESSAGES.! 0! V05-006 ELM005 ERIC L. MERSHON 25-FEB-19897! ADD MESSAGES FOR DECSERVER EMULATOR SESSION CONTROL! 0! V05-005 ELM002 ERIC L. MERSHON 15-FEB-1989#! ADD DECSERVER EMULATOR MESSAGES! /! V05-004 DHC0001 DAVID H. COOK 18-NOV-1988! ADD ACP MSGS! 1! V05-003 JFC0025 JAMES F. CAHILL 7-SEP-1988! ADD TWO MESS AGES FOR LMF! 1! V05-002 JFC0015 JAMES F. CAHILL 10-AUG-1987! FIX CAPITALIZATION PROBLEMS! ! V05-001 (VARIOUS AUTHORS)! INITIAL VERSION! K! THIS FILE REPRESENTS THE MERGE OF ERROR MESSAGES FOR LATCP, LAT, AND LGUK! LATCP MESSAGES APPEAR FIRST AS THIS FACILITY HAS BEEN SHIPPED. WHILE THEJ! ERROR NAMES ARE CHANGED WITH THE ASSIGNMENT OF A LAT FACILITY CODE, THEG! 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 = '0176803A'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! 4! 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% PARAMET ER 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$_CTRLY = '017686A3'X' PARAMETER LAT$_PWDPROMPT = '017686AB'X& PARAMETER LAT$_TODISCON = '017686B3'X& PARAMETER LAT$_CONTROLC = '017686BB'X= PARAMETER LAT$_NEWLINK = '01768 6C3'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 = '017686FB'X: PARAMETER LAT$_MODLINK = '01768703'X ! SET /LOG MESSAGES% PARAMETER LAT$_MODPORT = '0176870B'X( PARAMETER LAT$_MODSERVICE = '01768713'X% PARAMETER LAT$_MODNOD E = '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 = '01768CBA'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 = '01768D1A'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! F! LAT CONNECTION REJECTION REASON CODES. THESE MESSAGES CORRESPOND TOE! THE REJECTION REASON CODES GENERATED BY LTDRIVER WHEN A CONNECTIONF! REQUEST IS ABORTED (IE. FAILS). THE REASON CODE IS RETURNED IN PARTD! OF THE IOSB AND MAY BE TRANSLATED TO THE CORRESPONDING CODE BELOW$! WITH A SIMPLE TRANSLATION VECTOR.! ( PARAMETER LAT$_LRJUNKNOWN = '01769F44'X) PARAMETER LAT$_LRJSHU TDOWN = '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 = '0176A0AC'X) PARAMETER LAT$_INSRESOURCE = '0176A0B4'X$ PARAMETER LAT$_CIBLIM = '0176A0BC'X% PARAMETER LAT$_PROTVIO = '0176A0C4'X$ PARAMETER LAT$_NOROOM = '0176A0CC'X* PARAMETER LAT$_LI STTOOSHORT = '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$_VERMIS MATCH = '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 L AT$_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'XCDEC$ END OPTIONSwwm!*** MODULE $LBRCTLTBL ***CDEC$ OPTIONS /NOALIGNC 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 4 BYTE LBR$B_TBLSIZ ! Control table size 6 B YTE LBR$B_TYPE ! Type of library opened > BYTE LBR$B_FUNC ! Operation (function) requested 4 BYTE %FILL(1:2) ! Reserved extra bytes UNION MAP4 INTEGER*4 LBR$L_USRFLG ! Flags longword  END MAP MAP' PARAMETER LBR$S_LOCATE = 1Q PARAMETER LBR$V_LOCATE = 0 ! Use "locate" rather than "move" mode % PARAMETER LBR$S_OPEN = 17 PARAMETER LBR$V_OPEN = 1 ! Library open   BYTE %FILL (1) END MAP END UNION; INTEGER*4 LBR$L_HDRPTR ! Pointer to in-core header B INTEGER*4 LBR$L_CTXPTR ! Pointer to context control block 9 INTEGER*4 LBR$L_CURIDX ! Number of current index ; INTEGER*4 LBR$L_USRNAM ! Pointer to user NAM block N INTEGER*4 LBR$L_OLDHDRPTR ! Pointer to unmodified in-core header block  END STRUCTURE ! LBRCTLTBLCDEC$ END OPTIONS ww %!*** MODULE $LBRDEF ***CDEC$ OPTIONS /NOALIGN! ! Types of libraries! ! Define the library types K PARAMETER LBR$C_TYP_UNK = '00000000'X ! Unknown/unspecified library type I PARAMETER LBR$C_TYP_OBJ = '00000001'X ! Object/shareable image library 8 PARAMETER LBR$C_TYP_MLB = '00000002'X ! Macro library < PARAMETER LBR$C_TYP_HLP = '00000003'X ! Help file library 7 PARAMETER LBR$C_TYP_TXT = '00000004'X ! TEXT library K PARAMETER LBR$C_TYP_SHSTB = '00000005'X ! Shareable image symbol library 6 PARAMETER LBR$C_TYP_NCS = '00000006'X ! NCS library P PARAMETER LBR$C_TYP_DECMX = '00000006'X ! Maximum Digital library type defined? PARAMETER LBR$C_TYP_EOBJ = '00000007'X ! Alpha object libraryQ PARAMETER LBR$C_TYP_ESHSTB = '00000008'X ! Alpha Shareable image symbol libraryY PARAMETER ELBR$C_TYP_DECMX = '00000008'X ! Maximum Digital (Alpha) library type definedL PARAMETER LBR$C_TYP_RDEC = '0000007F'X ! Types between DECMX and RDEC are ! reserved to DigitalN PARAMETER LBR$C_TYP_USRLW = '00000080'X ! Us er library types range from 128 4 PARAMETER LBR$C_TYP_USRHI = '000000FF'X ! to 255. ! ! Function codes for lbr$flush! I PARAMETER LBR$C_FLUSHDATA = '00000001'X ! Flush data blocks from cache P PARAMETER LBR$C_FLUSHALL = '00000000'X ! Flush data blocks, then index blocks ! ! Librarian fixed parameters! H PARAMETER LBR$C_MAXRECSIZ = '00000800'X ! Maximum record size allowed ? PARAMETER LBR$C_PAGESIZE = '00000200'X ! Size of memory page W PARAMETER LBR$C_HASHSIZE = '00000200'X ! Size of hash table ** Must be power of 2 ** O PARAMETER LBR$C_TEXTPAGE = '000001FC'X ! No. of useable bytes on a text page H PARAMETER LBR$C_DEXTQ = '00000032'X ! Library default extend quantity J PARAMETER LBR$C_MAXCTL = '00000010'X ! Maximum number of open libraries L PARAMETER LBR$C_MAXHDRSIZ = '00000080'X ! Maximum length of module header ! (max user length is:"! lbr$c_maxhdrsiz-mhd$c_length)U PARAMETER LBR$C_DEFENTALL = '0000012C'X ! Number of entries to allocate by default V PARAMETER LBR$C_RETRYOPEN = '00000078'X ! Number of times to retry open on RMS$_FLK E PARAMETER LBR$C_RETRYWAIT = '00000001'X ! Number of seconds to waitK PARAMETER LBR$C_MINREAD = '00000002'X ! Minimum number of blocks to read C PARAMETER LBR$C_MAXREAD = '00000064'X ! Max blocks can ever read l PARAMETER LBR$C_MEMXTRA = '00000032'X ! Number blocks to expand region by above and beyond lbr$gl_maxread P PARAMETER LBR$C_PUTBUFSIZ = '0000001E'X ! Block size of VM empty cache buffer P  PARAMETER LBR$C_FLSHBFSIZ = '00000001'X ! Block size of stack mt_cache buffer L PARAMETER LBR$C_MAXIDXRD = '00000014'X ! Maximum blocks in one index read a PARAMETER LBR$C_MAXKEYLEN = '00000080'X ! Maximum length of an ASCII keyword, at most N, where ! 3*(N+7) < or = 506Y PARAMETER LBR$C_MAXLUHREC = '00008000'X ! maximum library update history record length ! '! Librarian fixed parameters for ALPHA! H 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 @ PARAMETER LBR$C_READ = '00000001'X ! Read an existing library E PARAMETER LBR$C_UPDATE = '00000002'X ! Update an exisiting library A PARAMETER LBR$C_MAXFUNC = '00000002'X ! Maximum legal function  STRUCTURE /LBRDEF/* INTEGER*4 %FILL ! Argument count 9 INTEGER*4 LBR$L_IC_CTLTBL ! Control index address + INTEGER*4 LBR$L_IC_FUNC ! Function C 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 9 INTEGER*4 LBR$L_OP_CTLTBL ! Control index address K INTEGER*4 LBR$L_OP_FNS ! Address of string descriptor for filename C INTEGER*4 LBR$L_OP_CREOPT ! Address of create options array O INTEGER*4 LBR$L_OP_DNS ! Address of descriptor for default name string H INTEGER*4 LBR$L_OP_RLFNA ! Address of NAM block for related file S INTEGER*4 LBR$L_OP_RNS ! Address of descriptor for related filename string a 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 9 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 Q 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 9 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 STRUCTU RE /LBRDEF5/* INTEGER*4 %FILL ! Argument count 9 INTEGER*4 LBR$L_LK_CTLTBL ! Control index address P INTEGER*4 LBR$L_LK_KEYNAM ! Address of string descriptor or binary value N 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 9 INTEGER*4 LBR$L_IK_CTLTBL ! Control index address P 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 9 INTEGER*4 LBR$L_RK_CTLTBL ! Control index address P 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 9 INTEGER*4 LBR$L_DK_CTLTBL ! Control index address P 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 9 INTEGER*4 LBR$L_DD_CTLTBL ! Control index address A 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 9 INTEGER*4 LBR$L_GR_CTLTBL ! Control index address C INTEGER*4 LBR$L_GR_BUFDES ! Address of descriptor of buffer M 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 9 INTEGER*4 LBR$L_PR_CTLTBL ! Control index address M INTEGER*4 LBR$L_PR_BUFDES ! Address of descriptor of buffer to output E 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 9 INTEGER*4 LBR$L_PE_CTLTBL ! Control index address ! ! LBR$SEARCH argument list!  END STRUCTURE ! LBRDEF12 STRUCTURE /LBRDEF13/* INTEGER*4 %FILL ! Argument count 9 INTEGER*4 LBR$L_SR_CTLTBL ! Control index address ; INTEGER*4 LBR$L_SR_IDXNUM ! Address of index number D INTEGER*4 LBR$L_SR_RFA ! Address of RFA to search index for @ INTEGER*4 LBR$L_SR_USRTN ! User routine to call on match ! 6! Argument list for user routine called by LBR$SEARCH!  END STRUCTURE ! LBRDEF13 STRUCTURE /LBRDEF14/* INTEGER*4 %FI LL ! Argument count P INTEGER*4 LBR$L_SU_KEYDES ! Address of string descriptor or binary value M 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 9 INTEGER*4 LBR$L_GI_CTLTBL ! Control index address 0 INTEGER*4 LBR$L_GI_IDXNUM ! Index number F INTEGER*4 LBR$L_GI_USRTN ! User routine to call for each entry ! 9! Argument list for user routine called by LBR$GET_INDEX!  END STRUCTURE ! LBRDEF15 STRUCTURE /LBRDEF16/* INTEGER*4 %FILL ! Argument count I INTEGER*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 ! LBRDEF164 PARAMETER LBR$C_ADDMOD = '00000001'X ! Add module 7 PARAMETER LBR$C_DELMOD = '00000002'X ! Delete module 8 PARAMETER LBR$C_REPMOD = '00000003'X ! Replace module !  STRUCTURE /LBRDEF17/* INTEGER*4 %FILL ! Argument count 9 INTEGER*4 LBR$L_AU_CTLTBL ! Control index address ( INTEGER*4 LBR$L_AU_FLAGS ! Flags P 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 9 INTEGER*4 LBR$L_GU_CTLTBL ! Control index address G 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 F INTEGER*4 LBR$L_UU_UPDESC ! String descriptor for history line  END STRUCTURE ! LBRDEF19CDEC$ END OPTIONS wwm8!*** MODULE $LCKDEF ***CDEC$ OPTIONS /NOALIGN! +! 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_DEQALL = '00000001'X% PARAMETER LCK$M_CANCEL = '00000002'X( PARAMETER LCK$M_INVVALBLK = '00000004'X. PARAMETER LCK$K_NLMODE = '00000000'X ! NULL 9 PARAMETER LCK$K_CRMODE = '00000001'X ! CONCURRENT READ : PARAMETER LCK$K_CWMODE = '00000002'X ! CONCURRENT WRITE 8 PARAMETER LCK$K_PRMODE = '00000003'X ! PROTECTED READ 9 PARAMETER LCK$K_PWMODE = '00000004'X ! PROTECTED WRITE 3 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 = 1F PARAMETER LCK$V_SYNCSTS = 3 ! SYNCHRONOUS STATUS REQUESTED # PARAMETER LCK$S_SYSTEM = 14 PARAM ETER LCK$V_SYSTEM = 4 ! SYSTEM LOCK $ PARAMETER LCK$S_NOQUOTA = 1; PARAMETER LCK$V_NOQUOTA = 5 ! DON'T CHARGE QUOTA# PARAMETER LCK$S_CVTSYS = 19 PARAMETER LCK$V_CVTSYS = 6 ! CONVERT TO SYSTEM$ PARAMETER LCK$S_RECOVER = 1E PARAMETER LCK$V_RECOVER = 7 ! RECOVER LOCK DURING FAILOVER$ PARAMETER LCK$S_PROTECT = 1E 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 = 1@ PARAMETER LCK$V_NODLCKBLK = 10 ! NO DEADLOCK BLOCKING% PARAMETER LCK$S_EXPEDITE = 1B PARAMETER LCK$V_EXPEDITE = 11 ! EXPEDITE NLMODE REQUEST# PARAMETER LCK$S_QUECVT = 1B PARAMETER LCK$V_QUECVT = 12 ! FORCE CONVERSION TO QUEUE# PARAMETER LCK$S_BYPASS = 1@ PARAMETER LCK$V_BYPASS = 13 ! BYPASS WAITING REQUESTS! A! IFBLKING bitfield mask; /* PERFORM CONVERSION IF BLOCKING!  BYTE %FILL (2) END MAP MAP# PARAMETER LCK$S_DEQALL = 1: PARAMETER LCK$V_DEQALL = 0 ! DEQUEUE ALL LOCKS # PARAMETER LCK$S_CANCEL = 16 PARAMETER LCK$V_CANCEL = 1 ! CANCEL REQUEST& PARAMETER LCK$S_INVVALBLK = 1A PARAMETER LCK$V_INVVALBLK = 2 ! INVALIDATE VALUE BLOCK BYTE %FILL (1) END MAP ! LOCK MODES END UNION END STRUCTURE ! LCKDEFCDEC$ END OPTIONS ww!*** MODULE $LEPMDEF ***CDEC$ OPTIONS /NOALIGN! 2! 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_START BYTE %FILL END MAP END UNION6 BYTE LEPM$B_DATYP  ! Maps over LSY$B_DATYP 6 INTEGER*2 LEPM$W_FLAGS ! Maps over LSY$W_FLAGS E INTEGER*2 LEPM$W_ENVINDX ! Environment index symbol defined in 9 INTEGER*2 LEPM$W_PSINDX ! Maps over LSDF$W_PSINDX : INTEGER*4 LEPM$L_ADDRS ! Entry point address, maps ! over LSDF$L_VALUE0 INTEGER*2 LEPM$W_MASK ! Entry point mask 0 BYTE LEPM$B_NAMLNG ! Length of name - CHARACTER*31 LEPM$T_NAME ! Symbol name  END STRUCTURE ! LEPMDEFCDEC$ END OPTIONS ww!*** MODULE $LHIDEF ***CDEC$ OPTIONS /NOALIGN! +! Library header information array offsets!  STRUCTURE /LHIDEF/, INTEGER*4 LHI$L_TYPE ! Library type 3 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 K CHARACTER*32 LHI$T_LBRVER ! ASCIC version of librarian that created 4 INTEGER*4 LHI$L_CREDAT ! Creation date/time  INTEGER*4  %FILL ! ... : INTEGER*4 LHI$L_UPDTIM ! Date/time of last update  INTEGER*4 %FILL ! ... @ 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 4 INTEGER*2 LHI$W_RFAXTR ! Spare word, zeroed F INTEGER*4 LHI$L_NEXTVBN ! Next VBN to allocate at end of file M INTEGER*4 LHI$L_FREIDXBLK ! Number of free pre-allocated index blocks J INTEGER*4 LHI$L_FREEIDX ! Listhead for pre-allocated index blocks E INTEGER*4 LHI$L_HIPREAL ! VBN of highest pre-allocated block @ INTEGER*4 LHI$L_IDXBLKS ! Number of index blocks in use A INTEGER*4 LHI$L_IDXCNT ! Number of index entries (total) M INTEGER*4 LHI$L_MODCNT ! Number of entries in index 1 (module names) Q INTEGER*4 LHI$L_MHDUSZ ! Length of user-maintained info in module header a INTEGER*4 LHI$L_MAXLUHREC ! Maximum number of library update histories records maintained D INTEGER*4 LHI$L_NUMLUHREC ! Number of LUH records in history K INTEGER*4 LHI$L_LIBSTATUS ! False if there was an error closing lib  END STRUCTURE ! LHIDEFCDEC$ END OPTIONS ww-!*** MODULE $LIBCLIDEF ***CDEC$ OPTIONS /NOALIGN/! 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_FIELDSCDEC$ END OPTIONSww-D !*** MODULE $LIBDCFDEF ***CDEC$ OPTIONS /NOALIGN#! 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 = 37 PARAMETER LIB$V_DCFACC = 0 ! Operand access type PARAMETER LIB$S_DCFTYP = 5 PARAMETER LIB$V_DCFTYP = 3+ BYTE %FILL (1) ! Operand data type" END STRUCTURE ! LIB$B_DCF_OPERAND! ! Operand access type codes! @ PARAMETER LIB$K_DCFACC_R = '00000001'X ! Operand is to be readD PARAMETER LIB$K_DCFACC_M = '00000002'X ! Ope rand is to be modifiedC PARAMETER LIB$K_DCFACC_W = '00000003'X ! Operand is to be written@ PARAMETER LIB$K_DCFACC_A = '00000004'X ! Operand is an addressZ PARAMETER LIB$K_DCFACC_V = '00000005'X ! Operand is a field (may be register or address)K 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 word@ PARAMETER LIB$K _DCFTYP_L = '00000003'X ! Operand is a longword@ PARAMETER LIB$K_DCFTYP_Q = '00000004'X ! Operand is a quadwordA PARAMETER LIB$K_DCFTYP_O = '00000005'X ! Operand is an octawordC PARAMETER LIB$K_DCFTYP_F = '00000006'X ! Operand is an F_floatingB PARAMETER LIB$K_DCFTYP_D = '00000007'X ! Operand is a D_floatingB PARAMETER LIB$K_DCFTYP_G = '00000008'X ! Operand is a G_floatingC PARAMETER LIB$K_DCFTYP_H = '00000009'X ! Operand is an H_floating! .! Combined operand access and data type c odes! ( PARAMETER LIB$K_DCFOPR_AB = '0000000C'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 = '0000000D'X( PARAMETER LIB$K_DCFOPR_BB = '0000000E'X( PARAMETER LIB$K_DCFOPR_AW = '00000014'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 = '00000015'X( PARAMETER LIB$K_DCFOPR_BW = '0000 0016'X( PARAMETER LIB$K_DCFOPR_AL = '0000001C'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 = '0000001D'X( PARAMETER LIB$K_DCFOPR_BL = '0000001E'X( PARAMETER LIB$K_DCFOPR_AQ = '00000024'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 = '00000025'X( PARAMETER LIB$K_DCFOPR_AO = '000000 2C'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 = '0000002D'X( PARAMETER LIB$K_DCFOPR_AF = '00000034'X( PARAMETER LIB$K_DCFOPR_RF = '00000031'X( PARAMETER LIB$K_DCFOPR_MF = '00000032'X( PARAMETER LIB$K_DCFOPR_WF = '00000033'X( PARAMETER LIB$K_DCFOPR_VF = '00000035'X( PARAMETER LIB$K_DCFOPR_AD = '0000003C'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 = '0000003D'X( PARAMETER LIB$K_DCFOPR_AG = '00000044'X( PARAMETER LIB$K_DCFOPR_RG = '00000041'X( PARAMETER LIB$K_DCFOPR_MG = '00000042'X( PARAMETER LIB$K_DCFOPR_WG = '00000043'X( PARAMETER LIB$K_DCFOPR_VG = '00000045'X( PARAMETER LIB$K_DCFOPR_AH = '0000004C'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 = '0000004D'X) PARAMETER LIB$K_DCFOPR_END = '00000000'X! CDEC$ END OPTIONSww-!*** MODULE $LIBDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:57.01! ! FILE: LIBMSG.MSG! ! * *F! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1991, 1993 BY *B! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$! * ALL RIGHTS RESERVED. *! * *N! * THIS SOFTWARE IS FURNIS HED 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. *! * *! * *! ! ?! 1-013 - ADD LIB$_KEYALRINS, LIB$_KEYNOTFOU. SBL 20-MAR-1981(! 1-014 - ADD LIB$_INVCVT. FM 24-MAR-81K! 1-015 - ADD LIB$_INVDTYDSC, LIB$_INVCLADSC, LIB$_INVCLADTY, LIB$_IN VNBDS6! LIB$_DESSTROVF, LIB$_OUTSTRTRU. FM 21-APR-81M! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM LIBMSG.MDL$! VERSION 1-015. SBL 23-APR-1981>! 2-002 - USE LIB$ FACILITY FOR LIB$_NORMAL. SBL 27-APR-1981P! 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-1981M! 2-006 - ADD LIB$_INVSYMNAM, MESSAGES FOR LIB$EXTEND_RANGE. S BL 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-1981T! 2-009 - REMOVE LIB$_WASSET AND LIB$_WASCLR. ADD LIB$_ATTREQREF. SBL 21-DEC-1981A! 2-010 - REMOVE MESSAGES FOR LIB$EXTEND_RANGE. SBL 22-DEC-1981)! 2-011 - CORRECT TYPO. SBL 23-DEC-1981P! 2-012 - ADD LIB$_INVFILSPE FOR FILE MANIPULATION PROCEDURES. MLJ 30-DEC-1981:! 2-013 - ADD LIB$_ERRROUCAL AND .TITLE. SBL 28-AUG-1982F! 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-1983A! 2-016 - ADD LIB$_NO_STRACT FOR SCREEN PACKAGE. PLL 19-JUL-1983I! 2-017 - ADD SEVERAL NEW MESSAGES FOR LIB$$READ_OBJECT. BLS 25-FEB-1984B! 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! C! 2-021 - ADD ERROR MESSAGES FOR DATE/TIME ROUTINES. LIB$_IVTIME ,E! LIB$_ONEDELTIM, LIB$_NEGTIM, LIB$_INVARGORD, LIB$_INVOPER,4! LIB$_ABSTIMREQ, LIB$_DELTIMREQ JWN 14-NOV-1986G! 2-022 - ADD SEVERAL NEW MESSAGES FOR LIB$DATE_FORMAT AKS 20-NOV-1986L! 2-023 - ADD NEW MESSAGES AND UPDATES FOR LIB$DATE_STRING. EGM 12-JAN-1987M! 2-024 - ADD NEW MESSAGES FOR VAXC MEMORY MANAGEMENT SUPPORT AKS 3-OCT-1988J! 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 FORWARD1! X-8 - CORRECT TEXT FOR FLTUND. GAS 16-SEP-1991! '! X-6A1 - STL STEVE LEE 14-MAR-1993@! ADD NEW CONDITION VALUES FOR DECNET/OSI FULLNAMES SUPPORT ! 0! X-7 - WXD BILL DAVENPORT 12-APR-1993! FULLNAMES BL1 CHECKIN.! *! X-6A2 - STL STEVE LEE 27-MAY-1993 @! MAKE SOME EDITING ON THE NEW MESSAGES FOR FULLNAMES. ! )! X-8 - STL00065 STEVE LEE  12-JUN-1993! FULLNAMES BL3 CHECKIN.! ! -! +?! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:! ! LIB$_ABCMNOXYZ! L! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",N! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR3! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.! M! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR7! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION.! ! MACRO-32 PROGRAMMING:! ! THE MACROS CALL:! ! $LIBDEF! =! 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 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'X6! ; LIB$INSQHI, LIB$INSQTI, LIB$RE MQHI, LIB$REMQTI' PARAMETER LIB$_KEYALRINS = '00158021'X! ; LIB$INSERT_TREE' PARAMETER LIB$_ERRROUCAL = '00158029'X'! ; LIB$DELETE_FILE, LIB$RENAME_FILE% PARAMETER LIB$_RESTART = '00158031'X! ; LIB$DECODE_FAULT9! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES!!!+! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW.! ; SET LH TO 21 (DECIMAL).1! ; SO THAT EACH CODE WILL BE AN WARNING CODE.+! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW.$ PARAMETER LIB$_BADSTA = '00158204'X! ; LIB$FIXUP_FLT' PARAMETER 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 LIB$_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'X$! ; LIB$FREE_LUN, LIB$RESERVE_LUN' PARAMETER LIB$_SCRBUFOVF = '001582CC'X! ; SCR PACKAGE' PARAMETER LIB$_INVSCRPOS = '001582D4'X! ; SCR PACKAGE' PARAMETER LIB$_SECINTFAI = '001582DC'X5! ; 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 LIB$_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 LIB$_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# PARAMETER LIB$_NOCLI = '0!015837C'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,9! ; LIB$SET_FILE_PROT, LIB$UNLOCK_FILE, LIB$CREATE_DIR$ PARAMETER LIB$_INVXAB = '001583A4'X! ; LIB$QUAL_FILE_PARSE' PARAMETER LIB$_NO_STRACT = '001583AC'X! ; SCR P"ACKAGE' 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:! ; LIB$MULTIPLY_DELTA_TI#ME_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 = '0015840C'X ! ; LIB$CVT_XXX_INTERNAL_TI $ME( PARAMETER LIB$_REENTRANCY = '00158414'X7! ;LIB$FORMAT_DATE_TIME, LIB$INIT_DATE_TIME_CONTEXT,2! ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT' PARAMETER LIB$_UNRFORCOD = '0015841C'X4! ;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$_ELETOOLON = '00158434'X ! ;LIB$INIT_DATE_TIME_CONTE%XT* 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'X2! ;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$_BADFORMAT = '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+! ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH& PARAMETER LIB$_EN'GLUSED = '00159028'X4! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING,! ;LIB$GET_DATE_FORMAT' PARAMETER LIB$_DEFFORUSE = '00159030'X4! ;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$_EOMFATAL = '0015C010'X! ; LIB$$READ_OBJECT% PARAMETER LIB$_EOMW(ARN = '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$$READ_OBJECT' PARAMETER LIB$_ILLRECTYP = '0015C050'X! ; LIB$$RE)AD_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 = '0015C088'X! ; LIB$$READ_OBJECT$ PARAMETER LIB$_NOWILD = '00*15112A'X& PARAMETER LIB$_ACTIMAGE = '001512BA'X$ PARAMETER LIB$_OPENIN = '0015109A'X% PARAMETER LIB$_CLOSEIN = '00151050'X% PARAMETER LIB$_READERR = '001510B2'XCDEC$ END OPTIONSww!*** MODULE $LIBDTDEF ***CDEC$ OPTIONS /NOALIGN! 7! Interface definitions for LIB$DT (date/time) package! ! /! Request codes for LIB$INIT_DATE_TIME_CONTEXT! D PARAMETER LIB$K_MONTH_NAME = '00000000'X ! Pre-init the month namesH PARAMETER LIB$K_MONTH_NAME_ABB = '00000003'X +! Pre-init the month namesE PARAMETER LIB$K_WEEKDAY_NAME = '00000006'X ! Pre-init the week namesI PARAMETER LIB$K_WEEKDAY_NAME_ABB = '00000009'X ! Pre-init the week namesL PARAMETER LIB$K_MERIDIEM_INDICATOR = '0000000C'X ! Pre-init the AM/PM namesB PARAMETER LIB$K_OUTPUT_FORMAT = '00000001'X ! Pre-init the formatA PARAMETER LIB$K_INPUT_FORMAT = '00000002'X ! Pre-init the formatI PARAMETER LIB$K_RELATIVE_DAY_NAME = '0000000F'X ! Pre-init "TODAY", etc.M PARAMETER LIB$K_FORMAT_MNEMONICS = '000 ,00012'X ! Pre-init MM, DD, YYYY, etc.B PARAMETER LIB$K_LANGUAGE = '00000004'X ! Pre-init user's language! =! Operation codes (flags) for date time conversion routines.I! NOTE: any new operation codes MUST be added just BEFORE MAX_OPERATION! Y PARAMETER LIB$K_MONTH_OF_YEAR = '00000001'X ! requests output in units of month of yearS PARAMETER LIB$K_DAY_OF_YEAR = '00000002'X ! requests output in days of year 1-366V 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-31622400S PARAMETER LIB$K_DAY_OF_MONTH = '00000006'X ! request output in days of month 1-31V PARAMETER LIB$K_HOUR_OF_MONTH = '00000007'X ! request output in hours of month 1-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-2678400a PARAMETER LIB$K_DAY_OF_WEEK = '0000000A'X ! requests output in days of week 1-7 with monday = 1U PARAMETER LIB$K_HOUR_OF_WEEK = '0000000B'X ! requests output in hours of week 1-168T PARAMETER LIB$K_MINUTE_OF_WEEK = '0000000C'X ! requests in minutes of week 1-10080\ PARAMETER LIB$K_SECOND_OF_WEEK = '0000000D'X ! requests output in seconds of week 1-604800R PARAMETER LIB$K_HOUR_OF_DAY = '0000000E'X ! requests output in hours o/f day 1-24X PARAMETER LIB$K_MINUTE_OF_DAY = '0000000F'X ! requests output in minutes of day 1-1440X PARAMETER LIB$K_SECOND_OF_DAY = '00000010'X ! requests output in seconds of day 1-3600X PARAMETER LIB$K_MINUTE_OF_HOUR = '00000011'X ! requests output in minutes of hour 1-60Z PARAMETER LIB$K_SECOND_OF_HOUR = '00000012'X ! requests output in minutes of hour 1-3600] PARAMETER LIB$K_SECOND_OF_MINUTE = '00000013'X ! requests output in seconds of minutes 1-60T PARAMETER LIB$K_JULIAN_DATE = '000000014'X ! requests output as a julian day numberR PARAMETER LIB$K_DELTA_WEEKS = '00000015'X ! input/output in terms of delta weeksP PARAMETER LIB$K_DELTA_DAYS = '00000016'X ! input/output in terms of delta daysR PARAMETER LIB$K_DELTA_HOURS = '00000017'X ! input/output in terns of delta hoursV PARAMETER LIB$K_DELTA_MINUTES = '00000018'X ! input/output in terms of delta minutesV PARAMETER LIB$K_DELTA_SECONDS = '00000019'X ! input/output in terms of delta seconds_ PARAMETER LIB$K_DELTA_WEEKS_F1 = '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 hoursd PARAMETER LIB$K_DELTA_MINUTES_F = '0000001D'X ! input/output in terms of fractional delta minutessc PARAMETER LIB$K_DELTA_SECONDS_F = '0000001E'X ! input/output in terms of fractional delta secondsL PARAMETER LIB$K_MAX_OPERATION = '00000021F'X ! 1+ max # of conversion flags! 0! 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 = 1F PARAMETER LIB$V_TIME_FIELDS = 0 ! Force printing of time fields$ PARAMETER LIB$S_DATE_FIELDS = 1F PARAMETER LIB$V_DATE_FIELDS = 1 ! Force printing of date fields BYTE %FILL (1) END STRUCTURE ! DT_PRINT_FIELDS! +! Masks for inp3ut 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_DEFAULT_FIELDS/ PARAMETER LIB$S_YEAR = 1@ PARAMETER LIB$V_YEAR = 0 ! Allow the year to be defaulted PARAMETER LIB$S_MONTH = 1B PARAMETER LIB$V_MONTH = 1 ! A 4llow 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 = 1@ PARAMETER LIB$V_HOUR = 3 ! Allow the hour to be defaulted PARAMETER LIB$S_MINUTE = 1D PARAMETER LIB$V_MINUTE = 4 ! Allow the minute to be defaulted PARAMETER LIB$S_SECOND = 1D PARAMETER LIB$V_SECOND = 5 ! Allow the second to be defaulted# PARAMETER LIB$S_HUNDREDTHS = 1G PARAMETER LIB$V_HUNDREDTHS = 56 ! Allow the fract to be defaulted BYTE %FILL (1)" END STRUCTURE ! DT_DEFAULT_FIELDSCDEC$ END OPTIONSww-U!*** MODULE $LIBFILDEF ***CDEC$ OPTIONS /NOALIGN'! Interface definitions for LIB$*_FILE! !! LIB$FIND_FILE flag definitionsB PARAMETER LIB$M_FIL_NOWILD = '00000001'X ! No wild carding allowC PARAMETER LIB$M_FIL_MULTIPLE = '00000002'X ! Multiple input files#! LIB$RENAME_FILE flag definitionsB PARAMETER LIB$M_FIL_CUR_VER = '00000001'X ! Current ve6rsion used@ PARAMETER LIB$M_FIL_INH_SECUR = '00000002'X ! Inherit securityD! LIB$DELETE_FILE & LIB$FIND_FILE & LIB$RENAME_FILE flag definitionG PARAMETER LIB$M_FIL_LONG_NAMES = '00000004'X ! Handle long file namesCDEC$ END OPTIONSwwq!*** MODULE $LIBFISDEF ***CDEC$ OPTIONS /NOALIGN2! Interface definitions for LIB$FIND_IMAGE_SYMBOL! )! LIB$FIND_IMAGE_SYMBOL flag definitions, PARAMETER LIB$M_FIS_MIXEDCASE = '00000010'X STRUCTURE /LIB$FIS_FLAGS/& PARAMET7ER LIB$S_FIS_MIXEDCASE = 1< PARAMETER LIB$V_FIS_MIXEDCASE = 4 ! Mixed case symbols BYTE %FILL (1) END STRUCTURE ! LIB$FIS_FLAGSCDEC$ END OPTIONSww N!*** MODULE $LIBVMDEF ***CDEC$ OPTIONS /NOALIGN+! Interface definitions for LIB$VM package! %! LIB$CREATE_VM_ZONE algorithm codes8 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 sizesT PARAMETER LIB$K_VM_FREQ8_SIZES = '00000003'X ! First fit, with frequent sizes cache< PARAMETER LIB$K_VM_FIXED = '00000004'X ! Fixed size blocks&! LIB$CREATE_VM_ZONE flag definitionsI PARAMETER LIB$M_VM_BOUNDARY_TAGS = '00000001'X ! Boundary tagged blocksD PARAMETER LIB$M_VM_GET_FILL0 = '00000002'X ! 0-fill for LIB$GET_VMD PARAMETER LIB$M_VM_GET_FILL1 = '00000004'X ! 1-fill for LIB$GET_VMF PARAMETER LIB$M_VM_FREE_FILL0 = '00000008'X ! 0-fill for LIB$FREE_VMF PARAMETER LIB$M_VM_FREE_FILL1 = '00000010'X ! 1-fill9 for LIB$FREE_VMX PARAMETER LIB$M_VM_EXTEND_AREA = '00000020'X ! Add extent to existing area if possibleQ PARAMETER LIB$M_VM_NO_EXTEND = '00000040'X ! Area is not allowed to be extendedX PARAMETER LIB$M_VM_TAIL_LARGE = '00000080'X ! Add larger than normal areas at the tailCDEC$ END OPTIONSww- !*** MODULE $LIBWAITDEF ***CDEC$ OPTIONS /NOALIGN%! Interface definitions for LIB$WAIT! J! LIB$WAIT floating-point format codes (must equal CVT$K_VAX_F,... codes)E PAR :AMETER LIB$K_VAX_F = '00000000'X ! VAX F Floating point dataE PARAMETER LIB$K_VAX_D = '00000001'X ! VAX D Floating point dataE PARAMETER LIB$K_VAX_G = '00000002'X ! VAX G Floating point dataE PARAMETER LIB$K_VAX_H = '00000003'X ! VAX H Floating point data! LIB$WAIT option definitionsA PARAMETER LIB$K_WAKE = '00000000'X ! WAKE option, interruptableI PARAMETER LIB$K_NOWAKE = '00000001'X ! NOWAKE option, non-interruptableCDEC$ END OPTIONSwwmNJ ;!*** MODULE $LICENSEDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 21:36:50.99! ! * *%! * COPYRIGHT (C) 1985 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. *! * *! * *! ++! ! FACILITY:! $! VAX/VMS LICENSING SYSTEM SERVICES! ! ABSTRACT:! H! 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-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-19919! 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 REQUIRED4! THE PATCHING OF SYSMSG.EXE. THIS PATCH REPLACED9! INVALID_HW_ID WITH N ?OTINRSRVLIST. FUTURE RELEASES OF8! VMS, IF THEY INCLUDE LMF 1.1, WILL NOT HAVE TO PATCH8! AND NOTINRSRVLIST WILL RETAIN ITS VALUE. THE UNUSED7! INVALID_HW_ID WILL GET A NEW MESSAGE NUMBER AND THE! IMPACT SHOULD BE MINIMAL! +! X-5 JWN009 JOHN W. NOGRADY 03-NOV-19875! UPDATE MESSAGE TEXT AND ALLOW FOR "room to grow".! +! X-4 JWN001 JOHN W. NOGRADY 14-OCT-19878! ADD MESSAGES NOAUTH AND SYSMGR. THESE MESSAGES WILL9! BE THE FIRST TWO VALUES IN THE MESSAGE VECTOR US@ED IN ! THE ROUTINE $LOOKUP_LICENSE.! &! X-3 DKH001 KEN HOBDAY 19-SEP-19871! ADD ADDITIONAL MESSAGES FOR LMF$GRANT_LICENSE! -! X-2 TCM0002 TRUDY C. MATTHEWS 09-MAR-19876! 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'X4! THESE CODES RETURN SLIGHTLY DISMAYINGA 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_LICENSEB! -* 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'XCDEC$ END OPTIONSww K:!*** MODULE $LKIDEF ***CDEC$ OPTIONS /NOALIGN! +! 3! Get Lock Information Data Identifier Definitions! ! **** NOTE ****! CE! New items must always be added to the END of each item listG! (preceeding the ENDlistname item) so that users will not have! to relink.! -! ITEM LIST BLOCKST PARAMETER LKI$K_LENGTH = '00000018'X ! LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFOT PARAMETER LKI$C_LENGTH = '00000018'X ! LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFOT PARAMETER LKI$K_BR_LENGTH = '00000038'X ! LENGTH OF LIST BLOCK WITH BYTE RANGE INFOT PARAMETER LKI$C_BR_LENGTH = '00000038'X ! LENGTH DOF LIST BLOCK WITH BYTE RANGE INFO! WITH MULTITASK INFO. STRUCTURE /LKIDEF/ UNION MAP6 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 MAP3 INTEGER*4 LKI$L_MSTCSID ! CSID OF MASTER END MAP MAP- INTEGER*4 LKI$L_SYSID ! OLD SYMBOL END MAP EEND 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 MAP/ INTEGER*4 LKI$L_REMLKID ! OLD SYMBOL END MAP END UNION UNION MAP7 INTEGER*4 LKI$L_CSID ! CSID OF PROCESS NODE  END MAP MAP/ F INTEGER*4 LKI$L_REMSYSID ! OLD SYMBOL END MAP END UNION7 INTEGER*4 LKI$Q_RQSTART(2) ! REQUEST RANGE START9 INTEGER*4 LKI$Q_RQLENGTH(2) ! REQUEST RANGE LENGTH7 INTEGER*4 LKI$Q_GRSTART(2) ! GRANTED RANGE START9 INTEGER*4 LKI$Q_GRLENGTH(2) ! GRANTED RANGE LENGTH END STRUCTURE ! LKIDEF! DEFINE NAMSPACE FIELDS% PARAMETER LKI$M_SYSNAM = '80000000'X STRUCTURE /NAMSPACE/ UNION MAP9 INTEGER*2 LKI$W_GROUP ! GROUP OGF 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 = 311 BYTE %FILL (1) ! SYSTEM WIDE RSB END MAP END UNION END STRUCTURE ! NAMSPACE! DEFINE STATE FIELDS STRUCTURE /STATEF/1 BYTE LKI$B_STATE_RQMODE ! REQUEST MODE1 BYTE LKI$B_STATE_GRMODE ! GRANT HED MODE3 BYTE LKI$B_STATE_QUEUE ! LOCK STATE CODE END STRUCTURE ! STATEF( PARAMETER LKIUSR$K_LENGTH = '00000014'X( PARAMETER LKIUSR$C_LENGTH = '00000014'Xb PARAMETER LKIUSR$K_BLOCKER_START = '00000014'X ! OFFSET TO THE START OF THE RETURNED INFORMATION STRUCTURE /LKIUSRDEF/A INTEGER*4 LKIUSR$Q_START(2) ! START OF THE REQUESTED RANGEC INTEGER*4 LKIUSR$Q_LENGTH(2) ! LENGTH OF THE REQUESTED RANGE1 BYTE LKIUSR$B_RQMODE ! REQUESTED MODEX BYTE LKI IUSR$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 VALUES1 PARAMETER LKI$C_GRANTED = '00000001'X ! JGRANTED4 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 WAIT7 PARAMETER LKI$C_RSPNOTQED = -4 ! RESPONSE NOT QUEUED3 PARAMETER LKI$C_RSPQUEUED = -5 ! RESPONSE QUEUED4 PARAMETER LKI$C_RSPGRANTD = -6 ! RESPONSE GRANTED7 PARAMETER LKI$C_RSPDOLOCL = -7 ! RESPONSE DO LOCALLY3 PARAMETER LKI$C_RSPRESEND = -8 ! RESPONSE RESEND! DEFINE TABLE NUMBERS "! K STRUCTURE CODES MUST START AT 16 PARAMETER LKI$C_LKBTYPE = '00000001'X ! ITEM IN LKB 5 PARAMETER LKI$C_RSBTYPE = '00000002'X ! ITEM IN RSBC PARAMETER LKI$C_LISTEND = '00000000'X ! DEFINE ITMLST TERMINATOR ! ITEM IDENTIFIERS FOR LKB/ PARAMETER LKI$_PID = '00000100'X ! PROCESS ID9 PARAMETER LKI$_STATE = '00000101'X ! CURRENT LOCK STATE9 PARAMETER LKI$_PARENT = '00000102'X ! ID OF PARENT LOCKC PARAMETER LKI$_LCKREFCNT = '00000103'X ! SUB-LOCK REFERENCE COUNT/ PARAMETER LKI$_LOCK LID = '00000104'X ! LOCK ID7 PARAMETER LKI$_REMLKID = '00000105'X ! REMOTE LOCK IDC 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 NODEB PARAMETER LKI$_BRL = '00000109'X ! IS THE LOCK A BYTE RANGE LOCK7 PARAMETER LKI$_RANGE = '0000010A'X ! Range of request@ PARAMETER LKI$_LASTLKB = '0000010B'X ! MAX INDEX IN LKB TABLE ! ITEM IDENTIFIERS FOR RSB= PMARAMETER LKI$_NAMSPACE = '00000200'X ! RESOURCE NAME SPACE5 PARAMETER LKI$_RESNAM = '00000201'X ! RESOURCE NAMEG PARAMETER LKI$_RSBREFCNT = '00000202'X ! SUB-RESOURCE REFERENCE COUNT3 PARAMETER LKI$_VALBLK = '00000203'X ! VALUE BLOCKI PARAMETER LKI$_SYSTEM = '00000204'X ! SYSTEM ID OF SYSTEM WITH RESOURCED PARAMETER LKI$_LCKCOUNT = '00000205'X ! COUNT OF LOCKS ON RESOURCEP PARAMETER LKI$_BLOCKEDBY = '00000206'X ! LIST OF LOCKS BLOCKED BY CURRENT LOCKM PARAMETER LKI$_BLOCKING = '0000N0207'X ! LIST OF LOCKS BLOCKING CURRENT LOCKD PARAMETER LKI$_LOCKS = '00000208'X ! LIST OF ALL LOCKS ON RESOURCEL PARAMETER LKI$_CVTCOUNT = '00000209'X ! COUNT OF LOCKS ON CONVERSION QUEUEH PARAMETER LKI$_WAITCOUNT = '0000020A'X ! COUNT OF LOCKS ON WAIT QUEUE J PARAMETER LKI$_GRANTCOUNT = '0000020B'X ! COUNT OF LOCKS ON GRANT QUEUE @ PARAMETER LKI$_MSTCSID = '0000020C'X ! CSID OF RESOURCE MASTER< PARAMETER LKI$_VALBLKST = '0000020D'X ! VALUE BLOCK STATUSd PARAMETER LKI$_BLOCKEDBY_BR = 'O0000020E'X ! LIST OF LOCKS BLOCKED BY CURRENT LOCK WITH BYTE RANGESe PARAMETER LKI$_BLOCKING_BR = '0000020F'X ! LIST OF LOCKS BLOCKING THE CURRENT LOCK WITH BYTE RANGES` PARAMETER LKI$_LOCKS_BR = '00000210'X ! LIST OF LOCKS ALL LOCKS ON A RESOURCE WITH BYTE RANGES] PARAMETER LKI$_BLOCKER_BR = '00000211'X ! LOCK THAT WILL BLOCK THE REQUESTED RANGE AND MODE9 PARAMETER LKI$_LASTRSB = '00000212'X ! MAX INDEX IN RSB; PARAMETER LKISND$K_HDRLEN = '00000010'X ! LENGTH OF HEADER; PARAMETER LKISN PD$C_HDRLEN = '00000010'X ! LENGTH OF HEADER STRUCTURE /LKISNDDEF/L! Format for local system buffer header when sending an information request! to a remote system.7 INTEGER*2 LKISND$W_RETSIZE ! size of return info6 INTEGER*2 LKISND$W_STATUS ! status of operation' INTEGER*2 LKISND$W_FLAGS ! flags0 INTEGER*2 LKISND$W_SEQNUM ! rebuild seqnm3 INTEGER*2 LKISND$W_SIZE ! size of structure2 BYTE LKISND$B_TYPE ! type of stucture" BYTE LKISND$QB_FILL_2 ! 8 BYTE LKISND$B_ITEM_LENGTH ! len of item info" BYTE LKISND$B_FILL_3 ! " INTEGER*2 LKISND$W_FILL_4 !  END STRUCTURE ! LKISNDDEFCDEC$ END OPTIONS ww;!*** MODULE $LMFDEF ***CDEC$ OPTIONS /NOALIGN( 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_U RSE = '00000006'X& PARAMETER LMF$_USERNAME = '00000007'X) PARAMETER LMF$_CHECK_TOKEN = '00000008'X( PARAMETER 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_T SOKENLEN = '0000001F'X' PARAMETER LMF$C_HW_IDLEN = '0000001F'X' PARAMETER LMF$K_HW_IDLEN = '0000001F'X) PARAMETER 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_SPAR TE = 'FFFFFFF0'X STRUCTURE /dvspm_masks/( PARAMETER LMF$S_RETURN_FAILURES = 1E PARAMETER LMF$V_RETURN_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 = 17 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_SPUARE = 28- PARAMETER LMF$V_LOOKUP_LICENSE_SPARE = 4$ BYTE %FILL (4) ! spare area END STRUCTURE ! dvspm_masksCDEC$ END OPTIONS ww-i!*** MODULE $LNKDEF ***CDEC$ OPTIONS /NOALIGN! ! Linker Options Record (LNK)! : PARAMETER LNK$C_OLB = '00000000'X ! object library spec C PARAMETER LNK$C_SHR = '00000001'X ! shareable image library spec J PARAMETER LNK$C_OLI = '00000002'X ! object library with inclusion list F PARAMETER LNK$C_OBJ = '00000003'X !V object file or symbol table fileD PARAMETER LNK$C_SHA = '00000004'X ! individually specified shr imgH PARAMETER LNK$C_MAXRECTYP = '00000004'X ! highest current record type % PARAMETER LNK$M_SELSER = '00000001'X& PARAMETER LNK$M_LIBSRCH = '00000002'X STRUCTURE /LNKDEF/1 BYTE LNK$B_RECTYP ! record type LNK 1 BYTE LNK$B_LNKTYP ! sub record type UNION MAP INTEGER*2 LNK$W_FLAGS END MAP MAP' PARAMETER LNK$S_SWELSER = 1L 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)F ! unsupported type CHARACTER*0 LNK$T_NAME ! actual name  END MAP END UNION END STRXUCTURE ! LNKDEFCDEC$ END OPTIONS wwMX=!*** MODULE $LNMDEF ***CDEC$ OPTIONS /NOALIGN' 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_CRE YATE_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 = 1C PARAMETER LNM$V_NO_ALIAS = 0 ! Do not allow outer mode alias PARAMETER LNM$S_CONFINE = 1@ PARAMETER LNM$V_CONFINE = 1 ! Do not copy into subprocess PARAMETER LNM$S_CRELOG = 1D PARAMETER LNM$V_CRELOG = 2 ! Created with Z old $CRELOG service PARAMETER LNM$S_TABLE = 17 PARAMETER LNM$V_TABLE = 3 ! This is a table name3! Logical name translation attributes -- bits 8-15" PARAMETER LNM$S_CONCEALED = 1K PARAMETER LNM$V_CONCEALED = 8 ! Do not display result of translation! PARAMETER LNM$S_TERMINAL = 1N PARAMETER LNM$V_TERMINAL = 9 ! Do not retranslate result of translation PARAMETER LNM$S_EXISTS = 1I PARAMETER LNM$V_EXISTS = 10 ! Translation does exist at this index3 [! Logical name table characteristics -- bits 16-23" PARAMETER LNM$S_SHAREABLE = 1R PARAMETER LNM$V_SHAREABLE = 16 ! Logical name table is shareable (S0 space)$ PARAMETER LNM$S_CLUSTERWIDE = 1O PARAMETER LNM$V_CLUSTERWIDE = 17 ! This is a clusterwide table (or name) 1! Only supported as returned $TRNLNM attribute'! System service options -- bits 24-31" PARAMETER LNM$S_CREATE_IF = 1N PARAMETER LNM$V_CREATE_IF = 24 ! May map to existing logical name table# \ PARAMETER LNM$S_CASE_BLIND = 1M 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 = 1R PARAMETER LNM$V_LOCAL_ACTION = 27 ! A local operation on a clusterwide name 3! done in response to a request from another node#! Only supported from kernel mode BYTE %FILL (2) END STRUCTURE ! LNMDE]Fg PARAMETER LNM$C_TABNAMLEN = '0000001F'X ! Maximum length of a name contained within a directory tableU PARAMETER LNM$C_NAMLENGTH = '000000FF'X ! Maximum logical name / translation lengthO PARAMETER LNM$C_MAXDEPTH = '0000000A'X ! Maximum logical name recursion depth8 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 n ^ame table nameD PARAMETER LNM$_LENGTH = '00000005'X ! Length of translation string; PARAMETER LNM$_ACMODE = '00000006'X ! Access mode of nameD PARAMETER LNM$_MAX_INDEX = '00000007'X ! Maximum translation indexF PARAMETER LNM$_PARENT = '00000008'X ! Parent logical name table nameC PARAMETER LNM$_LNMB_ADDR = '00000009'X ! Return LNM block address! internal use by MTL ! and mailbox UCB? PARAMETER LNM$_AGENT_ACMODE = '0000000A'X ! Agent access mode! Define item list codes1 PAR_AMETER LNM$_CHAIN = -1 ! Chain to next listCDEC$ END OPTIONS ww>!*** MODULE $LPDEF ***CDEC$ OPTIONS /NOALIGN! ++! 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% P`ARAMETER 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_PAGE_L = 'FF000000'X! PARAMETER LP$_LP11 = '00000001'X! PARAMETER LP$_LA11 = '00000002'X" PARAMETER LP$_LA180 = '00000003'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 a = 1 ! MECHANICAL FORM FEED $ PARAMETER LP$S_PRINTALL = 1L PARAMETER LP$V_PRINTALL = 2 ! NON PRINTABLE CHAR. ACCEPT(DMF-32) ! PARAMETER LP$S_DAVFU = 13 PARAMETER LP$V_DAVFU = 3 ! DAVFU AVAIL. PARAMETER LP$S_WRAP = 16 PARAMETER LP$V_WRAP = 4 ! CHAR. WRAP MODE $ PARAMETER LP$S_TRUNCATE = 1J PARAMETER LP$V_TRUNCATE = 5 ! TRUNCATE output at carriage width PARAMETER LP$S_TAB = 1/ PARAMETER LP$V_TAB = b6 ! TAB needed! PARAMETER LP$S_LOWER = 1= PARAMETER LP$V_LOWER = 7 ! PRINTER HAS LOWER CASE # PARAMETER LP$S_PASSALL = 15 PARAMETER LP$V_PASSALL = 8 ! PASSALL MODE $ PARAMETER LP$S_FALLBACK = 16 PARAMETER LP$V_FALLBACK = 9 ! FALLBACK MODE" PARAMETER LP$S_SIXELS = 16 PARAMETER LP$V_SIXELS = 10 ! HANDLES SIXELS% PARAMETER LP$S_BITMAPPED = 1; PARAMETER LP$V_BITMAPPED = 11 ! HANDLES BIT MAPS" c PARAMETER LP$S_PAGE_L = 8# PARAMETER LP$V_PAGE_L = 24* BYTE %FILL (3) ! PAGE LENGTH END MAP END UNION END STRUCTURE ! LPDEFCDEC$ END OPTIONSww!*** MODULE $LPRODEF ***CDEC$ OPTIONS /NOALIGN! 0! 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  d END MAP MAP8 ! unsupported type CHARACTER*0 LPRO$T_START BYTE %FILL END MAP END UNION6 BYTE LPRO$B_DATYP ! Maps over LSY$B_DATYP 6 INTEGER*2 LPRO$W_FLAGS ! Maps over LSY$W_FLAGS E INTEGER*2 LPRO$W_ENVINDX ! Environment index symbol defined in 9 INTEGER*2 LPRO$W_PSINDX ! Maps over LSDF$W_PSINDX : INTEGER*4 LPRO$L_ADDRS ! Entry point address, maps ! over LSDF$L_VALUE0 INTEGER*2 LPRO$W_MASK e ! Entry point mask 0 BYTE LPRO$B_NAMLNG ! Length of name - CHARACTER*31 LPRO$T_NAME ! Symbol name  END STRUCTURE ! LPRODEFCDEC$ END OPTIONS wwmv!*** MODULE $LSDFDEF ***CDEC$ OPTIONS /NOALIGN! !! 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 f ! unsupported type CHARACTER*0 LSDF$T_START BYTE %FILL END MAP END UNION6 BYTE LSDF$B_DATYP ! Maps over LSY$B_DATYP 6 INTEGER*2 LSDF$W_FLAGS ! Maps over LSY$W_FLAGS E INTEGER*2 LSDF$W_ENVINDX ! Environment index symbol defined in 5 INTEGER*2 LSDF$W_PSINDX ! Owning psect number 0 INTEGER*4 LSDF$L_VALUE ! Value of symbol 0 BYTE LSDF$B_NAMLNG ! Length of name - CHARACTER*31 LSDF$T_NAME ! Symbol nameg  END STRUCTURE ! LSDFDEFCDEC$ END OPTIONS ww !*** MODULE $LSRFDEF ***CDEC$ OPTIONS /NOALIGN! @! 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 %FILLh END MAP END UNION6 BYTE LSRF$B_DATYP ! Maps over LSY$B_DATYP 6 INTEGER*2 LSRF$W_FLAGS ! Maps over LSY$W_FLAGS 9 INTEGER*2 LSRF$W_ENVINDX ! Maps over LSY$W_ENVINDX 7 BYTE LSRF$B_NAMLNG ! Length of symbol name - CHARACTER*31 LSRF$T_NAME ! Symbol name  END STRUCTURE ! LSRFDEFCDEC$ END OPTIONS ww!*** MODULE $LSYDEF ***CDEC$ OPTIONS /NOALIGN! '! LSY - Module-Local symbol definition! M! Common to definiitions, 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 MAP/ 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 typej UNION MAP0 INTEGER*2 LSY$W_FLAGS ! Symbol flags  END MAP MAP% PARAMETER LSY$S_WEAK = 1@ PARAMETER LSY$V_WEAK = 0 ! Weak symbol (not used) $ PARAMETER LSY$S_DEF = 18 PARAMETER LSY$V_DEF = 1 ! Defined symbol $ PARAMETER LSY$S_UNI = 1> PARAMETER LSY$V_UNI = 2 ! Universal (not used) $ PARAMETER LSY$S_REL = 15 PARAMETER LSY$V_REL = 3 ! Relocatablek  BYTE %FILL (1) END MAP END UNION3 INTEGER*2 LSY$W_ENVINDX ! Environment index  END STRUCTURE ! LSYDEFCDEC$ END OPTIONS ww-])!*** MODULE $MACIDDEF ***CDEC$ OPTIONS /NOALIGN! +! J! Module $UICDEF defines the rightslist identifier space from %XA00000007! thru %XA3FFFFFF as being reserved for use by SEVMS.! %! This space has been segmented as:! ?! %XA0000000 thru %XA000FFFF for MAC secrecy level identifiersB! l %XA0010000 thru %XA001FFFF for MAC secrecy category identifiersA! %XA0020000 thru %XA002FFFF for MAC integrity level identifiersD! %XA0030000 thru %XA003FFFF for MAC integrity category identifiers! L! to provide 64K identifiers within each grouping. This allows for growthE! 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 msub-group> PARAMETER MACID$K_CAT = '00000001'X ! Category ID sub-group, PARAMETER MACID$M_SEC_INT_SEL = '00020000'X9 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'XG PARAMETER MACID$K_SEVMS_ID = '00000028'X ! Format specifier for SEVMS%! identifiers as defined by $UICDEF STRUCTURE /fill_4/ UNION MAP INTEGER*4 MACID$L_MACID nDEF END MAP MAP& PARAMETER MACID$S_ID_NUM = 16B PARAMETER MACID$V_ID_NUM = 0 ! Group relative ID number* PARAMETER MACID$S_LVL_CAT_SEL = 1S PARAMETER MACID$V_LVL_CAT_SEL = 16 ! Level/Category ID sub-group selector* PARAMETER MACID$S_SEC_INT_SEL = 1R 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 =o 6H PARAMETER MACID$V_FMT_SEL = 26 ! Composite overlay of $UICDEF ! ID_TYPE + ASSIGN_CODE fields BYTE %FILL (4) END MAP END UNION END STRUCTURE ! fill_4CDEC$ END OPTIONS wwmj )!*** MODULE $MAILDEF ***CDEC$ OPTIONS /NOALIGN! (! Definitions needed for callable mail.! ! 6! NOTE: New item codes must be appended to the end of8! each category so users will not have to relink.1! We allow 1024 entries in eatch category.! p! ! Send input codes! + PARAMETER mail$_send_spare_0 = '00000001'XJ PARAMETER mail$_send_foreign = '00000002'X ! Send foreign format messageD PARAMETER mail$_send_cc_line = '00000003'X ! CC text specificationN PARAMETER mail$_send_default_name = '00000004'X ! Default file name for send^ PARAMETER mail$_send_default_transport = '00000005'X ! Default transport used for addresseesU PARAMETER mail$_send_error_entry = '00000006'X ! Entry point for send error routineR PARAMETER mail$_sqend_filename = '00000007'X ! Specification of file name to sendH PARAMETER mail$_send_from_line = '00000008'X ! From text specificationc PARAMETER mail$_send_no_default_transport = '00000009'X ! Don't use any default transport on sendO PARAMETER mail$_send_pers_name = '0000000A'X ! Personal name text for message? PARAMETER mail$_send_record = '0000000B'X ! Record to be sentM PARAMETER mail$_send_resultspec = '0000000C'X ! Resultant filespec bodypartU PARAMETER mail$_send_server = '0000r000D'X ! Operate in server mode (signal success)I PARAMETER mail$_send_subject = '0000000E'X ! Subject text specificationY PARAMETER mail$_send_success_entry = '0000000F'X ! Entry point for send success routineI PARAMETER mail$_send_to_line = '00000010'X ! To line text specificationM PARAMETER mail$_send_uflags = '00000011'X ! User flags (for header) to send[ PARAMETER mail$_send_user_data = '00000012'X ! User specified context for action routinesP PARAMETER mail$_send_username = '00 s000013'X ! Username to add to the "To" listM PARAMETER mail$_send_username_type = '00000014'X ! Username type - TO or CC> PARAMETER mail$_send_fid = '00000015'X ! FID of file to sendV PARAMETER mail$_send_no_pers_name = '00000016'X ! Send message without personal name= PARAMETER mail$_send_sigfile = '00000017'X ! Signature file@ PARAMETER mail$_send_no_sigfile = '00000018'X ! Signature fileO PARAMETER mail$_send_parse_quotes = '00000019'X ! Reply String Parsing Quotes! ! Send outp tut codes! P PARAMETER mail$_send_copy_reply = '0000001A'X ! Copy self reply set in profileO PARAMETER mail$_send_copy_send = '0000001B'X ! Copy self send set in profile> PARAMETER mail$_send_user = '0000001C'X ! Username of callerT 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 = u '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'XP PARAMETER mail$_mailfile_default_name = '00000402'X ! Default filespec to openg PARAMETER mail$_mailfile_folder_routine = '00000403'X ! Entry point of routine to process foldernamesg PARAMETER mail$_mailfile_full_close = '00000404'X ! Do a PURGE, CONVERT/RECLAIM ifv necessary on closeA PARAMETER mail$_mailfile_name = '00000405'X ! File spec to openN PARAMETER mail$_mailfile_reclaim = '00000406'X ! Do RECLAIM on PURGE command_ PARAMETER mail$_mailfile_user_data = '00000407'X ! User specified context for action routinesY PARAMETER mail$_mailfile_wastebasket_name = '00000408'X ! New wastebasket name for fileN PARAMETER mail$_mailfile_collate_seq = '00000409'X ! I18N collating sequence1 PARAMETER mail$_mailfile_in_spare2 = '0000040A'X1 PARAMETER mai wl$_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 x 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! X PARAMETER mail$_mailfile_data_reclaim = '0000041D'X ! Numbyer of data buckets reclaimedS PARAMETER mail$_mailfile_data_scan = '0000041E'X ! Number of data buckets scannedZ PARAMETER mail$_mailfile_deleted_bytes = '0000041F'X ! Number of free bytes in mail fileZ PARAMETER mail$_mailfile_index_reclaim = '00000420'X ! Number of index buckets reclaimedZ PARAMETER mail$_mailfile_mail_directory = '00000421'X ! Mail sub-directory specificationV PARAMETER mail$_mailfile_messages_deleted = '00000422'X ! Number of messages deletedI PARAMETER mail$_mailfile_ zresultspec = '00000423'X ! Resultant file specP PARAMETER mail$_mailfile_total_reclaim = '00000424'X ! Total buckets reclaimedG 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$_mailfile_out_spare15 = '00000434'X3 PAR |AMETER 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'XC PARAMET}ER mail$_message_back = '00000801'X ! Get previous messageL PARAMETER mail$_message_before = '00000802'X ! Select messages BEFORE date^ PARAMETER mail$_message_cc_substring = '00000803'X ! Select messages containing CC substringC PARAMETER mail$_message_continue = '00000804'X ! Read next recordP PARAMETER mail$_message_file_action = '00000805'X ! File create action routineT PARAMETER mail$_message_folder_action = '00000806'X ! Folder create action routineH 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 messageE PARAMETER mail$_message_file_ctx = '0000080A'X ! File level contextJ PARAMETER mail$_message_filename = '0000080B'X ! File name specificationJ PARAMETER mail$_message_flags = '0000080C'X ! Header flags specificationJ PARAMETER mail$_message_folder = '0000080D'X ! Folder name specificationb PARAMETER mail$_message_from_substring = '0000080E'X ! Select messages containing FROM substring: PARAMETER mail$_message_id = '0000080F'X ! ID of messageC PARAMETER mail$_message_next = '00000810'X ! Retrive NEXT messageJ PARAMETER mail$_message_since = '00000811'X ! Select messages SINCE dateb PARAMETER mail$_message_subj_substring = '00000812'X ! Select messages containing SUBJ substring^ PARAMETER mail$_message_to_substring = '00000813'X ! Select messages containing TO substringI PARAMETER mail$_message_uflags = '00000814'X ! User flags specificationP PARAMETER mail$_message_auto_newmail = '00000815'X ! Move newmail to MAIL autoT PARAMETER mail$_message_user_data = '00000816'X ! User context for action routines` PARAMETER mail$_message_flags_mbz = '00000817'X ! Select messages with these flags set at zeroP PARAMETER mail$_message_min_class = '00000818'X ! Min access class for messageP 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$_message_in_spare10 = '00000823'X1 PARAMETER mail$_message_in_spare11 = '000 00824'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 PARAMETER mail$_message_in_spare20 = '0000082D'X! ! message output codes! ? PARAMETER mail$_message_cc = '0000082E'X ! CC text of messageJ PARAMETER mail$_message_current_id = '0000082F'X ! ID of current messageF PARAMETER mail$_message_date = '00000830'X ! Date of current messageL PARAMETER mail$_message_extid = '00000831'X ! Filespec of external messageJ PARAMETER mail$_message_file_created = '00000832'X ! Mailfile created...J PARAMETER mail$_message_folder_created = '00000833'X ! Folder created...C PARAMETER mail$_message_from = '00000834'X ! From text of messageD PARAMETER mail$_message_record = '00000835'X ! Record from messageT PARAMETER mail$_message_record_type = '00000836'X ! Type of record, header or textI PARAMETER mail$_message_reply_path = '00000837'X ! Reply path of senderH PARAMETER mail$_message_resultspec = '00000838'X ! Resultant file specR PARAMETER mail$_message_return_flags = '00000839'X ! Message header system flagsQ PARAMETER mail$_message_return_uflags = '0000083A'X ! Message header user flagsN PARAMETER mail$_message_selected = '0000083B'X ! Number of messages selected< PARAMETER mail$_message_sender = '0000083C'X ! Sender nameJ PARAMETER mail$_message_size = '0000083D'X ! Size of the current messageM PARAMETER mail$_message_subject = '0000083E'X ! Subject text of the messageC PARAMETER mail$_message_to = '0000083F'X ! To text of the message? PARAMETER mail$_message_buffer = '00000840'X ! Buffer addressO PARAMETER mail$_message_return_class = '00000841'X ! Class of current messageO PARAMET ER mail$_message_binary_date = '00000842'X ! Binary date/time quadword- PARAMETER mail$_message_spare4 = '00000843'XR 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. PARAMETER mail$_message_spare10 = '00000849'X. PARAMETER mail$_message_spare11 = '0000084A'X. PARAMETER m ail$_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 bodypartG PARAMETER mail$_message_header = '00000 854'X ! Header record returnedC 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'XF PARAMETER mail$_user_first = '00000C01'X ! Retrive first user recordD PARAMETER mail$_user_next = '00000C02'X ! Retrive next user recordK PARAMETER mail$_user_username = '00000C03'X ! Retrive record for usernameD PARAMETER mail$_user_set_auto_purge = '00000C04'X ! Set auto-purgeI PARAMETER mail$_user_set_no_auto_purge = '00000C05'X ! Clear auto-purgeJ PARAMETER mail$_user_set_sub_directory = '00000C06'X ! Set sub-dir fieldO PARAMETER mail$_user_set_no_sub_directory = '00000C07'X ! Clear sub-dir fieldL PARAMETER mail$_user_set_forwarding = '00000C08'X ! Set forwarding addressQ PARAMETER mail$_user_set_no_forwarding = '00000C09'X ! Clear forwarding addressJ PARAMETER mail$_user_set_personal_name = '00000C0A'X ! Set personal nameO PARAMETER mail$_user_set_no_personal_name = '00000C0B'X ! Clear personal nameB PARAMETER mail$_user_set_copy_send = '00000C0C'X ! Set copy-sendG PARAMETER mail$_user_set_no_copy_send = '00000C0D'X ! Clear copy sendD PARAMETER mail$_user_set_copy_reply = '00000C0E'X ! Set copy replyI PARAMETER mail$_user_set_no_copy_reply = '00000C0F'X ! Clear copy replyM PARAMETER mail$_user_set_new_messages = '00000C10'X ! Set new message countP 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+H PARAMETER mail$_user_set_transport = '00000C14'X ! Set transport fieldM PARAMETER mail$_user_set_no_transport = '00000C15'X ! Clear transport fieldB PARAMETER mail$_user_set_editor = '00000C16'X ! Set editor fieldG PARAMETER mail$_user_set_no_editor = '00000C17'X ! Clear editor field@ PARAMETER mail$_user_set_queue = '00000C18'X ! Set queue fieldE PARAMETER mail$_user_set_no_queue = '00000C19'X ! Clear queue field@ PARAMETER mail$_user_set_user1 = '00000C1A'X ! Set user1 fieldE PARAMETER mail$_user_set_no_user1 = '00000C1B'X ! Clear user1 field@ PARAMETER mail$_user_set_user2 = '00000C1C'X ! Set user2 fieldE PARAMETER mail$_user_set_no_user2 = '00000C1D'X ! Clear user2 field@ PARAMETER mail$_user_set_user3 = '00000C1E'X ! Set user3 fieldE PARAMETER mail$_user_set_no_user3 = '00000C1F'X ! Clear user3 field> PARAMETER mail$_user_set_form = '00000C20'X ! Set form fieldC PARAMETER mail$_user_set_no_form = '00000C21'X ! Clear form fieldM PARAMETER mail$_user_set_copy_forward = '00000C22'X ! Set copy self forwardR PARAMETER mail$_user_set_no_copy_forward = '00000C23'X ! Clear copy self forwardE PARAMETER mail$_user_set_cc_prompt = '00000C24'X ! Set CC promptingJ PARAMETER mail$_user_ set_no_cc_prompt = '00000C25'X ! Clear CC promptingE PARAMETER mail$_user_set_sigfile = '00000C26'X ! Set signature fileJ 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- PARAMETER 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_spare14 = '00000C35'X. PARAMETER mail$_user_in_spare15 = '00000C36'X. PARAMETER mail$_user_in_spare16 = '00000C37'X. PARAMETER mail$_user_in_spare17 = '00000C 38'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! 8 PARAMETER mail$_user_mailplus = '00000C3C'X ! M+ field@ PARAMETER mail$_user_transport = '00000C3D'X ! Transport field: PARAMETER mail$_user_editor = '00000C3E'X ! Editor field8 PARAMETER mail$_user_queue = '00000C3F'X ! Queue field8 PARAMETER mail$_user_user1 = '00000C40'X ! User1 field8 PARAMETER mail$_user_user2 = '00000C41'X ! User2 field8 PARAMETER mail$_user_user3 = '00000C42'X ! User3 field6 PARAMETER mail$_user_form = '00000C43'X ! Form fieldE PARAMETER mail$_user_copy_forward = '00000C44'X ! Copy forward flag= PARAMETER mail$_user_sigfile = '00000C45'X ! Signature fileQ PARAMETER mail$_user_return_username = '00000C46'X ! Username of current recordA PARAMETER mail$_user_auto_purge = '00000C47'X ! Auto purge flagA PARAMETER mail$_user_sub_directory = '00000C48'X ! Sub-dir specI PARAMETER mail$_user_full_directory = '00000C49'X ! Full directory specE PARAMETER mail$_user_new_messages = '00000C4A'X ! New message countB PARAMETER mail$_user_forwarding = '00000C4B'X ! Forwarding fieldH PARAMETER mail$_user_personal_name = '00000C4C'X ! Personal name field? PARAMETER mail$_user_copy_send = '00000C4D'X ! Copy send flagA PARAMETER mail$_user_copy_reply = '00000C4E'X ! Copy reply flag> PARAMETER mail$_user_captive = '00000C4F'X ! User is captiveB 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_spare7 = '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$_use r_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 = '00000C60'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! D PARAMETER mail$_noop = '00001001'X ! Do nothing - used for testing> PARAMETER mail$_nosignal = '00001002'X ! Don't signal errorsK PARAMETER mail$_noprobe = '00001003'X ! Don't probe the item list buffersR PARAMETER mail$_tld_input = '00001004'X ! This item is a tld to be used as inputQ PARAMETER mail$_tld_output = '00001005'X ! This item describes a buffer to fill! +! Username types for mail$send_add_address! @ PARAMETER mail$_to = '00000001'X ! Address part of the TO line@ PARAMETER mail$_cc = '00000002'X ! Address part of the CC line% PARAMETER mail$_spare1 = '00000003'X% PARAMETER mail$_spare2 = '00000004'X! /! 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 = 1A PARAMETER MAIL$V_newmsg = 0 ! This is a new message) PARAMETER MAIL$S_replied = 1M PARAMETER  MAIL$V_replied = 1 ! This message has been replied to( PARAMETER MAIL$S_dwmail = 18 PARAMETER MAIL$V_dwmail = 2 ! DW mail flag( PARAMETER MAIL$S_extmsg = 1I PARAMETER MAIL$V_extmsg = 3 ! Message text in external file( PARAMETER MAIL$S_extfnf = 1K PARAMETER MAIL$V_extfnf = 4 ! External message file not found) PARAMETER MAIL$S_notrans = 1K PARAMETER MAIL$V_notrans = 5 ! No translator for this message) PARAMETER MAIL$S_extnstd = 1N PARAMETER MAIL$V_extnstd = 6 ! External file is not var-seq file( PARAMETER MAIL$S_marked = 1H PARAMETER MAIL$V_marked = 7 ! This message has been marked) PARAMETER MAIL$S_recmode = 1W PARAMETER MAIL$V_recmode = 8 ! This message should be read in record mode BYTE %FILL (2) END MAP END UNION END STRUCTURE ! flagsdefCDEC$ END OPTIONS ww!*** MODULE $MAILMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:14.06! ! ! VERSION: 'X-12'! ! * *@! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1992 - 1996 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 WIT H 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. *! * *! * *! ++! (! FACILITY: VMS SYSTEM MACRO LIBRARIES! ! ABSTRACT:! 6! THIS FILE CONTAINS THE MDL SOURCE FOR MAIL MESSAGES! ! ENVIRONMENT:! ! N/A! ! ! 5! 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-19957! ADD CDASUPPORT MESSAGE FOR EAGLE/THETA FOR MAIL/OLD4! SUPPORT FOR DDIF/DTIF FILES. THIS MESSAGE WILL 2! BECOME REDUNDANT IN GRYPHON, WHEN SUPPORT FOR '! DDIF/DTIF FILE PROCESSING IS ADDED.! +! X-9 ROP1002 ROBERT POSNIAK 7-JUN-19952! 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-19947! ADD MAIL$_LISTTOOLONG ERROR MESSAGE TO BE RETURNED 8! FROM CALLABLE MAIL ROUTINE MAIL$SEND_ADD_ADDRESS IF 9! 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-19935! 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-19937! 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-19929! FIX FOR QAR #3161. ADDED MESSAGE INVRANGE TO LET THE 6! USER KNOW WHEN THE RANGE SPECIFIED FOR A DELETE IS ! INVALID.! ,! X-5 MFS0069 MARK F. SCANLON 26-JUN-19921! QAR 2682. REMOVED FAO FROM MESSAGE NAMTOOBIG.! )! X-4 RAB RICHARD A. BISHOP 21-MAY-19920! MERGE ANOTHER SYMBVOL FROM THE VAX/VMS COPY:! :! X-19 DAC060 DAVE CANTOR 15-APR-1992F! CORRECTED TEXT OF NOUSERSPEC AT REQUEST OF DOC. GROUP! :! X-18 DAC058 DAVE CANTOR 02-APR-19 92K! SUPPLY ERROR MESSAGE FOR DCL COMMAND $ MAIL FILENAME A! FOLLOWED BY NO ADDRESSEE SUPPLIED. (NOUSERSPEC)! )! X-3 RAB RICHARD 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), WHAT 7! FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK.! B! ===============================================================! *! X-17 DRB0084 DAWN R. BANKS 8-AUG-19913! 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-19871! 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-19860! ADD UPGRADE FOR ROLLING UPGRADE IN PROGRESS.! ! X-7 ROP! ADD ERRACTRNS! ! X-6 ROP! ADD SHOW200, SHOW205! ADD FORMSG, NOTFORMSG! ! X-5 ROP8! FIX SHOW10 TO USE ONLY DESCRIPTORS. REMOVE RECLSTAT6! ADD PROMPT. CHANGE INFO50 TO TAKE A DESCRIPTOR AS*! INPUT. ADD INFO12,INFO14, CRENEWFILE.2! 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-19851! NEW MESSAGE FOR WRONG FILE. ADD ERROR ERACTED! .! V03-015 ROP0004 ROBERT POSNIAK 6-JUN-19845! NEW MESSGE FOR OVERSIZED RECORD. NEW MESSAGE FOR! REENTERING LINE.! 9! V03-014 BLS0272 BENN SCHREIBER 18-FEB-1984 13:36:12 /! NEW MESSAGE FOR INCORRECT PROTOCOL VERSION.! /! V03-013 BLS0263 BENN SCHREIBER 5-FEB-19844! NEW MESSAGE FOR CAPTIVE ACCOUNT TRYING TO SPAWN.! /! V03-012 BLS0255 BENN SCHREIBER 28-DEC-1983=! NEW MESSAGES FOR SHOW KEY, AND FOR TIME IN NOTIFY MESSAGE! /! V03-011 BLS0250 BENN SCHREIBER 8-DEC-19839! NEW MESSAGE FOR EDITOR NOT CALLABLE. NEW MESSAGE FOR-! ISAM FILE FOUND WHEN SEQUENTIAL EXPECTED.! /! V03-010 BLS0246 BENN SCHREIBER 28-NOV-19834! NEW MESSAGE ASKING IF WANT TO CREATE NEW FOLDER.! /! V03-009 BLS0229 BENN SCHREIBER 16-JUL-1983$! NEW MESSAGE "you have new mail".! /! V03-008 BLS0227 BENN SCHREIBER 1-JUL-19837! NEW MESSAGES FOR SENDERR AND NOSUCHUSR THAT INCLUDE! THE NODE NAME.! /!  V03-007 BLS0225 BENN SCHREIBER 17-JUN-19831! NEW MESSAGE FOR BETTER PERSONAL NAME CHECKING! /! V03-006 BLS0222 BENN SCHREIBER 15-MAY-1983$! NEW MESSAGE FOR RECLAIMING SPACE! /! V03-005 BLS0220 BENN SCHREIBER 30-APR-1983!! NEW MESSAGES FOR NEW FEATURES! /! 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.! /! V03-003 BLS0211 BENN SCHREIBER 13-MAR-19836! NEW MESSAGES FOR ISAM FILES, AND TEXT THAT USED TO! BE EMBEDDED IN THE PROGRAM.! /! V03-002 BLS0202 BENN SCHREIBER 5-JAN-19836! NEW MESSAGES FOR ILLEGAL STRING LENGTH AND ILLEGAL! CHARACTER IN STRING! /! V03-001 BLS0177 BENN SCHREIBER 24-JUN-1982:! NEW MESSAGE FOR USER WHO HAS DISMAIL SET. NEW MESSAGE7! IF LOOP DETECTED IN FORWARDING VIA LOGICAL NAMES OR! SET FORWARD.! ! --! *! DEFINE MAIL RELATED 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$_NOMOREMSG = '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% PAR AMETER 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 = '007E8112'X( PARAMETER MAIL$_SENDERRAT = '007E811A'X' PARAM ETER 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 = '007E8172'X( PARAMETER MAIL$_INVITMLEN = '007E817A'X' PARAM ETER 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 M AIL$_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) PARAMETER 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$_YOUHAVENEW = '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 = '007EDE68'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& P ARAMETER 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) PARAMETER MAIL$_CRENEWFOLD = '007EDF38'X( PARAMETER MAIL$_N ONEWMAIL = '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' PARAMETER MAIL$_FILEMPTY = '007EDF98'X( PARAMETER MAIL$_NON EFOUND = '007EDFA0'X+ PARAMETER MAIL$_NOMOREREC = '007EDFA8'X ! 2! THE FOLLOWING MESSAGE IS USED FOR COMMUNICATIOND! 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) PARAMETER 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& PARAMET ER 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& PARAMETER MAIL$_CREATED = '007EFD31'X& PARAMETER MAIL$_RENAMED = '007EFD39'X# PARAMETER MAIL$_TEXT = '007EFD41'X! 5! 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'XCDEC$ END OPTIONSwwM)%!*** MODULE $MAPPINGDEF IDENT X-2 ***CDEC$ OPTIONS /NOALIGN& PARAMETER MAPPING$K_ADD = '00000001'X) PARAMETER MAPPING$K_CREATE = '00000 002'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 = '0000000B'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_WILDCARD_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_LONGEST = '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 = -2147483648+ PARAMETER MAPPING$K_TCP_USER = -2147483391, PARAMETER MAPPING$K_TCP_GROUP = -2147483390, PARAMETER MAPPING$K_TCP_PROXY = -2147483389. PARAMETER MAPPING$K_DCE_MAPPING = -2147483135, PARAMETER MAPPING$K_DCE_PRO XY = -21474831342 PARAMETER MAPPING$K_PATHWORKS_PROXY = -2147482879/ PARAMETER MAPPING$K_DECNET_PROXY = -21474826233 PARAMETER MAPPING$K_KERBEROS_MAPPING = -21474823675 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 MAPPING$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- PARAMETER 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_DEFINITION = 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_DESC1CDEC$ END OPTIONS wwM2!* ** MODULE $MHDDEF ***CDEC$ OPTIONS /NOALIGN! ! Module header! H PARAMETER MHD$C_MHDID = '000000AD'X ! Value that must be in the ident N PARAMETER MHD$K_REFLNG = '00000008'X ! Length of record to end of ref count N PARAMETER MHD$C_REFLNG = '00000008'X ! Length of record to end of ref count I PARAMETER MHD$K_INSTIME = '00000008'X ! Label for start of insert time I PARAMETER MHD$C_INSTIME = '00000008'X ! Label for start of insert time N PARAMETER MHD$K_USRDAT = '00000010'X ! Start  of user additional header data N PARAMETER MHD$C_USRDAT = '00000010'X ! Start of user additional header data E PARAMETER MHD$K_MHDLEN = '00000010'X ! Length of fixed part of MHD E 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 MHD$K_OBJIDENT = '00000012'X ! + PARAMETER MHD$C_OBJIDENT = '00000012'X !  STRUCTURE /MHDDEF/A BYTE MHD$B_LBRFLAG ! Librarian-controlled flag byte # BYTE MHD$B_ID ! Ident ) INTEGER*2 %FILL ! Reserved word 1 INTEGER*4 MHD$L_REFCNT ! Reference count 3 INTEGER*4 MHD$L_DATIM ! Date/time inserted UNION MAP# INTEGER*4 %FILL ! ...  END MAP MAP! BYTE %FILL(1:4)a ! 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 = 1H PARAMETER MHD$V_OBJTIR = 1 ! Module contains TIR records  BYTE %FILL (1) END MAP END UNION UNION MAP6 BYTE MHD$B_OBJIDLNG ! Length of ident  END MAP MAP BYTE %FILLR ! unsupported type CHARACTER*0 MHD$T_OBJIDENT ! Object module ident  END MAP END UNION END STRUCTURE ! MHDDEFCDEC$ END OPTIONS ww!*** MODULE $MHDEF ***CDEC$ OPTIONS /NOALIGN! ! Module header record (MHD)! 8 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 6 PARAMETER MHD$C_CPR = '00000004'X ! Copyright notice 8 PARAMETER MHD$C_MTC = '00000005'X ! Maintenence status 2 PARAMETER MHD$C_GTX = '00000006'X ! General text B PARAMETER MHD$C_MAXHDRTYP = '00000006'X ! Maximum allowable type  STRUCTURE /MHDEF/8 BYTE MHD$B_RECTYP ! Record type (OBJ$C_MHD) 3 BYTE MHD$B_HDRTYP ! Type field for MHD ! Types of header records 0 BYTE MHD$B_STRLVL ! Structure level 4 INTEGER*2 MHD$W_RECSIZ ! Maximum record size 3 BYTE MHD$B_NAMLNG ! Module name length - CHARACTER*31 MHD$T_NAME ! Module name  END STRUCTURE ! MHDEFCDEC$ END OPTIONS ww) !*** MODULE MMEDEF IDENT X-3 ***CDEC$ OPTIONS /NOALIGN$ 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& PARAMETER 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_DEVIC E = '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 = '00000004'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, PARAM ETER MME$S_MOUNT_CONTEXT = '00000004'X( PARAMETER MME$S_MNT_FLAGS = '00000008'X% PARAMETER MME$S_OBJCNT = '00000004'X) PARAMETER MME$S_OVR_ACCESS = '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 = '00000004'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$_RESPONSEREQ = '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 = '00000039'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$_DEVICE_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# PARAM ETER MME$_REPLY = '0000004E'X$ PARAMETER MME$M_IMAGE = '00000001'X" PARAMETER MME$M_CRC = '00000002'X% PARAMETER MME$M_DELETE = '00000004'X, 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 MAP& 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_IGN_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, 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_VERIF_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% PARAMETER 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'XCDEC$ END OPTIONS ww-)!!*** MODULE $MMIDEF IDENT X-1 ***CDEC$ OP TIONS /NOALIGN& 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 = '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 = '0000000 C'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' PARAMETER 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 = '0000001E'X' PARAMETER MMI$_MOUNT_END = '0000001F'X& PARAMETER MMI$_INIT_END = '00000020'X( PARAMETER MMI$_NEWVOL_END = '00000021'XCDEC$ END OPTIONS ww)!*** MODULE $MNTDEF ***CDEC$ OPTIONS /NOALIGN! +! +! 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% PARAMETER 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_WRITETHRU = '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_CLUSTER = '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% PAR AMETER 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 = '00000100'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# 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'X4 PARAMETER MNT$_DEVNAM = '00000001'X ! DEVICE NAME 4 PARAMETER MNT$_ VOLNAM = '00000002'X ! VOLUME NAME 5 PARAMETER MNT$_LOGNAM = '00000003'X ! LOGICAL NAME 3 PARAMETER MNT$_FLAGS = '00000004'X ! MOUNT FLAGS 9 PARAMETER MNT$_ACCESSED = '00000005'X ! ACCESSED VALUE : PARAMETER MNT$_PROCESSOR = '00000006'X ! PROCESSOR NAME 8 PARAMETER MNT$_VOLSET = '00000007'X ! VOLUME SET NAME ; PARAMETER MNT$_BLOCKSIZE = '00000008'X ! BLOCKSIZE VALUE < PARAMETER MNT$_DENSITY = '00000009'X ! TAPE DENSITY VALUE G 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 8 PARAMETER MNT$_OWNER = '0000000D'X ! VOLUME OWNER UIC 9 PARAMETER MNT$_VPROT = '0000000E'X ! VOLUME PROTECTION 8 PARAMETER MNT$_QUOTA = '0000000F'X ! QUOTA CACHE SIZE = PARAMETER MNT$_RECORDSIZ = '00000010'X ! RECORD SIZE VALUE : PARAMETER MNT$_WINDOW = '00000011'X ! NUMBER OF WINDOWS B PARAMETER MNT$_EXTENSION = '00000012'X ! DEFAULT FILE EXTENSION A PARAMETER MNT$_VISUAL_ID = '00000013'X ! VISUAL IDENTIFICATION 6 PARAMETER MNT$_COMMENT = '00000014'X ! USER COMMENT = PARAMETER MNT$_CLASS = '00000015'X ! SECURITY CLASSFICATIONc PARAMETER MNT$_UNUSED2 = '00000016'X ! SPARE (was used for now obsolete journaling-related items)c PARAMETER MNT$_UNUSED3 = '00000017'X ! SPARE (was used for now obsolete journaling-related items)? PARAMETER MNT$_SHACOPY_BUF = '00000018'X ! SHADOW COPY BUFFERD PARAMETER MNT$_SHANAM = '00000019'X ! SHADOW SET VIRTUAL UNIT NAMEC PARAMETER MNT$_SHAMEM = '0000001A'X ! SHADOW SET MEMBER UNIT NAMEW PARAMETER MNT$_SHAMEM_MGCOPY = '0000001B'X ! SHADOW SET MEMBER UNIT NAME (MERGE COPY)T PARAMETER MNT$_SHAMEM_COPY = '0000001C'X ! SHADOW SET MEMBER UNIT NAME (FULL COPY)= PARAMETER MNT$_PRFD_PATH = '0000001D'X ! PREFERRED DSA PATHF PARAMETER MNT$_ASSIGNMENT_UNIT = '0000001E'X ! Assignment unit (MME)K PARAMETER MNT$_CART_MEDIA_NAME = '0000001F'X ! Cartridge Media Name (MME)D PARAMETER MNT$_CARTRIDGE_NAME = '00000020'X ! Cartridge Name (MME)D PARAMETER MNT$_CARTRIDGE_SIDE = '00000021'X ! Cartridge Side (MME)A PARAMETER MNT$_COLLECTION = '00000022'X ! Collection name (MME)L PARAMETER MNT$_DEVICE_TYPE = '00000023'X ! Device Selection criteria (MME)G PARAMETER MNT$_DISPOSITION = '00000024'X ! Dismount Disposition (MME)B PARAMETER MNT$_LOCATION = '00000025'X ! Cartridge Location (MME)< PARAMETER MNT$_MEDIA_NAME = '00000026'X ! Media Name (MME). PARAMETER MNT$_UNUSED4 = '00000027'X ! SPAREH PARAMETER MNT$_UNDEFINED_FAT = '00000028'X ! Undefined File AttributesC PARAMETER MNT$_UCS = '00000029'X ! Universal Character Set stringH PARAMETER MNT$_TAPE_EXPIRATION = '0000002A'X ! Date Tape Expires (MME)A PARAMETER MNT$_PRIORITY = '0000002B'X ! SHDRIVER merge priorityP PARAMETER MNT$_FACTOR = '0000002C'X ! SHDRIVER IO completion factor for merges! &! Add new item codes before this line! E PARAMETER MNT$_LAST_ITEM_CODE = '0000002D'X ! last item code plus 1I PARAMET ER MNT$C_BASE_CARTRIDGE = '00000001'X ! Assign a whole cartridgeF PARAMETER MNT$C_COMPOUND_CARTRIDGE = '00000002'X ! Assign a magazineW PARAMETER MNT$C_PREASSIGNED_SIDE = '00000003'X ! Assign a pre-assigned cartridge sideE 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 = 1A  PARAMETER MNT$V_FOREIGN = 0 ! FOREIGN OPTION SELECTED " PARAMETER MNT$S_GROUP = 1= PARAMETER MNT$V_GROUP = 1 ! GROUP OPTION SELECTED % PARAMETER MNT$S_NOASSIST = 1C PARAMETER MNT$V_NOASSIST = 2 ! NOASSIST OPTION SELECTED $ PARAMETER MNT$S_NODISKQ = 1A 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 = 1A PARAMETER MNT$V_NOLABEL = 5 ! NOLABEL OPTION SELECTED $ PARAMETER MNT$S_NOWRITE = 1A PARAMETER MNT$V_NOWRITE = 6 ! NOWRITE OPTION SELECTED ' PARAMETER MNT$S_OVR_ACCESS = 1R PARAMETER MNT$V_OVR_ACCESS = 7 ! OVERRIDE ACCESSIBLITY OPTION SELECTED $ PARAMETER MNT$S_OVR_EXP = 1L PARAMETER MNT$V_OVR_EXP = 8 ! OVERRIDE EXPIRATON OPTION SELECTED & PARAMETER MNT$S_OVR_IDENT = 1A PARAMETER MNT$V_OVR_I DENT = 9 ! OVERRIDE VOLUME LABEL & PARAMETER MNT$S_OVR_SETID = 1W PARAMETER MNT$V_OVR_SETID = 10 ! OVERRIDE VOLUME SET IDENT OPTION SELECTIED & PARAMETER MNT$S_READCHECK = 1F 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 = 1I PARAMETER MNT$V_MESSAGE = 13 ! ALLOW $MOUNT TO PRINT MESSAGES # PAR AMETER MNT$S_SYSTEM = 1@ PARAMETER MNT$V_SYSTEM = 14 ! SYSTEM OPTION SELECTED ' PARAMETER MNT$S_WRITECHECK = 1H PARAMETER MNT$V_WRITECHECK = 15 ! WRITECHECK OPTION SELECTED & PARAMETER MNT$S_WRITETHRU = 1F 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 = 1I PARAMETER MNT$V_OVR_LOCK = 18 !  OVERRIDE AUTOMATIC WRITE-LOCK % PARAMETER MNT$S_NOMNTVER = 1F PARAMETER MNT$V_NOMNTVER = 19 ! DISABLE MOUNT VERIFICATION % PARAMETER MNT$S_NOUNLOAD = 1L PARAMETER MNT$V_NOUNLOAD = 20 ! DO NOT UNLOAD VOLUME AT DISMOUNT , PARAMETER MNT$S_TAPE_DATA_WRITE = 1P PARAMETER MNT$V_TAPE_DATA_WRITE = 21 ! ENABLE WRITE-BACK CACHE ON TAPE# PARAMETER MNT$S_NOCOPY = 1K PARAMETER MNT$V_NOCOPY = 22 ! DO NOT ALLOW SHADOW COPY OPERATION# PARAMETER MNT$S_NOAUTO = 1T PARAMETER MNT$V_NOAUTO = 23 ! DO NOT SET THE MTAACP INTO AVR AND AVL MODE% PARAMETER MNT$S_INIT_ALL = 1W PARAMETER MNT$V_INIT_ALL = 24 ! INITIALIZE ALL VOLUMES IN SET BEFORE WRITING& PARAMETER MNT$S_INIT_CONT = 1Z PARAMETER MNT$V_INIT_CONT = 25 ! INITIALIZE CONTINUATION VOLUMES BEFORE WRITING% PARAMETER MNT$S_OVR_VOLO = 1P PARAMETER MNT$V_OVR_VOLO = 26 ! OVERRIDE VOL1 VOLUME IDENTIFIER FIE LD% PARAMETER MNT$S_INTERCHG = 1` PARAMETER MNT$V_INTERCHG = 27 ! VOL FOR INTERCHG NO VMS SPECIFIC INFO WRITTEN TO TAPE$ PARAMETER MNT$S_CLUSTER = 1L PARAMETER MNT$V_CLUSTER = 28 ! CLUSTER-WIDE MOUNT OPTION SELECTED& PARAMETER MNT$S_NOREBUILD = 1A PARAMETER MNT$V_NOREBUILD = 29 ! DO NOT REBUILD VOLUME' PARAMETER MNT$S_OVR_SHAMEM = 1S PARAMETER MNT$V_OVR_SHAMEM = 30 ! OVERRIDE SHADOW MEMBERSHIP RESTRICTION& PAR AMETER MNT$S_MULTI_VOL = 1A PARAMETER MNT$V_MULTI_VOL = 31 ! MULTI_VOLUME TAPE SET" PARAMETER MNT$S_DISKQ = 1A PARAMETER MNT$V_DISKQ = 32 ! QUOTA EXPLICITLY SELECTED' PARAMETER MNT$S_COMPACTION = 1G PARAMETER MNT$V_COMPACTION = 33 ! MAGTAPE DATA COMPACTION ON$ PARAMETER MNT$S_INCLUDE = 1L PARAMETER MNT$V_INCLUDE = 34 ! INCLUDE PREVIOUS SHADOWSET MEMBERS" PARAMETER MNT$S_PASS2 = 1L PARAMETER MNT$V_PASS2 = 35 !  PASS2 of /INCLUDE/CONFIRM PROCESSING% PARAMETER MNT$S_OVR_NOFE = 1D PARAMETER MNT$V_OVR_NOFE = 36 ! /OVERRIDE=NO_FORCED_ERROR$ PARAMETER MNT$S_SCRATCH = 1E PARAMETER MNT$V_SCRATCH = 37 ! Scratch tape requested flag" PARAMETER MNT$S_CDROM = 1O PARAMETER MNT$V_CDROM = 38 ! Force mounting of a Files-11 C/D Volume PARAMETER MNT$S_XAR = 1E PARAMETER MNT$V_XAR = 39 ! Enable protection based on XARs PARAMETER MNT $S_DSI = 1Z PARAMETER MNT$V_DSI = 40 ! Enable protection based on Digital System Id in XARs& PARAMETER MNT$S_SUBSYSTEM = 16 PARAMETER MNT$V_SUBSYSTEM = 41 ! /SUBSYSTEM) PARAMETER MNT$S_NOCOMPACTION = 1I PARAMETER MNT$V_NOCOMPACTION = 42 ! MAGTAPE DATA COMPACTION OFF) PARAMETER MNT$S_OVR_SECURITY = 1@ PARAMETER MNT$V_OVR_SECURITY = 43 ! /OVERRIDE=SECURITY/ PARAMETER MNT$S_OVR_LIMITED_SEARCH = 1M PARAMETER MNT$V_O VR_LIMITED_SEARCH = 44 ! /OVERRIDE=LIMITIED_SEARCH! PARAMETER MNT$S_POOL = 1O PARAMETER 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 = 1@ PARAMETER MNT$V_WLG_DISABLE = 47 ! /POLICY=DISABLE_WLG, PARAMETER MNT$S_REQUIRE_MEMBERS = 1H 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 = 1@ PARAMETER MNT$V_WRITE_FIRST = 51 ! /POLCIY=WRITE_FIRST PARAMETER MNT$S_DCD = 11 PARAMETER MNT$V_DCD = 52 ! /POLICY=DCD" PARAMETER MNT$S_NODCD = 15 PARAMETER MNT$V_NODCD = 53 ! /POLICY=NODCD' P ARAMETER MNT$S_LOCAL_HOST = 1? PARAMETER MNT$V_LOCAL_HOST = 54 ! /POLICY=LOCAL_HOST# PARAMETER MNT$S_FACTOR = 17 PARAMETER MNT$V_FACTOR = 55 ! /POLICY=FACTOR% PARAMETER MNT$S_PRIORITY = 1; PARAMETER MNT$V_PRIORITY = 56 ! /POLICY=PRIORITY BYTE %FILL (8) END MAP MAP# PARAMETER MNT2$S_DISKQ = 1A PARAMETER MNT2$V_DISKQ = 0 ! QUOTA EXPLICITLY SELECTED( PARAMETER MNT2$S_COMPACTION = 1G PARAMET ER MNT2$V_COMPACTION = 1 ! MAGTAPE DATA COMPACTION ON% PARAMETER MNT2$S_INCLUDE = 1L PARAMETER MNT2$V_INCLUDE = 2 ! INCLUDE PREVIOUS SHADOWSET MEMBERS# PARAMETER MNT2$S_PASS2 = 1L PARAMETER MNT2$V_PASS2 = 3 ! PASS2 of /INCLUDE/CONFIRM PROCESSING& PARAMETER MNT2$S_OVR_NOFE = 1D PARAMETER MNT2$V_OVR_NOFE = 4 ! /OVERRIDE=NO_FORCED_ERROR% PARAMETER MNT2$S_SCRATCH = 1E PARAMETER MNT2$V_SCRATCH = 5 ! Scratch tape requested  flag# PARAMETER MNT2$S_CDROM = 1O PARAMETER MNT2$V_CDROM = 6 ! Force mounting of a Files-11 C/D Volume! PARAMETER MNT2$S_XAR = 1E PARAMETER MNT2$V_XAR = 7 ! Enable protection based on XARs! PARAMETER MNT2$S_DSI = 1Z PARAMETER MNT2$V_DSI = 8 ! Enable protection based on Digital System Id in XARs' PARAMETER MNT2$S_SUBSYSTEM = 16 PARAMETER MNT2$V_SUBSYSTEM = 9 ! /SUBSYSTEM* PARAMETER MNT2$S_NOCOMPACTION = 1J  PARAMETER MNT2$V_NOCOMPACTION = 10 ! MAGTAPE DATA COMPACTION OFF* PARAMETER MNT2$S_OVR_SECURITY = 1A PARAMETER MNT2$V_OVR_SECURITY = 11 ! /OVERRIDE=SECURITY0 PARAMETER MNT2$S_OVR_LIMITED_SEARCH = 1N PARAMETER MNT2$V_OVR_LIMITED_SEARCH = 12 ! /OVERRIDE=LIMITIED_SEARCH" PARAMETER MNT2$S_POOL = 1P PARAMETER MNT2$V_POOL = 13 ! /POOL operation for snapshot pool member( PARAMETER MNT2$S_WLG_ENABLE = 1? PARAMETER MNT2$V_WL G_ENABLE = 14 ! /POLICY=ENABLE_WLG) PARAMETER MNT2$S_WLG_DISABLE = 1A PARAMETER MNT2$V_WLG_DISABLE = 15 ! /POLICY=DISABLE_WLG- PARAMETER MNT2$S_REQUIRE_MEMBERS = 1I PARAMETER MNT2$V_REQUIRE_MEMBERS = 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 = 1A PARAMETER MNT2$V_WRITE_FIRST = 19 ! /POLCIY=WRITE_FIRST! PARAMETER MNT2$S_DCD = 12 PARAMETER MNT2$V_DCD = 20 ! /POLICY=DCD# PARAMETER MNT2$S_NODCD = 16 PARAMETER 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 = 18 PARAMETER MNT2$V_FACTOR = 23 ! /POLICY=FACTOR& PARAMETER MNT2$S_PRIORITY = 1< PARAMETER MNT2$V_PRIORITY = 24 ! /POLICY=PRIORITY 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/7 INTEGER*2 UNFAT$W_MRS ! FAT Maximum Record Size5 BYTE UNFAT$B_RAT ! FAT Record Attributes1 BYTE UNFAT$B_RFM ! FAT Record Format END STRUCTURE ! UNDEFINED_FATCDEC$ END OPTIONS ww2!*** MODULE $MOUNDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:15.55! ! ! VERSION: 'X-28'! K! * *K! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978 - 1997 *K! * ALL RIGHTS RESERVED. *K! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *K! * STATES. *K! * *K! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *K! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *K! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *K! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *K! * DIGITAL EQUIPMENT CORPORATION. *K! * *K! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *K! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *K! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *K! * *! ++! ,! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES! ! ABSTRACT:! D! THIS FILE CONTAINS THE MDL SOURCE FOR THE MOUNT UTILITY MESSAGES.! ! ENVIRONMENT:! B! MAINTAINERS TAKE NOTE! THIS MODULE IS COMMON SOURCE FOR VAX ANDE! ALPHA. DO NOT CHANGE ONE WITHOUT TRACKING THE CHANGE IN THE OTHER.! ! --! ! 5! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976! ! MODIFIED BY:! 9! X-28 JJF-0076 J. JEFFERY FRIEDRICHS 12-SEP-1997<! SEPARATE DEVBUSY ERROR MESSAGES OUT INTO UNIQUE MESSAGES! 5! X-27 KJP-SDOS KEVIN PLAYFORD 18-JUL-19976! ADD MESSAGE FOR SNAPSHOT POOL MEMBER.! 8! X-26 ACG0639 ANDREW C. GOLDSTEIN, 13-JUN-1997 14:44&! ADD NEW MESSAGES FOR ODS-5 SUPPORT! C! X-25 TGC0049 TOM CARR 19-JUN-1996G! ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THAT=! A MEMBER IS ALREADY A MEMBER OF A SHADOW SET! C! X-24 TGC0048 TOM CARR 29-MAY-1996G!  ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THATE! A MEMBER REQUIRES A COPY OPERATION AND CAN NOT BE A ! MASTER! 7! X-23 ACG0618 ANDREW C. GOLDSTEIN, 8-APR-1996 11:17!! RETURN FACILITY NAME TO MOUNT! F! X-22 TGC0045 TOM CARR 29-MAR-1996<! ADD NEW MESSAGES FROM SHADOW MOUNT REWRITE.! 3! X-21 JJF0017 J. JEFFERY FRIEDRICHS 11-OCT-19948! NUMEROUS MESSAGE CLEANUPS PER DOCUMENTATION FOLKS...! L! X-20 JJF0014 J. JEFFERY FRIEDRICHS 17-MAY-1994! REMOVE BADSECSUG! L! X-19 JJF0014 J. JEFFERY FRIEDRICHS 10-MAY-1994,! CHANGE BADSECSYS AND BADSECSUG TO ERRORS! L! X-18 JJF0014 J. JEFFERY FRIEDRICHS 14-APR-1994! ADD BADSECSYS AND BADSECSUG! L! X-17 JJF0007 J. JEFFERY FRIEDRICHS 22-MAR-1994! ADD DENIGNORED.! L! X-16 JJF0011 J. JEFFERY FRIEDRICHS 14-MAR-1994M! ADD REBUILD MESSAGES. ALSO ADD CRELNM_FAILED FOR A PENDING ! CHANGE.! 5! X-15 JJF0008 J. JEFFERY FRIEDRICHS 9-MAR-1994<! REMOVE FAO AND CLARIFY MESSAGES INCONPROT AND INCONOWNER! 5! 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-19935! RETROFITTI NG MESSAGE VOLSETALRMNT FROM ALPHA VMS.! (! X-4 ABELL53 ALLY BELL 25-JUNE-1993C! ADDED FATAL MESSAGE VOLSETALRMNT FOR WHEN A VOLUME SET IS BEING@! MOUNTED WITH THE SAME NAME AS AN ALREADY MOUNTED VOLUME SET.! 3! X-10 AJK0010 MIKE STAMS/ADAM KOJNOK 01-SEP-1993<! ADDING MESSAGE (CBSNOTSUPTD). ALSO, CHANGING 'NEWER' IN9! MESSAGE INVSHDWMEM TO "newer". THIS WAS REQUESTED BY3! DOCUMENTATION SO THAT IT MATCHES THE HELP FILE.! *! X-9 VBK VAIKOM B. KRISHNAN 14-NOV-19917 ! ADD A NEW ERROR MESSAGE TO BE OUTPUT WHEN A DISK IS6! TOO BIG TO BE PART OF A VOLUME SET. SUCH DISKS ARE:! LARGER THAN 8GB AND SO THEY REQUIRE AN ENTIRE LONGWORD5! TO STORE LBNS WHICH LEAVES NO ROOM FOR RVN TO BE ! STORED IN THE MAP POINTER.! +! X-8 JFD0034 JAMES F. DUNHAM 8-JAN-19916! IN SUPPORT OF FILES-11 C/D CONTROLLED VOLUME SETS,6! ADD ISO 9660 AND HIGH SIERRA VOLUME MOUNT MESSAGES! 1! X-21 RKK0057 ROBERT K. KOSAKOWSKI 19-FEB-19918! ADD NEW MESSAGES FOR MME OPCOM MESSAGES - SUPPORT OF-! SCRATCH VOLUME, MOUNT BY CARTRIDGE NAME. ! (FOR DAN KYLER)! 1! X-20 RKK0049 ROBERT K. KOSAKOWSKI 26-DEC-1990<! REPLACE WITH CORRECT VERSION OF FILE. (BUILDBUG, CHECKED! IN WRONG VERSION)! 1! X-19 RKK0048 ROBERT K. KOSAKOWSKI 21-DEC-1990! ADDED DEVNOFE MESSAGE.! 1! 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! ADDED BADMDFMT MESSAGE.! .! X-14 PRD0526 PAUL R. DESTEFANO 07-OCT-19898! 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-19885! 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 R. DESTEFANO 23-SEP-19876! 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-19853! 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 HUANG 19-SEP-1985! ADD SHADOWFAIL MESSAGE.! %! X-4 HH0103 HAI HUANG 09-SEP-19853! 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.! ! -! 0! ***** F OLLOWING MESSAGES ARE SHARED WITH INIT! E! WHEN 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$_U NKDEV = '0072804C'X( PARAMETER MOUN$_BADLABELQ = '00728054'X( PARAMETER MOUN$_VALCNVERR = '0072805C'X! PARAMETER MOUN$_D3 = '00728064'X! PARAMETER MOUN$_D4 = '0072806C'X! PARAMETER MOUN$_D5 = '00728074'X! 0! ***** 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 = '007280AC'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( P ARAMETER MOUN$_NOTVOLSET = '0072810C'X( PARAMETER 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$_BADOV R = '0072816C'X& PARAMETER MOUN$_DEVICES = '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 = '0 07281CC'X' PARAMETER MOUN$_MBXCRERR = '007281D4'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 = '0072822 C'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$_BADSE CSYS = '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 = '0072 834C'X+ PARAMETER MOUN$_DETSHADINCON = '00728354'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$_DEVBUSYINVMOS = '007283B4'X+ PARAMETER MOUN$_DEVBUSYINSET = '007283BC'X! H! ADD NEW FATAL STATUS MESSAGES HERE. THERE IS ROOM FOR 391 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! ! 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 = '0072A173'X' PARAMETER MOUN$_DOSETVOL = '0072A17B'X! F! 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'XCDEC$ END OPTIONS ww &)!*** MODULE $MSGDEF ***CDEC$ OPTIONS /NOALIGN! +! $! SYSTEM WIDE MAILBOX MESSAGE TYPES! ! -! DEFINE CODES AS CONSTANTS F PARAMETER MSG$_TRMUNSOLIC = '00000001'X ! UNSOLICITED TERMINAL DATA G PARAMETER MSG$_CRUNSOLIC = '00000002'X ! UNSOLICTED CARD READER DATA 8 PARAMETER MSG$_DELPROC = '00000003'X ! DELETE PROCESS A PARAMETER MSG$_SNDSMB = '00000004'X ! SEND TO SYMBIONT MANAGER : PARAMETER M SG$_DEVOFFLIN = '00000005'X ! DEVICE OFFLINE < PARAMETER MSG$_TRMHANGUP = '00000006'X ! TERMINAL HANG UP 8 PARAMETER MSG$_DEVONLIN = '00000007'X ! DEVICE ONLINE Q PARAMETER MSG$_OPRQST = '00000008'X ! OPERATOR REQUEST *** OVERLAPPED CODE *** P 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 K PARAMETER MSG$_SNDACC = '0000000A'X ! SEND MESSAGE TO ACCOUNTING MANAGER O PARAMETER MSG$_PURPROC = '0000000B'X ! PURGE PROCESS *** OVERLAPPED CODE *** N PARAMETER MSG$_DELIMAG = '0000000C'X ! DELETE IMAGE *** OVERLAPPED CODE *** M PARAMETER MSG$_PURIMAG = '0000000D'X ! PURGE IMAGE *** OVERLAPPED CODE *** Q PARAMETER MSG$_SYSFUNC = '0000000E'X ! SYSTEM FUNCTION *** OVERLAPPED CODE *** F PARAMETER MSG$_SNDJBC = '0000000F'X ! Send message to job controllerS PARAMETER MSG$_GETQUI = '00000010'X ! Get queue information (from job controller)! DEFINE DMC MESSAGES @ PARAMETER MSG$_XM_DATAVL = '0000000B'X ! DMC UNSOLICITED DATA 9 PARAMETER MSG$_XM_SHUTDN = '0000000C'X ! DMC LINE DOWN ? PARAMETER MSG$_XM_ATTN = '0000000D'X ! DMC ATTENTION MESSAGE ! SYMBIONT COMMAND MESSAGES A PARAMETER MSG$_INIOPR = '00000010'X ! INITIATE PRINTING A FILE > PARAMETER MSG$_ABOOPR = '00000011'X ! ABORT PRINTING A FILE @ PARAMETER MSG$_SUSOPR = '00000012'X ! PAUSE PRINTING THE FILE A PARAMETER M !SG$_RESOPR = '00000013'X ! RESUME PRINTING THE FILE F PARAMETER MSG$_DELSMB = '00000014'X ! SYMBIONT SHOULD DELETE ITSELF C PARAMETER MSG$_REQUE = '00000015'X ! REQUEUE A FILE FOR PRINTING ! B PARAMETER MSG$_SMBRSP = '00000020'X ! SYMBIONT MANAGER RESPONSE D PARAMETER MSG$_ACCRSP = '00000021'X ! ACCOUNTING MANAGER RESPONSE ! FILE ACP MESSAGES B PARAMETER MSG$_SCANBAD = '00000028'X ! SCAN FILE FOR BAD BLOCKS D PARAMETER MSG$_SCANRSP = '00000029'X ! RESPONSE FROM FILE SCANNER ! " NETWORK ATTENTION CODES < PARAMETER MSG$_ABORT = '00000030'X ! PARTNER ABORTED LINK 9 PARAMETER MSG$_CONFIRM = '00000031'X ! CONNECT CONFIRM B PARAMETER MSG$_CONNECT = '00000032'X ! INBOUND CONNECT INITIATE F PARAMETER MSG$_DISCON = '00000033'X ! PARTNER DISCONNECTED - HANGUP A PARAMETER MSG$_EXIT = '00000034'X ! PARTNER EXITED PREMATURELY M PARAMETER MSG$_INTMSG = '00000035'X ! INTERRUPT MESSAGE - UNSOLICITED DATA E PARAMETER MSG$_PATHLOST = '00000036'X ! NFW - PATH LOST TO PARTNER # 9 PARAMETER MSG$_PROTOCOL = '00000037'X ! PROTOCOL ERROR 7 PARAMETER MSG$_REJECT = '00000038'X ! CONNECT REJECT C PARAMETER MSG$_THIRDPARTY = '00000039'X ! THIRD PARTY DISCONNECT 9 PARAMETER MSG$_TIMEOUT = '0000003A'X ! CONNECT TIMEOUT ? PARAMETER MSG$_NETSHUT = '0000003B'X ! Network shutting down D PARAMETER MSG$_NODEACC = '0000003C'X ! Node has become accessible H PARAMETER MSG$_NODEINACC = '0000003D'X ! Node has become inaccessible D PARAMETER MSG$_EVTAVL = '0000003E'X ! Even $ts are available to EVL J PARAMETER MSG$_EVTRCVCHG = '0000003F'X ! Event receiver database change : PARAMETER MSG$_INCDAT = '00000040'X ! X25 INCOMING DATA 9 PARAMETER MSG$_RESET = '00000041'X ! X25 CIRCUIT RESET 7 PARAMETER MSG$_LINUP = '00000042'X ! X25 PVC LINE UP : PARAMETER MSG$_LINDWN = '00000043'X ! X25 PVC LINE DOWN M PARAMETER MSG$_EVTXMTCHG = '00000044'X ! Event transmitter database change ! MOUNT VERIFICATION MESSAGES ; PARAMETER MSG$_DEVOFFLINX = '00000050'X ! DEVICE O %FFLINE A PARAMETER MSG$_WRONGVOL = '00000051'X ! WRONG VOLUME IN DEVICE H PARAMETER MSG$_DEVWRTLCK = '00000052'X ! DEVICE HAS BEEN WRITE LOCKED > PARAMETER MSG$_TRMBRDCST = '00000053'X ! TERMINAL BROADCAST I PARAMETER MSG$_MVCOMPLETE = '00000054'X ! MOUNT VERIFICATION COMPLETED F PARAMETER MSG$_MVABORTED = '00000055'X ! MOUNT VERIFICATION ABORTED > PARAMETER MSG$_DISMOUNTED = '00000056'X ! VOLUME DISMOUNTED H PARAMETER MSG$_UDA50MVER = '00000057'X ! UDA50 MICORCODE NOT UPTO REV N PAR&AMETER MSG$_DUPUNITNO = '00000058'X ! MSCP CONTROLLER - DUPLICATE UNIT ! @ PARAMETER MSG$_CLUMBX = '00000059'X ! CNXMGR to OPCOM messagesL PARAMETER MSG$_TM78MVER = '0000005A'X ! TM78 Microcode not up to rev levelJ PARAMETER MSG$_SHAMEMFAL = '0000005B'X ! Member failed out of shadow set= PARAMETER MSG$_SHARDUCED = '0000005C'X ! Shadow set reducedF PARAMETER MSG$_RC25MVER = '0000005D'X ! RC25 MICORCODE NOT UPTO REV F PARAMETER MSG$_RDRXMVER = '0000005E'X ! RDRX MICORCODE NOT UPTO REV F P'ARAMETER MSG$_TU81MVER = '0000005F'X ! TU81 MICORCODE NOT UPTO REV F PARAMETER MSG$_MAYAMVER = '00000060'X ! MAYA MICORCODE NOT UPTO REV G PARAMETER MSG$_SHACHASTA = '00000061'X ! Shadow set has changed stateN PARAMETER MSG$_SHACOPCOM = '00000062'X ! Shadow copy operation has completedM PARAMETER MSG$_SHAREDZER = '00000063'X ! Shadow set reduced to zero membersE PARAMETER MSG$_SHAPOSMEM = '00000064'X ! Possible shadow set memberS PARAMETER MSG$_SHAALLCOM = '00000065'X ! All shadow set (copy operations completedF PARAMETER MSG$_SHACOPBEG = '00000066'X ! Shadow copy operation begunN PARAMETER MSG$_SHAWROMEM = '00000067'X ! Shadow member contains wrong volumeS PARAMETER MSG$_SHAORGMEM = '00000068'X ! Shadow system disk missing VMB R3 memberE PARAMETER MSG$_TRMLOSE_KB = '00000069'X ! terminal lost physical KBG PARAMETER MSG$_TRMGAIN_KB = '0000006A'X ! terminal gained physical KBI PARAMETER MSG$_TRMSHRINK = '0000006B'X ! terminal window shrunk to iconH PARAMETER MSG$_TR)MEXPAND = '0000006C'X ! terminal window icon expandedB PARAMETER MSG$_TRMRESIZE = '0000006D'X ! terminal window resized> PARAMETER MSG$_TRMMOVE = '0000006E'X ! terminal window movedN PARAMETER MSG$_SNDMME = '0000006F'X ! message to media management extensionsW PARAMETER MSG$_RETMME = '00000070'X ! message returned from media management software PARAMETER MSG$_SHAADPBAD = '00000071'X ! Shadow VMB R3 member not currently connected to original boot adapter type (PA versus PU) PARAMETER M*SG$_SHAEMUPTH = '00000072'X ! Shadow VMB R3 member not currently connected to original boot adapter - on an emulated patho PARAMETER MSG$_SHABENODMP = '00000073'X ! Shadow VMB R3 member not on original adapter, current type unknown q PARAMETER MSG$_SHABNODMP = '00000074'X ! Shadow VMB R3 member not the master of set or not on PATH named to VMB PARAMETER MSG$_SHALOCDEV = '00000075'X ! A Satellites shadow master member is now on a local device, no reboot or dumps possibleZ PARAMETER MSG$_SHAN+OBPOK = '00000076'X ! Shadow VMB R3 member is not a member of the setZ PARAMETER MSG$_SHABDMPOK = '00000077'X ! Shadow VMB R3 member is on the original adapterl PARAMETER MSG$_BOOTDMPOK = '00000078'X ! System dump will has been redirected to the current master memberd PARAMETER MSG$_SHABDBCK = '00000079'X ! Shadow VMB R3 member has returned to the original adapter m PARAMETER MSG$_SHANODMP = '0000007A'X ! Shadow master changed. Dump will NOT be written if system crashes.i PARAMETER MSG$_SH,ADMPOK = '0000007B'X ! Shadow master changed. Dump WILL be written if system crashes."! DEFINE MESSAGES FOR USE BY QMANE PARAMETER MSG$_QMAN_INTERNAL = '000000C8'X ! QMAN internal message CDEC$ END OPTIONS wwM3)$!*** MODULE $MSGHLPDEF IDENT X-3 ***CDEC$ OPTIONS /NOALIGN( 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 = 1@ PARAMETER MSGHLP$V_NOSORT = 0 ! Do *NOT* sort the output ! PARAMETER MSGHLP$S_BRIEF = 1J PARAMETER MSGHLP$V_BRIEF = 1 ! Give only the names of the messages # PARAMETER MSGHLP$S_MACHINE = 1S PARAMETER MSGHLP$V_MACHINE = 2 ! Return the text in machine-readable format ' PARAMETER MSGHLP$S_NOSUBSTRING = 1' PARAMETER MSGHLP$V_NOSUBSTRING = 3C BYTE %FILL (1) ! Match only entire words, no abreviations  INTEGER.*2 %FILLD BYTE MSGHLP$B_WORK_FILES ! How many workfiles for /SORT? END STRUCTURE ! MSGHLPDEFCDEC$ END OPTIONS ww)!*** MODULE $MT2DEF ***CDEC$ OPTIONS /NOALIGN! +(! EXTENDED MAGTAPE CHARACTERISTICS BITS! -' PARAMETER MT2$M_SUP_DENS = '0000FFFF'X) PARAMETER MT2$M_WBC_ENABLE = '00010000'X* PARAMETER 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 = '00/100000'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 0_ENABLE = 1J PARAMETER MT2$V_WBC_ENABLE = 16 ! WRITE-BACK CACHING IS ENABLED( PARAMETER MT2$S_RDC_DISABLE = 1E PARAMETER MT2$V_RDC_DISABLE = 17 ! READ CACHING IS DISABLED( PARAMETER MT2$S_CACHED_DATA = 1P PARAMETER MT2$V_CACHED_DATA = 18 ! CLASS DRIVER DETECTED DATA IN CACHE$ PARAMETER MT2$S_CD_LOST = 1P PARAMETER MT2$V_CD_LOST = 19 ! CLASS DRIVER DETECTED CACHED DATA LOST& PARAMETER MT2$S_TAPE_MARK = 1F PARAMETER 1 MT2$V_TAPE_MARK = 20 ! TAPE MARK HAS BEEN WRITTEN% PARAMETER MT2$S_COMP_SUP = 1? 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 = 1R PARAMETER MT2$V_MT3_SUPPORTED = 23 ! device has extended density support* PARAMETER MT2$S_ALLOWFAST_SUP = 1I PARAMETER MT2$V_ALLOWFAST_SUP = 24 ! SCSI Fast Search suppor2ted- PARAMETER MT2$S_ALLOWFAST_ALWAYS = 1H PARAMETER MT2$V_ALLOWFAST_ALWAYS = 25 ! ALWAYS use Fast Search- PARAMETER MT2$S_ALLOWFAST_PER_IO = 1K PARAMETER MT2$V_ALLOWFAST_PER_IO = 26 ! PER_IO use of Fast Search, PARAMETER MT2$S_ALLOWFAST_NEVER = 1F PARAMETER MT2$V_ALLOWFAST_NEVER = 27 ! NEVER use Fast Search BYTE %FILL (4) END MAP END UNION END STRUCTURE ! MT2DEFCDEC$ END OPTIONS ww@)!*** MODULE 3$MT3DEF ***CDEC$ OPTIONS /NOALIGN! +0! MAGNETIC TAPE DENSITY/COMPRESSION DEFINITIONS! <! These values are used only for MTD enhanced tape drivers ! and are not found in MTDEF.! F PARAMETER MT3$K_DEFAULT = '00000000'X ! DEFAULT DENSITY/COMPRESSION 8 PARAMETER MT3$K_NRZI_800 = '00000101'X ! NRZI 800 BPI 6 PARAMETER MT3$K_PE_1600 = '00000102'X ! PE 1600 BPI 8 PARAMETER MT3$K_GCR_6250 = '00000104'X ! GCR 6250 BPI 8 PARAMETER MT3$K_TK50 = '00000201'X ! DLT TK50: 833 B 4PI9 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 A PARAMETER MT3$K_3490E_COMP = '00000308'X ! IBM 3490: compressedC PARAMETER MT3$K_WOD_6250 = '00000401'X ! RV80 6250 BPI EQUIVALENT5 PARAMETER MT3$K_DAT = '00000501'X ! DAT - 61000 bpi9 PARAMETER MT3$K_DAT_COMP = '00000502'X ! DAT Compressed5N! 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.4 PARAMETER MT3$K_8200 = '00000601'X ! Exa-Byte 82004 PARAMETER MT3$K_8500 = '00000602'X ! Exa-Byte 8500D PARAMETER MT3$K_8500_COMP = '00000604'X ! Exa-Byte 8500 CompressedD PARAMETER MT3$K_8200_COMP = '00000608'X ! Exa-Byte 8200 CompressedM PARAMETER MT3$K_QIC = '00000701'X ! All QIC drives are drive settable only.F P6ARAMETER MT3$K_TK85 = '00000804'X ! DLT Tx85: 10625 BPI -- Cmpt IIIF PARAMETER MT3$K_TK86 = '00000808'X ! DLT Tx86: 10626 BPI -- Cmpt IIIF PARAMETER MT3$K_TK87 = '00000810'X ! DLT Tx87: 62500 BPI -- Cmpt IIIJ PARAMETER MT3$K_TK87_COMP = '00000820'X ! DLT Tx87: Compressed 62501 BPIJ PARAMETER MT3$K_TK89 = '00000901'X ! DLT Tx89: (Quantum 7000) -- Cmpt IVK PARAMETER MT3$K_TK89_COMP = '00000902'X ! DLT Tx89: Compressed -- Cmpt IVJ PARAMETER MT3$K_TK88 = '00000940'X ! DLT Tx88: (Quantum 40007) -- Cmpt IVK PARAMETER MT3$K_TK88_COMP = '00000980'X ! DLT Tx88: Compressed -- Cmpt IVF PARAMETER MT3$K_AIT1 = '00000A01'X ! Sony Advanced Intelligent TapesV PARAMETER MT3$K_AIT1_COMP = '00000A02'X ! Sony Advanced Intelligent Tapes Compressed= PARAMETER MT3$K_DDS2 = '00000B01'X ! Digital Data Storage 2M PARAMETER MT3$K_DDS2_COMP = '00000B02'X ! Digital Data Storage 2 Compressed=! DDS-3 thru DDS-4 are not yet supported by DEC tapes drives> PARAMETER MT3$K_DDS3 = '00000C01'X ! Digital 8 Data Storage 3 O PARAMETER MT3$K_DDS3_COMP = '00000C02'X ! Digital Data Storage 3 Compressed ? PARAMETER MT3$K_DDS4 = '00000D01'X ! Digital Data Storage 4 O PARAMETER MT3$K_DDS4_COMP = '00000D02'X ! Digital Data Storage 4 Compressed ! Compression Only codes. O! The X%FFxx codes below are layed out so that future compression enhancments 4! may take advantage of multiple compression types.= PARAMETER MT3$K_NO_COMP = '0000FF00'X ! All Compression OFF5 PARAMETER MT3$K_COMP = '00090FF01'X ! Compression ONCDEC$ END OPTIONS wwM")!*** MODULE $MTADEF ***CDEC$ OPTIONS /NOALIGN! +%! MAGTAPE ACCESSIBILTY ROUTINE CODES! -! DEFINITIONS FOR ACCESS_SPEC C PARAMETER MTA$K_NOCHAR = '00000000'X ! ACCESS CHAR IS NOVALID @ PARAMETER MTA$K_CHARVALID = '00000001'X ! ACCESS CHAR IS VALID! DEFINITIONS FOR TYPE A PARAMETER MTA$K_INVOL1 = '00000000'X ! INPUT A VOL1 ACCESS CODEA PARAMETER MTA$K_INHDR1 = '00000001'X ! INPUT A HDR1 ACCESS COD:EC PARAMETER MTA$K_OUTVOL1 = '00000002'X ! OUTPUT A VOL1 ACCESS CODEC PARAMETER MTA$K_OUTHDR1 = '00000003'X ! OUTPUT A HDR1 ACCESS CODECDEC$ END OPTIONS wwM")!*** MODULE $MTDEF ***CDEC$ OPTIONS /NOALIGN! +! 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 = '000;01F00'X+ PARAMETER MT$M_FASTSKIP_USED = '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'X8 PARAMETER MT$K_DEFAULT = '00000 <000'X ! DEFAULT FORMAT 8 PARAMETER MT$K_NORMAL11 = '0000000C'X ! PDP-11 NORMAL ; PARAMETER MT$K_CORDMP11 = '0000000D'X ! PDP-11 CORE DUMP 8 PARAMETER MT$K_NORMAL15 = '0000000E'X ! PDP-15 NORMAL ! 7 PARAMETER MT$K_NRZI_800 = '00000003'X ! NRZI 800 BPI 5 PARAMETER MT$K_PE_1600 = '00000004'X ! PE 1600 BPI 7 PARAMETER MT$K_GCR_6250 = '00000005'X ! GCR 6250 BPI B PARAMETER MT$K_WOD_6250 = '00000008'X ! RV80 6250 BPI EQUIVALENTE PARAMETER MT$K_SCSI_DC1 = '0000000A'X ! Data Compaction =algorithm 16 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 (Tx87) 62500G PARAMETER MT$K_BLK_COMP = '00000016'X ! BLOCK (Tx87) COMPRESSED 62501K PARAMETER MT$K_DAT_61K = '00000018'X ! DAT CARTRIDGE 61000 BPI EQUIVALENT! 8 PARAMETER MT$K_SPEED_DEF = '00000000'X ! DEFAULT SPEED0 PARAMETER MT$K_SPEED_25 = '00000019'X ! 25 IPS0 PARAMETER MT$K_SPEED_75 = '0000004B'X ! 75 IPS STRUCTURE /MTDEF/ UNION MAP# PARAMETER MT$S_SEREXCP = 1A PARAMETER MT$V_SEREXCP = 0 ! SERIOUS EXCEPTION PRESENT& PAR ?AMETER MT$S_ENAUTOPACK = 1> PARAMETER MT$V_ENAUTOPACK = 1 ! ENABLE AUTO PACKACK% PARAMETER MT$S_ENSEREXCP = 1G PARAMETER MT$V_ENSEREXCP = 2 ! ENABLE SERIOUS EXCEPTION MODE" PARAMETER MT$S_PARITY = 1E PARAMETER MT$V_PARITY = 3 ! PARITY SELECT (0=ODD, 1=EVEN) " PARAMETER MT$S_FORMAT = 48 PARAMETER MT$V_FORMAT = 4 ! RECORDING FORMAT # PARAMETER MT$S_DENSITY = 5E PARAMETER MT$V_DENSITY = 8 ! RECORDING DENSITY AN @D METHOD ) PARAMETER MT$S_FASTSKIP_USED = 1Q PARAMETER MT$V_FASTSKIP_USED = 13 ! IO$_SKIPFILE USED SKIP BY FILEMARKS# PARAMETER MT$S_LOGSOFT = 1N PARAMETER MT$V_LOGSOFT = 14 ! LOG SOFT (TU78) ERRORS (0=NO, 1=YES) % PARAMETER MT$S_LOGSOFTOG = 1O 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 = A15 PARAMETER MT$V_EOF = 17 ! AT END OF FILE  PARAMETER MT$S_EOT = 15 PARAMETER MT$V_EOT = 18 ! AT END OF TAPE  PARAMETER MT$S_HWL = 1C PARAMETER MT$V_HWL = 19 ! TAPE IS HARDWARE WRITELOCKED PARAMETER MT$S_LOST = 19 PARAMETER MT$V_LOST = 20 ! TAPE POSITION LOST $ PARAMETER MT$S_SUP_NRZI = 1G PARAMETER MT$V_SUP_NRZI = 21 ! DRIVE SUPPORTS NRZI (800 BPI)" PARAMETER MT$S_SUP_PE = 1D PBARAMETER MT$V_SUP_PE = 22 ! DRIVE SUPPORTS PE (1600 BPI)# PARAMETER MT$S_SUP_GCR = 1F 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 PeCrformance Cartridge 12 - 15! Block Mode 16 - 23! Reserved 24 - 31! ! M! DEFAULT,0 /* DEFAULT DENSITY (SAME AS ABOVE)! TAPE SPEED VALUE DEFINITIONS! END UNION END STRUCTURE ! MTDEFCDEC$ END OPTIONS wwm!*** MODULE $MTHDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:58.38! 3! DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSGT! 2H1 27-MAY-1986 D11:12:01 GAMACHE "Create new SMP thread from V5.0_BL2 modules"X! 2E1 3-APR-1986 20:55:46 HOLSTEIN "Create new Exec Reorg thread from V4.4 modules"Q! 2F1 18-MAR-1986 20:31:28 HOLSTEIN "Create new SMP thread from V4.4 modules"W! 2D1 17-DEC-1985 09:08:44 FIORELLI "Create new exec reorg thread from BL7 modules"P! *2 3-SEP-1985 15:59:52 MAILMAN "extend transfer vector; add mth$_notimp">! 1A1 20-JUL-1985 14:44:33 SYSTEMBUILD "Initial SMP entry"I! *1 18-JUN-1985 03:36:07 S EYSTEMBUILD "Initial entry of V4.0 source"3! DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG"! FILE: MTHMSG.MSG EDIT: JCW2004! ! * *5! * COPYRIGHT (C) 1978, 1980, 1982, 1984 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! * I FNCLUSION 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! * DIG GITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! * *! * *! ! M! 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-19856! 2-004 - ADDED VECTOR MATH MESSAGES. JCW 24-FEB-88.! +?! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOHR GLOBAL NAMES:! ! MTH$_ABCMNOXYZ! L! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",N! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR3! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.! M! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR7! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION.! ! MACRO-32 PROGRAMMING:! ! THE MACROS CALL:! ! $MTHDEF! =! WILL CAUSE ALL SYMBOLS TO B IE MADE AVAILABLE TO THE MODULE.7! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).8! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL;@! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER.! -2! ; 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 J= '0016829C'X' PARAMETER MTH$_SQUROONEG = '001682A4'X2! ; 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_INVARGMAT = '001682DC'X( PARAMETER MTH$_VEC_UNDEXP = '001682E4'X+ PARAMETER MTH$_VEC_LOGZERNEG = '001682EC'X+ PARAMETER MTH$_VEC_SQUROONEG K= '001682F4'X+ PARAMETER MTH$_VEC_FLOOVEMAT = '001682FC'X+ PARAMETER MTH$_VEC_FLOUNDMAT = '00168304'X' PARAMETER MTH$_SINCOSSIG = '001682BC'XCDEC$ END OPTIONSwwg !*** MODULE $NAMDEF ***CDEC$ OPTIONS /NOALIGN! '! name block field definitions! 1! the nam block is used to communicate optional ! filename-related information! 9 PARAMETER NAM$C_BID = '00000002'X ! code for nam block V PARAMETER NAM$C_MAXRSS = '000000FF'X ! maximum resultant n Lame 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& PARAMETER NAM$M_SLPARSE = '00000020'X' PARAMETER NAM$M_SRCHXABS = '00000040'XT PARAMETER NAM$C_UFS = '00000000'X ! Unknown file system for remote file access or +! not applicable for M local file access or@ 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 system F PARAMETER NAM$C_RMS32 NS = '0000000A'X ! RMS-32 subset (e.g., VAXELAN)8 PARAMETER NAM$C_CPMFS = '0000000B'X ! CP/M file system= PARAMETER NAM$C_MS_DOSFS = '0000000C'X ! MS/DOS file systemC PARAMETER NAM$C_ULTRIX32_FS = '0000000D'X ! Ultrix-32 file systemC PARAMETER NAM$C_ULTRIX11_FS = '0000000E'X ! Ultrix-11 file system@ PARAMETER DAP$K_SNADTF_FS = '0000000F'X ! SNADTF compatable FS! +++++++++++++++++++++++: PARAMETER NAM$C_DVI = '00000010'X ! length of dvi field ! +++++*****" PARAMETER NAM$M_IFI = '00 O010000'X& PARAMETER NAM$M_SRCHNMF = '40000000'X$ PARAMETER NAM$M_SVCTX = '80000000'XE PARAMETER NAM$K_BLN_V2 = '00000038'X ! Version 2 name block length E PARAMETER NAM$C_BLN_V2 = '00000038'X ! Version 2 name block length & PARAMETER NAM$M_EXP_VER = '00000001'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_DIRP = '00000040'X& PARAMETER NAM$M_EXP_DEV = '00000080'X' PARAMETER NAM$M_WILDCARD = '00000100'X* PARAMETER NAM$M_SEARCH_LIST = '00000800'X' PARAMETER NAM$M_CNCL_DEV = '00001000'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' PAR QAMETER 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'XK PARAMETER NAM$K_BLN_DIRWC = '00000060'X ! Not Rdocumented optional length K PARAMETER NAM$C_BLN_DIRWC = '00000060'X ! Not documented optional length 8 PARAMETER NAM$K_BLN = '00000060'X ! Name block length 8 PARAMETER NAM$C_BLN = '00000060'X ! Name block length  STRUCTURE /NAMDEF/' BYTE NAM$B_BID ! block id + BYTE NAM$B_BLN ! block length ! +++++++++++++++++++++++H! the following 3 fields must not be rearranged relative to each other! 9 BYTE NAM$B_RSS ! resultant string area size 6 B SYTE 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 any5! other task-specific data of the form /netacp_data"6! (default is to mask out password from expanded and7! resultan Tt name strings and to create a logical name7! whose equivalence string is the unaltered nodespec)' PARAMETER NAM$S_FILL_1 = 1R PARAMETER NAM$V_FILL_1 = 1 ! unused. (used to be undocumented ROD)' PARAMETER NAM$S_FILL_2 = 1R PARAMETER NAM$V_FILL_2 = 2 ! unused. (used to be undocumented SOD)' PARAMETER NAM$S_SYNCHK = 1T PARAMETER NAM$V_SYNCHK = 3 ! Only do syntax check on $parse operation* PARAMETER U NAM$S_NOCONCEAL = 1S PARAMETER NAM$V_NOCONCEAL = 4 ! Do not conceal device/root directory( PARAMETER NAM$S_SLPARSE = 1b PARAMETER NAM$V_SLPARSE = 5 ! Parse search list (not documented) -- used by BACKUP.) PARAMETER NAM$S_SRCHXABS = 1b PARAMETER NAM$V_SRCHXABS = 6 ! Fill in attached XABS on $SEARCH operations over the2! network (not documented) -- used by directory. BYTE %FILL (1) END MAP END UNIONQ V BYTE NAM$B_RFS ! Remote file system type (currently not documented) 2! Note: This field is reserved for use by DigitalH! the following 3 fields must not be rearranged relative to each other! 8 BYTE NAM$B_ESS ! espanded string area size 5 BYTE NAM$B_ESL ! expanded string length ; INTEGER*4 NAM$L_ESA ! expanded string area address ! -----------------------: INTEGER*4 NAM$L_RLF ! related file nam block addr + CHARACTER*16 NAM$T_DVI W ! device id 1! the location of the following fields must not4! 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 MAPXG BYTE NAM$B_FID_RVN ! alternate format RVN Y 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 Y MAPE INTEGER*2 NAM$W_DID_RVN ! relative volume number  END MAP MAPG BYTE NAM$B_DID_RVN ! alternate format RVN Y 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$ Z 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 calls  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 ) PARAMETER NAM$S_WILD_VER = 1L PARAMETER NAM$V_WILD_VER = 3 ! version contained a wild card * P \ARAMETER 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 P ]ARAMETER NAM$V_WILDCARD = 8 ! filename string included a wild card )! (inclusive or of other wild card bits), PARAMETER 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 included 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 * a 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 cbard  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 c_DEV ! Device length / BYTE NAM$B_DIR ! Directory length / BYTE NAM$B_NAME ! Filename length / BYTE NAM$B_TYPE ! Filetype length 4 BYTE NAM$B_VER ! Version number length 0 BYTE %FILL(1:2) ! Currently unused 0 INTEGER*4 NAM$L_NODE ! Nodespec address - INTEGER*4 NAM$L_DEV ! Device address 0 INTEGER*4 NAM$L_DIR ! Directory address 0 INTEGER*4 NAM$L_NAME ! Filename address 0 INTEGER*4 NAM$L_TYPE d! Filetype address 5 INTEGER*4 NAM$L_VER ! Version number address 0 INTEGER*4 %FILL(1:2) ! Currently unused  END STRUCTURE ! NAMDEFCDEC$ END OPTIONS wwmC!*** MODULE $NCSDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:11:47.11! !! FILE: NCSMSG.MSG EDIT: PDG1001! ! * *%! * COPYRIGHT (C) 1982 BY *B! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * e$! * 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. *! * f *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. *! * *! * *! ! ++! ! FACILITY: VAX-11 NCS! ! ABSTRACT:! B! THIS FILE CONTAINS THE DEFINITIONg FOR THE NCS FACILITY SPECIFIC5! ERROR MESSAGES. THE FACILITY CODE FOR NCS IS ???.! !! ENVIRONMENT: VAX/VMS USER MODE! 1! AUTHOR: P. GILBERT, CREATION DATE: 11-OCT-1983! ! MODIFIED BY:! ! E01-001 ORIGINAL! O! E01-002 CHB FIX FOR QAR #396 FROM V52-IFT DATABASE; 21-JUL-1989A! USE ONLY ONE PREFIX FOR NCS$_, LIB$_ AND(! TFF$_ MESSAGES.! --& PARAMETER NCS$_FACILITY = '00000231'X$ PARAMETER NCS$_CVTNUM = '023180h02'X% PARAMETER NCS$_EXPCHAR = '0231800A'X' PARAMETER NCS$_EXPMORTXT = '02318012'X% PARAMETER NCS$_DUMMY_1 = '0231801A'X' PARAMETER NCS$_INVCOLSEQ = '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% PARAMETERi NCS$_ON_LINE = '0231806B'X' PARAMETER NCS$_INVAPPEND = '02318072'X! PARAMETER NCS$_NYI = '0231807A'X$ PARAMETER NCS$_NOT_CS = '02318082'X$ PARAMETER 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% PARAM jETER NCS$_DELETED = '02318329'X& PARAMETER NCS$_REPLACED = '02318331'X% PARAMETER NCS$_REMOVED = '02318339'X' PARAMETER NCS$_EXTRACTED = '02318341'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 = k'0231838A'X& PARAMETER NCS$_INDEXERR = '02318392'X' PARAMETER NCS$_INSERTERR = '0231839A'X' PARAMETER NCS$_LOOKUPERR = '023183A2'X' PARAMETER NCS$_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%l 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'XCDEC$ END OPTIONSww [%)!*** MODULE $NETDEF ***CDEC$ OPTIONS /NOALIGN! +! DECnet-VAX definitions! - STRUCTURE /NETDEF/4 BYTE NET$B_USER_ECO ! User ECO of DECnet7 BYTE NET$B_DEC_ECO ! Digital ECO of DECmnet3 BYTE NET$B_DEC_VERSION ! DECnet Version5 BYTE NET$B_RESERVED ! Reserved to Digital END STRUCTURE ! NETDEFCDEC$ END OPTIONS ww&)!*** MODULE $NSADEF ***CDEC$ OPTIONS /NOALIGN! H! Define the packet header and record types used for security auditing.! I PARAMETER NSA$C_MSG_SERVER = '00000001'X ! Audit server control messageF PARAMETER NSA$C_MSG_AUDIT = '00000002'X ! Change in auditable events= PARAMETER NSA$C_MSG_BREAKIN = '0000n0003'X ! Breakin attemptJ 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 logoutD PARAMETER NSA$C_MSG_MOUNT = '00000008'X ! Volume mount or dismountM PARAMETER NSA$C_MSG_NETPROXY = '00000009'X ! Network proxy data base changeK PARAMETER NSA$C_MSG_ACCESS = '0000000A'X ! Object access *** o obsolete ***7 PARAMETER NSA$C_MSG_SYSUAF = '0000000B'X ! UAF changeE PARAMETER NSA$C_MSG_RIGHTSDB = '0000000C'X ! Rights database changeI 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 auditK PARAMETER NSA$C_MSG_RESERVED_1 = '00000011'X ! Reserved message type codeK PARAMETER NSA$Cp_MSG_RESERVED_2 = '00000012'X ! Reserved message type codeK PARAMETER NSA$C_MSG_RESERVED_3 = '00000013'X ! Reserved message type codeK PARAMETER NSA$C_MSG_RESERVED_4 = '00000014'X ! Reserved message type codeF PARAMETER NSA$C_MSG_SYSTIME = '00000015'X ! System time modificationJ PARAMETER NSA$C_MSG_SYSGEN = '00000016'X ! SYSGEN parameter modification@ PARAMETER NSA$C_MSG_OBJ_CREATE = '00000017'X ! Object creation@ PARAMETER NSA$C_MSG_OBJ_DELETE = '00000018'X ! Object deletionB PARAMETqER NSA$C_MSG_OBJ_DEACCESS = '00000019'X ! Object deaccess> PARAMETER NSA$C_MSG_OBJ_ACCESS = '0000001A'X ! Object access; PARAMETER NSA$C_MSG_CONNECTION = '0000001B'X ! ConnectionK PARAMETER NSA$C_MSG_RESERVED_5 = '0000001C'X ! Reserved Message type codeC PARAMETER NSA$C_MSG_NCP = '0000001D'X ! NCP command line auditingF PARAMETER NSA$C_MSG_PROCESS = '0000001E'X ! Process control auditingV PARAMETER NSA$C_MSG_OBJECT_SERVICE = '0000001F'X ! Cluster visable object processingM PARAMETER N rSA$C_MSG_AUTHENTICATE = '00000020'X ! Distributed authenticationH PARAMETER NSA$C_MSG_MAX_CODE = '00000021'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$ PARAMET sER 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'XE PARAMETER NSA$C_VERSION_1 = '00000001'X ! First version of auditingF PARAMETER NSA$C_VERSION_2 = '00000002'X ! Second version of auditing] PARAMETER NSA$C_VERSION_3 = '00000003'X ! Third version of auditing (suppo trt facility code)J PARAMETER NSA$C_V1_MSG_HDR_LENGTH = '0000000C'X ! For version 1 messages0 PARAMETER NSA$K_V1_MSG_HDR_LENGTH = '0000000C'XL 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 header5 INTEGER*2 NSA$W_RECORD_TYPE ! Audit event type; INTEGER*2 NSA$W_RECORD_SUBTYPE ! Audit event subtype UNION MAP2 INTEGER*2 NSA$W_FLAGS ! uAuditing flags END MAP MAP* PARAMETER NSA$S_MANDATORY = 1C PARAMETER NSA$V_MANDATORY = 0 ! Event must be logged$ PARAMETER NSA$S_ACL = 1@ PARAMETER NSA$V_ACL = 1 ! Event results from ACE) PARAMETER NSA$S_INTERNAL = 1D PARAMETER NSA$V_INTERNAL = 2 ! Event generated by TCB& PARAMETER NSA$S_ALARM = 1< PARAMETER NSA$V_ALARM = 3 ! Event is an alarm& PARAMETER N vSA$S_AUDIT = 1< PARAMETER NSA$V_AUDIT = 4 ! Event is an audit( PARAMETER NSA$S_FOREIGN = 1A PARAMETER NSA$V_FOREIGN = 5 ! Event outside of TCB& PARAMETER NSA$S_FLUSH = 1J PARAMETER NSA$V_FLUSH = 6 ! Force audit server buffer flush' PARAMETER NSA$S_SERVER = 1I PARAMETER NSA$V_SERVER = 7 ! Override process no-audit bit) PARAMETER NSA$S_DEACCESS = 1E PARAMETER NSA$V_DEACCESS = w8 ! Deaccess audit required& PARAMETER NSA$S_SYNCH = 1I PARAMETER NSA$V_SYNCH = 9 ! Synchronous return if possible+ PARAMETER NSA$S_IDENTIFIER = 1O PARAMETER NSA$V_IDENTIFIER = 10 ! Privilege check via identifier) PARAMETER NSA$S_PROCPRIV = 1Y PARAMETER NSA$V_PROCPRIV = 11 ! Privilege check against process privileges) PARAMETER NSA$S_AUTHPRIV = 1\ PARAMETER NSA$V_AUTHPRIV = 12 ! Pri xvilege check against authorized privileges+ PARAMETER NSA$S_NOEVTCHECK = 1C PARAMETER NSA$V_NOEVTCHECK = 13 ! Bypass event check* PARAMETER NSA$S_NOFAILAUD = 1T PARAMETER NSA$V_NOFAILAUD = 14 ! Do not audit failed privilege checks* PARAMETER NSA$S_NOSUCCAUD = 1+ PARAMETER NSA$V_NOSUCCAUD = 15J BYTE %FILL (2) ! Do not audit successful privilege checks END MAP END UNION< INTEGER*2 NySA$W_PACKET_COUNT ! Number of data packets UNION MAP! INTEGER*2 NSA$W_REC_SIZE END MAP MAPK INTEGER*2 NSA$W_RECORD_SIZE ! Total size (header + data packets) END MAP END UNION BYTE %FILL ! SpareB BYTE NSA$B_VERSION ! Security auditing version number1 INTEGER*2 NSA$W_SPARE_4(1:3) ! Spare words3 INTEGER*2 NSA$W_FACILITY ! VMS facility code5 BYTE NSA$R_PACKET_LIST ! Start of zpackets END STRUCTURE ! NSAMSGDEF! Server control message typesI PARAMETER NSA$C_SRV_ADD_JOURNAL = '00000001'X ! Add a new audit journalR PARAMETER NSA$C_SRV_REM_JOURNAL = '00000002'X ! Remove an existing audit journalK PARAMETER NSA$C_SRV_FLUSH_JOURNAL = '00000003'X ! Flush specified journalQ PARAMETER NSA$C_SRV_FLUSH_ALL_JOURNALS = '00000004'X ! Flush all audit journalsS PARAMETER NSA$C_SRV_FLUSH_INTERVAL = '00000005'X ! Journal flushing time intervalM PARAMETER NSA$C_SRV_ARCHI{VE_DEVICE = '00000006'X ! Specify archiving deviceK PARAMETER NSA$C_SRV_ARCHIVE_ENABLE = '00000007'X ! Archiving enable flagsM PARAMETER NSA$C_SRV_ARCHIVE_DISABLE = '00000008'X ! Archiving disable flagsU PARAMETER NSA$C_SRV_ARCHIVE_INTERVAL = '00000009'X ! Guaranteed archinving intervalO PARAMETER NSA$C_SRV_BADJNL_INTERVAL = '0000000A'X ! Bad journal scan intervalb PARAMETER NSA$C_SRV_BADJNL_LIMIT = '0000000B'X ! Maximum number of bad journals to keep track of? PARAMETER NSA$C_SRV_EXI|T = '0000000C'X ! Shut down the serverZ 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/alarmingn PARAMETER NSA$C_SRV_REDIRECT_SYSTEM_LOG = '0000000F'X ! Open the latest version of the system audit log fileX PARAMETER NSA$C_SRV_REM_ENABLE = '00000010'X ! Enable resource monitoring on a journalZ PARAMETER NSA$C_SRV_REM_DISABLE = '00000011'X ! Disable resource monitorin}g on a journalT PARAMETER NSA$C_SRV_REM_MONITOR_INTERVAL = '00000012'X ! Resource monitor intervalZ PARAMETER NSA$C_SRV_REM_RESUME_INTERVAL = '00000013'X ! Resource resume monitor intervalX 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 actionS PARAMETER NSA$C_SRV_REM_WARN_THRESHOLD = '00000016'X ! Resource warning threshold_ PARAMETER NSA$C_SRV_REM_ACTION_THRESH~OLD = '00000017'X ! Resource exhaustion action thresholdX PARAMETER NSA$C_SRV_REM_RESUME_THRESHOLD = '00000018'X ! Resource resumption thresholdM PARAMETER NSA$C_SRV_REM_RESUME = '00000019'X ! Force resource re-evaluationS PARAMETER NSA$C_SRV_REM_ADD_EXCLUDE = '0000001A'X ! Add process to exclusion listX PARAMETER NSA$C_SRV_REM_DEL_EXCLUDE = '0000001B'X ! Remove process from exclusion listM PARAMETER NSA$C_SRV_LISTENER_ENABLE = '0000001C'X ! Specify listener deviceM 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 fileB PARAMETER NSA$C_SRV_RESTART = '0000001F'X ! Restart audit serverU PARAMETER NSA$C_SRV_LOCK_SERVER = '00000020'X ! Lock audit server to prevent changeE PARAMETER NSA$C_SRV_RESERVED_1 = '00000021'X ! Reserved server codeE PARAMETER NSA$C_SRV_RESERVED_2 = '00000022'X ! Reserved server codeE PARAMETER NSA$C_SRV_RESERVED_3 = '00000023'X ! Reserved server codeE PARAMETER NSA$C_SRV_RESERVED_4 = '00000024'X ! Reserved server codeX PARAMETER NSA$C_SRV_FAILURE_MODE = '00000025'X ! Change security auditing failure modeJ PARAMETER NSA$C_SRV_SNAPSHOT = '00000026'X ! System snapshot in progressN PARAMETER NSA$C_SRV_BACKLOG_TOTAL = '00000027'X ! Flow control total backlogR PARAMETER NSA$C_SRV_BACKLOG_PROCESS = '00000028'X ! Flow control process backlogE PARAMETER NSA$C_SRV_INITIATE = '00000029'X ! Initiate event loggingK PARAMETER NSA$C_SRV_RESTART_ALL = '0000002A'X ! Restart all audit serversJ PARAMETER NSA$C_SRV_RESTART_OBJECT = '0000002B'X ! Restart object serverK PARAMETER NSA$C_SRV_MAX_CODE = '0000002C'X ! Last message code (plus one),! Define resource exhaustion monitor modes.K PARAMETER NSA$C_REM_SPACE = '00000001'X ! # blocks to keep free on volumeI PARAMETER NSA$C_REM_PERCENTAGE = '00000002'X ! % of volume to keep freeG PARAMETER NSA$C_REM_COUNT = '00000003'X ! # msgs to reserve space forO PARAMETER NSA$C_REM_TIME = '00000004'X ! # secs to reserve ave. msg space forT PARAMETER NSA$C_REM_MAX_MODE = '00000005'X ! Last resource monitor mode (plus one)C! Define final action to take when process buffer space exhausted.M PARAMETER NSA$C_REM_PURGE_OLD = '00000001'X ! Purge oldest entry from queueP PARAMETER NSA$C_REM_IGNORE_NEW = '00000002'X ! Ignore newest (current) messageR PARAMETER NSA$C_REM_RESTART = '00000003'X ! Restart server - create process dumpE PARAMETER NSA$C_REM_CRASH = '0000 0004'X ! Shutdown VMS (BUG_CHECK) Q PARAMETER NSA$C_REM_MAX_FINAL = '00000005'X ! Last final action mode (plus one)5! 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'XP PARAMETER NSA$C_SNAPSHOT_SAVE = '00000005'X ! System snapshot save in progressT PARAMETER NSA$C_SNAPSHOT_ABORT = '00000006'X ! System snapshot attempt has abortedU PARAMETER NSA$C_SNAPSHOT_STARTUP = '00000007'X ! System booted from a snapshot fileO PARAMETER NSA$C_SNAPSHOT_ACCESS = '00000008'X ! Snapshot file access/deaccessF PARAMETER NSA$C_AUDIT_STATE = '00000009'X ! New state of audit flagsF PARAMETER NSA$C_ALARM_STATE = '0000000A'X ! New state of alarm flagsY PARAMETER NSA$C_AUDIT_LOG_FINAL = '0000000B'X ! Final entry in audit log (forward link)V 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'X/! Define security auditing failure mode codes.K PARAMETER NSA$C_FAIL_WAIT = '00000001'X ! Wait for resource (if possible)D PARAMETER NSA$C_FAIL_CRASH = '00000002'X ! Crash system on failureB PARAMETER NSA$C_FAIL_IGNORE = '00000003'X ! Ignore failing auditL 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_JOBTYPE_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'XP! Define INSTALLed file database state modification qualifier codes. Also, the5! 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 STRUCTURE /fill_13/ 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_HEA DER_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* PARAMETER 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 BYTE %FILL (2) END MAP END UNION END STRUCTURE ! fill_13* 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 = '00000008'X* PARAMETER NSA$C_INS_NOPURGE = '00000009'X- PARAMETER NSA$C_INS_ACCOUNTING = '0000000A'X+ PARAMETER NSA$C_INS_MAX_CODE = '0000000B'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'X4! Define volume state modification qualifier codes.* PARAMETER  NSA$M_MNT_FOREIGN = '00000001'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_REA DCHECK = '00000800'X( PARAMETER 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) PARAMETER 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 /fill_16/ 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_N OLABEL = 5( 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+ PAR AMETER NSA$V_MNT_READCHECK = 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) PARAMETER 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_MNT_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_CLUST ER = 28* 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_MNT_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% PARAMET ER NSA$V_MNT_DSI = 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) END MAP END UNION END STRUCTURE ! fill_16I PARAMETER NSA$C_MNT_MAX_CODE = '0000002F'X ! # of mount bits (plus one)! Define dismount flags.L 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 /fill_19/ UNION MAP INTEGER*4 %FILL END MAP MAP)  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 ! fill_198! Define network authorization file modification codes.+ PARAMETER NSA$C_NETPROXY_ADD = '00000001'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'XN! Define object access codes. This table must parallel the object type codesM! defined in $ACEDEF (in STARDEFAE.SDL). Any additional objects must appearL! i n both places. These same subtype codes are shared for all of the other@! 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 = '00000003'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 P ARAMETER 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'X7! Define system authorization file modification 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 = '00 000005'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_HOLDER = '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 cod es.L PARAMETER NSA$C_PRVAUD_SUCCESS = '00000001'X ! Successful use of privilegeO 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.E PARAMETER NSA$C_SYSTIM_SET = '00000001'X ! Explicit setting of timeB PARAMETER NSA$C_SYSTIM_CAL = '00000002'X ! Calibration from todr. PARAMETER NSA$C_SYSTIM_MAX_CODE = '00000003'X! Define SYSGEN audit codes.J PARAMETER NSA$C_SYSGEN_SET = '00000 001'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 delete 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. PAR AMETER 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.@ PARAMETER NSA$C_CNX_REQUEST = '00000001'X ! Connection request@ PARAMETER NSA$C_CNX_ACCEPT = '00000002'X ! Connection accepted@ PARAMETER NSA$C_CNX_REJECT = '00000003'X ! Connection rejectedH PARAMETER NSA$C_CNX_DISCONNECT = '00000004'X ! Connection disconnectedM PARAMETER NSA$C_CNX_ABORT = '00000005'X ! Connection aborted by third-partyO PARAMETER NSA$C_CNX_DECNET_CREATE = '00000006'X ! DECnet logical link createdT PARAMETER NSA$C_CNX_DECNET_DELETE = '00000007'X ! DECnet logical link disconnectedE PARAMETER NSA$C_CNX_IPC_OPEN = '00000008'X ! IPC association openedF PARAMETER NSA$C_CNX_IPC_CLOSE = '00000009'X ! IPC association closedN PARAMETER NSA$C_CNX_INC_REQUEST = '0000000A'X ! Incomming connection requestL PARAMETER NSA$C_CNX_INC_ACCEPT = '0000000B'X ! Connection request acceptedL PARAMETER NSA$C_CNX_INC_REJECT = '0000000C'X ! Connection request rejectedU PARAMETER NSA$C_CNX_INC_DISCONNECT = '0000000D'X ! Incoming connection disconnectedZ PARAMETER NSA$C_CNX_INC_ABORT = '0000000E'X ! Incoming connection aborted by third-party+ PARAMETER NSA$C_CNX_MAX_CODE = '0000000F'X@ 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 processD PARAMETER NSA$C_PRC_SCHDWK = '00000003'X ! Schedule process wakeupB PARAMETER NSA$C_PRC_CANWAK = '00000004'X ! Cancel process wakeup7 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 identifierK PARAMETER NSA$C_PRC_GETJPI = '0000000A'X ! Get job or process information= PARAMETER NSA$C_PRC_FORCEX = '0000000B'X ! Force image exitJ PARAMETER NSA$C_PRC_SIGPRC = '0000000C'X ! Signal process (undocumented)A PARAMETER NSA$C_PRC_SETPRI = '0000000D'X ! Set process priorityW PARAMETER NSA$C_PRC_PRCTERM = '0000000E'X ! Detect process termination (undocumented)+ PARAMETER NSA$C_PRC_MAX_CODE = '00000013'XO PARAMETER NSA$C_INSTANTIATE_ORB = '00000001 'X ! Create an instance of an ORB !! the profile may, or may not, ! present in the database.A PARAMETER NSA$C_DISTRIBUTE_ORB = '00000002'X ! ORB distributionS PARAMETER NSA$C_OBJECT_AUDIT_CHANGE = '00000003'X ! Change in audit/alarm vectorsK PARAMETER NSA$C_DISTRIBUTE_NOTICE = '00000004'X ! Notify agents of change! used for objects which! provide permanent storage. PARAMETER NSA$C_OBJSRV_MAX_CODE = '00000005'X3! Define distributed authentication subtypes here.[ PARAMETER NSA$C_AUTH_NETWORK_LOGIN = '00000002'X ! authenticated network login Y PARAMETER NSA$C_AUTH_RENEW_LOGIN = '00000003'X ! authentication credential renewal Z PARAMETER NSA$C_AUTH_INIT_SEC_CTX = '00000004'X ! initiate security context Y PARAMETER NSA$C_AUTH_ACC_SEC_CTX = '00000005'X ! accept security context ^ PARAMETER NSA$C_AUTH_INSTALL_DEF_CRED = '00000006'X ! install application credential handle Z PARAMETER NSA$C_AUTH_ACQUIRE_CRED = '00000007'X ! acquire credential handle X PARAMETER NSA$C_AUTH_GRANT_CRED = '00000008'X ! grant credential to another process Z PARAMETER NSA$C_AUTH_RELEASE_CRED = '00000009'X ! release credential handle Y PARAMETER NSA$C_AUTH_DEL_SEC_CTX = '0000000A'X ! delete security context \ PARAMETER NSA$C_AUTH_PROC_CTX_TOKEN = '0000000B'X ! process context token T 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 messageY PARAMETER NSA$C_CA_STARTUP = '00000010'X ! the certification authority has been startedP PARAMETER NSA$C_CA_EXIT = '00000011'X ! the certification authority has exitedR PARAMETER NSA$C_CA_ADD_DIRECTORY = '00000012'X ! a name directory has been addedM PARAMETER NSA$C_CA_ADD_PRINCIPAL = '00000013'X ! a principal has been addedT PARAMETER NSA$C_CA_LINK_DIRECTORY = '00000014'X ! two directories have been linked` PARAMETER NSA$C_CA_CHANGE_LINK = '00000015'X ! a link between two directories has been changedq PARAMETER NSA$C_CA_CHANGE_PRINCIPAL = '00000016'X ! a principal's keypair/password or duration has been changedW PARAMETER NSA$C_CA_REMOVE_DIRECTORY = '00000017'X ! a name directory has been removedR PARAMETER NSA$C_CA_REMOVE_PRINCIPAL = '00000018'X ! a principal has been removedW PARAMETER NSA$C_CA_CERTIFICATE_DELETED = '00000019'X ! a certificate has been deletedi PARAMETER NSA$C_CA_REVOKED_CERT_FOUND = '0000001A'X ! a revoked certificate has been read from the CSS \ PARAMETER NSA$C_CA_PASSWORD_CHANGE = '0000001B'X ! the password to the CA has been changedR PARAMETER NSA$C_CSS_OBJECT_CREATED = '0000001C'X ! a CSS object has been createdR PARAMETER NSA$C_CSS_OBJECT_DELETED = '0000001D'X ! a CSS object has been deletedX PARAMETER NSA$C_CSS_CERTIFICATE_DELETED = '0000001E'X ! a certificate has been deletedf PARAMETER NSA$C_CSS_CREDENTIAL_READ = '0000001F'X ! a principal's permanent credential has been reada PARAMETER NSA$C_CSS_CERTIFICATE_ADDED = '00000020'X ! a certificate has been added to an objectv PARAMETER NSA$C_CSS_CREDENTIAL_WRITTEN = '00000021'X ! an encrypted permanent credential has been added to an objectd PARAMETER NSA$C_CSS_USER_CHANGED_PASSWORD = '00000022'X ! a principal has changed his/her passwordp PARAMETER NSA$C_CSS_UPDATED_SECONDARY = '00000023'X ! a CSS secondary has been updated from the local databasen PARAMETER NSA$C_CSS_DATABASE_UPDATED = '00000024'X ! a secondary CSS has updated its database from a primaryZ PARAMETER NSA$C_CSS_STARTED = '00000025'X ! the CSS server has been successfully startedW PARAMETER NSA$C_CSS_WINDOW_OPEN = '00000026'X ! the CSS access window has been openedY 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 loc ation table has been updated, PARAMETER NSA$C_AUTH_MAX_CODE = '00000029'X! Define data packet formatE PARAMETER NSA$C_PKT_ACCESS_DESIRED = '00000001'X ! Access requested: PARAMETER NSA$C_PKT_ACCOUNT = '00000002'X ! Account nameC PARAMETER NSA$C_PKT_ALARM_NAME = '00000003'X ! Alarm journal nameI PARAMETER NSA$C_PKT_APPL_DATA = '00000004'X ! Application supplied data= PARAMETER NSA$C_PKT_AUDIT_FLAGS = '00000005'X ! Audit flagsC PARAMETER NSA$C_PKT_AUDIT_NAME = '00000006'X ! Audit journal nameF PARAMETER NSA$C_PKT_SYSTEM_NAME = '00000007'X ! SCS system node nameN PARAMETER NSA$C_PKT_SYSTEM_ID = '00000008'X ! SCS system node identificationa PARAMETER NSA$C_PKT_DEVICE_NAME = '00000009'X ! Primary device name on which the volume residesJ PARAMETER NSA$C_PKT_DISMOUNT_FLAGS = '0000000A'X ! Volume dismount flags= PARAMETER NSA$C_PKT_HOLDER_NAME = '0000000B'X ! Holder nameB PARAMETER NSA$C_PKT_HOLDER_OWNER = '0000000C'X ! Holder owner IDI PARAMETER NSA$C_PKT_ID_ATTRIBUTES = '0000000D'X ! Identifier attributes= PARAMETER NSA$C_PKT_ID_NAME = '0000000E'X ! Identifier nameD PARAMETER NSA$C_PKT_ID_NEW_NAME = '0000000F'X ! Identifer new name? PARAMETER NSA$C_PKT_ID_VALUE = '00000010'X ! Identifier valueG PARAMETER NSA$C_PKT_ID_NEW_VALUE = '00000011'X ! Identifier new valueV PARAMETER NSA$C_PKT_IDENTIFIERS_USED = '00000012'X ! Identifiers used to gain accessQ PARAMETER NSA$C_PKT_IMAGE_NAME = '00000013'X ! Name of the image being executedA PARAMETER NSA$C_PKT_INSTALL_FILE = '00000014'X ! Installed fileA PARAMETER NSA$C_PKT_INSTALL_FLAGS = '00000015'X ! INSTALL flagsF PARAMETER NSA$C_PKT_INSTALL_PRIVS = '00000016'X ! INSTALL privileges[ PARAMETER NSA$C_PKT_LOGICAL_NAME = '00000017'X ! Logical name associated with the device.D PARAMETER NSA$C_PKT_MOUNT_FLAGS = '00000018'X ! Volume mount flagsF PARAMETER NSA$C_PKT_NEW_DATA = '00000019'X ! Data after modificationG 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 classificationC PARAMETER NSA$C_PKT_OBJECT_NAME = '0000001D'X ! The object's nameP PARAMETER NSA$C_PKT_OBJECT_NAME_2 = '0000001E'X ! Secondary (path) object nameX PARAMETER NSA$C_PKT_OBJECT_OWNER = '0000001F'X ! Owner identifier (UIC) of the processZ PARAMETER NSA$C_PKT_OBJECT_PROTECTION = '00000020'X ! UIC based protection of the objectD PARAMETER NSA$C_PKT_OBJECT_TYPE = '00000021'X ! Object's type codeL PARAMETER NSA$C_PKT_ORIGINAL_DATA = '00000022'X ! Data before modificationI PARAMETER NSA$C_PKT_PARENT_ID = '00000023'X ! PID of the parent processE PARAMETER NSA$C_PKT_PARENT_NAME = '00000024'X ! Parent process nameM PARAMETER NSA$C_PKT_PARENT_OWNER = '00000025'X ! Parent process owner (UIC)M PARAMETER NSA$C_PKT_PARENT_USERNAME = '00000026'X ! Parent process username? PARAMETER NSA$C_PKT_PASSWORD = '00000027'X ! Breakin passwordO PARAMETER NSA$C_PKT_PRIVS_USED = '00000028'X ! Privileges used to gain accessD PARAMETER NSA$C_PKT_PROCESS_ID = '00000029'X ! Current process PIDG PARAMETER NSA$C_PKT_PROCESS_NAME = '0000002A'X ! Current process nameN PARAMETER NSA$C_PKT_REMOTE_NODE_ID = '0000002B'X ! Node ID of network sourceE PARAMETER NSA$C_PKT_REMOTE_NODENAME = '0000002C'X ! Remote nodenameE PARAMETER NSA$C_PKT_REMOTE_USERNAME = '0000002D'X ! Remote usernameP PARAMETER NSA$C_PKT_SUBJECT_CLASS = '0000002E'X ! Process current access classG PARAMETER NSA$C_PKT_SUBJECT_OWNER = '0000002F'X ! Process owner (UIC)D PARAMETER NSA$C_PKT_FINAL_STATUS = '00000030'X ! Completion statusD PARAMETER NSA$C_PKT_TERMINAL = '00000031'X ! Process terminal nameJ PARAMETER NSA$C_PKT_TIME_STAMP = '00000032'X ! When the event took place> PARAMETER NSA$C_PKT_UAF_ADD = '00000033'X ! UAF record addedC PARAMETER NSA$C_PKT_UAF_DELETE = '00000034'X ! UAF record removedD PARAMETER NSA$C_PKT_UAF_MODIFY = '00000035'X ! UAF record modified@ PARAMETER NSA$C_PKT_UAF_COPY = '00000036'X ! UAF record copiedD PARAMETER NSA$C_PKT_UAF_FIELDS = '00000037'X ! UAF fields modifiedA PARAMETER NSA$C_PKT_USERNAME = '00000038'X ! Requestor usernameD PARAMETER NSA$C_PKT_UAF_SOURCE = '00000039'X ! UAF source usernameC PARAMETER NSA$C_PKT_UAF_RENAME = '0000003A'X ! UAF record renamedL PARAMETER NSA$C_PKT_VOLUME_NAME = '0000003B'X ! Mount/dismount volume nameE PARAMETER NSA$C_PKT_VOLUME_SET_NAME = '0000003C'X ! Volume set nameC PARAMETER NSA$C_PKT_SERVER_ACCOUNT = '0000003D'X ! Server accountG PARAMETER NSA$C_PKT_SERVER_SYSTEM_ID = '0000003E'X ! Server system idK PARAMETER NSA$C_PKT_SERVER_SYSTEM_NAME = '0000003F'X ! Server system nameG PARAMETER NSA$C_PKT_SERVER_FINAL_STATUS = '00000040'X ! Server statusI PARAMETER NSA$C_PKT_SERVER_IMAGE_NAME = '00000041'X ! Server image nameG PARAMETER NSA$C_PKT_SERVER_PARENT_ID = '00000042'X ! Server parent idS PARAMETER NSA$C_PKT_SERVER_PARENT_OWNER = '00000043'X ! Server parent owner (UIC)S PARAMETER NSA$C_PKT_SERVER_PARENT_NAME = '00000044'X ! Server parent process nameI PARAMETER NSA$C_PKT_SERVER_PROCESS_ID = '00000045'X ! Server process idM PARAMETER NSA$C_PKT_SERVER_PROCESS_NAME = '00000046'X ! Server process nameP PARAMETER NSA$C_PKT_SERVER_SUBJECT_CLASS = '00000047'X ! Server classificationM PARAMETER NSA$C_PKT_SERVER_SUBJECT_OWNER = '00000048'X ! Server owner (UIC)E PARAMETER NSA$C_PKT_SERVER_TERMINAL = '00000049'X ! Server terminalH PARAMETER NSA$C_PKT_SERVER_TIME_STAMP = '0000004A'X ! Server timestampE PARAMETER NSA$C_PKT_SERVER_USERNAME = '0000004B'X ! Server usernameL PARAMETER NSA$C_PKT_AUDIT_DISABLE = '0000004C'X ! Audit event disable maskJ PARAMETER NSA$C_PKT_AUDIT_ENABLE = '0000004D'X ! Audit event enable maskL PARAMETER NSA$C_PKT_ALARM_DISABLE = '0000004E'X ! Alarm event disable maskJ PARAMETER NSA$C_PKT_ALARM_ENABLE = '0000004F'X ! Alarm event enable maskE PARAMETER NSA$C_PKT_NOP = '00000050'X ! Nop (for static item lists)O PARAMETER NSA$C_PKT_REPLY_MAILBOX = '00000051'X ! Message acknowledge mailboxU PARAMETER NSA$C_PKT_DEFAULT_USERNAME = '00000052'X ! NETPROXY default proxy accountQ PARAMETER NSA$C_PKT_LOCAL_USERNAME = '00000053'X ! NETPROXY local proxy accountW PARAMETER NSA$C_PKT_FIELD_NAME = '00000054'X ! Name of (NEW_DATA/ORIGINAL_DATA) fieldJ PARAMETER NSA$C_PKT_LISTENER_DEVICE = '00000055'X ! Listener device nameH PARAMETER NSA$C_PKT_FIELD_TITLE_STR = '00000056'X ! Field title stringF PARAMETER NSA$C_PKT_FIELD_DATA_STR = '00000057'X ! Field data stringP PARAMETER NSA$C_PKT_MESSAGE_TYPE_STR = '00000058'X ! Event message type stringR PARAMETER NSA$C_PKT_EVENT_TYPE = '00000059'X ! Event message type ($AUDIT_EVENT)X PARAMETER NSA$C_PKT_EVENT_SUBTYPE = '0000005A'X ! Event message subtype ($AUDIT_EVENT)R PARAMETER NSA$C_PKT_EVENT_FACILITY = '0000005B'X ! Event facility ($AUDIT_EVENT)c PARAMETER NSA$C_PKT_DIRECTORY_ENTRY = '0000005C'X ! Director y entry associated with XQP operationD PARAMETER NSA$C_PKT_DIRECTORY_ID = '0000005D'X ! Directory file-idN! The following three blocks of codes are obsolete with V5.4. With V5.4, oneJ! should use the NSA$W_FACILITY field for layered product and/or customerN! 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- PARAM ETER 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'X9 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 cod es.F PARAMETER NSA$C_PKT_ALARM_FAILURE = '00000076'X ! Alarm failure modeF PARAMETER NSA$C_PKT_AUDIT_FAILURE = '00000077'X ! Audit failure mode@ PARAMETER NSA$C_PKT_SEVMS_0 = '00000078'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_1 = '00000079'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_2 = '0000007A'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_3 = '0000007B'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_4 = '0000007C'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_5 = '0000007D'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_6 = '0000007E'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_7 = '0000007F'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_8 = '00000080'X ! Reserved for SeVMS@ PARAMETER NSA$C_PKT_SEVMS_9 = '00000081'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_10 = '00000082'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_11 = '00000083'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_12 = '00000084'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_13 = '00000085'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_14 = '00000086'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_15 = '00000087'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_16 = '00000088'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_17 = '00000089'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SEVMS_18 = '0000008A'X ! Reserved for SeVMSA PARAMETER NSA$C_PKT_SNAPSHOT_TIME = '0000008B'X ! Snapshot timeV PARAMETER NSA$C_PKT_TRANSPORT_NAME = '0000008C'X ! Transport name (IPC, DECnet, SMI)K PARAMETER NSA$C_PKT_DECNET_LINK_ID = '0000008D'X ! DECnet logical link IDK PARAMETER NSA$C_PKT_DECNET_OBJECT_NAME = '0000008E'X ! DECnet object nameO PARAMETER NSA$C_PKT_DECNET_OBJECT_NUMBER = '0000008F'X ! DECnet object numberK PARAMETER NSA$C_PKT_REMOTE_LINK_ID = '00000090'X ! Remote logical link ID? PARAMETER NSA$C_PKT_COMMAND_LINE = '00000091'X ! Command lineK PARAMETER NSA$C_PKT_ASSOCIATION_NAME = '00000092'X ! IPC association nameV PARAMETER NSA$C_PKT_REM_ASSOCIATION_NAME = '00000093'X ! IPC remote association nameE PARAMETER NSA$C_PKT_CONNECTION_ID = '00000094'X ! IPC connection IDE PARAMETER NSA$C_PKT_MESSAGE = '00000095'X ! Associated message codeL PARAMETER NSA$C_PKT_MSGFILNAM = '00000096'X ! Associated message file nameQ PARAMETER NSA$C_PKT_OBJECT_POINTER = '00000097'X ! Object container (Directory)Q PARAMETER NSA$C_PKT_ID_NEW_ATTRIBUTES = '00000098'X ! Identifier new attributes@ PARAMETER NSA$C_PKT_SYSTIM_NEW = '00000099'X ! New system time@ PARAMETER NSA$C_PKT_SYSTIM_OLD = '0000009A'X ! Old system timeT PARAMETER NSA$C_PKT_PARAMS_WRITE = '0000009B'X ! SYSGEN filename for WRITE command\ PARAMETER NSA$C_PKT_PARAMS_INUSE = '0000009C'X ! SYSGEN parameter set name for USE commandQ PARAMETER NSA$C_PKT_MATCHING_ACE = '0000009D'X ! ACE granting or denying accessR PARAMETER NSA$C_PKT_SNAPSHOT_SAVE_FILNAM = '0000009E'X ! Snapshot save file nameF PARAMETER NSA$C_PKT_MAILBOX_UNIT = '0000009F'X ! Mailbox unit numberG PARAMETER NSA$C_PKT_NEW_OWNER = '000000A0'X ! New process owner (UIC)G PARAMETER NSA$C_PKT_NEW_PRIORITY = '000000A1'X ! New process priorityG PARAMETER NSA$C_PKT_OLD_PRIORITY = '000000A2'X ! Old process priorityC PARAMETER NSA$C_PKT_DIAG_FUNC = '000000A3'X ! Diagnostic functionF PARAMETER NSA$C_PKT_RESOURCE_NAME = '000000A4'X ! Lock resource nameL PARAMETER NSA$C_PKT_LNM_TABLE_NAME = '000000A5'X ! Logical name table nameT PARAMETER NSA$C_PKT_LNM_PARENT_NAME = '000000A6'X ! Parent logical name table nameF PARAMETER NSA$C_PKT_EFC_NAME = '000000A7'X ! Event Flag Cluster nameX PARAMETER NSA$C_PKT_TARGET_PROCESS_CLASS = '000000A8'X ! Target process classificationJ PARAMETER NSA$C_PKT_TARGET_PROCESS_ID = '000000A9'X ! Target process PIDM PARAMETER NSA$C_PKT_TARGET_PROCESS_NAME = '000000AA'X ! Target process nameU PARAMETER NSA$C_PKT_TARGET_PROCESS_OWNER = '000000AB'X ! Target process owner (UIC)E PARAMETER NSA$C_PKT_TARGET_USERNAME = '000000 AC'X ! Target usernameC PARAMETER NSA$C_PKT_NEW_PRIVILEGES = '000000AD'X ! New privilegesC PARAMETER NSA$C_PKT_OLD_PRIVILEGES = '000000AE'X ! Old privilegesO PARAMETER NSA$C_PKT_REMOTE_NODE_FULLNAME = '000000AF'X ! Remote node fullname= PARAMETER NSA$C_PKT_UNUSED_2 = '000000B0'X ! Unused packet = 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 packet = PARAMETER NSA$C_PKT_UNUSED_9 = '000000B7'X ! Unused packet > PARAMETER NSA$C_PKT_UNUSED_10 = '000000B8'X ! Unused packet F PARAMETER NSA$C_PKT_PRIVS_MISSING = '000000B9'X ! Privileges missingK PARAMETER NSA$C_PKT_TARGET_DEVICE_NAME = '000000BA'X ! Target device nameF PARAMETER NSA$C_PKT_SECTION_NAME = '000000BB'X ! Global section nameJ PARAMETER NSA$C_PKT_ID_VALUE_ASCII = '000000BC'X ! ID value via $IDTOASCD PARAMETER NSA$C_PKT_OBJECT_CLASS = '000000BD'X ! Object class nameF PARAMETER NSA$C_PKT_SUPPRESS = '000000BE'X ! Suppress supplied itemsO PARAMETER NSA$C_PKT_SNAPSHOT_BOOTFILE = '000000BF'X ! Snapshot boot file nameY PARAMETER NSA$C_PKT_SOURCE_PROCESS_ID = '000000C0'X ! Source process ID (impersonation)C PARAMETER NSA$C_PKT_REQUEST_NUMBER = '000000C1'X ! Request number= PARAMETER NSA$C_PKT_ACCESS_MODE = '000000C2'X ! Access modeM PARAMETER NSA$C_PKT_SYSTEM_SERVICE_NAME = '000000C3'X ! System service nameS PARAMETER NSA$C_PKT_NEW_AUTH_PRIVILEGES = '000000C4'X ! New authorized privilegesS PARAMETER NSA$C_PKT_OLD_AUTH_PRIVILEGES = '000000C5'X ! Old authorized privilegesO PARAMETER NSA$C_PKT_NEW_DEF_PRIVILEGES = '000000C6'X ! New default privilegesO PARAMETER NSA$C_PKT_OLD_DEF_PRIVILEGES = '000000C7'X ! Old default privilegesC PARAMETER NSA$C_PKT_NEW_PROCESS_ID = '000000C8'X ! New process IDO PARAMETER NSA$C_PKT_NEW_PROCESS_OWNER = '000000C9'X ! New process owner (UIC)G PARAMETER NSA$C_PKT_NEW_PROCESS_NAME = '000000CA'X ! New process nameC PARAMETER NSA$C_PKT_NEW_IMAGE_NAME = '000000CB'X ! New image name? PARAMETER NSA$C_PKT_NEW_USERNAME = '000000CC'X ! New usernameE PARAMETER NSA$C_PKT_DEACCESS_KEY = '000000CD'X ! Deaccess audit keyM PARAMETER NSA$C_PKT_OBJECT_RIGHTS_BLOCK = '000000CE'X ! Object Rights Blockb PARAMETER NSA$C_PKT_OBJSRV_ COMPLETE = '000000CF'X ! Object service processing completion routineA PARAMETER NSA$C_PKT_TLV_ORB = '000000D0'X ! Object distributionK PARAMETER NSA$C_PKT_FILE_NAME = '000000D1'X ! File name (volume auditing)H PARAMETER NSA$C_PKT_DIRECTORY_NAME = '000000D2'X ! Directory file nameN 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 PARAM ETER NSA$C_PKT_SOURCE_FULLNAME = '000000D6'X3 PARAMETER NSA$C_PKT_DESIRED_FULLNAME = '000000D7'X3 PARAMETER NSA$C_PKT_CLAIMED_USERNAME = '000000D8'X3 PARAMETER 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_QOP_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 = '000000EE'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 = '000000F8'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'X@ PARAMETER NSA$C_PKT_LOG_CLOSED = '000000FE'X ! log file cl osed@ PARAMETER NSA$C_PKT_LOG_OPENED = '000000FF'X ! log file openedM PARAMETER NSA$C_PKT_IDENTIFIERS_MISSING = '00000100'X ! identifiers missing7 PARAMETER 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'X; PARAMETER NSA$C_PKT_MAX_CODE = '00000106'X ! Must be last- PARAM ETER NSA$C_PKT_HDR_LENGTH = '00000004'X- PARAMETER NSA$K_PKT_HDR_LENGTH = '00000004'X@ PARAMETER NSA$_ACCESS_DESIRED = '00000001'X ! Access requested5 PARAMETER NSA$_ACCOUNT = '00000002'X ! Account name> PARAMETER NSA$_ALARM_NAME = '00000003'X ! Alarm journal nameD PARAMETER NSA$_APPL_DATA = '00000004'X ! Application supplied data8 PARAMETER NSA$_AUDIT_FLAGS = '00000005'X ! Audit flags> PARAMETER NSA$_AUDIT_NAME = '00000006'X ! Audit journal nameA PARAMETER NSA$_SYSTEM_NAME = '00000007'X ! SCS system node nameI PARAMETER NSA$_SYSTEM_ID = '00000008'X ! SCS system node identification\ PARAMETER NSA$_DEVICE_NAME = '00000009'X ! Primary device name on which the volume residesE PARAMETER NSA$_DISMOUNT_FLAGS = '0000000A'X ! Volume dismount flags8 PARAMETER NSA$_HOLDER_NAME = '0000000B'X ! Holder name= PARAMETER NSA$_HOLDER_OWNER = '0000000C'X ! Holder owner IDD PARAMETER NSA$_ID_ATTRIBUTES = '0000000D'X ! Identifier attributes8 PARAMETER NSA$_ID_NAME = '0000000E'X ! I dentifier name? PARAMETER NSA$_ID_NEW_NAME = '0000000F'X ! Identifer new name: PARAMETER NSA$_ID_VALUE = '00000010'X ! Identifier valueB PARAMETER NSA$_ID_NEW_VALUE = '00000011'X ! Identifier new valueQ PARAMETER NSA$_IDENTIFIERS_USED = '00000012'X ! Identifiers used to gain accessL 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 flagsA PARAMETER NSA$_INSTALL_PRIVS = '00000016'X ! INSTALL privilegesV PARAMETER NSA$_LOGICAL_NAME = '00000017'X ! Logical name associated with the device.? PARAMETER NSA$_MOUNT_FLAGS = '00000018'X ! Volume mount flagsA PARAMETER NSA$_NEW_DATA = '00000019'X ! Data after modificationB PARAMETER NSA$_FILE_ID = '0000001A'X ! File identification (FID)V PARAMETER NSA$_OBJECT_MIN_CLASS = '0000001B'X ! Minimum object access classificationV PARAMETER NSA$_OBJECT_MAX_CLASS = '0000001C'X ! Maximum object access classification> PARAMETER NSA$_OBJECT_NAME = '0000001D'X ! The object's nameK PARAMETER NSA$_OBJECT_NAME_2 = '0000001E'X ! Secondary (path) object nameS PARAMETER NSA$_OBJECT_OWNER = '0000001F'X ! Owner identifier (UIC) of the processU PARAMETER NSA$_OBJECT_PROTECTION = '00000020'X ! UIC based protection of the object? PARAMETER NSA$_OBJECT_TYPE = '00000021'X ! Object's type codeG PARAMETER NSA$_ORIGINAL_DATA = '00000022'X ! Data before modificationD PARAMETER NSA$_PARENT_ID = '00000023'X ! PID of the parent process@ PARAMETER NSA$_PARENT_NAME = '00000024'X ! Parent process nameH PARAMETER NSA$_PARENT_OWNER = '00000025'X ! Parent process owner (UIC)H PARAMETER NSA$_PARENT_USERNAME = '00000026'X ! Parent process username: PARAMETER NSA$_PASSWORD = '00000027'X ! Breakin passwordJ PARAMETER NSA$_PRIVS_USED = '00000028'X ! Privileges used to gain access? PARAMETER NSA$_PROCESS_ID = '00000029'X ! Current process PIDB PARAMETER NSA$_PROCESS_NAME = '0000002A'X ! Curren t process nameI PARAMETER NSA$_REMOTE_NODE_ID = '0000002B'X ! Node ID of network source@ PARAMETER NSA$_REMOTE_NODENAME = '0000002C'X ! Remote nodename@ PARAMETER NSA$_REMOTE_USERNAME = '0000002D'X ! Remote usernameK PARAMETER NSA$_SUBJECT_CLASS = '0000002E'X ! Process current access classB PARAMETER NSA$_SUBJECT_OWNER = '0000002F'X ! Process owner (UIC)? PARAMETER NSA$_FINAL_STATUS = '00000030'X ! Completion status? PARAMETER NSA$_TERMINAL = '00000031'X ! Process terminal nameE PARAMETER NSA$_TIME_STAMP = '00000032'X ! When the event took place9 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 user name> PARAMETER NSA$_UAF_RENAME = '0000003A'X ! UAF record renamedG PARAMETER NSA$_VOLUME_NAME = '0000003B'X ! Mount/dismount volume name@ PARAMETER NSA$_VOLUME_SET_NAME = '0000003C'X ! Volume set name> PARAMETER NSA$_SERVER_ACCOUNT = '0000003D'X ! Server accountB PARAMETER NSA$_SERVER_SYSTEM_ID = '0000003E'X ! Server system idF PARAMETER NSA$_SERVER_SYSTEM_NAME = '0000003F'X ! Server system nameB PARAMETER NSA$_SERVER_FINAL_STATUS = '00000040'X ! Server statusD PARAMETER NSA$_SERVER_IMAGE_NAME = '00000041'X ! Server image nameB PARAMETER NSA$_SERVER_PARENT_ID = '00000042'X ! Server parent idH PARAMETER NSA$_SERVER_PARENT_OWNER = '00000043'X ! Server parent ownerN PARAMETER NSA$_SERVER_PARENT_NAME = '00000044'X ! Server parent process nameD PARAMETER NSA$_SERVER_PROCESS_ID = '00000045'X ! Server process idH PARAMETER NSA$_SERVER_PROCESS_NAME = '00000046'X ! Server process nameK PARAMETER NSA$_SERVER_SUBJECT_CLASS = '00000047'X ! Server classificationJ PARAMETER NSA$_SERVER_SUBJECT_OWNER = '00000048'X ! Server owner ('UIC')@ PARAMETER NSA$_SERVER_TERMINAL = '00000049'X ! Server terminalC PARAMETER NSA$_SERVER_TIME_STAMP = '0000004A'X ! Server timestamp@ PARAMETER NSA$_SERVER_USERNAME = '0000004B'X ! Server usernameG PARAMETER NSA$_AUDIT_DISABLE = '0000004C'X ! Audit event disable maskE PARAMETER NSA$_AUDIT_ENABLE = '0000004D'X ! Audit event enable maskG PARAMETER NSA$_ALARM_DISABLE = '0000004E'X ! Alarm event disable maskE PARAMETER NSA$_ALARM_ENABLE = '0000004F'X ! Alarm event enable mask@ PARAMETER NSA$_NOP = '00000050'X ! Nop (for static item lists)J PARAMETER NSA$_REPLY_MAILBOX = '00000051'X ! Message acknowledge mailboxP PARAMETER NSA$_DEFAULT_USERNAME = '00000052'X ! NETPROXY proxy default accountL PARAMETER NSA$_LOCAL_USERNAME = '00000053'X ! NETPROXY proxy local accountR PARAMETER NSA$_FIELD_NAME = '00000054'X ! Name of (NEW_DATA/ORIGINAL_DATA) fieldE PARAMETER NSA$_LISTENER_DEVICE = '00000055'X ! Listener device nameC PARAMETER NSA$_FIELD_TITLE_STR = '00000056'X ! Field title stringA PARAMETER NSA$_FIELD_DATA_STR = '00000057'X ! Field data stringK PARAMETER NSA$_MESSAGE_TYPE_STR = '00000058'X ! Event message type stringM PARAMETER NSA$_EVENT_TYPE = '00000059'X ! Event message type ($AUDIT_EVENT)S PARAMETER NSA$_EVENT_SUBTYPE = '0000005A'X ! Event message subtype ($AUDIT_EVENT)M PARAMETER NSA$_EVENT_FACILITY = '0000005B'X ! Event facility ($AUDIT_EVENT)^ PARAMETER NSA$_DIRECTORY_ENTRY = '0000005C' X ! Directory entry associated with 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'X5 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'X4 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'XA PARAMETER NSA$_ALARM_FAILURE = '00000076'X ! Alarm failure modeA 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 = '0000007 C'X ! Reserved for SeVMS; PARAMETER 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 ! Re served for SeVMS< PARAMETER 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 timeK PARAMETER NSA$_TRANSPORT_NAME = '0000008C'X ! Transport name (DECwindows)F PARAMETER NSA$_DECNET_LINK_ID = '0000008D'X ! DECnet logical link IDF PARAMETER NSA$_DECNET_OBJECT_NAME = '0000008E'X ! DECnet object nameJ PARAMETER NSA$_DECNET_OBJECT_NUMBER = '0000008F'X ! DECnet object numberF PARAMETER NSA$_REMOTE_LINK_ID = '00000090'X ! Remote logical link ID: PARAMETER NSA$_COMMAND_LINE = '00000091'X ! Command lineF PARAMETER NSA$_ASSOCIATION_NAME = '00000092'X ! IPC association nameQ PARAMETER NSA$_REM_ASSOCIATION_NAME = '00000093'X ! IPC remote association name@ PARAMETER NSA$_CONNECTION_ID = '00000094'X ! IPC connection ID@ PARAMETER NSA$_MESSAGE = '00000095'X ! Associated message codeG PARAMETER NSA$_MSGFILNAM = '00000096'X ! Associated message file nameL PARAMETER NSA$_OBJECT_POINTER = '00000097'X ! Object container (Directory)L 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 t ime * PARAMETER NSA$_PARAMS_WRITE = '0000009B'X* PARAMETER NSA$_PARAMS_INUSE = '0000009C'XL PARAMETER NSA$_MATCHING_ACE = '0000009D'X ! ACE granting or denying accessM PARAMETER NSA$_SNAPSHOT_SAVE_FILNAM = '0000009E'X ! Snapshot save file nameA PARAMETER NSA$_MAILBOX_UNIT = '0000009F'X ! Mailbox unit numberB PARAMETER NSA$_NEW_OWNER = '000000A0'X ! New process owner (UIC)B PARAMETER NSA$_NEW_PRIORITY = '000000A1'X ! New process priorityB PARAMETER NSA$_OLD_PRIORITY = '000000A2'X ! Old process priority> PARAMETER NSA$_DIAG_FUNC = '000000A3'X ! Diagnostic functionA PARAMETER NSA$_RESOURCE_NAME = '000000A4'X ! Lock resource nameG PARAMETER NSA$_LNM_TABLE_NAME = '000000A5'X ! Logical name table nameO PARAMETER NSA$_LNM_PARENT_NAME = '000000A6'X ! Parent logical name table nameA PARAMETER NSA$_EFC_NAME = '000000A7'X ! Event Flag Cluster nameS PARAMETER NSA$_TARGET_PROCESS_CLASS = '000000A8'X ! Target process classificationE PARAMETER NSA$_TARGET_PROCESS_ID = '000000A9'X ! Target process PIDH PARAMETER NSA$_TARGET_PROCESS_NAME = '000000AA'X ! Target process nameP PARAMETER NSA$_TARGET_PROCESS_OWNER = '000000AB'X ! Target process owner (UIC)@ PARAMETER NSA$_TARGET_USERNAME = '000000AC'X ! Target username> PARAMETER NSA$_NEW_PRIVILEGES = '000000AD'X ! New privileges> PARAMETER NSA$_OLD_PRIVILEGES = '000000AE'X ! Old privilegesJ PARAMETER NSA$_REMOTE_NODE_FULLNAME = '000000AF'X ! Remote node fullname; PARAMETER NSA$_UNUSED_2 = '000000B0'X ! Unused item code ; 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 = '000000B8'X ! Unused item code A PARAMETER NSA$_PRIVS_MISSING = '000000B9'X ! Privileges missingF PARAMETER NSA$_TARGET_DEVICE_NAME = '000000BA'X ! Target device nameA PARAMETER NSA$_SECTION_NAME = '000000BB'X ! Global section nameE PARAMETER NSA$_ID_VALUE_ASCII = '000000BC'X ! ID value via $IDTOASC? PARAMETER NSA$_OBJECT_CLASS = '000000BD'X ! Object class nameA PARAMETER NSA$_SUPPRESS = '000000BE'X ! Suppress supplied itemsJ PARAMETER NSA$_SNAPSHOT_BOOTFILE = '000000BF'X ! Snapshot boot file nameT PARAMETER NSA$_SOURCE_PROCESS_ID = '000000C0'X ! Source process ID (impersonation)> PARAMETER NSA$_REQUEST_NUMBER = '000000C1'X ! Request number8 PARAMETER NSA$_ACCESS_MODE = '000000C2'X ! Access modeH PARAMETER NSA$_SYSTEM_SERVICE_NAME = '000000C3'X ! System service nameN PARAMETER NSA$_NEW_AUTH_PRIVILEGES = '000000C4'X ! New authorized privilegesN PARAMETER NSA$_OLD_AUTH_PRIVILEGES = '000000C5'X ! Old authorized privilegesJ PARAMETER NSA$_NEW_DEF_PRIVILEGES = '000000C6'X ! New default privilegesJ PARAMETER NSA$_OLD_DEF_PRIVILEGES = '000000C7'X ! Old default privileges> PARAMETER NSA$_NEW_PROCESS_ID = '000000C8'X ! New process IDJ PARAMETER NSA$_NEW_PROCESS_OWNER = '000000C9'X ! New process owner (UIC)B 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 username@ PARAMETER NSA$_DEACCESS_KEY = '000000CD'X ! Deaccess audit keyH 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 distributionF PARAMETER NSA$_FILE_NAME = '000000D1'X ! File name (volume auditing)C PARAMETER NSA$_DIRECTORY_NAME = '000000D2'X ! Directory file nameI PARAMETER NSA$_SEQUENCE_KEY = '000000D3'X ! Sequence key (XQP auditing)! DAS item codes.0 PARAMETER NSA$_PRINCIPAL_FULLNAME = '000000D4'X- PARAMETER NSA$_TARGET_F ULLNAME = '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* PARAMETER 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# PARAMETER NSA$_DAS_5 = '000000EB'X# PARAMETER NSA$_DAS_6 = '000000EC'X# P ARAMETER 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_FULLNAME = '000000F6'X) PARAMETER NSA$_CERTIF_TYPE = '000000F7'X0 PARAMET ER 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 openedH PARAMETER NSA$_IDENTIFIERS_MISSING = '00000100'X ! identifiers missing2 PARAMETER NSA$_SE NSITIVE_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'X: PARAMETER NSA$_MAX_ITM_CODE = '00000106'X ! Must be lastJ 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  = '00000007'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 = '00000031'X/ PARAMETER NSA$_CLIENT_TIME_STAMP = '00000032'X- PARAMETER NSA$_CLIENT_USERNAME = '00000038'X STRUCTURE /NSADATADEF/5 INTEGER*2 NSA$W_PACKET_SIZE ! Data packet size5 INTEGER*2 NSA$W_PACKET_TYPE ! Data packet type9 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 that1! c orresponding 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_SUBJECT_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 STRUCTURE /fill_22/ UNION MAP INTEGER*4 %FILL END MAP MAP) PARAMETER NSA$S_ACCOUNT_NAME = 14 PARAMETER NSA$V_ACCOUNT_NAME = 0 ! account& PARAMETER NSA$S_SYSTEM_ID = 14 PARAMETER NSA$V_SYS TEM_ID = 1 ! system id( PARAMETER NSA$S_SYSTEM_NAME = 18 PARAMETER NSA$V_SYSTEM_NAME = 2 ! system name) PARAMETER NSA$S_FINAL_STATUS = 13 PARAMETER NSA$V_FINAL_STATUS = 3 ! status' PARAMETER NSA$S_IMAGE_NAME = 16 PARAMETER NSA$V_IMAGE_NAME = 4 ! image name& PARAMETER NSA$S_PARENT_ID = 14 PARAMETER NSA$V_PARENT_ID = 5 ! parent id) PARAMETER NSA$S_PARENT_OWNER = 19 PARAMETER NSA$V_PARENT_OWNER = 6 ! p arent owner( PARAMETER NSA$S_PARENT_NAME = 1@ PARAMETER NSA$V_PARENT_NAME = 7 ! parent process name' PARAMETER NSA$S_PROCESS_ID = 16 PARAMETER NSA$V_PROCESS_ID = 8 ! process id) PARAMETER NSA$S_PROCESS_NAME = 19 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_SUBJE CT_OWNER = 11 ! owner ('UIC')% PARAMETER NSA$S_TERMINAL = 13 PARAMETER NSA$V_TERMINAL = 12 ! terminal' PARAMETER NSA$S_TIME_STAMP = 16 PARAMETER NSA$V_TIME_STAMP = 13 ! timestamp% PARAMETER NSA$S_USERNAME = 13 PARAMETER NSA$V_USERNAME = 14 ! username, PARAMETER NSA$S_PARENT_USERNAME = 1- PARAMETER NSA$V_PARENT_USERNAME = 15- BYTE %FILL (2) ! parent username END MAP END UNION END STRUCTURE ! fil l_22H! 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! Q! Define the structure of a message formating table entry. These entries defineR! the order in which the data packets are displayed, and the manner in which they! are formatted.! @ PARAMETER NSA$C_FMTINF_NONE = '00000000'X ! No value to formatS PARAMETER NSA$C_FMTINF_LONG_VALUE = '00000001'X ! Value is supplied as a longwordS PARAMETER NSA$C_FMTINF_IDENTIFIER = '00000002'X ! Value supplied is an identifierX PARAMETER NSA$C_FMTINF_DATE = '00000003'X ! Value supplied is address of quadword date_ PARAMETER NSA$C_FMTINF_STRING = '00000004'X ! String size (count) and address supplied to FAOZ PARAMETER NSA$C_FMTINF_CLASSIFICA TION = '00000005'X ! Vector represents a classificationL PARAMETER NSA$C_FMTINF_SPECIAL = '00000006'X ! Special processing required4 PARAMETER NSA$M_FMTINF_CHECK_PREVIOUS = '00000001'X2 PARAMETER NSA$M_FMTINF_NTH_NEW_LINE = '00000002'X. PARAMETER NSA$M_FMTINF_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.Z PARAMETER NSA$C_FORMAT_STYLE_BRIEF = '00000001'X ! Single line briefly formatted messageK PARAMETER NSA$C_FORMAT_STYLE_FULL = '00000002'X ! Fully formatted messageM PARAMETER NSA$C_FORMAT_STYLE_PACKET_TYPE = '00000003'X ! Packet type format0! Define classification string format constantsQ PARAMETER NSA$C_FMTINF_MAX_SINGLE_SEC_STR = '00000F37'X ! Simple secrecy stringS PARAMETER NSA$C_FMTINF_MAX_SINGLE_INT_STR = '000007B9'X ! Simple integrity stringR PARAMETER NSA$C_FMTINF_MAX_RANGE_SEC_STR = '00001E79'X ! Compound secrecy stringT PARAMETER NSA$C_FMTINF_MAX_RANGE_INT_STR = '00000F7B'X ! Compound integrity string STRUCTURE /FMTTBLDEF/P INTEGER*4 NSA$L_FMTINF_PACKET_NAME ! Address of the packet name descriptorn INTEGER*2 NSA$W_FMTINF_PACKET_TYPE ! Define the type of packet represented by this entry (NSA$C_PKT_xxx)Q INTEGER*2 NSA$W_FMTINF_OUTPUT_ORDER ! Define the order in the output bufferC INTEGER*4 NSA$L_FMTINF_FAO_CTRSTR ! Normal FAO control stringa INTEGER*4 NSA$L_FMTINF_CLIENT_FAO _CTRSTR ! FAO control string for client/server combinationd INTEGER*4 NSA$L_FMTINF_NTH_FAO_CTRSTR ! FAO control string for the Nth packet of the same type? BYTE NSA$B_FMTINF_DATA_TYPE ! Type of data to format UNION MAP) BYTE NSA$B_FMTINF_FMT_FLAGS END MAP MAP6 PARAMETER NSA$S_FMTINF_CHECK_PREVIOUS = 1c PARAMETER NSA$V_FMTINF_CHECK_PREVIOUS = 0 ! Check adjacency with previous output item4 PAR AMETER 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 = 1N PARAMETER NSA$V_FMTINF_NOFORMAT = 2 ! Don't format the packet(s)1 PARAMETER NSA$S_FMTINF_SENSITIVE = 1Z PARAMETER NSA$V_FMTINF_SENSITIVE = 3 ! Packet contains sensitive information BYTE %FILL (1) END MAP END UNIOND INTEGER*2 NSA$W_FMTINF_SERVER_PKT  ! Associated (server) packetD 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 that0! are unknown to the base VMS operating system.! , PARAMETER NSA$K_IMGXFR_LENGTH = '00000035'X, PARAMETER NSA$C_IMGXFR_LENGTH = '00000035'X  STRUCTURE /FMTCALLDEF/K INTEGER*4 NSA$L_IMGXFR_FLINK ! Address of next entry (must be first)P INTEGER*4 NSA$L_IMGXFR_BLINK ! Address of previous entry (must be secomd)8 INTEGER*2 NSA$W_IMGXFR_SIZE ! Size of entry block@ INTEGER*2 NSA$W_IMGXFR_FACILITY ! Facility code for imageI INTEGER*4 NSA$L_IMGXFR_BASE_ORDER_OFFSET ! Base output order offset,! Start of sharable image routine addressesG INTEGER*4 NSA$A_IMGXFR_MESSAGE_INFO ! Message information routineH INTEGER*4 NSA$A_IMGXFR_VALIDATE_PACKET ! Packet validation routineN INTEGER*4 NSA$A_IMGXFR_DISPLAY_INFO ! Packet display information routineG INTEGER*4 NSA$A_IMGXFR_LINE_BREAK ! Line break processing routineO INTEGER*4 NSA$A_IMGXFR_FORMAT_SPECIAL ! Special packet formatting routineK INTEGER*4 NSA$A_IMGXFR_FORMAT_INFO ! Normal packet formatting routine@ INTEGER*4 NSA$A_IMGXFR_FORMAT_BRIEF ! Brief format routineL INTEGER*4 NSA$A_IMGXFR_FORMAT_PACKET_TYPE ! Pa cket type format routineT INTEGER*4 NSA$A_IMGXFR_FORMAT_EVENT_TYPE ! Message type/subtype format routine*! End of sharable image routine addressesD CHARACTER*1 NSA$T_IMGXFR_IMAGE_NAME(1:1) ! Start of image name END STRUCTURE ! FMTCALLDEFN! The following structure defines the common argument block passed to all theC! 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 = '00000004'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 MAPE INTEGER*2 NSA$W_FMTARG_BUFFER_SIZE ! Output buffer size) INTEGER*2 %FILL ! UnusedK I NTEGER*4 NSA$A_FMTARG_BUFFER_POINTER ! Output buffer address END MAP END UNIONN INTEGER*2 NSA$W_FMTARG_BUFFER_OFFSET ! Current position in output bufferM INTEGER*2 NSA$W_FMTARG_BOL_OFFSET ! Offset to beginning of current line UNION MAP- INTEGER*4 NSA$Q_FMTARG_TERMINATOR(2) END MAP MAPH INTEGER*2 NSA$W_FMTARG_TERM_SIZE ! Size of line terminator) INTEGER*2 %FILL ! UnusedK INTEGER*4 NSA$A_FMTARG_TERM_TEXT ! Address of terminator text END MAP END UNION> INTEGER*2 NSA$W_FMTARG_LINE_WIDTH ! Output display widthL INTEGER*2 NSA$W_FMTARG_LINE_INDENT ! Positions to indent (when needed)J 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 = 1b PARAMETER NSA$V_FMTARG_SENSITIVE = 0 ! Packet contains sensitive information= PARAMETER NSA$S_FMTARG_DISPLAY_TITLE = 1N PARAMETER NSA$V_FMTARG_DISPLAY_TITLE = 1 ! Display title BYTE %FILL (1) END MAP END UNION UNION MAP2 INTEGER*2 NSA$W_FMT ARG_FLAGS_HIGH END MAP MAP> PARAMETER NSA$S_FMTARG_CHECK_PREVIOUS = 1k PARAMETER NSA$V_FMTARG_CHECK_PREVIOUS = 0 ! Check adjacency with previous output item< PARAMETER NSA$S_FMTARG_NTH_NEW_LINE = 1e PARAMETER NSA$V_FMTARG_NTH_NEW_LINE = 1 ! Force duplicate packets to a new line8 PARAMETER NSA$S_FMTARG_NOFORMAT = 1V 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 ! FMTARGDEFQ! The following structure defines the transfer vector area for the format image.Q PARAMETER NSA$C_IMGXFR_MESSAGE_INFO = '00000000'X ! Message information routineR PARAMETER NSA$C_IMGXFR_VALIDATE_PACKET = '00000001'X ! Packet validation routineX  PARAMETER NSA$C_IMGXFR_DISPLAY_INFO = '00000002'X ! Packet display information routineQ PARAMETER NSA$C_IMGXFR_LINE_BREAK = '00000003'X ! Line break processing routineY PARAMETER NSA$C_IMGXFR_FORMAT_SPECIAL = '00000004'X ! Special packet formatting routineU PARAMETER NSA$C_IMGXFR_FORMAT_INFO = '00000005'X ! Normal packet formatting routineJ PARAMETER NSA$C_IMGXFR_FORMAT_BRIEF = '00000006'X ! Brief format routineV PARAMETER NSA$C_IMGXFR_FORMAT_PACKET_TYPE = '00000007'X ! Packet type form at routine^ PARAMETER NSA$C_IMGXFR_FORMAT_EVENT_TYPE = '00000008'X ! Message type/subtype format routine STRUCTURE /FMTXFERDEF/J INTEGER*4 NSA$R_IMGXFR_MESSAGE_INFO(2) ! Message information routineK INTEGER*4 NSA$R_IMGXFR_VALIDATE_PACKET(2) ! Packet validation routineQ INTEGER*4 NSA$R_IMGXFR_DISPLAY_INFO(2) ! Packet display information routineJ INTEGER*4 NSA$R_IMGXFR_LINE_BREAK(2) ! Line break processing routineR INTEGER*4 NSA$R_IMGXFR_FORMAT_SPECIAL(2) ! Special p acket formatting routineN INTEGER*4 NSA$R_IMGXFR_FORMAT_INFO(2) ! Normal packet formatting routineC INTEGER*4 NSA$R_IMGXFR_FORMAT_BRIEF(2) ! Brief format routineO INTEGER*4 NSA$R_IMGXFR_FORMAT_PACKET_TYPE(2) ! Packet type format routineW INTEGER*4 NSA$R_IMGXFR_FORMAT_EVENT_TYPE(2) ! Message type/subtype format routineQ! The following list of constants is used to index into the transfer vector areaW! defined above. The structure definition and constant list must paralle l each other. END STRUCTURE ! FMTXFERDEF! J! Define block to hold access bitname information for a particular object! ? PARAMETER NSA$K_ACCNAM_LENGTH = '0000008B'X ! Length of block, PARAMETER NSA$C_ACCNAM_LENGTH = '0000008B'X STRUCTURE /FMTACCNAMDEF/K INTEGER*4 NSA$L_ACCNAM_FLINK ! Address of next entry (must be first)P INTEGER*4 NSA$L_ACCNAM_BLINK ! Address of previous entry (must be secomd)8 INTEGER*2 NSA$W_ACCNAM_SIZE ! Size of entry blockQ INTEGER*4 NSA $L_ACCNAM_CODES(1:32) ! 32 pointers to access name descriptorsF CHARACTER*1 NSA$T_ACCNAM_OBJECT_TYPE(1:1) ! Start of object name END STRUCTURE ! FMTACCNAMDEF! W! Define the format of the message information block. This block defines some general9! characteristics of messages for a particular facility.! , PARAMETER NSA$K_MSGINF_LENGTH = '00000008'X, PARAMETER NSA$C_MSGINF_LENGTH = '00000008'X STRUCTURE /MSGINFODEF/K INTEGER*4 NSA$L_MSGINF_MAX_ORDER_OFFSET ! Maximum (out put) line indexL INTEGER*4 NSA$A_MSGINF_BRIEF_TITLE ! Address of brief format titleline END STRUCTURE ! MSGINFODEF! T! Define the structure of a formatting table subtype entry. This entry consists ofC! 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 MAPP INTEGER*4 NSA$L_SUBTBL_DESCRIPTION ! Address of the description string END MAP MAPO INTEGER*4 NSA$L_SUBTBL_TABLE_SIZE ! Number of entries in the subtable END MAP END UNIOND INTEGER*4 NSA$L_SUBTBL_MNEMONIC ! Mnemonic name for the entry END STRUCTURE ! SUBFMTTBLDEF3! 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) P ARAMETER 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'XCDEC$ END OPTIONS ww3)!*** MODULE $NSARECDEF ***CDEC$ OPTIONS /NOALIGN! +'! Security Au diting record definitions! -C PARAMETER NSA$C_REC_MAXLENGTH = '00000400'X ! Maximum record sizeC PARAMETER NSA$K_REC_MAXLENGTH = '00000400'X ! Maximum record sizeC PARAMETER NSA$S_REC_MAXLENGTH = '00000400'X ! Maximum record size! + ! Audit record type definitions! -8 PARAMETER NSA$K_RECTYP_FIL = '00000001'X ! File access: PARAMETER NSA$K_RECTYP_SYSUAF = '00000002'X ! System UAF; PARAMETER NSA$K_RECTYP_NETUAF = '00000003'X ! Network UAFE PARAMETER NSA$K_RECTYP_LOGB = '0000 0004'X ! Login breakin detection> PARAMETER NSA$K_RECTYP_LOGI = '00000005'X ! Successful login; PARAMETER NSA$K_RECTYP_LOGF = '00000006'X ! Login failure4 PARAMETER NSA$K_RECTYP_LOGO = '00000007'X ! Logout> PARAMETER NSA$K_RECTYP_VOL = '00000008'X ! Volume operationsB PARAMETER NSA$K_RECTYP_GBL = '00000009'X ! Global section accessB PARAMETER NSA$K_RECTYP_INSTAL = '0000000A'X ! INSTALL operationsJ PARAMETER NSA$K_RECTYP_RIGHTS = '0000000B'X ! Rights database operationsC PARAMETER NSA $K_RECTYP_AUDIT = '0000000C'X ! SET AUDIT operations( PARAMETER NSA$K_RECTYPNUM = '0000000C'X! +*! Audit record subtype and ID definitions! -! File accessH PARAMETER NSA$K_RECTYP_FIL_SUCC = '00000001'X ! Successful file accessE 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 accessR PARAMETER NSA$K_RECTY P_GBL_SUCC = '00000001'X ! Successful Global section accessO 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 UAFN PARAMETER NSA$K_RECTYP_SYSUAF_ADD = '00000001'X ! System UAF record additionN PARAMETER NSA$K_RECTYP_SYSUAF_DEL = '00000002'X ! System UAF record deletionR PARAMETER NSA$K_RECTYP_SYSUAF_MOD = '000000 03'X ! System UAF record modificationL PARAMETER NSA$K_RECTYP_SYSUAF_COP = '00000004'X ! System UAF record copiedM PARAMETER NSA$K_RECTYP_SYSUAF_REN = '00000005'X ! System UAF record renamed/ PARAMETER NSA$K_RECTYPNUM_SYSUAF = '00000005'X/ PARAMETER NSA$K_RECID_SYSUAF_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! Netwo rk UAFO PARAMETER NSA$K_RECTYP_NETUAF_ADD = '00000001'X ! Network UAF record additionO PARAMETER NSA$K_RECTYP_NETUAF_DEL = '00000002'X ! Network UAF record deletionS 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 detectionV PARAMETER NSA$K_RECTYP_LOGB_DIA = '00000001'X ! Dialup interactive breakin detectionU PARAMETER NSA$K_RECTYP_LOGB_LOC = '00000002'X ! Local interactive breakin detectionV PARAMETER NSA$K_RECTYP_LOGB_REM = '00000003'X ! Remote interactive breakin detectionK PARAMETER NSA$K_RECTYP_LOGB_NET = '00000004'X ! Network breakin detectionT 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- P ARAMETER 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 loginE PARAMETER NSA$K_RECTYP_LOGI_BAT = '00000001'X ! Batch process loginJ PARAMETER NSA$K_RECTYP_LOGI_DIA = '00000002'X ! Dialup interactive loginI PARAMETER NSA$K_RECTYP_LOGI_LOC = '00000003'X ! Local interactive loginJ PARAMETER NSA$K_RECTYP_LOGI_REM = '00000004'X ! Remote interactive l ogin? PARAMETER NSA$K_RECTYP_LOGI_NET = '00000005'X ! Network loginB PARAMETER NSA$K_RECTYP_LOGI_SUB = '00000006'X ! Subprocess loginH 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 failureM PARAMETER NSA$K_RECTYP_LOGF_BAT = '00000001'X ! Batch process login failureR PARAMETER NSA$K_RECTYP_LOGF_DIA = '00000002'X ! Dialup interactive login failureQ PARAMETER NSA$K_RECTYP_LOGF_LOC = '00000003'X ! Local interactive login failureR PARAMETER NSA$K_RECTYP_LOGF_REM = '00000004'X ! Remote interactive login failureG PARAMETER NSA$K_RECTYP_LOGF_NET = '00000005'X ! Network login failureJ PARAMETER NSA$K_RECTYP_LOGF_SUB = '00000006'X ! Subprocess login failureP 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- P ARAMETER NSA$K_RECID_LOGF_DET = '00070006'X ! LogoutF PARAMETER NSA$K_RECTYP_LOGO_BAT = '00000001'X ! Batch process logoutK PARAMETER NSA$K_RECTYP_LOGO_DIA = '00000002'X ! Dialup interactive logoutJ PARAMETER NSA$K_RECTYP_LOGO_LOC = '00000003'X ! Local interactive logoutK PARAMETER NSA$K_RECTYP_LOGO_REM = '00000004'X ! Remote interactive logout@ PARAMETER NSA$K_RECTYP_LOGO_NET = '00000005'X ! Network logoutC PARAMETER NSA$K_RECTYP_LOGO_SUB = '00000006'X ! Subprocess logoutI PARAMET ER 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_LOC = '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 mountsB 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 operationsB PARAMETER NSA$K_RECTYP_INSTAL_ADD = '00000001'X ! Add known fileE PARAMETER NSA$K_RECTYP_INSTAL_REM = '00000002'X ! Remove known file/ PARAMETER NSA$K_RECTYPNUM_INSTAL = '00000002'X! Rights database operationsJ PARAMETER NSA$K_REC TYP_RIGHTS_CRE = '00000001'X ! Create rights databaseB PARAMETER NSA$K_RECTYP_RIGHTS_ADD = '00000002'X ! Add identifierE PARAMETER NSA$K_RECTYP_RIGHTS_REM = '00000003'X ! Remove identifierH PARAMETER NSA$K_RECTYP_RIGHTS_MOD_ID = '00000004'X ! Modify identifierO PARAMETER NSA$K_RECTYP_RIGHTS_MOD_HO = '00000005'X ! Modify identifier holderF PARAMETER NSA$K_RECTYP_RIGHTS_GRANT = '00000006'X ! Grant identifierG PARAMETER NSA$K_RECTYP_RIGHTS_REVOK = '00000007'X ! Revoke identifier/ PARAMET!ER NSA$K_RECTYPNUM_RIGHTS = '00000007'X! SET AUDIT operationsB PARAMETER NSA$K_RECTYP_AUDIT_ENA_AL = '00000001'X ! Enable alarmC PARAMETER NSA$K_RECTYP_AUDIT_DIS_AL = '00000002'X ! Disable alarmD PARAMETER NSA$K_RECTYP_AUDIT_ENA_JL = '00000003'X ! Enable journalE PARAMETER NSA$K_RECTYP_AUDIT_DIS_JL = '00000004'X ! Disable journal. PARAMETER NSA$K_RECTYPNUM_AUDIT = '00000004'X! +! SYSUAFF stuff! - STRUCTURE /sysuaff_bits/ UNION MAP6 INTEGER*4 nsa$q_s "ysuaff(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 = 17 PARAMETER nsa$V_cli = 6 ! CLI modified* PARAMETER nsa$S_clitables = 1B PARAMETER nsa$V_clitables = 7 ! CLITABLES modified( PARAMETER nsa$S_cputime = 1> PARAMETER nsa$V_cputime = 8 ! CPUTIME modified. PARAMETER nsa $$S_defprivileges = 1I 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 = 1C PARAMETER nsa$V_directory = 13 ! D %IRECTORY modified& PARAMETER nsa$S_enqlm = 1; PARAMETER nsa$V_enqlm = 14 ! ENQLM modified+ PARAMETER nsa$S_expiration = 1E PARAMETER nsa$V_expiration = 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 = 1F PAR &AMETER 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 = 1C PARAMETER nsa$V_maxdetach = 22 ! MAXDETACH modified( PARAMET 'ER nsa$S_maxjobs = 1? PARAMETER nsa$V_maxjobs = 23 ! MAXJOBS modified, PARAMETER nsa$S_maxacctjobs = 1F PARAMETER nsa$V_maxacctjobs = 24 ! MAXACCTJOBS modified( 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 = 1A 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 = 1E PARAMETER nsa$V_p_restrict = 30 ! P_RESTRICT modified* PARAMETER nsa$S_pgflquota = 1C PARAMETER nsa$V_pgflquota = 31 ! PGFLQUOTA modified& PARAMETER nsa$S_prclm = 1; ) PARAMETER nsa$V_prclm = 32 ! PRCLM modified* PARAMETER nsa$S_primedays = 1C PARAMETER nsa$V_primedays = 33 ! PRIMEDAYS modified) PARAMETER nsa$S_priority = 1A PARAMETER nsa$V_priority = 34 ! PRIORITY modified+ PARAMETER nsa$S_privileges = 1E PARAMETER nsa$V_privileges = 35 ! PRIVILEGES modified, PARAMETER nsa$S_pwdlifetime = 1F PARAMETER nsa$V_pwdlifetime = 36 ! PWDL *IFETIME modified+ PARAMETER nsa$S_pwdminimum = 1E PARAMETER nsa$V_pwdminimum = 37 ! PWDMINIMUM modified, PARAMETER nsa$S_quepriority = 1F PARAMETER 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 += 1E PARAMETER nsa$V_s_restrict = 41 ! S_RESTRICT modified) PARAMETER nsa$S_shrfillm = 1A PARAMETER nsa$V_shrfillm = 42 ! SHRFILLM modified& PARAMETER nsa$S_tqelm = 1; PARAMETER nsa$V_tqelm = 43 ! TQELM modified$ PARAMETER nsa$S_uic = 17 PARAMETER nsa$V_uic = 44 ! UIC modified* PARAMETER nsa$S_wsdefault = 1C PARAMETER nsa$V_wsdefault = 45 ! WSDEFAULT modified) , PARAMETER nsa$S_wsextent = 1A PARAMETER nsa$V_wsextent = 46 ! WSEXTENT modified( PARAMETER nsa$S_wsquota = 1) PARAMETER nsa$V_wsquota = 473 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 MAPC INTEGER*4 NSA$L_REC_ID ! Record identification longword END MAP MAP5 INTEGER*2 NSA$W_REC_TYPE ! Record type; INTEGER*2 NSA$W_REC_SUBTYPE ! Record subtype END MAP END UNION@ BYTE NSA$B_REC_SEQNUM ! This records sequence numberA BYTE NSA$B_REC_SEQLAST ! Last records sequence number UNION MAP8 BYTE NSA$B_REC_FLAGS ! . Record flags byte END MAP MAP1 PARAMETER NSA$S_REC_FLAGS_PKTCON = 1M PARAMETER NSA$V_REC_FLAGS_PKTCON = 0 ! Last packet in record is! continued in next record BYTE %FILL (1) END MAP END UNIOND 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 ! Exte /nded PID@ INTEGER*4 NSA$Q_REC_TIME(2) ! Event time (EXE$GQ_SYSTIME)9 CHARACTER*16 NSA$T_REC_CLUSNAM ! Cluster node name4 CHARACTER*16 NSA$T_REC_PROCNAM ! Process name0 CHARACTER*12 NSA$T_REC_USERNAM ! username3 CHARACTER*8 NSA$T_REC_ACCTNAM ! Account name END STRUCTURE ! NSARECHDRDEF! +! Data packet type definitions! -A PARAMETER NSA$K_PKTTYP_IMGNAM = '00000001'X ! Image name packet@ PARAMETER NSA$K_PKTTYP_FACMOD = '00000002'X ! File access modeO0 PARAMETER NSA$K_PKTTYP_PRIVUSED = '00000003'X ! Privilege used to access file9 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 name@ 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 ! Use 1r name: PARAMETER NSA$K_PKTTYP_PASSWORD = '0000000B'X ! PasswordE PARAMETER NSA$K_PKTTYP_UIC = '0000000C'X ! User identification codeA 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 flags7 PARAMETER NSA$K_PKTTYP_NODEID = '00000010'X ! Node ID: PARAMETER NSA$K_PKTTYP_EPID = '00000011'X ! Extended PIDI PARAMETER NSA$K_PKTTYP_SYSUAFF = '00000012'X ! Sys 2tem UAF record fields? PARAMETER NSA$K_PKTTYP_STATUS = '00000013'X ! Status longwordC PARAMETER NSA$K_PKTTYP_SECNAM = '00000014'X ! Global section nameB PARAMETER 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 valueE PARAMETER NSA$K_PKTTYP_IDATTR = '00000019'X ! Identifier attributesA PARAMETER 3 NSA$K_PKTTYP_HOLDER = '0000001A'X ! Identifier holder9 PARAMETER NSA$K_PKTTYP_AUDIT = '0000001B'X ! Audit itemF PARAMETER NSA$K_PKTTYP_DEFUSERNAM = '0000001C'X ! Default proxy nameB PARAMETER NSA$K_PKTTYP_OLDUSERNAM = '0000001D'X ! Old proxy nameP PARAMETER NSA$K_PKTTYP_OLDDEFUNAM = '0000001E'X ! Old default local proxy nameH PARAMETER NSA$K_PKTTYP_OLDNODENAM = '0000001F'X ! Old remote node name( PARAMETER NSA$K_PKTTYPNUM = '0000001F'X! +!! Data packet offset definitions! -, P 4ARAMETER 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 STRUC5TURE /NSAPKTDEF/2 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 MAP6 CHARACTER*444 NSA$T_PKT_IMGNAM ! Image name END MAP MAP8 INTEGER*4 NSA$L_PKT_FACMOD ! File access mode END MAP MAPG INTEGER*4 NSA$L_PKT_PRIVUSED ! Privilege used to access file END MAP MAP5 CHARACTER*444 NSA6$T_PKT_FILNAM ! File name END MAP MAPF CHARACTER*64 NSA$T_PKT_DEVNAM ! Device and access port name END MAP MAP8 CHARACTER*255 NSA$T_PKT_LOGNAM ! Logical name END MAP MAP6 CHARACTER*12 NSA$T_PKT_VOLNAM ! Volume name END MAP MAP; CHARACTER*12 NSA$T_PKT_VOLSNAM ! Volume set name END MAP MAP4 CHARACTER*6 NSA$T_PKT_NODENAM ! Node name END M7AP MAP5 CHARACTER*32 NSA$T_PKT_USERNAM ! User name END MAP MAP5 CHARACTER*32 NSA$T_PKT_PASSWORD ! Password END MAP MAP0 INTEGER*4 NSA$L_PKT_UIC ! Volume UIC END MAP MAP9 INTEGER*2 NSA$W_PKT_VOLPRO ! Volume protection END MAP MAP3 INTEGER*4 NSA$L_PKT_MOUFLG ! Mount flags END MAP MAP7 INTEGER*2 NSA$W_PKT_DMOUFLG ! Dismount fl8ags END MAP MAP2 INTEGER*4 NSA$Q_PKT_NODEID(2) ! Node ID END MAP MAP2 INTEGER*4 NSA$L_PKT_EPID ! Extended PID END MAP MAPD INTEGER*4 NSA$Q_PKT_SYSUAFF(2) ! System UAF record fields END MAP MAP7 INTEGER*4 NSA$L_PKT_STATUS ! Status longword END MAP MAP> CHARACTER*54 NSA$T_PKT_SECNAM ! Global section name END MAP MAP= INT9EGER*4 NSA$Q_PKT_PRIVS(2) ! Full privilege mask END MAP MAP UNION MAP9 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 = 1E 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 = 1@ PARAMETER NSA$V_PKT_INS_ACC = 9 ! /ACCOUNTING BYTE %FILL (2) END MAP END UNION END MAP MAP: CHARACTER*32 NSA$T_PKT_IDNAME ! Identifier name END MAP MAP7 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 MAPP ! unsupported type CHARACTER*0 NSA$R_PKT_AUDIT ! Audit item (not used) END MAP MAP@ CHARACTER*32 NSA$T_PKT_DEFUSERNAM ! Default proxy name END MAP MAP< CHARACTER*32 NSA$T_PKT_OLDUSERNAM ! Old proxy name E=ND MAP MAPJ CHARACTER*32 NSA$T_PKT_OLDDEFUNAM ! Old default local proxy name END MAP MAPA CHARACTER*6 NSA$T_PKT_OLDNODENAM ! Old remote node name END MAP END UNION END STRUCTURE ! NSAPKTDEFCDEC$ END OPTIONS wwM !*** MODULE $OBJRECDEF ***CDEC$ OPTIONS /NOALIGN& 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_WEAK = '00000001'X' PARAMETER OBJ$M_SYMV_DEF = '00000002'X' PARAMETER OBJ$M_SYMV_UNI = '00000004'X' PAR?AMETER 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 MAP1 BYTE OBJ$B_TYPE ! Type of record END MAP MAP8 BYTE OBJ$B_GSD_TYPE ! Type of GSD record END MAP END UNION UNION MAP@ BYTE OBJ$B_PSC_ALI ! PSECT al @ignment (2**n) UNION MAP: INTEGER*2 OBJ$W_PSC_FLAG ! PSECT flags: END MAP MAP0 PARAMETER OBJ$S_PSC_PIC = 1K PARAMETER OBJ$V_PSC_PIC = 0 ! Position independent0 PARAMETER OBJ$S_PSC_LIB = 1R PARAMETER OBJ$V_PSC_LIB = 1 ! Defined from sharable image0 PARAMETER OBJ$S_PSC_OVL = 1E PARAMET AER OBJ$V_PSC_OVL = 2 ! Overlaid psect0 PARAMETER OBJ$S_PSC_REL = 1J PARAMETER OBJ$V_PSC_REL = 3 ! Requires relocation0 PARAMETER OBJ$S_PSC_GBL = 1F PARAMETER OBJ$V_PSC_GBL = 4 ! PSECT is global0 PARAMETER OBJ$S_PSC_SHR = 1K PARAMETER OBJ$V_PSC_SHR = 5 ! Potentially sharable0 PARAMETER OBJ$S_PSC_EXE = 1A PARAMETER OBJ$V B_PSC_EXE = 6 ! Executable/ PARAMETER OBJ$S_PSC_RD = 1A PARAMETER OBJ$V_PSC_RD = 7 ! Can be read0 PARAMETER OBJ$S_PSC_WRT = 1E PARAMETER OBJ$V_PSC_WRT = 8 ! Can be written BYTE %FILL (2) END MAP END UNION9 INTEGER*4 OBJ$L_PSC_LEN ! Length of PSECTG CHARACTER*1 OBJ$T_PSC_NAME ! PSECT name (counted string) END MAP C MAPP 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 = 1T PARAMETER OBJ$V_SYM_WEAK = 0 ! Weak resolution (0 = strong)0 PARAMETER OBJ$S_SYM_DEF = 1Q PARAMETER OBJ$V_SYM_DEF = 1 ! Definition (0 D = reference)0 PARAMETER OBJ$S_SYM_UNI = 1W PARAMETER OBJ$V_SYM_UNI = 2 ! Universal definition (0 = local)0 PARAMETER OBJ$S_SYM_REL = 1U PARAMETER OBJ$V_SYM_REL = 3 ! Relative symbol (0 = absolute) BYTE %FILL (1) END MAP END UNIOND BYTE OBJ$B_SYM_PSIND ! PSECT index (only if def)H INTEGER*4 OBJ$L_SYM_VALUE ! Value of symbol E (only if def)H CHARACTER*1 OBJ$T_SYM_NAME ! Symbol name (counted string) END MAP MAPP BYTE OBJ$B_EPM_DTYPE ! Data type (see Arch. Handbook, Ap. C)D INTEGER*2 OBJ$W_EPM_FLAGS ! Flags (same as SYM_FLAGS)D BYTE OBJ$B_EPM_PSIND ! PSECT index (only if def)H INTEGER*4 OBJ$L_EPM_VALUE ! Value of symbol (only if def)4 INTEGER*2 OBJ$W_EPM_MASK ! Entry maskH CHARACTER*1 OBJ$T_EPM F_NAME ! Symbol name (counted string) END MAP MAPQ 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 = 1U PARAMETER OBJ$V_SYMV_WEAK = 0 ! Weak resolution (0 = strong)1 PARAMETER OBJ$S_SYMV_DEF = 1R G PARAMETER OBJ$V_SYMV_DEF = 1 ! Definition (0 = reference)1 PARAMETER OBJ$S_SYMV_UNI = 1X PARAMETER OBJ$V_SYMV_UNI = 2 ! Universal definition (0 = local)1 PARAMETER OBJ$S_SYMV_REL = 1V PARAMETER OBJ$V_SYMV_REL = 3 ! Relative symbol (0 = absolute) BYTE %FILL (1) END MAP END UNIONE BYTE OBJ$B_SYMV_PSIND ! PSECT index (onl Hy if def)I INTEGER*4 OBJ$L_SYMV_VALUE ! Value of symbol (only if def)S INTEGER*4 OBJ$L_SYMV_VECTOR ! Vectored value of symbol (only if def)I CHARACTER*1 OBJ$T_SYMV_NAME ! Symbol name (counted string) END MAP MAPQ BYTE OBJ$B_EPMV_DTYPE ! Data type (see Arch. Handbook, Ap. C)E INTEGER*2 OBJ$W_EPMV_FLAGS ! Flags (same as SYM_FLAGS)E BYTE OBJ$B_EPMV_PSIND ! PSECT index (only if def I)I INTEGER*4 OBJ$L_EPMV_VALUE ! Value of symbol (only if def)S INTEGER*4 OBJ$L_EPMV_VECTOR ! Vectored value of symbol (only if def)5 INTEGER*2 OBJ$W_EPMV_MASK ! Entry maskI CHARACTER*1 OBJ$T_EPMV_NAME ! Symbol name (counted string) END MAP MAPQ BYTE OBJ$B_SYMM_DTYPE ! Data type (see Arch. Handbook, Ap. C) UNION MAP= INTEGER*2 OBJ$W_SYMM_FLAGS ! Sy Jmbol flags: END MAP MAP2 PARAMETER OBJ$S_SYMM_WEAK = 1U PARAMETER OBJ$V_SYMM_WEAK = 0 ! Weak resolution (0 = strong)1 PARAMETER OBJ$S_SYMM_DEF = 1R PARAMETER OBJ$V_SYMM_DEF = 1 ! Definition (0 = reference)1 PARAMETER OBJ$S_SYMM_UNI = 1X PARAMETER OBJ$V_SYMM_UNI = 2 ! Universal definition (0 = local)1 PARAM KETER OBJ$S_SYMM_REL = 1V PARAMETER OBJ$V_SYMM_REL = 3 ! Relative symbol (0 = absolute) BYTE %FILL (1) END MAP END UNIONE BYTE OBJ$B_SYMM_PSIND ! PSECT index (only if def)I INTEGER*4 OBJ$L_SYMM_VALUE ! Value of symbol (only if def)V INTEGER*4 OBJ$L_SYMM_VERSION_MASK ! Version mask of symbol (only if def)I CHARACTER*1 OBJ$T_SYMM_NAME ! Symbol name (counted string L) END MAP MAPQ BYTE OBJ$B_EPMM_DTYPE ! Data type (see Arch. Handbook, Ap. C)E INTEGER*2 OBJ$W_EPMM_FLAGS ! Flags (same as SYM_FLAGS)E BYTE OBJ$B_EPMM_PSIND ! PSECT index (only if def)I INTEGER*4 OBJ$L_EPMM_VALUE ! Value of symbol (only if def)V INTEGER*4 OBJ$L_EPMM_VERSION_MASK ! Version mask of symbol (only if def)5 INTEGER*2 OBJ$W_EPMM_MASK ! Entry maskI CHARACTER M*1 OBJ$T_EPMM_NAME ! Symbol name (counted string) END MAP MAPC BYTE OBJ$B_EOM_SEV ! Error severity for moduleJ BYTE OBJ$B_EOM_PSIND ! PSECT index of transfer address; INTEGER*4 OBJ$L_EOM_TRANS ! Transfer address END MAP END UNION END STRUCTURE ! SDADEFS: PARAMETER OBJ$C_HDR = '00000000'X ! Module header record = PARAMETER OBJ$C_HDR_MHD = '00000000'X ! Main header record D PARAMETER OBJ$C_HDR_LNM = ' N00000001'X ! Language processor record C PARAMETER OBJ$C_HDR_SRC = '00000002'X ! Source files description 5 PARAMETER OBJ$C_HDR_TTL = '00000003'X ! Title text 9 PARAMETER OBJ$C_HDR_CPR = '00000004'X ! Copyright text ; PARAMETER OBJ$C_HDR_MTC = '00000005'X ! Maintenance text 7 PARAMETER OBJ$C_HDR_GTX = '00000006'X ! General text E PARAMETER OBJ$C_GSD = '00000001'X ! Global symbol definition record < PARAMETER OBJ$C_GSD_PSC = '00000000'X ! P-sect definition E PARAMETER OBJ$C_GSD_SYMO = '00000001'X ! Symbol (simple) definition A PARAMETER OBJ$C_GSD_EPM = '00000002'X ! Entry point definition ? PARAMETER OBJ$C_GSD_PRO = '00000003'X ! Procedure definition M PARAMETER OBJ$C_GSD_SYMW = '00000004'X ! Symbol definition with word psect R PARAMETER OBJ$C_GSD_EPMW = '00000005'X ! Entry point definition with word psect P PARAMETER OBJ$C_GSD_PROW = '00000006'X ! Procedure definition with word psect > PARAMETER OBJ$C_GSD_IDC = '00000007'X ! Random entity check A PARAMETER OBJP$C_GSD_ENV = '00000008'X ! Environment definition L PARAMETER OBJ$C_GSD_LSY = '00000009'X ! Local symbol definition/reference I PARAMETER OBJ$C_GSD_LEPM = '0000000A'X ! Local symbol entry point def. G PARAMETER OBJ$C_GSD_LPRO = '0000000B'X ! Local symbol procedure def. L PARAMETER OBJ$C_GSD_SPSC = '0000000C'X ! Shareable image psect definition N PARAMETER OBJ$C_GSD_SYMV = '0000000D'X ! Global symbol definition (vectored)L PARAMETER OBJ$C_GSD_EPMV = '0000000E'X ! Entry point definition Q(vectored)J PARAMETER OBJ$C_GSD_PROV = '0000000F'X ! Procedure definition (vectored)[ PARAMETER OBJ$C_GSD_SYMM = '00000010'X ! Global symbol definition (special double valued)Y PARAMETER OBJ$C_GSD_EPMM = '00000011'X ! Entry point definition (special double valued)W PARAMETER OBJ$C_GSD_PROM = '00000012'X ! Procedure definition (special double valued)= PARAMETER OBJ$C_TIR = '00000002'X ! Text information record : PARAMETER OBJ$C_EOM = '00000003'X ! End of module record A PARAMETER OBJ$C_D RBG = '00000004'X ! Debugger information record B PARAMETER OBJ$C_TBT = '00000005'X ! Traceback information record ; PARAMETER OBJ$C_LNK = '00000006'X ! Linker options record K PARAMETER OBJ$C_EOMW = '00000007'X ! End of module record with word psect E PARAMETER OBJ$C_MAXRECTYP = '00000007'X ! Last assigned record type % PARAMETER OBJ$K_SUBTYP = '00000001'X% PARAMETER OBJ$C_SUBTYP = '00000001'XE PARAMETER OBJ$C_MAXRECSIZ = '00000800'X ! Maximum legal record size 8 PARAMETER OBJ$C_STRLVL S= '00000000'X ! Structure level > PARAMETER OBJ$C_SYMSIZ = '0000001F'X ! Maximum symbol length J PARAMETER OBJ$C_STOREPLIM = -1 ! Maximum repeat count on store commands D PARAMETER OBJ$C_PSCALILIM = '00000009'X ! Maximum p-sect alignment  STRUCTURE /OBJRECDEF/> BYTE OBJ$B_RECTYP ! First byte always record type ! Permissable record types 5 BYTE OBJ$B_SUBTYP ! Record sub-type byte 2 BYTE OBJ$B_MHD_STRLV ! Structure level UNION MAP: ITNTEGER*2 OBJ$W_MHD_RECSZ ! Maximum record size  END MAP MAP! BYTE %FILL(1:2)O ! unsupported type CHARACTER*0 OBJ$T_MHD_NAME ! Module name field ! Misc. constants  END MAP END UNION END STRUCTURE ! OBJRECDEFCDEC$ END OPTIONS wwM&!*** MODULE $OPCDEF ***CDEC$ OPTIONS /NOALIGN: PARAMETER OPC$_RQ_TERME = '00000001'X ! ENABLE TERMINAL < PARAMETER OPC$_RQ_LOGI = '00000002'X ! INITIALIZE THE LOG : PAR UAMETER OPC$_RQ_RQST = '00000003'X ! OPERATOR REQUEST 9 PARAMETER OPC$_RQ_REPLY = '00000004'X ! OPERATOR REPLY : PARAMETER OPC$_RQ_CANCEL = '00000005'X ! CANCEL REQUEST C PARAMETER OPC$_RQ_STATUS = '00000006'X ! REQUEST OPERATOR STATUS I PARAMETER OPC$_RQ_SECURITY = '00000007'X ! MESSAGE TO SECURITY OPERATORG 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 V= '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 = '00000080'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_ WOPER2 = '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// BYTE OPC$B_MS_TYPE ! MESSAGE XTYPE 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_ENYAB_TERMINALS(1:3) END MAP END UNION UNION MAP0 INTEGER*4 OPC$L_MS_RPLYID ! REPLY ID  END MAP MAP UNION MAP7 INTEGER*4 OPC$L_MS_MASK ! MESSAGE MASK  END MAP MAP6 INTEGER*4 OPC$L_MS_RQSTID ! REQUEST ID  END MAP END UNION END MAP END UNION UNION MAP3 INTEGER*4 OPC$L_MS_TEXT ! MESSAGE TEXT Z 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 6 INTEGER*4 OPC$L_MS_OTEXT(1:32) ! OPERATOR TEXT UNION MAP7 INTEGER*4 OPC$L_MS_MAXSZ ! MESSAGE MAX SIZE  END MAP! OPERATOR MESSAGE TYPES MAP* PARAMETER OPC$S_NM_CENTRL = 1/ 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) 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) PARAMETER 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$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* PARAMET ^ER 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* 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_OPR_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_O `PR_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( PARAMETER 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( PARAMETERa 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( 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& P bARAMETER 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( PARAMETER 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& PARAMET cER 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' PARAMETER 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 d$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$V_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_USER1e0 = 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 ! OPC_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 f$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$_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& g 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'X& PARAMETER OPC$_X_CNXMAN = '00000015'X0 PARAMETER OPC$_X_REQUEST_END_MARK = '00000016'XV PARAMETER OPC$K_CLM__ACKNOWLEDGEMENT = '00000001'X ! Response to acknowledge requestd PARAMETER OPC$K_CLM__ACKNOWLEDGE_PLEASE = '00000002'X ! Request for remote nhode to announce itselfH PARAMETER OPC$K_CLM__CANCEL = '00000003'X ! Explicit cancel of request` PARAMETER OPC$K_CLM__CHECK_OPERATOR = '00000004'X ! Make sure this operator is in the database[ PARAMETER OPC$K_CLM__CHECK_REQUEST = '00000005'X ! Make sure a request is in the databaseX PARAMETER OPC$K_CLM__CLUMBX = '00000006'X ! Cluster mailbox message passed from cnxmanK PARAMETER OPC$K_CLM__CLUSTER = '00000007'X ! Cluster status change reportT PARAMETER OPC$K_CLM__DEVICE = '00000008'X ! Deivice message (on-line, off-line etc)M PARAMETER OPC$K_CLM__IMP_CANCEL = '00000009'X ! Implicitly cancel a requestQ PARAMETER OPC$K_CLM__IMP_DISABLE = '0000000A'X ! Implicitly disable an operatord PARAMETER OPC$K_CLM__OPRENABLE = '0000000B'X ! Tell everyone else to enable or disable an operatorD 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 = '00000j00E'X ! Operator requestn PARAMETER OPC$K_CLM__RPYBRD = '0000000F'X ! Message from OPCOM to remotes, info for cluster REPLY /TERM, etcg PARAMETER OPC$K_CLM__RPYBRD_LOCAL = '00000010'X ! Broadcast message from REPLY to OPCOM on local nodeA PARAMETER OPC$K_CLM__RPYNOT = '00000011'X ! Reply notificationsJ PARAMETER OPC$K_CLM__SECURITY = '00000012'X ! Security alarm from remoteD PARAMETER OPC$K_CLM__SHUTDOWN = '00000013'X ! Shut down operationsN PARAMETER OPC$K_CLM__LOGFILE = '00000014'X ! k Enable/disable logfile operator4 PARAMETER OPC$K_CLM__REQUEST_END_MARK = '00000015'X@ PARAMETER OPC$K_HDR_SIZE = '0000001A'X ! Size of common header STRUCTURE /HEADER_MESSAGE/. BYTE OPC$B_RQSTCODE ! Request code- BYTE OPC$B_SCOPE ! Request SCOPEB INTEGER*4 OPC$L_OPTIONS ! Request independent option bits. UNION MAPA INTEGER*4 OPC$L_RQ_OPTIONS ! Request dependent options END MAP MAPF BYTE OPC$B_RQO lPT_CODE ! a code byte and some fill BYTE %FILL INTEGER*2 %FILL END MAP END UNION8 INTEGER*4 OPC$L_ATTNMASK1 ! Attention mask part 18 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 = '000000m04'X STRUCTURE /HEADER_OPTIONS/ UNION MAP INTEGER*4 %FILL END MAP MAP" PARAMETER OPC$S_NOLOG = 1< PARAMETER OPC$V_NOLOG = 0 ! Do not log the action" PARAMETER OPC$S_NOBRD = 17 PARAMETER OPC$V_NOBRD = 1 ! Do not broadcast& PARAMETER OPC$S_NOCLUSTER = 1A PARAMETER OPC$V_NOCLUSTER = 2 ! Do not send to cluster BYTE %FILL (1) END MAP END UNION END STRUCTURE ! HEADER_OPTIONSP PARAMETER OPC$K_OPRENABnLE_MIN_SIZE = '0000001E'X ! Min message size header + 4 STRUCTURE /OPRENABLE_MESSAGE/ BYTE %FILL(1:26)Q ! unsupported type CHARACTER*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 /OPRENABLE_OPTIONS/ UNION MAP INTEGER*4 %FILL END MAP MAP$ PARAMETER OPC$S_DISABLE = 1$ P oARAMETER OPC$V_DISABLE = 0% PARAMETER OPC$S_PERMOPER = 1% PARAMETER OPC$V_PERMOPER = 1% PARAMETER OPC$S_NOREMIND = 1% PARAMETER OPC$V_NOREMIND = 2 BYTE %FILL (1) END MAP END UNION" END STRUCTURE ! OPRENABLE_OPTIONSN 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.9 PARAMETER OPC$K_CLOSELOG = '00000001'X ! Close logfile.Rp PARAMETER OPC$K_ENABLELOG = '00000002'X ! If no logfile is open, open a logfile.6! Add classes in ATTNMASK to logfile operator mask.c PARAMETER OPC$K_DISABLELOG = '00000003'X ! Remove classes in ATTNMASK from logfile operator mask.&! If mask goes to 0, close logfile.J PARAMETER OPC$K_MAX_LOGOPT = '00000004'X ! One more than maximum allowed STRUCTURE /LOGFILE_MESSAGE/A BYTE %FILL(1:26) ! Skip to request dependent optionsO ! unsupported type CHARACTER*0 OPC$T_LOGFILE_ qOPR ! Start of oper dev name END STRUCTURE ! LOGFILE_MESSAGEC PARAMETER OPC$K_REQUEST_MIN_SIZE = '0000001C'X ! Min message size STRUCTURE /REQUEST_MESSAGE/ BYTE %FILL(1:26)6 INTEGER*2 OPC$W_REQUEST_LENGTH ! Length of textG ! unsupported type CHARACTER*0 OPC$T_REQUEST_TEXT ! Start of text END STRUCTURE ! REQUEST_MESSAGED PARAMETER OPC$K_SECURITY_MIN_SIZE = '0000001C'X ! Min message size STRUCTURE /SECURITY_MESSAGE/ BYTE %FILL(1:26)7 INTEGER*2 OPC r$W_SECURITY_LENGTH ! Length of textH ! unsupported type CHARACTER*0 OPC$T_SECURITY_TEXT ! Start of text! END STRUCTURE ! SECURITY_MESSAGEA PARAMETER OPC$K_REPLY_MIN_SIZE = '00000020'X ! Min message size STRUCTURE /REPLY_MESSAGE/ BYTE %FILL(1:26)D ! unsupported type CHARACTER*0 OPC$T_REPLY_OPR ! Start of text END STRUCTURE ! REPLY_MESSAGEM PARAMETER OPC$K_STATUS_MIN_SIZE = '0000001E'X ! Min message size header + 4 STRUCTURE /STATUS_MESSAGE/ BYTE %FILL s(1:26)E ! unsupported type CHARACTER*0 OPC$T_STATUS_OPR ! Start of text END STRUCTURE ! STATUS_MESSAGEE PARAMETER OPC$K_TIMESTAMP_MIN_SIZE = '0000001A'X ! Min message size STRUCTURE /TIMESTAMP_MESSAGE/ BYTE %FILL(1:26)" END STRUCTURE ! TIMESTAMP_MESSAGED 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 /SHUTDOtWN_OPTIONS/ UNION MAP INTEGER*4 %FILL END MAP MAP$ PARAMETER OPC$S_CLUSTER = 1$ PARAMETER OPC$V_CLUSTER = 0 BYTE %FILL (1) END MAP END UNION! END STRUCTURE ! SHUTDOWN_OPTIONSB 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 /CANCEL_OPTIONS/ UNION MAP INTEGER*4 %FIuLL END MAP MAP% PARAMETER OPC$S_RQSTDONE = 1% PARAMETER OPC$V_RQSTDONE = 0 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! CANCEL_OPTIONSCDEC$ END OPTIONSww[u!*** MODULE $OPCMSG ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:47.91! 0! OPCMSG.MSG - SYSTEM DEFINITION FILE FOR OPCOM! ! VERSION: 'X-6'! ! * *5! * COPYRIGHT (C) 1978, 1980, 198 v2, 1984 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 OWwNERSHIP 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. *! * *! * *! ++! ,x! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES! ! ABSTRACT:! 4! THIS FILE CONTAINS THE SOURCE FOR OPCOM MESSAGES.! ! ENVIRONMENT:! ! N/A! ! --! ! 5! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976! ! MODIFIED BY:! .! X-6 RAB0172 RICHARD A. BISHOP 17-AUG-19938! PICK UP ADDITIONAL SHADOW/DUMPDISK CODES FROM ALPHA:! .! X-4 KDM0235 KATHLEEN D. MORSE 29-JUL-1993>! ADD NEW SHADOW MESSAGES: SHANODMP AND SHADMPOK FOR ALPHA.! 5! X-5 JJA92B05_1 JOHN Jy. ANDRUSZKIEWICZ 21-DEC-1992,! ALIGN TO EXPECTED VSC GENERATION NUMBER.2! MOVE THOSE VOLUME SHADOWING PHASE II MESSAGES.! 4! X-10 JJA92B05 JOHN J. ANDRUSZKIEWICZ 14-DEC-1992+! ADD VOLUME SHADOWING PHASE II MESSAGES.! %! 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 WES0235 WILLIAM E. SNAMAN 08-JAN-1988!! FIX SPACING ERROR IN MzESSAGE.! .! 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-19877! 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 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:414! FIX TEXT OF "counterfeit security alarm" MESSAGE! *! V03-011 CWH3011 CW HOBBS 18-MAY-19841! CHANGE THE IN OPREPLY TO A !/ DIRECTIVE.! /! V03-010 MHB0158 MARK BRAMHALL 7-MAY-1984&! FIX UP THE SECURITY ALARM MESSAGE.! )! V03-009 CWH3169 CW HOBBS 5-MAY-1984'! SECOND 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 MORE1! CLEAR WHEN MESSAGES COME FROM OTHER NODES.=! - REMOVE THE UDA50MVER AND TM78MVER MESSAGES AND REPLACE7! THEM WITH THE SINGLE, GENERIC CTLRUCODE MESSAGE.;! - ADD THE CLU_NOQUORUM CONNECTION MANAGER MESSAGE - IT#! WAS APPARENTLY NEVER PUT IN.! *! V03-008 CWH3008 CW HOBBS 12-APR-19842! CHANGE SOME OF THE CONNECTION MANAGER MESSAGES! 0! V03-007 RSH0114 R. SCOTT H}ANNA 12_MAR-1984(! CHANGE THE OPC$_COUNTERFEIT MESSAGE.! 0! 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 HOBBS 16-SEP-1983$! ADD CONNECTION MANAGER MESSAGES.! *! V03-002 CWH3001 CW HOBBS 30-JUL-19837! VARIOUS AND SUNDRY THINGS TO M~AKE OPCOM DISTRIBUTED! ACROSS THE CLUSTER.! 2! V03-001 RLRV3A1 ROBERT L. RAPPAPORT 5-APR-1982,! ADDED MSG$_UDA50MVER AND MSG$_DUPUNITNO.! 3! V02-006 STJ0180 STEVEN T. JEFFREYS, 07-JAN-19819! ADDED MVCOMPLETE AND MVABORTED MESSAGES, AND SLIGHTLY@! CHANGE THE TEST OF THE EXISTING MOUNT VERIFICATION MESSAGES.! 3! V02-005 STJ0079 STEVEN T. JEFFREYS, 31-JUL-1981.! ADDED BLANK MESSAGE FOR THE MAG. TAPE ACP.! 3! V02-004 STJ0063 STEVEN T. JEFFREYS, 14-JUL-1981&! AD DED AN ALTERNATE CANCEL MESSAGE.6! ADDED AN INITIALIZE MESSAGE FOR THE MAG. TAPE ACP.2! ADDED MESSAGES FOR MOUNT VERIFICATION SUPPORT.! 3! V02-003 STJ0042 STEVEN T. JEFFREYS, 22-MAY-19818! CHANGE FORMAT OF RQSTCMPLTE, RQSTABORT, AND RQSTPEND5! TO BE ENABLE EXISTING CODE TO PARSE THE MESSAGES.! 3! V02-002 STJ0028 STEVEN T. JEFFREYS, 29-MAR-19818! 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 = '00058034'X& PARAMETER OPC$_TERMFAIL = '0005803C'X( PARAMETER OPC$_NOSUCHRQST = '00058044'X( PARAMETER OPC$_DEVOFFLINE = '0005804C'X' PARAMETER OPC$_DEVONLINE = '00058054'X# PAR AMETER 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% PARAMETER OPC$_LOGTIME = '00058099'X% PARAMETER OPC$_LOGCLOS = '000580A4'X% PARAMETER OPC$_USERQST = '000580AB'X% PARAMETER OPC$_USERMSG = '000580B3'X$ PARAMETER OPC$_LOGSTS = '00 0580BB'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! L! THE FOLLOWING MESSAGES GIVE THE ASCII TEXT FOR THE OPERATOR TYPES. IT ISL! POSSIBLE TO CHANGE THE MESSAGE TEXT TO ANYTHING DESIRED. FOR EXAMPLE, ANJ! INSTALLATION MIGHT WANT TO CALL OPER12 BY ANOTH ER NAME, SAY FRONT_DESK.?! THAT INSTALLATION WOULD CHANGE THE LINE WITH OPER12 TO READ:! ! OPER12 ! V! AFTERWARDS, USERS ON THAT SYSTEM COULD REPLY /ENABLE=FRONT_DESK, REQUEST /TO=FRONT,T! A FRONT_DESK OPERATOR COULD DO A REPLY /STAT AND SEE THAT FRONT_DESK WAS ENABLED.R! OF COURSE, A PROGRAMMER ON THAT SYSTEM WOULD USE THE SYMBOL OPC$_OPER12 TO SENDJ! 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$ PARAMETER OPC$_OPER11 = '000581AB'X$ PARAMETER OPC$_OPER12 = '000581B3'X! ( PARAMETER OPC$_DEVOFFLINX = '000581BB'X& PARAMETER OPC$_WRONGVOL = '000581C3'X' PARAMETER OPC$_DEVWRTLCK = '000581CB'X! % P ARAMETER 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) PARAMETER 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 = '00058 22B'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+ PARAMETER 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 OPC$_RQST_PROMPT = '000582BB'X( PARAMETER OPC$_NOLCLBROAD = '000582C0'X( PARAMETER OPC$_NOREMBROAD = '000582C8'X' PARAMETER OPC$_NOREMWAIT = '000582D0'X! ! CLUSTER MAILBOX MESSAGES! FAO PARAMETER L IST IS:! '! TIMESTAMP - POINTER TO QUADWORD TIME-! LSYSNAML - LENGTH OF NAME OF LOCAL SYSTEM.! LSYSNAMA - ADDRESS OF NAME OF LOCAL SYSTEM1! LSYSIDW - HIGH ORDER WORD OF LOCAL SYSTEM ID4! LSYSIDL - LOW ORDER LONGWORD OF LOCAL SYSTEM ID ! LCSID - LOCAL SYSTEM CSID.! RSYSNAML - LENGTH OF NAME OF REMOTE SYSTEM/! RSYSNAMA - ADDRESS OF NAME OF REMOTE SYSTEM2! RSYSIDW - HIGH ORDER WORD OF REMOTE SYSTEM ID5! RSYSIDL - LOW ORDER LONGWORD OF REMOTE SYSTEM ID!! RCSID - REMOTE SYSTEM CSID! ;! MESSAGES USE THE "!+" DIRECTIVE TO SKIP OVER ITEMS WHICH9! 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 = '000582EB'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( PARAM ETER 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_LOSTDISK = '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_DISKTIMEOU T = '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'X3!  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' PARAMETER OPC$_SHANOBPOK = '00058453'X' PARAMETER OPC$_SHABDMPOK = '0005845B'X' PARAMETER OPC$_BOOTDMPOK = '00058463'X& PARAMETER OPC$_SHABDBCK = '0005846B'X& PARAMETER OPC$_SHANODMP = '00058473'X& PARAMETER OPC$_SHADMPOK = '0005847B'XCDEC$ END OPTIONSwwD!*** MODULE $OPDEF ***CDEC$ OPTIONS /NOALIGN! PARAMETER OP$_HALT = '00000000'X PARAMETER OP$_NOP = '00000001'X PARAMETER OP$_REI = '00000002'X PARAMETER OP$_BPT = '00000003'X PARAMETER OP$_RET = '00000004'X PARAMETER OP$_RSB = '00000005'X# PARAMETER OP$_LDPCTX = '00000006'X# PARAMETER OP$_SVPCTX = '00000007'X" PARAMETER OP$_CVTPS = '00000008'X" PARAMETER OP$_CVTSP = '00000009'X" PARAMETER OP$_INDEX = '0000000A'X PARAMETER OP$_CRC = '0000000B'X# PARAMETER OP$_PROBER = '0000000C'X# PARAMETER OP$_PROBEW = '0000000D'X# PARAMETER OP$_INSQUE = '0000000E'X# PARAMETER OP$_REMQUE = '0000000F'X! PARAMETER OP$_BSBB = '00000010'X PARAMETER OP$_BSB = '00000010'X PARAMETER OP$_BRB = '00000011'X! PARAMETER OP$_BNEQ = '00000012'X" PARAMETER OP$_BNEQU = '00000012'X! PARAMETER OP$_BEQL = '00000013'X" PARAMETER OP$_BEQLU = '00000013'X! PARAMETER OP$_BGTR = '00000014'X! PARAMETER OP$_BLEQ = '00000015'X PARAMETER OP$_JSB = '00000016'X PARAMETER OP$_JMP = '00000017'X! PARAMETER OP$_BGEQ = '00000018'X! PARAMETER OP$_BLSS = '00000019'X" PARAMETER OP$_BGTRU = '0000001A'X" PARAMETER OP$_BLEQU = '0000001B'X PARAMETER OP$_BVC = '0000001C'X PARAMETER OP$_BVS = '0000001D'X" PARAMETER OP$_BGEQU = '0000001E'X PARAMETER OP$_BCC = '0000001E'X" PARAMETER OP$_BLSSU = '0000001F'X PARAMETER OP$_BCS = '0000001F'X" PARAMETER OP$_ADDP4 = '00000020'X! PARAMETER OP$_ADDP = '00000020'X" PARAMETER OP$_ADDP6 = '00000021'X" PARAMETER OP$_SUBP4 = '00000022'X! PARAMETER OP$_SUBP = '00000022'X" PARAMETER OP$_SUBP6 = '00000023'X" PARAMETER OP$_CVTPT = '00000024'X! PARAMETER OP$_MULP = '00000025'X" PARAMETER OP$_CVTTP = '00000026'X! PARAMETER OP$_DIVP = '00000027'X" PARAMETER OP$_MOVC3 = '00000028'X! PARAMETER OP$_MOVC = '00000028'X" PARAMETER OP$_CMPC3 = '00000029'X! PARAMETER OP$_CMPC = '00000029'X" PARAMETER OP$_SCANC = '0000002A'X" PARAMETER OP$_SPANC = '0000002B'X" PARAMETER OP$_MOVC5 = '0000002C'X" PARAMETER OP$_CMPC5 = '0000002D'X" PARAMETER OP$_MOVTC = '0000002E'X# PARAMETER OP$_MOVTUC = '0000002F'X! PARAMETER OP$_BSBW = '00000030'X PARAMETER OP$_BRW = '00000031'X! BR,^X31" PARAMETER OP$_CVTWL = '00000032'X" PARAMETER OP$_CVTWB = '00000033'X! PARAMETER OP$_MOVP = '00000034'X" PARAMETER OP$_CMPP3 = '00000035'X! PARAMETER OP$_CMPP = '00000035'X" PARAMETER OP$_CVTPL = '00000036'X" PARAMETER OP$_CMPP4 = '00000037'X# PARAMETER OP$_EDITPC = '00000038'X# PARAMETER OP$_MATCHC = '00000039'X! PARAMETER OP$_LOCC = '0000003A'X! PARAMETER OP$_SKPC = '0000003B'X# PARAMETER OP$_MOVZWL = '0000003C'X! PARAMETER OP$_ACBW = '0000003D'X" PARAMETER OP$_MOVAW = '0000003E'X# PARAMETER OP$_PUSHAW = '0000003F'X" PARAMETER OP$_ADDF2 = '00000040'X! PARAMETER OP$_ADDF = '00000040'X" PARAMETER OP$_ADDF3 = '00000041'X" PARAMETER OP$_SUBF2 = '00000042'X! PARAMETER OP$_SUBF = '00000042'X" PARAMETER OP$_SUBF3 = '00000043'X" PARAMETER OP$_MULF2 = '00000044'X! PARAMETER OP$_MULF = '00000044'X" PARAMETER OP$_MULF3 = '00000045'X" PARAMETER OP$_DIVF2 = '00000046'X! PARAMETER OP$_DIVF = '00000046'X" PARAMETER OP$_DIVF3 = '00000047'X" PARAMETER OP$_CVTFB = '00000048'X" PARAMETER OP$_CVTFW = '00000049'X" PARAMETER OP$_CVTFL = '0000004A'X# PARAMETER OP$_CVTRFL = '0000004B'X" PARAMETER OP$_CVTBF = '0000004C'X" PARAMETER OP$_CVTWF = '0000004D'X" PARAMETER OP$_CVTLF = '0000004E'X! PARAMETER OP$_ACBF = '0000004F'X! PARAMETER OP$_MOVF = '00000050'X! PARAMETER OP$_CMPF = '00000051'X" PARAMETER OP$_MNEGF = '00000052'X! PARAMETER OP$_TSTF = '00000053'X" PARAMETER OP$_EMODF = '00000054'X" PARAMETER OP$_POLYF = '00000055'X" PARAMETER OP$_CVTFD = '00000056'X! RESERVED 57" PARAMETER OP$_ADAWI = '00000058'X! RESERVED 59! RESERVED 5A! RESERVED 5B# PARAMETER OP$_INSQHI = '0000005C'X# PARAMETER OP$_INSQTI = '0000005D'X# PARAMETER OP$_REMQHI = '0000005E'X# PARAMETER OP$_REMQTI = '0000005F'X" PARAMETER OP$_ADDD2 = '00000060'X! PARAMETER OP$_ADDD = '00000060'X" PARAMETER OP$_ADDD3 = '00000061'X" PARAMETER OP$_SUBD2 = '00000062'X! PARAMETER OP$_SUBD = '00000062'X" PARAMETER OP$_SUBD3 = '00000063'X" PARAMETER OP$_MULD2 = '00000064'X! PARAMETER OP$_MULD = '00000064'X" PARAMETER OP$_MULD3 = '00000065'X" PARAMETER OP$_DIVD2 = '00000066'X! PARAMETER OP$_DIVD = '00000066'X" PARAMETER OP$_DIVD3 = '00000067'X" PARAMETER OP$_CVTDB = '00000068'X" PARAMETER OP$_CVTDW = '00000069'X" PARAMETER OP$_CVTDL = '0000006A'X# PARAMETER OP$_CVTRDL = '0000006B'X" PARAMETER OP$_CVTBD = '0000006C'X" PARAMETER OP$_CVTWD = '0000006D'X" PARAMETER OP$_CVTLD = '0000006E'X! PARAMETER OP$_ACBD = '0000006F'X! PARAMETER OP$_MOVD = '00000070'X! PARAMETER OP$_CMPD = '00000071'X" PARAMETER OP$_MNEGD = '00000072'X! PARAMETER OP$_TSTD = '00000073'X" PARAMETER OP$_EMODD = '00000074'X" PARAMETER OP$_POLYD = '00000075'X" PARAMETER OP$_CVTDF = '00000076'X! RESERVED 77! PARAMETER OP$_ASHL = '00000078'X! PARAMETER OP$_ASHQ = '00000079'X! PARAMETER OP$_EMUL = '0000007A'X! PARAMETER OP$_EDIV = '0000007B'X! PARAMETER OP$_CLRQ = '0000007C'X! PARAMETER OP$_CLRD = '0000007C'X! PARAMETER OP$_CLRG = '0000007C'X! PARAMETER OP$_MOVQ = '0000007D'X" PARAMETER OP$_MOVAQ = '0000007E'X" PARAMETER OP$_MOVAD = '0000007E'X" PARAMETER OP$_MOVAG = '0000007E'X# PARAMETER OP$_PUSHAQ = '0000007F'X# PARAMETER OP$_PUSHAD = '0000007F'X# PARAMETER OP$_PUSHAG = '0000007F'X" PARAMETER OP$_ADDB2 = '00000080'X! PARAMETER OP$_ADDB = '00000080'X" PARAMETER OP$_ADDB3 = '00000081'X" PARAMETER OP$_SUBB2 = '00000082'X! PARAMETER OP$_SUBB = '00000082'X" PARAMETER OP$_SUBB3 = '00000083'X" PARAMETER OP$_MULB2 = '00000084'X! PARAMETER OP$_MULB = '00000084'X" PARAMETER OP$_MULB3 = '00000085'X" PARAMETER OP$_DIVB2 = '00000086'X! PARAMETER OP$_DIVB = '00000086'X" PARAMETER OP$_DIVB3 = '00000087'X" PARAMETER OP$_BISB2 = '00000088'X! PARAMETER OP$_BISB = '00000088'X" PARAMETER OP$_BISB3 = '00000089'X" PARAMETER OP$_BICB2 = '0000008A'X! PARAMETER OP$_BICB = '0000008A'X" PARAMETER OP$_BICB3 = '0000008B'X" PARAMETER OP$_XORB2 = '0000008C'X! PARAMETER OP$_XORB = '0000008C'X" PARAMETER OP$_XORB3 = '0000008D'X" PARAMETER OP$_MNEGB = '0000008E'X" PARAMETER OP$_CASEB = '0000008F'X! PARAMETER OP$_MOVB = '00000090'X! PARAMETER OP$_CMPB = '00000091'X" PARAMETER OP$_MCOMB = '00000092'X! PARAMETER OP$_BITB = '00000093'X! PARAMETER OP$_CLRB = '00000094'X! PARAMETER OP$_TSTB = '00000095'X! PARAMETER OP$_INCB = '00000096'X! PARAMETER OP$_DECB = '00000097'X" PARAMETER OP$_CVTBL = '00000098'X" PARAMETER OP$_CVTBW = '00000099'X# PARAMETER OP$_MOVZBL = '0000009A'X# PARAMETER OP$_MOVZBW = '0000009B'X! PARAMETER OP$_ROTL = '0000009C'X! PARAMETER OP$_ACBB = '0000009D'X" PARAMETER OP$_MOVAB = '0000009E'X# PARAMETER OP$_PUSHAB = '0000009F'X" PARAMETER OP$_ADDW2 = '000000A0'X! PARAMETER OP$_ADDW = '000000A0'X" PARAMETER OP$_ADDW3 = '000000A1'X" PARAMETER OP$_SUBW2 = '000000A2'X! PARAMETER OP$_SUBW = '000000A2'X" PARAMETER OP$_SUBW3 = '000000A3'X" PARAMETER OP$_MULW2 = '000000A4'X! PARAMETER OP$_MULW = '000000A4'X" PARAMETER OP$_MULW3 = '000000A5'X" PARAMETER OP$_DIVW2 = '000000A6'X! PARAMETER OP$_DIVW = '000000A6'X" PARAMETER OP$_DIVW3 = '000000A7'X" PARAMETER OP$_BISW2 = '000000A8'X! PARAMETER OP$_BISW = '000000A8'X" PARAMETER OP$_BISW3 = '000000A9'X" PARAMETER OP$_BICW2 = '000000AA'X! PARAMETER OP$_BICW = '000000AA'X" PARAMETER OP$_BICW3 = '000000AB'X" PARAMETER OP$_XORW2 = '000000AC'X! PARAMETER OP$_XORW = '000000AC'X" PARAMETER OP$_XORW3 = '000000AD'X" PARAMETER OP$_MNEGW = '000000AE'X" PARAMETER OP$_CASEW = '000000AF'X! PARAMETER OP$_MOVW = '000000B0'X! PARAMETER OP$_CMPW = '000000B1'X" PARAMETER OP$_MCOMW = '000000B2'X! PARAMETER OP$_BITW = '000000B3'X! PARAMETER OP$_CLRW = '000000B4'X! PARAMETER OP$_TSTW = '000000B5'X! PARAMETER OP$_INCW = '000000B6'X! PARAMETER OP$_DECW = '000000B7'X# PARAMETER OP$_BISPSW = '000000B8'X# PARAMETER OP$_BICPSW = '000000B9'X! PARAMETER OP$_POPR = '000000BA'X" PARAMETER OP$_PUSHR = '000000BB'X! PARAMETER OP$_CHMK = '000000BC'X! PARAMETER OP$_CHME = '000000BD'X! PARAMETER OP$_CHMS = '000000BE'X! PARAMETER OP$_CHMU = '000000BF'X" PARAMETER OP$_ADDL2 = '000000C0'X! PARAMETER OP$_ADDL = '000000C0'X" PARAMETER OP$_ADDL3 = '000000C1'X" PARAMETER OP$_SUBL2 = '000000C2'X! PARAMETER OP$_SUBL = '000000C2'X" PARAMETER OP$_SUBL3 = '000000C3'X" PARAMETER OP$_MULL2 = '000000C4'X! PARAMETER OP$_MULL = '000000C4'X" PARAMETER OP$_MULL3 = '000000C5'X" PARAMETER OP$_DIVL2 = '000000C6'X! PARAMETER OP$_DIVL = '000000C6'X" PARAMETER OP$_DIVL3 = '000000C7'X" PARAMETER OP$_BISL2 = '000000C8'X! PARAMETER OP$_BISL = '000000C8'X" PARAMETER OP$_BISL3 = '000000C9'X" PARAMETER OP$_BICL2 = '000000CA'X! PARAMETER OP$_BICL = '000000CA'X" PARAMETER OP$_BICL3 = '000000CB'X" PARAMETER OP$_XORL2 = '000000CC'X! PARAMETER OP$_XORL = '000000CC'X" PARAMETER OP$_XORL3 = '000000CD'X" PARAMETER OP$_MNEGL = '000000CE'X" PARAMETER OP$_CASEL = '000000CF'X! PARAMETER OP$_MOVL = '000000D0'X! PARAMETER OP$_CMPL = '000000D1'X" PARAMETER OP$_MCOML = '000000D2'X! PARAMETER OP$_BITL = '000000D3'X! PARAMETER OP$_CLRL = '000000D4'X! PARAMETER OP$_CLRF = '000000D4'X! PARAMETER OP$_TSTL = '000000D5'X! PARAMETER OP$_INCL = '000000D6'X! PARAMETER OP$_DECL = '000000D7'X! PARAMETER OP$_ADWC = '000000D8'X! PARAMETER OP$_SBWC = '000000D9'X! PARAMETER OP$_MTPR = '000000DA'X! PARAMETER OP$_MFPR = '000000DB'X# PARAMETER OP$_MOVPSL = '000000DC'X" PARAMETER OP$_PUSHL = '000000DD'X! PARAMETER OP$_POPL = '00008ED0'X" PARAMETER OP$_MOVAL = '000000DE'X" PARAMETER OP$_MOVAF = '000000DE'X# PARAMETER OP$_PUSHAL = '000000DF'X# PARAMETER OP$_PUSHAF = '000000DF'X PARAMETER OP$_BBS = '000000E0'X PARAMETER OP$_BBC = '000000E1'X! PARAMETER OP$_BBSS = '000000E2'X! PARAMETER OP$_BBCS = '000000E3'X! PARAMETER OP$_BBSC = '000000E4'X! PARAMETER OP$_BBCC = '000000E5'X" PARAMETER OP$_BBSSI = '000000E6'X" PARAMETER OP$_BBCCI = '000000E7'X! PARAMETER OP$_BLBS = '000000E8'X! PARAMETER OP$_BLBC = '000000E9'X PARAMETER OP$_FFS = '000000EA'X PARAMETER OP$_FFC = '000000EB'X! PARAMETER OP$_CMPV = '000000EC'X" PARAMETER OP$_CMPZV = '000000ED'X! PARAMETER OP$_EXTV = '000000EE'X" PARAMETER OP$_EXTZV = '000000EF'X! PARAMETER OP$_INSV = '000000F0'X! PARAMETER OP$_ACBL = '000000F1'X# PARAMETER OP$_AOBLSS = '000000F2'X# PARAMETER OP$_AOBLEQ = '000000F3'X# PARAMETER OP$_SOBGEQ = '000000F4'X# PARAMETER OP$_SOBGTR = '000000F5'X" PARAMETER OP$_CVTLB = '000000F6'X" PARAMETER OP$_CVTLW = '000000F7'X! PARAMETER OP$_ASHP = '000000F8'X" PARAMETER OP$_CVTLP = '000000F9'X" PARAMETER OP$_CALLG = '000000FA'X" PARAMETER OP$_CALLS = '000000FB'X PARAMETER OP$_XFC = '000000FC'X! PARAMETER OP$_ESCD = '000000FD'X! PARAMETER OP$_ESCE = '000000FE'X! PARAMETER OP$_ESCF = '000000FF'X! PARAMETER OP$_BUGW = '0000FEFF'X! PARAMETER OP$_BUGL = '0000FDFF'X" PARAMETER OP$_CVTDH = '000032FD'X" PARAMETER OP$_CVTGF = '000033FD'X" PARAMETER OP$_ADDG2 = '000040FD'X" PARAMETER OP$_ADDG3 = '000041FD'X" PARAMETER OP$_SUBG2 = '000042FD'X" PARAMETER OP$_SUBG3 = '000043FD'X" PARAMETER OP$_MULG2 = '000044FD'X" PARAMETER OP$_MULG3 = '000045FD'X" PARAMETER OP$_DIVG2 = '000046FD'X" PARAMETER OP$_DIVG3 = '000047FD'X" PARAMETER OP$_ADDH2 = '000060FD'X" PARAMETER OP$_ADDH3 = '000061FD'X" PARAMETER OP$_SUBH2 = '000062FD'X" PARAMETER OP$_SUBH3 = '000063FD'X" PARAMETER OP$_MULH2 = '000064FD'X" PARAMETER OP$_MULH3 = '000065FD'X" PARAMETER OP$_DIVH2 = '000066FD'X" PARAMETER OP$_DIVH3 = '000067FD'X" PARAMETER OP$_CVTGB = '000048FD'X" PARAMETER OP$_CVTGW = '000049FD'X" PARAMETER OP$_CVTGL = '00004AFD'X# PARAMETER OP$_CVTRGL = '00004BFD'X" PARAMETER OP$_CVTBG = '00004CFD'X" PARAMETER OP$_CVTWG = '00004DFD'X" PARAMETER OP$_CVTLG = '00004EFD'X! PARAMETER OP$_ACBG = '00004FFD'X" PARAMETER OP$_CVTHB = '000068FD'X" PARAMETER OP$_CVTHW = '000069FD'X" PARAMETER OP$_CVTHL = '00006AFD'X# PARAMETER OP$_CVTRHL = '00006BFD'X" PARAMETER OP$_CVTBH = '00006CFD'X" PARAMETER OP$_CVTWH = '00006DFD'X" PARAMETER OP$_CVTLH = '00006EFD'X! PARAMETER OP$_ACBH = '00006FFD'X! PARAMETER OP$_MOVG = '000050FD'X! PARAMETER OP$_CMPG = '000051FD'X" PARAMETER OP$_MNEGG = '000052FD'X! PARAMETER OP$_TSTG = '000053FD'X" PARAMETER OP$_EMODG = '000054FD'X" PARAMETER OP$_POLYG = '000055FD'X" PARAMETER OP$_CVTGH = '000056FD'X! PARAMETER OP$_MOVH = '000070FD'X! PARAMETER OP$_CMPH = '000071FD'X" PARAMETER OP$_MNEGH = '000072FD'X! PARAMETER OP$_TSTH = '000073FD'X" PARAMETER OP$_EMODH = '000074FD'X" PARAMETER OP$_POLYH = '000075FD'X" PARAMETER OP$_CVTHG = '000076FD'X! CLRG,^X7C! PARAMETER OP$_CLRH = '00007CFD'X! PARAMETER OP$_CLRO = '00007CFD'X! PARAMETER OP$_MOVO = '00007DFD'X" PARAMETER OP$_MOVAH = '00007EFD'X" PARAMETER OP$_MOVAO = '00007EFD'X# PARAMETER OP$_PUSHAH = '00007FFD'X# PARAMETER OP$_PUSHAO = '00007FFD'X" PARAMETER OP$_CVTFH = '000098FD'X" PARAMETER OP$_CVTFG = '000099FD'X" PARAMETER OP$_CVTHF = '0000F6FD'X" PARAMETER OP$_CVTHD = '0000F7FD'XCDEC$ END OPTIONSww7)!*** MODULE $OPRDEF ***CDEC$ OPTIONS /NOALIGN! +K! 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 9 PARAMETER OPR$_ OPRQST = '00000003'X ! OPERATOR REQUEST 8 PARAMETER OPR$_OPREPLY = '00000004'X ! OPERATOR REPLY & PARAMETER OPR$M_CENTRAL = '00000001'X& PARAMETER OPR$M_PRINTER = '00000002'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% PARAMETER OPR$M_USER11 = '04000000'X% PARAMETER OPR$M_USER12 = '08000000'X" STRUCTURE /OPRDEF/ ! Obsolete. UNION MAP$ PARAMETER OPR$S_CENTRAL = 12 PARAMETER OPR$V_CENTRAL = 0 ! Obsolete.$ PARAMETER OPR$S_PRINTER = 12 PARAMETER OPR$V_PRINTER = 1 ! Obsolete." PARAMETER  OPR$S_TAPES = 10 PARAMETER OPR$V_TAPES = 2 ! Obsolete." PARAMETER OPR$S_DISKS = 10 PARAMETER OPR$V_DISKS = 3 ! Obsolete.$ PARAMETER OPR$S_DEVICES = 12 PARAMETER OPR$V_DEVICES = 4 ! Obsolete.# PARAMETER OPR$S_USER1 = 120 PARAMETER OPR$V_USER1 = 5 ! Obsolete." PARAMETER OPR$S_USER2 = 11 PARAMETER OPR$V_USER2 = 17 ! Obsolete." PARAMETER OPR$S_USER3 = 11 PARAMETER OPR$V_USER3 = 18 ! Obsolete. " PARAMETER OPR$S_USER4 = 11 PARAMETER OPR$V_USER4 = 19 ! Obsolete." PARAMETER OPR$S_USER5 = 11 PARAMETER OPR$V_USER5 = 20 ! Obsolete." PARAMETER OPR$S_USER6 = 11 PARAMETER OPR$V_USER6 = 21 ! Obsolete." PARAMETER OPR$S_USER7 = 11 PARAMETER OPR$V_USER7 = 22 ! Obsolete." PARAMETER OPR$S_USER8 = 11 PARAMETER OPR$V_USER8 = 23 ! Obsolete." PARAMETER OPR$S_USER9 = 11 PARAMETER OPR$V_USER9 = 24 ! Obsolete.# PARAMETER OPR$S_USER10 = 12 PARAMETER OPR$V_USER10 = 25 ! Obsolete.# PARAMETER OPR$S_USER11 = 12 PARAMETER OPR$V_USER11 = 26 ! Obsolete.# PARAMETER OPR$S_USER12 = 12 PARAMETER OPR$V_USER12 = 27 ! Obsolete. BYTE %FILL (4) END MAP END UNION END STRUCTURE ! OPRDEFCDEC$ END OPTIONS wwͷ:)!*** MODULE $OSSDEF ***CDEC$ OPTIONS /NOALIGN! ++! 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 = 17 PARAMETER OSS$V_RELCTX = 1 ! Release context" PARAMETER OSS$S_LOCAL = 1A PARAMETER OSS$V_LOCAL = 2 ! update local profile only  BYTE %FILL (1) END S TRUCTURE ! OSSDEF- PARAMETER OSS$_ACCESS_NAMES = '00000001'X ! 4 PARAMETER OSS$_ACCESS_NAMES_LENGTH = '00000002'X ! . PARAMETER OSS$_ACL_ADD_ENTRY = '00000003'X ! 1 PARAMETER OSS$_ACL_DELETE_ENTRY = '00000004'X ! + PARAMETER OSS$_ACL_DELETE = '00000005'X ! / PARAMETER OSS$_ACL_DELETE_ALL = '00000006'X ! / PARAMETER OSS$_ACL_FIND_ENTRY = '00000007'X ! . PARAMETER 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 ! 1 PARAMETER OSS$_ACL_MODIFY_ENTRY = '0000000C'X ! - PARAMETER OSS$_ACL_POSITION = '0000000D'X ! 1 PARAMETER OSS$_ACL_POSITION_TOP = '0000000E'X ! 4 PARAMETER OSS$_ACL_POSITION_BOTTOM = '0000000F'X ! / 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$_OWNE R = '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 ! / PARAMETER OSS$_FIRST_TEMPLATE = '0000001C'X ! . PARAMETER OSS$_NEXT_TEMPLATE = '0000001D'X ! , PARAMETER OSS$_OBJECT_NAME = '0000001E'X ! 2 PARAMETER OSS$_ACCESS_CLASS_NAME = '0000001F'X ! , PARAMETER OSS$_DAMAGE D_ACL = '00000020'X ! . PARAMETER OSS$_IN_TRANSITION = '00000021'X ! / PARAMETER OSS$_TRANQUILITY_COUNT = '00000022'X- 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) PARAMETER OSS$_ACL_READACE = '00000010'XCDEC$ END OPTIONS ww !*** MODULE $OTSDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:59.62! "! FILE: OTSMSG.MSG EDIT: SBL2003! ! * *5! * COPYRIGHT (C) 1978, 1980, 1982, 1984 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 A S 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. *! * *! * *! ! M! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM OTSMSG.MDL$! VERSION 1-009. SBL 22-APR-1981/! 2-002 - ADD OTS$_WRONUMARG. RKR 4-SEP-19812! 2-003 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982! --! +?! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:! ! OTS$_ABCMNOXYZ! L! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",N! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR3! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.! M! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR7! 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.8! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL;@! 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$)2! ; SET SUB-SYSTEM SPECIFIC 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$)3! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE WARNING)! ; SET LH TO 23 (DECIMAL) OTS$ PREFIX' PARAMETER OTS$_USEFLORES = '00178400'XCDEC$ END OPTIONSwwm><)!*** MODULE $PCCDEF ***CDEC$ OPTIONS /NOALIGN! +/! 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'X9 PARAMETER PCC$_FTN_SINGLE = '00000020'X ! SINGLE SPACE 9 PARAMETER PCC$_FTN_DOUBLE = '00000030'X ! DOUBLE SPACE 5 PARAMETER PCC$_FTN_PAGE = '00000031'X ! PAGE SPACE 7 PARAMETER PCC$_FTN_OVRPRT = '0000002B'X ! OVER PRINT 3 PARAMETER PCC$_FTN_PROMPT = '00000024'X ! PROMPT  STRUCTURE /PCCDEF/0 INTEGER*2 PCC$W_FORTRAN ! FORTRAN FIELD UNION MAP BYTE PCC$B_PREFIX END MAP MAP END MAP MAP END MAP END UNION UNION MAP4 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 = 1E PARAMETER PCC$V_EIGHTBIT = 6 ! EIGHTBIT CHARACTER SET ' PARAMETER PCC$S_SINGLE = 1' PARAMETER PCC$V_SINGLE = 73 BYTE %FILL (1) ! SINGLE CHARACTER  END MAP MAP( PARAMETER PCC$S_LINECNT = 7E PARAMETER PCC$V_LINECNT = 0 ! LINE COUNT FOR NEWLINES  BYTE %FILL (1) END MAP! FORTRAN CONSTANTS  END UNION END STRUCTURE ! PCCDEFCDEC$ END OPTIONS ww =)!*** MODULE $PLVDEF ***CDEC$ OPTIONS /NOALIGN! +'! PRIVILEGED LIBRARY VECTOR DEFINITION! -B PARAMETER PLV$C_TYP_CMOD = '00000001'X ! CHANGE MODE VECTOR TYPE = PARAMETER PLV$C_TYP_MSG = '00000002'X ! MESSAGE VECTOR TYPE  STRUCTURE /PLVDEF/: INTEGER*4 PLV$L_TYPE ! TYPE CODE FOR VECTOR FORMAT #! TYPE CODES FOR PRIVILEGE VECTORS 7 INTEGER*4 PLV$L_VERSION ! SYSTEM VERSION NUMBER UNION MAPK INTEGER*4 PLV$L_KERNEL ! SELF-REL PTR TO KERNEL MODE DISPATCHER  END MAP MAPG INTEGER*4 PLV$L_MSGDSP ! SELF-REL PTR TO MESSAGE DISPATCHER  END MAP END UNIONC INTEGER*4 PLV$L_EXEC ! SELF-REL PTR TO EXEC MODE DISPATCHER F INTEGER*4 PLV$L_USRUNDWN ! SELF-REL PTR TO USER RUNDOWN SERVICE : INTEGER*4 %FILL ! UNUSED, RESERVED FOR FUTURE USE E INTEGER*4 PLV$L_RMS ! SELF-REL PTR TO RMS SERVICES DISPATCHER F INTEGER*4 PLV$L_CHECK ! LONGWORD USED TO CHECK VIRTUAL ADDRESS ! LOCATION OF VECTOR END STRUCTURE ! PLVDEFCDEC$ END OPTIONS wwK?)!!*** MODULE $POSIX_SERVICEDEF ***CDEC$ OPTIONS /NOALIGN>! The following definitions are passed in the ctrl parameter.C PARAMETER POSIX$C_BLOCK_FORK = '00000001'X ! block fork executionG PARAMETER POSIX$C_UNBLOCK_FORK = '00000002'X ! unblock fork execution= PARAMETER POSIX$C_DISABLE_FORK = '00000003'X ! disable forkG PARAMETER POSIX$C_SETUP_CALLBACK = '00000004'X ! setup image callbackI PARAMETER POSIX$C_SYSTEM_CALLBACK = '00000005'X ! setup system callbackU PARAMETER POSIX$C_PROCESS_CALLBACK = '00000006'X ! setup process permanent callbackE PARAMETER POSIX$C_CANCEL_CALLBACK = '00000007'X ! cancel a callback? PARAMETER POSIX$C_CONTINUE = '00000008'X ! continue callbacksJ PARAMETER POSIX$C_TES T_CALLS = '00000009'X ! temporary value for testing* PARAMETER POSIX$C_MAX_CNTRL = '00000009'X* PARAMETER POSIX$K_MAX_CNTRL = '00000009'X! G! 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_AFTER_CHILD = '00000002'X0 PARAMETER POSIX$V_CALL_ON_FAILURE = '00000003'X6 PARAMETER POSIX$V_CALL_BEFORE_COPY_FAIL = '0000 0004'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 PARAMETER POSIX$M_CALL_IN_CHILD_FAIL = '00000020'X6 PARAMETER POSIX$M_CALL_AFTER_CHILD_FAIL = '00000040'XCDEC$ END OPTIONS wwM@)!*** MODULE $PQLDEF ***CDEC$ OPTIONS /NOALIGN! +! PROCESS QUOTA LIST CODES! -F PARAMETER PQL$_LISTEND = '00000000'X ! LIST END CODE (MUST BE FIRST) 0 PARAMETER PQL$_ASTLM = '00000001'X ! AST LIMIT 9 PARAMETER PQL$_BIOLM = '00000002'X ! BUFFERED I/O LIMIT B PARAMETER PQL$_BYTLM = '00000003'X ! BYTE LIMIT FOR BUFFERED I/O 5 PARAMETER PQL$_CPULM = '00000004'X ! CPU TIME LIMIT 7 PARAMETER PQL$_DIOLM = '00000005'X ! DIRECT I/O LIMIT 6 PARAMETER PQL$_FILLM = '00000006'X ! OPEN FILE LIMIT < PARAMETER PQL$_PGFLQUOTA = '00000007'X ! PAGING FILE QUOTA 8 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 4 PARAMETER PQL$_ENQLM = '0000000C'X ! ENQUEUE LIMIT B PARAMETER PQL$_WSEXTENT = '0000000D'X ! WORKING SET EXTENT LIMIT R PARAMETER PQL$_JTQUOTA = '0000000E'X ! JO B-WIDE LOGICAL NAME TABLE CREATION QUOTAG PARAMETER PQL$_LENGTH = '0000000F'X ! NUMBER OF QUOTAS (MUST BE LAST) CDEC$ END OPTIONS wwM@)!*** MODULE $PR009DEF ***CDEC$ OPTIONS /NOALIGNI PARAMETER PR009$_MCESR = '00000026'X ! MACHINE CHECK ERROR SUMMARY REG L PARAMETER PR009$_ACCS = '00000028'X ! ACCELERATOR CONTROL STATUS REGISTER B PARAMETER PR009$_IORESET = '00000037'X ! INITIALIZE BUS REGISTERA PARAMETER PR009$_PME = '0000003D'X ! PERFORMANCE MONITOR ENABLEK  PARAMETER PR009$_MEMSIZE = '00000064'X ! READ/WRITE MEMORY SIZE REGISTER = PARAMETER PR009$_KCALL = '00000065'X ! KERNEL CALL REGISTERCDEC$ END OPTIONS wwXB)!*** MODULE $PR1202DEF ***CDEC$ OPTIONS /NOALIGNF PARAMETER PR1202$_ICCS = '00000018'X ! Interval Clock Control/Status) PARAMETER PR1202_ICCS$M_IE = '00000040'X; PARAMETER PR1202$_TODR = '0000001B'X ! Time of Year ClockH PARAMETER PR1202$_RXCS = '00000020'X ! Console Receiver Control/Status, PARAMETER P R1202_RXCS$M_RX_IE = '00000040'X. PARAMETER PR1202_RXCS$M_RX_DONE = '00000080'XE PARAMETER PR1202$_RXDB = '00000021'X ! Console Receiver Data Buffer+ PARAMETER PR1202_RXDB$M_DATA = '000000FF'X. PARAMETER PR1202_RXDB$M_RCV_BRK = '00000800'X. PARAMETER PR1202_RXDB$M_FRM_ERR = '00002000'X. PARAMETER PR1202_RXDB$M_OVR_ERR = '00004000'X* PARAMETER PR1202_RXDB$M_ERR = '00008000'XH PARAMETER PR1202$_TXCS = '00000022'X ! Console Transmit Control/Status/ PARAMETER PR1202_TXCS$M_XMIT_BRK = '0000000 1'X/ PARAMETER PR1202_TXCS$M_LOOPBACK = '00000004'X, PARAMETER PR1202_TXCS$M_TX_IE = '00000040'X- PARAMETER PR1202_TXCS$M_TX_RDY = '00000080'XE PARAMETER PR1202$_TXDB = '00000023'X ! Console Transmit Data Buffer+ PARAMETER PR1202_TXDB$M_DATA = '000000FF'XF PARAMETER PR1202$_MCESR = '00000026'X ! Machine Check Error RegisterL PARAMETER PR1202$_ACCS = '00000028'X ! Floating Point Accelerator Register5 PARAMETER PR1202_ACCS$M_VECTOR_PRESENT = '00000001'X4 PARAMETER PR1202_ACCS$M_FCHIP_P RESENT = '00000002'X1 PARAMETER PR1202_ACCS$M_EADDR_MODE = '00000004'X8 PARAMETER PR1202_ACCS$M_WRITE_EVEN_PARITY = '80000000'X: PARAMETER PR1202$_SAVPC = '0000002A'X ! Console SAVED PC< PARAMETER PR1202$_SAVPSL = '0000002B'X ! Console SAVED PSL2 PARAMETER PR1202_SAVPSL$M_HALT_CODE = '00003F00'X0 PARAMETER PR1202_SAVPSL$M_INVALID = '00004000'X. PARAMETER PR1202_SAVPSL$M_MAPEN = '00008000'X@ PARAMETER PR1202$_TBTAG = '0000002F'X ! Translation Buffer Tag8 PARAMETER PR1202$_IORESET = '000000 37'X ! IO BUS RESETB PARAMETER PR1202$_TBDATA = '0000003B'X ! Translation Buffer DataG PARAMETER PR1202$_SID = '0000003E'X ! System Identification Register / PARAMETER PR1202_SID$M_UCODE_REV = '000000FF'X/ PARAMETER PR1202_SID$M_UCODE_OPT = '0000FF00'X. PARAMETER PR1202_SID$M_CPU_TYPE = 'FF000000'X. PARAMETER PR1202_XSID$M_ARCH_ID = '000000FF'X. PARAMETER PR1202_XSID$M_SYS_VAR = '0000FF00'X2 PARAMETER PR1202_XSID$M_CONSOLE_REV = '00FF0000'X/ PARAMETER PR1202_XSID$M_SYS_TYPE = 'FF000000' XE PARAMETER PR1202$_BCIDX = '00000070'X ! Backup Cache Index Register- PARAMETER PR1202_BCIDX$M_BCIDX = '0007FF80'X. PARAMETER PR1202_BCIDX$M_COLUMN = '00000780'X+ PARAMETER PR1202_BCIDX$M_ROW = '0007F800'XF PARAMETER PR1202$_BCSTS = '00000071'X ! Backup Cache Status Register3 PARAMETER PR1202_BCSTS$M_ERR_SUMMARY = '00000001'X1 PARAMETER PR1202_BCSTS$M_BTS_TPERR = '00000002'X2 PARAMETER PR1202_BCSTS$M_BTS_VDPERR = '00000004'X. PARAMETER PR1202_BCSTS$M_I_PERR = '00000030'X2 PARAMETER  PR1202_BCSTS$M_FILL_ABORT = '00000040'X/ PARAMETER PR1202_BCSTS$M_AC_PERR = '00000080'X2 PARAMETER PR1202_BCSTS$M_SECOND_ERR = '00000100'X/ PARAMETER PR1202_BCSTS$M_BTS_HIT = '00008000'X3 PARAMETER PR1202_BCSTS$M_BTS_COMPARE = '00010000'X+ PARAMETER PR1202_BCSTS$M_PPG = '00020000'X2 PARAMETER PR1202_BCSTS$M_PTS_PARITY = '000C0000'X2 PARAMETER PR1202_BCSTS$M_IBUS_CYCLE = '00100000'X0 PARAMETER PR1202_BCSTS$M_IBUS_CMD = '00200000'X/ PARAMETER PR1202_BCSTS$M_DAL_CMD = '03C00000'X- PARAMET ER PR1202_BCSTS$M_DMG_L = '04000000'X. PARAMETER PR1202_BCSTS$M_SYNC_L = '08000000'X1 PARAMETER PR1202_BCSTS$M_AC_PARITY = '10000000'X5 PARAMETER PR1202_BCSTS$M_OREAD_PENDING = '20000000'XG PARAMETER PR1202$_BCCTL = '00000072'X ! Backup Cache Control Register2 PARAMETER PR1202_BCCTL$M_FORCE_BHIT = '00000001'X2 PARAMETER PR1202_BCCTL$M_ENABLE_BTS = '00000002'X6 PARAMETER PR1202_BCCTL$M_BTS_ERROR_TRAN = '00000004'X3 PARAMETER PR1202_BCCTL$M_GEN_BAD_ACP = '00000008'X@ PARAMETER PR1202$_BCE RA = '00000073'X ! Error address register@ PARAMETER PR1202$_BCBTS = '00000074'X ! Backup Cache Tag Store- PARAMETER PR1202_BCBTS$M_VALID = '0000000F'X- PARAMETER PR1202_BCBTS$M_DIRTY = '000000F0'X1 PARAMETER PR1202_BCBTS$M_VD_PARITY = '00000100'X2 PARAMETER PR1202_BCBTS$M_TAG_PARITY = '00000200'X+ PARAMETER PR1202_BCBTS$M_TAG = '7FF80000'XA PARAMETER PR1202$_BCDET = '00000075'X ! Deallocate tag register= PARAMETER PR1202$_BCERT = '00000076'X ! Current parity bits- PARAMETER PR1202_ BCERT$M_VALID = '0000000F'X- PARAMETER PR1202_BCERT$M_DIRTY = '000000F0'X0 PARAMETER PR1202_BCERT$M_VD_DIRTY = '00000100'X2 PARAMETER PR1202_BCERT$M_TAG_PARITY = '00000200'X3 PARAMETER PR1202_BCERT$M_CACHE_ENTRY = '7FF80000'XG PARAMETER PR1202$_BC119 = '00000077'X ! Backup Cache Reserved ReisterG PARAMETER PR1202$_BC120 = '00000078'X ! Backup Cache Reserved ReisterG PARAMETER PR1202$_BC121 = '00000079'X ! Backup Cache Reserved ReisterG PARAMETER PR1202$_BC122 = '0000007A'X ! Backup C ache Reserved ReisterM PARAMETER PR1202$_VINTSR = '0000007B'X ! Vector Interface Error Status Reg.2 PARAMETER PR1202_VINTSR$M_VP_ABSENT = '00000001'X0 PARAMETER PR1202_VINTSR$M_VP_SERR = '00000002'X0 PARAMETER PR1202_VINTSR$M_VP_HERR = '00000004'X7 PARAMETER PR1202_VINTSR$M_VECTL_VIB_SERR = '00000008'X7 PARAMETER PR1202_VINTSR$M_VECTL_VIB_HERR = '00000010'X7 PARAMETER PR1202_VINTSR$M_CCHIP_VIB_SERR = '00000020'X7 PARAMETER PR1202_VINTSR$M_CCHIP_VIB_HERR = '00000040'X4 PARAMETER PR1202_ VINTSR$M_BUS_TIMEOUT = '00000080'X1 PARAMETER PR1202_VINTSR$M_VP_RESET = '00000100'X4 PARAMETER PR1202_VINTSR$M_DIS_VP_INTF = '00000200'X4 PARAMETER PR1202_VINTSR$M_BAD_DPARITY = '00000400'X4 PARAMETER PR1202_VINTSR$M_BAD_CPARITY = '00000800'XA PARAMETER PR1202$_PCTAG = '0000007C'X ! Primary Cache Tag Store- PARAMETER PR1202_PCTAG$M_VALID = '00000001'X+ PARAMETER PR1202_PCTAG$M_TAG = '7FFFF800'X. PARAMETER PR1202_PCTAG$M_PARITY = '80000000'XF PARAMETER PR1202$_PCIDX = '0000007D'X ! Prim ary Cache Index Register+ PARAMETER PR1202_PCIDX$M_IDX = '000007F8'XN PARAMETER PR1202$_PCERR = '0000007E'X ! Primary Cache Error Address RegisterG PARAMETER PR1202$_PCSTS = '0000007F'X ! Primary Cache Status Register1 PARAMETER PR1202_PCSTS$M_FORCE_HIT = '00000001'X2 PARAMETER PR1202_PCSTS$M_ENABLE_PTS = '00000002'X- PARAMETER PR1202_PCSTS$M_FLUSH = '00000004'X3 PARAMETER PR1202_PCSTS$M_P_CACHE_HIT = '00000010'X1 PARAMETER PR1202_PCSTS$M_INTERRUPT = '00000020'X- PARAMETER PR1202_PCST S$M_TRAP2 = '00000040'X- PARAMETER PR1202_PCSTS$M_TRAP1 = '00000080'X6 PARAMETER PR1202_PCSTS$M_TAG_PARITY_ERR = '00000100'X6 PARAMETER PR1202_PCSTS$M_DAL_PARITY_ERR = '00000200'X7 PARAMETER PR1202_PCSTS$M_DATA_PARITY_ERR = '00000400'X/ PARAMETER PR1202_PCSTS$M_BUS_ERR = '00000800'X3 PARAMETER PR1202_PCSTS$M_B_CACHE_HIT = '00001000'X STRUCTURE /PR1202DEF/ UNION MAP' PARAMETER PR1202_ICCS$S_IE = 1< PARAMETER PR1202_ICCS$V_IE = 6 ! Interrupt enable BYTE %FILL (1) END MAP MAP* PARAMETER PR1202_RXCS$S_RX_IE = 1> PARAMETER PR1202_RXCS$V_RX_IE = 6 ! Interrupt enable, PARAMETER PR1202_RXCS$S_RX_DONE = 1, PARAMETER PR1202_RXCS$V_RX_DONE = 7+ BYTE %FILL (1) ! Receiver done END MAP MAP) PARAMETER PR1202_RXDB$S_DATA = 8: PARAMETER PR1202_RXDB$V_DATA = 0 ! Received data, PARAMETER PR1202_RXDB$S_RCV_BRK = 1I PARAMETER PR1202_RXDB$V_RCV_BRK = 11 ! Bre ak or CTRL/P received, PARAMETER PR1202_RXDB$S_FRM_ERR = 1> PARAMETER PR1202_RXDB$V_FRM_ERR = 13 ! Framing error, PARAMETER PR1202_RXDB$S_OVR_ERR = 1> PARAMETER PR1202_RXDB$V_OVR_ERR = 14 ! Overrun error( PARAMETER PR1202_RXDB$S_ERR = 1) PARAMETER PR1202_RXDB$V_ERR = 15# BYTE %FILL (2) ! Error END MAP MAP- PARAMETER PR1202_TXCS$S_XMIT_BRK = 1? PARAMETER PR1202_TXCS$V_XMIT_BRK = 0 ! Transmit break-  PARAMETER PR1202_TXCS$S_LOOPBACK = 19 PARAMETER PR1202_TXCS$V_LOOPBACK = 2 ! Loopback* PARAMETER PR1202_TXCS$S_TX_IE = 1> PARAMETER PR1202_TXCS$V_TX_IE = 6 ! Interrupt enable+ PARAMETER PR1202_TXCS$S_TX_RDY = 1+ PARAMETER PR1202_TXCS$V_TX_RDY = 7/ BYTE %FILL (1) ! Transmitter ready END MAP MAP) PARAMETER PR1202_TXDB$S_DATA = 8) PARAMETER PR1202_TXDB$V_DATA = 0. BYTE %FILL (1) ! Data t o transmit END MAP MAP3 PARAMETER PR1202_ACCS$S_VECTOR_PRESENT = 1J PARAMETER PR1202_ACCS$V_VECTOR_PRESENT = 0 ! Vector unit present2 PARAMETER PR1202_ACCS$S_FCHIP_PRESENT = 1D PARAMETER PR1202_ACCS$V_FCHIP_PRESENT = 1 ! F-Chip present/ PARAMETER PR1202_ACCS$S_EADDR_MODE = 1M PARAMETER PR1202_ACCS$V_EADDR_MODE = 2 ! Selects 30-bit/32-bit mode6 PARAMETER PR1202_ACCS$S_WRITE_EVEN_PARITY = 17 PARAMETER PR1202_ACCS$V_WRITE_EVEN_PARITY = 31/ BYTE %FILL (1) ! Write even parity END MAP MAP0 PARAMETER PR1202_SAVPSL$S_HALT_CODE = 6= PARAMETER PR1202_SAVPSL$V_HALT_CODE = 8 ! Halt code. PARAMETER PR1202_SAVPSL$S_INVALID = 1D PARAMETER PR1202_SAVPSL$V_INVALID = 14 ! Saved PSL invalid, PARAMETER PR1202_SAVPSL$S_MAPEN = 1- PARAMETER PR1202_SAVPSL$V_MAPEN = 15) BYTE %FILL (1) ! Saved MAPEN END MAP MAP- PAR AMETER PR1202_SID$S_UCODE_REV = 8J PARAMETER PR1202_SID$V_UCODE_REV = 0 ! Microcode revision level - PARAMETER PR1202_SID$S_UCODE_OPT = 8A PARAMETER PR1202_SID$V_UCODE_OPT = 8 ! Microcode option, PARAMETER PR1202_SID$S_CPU_TYPE = 8- PARAMETER PR1202_SID$V_CPU_TYPE = 24: BYTE %FILL (3) ! CPU_TYPE (12 hex/18 decimal) END MAP ! XSID (SYS_TYPE) Register bits MAP, PARAMETER PR1202_XSID$S_ARCH_ID = 8@ PARAMETER P R1202_XSID$V_ARCH_ID = 0 ! Timeshare/Server, PARAMETER PR1202_XSID$S_SYS_VAR = 8> PARAMETER PR1202_XSID$V_SYS_VAR = 8 ! System Variant0 PARAMETER PR1202_XSID$S_CONSOLE_REV = 8P PARAMETER PR1202_XSID$V_CONSOLE_REV = 16 ! XMP console revision level - PARAMETER PR1202_XSID$S_SYS_TYPE = 8. PARAMETER PR1202_XSID$V_SYS_TYPE = 24. BYTE %FILL (4) ! System type (02) END MAP MAP UNION MAP4  PARAMETER PR1202_BCIDX$S_BCIDX = 12M PARAMETER PR1202_BCIDX$V_BCIDX = 7 ! Backup cache tag index BYTE %FILL (2) END MAP MAP4 PARAMETER PR1202_BCIDX$S_COLUMN = 4O PARAMETER PR1202_BCIDX$V_COLUMN = 7 ! Backup tag column index1 PARAMETER PR1202_BCIDX$S_ROW = 8J PARAMETER PR1202_BCIDX$V_ROW = 11 ! Backup tag row index BYTE %FILL (2) END MAP  END UNION END MAP MAP1 PARAMETER PR1202_BCSTS$S_ERR_SUMMARY = 1B PARAMETER PR1202_BCSTS$V_ERR_SUMMARY = 0 ! Error summary/ PARAMETER PR1202_BCSTS$S_BTS_TPERR = 1L PARAMETER PR1202_BCSTS$V_BTS_TPERR = 1 ! Parity error in tag field0 PARAMETER PR1202_BCSTS$S_BTS_VDPERR = 1K PARAMETER PR1202_BCSTS$V_BTS_VDPERR = 2 ! Parity error in V/D bit, PARAMETER PR1202_BCSTS$S_I_PERR = 2A PARAMETER PR1202_BCSTS$V_I_PERR =  4 ! IBUS parity error0 PARAMETER PR1202_BCSTS$S_FILL_ABORT = 1F PARAMETER PR1202_BCSTS$V_FILL_ABORT = 6 ! Cache fill aborted- PARAMETER PR1202_BCSTS$S_AC_PERR = 1M PARAMETER PR1202_BCSTS$V_AC_PERR = 7 ! Address/Command parity error0 PARAMETER PR1202_BCSTS$S_SECOND_ERR = 1H PARAMETER PR1202_BCSTS$V_SECOND_ERR = 8 ! Second error occured- PARAMETER PR1202_BCSTS$S_BTS_HIT = 1C PARAMETER PR1202_BCSTS$V_BTS_HIT = 15 ! Valid su block hit1 PARAMETER PR1202_BCSTS$S_BTS_COMPARE = 1O PARAMETER PR1202_BCSTS$V_BTS_COMPARE = 16 ! Results of tap comparison) PARAMETER PR1202_BCSTS$S_PPG = 1H PARAMETER PR1202_BCSTS$V_PPG = 17 ! Predicted parity generator0 PARAMETER PR1202_BCSTS$S_PTS_PARITY = 2L PARAMETER PR1202_BCSTS$V_PTS_PARITY = 18 ! Parity generated on tag0 PARAMETER PR1202_BCSTS$S_IBUS_CYCLE = 1N PARAMETER PR1202_BCSTS$V_IBUS_CYCLE = 20 ! Status regi ster is loaded. PARAMETER PR1202_BCSTS$S_IBUS_CMD = 1L PARAMETER PR1202_BCSTS$V_IBUS_CMD = 21 ! Invalidate command siganl- PARAMETER PR1202_BCSTS$S_DAL_CMD = 4B PARAMETER PR1202_BCSTS$V_DAL_CMD = 22 ! Last DAL command+ PARAMETER PR1202_BCSTS$S_DMG_L = 1I PARAMETER PR1202_BCSTS$V_DMG_L = 26 ! DMG from last DAL command, PARAMETER PR1202_BCSTS$S_SYNC_L = 1K PARAMETER PR1202_BCSTS$V_SYNC_L = 27 ! SYNC from last DAL command/  PARAMETER PR1202_BCSTS$S_AC_PARITY = 1M PARAMETER PR1202_BCSTS$V_AC_PARITY = 28 ! Parity from last ABUS DAL3 PARAMETER PR1202_BCSTS$S_OREAD_PENDING = 1U PARAMETER PR1202_BCSTS$V_OREAD_PENDING = 29 ! Pending OREAD during last DAL BYTE %FILL (3) END MAP MAP0 PARAMETER PR1202_BCCTL$S_FORCE_BHIT = 1= PARAMETER PR1202_BCCTL$V_FORCE_BHIT = 0 ! Force hit0 PARAMETER PR1202_BCCTL$S_ENABLE_BTS = 1G PARAMETER PR1202_ BCCTL$V_ENABLE_BTS = 1 ! Enable backup cache4 PARAMETER PR1202_BCCTL$S_BTS_ERROR_TRAN = 1H PARAMETER PR1202_BCCTL$V_BTS_ERROR_TRAN = 2 ! Error transition1 PARAMETER PR1202_BCCTL$S_GEN_BAD_ACP = 1N PARAMETER PR1202_BCCTL$V_GEN_BAD_ACP = 3 ! Generate incorrect parity BYTE %FILL (1) END MAP MAP+ PARAMETER PR1202_BCBTS$S_VALID = 4> PARAMETER PR1202_BCBTS$V_VALID = 0 ! Four valid bits+ PARAMETER PR1202_BCBTS$S_DIRTY = 4> PARAMETER PR1202_BCBTS$V_DIRTY = 4 ! Four dirty bits/ PARAMETER PR1202_BCBTS$S_VD_PARITY = 1I PARAMETER PR1202_BCBTS$V_VD_PARITY = 8 ! Valid/dirty parity bit0 PARAMETER PR1202_BCBTS$S_TAG_PARITY = 1B PARAMETER PR1202_BCBTS$V_TAG_PARITY = 9 ! Tag parity bit* PARAMETER PR1202_BCBTS$S_TAG = 127 PARAMETER PR1202_BCBTS$V_TAG = 19 ! Cache tag BYTE %FILL (3) END MAP MAP+ PARAMETER PR1202_BCERT$S_VALID = 48  PARAMETER PR1202_BCERT$V_VALID = 0 ! Valid bit+ PARAMETER PR1202_BCERT$S_DIRTY = 48 PARAMETER PR1202_BCERT$V_DIRTY = 4 ! Dirty bit. PARAMETER PR1202_BCERT$S_VD_DIRTY = 1H PARAMETER PR1202_BCERT$V_VD_DIRTY = 8 ! Valid/dirty parity bit0 PARAMETER PR1202_BCERT$S_TAG_PARITY = 1B PARAMETER PR1202_BCERT$V_TAG_PARITY = 9 ! Tag parity bit2 PARAMETER PR1202_BCERT$S_CACHE_ENTRY = 12E PARAMETER PR1202_BCERT$V_CACHE_ENTRY = 19 !  Cache entry tag BYTE %FILL (3) END MAP MAP0 PARAMETER PR1202_VINTSR$S_VP_ABSENT = 1L PARAMETER PR1202_VINTSR$V_VP_ABSENT = 0 ! 1=Vector Unit is present. PARAMETER PR1202_VINTSR$S_VP_SERR = 1L PARAMETER PR1202_VINTSR$V_VP_SERR = 1 ! Recoverable internal error. PARAMETER PR1202_VINTSR$S_VP_HERR = 1N PARAMETER PR1202_VINTSR$V_VP_HERR = 2 ! Unrecoverable internal error5 PARAMETER PR1202_VINTSR$S_VECTL_VIB_SERR = 1N  PARAMETER PR1202_VINTSR$V_VECTL_VIB_SERR = 3 ! Recoverable VIB error5 PARAMETER PR1202_VINTSR$S_VECTL_VIB_HERR = 1P PARAMETER PR1202_VINTSR$V_VECTL_VIB_HERR = 4 ! Unrecoverable VIB error5 PARAMETER PR1202_VINTSR$S_CCHIP_VIB_SERR = 1_ PARAMETER PR1202_VINTSR$V_CCHIP_VIB_SERR = 5 ! MC-chip detected recoverable VIB error5 PARAMETER PR1202_VINTSR$S_CCHIP_VIB_HERR = 1a PARAMETER PR1202_VINTSR$V_CCHIP_VIB_HERR = 6 ! MC-chip detected unreco verable VIB error2 PARAMETER PR1202_VINTSR$S_BUS_TIMEOUT = 1i PARAMETER PR1202_VINTSR$V_BUS_TIMEOUT = 7 ! MC-chip detected bus timeout to vec IPR read/write / PARAMETER PR1202_VINTSR$S_VP_RESET = 1F PARAMETER PR1202_VINTSR$V_VP_RESET = 8 ! Vector module reset2 PARAMETER PR1202_VINTSR$S_DIS_VP_INTF = 1Y PARAMETER PR1202_VINTSR$V_DIS_VP_INTF = 9 ! Disable vector interface to MC-chip2 PARAMETER PR1202_VINTSR$S_BAD_DPARITY = 1d  PARAMETER PR1202_VINTSR$V_BAD_DPARITY = 10 ! Causes MC-chip to generate bad parity on data2 PARAMETER PR1202_VINTSR$S_BAD_CPARITY = 1g PARAMETER PR1202_VINTSR$V_BAD_CPARITY = 11 ! Causes MC-chip to generate bad parity on command BYTE %FILL (2) END MAP MAP+ PARAMETER PR1202_PCTAG$S_VALID = 18 PARAMETER PR1202_PCTAG$V_VALID = 0 ! Valid bit* PARAMETER PR1202_PCTAG$S_TAG = 207 PARAMETER PR1202_PCTAG$V_TAG = 11 ! Cache tag,  PARAMETER PR1202_PCTAG$S_PARITY = 1- PARAMETER PR1202_PCTAG$V_PARITY = 31( BYTE %FILL (3) ! Parity bit END MAP MAP) PARAMETER PR1202_PCIDX$S_IDX = 86 PARAMETER PR1202_PCIDX$V_IDX = 3 ! Tag index BYTE %FILL (1) END MAP MAP/ PARAMETER PR1202_PCSTS$S_FORCE_HIT = 1< PARAMETER PR1202_PCSTS$V_FORCE_HIT = 0 ! Force hit0 PARAMETER PR1202_PCSTS$S_ENABLE_PTS = 1O PARAMETER PR1202_PCSTS$V_ENABLE _PTS = 1 ! Enable tag store (cache on)+ PARAMETER PR1202_PCSTS$S_FLUSH = 1: PARAMETER PR1202_PCSTS$V_FLUSH = 2 ! Flush cache1 PARAMETER PR1202_PCSTS$S_P_CACHE_HIT = 1B PARAMETER PR1202_PCSTS$V_P_CACHE_HIT = 4 ! Reference hit/ PARAMETER PR1202_PCSTS$S_INTERRUPT = 1J PARAMETER PR1202_PCSTS$V_INTERRUPT = 5 ! Error interrupt pending+ PARAMETER PR1202_PCSTS$S_TRAP2 = 1@ PARAMETER PR1202_PCSTS$V_TRAP2 = 6 ! Double error lock+  PARAMETER PR1202_PCSTS$S_TRAP1 = 19 PARAMETER PR1202_PCSTS$V_TRAP1 = 7 ! Error lock4 PARAMETER PR1202_PCSTS$S_TAG_PARITY_ERR = 1H PARAMETER PR1202_PCSTS$V_TAG_PARITY_ERR = 8 ! Tag parity error4 PARAMETER PR1202_PCSTS$S_DAL_PARITY_ERR = 1M PARAMETER PR1202_PCSTS$V_DAL_PARITY_ERR = 9 ! DAL data parity error5 PARAMETER PR1202_PCSTS$S_DATA_PARITY_ERR = 1K PARAMETER PR1202_PCSTS$V_DATA_PARITY_ERR = 10 ! Data parity error-  PARAMETER PR1202_PCSTS$S_BUS_ERR = 1; PARAMETER PR1202_PCSTS$V_BUS_ERR = 11 ! Bus error1 PARAMETER PR1202_PCSTS$S_B_CACHE_HIT = 1M PARAMETER PR1202_PCSTS$V_B_CACHE_HIT = 12 ! Reference hit in Bcache BYTE %FILL (2) END MAP END UNION END STRUCTURE ! PR1202DEFCDEC$ END OPTIONS wwF)!*** MODULE $PR1302DEF ***CDEC$ OPTIONS /NOALIGNE PARAMETER PR1302$_NICR = '00000019'X ! Next Interval Count Register? PARAMETER PR1302$_ICR = '0000001A'X ! Interval Count RegisterCDEC$ END OPTIONS wwmsH)!*** MODULE $PR13DEF ***CDEC$ OPTIONS /NOALIGNH PARAMETER PR13$K_REVISION = '0000001E'X ! Revision number of this fileN! In the definitions below, registers are annotated with one of the following ! symbols:! 1! RW - The register may be read and written'! RO - The register may only be read*! WO - The register may only be written! L! For RO and WO registers, all bits and fields within the register are alsoG! read-only or write-only. For RW registers, each bit or field within7! the register is annotated with one of the following:! /! RW - The bit/field may be read and written7! RO - The bit/field may be read; writes are ignoredM! WO - The bit/field may be written; reads return an UNPREDICTABLE result.8! WZ - The bit/field may be written; reads return a 0@! WC - The bit/field may be read; writes cause state to clearY! RC - The bit/field may be read, which also causes state to clear; writes are ignoredA PARAMETER PR13$_TODR = '0000001B'X ! Time Of Year Register (RW)I PARAMETER PR13$_MCESR = '00000026'X ! Machine check error register (WO)= PARAMETER PR13$_SAVPC = '0000002A'X ! Console saved PC (RO)? PARAMETER PR13$_SAVPSL = '0000002B'X ! Console saved PSL (RO)- PARAMETER PR13_SAVPSL$M_PSL_LO = '000000FF'X/ PARAMETER PR13_SAVPSL$M_HALTCODE = '00003F00'XI PARAMETER PR13_SAVPSL$K_HALT_HLTPIN = '00000002'X ! HALT_L pin assertedD PARAMETER PR13_SAVPSL$K_HALT_PWRUP = '00000003'X ! Initial powerupO PARAMETER PR13_SAVPSL$K_HALT_INTSTK = '00000004'X ! Interrupt stack not valid_ PARAMETER PR13_SAVPSL$K_HALT_DOUBLE = '00000005'X ! Machine check during exception processingU PARAMETER PR13_SAVPSL$K_HALT_HLTINS = '00000006'X ! Halt instruction in kernel modeW PARAMETER PR13_SAVPSL$K_HALT_ILLVEC = '00000007'X ! Illegal SCB vector (bits<1:0>=11)S PARAMETER PR13_SAVPSL$K_HALT_WCSVEC = '00000008'X ! WCS SCB vector (bits<1:0>=10)L PARAMETER PR13_SAVPSL$K_HALT_CHMFI = '0000000A'X ! CHMx on interrupt stackZ PARAMETER PR13_SAVPSL$K_HALT_IE0 = '00000010'X ! ACV/TNV during machine check processingQ PARAMETER PR13_SAVPSL$K_HALT_IE1 = '00000011'X ! ACV/TNV during KSNV processing` PARAMETER PR13_SAVPSL$K_HALT_IE2 = '00000012'X ! Machine check during machine check processingW PARAMETER PR13_SAVPSL$K_HALT_IE3 = '00000013'X ! Machine check during KSNV processingf PARAMETER PR13_SAVPSL$K_HALT_IE_PSL_101 = '00000019'X ! PSL<26:24>=101 during interrupt or exceptionf PARAMETER PR13_SAVPSL$K_HALT_IE_PSL_110 = '0000001A'X ! PSL<26:24>=110 during interrupt or exceptionf PARAMETER PR13_SAVPSL$K_HALT_IE_PSL_111 = '0000001B'X ! PSL<26:24>=111 during interrupt or exceptionT PARAMETER PR13_SAVPSL$K_HALT_REI_PSL_101 = '0000001D'X ! PSL<26:24>=101 during REIT PARAMETER PR13_SAVPSL$K_HALT_REI_PSL_110 = '0000001E'X ! PSL<26:24>=110 during REIT PARAMETER PR13_SAVPSL$K_HALT_REI_PSL_111 = '0000001F'X ! PSL<26:24>=11 1 during REI. PARAMETER PR13_SAVPSL$M_INVALID = '00004000'X, PARAMETER PR13_SAVPSL$M_MAPEN = '00008000'X- PARAMETER PR13_SAVPSL$M_PSL_HI = 'FFFF0000'XH PARAMETER PR13$_IORESET = '00000037'X ! I/O system reset register (WO)H PARAMETER PR13$_PME = '0000003D'X ! Performance monitoring enable (RW)I PARAMETER PR13$_SID = '0000003E'X ! System identification register (RO)- PARAMETER PR13_SID$M_UCODE_REV = '000000FF'X5 PARAMETER PR13_SID$M_NONSTANDARD_PATCH = '00000100'X- PARAMETER PR13_SID$M_ PATCH_REV = '00003E00'X( PARAMETER PR13_SID$M_TYPE = 'FF000000'XK PARAMETER PR13$_IAK14 = '00000040'X ! Level 14 interrupt acknowledge (RO)K PARAMETER PR13$_IAK15 = '00000041'X ! Level 15 interrupt acknowledge (RO)K PARAMETER PR13$_IAK16 = '00000042'X ! Level 16 interrupt acknowledge (RO)K PARAMETER PR13$_IAK17 = '00000043'X ! Level 17 interrupt acknowledge (RO)) PARAMETER PR13_IAK$M_IPL17 = '00000001'X& PARAMETER PR13_IAK$M_PR = '00000002'X. PARAMETER PR13_IAK$M_SCB_OFFSET = '0000FF FC'X> PARAMETER PR13$_CWB = '00000044'X ! Clear write buffers (RW)! Ebox registers.N PARAMETER PR13$_INTSYS = '0000007A'X ! Interrupt system status register (RW), PARAMETER PR13_INTSYS$M_ICCS6 = '00000001'X+ PARAMETER PR13_INTSYS$M_SISR = '0000FFFE'X- PARAMETER PR13_INTSYS$M_INT_ID = '001F0000'X> PARAMETER PR13_INTSYS$K_INT_ID_HALT = '0000001F'X ! Halt pinA PARAMETER PR13_INTSYS$K_INT_ID_PWRFL = '0000001E'X ! Power failA PARAMETER PR13_INTSYS$K_INT_ID_H_ERR = '0000001D'X ! Hard errorG PARAMETER PR13_INTSYS$K_INT_ID_INT_TIM = '0000001C'X ! Interval timerI PARAMETER PR13_INTSYS$K_INT_ID_PMON = '0000001B'X ! Performance monitorA PARAMETER PR13_INTSYS$K_INT_ID_S_ERR = '0000001A'X ! Soft errorM PARAMETER PR13_INTSYS$K_INT_ID_IRQ3 = '00000017'X ! IPL 17 device interruptM PARAMETER PR13_INTSYS$K_INT_ID_IRQ2 = '00000016'X ! IPL 16 device interruptM PARAMETER PR13_INTSYS$K_INT_ID_IRQ1 = '00000015'X ! IPL 15 device interruptM PARAMETER PR13_INTSYS$K_INT_ID_IRQ0 = '0000 0014'X ! IPL 14 device interrupt@ PARAMETER PR13_INTSYS$K_INT_ID_SISR15 = '0000000F'X ! SISR<15>@ PARAMETER PR13_INTSYS$K_INT_ID_SISR14 = '0000000E'X ! SISR<14>@ PARAMETER PR13_INTSYS$K_INT_ID_SISR13 = '0000000D'X ! SISR<13>@ PARAMETER PR13_INTSYS$K_INT_ID_SISR12 = '0000000C'X ! SISR<12>@ PARAMETER PR13_INTSYS$K_INT_ID_SISR11 = '0000000B'X ! SISR<11>@ PARAMETER PR13_INTSYS$K_INT_ID_SISR10 = '0000000A'X ! SISR<10>> PARAMETER PR13_INTSYS$K_INT_ID_SISR9 = '00000009'X ! SISR<9>> PARAMETER  PR13_INTSYS$K_INT_ID_SISR8 = '00000008'X ! SISR<8>> PARAMETER PR13_INTSYS$K_INT_ID_SISR7 = '00000007'X ! SISR<7>> PARAMETER PR13_INTSYS$K_INT_ID_SISR6 = '00000006'X ! SISR<6>> PARAMETER PR13_INTSYS$K_INT_ID_SISR5 = '00000005'X ! SISR<5>> PARAMETER PR13_INTSYS$K_INT_ID_SISR4 = '00000004'X ! SISR<4>> PARAMETER PR13_INTSYS$K_INT_ID_SISR3 = '00000003'X ! SISR<3>> PARAMETER PR13_INTSYS$K_INT_ID_SISR2 = '00000002'X ! SISR<2>> PARAMETER PR13_INTSYS$K_INT_ID_SISR1 = '00000001'X ! SISR<1>D PAR AMETER PR13_INTSYS$K_INT_ID_NO_INT = '00000000'X ! No interrupt4 PARAMETER PR13_INTSYS$M_INT_TIM_RESET = '01000000'X2 PARAMETER PR13_INTSYS$M_S_ERR_RESET = '08000000'X1 PARAMETER PR13_INTSYS$M_PMON_RESET = '10000000'X2 PARAMETER PR13_INTSYS$M_H_ERR_RESET = '20000000'X2 PARAMETER PR13_INTSYS$M_PWRFL_RESET = '40000000'X1 PARAMETER PR13_INTSYS$M_HALT_RESET = '80000000'X\ PARAMETER PR13$_PMFCNT = '0000007B'X ! Performance monitoring facility count register (RW)- PARAMETER PR13_PMFCNT$M_PMCTR0 = '0000FFFF'X- PARAMETER PR13_PMFCNT$M_PMCTR1 = 'FFFF0000'XU PARAMETER PR13$_PCSCR = '0000007C'X ! Patchable control store control register (RW)2 PARAMETER PR13_PCSCR$M_PAR_PORT_DIS = '00000100'X- PARAMETER PR13_PCSCR$M_PCS_ENB = '00000200'X/ PARAMETER PR13_PCSCR$M_PCS_WRITE = '00000400'X/ PARAMETER PR13_PCSCR$M_RWL_SHIFT = '00000800'X* PARAMETER PR13_PCSCR$M_DATA = '00001000'X7 PARAMETER PR13_PCSCR$M_NONSTANDARD_PATCH = '00800000'X/ PARAMETER PR13_PCSCR$M_PATCH_REV = '1F000000'X@ P ARAMETER PR13$_ECR = '0000007D'X ! Ebox control register (RW)2 PARAMETER PR13_ECR$M_VECTOR_PRESENT = '00000001'X/ PARAMETER PR13_ECR$M_FBOX_ENABLE = '00000002'X/ PARAMETER PR13_ECR$M_TIMEOUT_EXT = '00000004'X7 PARAMETER PR13_ECR$M_FBOX_ST4_BYPASS_ENA = '00000008'X4 PARAMETER PR13_ECR$M_TIMEOUT_OCCURRED = '00000010'X0 PARAMETER PR13_ECR$M_TIMEOUT_TEST = '00000020'X1 PARAMETER PR13_ECR$M_TIMEOUT_CLOCK = '00000040'X, PARAMETER PR13_ECR$M_ICCS_EXT = '00000080'X4 PARAMETER PR13_ECR$M_FBOX_TES T_ENABLE = '00002000'X. PARAMETER PR13_ECR$M_PMF_ENABLE = '00010000'X, PARAMETER PR13_ECR$M_PMF_PMUX = '00060000'X< PARAMETER PR13_ECR$K_PMUX_IBOX = '00000000'X ! Select Ibox< PARAMETER PR13_ECR$K_PMUX_EBOX = '00000001'X ! Select Ebox< PARAMETER PR13_ECR$K_PMUX_MBOX = '00000002'X ! Select Mbox< PARAMETER PR13_ECR$K_PMUX_CBOX = '00000003'X ! Select Cbox, PARAMETER PR13_ECR$M_PMF_EMUX = '00380000'XZ PARAMETER PR13_ECR$K_EMUX_S3_STALL = '00000000'X ! Measure S3 stall against total cyclesf PARAMETER PR13_ECR$K_EMUX_EM_PA_STALL = '00000001'X ! Measure EM+PA queue stall against total cyclesa PARAMETER PR13_ECR$K_EMUX_CPI = '00000002'X ! Measure instructions retired against total cycles[ PARAMETER PR13_ECR$K_EMUX_STALL = '00000003'X ! Measure total stalls against total cycles^ PARAMETER PR13_ECR$K_EMUX_S3_STALL_PCT = '00000004'X ! Measure S3 stall against total stallsj PARAMETER PR13_ECR$K_EMUX_EM_PA_STALL_PCT = '00000005'X ! Measure EM+PA queue stall against total stallsL PARAM ETER PR13_ECR$K_EMUX_UWORD = '00000007'X ! Count microword increments, PARAMETER PR13_ECR$M_PMF_LFSR = '00400000'X- PARAMETER PR13_ECR$M_PMF_CLEAR = '80000000'X> PARAMETER PR13$_MTBTAG = '0000007E'X ! Mbox TB tag fill (WO)) PARAMETER PR13_MTBTAG$M_TP = '00000001'X* PARAMETER PR13_MTBTAG$M_VPN = 'FFFFFE00'X> PARAMETER PR13$_MTBPTE = '0000007F'X ! Mbox TB PTE fill (WO)* PARAMETER PR13_MTBPTE$M_PFN = '007FFFFF'X( PARAMETER PR13_MTBPTE$M_P = '01000000'X( PARAMETER PR13_MTBPTE$M_M = '04000000 'X+ PARAMETER PR13_MTBPTE$M_PROT = '18000000'X( PARAMETER PR13_MTBPTE$M_V = '20000000'XL PARAMETER PR13$_VPSR = '00000090'X ! Vector processor status register (RW)( PARAMETER PR13_VPSR$M_VEN = '00000001'X( PARAMETER PR13_VPSR$M_RST = '00000002'X( PARAMETER PR13_VPSR$M_AEX = '00000080'X( PARAMETER PR13_VPSR$M_IMP = '01000000'X( PARAMETER PR13_VPSR$M_BSY = '80000000'XP PARAMETER PR13$_VAER = '00000091'X ! Vector arithmetic exception register (RO)+ PARAMETER PR13_VAER$M_F_UNDF = '00000001'X + PARAMETER PR13_VAER$M_F_DIVZ = '00000002'X+ PARAMETER PR13_VAER$M_F_ROPR = '00000004'X+ PARAMETER PR13_VAER$M_F_OVFL = '00000008'X+ PARAMETER PR13_VAER$M_I_OVFL = '00000020'X2 PARAMETER PR13_VAER$M_REGISTER_MASK = 'FFFF0000'XK PARAMETER PR13$_VMAC = '00000092'X ! Vector memory activity register (RO)U PARAMETER PR13$_VTBIA = '00000093'X ! Vector translation buffer invalidate all (WO)! Cbox registers.A PARAMETER PR13$_CCTL = '000000A0'X ! Cbox control register (RW)+ PARAMETER PR13_CCTL$M_ENABLE = '00000001'X. PARAMETER PR13_CCTL$M_TAG_SPEED = '00000002'Xm PARAMETER PR13_CCTL$K_TAG_3_CYCLES = '00000000'X ! Select tag RAM speed: 3-cycle read rep/3-cycle write repm PARAMETER PR13_CCTL$K_TAG_4_CYCLES = '00000001'X ! Select tag RAM speed: 4-cycle read rep/4-cycle write rep/ PARAMETER PR13_CCTL$M_DATA_SPEED = '0000000C'Xo PARAMETER PR13_CCTL$K_DATA_2_CYCLES = '00000000'X ! Select data RAM speed: 2-cycle read rep/3-cycle write repo PARAMETER PR13_CCTL$K_DATA_3_CYCLES = '00000001'X ! Select data RAM speed: 3-cycle read rep/4-cycle write repo PARAMETER PR13_CCTL$K_DATA_4_CYCLES = '00000002'X ! Select data RAM speed: 4-cycle read rep/5-cycle write rep) PARAMETER PR13_CCTL$M_SIZE = '00000030'XF PARAMETER PR13_CCTL$K_SIZE_128KB = '00000000'X ! Select 128KB BcacheF PARAMETER PR13_CCTL$K_SIZE_256KB = '00000001'X ! Select 256KB BcacheF PARAMETER PR13_CCTL$K_SIZE_512KB = '00000002'X ! Select 512KB BcacheB PARAMETER PR13_CCTL$K_SIZE_2MB = '00000003'X ! Select 2MB Bcache. PARAMETER PR13_CCTL$M_FORCE_HIT = '00000040'X3 PARAMETER PR13_CCTL$M_DISABLE_ERRORS = '00000080'X+ PARAMETER PR13_CCTL$M_SW_ECC = '00000100'X1 PARAMETER PR13_CCTL$M_TIMEOUT_TEST = '00000200'X1 PARAMETER PR13_CCTL$M_DISABLE_PACK = '00000400'X3 PARAMETER PR13_CCTL$M_PM_ACCESS_TYPE = '00003800'XP PARAMETER PR13_CCTL$K_PMAT_COH = '00000000'X ! Coherency access of either typeO PARAMETER PR13_CCTL$K_PMAT_COH_READ = '00000001'X ! Coherency access for READQ PARAMETER PR13_CCTL$K_PMAT_COH_OREAD = '00000002'X ! Coherency access for OREADG PARAMETER PR13_CCTL$K_PMAT_CPU = '00000004'X ! CPU access of any typeK PARAMETER PR13_CCTL$K_PMAT_CPU_IREAD = '00000005'X ! CPU access for IREADK PARAMETER PR13_CCTL$K_PMAT_CPU_DREAD = '00000006'X ! CPU access for DREADK PARAMETER PR13_CCTL$K_PMAT_CPU_OREAD = '00000007'X ! CPU access for OREAD0 PARAMETER PR13_CCTL$M_PM_HIT_TYPE = '0000C000'X4 PARAMETER PR13_CCTL$K_PMHT_HIT = '00000000'X ! HitI PARAMETER PR13_CCTL$K_PMHT_HIT_OW NED = '00000001'X ! Hit on owned blockI PARAMETER PR13_CCTL$K_PMHT_HIT_VALID = '00000002'X ! Hit on valid block^ PARAMETER PR13_CCTL$K_PMHT_MISS_OWNED = '00000003'X ! Miss on owned block (causes writeback)4 PARAMETER PR13_CCTL$M_FORCE_NDAL_PERR = '00010000'X+ PARAMETER PR13_CCTL$M_SW_ETM = '40000000'X+ PARAMETER PR13_CCTL$M_HW_ETM = '80000000'XA PARAMETER PR13$_BCDECC = '000000A2'X ! Bcache data ram ECC (WO), PARAMETER PR13_BCDECC$M_ECCLO = '000003C0'X, PARAMETER PR13_BCDECC$M_ECCHI =  '03C00000'XF PARAMETER PR13$_BCETSTS = '000000A3'X ! Bcache error tag status (RW), PARAMETER PR13_BCETSTS$M_LOCK = '00000001'X, PARAMETER PR13_BCETSTS$M_CORR = '00000002'X. PARAMETER PR13_BCETSTS$M_UNCORR = '00000004'X0 PARAMETER PR13_BCETSTS$M_BAD_ADDR = '00000008'X0 PARAMETER PR13_BCETSTS$M_LOST_ERR = '00000010'X. PARAMETER PR13_BCETSTS$M_TS_CMD = '000003E0'XT PARAMETER PR13_BCETSTS$K_CMD_DREAD = '00000007'X ! Command was D-stream tag lookupT PARAMETER PR13_BCETSTS$K_CMD_IREAD = '00000003'X ! Command was I-stream tag lookuph PARAMETER PR13_BCETSTS$K_CMD_OREAD = '00000002'X ! Command was OREAD tag lookup for write or read lockp PARAMETER PR13_BCETSTS$K_CMD_WUNLOCK = '00000008'X ! Command was write unlock tag lookup (done only under ETM)k PARAMETER PR13_BCETSTS$K_CMD_R_INVAL = '0000000D'X ! Command was inval tag lookup for NDAL DREAD or IREADk PARAMETER PR13_BCETSTS$K_CMD_O_INVAL = '00000009'X ! Command was inval tag lookup for NDAL OREAD or WRITEd PARAMETER PR13_BCETSTS$K_ CMD_IPR_DEALLOC = '0000000A'X ! Command was tag lookup for IPR deallocateE PARAMETER PR13$_BCETIDX = '000000A4'X ! Bcache error tag index (RO)> PARAMETER PR13$_BCETAG = '000000A5'X ! Bcache error tag (RO), PARAMETER PR13_BCETAG$M_VALID = '00000200'X, PARAMETER PR13_BCETAG$M_OWNED = '00000400'X* PARAMETER PR13_BCETAG$M_ECC = '0001F800'X* PARAMETER PR13_BCETAG$M_TAG = 'FFFE0000'XG PARAMETER PR13$_BCEDSTS = '000000A6'X ! Bcache error data status (RW), PARAMETER PR13_BCEDSTS$M_LOCK = '000000 01'X, PARAMETER PR13_BCEDSTS$M_CORR = '00000002'X. PARAMETER PR13_BCEDSTS$M_UNCORR = '00000004'X0 PARAMETER PR13_BCEDSTS$M_BAD_ADDR = '00000008'X0 PARAMETER PR13_BCEDSTS$M_LOST_ERR = '00000010'X. PARAMETER PR13_BCEDSTS$M_DR_CMD = '00000F00'XU PARAMETER PR13_BCEDSTS$K_CMD_DREAD = '00000007'X ! Command was D-stream data lookupU PARAMETER PR13_BCEDSTS$K_CMD_IREAD = '00000003'X ! Command was I-stream data lookupV PARAMETER PR13_BCEDSTS$K_CMD_WBACK = '00000004'X ! Command was writeback data lo okup\ PARAMETER PR13_BCEDSTS$K_CMD_RMW = '00000002'X ! Command was read-modify-write data lookupF PARAMETER PR13$_BCEDIDX = '000000A7'X ! Bcache error data index (RO)? PARAMETER PR13$_BCEDECC = '000000A8'X ! Bcache error ECC (RO)- PARAMETER PR13_BCEDECC$M_ECCLO = '000003C0'X- PARAMETER PR13_BCEDECC$M_ECCHI = '03C00000'X@ PARAMETER PR13$_CEFADR = '000000AB'X ! Fill error address (RO)? PARAMETER PR13$_CEFSTS = '000000AC'X ! Fill error status (RW)+ PARAMETER PR13_CEFSTS$M_RDLK = '0000000 1'X+ PARAMETER PR13_CEFSTS$M_LOCK = '00000002'X. PARAMETER PR13_CEFSTS$M_TIMEOUT = '00000004'X* PARAMETER PR13_CEFSTS$M_RDE = '00000008'X/ PARAMETER PR13_CEFSTS$M_LOST_ERR = '00000010'X* PARAMETER PR13_CEFSTS$M_ID0 = '00000020'X, PARAMETER PR13_CEFSTS$M_IREAD = '00000040'X, PARAMETER PR13_CEFSTS$M_OREAD = '00000080'X, PARAMETER PR13_CEFSTS$M_WRITE = '00000100'X. PARAMETER PR13_CEFSTS$M_TO_MBOX = '00000200'X* PARAMETER PR13_CEFSTS$M_RIP = '00000400'X* PARAMETER PR13_CEFSTS$M_OIP = '000008 00'X* PARAMETER PR13_CEFSTS$M_DNF = '00001000'X3 PARAMETER PR13_CEFSTS$M_RDLK_FL_DONE = '00002000'X4 PARAMETER PR13_CEFSTS$M_REQ_FILL_DONE = '00004000'X, PARAMETER PR13_CEFSTS$M_COUNT = '00018000'X6 PARAMETER PR13_CEFSTS$M_UNEXPECTED_FILL = '00200000'X> PARAMETER PR13$_NESTS = '000000AE'X ! NDAL error status (RW)+ PARAMETER PR13_NESTS$M_NOACK = '00000001'X. PARAMETER PR13_NESTS$M_BADWDATA = '00000002'X/ PARAMETER PR13_NESTS$M_LOST_OERR = '00000004'X* PARAMETER PR13_NESTS$M_PERR = '000000 08'X0 PARAMETER PR13_NESTS$M_INCON_PERR = '00000010'X/ PARAMETER PR13_NESTS$M_LOST_PERR = '00000020'XG PARAMETER PR13$_NEOADR = '000000B0'X ! NDAL error output address (RO)G PARAMETER PR13$_NEOCMD = '000000B2'X ! NDAL error output command (RO)* PARAMETER PR13_NEOCMD$M_CMD = '0000000F'X) PARAMETER PR13_NEOCMD$M_ID = '00000070'X. PARAMETER PR13_NEOCMD$M_BYTE_EN = '0000FF00'X* PARAMETER PR13_NEOCMD$M_LEN = 'C0000000'XC PARAMETER PR13$_NEDATHI = '000000B4'X ! NDAL error data high (RO)B P ARAMETER PR13$_NEDATLO = '000000B6'X ! NDAL error data low (RO)F PARAMETER PR13$_NEICMD = '000000B8'X ! NDAL error input command (RO)* PARAMETER PR13_NEICMD$M_CMD = '0000000F'X) PARAMETER PR13_NEICMD$M_ID = '00000070'X- PARAMETER PR13_NEICMD$M_PARITY = '00000380'X@ PARAMETER PR13_NDAL$K_LEN_HW = '00000000'X ! Length = hexaword@ PARAMETER PR13_NDAL$K_LEN_QW = '00000002'X ! Length = quadword@ PARAMETER PR13_NDAL$K_LEN_OW = '00000003'X ! Length = octaword! encoded NDAL command values= PARAMETER PR13_NDAL$K_CMD_NOP = '00000000'X ! Command = NOPA PARAMETER PR13_NDAL$K_CMD_WRITE = '00000002'X ! Command = WriteJ PARAMETER PR13_NDAL$K_CMD_WDISOWN = '00000003'X ! Command = Write disownB PARAMETER PR13_NDAL$K_CMD_IREAD = '00000004'X ! Command = I-readB PARAMETER PR13_NDAL$K_CMD_DREAD = '00000005'X ! Command = D-readB PARAMETER PR13_NDAL$K_CMD_OREAD = '00000006'X ! Command = O-readI PARAMETER PR13_NDAL$K_CMD_RDE = '00000009'X ! Command = Read data errorF PARAMETER PR13_NDAL$K_CMD_WDATA = '0000000A'X ! Command = Write dataM PARAMETER PR13_NDAL$K_CMD_BADWDATA = '0000000B'X ! Command = Bad write dataM PARAMETER PR13_NDAL$K_CMD_RDR0 = '0000000C'X ! Command = Read data return 0M PARAMETER PR13_NDAL$K_CMD_RDR1 = '0000000D'X ! Command = Read data return 1M PARAMETER PR13_NDAL$K_CMD_RDR2 = '0000000E'X ! Command = Read data return 2M PARAMETER PR13_NDAL$K_CMD_RDR3 = '0000000F'X ! Command = Read data return 3! Cbox registers, continuedI PARAMETER PR13$_BCTAG = '01000000'X ! First of 64K Bcache tag IPRs (RW)O PARAMETER PR13$_BCTAG_128KB_MAX = '0101FFE0'X ! Last tag IPR for 128KB BcacheO PARAMETER PR13$_BCTAG_256KB_MAX = '0103FFE0'X ! Last tag IPR for 256KB BcacheO PARAMETER PR13$_BCTAG_512KB_MAX = '0107FFE0'X ! Last tag IPR for 512KB BcacheK PARAMETER PR13$_BCTAG_2MB_MAX = '011FFFE0'X ! Last tag IPR for 2MB BcacheZ PARAMETER PR13_BCTAG$K_IPR_INCR = '00000020'X ! Increment between Bcache tag IPR numbers+ PARAMETER PR13_BCTAG$M_VALID = '00000 200'X+ PARAMETER PR13_BCTAG$M_OWNED = '00000400'X) PARAMETER PR13_BCTAG$M_ECC = '0001F800'X) PARAMETER PR13_BCTAG$M_TAG = 'FFFE0000'XV PARAMETER PR13$_BCFLUSH = '01400000'X ! First of 64K Bcache tag deallocate IPRs (WO)X PARAMETER PR13$_BCFLUSH_128KB_MAX = '0141FFE0'X ! Last deallocate IPR for 128KB BcacheX PARAMETER PR13$_BCFLUSH_256KB_MAX = '0143FFE0'X ! Last deallocate IPR for 256KB BcacheX PARAMETER PR13$_BCFLUSH_512KB_MAX = '0147FFE0'X ! Last deallocate IPR for 512KB BcacheT PARAM ETER PR13$_BCFLUSH_2MB_MAX = '015FFFE0'X ! Last deallocate IPR for 2MB Bcachec PARAMETER PR13_BCFLUSH$K_IPR_INCR = '00000020'X ! Increment between Bcache deallocate IPR numbers! Ibox registers.B PARAMETER PR13$_VMAR = '000000D0'X ! VIC memory address register' PARAMETER PR13_VMAR$M_LW = '00000004'X. PARAMETER PR13_VMAR$M_SUB_BLOCK = '00000018'X. PARAMETER PR13_VMAR$M_ROW_INDEX = '000007E0'X) PARAMETER PR13_VMAR$M_ADDR = 'FFFFF800'X7 PARAMETER PR13$_VTAG = '000000D1'X ! VIC tag registe r& PARAMETER PR13_VTAG$M_V = '0000000F'X' PARAMETER PR13_VTAG$M_DP = '000000F0'X' PARAMETER PR13_VTAG$M_TP = '00000100'X( PARAMETER PR13_VTAG$M_TAG = 'FFFFF800'X9 PARAMETER PR13$_VDATA = '000000D2'X ! VIC data registerL PARAMETER PR13$_ICSR = '000000D3'X ! Ibox control and status register (RW)+ PARAMETER PR13_ICSR$M_ENABLE = '00000001'X) PARAMETER PR13_ICSR$M_LOCK = '00000004'X* PARAMETER PR13_ICSR$M_DPERR = '00000008'X* PARAMETER PR13_ICSR$M_TPERR = '00000010'XN PARAMETER PR13$_BPC R = '000000D4'X ! Ibox branch prediction control register, PARAMETER PR13_BPCR$M_HISTORY = '0000000F'X/ PARAMETER PR13_BPCR$M_MISPREDICT = '00000020'X. PARAMETER PR13_BPCR$M_FLUSH_BHT = '00000040'X. PARAMETER PR13_BPCR$M_FLUSH_CTR = '00000080'X1 PARAMETER PR13_BPCR$M_LOAD_HISTORY = '00000100'X2 PARAMETER PR13_BPCR$M_BPU_ALGORITHM = 'FFFF0000'X[ PARAMETER PR13_BPCR$K_BPU_ALGORITHM = '0000FECA'X ! default value for BPU_ALGORITHM field9 PARAMETER PR13$_BPC = '000000D6'X ! Ibox Backup PC (RO )M PARAMETER PR13$_BPCUNW = '000000D7'X ! Ibox Backup PC with RLOG unwind (RO)-! Mbox internal memory management registers.B PARAMETER PR13$_MP0BR = '000000E0'X ! Mbox P0 base register (RW)D PARAMETER PR13$_MP0LR = '000000E1'X ! Mbox P0 length register (RW)B PARAMETER PR13$_MP1BR = '000000E2'X ! Mbox P1 base register (RW)D PARAMETER PR13$_MP1LR = '000000E3'X ! Mbox P1 length register (RW)E PARAMETER PR13$_MSBR = '000000E4'X ! Mbox system base register (RW)G PARAMETER PR13$_MSLR = '0 00000E5'X ! Mbox system length register (RW)K PARAMETER PR13$_MMAPEN = '000000E6'X ! Mbox memory management enable (RW)! Mbox registers.H PARAMETER PR13$_PAMODE = '000000E7'X ! Mbox physical address mode (RW)+ PARAMETER PR13_PAMODE$M_MODE = '00000001'X> PARAMETER PR13_PAMODE$K_PA_30 = '00000000'X ! 30-bit PA mode> PARAMETER PR13_PAMODE$K_PA_32 = '00000001'X ! 32-bit PA modeR PARAMETER PR13$_MMEADR = '000000E8'X ! Mbox memory management fault address (RO)V PARAMETER PR13$_MMEPTE = '0 00000E9'X ! Mbox memory management fault PTE address (RO)Q PARAMETER PR13$_MMESTS = '000000EA'X ! Mbox memory management fault status (RO)) PARAMETER PR13_MMESTS$M_LV = '00000001'X. PARAMETER PR13_MMESTS$M_PTE_REF = '00000002'X( PARAMETER PR13_MMESTS$M_M = '00000004'X, PARAMETER PR13_MMESTS$M_FAULT = '0000C000'X= PARAMETER PR13_MMESTS$K_FAULT_ACV = '00000001'X ! ACV fault= PARAMETER PR13_MMESTS$K_FAULT_TNV = '00000002'X ! TNV fault< PARAMETER PR13_MMESTS$K_FAULT_M0 = '00000003'X ! M=0  fault* PARAMETER PR13_MMESTS$M_SRC = '1C000000'X+ PARAMETER PR13_MMESTS$M_LOCK = 'E0000000'XI PARAMETER PR13$_TBADR = '000000EC'X ! Mbox TB parity error address (RO)H PARAMETER PR13$_TBSTS = '000000ED'X ! Mbox TB parity error status (RW)* PARAMETER PR13_TBSTS$M_LOCK = '00000001'X+ PARAMETER PR13_TBSTS$M_DPERR = '00000002'X+ PARAMETER PR13_TBSTS$M_TPERR = '00000004'X, PARAMETER PR13_TBSTS$M_EM_VAL = '00000008'X) PARAMETER PR13_TBSTS$M_CMD = '000001F0'X) PARAMETER PR13_TBSTS$M_SRC = 'E 0000000'XQ PARAMETER PR13_MSRC$K_IREF_LATCH = '00000006'X ! Source of fault was IREF latchQ PARAMETER PR13_MSRC$K_SPEC_QUEUE = '00000004'X ! Source of fault was spec queueM PARAMETER PR13_MSRC$K_EM_LATCH = '00000000'X ! Source of fault was EM latch! Mbox Pcache registers M PARAMETER PR13$_PCADR = '000000F2'X ! Mbox Pcache parity error address (RO)L PARAMETER PR13$_PCSTS = '000000F4'X ! Mbox Pcache parity error status (RW)* PARAMETER PR13_PCSTS$M_LOCK = '00000001'X+ PARAMETER PR13_ PCSTS$M_DPERR = '00000002'X0 PARAMETER PR13_PCSTS$M_RIGHT_BANK = '00000004'X/ PARAMETER PR13_PCSTS$M_LEFT_BANK = '00000008'X) PARAMETER PR13_PCSTS$M_CMD = '000001F0'X/ PARAMETER PR13_PCSTS$M_PTE_ER_WR = '00000200'X, PARAMETER PR13_PCSTS$M_PTE_ER = '00000400'X@ PARAMETER PR13$_PCCTL = '000000F8'X ! Mbox Pcache control (RW). PARAMETER PR13_PCCTL$M_D_ENABLE = '00000001'X. PARAMETER PR13_PCCTL$M_I_ENABLE = '00000002'X/ PARAMETER PR13_PCCTL$M_FORCE_HIT = '00000004'X. PARAMETER PR13_PCCTL$M_ BANK_SEL = '00000008'X. PARAMETER PR13_PCCTL$M_P_ENABLE = '00000010'X) PARAMETER PR13_PCCTL$M_PMM = '000000E0'X2 PARAMETER PR13_PCCTL$M_ELEC_DISABLE = '00000100'X0 PARAMETER PR13_PCCTL$M_RED_ENABLE = '00000200'XI PARAMETER PR13$_PCTAG = '01800000'X ! First of 256 Pcache tag IPRs (RW)G PARAMETER PR13$_PCTAG_MAX = '01801FE0'X ! Last of 256 Pcache tag IPRsZ PARAMETER PR13_PCTAG$K_IPR_INCR = '00000020'X ! Increment between Pcache tag IPR numbers' PARAMETER PR13_PCTAG$M_A = '00000001'X' PAR AMETER PR13_PCTAG$M_V = '0000001E'X' PARAMETER PR13_PCTAG$M_P = '00000020'X) PARAMETER PR13_PCTAG$M_TAG = 'FFFFF000'XR PARAMETER PR13$_PCDAP = '01C00000'X ! First of 1024 Pcache data parity IPRs (RW)P PARAMETER PR13$_PCDAP_MAX = '01C01FF8'X ! Last of 1024 Pcache data parity IPRsb PARAMETER PR13_PCDAP$K_IPR_INCR = '00000008'X ! Increment between Pcache data parity IPR numbers1 PARAMETER PR13_PCDAP$M_DATA_PARITY = '000000FF'X STRUCTURE /PR13DEF/ UNIONI! Architecturally-defined registe rs which have different characteristics! on this CPU. MAP+ PARAMETER PR13_SAVPSL$S_PSL_LO = 8C PARAMETER PR13_SAVPSL$V_PSL_LO = 0 ! Saved PSL bits <7:0>- PARAMETER PR13_SAVPSL$S_HALTCODE = 6a PARAMETER PR13_SAVPSL$V_HALTCODE = 8 ! Halt code containing one of the following values, PARAMETER PR13_SAVPSL$S_INVALID = 1F PARAMETER PR13_SAVPSL$V_INVALID = 14 ! Invalid SAVPSL if = 1* PARAMETER PR13_SAVPSL$S_MAPEN = 17 P ARAMETER PR13_SAVPSL$V_MAPEN = 15 ! MAPEN<0>, PARAMETER PR13_SAVPSL$S_PSL_HI = 16, PARAMETER PR13_SAVPSL$V_PSL_HI = 164 BYTE %FILL (4) ! Saved PSL bits <31:16> END MAP MAP+ PARAMETER PR13_SID$S_UCODE_REV = 8O PARAMETER PR13_SID$V_UCODE_REV = 0 ! Microcode (chip) revision number3 PARAMETER PR13_SID$S_NONSTANDARD_PATCH = 1[ PARAMETER PR13_SID$V_NONSTANDARD_PATCH = 8 ! PCS loaded with a non-standard patch+ PAR AMETER PR13_SID$S_PATCH_REV = 5D PARAMETER PR13_SID$V_PATCH_REV = 9 ! Patch revision number& PARAMETER PR13_SID$S_TYPE = 8' PARAMETER PR13_SID$V_TYPE = 24A BYTE %FILL (3) ! CPU type code (19 decimal for NVAX) END MAP#! System-level required registers.@! These registers are for testability and diagnostics use only.5! They should not be referenced in normal operation. MAP' PARAMETER PR13_IAK$S_IPL17 = 1U PARAMETER PR13_IA K$V_IPL17 = 0 ! Force IPL 17, independent of actual level$ PARAMETER PR13_IAK$S_PR = 18 PARAMETER PR13_IAK$V_PR = 1 ! Passive release- PARAMETER PR13_IAK$S_SCB_OFFSET = 14T PARAMETER PR13_IAK$V_SCB_OFFSET = 2 ! LW offset in SCB of interrupt vector BYTE %FILL (2) END MAP! Ebox register definition MAP* PARAMETER PR13_INTSYS$S_ICCS6 = 1: PARAMETER PR13_INTSYS$V_ICCS6 = 0 ! ICCS<6> (RO)* PARAMETER PR13_INTSYS$S_S !ISR = 15< PARAMETER PR13_INTSYS$V_SISR = 1 ! SISR<15:1> (RO)+ PARAMETER PR13_INTSYS$S_INT_ID = 5T PARAMETER PR13_INTSYS$V_INT_ID = 16 ! ID of highest pending interrupt (RO)2 PARAMETER PR13_INTSYS$S_INT_TIM_RESET = 1Z PARAMETER PR13_INTSYS$V_INT_TIM_RESET = 24 ! Interval timer interrupt reset (WC)0 PARAMETER PR13_INTSYS$S_S_ERR_RESET = 1T PARAMETER PR13_INTSYS$V_S_ERR_RESET = 27 ! Soft error interrupt reset (WC)/ PARAMETER PR1 "3_INTSYS$S_PMON_RESET = 1_ PARAMETER PR13_INTSYS$V_PMON_RESET = 28 ! Performance monitoring interrupt reset (WC)0 PARAMETER PR13_INTSYS$S_H_ERR_RESET = 1T PARAMETER PR13_INTSYS$V_H_ERR_RESET = 29 ! Hard error interrupt reset (WC)0 PARAMETER PR13_INTSYS$S_PWRFL_RESET = 1T PARAMETER PR13_INTSYS$V_PWRFL_RESET = 30 ! Power fail interrupt reset (WC)/ PARAMETER PR13_INTSYS$S_HALT_RESET = 10 PARAMETER PR13_INTSYS$V_HALT_RESET = 31; # BYTE %FILL (4) ! Halt pin interrupt reset (WC) END MAP MAP, PARAMETER PR13_PMFCNT$S_PMCTR0 = 16: PARAMETER PR13_PMFCNT$V_PMCTR0 = 0 ! PMCTR0 word, PARAMETER PR13_PMFCNT$S_PMCTR1 = 16, PARAMETER PR13_PMFCNT$V_PMCTR1 = 16) BYTE %FILL (4) ! PMCTR1 word END MAP MAP0 PARAMETER PR13_PCSCR$S_PAR_PORT_DIS = 1d PARAMETER PR13_PCSCR$V_PAR_PORT_DIS = 8 ! Disable parallel port control of scan chain (RW)+ P$ARAMETER PR13_PCSCR$S_PCS_ENB = 1Y PARAMETER PR13_PCSCR$V_PCS_ENB = 9 ! Enable use of patchable control store (RW)- PARAMETER PR13_PCSCR$S_PCS_WRITE = 1b PARAMETER PR13_PCSCR$V_PCS_WRITE = 10 ! Write scan chain to patchable control store (WO)- PARAMETER PR13_PCSCR$S_RWL_SHIFT = 1c PARAMETER PR13_PCSCR$V_RWL_SHIFT = 11 ! Shift read-write latch scan chain by one bit (WO)( PARAMETER PR13_PCSCR$S_DATA = 1\ PARAMETER PR13_PCSCR$V_DATA = % 12 ! Data to be shifted into the PCS scan chain (RW)5 PARAMETER PR13_PCSCR$S_NONSTANDARD_PATCH = 1c PARAMETER PR13_PCSCR$V_NONSTANDARD_PATCH = 23 ! PCS loaded with a non-standard patch (RW)- PARAMETER PR13_PCSCR$S_PATCH_REV = 5L PARAMETER PR13_PCSCR$V_PATCH_REV = 24 ! Patch revision number (RW) BYTE %FILL (2) END MAP MAP0 PARAMETER PR13_ECR$S_VECTOR_PRESENT = 1L PARAMETER PR13_ECR$V_VECTOR_PRESENT = 0 ! Vector unit presen &t (RW)- PARAMETER PR13_ECR$S_FBOX_ENABLE = 1B PARAMETER PR13_ECR$V_FBOX_ENABLE = 1 ! Fbox enabled (RW)- PARAMETER PR13_ECR$S_TIMEOUT_EXT = 1i PARAMETER PR13_ECR$V_TIMEOUT_EXT = 2 ! Select external timebase for S3 stall timeout timer (RW)5 PARAMETER PR13_ECR$S_FBOX_ST4_BYPASS_ENA = 1d PARAMETER PR13_ECR$V_FBOX_ST4_BYPASS_ENA = 3 ! Fbox stage 4 conditional bypass enable (RW)2 PARAMETER PR13_ECR$S_TIMEOUT_OCCURRED = 1T PARAMET'ER PR13_ECR$V_TIMEOUT_OCCURRED = 4 ! S3 stall timeout occurred (WC). PARAMETER PR13_ECR$S_TIMEOUT_TEST = 1\ PARAMETER PR13_ECR$V_TIMEOUT_TEST = 5 ! Select test mode for S3 stall timeout (RW)/ PARAMETER PR13_ECR$S_TIMEOUT_CLOCK = 1H PARAMETER PR13_ECR$V_TIMEOUT_CLOCK = 6 ! Clock S3 timeout (RW)* PARAMETER PR13_ECR$S_ICCS_EXT = 1Z PARAMETER PR13_ECR$V_ICCS_EXT = 7 ! Full ICCS implemented in external logic (RW)2 PARAMETER PR13_ECR$S_FBOX(_TEST_ENABLE = 1O PARAMETER PR13_ECR$V_FBOX_TEST_ENABLE = 13 ! Enable test of Fbox (RW), PARAMETER PR13_ECR$S_PMF_ENABLE = 1\ PARAMETER PR13_ECR$V_PMF_ENABLE = 16 ! Performance monitoring facility enable (RW)* PARAMETER PR13_ECR$S_PMF_PMUX = 2a PARAMETER PR13_ECR$V_PMF_PMUX = 17 ! Performance monitoring facility master select (RW)* PARAMETER PR13_ECR$S_PMF_EMUX = 3c PARAMETER PR13_ECR$V_PMF_EMUX = 19 ! Performance monitoring facility ) Ebox mux select (RW)* PARAMETER PR13_ECR$S_PMF_LFSR = 1d PARAMETER PR13_ECR$V_PMF_LFSR = 22 ! Performance monitoring facility Wbus LFSR enable (RW)+ PARAMETER PR13_ECR$S_PMF_CLEAR = 1, PARAMETER PR13_ECR$V_PMF_CLEAR = 31Q BYTE %FILL (3) ! Clear performance monitoring hardware counters (WO) END MAP! Mbox TB registers.@! These registers are for testability and diagnostics use only.5! They should not be referenced in normal operation. * MAP' PARAMETER PR13_MTBTAG$S_TP = 1: PARAMETER PR13_MTBTAG$V_TP = 0 ! Tag parity bit) PARAMETER PR13_MTBTAG$S_VPN = 23( PARAMETER PR13_MTBTAG$V_VPN = 9G BYTE %FILL (3) ! Virtual page number of address (VA<31:9>) END MAP MAP) PARAMETER PR13_MTBPTE$S_PFN = 23I PARAMETER PR13_MTBPTE$V_PFN = 0 ! Page frame number (PA<31:9>)& PARAMETER PR13_MTBPTE$S_P = 16 PARAMETER PR13_MTBPTE$V_P = 24 ! PTE pa+rity& PARAMETER PR13_MTBPTE$S_M = 16 PARAMETER PR13_MTBPTE$V_M = 26 ! Modify bit) PARAMETER PR13_MTBPTE$S_PROT = 2> PARAMETER PR13_MTBPTE$V_PROT = 27 ! Protection field& PARAMETER PR13_MTBPTE$S_V = 19 PARAMETER PR13_MTBPTE$V_V = 29 ! PTE valid bit BYTE %FILL (4) END MAP ! Vector architecture registers MAP& PARAMETER PR13_VPSR$S_VEN = 1H PARAMETER PR13_VPSR$V_VEN = 0 ! Vector processor enabled (RW)& , PARAMETER PR13_VPSR$S_RST = 1L PARAMETER PR13_VPSR$V_RST = 1 ! Vector processor state reset (WO)& PARAMETER PR13_VPSR$S_AEX = 1K PARAMETER PR13_VPSR$V_AEX = 7 ! Vector arithmetic exception (WC)& PARAMETER PR13_VPSR$S_IMP = 1W PARAMETER PR13_VPSR$V_IMP = 24 ! Implementation-specific hardware error (WC)& PARAMETER PR13_VPSR$S_BSY = 1' PARAMETER PR13_VPSR$V_BSY = 318 BYTE %FILL (1) ! Vector processor busy (RO) - END MAP MAP) PARAMETER PR13_VAER$S_F_UNDF = 1? PARAMETER PR13_VAER$V_F_UNDF = 0 ! Floating underflow) PARAMETER PR13_VAER$S_F_DIVZ = 1D PARAMETER PR13_VAER$V_F_DIVZ = 1 ! Floating divide-by-zero) PARAMETER PR13_VAER$S_F_ROPR = 1F PARAMETER PR13_VAER$V_F_ROPR = 2 ! Floating reserved operand) PARAMETER PR13_VAER$S_F_OVFL = 1> PARAMETER PR13_VAER$V_F_OVFL = 3 ! Floating overflow) PARAMETER PR13_VAER$S_I_OVF .L = 1= PARAMETER PR13_VAER$V_I_OVFL = 5 ! Integer overflow1 PARAMETER PR13_VAER$S_REGISTER_MASK = 161 PARAMETER PR13_VAER$V_REGISTER_MASK = 16> BYTE %FILL (3) ! Vector destination register mask END MAP MAP) PARAMETER PR13_CCTL$S_ENABLE = 1? PARAMETER PR13_CCTL$V_ENABLE = 0 ! Enable Bcache (RW), PARAMETER PR13_CCTL$S_TAG_SPEED = 1B PARAMETER PR13_CCTL$V_TAG_SPEED = 1 ! Tag RAM speed (RW)- PARAMETER / PR13_CCTL$S_DATA_SPEED = 2D PARAMETER PR13_CCTL$V_DATA_SPEED = 2 ! Data RAM speed (RW)' PARAMETER PR13_CCTL$S_SIZE = 2< PARAMETER PR13_CCTL$V_SIZE = 4 ! Bcache size (RW), PARAMETER PR13_CCTL$S_FORCE_HIT = 1E PARAMETER PR13_CCTL$V_FORCE_HIT = 6 ! Force Bcache hit (RW)1 PARAMETER PR13_CCTL$S_DISABLE_ERRORS = 1S PARAMETER PR13_CCTL$V_DISABLE_ERRORS = 7 ! Disable Bcache ECC errors (RW)) PARAMETER PR13_CCTL$S_SW_ECC = 1L 0 PARAMETER PR13_CCTL$V_SW_ECC = 8 ! Enable use of software ECC (RW)/ PARAMETER PR13_CCTL$S_TIMEOUT_TEST = 1a PARAMETER PR13_CCTL$V_TIMEOUT_TEST = 9 ! Enable test of Cbox read timeout counters (RW)/ PARAMETER PR13_CCTL$S_DISABLE_PACK = 1N PARAMETER PR13_CCTL$V_DISABLE_PACK = 10 ! Disable write packing (RW)1 PARAMETER PR13_CCTL$S_PM_ACCESS_TYPE = 3] PARAMETER PR13_CCTL$V_PM_ACCESS_TYPE = 11 ! Performance monitoring access type (RW). 1 PARAMETER PR13_CCTL$S_PM_HIT_TYPE = 2W PARAMETER PR13_CCTL$V_PM_HIT_TYPE = 14 ! Performance monitoring hit type (RW)2 PARAMETER PR13_CCTL$S_FORCE_NDAL_PERR = 1v PARAMETER PR13_CCTL$V_FORCE_NDAL_PERR = 16 ! Forces 1 parity error on the NDAL, on next outgoing transaction) PARAMETER PR13_CCTL$S_SW_ETM = 1W PARAMETER PR13_CCTL$V_SW_ETM = 30 ! Enter software error transition mode (RW)) PARAMETER PR13_CCTL$S_HW_ETM = 1* PARAMETER P2R13_CCTL$V_HW_ETM = 31M BYTE %FILL (3) ! Error transition mode entered due to error (WC) END MAP MAP* PARAMETER PR13_BCDECC$S_ECCLO = 4B PARAMETER PR13_BCDECC$V_ECCLO = 6 ! ECC check bits <3:0>* PARAMETER PR13_BCDECC$S_ECCHI = 4C PARAMETER PR13_BCDECC$V_ECCHI = 22 ! ECC check bits <7:4> BYTE %FILL (1) END MAP! Cbox registers, continued MAP* PARAMETER PR13_BCETSTS$S_LOCK = 1a PARAMETER PR13_BCETSTS$ 3V_LOCK = 0 ! Tag store registers are locked due to an error (WC)* PARAMETER PR13_BCETSTS$S_CORR = 1M PARAMETER PR13_BCETSTS$V_CORR = 1 ! Correctable error occurred (WC), PARAMETER PR13_BCETSTS$S_UNCORR = 1Q PARAMETER PR13_BCETSTS$V_UNCORR = 2 ! Uncorrectable error occurred (WC). PARAMETER PR13_BCETSTS$S_BAD_ADDR = 1P PARAMETER PR13_BCETSTS$V_BAD_ADDR = 3 ! Addressing error occurred (WC). PARAMETER PR13_BCETSTS$S_LOST_ERR = 1^ 4 PARAMETER PR13_BCETSTS$V_LOST_ERR = 4 ! Error occured while register was locked (WC), PARAMETER PR13_BCETSTS$S_TS_CMD = 5Y PARAMETER PR13_BCETSTS$V_TS_CMD = 5 ! Tag store command which caused error (RO) BYTE %FILL (2) END MAP MAP* PARAMETER PR13_BCETAG$S_VALID = 17 PARAMETER PR13_BCETAG$V_VALID = 9 ! Valid bit* PARAMETER PR13_BCETAG$S_OWNED = 1< PARAMETER PR13_BCETAG$V_OWNED = 10 ! Ownership bit( PARAMETER PR13_ 5BCETAG$S_ECC = 65 PARAMETER PR13_BCETAG$V_ECC = 11 ! ECC bits) PARAMETER PR13_BCETAG$S_TAG = 15) PARAMETER PR13_BCETAG$V_TAG = 17& BYTE %FILL (3) ! tag data END MAP! Cbox registers, continued MAP* PARAMETER PR13_BCEDSTS$S_LOCK = 1` PARAMETER PR13_BCEDSTS$V_LOCK = 0 ! Data RAM registers are locked due to an error (WC)* PARAMETER PR13_BCEDSTS$S_CORR = 1Q PARAMETER PR13_BCEDSTS$V_CORR = 1 ! Correctable ECC er 6ror occurred (WC), PARAMETER PR13_BCEDSTS$S_UNCORR = 1U PARAMETER PR13_BCEDSTS$V_UNCORR = 2 ! Uncorrectable ECC error occurred (WC). PARAMETER PR13_BCEDSTS$S_BAD_ADDR = 1P PARAMETER PR13_BCEDSTS$V_BAD_ADDR = 3 ! Addressing error occurred (WC). PARAMETER PR13_BCEDSTS$S_LOST_ERR = 1_ PARAMETER PR13_BCEDSTS$V_LOST_ERR = 4 ! Error occurred while register was locked (WC), PARAMETER PR13_BCEDSTS$S_DR_CMD = 4X PARAMETER PR13_BCEDST7S$V_DR_CMD = 8 ! Data RAM command which caused error (RO) BYTE %FILL (2) END MAP MAP+ PARAMETER PR13_BCEDECC$S_ECCLO = 4R PARAMETER PR13_BCEDECC$V_ECCLO = 6 ! Bcache data ECC syndrome bits <3:0>+ PARAMETER PR13_BCEDECC$S_ECCHI = 4S PARAMETER PR13_BCEDECC$V_ECCHI = 22 ! Bcache data ECC syndrome bits <7:4> BYTE %FILL (1) END MAP! Cbox registers, continued MAP) PARAMETER PR13_CEFSTS$S_RDLK = 1S PARAMETER8 PR13_CEFSTS$V_RDLK = 0 ! Error occurred during a read lock (WC)) PARAMETER PR13_CEFSTS$S_LOCK = 1f PARAMETER PR13_CEFSTS$V_LOCK = 1 ! CEFSTS & CEFADR registers are locked due to an error (WC), PARAMETER PR13_CEFSTS$S_TIMEOUT = 1[ PARAMETER PR13_CEFSTS$V_TIMEOUT = 2 ! Fill failed due to transaction timeout (WC)( PARAMETER PR13_CEFSTS$S_RDE = 1T PARAMETER PR13_CEFSTS$V_RDE = 3 ! Fill failed due to Read Data Error (WC)- PARAMETER PR1 93_CEFSTS$S_LOST_ERR = 1^ PARAMETER PR13_CEFSTS$V_LOST_ERR = 4 ! Error occurred while register was locked (WC)( PARAMETER PR13_CEFSTS$S_ID0 = 1L PARAMETER PR13_CEFSTS$V_ID0 = 5 ! NDAL id<0> for failed read (RO)* PARAMETER PR13_CEFSTS$S_IREAD = 1P PARAMETER PR13_CEFSTS$V_IREAD = 6 ! Error occured during an IREAD (RO)* PARAMETER PR13_CEFSTS$S_OREAD = 1Q PARAMETER PR13_CEFSTS$V_OREAD = 7 ! Error occurred during an OREAD (RO)* P :ARAMETER PR13_CEFSTS$S_WRITE = 1P PARAMETER PR13_CEFSTS$V_WRITE = 8 ! Error occurred during a write (RO), PARAMETER PR13_CEFSTS$S_TO_MBOX = 1S PARAMETER PR13_CEFSTS$V_TO_MBOX = 9 ! Data was destined for the Mbox (RO)( PARAMETER PR13_CEFSTS$S_RIP = 1M PARAMETER PR13_CEFSTS$V_RIP = 10 ! READ invalidate was pending (RO)( PARAMETER PR13_CEFSTS$S_OIP = 1N PARAMETER PR13_CEFSTS$V_OIP = 11 ! OREAD invalidate was pending (RO)( PARAM;ETER PR13_CEFSTS$S_DNF = 1b PARAMETER PR13_CEFSTS$V_DNF = 12 ! Data was not to be validated when fill completed (RO)1 PARAMETER PR13_CEFSTS$S_RDLK_FL_DONE = 1[ PARAMETER PR13_CEFSTS$V_RDLK_FL_DONE = 13 ! Last fill for read lock received (RO)2 PARAMETER PR13_CEFSTS$S_REQ_FILL_DONE = 1j PARAMETER PR13_CEFSTS$V_REQ_FILL_DONE = 14 ! Requested fill quadword was received for this read.* PARAMETER PR13_CEFSTS$S_COUNT = 2[ PARAMETER PR13_CEFS <TS$V_COUNT = 15 ! Number of requested QW of fill received (RO)4 PARAMETER PR13_CEFSTS$S_UNEXPECTED_FILL = 1{ PARAMETER PR13_CEFSTS$V_UNEXPECTED_FILL = 21 ! RDE or RDR was received from the NDAL when fill_cam not valid (WC) BYTE %FILL (3) END MAP! Cbox registers, continued MAP) PARAMETER PR13_NESTS$S_NOACK = 1M PARAMETER PR13_NESTS$V_NOACK = 0 ! Outgoing command was NACKed (WC), PARAMETER PR13_NESTS$S_BADWDATA = 1O PARAM=ETER PR13_NESTS$V_BADWDATA = 1 ! BADWDATA cycle transmitted (WC)- PARAMETER PR13_NESTS$S_LOST_OERR = 1g PARAMETER PR13_NESTS$V_LOST_OERR = 2 ! Outgoing error was lost while register was locked (WC)( PARAMETER PR13_NESTS$S_PERR = 1L PARAMETER PR13_NESTS$V_PERR = 3 ! NDAL parity error detected (WC). PARAMETER PR13_NESTS$S_INCON_PERR = 1e PARAMETER PR13_NESTS$V_INCON_PERR = 4 ! Inconsistent parity error (parity error detected on- PAR >AMETER PR13_NESTS$S_LOST_PERR = 1j PARAMETER PR13_NESTS$V_LOST_PERR = 5 ! NDAL parity error detected while register was locked (WC)! ACKed transaction) (WC) BYTE %FILL (1) END MAP MAP( PARAMETER PR13_NEOCMD$S_CMD = 4c PARAMETER PR13_NEOCMD$V_CMD = 0 ! NDAL command on outgoing error transaction (see below)' PARAMETER PR13_NEOCMD$S_ID = 3Q PARAMETER PR13_NEOCMD$V_ID = 4 ! NDAL ID on outgoing error transaction, PARAMETER ? PR13_NEOCMD$S_BYTE_EN = 8Z PARAMETER PR13_NEOCMD$V_BYTE_EN = 8 ! Byte enables on outgoing error transaction( PARAMETER PR13_NEOCMD$S_LEN = 2) PARAMETER PR13_NEOCMD$V_LEN = 30N BYTE %FILL (3) ! Length on outgoing error transaction (see below) END MAP MAP( PARAMETER PR13_NEICMD$S_CMD = 4c PARAMETER PR13_NEICMD$V_CMD = 0 ! NDAL command received on error transaction (see below)' PARAMETER PR13_NEICMD$S_ID = 3Q P @ARAMETER PR13_NEICMD$V_ID = 4 ! NDAL ID received error on transaction+ PARAMETER PR13_NEICMD$S_PARITY = 3] PARAMETER PR13_NEICMD$V_PARITY = 7 ! NDAL parity bits received error on transaction BYTE %FILL (2) END MAP! Encoded NDAL length values MAP) PARAMETER PR13_BCTAG$S_VALID = 1; PARAMETER PR13_BCTAG$V_VALID = 9 ! Valid bit (RW)) PARAMETER PR13_BCTAG$S_OWNED = 1@ PARAMETER PR13_BCTAG$V_OWNED = 10 ! Ownership bit (R AW)' PARAMETER PR13_BCTAG$S_ECC = 6: PARAMETER PR13_BCTAG$V_ECC = 11 ! ECC bits (RW)( PARAMETER PR13_BCTAG$S_TAG = 15( PARAMETER PR13_BCTAG$V_TAG = 17+ BYTE %FILL (3) ! tag data (RW) END MAP MAP% PARAMETER PR13_VMAR$S_LW = 1B PARAMETER PR13_VMAR$V_LW = 2 ! longword within quadword, PARAMETER PR13_VMAR$S_SUB_BLOCK = 2C PARAMETER PR13_VMAR$V_SUB_BLOCK = 3 ! sub-block indicator, PARAMETER PR1 B3_VMAR$S_ROW_INDEX = 6? PARAMETER PR13_VMAR$V_ROW_INDEX = 5 ! cache row index( PARAMETER PR13_VMAR$S_ADDR = 21( PARAMETER PR13_VMAR$V_ADDR = 11+ BYTE %FILL (4) ! error address END MAP MAP$ PARAMETER PR13_VTAG$S_V = 48 PARAMETER PR13_VTAG$V_V = 0 ! data valid bits% PARAMETER PR13_VTAG$S_DP = 4: PARAMETER PR13_VTAG$V_DP = 4 ! data parity bits% PARAMETER PR13_VTAG$S_TP = 18 PARAMETER PR13_VT CAG$V_TP = 8 ! tag parity bit' PARAMETER PR13_VTAG$S_TAG = 21' PARAMETER PR13_VTAG$V_TAG = 11! BYTE %FILL (4) ! tag END MAP MAP) PARAMETER PR13_ICSR$S_ENABLE = 1@ PARAMETER PR13_ICSR$V_ENABLE = 0 ! VIC enable bit (RW)' PARAMETER PR13_ICSR$S_LOCK = 1S PARAMETER PR13_ICSR$V_LOCK = 2 ! Register is locked due to an error (WC)( PARAMETER PR13_ICSR$S_DPERR = 1C PARAMETER PR13_ICSR$V_DPERR = 3 ! Data Dparity error (RO)( PARAMETER PR13_ICSR$S_TPERR = 1B PARAMETER PR13_ICSR$V_TPERR = 4 ! Tag parity error (RO) BYTE %FILL (1) END MAP MAP* PARAMETER PR13_BPCR$S_HISTORY = 4A PARAMETER PR13_BPCR$V_HISTORY = 0 ! branch history bits- PARAMETER PR13_BPCR$S_MISPREDICT = 1G PARAMETER PR13_BPCR$V_MISPREDICT = 5 ! history of last branch, PARAMETER PR13_BPCR$S_FLUSH_BHT = 1J PARAMETER PR13_BPCR$V_FLUSH_BHT = 6 ! fl Eush branch history table, PARAMETER PR13_BPCR$S_FLUSH_CTR = 1N PARAMETER PR13_BPCR$V_FLUSH_CTR = 7 ! flush branch hist addr counter/ PARAMETER PR13_BPCR$S_LOAD_HISTORY = 1M PARAMETER PR13_BPCR$V_LOAD_HISTORY = 8 ! write new history to array1 PARAMETER PR13_BPCR$S_BPU_ALGORITHM = 161 PARAMETER PR13_BPCR$V_BPU_ALGORITHM = 169 BYTE %FILL (3) ! branch prediction algorithm END MAPL! The following two registers are for testabi Flity and diagnostics use only.5! They should not be referenced in normal operation.@! These registers are for testability and diagnostics use only.H! In normal operation, the equivalent architecturally-defined registers! should be used instead. MAP) PARAMETER PR13_PAMODE$S_MODE = 1W PARAMETER PR13_PAMODE$V_MODE = 0 ! Addressing mode(1 = 32bit addressing) (RW) BYTE %FILL (1) END MAP MAP' PARAMETER PR13_MMESTS$S_LV = 1M PARAMETER G PR13_MMESTS$V_LV = 0 ! ACV fault due to length violation, PARAMETER PR13_MMESTS$S_PTE_REF = 1X PARAMETER PR13_MMESTS$V_PTE_REF = 1 ! ACV/TNV fault occurred on PPTE reference& PARAMETER PR13_MMESTS$S_M = 1O PARAMETER PR13_MMESTS$V_M = 2 ! Reference had write or modify intent* PARAMETER PR13_MMESTS$S_FAULT = 2P PARAMETER PR13_MMESTS$V_FAULT = 14 ! Fault type, one of the following:( PARAMETER PR13_MMESTS$S_SRC = 3a PARAMETER H PR13_MMESTS$V_SRC = 26 ! Shadow copy of LOCK bits (see MSRC$ constants below)) PARAMETER PR13_MMESTS$S_LOCK = 3* PARAMETER PR13_MMESTS$V_LOCK = 29D BYTE %FILL (2) ! Lock status (see MSRC$ constant below) END MAP MAP( PARAMETER PR13_TBSTS$S_LOCK = 1T PARAMETER PR13_TBSTS$V_LOCK = 0 ! Register is locked due to an error (WC)) PARAMETER PR13_TBSTS$S_DPERR = 1C PARAMETER PR13_TBSTS$V_DPERR = 1 ! Data parity error (RO)) I PARAMETER PR13_TBSTS$S_TPERR = 1B PARAMETER PR13_TBSTS$V_TPERR = 2 ! Tag parity error (RO)* PARAMETER PR13_TBSTS$S_EM_VAL = 1Y PARAMETER PR13_TBSTS$V_EM_VAL = 3 ! EM latch was valid when error occurred (RO)' PARAMETER PR13_TBSTS$S_CMD = 5X PARAMETER PR13_TBSTS$V_CMD = 4 ! S5 command when TB parity error occured (RO)' PARAMETER PR13_TBSTS$S_SRC = 3( PARAMETER PR13_TBSTS$V_SRC = 29Z BYTE %FILL (2) ! Source of or Jiginal refernce (see MSRC$ constants below) (RO) END MAP MAP( PARAMETER PR13_PCSTS$S_LOCK = 1T PARAMETER PR13_PCSTS$V_LOCK = 0 ! Register is locked due to an error (WC)) PARAMETER PR13_PCSTS$S_DPERR = 1L PARAMETER PR13_PCSTS$V_DPERR = 1 ! Data parity error occurred (RO). PARAMETER PR13_PCSTS$S_RIGHT_BANK = 1[ PARAMETER PR13_PCSTS$V_RIGHT_BANK = 2 ! Right bank tag parity error occurred (RO)- PARAMETER PR13_PCSTS$S_LEFT_BANKK = 1Y PARAMETER PR13_PCSTS$V_LEFT_BANK = 3 ! Left bank tag parity error occurred (RO)' PARAMETER PR13_PCSTS$S_CMD = 5\ PARAMETER PR13_PCSTS$V_CMD = 4 ! S6 command when Pcache parity error occured (RO)- PARAMETER PR13_PCSTS$S_PTE_ER_WR = 1k PARAMETER PR13_PCSTS$V_PTE_ER_WR = 9 ! Hard error on PTE DREAD occurred (orig ref was WRITE) (WC)* PARAMETER PR13_PCSTS$S_PTE_ER = 1T PARAMETER PR13_PCSTS$V_PTE_ER = 10 ! Hard error on PTE DRE LAD occurred (WC) BYTE %FILL (2) END MAP MAP, PARAMETER PR13_PCCTL$S_D_ENABLE = 1d PARAMETER PR13_PCCTL$V_D_ENABLE = 0 ! Enable for invalidate, D-stream read/write/fill (RW), PARAMETER PR13_PCCTL$S_I_ENABLE = 1^ PARAMETER PR13_PCCTL$V_I_ENABLE = 1 ! Enable for invalidate, I-stream read/fill (RW)- PARAMETER PR13_PCCTL$S_FORCE_HIT = 1[ PARAMETER PR13_PCCTL$V_FORCE_HIT = 2 ! Enable force hit on Pcache references (RW), PMARAMETER PR13_PCCTL$S_BANK_SEL = 1[ PARAMETER PR13_PCCTL$V_BANK_SEL = 3 ! Select left bank if 0, right bank if 1 (RW), PARAMETER PR13_PCCTL$S_P_ENABLE = 1K PARAMETER PR13_PCCTL$V_P_ENABLE = 4 ! Enable parity checking (RW)' PARAMETER PR13_PCCTL$S_PMM = 3N PARAMETER PR13_PCCTL$V_PMM = 5 ! Mbox performance monitor mode (RW)0 PARAMETER PR13_PCCTL$S_ELEC_DISABLE = 1V PARAMETER PR13_PCCTL$V_ELEC_DISABLE = 8 ! Pcache electrical disable bi Nt (RW). PARAMETER PR13_PCCTL$S_RED_ENABLE = 1L PARAMETER PR13_PCCTL$V_RED_ENABLE = 9 ! Redundancy enable bit (RO) BYTE %FILL (2) END MAP MAP% PARAMETER PR13_PCTAG$S_A = 1` PARAMETER PR13_PCTAG$V_A = 0 ! Allocation bit corresponding to index of this tag (RW)% PARAMETER PR13_PCTAG$S_V = 4_ PARAMETER PR13_PCTAG$V_V = 1 ! Valid bits corresponding to the 4 data subblocks (RW)% PARAMETER PR13_PCTAG$S_P = 19 POARAMETER PR13_PCTAG$V_P = 5 ! Tag parity (RW)( PARAMETER PR13_PCTAG$S_TAG = 20( PARAMETER PR13_PCTAG$V_TAG = 12+ BYTE %FILL (4) ! Tag bits (RW) END MAP MAP/ PARAMETER PR13_PCDAP$S_DATA_PARITY = 8c PARAMETER PR13_PCDAP$V_DATA_PARITY = 0 ! Even byte parity for the addressed quadword (RW) BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR13DEFCDEC$ END OPTIONS ww-Q)!*** MODULE $PR1701DEF *** PCDEC$ OPTIONS /NOALIGNJ PARAMETER PR1701$K_REVISION = '00000001'X ! Revision number of this fileN! In the definitions below, registers are annotated with one of the following ! symbols:! 1! RW - The register may be read and written'! RO - The register may only be read*! WO - The register may only be written! L! For RO and WO registers, all bits and fields within the register are alsoG! read-only or write-only. For RW registers, each bit or field within7! the registe Qr is annotated with one of the following:! /! RW - The bit/field may be read and written7! RO - The bit/field may be read; writes are ignoredM! WO - The bit/field may be written; reads return an UNPREDICTABLE result.8! WZ - The bit/field may be written; reads return a 0@! WC - The bit/field may be read; writes cause state to clearY! RC - The bit/field may be read, which also causes state to clear; writes are ignored@ PARAMETER PR1701$_IPL = '00000012'X ! Interrupt Prio Rrity LevelF PARAMETER PR1701$_ICCS = '00000018'X ! Interval Clock Control/Status< PARAMETER PR1701$_NICR = '00000019'X ! Next Interval Count6 PARAMETER PR1701$_ICR = '0000001A'X ! Interval CountC PARAMETER PR1701$_TODR = '0000001B'X ! Time Of Year Register (RW)K PARAMETER PR1701$_MCESR = '00000026'X ! Machine check error register (WO)? PARAMETER PR1701$_SAVPC = '0000002A'X ! Console saved PC (RO)A PARAMETER PR1701$_SAVPSL = '0000002B'X ! Console saved PSL (RO)- PARAMETER PR17_SAVPSLS$M_PSL_LO = '000000FF'X/ PARAMETER PR17_SAVPSL$M_HALTCODE = '00003F00'XI PARAMETER PR17_SAVPSL$K_HALT_HLTPIN = '00000002'X ! HALT_L pin assertedD PARAMETER PR17_SAVPSL$K_HALT_PWRUP = '00000003'X ! Initial powerupO PARAMETER PR17_SAVPSL$K_HALT_INTSTK = '00000004'X ! Interrupt stack not valid_ PARAMETER PR17_SAVPSL$K_HALT_DOUBLE = '00000005'X ! Machine check during exception processingU PARAMETER PR17_SAVPSL$K_HALT_HLTINS = '00000006'X ! Halt instruction in kernel modeW PARAMETER PR17_TSAVPSL$K_HALT_ILLVEC = '00000007'X ! Illegal SCB vector (bits<1:0>=11)S PARAMETER PR17_SAVPSL$K_HALT_WCSVEC = '00000008'X ! WCS SCB vector (bits<1:0>=10)L PARAMETER PR17_SAVPSL$K_HALT_CHMFI = '0000000A'X ! CHMx on interrupt stackZ PARAMETER PR17_SAVPSL$K_HALT_IE0 = '00000010'X ! ACV/TNV during machine check processingQ PARAMETER PR17_SAVPSL$K_HALT_IE1 = '00000011'X ! ACV/TNV during KSNV processing` PARAMETER PR17_SAVPSL$K_HALT_IE2 = '00000012'X ! Machine check during machine check procesUsingW PARAMETER PR17_SAVPSL$K_HALT_IE3 = '00000013'X ! Machine check during KSNV processingf PARAMETER PR17_SAVPSL$K_HALT_IE_PSL_101 = '00000019'X ! PSL<26:24>=101 during interrupt or exceptionf PARAMETER PR17_SAVPSL$K_HALT_IE_PSL_110 = '0000001A'X ! PSL<26:24>=110 during interrupt or exceptionf PARAMETER PR17_SAVPSL$K_HALT_IE_PSL_111 = '0000001B'X ! PSL<26:24>=111 during interrupt or exceptionT PARAMETER PR17_SAVPSL$K_HALT_REI_PSL_101 = '0000001D'X ! PSL<26:24>=101 during REIT PARAMETER P VR17_SAVPSL$K_HALT_REI_PSL_110 = '0000001E'X ! PSL<26:24>=110 during REIT PARAMETER PR17_SAVPSL$K_HALT_REI_PSL_111 = '0000001F'X ! PSL<26:24>=111 during REI. PARAMETER PR17_SAVPSL$M_INVALID = '00004000'X, PARAMETER PR17_SAVPSL$M_MAPEN = '00008000'X- PARAMETER PR17_SAVPSL$M_PSL_HI = 'FFFF0000'XJ PARAMETER PR1701$_IORESET = '00000037'X ! I/O system reset register (WO)J PARAMETER PR1701$_PME = '0000003D'X ! Performance monitoring enable (RW)#! System-level required registers.M PARAMETER PR1 W701$_IAK14 = '00000040'X ! Level 14 interrupt acknowledge (RO)M PARAMETER PR1701$_IAK15 = '00000041'X ! Level 15 interrupt acknowledge (RO)M PARAMETER PR1701$_IAK16 = '00000042'X ! Level 16 interrupt acknowledge (RO)M PARAMETER PR1701$_IAK17 = '00000043'X ! Level 17 interrupt acknowledge (RO)$ PARAMETER IAK$M_IPL17 = '00000001'X! PARAMETER IAK$M_PR = '00000002'X) PARAMETER IAK$M_SCB_OFFSET = '0000FFFC'X@ PARAMETER PR1701$_CWB = '00000044'X ! Clear write buffers (RW)7 PARAMETER PR170 X1$_LMBOX = '00000079'X ! Laser Mailbox! Ebox registers.P PARAMETER PR1701$_INTSYS = '0000007A'X ! Interrupt system status register (RW)' PARAMETER INTSYS$M_ICCS6 = '00000001'X& PARAMETER INTSYS$M_SISR = '0000FFFE'X( PARAMETER INTSYS$M_INT_ID = '001F0000'X9 PARAMETER INTSYS$K_INT_ID_HALT = '0000001F'X ! Halt pin< PARAMETER INTSYS$K_INT_ID_PWRFL = '0000001E'X ! Power fail< PARAMETER INTSYS$K_INT_ID_H_ERR = '0000001D'X ! Hard errorB PARAMETER INTSYS$K_INT_ID_INT_TIM = '0000001C'X ! In Yterval timerD PARAMETER INTSYS$K_INT_ID_PMON = '0000001B'X ! Performance monitor< PARAMETER INTSYS$K_INT_ID_S_ERR = '0000001A'X ! Soft errorH PARAMETER INTSYS$K_INT_ID_IRQ3 = '00000017'X ! IPL 17 device interruptH PARAMETER INTSYS$K_INT_ID_IRQ2 = '00000016'X ! IPL 16 device interruptH PARAMETER INTSYS$K_INT_ID_IRQ1 = '00000015'X ! IPL 15 device interruptH PARAMETER INTSYS$K_INT_ID_IRQ0 = '00000014'X ! IPL 14 device interrupt; PARAMETER INTSYS$K_INT_ID_SISR15 = '0000000F'X ! SISR<15>; P ZARAMETER INTSYS$K_INT_ID_SISR14 = '0000000E'X ! SISR<14>; PARAMETER INTSYS$K_INT_ID_SISR13 = '0000000D'X ! SISR<13>; PARAMETER INTSYS$K_INT_ID_SISR12 = '0000000C'X ! SISR<12>; PARAMETER INTSYS$K_INT_ID_SISR11 = '0000000B'X ! SISR<11>; PARAMETER INTSYS$K_INT_ID_SISR10 = '0000000A'X ! SISR<10>9 PARAMETER INTSYS$K_INT_ID_SISR9 = '00000009'X ! SISR<9>9 PARAMETER INTSYS$K_INT_ID_SISR8 = '00000008'X ! SISR<8>9 PARAMETER INTSYS$K_INT_ID_SISR7 = '00000007'X ! SISR<7>9 PARAMETER INTSYS$ [K_INT_ID_SISR6 = '00000006'X ! SISR<6>9 PARAMETER INTSYS$K_INT_ID_SISR5 = '00000005'X ! SISR<5>9 PARAMETER INTSYS$K_INT_ID_SISR4 = '00000004'X ! SISR<4>9 PARAMETER INTSYS$K_INT_ID_SISR3 = '00000003'X ! SISR<3>9 PARAMETER INTSYS$K_INT_ID_SISR2 = '00000002'X ! SISR<2>9 PARAMETER INTSYS$K_INT_ID_SISR1 = '00000001'X ! SISR<1>? PARAMETER INTSYS$K_INT_ID_NO_INT = '00000000'X ! No interrupt/ PARAMETER INTSYS$M_INT_TIM_RESET = '01000000'X- PARAMETER INTSYS$M_S_ERR_RESET = '08000000'X, \ PARAMETER INTSYS$M_PMON_RESET = '10000000'X- PARAMETER INTSYS$M_H_ERR_RESET = '20000000'X- PARAMETER INTSYS$M_PWRFL_RESET = '40000000'X, PARAMETER INTSYS$M_HALT_RESET = '80000000'X^ PARAMETER PR1701$_PMFCNT = '0000007B'X ! Performance monitoring facility count register (RW)( PARAMETER PMFCNT$M_PMCTR0 = '0000FFFF'X( PARAMETER PMFCNT$M_PMCTR1 = 'FFFF0000'XW PARAMETER PR1701$_PCSCR = '0000007C'X ! Patchable control store control register (WO)- PARAMETER PCSCR$M_PAR_PORT_DIS = '00000100'X( ] PARAMETER PCSCR$M_PCS_ENB = '00000200'X* PARAMETER PCSCR$M_PCS_WRITE = '00000400'X* PARAMETER PCSCR$M_RWL_SHIFT = '00000800'X% PARAMETER PCSCR$M_DATA = '00001000'X2 PARAMETER PCSCR$M_NONSTANDARD_PATCH = '00800000'X* PARAMETER PCSCR$M_PATCH_REV = '1F000000'XB PARAMETER PR1701$_ECR = '0000007D'X ! Ebox control register (RW)- PARAMETER ECR$M_VECTOR_PRESENT = '00000001'X* PARAMETER ECR$M_FBOX_ENABLE = '00000002'X* PARAMETER ECR$M_TIMEOUT_EXT = '00000004'X5 PARAMETER ECR$M_FBOX_ST4_BYPASS_ENA ^BLE = '00000008'X/ PARAMETER ECR$M_TIMEOUT_OCCURRED = '00000010'X+ PARAMETER ECR$M_TIMEOUT_TEST = '00000020'X, PARAMETER ECR$M_TIMEOUT_CLOCK = '00000040'X/ PARAMETER ECR$M_FBOX_TEST_ENABLE = '00002000'X) PARAMETER ECR$M_PMF_ENABLE = '00010000'X' PARAMETER ECR$M_PMF_PMUX = '00060000'X7 PARAMETER ECR$K_PMUX_IBOX = '00000000'X ! Select Ibox7 PARAMETER ECR$K_PMUX_EBOX = '00000001'X ! Select Ebox7 PARAMETER ECR$K_PMUX_MBOX = '00000002'X ! Select Mbox7 PARAMETER ECR$K_PMUX_CBOX = '0000_0003'X ! Select Cbox' PARAMETER ECR$M_PMF_EMUX = '00380000'XU PARAMETER ECR$K_EMUX_S3_STALL = '00000000'X ! Measure S3 stall against total cyclesa PARAMETER ECR$K_EMUX_EM_PA_STALL = '00000001'X ! Measure EM+PA queue stall against total cycles\ PARAMETER ECR$K_EMUX_CPI = '00000002'X ! Measure instructions retired against total cyclesV PARAMETER ECR$K_EMUX_STALL = '00000003'X ! Measure total stalls against total cyclesY PARAMETER ECR$K_EMUX_S3_STALL_PCT = '00000004'X ! Measure S3 stall a `gainst total stallse PARAMETER ECR$K_EMUX_EM_PA_STALL_PCT = '00000005'X ! Measure EM+PA queue stall against total stallsG PARAMETER ECR$K_EMUX_UWORD = '00000007'X ! Count microword increments' PARAMETER ECR$M_PMF_LFSR = '00400000'X( PARAMETER ECR$M_PMF_CLEAR = '80000000'X@ PARAMETER PR1701$_MTBTAG = '0000007E'X ! Mbox TB tag fill (WO)$ PARAMETER MTBTAG$M_TP = '00000001'X% PARAMETER MTBTAG$M_VPN = 'FFFFFE00'X@ PARAMETER PR1701$_MTBPTE = '0000007F'X ! Mbox TB PTE fill (WO)% PARAMETER M aTBPTE$M_PFN = '007FFFFF'X# PARAMETER MTBPTE$M_P = '01000000'X# PARAMETER MTBPTE$M_M = '04000000'X& PARAMETER MTBPTE$M_PROT = '18000000'X# PARAMETER MTBPTE$M_V = '20000000'XN PARAMETER PR1701$_VPSR = '00000090'X ! Vector processor status register (RW)( PARAMETER PR17_VPSR$M_VEN = '00000001'X( PARAMETER PR17_VPSR$M_RST = '00000002'X( PARAMETER PR17_VPSR$M_AEX = '00000080'X( PARAMETER PR17_VPSR$M_IMP = '01000000'X( PARAMETER PR17_VPSR$M_BSY = '80000000'XR PARAMETER PR1701$_VAER = '0000009 b1'X ! Vector arithmetic exception register (RO)+ PARAMETER PR17_VAER$M_F_UNDF = '00000001'X+ PARAMETER PR17_VAER$M_F_DIVZ = '00000002'X+ PARAMETER PR17_VAER$M_F_ROPR = '00000004'X+ PARAMETER PR17_VAER$M_F_OVFL = '00000008'X+ PARAMETER PR17_VAER$M_I_OVFL = '00000020'X2 PARAMETER PR17_VAER$M_REGISTER_MASK = 'FFFF0000'XM PARAMETER PR1701$_VMAC = '00000092'X ! Vector memory activity register (RO)W PARAMETER PR1701$_VTBIA = '00000093'X ! Vector translation buffer invalidate all (WO)! C cbox registers.F PARAMETER PR1701$_BIU_CTL = '000000A0'X ! Cbox control register (RW)( PARAMETER BIU_CTL$M_BC_EN = '00000001'X& PARAMETER BIU_CTL$M_ECC = '00000002'X> PARAMETER BIU_CTL$K_ECC_ECC = '00000001'X ! select ECC modeD PARAMETER BIU_CTL$K_ECC_PARITY = '00000000'X ! select Parity mode% PARAMETER BIU_CTL$M_OE = '00000004'X* PARAMETER BIU_CTL$M_BC_FHIT = '00000008'X) PARAMETER BIU_CTL$M_BC_SPD = '000000F0'X< PARAMETER BIU_CTL$K_BC_SPD_2X = '00000000'X ! 2x cpu cycle< PARAMETER BdIU_CTL$K_BC_SPD_3X = '00000001'X ! 3x cpu cycle< PARAMETER BIU_CTL$K_BC_SPD_4X = '00000002'X ! 4x cpu cycle* PARAMETER BIU_CTL$M_BC_SIZE = '70000000'XH PARAMETER BIU_CTL$K_BC_SIZE_128KB = '00000000'X ! Select 128KB BcacheH PARAMETER BIU_CTL$K_BC_SIZE_256KB = '00000001'X ! Select 256KB BcacheH PARAMETER BIU_CTL$K_BC_SIZE_512KB = '00000002'X ! Select 512KB BcacheD PARAMETER BIU_CTL$K_BC_SIZE_1MB = '00000003'X ! Select 1MB BcacheD PARAMETER BIU_CTL$K_BC_SIZE_2MB = '00000004'X ! Select e2MB BcacheD PARAMETER BIU_CTL$K_BC_SIZE_4MB = '00000005'X ! Select 4MB BcacheD PARAMETER BIU_CTL$K_BC_SIZE_8MB = '00000006'X ! Select 8MB Bcache( PARAMETER BIU_CTL$M_WS_IO = '80000000'X@ PARAMETER PR1701$_BC_TAG = '000000A2'X ! Bcache error tag (RO)% PARAMETER BC_TAG$M_HIT = '00000001'X' PARAMETER BC_TAG$M_CTL_P = '00000002'X' PARAMETER BC_TAG$M_CTL_S = '00000004'X' PARAMETER BC_TAG$M_CTL_D = '00000008'X' PARAMETER BC_TAG$M_CTL_V = '00000010'X' PARAMETER BC_TAG$M_TAG_P = '00400000' fXK PARAMETER PR1701$_BIU_STAT = '000000A4'X ! Bcache error data status (W1C), PARAMETER BIU_STAT$M_BIU_HERR = '00000001'X, PARAMETER BIU_STAT$M_BIU_SERR = '00000002'X, PARAMETER BIU_STAT$M_BC_TPERR = '00000004'X- PARAMETER BIU_STAT$M_BC_TCPERR = '00000008'X/ PARAMETER BIU_STAT$M_BIU_DSP_CMD = '00000070'XJ PARAMETER BIU_STAT$K_WRITE_UNLOCK_IO = '00000000'X ! WRITE_UNLOCK_IO cmd6 PARAMETER BIU_STAT$K_IREAD = '00000001'X ! IREAD cmdD PARAMETER BIU_STAT$K_WRITE_UNLOCK = '00000002'X ! WRIT gE_UNLOCK cmd6 PARAMETER BIU_STAT$K_WRITE = '00000003'X ! WRITE cmd6 PARAMETER BIU_STAT$K_DREAD = '00000004'X ! DREAD cmd< PARAMETER BIU_STAT$K_DREAD_IO = '00000005'X ! DREAD_IO cmd@ PARAMETER BIU_STAT$K_DREAD_LOCK = '00000006'X ! DREAD_LOCK cmd+ PARAMETER BIU_STAT$M_BIU_SEO = '00000080'X, PARAMETER BIU_STAT$M_FILL_ECC = '00000100'X, PARAMETER BIU_STAT$M_FILL_CRD = '00000200'X- PARAMETER BIU_STAT$M_BIU_DPERR = '00000400'X, PARAMETER BIU_STAT$M_FILL_IRD = '00000800'X, PARAMETER BIU_STAT$ hM_FILL_SEO = '00004000'X' PARAMETER BIU_STAT$M_RAZ = '00008000'X0 PARAMETER BIU_STAT$M_FILL_DSP_CMD = '000F0000'X8 PARAMETER BIU_STAT$K_F_IREAD = '00000002'X ! IREAD cmd< PARAMETER BIU_STAT$K_IREAD_IO = '00000003'X ! IREAD_IO cmdL PARAMETER BIU_STAT$K_F_WRITE_UNLOCK_IO = '00000004'X ! WRITE_UNLOCK_IO cmd< PARAMETER BIU_STAT$K_WRITE_IO = '00000005'X ! WRITE_IO cmd8 PARAMETER BIU_STAT$K_F_WRITE = '00000006'X ! WRITE cmdF PARAMETER BIU_STAT$K_F_WRITE_UNLOCK = '00000007'X ! WRITE_UNLOCK cmd i= PARAMETER BIU_STAT$K_F_DREAD = '00000008'X ! DREAD cmd 100X> PARAMETER BIU_STAT$K_F_DREAD2 = '00000009'X ! DREAD cmd 100X> PARAMETER BIU_STAT$K_F_DREAD_IO = '0000000A'X ! DREAD_IO cmdB PARAMETER BIU_STAT$K_F_DREAD_LOCK = '0000000C'X ! DREAD_LOCK cmdF PARAMETER BIU_STAT$K_DREAD_LOCK_IO = '0000000D'X ! DREAD_LOCK_IO cmd+ PARAMETER BIU_STAT$M_LST_WRT = '00100000'X( PARAMETER BIU_STAT$M_RSVD = '0FE00000'X, PARAMETER BIU_STAT$M_BIU_ADDR = '30000000'X- PARAMETER BIU_STAT$M_FILL_ADDR = 'C00j00000'XZ PARAMETER PR1701$_BIU_ADDR = '000000A6'X ! error address associated with BIU errors (RO)h PARAMETER PR1701$_FILL_SYN = '000000A8'X ! Syndrome bits associated with bad quadword during fill (RO)\ PARAMETER PR1701$_FILL_ADDR = '000000AA'X ! error address associated with FILL errors (RO)T PARAMETER PR1701$_STC_RESULT = '000000AC'X ! Result of last store conditional (RO)* PARAMETER STC_RESULT$M_PASS = '00000004'XQ PARAMETER PR1701$_BEDECC = '000000AE'X ! Alternate source of ECC check b kits (W)D PARAMETER PR1701$_CHALT = '000000B0'X ! Console HALT register (RW)E PARAMETER PR1701$_SIO = '000000B2'X ! Seral line I/O register (RW) % PARAMETER SIO$M_SIO_IN = '00000001'X& PARAMETER SIO$M_SIO_OUT = '00000002'XH PARAMETER PR1701$_SIO_IE = '000000B4'X ! Seral line I/O register (RW) & PARAMETER SIO$M_SROM_OE = '00000001'X( PARAMETER SIO$M_SROM_FAST = '00000002'XN PARAMETER PR1701$_QW_PACK = '000000B8'X ! Pack next two longword writes (WO)D PARAMETER PR1701$_CLR_IO_PACK = '0000 l00B9'X ! Clear QW IO Pack (W)! Ibox registers.D PARAMETER PR1701$_VMAR = '000000D0'X ! VIC memory address register" PARAMETER VMAR$M_LW = '00000004'X) PARAMETER VMAR$M_SUB_BLOCK = '00000018'X) PARAMETER VMAR$M_ROW_INDEX = '000007E0'X$ PARAMETER VMAR$M_ADDR = 'FFFFF800'X9 PARAMETER PR1701$_VTAG = '000000D1'X ! VIC tag register! PARAMETER VTAG$M_V = '0000000F'X" PARAMETER VTAG$M_DP = '000000F0'X" PARAMETER VTAG$M_TP = '00000100'X# PARAMETER VTAG$M_TAG = 'FFFFF800'X; PARAMETER PR170 m1$_VDATA = '000000D2'X ! VIC data registerN PARAMETER PR1701$_ICSR = '000000D3'X ! Ibox control and status register (RW)& PARAMETER ICSR$M_ENABLE = '00000001'X$ PARAMETER ICSR$M_LOCK = '00000004'X% PARAMETER ICSR$M_DPERR = '00000008'X% PARAMETER ICSR$M_TPERR = '00000010'XP PARAMETER PR1701$_BPCR = '000000D4'X ! Ibox branch prediction control register' PARAMETER BPCR$M_HISTORY = '0000000F'X* PARAMETER BPCR$M_MISPREDICT = '00000020'X) PARAMETER BPCR$M_FLUSH_BHT = '00000040'X) PARAMETER n BPCR$M_FLUSH_CTR = '00000080'X, PARAMETER BPCR$M_LOAD_HISTORY = '00000100'X- PARAMETER BPCR$M_BPU_ALGORITHM = 'FFFF0000'XV PARAMETER BPCR$K_BPU_ALGORITHM = '0000FECA'X ! default value for BPU_ALGORITHM field; PARAMETER PR1701$_BPC = '000000D6'X ! Ibox Backup PC (RO)O PARAMETER PR1701$_BPCUNW = '000000D7'X ! Ibox Backup PC with RLOG unwind (RO)-! Mbox internal memory management registers.D PARAMETER PR1701$_MP0BR = '000000E0'X ! Mbox P0 base register (RW)F PARAMETER PR1701$_MP0LR = 'o000000E1'X ! Mbox P0 length register (RW)D PARAMETER PR1701$_MP1BR = '000000E2'X ! Mbox P1 base register (RW)F PARAMETER PR1701$_MP1LR = '000000E3'X ! Mbox P1 length register (RW)G PARAMETER PR1701$_MSBR = '000000E4'X ! Mbox system base register (RW)I PARAMETER PR1701$_MSLR = '000000E5'X ! Mbox system length register (RW)M PARAMETER PR1701$_MMAPEN = '000000E6'X ! Mbox memory management enable (RW)! Mbox registers.J PARAMETER PR1701$_PAMODE = '000000E7'X ! Mbox physical address mode p(RW)- PARAMETER PR1701_PAMODE$M_MODE = '00000001'X@ PARAMETER PR1701_PAMODE$K_PA_30 = '00000000'X ! 30-bit PA mode@ PARAMETER PR1701_PAMODE$K_PA_32 = '00000001'X ! 32-bit PA modeT PARAMETER PR1701$_MMEADR = '000000E8'X ! Mbox memory management fault address (RO)X PARAMETER PR1701$_MMEPTE = '000000E9'X ! Mbox memory management fault PTE address (RO)S PARAMETER PR1701$_MMESTS = '000000EA'X ! Mbox memory management fault status (RO)$ PARAMETER MMESTS$M_LV = '00000001'X) PARAMETER MMESTS$M_ qPTE_REF = '00000002'X# PARAMETER MMESTS$M_M = '00000004'X' PARAMETER MMESTS$M_FAULT = '0000C000'X8 PARAMETER MMESTS$K_FAULT_ACV = '00000001'X ! ACV fault8 PARAMETER MMESTS$K_FAULT_TNV = '00000002'X ! TNV fault7 PARAMETER MMESTS$K_FAULT_M0 = '00000003'X ! M=0 fault% PARAMETER MMESTS$M_SRC = '1C000000'X& PARAMETER MMESTS$M_LOCK = 'E0000000'XK PARAMETER PR1701$_TBADR = '000000EC'X ! Mbox TB parity error address (RO)J PARAMETER PR1701$_TBSTS = '000000ED'X ! Mbox TB parity error status r(RW)% PARAMETER TBSTS$M_LOCK = '00000001'X& PARAMETER TBSTS$M_DPERR = '00000002'X& PARAMETER TBSTS$M_TPERR = '00000004'X' PARAMETER TBSTS$M_EM_VAL = '00000008'X$ PARAMETER TBSTS$M_CMD = '000001F0'X$ PARAMETER TBSTS$M_SRC = 'E0000000'XL PARAMETER MSRC$K_IREF_LATCH = '00000006'X ! Source of fault was IREF latchL PARAMETER MSRC$K_SPEC_QUEUE = '00000004'X ! Source of fault was spec queueH PARAMETER MSRC$K_EM_LATCH = '00000000'X ! Source of fault was EM latch! Mbox Pcache registers O PAR sAMETER PR1701$_PCADR = '000000F2'X ! Mbox Pcache parity error address (RO)N PARAMETER PR1701$_PCSTS = '000000F4'X ! Mbox Pcache parity error status (RW)% PARAMETER PCSTS$M_LOCK = '00000001'X& PARAMETER PCSTS$M_DPERR = '00000002'X+ PARAMETER PCSTS$M_RIGHT_BANK = '00000004'X* PARAMETER PCSTS$M_LEFT_BANK = '00000008'X$ PARAMETER PCSTS$M_CMD = '000001F0'X* PARAMETER PCSTS$M_PTE_ER_WR = '00000200'X' PARAMETER PCSTS$M_PTE_ER = '00000400'XB PARAMETER PR1701$_PCCTL = '000000F8'X ! Mbox Pcache tcontrol (RW)) PARAMETER PCCTL$M_D_ENABLE = '00000001'X) PARAMETER PCCTL$M_I_ENABLE = '00000002'X* PARAMETER PCCTL$M_FORCE_HIT = '00000004'X) PARAMETER PCCTL$M_BANK_SEL = '00000008'X) PARAMETER PCCTL$M_P_ENABLE = '00000010'X$ PARAMETER PCCTL$M_PMM = '000000E0'X- PARAMETER PCCTL$M_ELEC_DISABLE = '00000100'X+ PARAMETER PCCTL$M_RED_ENABLE = '00000200'XK PARAMETER PR1701$_PCTAG = '01800000'X ! First of 256 Pcache tag IPRs (RW)I PARAMETER PR1701$_PCTAG_MAX = '01801FE0'X ! Last of 256 Pcac uhe tag IPRsU PARAMETER PCTAG$K_IPR_INCR = '00000020'X ! Increment between Pcache tag IPR numbers' PARAMETER PR17_PCTAG$M_A = '00000001'X' PARAMETER PR17_PCTAG$M_V = '0000001E'X' PARAMETER PR17_PCTAG$M_P = '00000020'X) PARAMETER PR17_PCTAG$M_TAG = '01FFF000'X' PARAMETER PCTAGA$M_INDEX = '00000FE0'X# PARAMETER PCTAGA$M_B = '00001000'XT PARAMETER PR1701$_PCDAP = '01C00000'X ! First of 1024 Pcache data parity IPRs (RW)R PARAMETER PR1701$_PCDAP_MAX = '01C01FF8'X ! Last of 1024 Pcache da vta parity IPRs] PARAMETER PCDAP$K_IPR_INCR = '00000008'X ! Increment between Pcache data parity IPR numbers, PARAMETER PCDAP$M_DATA_PARITY = '000000FF'X STRUCTURE /PR1701DEF/ UNIONI! Architecturally-defined registers which have different characteristics! on this CPU. MAP+ PARAMETER PR17_SAVPSL$S_PSL_LO = 8C PARAMETER PR17_SAVPSL$V_PSL_LO = 0 ! Saved PSL bits <7:0>- PARAMETER PR17_SAVPSL$S_HALTCODE = 6a PARAMETER PR17_SAVPSL$V_HALTCODE = 8 ! w Halt code containing one of the following values, PARAMETER PR17_SAVPSL$S_INVALID = 1F PARAMETER PR17_SAVPSL$V_INVALID = 14 ! Invalid SAVPSL if = 1* PARAMETER PR17_SAVPSL$S_MAPEN = 17 PARAMETER PR17_SAVPSL$V_MAPEN = 15 ! MAPEN<0>, PARAMETER PR17_SAVPSL$S_PSL_HI = 16, PARAMETER PR17_SAVPSL$V_PSL_HI = 164 BYTE %FILL (4) ! Saved PSL bits <31:16> END MAP@! These registers are for testability and diagnostics use only.5! They xshould not be referenced in normal operation. MAP" PARAMETER IAK$S_IPL17 = 1P PARAMETER IAK$V_IPL17 = 0 ! Force IPL 17, independent of actual level PARAMETER IAK$S_PR = 14 PARAMETER IAK$V_PR = 1 ! Passive release( PARAMETER IAK$S_SCB_OFFSET = 14P PARAMETER IAK$V_SCB_OFFSET = 2 ! LW offset in SCB of interrupt vector BYTE %FILL (2) END MAP! Ebox register definition MAP% PARAMETER INTSYS$S_ICCS6 = 16 y PARAMETER INTSYS$V_ICCS6 = 0 ! ICCS<6> (RO)% PARAMETER INTSYS$S_SISR = 158 PARAMETER INTSYS$V_SISR = 1 ! SISR<15:1> (RO)& PARAMETER INTSYS$S_INT_ID = 5P PARAMETER INTSYS$V_INT_ID = 16 ! ID of highest pending interrupt (RO)- PARAMETER INTSYS$S_INT_TIM_RESET = 1U PARAMETER INTSYS$V_INT_TIM_RESET = 24 ! Interval timer interrupt reset (WC)+ PARAMETER INTSYS$S_S_ERR_RESET = 1O PARAMETER INTSYS$V_S_ERR_RESET = 27 ! So zft error interrupt reset (WC)* PARAMETER INTSYS$S_PMON_RESET = 1Z PARAMETER INTSYS$V_PMON_RESET = 28 ! Performance monitoring interrupt reset (WC)+ PARAMETER INTSYS$S_H_ERR_RESET = 1O PARAMETER INTSYS$V_H_ERR_RESET = 29 ! Hard error interrupt reset (WC)+ PARAMETER INTSYS$S_PWRFL_RESET = 1O PARAMETER INTSYS$V_PWRFL_RESET = 30 ! Power fail interrupt reset (WC)* PARAMETER INTSYS$S_HALT_RESET = 1+ PARAMETER INTSYS$V_HALT_RESET{ = 31; BYTE %FILL (4) ! Halt pin interrupt reset (WC) END MAP MAP' PARAMETER PMFCNT$S_PMCTR0 = 166 PARAMETER PMFCNT$V_PMCTR0 = 0 ! PMCTR0 word' PARAMETER PMFCNT$S_PMCTR1 = 16' PARAMETER PMFCNT$V_PMCTR1 = 16) BYTE %FILL (4) ! PMCTR1 word END MAP MAP+ PARAMETER PCSCR$S_PAR_PORT_DIS = 1Z PARAMETER PCSCR$V_PAR_PORT_DIS = 8 ! Disable parallel port control of scan chain& PARAMETER PCSCR |$S_PCS_ENB = 1P PARAMETER PCSCR$V_PCS_ENB = 9 ! Enable use of patchable control store( PARAMETER PCSCR$S_PCS_WRITE = 1X PARAMETER PCSCR$V_PCS_WRITE = 10 ! Write scan chain to patchable control store( PARAMETER PCSCR$S_RWL_SHIFT = 1Y PARAMETER PCSCR$V_RWL_SHIFT = 11 ! Shift read-write latch scan chain by one bit# PARAMETER PCSCR$S_DATA = 1S PARAMETER PCSCR$V_DATA = 12 ! Data to be shifted into the PCS scan chain0 PARAMETER } PCSCR$S_NONSTANDARD_PATCH = 1K PARAMETER PCSCR$V_NONSTANDARD_PATCH = 23 ! Non-standard patch bit( PARAMETER PCSCR$S_PATCH_REV = 5B PARAMETER PCSCR$V_PATCH_REV = 24 ! Patch revision number BYTE %FILL (2) END MAP MAP+ PARAMETER ECR$S_VECTOR_PRESENT = 1G PARAMETER ECR$V_VECTOR_PRESENT = 0 ! Vector unit present (RW)( PARAMETER ECR$S_FBOX_ENABLE = 1> PARAMETER ECR$V_FBOX_ENABLE = 1 ! Fbox enabled (RW)( PARAM~ETER ECR$S_TIMEOUT_EXT = 1e PARAMETER ECR$V_TIMEOUT_EXT = 2 ! Select external timebase for S3 stall timeout timer (RW)3 PARAMETER ECR$S_FBOX_ST4_BYPASS_ENABLE = 1b PARAMETER ECR$V_FBOX_ST4_BYPASS_ENABLE = 3 ! Fbox stage 4 conditional bypass enable (RW)- PARAMETER ECR$S_TIMEOUT_OCCURRED = 1O PARAMETER ECR$V_TIMEOUT_OCCURRED = 4 ! S3 stall timeout occurred (WC)) PARAMETER ECR$S_TIMEOUT_TEST = 1W PARAMETER ECR$V_TIMEOUT_TEST = 5 ! S elect test mode for S3 stall timeout (RW)* PARAMETER ECR$S_TIMEOUT_CLOCK = 1C PARAMETER ECR$V_TIMEOUT_CLOCK = 6 ! Clock S3 timeout (RW)- PARAMETER ECR$S_FBOX_TEST_ENABLE = 1J PARAMETER ECR$V_FBOX_TEST_ENABLE = 13 ! Enable test of Fbox (RW)' PARAMETER ECR$S_PMF_ENABLE = 1X PARAMETER ECR$V_PMF_ENABLE = 16 ! Performance monitoring facility enable (RW)% PARAMETER ECR$S_PMF_PMUX = 2] PARAMETER ECR$V_PMF_PMUX = 17 ! Performan ce monitoring facility master select (RW)% PARAMETER ECR$S_PMF_EMUX = 3_ PARAMETER ECR$V_PMF_EMUX = 19 ! Performance monitoring facility Ebox mux select (RW)% PARAMETER ECR$S_PMF_LFSR = 1` PARAMETER ECR$V_PMF_LFSR = 22 ! Performance monitoring facility Wbus LFSR enable (RW)& PARAMETER ECR$S_PMF_CLEAR = 1' PARAMETER ECR$V_PMF_CLEAR = 31Q BYTE %FILL (2) ! Clear performance monitoring hardware counters (WO) END MAP! Mbo x TB registers.@! These registers are for testability and diagnostics use only.5! They should not be referenced in normal operation. MAP" PARAMETER MTBTAG$S_TP = 15 PARAMETER MTBTAG$V_TP = 0 ! Tag parity bit$ PARAMETER MTBTAG$S_VPN = 23# PARAMETER MTBTAG$V_VPN = 9G BYTE %FILL (3) ! Virtual page number of address (VA<31:9>) END MAP MAP$ PARAMETER MTBPTE$S_PFN = 23D PARAMETER MTBPTE$V_PFN = 0 ! Page frame number (PA<31:9>)! PARAMETER MTBPTE$S_P = 11 PARAMETER MTBPTE$V_P = 24 ! PTE parity! PARAMETER MTBPTE$S_M = 11 PARAMETER MTBPTE$V_M = 26 ! Modify bit$ PARAMETER MTBPTE$S_PROT = 2: PARAMETER MTBPTE$V_PROT = 27 ! Protection field! PARAMETER MTBPTE$S_V = 14 PARAMETER MTBPTE$V_V = 29 ! PTE valid bit BYTE %FILL (4) END MAP ! Vector architecture registers MAP& PARAMETER PR17_VPSR$S_VEN = 1H  PARAMETER PR17_VPSR$V_VEN = 0 ! Vector processor enabled (RW)& PARAMETER PR17_VPSR$S_RST = 1L PARAMETER PR17_VPSR$V_RST = 1 ! Vector processor state reset (WO)& PARAMETER PR17_VPSR$S_AEX = 1K PARAMETER PR17_VPSR$V_AEX = 7 ! Vector arithmetic exception (WC)& PARAMETER PR17_VPSR$S_IMP = 1W PARAMETER PR17_VPSR$V_IMP = 24 ! Implementation-specific hardware error (WC)& PARAMETER PR17_VPSR$S_BSY = 1' PARAMETER PR17_VPSR$V _BSY = 318 BYTE %FILL (1) ! Vector processor busy (RO) END MAP MAP) PARAMETER PR17_VAER$S_F_UNDF = 1? PARAMETER PR17_VAER$V_F_UNDF = 0 ! Floating underflow) PARAMETER PR17_VAER$S_F_DIVZ = 1D PARAMETER PR17_VAER$V_F_DIVZ = 1 ! Floating divide-by-zero) PARAMETER PR17_VAER$S_F_ROPR = 1F PARAMETER PR17_VAER$V_F_ROPR = 2 ! Floating reserved operand) PARAMETER PR17_VAER$S_F_OVFL = 1> PARAMETER PR17_VAER $V_F_OVFL = 3 ! Floating overflow) PARAMETER PR17_VAER$S_I_OVFL = 1= PARAMETER PR17_VAER$V_I_OVFL = 5 ! Integer overflow1 PARAMETER PR17_VAER$S_REGISTER_MASK = 161 PARAMETER PR17_VAER$V_REGISTER_MASK = 16> BYTE %FILL (3) ! Vector destination register mask END MAP MAP& PARAMETER BIU_CTL$S_BC_EN = 1= PARAMETER BIU_CTL$V_BC_EN = 0 ! Enable Bcache (WO)$ PARAMETER BIU_CTL$S_ECC = 1? PARAMETER BIU_CTL$V _ECC = 1 ! ECC/Parity select (WO)# PARAMETER BIU_CTL$S_OE = 1Y PARAMETER BIU_CTL$V_OE = 2 ! CE pins not asserted during RAM write cycles (WO)( PARAMETER BIU_CTL$S_BC_FHIT = 1B PARAMETER BIU_CTL$V_BC_FHIT = 3 ! Force Bcache hit (WO)' PARAMETER BIU_CTL$S_BC_SPD = 4= PARAMETER BIU_CTL$V_BC_SPD = 4 ! Bcache speed (WO)( PARAMETER BIU_CTL$S_BC_SIZE = 3= PARAMETER BIU_CTL$V_BC_SIZE = 28 ! Bcache size (WO)& PARAMETER BIU_CTL$S_WS_IO = 1' PARAMETER BIU_CTL$V_WS_IO = 314 BYTE %FILL (2) ! Workstation IO mapping END MAP! Cbox registers, continued MAP# PARAMETER BC_TAG$S_HIT = 1( PARAMETER BC_TAG$V_HIT = 0 ! % PARAMETER BC_TAG$S_CTL_P = 1? PARAMETER BC_TAG$V_CTL_P = 1 ! tag status parity bit% PARAMETER BC_TAG$S_CTL_S = 18 PARAMETER BC_TAG$V_CTL_S = 2 ! tag shared bit% PARAMETER BC_TAG$S_CTL_D = 17  PARAMETER BC_TAG$V_CTL_D = 3 ! tag dirty bit% PARAMETER BC_TAG$S_CTL_V = 17 PARAMETER BC_TAG$V_CTL_V = 4 ! tag valid bit$ PARAMETER BC_TAG$S_TAG = 17+ PARAMETER BC_TAG$V_TAG = 5 ! tag% PARAMETER BC_TAG$S_TAG_P = 15 PARAMETER BC_TAG$V_TAG_P = 22 ! tag parity BYTE %FILL (3) END MAP! Cbox registers, continued MAP* PARAMETER BIU_STAT$S_BIU_HERR = 1@ PARAMETER BIU_STAT$V_BIU_HERR = 0 ! Hard_Error o n cACK* PARAMETER BIU_STAT$S_BIU_SERR = 1@ PARAMETER BIU_STAT$V_BIU_SERR = 1 ! Soft_Error on cACK* PARAMETER BIU_STAT$S_BC_TPERR = 1R PARAMETER BIU_STAT$V_BC_TPERR = 2 ! Tag Parity error in tag address RAM + PARAMETER BIU_STAT$S_BC_TCPERR = 1S PARAMETER BIU_STAT$V_BC_TCPERR = 3 ! Tag Parity error in tag control RAM - PARAMETER BIU_STAT$S_BIU_DSP_CMD = 3@ PARAMETER BIU_STAT$V_BIU_DSP_CMD = 4 ! Cbox cycle type) PARAM ETER BIU_STAT$S_BIU_SEO = 1C PARAMETER BIU_STAT$V_BIU_SEO = 7 ! second BIU or BC error* PARAMETER BIU_STAT$S_FILL_ECC = 1L PARAMETER BIU_STAT$V_FILL_ECC = 8 ! ECC error on Pcache fill data * PARAMETER BIU_STAT$S_FILL_CRD = 1H PARAMETER BIU_STAT$V_FILL_CRD = 9 ! ECC error was correctable + PARAMETER BIU_STAT$S_BIU_DPERR = 1A PARAMETER BIU_STAT$V_BIU_DPERR = 10 ! BIU parity error * PARAMETER BIU_STAT$S_FILL_IRD = 1J  PARAMETER BIU_STAT$V_FILL_IRD = 11 ! error during I stream fill ) PARAMETER BIU_STAT$S_FILL_QW = 2j PARAMETER BIU_STAT$V_FILL_QW = 12 ! Quadword within Pcache FILL hexaword which had a FILL error * PARAMETER BIU_STAT$S_FILL_SEO = 1A PARAMETER BIU_STAT$V_FILL_SEO = 14 ! second FILL error % PARAMETER BIU_STAT$S_RAZ = 18 PARAMETER BIU_STAT$V_RAZ = 15 ! Read as ZERO . PARAMETER BIU_STAT$S_FILL_DSP_CMD = 4Y PARAMETER BIU_STAT$ V_FILL_DSP_CMD = 16 ! Cbox cmd which resulted in FILL error ) PARAMETER BIU_STAT$S_LST_WRT = 1> PARAMETER BIU_STAT$V_LST_WRT = 20 ! Lost write error& PARAMETER BIU_STAT$S_RSVD = 79 PARAMETER BIU_STAT$V_RSVD = 21 ! reserved bits* PARAMETER BIU_STAT$S_BIU_ADDR = 2B PARAMETER BIU_STAT$V_BIU_ADDR = 28 ! BIU ADDR bits 33:32+ PARAMETER BIU_STAT$S_FILL_ADDR = 2, PARAMETER BIU_STAT$V_FILL_ADDR = 302 BYTE %FILL (4) ! FILL ADDR bits 33:32 END MAP MAP$ PARAMETER FILL_SYN$S_LO = 7K PARAMETER FILL_SYN$V_LO = 0 ! ECC syndrome bits for low longword$ PARAMETER FILL_SYN$S_HI = 7L PARAMETER FILL_SYN$V_HI = 7 ! ECC syndrome bits for high longword) PARAMETER FILL_SYN$S_FILL_1 = 18) PARAMETER FILL_SYN$V_FILL_1 = 14 BYTE %FILL (4) END MAP! Cbox registers, continued MAP( PARAMETER STC_RESULT$S_PASS = 1F PARAMETER STC_RESULT$V_PASS = 2 ! Store Conditional passed  BYTE %FILL (1) END MAP MAP" PARAMETER BEDECC$S_LO = 7C PARAMETER BEDECC$V_LO = 0 ! BEDECC bits for low longword" PARAMETER BEDECC$S_HI = 7D PARAMETER BEDECC$V_HI = 7 ! BEDECC bits for high longword' PARAMETER BEDECC$S_FILL_1 = 18' PARAMETER BEDECC$V_FILL_1 = 14 BYTE %FILL (4) END MAP! Console dispatch structure MAP0 INTEGER*4 CHALT$L_BRW_CODE ! BRW code3 INTEGER*4 CHALT$L_SYS_TYPE ! System TypeO INTEGER*4 CHALT$L_CNSL_LOAD_ADR ! Consoles Load address used by SROM= INTEGER*4 CHALT$L_HWRPB_SIZE ! HWRPB size in pagesI INTEGER*4 CHALT$L_HWRPB_PHYS_ADR ! HWRPB base physical addrressF INTEGER*4 CHALT$L_MEM_BITMAP_SIZ ! Memory bitmap size (bits)P INTEGER*4 CHALT$L_MEM_BITMAP_PHYS_ADR ! Memory bitmap physical addressE INTEGER*4 CHALT$L_MEM_BITMAP_CHKSM ! Memory bitmap checksum END MAP! Serial line I/O registers MAP# PARAMETER SIO$S_SIO_IN = 1? PARAMETER SIO$V_SIO_IN = 0 ! Serial line/SROM input $ PARAMETER SIO$S_SIO_OUT = 1G PARAMETER SIO$V_SIO_OUT = 1 ! Serial line/SROM clock output  BYTE %FILL (1) END MAP MAP$ PARAMETER SIO$S_SROM_OE = 1< PARAMETER SIO$V_SROM_OE = 0 ! SROM output enable & PARAMETER SIO$S_SROM_FAST = 1D PARAMETER SIO$V_SROM_FA ST = 1 ! Use fast version of SROM  BYTE %FILL (1) END MAP MAP PARAMETER VMAR$S_LW = 1> PARAMETER VMAR$V_LW = 2 ! longword within quadword' PARAMETER VMAR$S_SUB_BLOCK = 2? PARAMETER VMAR$V_SUB_BLOCK = 3 ! sub-block indicator' PARAMETER VMAR$S_ROW_INDEX = 6; PARAMETER VMAR$V_ROW_INDEX = 5 ! cache row index# PARAMETER VMAR$S_ADDR = 21# PARAMETER VMAR$V_ADDR = 11+ BYTE %FILL (4) ! error address END MAP MAP PARAMETER VTAG$S_V = 44 PARAMETER VTAG$V_V = 0 ! data valid bits PARAMETER VTAG$S_DP = 46 PARAMETER VTAG$V_DP = 4 ! data parity bits PARAMETER VTAG$S_TP = 14 PARAMETER VTAG$V_TP = 8 ! tag parity bit" PARAMETER VTAG$S_TAG = 21" PARAMETER VTAG$V_TAG = 11! BYTE %FILL (4) ! tag END MAP MAP$ PARAMETER ICSR$S_ENABLE = 1< PARAMETER ICSR$V_ENABLE = 0  ! VIC enable bit (RW)" PARAMETER ICSR$S_LOCK = 1N PARAMETER ICSR$V_LOCK = 2 ! Register is locked due to an error (WC)# PARAMETER ICSR$S_DPERR = 1> PARAMETER ICSR$V_DPERR = 3 ! Data parity error (RO)# PARAMETER ICSR$S_TPERR = 1= PARAMETER ICSR$V_TPERR = 4 ! Tag parity error (RO) BYTE %FILL (1) END MAP MAP% PARAMETER BPCR$S_HISTORY = 4= PARAMETER BPCR$V_HISTORY = 0 ! branch history bits( P ARAMETER BPCR$S_MISPREDICT = 1C PARAMETER BPCR$V_MISPREDICT = 5 ! history of last branch' PARAMETER BPCR$S_FLUSH_BHT = 1F PARAMETER BPCR$V_FLUSH_BHT = 6 ! flush branch history table' PARAMETER BPCR$S_FLUSH_CTR = 1J PARAMETER BPCR$V_FLUSH_CTR = 7 ! flush branch hist addr counter* PARAMETER BPCR$S_LOAD_HISTORY = 1H PARAMETER BPCR$V_LOAD_HISTORY = 8 ! write new history to array, PARAMETER BPCR$S_BPU_ALGORITHM = 16,  PARAMETER BPCR$V_BPU_ALGORITHM = 169 BYTE %FILL (3) ! branch prediction algorithm END MAPL! The following two registers are for testability and diagnostics use only.5! They should not be referenced in normal operation.@! These registers are for testability and diagnostics use only.H! In normal operation, the equivalent architecturally-defined registers! should be used instead. MAP+ PARAMETER PR1701_PAMODE$S_MODE = 1Y PARAMETER PR1701_PAMODE$V_M ODE = 0 ! Addressing mode(1 = 32bit addressing) (RW) BYTE %FILL (1) END MAP MAP" PARAMETER MMESTS$S_LV = 1H PARAMETER MMESTS$V_LV = 0 ! ACV fault due to length violation' PARAMETER MMESTS$S_PTE_REF = 1T PARAMETER MMESTS$V_PTE_REF = 1 ! ACV/TNV fault occurred on PPTE reference! PARAMETER MMESTS$S_M = 1J PARAMETER MMESTS$V_M = 2 ! Reference had write or modify intent% PARAMETER MMESTS$S_FAULT = 2L PARAM ETER MMESTS$V_FAULT = 14 ! Fault type, one of the following:# PARAMETER MMESTS$S_SRC = 3] PARAMETER MMESTS$V_SRC = 26 ! Shadow copy of LOCK bits (see MSRC$ constants below)$ PARAMETER MMESTS$S_LOCK = 3% PARAMETER MMESTS$V_LOCK = 29D BYTE %FILL (2) ! Lock status (see MSRC$ constant below) END MAP MAP# PARAMETER TBSTS$S_LOCK = 1O PARAMETER TBSTS$V_LOCK = 0 ! Register is locked due to an error (WC)$ PARAMET ER TBSTS$S_DPERR = 1? PARAMETER TBSTS$V_DPERR = 1 ! Data parity error (RO)$ PARAMETER TBSTS$S_TPERR = 1> PARAMETER TBSTS$V_TPERR = 2 ! Tag parity error (RO)% PARAMETER TBSTS$S_EM_VAL = 1U PARAMETER TBSTS$V_EM_VAL = 3 ! EM latch was valid when error occurred (RO)" PARAMETER TBSTS$S_CMD = 5S PARAMETER TBSTS$V_CMD = 4 ! S5 command when TB parity error occured (RO)" PARAMETER TBSTS$S_SRC = 3# PARAMETER TBSTS$V_SRC  = 29Z BYTE %FILL (2) ! Source of original refernce (see MSRC$ constants below) (RO) END MAP MAP# PARAMETER PCSTS$S_LOCK = 1O PARAMETER PCSTS$V_LOCK = 0 ! Register is locked due to an error (WC)$ PARAMETER PCSTS$S_DPERR = 1H PARAMETER PCSTS$V_DPERR = 1 ! Data parity error occurred (RO)) PARAMETER PCSTS$S_RIGHT_BANK = 1V PARAMETER PCSTS$V_RIGHT_BANK = 2 ! Right bank tag parity error occurred (RO)( PARAMETER PCSTS$S_LEFT_BANK = 1U PARAMETER PCSTS$V_LEFT_BANK = 3 ! Left bank tag parity error occurred (RO)" PARAMETER PCSTS$S_CMD = 5W PARAMETER PCSTS$V_CMD = 4 ! S6 command when Pcache parity error occured (RO)( PARAMETER PCSTS$S_PTE_ER_WR = 1g PARAMETER PCSTS$V_PTE_ER_WR = 9 ! Hard error on PTE DREAD occurred (orig ref was WRITE) (WC)% PARAMETER PCSTS$S_PTE_ER = 1P PARAMETER PCSTS$V_PTE_ER = 10 ! Hard error on PTE DREAD occurred (WC)  BYTE %FILL (2) END MAP MAP' PARAMETER PCCTL$S_D_ENABLE = 1` PARAMETER PCCTL$V_D_ENABLE = 0 ! Enable for invalidate, D-stream read/write/fill (RW)' PARAMETER PCCTL$S_I_ENABLE = 1Z PARAMETER PCCTL$V_I_ENABLE = 1 ! Enable for invalidate, I-stream read/fill (RW)( PARAMETER PCCTL$S_FORCE_HIT = 1W PARAMETER PCCTL$V_FORCE_HIT = 2 ! Enable force hit on Pcache references (RW)' PARAMETER PCCTL$S_BANK_SEL = 1W P ARAMETER PCCTL$V_BANK_SEL = 3 ! Select left bank if 0, right bank if 1 (RW)' PARAMETER PCCTL$S_P_ENABLE = 1G PARAMETER PCCTL$V_P_ENABLE = 4 ! Enable parity checking (RW)" PARAMETER PCCTL$S_PMM = 3I PARAMETER PCCTL$V_PMM = 5 ! Mbox performance monitor mode (RW)+ PARAMETER PCCTL$S_ELEC_DISABLE = 1Q PARAMETER PCCTL$V_ELEC_DISABLE = 8 ! Pcache electrical disable bit (RW)) PARAMETER PCCTL$S_RED_ENABLE = 1G PARAMETER PCCTL $V_RED_ENABLE = 9 ! Redundancy enable bit (RO) BYTE %FILL (2) END MAP MAP% PARAMETER PR17_PCTAG$S_A = 1` PARAMETER PR17_PCTAG$V_A = 0 ! Allocation bit corresponding to index of this tag (RW)% PARAMETER PR17_PCTAG$S_V = 4_ PARAMETER PR17_PCTAG$V_V = 1 ! Valid bits corresponding to the 4 data subblocks (RW)% PARAMETER PR17_PCTAG$S_P = 19 PARAMETER PR17_PCTAG$V_P = 5 ! Tag parity (RW)( PARAMETER PR17_PCTAG$S_TAG = 13: PARAMETER PR17_PCTAG$V_TAG = 12 ! Tag bits (RW) BYTE %FILL (3) END MAP MAP% PARAMETER PCTAGA$S_INDEX = 7= PARAMETER PCTAGA$V_INDEX = 5 ! Index of PCache tag! PARAMETER PCTAGA$S_B = 1P PARAMETER PCTAGA$V_B = 12 ! Bank of PCache to access: 0=left, 1=right BYTE %FILL (1) END MAP MAP* PARAMETER PCDAP$S_DATA_PARITY = 8^ PARAMETER PCDAP$V_DATA_PARITY = 0 ! Even byte parity for the addressed quadword (RW) BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR1701DEFCDEC$ END OPTIONS wwM PARAMETER PR5 20$_ICCS = '00000018'X ! INTERVAL CLOCK CONTROL5 PARAMETER PR520$_CADR = '00000025'X ! CACHE DISABLE; PARAMETER PR520$_MSER = '00000027'X ! MEMORY SYSTEM ERRORB PARAMETER PR520$_SAVPC = '0000002A'X ! CONSOLE SAVED PC REGISTERD PARAMETER PR520$_SAVPSL = '0000002B'X ! CONSOLE SAVED PSL REGISTER= PARAMETER PR550$_CCR = '00000025'X ! Cache Control Register) PARAMETER PR550$M_CCR_DIAG = '00000001'X* PARAMETER PR550$M_CCR_FLUSH = '00000002'X+ PARAMETER PR550$M_CCR_ENABLE = '00000004'X( PARAMETER PR550$M_CCR_WWP = '00000008'X STRUCTURE /PR550_CCR/ UNION MAP+ PARAMETER PR550$S_CCR_DIAG = 1+ PARAMETER PR550$V_CCR_DIAG = 0, PARAMETER PR550$S_CCR_FLUSH = 1, PARAMETER PR550$V_CCR_FLUSH = 1- PARAMETER PR550$S_CCR_ENABLE = 1- PARAMETER PR550$V_CCR_ENABLE = 2* PARAMETER PR550$S_CCR_WWP = 1* PARAMETER PR550$V_CCR_WWP = 3 BYTE %FILL (1) END MAP  END UNION END STRUCTURE ! PR550_CCRCDEC$ END OPTIONS wwMqe)!*** MODULE $PR560DEF ***CDEC$ OPTIONS /NOALIGNCDEC$ END OPTIONS wwf)!*** MODULE $PR60DEF ***CDEC$ OPTIONS /NOALIGN7 PARAMETER PR60$_CPUID = '0000000E'X ! Hardware CPU id7 PARAMETER PR60$_WHAMI = '0000000F'X ! Software CPU id4 PARAMETER PR60$_CADR = '00000025'X ! CACHE DISABLE: PARAMETER PR60$_MSER = '00000027'X ! MEMORY SYSTEM ERROR: PARAMETER PR60$_SAVGPR = '00000029'X ! Console halt codeA PARAMETER PR60$_SAVPC = '0000002A'X ! CONSOLE SAVED PC REGISTERC PARAMETER PR60$_SAVPSL = '0000002B'X ! CONSOLE SAVED PSL REGISTER STRUCTURE /PR60SID/I BYTE PR60$B_SID_CVAXREV ! CVAX chip microcode revision level  INTEGER*2 PR60$W_SID_RSVD= BYTE PR60$B_SID_TYPE ! Processor type (10 = CVAX) END STRUCTURE ! PR60SID! System ID Extension Longword STRUCTURE /PR60XSID/- INTEGER*2 PR60$W_XSID_FILL1 ! Reserved6 BYTE PR60$ B_XSID_ROMVER ! Boot ROM version? BYTE PR60$B_XSID_SYSCODE ! System code. 3 (Firefox) END STRUCTURE ! PR60XSID! Cache Disable register( PARAMETER PR60$M_CADR_DIA = '00000001'X' PARAMETER PR60$M_CADR_WW = '00000002'X, PARAMETER PR60$M_CADR_DSTREAM = '00000010'X, PARAMETER PR60$M_CADR_ISTREAM = '00000020'X) PARAMETER PR60$M_CADR_SET1 = '00000040'X) PARAMETER PR60$M_CADR_SET2 = '00000080'X STRUCTURE /PR60CADR/" PARAMETER PR60$S_CADR_DIA = 16 PARAMETER PR60$V_CA DR_DIA = 0 ! Diagnostic mode! PARAMETER PR60$S_CADR_WW = 18 PARAMETER PR60$V_CADR_WW = 1 ! Write wrong parity& PARAMETER PR60$S_CADR_DSTREAM = 1= PARAMETER PR60$V_CADR_DSTREAM = 4 ! Data stream enabled& PARAMETER PR60$S_CADR_ISTREAM = 1D PARAMETER PR60$V_CADR_ISTREAM = 5 ! Instruction stream enabled# PARAMETER PR60$S_CADR_SET1 = 15 PARAMETER PR60$V_CADR_SET1 = 6 ! Set 1 enabled# PARAMETER PR60$S_CADR_SET2 = 1# PARAMETER PR60$V_CADR_SET2 = 7' BYTE %FILL (1) ! Set 2 enabled END STRUCTURE ! PR60CADR! Memory System Error Register( PARAMETER PR60$M_MSER_TAG = '00000001'X) PARAMETER PR60$M_MSER_DATA = '00000002'X( PARAMETER PR60$M_MSER_MCC = '00000010'X( PARAMETER PR60$M_MSER_MCD = '00000020'X( PARAMETER PR60$M_MSER_DAL = '00000040'X' PARAMETER PR60$M_MSER_HM = '00000080'X STRUCTURE /PR60MSER/" PARAMETER PR60$S_MSER_TAG = 10 PARAMETER PR60$V_MSER_TAG = 0 ! Tag error# PARAMETER PR60$S_MSER_DATA = 12 PARAMETER PR60$V_MSER_DATA = 1 ! Data error" PARAMETER PR60$S_MSER_MCC = 1C PARAMETER PR60$V_MSER_MCC = 4 ! Machine check - cache parity" PARAMETER PR60$S_MSER_MCD = 1A PARAMETER PR60$V_MSER_MCD = 5 ! Machine check - DAL parity" PARAMETER PR60$S_MSER_DAL = 17 PARAMETER PR60$V_MSER_DAL = 6 ! DAL parity error! PARAMETER PR60$S_MSER_HM = 1! PARAMETER PR60$V_MSER_HM = 7" BYTE %FILL (1) ! Hit/miss END STRUCTURE ! PR60MSER-! Interval Control Clock and Status register' PARAMETER PR60$M_ICCS_IE = '00000040'X STRUCTURE /PR60ICCS/! PARAMETER PR60$S_ICCS_IE = 16 PARAMETER PR60$V_ICCS_IE = 6 ! Interrupt enable BYTE %FILL (1) END STRUCTURE ! PR60ICCSCDEC$ END OPTIONS ww~h)!*** MODULE $PR650DEF ***CDEC$ OPTIONS /NOALIGN4 PARAMETER PR650$_TODR = '0000001B'X ! TIME OF YEAR5 PARAMETER PR650$_CADR = '00000025'X ! CACHE DISABLE; PARAMETER PR650$_MSER = '00000027'X ! MEMORY SYSTEM ERRORB PARAMETER PR650$_SAVPC = '0000002A'X ! CONSOLE SAVED PC REGISTERD PARAMETER PR650$_SAVPSL = '0000002B'X ! CONSOLE SAVED PSL REGISTER7 PARAMETER PR650$_IORESET = '00000037'X ! IO BUS RESETCDEC$ END OPTIONS ww-j)!*** MODULE $PR660DEF ***CDEC$ OPTIONS /NOALIGN$ PARAMETER PR660$_TODR = '0000001B'X$ PARAMETER PR660$_CSRS = '0000001C'X$ PARAMETER PR660$_CSRD = '0000001D'X$ PARAMETER PR660$_CSTS = '0000001E'X$ PARAMETER PR660$_CSTD = '0000001F'X$ PARAMETER PR660$_TBDR = '00000024'X# PARAMETER PR660$_CCR = '00000025'X$ PARAMETER PR660$_MSER = '00000027'X% PARAMETER PR660$_SAVPC = '0000002A'X& PARAMETER PR660$_SAVPSL = '0000002B'X' PARAMETER PR660$_IORESET = '00000037'X) PARAMETER PR660$M_CCR_DIAG = '00000001'X* PARAMETER PR660$M_CCR_FLUSH = '00000002'X+ PARAMETER PR660$M_CCR_ENABLE = '00000004'X( PARAMETER PR660$M_CCR_WWP = '00000008'X STRUCTURE /PR660_CCR/ UNION MAP+ PARAMETER PR660$S_CCR_DIAG = 1+  PARAMETER PR660$V_CCR_DIAG = 0, PARAMETER PR660$S_CCR_FLUSH = 1, PARAMETER PR660$V_CCR_FLUSH = 1- PARAMETER PR660$S_CCR_ENABLE = 1- PARAMETER PR660$V_CCR_ENABLE = 2* PARAMETER PR660$S_CCR_WWP = 1* PARAMETER PR660$V_CCR_WWP = 3 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR660_CCR, PARAMETER PR660$M_MSER_TAG_PE = '00000001'X- PARAMETER PR660$M_MSER_DATA_PE = '00000002'X2 PARAMETER P R660$M_MSER_MCA_CACHE_PE = '00000010'X1 PARAMETER PR660$M_MSER_MCA_CDAL_PE = '00000020'X- PARAMETER PR660$M_MSER_CDAL_PE = '00000040'X STRUCTURE /PR660_MSER/ UNION MAP. PARAMETER PR660$S_MSER_TAG_PE = 1. PARAMETER PR660$V_MSER_TAG_PE = 0/ PARAMETER PR660$S_MSER_DATA_PE = 1/ PARAMETER PR660$V_MSER_DATA_PE = 14 PARAMETER PR660$S_MSER_MCA_CACHE_PE = 14 PARAMETER PR660$V_MSER_MCA_CACHE_PE = 43  PARAMETER PR660$S_MSER_MCA_CDAL_PE = 13 PARAMETER PR660$V_MSER_MCA_CDAL_PE = 5/ PARAMETER PR660$S_MSER_CDAL_PE = 1/ PARAMETER PR660$V_MSER_CDAL_PE = 6 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR660_MSERCDEC$ END OPTIONS ww͋k)!*** MODULE $PR670DEF ***CDEC$ OPTIONS /NOALIGN$ PARAMETER PR670$_TODR = '0000001B'X$ PARAMETER PR670$_CSRS = '0000001C'X$ PARAMETER PR670$_CSRD = '0000001D'X$ PAR AMETER PR670$_CSTS = '0000001E'X$ PARAMETER PR670$_CSTD = '0000001F'X% PARAMETER PR670$_MCESR = '00000026'X$ PARAMETER PR670$_ACCS = '00000028'X% PARAMETER PR670$_SAVPC = '0000002A'X& PARAMETER PR670$_SAVPSL = '0000002B'X% PARAMETER PR670$_TBTAG = '0000002F'X' PARAMETER PR670$_IORESET = '00000037'X& PARAMETER PR670$_TBDATA = '0000003B'X% PARAMETER PR670$_BCBTS = '00000071'X& PARAMETER PR670$_BCP1TS = '00000072'X& PARAMETER PR670$_BCP2TS = '00000073'X% PARAMETER PR670$_BCRFR = '00000074'X% PARAMETER PR670$_BCIDX = '00000075'X% PARAMETER PR670$_BCSTS = '00000076'X% PARAMETER PR670$_BCCTL = '00000077'X% PARAMETER PR670$_BCERR = '00000078'X& PARAMETER PR670$_BCFBTS = '00000079'X& PARAMETER PR670$_BCFPTS = '0000007A'X& PARAMETER PR670$_VINTSR = '0000007B'X% PARAMETER PR670$_PCTAG = '0000007C'X% PARAMETER PR670$_PCIDX = '0000007D'X% PARAMETER PR670$_PCERR = '0000007E'X% PARAMETER PR670$_PCSTS = '0000007F'X, PARAMETER PR670$M_BCBTS_VALID = '0000003C'X* PARAMETER PR670$M_BCBTS_TAG = '1FFE0000'X- PARAMETER PR670$M_BCBTS_PARITY = '20000000'X STRUCTURE /PR670_BCBTS/ UNION MAP. PARAMETER PR670$S_BCBTS_VALID = 4. PARAMETER PR670$V_BCBTS_VALID = 2- PARAMETER PR670$S_BCBTS_TAG = 12- PARAMETER PR670$V_BCBTS_TAG = 17/ PARAMETER PR670$S_BCBTS_PARITY = 10 PARAMETER PR670$V_BCBTS_PARITY = 29 BYTE %FILL (3) END MAP END UNION END STRUCTURE ! PR670_BCBTS, PARAMETER PR670$M_BCPTS_VALID = '00000004'X* PARAMETER PR670$M_BCPTS_TAG = '1FFFF800'X- PARAMETER PR670$M_BCPTS_PARITY = '20000000'X STRUCTURE /PR670_BCPTS/ UNION MAP. PARAMETER PR670$S_BCPTS_VALID = 1. PARAMETER PR670$V_BCPTS_VALID = 2- PARAMETER PR670$S_BCPTS_TAG = 18- PARAMETER PR670$V_BCPTS_TAG = 11/ PARAMETER PR670$S_BCPTS_PARITY = 10 PARAMETER PR670$V_BCPTS_PARITY = 29 BYTE %FILL (3) END MAP END UNION END STRUCTURE ! PR670_BCPTS. PARAMETER PR670$M_BCIDX_BTS_COL = '000001C0'X. PARAMETER PR670$M_BCIDX_BTS_ROW = '0001FE00'X. PARAMETER PR670$M_BCIDX_PTS_COL = '000001F0'X. PARAMETER PR670$M_BCIDX_PTS_ROW = '00000600'X STRUCTURE /PR670_BCIDX/ UNION MAP0 PARAMETER PR670$S_BCIDX_BTS_COL = 30 PARAMETER PR670$V_BCIDX_BTS_COL = 60 PARAMETER PR670$S_BCIDX_BTS_ROW = 80 PARAMETER PR670$V_BCIDX_BTS_ROW = 9 BYTE %FILL (2) END MAP MAP0 PARAMETER PR670$S_BCIDX_PTS_COL = 50 PARAMETER PR670$V_BCIDX_PTS_COL = 40 PARAMETER PR670$S_BCIDX_PTS_ROW = 20 PARAMETER PR670$V_BCIDX_PTS_ROW = 9 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR670_BCIDX+ PARAMETER PR670$M_BCSTS_LOCK = '00000001'X- PARAMETER PR670$M_BCSTS_BTS_PE = '00000002'X. PARAMETER PR670$M_BCSTS_P1TS_PE = '00000004'X. PARAM ETER PR670$M_BCSTS_P2TS_PE = '00000008'X. PARAMETER PR670$M_BCSTS_BUS_ERR = '00000010'X. PARAMETER PR670$M_BCSTS_BTS_CMP = '00020000'X. PARAMETER PR670$M_BCSTS_BTS_HIT = '00040000'X/ PARAMETER PR670$M_BCSTS_P1TS_HIT = '00080000'X/ PARAMETER PR670$M_BCSTS_P2TS_HIT = '00100000'X/ PARAMETER PR670$M_BCSTS_RDAL_CMD = '01E00000'X/ PARAMETER PR670$M_BCSTS_IBUS_CYC = '02000000'X- PARAMETER PR670$M_BCSTS_PARITY = '04000000'X STRUCTURE /PR670_BCSTS/ UNION MAP- PARAMET ER PR670$S_BCSTS_LOCK = 1- PARAMETER PR670$V_BCSTS_LOCK = 0/ PARAMETER PR670$S_BCSTS_BTS_PE = 1/ PARAMETER PR670$V_BCSTS_BTS_PE = 10 PARAMETER PR670$S_BCSTS_P1TS_PE = 10 PARAMETER PR670$V_BCSTS_P1TS_PE = 20 PARAMETER PR670$S_BCSTS_P2TS_PE = 10 PARAMETER PR670$V_BCSTS_P2TS_PE = 30 PARAMETER PR670$S_BCSTS_BUS_ERR = 10 PARAMETER PR670$V_BCSTS_BUS_ERR = 40 PARAMETER PR670$S _BCSTS_BTS_CMP = 11 PARAMETER PR670$V_BCSTS_BTS_CMP = 170 PARAMETER PR670$S_BCSTS_BTS_HIT = 11 PARAMETER PR670$V_BCSTS_BTS_HIT = 181 PARAMETER PR670$S_BCSTS_P1TS_HIT = 12 PARAMETER PR670$V_BCSTS_P1TS_HIT = 191 PARAMETER PR670$S_BCSTS_P2TS_HIT = 12 PARAMETER PR670$V_BCSTS_P2TS_HIT = 201 PARAMETER PR670$S_BCSTS_RDAL_CMD = 42 PARAMETER PR670$V_BCSTS_RDAL_CMD = 211 PARAMET ER PR670$S_BCSTS_IBUS_CYC = 12 PARAMETER PR670$V_BCSTS_IBUS_CYC = 25/ PARAMETER PR670$S_BCSTS_PARITY = 10 PARAMETER PR670$V_BCSTS_PARITY = 26 BYTE %FILL (2) END MAP END UNION END STRUCTURE ! PR670_BCSTS1 PARAMETER PR670$M_BCCTL_FORCE_BHIT = '00000001'X. PARAMETER PR670$M_BCCTL_ENA_BTS = '00000002'X. PARAMETER PR670$M_BCCTL_ENA_PTS = '00000004'X. PARAMETER PR670$M_BCCTL_ENA_RFR = '00000008'X. PARAMETER PR670$M_BCCTL_TWO_CYC = ' 00000010'X STRUCTURE /PR670_BCCTL/ UNION MAP3 PARAMETER PR670$S_BCCTL_FORCE_BHIT = 13 PARAMETER PR670$V_BCCTL_FORCE_BHIT = 00 PARAMETER PR670$S_BCCTL_ENA_BTS = 10 PARAMETER PR670$V_BCCTL_ENA_BTS = 10 PARAMETER PR670$S_BCCTL_ENA_PTS = 10 PARAMETER PR670$V_BCCTL_ENA_PTS = 20 PARAMETER PR670$S_BCCTL_ENA_RFR = 10 PARAMETER PR670$V_BCCTL_ENA_RFR = 30 PARAMETER PR670$S_BCCTL_TWO_CYC = 10 PARAMETER PR670$V_BCCTL_TWO_CYC = 4 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR670_BCCTL+ PARAMETER PR670$M_BCERR_ADDR = '3FFFFFF8'X STRUCTURE /PR670_BCERR/ UNION MAP. PARAMETER PR670$S_BCERR_ADDR = 27- PARAMETER PR670$V_BCERR_ADDR = 3 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! PR670_BCERR* PARAMETER PR670$M_PCTAG_TAG = '1FFFF800'X- PARAMETER PR670$M_PCTAG_PARITY = '40000000'X, PARAMETER PR670$M_PCTAG_VALID = '80000000'X STRUCTURE /PR670_PCTAG/ UNION MAP- PARAMETER PR670$S_PCTAG_TAG = 18- PARAMETER PR670$V_PCTAG_TAG = 11/ PARAMETER PR670$S_PCTAG_PARITY = 10 PARAMETER PR670$V_PCTAG_PARITY = 30. PARAMETER PR670$S_PCTAG_VALID = 1/ PARAMETER PR670$V_PCTAG_VALID = 31 BYTE %FILL (3) END MAP END UNION END STRUCTURE ! PR670_PCTAG, PARAMETER PR670$M_PCIDX_INDEX = '000007F8'X STRUCTURE /PR670_PCIDX/ UNION MAP. PARAMETER PR670$S_PCIDX_INDEX = 8. PARAMETER PR670$V_PCIDX_INDEX = 3 BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR670_PCIDX+ PARAMETER PR670$M_PCERR_ADDR = '3FFFFFFF'X STRUCTURE /PR670_PCERR/ UNION MAP. PARAMETER PR670$S_PCERR_ADDR = 30- PARAMETER PR670$V_PCERR_ADDR = 0 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! PR670_PCERR0 PARAMETER PR670$M_PCSTS_FORCE_HIT = '00000001'X. PARAMETER PR670$M_PCSTS_ENA_PTS = '00000002'X, PARAMETER PR670$M_PCSTS_FLUSH = '00000004'X. PARAMETER PR670$M_PCSTS_ENA_RFR = '00000008'X- PARAMETER PR670$M_PCSTS_PC_HIT = '00000010'X* PARAMETER PR670$M_PCSTS_INT = '00000020'X, PARAMETER PR670$M_PCSTS_TRAP2 = '00000040'X, PARAMETER PR670$M_PCSTS_TRAP1 = '00000080'X- PARAMETER PR670$M_PCSTS_TAG_PE = '00000100'X. PARAMETER PR6 70$M_PCSTS_RDAL_PE = '00000200'X. PARAMETER PR670$M_PCSTS_DATA_PE = '00000400'X. PARAMETER PR670$M_PCSTS_BUS_ERR = '00000800'X- PARAMETER PR670$M_PCSTS_BC_HIT = '00001000'X STRUCTURE /PR670_PCSTS/ UNION MAP2 PARAMETER PR670$S_PCSTS_FORCE_HIT = 12 PARAMETER PR670$V_PCSTS_FORCE_HIT = 00 PARAMETER PR670$S_PCSTS_ENA_PTS = 10 PARAMETER PR670$V_PCSTS_ENA_PTS = 1. PARAMETER PR670$S_PCSTS_FLUSH = 1. PARAMETER P R670$V_PCSTS_FLUSH = 20 PARAMETER PR670$S_PCSTS_ENA_RFR = 10 PARAMETER PR670$V_PCSTS_ENA_RFR = 3/ PARAMETER PR670$S_PCSTS_PC_HIT = 1/ PARAMETER PR670$V_PCSTS_PC_HIT = 4, PARAMETER PR670$S_PCSTS_INT = 1, PARAMETER PR670$V_PCSTS_INT = 5. PARAMETER PR670$S_PCSTS_TRAP2 = 1. PARAMETER PR670$V_PCSTS_TRAP2 = 6. PARAMETER PR670$S_PCSTS_TRAP1 = 1. PARAMETER PR670$V_PCSTS_TRAP1 = 7 / PARAMETER PR670$S_PCSTS_TAG_PE = 1/ PARAMETER PR670$V_PCSTS_TAG_PE = 80 PARAMETER PR670$S_PCSTS_RDAL_PE = 10 PARAMETER PR670$V_PCSTS_RDAL_PE = 90 PARAMETER PR670$S_PCSTS_DATA_PE = 11 PARAMETER PR670$V_PCSTS_DATA_PE = 100 PARAMETER PR670$S_PCSTS_BUS_ERR = 11 PARAMETER PR670$V_PCSTS_BUS_ERR = 11/ PARAMETER PR670$S_PCSTS_BC_HIT = 10 PARAMETER PR670$V_PCSTS_BC_HIT = 12 BYTE %FILL (2) END MAP END UNION END STRUCTURE ! PR670_PCSTSCDEC$ END OPTIONS ww n)!*** MODULE $PR730DEF ***CDEC$ OPTIONS /NOALIGNN PARAMETER PR730$_NICR = '00000019'X ! INTERVAL CLOCK NEXT INTERVAL REGISTER N PARAMETER PR730$_ICR = '0000001A'X ! INTERVAL CLOCK INTERVAL COUNT REGISTER = PARAMETER PR730$_TODR = '0000001B'X ! TIME OF DAY REGISTER L PARAMETER PR730$_ACCS = '00000028'X ! ACCELERATOR CONTROL STATUS REGISTER = PARAMETER PR730$_ACCR = '00000029'X ! ACCELERATOR RESERVED B PARAMETER PR730$_PME = '0000003D'X ! PERFORMANCE MONITOR ENABLE E PARAMETER PR730$_CMIERR = '00000017'X ! CMI ERROR SUMMARY REGISTER E PARAMETER PR730$_CSRS = '0000001C'X ! CONSOLE BLK STORE RCV STATUS C PARAMETER PR730$_CSRD = '0000001D'X ! CONSOLE BLK STORE RCV DATA F PARAMETER PR730$_CSTS = '0000001E'X ! CONSOLE BLK STORE XMIT STATUS D PARAMETER PR730$_CSTD = '0000001F'X ! CONSOLE BLK STORE XMIT DATA < PARAMETER PR730$_TBDR = '000000 24'X ! TB DISABLE REGISTER ? PARAMETER PR730$_CADR = '00000025'X ! CACHE DISABLE REGISTER I PARAMETER PR730$_MCESR = '00000026'X ! MACHINE CHECK ERROR SUMMARY REG = PARAMETER PR730$_CAER = '00000027'X ! CACHE ERROR REGISTER E PARAMETER PR730$_UBRESET = '00000037'X ! UNIBUS I/O RESET REGISTER CDEC$ END OPTIONS wwp)!*** MODULE $PR750DEF ***CDEC$ OPTIONS /NOALIGNN PARAMETER PR750$_NICR = '00000019'X ! INTERVAL CLOCK NEXT INTERVAL REGISTER N PARAMETER PR750$_ICR = '0000001A'X ! INTERVAL CLOCK INTERVAL COUNT REGISTER = PARAMETER PR750$_TODR = '0000001B'X ! TIME OF DAY REGISTER L PARAMETER PR750$_ACCS = '00000028'X ! ACCELERATOR CONTROL STATUS REGISTER = PARAMETER PR750$_ACCR = '00000029'X ! ACCELERATOR RESERVED B PARAMETER PR750$_PME = '0000003D'X ! PERFORMANCE MONITOR ENABLE E PARAMETER PR750$_CMIERR = '00000017'X ! CMI ERROR SUMMARY REGISTER E PARAMETER PR750$_CSRS = '0000001C'X ! CONSOLE BLK STORE RCV STATUS C PARAMETER PR750$_CSRD = '0000001D'X ! CONSOLE BLK STORE RCV DATA F PARAMETER PR750$_CSTS = '0000001E'X ! CONSOLE BLK STORE XMIT STATUS D PARAMETER PR750$_CSTD = '0000001F'X ! CONSOLE BLK STORE XMIT DATA < PARAMETER PR750$_TBDR = '00000024'X ! TB DISABLE REGISTER ? PARAMETER PR750$_CADR = '00000025'X ! CACHE DISABLE REGISTER I PARAMETER PR750$_MCESR = '00000026'X ! MACHINE CHECK ERROR SUMMARY REG = PARAMETER PR750$_CAER = '00000027'X ! CACHE ERROR REGISTER E PARAMETER PR750$_UBRESET = '00000037'X ! UNIBUS I/ O RESET REGISTER CDEC$ END OPTIONS wwMq)!*** MODULE $PR780DEF ***CDEC$ OPTIONS /NOALIGNN PARAMETER PR780$_NICR = '00000019'X ! INTERVAL CLOCK NEXT INTERVAL REGISTER N PARAMETER PR780$_ICR = '0000001A'X ! INTERVAL CLOCK INTERVAL COUNT REGISTER = PARAMETER PR780$_TODR = '0000001B'X ! TIME OF DAY REGISTER L PARAMETER PR780$_ACCS = '00000028'X ! ACCELERATOR CONTROL STATUS REGISTER = PARAMETER PR780$_ACCR = '00000029'X ! ACCELERATOR RESERVED B PARAMETER PR780$_PM E = '0000003D'X ! PERFORMANCE MONITOR ENABLE = PARAMETER PR780$_WCSA = '0000002C'X ! WCS ADDRESS REGISTER : PARAMETER PR780$_WCSD = '0000002D'X ! WCS DATA REGISTER C PARAMETER PR780$_SBIFS = '00000030'X ! SBI FAULT STATUS REGISTER : PARAMETER PR780$_SBIS = '00000031'X ! SBI SILO REGISTER A PARAMETER PR780$_SBISC = '00000032'X ! SBI COMPARATOR REGISTER B PARAMETER PR780$_SBIMT = '00000033'X ! SBI MAINTENANCE REGISTER < PARAMETER PR780$_SBIER = '00000034'X ! SBI ERROR REGISTER F PARAM ETER PR780$_SBITA = '00000035'X ! SBI TIMEOUT ADDRESS REGISTER E PARAMETER PR780$_SBIQC = '00000036'X ! SBI QUADWORD CLEAR REGISTER CDEC$ END OPTIONS ww,s)!*** MODULE $PR790DEF ***CDEC$ OPTIONS /NOALIGNN PARAMETER PR790$_NICR = '00000019'X ! INTERVAL CLOCK NEXT INTERVAL REGISTER N PARAMETER PR790$_ICR = '0000001A'X ! INTERVAL CLOCK INTERVAL COUNT REGISTER = PARAMETER PR790$_TODR = '0000001B'X ! TIME OF DAY REGISTER L PARAMETER PR790$_ACCS = '00000028'X ! ACCE LERATOR CONTROL STATUS REGISTER = PARAMETER PR790$_ACCR = '00000029'X ! ACCELERATOR RESERVED B PARAMETER PR790$_PME = '0000003D'X ! PERFORMANCE MONITOR ENABLE 6 PARAMETER PR790$_PAMACC = '00000040'X ! PAMM ACCESS 8 PARAMETER PR790$_PAMLOC = '00000041'X ! PAMM LOCATION = PARAMETER PR790$_CSWP = '00000042'X ! CACHE SWEEP REGISTER @ PARAMETER PR790$_MDECC = '00000043'X ! MBOX DATA ECC REGISTER C PARAMETER PR790$_MENA = '00000044'X ! MBOX ERROR ENABLE REGISTER D PARAMETER PR790$_MDCTL = '00000045'X ! MBOX DATA CONTROL REGISTER C PARAMETER PR790$_MCCTL = '00000046'X ! MBOX MCC CONTROL REGISTER F PARAMETER PR790$_MERG = '00000047'X ! MBOX ERROR GENERATOR REGISTER 7 PARAMETER PR790$_CRBT = '00000048'X ! CONSOLE REBOOT B PARAMETER PR790$_DFI = '00000049'X ! DIAGNOSTIC FAULT INSERTION G PARAMETER PR790$_EHSR = '0000004A'X ! ERROR HANDLING STATUS REGISTER G PARAMETER PR790$_ACCS790 = '0000004B'X ! ACCELERATOR STATUS REGISTER D PARAMETER PR790$_STXCS = '0000004C'X ! CONSOLE STORAGE CONTROL REGF PARAMETER PR790$_STXDB = '0000004D'X ! CONSOLE STORAGE DATA REGISTER: PARAMETER PR790$_LSPA = '0000004E'X ! SCRATCHPAD ADDRESS7 PARAMETER PR790$_RSPD = '0000004F'X ! SCRATCHPAD DATACDEC$ END OPTIONS wwt)!*** MODULE $PR8NNDEF ***CDEC$ OPTIONS /NOALIGND PARAMETER PR8NN$_NICR = '00000019'X ! Next Interval Count Register@ PARAMETER PR8NN$_ICR = '0000001A'X ! Interval Counter Register4 PARAMETER PR8NN$_TODR = '0000001B'X ! Time of YearA PARAMETER PR8NN$_PME = '0000003D'X ! Performance Monitor EnableF PARAMETER PR8NN$_MCSTS = '00000026'X ! Machine Check Status RegisterL PARAMETER PR8NN$_NICTRL = '00000080'X ! NMI and Interrupt Control RegisterA PARAMETER PR8NN$_INOP = '00000081'X ! Interrupt Other ProcessorC PARAMETER PR8NN$_NMIFSR = '00000082'X ! NMI Fault/Status Register7 PARAMETER PR8NN$_NMISILO = '00000083'X ! NMI Bus SiloD PARAMETER PR8NN$_NMIEAR = '00000084'X ! NMI Error Address Register8 PARAMETER PR8NN$_COR = '00000085'X ! Cache On Register= PARAMETER PR8NN$_REVR1 = '00000086'X ! Revision Register #1= PARAMETER PR8NN$_REVR2 = '00000087'X ! Revision Register #2* PARAMETER PR8NN$M_SID_LRCPU = '00800000'X* PARAMETER PR8NN$M_RXDB_LAVL = '00000001'X* PARAMETER PR8NN$M_RXDB_RAVL = '00000002'X* PARAMETER PR8NN$M_RXDB_SENB = '00000004'X) PARAMETER PR8NN$M_RXDB_UNI = '00000008'X* PARAMETER PR8NN$M_RXDB_DKEY = '00000010'X* PARAMETER PR8NN$M_RXDB_VKEY = '00000020'X* PARAMETER PR8NN$M_RXDB_PCPU = '00000040'X* PARAMETER PR8NN$M_RXDB_SLOW = '00000080'X* PARAMETER PR8NN$M_RXDB_BOUN = '00000001'X) PARAMETER PR8NN$M_RXDB_SP1 = '00000002'X) PARAMETER PR8NN$M_RXDB_SP2 = '00000004'X STRUCTURE /PR8NNDEF/ UNION MAP* PARAMETER PR8NN$S_SID_SERIAL = 16D PARAMETER PR8NN$V_SID_SERIAL = 0 ! Processor Serial Number) PARAMETER PR8NN$S_SID_CPUREV = 7@ PARAMETER PR8NN$V_SID_CPUREV = 16 ! CPU Revision Level( PARAMETER PR8NN$S_SID_LRCPU = 1? PARAM ETER PR8NN$V_SID_LRCPU = 23 ! Left/Right CPU bit' PARAMETER PR8NN$S_SID_TYPE = 8( PARAMETER PR8NN$V_SID_TYPE = 24+ BYTE %FILL (4) ! CPU Type Code END MAP MAP* PARAMETER PR8NN$S_REVR2_CNSRV = 8D PARAMETER PR8NN$V_REVR2_CNSRV = 8 ! Console Revision Level) PARAMETER PR8NN$S_REVR2_UWCS = 8@ PARAMETER PR8NN$V_REVR2_UWCS = 16 ! WCS Revision Level* PARAMETER PR8NN$S_REVR2_UCODE = 8+ PARAMETER PR8NN$V_REVR2_UCODE = 246 BYTE %FILL (3) ! Microcode Revision Level END MAP! H! Bit definitions for data returned by the GET_CPU_INFO console command! through the RXDB IPR.! G! The first group of names include bits that are similarly defined forH! both uniprocessor and dual processor configurations. The second groupP! of names defines those bits that are specific to uniprocessor configurations.!  MAP( PARAMETER PR8NN$S_RXDB_LAVL = 1? PARAMETER PR8NN$V_R XDB_LAVL = 0 ! Left CPU Available( PARAMETER PR8NN$S_RXDB_RAVL = 1@ PARAMETER PR8NN$V_RXDB_RAVL = 1 ! Right CPU Available( PARAMETER PR8NN$S_RXDB_SENB = 1B PARAMETER PR8NN$V_RXDB_SENB = 2 ! Secondary CPU Enabled' PARAMETER PR8NN$S_RXDB_UNI = 1G PARAMETER PR8NN$V_RXDB_UNI = 3 ! Uni-processor Configuration( PARAMETER PR8NN$S_RXDB_DKEY = 1A PARAMETER PR8NN$V_RXDB_DKEY = 4 ! Diag Key Matched SID( PARAMETER PR8NN $S_RXDB_VKEY = 1@ PARAMETER PR8NN$V_RXDB_VKEY = 5 ! VMS Key Matched SID( PARAMETER PR8NN$S_RXDB_PCPU = 1E PARAMETER PR8NN$V_RXDB_PCPU = 6 ! 'Primary' CPU designator( PARAMETER PR8NN$S_RXDB_SLOW = 1( PARAMETER PR8NN$V_RXDB_SLOW = 73 BYTE %FILL (1) ! Slow/Fast designation END MAP MAP( PARAMETER PR8NN$S_RXDB_BOUN = 1I PARAMETER PR8NN$V_RXDB_BOUN = 0 ! Bounded System Configuration' PARAMETER PR8NN$S_RXDB_SP1 = 13 PARAMETER PR8NN$V_RXDB_SP1 = 1 ! Unused' PARAMETER PR8NN$S_RXDB_SP2 = 13 PARAMETER PR8NN$V_RXDB_SP2 = 2 ! Unused BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR8NNDEF! C! Field definitions for console interface thru RXCS/TXCS/RXDB/TXDB! ! )! RXCS - Console to CPU status register! D! 31 24 23 16 15 08 07 06 00E! +--------------+--------------+---------------+----+----+--------+E! | MBZ | MBZ | MBZ |DONE| IE | MBZ |E! +--------------+--------------+---------------+----+----+--------+! * PARAMETER rxcs$m_int_enable = '00000040'X& PARAMETER rxcs$m_n_done = '00000080'X STRUCTURE /n_rxcs_register/ UNION MAP INTEGER*4 rxcs$l_rxcs END MAP MAP, PARAMETER rxcs$S_int_enable = 1C PARAMETER rxcs$V_int_enable = 6 ! Interrupts enabled( PARAMETER rxcs$S_n_done = 1; PARAMETER rxcs$V_n_done = 7 ! Operation done BYTE %FILL (1) END MAP END UNION END STRUCTURE ! n_rxcs_register! '! RXDB - Console to CPU communication! C! 31 24 23 16 15 14 12 11 08 07 00D! +--------------+--------------+--+-------+--------+-------------+D! | MBZ | MBZ |ER| MBZ | ID | DATA FIELD |D! +--------------+--------------+--+-------+--------+-------------+! % PARAMETER rxdb$m_error = '00008000'XN PARAMETER rxdb$k_opa0_data = '00000000'X ! 0 Local terminal read ascii dataI PARAMETER rxdb$k_csa1_data = '00000001'X ! 1 Drive 1 data binary dataI PARAMETER rxdb$k_csa3_data = '00000002'X ! 2 Drive 3 data binary dataT PARAMETER rxdb$k_opa4_data = '00000003'X ! 3 Local term (nolog) read ascii dataI PARAMETER rxdb$k_csa2_data = '00000004'X ! 4 Drive 2 data binary data/ PARAMETER rxdb$k_csm_cksum = '00000005'X ! 5O PARAMETER rxdb$k_opa5_data = '00000006'X ! 6 Remote terminal read ascii dataP PARAMETER rxdb$k_csax_status = '00000007'X ! 7 CSAx status byte binary dataK PARAMETER rxdb$k_cons_vax = '00000008'X ! 8 Misc message see data belowT PARAMETER rxdb$k_get_cpu_data = '00000009'X ! 9 Get-CPU-Data response binary dataR PARAMETER rxdb$k_csm_cmd = '0000000A'X ! A Cons support ucode cmd function codeO PARAMETER rxdb$k_csm_data = '0000000B'X ! B Console support data binary data7 PARAMETER rxdb$k_spare_c = '0000000C'X ! C spareJ PARAMETER rxdb$k_toy_data = '0000000D'X ! D TOY clock data binary data7 PARAMETER rxdb$k_spare_e = '0000000E'X ! E spareL PARAMETER rxdb$k_decnet_data = '0000000F'X ! F DECnet data binary data! @ PARAMETER rxdb$k_env_alert = '00000000'X ! Environmental Alert: PARAMETER rxdb$k_csa1_status = '00000001'X ! CSA1 Status: PARAMETER rxdb$k_csa2_status = '00000002'X ! CSA2 StatusE PARAMETER rxdb$k_rem_port_status = '00000003'X ! Remote Port Status@ PARAMETER rxd b$k_console_status = '00000004'X ! Console Status: PARAMETER rxdb$k_csa3_status = '00000005'X ! CSA3 Status1 PARAMETER rxdb$k_spare_6 = '00000006'X ! spareB PARAMETER rxdb$k_toy_pe = '00000007'X ! TOY clock protocol errorI PARAMETER rxdb$k_emm_status = '00000008'X ! EMM status inquiry response:! Insert new console-to-vax message types above this lineW PARAMETER rxdb$k_max_type = '00000009'X ! Highest defined console-to-VAX message type! 8 PARAMETER rxdb$k_emm_blower = '00000000'X !  Blower outA PARAMETER rxdb$k_emm_yellow = '00000001'X ! Yellow zone warning; PARAMETER rxdb$k_emm_red = '00000002'X ! Red zone warning! F PARAMETER rxdb$k_success = '00000000'X ! Success, note low bit clearJ PARAMETER rxdb$k_io_error = '00000001'X ! POS IO Error, RMS Code follows= PARAMETER rxdb$k_open_error = '00000002'X ! Failure to OPENK PARAMETER rxdb$k_io_blk_error = '00000003'X ! QIO completion code followsH PARAMETER rxdb$k_qio_error = '00000004'X ! QIO completion code followsG PARAMETER rxdb$k_write_error = '00000005'X ! Can't write to hard disk! 2 PARAMETER rxdb$k_carrier_present = '00000000'X ! 7 PARAMETER rxdb$k_carrier_absent = '0000000F'X ! hex F2 PARAMETER rxdb$k_console_present = '00000000'X ! L PARAMETER rxdb$k_console_absent = '0000000F'X ! hex F - about to be absent STRUCTURE /n_rxdb_register/ UNION MAP INTEGER*4 rxdb$l_rxdb END MAP MAP UNION MAP5 BYTE rxdb$b_data ! Data byte END MAP MAP- PARAMETER rxdb$S_msg = 4- PARAMETER rxdb$V_msg = 02 PARAMETER rxdb$S_msg_type = 42 PARAMETER rxdb$V_msg_type = 4# BYTE %FILL (1) END MAP END UNION$ PARAMETER rxdb$S_id = 4$ PARAMETER rxdb$V_id = 8' PARAMETER rxdb$S_error = 1( PAR AMETER rxdb$V_error = 15 BYTE %FILL (1) INTEGER*2 %FILL END MAP END UNION! $! Constant definitions for id field! !! Valu Function Name Data Field3! Constant values for data byte message type field! C! Definitions for MESSAGE data byte field for environmental alert.! >! Definitions for MESSAGE data byte for CSA1/CSA2/CSA3 Status! ;! Constant definitions for Remote Port and Console status.! END STRUCTURE ! n_rxdb_register! )  ! TXCS - Console to CPU status register! D! 31 24 23 16 15 08 07 06 00E! +--------------+--------------+---------------+----+----+--------+E! | MBZ | MBZ | MBZ |DONE| IE | MBZ |E! +--------------+--------------+---------------+----+----+--------+! * PARAMETER txcs$m_int_enable = '00000040'X% PARAMETER txcs$m_ready = '00000080'X STRUCTURE /n_txcs_register/ UNION MAP INTEGER*4 txcs$l_tx cs END MAP MAP, PARAMETER txcs$S_int_enable = 1C PARAMETER txcs$V_int_enable = 6 ! Interrupts enabled' PARAMETER txcs$S_ready = 1? PARAMETER txcs$V_ready = 7 ! Data register ready BYTE %FILL (1) END MAP END UNION END STRUCTURE ! n_txcs_register! '! TXDB - CPU to Console communication! C! 31 24 23 16 15 14 12 11 08 07 00D! +--------------+-------------  -+--+-------+--------+-------------+D! | MBZ | MBZ |ER| MBZ | ID | DATA FIELD |D! +--------------+--------------+--+-------+--------+-------------+! % PARAMETER txdb$m_error = '00008000'XO PARAMETER txdb$k_opa0_data = '00000000'X ! 0 Local terminal write ascii dataI PARAMETER txdb$k_csa1_data = '00000001'X ! 1 Drive 1 data binary dataK PARAMETER txdb$k_csa3_data = '00000002'X ! 2 Drive 3 data binary dataX PARAMETER txdb$k_opa4_data = '00000003'X ! 3  Nolog term/diag writ ascii/binary dataI PARAMETER txdb$k_csa2_data = '00000004'X ! 4 Drive 2 data binary dataT PARAMETER txdb$k_uns_csm_data = '00000005'X ! 5 Unsolicited CSM data csm statusP PARAMETER txdb$k_opa5_data = '00000006'X ! 6 Remote terminal write ascii data3 PARAMETER txdb$k_diagnostic = '00000007'X ! 7 J PARAMETER txdb$k_decnet_data = '00000008'X ! 8 DECnet data binary dataV PARAMETER txdb$k_drive_cmd = '00000009'X ! 9 Drive (CSA1/2/3) command function codeR P ARAMETER txdb$k_csm_cmd = '0000000A'X ! A Cons support ucode cmd function codeO PARAMETER txdb$k_csm_data = '0000000B'X ! B Console support data binary dataK PARAMETER txdb$k_csm_cksum = '0000000C'X ! C CSM checksum binary dataJ PARAMETER txdb$k_toy_data = '0000000D'X ! D TOY clock data binary data8 PARAMETER txdb$k_spare_e = '0000000E'X ! E (unused)T PARAMETER txdb$k_misc_comm = '0000000F'X ! F Miscellaneous command command code! 8 PARAMETER txdb$k_csa1_cmd = '00000000'X  ! csa1 command8 PARAMETER txdb$k_csa2_cmd = '00000001'X ! csa2 command8 PARAMETER txdb$k_csa3_cmd = '00000002'X ! csa3 command! . PARAMETER txdb$k_read_sector = '00000000'X ! / PARAMETER txdb$k_write_sector = '00000001'X ! . PARAMETER txdb$k_read_status = '00000002'X ! ! E PARAMETER txdb$k_software_done = '00000001'X ! 1 - Software is doneB PARAMETER txdb$k_boot_this_cpu = '00000002'X ! 2 - Boot this cpuM PARAMETER txdb$k_clear_warm_start = '00000003'X ! 3 - Clear warm start flag M PARAMETER txdb$k_clear_cold_start = '00000004'X ! 4 - Clear cold start flagN PARAMETER txdb$k_boot_other_cpu = '00000005'X ! 5 - Boot (restart) other cpu: PARAMETER txdb$k_unjam = '00000006'X ! 6 - UNJAM command; PARAMETER txdb$k_loadnboot = '00000007'X ! 7 - @LOADNBOOTA PARAMETER txdb$k_toy_read = '00000008'X ! 8 - Read TOY registerC PARAMETER txdb$k_toy_write = '00000009'X ! 9 - Write TOY registerD PARAMETER txdb$k_disable_sec = '0000000A'X ! A - Disable secondaryH PARAMETER txd b$k_emm_status_inq = '0000000B'X ! B - EMM Status InquiryU PARAMETER txdb$k_force_next_prim = '0000000C'X ! C - Force next primary to oppositeO PARAMETER txdb$k_get_cpu_info = '0000000D'X ! D - Get CPU Information request STRUCTURE /n_txdb_register/ UNION MAP INTEGER*4 txdb$l_txdb END MAP MAP UNION MAP5 BYTE txdb$b_data ! Data byte END MAP MAP- PARAMETER txdb$S_msg = 4- PARAMETER txdb$V_msg = 02 PARAMETER txdb$S_msg_type = 42 PARAMETER txdb$V_msg_type = 4# BYTE %FILL (1) END MAP END UNION$ PARAMETER txdb$S_id = 42 PARAMETER txdb$V_id = 8 ! ID field' PARAMETER txdb$S_error = 1( PARAMETER txdb$V_error = 15, BYTE %FILL (1) ! Error flag7  INTEGER*2 %FILL ! unused, must be zero END MAP END UNION! $! Constant definitions for id field! !! Valu Function Name Data FieldA! Definitions for data byte fields for CSAx command message type! 7! Definitions for data byte field for csax_cmd message! D! Definitions for data byte field for miscellaneous communications.! END STRUCTURE ! n_txdb_register! <! Definitions for data byte field for unsolicited CSM data.! - PARAMETER txdb$m_csm_trap_f lag = '00000080'X! STRUCTURE /csm_unsolicited_data/ UNION MAP BYTE %FILL END MAP MAP+ PARAMETER txdb$S_halt_code = 7C PARAMETER txdb$V_halt_code = 0 ! Halt code if flag=1/ PARAMETER txdb$S_csm_trap_flag = 1/ PARAMETER txdb$V_csm_trap_flag = 70 BYTE %FILL (1) ! 0=TOMM, 1=HALT END MAP END UNION% END STRUCTURE ! csm_unsolicited_dataCDEC$ END OPTIONS w ww)!*** MODULE $PR8PSDEF ***CDEC$ OPTIONS /NOALIGN+ PARAMETER PR8PS$M_RXDB_P0AVL = '00000001'X+ PARAMETER PR8PS$M_RXDB_P1AVL = '00000002'X+ PARAMETER PR8PS$M_RXDB_P2AVL = '00000004'X+ PARAMETER PR8PS$M_RXDB_P3AVL = '00000008'X* PARAMETER PR8PS$M_RXDB_DKEY = '00000010'X* PARAMETER PR8PS$M_RXDB_VKEY = '00000020'X STRUCTURE /PR8PSDEF/ UNION MAP* PARAMETER PR8PS$S_SID_SERIAL = 15D PARAMETER PR8PS$V_SID_SERIAL = 0 ! Processor Serial Number)  PARAMETER PR8PS$S_SID_CPUREV = 7@ PARAMETER PR8PS$V_SID_CPUREV = 15 ! CPU Revision Level) PARAMETER PR8PS$S_SID_CPUNUM = 2> PARAMETER PR8PS$V_SID_CPUNUM = 22 ! CPU number (0-3)' PARAMETER PR8PS$S_SID_TYPE = 8( PARAMETER PR8PS$V_SID_TYPE = 24+ BYTE %FILL (4) ! CPU Type Code END MAP! H! Bit definitions for data returned by the GET_CPU_INFO console command! through the RXDB IPR.!  MAP) P  ARAMETER PR8PS$S_RXDB_P0AVL = 1? PARAMETER PR8PS$V_RXDB_P0AVL = 0 ! Processor 0 avail ) PARAMETER PR8PS$S_RXDB_P1AVL = 1? PARAMETER PR8PS$V_RXDB_P1AVL = 1 ! Processor 1 avail ) PARAMETER PR8PS$S_RXDB_P2AVL = 1? PARAMETER PR8PS$V_RXDB_P2AVL = 2 ! Processor 2 avail ) PARAMETER PR8PS$S_RXDB_P3AVL = 1? PARAMETER PR8PS$V_RXDB_P3AVL = 3 ! Processor 3 avail ( PARAMETER PR8PS$S_RXDB_DKEY = 15 PARAMETER PR8PS$V_RXDB_DK EY = 4 ! Diag key( PARAMETER PR8PS$S_RXDB_VKEY = 14 PARAMETER PR8PS$V_RXDB_VKEY = 5 ! VMS key* PARAMETER PR8PS$S_RXDB_PRIMID = 2* PARAMETER PR8PS$V_RXDB_PRIMID = 66 BYTE %FILL (1) ! Processor num of primary END MAP! "! Definitions for Polarstar REVR2!  MAP) PARAMETER PR8PS$S_REVR2_PCLK = 4@ PARAMETER PR8PS$V_REVR2_PCLK = 0 ! PCLK revision level* PARAMETER PR8PS$S_REVR2_BKPLN = 4@ PARAMETER PR8  PS$V_REVR2_BKPLN = 4 ! Backplane revision* PARAMETER PR8PS$S_REVR2_CNSRV = 8D PARAMETER PR8PS$V_REVR2_CNSRV = 8 ! Console Revision Level) PARAMETER PR8PS$S_REVR2_UWCS = 8@ PARAMETER PR8PS$V_REVR2_UWCS = 16 ! WCS Revision Level* PARAMETER PR8PS$S_REVR2_UCODE = 8+ PARAMETER PR8PS$V_REVR2_UCODE = 246 BYTE %FILL (4) ! Microcode Revision Level END MAP END UNION END STRUCTURE ! PR8PSDEF! .! Definitions for extended Polars  tar commands! = PARAMETER TXDB$K_BOOT_CPU_0 = '00000014'X ! 14 - Boot CPU 0= PARAMETER TXDB$K_BOOT_CPU_1 = '00000015'X ! 15 - Boot CPU 1= PARAMETER TXDB$K_BOOT_CPU_2 = '00000016'X ! 16 - Boot CPU 2= PARAMETER TXDB$K_BOOT_CPU_3 = '00000017'X ! 17 - Boot CPU 3A PARAMETER TXDB$K_DISAB_CPU_0 = '00000018'X ! 18 - Disable CPU 0A PARAMETER TXDB$K_DISAB_CPU_1 = '00000019'X ! 19 - Disable CPU 1A PARAMETER TXDB$K_DISAB_CPU_2 = '0000001A'X ! 1A - Disable CPU 2A PARAMETER TXDB$K_DISAB_CPU_ 3 = '0000001B'X ! 1B - Disable CPU 3P PARAMETER TXDB$K_FNP_CPU_0 = '0000001C'X ! 1C - Force Next Primary to be CPU 0P PARAMETER TXDB$K_FNP_CPU_1 = '0000001D'X ! 1D - Force Next Primary to be CPU 1P PARAMETER TXDB$K_FNP_CPU_2 = '0000001E'X ! 1E - Force Next Primary to be CPU 2P PARAMETER TXDB$K_FNP_CPU_3 = '0000001F'X ! 1F - Force Next Primary to be CPU 3T PARAMETER TXDB$K_CSA1_INFO = '00000020'X ! 20 - Get info on CSA1 [not implemented]T PARAMETER TXDB$K_CSA2_INFO = '00000021'X ! 21 - Ge  t info on CSA2 [not implemented]B PARAMETER TXDB$K_CSA3_INFO = '00000022'X ! 22 - Get info on CSA3CDEC$ END OPTIONS wwmGy)!*** MODULE $PR8SSDEF ***CDEC$ OPTIONS /NOALIGNE PARAMETER PR8SS$_IPIR = '00000016'X ! Interprocessor Interrupt Reg.M PARAMETER PR8SS$_NICR = '00000019'X ! Interval Clock Next Interval RegisterM PARAMETER PR8SS$_ICR = '0000001A'X ! Interval Clock Interval Count Register< PARAMETER PR8SS$_TODR = '0000001B'X ! Time Of Day RegisterK PARAMETER PR8SS$_TBDR = '00000024'X ! Translation Buffer Disable Register> PARAMETER PR8SS$_CADR = '00000025'X ! Cache Disable RegisterM PARAMETER PR8SS$_MCESR = '00000026'X ! Machine Check Error Summary RegisterL PARAMETER PR8SS$_ACCS = '00000028'X ! Floating Point Accellerator Register< PARAMETER PR8SS$_WCSA = '0000002C'X ! WCS Address Register9 PARAMETER PR8SS$_WCSD = '0000002D'X ! WCS Data Register8 PARAMETER PR8SS$_WCSC = '0000002E'X ! WCS Cam RegisterA PARAMETER PR8SS$_PME = '0000003D'X  ! Performance Monitor EnableB PARAMETER PR8SS$_RXCS1 = '00000050'X ! Serial Line 1 Receive CSRJ PARAMETER PR8SS$_RXDB1 = '00000051'X ! Serial Line 1 Receive Data BufferC PARAMETER PR8SS$_TXCS1 = '00000052'X ! Serial Line 1 Transmit CSRK PARAMETER PR8SS$_TXDB1 = '00000053'X ! Serial Line 1 Transmit Data BufferB PARAMETER PR8SS$_RXCS2 = '00000054'X ! Serial Line 2 Receive CSRJ PARAMETER PR8SS$_RXDB2 = '00000055'X ! Serial Line 2 Receive Data BufferC PARAMETER PR8SS$_TXCS2 = '00000056'X  ! Serial Line 2 Transmit CSRK PARAMETER PR8SS$_TXDB2 = '00000057'X ! Serial Line 2 Transmit Data BufferB PARAMETER PR8SS$_RXCS3 = '00000058'X ! Serial Line 3 Receive CSRJ PARAMETER PR8SS$_RXDB3 = '00000059'X ! Serial Line 3 Receive Data BufferC PARAMETER PR8SS$_TXCS3 = '0000005A'X ! Serial Line 3 Transmit CSRK PARAMETER PR8SS$_TXDB3 = '0000005B'X ! Serial Line 3 Transmit Data BufferE PARAMETER PR8SS$_RXCD = '0000005C'X ! Receive Console Data RegisterC PARAMETER PR8SS$_CACHEX = '0000  005D'X ! Cache Invalidate Register< PARAMETER PR8SS$_BINID = '0000005E'X ! BI Node ID Register@ PARAMETER PR8SS$_BIINIT = '0000005F'X ! BI Init Nodes Register) PARAMETER PR8SS$M_SID_SECP = '00000100'X( PARAMETER PR8SS$M_RXCS_IE = '00000040'X* PARAMETER PR8SS$M_RXCS_DONE = '00000080'X) PARAMETER PR8SS$M_RXDB_ERR = '00008000'X( PARAMETER PR8SS$M_TXCS_IE = '00000040'X) PARAMETER PR8SS$M_TXCS_RDY = '00000080'X) PARAMETER PR8SS$M_TXCS_BRE = '00000100'X; PARAMETER PR8SS$_BAUD300 = '0000000  0'X ! Baud Rate of 300; PARAMETER PR8SS$_BAUD600 = '00000001'X ! Baud Rate of 600= PARAMETER PR8SS$_BAUD1200 = '00000002'X ! Baud Rate of 1200= PARAMETER PR8SS$_BAUD2400 = '00000003'X ! Baud Rate of 2400= PARAMETER PR8SS$_BAUD4800 = '00000004'X ! Baud Rate of 4800= PARAMETER PR8SS$_BAUD9600 = '00000005'X ! Baud Rate of 9600? PARAMETER PR8SS$_BAUD19200 = '00000006'X ! Baud Rate of 19200? PARAMETER PR8SS$_BAUD38400 = '00000007'X ! Baud Rate of 38400; PARAMETER PR8SS$_BOOTCPU = '0  0000002'X ! Boot CPU Command@ PARAMETER PR8SS$_CLRWARM = '00000003'X ! Clear Warm-start Flag@ PARAMETER PR8SS$_CLRCOLD = '00000004'X ! Clear Cold-start Flag' PARAMETER PR8SS$M_CADR_D = '00000001'X' PARAMETER PR8SS$M_CADR_H = '00000002'X) PARAMETER PR8SS$M_RXCD_BSY = '00008000'X STRUCTURE /PR8SSDEF/ UNION MAP( PARAMETER PR8SS$S_SID_UCREV = 8A PARAMETER PR8SS$V_SID_UCREV = 0 ! Ucode Revision Level' PARAMETER PR8SS$S_SID_SECP = 1? PARAMETER P  R8SS$V_SID_SECP = 8 ! Secondary Patch Bit* PARAMETER PR8SS$S_SID_PATREV = 10< PARAMETER PR8SS$V_SID_PATREV = 9 ! Patch Rev Level) PARAMETER PR8SS$S_SID_CPUREV = 4; PARAMETER PR8SS$V_SID_CPUREV = 19 ! CPU Rev level( PARAMETER PR8SS$S_SID_V8250 = 1L PARAMETER PR8SS$V_SID_V8250 = 23 ! 1=8250 (KA825), 0=8200 (KA820) ' PARAMETER PR8SS$S_SID_TYPE = 8( PARAMETER PR8SS$V_SID_TYPE = 24+ BYTE %FILL (4) ! CPU Type Code END MAP MAP& PARAMETER PR8SS$S_RXCS_IE = 1; PARAMETER PR8SS$V_RXCS_IE = 6 ! Interrupt Enable( PARAMETER PR8SS$S_RXCS_DONE = 1( PARAMETER PR8SS$V_RXCS_DONE = 70 BYTE %FILL (1) ! 1=> Char. received END MAP MAP( PARAMETER PR8SS$S_RXDB_DATA = 8: PARAMETER PR8SS$V_RXDB_DATA = 0 ! Received Data' PARAMETER PR8SS$S_RXDB_ERR = 1( PARAMETER PR8SS$V_RXDB_ERR = 15# BYTE %FILL (2) ! Erro r END MAP MAP& PARAMETER PR8SS$S_TXCS_IE = 1; PARAMETER PR8SS$V_TXCS_IE = 6 ! Interrupt Enable' PARAMETER PR8SS$S_TXCS_RDY = 11 PARAMETER PR8SS$V_TXCS_RDY = 7 ! Ready' PARAMETER PR8SS$S_TXCS_BRE = 1A PARAMETER PR8SS$V_TXCS_BRE = 8 ! (WO) Baud Rate Enable( PARAMETER PR8SS$S_TXCS_BAUD = 36 PARAMETER PR8SS$V_TXCS_BAUD = 10 ! Baud Rate! Values to set baud rates BYTE %FILL (1) END MAP MAP ( PARAMETER PR8SS$S_TXDB_DATA = 8= PARAMETER PR8SS$V_TXDB_DATA = 0 ! Data to Transmit& PARAMETER PR8SS$S_TXDB_ID = 4> PARAMETER PR8SS$V_TXDB_ID = 8 ! ID - Destination of! transmitted data -! 0=>UART0, F=>Console ! command! Possible Console Commands BYTE %FILL (2) END MAP MAP% PARAMETER PR8SS$S_CADR_D = 17 PARAMETER PR8SS$V_CADR_D = 0 ! Disable Cache% PARAMETER PR8SS$S_CADR_H = 1? PARAMET ER PR8SS$V_CADR_H = 1 ! Force 100% Cache Hits BYTE %FILL (1) END MAP MAP( PARAMETER PR8SS$S_WCSA_DATA = 8A PARAMETER PR8SS$V_WCSA_DATA = 0 ! High Order Data Bits+ PARAMETER PR8SS$S_WCSA_RAMADR = 16+ PARAMETER PR8SS$V_WCSA_RAMADR = 16) BYTE %FILL (3) ! Ram Address END MAP MAP* PARAMETER PR8SS$S_WCSC_CAMADR = 89 PARAMETER PR8SS$V_WCSC_CAMADR = 8 ! Cam Address+ PARAMETER PR8SS$S_WCSC_ROMA DR = 16+ PARAMETER PR8SS$V_WCSC_ROMADR = 16) BYTE %FILL (3) ! Rom Address END MAP MAP( PARAMETER PR8SS$S_RXCD_DATA = 8: PARAMETER PR8SS$V_RXCD_DATA = 0 ! Received Data* PARAMETER PR8SS$S_RXCD_NODEID = 4> PARAMETER PR8SS$V_RXCD_NODEID = 8 ! Sender's Node ID' PARAMETER PR8SS$S_RXCD_BSY = 1( PARAMETER PR8SS$V_RXCD_BSY = 159 BYTE %FILL (2) ! Set=>Data has been received END MAP MAP*  PARAMETER PR8SS$S_CACHEX_PFN = 21A PARAMETER PR8SS$V_CACHEX_PFN = 9 ! Physical Page Number BYTE %FILL (3) END MAP MAP( PARAMETER PR8SS$S_BINID_NID = 4A PARAMETER PR8SS$V_BINID_NID = 0 ! BI Node ID this node BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PR8SSDEFCDEC$ END OPTIONS wwT|)!*** MODULE $PR9AQDEF ***CDEC$ OPTIONS /NOALIGNI PARAMETER PR9AQ$C_CONSIPL = '00000014'X ! IPL for all Console Re ! gistersA PARAMETER PR9AQ$C_CLKIPL = '00000016'X ! IPL for Interval ClockL PARAMETER PR9AQ$C_IP_IPL = '00000016'X ! IPL for Interprocessor InterruptsD PARAMETER PR9AQ$_NICR = '00000019'X ! Next Interval Count Register@ PARAMETER PR9AQ$_ICR = '0000001A'X ! Interval Counter Register4 PARAMETER PR9AQ$_TODR = '0000001B'X ! Time of YearA PARAMETER PR9AQ$_PME = '0000003D'X ! Performance Monitor Enable3 PARAMETER PR9AQ$_CSWP = '00000042'X ! Cache Sweep6 PARAMETER PR9AQ$_CRBT = '00000048'X ! " Console Reboot; PARAMETER PR9AQ$_CPUCNF = '0000006A'X ! CPU ConfigurationA PARAMETER PR9AQ$_ICIR = '0000006B'X ! Interrupt Other ProcessorB PARAMETER PR9AQ$_RXFCT = '0000006C'X ! Receive Function RegisterC PARAMETER PR9AQ$_RXPRM = '0000006D'X ! Receive Parameter RegisterC PARAMETER PR9AQ$_TXFCT = '0000006E'X ! Transmit Function RegisterD PARAMETER PR9AQ$_TXPRM = '0000006F'X ! Transmit Parameter RegisterB PARAMETER PR9AQ$C_CSWP_INIT = '00000001'X ! Initiate Cache SweepG PARAMETER P# R9AQ$C_CRBT_CODE = '00000001'X ! Reboot Code for CRBT_CODEH PARAMETER PR9AQ$C_TXFCT_GETHDWCTX = '00000001'X ! Get Hardware ContextF PARAMETER PR9AQ$C_TXFCT_VBFIO = '00000002'X ! Virtual Block File I/O> PARAMETER PR9AQ$C_TXFCT_KEEPALIVE = '00000003'X ! Keep Alive> PARAMETER PR9AQ$C_TXFCT_SENDDG = '00000004'X ! Send DatagramC PARAMETER PR9AQ$C_TXFCT_RETDGSTS = '00000005'X ! Return DG StatusF PARAMETER PR9AQ$C_TXFCT_SWITCHPRI = '00000006'X ! Switch Primary CPUA PARAMETER PR9AQ$C_TXFCT_REB$ OOTSYS = '00000007'X ! Reboot SystemI PARAMETER PR9AQ$C_TXFCT_CLRWRMSTR = '00000008'X ! Clear Warm Start FlagI PARAMETER PR9AQ$C_TXFCT_CLRCLDSTR = '00000009'X ! Clear Cold Start FlagK PARAMETER PR9AQ$C_TXFCT_BOOTSEC = '0000000A'X ! Boot/Reboot Secondary CPUW PARAMETER PR9AQ$C_TXFCT_HLTREMAVL = '0000000B'X ! Halt CPU, Remove from Available SetS PARAMETER PR9AQ$C_TXFCT_HLTKEPAVL = '0000000C'X ! Halt CPU, Keep in Available SetV PARAMETER PR9AQ$C_TXFCT_CONSQUIET = '0000000E'X ! Shut Dow% n Non-Primary Switch XMITsF PARAMETER PR9AQ$C_TXFCT_SETINTMOD = '0000000F'X ! Set Interrupt ModeC PARAMETER PR9AQ$C_TXFCT_ABORTDL = '00000010'X ! Abort Datalink(s)B PARAMETER PR9AQ$C_TXFCT_RESETIO = '00000011'X ! Reset I/O System@ PARAMETER PR9AQ$C_TXFCT_DSABLVBOX = '00000012'X ! Disable VBOXP PARAMETER PR9AQ$C_TXFCT_SETKEPALV = '00000013'X ! Set Console Keep-Alive StateO PARAMETER PR9AQ$C_TXFCT_ERLENA = '00000014'X ! Flush pending errorlog entriesU PARAMETER PR9AQ$C_TXFCT_GETSYSTYPE = & '00000015'X ! Return value of systype registerD PARAMETER PR9AQ$C_RXFCT_REMOVECPU = '00000002'X ! Remove Processor> PARAMETER PR9AQ$C_RXFCT_ADDCPU = '00000003'X ! Add ProcessorH PARAMETER PR9AQ$C_RXFCT_MARKBADPG = '00000004'X ! Mark Memory Page BadH PARAMETER PR9AQ$C_RXFCT_REQMEMORY = '00000005'X ! Request Memory PagesH PARAMETER PR9AQ$C_RXFCT_SNDERLENT = '00000006'X ! Send Error Log EntryF PARAMETER PR9AQ$C_RXFCT_SNDOPCMSG = '00000007'X ! Send OPCOM MessageF PARAMETER PR9AQ$C_RXFCT_GET ' DGBUF = '00000008'X ! Get Datagram Buffer> PARAMETER PR9AQ$C_RXFCT_SENDDG = '00000009'X ! Send DatagramC PARAMETER PR9AQ$C_RXFCT_RETDGSTS = '0000000A'X ! Return DG StatusH PARAMETER PR9AQ$C_RXFCT_SETKEPALV = '0000000B'X ! Set Keep-alive StateC PARAMETER PR9AQ$C_RXFCT_ABORTDL = '0000000C'X ! Abort Datalink(s)B PARAMETER PR9AQ$C_RXFCT_ERRORINT = '0000000D'X ! Error Interrupt- PARAMETER PR9AQ_XSID$M_ARCH_ID = '000000FF'X, PARAMETER PR9AQ_XSID$M_VECTOR = '00000100'X* PARAMETER PR9AQ_XSID$ ( M_CPUS = '00000600'X, PARAMETER PR9AQ_XSID$M_MMODEL = '00001800'X. PARAMETER PR9AQ_XSID$M_SYS_TYPE = '7F800000'X1 PARAMETER PR9AQ$C_SYSTYPE_AQUARIUS = '00000000'X3 PARAMETER PR9AQ$C_SYSTYPE_AQUARIUSII = '00000001'X4 PARAMETER PR9AQ$C_SYSTYPE_AQUARIUSIII = '00000002'X/ PARAMETER PR9AQ$C_SYSTYPE_ARIDUS = '00000008'X1 PARAMETER PR9AQ$C_SYSTYPE_ARIDUSII = '00000009'X2 PARAMETER PR9AQ$C_SYSTYPE_ARIDUSIII = '0000000A'X/ PARAMETER PR9AQ$M_CPUCNF_CPU_AVL = '0000000F'X0 PARAMETER PR9AQ$M_CPUCNF_ ) CPU_PSED = '000000F0'X0 PARAMETER PR9AQ$M_CPUCNF_VBOX_AVL = '00000F00'X/ PARAMETER PR9AQ$M_CPUCNF_XJA_AVL = '0000F000'X. PARAMETER PR9AQ$M_CPUCNF_34_BIT = '00010000'X/ PARAMETER PR9AQ$M_CPUCNF_PRIMARY = '00060000'X. PARAMETER PR9AQ$M_CPUCNF_RRINTR = '00080000'X0 PARAMETER PR9AQ$M_CPUCNF_MMU0_ENA = '00100000'X0 PARAMETER PR9AQ$M_CPUCNF_MMU1_ENA = '00200000'X0 PARAMETER PR9AQ$M_CPUCNF_ICU0_ENA = '00400000'X0 PARAMETER PR9AQ$M_CPUCNF_ICU1_ENA = '00800000'X0 PARAMETER PR9AQ$M_CPUCNF_CPU0_CON = * '01000000'X/ PARAMETER PR9AQ$M_CPUCNF_CPU0_IE = '02000000'X0 PARAMETER PR9AQ$M_CPUCNF_CPU1_CON = '04000000'X/ PARAMETER PR9AQ$M_CPUCNF_CPU1_IE = '08000000'X0 PARAMETER PR9AQ$M_CPUCNF_CPU2_CON = '10000000'X/ PARAMETER PR9AQ$M_CPUCNF_CPU2_IE = '20000000'X0 PARAMETER PR9AQ$M_CPUCNF_CPU3_CON = '40000000'X/ PARAMETER PR9AQ$M_CPUCNF_CPU3_IE = '80000000'X9 PARAMETER PR9AQ$C_CPUCNF_FLUID = -16252688 ! Fluid bits! (CPUx_IE/CPUx_CON/RRINTR/- PARAMETER PR9AQ$M_TXFCT_STATUS = '20000000'X- PAR + AMETER PR9AQ$M_TXFCT_INTENA = '40000000'X, PARAMETER PR9AQ$M_TXFCT_READY = '80000000'X- PARAMETER PR9AQ$M_RXFCT_STATUS = '20000000'X- PARAMETER PR9AQ$M_RXFCT_INTENA = '40000000'X, PARAMETER PR9AQ$M_RXFCT_VALID = '80000000'X STRUCTURE /PR9AQDEF/ UNION MAP* PARAMETER PR9AQ$S_SID_SERIAL = 12D PARAMETER PR9AQ$V_SID_SERIAL = 0 ! Processor Serial Number( PARAMETER PR9AQ$S_SID_PLANT = 2; PARAMETER PR9AQ$V_SID_PLANT = 12 ! Mfg Plant Code+ PARAM , ETER PR9AQ$S_SID_SYSTYPE2 = 2I PARAMETER PR9AQ$V_SID_SYSTYPE2 = 14 ! Expanded system type code) PARAMETER PR9AQ$S_SID_REVLVL = 6C PARAMETER PR9AQ$V_SID_REVLVL = 16 ! System Revision Level* PARAMETER PR9AQ$S_SID_SYSTYPE = 2? PARAMETER PR9AQ$V_SID_SYSTYPE = 22 ! System Type Code' PARAMETER PR9AQ$S_SID_TYPE = 8( PARAMETER PR9AQ$V_SID_TYPE = 24+ BYTE %FILL (4) ! CPU Type Code END MAP MAP+ PARAMETER P - R9AQ_XSID$S_ARCH_ID = 8I PARAMETER PR9AQ_XSID$V_ARCH_ID = 0 ! Timeshare (1) / Server (2)* PARAMETER PR9AQ_XSID$S_VECTOR = 1< PARAMETER PR9AQ_XSID$V_VECTOR = 8 ! Vector capable( PARAMETER PR9AQ_XSID$S_CPUS = 2@ PARAMETER PR9AQ_XSID$V_CPUS = 9 ! # CPUs installed -1* PARAMETER PR9AQ_XSID$S_MMODEL = 2C PARAMETER PR9AQ_XSID$V_MMODEL = 11 ! Marketing model type, PARAMETER PR9AQ_XSID$S_SYS_TYPE = 8< PARAMETER PR9AQ_XSID$ . V_SYS_TYPE = 23 ! System type BYTE %FILL (3) END MAP MAP- PARAMETER PR9AQ$S_CPUCNF_CPU_AVL = 4B PARAMETER PR9AQ$V_CPUCNF_CPU_AVL = 0 ! CPU 0-3 Available. PARAMETER PR9AQ$S_CPUCNF_CPU_PSED = 4@ PARAMETER PR9AQ$V_CPUCNF_CPU_PSED = 4 ! CPU 0-3 Paused. PARAMETER PR9AQ$S_CPUCNF_VBOX_AVL = 4W PARAMETER PR9AQ$V_CPUCNF_VBOX_AVL = 8 ! CPU 0-3 VBOX Configured and Available- PARAMETER PR9AQ$S_CPUCNF_XJA_AVL = 4C PAR / AMETER PR9AQ$V_CPUCNF_XJA_AVL = 12 ! XJA 0-3 Available, PARAMETER PR9AQ$S_CPUCNF_34_BIT = 1J PARAMETER PR9AQ$V_CPUCNF_34_BIT = 16 ! Addressing Mode = 34 bits- PARAMETER PR9AQ$S_CPUCNF_PRIMARY = 2D PARAMETER PR9AQ$V_CPUCNF_PRIMARY = 17 ! Primary CPU Number, PARAMETER PR9AQ$S_CPUCNF_RRINTR = 1G PARAMETER PR9AQ$V_CPUCNF_RRINTR = 19 ! Round Robin Interrupts. PARAMETER PR9AQ$S_CPUCNF_MMU0_ENA = 1? PARAMETER PR9AQ$V_CPUCNF_MMU0_E 0 NA = 20 ! MMU0 Enabled. PARAMETER PR9AQ$S_CPUCNF_MMU1_ENA = 1? PARAMETER PR9AQ$V_CPUCNF_MMU1_ENA = 21 ! MMU1 Enabled. PARAMETER PR9AQ$S_CPUCNF_ICU0_ENA = 1? PARAMETER PR9AQ$V_CPUCNF_ICU0_ENA = 22 ! ICU0 Enabled. PARAMETER PR9AQ$S_CPUCNF_ICU1_ENA = 1? PARAMETER PR9AQ$V_CPUCNF_ICU1_ENA = 23 ! ICU1 Enabled. PARAMETER PR9AQ$S_CPUCNF_CPU0_CON = 1A PARAMETER PR9AQ$V_CPUCNF_CPU0_CON = 24 ! CPU0 Connected- PARAMETER PR9 1 AQ$S_CPUCNF_CPU0_IE = 1M PARAMETER PR9AQ$V_CPUCNF_CPU0_IE = 25 ! CPU0 I/O Interrupts Enabled. PARAMETER PR9AQ$S_CPUCNF_CPU1_CON = 1A PARAMETER PR9AQ$V_CPUCNF_CPU1_CON = 26 ! CPU1 Connected- PARAMETER PR9AQ$S_CPUCNF_CPU1_IE = 1M PARAMETER PR9AQ$V_CPUCNF_CPU1_IE = 27 ! CPU1 I/O Interrupts Enabled. PARAMETER PR9AQ$S_CPUCNF_CPU2_CON = 1A PARAMETER PR9AQ$V_CPUCNF_CPU2_CON = 28 ! CPU2 Connected- PARAMETER PR9AQ$S_CPUCNF_CPU2_I 2 E = 1M PARAMETER PR9AQ$V_CPUCNF_CPU2_IE = 29 ! CPU2 I/O Interrupts Enabled. PARAMETER PR9AQ$S_CPUCNF_CPU3_CON = 1A PARAMETER PR9AQ$V_CPUCNF_CPU3_CON = 30 ! CPU3 Connected- PARAMETER PR9AQ$S_CPUCNF_CPU3_IE = 1. PARAMETER PR9AQ$V_CPUCNF_CPU3_IE = 319 BYTE %FILL (4) ! CPU3 I/O Interrupts Enabled END MAP! CPUx_PSED) MAP* PARAMETER PR9AQ$S_TXFCT_FUNCT = 8; PARAMETER PR9AQ$V_TXFCT_FUNCT = 0 ! Function Code, 3 PARAMETER PR9AQ$S_TXFCT_SPARAM = 165 PARAMETER PR9AQ$V_TXFCT_SPARAM = 8 ! SPARAM+ PARAMETER PR9AQ$S_TXFCT_spare0 = 56 PARAMETER PR9AQ$V_TXFCT_spare0 = 24 ! Unused+ PARAMETER PR9AQ$S_TXFCT_STATUS = 1: PARAMETER PR9AQ$V_TXFCT_STATUS = 29 ! Status Bit+ PARAMETER PR9AQ$S_TXFCT_INTENA = 1D PARAMETER PR9AQ$V_TXFCT_INTENA = 30 ! Interrupt Enable Bit* PARAMETER PR9AQ$S_TXFCT_READY = 1+ PARAMETER PR9AQ$V_TXFCT_REA 4 DY = 31' BYTE %FILL (4) ! Ready Bit END MAP MAP* PARAMETER PR9AQ$S_RXFCT_FUNCT = 8; PARAMETER PR9AQ$V_RXFCT_FUNCT = 0 ! Function Code, PARAMETER PR9AQ$S_RXFCT_SPARAM = 165 PARAMETER PR9AQ$V_RXFCT_SPARAM = 8 ! SPARAM+ PARAMETER PR9AQ$S_RXFCT_spare0 = 56 PARAMETER PR9AQ$V_RXFCT_spare0 = 24 ! Unused+ PARAMETER PR9AQ$S_RXFCT_STATUS = 1: PARAMETER PR9AQ$V_RXFCT_STATUS = 29 ! Status Bit+ PARAM5 ETER PR9AQ$S_RXFCT_INTENA = 1D PARAMETER PR9AQ$V_RXFCT_INTENA = 30 ! Interrupt Enable Bit* PARAMETER PR9AQ$S_RXFCT_VALID = 1+ PARAMETER PR9AQ$V_RXFCT_VALID = 31' BYTE %FILL (4) ! Valid Bit END MAP END UNION END STRUCTURE ! PR9AQDEFCDEC$ END OPTIONS wwa)!*** MODULE $PR9CCDEF ***CDEC$ OPTIONS /NOALIGNE PARAMETER PR9CC$_ICCS = '00000018'X ! Interval Clock Control/Status: PARAMETER PR9CC$_TODR = '0000001B'X ! Time o 6 f Year ClockG PARAMETER PR9CC$_RXCS = '00000020'X ! Console Receiver Control/StatusD PARAMETER PR9CC$_RXDB = '00000021'X ! Console Receiver Data BufferG PARAMETER PR9CC$_TXCS = '00000022'X ! Console Transmit Control/StatusD PARAMETER PR9CC$_TXDB = '00000023'X ! Console Transmit Data Buffer> PARAMETER PR9CC$_CADR = '00000025'X ! Cache Disable Register; PARAMETER PR9CC$_MSER = '00000027'X ! Memory System Error9 PARAMETER PR9CC$_SAVPC = '0000002A'X ! Console SAVED PC; PARAMETER PR9CC$_ 7 SAVPSL = '0000002B'X ! Console SAVED PSLF PARAMETER PR9CC$_SID = '0000003E'X ! System Identification Register % PARAMETER PR9CC$M_DIAG = '00000001'X- PARAMETER PR9CC$M_WRONG_PARITY = '00000002'X) PARAMETER PR9CC$M_D_STREAM = '00000010'X) PARAMETER PR9CC$M_I_STREAM = '00000020'X* PARAMETER PR9CC$M_ENAB_SET1 = '00000040'X* PARAMETER PR9CC$M_ENAB_SET2 = '00000080'X$ PARAMETER PR9CC$M_TAG = '00000001'X$ PARAMETER PR9CC$M_DAT = '00000002'X$ PARAMETER PR9CC$M_ST1 = '00000004'X$ PARAMETER P 8 R9CC$M_ST2 = '00000008'X$ PARAMETER PR9CC$M_MCC = '00000010'X$ PARAMETER PR9CC$M_MCD = '00000020'X$ PARAMETER PR9CC$M_DAL = '00000040'X# PARAMETER PR9CC$M_HM = '00000080'X> PARAMETER PR9CC_XSID$_JIMMIED0 = '00000000'X ! Jimmied ROM B PARAMETER PR9CC_XSID$_TIMESHARE = '00000001'X ! Timeshare system< PARAMETER PR9CC_XSID$_SERVER = '00000002'X ! Server system> PARAMETER PR9CC_XSID$_JIMMIED3 = '00000003'X ! Jimmied ROM B PARAMETER PR9CC_XSID$_XCPFWREV31 = '00000031'X ! Console REV 3.1B P 9 ARAMETER PR9CC_XSID$_XCPFWREV40 = '00000040'X ! Console REV 4.0: PARAMETER PR9CC_XSID$_REV31 = '00000000'X ! Rev 3.1 ROMs9 PARAMETER PR9CC_XSID$_XCP = '00000001'X ! XCP 80NS CVAXC PARAMETER PR9CC_XSID$_HYPERION = '00000002'X ! Hyperion 60NS CVAX STRUCTURE /PR9CCDEF/ UNION MAP# PARAMETER PR9CC$S_DIAG = 17 PARAMETER PR9CC$V_DIAG = 0 ! Diagnostic Mode+ PARAMETER PR9CC$S_WRONG_PARITY = 1A PARAMETER PR9CC$V_WRONG_PARITY = 1 ! Write Wrong Parity : ' PARAMETER PR9CC$S_D_STREAM = 1C PARAMETER PR9CC$V_D_STREAM = 4 ! Store D-Stream in cache' PARAMETER PR9CC$S_I_STREAM = 1C PARAMETER PR9CC$V_I_STREAM = 5 ! Store I-Stream in cache( PARAMETER PR9CC$S_ENAB_SET1 = 1B PARAMETER PR9CC$V_ENAB_SET1 = 6 ! Enable Set 1 of cache( PARAMETER PR9CC$S_ENAB_SET2 = 1( PARAMETER PR9CC$V_ENAB_SET2 = 73 BYTE %FILL (1) ! Enable Set 2 of cache END MAP MAP" ; PARAMETER PR9CC$S_TAG = 17 PARAMETER PR9CC$V_TAG = 0 ! Tag Parity Error" PARAMETER PR9CC$S_DAT = 18 PARAMETER PR9CC$V_DAT = 1 ! Data Parity Error" PARAMETER PR9CC$S_ST1 = 19 PARAMETER PR9CC$V_ST1 = 2 ! Set 1 Parity Error" PARAMETER PR9CC$S_ST2 = 19 PARAMETER PR9CC$V_ST2 = 3 ! Set 2 Parity Error" PARAMETER PR9CC$S_MCC = 1A PARAMETER PR9CC$V_MCC = 4 ! Machine Check/Cache parity" PARAMETER PR9CC$S_MCD< = 1? PARAMETER PR9CC$V_MCD = 5 ! Machine Check/DAL parity" PARAMETER PR9CC$S_DAL = 17 PARAMETER PR9CC$V_DAL = 6 ! DAL parity error! PARAMETER PR9CC$S_HM = 1! PARAMETER PR9CC$V_HM = 7& BYTE %FILL (1) ! Hit/Miss END MAP MAP* PARAMETER PR9CC$S_SID_CVAXREV = 8* PARAMETER PR9CC$V_SID_CVAXREV = 0B BYTE %FILL (1) ! CVAX chip microcode revision level END MAP MAP+ PARAMETER PR9CC = $S_XSID_LICENSE = 8; PARAMETER PR9CC$V_XSID_LICENSE = 0 ! License bits+ PARAMETER PR9CC$S_XSID_CALYPSO = 8H PARAMETER PR9CC$V_XSID_CALYPSO = 8 ! XCP / Hyperion distiction, PARAMETER PR9CC$S_XSID_XCPFWREV = 8Q PARAMETER PR9CC$V_XSID_XCPFWREV = 16 ! Calypso firmware revision level ( PARAMETER PR9CC$S_XSID_TYPE = 8) PARAMETER PR9CC$V_XSID_TYPE = 24' BYTE %FILL (4) ! CPU type END MAP END UNION END STRUCTURE ! P> R9CCDEFCDEC$ END OPTIONS ww)!*** MODULE $PR9RRDEF ***CDEC$ OPTIONS /NOALIGNE PARAMETER PR9RR$_ICCS = '00000018'X ! Interval Clock Control/Status" PARAMETER ICCS$M_IE = '00000040'X: PARAMETER PR9RR$_TODR = '0000001B'X ! Time of Year ClockG PARAMETER PR9RR$_RXCS = '00000020'X ! Console Receiver Control/Status% PARAMETER RXCS$M_RX_IE = '00000040'X' PARAMETER RXCS$M_RX_DONE = '00000080'XD PARAMETER PR9RR$_RXDB = '00000021'X ! Console Receiver Data Buffer$ P ? ARAMETER RXDB$M_DATA = '000000FF'X' PARAMETER RXDB$M_RCV_BRK = '00000800'X' PARAMETER RXDB$M_FRM_ERR = '00002000'X' PARAMETER RXDB$M_OVR_ERR = '00004000'X' PARAMETER RXDB$M_ERR_9RR = '00008000'XG PARAMETER PR9RR$_TXCS = '00000022'X ! Console Transmit Control/Status( PARAMETER TXCS$M_XMIT_BRK = '00000001'X( PARAMETER TXCS$M_LOOPBACK = '00000004'X% PARAMETER TXCS$M_TX_IE = '00000040'X& PARAMETER TXCS$M_TX_RDY = '00000080'XD PARAMETER PR9RR$_TXDB = '00000023'X ! Console Transmit Data Bu @ ffer$ PARAMETER TXDB$M_DATA = '000000FF'XE PARAMETER PR9RR$_MCESR = '00000026'X ! Machine Check Error RegisterK PARAMETER PR9RR$_ACCS = '00000028'X ! Floating Point Accelerator Register. PARAMETER ACCS$M_VECTOR_PRESENT = '00000001'X- PARAMETER ACCS$M_FCHIP_PRESENT = '00000002'X1 PARAMETER ACCS$M_WRITE_EVEN_PARITY = '80000000'X9 PARAMETER PR9RR$_SAVPC = '0000002A'X ! Console SAVED PC; PARAMETER PR9RR$_SAVPSL = '0000002B'X ! Console SAVED PSL+ PARAMETER SAVPSL$M_HALT_CODE = '00003F00' A X) PARAMETER SAVPSL$M_INVALID = '00004000'X' PARAMETER SAVPSL$M_MAPEN = '00008000'X? PARAMETER PR9RR$_TBTAG = '0000002F'X ! Translation Buffer Tag7 PARAMETER PR9RR$_IORESET = '00000037'X ! IO BUS RESETA PARAMETER PR9RR$_TBDATA = '0000003B'X ! Translation Buffer DataF PARAMETER PR9RR$_SID = '0000003E'X ! System Identification Register $ PARAMETER XSID$M_ARCH = '000000FF'X' PARAMETER XSID$M_SYS_VAR = '0000FF00'X( PARAMETER XSID$M_XRPFWREV = '00FF0000'X? PARAMETER PR9RR$_BCBTS = '000 B 00071'X ! Backup Cache Tag Store& PARAMETER BCBTS$M_VALID = '0000003C'X$ PARAMETER BCBTS$M_TAG = '1FFE0000'X' PARAMETER BCBTS$M_PARITY = '20000000'XY PARAMETER PR9RR$_BCP1TS = '00000072'X ! Backup cache primary tag array, first half bits& PARAMETER BCPTS$M_VALID = '00000004'X$ PARAMETER BCPTS$M_TAG = '1FFFFFF8'X' PARAMETER BCPTS$M_PARITY = '20000000'XZ PARAMETER PR9RR$_BCP2TS = '00000073'X ! Backup cache primary tag array, second half bits2! PR9RRBCP2TS_BITS structure fill prefix BCP C TS$;F PARAMETER PR9RR$_BCRFR = '00000074'X ! Backup Cache Refresh Register$ PARAMETER BCRFR$M_PTS = '000001F0'X$ PARAMETER BCRFR$M_BTS = '0001FE00'XD PARAMETER PR9RR$_BCIDX = '00000075'X ! Backup Cache Index Register$ PARAMETER BCIDX$M_BTS = '0001FFC0'X$ PARAMETER BCIDX$M_PTS = '000007F0'XE PARAMETER PR9RR$_BCSTS = '00000076'X ! Backup Cache Status Register% PARAMETER BCSTS$M_LOCK = '00000001'X) PARAMETER BCSTS$M_BTS_PERR = '00000002'X* PARAMETER BCSTS$M_P1TS_PERR = '00000004'X* PARAM D ETER BCSTS$M_P2TS_PERR = '00000008'X( PARAMETER BCSTS$M_BUS_ERR = '00000010'X) PARAMETER BCSTS$M_BTS_COMP = '00020000'X( PARAMETER BCSTS$M_BTS_HIT = '00040000'X) PARAMETER BCSTS$M_P1TS_HIT = '00080000'X) PARAMETER BCSTS$M_P2TS_HIT = '00100000'X$ PARAMETER BCSTS$M_CMD = '01E00000'X) PARAMETER BCSTS$M_IBUS_CYC = '02000000'X) PARAMETER BCSTS$M_PRED_PAR = '04000000'XF PARAMETER PR9RR$_BCCTL = '00000077'X ! Backup Cache Control Register' PARAMETER BCCTL$M_FRCHIT = '00000001'X' PARAMETER B E CCTL$M_ENABTS = '00000002'X' PARAMETER BCCTL$M_ENAPTS = '00000004'X' PARAMETER BCCTL$M_ENARFR = '00000008'X' PARAMETER BCCTL$M_RAMSPD = '00000010'X8 PARAMETER BCCTL$K_RAMSPD = '00000000'X ! Use fast RAMsL PARAMETER PR9RR$_BCERR = '00000078'X ! Backup Cache Error Address RegisterV PARAMETER PR9RR$_BCFBTS = '00000079'X ! Backup Cache Backup Tag Store Flush Register' PARAMETER BCFBTS$K_FLUSH = '00000000'XW PARAMETER PR9RR$_BCFPTS = '0000007A'X ! Backup Cache Primary Tag Store Flush Regis F ter' PARAMETER BCFPTS$K_FLUSH = '00000000'XP PARAMETER PR9RR$_VINTSR = '0000007B'X ! Vector interface error status register4 PARAMETER VINTSR$M_VECTOR_UNIT_ABSENT = '00000001'X2 PARAMETER VINTSR$M_VECTOR_UNIT_SERR = '00000002'X2 PARAMETER VINTSR$M_VECTOR_UNIT_HERR = '00000004'X0 PARAMETER VINTSR$M_VECTL_VIB_SERR = '00000008'X0 PARAMETER VINTSR$M_VECTL_VIB_HERR = '00000010'X0 PARAMETER VINTSR$M_CCHIP_VIB_SERR = '00000020'X0 PARAMETER VINTSR$M_CCHIP_VIB_HERR = '00000040'X- PARAMETER VINTSR$ G M_BUS_TIMEOUT = '00000080'X5 PARAMETER VINTSR$M_VECTOR_MODULE_RESET = '00000100'X3 PARAMETER VINTSR$M_DISABLE_VECT_INTF = '00000200'X@ PARAMETER PR9RR$_PCTAG = '0000007C'X ! Primary Cache Tag Store$ PARAMETER PCTAG$M_TAG = '1FFFF800'X' PARAMETER PCTAG$M_PARITY = '40000000'X& PARAMETER PCTAG$M_VALID = '80000000'XE PARAMETER PR9RR$_PCIDX = '0000007D'X ! Primary Cache Index Register$ PARAMETER PCIDX$M_IDX = '000007F8'XM PARAMETER PR9RR$_PCERR = '0000007E'X ! Primary Cache Error Address R H egisterF PARAMETER PR9RR$_PCSTS = '0000007F'X ! Primary Cache Status Register' PARAMETER PCSTS$M_FRCHIT = '00000001'X' PARAMETER PCSTS$M_ENAPTS = '00000002'X& PARAMETER PCSTS$M_FLUSH = '00000004'X' PARAMETER PCSTS$M_ENARFR = '00000008'X$ PARAMETER PCSTS$M_HIT = '00000010'X* PARAMETER PCSTS$M_INTERRUPT = '00000020'X& PARAMETER PCSTS$M_TRAP2 = '00000040'X& PARAMETER PCSTS$M_TRAP1 = '00000080'X) PARAMETER PCSTS$M_TAG_PERR = '00000100'X) PARAMETER PCSTS$M_DAL_PERR = '00000200'X* PARAMETI ER PCSTS$M_DATA_PERR = '00000400'X' PARAMETER PCSTS$M_BUSERR = '00000800'X' PARAMETER PCSTS$M_BC_HIT = '00001000'X STRUCTURE /PR9RRDEF/ UNION MAP PARAMETER ICCS$S_IE = 16 PARAMETER ICCS$V_IE = 6 ! Interrupt enable BYTE %FILL (1) END MAP MAP# PARAMETER RXCS$S_RX_IE = 18 PARAMETER RXCS$V_RX_IE = 6 ! Interrupt enable% PARAMETER RXCS$S_RX_DONE = 1% PARAMETER RXCS$V_RX_DONE = 7+ BYTE %FILL (1) ! Re J ceiver done END MAP MAP" PARAMETER RXDB$S_DATA = 84 PARAMETER RXDB$V_DATA = 0 ! Received data% PARAMETER RXDB$S_RCV_BRK = 1C PARAMETER RXDB$V_RCV_BRK = 11 ! Break or CTRL/P received% PARAMETER RXDB$S_FRM_ERR = 18 PARAMETER RXDB$V_FRM_ERR = 13 ! Framing error% PARAMETER RXDB$S_OVR_ERR = 18 PARAMETER RXDB$V_OVR_ERR = 14 ! Overrun error% PARAMETER RXDB$S_ERR_9RR = 1& PARAMETER RXDB$V_ERR_9RK R = 15# BYTE %FILL (2) ! Error END MAP MAP& PARAMETER TXCS$S_XMIT_BRK = 19 PARAMETER TXCS$V_XMIT_BRK = 0 ! Transmit break& PARAMETER TXCS$S_LOOPBACK = 13 PARAMETER TXCS$V_LOOPBACK = 2 ! Loopback# PARAMETER TXCS$S_TX_IE = 18 PARAMETER TXCS$V_TX_IE = 6 ! Interrupt enable$ PARAMETER TXCS$S_TX_RDY = 1$ PARAMETER TXCS$V_TX_RDY = 7/ BYTE %FILL (1) ! Transmitter ready END MAP M L AP" PARAMETER TXDB$S_DATA = 8" PARAMETER TXDB$V_DATA = 0. BYTE %FILL (1) ! Data to transmit END MAP MAP, PARAMETER ACCS$S_VECTOR_PRESENT = 1C PARAMETER ACCS$V_VECTOR_PRESENT = 0 ! Vector unit present+ PARAMETER ACCS$S_FCHIP_PRESENT = 1= PARAMETER ACCS$V_FCHIP_PRESENT = 1 ! F-Chip present/ PARAMETER ACCS$S_WRITE_EVEN_PARITY = 10 PARAMETER ACCS$V_WRITE_EVEN_PARITY = 31/ BYTE %FILL (1) ! WrM ite even parity END MAP MAP) PARAMETER SAVPSL$S_HALT_CODE = 66 PARAMETER SAVPSL$V_HALT_CODE = 8 ! Halt code' PARAMETER SAVPSL$S_INVALID = 1> PARAMETER SAVPSL$V_INVALID = 14 ! Saved PSL invalid% PARAMETER SAVPSL$S_MAPEN = 1& PARAMETER SAVPSL$V_MAPEN = 15) BYTE %FILL (1) ! Saved MAPEN END MAP MAP$ PARAMETER SID$S_RVAXREV = 8$ PARAMETER SID$V_RVAXREV = 08 BYTE %FILL (1) ! 9RRN chip code rev level END MAP ! XSID (SYS_TYPE) Register bits MAP" PARAMETER XSID$S_ARCH = 8< PARAMETER XSID$V_ARCH = 0 ! Architectural ID (=1)% PARAMETER XSID$S_SYS_VAR = 8= PARAMETER XSID$V_SYS_VAR = 8 ! System Variant (=1)& PARAMETER XSID$S_XRPFWREV = 8' PARAMETER XSID$V_XRPFWREV = 16: BYTE %FILL (3) ! XRP firmware revision level END MAP MAP$ PARAMETER BCBTS$S_VALID = 48 PARAMETERO BCBTS$V_VALID = 2 ! Four valid bits# PARAMETER BCBTS$S_TAG = 121 PARAMETER BCBTS$V_TAG = 17 ! Cache tag% PARAMETER BCBTS$S_PARITY = 15 PARAMETER BCBTS$V_PARITY = 29 ! Parity bit BYTE %FILL (3) END MAP MAP$ PARAMETER BCPTS$S_VALID = 12 PARAMETER BCPTS$V_VALID = 2 ! Valid bit# PARAMETER BCPTS$S_TAG = 260 PARAMETER BCPTS$V_TAG = 3 ! Cache tag% PARAMETER BCPTS$S_PARITY = 15 PARAMETP ER BCPTS$V_PARITY = 29 ! Parity bit BYTE %FILL (4) END MAPJ! end PR9RRBCP2TS_BITS; /* Bit definitions are the same as PR9RR$_BCP1TS MAP" PARAMETER BCRFR$S_PTS = 58 PARAMETER BCRFR$V_PTS = 4 ! PTS refresh index" PARAMETER BCRFR$S_BTS = 88 PARAMETER BCRFR$V_BTS = 9 ! BTS refresh index BYTE %FILL (2) END MAP MAP UNION MAP' PARAMETER BCIDX$S_BTS = 114 PARAMETER BCIDX$V_BTS = 6 ! Q BTS index BYTE %FILL (2) END MAP MAP& PARAMETER BCIDX$S_PTS = 74 PARAMETER BCIDX$V_PTS = 4 ! PTS index BYTE %FILL (1) END MAP END UNION END MAP MAP# PARAMETER BCSTS$S_LOCK = 12 PARAMETER BCSTS$V_LOCK = 0 ! Error lock' PARAMETER BCSTS$S_BTS_PERR = 1< PARAMETER BCSTS$V_BTS_PERR = 1 ! BTS parity error( PARAMETER BCSTS$S_P1TS_PERR = 1> PARAMETER BCS R TS$V_P1TS_PERR = 2 ! P1TS parity error( PARAMETER BCSTS$S_P2TS_PERR = 1> PARAMETER BCSTS$V_P2TS_PERR = 3 ! P2TS parity error& PARAMETER BCSTS$S_BUS_ERR = 14 PARAMETER BCSTS$V_BUS_ERR = 4 ! Bus error' PARAMETER BCSTS$S_BTS_COMP = 18 PARAMETER BCSTS$V_BTS_COMP = 17 ! BTS compare& PARAMETER BCSTS$S_BTS_HIT = 13 PARAMETER BCSTS$V_BTS_HIT = 18 ! BTS hit' PARAMETER BCSTS$S_P1TS_HIT = 15 PARAMETER BCSTS$V_P S 1TS_HIT = 19 ! P1TS hit' PARAMETER BCSTS$S_P2TS_HIT = 15 PARAMETER BCSTS$V_P2TS_HIT = 20 ! P2TS hit" PARAMETER BCSTS$S_CMD = 48 PARAMETER BCSTS$V_CMD = 21 ! Last DAL command' PARAMETER BCSTS$S_IBUS_CYC = 18 PARAMETER BCSTS$V_IBUS_CYC = 25 ! I-bus cycle' PARAMETER BCSTS$S_PRED_PAR = 1= PARAMETER BCSTS$V_PRED_PAR = 26 ! Predicted parity BYTE %FILL (2) END MAP MAP% PARAMETER BCCTL$S_FRCHIT T = 13 PARAMETER BCCTL$V_FRCHIT = 0 ! Force hit% PARAMETER BCCTL$S_ENABTS = 1? PARAMETER BCCTL$V_ENABTS = 1 ! Enable BTS (cache on)% PARAMETER BCCTL$S_ENAPTS = 1@ PARAMETER BCCTL$V_ENAPTS = 2 ! Enable PTS (filter on)% PARAMETER BCCTL$S_ENARFR = 18 PARAMETER BCCTL$V_ENARFR = 3 ! Enable refresh% PARAMETER BCCTL$S_RAMSPD = 1U PARAMETER BCCTL$V_RAMSPD = 4 ! Cache RAM speed (0 = 1 cycle, 1 = 2 cycles) BYT U E %FILL (1) END MAP MAP2 PARAMETER VINTSR$S_VECTOR_UNIT_ABSENT = 1H PARAMETER VINTSR$V_VECTOR_UNIT_ABSENT = 0 ! Vector unit absent0 PARAMETER VINTSR$S_VECTOR_UNIT_SERR = 1E PARAMETER VINTSR$V_VECTOR_UNIT_SERR = 1 ! Vector soft error0 PARAMETER VINTSR$S_VECTOR_UNIT_HERR = 1E PARAMETER VINTSR$V_VECTOR_UNIT_HERR = 2 ! Vector soft error. PARAMETER VINTSR$S_VECTL_VIB_SERR = 1C PARAMETER VINTSR$V_VECTL_VIB_SERR = 3 ! V Vector soft error. PARAMETER VINTSR$S_VECTL_VIB_HERR = 1C PARAMETER VINTSR$V_VECTL_VIB_HERR = 4 ! Vector soft error. PARAMETER VINTSR$S_CCHIP_VIB_SERR = 1C PARAMETER VINTSR$V_CCHIP_VIB_SERR = 5 ! Vector soft error. PARAMETER VINTSR$S_CCHIP_VIB_HERR = 1C PARAMETER VINTSR$V_CCHIP_VIB_HERR = 6 ! Vector soft error+ PARAMETER VINTSR$S_BUS_TIMEOUT = 1Q PARAMETER VINTSR$V_BUS_TIMEOUT = 7 ! Bus timeout during vector transfer3 W PARAMETER VINTSR$S_VECTOR_MODULE_RESET = 1J PARAMETER VINTSR$V_VECTOR_MODULE_RESET = 8 ! Vector module reset1 PARAMETER VINTSR$S_DISABLE_VECT_INTF = 1H PARAMETER VINTSR$V_DISABLE_VECT_INTF = 9 ! Vector module reset BYTE %FILL (2) END MAP MAP# PARAMETER PCTAG$S_TAG = 181 PARAMETER PCTAG$V_TAG = 11 ! Cache tag% PARAMETER PCTAG$S_PARITY = 15 PARAMETER PCTAG$V_PARITY = 30 ! Parity bit$ PARAMETER PX CTAG$S_VALID = 1% PARAMETER PCTAG$V_VALID = 31' BYTE %FILL (3) ! Valid bit END MAP MAP" PARAMETER PCIDX$S_IDX = 80 PARAMETER PCIDX$V_IDX = 3 ! Tag index BYTE %FILL (1) END MAP MAP% PARAMETER PCSTS$S_FRCHIT = 13 PARAMETER PCSTS$V_FRCHIT = 0 ! Force hit% PARAMETER PCSTS$S_ENAPTS = 1E PARAMETER PCSTS$V_ENAPTS = 1 ! Enable tag store (cache on)$ PARAMETER PCSTS$S_FLUSH = 14 Y PARAMETER PCSTS$V_FLUSH = 2 ! Flush cache% PARAMETER PCSTS$S_ENARFR = 18 PARAMETER PCSTS$V_ENARFR = 3 ! Enable refresh" PARAMETER PCSTS$S_HIT = 14 PARAMETER PCSTS$V_HIT = 4 ! Reference hit( PARAMETER PCSTS$S_INTERRUPT = 1D PARAMETER PCSTS$V_INTERRUPT = 5 ! Error interrupt pending$ PARAMETER PCSTS$S_TRAP2 = 1: PARAMETER PCSTS$V_TRAP2 = 6 ! Double error lock$ PARAMETER PCSTS$S_TRAP1 = 13 PARAMETER PCS Z TS$V_TRAP1 = 7 ! Error lock' PARAMETER PCSTS$S_TAG_PERR = 1< PARAMETER PCSTS$V_TAG_PERR = 8 ! Tag parity error' PARAMETER PCSTS$S_DAL_PERR = 1A PARAMETER PCSTS$V_DAL_PERR = 9 ! DAL data parity error( PARAMETER PCSTS$S_DATA_PERR = 1> PARAMETER PCSTS$V_DATA_PERR = 10 ! Data parity error% PARAMETER PCSTS$S_BUSERR = 14 PARAMETER PCSTS$V_BUSERR = 11 ! Bus error% PARAMETER PCSTS$S_BC_HIT = 1B PARAMETER P[ CSTS$V_BC_HIT = 12 ! Reference hit in Bcache BYTE %FILL (2) END MAP END UNION END STRUCTURE ! PR9RRDEFCDEC$ END OPTIONS ww)!*** MODULE $PRCDEF ***CDEC$ OPTIONS /NOALIGN! +&! $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- PARAMETER 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_LOGIN = '00000040'X STRUCTURE /PRCDEF/ UNION MAP$ PARAMETER PRC$S_SSRWAIT = 1? PARAMETER PRC$V_SSRWAIT = 0 ! RESOURCE WAIT DISABLE $ PARAMETER PRC$S_SSFEXCU = 1L 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 = 1C PARAMETER PRC$V_NOACNT = 3 ! ACCOUNTING MESSAGE DISABLE " PARAMETER PRC$S_BATCH = 17 PARAMETER PRC$V_BATCH = 4 ! BATCH INDICATOR " PARAMETER PRC$S_HIBER = 1N PARAMETER PRC$V_HIBER = 5 ! HIBERNATE BEFORE CALLING INITIAL IMAGE " PARAMETER PRC$S_NOUAF = 1T PARAMETER PRC$V_NOUAF = 6 ! BYPASS LOGIN VERIFICATION FOR DETACHED PROC. # P _ ARAMETER PRC$S_NETWRK = 1: PARAMETER PRC$V_NETWRK = 7 ! NETWORK INDICATOR # PARAMETER PRC$S_DISAWS = 1C PARAMETER PRC$V_DISAWS = 8 ! DISABLE WORKING SET ADJUST # PARAMETER PRC$S_DETACH = 18 PARAMETER PRC$V_DETACH = 9 ! DETACHED PROCESS" 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$ PAR ` AMETER PRC$S_CLISPEC = 1A PARAMETER PRC$V_CLISPEC = 12 ! PASS CLI SPECIFICATIONS' PARAMETER PRC$S_NOPASSWORD = 1S PARAMETER PRC$V_NOPASSWORD = 13 ! DON'T PROMPT FOR USERNAME AND PASSWORD" PARAMETER PRC$S_DEBUG = 16 PARAMETER PRC$V_DEBUG = 14 ! /DEBUG desired# PARAMETER PRC$S_DBGTRU = 19 PARAMETER PRC$V_DBGTRU = 15 ! debugger present& PARAMETER PRC$S_SUBSYSTEM = 1T PARAMETER PRC$V_SUBSYSTEM = 16 ! inherit pr a otected subsystem identifiers PARAMETER PRC$S_TCB = 1< PARAMETER PRC$V_TCB = 17 ! process is part of TCB+ PARAMETER PRC$S_NO_IMAGE_PRIVS = 1U PARAMETER PRC$V_NO_IMAGE_PRIVS = 18 ! image privileges not to be propagated+ PARAMETER PRC$S_PERM_SUBSYSTEM = 1O PARAMETER PRC$V_PERM_SUBSYSTEM = 19 ! make subsystem rights permanent+ PARAMETER PRC$S_PARSE_EXTENDED = 1Z PARAMETER PRC$V_PARSE_EXTENDED = 20 ! make new process have b parse_style extended, PARAMETER PRC$S_INHERIT_PERSONA = 1O PARAMETER PRC$V_INHERIT_PERSONA = 21 ! process gets persona of caller BYTE %FILL (3) END MAP MAP" PARAMETER PRC$S_LOGIN = 1T PARAMETER PRC$V_LOGIN = 6 ! BYPASS LOGIN VERIFICATION FOR DETACHED PROC.  BYTE %FILL (1) END MAP END UNION END STRUCTURE ! PRCDEF! +! 7! Create Process Item List Data Identifier Definitions! ! **** NOTE ****! G! New item c s must always be added at the END of the list so that6! users will not have to relink or reassemble.! ! -I PARAMETER PRC$_LISTEND = '00000000'X ! End of list (must be first code)C PARAMETER PRC$_PGFLCHAR = '00000001'X ! Page file characteristics: PARAMETER PRC$_PGFLINDEX = '00000002'X ! Page file index? PARAMETER PRC$_INPUT_ATT = '00000003'X ! SYS$INPUT attributesA PARAMETER PRC$_OUTPUT_ATT = '00000004'X ! SYS$OUTPUT attributes? PARAMETER PRC$_ERROR_ATT = '00000005'X ! Sd YS$ERROR attributes= PARAMETER PRC$_CLASS = '00000006'X ! Process classificationCDEC$ END OPTIONS wwm|)!*** MODULE $PRDEF ***CDEC$ OPTIONS /NOALIGN! +"! PROCESSOR REGISTER DEFINITIONS! -9 PARAMETER PR$_KSP = '00000000'X ! KERNEL STACK POINTER < PARAMETER PR$_ESP = '00000001'X ! EXECUTIVE STACK POINTER = PARAMETER PR$_SSP = '00000002'X ! SUPERVISOR STACK POINTER 7 PARAMETER PR$_USP = '00000003'X ! USER STACK POINTER < PARAMETER PR$_ISP = '00000004'X e ! INTERRUPT STACK POINTER A PARAMETER PR$_ASN = '00000006'X ! ADDRESS SPACE NUMBER REGISTERB PARAMETER PR$_SPTEP = '00000007'X ! SYSTEM PTE PROTOTYPE REGISTER5 PARAMETER PR$_P0BR = '00000008'X ! P0 BASE REGISTER 6 PARAMETER PR$_P0LR = '00000009'X ! P0 LIMIT REGISTER 5 PARAMETER PR$_P1BR = '0000000A'X ! P1 BASE REGISTER 6 PARAMETER PR$_P1LR = '0000000B'X ! P1 LIMIT REGISTER 9 PARAMETER PR$_SBR = '0000000C'X ! SYSTEM BASE REGISTER : PARAMETER PR$_SLR = '0000000D'X ! SYSTEM LIMIT REGISTE f R < PARAMETER PR$_CPUID = '0000000E'X ! CPU IDENTIFIER REGISTER6 PARAMETER PR$_WHAMI = '0000000F'X ! WHo AM I REGISTER? PARAMETER PR$_PCBB = '00000010'X ! PROCESS CONTROL BLOCK BASE > PARAMETER PR$_SCBB = '00000011'X ! SYSTEM CONTROL BLOCK BASE F PARAMETER PR$_IPL = '00000012'X ! INTERRUPT PRIORITY LEVEL REGISTER 9 PARAMETER PR$_ASTLVL = '00000013'X ! AST LEVEL REGISTER H PARAMETER PR$_SIRR = '00000014'X ! SOFTWARE INTERRUPT REQUEST REGISTER H PARAMETER PR$_SISR = '00000015'X ! SOFTWARE INTg ERRUPT SUMMARY REGISTER L PARAMETER PR$_ICCS = '00000018'X ! INTERVAL CLOCK CONTROL STATUS REGISTER N PARAMETER PR$_RXCS = '00000020'X ! CONSOLE RECIEVER CONTROL STATUS REGISTER K PARAMETER PR$_RXDB = '00000021'X ! CONSOLE RECEIVER DATA BUFFER REGISTER N PARAMETER PR$_TXCS = '00000022'X ! CONSOLE TRANSMIT CONTROL STATUS REGISTER K PARAMETER PR$_TXDB = '00000023'X ! CONSOLE TRANSMIT DATA BUFFER REGISTER > PARAMETER PR$_MAPEN = '00000038'X ! MAPPING ENABLE REGISTER G PARAMETER PR$_TBIA = h '00000039'X ! TRANSLATION BUFFER INVALIDATE: ALL= PARAMETER PR$_TBIS = '0000003A'X ! TB INVALIDATE: SINGLE L PARAMETER PR$_TBIASN = '0000003B'X ! TB INVALIDATE: ADDRESS SPACE NUMBER> PARAMETER PR$_TBISYS = '0000003C'X ! TB INVALIDATE: SYSTEMD PARAMETER PR$_SID = '0000003E'X ! SYSTEM IDENTIFICATION REGISTER E PARAMETER PR$_TBCHK = '0000003F'X ! TRANSLATION BUFFER VALID CHECK E PARAMETER PR$_VPSR = '00000090'X ! VECTOR PROCESSOR STATUS REGISTERI PARAMETER PR$_VAER = '00000091'X i ! VECTOR ARITHMETIC EXCEPTION REGISTERH PARAMETER PR$_VMAC = '00000092'X ! VECTOR MEMORY ACCESS CHECK REGISTER> PARAMETER PR$_VTBIA = '00000093'X ! VECTOR TB INVALIDATE ALLB PARAMETER PR$_VSAR = '00000094'X ! VECTOR STATE ADDRESS REGISTER6 PARAMETER PR$_SID_TYP780 = '00000001'X ! VAX 11/780 6 PARAMETER PR$_SID_TYP750 = '00000002'X ! VAX 11/750 6 PARAMETER PR$_SID_TYP730 = '00000003'X ! VAX 11/730 5 PARAMETER PR$_SID_TYP790 = '00000004'X ! VAX 11/790: PARAMETER PR$_SID_TYP8SS = '00000 j 005'X ! Scorpio for now; PARAMETER PR$_SID_TYP8NN = '00000006'X ! Nautilus for now6 PARAMETER PR$_SID_TYPUV1 = '00000007'X ! MicroVAX I 7 PARAMETER PR$_SID_TYPUV2 = '00000008'X ! MicroVAX II 2 PARAMETER PR$_SID_TYP410 = '00000008'X ! VAXstar6 PARAMETER PR$_SID_TYP009 = '00000009'X ! Virtual VAX/ PARAMETER PR$_SID_TYP420 = '0000000A'X ! PVAX3 PARAMETER PR$_SID_TYP520 = '0000000A'X ! Cirrus I2 PARAMETER PR$_SID_TYP650 = '0000000A'X ! Mayfair6 PARAMETER PR$_SID_TYP9CC = '0000000A'X k ! Calypso/XCP' PARAMETER PR$_SID_TYP9CI = '0000000A'X1 PARAMETER PR$_SID_TYP60 = '0000000A'X ! Firefox7 PARAMETER PR$_SID_TYP670 = '0000000B'X ! KA670 (Pele). PARAMETER PR$_SID_TYP9RR = '0000000B'X ! XRP9 PARAMETER PR$_SID_TYP43 = '0000000B'X ! KA43 (RigelMAX)3 PARAMETER PR$_SID_TYP9AQ = '0000000E'X ! Aquarius4 PARAMETER PR$_SID_TYP8PS = '00000011'X ! Polarstar6 PARAMETER PR$_SID_TYP1202 = '00000012'X ! Mariah/XMP3 PARAMETER PR$_SID_TYP46 = '00000012'X ! PV-Mariah' PARAMETER P l R$_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)0 PARAMETER PR$_SID_TYP440 = '00000014'X ! PVAX2/ PARAMETER PR$_SID_TYP4A = '00000014'X ! PCVAX4 PARAMETER PR$_SID_TYP550 = '00000014'X ! Cirrus II6 PARAMETER PR$_SID_TYP1701 = '00000017'X ! Laser/Ne m on< PARAMETER PR$_SID_TYP560 = '00000017'X ! KA560 (Jetstream)> PARAMETER PR$_SID_TYPMAX = '00000017'X ! MAX LEGAL CPU TYPE S PARAMETER PR$_SID_TYP_NOTAVAX = '00000080'X ! Not a VAX (i.e. Alpha or some such)! Chip CPU types7 PARAMETER PR$_SID_TYPUV = '00000008'X ! MicroVAX chip! MicroVAX chip CPU SubtypesL PARAMETER PR$_XSID_UV_UV = '00000000'X ! Generic MicroVAX (unused subtype)7 PARAMETER PR$_XSID_UV_UV2 = '00000001'X ! MicroVAX II3 PARAMETER PR$_XSID_UV_410 = '00000004'X ! VAXs n tar3 PARAMETER PR$_SID_TYPCV = '0000000A'X ! CVAX chip! CVAX chip CPU SubtypesH PARAMETER PR$_XSID_CV_CV = '00000000'X ! Generic CVAX (unused subtype)3 PARAMETER PR$_XSID_CV_650 = '00000001'X ! Mayfair7 PARAMETER PR$_XSID_CV_9CC = '00000002'X ! Calypso/XCP2 PARAMETER PR$_XSID_CV_60 = '00000003'X ! Firefox0 PARAMETER PR$_XSID_CV_420 = '00000004'X ! PVAX( PARAMETER PR$_XSID_CV_9CI = '00000005'X4 PARAMETER PR$_XSID_CV_520 = '00000007'X ! CIRRUS I4 PARAMETER PR$_SID_TYPRV = '0000000B o 'X ! Rigel chip! Rigel chip CPU SubtypesI PARAMETER PR$_XSID_RV_RV = '00000000'X ! Generic Rigel (unused subtype)8 PARAMETER PR$_XSID_RV_670 = '00000001'X ! KA670 (Pele)7 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 SubtypesL PARAMETER PR$_XSID_V12_V12 = '00000000'X ! Generic Mariah (unused subtype)8 PARAMETER PR$_XSID_V12_1202 = '00000002 p 'X ! MARIAH/XMP@ 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'X7 PARAMETER PR$_SID_TYPV14 = '00000014'X ! SOC Chip SID! SOC chip CPU q 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 subtype9 PARAMETER PR$_XSID_V14_4A = '00000005'X ! PCVAX subtype6 PARAMETER PR$_XSID_V14_550 = '00000007'X ! CIRRUS II9 PARAMETER PR$_SID_TYPV17 = '00000017'X ! NVAX+ Chip SID! NVAX+ chip CPU subtypes; PARAMETER PR$_XSID_V17_V17 = '00000000'X ! unused subtype8 PARAMETER PR$_XSID_V17_1701 = '00000001'X ! r Laser/Neon> PARAMETER PR$_XSID_V17_560 = '00000002'X ! KA560 (Jetstream)! Nautilus CPU Subtypes3 PARAMETER PR$_XSID_N8800 = '00000000'X ! VAX 88003 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 ! Undefined Nautilus CPU3 PARAMETER PR$_XSID_N8550 = '00000006' s X ! VAX 85503 PARAMETER PR$_XSID_N8500 = '00000007'X ! VAX 85007 PARAMETER PR$_XSID_N8NNN = -1 ! Unknown Nautilus CPU! VAX 11/780 IPR'S:: PARAMETER PR$_WCSA = '0000002C'X ! WCS ADDRESS REGISTER 7 PARAMETER PR$_WCSD = '0000002D'X ! WCS DATA REGISTER @ PARAMETER PR$_SBIFS = '00000030'X ! SBI FAULT STATUS REGISTER 7 PARAMETER PR$_SBIS = '00000031'X ! SBI SILO REGISTER > PARAMETER PR$_SBISC = '00000032'X ! SBI COMPARATOR REGISTER ? PARAMETER PR$_SBIMT = '00000033'X ! SBI MAINTENA t NCE REGISTER 9 PARAMETER PR$_SBIER = '00000034'X ! SBI ERROR REGISTER C PARAMETER PR$_SBITA = '00000035'X ! SBI TIMEOUT ADDRESS REGISTER B PARAMETER PR$_SBIQC = '00000036'X ! SBI QUADWORD CLEAR REGISTER "! END OF VAX 11/780-SPECIFIC IPR'SB PARAMETER PR$_CMIERR = '00000017'X ! CMI ERROR SUMMARY REGISTER B PARAMETER PR$_CSRS = '0000001C'X ! CONSOLE BLK STORE RCV STATUS @ PARAMETER PR$_CSRD = '0000001D'X ! CONSOLE BLK STORE RCV DATA C PARAMETER PR$_CSTS = '0000001E'X ! CONSOLE BLK STORE u XMIT STATUS A PARAMETER PR$_CSTD = '0000001F'X ! CONSOLE BLK STORE XMIT DATA 9 PARAMETER PR$_TBDR = '00000024'X ! TB DISABLE REGISTER < PARAMETER PR$_CADR = '00000025'X ! CACHE DISABLE REGISTER F PARAMETER PR$_MCESR = '00000026'X ! MACHINE CHECK ERROR SUMMARY REG : PARAMETER PR$_CAER = '00000027'X ! CACHE ERROR REGISTER B PARAMETER PR$_UBRESET = '00000037'X ! UNIBUS I/O RESET REGISTER ! END OF 11/750 AND 11/730 IPR'S3 PARAMETER PR$_PAMACC = '00000040'X ! PAMM ACCESS 5 PARAMETER P v R$_PAMLOC = '00000041'X ! PAMM LOCATION : PARAMETER PR$_CSWP = '00000042'X ! CACHE SWEEP REGISTER = PARAMETER PR$_MDECC = '00000043'X ! MBOX DATA ECC REGISTER @ PARAMETER PR$_MENA = '00000044'X ! MBOX ERROR ENABLE REGISTER A PARAMETER PR$_MDCTL = '00000045'X ! MBOX DATA CONTROL REGISTER @ PARAMETER PR$_MCCTL = '00000046'X ! MBOX MCC CONTROL REGISTER C PARAMETER PR$_MERG = '00000047'X ! MBOX ERROR GENERATOR REGISTER 4 PARAMETER PR$_CRBT = '00000048'X ! CONSOLE REBOOT @ PARAMETER PR$ w _DFI = '00000049'X ! DIAGNOSTIC FAULT INSERTION D PARAMETER PR$_EHSR = '0000004A'X ! ERROR HANDLING STATUS REGISTER D PARAMETER PR$_ACCS790 = '0000004B'X ! ACCELERATOR STATUS REGISTER A PARAMETER PR$_STXCS = '0000004C'X ! CONSOLE STORAGE CONTROL REGC PARAMETER PR$_STXDB = '0000004D'X ! CONSOLE STORAGE DATA REGISTER7 PARAMETER PR$_LSPA = '0000004E'X ! SCRATCHPAD ADDRESS4 PARAMETER PR$_RSPD = '0000004F'X ! SCRATCHPAD DATA'! END OF 11/790 PROCESSOR-SPECIFIC IPRS STRUCTURE /PRDEF/ Ux NION MAP# PARAMETER PR$S_SID_SN = 12; PARAMETER PR$V_SID_SN = 0 ! SERIAL NUMBER FIELD " PARAMETER PR$S_SID_PL = 31 PARAMETER PR$V_SID_PL = 12 ! PLANT ID # PARAMETER PR$S_SID_ECO = 93 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$y V_XSID_TYPE = 24/ 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! VAX 11/750 AND 11/730 IPR'S:$! VAX 11/790 PROCESSOR-SPECIFIC IPRS END UNION END STRUCTURE ! PRDEFCDEC$ END OPTIONS ww!*** MODULE $PRODEF ***CDEC$ OPTIONS /NOALIGN! 3! GSD entry - Procedure definition, normal symbols! # PARAMETER PRO$Kz _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 ! unsupported type CHARACTER*0 PRO$T_START BYTE %FILL END MAP END UNION5 BYTE PRO$B_DATYP ! Maps over GSY$B_DATYP 5 INTEGER*2 PRO$W_FLAGS ! Maps over GSY$W_FLAGS 7 BYTE PRO$B_PSINDX ! Maps over SDF$B_PSINDX J INTEGER{ *4 PRO$L_ADDRS ! Entry point address, maps over SDF$L_VALUE / INTEGER*2 PRO$W_MASK ! Entry point mask / BYTE PRO$B_NAMLNG ! Length of name - CHARACTER*31 PRO$T_NAME ! Symbol name  END STRUCTURE ! PRODEFCDEC$ END OPTIONS ww-!*** MODULE $PROMDEF ***CDEC$ OPTIONS /NOALIGN! 9! 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 UNION6 BYTE PROM$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 PROM$W_FLAGS ! Maps over GSY$W_FLAGS 8 BYTE PROM$B_PSINDX ! Maps over SDF$B_PSINDX K INTEGER*4 PROM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE ; INTEGER*4 PROM$} L_VERSION_MASK ! Mask value for symbol0 INTEGER*2 PROM$W_MASK ! Entry point mask 0 BYTE PROM$B_NAMLNG ! Length of name - CHARACTER*31 PROM$T_NAME ! Symbol name  END STRUCTURE ! PROMDEFCDEC$ END OPTIONS ww$!*** MODULE $PROVDEF ***CDEC$ OPTIONS /NOALIGN! 5! 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 UNION6 BYTE PROV$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 PROV$W_FLAGS ! Maps over GSY$W_FLAGS 8 BYTE PROV$B_PSINDX ! Maps over SDF$B_PSINDX K INTEGER*4 PROV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE = INTEGER*4 PROV$L_VECTOR ! Vectored entr y point address0 INTEGER*2 PROV$W_MASK ! Entry point mask 0 BYTE PROV$B_NAMLNG ! Length of name - CHARACTER*31 PROV$T_NAME ! Symbol name  END STRUCTURE ! PROVDEFCDEC$ END OPTIONS ww$!*** MODULE $PROWDEF ***CDEC$ OPTIONS /NOALIGN! <! 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 PRO W$B_GSDTYP ! Maps over GSY$B_GSDTYP  END MAP MAP8 ! unsupported type CHARACTER*0 PROW$T_START BYTE %FILL END MAP END UNION6 BYTE PROW$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 PROW$W_FLAGS ! Maps over GSY$W_FLAGS 9 INTEGER*2 PROW$W_PSINDX ! Maps over SDFW$W_PSINDX L INTEGER*4 PROW$L_ADDRS ! Entry point address, maps over SDFW$L_VALUE 0 INTEGER*2 PROW$W_MASK ! Entry point mask 0 BYTE  PROW$B_NAMLNG ! Length of name - CHARACTER*31 PROW$T_NAME ! Symbol name  END STRUCTURE ! PROWDEFCDEC$ END OPTIONS ww)!*** MODULE $PRTDEF ***CDEC$ OPTIONS /NOALIGN! +! PROTECTION FIELD DEFINITIONS! -/ PARAMETER PRT$C_NA = '00000000'X ! NO ACCESS 6 PARAMETER PRT$C_KR = '00000003'X ! KERNEL READ ONLY 2 PARAMETER PRT$C_KW = '00000002'X ! KERNEL WRITE 4 PARAMETER PRT$C_ER = '00000007'X ! EXEC READ ONLY 0 PARAMETER PRT$C_EW = '00000005'X ! E XEC WRITE 5 PARAMETER PRT$C_SR = '0000000B'X ! SUPER READ ONLY 1 PARAMETER PRT$C_SW = '00000008'X ! SUPER WRITE 4 PARAMETER PRT$C_UR = '0000000F'X ! USER READ ONLY 0 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 READ EXEC WRITE = PARAMETER PRT$C_URSW = '0000000C'X ! USER READ SUPER WRITE 4 PARAMETER PRT$C_RESERVED = '00000001'X ! RESERVED CDEC$ END OPTIONS wwM)!*** MODULE $PRUV1DEF ***CDEC$ OPTIONS /NOALIGN? PARAMETER PRUV1$_CADR = '00000025'X ! CACHE DISABLE REGISTER I PARAMETER PRUV1$_MCESR = '00000026'X ! MACHINE CHECK ERROR SUMMARY REG B PARAMETER PRUV1$_IORESET = '00000037'X ! INITIALIZE BUS REGISTERCDEC$ END OPTIONS ww )!*** MODULE $PRUV2DEF ***CDEC$ OPTIONS /NOALIGNO PARAMETER PRUV2$_SAVISP = '00000029'X ! CONSOLE SAVED INTERRUPT STACK POINTERB PARAMETER PRUV2$_SAVPC = '0000002A'X ! CONSOLE SAVED PC REGISTERD PARAMETER PRUV2$_SAVPSL = '0000002B'X ! CONSOLE SAVED PSL REGISTERB PARAMETER PRUV2$_IORESET = '00000037'X ! INITIALIZE BUS REGISTERCDEC$ END OPTIONS ww)!*** MODULE $PRVDEF ***CDEC$ OPTIONS /NOALIGN! ! PRIVILEGE BIT DEFINITIONS! % PARAMETER PRV$M_CMKRN L = '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% P ARAMETER 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 = '00400000'X% PARAMETER PRV$M_BUGCHK = '00800000'X% PARAMETER PRV$M_PRMGBL = '01000000'X% PARAMETER PRV$M_SYSGBL = '0200000 0'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'XQ 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 = 1B PARAMETER PRV$V_CMKRNL = 0 ! MAY CHANGE MODE TO KERNEL # PARAMETER PRV$S_CMEXEC = 1@ PARAMETER PRV$V_CMEXEC = 1 ! MAY CHANGE MODE TO EXEC # PARAMETER PRV$S_SYSNAM = 1P PARAMETER PRV$V_SYSNAM = 2 ! MAY INSERT IN SYSTEM LOGICAL NAME TABLE # PARAMETER PRV$S_GRPNAM = 1O PARAMETER PRV$V_GRPNAM = 3 ! MAY INSERT IN GROUP LOGICAL NAME TABLE % PARAMETER PRV$S_ALLSPOOL = 1F PARAMETER PRV$V_ALLSPOOL = 4 ! MAY ALLOCATE SPOOLED DEVICE ( PARAMETER PRV$S_IMPERSONATE = 1W PARAMETER PRV$V_IMPERSONATE = 5 ! MAY IMPERSONATE ANOTHER USER (old DETACH) % 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 = 1P PARAMETER PRV$V_GROUP = 8 ! MAY AFFECT OTHER PROCESSES IN SAME GROUP # PARAMET ER PRV$S_NOACNT = 1H PARAMETER PRV$V_NOACNT = 9 ! MAY SUPPRESS ACCOUNTING MESSAGE # PARAMETER PRV$S_PRMCEB = 1T PARAMETER PRV$V_PRMCEB = 10 ! MAY CREATE PERMANENT COMMON EVENT CLUSTERS # PARAMETER PRV$S_PRMMBX = 1F PARAMETER PRV$V_PRMMBX = 11 ! MAY CREATE PERMANENT MAILBOX # PARAMETER PRV$S_PSWAPM = 1F PARAMETER PRV$V_PSWAPM = 12 ! MAY CHANGE PROCESS SWAP MODE # PARAMETER PRV$S_SETPRI = 1D PARAMETER PRV$V_SET PRI = 13 ! MAY SET ANY PRIORITY VALUE # PARAMETER PRV$S_SETPRV = 1B PARAMETER PRV$V_SETPRV = 14 ! MAY SET ANY PRIVILEGE BIT# PARAMETER PRV$S_TMPMBX = 1F PARAMETER PRV$V_TMPMBX = 15 ! MAY CREATE TEMPORARY MAILBOX " PARAMETER PRV$S_WORLD = 1P PARAMETER PRV$V_WORLD = 16 ! MAY AFFECT OTHER PROCESSES IN THE WORLD " PARAMETER PRV$S_MOUNT = 1H PARAMETER PRV$V_MOUNT = 17 ! MAY EXECUTE MOUNT ACP FUNCTIONS ! PARAMETER P RV$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 = 1C PARAMETER PRV$V_NETMBX = 20 ! MAY CREATE NETWORK DEVICE # PARAMETER PRV$S_VOLPRO = 1H 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 = 1N PARAMETER PRV$V_BUGCHK = 23 ! MAY MAKE BUG CHECK ERROR LOG ENTRIES # PARAMETER PRV$S_PRMGBL = 1N PARAMETER PRV$V_PRMGBL = 24 ! MAY CREATE PERMANENT GLOBAL SECTIONS # PARAMETER PRV$S_SYSGBL = 1P PARAMETER PRV$V_SYSGBL = 25 ! MAY CREATE SYSTEM WIDE GLOBAL SECTIONS # PARAMETER PRV$S_PFNMAP = 1C PARAMETER PRV$V_PFNMAP = 26 ! MAY MAP TO SECTION BY PFN " PARAMETER PRV$S_SHMEM = 1Q PARAM ETER PRV$V_SHMEM = 27 ! MAY ALLOCATE STRUCTURES IN SHARED MEMORY # PARAMETER PRV$S_SYSPRV = 1N PARAMETER PRV$V_SYSPRV = 28 ! ELIGIBLE FOR SYSTEM PROTECTION FIELD # PARAMETER PRV$S_BYPASS = 1I PARAMETER PRV$V_BYPASS = 29 ! MAY BYPASS UIC BASED PROTECTION # PARAMETER PRV$S_SYSLCK = 1F PARAMETER PRV$V_SYSLCK = 30 ! MAY CREATE SYSTEM WIDE LOCKS " PARAMETER PRV$S_SHARE = 1O PARAMETER PRV$V_SHARE = 31 ! MAY ASSIGN CHANNEL TO NON-SHARED DEVICE$ PARAMETER PRV$S_UPGRADE = 1F PARAMETER PRV$V_UPGRADE = 32 ! May upgrade object integrity& PARAMETER PRV$S_DOWNGRADE = 1H 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 = 1T PARAMETER PRV$V_IMPORT = 36 ! May set classification for unlabeled object" PARAMETER PRV$S_AUDIT = 1U PARAMETER PRV$V_AUDIT = 37 ! May direct audit to system security audit log% PARAMETER PRV$S_SECURITY = 1I PARAMETER PRV$V_SECURITY = 38 ! May perform security functions,! XXXXXX bitfield; /* Reserved for SEVMS BYTE %FILL (5) END MAP MAP! PARAMETER PRV$S_ACNT = 1P PARAMETER PRV$V_ACNT = 9 ! MAY SUPPRESS ACCOUNTING MESSAGES (NOACNT) # PARAMETER PRV$S_ALTPRI = 1L 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 = 1E PARAMETER PRV$V_DETACH = 5 ! MAY CREATE DETACHED PROCESSES BYTE %FILL (1) END MAP E ND UNION END STRUCTURE ! PRVDEF% PARAMETER PRV$M_SORTED = '00000001'X$ PARAMETER PRV$M_BRIEF = '00000002'X% PARAMETER PRV$M_FILLED = '00000004'X STRUCTURE /PRVDSP_BITS/ PARAMETER PRV$S_SORTED = 17 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 ! PRVDS P_BITSCDEC$ END OPTIONS ww*)!!*** MODULE $PRXDEF IDENT X-8 ***CDEC$ OPTIONS /NOALIGN" 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 INTEGER*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 M AP. 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_DESC_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/6 INTEGER*2 PRX$W_BUFSIZ_USER ! proxy user length6 INTEGER*2 PRX$W_BUFSI Z_NODE ! proxy node length@ 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 STRUCTURE /REPLY_UNION/ UNION MAP; INTEGER*4 PRX$L_REPLY_STATUS ! status of request END MAP MAP/ INTEGER*4 %FILL ! space for STATUSA 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 MAP/ INTEGER*4 %FILL ! space for STATUS: INTEGER*4 PRX$L_SHOW_CONTEXT ! returned contextF INTEGER*2 PRX$W_SHOW_DEF_USER ! length of default user_name INTEGER*2 %FILLC CHARACTER*1 PRX$T_SHOW_DEF_USER(1:32) ! default user_nameE INTEGER*2 PRX$W_SHOW_REM_USER ! length of remote user_name INTEGER*2 %FILLB CHARACTER*1 PRX$T_SHOW_REM_ USER(1:32) ! remote user_nameF INTEGER*2 PRX$W_SHOW_LOCAL_COUNT ! count of local user_namesL INTEGER*2 PRX$W_SHOW_LOCAL_SIZE ! size of local user_name (bytes) INTEGER*4 %FILL END MAP END UNION END STRUCTURE ! REPLY_UNION) PARAMETER PRX$K_MAX_LENGTH = '00000454'XCDEC$ END OPTIONS wwm)!*** MODULE $PSCANDEF ***CDEC$ OPTIONS /NOALIGN! +! %! Process_Scan item code definitions! ! -! Item code definitions% PARAMET ER pscan$_BEGIN = '00000000'X@ PARAMETER pscan$_ACCOUNT = '00000001'X ! Match on account nameG PARAMETER pscan$_AUTHPRI = '00000002'X ! Match on authorized priorityA PARAMETER pscan$_CURPRIV = '00000003'X ! Match on current privs9 PARAMETER pscan$_GRP = '00000004'X ! Match on GRP fieldF PARAMETER pscan$_HW_MODEL = '00000005'X ! Match on system's HW_MODELD PARAMETER pscan$_HW_NAME = '00000006'X ! Match on system's HW_NAMEJ PARAMETER pscan$_JOBPRCCNT = '00000007'X ! Match on job subpro cess countI PARAMETER pscan$_JOBTYPE = '00000008'X ! Match on job origin type fieldL PARAMETER pscan$_MASTER_PID = '00000009'X ! Match on PID of master process9 PARAMETER pscan$_MEM = '0000000A'X ! Match on MEM field= PARAMETER pscan$_MODE = '0000000B'X ! Match on process modeD PARAMETER pscan$_NODE_CSID = '0000000C'X ! Match on system's CSID F PARAMETER pscan$_NODENAME = '0000000D'X ! Match on system's nodename> PARAMETER pscan$_OWNER = '0000000E'X ! Match on PID of ownerC PARAMETER pscan$_PRCCNT = '0000000F'X ! Match on subprocess count? PARAMETER pscan$_PRCNAM = '00000010'X ! Match on process name@ PARAMETER pscan$_PRI = '00000011'X ! Match 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 statusB PARAMETER pscan$_TERMINAL = '00000015'X ! Match on terminal name9 PARAMETER pscan$_UIC = '00000016'X ! Match on UIC field= PARAMETER pscan$_USERNAME = '00000017'X ! Match on usernameI PARAMETER pscan$_GETJPI_BUFFER_SIZE = '00000018'X ! Buffer for blocking! @! The following 3 fields are reserved. They are item codes for0! kernel threads support on Alpha systems only.! : PARAMETER pscan$_RESERVED1 = '00000019'X ! Control FlagsL PARAMETER pscan$_RESERVED2 = '0000001A'X ! Current count of kernel threadsM PARAMETER pscan$_RESERVED3 = '0000001B'X ! Maximum number of kernel threads# PARAMETER pscan $_END = '0000001C'X% PARAMETER pscan$k_type = '00000081'X# PARAMETER pscan$M_OR = '00000001'X( PARAMETER pscan$M_BIT_ALL = '00000002'X( PARAMETER pscan$M_BIT_ANY = '00000004'X$ PARAMETER pscan$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 = '000004 00'X$ PARAMETER pscan$M_NEQ = '00000800'X STRUCTURE /item_specific_flags/ PARAMETER pscan$S_OR = 15 PARAMETER pscan$V_OR = 0 ! Logical OR of items" PARAMETER pscan$S_BIT_ALL = 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 PARAMET ER pscan$S_LEQ = 1 PARAMETER pscan$V_LEQ = 5 PARAMETER pscan$S_LSS = 1 PARAMETER pscan$V_LSS = 6' PARAMETER pscan$S_PREFIX_MATCH = 1E PARAMETER pscan$V_PREFIX_MATCH = 7 ! Match on leading substring# PARAMETER pscan$S_WILDCARD = 18 PARAMETER pscan$V_WILDCARD = 8 ! Wildcard pattern% PARAMETER pscan$S_CASE_BLIND = 1D 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_flagsCDEC$ END OPTIONS ww 8)!*** MODULE $PSLDEF ***CDEC$ OPTIONS /NOALIGN! +7! PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS! - PARAMETER PSL$M_C = '00000001'X PARAMETER PSL$M_V = '00000002'X PARAMETER PSL$M_Z = '00000004'X PARAMETER PSL$M_N = '00000008'X# PARAMETER PSL$M_TBIT = '00000010'X! PARAMETER PSL$M_IV = '00000020'X! PARAMETER PSL$M_FU = '00000040'X! PARAMETER PSL$M_DV = '00000080'X" PARAMETER PSL$M_IPL = '001F0000'X% PARAMETER PSL$M_PRVMOD = '00C00000'X% PARAMETER PSL$M_CURMOD = '03000000'X! PARAMETER PSL$M_IS = '04000000'X" PARAMETER PSL$M_FPD = '08000000'X! PARAMETER PSL$M_TP = '40000000'X! PARAMETER PSL$M_CM = '80000000'X5 PARAMETER PSL$C_KERNEL = '00000000'X ! KERNEL MODE 1 PARAMETER PSL$C_EXEC = '00000001'X ! EXEC MODE 8 PARAMETER PSL$C_SUPER = '00000002'X ! SUPERVISOR MODE 1 PARAMETER PSL$C_U SER = '00000003'X ! USER MODE & PARAMETER PSL$M_SAFBITS = '000037FF'X STRUCTURE /PSLDEF/ UNION MAP PARAMETER PSL$S_C = 1* PARAMETER PSL$V_C = 0 ! Carry  PARAMETER PSL$S_V = 1- PARAMETER PSL$V_V = 1 ! oVerflow  PARAMETER PSL$S_Z = 1) PARAMETER PSL$V_Z = 2 ! Zero  PARAMETER PSL$S_N = 1- PARAMETER PSL$V_N = 3 ! Negative ! PARAMETER PSL$S_TBIT = 12 PARAMETER PSL$V_TBIT = 4 ! TBIT E NABLE  PARAMETER PSL$S_IV = 16 PARAMETER PSL$V_IV = 5 ! INTEGER OVERFLOW  PARAMETER PSL$S_FU = 18 PARAMETER PSL$V_FU = 6 ! FLOATING UNDEFINED  PARAMETER PSL$S_DV = 14 PARAMETER PSL$V_DV = 7 ! DIVIDE BY ZERO PARAMETER PSL$S_IPL = 5? PARAMETER PSL$V_IPL = 16 ! INTERRUPT PRIORITY LEVEL # PARAMETER PSL$S_PRVMOD = 2A PARAMETER PSL$V_PRVMOD = 22 ! PREVIOUS PROCESSOR MODE # PARAMETER PSL $S_CURMOD = 2@ PARAMETER PSL$V_CURMOD = 24 ! CURRENT PROCESSOR MODE  PARAMETER PSL$S_IS = 1: PARAMETER PSL$V_IS = 26 ! INTERRUPT STACK BIT PARAMETER PSL$S_FPD = 16 PARAMETER PSL$V_FPD = 27 ! FIRST PART DONE  PARAMETER PSL$S_TP = 19 PARAMETER PSL$V_TP = 30 ! TRACE TRAP PENDING  PARAMETER PSL$S_CM = 1 PARAMETER PSL$V_CM = 31> BYTE %FILL (3) ! COMPATIBILITY MODE BIT AND MASK END MAP ! ! MODE SYMBOL DEFINITIONS! END UNION END STRUCTURE ! PSLDEFCDEC$ END OPTIONS wwm!*** MODULE $PSMMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:45.59! ! ! * *@! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993, 1994 BY *B! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$! * ALL RIGHTS RESERVED. *! * *N! * THIS SOFTWARE IS FURNIS HED 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. *! * *! * *! ! ++ ! FACILITY:! PRINT SYMBIONT.! ! ABSTRACT:! SYMBIONT MESSAGES.! ! ENVIRONMENT: ! VAX/VMS USER AND KERNEL MODE.! 0! AUTHOR: G. ROBERT, CREATION DATE: 31- AUG-1982! ! MODIFIED BY:! 4! X-4 SG047 SHEELA GAYATRI 27-DEC-1994! ADDED PSM$_INVPREFIX.! D! X-3 ILR003 IRIS LANGSTEIN REALMUTO 26-OCT-1993*! CHANGED COPYRIGHT TO 1993! E! X-2 ILR002 IRIS LANGSTEIN REALMUTO 27-AUG-1993"! ADDED PSM$_LATSYM! .! 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984! ADD MISSING .END STATEMENT.! 1! 3B-009 RRB3009 ROWLAND R. BRADLEY 24-JUL-19843! SEPARATE THE PSM MESSAGES AND THE SMB MESSAGES.! 0! 3B-008 GRR3008 GREGORY R. ROBERT 29-APR-1984! ADDED PSM$_FLUSH! 0! 3B-007 GRR3007 GREGORY R. ROBERT 23-AUG-19835! BUGFIXES, PAGE_SETUP_MODULES, FORM_SETUP_MODULES,>! SHEET_FEED, SYMBIONT INITIATED PAUSE_TASK AND STOP_STREAM,-! HANGUP CODE, READ AND WRITE ITEM SERVICES! 0! 3B-006 GRR3006 GREGORY R. ROBERT 03-AUG-1983!! CHANGED FUNNOTSUP TO SUCCESS.! 0! 3B-005 GRR3005 GREGORY R. ROBERT 29-JUL-1983! ADDED MESSAGES FOR F T1.! 0! 3B-004 GRR3004 GREGORY R. ROBERT 23-JUN-1983<! ADDED "module not found" AND "too many levels" MESSAGES.! 0! 3B-003 GRR3003 GREGORY R. ROBERT 27-MAY-1983>! REMOVED UNUSED MESSAGES. ADDED NOMOREITEMS AND INVSTMNBR.! 0! 3B-002 GRR3002 GREGORY R. ROBERT 04-APR-1983! ADDED PSM$_NOMOREITEMS.! ! **! I! THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FORH! MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY! THE $MSGDEF MAC RO.! & PARAMETER PSM$_FACILITY = '00000106'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$_TOOMANYLEV = '01068062'X' PARAMETER PSM$_INVITMCOD = '0106806C'X$ PARAMETER PSM$_LATSYM = '01068072'X' PARAMETER PSM$_INVPREFIX = '0106807C'XCDEC$ END OPTIONSwwp!*** MODULE $PSWDEF ***CDEC$ OPTIONS /NOALIGN! +-! Define PSW bits (STARDEF.MDL has PSL bits)! - PARAMETER PSW$M_C = '00000001'X PARAMETER PSW$M_V = '00000002'X PARAMETER PSW$M_Z = '00000004'X PARAMETER PSW$M_N = '00000008'X# PARAMETER PSW$M_TBIT =  '00000010'X! PARAMETER PSW$M_IV = '00000020'X! PARAMETER PSW$M_FU = '00000040'X! PARAMETER PSW$M_DV = '00000080'X STRUCTURE /PSWDEF/ UNION MAP PARAMETER PSW$S_C = 1* PARAMETER PSW$V_C = 0 ! carry  PARAMETER PSW$S_V = 1- PARAMETER PSW$V_V = 1 ! overflow  PARAMETER PSW$S_Z = 1) PARAMETER PSW$V_Z = 2 ! zero  PARAMETER PSW$S_N = 1- PARAMETER PSW$V_N = 3 ! negative ! PARAMETER PSW$S_TBIT =  18 PARAMETER PSW$V_TBIT = 4 ! trace trap enable  PARAMETER PSW$S_IV = 1= PARAMETER PSW$V_IV = 5 ! integer overflow enable  PARAMETER PSW$S_FU = 1? PARAMETER PSW$V_FU = 6 ! floating underflow enable  PARAMETER PSW$S_DV = 1 PARAMETER PSW$V_DV = 76 BYTE %FILL (1) ! decimal overflow enable END MAP END UNION END STRUCTURE ! PSWDEFCDEC$ END OPTIONS ww)!*** MODULE $PTDDEF ** *CDEC$ OPTIONS /NOALIGN! +! <! Pseudo terminal driver notification AST type definitions.! ! N.B.D! These definitions are in a specific order and must not be changed6! without matching changes to FTUCBDEF, and FTDRIVER.! ! -D PARAMETER PTD$C_SEND_XON = '00000000'X ! Enable or disable XON ASTF PARAMETER PTD$C_SEND_BELL = '00000001'X ! Enable or disable BELL ASTF PARAMETER PTD$C_SEND_XOFF = '00000002'X ! Enable or disable XOFF ASTO PARAMETER PTD$C_STOP_OUTPUT = '00000003'X ! Enable or disable stop output ASTS 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 ASTQ PARAMETER PTD$C_ABORT_OUTPUT = '00000006'X ! Enable or disable abort output ASTM PARAMETER PTD$C_START_READ = '00000007'X ! Enable or disable start read ASTO PARAMETER PTD$C_MIDDLE_READ = '00000008'X ! Enable or disable middle read ASTI PARAMETER PTD$C_END_READ = '00000009'X  ! Enable or disable end read AST> PARAMETER PTD$C_ENABLE_READ = '0000000A'X ! Enable read ASTs@ PARAMETER PTD$C_DISABLE_READ = '0000000B'X ! Disable read ASTs) PARAMETER PTD$C_MAX_EVENTS = '0000000C'XCDEC$ END OPTIONSwwЁ0!*** MODULE $QUIDEF ***CDEC$ OPTIONS /NOALIGN! 7! Get Queue Information Service ($GETQUI) definitions.! U! NOTE: New items must always be added at the end so users will not have to relink.! H! NOTE: Update [VMSLIB.SRC]QUITABLE.MAR to reflect changes in $QUIDEF.! ! ! Function codes! M PARAMETER QUI$_CANCEL_OPERATION = '00000001'X ! Cancel a wildcard operationX PARAMETER QUI$_DISPLAY_CHARACTERISTIC = '00000002'X ! Return characteristic attributesD PARAMETER QUI$_DISPLAY_FILE = '00000003'X ! Return file attributesD PARAMETER QUI$_DISPLAY_FORM = '00000004'X ! Return form attributesB PARAMETER QUI$_DISPLAY_JOB = '00000005'X ! Return job attributesF PARAMETER QUI$_DISPLAY_QUEUE = '00000006'X ! Return queue attr ibutesR PARAMETER QUI$_TRANSLATE_QUEUE = '00000007'X ! Validate and translate queue name~ PARAMETER QUI$_DISPLAY_ENTRY = '00000008'X ! Return entry (job) attributes (without first having to establish queue context)p PARAMETER QUI$_DISPLAY_QMAN = '00000009'X ! Reserved for Digital (used by job control to get qman information)P PARAMETER QUI$_DISPLAY_MANAGER = '0000000A'X ! Return queue manager attributesG PARAMETER QUI$K_MIN_FUNC = '00000001'X ! Minimum GETQUI function codeG PARAMETER QUI$K _MAX_FUNC = '0000000A'X ! Maximum GETQUI function code! ! Item codes! K PARAMETER QUI$_ACCOUNT_NAME = '00000001'X ! Job: Submitter's account name< PARAMETER QUI$_AFTER_TIME = '00000002'X ! Job: /AFTER=timeO PARAMETER QUI$_ASSIGNED_QUEUE_NAME = '00000003'X ! Queue: ASSIGN/QUEUE targetF PARAMETER QUI$_BASE_PRIORITY = '00000004'X ! Queue: /BASE_PRIORITY=nI PARAMETER QUI$_CHARACTERISTIC_NAME = '00000005'X ! Characteristic: NameM PARAMETER QUI$_CHARACTERISTIC_NUMBER = '00000006'X !  Characteristic: NumberU PARAMETER QUI$_CHARACTERISTICS = '00000007'X ! Job, queue: /CHARACTERISTICS=(c,...)E PARAMETER QUI$_CHECKPOINT_DATA = '00000008'X ! Job: Checkpoint data7 PARAMETER QUI$_CLI = '00000009'X ! Job: /CLI=filename\ PARAMETER QUI$_COMPLETED_BLOCKS = '0000000A'X ! Job: Completed blocks including checkpointH PARAMETER QUI$_CONDITION_VECTOR = '0000000B'X ! Job: Completion statusA PARAMETER QUI$_CPU_DEFAULT = '0000000C'X ! Queue: /CPUDEFAULT=tD PARAMETER 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=ng PARAMETER QUI$_FILE_COPIES_CHKPT = '00000011'X ! File: File copies checkpoint (for internal use only)U! (note this item code is intentionally not documented and reserved for Digital use)M PARAMETER QUI$_FILE_COPIES_DONE = '00000012'X ! File: File copies complete dE PARAMETER QUI$_FILE_FLAGS = '00000013'X ! File: Boolean informationM PARAMETER QUI$_FILE_SETUP_MODULES = '00000014'X ! File: /SETUP=(module,...)Q PARAMETER QUI$_FILE_SPECIFICATION = '00000015'X ! File: Full file specificationE PARAMETER QUI$_FILE_STATUS = '00000016'X ! File: Status information? PARAMETER QUI$_FIRST_PAGE = '00000017'X ! File: /PAGES=(n,"")K PARAMETER QUI$_FORM_DESCRIPTION = '00000018'X ! Form: /DESCRIPTION=stringE PARAMETER QUI$_FORM_FLAGS = '00000019'X ! Form:  Boolean information< PARAMETER QUI$_FORM_LENGTH = '0000001A'X ! Form: /LENGTH=nJ PARAMETER QUI$_FORM_MARGIN_BOTTOM = '0000001B'X ! Form: /MARGIN=BOTTOM=nF PARAMETER QUI$_FORM_MARGIN_LEFT = '0000001C'X ! Form: /MARGIN=LEFT=nH PARAMETER QUI$_FORM_MARGIN_RIGHT = '0000001D'X ! Form: /MARGIN=RIGHT=nD PARAMETER QUI$_FORM_MARGIN_TOP = '0000001E'X ! Form: /MARGIN=TOP=nF PARAMETER QUI$_FORM_NAME = '0000001F'X ! Form, job, queue: Form name9 PARAMETER QUI$_FORM_NUMBER = '00000020'X ! Form: Number M PARAMETER QUI$_FORM_SETUP_MODULES = '00000021'X ! Form: /SETUP=(module,...)C PARAMETER QUI$_FORM_STOCK = '00000022'X ! Form: /STOCK=stock-name: PARAMETER QUI$_FORM_WIDTH = '00000023'X ! Form: /WIDTH=nP PARAMETER QUI$_GENERIC_TARGET = '00000024'X ! Queue: /GENERIC=(queue-name,...)S PARAMETER QUI$_INTERVENING_BLOCKS = '00000025'X ! Job: Intervening pending blocksO PARAMETER QUI$_INTERVENING_JOBS = '00000026'X ! Job: Intervening pending jobs= PARAMETER QUI$_JOB_COPIES = '00000027'X !  Job: /JOB_COUNT=nd PARAMETER QUI$_JOB_COPIES_CHKPT = '00000028'X ! Job: Job copies checkpoint (for internal use only)U! (note this item code is intentionally not documented and reserved for Digital use)J PARAMETER QUI$_JOB_COPIES_DONE = '00000029'X ! Job: Job copies completedC PARAMETER QUI$_JOB_FLAGS = '0000002A'X ! Job: Boolean information> PARAMETER QUI$_JOB_LIMIT = '0000002B'X ! Queue: /JOB_LIMIT=n3 PARAMETER QUI$_JOB_NAME = '0000002C'X ! Job: NameV PARAMETER QUI$_JOB_RESET_MODULE S = '0000002D'X ! Queue: /SEPARATE=RESET=(module,...)B PARAMETER QUI$_JOB_SIZE = '0000002E'X ! Job: Total blocks in jobG PARAMETER QUI$_JOB_SIZE_MAXIMUM = '0000002F'X ! Queue: /BLOCK_LIMIT=nL PARAMETER QUI$_JOB_SIZE_MINIMUM = '00000030'X ! Queue: /BLOCK_LIMIT=(n,"")C PARAMETER QUI$_JOB_STATUS = '00000031'X ! Job: Status information9 PARAMETER QUI$_LAST_PAGE = '00000032'X ! File: /PAGES=nY PARAMETER QUI$_LIBRARY_SPECIFICATION = '00000033'X ! Queue: /LIBRARY=file-specificationC PARAMET ER QUI$_LOG_QUEUE = '00000034'X ! Job: /PRINTER=queue-nameT PARAMETER QUI$_LOG_SPECIFICATION = '00000035'X ! Job: /LOG_FILE=file-specification7 PARAMETER QUI$_NOTE = '00000036'X ! Job: /NOTE=stringG PARAMETER QUI$_OPERATOR_REQUEST = '00000037'X ! Job: /OPERATOR=string< PARAMETER QUI$_OWNER_UIC = '00000038'X ! Queue: /OWNER=uicR PARAMETER QUI$_PAGE_SETUP_MODULES = '00000039'X ! Form: /PAGE_SETUP=(module,...)C PARAMETER QUI$_PARAMETER_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=nE PARAMETER QUI$_PROCESSOR = '00000043'X ! Queue: /PROCESSOR=filenameC PARAMETER QUI$_PROTECTION = '00000044'X ! Queue: /PROTECTION=maskG PARAM ETER QUI$_QUEUE_FLAGS = '00000045'X ! Queue: Boolean informationB PARAMETER QUI$_QUEUE_NAME = '00000046'X ! Job, queue: Queue nameG PARAMETER QUI$_QUEUE_STATUS = '00000047'X ! Queue: Status informationh PARAMETER QUI$_REFUSAL_REASON = '00000048'X ! Job: Reason symbiont refused job (for internal use only)U! (note this item code is intentionally not documented and reserved for Digital use)e PARAMETER QUI$_REQUEUE_PRIORITY = '00000049'X ! Job: Priority after requeue (for internal use only) U! (note this item code is intentionally not documented and reserved for Digital use)L PARAMETER QUI$_REQUEUE_QUEUE_NAME = '0000004A'X ! Job: Queue after requeue? PARAMETER QUI$_SCSNODE_NAME = '0000004B'X ! Queue: /ON=node::E PARAMETER QUI$_SEARCH_FLAGS = '0000004C'X ! Flags to control searchG PARAMETER QUI$_SEARCH_NAME = '0000004D'X ! Object name to search for J PARAMETER QUI$_SEARCH_NUMBER = '0000004E'X ! Object number to search forE PARAMETER QUI$_SUBMISSION_TIME = '0000004F'X ! J ob: Submission time9 PARAMETER QUI$_UIC = '00000050'X ! Job: Submitter's UICC PARAMETER QUI$_USERNAME = '00000051'X ! Job: Submitter's usernameC PARAMETER QUI$_WSDEFAULT = '00000052'X ! Job, queue: /WSDEFAULT=nA PARAMETER QUI$_WSEXTENT = '00000053'X ! Job, queue: /WSEXTENT=n? PARAMETER QUI$_WSQUOTA = '00000054'X ! Job, queue: /WSQUOTA=n^ PARAMETER QUI$_RESERVED_OUTPUT_85 = '00000055'X ! Reserved for Digital use (name may change)^ PARAMETER QUI$_RESERVED_OUTPUT_86 = '00000056'X ! Re served for Digital use (name may change)n PARAMETER QUI$_JOB_CONTROL_GQC = '00000057'X ! Reserved for Digital (Use to send GQC to job control process)Z PARAMETER QUI$_SEARCH_USERNAME = '00000058'X ! Username of owner of job to modify searchM PARAMETER QUI$_DEFAULT_FORM_NAME = '00000059'X ! Default form name on queueQ PARAMETER QUI$_DEFAULT_FORM_NUMBER = '0000005A'X ! Default form number on queueP PARAMETER QUI$_DEFAULT_FORM_STOCK = '0000005B'X ! Stock name for default form 9 PARAMETER QUI $_JOB_PID = '0000005C'X ! Pid of batch job] PARAMETER QUI$_FILE_IDENTIFICATION = '0000005D'X ! File identification (From RMS NAM block)d PARAMETER QUI$_PENDING_JOB_BLOCK_COUNT = '0000005E'X ! Total number of blocks for all pending jobs| PARAMETER QUI$_JOB_RETENTION_TIME = '0000005F'X ! The amount of time the job should be retained (may be delta or absolute)Y PARAMETER QUI$_JOB_COMPLETION_TIME = '00000060'X ! The time the job completed executionj PARAMETER QUI$_JOB_COMPLETION_QUEUE = '0000 0061'X ! The name of the queue the job completed execution on^ 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)_ PARAMETER QUI$_RESERVED_OUTPUT_101 = '00000065'X ! Reserved for Digital use (name may change)_ PARAMETER QUI$_RESERVED_OUTPUT_102 = '00000066'X ! R eserved for Digital use (name may change)O PARAMETER QUI$_SEARCH_BATCH_EPID = '00000067'X ! Batch job EPID to search forG 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 ! Reserved for Digital use (name may change)V PARAMETER QUI$_EXECUTING_JOB_COUNT = '0000006B'X ! Number of jobs that are executingI PARAMETER QUI$_HOLDING_JO B_COUNT = '0000006C'X ! Number of holding jobsb PARAMETER QUI$_TIMED_RELEASE_JOB_COUNT = '0000006D'X ! Number of jobs specified with /AFTER_TIMEb PARAMETER QUI$_PENDING_JOB_REASON = '0000006E'X ! Secondary status describing why job is pending; PARAMETER QUI$_ORB = '0000006F'X ! ORB data in TLV formatU! (note this item code is intentionally not documented and reserved for Digital use)F PARAMETER QUI$_QUEUE_DESCRIPTION = '00000070'X ! Queue: /DESCRIPTIONd PARAMETER QUI$_SYMBIONT_FLAGS = ' 00000071'X ! Symbiont options (requests) passed to job controllerU! (note this item code is intentionally not documented and reserved for Digital use)f PARAMETER QUI$_JOB_ACCESS_CLASS = '00000072'X ! Job access class information (for internal use only)U! (note this item code is intentionally not documented and reserved for Digital use){ PARAMETER QUI$_ORB_LOCK_KEY = '00000073'X ! Key value for locking of in-memory ORB data structure (for internal use only)U! (note this item code is inten tionally not documented and reserved for Digital use)p PARAMETER QUI$_CHECKPOINT_FREQUENCY = '00000074'X ! Number of pages in interval at which symbiont takes chkptsI PARAMETER QUI$_PENDING_JOB_COUNT = '00000075'X ! Number of pending jobsK PARAMETER QUI$_RETAINED_JOB_COUNT = '00000076'X ! Number of retained jobsu PARAMETER QUI$_RESTART_QUEUE_NAME = '00000077'X ! Name of queue into which a job would be restarted, if appropriateA PARAMETER QUI$_FILE_COUNT = '00000078'X ! Count of files in  jobs PARAMETER QUI$_ATTRIBUTES = '00000079'X ! Keywds and values of extens attribs associated with queue, job, or fileu PARAMETER QUI$_ATTRIBUTES_SIZE = '0000007A'X ! Length of list of extens attribs associated with queue, job, or fileY PARAMETER QUI$_QUEUE_SUPPORT = '0000007B'X ! Queue Support Images defined on this queued PARAMETER QUI$_QUEUE_ATTRIBUTES = '0000007C'X ! Valid keywords for operations that alter the queues PARAMETER QUI$_QUEUE_ATTRIBUTES_SIZE = '0000007D'X ! Length of lis t of keywords for queue-oriented extens attribsg PARAMETER QUI$_JOB_ATTRIBUTES = '0000007E'X ! Valid keywords for operations that create or alter jobso PARAMETER QUI$_JOB_ATTRIBUTES_SIZE = '0000007F'X ! Length of list of keywords for job-oriented extens attribsd PARAMETER QUI$_FILE_ATTRIBUTES = '00000080'X ! Valid keywords for file submissions or alter_file'sq PARAMETER QUI$_FILE_ATTRIBUTES_SIZE = '00000081'X ! Length of list of keywords for file-oriented extens attribsz PARAMETER QUI$_AU TOSTART_ON = '00000082'X ! Node(s) (and for print queues, device(s)) on which queue can be auto startedC PARAMETER QUI$_AGENT_PROFILE = '00000083'X ! Security information@ PARAMETER QUI$_MANAGER_NAME = '00000084'X ! Queue manager nameZ 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)e PARAMETER QUI$_MANAGER_NODES = '00000087'X ! Preferred node listed speci fied on start queue manager[ PARAMETER QUI$_MANAGER_AUTOSTART = '00000088'X ! List of nodes that are autostart enabledp PARAMETER QUI$_QUEUE_DIRECTORY = '00000089'X ! Directory specification provided when queue manager was started_ 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 Digita l use (name may 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)_ PARAMETER 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)_ PARAM ETER QUI$_RESERVED_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$_RESERV ED_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 = '00 0000A1'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)C PARAMETER QUI$K_MIN_ITEM = '00000001'X ! Minimum GETQUI item cod eC PARAMETER QUI$K_MAX_ITEM = '000000A5'X ! Maximum GETQUI item codeJ 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 = '0 0000040'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 ! /[N O]BURST explicit (intentionally not documented)$ PARAMETER QUI$S_FILE_DELETE = 10 PARAMETER QUI$V_FILE_DELETE = 2 ! /DELETE* PARAMETER QUI$S_FILE_DOUBLE_SPACE = 14 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 = 11 PARAMETER QUI$V_FILE_TRAILER = 6 ! /TRAILER) PARAMETER QUI$S_FILE_TRAILER_EXP = 1a PARAMETER QUI$V_FILE_TRAILER_EXP = 7 ! /[NO]TRAILER explicit (intentionally not documented)) PARAMETER QUI$S_FILE_PAGE_HEADER = 14 PARAMETER QUI$V_FILE_PAGE_HEADER = 8 ! /HEADER& PARAMETER QUI$S_FILE_PAGINATE = 1/ PARAMETER QUI$V_FILE_PAGINATE = 9 ! /FEED% PARAMETER QUI$S_FILE_PASSALL = 12 PARAMETER QUI$V_FILE_PASSALL = 10 ! /PASSALL* PARAMETER QUI$S_FILE_PAGINATE_EXP = 1` 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? PARAMETER QUI$V_FILE_CHECKPOI NTED = 0 ! File checkpointed' PARAMETER QUI$S_FILE_EXECUTING = 1C 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 = 17 PARAMETER QUI$V_FORM_SHEET_FEED = 0 ! /SHEET_FEED&  PARAMETER QUI$S_FORM_TRUNCATE = 13 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, PARAMETER 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 STRUCTURE /JOB_FLAGS/& PARAMETER QUI$S_JOB_CPU_LIMIT = 1; PARAMETER QUI$V_JOB_CPU_LIMIT = 0 ! /CPUTIME explicit' PARAMET ER QUI$S_JOB_FILE_BURST = 15 PARAMETER QUI$V_JOB_FILE_BURST = 1 ! /BURST=ALL+ PARAMETER QUI$S_JOB_FILE_BURST_ONE = 19 PARAMETER QUI$V_JOB_FILE_BURST_ONE = 2 ! /BURST=ONE+ PARAMETER QUI$S_JOB_FILE_BURST_EXP = 1a PARAMETER QUI$V_JOB_FILE_BURST_EXP = 3 ! /[NO]BURST explicit (intentionally not documented)& PARAMETER QUI$S_JOB_FILE_FLAG = 13 PARAMETER QUI$V_JOB_FILE_FLAG = 4 ! /FLAG=ALL* PARAMETER QUI$S_JOB_FILE_FLAG_ONE = 17 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 = 19 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 = 1e PARAMETER QUI$V_JOB_FILE_TRAILER_EXP = 9 ! /[NO]TRAILER explicit ( intentionally not documented)' PARAMETER QUI$S_JOB_LOG_DELETE = 13 PARAMETER QUI$V_JOB_LOG_DELETE = 10 ! /NOKEEP% PARAMETER QUI$S_JOB_LOG_NULL = 15 PARAMETER QUI$V_JOB_LOG_NULL = 11 ! /NOLOG_FILE& PARAMETER QUI$S_JOB_LOG_SPOOL = 13 PARAMETER QUI$V_JOB_LOG_SPOOL = 12 ! /PRINTER& PARAMETER QUI$S_JOB_LOWERCASE = 15 PARAMETER QUI$V_JOB_LOWERCASE = 13 ! /LOWERCASE# PARAMETER QUI$S_JOB_NOTIFY = 10 PARAMETER QUI$V_JOB_NOTIFY = 14 ! /NOTIFY$ PARAMETER QUI$S_JOB_RESTART = 11 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 = 14 PARAMETER QUI$V_JOB_FILE_PAGINATE = 19 ! /FEED. PARAMETER QUI $S_JOB_FILE_PAGINATE_EXP = 1d PARAMETER QUI$V_JOB_FILE_PAGINATE_EXP = 20 ! /[NO]FEED explicit (intentionally not documented)& PARAMETER QUI$S_JOB_RETENTION = 19 PARAMETER QUI$V_JOB_RETENTION = 21 ! /RETAIN=ALWAYS, PARAMETER QUI$S_JOB_ERROR_RETENTION = 1> PARAMETER QUI$V_JOB_ERROR_RETENTION = 22 ! /RETAIN=ERROR BYTE %FILL (3) END STRUCTURE ! JOB_FLAGS! %! Subfields of JOB_STATUS item code.! + PARAMETER QUI$M_JOB_ABORTING = '00000001'X, PARAMETER QUI$M_JOB_EXE CUTING = '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_STARTING = '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_U NDEFINED = '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 = 18 PARAMETER QUI$V_JOB_ABORTING = 0 ! Job is aborting& PARAMETER QUI$S_JOB_EXECUTING = 1: PARAMETER QUI$V_JOB_EXECUTING = 1 ! Job is executing$ PARAMETER QUI$S_JOB_HOLDING = 1A PARAMETER QUI$V_JOB_HOLDING = 2 ! Job is holding for /HOLD) PARAMET ER QUI$S_JOB_INACCESSIBLE = 1@ PARAMETER QUI$V_JOB_INACCESSIBLE = 3 ! Job is inaccessible$ PARAMETER QUI$S_JOB_REFUSED = 1D PARAMETER QUI$V_JOB_REFUSED = 4 ! Job was refused by symbiont$ PARAMETER QUI$S_JOB_REQUEUE = 1d PARAMETER QUI$V_JOB_REQUEUE = 5 ! Job will requeue after abort (intentionally not documented)' PARAMETER QUI$S_JOB_RESTARTING = 1m PARAMETER QUI$V_JOB_RESTARTING = 6 ! Job started execution at least once (intentionally not documented)% P ARAMETER QUI$S_JOB_RETAINED = 1D PARAMETER QUI$V_JOB_RETAINED = 7 ! Job was retained by /RETAIN% PARAMETER QUI$S_JOB_STARTING = 18 PARAMETER QUI$V_JOB_STARTING = 8 ! Job is starting* PARAMETER QUI$S_JOB_TIMED_RELEASE = 1G PARAMETER QUI$V_JOB_TIMED_RELEASE = 9 ! Job is holding for /AFTER& PARAMETER QUI$S_JOB_SUSPENDED = 1Q PARAMETER QUI$V_JOB_SUSPENDED = 10 ! Job is suspended by STOP/QUEUE command$ PARAMETER QUI$S_JOB_PENDING = 1j PARAMETER QUI$V_JOB _PENDING = 11 ! Job is pending (see QUI$_JOB_PENDING_REASON for more information)& PARAMETER QUI$S_JOB_UNDEFINED = 1c PARAMETER QUI$V_JOB_UNDEFINED = 12 ! Job does not yet exist in db or is being removed from db$ PARAMETER QUI$S_JOB_STALLED = 1E PARAMETER QUI$V_JOB_STALLED = 13 ! Current job on stalled queue' PARAMETER QUI$S_JOB_INCOMPLETE = 1q PARAMETER QUI$V_JOB_INCOMPLETE = 14 ! Job was processed by the symbiont but further processing is necessary' PARAMET ER QUI$S_JOB_COMPLETING = 1M PARAMETER QUI$V_JOB_COMPLETING = 15 ! Job has been completely processed BYTE %FILL (2) END STRUCTURE ! JOB_STATUSd PARAMETER QUI$V_JOB_TIMED = '00000009'X ! Synonym for QUI$V_JOB_TIMED_RELEASE for V4 compatibilityd PARAMETER QUI$M_JOB_TIMED = '00000200'X ! Synonym for QUI$M_JOB_TIMED_RELEASE for V4 compatibility! #! Subfields of PENDING_JOB_REASON.! ! Note that in the descriptions below "queue" refers to the execution queue in which a job reside s, or to the set of executionI! 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 = ' 00000080'X STRUCTURE /PENDING_JOB_REASON/+ PARAMETER QUI$S_PEND_CHAR_MISMATCH = 1f PARAMETER QUI$V_PEND_CHAR_MISMATCH = 0 ! Queue's characteristics do not match job's requirements* PARAMETER QUI$S_PEND_JOB_SIZE_MAX = 1v PARAMETER QUI$V_PEND_JOB_SIZE_MAX = 1 ! Print job's block size is too large to execute on queue (print job only)* PARAMETER QUI$S_PEND_JOB_SIZE_MIN = 1v PARAMETER QUI$V_PEND_JOB_SIZE_MIN = 2 ! Print job's block size is too small to execute on queue  (print job only)0 PARAMETER QUI$S_PEND_LOWERCASE_MISMATCH = 1 PARAMETER QUI$V_PEND_LOWERCASE_MISMATCH = 3 ! Queue's lowercase attribute does not match job's requirements (print job only)' PARAMETER QUI$S_PEND_NO_ACCESS = 1M PARAMETER QUI$V_PEND_NO_ACCESS = 4 ! User does not have access to queue( PARAMETER QUI$S_PEND_QUEUE_BUSY = 1{ PARAMETER QUI$V_PEND_QUEUE_BUSY = 5 ! Job is ready to execute but must wait until other jobs ahead of it in the queueQ! complete exec ution (this is a normal state that requires no user intervention)) PARAMETER QUI$S_PEND_QUEUE_STATE = 1z PARAMETER QUI$V_PEND_QUEUE_STATE = 6 ! Queue state prevents job from executing (see QUI$_QUEUE_STATUS for more info), PARAMETER QUI$S_PEND_STOCK_MISMATCH = 1s PARAMETER QUI$V_PEND_STOCK_MISMATCH = 7 ! Stock type of mounted form on output execution queue does not matchI! stock stock type required by form associated with job (print job only) BYTE %FILL (1)# END STRUCTU RE ! 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_TRAILE R_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 = '0 0040000'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 STRUCTURE /QUEUE_FLAGS/$ PARAMETER QUI$S_QUEUE_BATCH = 1/ PARAMETER QUI$V_QUEUE_BATCH = 0 ! /BATCH* PARAMETER QUI$S_QUEUE_CPU_DEFAULT = 1C PARAMETER QUI$V_QUEUE_CPU_DEFAULT = 1 ! /CPUDEFAULT specified( PARAMETER QUI$S_QUEUE_CPU_LIMIT = 1A PARAMETER QUI$V_QUEUE_CPU_LIMIT = 2 ! /CPUMAXIMUM specified) PARAMETER QUI$S_QUEUE_FILE_BURST = 1? P ARAMETER QUI$V_QUEUE_FILE_BURST = 3 ! /DEFAULT=BURST=ALL- PARAMETER QUI$S_QUEUE_FILE_BURST_ONE = 1C PARAMETER QUI$V_QUEUE_FILE_BURST_ONE = 4 ! /DEFAULT=BURST=ONE( PARAMETER QUI$S_QUEUE_FILE_FLAG = 1= PARAMETER QUI$V_QUEUE_FILE_FLAG = 5 ! /DEFAULT=FLAG=ALL, PARAMETER QUI$S_QUEUE_FILE_FLAG_ONE = 1A PARAMETER QUI$V_QUEUE_FILE_FLAG_ONE = 6 ! /DEFAULT=FLAG=ONE+ PARAMETER QUI$S_QUEUE_FILE_TRAILER = 1C PARAMETER QUI$V_QUEUE_FILE_TRAILER = 7 ! /DEFAULT=TRAILE R=ALL/ PARAMETER QUI$S_QUEUE_FILE_TRAILER_ONE = 1G PARAMETER QUI$V_QUEUE_FILE_TRAILER_ONE = 8 ! /DEFAULT=TRAILER=ONE& PARAMETER QUI$S_QUEUE_GENERIC = 12 PARAMETER QUI$V_QUEUE_GENERIC = 9 ! /GENERIC0 PARAMETER QUI$S_QUEUE_GENERIC_SELECTION = 1D 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 Q UI$V_QUEUE_JOB_FLAG = 12 ! /SEPARATE=FLAG - PARAMETER QUI$S_QUEUE_JOB_SIZE_SCHED = 1@ PARAMETER QUI$V_QUEUE_JOB_SIZE_SCHED = 13 ! /SCHEDULE=SIZE* PARAMETER QUI$S_QUEUE_JOB_TRAILER = 1@ PARAMETER QUI$V_QUEUE_JOB_TRAILER = 14 ! /SEPARATE=TRAILER) PARAMETER QUI$S_QUEUE_RETAIN_ALL = 19 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_Q UEUE_SWAP = 1< PARAMETER QUI$V_QUEUE_SWAP = 17 ! /NODISABLE_SWAPPING' PARAMETER QUI$S_QUEUE_TERMINAL = 1i PARAMETER QUI$V_QUEUE_TERMINAL = 18 ! /DEVICE=TERMINAL or terminal device type reported by symbiont( PARAMETER QUI$S_QUEUE_WSDEFAULT = 1A 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> PARAMETER QUI$V_QUEUE_FILE_PAGINATE = 22 ! /DEFAULT=FEED. PARAMETER QUI$S_QUEUE_RECORD_BLOCKING = 1C PARAMETER QUI$V_QUEUE_RECORD_BLOCKING = 23 ! /RECORD_BLOCKING& PARAMETER QUI$S_QUEUE_PRINTER = 1f PARAMETER QUI$V_QUEUE_PRINTER = 24 ! /DEVICE=PRINTER or printer device type reported by symbiont, PARAMETER QUI$S_QUEUE_ACL_SPECIFIED = 1Q PARAMETER QUI$V_QUEUE_ACL_SPECIFIED = 2 5 ! ACL has been specified for queue2 PARAMETER QUI$S_QUEUE_NOTIFY_ON_INTERRUPT = 1K PARAMETER QUI$V_QUEUE_NOTIFY_ON_INTERRUPT = 26 ! /NOTIFY=INTERRUPTION. PARAMETER QUI$S_QUEUE_CHECKPOINT_FREQ = 1R PARAMETER QUI$V_QUEUE_CHECKPOINT_FREQ = 27 ! /CHECKPOINT_FREQUENCY specified( PARAMETER QUI$S_QUEUE_AUTOSTART = 1D PARAMETER QUI$V_QUEUE_AUTOSTART = 28 ! /AUTOSTART_ON specified. PARAMETER QUI$S_SECURITY_INACCESSIBLE = 1i PARAMETER QUI$V_SECURITY_INACCESSIBLE = 29 ! Requestor does not have access to security information, PARAMETER QUI$S_QUEUE_NO_INITIAL_FF = 1@ PARAMETER QUI$V_QUEUE_NO_INITIAL_FF = 30 ! /NO_INITIAL_FF  BYTE %FILL (4) 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 = '000 00010'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_QUEUE_C LOSED = '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 = 1j PARAMETER Q UI$V_QUEUE_IDLE = 1 ! Queue is idle: no jobs executing and none available for execution( PARAMETER QUI$S_QUEUE_LOWERCASE = 1< PARAMETER QUI$V_QUEUE_LOWERCASE = 2 ! Lowercase device/ PARAMETER QUI$S_QUEUE_OPERATOR_REQUEST = 1j PARAMETER QUI$V_QUEUE_OPERATOR_REQUEST = 3 ! Queue is doing /OPERATOR (intentionally not documented)% PARAMETER QUI$S_QUEUE_PAUSED = 18 PARAMETER QUI$V_QUEUE_PAUSED = 4 ! Queue is paused& PARAMETER QUI$S_QUEUE_PAUSING = 1: PARAMETER QUI$V_QUEUE_PAUSING = 5 ! Queue is pausing% PARAMETER QUI$S_QUEUE_REMOTE = 16 PARAMETER QUI$V_QUEUE_REMOTE = 6 ! Remote device( PARAMETER QUI$S_QUEUE_RESETTING = 1Z PARAMETER QUI$V_QUEUE_RESETTING = 7 ! Incomplete remote request to reset (OBSOLETE)' PARAMETER QUI$S_QUEUE_RESUMING = 1N PARAMETER QUI$V_QUEUE_RESUMING = 8 ! Queue is resuming from paused state% PARAMETER QUI$S_QUEUE_SERVER = 1h PARAMETER QUI$V_QUEUE_SERVER = 9 ! /DEVICE=SERVER or reported to be a served queue by the symbiont& 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' PARAMETER QUI$S_QUEUE_STOPPING = 1= PARAMETER QUI$V_QUEUE_STOPPING = 13 ! Queue is stopping* PARAMETER QUI$S_QUEUE_UNAVAILABLE = 1D PAR AMETER QUI$V_QUEUE_UNAVAILABLE = 14 ! Device is unavailable% PARAMETER QUI$S_QUEUE_CLOSED = 19 PARAMETER QUI$V_QUEUE_CLOSED = 15 ! Queue is closed# PARAMETER QUI$S_QUEUE_BUSY = 1f PARAMETER QUI$V_QUEUE_BUSY = 16 ! Queue is executing as many jobs as it is capable of executing( PARAMETER QUI$S_QUEUE_UNDEFINED = 1g PARAMETER QUI$V_QUEUE_UNDEFINED = 17 ! Queue does not yet exist in db or is being removed from db( PARAMETER QUI$S_QUEUE_AVAILABLE = 1v PARAMET ER QUI$V_QUEUE_AVAILABLE = 18 ! At least one job is executing, but the queue is capable of executing more' PARAMETER QUI$S_QUEUE_DISABLED = 1n PARAMETER QUI$V_QUEUE_DISABLED = 19 ! Queue is not able to accept or process jobs; its QSIs are inactive1 PARAMETER QUI$S_QUEUE_AUTOSTART_INACTIVE = 1X PARAMETER QUI$V_QUEUE_AUTOSTART_INACTIVE = 20 ! AUTOSTART queue explicitly stopped+ PARAMETER QUI$S_QUEUE_STOP_PENDING = 1s PARAMETER QUI$V_QUEUE_STOP_PENDING = 21 ! Queue wi ll be stopped when work currently in progress has completed BYTE %FILL (3) END STRUCTURE ! QUEUE_STATUS! '! Subfields 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 Q UI$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 = '0001000 0'X STRUCTURE /SEARCH_FLAGS/( PARAMETER QUI$S_SEARCH_ALL_JOBS = 1j PARAMETER QUI$V_SEARCH_ALL_JOBS = 0 ! Select all jobs (else only those with same username as caller)( PARAMETER QUI$S_SEARCH_WILDCARD = 1F 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 = 1z PARAMETER QUI$V_SEARCH_SYMBIONT = 3 ! Select symbiont (out  put) queues (note that QUI$V_SEARCH_SYMBIONT is equivalentS! to setting QUI$V_SEARCH_PRINTER, QUI$V_SEARCH_SERVER, and QUI$V_SEARCH_TERMINAL)( PARAMETER QUI$S_SEARCH_THIS_JOB = 1` PARAMETER QUI$V_SEARCH_THIS_JOB = 4 ! Select only caller's batch job (forcing new context)' PARAMETER QUI$S_SEARCH_PRINTER = 1@ PARAMETER QUI$V_SEARCH_PRINTER = 5 ! Select printer queues& PARAMETER QUI$S_SEARCH_SERVER = 1> PARAMETER QUI$V_SEARCH_SERVER = 6 ! Select server queues( PAR  AMETER QUI$S_SEARCH_TERMINAL = 1B PARAMETER QUI$V_SEARCH_TERMINAL = 7 ! Select terminal queues' PARAMETER QUI$S_SEARCH_GENERIC = 1@ PARAMETER QUI$V_SEARCH_GENERIC = 8 ! Select generic queues. PARAMETER QUI$S_SEARCH_GENERIC_TARGET = 1 PARAMETER QUI$V_SEARCH_GENERIC_TARGET = 9 ! Select generic target queues after selecting generic queue (for internal use)M! (note this option is NOT supported; it is intentionally not documented and! reserved for Digital use), PAR  AMETER QUI$S_SEARCH_PENDING_JOBS = 1I PARAMETER QUI$V_SEARCH_PENDING_JOBS = 10 ! Select only pending jobs. PARAMETER QUI$S_SEARCH_EXECUTING_JOBS = 1M PARAMETER QUI$V_SEARCH_EXECUTING_JOBS = 11 ! Select only executing jobs2 PARAMETER QUI$S_SEARCH_TIMED_RELEASE_JOBS = 1U PARAMETER QUI$V_SEARCH_TIMED_RELEASE_JOBS = 12 ! Select only timed release jobs, PARAMETER QUI$S_SEARCH_HOLDING_JOBS = 1I PARAMETER QUI$V_SEARCH_HOLDING_JOBS = 13 ! Select only holding jobs-  PARAMETER QUI$S_SEARCH_RETAINED_JOBS = 1K PARAMETER QUI$V_SEARCH_RETAINED_JOBS = 14 ! Select only retained jobs. PARAMETER QUI$S_SEARCH_FREEZE_CONTEXT = 1} PARAMETER QUI$V_SEARCH_FREEZE_CONTEXT = 15 ! Do not advance wildcard context to next object in list at end of operation) PARAMETER QUI$S_SEARCH_OPEN_JOBS = 1C PARAMETER QUI$V_SEARCH_OPEN_JOBS = 16 ! Select only open jobs BYTE %FILL (3) END STRUCTURE ! SEARCH_FLAGS! )! Subfields of SYMBIONT_FLAGS item co  de.! U! Note: this item code is intentionally not documented 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 = 1N PARAMETER QUI$V_SYM_NOTIFIES  = 0 ! Symbiont notifies for job completions* PARAMETER QUI$S_SYM_REQUESTS_OPER = 1R PARAMETER QUI$V_SYM_REQUESTS_OPER = 1 ! Symbiont generates operator messages( PARAMETER QUI$S_SYM_COPIES_FILE = 1S PARAMETER QUI$V_SYM_COPIES_FILE = 2 ! Symbiont generates multiple file copies' PARAMETER QUI$S_SYM_COPIES_JOB = 1Q PARAMETER QUI$V_SYM_COPIES_JOB = 3 ! Symbiont generates multiple job copies. PARAMETER QUI$S_SYM_ACCEPTS_ALL_FORMS = 1S PARAMETER QUI$V_SYM_ACCEP  TS_ALL_FORMS = 4 ! Symbiont processes all form types. PARAMETER QUI$S_SYM_NO_JOB_CHECKPOINT = 1X 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/ PARAM  ETER QUI$M_MANAGER_STOPPING = '00000010'X. PARAMETER QUI$M_MANAGER_STOPPED = '00000020'X STRUCTURE /MANAGER_STATUS/. PARAMETER QUI$S_MANAGER_START_PENDING = 1c PARAMETER QUI$V_MANAGER_START_PENDING = 0 ! Queue manager will start when a node is available) PARAMETER QUI$S_MANAGER_STARTING = 1F PARAMETER QUI$V_MANAGER_STARTING = 1 ! Queue manager is starting( PARAMETER QUI$S_MANAGER_RUNNING = 1L PARAMETER QUI$V_MANAGER_RUNNING = 2 ! Queue manager is processing work ) PARAMETER QUI$S_MANAGER_FAILOVER = 1h PARAMETER QUI$V_MANAGER_FAILOVER = 3 ! Queue manager is failing over to pick up new startup values) PARAMETER QUI$S_MANAGER_STOPPING = 1K PARAMETER QUI$V_MANAGER_STOPPING = 4 ! Queue manager is shutting down( PARAMETER QUI$S_MANAGER_STOPPED = 1D PARAMETER QUI$V_MANAGER_STOPPED = 5 ! Queue manager is stopped BYTE %FILL (1) END STRUCTURE ! MANAGER_STATUSCDEC$ END OPTIONS ww- !*** MODULE $RABDEF  ***CDEC$ OPTIONS /NOALIGN! 0! record access block (rab) definitions! )! there is one rab per connected stream6! it is used for all communications between the user/! 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 = '000080 00'X" PARAMETER 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" PARAMETER 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 = '080000 00'X" PARAMETER 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'X8 PARAMETER RAB$C_SEQ = '00000000'X ! sequential access 3 PARAMETER RAB$C_KEY = '00000001'X ! keyed access 1 PARAMETER RAB$C_RFA = '00000002'X ! rfa access T PARAMETER RAB$C_STM = '00000003'X ! stream access (valid only for sequential org) U PARAMETER RAB$C_MAXRAC = '00000 002'X ! Maximum RAC value currently supported by RMS4 PARAMETER RAB$K_BLN = '00000044'X ! length of rab 4 PARAMETER RAB$C_BLN = '00000044'X ! length of rab  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 value f or 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 = 15Q 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 MAP$  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)! 0! these next two should be in the byte for bits5! input to $find or $get, but there is no room there! $ PARAMETER RAB$S_REA = 1Y PARAMETER RAB$V_REA = 2 ! lock record for read 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 RAB$S_CDK = 1J  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 = 1h PARAMETER RAB$V_SYNCSTS = 15 ! Synchronous status notification for asynchronous routines.! "! the following bits are inpu  t 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 readers 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 ! 3! the following bits are terminal qualifiers only! (separate byte)! $ PARAM  ETER 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 = 1E PARAMETER RAB$V_ETO = 28 ! extended terminal operation$ P  ARAMETER 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 = 1@ PARAMETER RAB$V_EQNXT = 21 ! Synonyms for KGE and$ PARAMETER RAB$S_NXT = 1/  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 options W BYTE RAB$B_ROP2 ! get/find options (use of this field discouraged 0! due to REA and RRL being in a different byte)= BYTE RAB$B_ROP3 ! terminal read 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 stv 8 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 stores 3! to the rfa field to be a move quad, overwriting! this reserved word)+ INTEGER*4 RAB$L_CTX ! user context ! -----*****# INTEGER*2 %FILL ! (spare) , BYTE RAB$B_RAC ! record access . BYTE RAB$B_TMO ! time-out period / INTEGER*2 RAB$W_USZ ! user buffer size 1 INTEGER*2 RAB$W_RSZ ! record buffer size 2 INTEGER*4 RAB$L_UBF ! user buffer address 4 INTEGER*4 RAB$L_RBF ! record buffer address 8 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 reference 1 BYTE RAB$B_MBF ! multi-buffer count 0 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 ! related fab for connect * INTEGER*4 R AB$L_XAB ! XAB address  END STRUCTURE ! RABDEFCDEC$ END OPTIONS wwƺ!*** MODULE $RBLDDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:15.62! * 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$_U  NLOCKERR = '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$_READSCB = '0716806A'X' PARAMETER RBLD$_WRITESCB = '07168072'X' PARAMETER RBLD$_WRTIBMAP = '0716807A'X( PARAMETER RBLD$_WRTBITMAP = '07168082'X' PARAMETER RBLD$_MEMALLOC = '0716808A'X( PARAMETER RBLD$_HOMEBLO  CK = '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$_REBLDDO NE = '071680F1'XCDEC$ END OPTIONSww-u!*** MODULE $REGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:12:00.55! ! ! * *#! * COPYRIGHT (C) 1996 *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 *! * CORPO" RATION. *! * *N! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *C! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! * *! * *! ! ++ ! FACILITY:! ! NT REGISTRY SUBSYSTEM! ! ABSTRACT:! A! THIS FILE CONTAINS THE VARIOUS STATUS CODES RETURNED BY THE NTB! REGISTRY SUBSYSTEM. THESE CODES ARE ALSO AVAILABLE IN STARLET.! ! AUTHOR:! ! L. MARK PILANT! ! CREATION DATE:# ! ! 4-APR-1996! ! MODIFIED BY:! 3! X-1 LMP0564 L. MARK PILANT, 4-APR-1996 10:34! INITIAL VERSION.! ! --& PARAMETER REG$_FACILITY = '00000746'X! +K! THE FOLLOWING STATUS CODES REPRESENT ALTERNATE SUCCESS CODES THAT CAN BE)! RETURNED BY THE NT REGISTRY SUBSYSTEM.! -$ PARAMETER REG$_NORMAL = '07468001'X! +H! THE FOLLOWING STATUS CODES REPRESENT VARIOUS ERRORS THAT ARE DETECTED ! BY THE NT REGISTRY SUBSYSTEM.! -' PARAMETER REG$_UNSUPPORT = '07468962'X$ CDEC$ END OPTIONSwwm !*** MODULE $RMEDEF ***CDEC$ OPTIONS /NOALIGN% 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'XCDEC$ END OPTIONSwwc!*** MODULE $RMSDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 21:21:46.05! &! .TITLE RM % SDEF -RMS COMPLETION CODES! * *5! * COPYRIGHT (C) 1978, 1980, 1982, 1984 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 PROVI & DED 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 NO' T SUPPLIED BY DIGITAL. *! * *! * *! ++! FACILITY: RMS! ! ABSTRACT:! 0! THIS MODULE DEFINES ALL RMS COMPLETION CODES.! ! ENVIRONMENT:! A! THE MESSAGE TRANSLATOR MUST BE USED TO CONVERT RMSDEF.MSG INTO?! RMSDEF.SDL. THE SDL TRANSLATOR MUST THEN BE USED TO CONVERT/! RMSDEF.SDL INTO RMSDEF.MAR (AND RMSDEF.B32).! 8! AUTHOR: LEO F. LAVERDURE, CREATION DATE: 10-DEC-1976! ! MODIFIED BY: ! 5! X-15 EMW0085 ( ELINOR M. WOODS 15-MAR-1996A! PW INTEGRATION: REMOVE NEW ALTERNATE SUCCESS STATUS: ?! RMS$_OK_URECEOF ADDED BY X-14. ENDED UP NOT NEEDED.! ?! X-14 WDBPI1B WALTER D. BLASCHUK, JR. 5-JAN-1996(! MERGE IN OPENVMS AXP GRYPHON CHANGE:! E! X-8 WDBPI1 WALTER D. BLASCHUK, JR. 19-DEC-1995A! PATHWORKS INTEGRATION: ADD NEW ALTERNATE SUCCESSG! STATUS: RMS$_OK_URECEOF . THIS SYMBOL SIGNIFIES THAT ANF! END-OF-FILE MARKER WAS ENCOUNTERED AND THERE WAS DATAF! IN THE BUFFER. THIS OCCURS WHEN THE LAST RECORD OF AC! SEQUENTIAL STREAM FILE DOES NOT HAVE A TERMINATINGG! CHARACTER. THIS IS A SUCCESS STATUS AND DOES NOT HAVE1! A STV STATUS ASSOCIATED WITH IT.! -! X-13 EMW0023 ELINOR M. WOODS 04-AUG-19947! RMS$_KRF CAN BE RETURNED BY $CONNECT OR $R * EWIND, AS6! WELL AS $GET/$FIND. MAKE TEXT ASSOCIATED WITH KRF5! STATUS MORE GENERIC BY REMOVING "for $GET/$FIND."! -! X-12 EMW0026 ELINOR M. WOODS 15-JUN-1994! [VSC RE-IDENT]-! ADD ONE NEW USER-REPORTABLE STATUS: NXR 5! . THIS STATUS VALUE IS USED 6! AS AN STV ASSOCIATED WITH RNF STATUS (STS), AND IS6! REPORTED FOR AN EXACT KEY MATCH OF A SECONDARY KEY6! IF THE SECONDARY KEY ENTRY POINTS TO A NONEXISTENT8! PRIMARY DATA RECORD IN DISK FILE. + NOTE: RNF ERROR 1! STATUS PRE-EXISTED AS ERROR CODE WITHOUT STV.! D! DEE RYAN 30-SEP-19938! CORRECTED USE OF DIGITAL PRODUCT NAMES.! -! X-10 EMW0019 ELINOR M. WOODS 21-SEP-19935! 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 6! STV" section. Expand "WITH STV' AND "without STV"/! COMMENTS, TO CLARIFY DIFFERENCE BETWEEN TWO.! ,! X-9 EMW0016 ELINOR M. WOODS 10-AUG-19939! TO SUPPORT NEW KEY-LESS-THAN FUNCTIONALITY, ADDITION 9! OF ONE USER-REPORTABLE ERROR STATUS: IDXSEARCH (WITH7! AN ASSOCIATED STV), AND TWO NEW RMS-INTERNAL ERROR ;! STATUSES: LSCAN AND ROOTSRCH (WITH NO ASSOCIATED STV).! 6! MODIFY SEVERITY OF TWO DTF ERROR CODES (DTFACC AND4! DTFCRE) FROM FATAL TO ERROR, AS REQUESTED BY DTF! FACILITY. ! '! X-8 JM0012 JOHN MUNZER 11-NOV-1992- ! CHANGE TEXT FOR RMS$_LNE.! '! X-7 JM0006 JOHN MUNZER 17-APR-1992/! ADD !XL PARAMETER TO RMS$_BUG TO REPORT R2.! 1! 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-19901! CHANGE TEXT FOR RMS$_INCOMPSHR ERROR MESSAGE.! 1! X-31 LSS0130 LEONARD S. SZUBOWICZ 12-OCT-1989(! MERGE OF RMS/DDTM GENERATION X-30D2.A! ADD GENERAL DDTM. _ERR ERROR MESSAGE FOR DDTM SERVICE FAILURES;@! STV WILL CONTAIN THE FAILING SYSTEM SERVICE CONDITION VALUE.! 1! X-30 LSS0080 LEONARD S. SZUBOWICZ 06-OCT-1988?! ADD RMS$_OK_ACT MESSAGE FOR USE BY FUTURE WORK TO $DISPLAY.0! 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.! 2! X-26 LSS0057 LEONARD S. SZUBOWICZ 15-SEP-1987@! 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 JEJ0 0 479 JAMES E JOHNSON 13-AUG-1987! ADD RMS$_IVATRACE MESSAGE.! ,! X-22 PMV0061 PETER M. VATNE 03-AUG-1987C! CHANGE RESERVED MESSAGE RMS$_BUG_XX5 TO RMS$_BUG_RU_COMMIT_FAIL?! TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_COMMIT_FAIL.! 2! X-21 LSS0042 LEONARD S. SZUBOWICZ 13-MAY-1987B! CHANGE RESERVED MESSAGE RMS$_BUG_XX4 TO RMS$_BUG_RU_ABORT_FAIL=! TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_ABORT_FAIL! 0! X-20 SAD0034 STUART A. DAVIDSON 12-MAR-1987 )! DROP1 QUOTES FROM SNADTF MESSAGE TEXT.! )! X-19 PJH 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-19868! ADDED SNPPF (STATISTICS MONITORING NOT SUPPORTED FOR+! PROCESS PERMANENT FILES) ERROR MESSAGE.! ,! X-17 PMV0025 PETER M. VATNE 24-NOV-19865! ADD NEW MESSAGE, RMS$_NOTSAMEJNL. THIS STATUS IS2! USED T 2 O RESTRICT AI/BI WITH RU JOURNALING TO A"! SINGLE LONG-TERM JOURNAL FILE.! )! X-16 DAS DAVID A. SOLOMON 18-NOV-1986B! ADD NEW MESSAGE, RMS$_DELJNS. REMOVE RMS$_XCR (BY REPLACING IT9! 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-19867! FIX ERROR IN X-5/X-6: JOURNALING VARIANT NOT MERGED?! CORRECTLY, RESULTING IN SEVERAL JOURNALING 3 MESSAGES NUMBERS=! BEING DIFFERENT IN THE MAININE THAN WHAT THEY WERE ON THE@! 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.! /! X-14 SAD0014 STUART A. DAVIDSON 4-NOV-1986'! SNADTF - FIX TYPO IN DTFACC, DTFCRE! /! X-13 SAD0014 STUART A. DAVIDSON 3-NOV-19861! SNADTF - FIX TYPO, ADD 2 ADDITIONAL MESSAGES.! -! X-12 JEJ0377 J4 AMES E JOHNSON 29-OCT-19868! ADD NOEXTEND ERROR CODE TO FLAG FAILED RELATIVE FILE%! EXTENDS DUE TO PREVIOUS FAILURES.! .! X-11 KPS0131 KENNETH P. SIEGEL 25-OCT-19866! ADDED SNS ERROR CODE FOR STATISTICS NOT SUPPORT ON! NON-DISK DEVICES.! .! X-10 SAD009 STUART A. DAVIDSON 06-OCT-19863! 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-SEP-19865 7! 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-1986@! REMOVE RMS$_RUH_FILE (USING A GENERAL RUF MESSAGE INSTEAD).9! CHANGE RMS$_RUH TEXT TO NOT HAVE FAO PARAMETERS6 . ADD! RMS$_BUG_RURECERR.! /! X-3J5 JEJ0302 JAMES E JOHNSON 4-APR-19860! ADD RMS$_RRF (ERROR DURING RU RECOVERY) ANDC! RMS$_RUH/RMS$_RUH_FILE (USED TO FORM TEXT OF RU HANDLER ERRORS! SENT TO OPCOM).! /! X-3J4 JEJ0272 JAMES E JOHNSON 11-FEB-1986(! ADD RMS$_RUF, RMS$_BUG_ABORT CODES.! /! X-3J3 JEJ0237 JAMES E JOHNSON 16-DEC-1985! ADD RMS$_RUNDOWN CODE! /! X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985;! ADD JOURNAL SPECIFIC WRTJNL_XXJ7 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.! /! 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-19855! ADD (WHAT IS FOR NOW) AN INTERNAL STATUS CODE TO 8! DIFFERENTI8 ATE 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-19849! REMOVE RMS$_ECHO (NO LONGER NEEDED AS A RESULT OF NEW5! 9 IMPLEMENTATION FOR ECHO SYS$INPUT -> SYS$OUTPUT).! +! V03-021 JWT0150 JIM TEAGUE 01-FEB-19846! ADD RMS$_IFF FOR TRYING TO WRITE-ACCESS A FILE ON 8! MAGTAPE THAT HAS NON-0 VALUE FOR ANSI BUFFER OFFSET.! -! V03-020 RAS0233 RON SCHAEFER 9-JAN-19847! ADD RMS$_NOVALPRS ERROR FOR $SEARCH NOT PRECEDED BY! VALID $PARSE.! +! V03-019 JWT0148 JIM TEAGUE 20-DEC-19835! ADD A JNL XAB ERROR FOR CONFLICTING 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-19836! ADD RMS$_FILEPURGED; ADD RMS$_ACPEOF FOR ZALEWSKI.! 1! 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-19834! ADD XNF (REPLACING TEMP9), TMR (NEW), LWC (NEW).! 1! V03-014 KBT0497 KEIT; H B. THOMPSON 18-FEB-1983-! ADD INCOMPSHR ERROR (REUSE OF TEMP1 SLOT)! -! V03-013 RAS0120 RON SCHAEFER 2-FEB-19837! ADD ECHO PSEUDO-STATUS TO SUPPORT ECHO OF SYS$INPUT! TO SYS$OUTPUT.! /! V03-012 JWH0174 JEFFRY W. HORN 24-JAN-1983! ADD CQE AND COP ERRORS.! 1! V03-011 KPL0006 PETER LIEBERWIRTH 7-JAN-1983*! ADD OK_RULK FOR RECOVERY UNIT SUPPORT.! ! ADD REENT ERROR FOR $RENAME.! 0! V03-009 JWH0153 JEFFREY W. HORN 8-DEC-1982! ADD NRU ERROR.! < 0! V03-008 JWH0152 JEFFREY W. HORN 8-DEC-1982! ADD JNS ERROR.! 1! V03-007 MCN0002 MARIA DEL C. NASR 15-NOV-19827! REPLACE ORD ERROR CODE ELIMINATED BY MCN0001, SINCE#! THE NETWORK CODE REFERENCES IT.! 1! V03-006 MCN0001 MARIA DEL C. NASR 26-OCT-19828! PRINT KEY OF REFERENCE OR AREA IDENTIFICATION NUMBER5! INSTEAD OF XAB ADDRESS FOR ERRORS RETURNED DURING8! INDEXED FILE CREATION. ALSO RENAME ALL UNUSED ERROR! CODES TO TEMP.! 0! V03-005 JWH0102 JEFFREY W.= HORN 24-SEP-1982! ADD RUP ERROR.! -! V03-004 RAS0095 RON SCHAEFER 7-SEP-1982! ADD OVRDSKQUOTA ERROR.! 0! V03-002 JWH0002 JEFFREY W. HORN 26-JUL-1982,! CONVERT TO .MSG FORMAT. ADD RUM ERROR.! 0! V03-001 JWH0001 JEFFREY W. HORN 20-JUL-1982!! ADD JNF, JOP, AND NOJ ERRORS.! 1! V02-042 KPL0005 PETER LIEBERWIRTH 4-FEB-19825! ADD ERROR MESSAGES RMS$_EXENQLM AND RMS$_DEADLOCK! CORRECTLY.! +! V02-041 CDS0001 C D SAETHER 24-JAN-1982! ADD GBC AND CR> MP 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.! /! V02-038 LJA0001 LAURIE ANDERSON 20-DEC-1981*! MODIFIED SOME MESSAGES TO READ BETTER.! *! V02-037 JAK0063 J A KRYCKA 31-AUG-1981! ADD CRE_STM SUCCESS CODE.! 1! V02-036 KPL0004 PETER LIEBERWIRTH 13-JAN-1981@! ADD ENQ SEVERE ERROR MESSAGE, TO INDICATE $ENQ/$DEQ FA? ILURE..! ALSO ADD SUCCESS CODES OK_RRL, AND OK_WAT.! *! V02-035 REFORMAT J A KRYCKA 30-JUL-1980! ! --& PARAMETER RMS$_FACILITY = '00000001'XA PARAMETER RMS$V_STVSTATUS = '0000000E'X ! MOVE TO BIT 14 OF THE! STATUS CODE IT INDICATES ! THAT STV CONTAINS A SECONDARY! STATUS CODE.! 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 RECEIVE @ S 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'X@! (BECAUSE LOCKER SET RLK IN ROP FIELD WHEN 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 A! (BUT IT MAY NOT BE ACCESSIBLE VIA ONE-OR-MORE SECONDARY KEYS,A! 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 = '00018049'X$ PARAMETER RMS$_OK_LIM = '00018051'X$ PARAMETER RMS$_OK_NOP = '00018059'X$ PARAMETER RMS$_OK_WAT = '00018061'X9! (BECAUSE WAT BIT IN ROP WAS SET AND RECORD WAS ALREADY ! LOCKED.)% PARAMETER RMS$_CRE_STB M = '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! ! -L PARAMETER RMS$_CONTROLC = '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% PARAMC ETER 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!! CREATE 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 = D '000181A8'X! PARAMETER RMS$_TMO = '000181B0'X! PARAMETER RMS$_TNS = '000181B8'X! PARAMETER RMS$_BES = '000181C0'X! PARAMETER RMS$_PES = '000181C8'X! +! H! ERROR CODES - WITHOUT 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$_ACT = '0001825A'X! PARAMETER RMS$_DEL = '00018262'X' PARAMETER RMS$_INCOMPSHR = '0001826A'X! PARAMETER RMS$_DNR = '00018272'X! PARAMETER RMS$_EOF = '0001827E A'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'X4! (RECORD 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 F RMS CANNOT3! MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.);! (NOTE ALSO THAT SUP SHOULD HAVE BEEN DEFINED AS A SEVERE8! ERROR CODE. HOWEVER, SUPPORT IS A SEVERE ERROR CODE.)! PARAMETER RMS$_RSA = '000182DA'X! PARAMETER RMS$_CRC = '000182E2'X! 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 RMSG $_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& PARAMETER 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' PARAMETERH 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'X8! IF EXACT KEY MATCH ON SECONDARY KEY AND SECONDARY KEY5! ENTRY POINTS TO NONEXISTENT PRIMARY DATA RECORD IN ! DISK FILE.! +! Y! ERROR CODES - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE)! ! -! BIT 16 = BIT 15 = BIT 14 = 1! PARI AMETER RMS$_ACC = '0001C002'X! PARAMETER RMS$_CRE = '0001C00A'X! PARAMETER RMS$_DAC = '0001C012'X! PARAMETER RMS$_ENT = '0001C01A'X! PARAMETER RMS$_EXT = '0001C022'X! 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 = 'J 0001C06A'X( PARAMETER RMS$_WRTJNL_RUJ = '0001C072'X! PARAMETER RMS$_RRF = '0001C07A'X& PARAMETER RMS$_DDTM_ERR = '0001C082'X! +! O! SEVERE ERROR CODES - WITHOUT 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! PARAMET K ER RMS$_AOP = '00018414'X! PARAMETER RMS$_BKS = '0001841C'X! PARAMETER RMS$_BKZ = '00018424'X! PARAMETER RMS$_BLN = '0001842C'X! PARAMETER RMS$_BUG = '00018434'X% 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 RL MS$_BUG_XX6 = '00018474'X% PARAMETER RMS$_BUG_XX7 = '0001847C'X% PARAMETER RMS$_BUG_XX8 = '00018484'X" PARAMETER RMS$_BUSY = '0001848C'X! PARAMETER RMS$_CCR = '00018494'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! PM ARAMETER RMS$_DTP = '000184E4'X! PARAMETER RMS$_DUP = '000184EC'X! PARAMETER RMS$_DVI = '000184F4'X! PARAMETER RMS$_ESA = '000184FC'X! PARAMETER RMS$_ESS = '00018504'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! PARN AMETER RMS$_IAN = '00018554'X! PARAMETER RMS$_IDX = '0001855C'X! PARAMETER RMS$_IFI = '00018564'X! PARAMETER RMS$_IMX = '0001856C'X! PARAMETER RMS$_IOP = '00018574'X! 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$ PO ARAMETER RMS$_DTFCVT = '000185C4'X! PARAMETER RMS$_MRN = '000185CC'X! PARAMETER RMS$_MRS = '000185D4'X! PARAMETER RMS$_NAM = '000185DC'X! PARAMETER RMS$_NEF = '000185E4'X' PARAMETER RMS$_DTFQUASYN = '000185EC'X! PARAMETER RMS$_NOD = '000185F4'X! PARAMETER RMS$_NPK = '000185FC'X7 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' PARAMETERP RMS$_DTFQUAVAL = '0001862C'X! PARAMETER RMS$_QUO = '00018634'X! PARAMETER RMS$_RAB = '0001863C'X! PARAMETER RMS$_RAC = '00018644'X! PARAMETER RMS$_RAT = '0001864C'X! 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! PARAMQ ETER RMS$_RST = '0001869C'X! PARAMETER RMS$_RSZ = '000186A4'X! PARAMETER RMS$_SEQ = '000186AC'X! PARAMETER RMS$_SHR = '000186B4'X! PARAMETER RMS$_SIZ = '000186BC'X! 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! P R ARAMETER RMS$_XAB = '0001870C'X! PARAMETER RMS$_ESL = '00018714'X' PARAMETER RMS$_DTFSESTER = '0001871C'X! PARAMETER RMS$_ENV = '00018724'X! PARAMETER RMS$_PLV = '0001872C'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 CANNOT3! MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)! PARAMETER RMS$_IBF = '00018754'X! PARAMETER RMS$_REF = '000S 1875C'X! PARAMETER RMS$_IFL = '00018764'X! PARAMETER RMS$_DFL = '0001876C'X! PARAMETER RMS$_KNM = '00018774'X! PARAMETER RMS$_IBK = '0001877C'X! PARAMETER RMS$_KSI = '00018784'X! PARAMETER RMS$_LEX = '0001878C'X! PARAMETER RMS$_SEG = '00018794'X7 PARAMETER RMS$_SNE = '0001879C'X ! ! NOT USED AS OF V47 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 T = '000187C4'X! PARAMETER RMS$_GBC = '000187CC'X& PARAMETER RMS$_DEADLOCK = '000187D4'X% PARAMETER RMS$_EXENQLM = '000187DC'X! PARAMETER RMS$_JOP = '000187E4'X! PARAMETER 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! G! DTFACC AND DTFCRE WU ERE ORIGINALLY INCLUDED IN THIS FATAL SEVERITY D! (NO STV) GROUPING. IN ORDER TO CHANGE THEIR SEVERITY TO ERROR D! (NO STV) AND RETAIN THE SAME MESSAGE CODE VALUE, THE FOLLOWING C! SHIFTS IN SEVERITY FROM FATAL TO ERROR AND THEN BACK AGAIN AREG! 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 14V = 0& PARAMETER RMS$_BOGUSCOL = '0001882C'X( PARAMETER RMS$_ERRREADCOL = '00018834'X) PARAMETER RMS$_ERRWRITECOL = '0001883C'X! PARAMETER RMS$_SNS = '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# PW ARAMETER RMS$_SNPPF = '0001886C'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'XX ! 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 RY MS$_ACC_BIJ = '0001C17C'X% PARAMETER RMS$_ACC_ATJ = '0001C184'X' PARAMETER RMS$_DTFDEFFIL = '0001C18C'X' PARAMETER RMS$_DTFREGFIL = '0001C194'X( PARAMETER RMS$_JNLNOTAUTH = '0001C19C'XCDEC$ END OPTIONSww r0!*** MODULE $RNHBLKDEF ***CDEC$ OPTIONS /NOALIGN= 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 link2 INTEGER*4Z RNHBLK$L_HANDLER ! handler address" INTEGER*4 %FILL ! reserved0 INTEGER*4 RNHBLK$L_ARGCNT ! argument count: INTEGER*4 RNHBLK$L_EVENT ! address of the event code END STRUCTURE ! RNHBLKDEFCDEC$ END OPTIONS ww0!*** MODULE $RSDMDEF ***CDEC$ OPTIONS /NOALIGNE PARAMETER RSDM$_JOIN_SYSTEM = '00000001'X ! System RD Join functionO PARAMETER RSDM$_JOIN_DEFAULT = '00000002'X ! Process default RD Join functionD PARAMETER RSDM$_JOIN_DOMAIN = '00000003'X[ ! Other RD Join function9 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 = 16 PARAMETER RSDM$V_READ = 0 ! Read access' PARAMETER RSDM$S_WRITE = 18 PARAMETER RSDM$V_WRITE = 1 ! Write access& PARAMETER RSDM$S_LOCK = 16 PARAMETER RSDM$V_LOCK = 2 ! Lock access BYTE %FILL (1) END MAP END UNION END MAP END UNION END STRUCTURE ! RSDMBITSCDEC$ END OPTIONS wwM0!*** MODULE $SBKDEF ***CDEC$ OPTIONS /NOALIGN! +] ! H! Statistics block. This block is used to report various data regarding*! an open file to the requesting program.! ! -! K! 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? INTEGER*4 SBK$L_STLBN ! starting LBN if contiguous  END MAP MAP9 INTEGER^ *2 SBK$W_STLBNH ! high order word 8 INTEGER*2 SBK$W_STLBNL ! low order word  END MAP END UNION UNION MAP0 INTEGER*4 SBK$L_FILESIZE ! file size  END MAP MAP: INTEGER*2 SBK$W_FILESIZH ! high order word 9 INTEGER*2 SBK$W_FILESIZL ! low order word ! 8! The following two fields are for RSX-11 compatibility!  END MAP END UNION8 BYTE SBK$B_ACNT ! low byte of acc _ ess count 6 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 3 INTEGER*2 SBK$W_TCNT ! truncate lock count C INTEGER*4 SBK$L_READS ! count of reads executed on channel E INTEGER*4 SBK$L_WRITES ! count of writes executed on c` hannel  END STRUCTURE ! SBKDEFCDEC$ END OPTIONS ww !*** MODULE $SCRDEF ***CDEC$ OPTIONS /NOALIGN ! 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 = '00000002'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 a = '00000005'X ! SCR$DOWN_SCROLL > PARAMETER SCR$C_SCREEN_INFO = '00000006'X ! SCR$SCREEN_INFO 8 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_SCROLL = '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 SCRb $M_BLINK = '00000004'X( PARAMETER SCR$M_UNDERLINE = '00000008'X4 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_REVERSE = 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 c  END STRUCTURE ! SCRDEF! 8! 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 SCR$M_EDIT = '00000020'X% PARAMETER SCR$M_DECCRT = '00000040'XF PARAMETER SCR$K_LENGTH = '00000014'X ! LENGTH OF INFO RETURN BUFFER F PARAMETER SCR$C_LENGTH = '00000014'X ! LENGTH OF INFO RETURN BUFFER d  STRUCTURE /SCRDEF1/ UNION MAP3 INTEGER*4 SCR$L_FLAGS ! FLAGS LONGWORD  END MAP MAP' PARAMETER SCR$S_SCREEN = 1O PARAMETER SCR$V_SCREEN = 0 ! 1 = SCREEN ORIENTED, 0 = SCROLLING ( PARAMETER SCR$S_ANSICRT = 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? e PARAMETER SCR$V_BLOCK = 3 ! BLOCK MODE TERMINAL $ PARAMETER SCR$S_AVO = 1B PARAMETER SCR$V_AVO = 4 ! ADVANCED VIDEO TERMINAL % PARAMETER SCR$S_EDIT = 1G PARAMETER SCR$V_EDIT = 5 ! TERMINAL HAS EDIT CAPABILITY ' PARAMETER SCR$S_DECCRT = 1B PARAMETER SCR$V_DECCRT = 6 ! TERMINAL IS A DEC CRT  BYTE %FILL (1) END MAP END UNION3 INTEGER*2 SCR$W_WIDTH ! WIDTH OF EACH LINE f 2 INTEGER*2 SCR$W_PAGESIZE ! LINES IN SCREEN ; BYTE SCR$B_DEVTYPE ! DEVICE TYPE (SEE $DCDEF) + BYTE %FILL(1:11) ! (RESERVED)  END STRUCTURE ! SCRDEF1CDEC$ END OPTIONSww0!*** MODULE $SDDEF ***CDEC$ OPTIONS /NOALIGN! ! item codes for sd$xxx calls! M PARAMETER SD$_MAJOR_ID = '00000001'X ! longword (major ODS version number)M PARAMETER SD$_MINOR_ID = '00000002'X ! longword (minor ODS version number)H PARAMETER SD$_POOL_ID =g '00000003'X ! UID (16 bytes) (Pool identifier)Y PARAMETER SD$_CREATION_DATE = '00000004'X ! Date/time (8 bytes) (Date pool was created)i PARAMETER SD$_MODIFIED_DATE = '00000005'X ! Date/time (8 bytes) (Date pool membership was last changed)Y PARAMETER SD$_SEGMENT_SIZE = '00000006'X ! longword (Size of segment in pool # blocks)W PARAMETER SD$_MAX_UNITS = '00000007'X ! longword (Maximum # members allowed in pool)Z PARAMETER SD$_UNIT_COUNT = '00000008'X ! longword (Number of members cuh rrently in pool)C PARAMETER SD$_POOL_OPTIONS = '00000009'X ! longword (Pool flags)S PARAMETER SD$_UNIT_ID = '0000000A'X ! UID (16 bytes) (Identifier of storage unit)K PARAMETER SD$_UNIT_NUMBER = '0000000B'X ! longword (Storage unit number)K PARAMETER SD$_UNIT_OPTIONS = '0000000C'X ! longword (Storage unit flags)U PARAMETER SD$_SEQUENCE_NUMBER = '0000000D'X ! longword (Homeblock sequence number)Y PARAMETER SD$_HIGHEST_UNIT = '0000000E'X ! longword (Number of highest member in pooli )W PARAMETER SD$_LOWEST_UNIT = '0000000F'X ! longword (Number of lowest member in pool)U PARAMETER SD$_TOTAL_SEGMENTS = '00000010'X ! longword (Total # of segment in pool)Z PARAMETER SD$_FREE_SEGMENTS = '00000011'X ! longword (Total # of free segments in pool)\ PARAMETER SD$_MAX_FAMILY = '00000012'X ! longword (Maximum # of families allowed in pool)R PARAMETER SD$_MAX_DISK = '00000013'X ! longword (Maximum # members in a family)S PARAMETER SD$_META_LBN = '00000014'X ! longword (Stj art of SD metadata on member)S PARAMETER SD$_META_SIZE = '00000015'X ! longword (Size of SD metadata on member)R PARAMETER SD$_DATA_LBN = '00000016'X ! longword (Start of pool space on member)R PARAMETER SD$_DATA_SIZE = '00000017'X ! longword (Size of pool space on member)R PARAMETER SD$_POOL_DEVICE = '00000018'X ! character string (Name of pool device)V PARAMETER SD$_FAMILY_NUMBER = '00000019'X ! longword (Familiy number of a SnapDisk)\ PARAMETER SD$_MEMBER_NUMBER = '0000001A'X ! lok ngword (Number within family of a SnapDisk)Q PARAMETER SD$_DISK_NAME = '0000001B'X ! character string (Name of SnapDisk)U PARAMETER SD$_DISK_CAPACITY = '0000001C'X ! longword (Size/capacity of a SnapDisk)j PARAMETER SD$_DELSPACE = '0000001D'X ! longword (# segments that can be recovered by deleting SnapDisk)e PARAMETER SD$_DISK_DEVICE = '0000001E'X ! character string (Name of device as bound to OpenVMS)j PARAMETER SD$_BACKUP_DATE = '0000001F'X ! Date/time (8 bytes) (Date that rl ecorded snap was last created)S PARAMETER SD$_READS = '00000020'X ! longword (Number of read received from user)V PARAMETER SD$_WRITES = '00000021'X ! longword (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)a PARAMETm ER SD$_DISK_WRITES = '00000025'X ! longword (Number of writes to underlying pool units)X PARAMETER SD$_COPY_OUTS = '00000026'X ! longword (Number of copy-on-write operations)h PARAMETER SD$_CONVERT_CANCELS = '00000027'X ! longword (Number of cancelled lock requests)o PARAMETER SD$_POOL_FULL_STALLS = '00000028'X ! longword (NUmber of requests stalled by pool full)/ PARAMETER SD$_SPARE1 = '00000029'X ! longword/ PARAMETER SD$_SPARE2 = '0000002A'X ! longword/ PAR n AMETER SD$_SPARE3 = '0000002B'X ! longword/ PARAMETER SD$_SPARE4 = '0000002C'X ! longword/ PARAMETER SD$_SPARE5 = '0000002D'X ! longword/ PARAMETER SD$_SPARE6 = '0000002E'X ! longword/ PARAMETER SD$_SPARE7 = '0000002F'X ! longword/ PARAMETER SD$_SPARE8 = '00000030'X ! longwordO PARAMETER SD$_COPY_STATS = '00000031'X ! Array of SD$K_COPYCOUNTERS longwordsh PARAMETER SD$_DEV_LOCKID = '00000032'X ! longword (LockId of device name consistancy lock)e PARAMETER SD$_UID_LOCo KID = '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! E! Define structures used by QIO interface to p SD management functions! ! ++! Device list! 5! This structure is used to pass information between6! the runtime library, the FDT routines and the start! I/O routines! -- STRUCTURE /SDDEVLIST/< INTEGER*4 sd$l_start_lbn ! Starting LBN of data space4 INTEGER*4 sd$l_lbn_count ! Size of data space? INTEGER*4 sd$l_meta_lbn ! Location of SnapDisk metadata8 INTEGER*4 sd$l_meta_count ! Size of metadata area. INTEGER*4 sd$ps_ucb ! UCB of pool unitq 9 INTEGER*4 sd$l_name_length ! Length of device name0 CHARACTER*1 sd$t_name(1:64) ! Device name END STRUCTURE ! SDDEVLIST! =! SD Parameter list - This is used to pass Snapshot Services9! 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 STRUCTUREr /SDPARAMLIST/ UNION MAPG 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 MAP6 INTEGER*4 sd$l_flags ! Miscellaneous flags END MAP MAP% PARAMETER sd$S_stall = 1A PARAMETER sd$V_stall = 0 ! Stall/Fail on pool full) PARAMETER sd$S_redundan s t = 1R PARAMETER sd$V_redundant = 1 ! Use redundancy for SnapDisk metadata& PARAMETER sd$S_record = 1H PARAMETER sd$V_record = 2 ! Record snapshot creation time' PARAMETER sd$S_cluster = 1E PARAMETER sd$V_cluster = 3 ! Operation is cluster-wide' PARAMETER sd$S_partial = 1@ PARAMETER sd$V_partial = 4 ! Partial bind on pool BYTE %FILL (1) END MAP END UNION END STRUCTURE ! St DPARAMLIST! 1! 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-u PARAMETER SD$K_SET_TRACE_LEVEL = '0000000B'X- PARAMETER SD$K_GET_TRACE_LEVEL = '0000000C'X! 5! Define Snapshot Services runtime library functions! ! ! ++! ! ROUTINE:! &! sd$add_units POOL_DEVICE, UNIT_LIST! ! FUNCTIONAL DESCRIPTION: ! ! Runtime library routine3! Add additional storage units to an existing pool<! This function takes care of all the creation of container0! files etc. for the storage units being added.! ! FORMAL PARAMETERS:! 3! POOL_DEv VICE (IN) : Name of device to add members7! UNIT_LIST (IN) : Item List 3 containing Device listN! FLAGS (IN) : Indicates temporary or permanent pool member! ! ! PRE-CONDITIONS:! 9! 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.E! All current and new members are stamped with a new membership list! ! RETURN VALUE:! ! Various statuses! ! --! w  INTEGER*4 sd$add_units EXTERNAL sd$add_units! ! ++! ! ROUTINE:! :! sd$bind_disk DISK_DEVICE, POOL_DEVICE, DISK_NAME, FLAGS! ! FUNCTIONAL DESCRIPTION: ! ! Runtime library routine9! Export a SnappyDisk from the pool as an OpenVMS device! ! FORMAL PARAMETERS:! 3! DISK_DEVICE (IN) : Name of disk device to create0! POOL_DEVICE (IN) : Name of pool device to use5! DISK_NAME (IN) : Name of disk to export from pool,! FLAGS (IN) : Optional flags SD$M_CLUSTERx ! ! PRE-CONDITIONS:! ! The pool must be bound..! The SnappyDisk name must exist in the pool.K! The SnappyDisk must not be bound to a device on another computer in the ! cluster.G! Another SnappyDisk must not be bound to the specified device on any ! computer in the cluster.! ! POST-CONDITIONS:! 1! The SnappyDisk is exposed as an OpenVMS device! ! RETURN VALUE:! ! Various statuses! ! --!  INTEGER*4 sd$bind_disk EXTERNAL sd$bind_disk! ! ++y ! ! ROUTINE:! -! sd$bind_pool POOL_DEVICE, UNIT_LIST, FLAGS! ! FUNCTIONAL DESCRIPTION: ! ! Runtime library routine5! 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_CLUSTERz ! ! PRE-CONDITIONS:! 9! The storage units must be mounted as Files-11 devices.E! The storage units must have been previously used to create a pool.F! The list of storage units must not include storage units in another! pool.E! 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_p{ ool EXTERNAL sd$bind_pool! ! ++! ! ROUTINE:! 7! sd$create_disk POOL_DEVICE, DISK_NAME, DISK_CAPACITY! ! FUNCTIONAL DESCRIPTION: ! ! Runtime library routine ! Create a SnappyDisk in a pool! ! FORMAL PARAMETERS:! 0! POOL_DEVICE (IN) : Name of pool device to use1! 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.J! 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:! 3! sd$create_pool UNIT_LIST, SEGMENT_SIZE, FLAGS! ! FUNCTIONAL DESCRIPTION: ! -! Create a pool from a set of storage units.<! Thi} s function takes care of all the creation of container@! files and driver loading that needs to be done before calling! the IO$_BIND function.! ! FORMAL PARAMETERS:! A! UNIT_LIST (IN) : Item list 3 containing list of storage units8! SEGMENT_SIZE (IN) : Size of segments in pool (blocks)5! FLAGS (IN) : Optional flags SD$M_STALL, SD$M_FAIL! ! PRE-CONDITIONS:! I! The storage units must be initialised and mounted as Files-11 devices.F! The list of storage units must not ~ include storage units in another! pool.E! 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 DESCRI PTION: ! ! Runtime library routine*! Create a snap of an existing SnappyDisk! ! FORMAL PARAMETERS:! 0! POOL_DEVICE (IN) : Name of pool device to use?! DISK_DEVICE (IN) : Name of SnappyDisk device to use as basis! for snap1! DISK_NAME (IN) : Name of SnappyDisk to create5! FLAGS (IN) : Should we record time snap was taken4! for incremental backup purposes, SD$M_RECORD! ! PRE-CONDITIONS:! ! The pool must be bound7! The original SnappyDisk must be e xported as a device! ! POST-CONDITIONS:! J! A new SnappyDisk is created in the pool. That SnappyDisk will be a snap4! 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:! 0!  POOL_DEVICE (IN) : Name of pool device to use1! DISK_NAME (IN) : Name of SnappyDisk to delete! ! PRE-CONDITIONS:! ! The pool must be bound-! The SnappyDisk name must exist in the poolK! 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. B! If the members are successfully removed, the metadata files are! removed from the devices.! ! FORMAL PARAMETERS:! 6! POOL_DEVICE (IN) : Name of device to remove membersA! UNIT_LIST (IN) : Item list 3 containing list of storage units! ! PRE-CONDITIONS:! @! The list of storage units must be part of the specified pool.H! The pool must contain enough free space to allow data on the outgoingA! storage units to be copied to other storage units in the pool.E! The list of storage units must not be the complete set of units in ! the pool.! ! POST-CONDITIONS:! 6! 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:! 1! VIRTUAL_DEVICE (IN) : Name of device to unbind,! FLAGS (IN) : Optional flags SD$M_CLUSTER! ! PRE-CONDITIONS:! K! The pool or SnappyDisk must be bound to the device on the local computer! ! POST-CONDITIONS:! 4! The pool or SnappyDisk is unbound from the device! ! RETURN VALUE:! ! Various statuses! ! --!  INTEGER*4 sd$unbind EXT ERNAL sd$unbind! ! ++! ! ROUTINE:! "! sd$get_disk DISK_DEVICE, ITMLST! ! FUNCTIONAL DESCRIPTION: ! ! Runtime library routine*! Get information about an exported disk.8! 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:! /! 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 accessible4! SS$_BADPARAM - One or more item codes are invalid@! SS$_IVBUFLEN - one or m ore buffer lengths are invalid2! SS$_IVDEVNAM - ucb is not that of a pool member5! SS$_NOTBOUND - the member is not bound into a pool1! 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 information8! The information is returned using a standard OpenVMS! itemlist mechanism..! NO TE: 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 returned4! SS$_BADPARAM - One or more item codes are invalid@! SS$_IVBUFLEN - One or more buffer lengths are invalid1! 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 routine1! Routine to setup context to read SnapDisk pool!! parameters from a pool device.! ! FORMAL PARAMETERS:! 2! POOL_DEVICE (IN) : Name of pool device to query3! POOL_CONTEXT (IN) : Address of context to return! ! PRE-CONDITIONS:! ! The pool device must exist! ! POST-CONDITIONS:! @! A context is setup to allow sd$get_pool and sd$get_pooldevice.! to be c alled 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 routineI! Routine to return the information for the next SnappyDisk in the pool.! ! For example:! 7! status = sd$get_pool_begin(raw_device, context)! while (success(status))1! 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_beg in! ! 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 routine3! Routine to tidy up the context associated with a! sd$get_pool_begin.! ! FORMAL PARAMETERS:! 3! POOL_CONTEXT (IN) : A ddress 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:! 7! status = sd$get_pool_begin(raw_device, context)! while (success(status))6! status = sd$get_pool_unit(context, unit_device) ! status = sd$get_pool_end! ! FORMAL PARAMETERS:! )! POOL_CONTEXT (IN) : Address of context6! NEXT_UNIT (OUT) : Address of descriptor to return! ! PRE-CONDITIONS:! :! A context must have been started with sd$get_pool_b egin! ! POST-CONDITIONS:! ! The next member is returned! ! RETURN VALUE:! $! SS$_NORMAL - Next member returned"! SS$_NOMOREDEV - No more devices!! SS$_BADPARAM - Invalid context1! 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 routine3! Routine to setup context to r ead SnappyDisk pool>! parameters from a raw (mounted but not bound) storage unit.! ! FORMAL PARAMETERS:! 3! UNIT_DEVICE (IN) : Name of storage unit to query3! UNIT_CONTEXT (IN) : Address of context to return! ! PRE-CONDITIONS:! 2! The member device must be mounted but not bound! ! POST-CONDITIONS:! D! 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:! ! Vario us statuses! ! --!  INTEGER*4 sd$get_raw_begin EXTERNAL sd$get_raw_begin! ! ++! ! ROUTINE:! ! sd$get_raw_end UNIT_CONTEXT! ! FUNCTIONAL DESCRIPTION: ! ! Runtime library routine3! Routine to tidy up the context associated with a! sd$get_raw_begin.! ! FORMAL PARAMETERS:! )! UNIT_CONTEXT (IN) : Address of context! ! PRE-CONDITIONS:! 9! 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 return4! all the members in the pool making up the device.! For example:! 6! status = sd$get_raw_begin(raw_ device, context)! while (success(status))5! status = sd$get_raw_next(context, unit_device)! status = sd$get_raw_end! ! FORMAL PARAMETERS:! )! UNIT_CONTEXT (IN) : Address of context5! NEXT_UNIT(OUT) : Address of descriptor to return! ! PRE-CONDITIONS:! 9! 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 mo re 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 member8! 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:! 9! A context must have been started with sd$get_raw_begin! ! POST-CONDITIONS:! (! The i nformation requested is returned! ! RETURN VALUE:! $! SS$_NORMAL - Next member returned4! SS$_BADPARAM - One or more item codes are invalid@! 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 routine7! Get monitor-type runtime statistics on a system-wide! or per-pool basis.! < ! If POOL_DEVICE is NULL, this call returns the system-wide9! statistics otherwise it returns the statistics for the! specified pool.! 8! 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 devic e name+! ITMLST (IN) : Address of items to return! ! PRE-CONDITIONS:! 4! The SnappyDisk driver must be loaded and enabled.F! 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 accessible4! SS$_BADPARAM - One or more item codes are invalid@! SS$_IVBUFLEN - one or more buffer l engths are invalid-! SS$_IVDEVNAM - Device is not a pool device&! SS$_NOSUCHDEV - No such pool device1! 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 member8! 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:! 4! The storage unit must exist on the local computer! ! POST-CONDITIONS:! (! The information req uested is returned! ! RETURN VALUE:! $! SS$_NORMAL - Member info returned)! SS$_ACCVIO - Parameters not accessible4! SS$_BADPARAM - One or more item codes are invalid@! SS$_IVBUFLEN - one or more buffer lengths are invalid2! SS$_IVDEVNAM - ucb is not that of a pool member5! SS$_NOTBOUND - the member is not bound into a pool1! SS$_SDDISABLED - Snap-capable disk not loaded! --!  INTEGER*4 sd$get_unit EXTERNAL sd$get_unitCDEC$ END OPTIONS wwm !*** MODULE $SDFDEF ***CDEC$ OPTIONS /NOALIGN! ! 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 UNION5 BYTE SDF$B_DATYP ! Maps over GSY$B_DATYP 5 INTEGER*2 SDF$W_F LAGS ! Maps over GSY$W_FLAGS 4 BYTE SDF$B_PSINDX ! Owning psect number / INTEGER*4 SDF$L_VALUE ! Value of symbol / BYTE SDF$B_NAMLNG ! Length of name - CHARACTER*31 SDF$T_NAME ! Symbol name  END STRUCTURE ! SDFDEFCDEC$ END OPTIONS ww 2!*** MODULE $SDFMDEF ***CDEC$ OPTIONS /NOALIGN! -! Symbol definition for version mask symbols! $ PARAMETER SDFM$K_NAME = '0000000E'X$ PARAMETER SDFM$C_NAME = '0000000E'X STRUCTURE /SD FMDEF/ 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 UNION6 BYTE SDFM$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 SDFM$W_FLAGS ! Maps over GSY$W_FLAGS 5 BYTE SDFM$B_PSINDX ! Owning psect number 0 INTEGER*4 SDFM$L_VALUE ! Value of symbol 5 INTEGER*4 SDFM$L_VERSION_MASK !  Mask for symbol0 BYTE SDFM$B_NAMLNG ! Length of name - CHARACTER*31 SDFM$T_NAME ! Symbol name  END STRUCTURE ! SDFMDEFCDEC$ END OPTIONS ww!*** MODULE $SDFVDEF ***CDEC$ OPTIONS /NOALIGN! )! 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 M AP8 ! unsupported type CHARACTER*0 SDFV$T_START BYTE %FILL END MAP END UNION6 BYTE SDFV$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 SDFV$W_FLAGS ! Maps over GSY$W_FLAGS 5 BYTE SDFV$B_PSINDX ! Owning psect number 0 INTEGER*4 SDFV$L_VALUE ! Value of symbol 9 INTEGER*4 SDFV$L_VECTOR ! Vectored value of symbol0 BYTE SDFV$B_NAMLNG ! Length of name - CHARACTER*31 SDFV$T_NAME ! Symbol name  END STRUCTURE ! SDFVDEFCDEC$ END OPTIONS wwM?!*** MODULE $SDFWDEF ***CDEC$ OPTIONS /NOALIGN! -! 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 E ND UNION6 BYTE SDFW$B_DATYP ! Maps over GSY$B_DATYP 6 INTEGER*2 SDFW$W_FLAGS ! Maps over GSY$W_FLAGS 5 INTEGER*2 SDFW$W_PSINDX ! Owning psect number 0 INTEGER*4 SDFW$L_VALUE ! Value of symbol 0 BYTE SDFW$B_NAMLNG ! Length of name - CHARACTER*31 SDFW$T_NAME ! Symbol name  END STRUCTURE ! SDFWDEFCDEC$ END OPTIONS ww 0!*** MODULE $SECDEF ***CDEC$ OPTIONS /NOALIGN! +(! PROCESS OR GLOBAL SECTION DEFINITIONS! -!  I! ***** L_VBN, L_WINDOW, AND B_PFC MUST BE THE SAME OFFSET VALUES AS THE.! ***** EQUIVALENTLY NAMED OFFSETS IN $PFLDEF! " PARAMETER SEC$M_VPX = '003FFFFF'X" PARAMETER SEC$M_PFC = 'FF000000'X" 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_WRTMOD = '000000C0'X# PARAMETER SEC$M_AMOD = '00000300'X' PARAMETER SEC$M_RESIDENT = '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 STRUCTURE /SECDEF / UNION MAPC INTEGER*4 SEC$L_GSD ! GLOBAL SECTION DESCRIPTOR ADDRESS  END MAP MAPR INTEGER*4 SEC$L_CCB ! CHANNEL CONTROL BLOCK ADDRESS IF PROCESS SECTION  END MAP END UNION; INTEGER*2 SEC$W_SECXFL ! SECTION INDEX FORWARD LINK < INTEGER*2 SEC$W_SECXBL ! SECTION INDEX BACKWARD LINK UNION MAP@ INTEGER*4 SEC$L_VPXPFC ! START VIRT PAGE INDEX & PFC  END MAP MAP% PARAMETER SEC$S_VPX = 22F PARAMETER SEC$V_VPX = 0 ! STARTING VIRTUAL PAGE INDEX $ PARAMETER SEC$S_PFC = 8% PARAMETER SEC$V_PFC = 245 BYTE %FILL (4) ! PAGE FAULT CLUSTER  END MAP MAP! BYTE %FILL(1:3)8 BYTE SEC$B_PFC ! PAGE FAULT CLUSTER  END MAP END UNION5 INTEGER*4 SEC$L_WINDOW ! WINDOW CONTROL BLOCK 7 INTEGER*4 SEC$L_VBN ! BASE VIRTUAL BLOCK NUMB ER UNION MAP9 INTEGER*2 SEC$W_FLAGS ! VARIOUS CONTROL FLAGS  END MAP MAP$ PARAMETER SEC$S_GBL = 19 PARAMETER SEC$V_GBL = 0 ! GLOBAL SECTION $ PARAMETER SEC$S_CRF = 1< PARAMETER SEC$V_CRF = 1 ! COPY ON REFERENCE % PARAMETER SEC$S_DZRO = 16 PARAMETER SEC$V_DZRO = 2 ! DEMAND ZERO $ PARAMETER SEC$S_WRT = 13 PARAMETER SEC$V_WRT = 3 ! WRITABLE & PARAMETER SEC$S_SHMGS = 1H PARAMETER SEC$V_SHMGS = 4 ! SHARED MEMORY GLOBAL SECTION ' PARAMETER SEC$S_WRTMOD = 2J PARAMETER SEC$V_WRTMOD = 6 ! WRITE ACCESS MODE FOR SECTION % PARAMETER SEC$S_AMOD = 2A PARAMETER SEC$V_AMOD = 8 ! ACCESS MODE OF SECTION ) PARAMETER SEC$S_RESIDENT = 1> PARAMETER SEC$V_RESIDENT = 13 ! RESIDENT GLOBAL% PARAMETER SEC$S_PERM = 1= P ARAMETER SEC$V_PERM = 14 ! PERMANENT SECTION ' PARAMETER SEC$S_SYSGBL = 1Q PARAMETER SEC$V_SYSGBL = 15 ! 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL ! K! ***** THE FOLLOWING FLAGS ARE INDICATORS FOR $MGBLSC AND $CRMPSC SYSTEMF! ***** SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS WORD FIELD.! ' PARAMETER SEC$S_PFNMAP = 1C PARAMETER SEC$V_PFNMAP = 16 ! MAP TO SPECIFIC PFN'S ' PARAMETER SEC$S_EXPREG = 1O PARAM ETER SEC$V_EXPREG = 17 ! MAP INTO FIRST FREE ADDRESS SPACE ( PARAMETER SEC$S_PROTECT = 1O PARAMETER SEC$V_PROTECT = 18 ! CHECK WRITE ACCESS MODE (WRTMOD) ' PARAMETER SEC$S_PAGFIL = 1X PARAMETER SEC$V_PAGFIL = 19 ! GLOBAL SECTION HAS PAGE FILE BACKING STORE ( PARAMETER SEC$S_EXECUTE = 1F PARAMETER SEC$V_EXECUTE = 20 ! CHECK FOR EXECUTE ACCESS* PARAMETER SEC$S_NOPROTCHK = 1H PARAMETER SEC$V _NOPROTCHK = 21 ! INHIBIT PROTECTION CHECK+ PARAMETER SEC$S_NO_OVERMAP = 1M PARAMETER SEC$V_NO_OVERMAP = 22 ! DON'T OVERMAP ADDRESS SPACE ' PARAMETER SEC$S_INPROG = 1I PARAMETER SEC$V_INPROG = 23 ! Section creation in progress) PARAMETER SEC$S_PARANOID = 1D PARAMETER SEC$V_PARANOID = 24 ! Go into paranoia mode) PARAMETER SEC$S_GRANHINT = 1K PARAMETER SEC$V_GRANHINT = 25 ! AXP granula rity hint support BYTE %FILL (3) END MAP END UNION END STRUCTURE ! SECDEF: PARAMETER SEC$K_LENGTH = '00000020'X ! SIZE OF PSTE/GSTE : PARAMETER SEC$C_LENGTH = '00000020'X ! SIZE OF PSTE/GSTE ! +J PARAMETER SEC$K_MATALL = '00000000'X ! MATCH ALWAYS, USE GLOBAL SECTION I PARAMETER SEC$K_MATEQU = '00000001'X ! MATCH IF ISD$L_IDENT EQU GBL ID I PARAMETER SEC$K_MATLEQ = '00000002'X ! MATCH IF ISD$L_IDENT LEQ GBL ID  STRUCTURE /SECDEF1/ BYTE %FILL(1:2 1)5 BYTE SEC$B_AMOD ! ACCESS MODE OF SECTION INTEGER*2 %FILL ! SPARE H INTEGER*4 SEC$L_REFCNT ! COUNT OF PTE'S REFERENCING THIS SECTION < INTEGER*4 SEC$L_PAGCNT ! NO. OF PAGES IN THE SECTION ! 4! ***** NOTE THAT NUMBER OF LONG WORDS MUST BE EVEN! ! 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 section/ 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 numberCDEC$ END OPTIONS ww-0$!*** MODULE $SECSRVDEF IDENT X-8 ***CDEC$ OPTIONS /NOALIGN( PARAMETER SECSRV$K_SERVER = '00000001'X% PARAMETER SECSRV$K_CIA = '00000002'X' PARAMETER SECSRV$K_PR OXY = '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_SCAN_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_M APPING = '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 = '00000054'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*7 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 = -1762787327& PARAMETER SECSRV$OBJECT = -1762787326- PARAMETER SECSRV$COMMUNICATION = -1762787325CDEC$ END OPTIONS wwM׋ !*** MODULE $SECSRVMSGDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV- 1998 21:34:37.70! ! + SECSRVMSG.MSG! + IDENT X-13! #! MESSAGE FILE FOR SECSRV FACILITY! +! VAX AND AXP STREAMS SHOULD BE IDENTICAL.! ! REVISION HISTORY:D! X-13 JAH0298 JOHN A HARNEY 10-JUN-1998F! REMOVE "try again later" FROM PROXYNOTACTIVE MESSAGE.! .! X-12 JAH0166 JOHN A HARNEY 14-NOV-1994! FIX MORE MESSAGE TEXT.! +! X-11 JAH0166 JOHN A HARNEY 09-NOV-1994<! FIX MESSAGE TEXT AND SPELLING ERRORS AFTER REVIEW  BY THE! DOCUMENTATION GROUP. ! `! ** 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$_PROXYSHUTDO WN = '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- PARAMET ER 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 SECSRV$_BADLOCALUSERLEN = '06EEC69A'X, PARAMETER SECSRV$_PROXYACTIVE = '06EEC6A2'X/ PARAMETER SECSRV$_PROXYNOTACTIVE = '06EEC6AA'X* PARAMETER SECSRV$_NOPROXYDB = '06EEC6B2'X: PARAMETER SECSRV$_NOSUCHINTRUDER = '06EEC6BA'X ! NOMATCH6 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$_DASSGNFAILED = '06EEC6EA'X+ PAR AMETER 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'X3 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'XCDEC$ END OPTIONSwwmq!*** MODULE $SFDEF ***CDEC$ OPTIONS /NOALIGN! +9! Define stack frame offsets as a separate structure SF$! - PARAMETER SF$M_C = '00000001'X PARAMETER SF$M_V = '00000002'X PARAMETER SF$M_Z =  '00000004'X PARAMETER SF$M_N = '00000008'X" PARAMETER SF$M_TBIT = '00000010'X PARAMETER SF$M_IV = '00000020'X PARAMETER SF$M_FU = '00000040'X PARAMETER SF$M_DV = '00000080'X STRUCTURE /SFDEF/D INTEGER*4 SF$A_HANDLER ! Adr. of handler or 0 if no handler UNION MAP0 INTEGER*2 SF$W_SAVE_PSW ! saved PSW  END MAP MAP! PARAMETER SF$S_C = 1- PARAMETER SF$V_C = 0 ! carry ! PARAMETER SF$S_V = 10 PARAMETER SF$V_V = 1 ! overflow ! PARAMETER SF$S_Z = 1, PARAMETER SF$V_Z = 2 ! zero ! PARAMETER SF$S_N = 10 PARAMETER SF$V_N = 3 ! negative $ PARAMETER SF$S_TBIT = 1< PARAMETER SF$V_TBIT = 4 ! trace trap enable " PARAMETER SF$S_IV = 1@ PARAMETER SF$V_IV = 5 ! integer overflow enable " PARAMETER SF$S_FU = 1B PARAMETER SF$V_FU = 6 ! floating und erflow enable " PARAMETER SF$S_DV = 1" PARAMETER SF$V_DV = 7: BYTE %FILL (1) ! decimal overflow enable  END MAP END UNION UNION MAPE INTEGER*2 SF$W_SAVE_MASK ! saved register mask plus flags  END MAP MAP* PARAMETER SF$S_SAVE_MASK = 12A PARAMETER SF$V_SAVE_MASK = 0 ! register save mask % PARAMETER SF$S_CALLS = 16 PARAMETER SF$V_CALLS = 13 !  1 if CALLS ) PARAMETER SF$S_STACKOFFS = 2* PARAMETER SF$V_STACKOFFS = 14, BYTE %FILL (2) ! SP offset  END MAP END UNION* INTEGER*4 SF$L_SAVE_AP ! saved AP * INTEGER*4 SF$L_SAVE_FP ! saved FP * INTEGER*4 SF$L_SAVE_PC ! saved PC E INTEGER*4 SF$L_SAVE_REGS ! first register saved is saved here  END STRUCTURE ! SFDEFCDEC$ END OPTIONSwwM?!*** MODULE $SGPSDEF ***CDEC$ OPTIONS /NOALIGN ! 6! 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 MAP/ BYTE SGPS$B_GSDTYP ! Typ field  END MAP MAP8 ! unsupported type CHARACTER*0 SGPS$T_START BYTE %FILL END MAP END UNION1 BYTE SGPS$B_ALIGN ! P-sect alignment UNION MAP1 INTEGER*2 SGPS$W_FLAGS ! P-sect flags  END MAP MAP% PARAMETER SGPS$S_PIC = 1> PARAMETER SGPS$V_PIC = 0 ! Position independent % PARAMETER SGPS$S_LIB = 1@ PARAMETER SGPS$V_LIB = 1 ! From a shareable image % PARAMETER SGPS$S_OVR = 1D PARAMETER SGPS$V_OVR = 2 ! Overlaid memory allocation % PARAMETER SGPS$S_REL = 15 PARAMETER SGPS$V_REL = 3 ! Relocatable % PARAMETER SGPS$S_GBL = 16 PARAMETER SGPS$V_GBL = 4 ! Global scop e % PARAMETER SGPS$S_SHR = 13 PARAMETER SGPS$V_SHR = 5 ! Shareable % PARAMETER SGPS$S_EXE = 14 PARAMETER SGPS$V_EXE = 6 ! Executable $ PARAMETER SGPS$S_RD = 12 PARAMETER SGPS$V_RD = 7 ! Readable % PARAMETER SGPS$S_WRT = 13 PARAMETER SGPS$V_WRT = 8 ! Writeable % PARAMETER SGPS$S_VEC = 16 PARAMETER SGPS$V_VEC = 9 ! Vector psect ' PARAMETER SGPS$S_NOMO D = 1; PARAMETER SGPS$V_NOMOD = 10 ! Not stored into% PARAMETER SGPS$S_COM = 1B PARAMETER SGPS$V_COM = 11 ! Associated with COMM sym BYTE %FILL (2) END MAP END UNIONB INTEGER*4 SGPS$L_ALLOC ! Length of this psect in shr image ? INTEGER*4 SGPS$L_BASE ! Base of this psect in shr image 7 BYTE SGPS$B_NAMLNG ! Length of p-sect name , CHARACTER*31 SGPS$T_NAME ! Name field  END STRUCTURE ! SGPSDEFCDEC $ END OPTIONS wwm^> !*** MODULE $SHRDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:31:52.68! :! SHRMSG.MSG - SYSTEM DEFINITION FILE FOR SHARED MESSAGES! ! VERSION: 'X-9'! ! * *@! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1997, 1998 BY *B! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$! * ALL RIGHTS RESERVED. *! * *N! * THIS SOFTWARE IS FU RNISHED 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. *! * *! * *! ++! ,! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES! ! ABSTRACT:! =! THIS FILE CONTAINS THE MDL SOURCE FOR THE SHARED MESSAGES.! ! ENVIRONMENT:! ! N/A! !  --! ! 5! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976! ! MODIFIED BY:! +! 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-19918! ADD A MESSAGE BADFORMAT TO INDICATE A FILE FORMAT IS! INCOMPATIBLE.! -! X-6 SEH0021 SU SAN E. HEIMBACH 14-DEC-19893! ADD MESSAGE NOMEANING; TO BE USED FOR QUEMAN'S 6! START/QUEUE/MANAGER COMMAND'S OBSOLETE QUALIFIERS.*! ADD OPENERR AND CLOSEERR.! -! X-5 SEH0011 SUSAN E. HEIMBACH 09-DEC-19887! ADD MESSAGE NOTDELETED; TO BE USED BY QUEMAN DELETE ! COMMANDS.! #! X-4 RJS RON SOMMER 12-OCT_19879! ADD MESSAGE PRDCONT. COMMON LMF MESSAGE TO BE USED BY9! SYSTEM LAYERED PRODUCTS WHEN LICENSE CHECK HAS FAILED(! BUT PRODUCT EXECUTION IS CONTI NUING.! +! X-3 AEW0002 ANNE E. WARNER 08-DEC-19868! 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.! 1! V03-011 TSK0002 TAMAR KRICHEVSKY 28-MAR-1984! ADD NOSUCHID.! D! V03-010 AEW0001 ANNE E. WARNER 6-MAR-1984/! ADD FILSPCSRCH AND NOSRCHLIST.J! FILSPCSRCH - FILE SPECIFICATION CONTAINS A SE ARCH LIST.F! NOSRCHLST - COMMAND DOES NOT SUPPORT SEARCH LISTS.D! BOTH MESSAGES ORIGINALLY IN [CLIUTL.SRC]SETDIR.B32.! 0! V03-009 TSK0001 TAMAR KRICHEVSKY 8-FEB-1984! ADD QUALMISS.! 4! V03-008 SHZ0004 STEPHEN H. ZALEWSKI, 28-FEB-1983! CHANGED TEXT OF NOFILPURG.! 4! V03-007 SHZ0003 STEPHEN H. ZALEWSKI, 11-JAN-1983:! ADD FILNOTACC. MAKE DELINTERR AND DIRTOBUSY OBSOLETE.! 1! V03-006 SBL3006 STEVEN B. LIONEL, 19-NOV-1982! ADD NOFILE S.! 6! V03-005 MLJ0094 MARTIN L. JACK, 31-JUL-1982 23:18! ADD INVQUAVAL.! ;! V03-004 SHZ0002 STEPHEN H. ZALEWSKI, 23-JUL-1982 16:401! 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.! 6! V03-001 MLJ0084 MARTIN L. JACK, 28-MAR-1982 14:48+! CLEAN UP INITIAL CAPITALIZATION ERRORS.! F! THESE MESSAGE CODES SHOULD NOT BE U SED DIRECTLY BY A FACILITY SINCEC! THEY DO NOT CONTAIN A SUBSYSTEM (I.E., FACILITY) IDENTIFIER OR AI! SEVERITY CODE. USE THE FOLLOWING FORMULA TO CALCULATE ACTUAL FACILITY! MESSAGE CODES.0! 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 = '00 0010E8'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% PARAMETER SHR$_HIGHVER = '00001148'X( PARAMETER SHR$_BADL OGICPC = '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' P ARAMETER 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% PARAMETER SHR$_NOTTERM = '000012D8'X& PARAMETER SHR$_CONFQU AL = '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$_FI LFID = '000013A8'X' PARAMETER SHR$_FILDIDFID = '000013B0'X$ PARAMETER SHR$_NOFIDS = '000013B8'XCDEC$ END OPTIONSwwM0!*** MODULE $SJCDEF ***CDEC$ OPTIONS /NOALIGN! 8! Send to Job Controller Service ($SNDJBC) definitions.! U! NOTE: New items must always be added at the end so users will not have to relink.! ! ! Function codes! G PARAMETER SJC$_ABORT_JOB = '00000001'X ! Abort current job in a queueC PARAMETER SJC$_ADD_FILE = '00000002'X ! Add a fi le to an open jobD PARAMETER SJC$_ALTER_JOB = '00000003'X ! Alter parameters of a jobH PARAMETER SJC$_ALTER_QUEUE = '00000004'X ! Alter parameters of a queueZ PARAMETER SJC$_ASSIGN_QUEUE = '00000005'X ! Assign a logical queue to an execution queueW PARAMETER SJC$_BATCH_CHECKPOINT = '00000006'X ! Establish a checkpoint in a batch jobE PARAMETER SJC$_BATCH_SERVICE = '00000007'X ! LOGINOUT communicationJ PARAMETER SJC$_CLOSE_DELETE = '00000008'X ! Close and delete an open jobH PARAMETER S JC$_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 queueH PARAMETER SJC$_DEASSIGN_QUEUE = '0000000C'X ! Deassign a logical queueY PARAMETER SJC$_DEFINE_CHARACTERISTIC = '0000000D'X ! Create a characteristic definitionE PARAMETER SJC$_DEFINE_FORM = '0000000E'X ! Create a form definitionY PARAMETER SJC$_DELETE_CHARACTERISTIC = '0000000F'X ! Delete a characteristic d efinitionE PARAMETER SJC$_DELETE_FORM = '00000010'X ! Delete a form definition8 PARAMETER SJC$_DELETE_JOB = '00000011'X ! Delete a job< PARAMETER SJC$_DELETE_QUEUE = '00000012'X ! Delete a queueN PARAMETER SJC$_ENTER_FILE = '00000013'X ! Enter a single file job in a queueU PARAMETER SJC$_MERGE_QUEUE = '00000014'X ! Requeue all jobs in one queue to anotherL PARAMETER SJC$_PAUSE_QUEUE = '00000015'X ! Suspend processing from a queue: PARAMETER SJC$_RESET_QUEUE = '00000016'X ! Reset a que ueJ PARAMETER SJC$_START_ACCOUNTING = '00000017'X ! Start accounting managerK PARAMETER SJC$_START_QUEUE = '00000018'X ! Start processing from a queue S PARAMETER SJC$_START_QUEUE_MANAGER = '00000019'X ! Start system job queue managerH PARAMETER SJC$_STOP_ACCOUNTING = '0000001A'X ! Stop accounting managerH PARAMETER SJC$_STOP_QUEUE = '0000001B'X ! Stop processing from a queueQ PARAMETER SJC$_STOP_QUEUE_MANAGER = '0000001C'X ! Stop system job queue managerP PARAMETER SJC$_SYNCHRONIZE_JO B = '0000001D'X ! Synchronize with job completionN PARAMETER SJC$_WRITE_ACCOUNTING = '0000001E'X ! Write user accounting recordi PARAMETER SJC$_CONTROL_DIAGNOSTICS = '0000001F'X ! Control diagnostic functions (for internal use only)Y! (note this function code is intentionally not documented and reserved for Digital use)u PARAMETER SJC$_DELETE_QUEUE_MANAGER = '00000020'X ! Remove all references to specified qmgr from shared master fileX PARAMETER SJC$_ALTER_FILE = '00000021'X ! Modify the processing of a file within a jobh PARAMETER SJC$_STOP_ALL_QUEUES_ON_NODE = '00000022'X ! Stop all batch/print job processing on the nodeY PARAMETER SJC$_DISABLE_QUEUE = '00000023'X ! Cause all QSIs on the queue to be inactiveR PARAMETER SJC$_ENABLE_QUEUE = '00000024'X ! Allow disabled queue to be restartedM PARAMETER SJC$_SYMBIONT_SERVICE = '00000025'X ! Symbiont-Qman communicationI PARAMETER SJC$_JOBCTL_SERVICE = '00000026'X ! Jobctl-Qman communicationz PARAMETER SJC$_ENABLE_AUTOSTART = '00000027'X ! Start all AUTOSTART queues on node and allow queues to fail over to nodej PARAMETER SJC$_DISABLE_AUTOSTART = '00000028'X ! Prevent AUTOSTART queues from failing over to this nodeb PARAMETER SJC$_SHUTDOWN_NODE = '00000029'X ! Perform orderly shutdown of queuing system on node.\ PARAMETER SJC$_RESERVED_FUNC_42 = '0000002A'X ! Reserved for Digital use (name may change)\ PARAMETER SJC$_RESERVED_FUNC_43 = '0000002B'X ! Reserved for Digital use (name may change)\ PARAMETER SJC$_RE SERVED_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 ! Rese rved for Digital use (name may change)\ PARAMETER SJC$_RESERVED_FUNC_50 = '00000032'X ! Reserved for Digital use (name may change)G PARAMETER SJC$K_MIN_FUNC = '00000001'X ! Minimum SNDJBC function codeG PARAMETER SJC$K_MAX_FUNC = '00000032'X ! Maximum SNDJBC function code! ! Item codes! K PARAMETER SJC$_ACCOUNTING_MESSAGE = '00000001'X ! User accounting messageQ PARAMETER SJC$_ACCOUNTING_TYPES = '00000002'X ! Mask of accounting record types; PARAMETER SJC$_AFTER_TIME = '00000003 'X ! Hold until time+ PARAMETER SJC$_NO_AFTER_TIME = '00000004'XC PARAMETER SJC$_ALIGNMENT_MASK = '00000005'X ! Mask alignment dataJ PARAMETER SJC$_ALIGNMENT_PAGES = '00000006'X ! Number of alignment pagesJ PARAMETER SJC$_BASE_PRIORITY = '00000007'X ! Batch process base priority2 PARAMETER SJC$_BATCH = '00000008'X ! Batch queue& PARAMETER SJC$_NO_BATCH = '00000009'Xb PARAMETER SJC$_BATCH_INPUT = '0000000A'X ! LOGINOUT communication (Retired, see SERVICE_INPUT)x PARAMETER SJC$_BATCH_ OUTPUT = '0000000B'X ! For use by LOGINOUT (for internal use only) (Retired, see SERVICE_OUTPUT)U! (note this item code is intentionally not documented and reserved for Digital use)K PARAMETER SJC$_CHARACTERISTIC_NAME = '0000000C'X ! Printer characteristic3 PARAMETER SJC$_CHARACTERISTIC_NUMBER = '0000000D'X0 PARAMETER SJC$_NO_CHARACTERISTICS = '0000000E'XH PARAMETER SJC$_CHECKPOINT_DATA = '0000000F'X ! Batch checkpoint string0 PARAMETER SJC$_NO_CHECKPOINT_DATA = '00000010'X6 PARAMETER S JC$_CLI = '00000011'X ! Batch process CLI$ PARAMETER SJC$_NO_CLI = '00000012'XC PARAMETER SJC$_CPU_DEFAULT = '00000013'X ! Default CPU time limit, PARAMETER SJC$_NO_CPU_DEFAULT = '00000014'XA PARAMETER SJC$_CPU_LIMIT = '00000015'X ! Maximum CPU time limit* PARAMETER SJC$_NO_CPU_LIMIT = '00000016'XH PARAMETER SJC$_CREATE_START = '00000017'X ! Start queue after creationI PARAMETER SJC$_DELETE_FILE = '00000018'X ! Delete file after processing, PARAMETER SJC$_NO_DELETE_FILE = '00000019'XI PARAMETER SJC$_DESTINATION_QUEUE = '0000001A'X ! Destination queue name? PARAMETER SJC$_DEVICE_NAME = '0000001B'X ! Output device nameA 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 PARAMETER SJC$_ENTRY_NUMBER_OUTPUT = '0000001F'XA PARAMETER SJC$_FILE_BURST = '00000020'X ! Print file burst page, PARAMETER SJC$_FILE_BURST_ONE = '00000021'X+ PARAMETER SJC$_NO _FILE_BURST = '00000022'XC 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'XJ PARAMETER SJC$_FILE_IDENTIFICATION = '00000027'X ! DVI, FID, DID of fileS PARAMETER SJC$_FILE_SETUP_MODULES = '00000028'X ! Device control modules for file3 PARAMETER SJC$_NO_FILE_SETUP_MODULES = '00000029'XN PARAMETER SJC$_FILE_SPECIFICATION = '0000002A'X ! File specification of fileE PARAMETER SJC$_FILE_TRAILER = '0000002B'X ! Print file trailer page. PARAMETER SJC$_FILE_TRAILER_ONE = '0000002C'X- PARAMETER SJC$_NO_FILE_TRAILER = '0000002D'X@ PARAMETER SJC$_FIRST_PAGE = '0000002E'X ! Starting page number+ PARAMETER SJC$_NO_FIRST_PAGE = '0000002F'XM PARAMETER SJC$_FORM_DESCRIPTION = '00000030'X ! Textual description of formA PARAMETER SJC$_FORM_LENGTH = '00000031'X ! Form length in linesO PARAMETER SJC$_FORM_MARGIN_BOTTOM = '00000032'X ! Form bottom margin in linesP PARAMETER SJC$_FORM_MARGIN_LEFT = '00000033'X ! Form left margin in charactersR PARAMETER SJC$_FORM_MARGIN_RIGHT = '00000034'X ! Form right margin in charactersI PARAMETER SJC$_FORM_MARGIN_TOP = '00000035'X ! Form top margin in lines7 PARAMETER SJC$_FORM_NAME = '00000036'X ! Printer form) PARAMETER SJC$_FORM_NUMBER = '00000037'XS PARAMETER SJC$_FORM_SETUP_MODULES = '00000038'X ! Device control modules for form3 PARAMETER SJC$_NO_FORM_SETU P_MODULES = '00000039'XB 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 formB PARAMETER SJC$_FORM_TRUNCATE = '0000003D'X ! Truncate long lines. PARAMETER SJC$_NO_FORM_TRUNCATE = '0000003E'XD 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'XG PARAM ETER SJC$_GENERIC_QUEUE = '00000042'X ! Queue is a generic queue. PARAMETER SJC$_NO_GENERIC_QUEUE = '00000043'XY PARAMETER SJC$_GENERIC_SELECTION = '00000044'X ! Queue can take work from generic queue2 PARAMETER SJC$_NO_GENERIC_SELECTION = '00000045'XZ PARAMETER SJC$_GENERIC_TARGET = '00000046'X ! Possible execution queue for generic queue7 PARAMETER SJC$_HOLD = '00000047'X ! Place job on hold% PARAMETER SJC$_NO_HOLD = '00000048'X? PARAMETER SJC$_JOB_BURST = '00000049'X ! Print job bur st page* PARAMETER SJC$_NO_JOB_BURST = '0000004A'XH 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'XD PARAMETER SJC$_JOB_LIMIT = '0000004E'X ! Number of concurrent jobsA PARAMETER SJC$_JOB_NAME = '0000004F'X ! Identifying name of jobV PARAMETER SJC$_JOB_RESET_MODULES = '00000050'X ! Device control modules between jobs2 PARAMETER SJC$_NO_JOB_RESET_MODULES = '0000 0051'XQ PARAMETER SJC$_JOB_SIZE_MAXIMUM = '00000052'X ! Largest job accepted by printer1 PARAMETER SJC$_NO_JOB_SIZE_MAXIMUM = '00000053'XR PARAMETER SJC$_JOB_SIZE_MINIMUM = '00000054'X ! Smallest job accepted by printer1 PARAMETER SJC$_NO_JOB_SIZE_MINIMUM = '00000055'XT PARAMETER SJC$_JOB_SIZE_SCHEDULING = '00000056'X ! Schedule printer queues by size4 PARAMETER SJC$_NO_JOB_SIZE_SCHEDULING = '00000057'XS PARAMETER SJC$_JOB_STATUS_OUTPUT = '00000058'X ! Status message for submitted jobC 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'XY PARAMETER SJC$_LIBRARY_SPECIFICATION = '0000005D'X ! Filename of device control library6 PARAMETER SJC$_NO_LIBRARY_SPECIFICATION = '0000005E'X; PARAMETER SJC$_LOG_DELETE = '0000005F'X ! Delete log file+ PARAMETER SJC$_NO_LOG_DELETE = '00000060'XA PARAMETER SJC$_LOG_QUEUE = '00000061'X ! Log file's print queueQ PARAMETER SJC$_LOG_SPECIFICATION = '00000062'X ! File specification of log file2 PARAMETER SJC$_NO_LOG_SPECIFICATION = '00000063'X9 PARAMETER SJC$_LOG_SPOOL = '00000064'X ! Print log file* PARAMETER SJC$_NO_LOG_SPOOL = '00000065'XE PARAMETER SJC$_LOWERCASE = '00000066'X ! Print on lowercase printer* PARAMETER SJC$_NO_LOWERCASE = '00000067'XG PARAMETER SJC$_NEW_VERSION = '00000068'X ! Create new version of file< PARAMETER SJC$_NEXT_JOB = '000000 69'X ! Resume at next job9 PARAMETER SJC$_NOTE = '0000006A'X ! Flag page note text% PARAMETER SJC$_NO_NOTE = '0000006B'XE PARAMETER SJC$_NOTIFY = '0000006C'X ! Notify user on job completionU PARAMETER SJC$_NO_NOTIFY = '0000006D'X ! Don't notify user on completion (for jobs)7! Don't notify user on interruption (for print queues)G PARAMETER SJC$_OPERATOR_REQUEST = '0000006E'X ! Operator service text1 PARAMETER SJC$_NO_OPERATOR_REQUEST = '0000006F'X: PARAMETER SJC$_OWNER_UIC = '00000 070'X ! Queue owner UIC? PARAMETER SJC$_PAGE_HEADER = '00000071'X ! Print page headers, PARAMETER SJC$_NO_PAGE_HEADER = '00000072'XX PARAMETER SJC$_PAGE_SETUP_MODULES = '00000073'X ! Device control modules for form page3 PARAMETER SJC$_NO_PAGE_SETUP_MODULES = '00000074'XN PARAMETER SJC$_PAGINATE = '00000075'X ! Paginate output with free form feeds) PARAMETER SJC$_NO_PAGINATE = '00000076'XA PARAMETER SJC$_PARAMETER_1 = '00000077'X ! Batch job parameters) PARAMETER SJC$_PARAMETER_2 = '0 0000078'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'XA PARAMETER SJC$_PRIORITY = '00000082'X ! Job scheduling priorityE PARAMETER S JC$_PROCESSOR = '00000083'X ! Filename of symbiont image* PARAMETER SJC$_NO_PROCESSOR = '00000084'XA PARAMETER SJC$_PROTECTION = '00000085'X ! Queue protection mask@ PARAMETER SJC$_QUEUE = '00000086'X ! Queue on which to operateZ PARAMETER SJC$_QUEUE_FILE_SPECIFICATION = '00000087'X ! File specification of queue fileQ PARAMETER SJC$_RELATIVE_PAGE = '00000088'X ! Resume after forward or back space4 PARAMETER SJC$_REQUEUE = '00000089'X ! Requeue job8 PARAMETER SJC$_RESTART = '0000008A'X ! Job can restart( PARAMETER SJC$_NO_RESTART = '0000008B'XF PARAMETER SJC$_RETAIN_ALL_JOBS = '0000008C'X ! Retain completed jobs/ PARAMETER SJC$_RETAIN_ERROR_JOBS = '0000008D'X, PARAMETER SJC$_NO_RETAIN_JOBS = '0000008E'XI PARAMETER SJC$_SCSNODE_NAME = '0000008F'X ! Node name of execution nodeJ PARAMETER SJC$_SEARCH_STRING = '00000090'X ! Resume after finding string: PARAMETER SJC$_SWAP = '00000091'X ! Swap batch processes% PARAMETER SJC$_NO_SWAP = '00000092'XM PARAMETER SJC$_TERMINAL = '00000093'X ! Queue is a (generic) terminal queue) PARAMETER SJC$_NO_TERMINAL = '00000094'XB PARAMETER SJC$_TOP_OF_FILE = '00000095'X ! Resume at top of filen PARAMETER SJC$_USER_IDENTIFICATION = '00000096'X ! Proxy user identification (not supported and is obsolete)U! (note 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 = '00 000099'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)J PARAMETER SJC$_UIC = '0000009E'X ! Proxy UIC (requires CMKRNL privilege)T PARAMETER SJC$_USERNAME = '0000009F'X ! Proxy username (requires CMKRNL privilege)N PARAMETER SJC$_BUFFER_COUNT = '000000A0'X ! Multibuffer count for queu e file^ PARAMETER SJC$_EXTEND_QUANTITY = '000000A1'X ! Allocation and extend quantity for queue fileZ PARAMETER SJC$_RECORD_BLOCKING = '000000A2'X ! Symbiont record blocking of output stream0 PARAMETER SJC$_NO_RECORD_BLOCKING = '000000A3'X{ PARAMETER SJC$_QUEMAN_RESTART = '000000A4'X ! qualifier on SJC$_START_QUEUE_MANAGER, restart queue manager after an abort/ PARAMETER SJC$_NO_QUEMAN_RESTART = '000000A5'XJ PARAMETER SJC$_DEFAULT_FORM_NAME = '000000A6'X ! Default queue form nameN PARAMET ER SJC$_DEFAULT_FORM_NUMBER = '000000A7'X ! Default queue form numbert PARAMETER SJC$_SECURITY_CLASSIFICATION = '000000A8'X ! Used by SeVMS to specify security classification of the jobU! (note this item code is intentionally not documented and reserved for Digital use)C PARAMETER SJC$_QUEUE_SUPPORT = '000000A9'X ! Queue Support Images PARAMETER SJC$_JOB_COMPLETION_STATUS = '000000AA'X ! Status of completed job - this buffer is used instead of IOSB when specified~ PARAMETER SJC$_DIAGNOST IC_BUFFER_OUTPUT = '000000AB'X ! Job controller's in-memory diagnostic buffer (for internal use only)U! (note this item code is intentionally not documented and reserved for Digital use)M PARAMETER SJC$_OPEN_QUEUE = '000000AC'X ! Open queue - allow job submissionV PARAMETER SJC$_CLOSE_QUEUE = '000000AD'X ! Close queue - do not allow job submission4 PARAMETER SJC$_SERVER = '000000AE'X ! Server queue6 PARAMETER SJC$_PRINTER = '000000AF'X ! Printer queueh PARAMETER SJC$_UPDATE_ORB = '000000 B0'X ! Update ORB information in queue file (for internal use only)U! (note this item code is intentionally not documented and reserved for Digital use)S PARAMETER SJC$_NO_QUEUE_DESCRIPTION = '000000B1'X ! No queue description supplied; PARAMETER SJC$_JOB_RETAIN = '000000B2'X ! Retain this jobJ PARAMETER SJC$_JOB_ERROR_RETAIN = '000000B3'X ! Retain this job on errorU PARAMETER SJC$_JOB_DEFAULT_RETAIN = '000000B4'X ! Use queue's job retention settinge PARAMETER SJC$_NOTIFY_ON_INTERRUPT  = '000000B5'X ! Notify users if their print jobs are interrupted` PARAMETER SJC$_RESERVED_BOOLEAN_182 = '000000B6'X ! Reserved for Digital use (name may change)h PARAMETER SJC$_ACCEPT_ALL_ATTRIBUTES = '000000B7'X ! Inhibits queue manager validation of QSI keywordsb PARAMETER SJC$_DIAGNOSTIC_FLAGS = '000000B8'X ! Diagnostic flags bitmask (for internal use only)U! (note this item code is intentionally not documented and reserved for Digital use)D PARAMETER SJC$_QUEUE_DESCRIPTION = '000000B9' X ! Queue descriptionp PARAMETER SJC$_CHECKPOINT_FREQUENCY = '000000BA'X ! Symbiont takes checkpoint at intervals of this many pages z PARAMETER SJC$_DISPLAY_USERNAME = '000000BB'X ! Used by DQS to pass a username to the remote system (symbol not renamed)U! (note this item code is intentionally not documented and reserved for Digital use)L PARAMETER SJC$_FILE_NUMBER = '000000BC'X ! File sequence number within jobj PARAMETER SJC$_FILE_ATTRIBUTE = '000000BD'X ! "Keyword = (optional) value" f or extensible attrib on fileh PARAMETER SJC$_JOB_ATTRIBUTE = '000000BE'X ! "Keyword = (optional) value" for extensible attrib on jobl PARAMETER SJC$_QUEUE_ATTRIBUTE = '000000BF'X ! "Keyword = (optional) value" for extensible attrib on queuec PARAMETER SJC$_REMOVE_ATTRIBUTE = '000000C0'X ! Remove extensible attribs for queue, job, or fileI PARAMETER SJC$_QUEUE_MANAGER_NAME = '000000C1'X ! Queue manager processr PARAMETER SJC$_QUEUE_MANAGER_NODES = '000000C2'X ! Failover list of nodes on whi ch queue manager process may runz PARAMETER SJC$_AUTOSTART_ON = '000000C3'X ! Node(s) (and for print queues, device(s)) on which queue can be auto started_ PARAMETER SJC$_RESERVED_OUTPUT_196 = '000000C4'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_OUTPUT_197 = '000000C5'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_OUTPUT_198 = '000000C6'X ! Reserved for Digital use (name may change)_ PARAMETER SJC$_RESERVED_OUTPUT_199 = '000000C7'X ! R eserved for Digital use (name may change)[ PARAMETER SJC$_SET_CONDITION_VECTOR = '000000C8'X ! QSI can alter job's completion statusY PARAMETER SJC$_NOTIFY_MESSAGE = '000000C9'X ! QSI Check Job can replace job completion ! message sent to useri PARAMETER SJC$_DEFINE_FILE_ATTRIBUTES = '000000CA'X ! Legal keywds for file submissions or alter_file'sh PARAMETER SJC$_DEFINE_JOB_ATTRIBUTES = '000000CB'X ! Legal keywds in oper'ns that create or alter jobsj PARAMETER SJC$_DEFINE_QUEUE_ATTRIBU TES = '000000CC'X ! Legal keywords in operations that alter the queueC PARAMETER SJC$_AGENT_PROFILE = '000000CD'X ! Security informationz PARAMETER SJC$_ADD_QUEUE_MANAGER = '000000CE'X ! Boolean item code telling sjc_start_queue_manager to add a new database} PARAMETER SJC$_OUTSTANDING_JOBS = '000000CF'X ! Boolean item code telling queue manager to not delete outstanding open jobs} PARAMETER SJC$_NO_INITIAL_FF = '000000D0'X ! To suppress initial form feed when the queue is started with INIT or START cmd. PARAMETER SJC$_NO_NO_INITIAL_FF = '000000D1'Xh PARAMETER SJC$_DELETE_FILE_ALWAYS = '000000D2'X ! delete file even if the job completes with a failure3 PARAMETER SJC$_NO_DELETE_FILE_ALWAYS = '000000D3'X` PARAMETER SJC$_RESERVED_BOOLEAN_212 = '000000D4'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_213 = '000000D5'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_214 = '000000D6'X ! Reserved for Digital use (name m ay change)` PARAMETER SJC$_RESERVED_BOOLEAN_215 = '000000D7'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_216 = '000000D8'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_217 = '000000D9'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_218 = '000000DA'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_219 = '000000DB'X ! Reserved for Digital use (name may change)` PAR AMETER SJC$_RESERVED_BOOLEAN_220 = '000000DC'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_221 = '000000DD'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_222 = '000000DE'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_223 = '000000DF'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_224 = '000000E0'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESE RVED_BOOLEAN_225 = '000000E1'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_226 = '000000E2'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_227 = '000000E3'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_228 = '000000E4'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_229 = '000000E5'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_230 = '000000E6'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_231 = '000000E7'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_232 = '000000E8'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_233 = '000000E9'X ! Reserved for Digital use (name may change)` PARAMETER SJC$_RESERVED_BOOLEAN_234 = '000000EA'X ! Reserved for Digital use (name may change)h PARAMETER SJC$_JOB_RETAIN_TIME = '000000EB'X ! The time the job should be retained (delta or absolute)e PARAMETER SJC$_MANAGER_ATTRIBUTE = '000000EC'X ! Any application specific queue manager attributes.^ PARAMETER SJC$_RESERVED_INPUT_237 = '000000ED'X ! Reserved for Digital use (name may change)^ PARAMETER SJC$_RESERVED_INPUT_238 = '000000EE'X ! Reserved for Digital use (name may change)^ PARAMETER SJC$_RESERVED_INPUT_239 = '000000EF'X ! Reserved for Digital use (name may change)^ PARAMETER SJC$_RESERVED_INPUT_240 = '000000F0'X ! Reserved for Digital use (name may change)^ PARAMETER SJC$_RESERVED_INPUT_241 = '000000F1'X ! Reserved for Digital use (name may change)^ 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 ! Reserved 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 Digital 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)C PARAMETER SJC$K_MIN_ITEM = '000  00001'X ! Minimum SNDJBC item codeC PARAMETER SJC$K_MAX_ITEM = '000000FF'X ! Maximum SNDJBC item codeJ PARAMETER SJC$_CHARGE_CODE = '0000009D'X ! synonym for SJC$_ACCOUNT_NAME@ PARAMETER SJC$_RESERVED_INPUT_187 = '000000BB'X ! for DQS only- PARAMETER SJC$_QUEUE_DIRECTORY = '00000087'X5! Disk & directory for non-shared job queue database+ PARAMETER SJC$_SERVICE_INPUT = '0000000A'X, PARAMETER SJC$_SERVICE_OUTPUT = '0000000B'XW! SERVICE item codes are used for communications with LOGIN OUT, symbionts, and jobctl.! Z! 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 = '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< PARAMETER SJC$V_ACCT_PROCESS = 0 ! Process termination# PARAMETER SJC$S_ACCT_IMAGE = 19 PARAMETER SJC$V_ACCT_IMAGE = 1 ! Image termination) PARAMETER SJC$S_ACCT_INTERACTIVE = 1B 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 = 18 PARAMETER SJC$V_ACCT_SUBPROCESS = 4 ! Subprocesses& PARAMETER SJC$S_ACCT_DETACHED = 1< PARAMETER SJC$V_ACCT_DETACHED = 5 ! Detached processes# PARAMETER SJC$S_ACCT_BATCH = 17 PARAMETER SJC$V_ACCT_BATCH = 6 ! Batc h 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 = 16 PARAMETER SJC$V_ACCT_MESSAGE = 9 ! User messages& PARAMETER SJC$S_ACCT_ACM_FUNC = 17 PARAMETER SJC$V_ACCT_ACM_FUNC = 10 ! Acm function% PARAMETER SJC$S_ACCT_ACM_SYS = 19 PARAMETER SJC$V_ACCT_ACM_SYS = 11 ! System functio n% PARAMETER SJC$S_ACCT_CCAENAB = 1@ PARAMETER SJC$V_ACCT_CCAENAB = 12 ! Charge code accounting% PARAMETER SJC$S_ACCT_CCVENAB = 1@ 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 ! ACCOUNTING_TYPES! +! Subfields of DIAGNOSTIC_FLAGS item code.! + PARAMETER SJC$M_DIAG_COPY_QF = '00000001'X- PARAMETER SJC$M_DIAG_CREATE_MF = '00000002'X, PAR  AMETER 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 = '00000100'X STRUCTURE /DIAGNOSTIC_FLAGS/% PARAMETER SJC$S_DIAG_COPY_QF = 1D PARAMETER SJC$V_DIAG_COPY_QF = 0 ! Make copy of the queue file' PARAMETER S JC$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 = 1T 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 ! Open 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 fil e header record+ PARAMETER SJC$S_DIAG_LOG_ALL_TRANS = 1i PARAMETER SJC$V_DIAG_LOG_ALL_TRANS = 5 ! Log read-only transactions in addition to basic monitoring* PARAMETER SJC$S_DIAG_JOURNAL_PUTS = 1p PARAMETER SJC$V_DIAG_JOURNAL_PUTS = 6 ! Journal queue file $PUT operations in addition to basic monitoring. PARAMETER SJC$S_DIAG_DUMP_DIAG_BUFFER = 1` PARAMETER SJC$V_DIAG_DUMP_DIAG_BUFFER = 7 ! Return contents of diagnostic buffer to caller. PARAMETER SJC$S_DIAG_INIT  _DIAG_BUFFER = 1k PARAMETER SJC$V_DIAG_INIT_DIAG_BUFFER = 8 ! Initialize diagnostic buffer and zero cumulative counters% PARAMETER SJC$S_DIAG_UNUSED = 23$ PARAMETER SJC$V_DIAG_UNUSED = 9 BYTE %FILL (4)! END STRUCTURE ! DIAGNOSTIC_FLAGSCDEC$ END OPTIONS ww-; ! ************************************************************************************************************************************************************************************************ ***********************************************************! Created 9-NOV-1999 09:12:46 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:46 FORD2$:[VFORT.KIT.FORSYSDEF]$SMBMSGDEF.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** !*** MODULE $SMBMSGDEF ***CDEC$ OPTIONS /NOALIGN  ! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:46.79! ! N! ****************************************************************************! * *5! * COPYRIGHT (C) 1978, 1980, 1982, 1984 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! ****************************************************************************! ! ++ ! FACILITY: ! SYMBIONT.! ! ABSTRACT:! SYMBIONT MESSAGES.! I! THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FORH! MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CON TROLLER ARE DEFINED BY! THE $MSGDEF MACRO.! ! ENVIRONMENT: ! VAX/VMS USER AND KERNEL MODE.! :! AUTHOR: ROWLAND R. BRADLEY, CREATION DATE: 20-JULY-1984! ! MODIFIED BY:! 3! X-2 LMP0560 L. MARK PILANT, 27-MAR-1992 14:088! CHANGE THE MACRO NAME FROM $PSMMSGDEF TO $SMBMSGDEF.! .! 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 ! ADD .END.! 1! 3B-009 RRB0009 ROWLAND R. BRADLEY 20-JUL-1984>! REMOVED THESE DEFINITIONS FOR SMB AND PLACED IN A SEPARATEA! FILE SMB MSG.MSG. THIS ACCOMPLISHES THE RENAMING OF MESSAGES =! WITH A SEPARATE FACILITY CODE. NOW TWO TYPES OF MESSAGES7! 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 SMB$_INVSTMNBR = '0110800C'X' PARAMETER SMB$_INVSTRLEV = '01108014'XCDEC$ END OPTIONSww ZY!* ** MODULE $SMGDEF ***CDEC$ OPTIONS /NOALIGN1! Definitions for RTL Screen Management Facility! ! Input terminator codes! 3 PARAMETER SMG$K_TRM_NULL_CHAR = '00000000'X ! NUL/ PARAMETER SMG$K_TRM_CTRLA = '00000001'X ! SOH/ PARAMETER SMG$K_TRM_CTRLB = '00000002'X ! STX/ PARAMETER SMG$K_TRM_CTRLC = '00000003'X ! ETX/ PARAMETER SMG$K_TRM_CTRLD = '00000004'X ! EOT/ PARAMETER SMG$K_TRM_CTRLE = '00000005'X ! ENQ/ PARAMETER SMG$K_TRM_CTRLF = '00000006'X ! ACK/ 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$K_TRM_CTRLN = '0000000E'X ! SO. PARAMETER SMG$K_TRM_CTRLO = '0000000F'X ! SI/ PARAMETER SMG$K_TRM_CTRLP = '00000010'X ! DLE/ PARAMETER SMG$K_TRM_CTRLQ = '00000011  'X ! DC1/ PARAMETER SMG$K_TRM_CTRLR = '00000012'X ! DC2/ PARAMETER SMG$K_TRM_CTRLS = '00000013'X ! DC3/ PARAMETER SMG$K_TRM_CTRLT = '00000014'X ! DC4/ PARAMETER SMG$K_TRM_CTRLU = '00000015'X ! NAK/ PARAMETER SMG$K_TRM_CTRLV = '00000016'X ! SYN/ PARAMETER SMG$K_TRM_CTRLW = '00000017'X ! ETB/ PARAMETER SMG$K_TRM_CTRLX = '00000018'X ! CAN. PARAMETER SMG$K_TRM_CTRLY = '00000019'X ! EM/ PARAMETER SMG$K_TRM_CTRLZ = '0000001A'X ! SUB0 PARAMETER SMG$K_TRM_ESCAPE = '0000001B'X ! E  SC+ 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 ! SP9 PARAMETER SMG$K_TRM_EXCLAMATION_POINT = '00000021'X ! !4 PARAMETER SMG$K_TRM_DOUBLE_QUOTE = '00000022'X ! "3 PARAMETER SMG$K_TRM_NUMBER_SIGN = '00000023'X ! #3 PARAMETER SMG$K_TRM_DOLLAR_SIGN = '00000024'X ! $4 PARAMETER SMG$K_TRM_PERCENT_SIGN = '00000025'X  ! %1 PARAMETER SMG$K_TRM_AMPERSAND = '00000026'X ! &- PARAMETER SMG$K_TRM_QUOTE = '00000027'X ! '2 PARAMETER SMG$K_TRM_LEFT_PAREN = '00000028'X ! (3 PARAMETER SMG$K_TRM_RIGHT_PAREN = '00000029'X ! )0 PARAMETER SMG$K_TRM_ASTERISK = '0000002A'X ! *1 PARAMETER SMG$K_TRM_PLUS_SIGN = '0000002B'X ! +2 PARAMETER 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 = '00000036'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  ! :1 PARAMETER SMG$K_TRM_SEMICOLON = '0000003B'X ! ;1 PARAMETER SMG$K_TRM_LESS_THAN = '0000003C'X ! <- PARAMETER SMG$K_TRM_EQUAL = '0000003D'X ! =4 PARAMETER SMG$K_TRM_GREATER_THAN = '0000003E'X ! >5 PARAMETER SMG$K_TRM_QUESTION_MARK = '0000003F'X ! ?/ PARAMETER SMG$K_TRM_AT_SIGN = '00000040'X ! @3 PARAMETER SMG$K_TRM_UPPERCASE_A = '00000041'X ! A3 PARAMETER SMG$K_TRM_UPPERCASE_B = '00000042'X ! B3 PARAMETER SMG$K_TRM_UPPERCASE_C = '00000043'X ! C3 PARAMETER SMG$K_TRM_UPP  ERCASE_D = '00000044'X ! D3 PARAMETER SMG$K_TRM_UPPERCASE_E = '00000045'X ! E3 PARAMETER SMG$K_TRM_UPPERCASE_F = '00000046'X ! F3 PARAMETER SMG$K_TRM_UPPERCASE_G = '00000047'X ! G3 PARAMETER SMG$K_TRM_UPPERCASE_H = '00000048'X ! H3 PARAMETER SMG$K_TRM_UPPERCASE_I = '00000049'X ! I3 PARAMETER SMG$K_TRM_UPPERCASE_J = '0000004A'X ! J3 PARAMETER SMG$K_TRM_UPPERCASE_K = '0000004B'X ! K3 PARAMETER SMG$K_TRM_UPPERCASE_L = '0000004C'X ! L3 PARAMETER SMG$K_TRM_UPPERCASE_M = '0000004D 'X ! M3 PARAMETER SMG$K_TRM_UPPERCASE_N = '0000004E'X ! N3 PARAMETER SMG$K_TRM_UPPERCASE_O = '0000004F'X ! O3 PARAMETER SMG$K_TRM_UPPERCASE_P = '00000050'X ! P3 PARAMETER SMG$K_TRM_UPPERCASE_Q = '00000051'X ! Q3 PARAMETER SMG$K_TRM_UPPERCASE_R = '00000052'X ! R3 PARAMETER SMG$K_TRM_UPPERCASE_S = '00000053'X ! S3 PARAMETER SMG$K_TRM_UPPERCASE_T = '00000054'X ! T3 PARAMETER SMG$K_TRM_UPPERCASE_U = '00000055'X ! U3 PARAMETER SMG$K_TRM_UPPERCASE_V = '00000056'X ! V3 PARAMETER ! SMG$K_TRM_UPPERCASE_W = '00000057'X ! W3 PARAMETER SMG$K_TRM_UPPERCASE_X = '00000058'X ! X3 PARAMETER SMG$K_TRM_UPPERCASE_Y = '00000059'X ! Y3 PARAMETER SMG$K_TRM_UPPERCASE_Z = '0000005A'X ! Z4 PARAMETER SMG$K_TRM_LEFT_BRACKET = '0000005B'X ! [1 PARAMETER SMG$K_TRM_BACKSLASH = '0000005C'X ! \5 PARAMETER SMG$K_TRM_RIGHT_BRACKET = '0000005D'X ! ]- PARAMETER SMG$K_TRM_CARET = '0000005E'X ! ^1 PARAMETER SMG$K_TRM_UNDERLINE = '0000005F'X ! _4 PARAMETER SMG$K_TRM_GRAVE_ACCENT = '0 " 0000060'X ! `3 PARAMETER SMG$K_TRM_LOWERCASE_A = '00000061'X ! a3 PARAMETER SMG$K_TRM_LOWERCASE_B = '00000062'X ! b3 PARAMETER SMG$K_TRM_LOWERCASE_C = '00000063'X ! c3 PARAMETER SMG$K_TRM_LOWERCASE_D = '00000064'X ! d3 PARAMETER SMG$K_TRM_LOWERCASE_E = '00000065'X ! e3 PARAMETER SMG$K_TRM_LOWERCASE_F = '00000066'X ! f3 PARAMETER SMG$K_TRM_LOWERCASE_G = '00000067'X ! g3 PARAMETER SMG$K_TRM_LOWERCASE_H = '00000068'X ! h3 PARAMETER SMG$K_TRM_LOWERCASE_I = '00000069'X ! i3 PAR # AMETER SMG$K_TRM_LOWERCASE_J = '0000006A'X ! j3 PARAMETER SMG$K_TRM_LOWERCASE_K = '0000006B'X ! k3 PARAMETER SMG$K_TRM_LOWERCASE_L = '0000006C'X ! l3 PARAMETER SMG$K_TRM_LOWERCASE_M = '0000006D'X ! m3 PARAMETER SMG$K_TRM_LOWERCASE_N = '0000006E'X ! n3 PARAMETER SMG$K_TRM_LOWERCASE_O = '0000006F'X ! o3 PARAMETER SMG$K_TRM_LOWERCASE_P = '00000070'X ! p3 PARAMETER SMG$K_TRM_LOWERCASE_Q = '00000071'X ! q3 PARAMETER SMG$K_TRM_LOWERCASE_R = '00000072'X ! r3 PARAMETER SMG$K_TRM_LOW $ ERCASE_S = '00000073'X ! s3 PARAMETER SMG$K_TRM_LOWERCASE_T = '00000074'X ! t3 PARAMETER SMG$K_TRM_LOWERCASE_U = '00000075'X ! u3 PARAMETER SMG$K_TRM_LOWERCASE_V = '00000076'X ! v3 PARAMETER SMG$K_TRM_LOWERCASE_W = '00000077'X ! w3 PARAMETER SMG$K_TRM_LOWERCASE_X = '00000078'X ! x3 PARAMETER SMG$K_TRM_LOWERCASE_Y = '00000079'X ! y3 PARAMETER SMG$K_TRM_LOWERCASE_Z = '0000007A'X ! zA PARAMETER SMG$K_TRM_LEFT_BRACE = '0000007B'X ! left curly brace5 PARAMETER SMG$K_TRM_VERTICAL_% LINE = '0000007C'X ! |C PARAMETER SMG$K_TRM_RIGHT_BRACE = '0000007D'X ! right curly brace- PARAMETER SMG$K_TRM_TILDE = '0000007E'X ! ~0 PARAMETER SMG$K_TRM_DELETE = '0000007F'X ! DEL! "! Synonyms for control characters! % PARAMETER SMG$K_TRM_BS = '00000008'X% PARAMETER SMG$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! & PAR & AMETER 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& PARAMETER 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 = '00' 00010C'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 = '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_T( RM_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 SMG$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& PAR) AMETER 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 keys! ' PARAMETER SMG$K_TRM_HELP = '00000127'X% PARAMETER SMG$K_TRM_DO = '00000128'X! ! Editing keys! - PARAMETER SMG$K_TRM_E1 = '00000137'X ! FIND4 PARAMETER SMG$K_TRM_E2 = '00000138'X ! INSERT_HERE/ PARAMETER SMG$K_TRM * _E3 = '00000139'X ! REMOVE/ PARAMETER SMG$K_TRM_E4 = '0000013A'X ! SELECT4 PARAMETER SMG$K_TRM_E5 = '0000013B'X ! PREV_SCREEN4 PARAMETER SMG$K_TRM_E6 = '0000013C'X ! NEXT_SCREEN! ! Synonyms for editing keys! - PARAMETER SMG$K_TRM_FIND = '00000137'X ! E14 PARAMETER SMG$K_TRM_INSERT_HERE = '00000138'X ! E2/ PARAMETER SMG$K_TRM_REMOVE = '00000139'X ! E3/ PARAMETER SMG$K_TRM_SELECT = '0000013A'X ! E44 PARAMETER SMG$K_TRM_PREV_SCREEN = '0000013B'X ! E54 PARAMETER SMG$K_TRM_NEX + T_SCREEN = '0000013C'X ! E6! ! Locator keys! A PARAMETER SMG$K_TRM_FIRST_DOWN = '00000141'X ! Left button downD PARAMETER SMG$K_TRM_SECOND_DOWN = '00000142'X ! Middle button downB PARAMETER SMG$K_TRM_THIRD_DOWN = '00000143'X ! Right button downD PARAMETER SMG$K_TRM_FOURTH_DOWN = '00000144'X ! Fourth button down= PARAMETER SMG$K_TRM_FIRST_UP = '00000145'X ! Left button up@ PARAMETER SMG$K_TRM_SECOND_UP = '00000146'X ! Middle button up> PARAMETER SMG$K_TRM_THIRD_UP = '00000147'X , ! Right button up@ PARAMETER SMG$K_TRM_FOURTH_UP = '00000148'X ! Fourth button up! ! Conditions! Q PARAMETER SMG$K_TRM_CANCELLED = '000001FC'X ! I/O cancelled by SMG$CANCEL_INPUTD PARAMETER SMG$K_TRM_TIMEOUT = '000001FD'X ! Timeout period expired@ PARAMETER SMG$K_TRM_BUFFER_FULL = '000001FE'X ! Buffer is full@ PARAMETER SMG$K_TRM_UNKNOWN = '000001FF'X ! Unknown terminator! H! Screen Management request types - These constants are used internally+! by SMG$ and should not be use - d 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 SMG$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_P . OS = '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 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! 7 PARAMETER SMG$C_UNITED_KINGDOM = '00000000'X ! Unused6 PARAMETER SMG$C_ASCII = '00000001'X ! ASCII char set@ PARAMETER SMG$C_SPEC_GRAPHICS = '00000002'X ! Line drawing set1 PARAMETER SMG$C_ALT_CHAR = '00000003'X ! Unused5 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 0 = '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! A! The following constants define corner cursor positions used in! SMG$HOME_CURSOR.! M PARAMETER SMG$C_UPPER_LEFT = '00000000'X ! Home cursor to upper left cornerM PARAMETER SMG$C_LOWER_LEFT = '00000001'X ! Home cursor to lower left cornerO PARAMETER SMG$C_UPPER_RIGHT = '00000002'X ! Home cursor to upper right c 1 ornerO PARAMETER SMG$C_LOWER_RIGHT = '00000003'X ! Home cursor to lower right corner! 9! The following constants define label positions used in! SMG$LABEL_BORDER.! ? PARAMETER SMG$K_TOP = '00000000'X ! Place label on top borderE PARAMETER SMG$K_BOTTOM = '00000001'X ! Place label on bottom borderA PARAMETER SMG$K_LEFT = '00000002'X ! Place label on left borderC PARAMETER SMG$K_RIGHT = '00000003'X ! Place label on right border! 4! The following constants define menu types u 2 sed in! SMG$CREATE_MENU.! < PARAMETER SMG$K_BLOCK = '00000000'X ! Matrix of menu itemsH PARAMETER SMG$K_VERTICAL = '00000001'X ! Vertical vector of menu itemsL PARAMETER SMG$K_HORIZONTAL = '00000002'X ! Horizontal vector of menu items! 3! Master color wheel for screen background colors.,! Used with SMG$CHANGE_PBD_CHARACTERISTICS.! B PARAMETER SMG$C_COLOR_UNKNOWN = '00000000'X ! Unknown background> PARAMETER SMG$C_COLOR_WHITE = '00000001'X ! White background> PARAMETER SMG$C_C 3 OLOR_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 backgroundB PARAMETER SMG$C_COLOR_MAGENTA = '00000006'X ! Magenta background: PARAMETER SMG$C_COLOR_RED = '00000007'X ! Red background@ PARAMETER SMG$C_COLOR_YELLOW = '00000008'X ! Yellow background> PARAMETER SMG$C_COLOR_LIGHT = '00000009'X ! Light background< PARAMETER SMG4 $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 backgroun 5 d? PARAMETER SMG$C_COLOR_USER8 = '00000012'X ! User 8 background! 8! The following constants describe the type of terminal3! and are used with SMG$GET_PASTEBOARD_ATTRIBUTES.! 6 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 ! UnusedD PARAMETER SMG$K_VTFOREIGN = '00000004'X ! Foreign terminal (ft1-8): PARAMETER SMG$K_HARDCOPY = '00000005'X ! Har 6 dcopy device< PARAMETER SMG$K_VTTERMTABLE = '00000006'X ! Video terminalI PARAMETER SMG$K_FIRST_PRIV_TYPE = '000000BF'X ! Used internally by SMG$! 8! 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 C PARAMETER SMG$K_CLEAR_SCREEN = '00000002'X ! Clear screen on exit@ PARAMETER SMG$K_NOTABS = '00000003'X ! Don't use physical tabs> PARAMETER SMG$K_PROTE 7 CT = '00000004'X ! Protect against ASTsD PARAMETER SMG$K_IGNORE = '00000005'X ! Don't output PBD if batchedK 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_spare 8 15 = 'FFFFFF80'X STRUCTURE /SMGMODE_BITS/$ PARAMETER SMG$S_BUF_ENABLED = 19 PARAMETER SMG$V_BUF_ENABLED = 0 ! Enable buffering PARAMETER SMG$S_MINUPD = 1C 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 = 19 PARAMETER SMG$V_PRO9 TECT = 4 ! Protect against ASTs PARAMETER SMG$S_IGNORE = 1? PARAMETER SMG$V_IGNORE = 5 ! Don't output PBD if batched$ PARAMETER SMG$S_RELEASE_PBD = 1F 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 = '0000 : 0002'X' PARAMETER SMG$M_KEY_LOCK = '00000004'X, PARAMETER SMG$M_KEY_PROTECTED = '00000008'X+ PARAMETER SMG$M_KEY_SETSTATE = '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 = 1B PARAMETER SMG$V_KEY_TERMINATE = 1 ! This key terminates read! PARAMETER SMG$S_KEY_LOCK = 14 PARAMETER SMG$V_KEY_LOCK = 2 ! Lock new s; tate& PARAMETER SMG$S_KEY_PROTECTED = 1A PARAMETER SMG$V_KEY_PROTECTED = 3 ! Definition is protected% PARAMETER SMG$S_KEY_SETSTATE = 1N 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( 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 /SMGD = EF_BITS/ PARAMETER SMG$S_BOLD = 10 PARAMETER SMG$V_BOLD = 0 ! Bold rendition PARAMETER SMG$S_REVERSE = 1< PARAMETER SMG$V_REVERSE = 1 ! Reverse video rendition PARAMETER SMG$S_BLINK = 12 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 = 13 PARAM > ETER SMG$V_USER1 = 8 ! User rendition 1 PARAMETER SMG$S_USER2 = 13 PARAMETER SMG$V_USER2 = 9 ! User rendition 2 PARAMETER SMG$S_USER3 = 14 PARAMETER SMG$V_USER3 = 10 ! User rendition 3 PARAMETER SMG$S_USER4 = 14 PARAMETER SMG$V_USER4 = 11 ! User rendition 4 PARAMETER SMG$S_USER5 = 14 PARAMETER SMG$V_USER5 = 12 ! User rendition 5 PARAMETER SMG$S_USER6 = 14 PARAMETER SMG$V_USER6 = 13 ! User rendition 6 PARAMETER SMG$S_USER7 = 14? PARAMETER SMG$V_USER7 = 14 ! User rendition 7 PARAMETER SMG$S_USER8 = 14 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_BITS5 PARAMETER SMG$M_NORMAL = '00000000'X ! no bits set ! /! The following masks define values to be used6! 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/ 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 = 17 PARAMETER SMG$V_BORDER = 0 ! Display is bordered# PARAMETER SMG$S_TRUNC_ICON = 1? PARAMETER SMG$V_TRUNC_ICON = 1 ! A Truncation icon enabled) PARAMETER SMG$S_DISPLAY_CONTROLS = 1F 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 = 1B PARAMETER SMG$V_BLOCK_BORDER = 4 ! Display is block bordered( PARAMETER SMG$S_PROTECT_DISPLAY = 1H PARAMETER SMG$V_PROTECT_DISPLAY = 5 ! Protect display against ASTs! PARAMETER SMG$S_spare12 = 2B 6 PARAMETER SMG$V_spare12 = 6$ BYTE %FILL (4) ! extra 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 = 1E PARAMETER SMG$V_TRUSTED = 0 ! Set TRUSTED C flag for LIB$SPAWN! PARAMETER SMG$S_AUTHPRIV = 1F PARAMETER SMG$V_AUTHPRIV = 1 ! Set AUTHPRIV flag for LIB$SPAWN" PARAMETER SMG$S_SUBSYSTEM = 1G 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! @! The following defines bits used with subprocess manipulation.! + PARAMETER SMG$M_DATA_FOLLOWS = '0 D 0000001'X' PARAMETER SMG$M_SEND_EOF = '00000002'X' PARAMETER SMG$M_NO_PRINT = '00000004'X& PARAMETER SMG$m_spare11 = 'FFFFFFF8'X# STRUCTURE /SMG$R_SUBPROCESS_FLAGS/% PARAMETER SMG$S_DATA_FOLLOWS = 1F PARAMETER SMG$V_DATA_FOLLOWS = 0 ! The next call specifies data.! PARAMETER SMG$S_SEND_EOF = 1K PARAMETER SMG$V_SEND_EOF = 1 ! Send an end-of-file to the subprocess! PARAMETER SMG$S_NO_PRINT = 1J PARAMETER SMG$V_NO_PRINT = 2 ! Do not output command to the disE play! PARAMETER SMG$S_spare11 = 29 PARAMETER 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 ! EraseF the pasteboard' PARAMETER SMG$S_IGNORE_BATCHED = 1H 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 = 'FFF G FFFFC'X# STRUCTURE /SMG$R_CREATE_PBD_FLAGS/& PARAMETER SMG$S_KEEP_CONTENTS = 1D PARAMETER SMG$V_KEEP_CONTENTS = 0 ! Don't erase the pasteboard$ PARAMETER SMG$S_WORKSTATION = 1J 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 H .! ( PARAMETER SMG$M_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 = 1E PARAMETER SMG$V_NOKEEP = 1 ! Don't save input in recall buffer! PARAMETER SMG$S_NORECALL = 1H PARAMETER SMG$V_NORECALL = 2 ! Disable input recall fI or this call PARAMETER 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 J /# PARAMETER SMG$S_CURSOR_OFF = 1D PARAMETER SMG$V_CURSOR_OFF = 0 ! Turn the physical cursor off" PARAMETER SMG$S_CURSOR_ON = 1B PARAMETER SMG$V_CURSOR_ON = 1 ! Turn the physical cursor on$ PARAMETER SMG$S_SCROLL_JUMP = 18 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) K ! extra 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 = 1A PARAMETER SMG$V_VIEWPORT = 0 ! Display contains a viewport# PARAMETER SMG$S_SUBPROCESS = 1E L PARAMETER SMG$V_SUBPROCESS = 1 ! Display contains a subprocess PARAMETER SMG$S_MENU = 19 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 SMG M $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 = 1I 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! SMG$MOVN E_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 = 1G 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& END STRUCTURE !O 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 = 1H 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 STRUCTURE ! SMG$R_SNAPSHOT_P 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 = 1K PARAMETER SMG$V_WRAP_CHAR = 0 ! Do character wrapping at end of line" PARAMETER SMG$S_WRAP_WORD = 1F PARAMETER SMG$V_WRAP_WORD = 1 ! Do word wrapping at end of line PARAMETER SMG$S_spaQ re4 = 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 = 1A PARAMETER SMG$V_KEYPAD_APPLICATION = 0 ! Application keypaR d' PARAMETER SMG$S_KEYPAD_NUMERIC = 19 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_PASTING_INFO_FLAGS/' PARAMETER SMG$S_DISPLAYS _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_RETURN_IMMED = '00000008'X) PARAMETER SMG$M_ERASE_MENU T = '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 ! Doubl U e 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 = 1@ PARAMETER SMG$V_ERASE_MENU = 4 ! Erase menu when deleting" PARAMETER SMG$S_WIDE_MENU = 16 PARAMETER SMG$V_WIDE_MENU = 5 ! Wide menu items" PARAMETER SMG$S_WRAP_MENU = 1D PARAMETER SMG$V_WRAP_MENU = 6 ! Wrap menu items top to bottom# PARAMETER SMG$S_FULL_FIELD = 1> PARAMETER SMG$V_FULL_FIELD = 7 ! HiV ghlight 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! 2! 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 = '00000004W '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 SX TRUCTURE ! SCROLL_DIRS! ! Define data structures! Q PARAMETER SMG$C_BAND_INFORMATION_TABLE = '0000000C'X ! Length of table in bytes! P PARAMETER SMG$C_PASTEBOARD_INFO_BLOCK = '00000024'X ! Length of table in bytes! N 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 routine5! will get called. The first argument passed to his6! routine is the address of a Band InfoY rmation Table.3! The offsets into this table are described below.4! To make it easy to access from certain languages,4! the table is arranged so that it is convenient to=! reference it as a longword vector as well as a byte block.!  MAP8 INTEGER*4 SMG$L_PASTEBOARD_ID ! Pasteboard ID5 INTEGER*4 SMG$L_ARG ! User's AST argument UNION MAP> BYTE SMG$B_CHARACTER ! The character typed END MAP MAPZ E INTEGER*4 SMG$L_CHARACTER ! The character and 3 spaces END MAP END UNION END MAP0! When SMG$GET_PASTEBOARD_ATTRIBUTES is called,5! it returns data in a pasteboard information block.6! The following structure is used to reference fields! in this block.4! Items marked with a plus (+) will be 0 unless the,! device is a terminal (DEVCLASS=DC$_TERM).!  MAP< INTEGER*4 SMG$L_DEVCHAR ! Device characteristicsC INTEGER*4[ SMG$L_DEVDEPEND ! Specific characteristics (1)D INTEGER*4 SMG$L_DEVDEPEND2 ! Specific characteristics (2)B BYTE SMG$B_DEVCLASS ! Device class (e.g. DC$_TERM)A BYTE SMG$B_SMG_DEVTYPE ! Internal SMG device typeN BYTE SMG$B_PHY_DEVTYPE ! Physical device type (e.g. DT$_VT100); BYTE SMG$B_ROWS ! Number of rows on device2 INTEGER*2 SMG$W_WIDTH ! Terminal width8 BYTE SMG$B_COLOR ! PBD background col \ or: BYTE SMG$B_PARITY ! Parity attributes (+)6 INTEGER*2 SMG$W_SPEED ! Terminal Speed (+); INTEGER*2 SMG$W_FILL ! Fill characteristics (+)D INTEGER*2 SMG$W_CURSOR_ROW ! Row where physical cursor is ! (1-origin)D INTEGER*2 SMG$W_CURSOR_COL ! Col where physical cursor is ! (1-origin)= INTEGER*4 SMG$L_CURSOR_DID ! Display id of topmost! display that cursor is in.! 0 if cursor is not in a! virtual displayD ] INTEGER*4 SMG$L_DEVDEPEND3 ! Specific characteristics (3) END MAP.! When SMG$GET_KEYBOARD_ATTRIBUTES is called,3! it returns data in a keyboard information block.6! The following structure is used to reference fields! in this block.4! Items marked with a plus (+) will be 0 unless the,! device is a terminal (DEVCLASS=DC$_TERM).!  MAP5 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)B BYTE SMG$B_RECALL_SIZE ! Size of recall buffer (+)D BYTE %FILL ! Physical device type (e.g. DT$_VT100)N BYTE SMG$B_TYPEAHEAD_CHAR ! First char in typeahead buffer (+)- INTEGER*2 %FILL ! Terminal widthT INTEGER*2 SMG$W_TYPEAHEAD_COUNT ! Number of chars in typeahead buffer (+) INTEGER*4 %FILL INTEGER*4 %FILL_  INTEGER*4 %FILL7 INTEGER*4 %FILL ! Device characteristics 3 END MAP END UNION END STRUCTURE ! SMGDEF! D! 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 ID5 INTEGER*4 SMG$L_USER_ARG ! User's AST argument UNION MAP6 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_TABLEL PARAMETER SMG$C_OUT_OF_BAND_TABLE = '0000000C'X ! Length of table in bytes! A! Define the subprocess information table used when a subprocess,! AST routine is called as it's own record.! ( STRUCTURE /SMG$R_SUBPROCESS_INFO_TABLE/, INTEGER*4 SMG$L_DISP_ID ! Display ID5 INTEGER*4 SMG$L_USR_ARG ! User's AST argument; INTEG a ER*4 SMG$L_STATUS ! Status of executed command, END STRUCTURE ! SMG$R_SUBPROCESS_INFO_TABLEP PARAMETER SMG$C_SUBPROCESS_INFO_TABLE = '0000000C'X ! Length of table in bytes! 7! Define an information table that can be used by both@! SMG$GET_PASTEBOARD_ATTRIBUTES and SMG$GET_KEYBOARD_ATTRIBUTES! as it's own record.! ' STRUCTURE /SMG$R_ATTRIBUTE_INFO_BLOCK/8 INTEGER*4 SMG$L_DEV_CHAR ! Device characteristics@ INTEGER*4 SMG$L_DEV_DEPEND ! Specific characteristics (1)A 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 MAPA BYTE SMG$B_RECALL_NUM ! Size of recall buffer (+) END MAP END UNIONG BYTE SMG$B_DEV_TYPE ! Physical device type (e.g. DT$_VT100) UNION MAP> BYTE SMG$B_NUM_ROWS ! Number of rowsc on device END MAP MAPL BYTE SMG$B_TYPEAHD_CHAR ! First char in typeahead buffer (+) END MAP END UNION3 INTEGER*2 SMG$W_NUM_COLUMNS ! Terminal width UNION MAPP INTEGER*2 SMG$W_TYPEAHD_CNT ! Number of chars in typeahead buffer (+) END MAP MAP? BYTE SMG$B_PBD_COLOR ! PBD background colorA BYTE SMG$B_DEV_PARITY ! Parity attributes (+) END MAP d END UNION5 INTEGER*2 SMG$W_DEV_SPEED ! Terminal Speed (+): INTEGER*2 SMG$W_DEV_FILL ! Fill characteristics (+)E INTEGER*2 SMG$W_PHYS_CURSOR_ROW ! Row where physical cursor isE INTEGER*2 SMG$W_PHYS_CURSOR_COL ! Col where physical cursor isA INTEGER*4 SMG$L_DISPLAY_ID ! Display containing phy cursorA INTEGER*4 SMG$L_DEV_DEPEND3 ! Specific characteristics (3)+ END STRUCTURE ! SMG$R_ATTRIBUTE_INFO_BLOCKO PARAMETER SMG$C_ATTRIBUTE_INFO_BLOCK = '00000024'X e ! Length of table in bytesCDEC$ END OPTIONSww-Ta!*** MODULE $SMGMSG ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:07.40! !! FILE: SMGMSG.MSG EDIT: SL1035! ! * *J! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1994 BY *B! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *$! * ALL RIGHTS RESERVED. *! * *N! * THIS SOFTWARE IS FURNISHE f D 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! * g 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. *! * *! * *! ! F! 1-035 MODIFY THE TEXT FOR SEVERAL MESSAGES TO MATCH THE HELP TEXT, $! WHICH IS CORRECT. SL 28-SEP-19949! 1-034 ADD /MACRO=$SMGMSG FOR STARLETSD. TS 7-MAY-19868! 1-033 C h HANGE WINTRUFIT TO WINTRUNCFIT JCW 18-MAR-19860! 1-032 ADD SUBPROCESS MESSAGES. TS 12-DEC-1985/! 1-031 ADD VIEWPORT MESSAGES. JCW 21-NOV-1985I! 1-030 ADD SMG$_GETDATSTR FOR USE IN HELP TEXT DISPLAY. TS 17-OCT-1985H! 1-029 ADD SMG$_NOTIMP - NOT IMPLEMENTED ERROR MESSAGE. JCW 2-JUL-19854! 1-028 ADD LINNOTFND AND EXPTOOCOM. TS 28-MAY-1985@! 1-027 ADD DISREQ, LENNOTEQL, LENMUSONE FOR SMG$READ_VERIFY. C! ADD FILESPEC TO TERMTABLE COMPILER ERROR MESSAGES. TS 8-JAN-1985#! 1-001 ORIGINAL.i PLL 16-MAR-1983! -! +?! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:! ! SMG$_ABCMNOXYZ! L! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",N! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR3! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.! M! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR7! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION.! ! MACRO-32 PROGRAMMINj G:! ! THE MACROS CALL:! ! $SMGDEF! =! 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 CONVENIENCE OF THE USER.! ! -%! TEMPLATE FOR DOCUMENTING MESSAGES.9! EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND! IS FOLLOWED BY A BLANK LINE.G! BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "!" IN REGULAR COMMENTS>! AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQk UENCE AND CAN BE9! 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 WAl S REPLACED BY A NEW! DEFINITION.! USER ACTION: NONE! --! +5! THE NEXT THREE MESSAGES ARE USED BY THE "batching"C! PROCEDURES, SMG$BEGIN_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_UPDAT m E. THIS DID NOT4! TERMINATE BATCHING BECAUSE THERE WERE MORE CALLS0! 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: SMG9! EXPLANATION: A PROGRAM TRIED TO TURN OFF BATCHING WHEN! BATCHING WAS ALREADY OFF.=! USER ACTION: PROBABLY NONE. CHECK THAT THERE WAS ONE CALL5! TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF.n ! --' PARAMETER SMG$_BATWAS_ON = '00128029'X! ++! FACILITY: SMG8! EXPLANATION: A PROGRAM TRIED TO TURN ON BATCHING WHEN/! BATCHING WAS ALREADY ON. THIS IS NORMAL IN! A MODULAR ENVIRONMENT.4! USER ACTION: NONE. CHECK THAT THERE WAS ONE CALL5! TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF.! --' PARAMETER SMG$_PASALREXI = '00128031'X! ++! FACILITY: SMGA! EXPLANATION: A USER TRIED TO CREATE A PASTEBOARD FOR A DEVICE,4! WHEN ONE WAS ALREADY CREATED. THIS IS NORo MAL IN6! 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: SMGA! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT3! THE PASTEBOARD HAS BEEN CREATED, BUT THE OUTPUT! DEVICE IS NOT A TERMINAL.! USER ACTION: NONE.! --' PARAMETER SMG$_NO_MORMSG = '00128041'X! ++! FACILITY: SMG>p ! EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FOUND THAT/! 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 OF6! EVERY OUTPUT OPERATION. IF, HOWEVER, THE 'DEVICE'3! IS ACTUALLY A FILE OR AN UNKNOWN TERMINAL, THEN2! THIS MESSAGE IS GIVEN AT THE TIME OUTPUT WOULD!! HAVE BEEN SENT TO THE SCREEN.! USER ACTION: NONE! --' PARAMETq ER SMG$_NOTRMSOUT = '00128051'X! ++! FACILITY: SMGC! EXPLANATION: SMG$SNAPSHOT IS USED WITH FILES AND UNKNOWN DEVICES8! TO CAPTURE THE CONTENTS OF THE PASTEBOARD AT VARIOUS6! TIMES. IF SMG$SNAPSHOT IS CALLED FOR A PASTEBOARD6! ASSOCIATED WITH A VIDEO TERMINAL, THEN IT TAKES NO2! ACTION AND RETURNS THIS INFORMATIONAL MESSAGE.! USER ACTION: NONE! --' PARAMETER SMG$_NO_CHADIS = '00128059'X! ++! FACILITY: SMGC! EXPLANATION: THE REQUESTED NUMBER OF COLUMNS TO CHANGE WAS r ZERO,2! 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 IN9! THE SYSTEM TERMTABLE. (REQUESTED TERMINAL DEFINITION5! DID NOT EXIST IN THEs CALLER'S PRIVATE TERMTABLE.)! USER ACTION: NONE! --) PARAMETER SMG$_WINTRUNCFIT = '00128071'X! ++! FACILITY: SMGE! EXPLANATION: THE VIEWPORT SPECIFICATION WILL NOT FIT WHOLLY WITHIN8! THE VIRTUAL DISPLAY. THE VIEWPORT HAS BEEN TRUNCATED&! TO FIT WITHIN THE VIRTUAL DISPLAY.! USER ACTION: NONE! --' PARAMETER SMG$_SUBALREXI = '00128079'X! ++! FACILITY: SMGA! EXPLANATION: A USER TRIED TO CREATE A SUBPROCESS FOR A VIRTUAL;! DISPLAY, WHEN ONE WAS ALREADY CREATED. THt IS 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 THAT5! 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.9! USER ACTION: CONTACT A DIGITAL SUPPORT REPRESENTATIVE.! --$ PARAMETER SMG$_INu VARG = '0012820C'X! ++! FACILITY: SMGG! 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: SMGF! EXPLANATION: AN INVALID COLUMN NUMBER WAS SPECIFIED. IT WAS EITHER4! LESS THAN 0 OR LARGER THAN THE NUMBER OF COLUMNS! IN THE VIRTUAL DISPLAY.D! USER ACTION: SPECIFY A VALID COLUMN NUMBER. COLUMNS v ARE NUMBERED! BEGINNING WITH 1.! --' PARAMETER SMG$_INVDIS_ID = '0012821C'X! ++! FACILITY: SMG4! EXPLANATION: AN INVALID DISPLAY-ID WAS SPECIFIED.F! USER ACTION: CHECK THAT YOU ARE PASSING THE DISPLAY ID BY REFERENCE0! 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: SMG7! EXPLANATION: AN INVALID PASTEBOARD ID WAS SPECIFIED.I! USER ACTION: CHECK THAT w YOU ARE PASSING THE PASTEBOARD ID BY REFERENCE7! NOT BY VALUE. (A REFERENCE TO A 0 IS VALID, SINCE 09! IS A LEGAL PASTEBOARD ID.) ENSURE THAT THE PASTEBOARD&! WAS PREVIOUSLY SET UP BY A CALL TO9! SMG$CREATE_PASTEBOARD AND THAT THE PASTEBOARD HAS NOT! BEEN DELETED.! --$ PARAMETER SMG$_INVROW = '0012822C'X! ++! FACILITY: SMGC! EXPLANATION: AN INVALID ROW NUMBER WAS SPECIFIED. IT WAS EITHER1! LESS THAN 0 OR LARGER THAN THE NUMBER OF ROWS! IN THE VIRTUAL DISPLAY. x >! 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.I! USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE UPDATES1! TO THE Sy AME VIRTUAL DISPLAY AT THE SAME TIME.! --' PARAMETER SMG$_TOOMANPAS = '0012823C'X! ++! FACILITY: SMG>! EXPLANATION: AN INTERNAL LIMIT ON THE NUMBER OF PASTEBOARDS1! THAT YOUR PROGRAM MAY HAVE HAS BEEN EXCEEDED.! THE LIMIT IS CURRENTLY 31.&! USER ACTION: USE FEWER PASTEBOARDS.! --' PARAMETER SMG$_WRONUMARG = '00128244'X! ++! FACILITY: SMG@! EXPLANATION: AN SMG ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS0! (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS)! OR TOO MANY ARz GUMENTS.9! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH#! THE PROPER NUMBER OF ARGUMENTS.! --' PARAMETER SMG$_INVKBD_ID = '0012824C'X! ++! FACILITY: SMG2! EXPLANATION: AN INVALID KEYBOARD ID WAS PASSED.G! USER ACTION: CHECK THAT YOU ARE PASSING THE KEYBOARD ID BY REFERENCE1! 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: SMG3! E { XPLANATION: AN INVALID KEY TABLE ID WAS PASSED.H! USER ACTION: CHECK THAT YOU ARE PASSING THE KEY TABLE ID BY REFERENCE2! 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: SMG@! EXPLANATION: THE MAXIMUM LENGTH SPECIFIED FOR AN INPUT STRING! WAS TOO LONG.A! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS AN INPUT%! STRING OF 512 CHARACTERS OR LESS.| ! --' PARAMETER SMG$_FILTOOLON = '00128264'X! ++! FACILITY: SMG2! 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: SMGF! EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS.=! USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS.! --' PARAMETER SMG$_NOTPASTED = '00128274'X} ! ++! FACILITY: SMG@! EXPLANATION: AN ATTEMPT WAS MADE TO UNPASTE OR MOVE A DISPLAY4! THAT WAS NOT PASTED TO THE SPECIFIED PASTEBOARD.B! USER ACTION: CHECK THAT YOU ARE REFERENCING THE CORRECT VIRTUAL2! 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.0~ ! FOR EXAMPLE, YOU CAN'T CHANGE THE PASTEBOARD4! CHARACTERISTICS WHILE THE PASTEBOARD IS BATCHED.B! USER ACTION: TURN OFF PASTEBOARD BATCHING BEFORE ATTEMPTING THE8! OPERATION. YOU MAY TURN BATCHING ON AGAIN AFTER THE! OPERATION.! --' PARAMETER SMG$_INVWIDARG = '00128284'X! ++! FACILITY: SMGA! 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.! --' PARAMET ER SMG$_INVPAGARG = '0012828C'X! ++! FACILITY: SMGA! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS9! 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: SMGA! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS2! OF THE TERMINAL, CHANGING ITS BACKGROUND COLOR"! TO A VALUE THAT WAS NOT LEGAL.@! USER ACTION: CHECK THE SYMB OLIC NAME FOR THE BACKGROUND COLOR#! DESIRED. SPECIFY IT CORRECTLY.! --' PARAMETER SMG$_DIALINNOT = '0012829C'X! ++! FACILITY: SMGF! EXPLANATION: THE VERTICES SPECIFIED WILL RESULT IN A DIAGONAL LINE,.! RATHER THAN A VERTICAL OR HORIZONTAL LINE.F! USER ACTION: RE-SPECIFY THE VERTICES SO THAT THE LINE DRAWN WILL BE! VERTICAL OR HORIZONTAL.! --' PARAMETER SMG$_TABID_MIS = '001282A4'X! ++! FACILITY: SMGE! EXPLANATION: THE TERMTABLE INTERNAL CONSISTENCY CHECK FAILED.  THE8! ROUTINES WHICH FETCH INFORMATION FROM TERMTABLE HAVE7! A DIFFERENT VERSION NUMBER THAN THE TERMTABLE DATA.D! USER ACTION: PROBABLY THE ROUTINES WHICH FETCH THE DATA ARE NEWER9! THAN YOUR TERMTABLE.EXE. RE-COMPILE TERMTABLE.TXT TO! UPDATE YOUR TERMTABLE.EXE.! --' PARAMETER SMG$_UNDTERNAM = '001282AC'X! ++! FACILITY: SMGB! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN8! THE CALLER'S PRIVATE COPY OF TERMTABLE OR THE SYSTEM! COPY OF TERMTABLE.E ! USER ACTION: IF YOU INTENDED TO USE A PRIVATE TERMINAL DEFINITION,7! 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 IN9! THE SYSTEM TERMTABLE, CHECK WITH YOUR SYSTEM MANAGER.! --' PARAMETER SMG$_INVTERTAB = '001282B4'X! ++! FACILITY: SMG@! EXPLANATION: AN INVALID TERMINAL TABLE ADDRESS WAS SPECIFIED.F! USER ACTION: CHECK THAT YOU ARE PASSING THE TERMINAL TA BLE 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: SMGB! EXPLANATION: DATA IS REQUESTED FROM TERMTABLE VIA REQUEST CODES8! WHICH ARE AVAILABLE AS SYMBOLIC NAMES. THE CODE YOU ! HAVE SPECIFIED IS INVALID.F! USER ACTION: CHECK THE SPELLING OF THE SYMBOLIC NAME YOU ARE USING.! --' PARAMETER SMG$_NOTBOOCAP = '001282C4'X! ++%! FAC ILITY: SMG (TERMTABLE COMPILER)D! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A BOOLEAN CAPABILITY(! NAME BUT ENCOUNTERED SOMETHING ELSE.A! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE5! MISSPELLED THE BOOLEAN CAPABILITY NAME OR OMITTED5! ANOTHER STATEMENT SUCH AS STRING OR NUMERIC WHICH/! WOULD HAVE TERMINATED BOOLEAN CAPABILITIES.! --$ PARAMETER SMG$_SYNERR = '001282CC'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)=! EXPLANATION: THE TERMTABLE COMPILER E NCOUNTERED AN INVALID7! SYNTAX. FOR INSTANCE, THERE MAY BE A MISPLACED OR ! MISSING EQUALS SIGN.1! USER ACTION: CHECK YOUR TERMINAL DEFINITION. ! --' PARAMETER SMG$_UNDTERTYP = '001282D4'X! ++! FACILITY: SMG B! EXPLANATION: THE DEFINITION FOR THE REQUESTED TERMINAL TYPE WAS7! NOT FOUND IN THE CALLER'S PRIVATE COPY OF TERMTABLE! OR THE SYSTEM TERMTABLE.A! USER ACTION: IF YOU INTENDED TO USE A PRIVATE DEFINITION, MAKE<! SURE THAT TERMTABLE.EXE EXISTS IN YOUR PRIVA TE DIRECTORY7! AND THAT THE LOGICAL NAME TERM$TABLOC POINTS TO IT.8! IF YOU EXPECTED YOUR TERMINAL DEFINITION TO EXIST IN6! THE SYSTEM TERMTABLE, CONSULT YOUR SYSTEM MANAGER.! --' PARAMETER SMG$_MISTERNAM = '001282DC'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)@! EXPLANATION: CAPABILITIES WERE NOT PRECEEDED BY THE NAME OF A ! TERMINAL.@! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. MAKE SURE THAT7! EACH DEFINITION STARTS WITH NAME = .! --' PARAMETER SMG $_EXPTOOCOM = '001282E4'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)-! EXPLANATION: THE SPECIFIED EXPRESSION WAS 4! TOO COMPLEX FOR THE TERMTABLE COMPILER TO PARSE.C! USER ACTION: CORRECT YOUR CAPABILITY SO THAT IT IS LESS COMPLEX.! --$ PARAMETER SMG$_ILLVAL = '001282EC'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)A! EXPLANATION: A BOOLEAN CAPABILITY WAS GIVEN A VALUE OTHER THAN ! 0 OR 1.F! 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 HAVE2! 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 MANY 6! 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 MANY6! TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY/! SPECIFICALLY WHICH LINE CONTAINED AN ERROR.<! USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION.! --' PARAMETER SMG $_UNDTERNOP = '0012830C'X! ++! FACILITY: SMGF! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN THE4! 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.E! 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$TABLOC9! POINTS TO IT. MAKE SURE THAT YOU HAVE READ ACCESS TO ! THE FILE.! --' PARAMETER SMG$_UNDTERNOS = '00128314'X! ++! FACILITY: SMGB! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN;! THE CALLER'S PRIVATE TERMTABLE OR THE SYSTEM TERMTABLE.)! THE SYSTEM TERMTABLE WAS UNAVAILABLE.B! USER ACTION: THE SYSTEM TERMTABLE SHOULD BE MAPPED AS A GLOBAL 7! SECTION AND THEREFORE SHOULD ALWAYS BE AVAILABLE. /! CONSULT YOUR SYSTEM MANAGER REGARD ING THIS.! --' PARAMETER SMG$_MISFILSPE = '0012831C'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)C! EXPLANATION: THE REQUIRE STATEMENT NEEDS A FILE NAME IN ORDER TO8! LOCATE EXTERNAL DEFINITIONS WHICH SHOULD BECOME PART! OF YOUR TERMTABLE.A! USER ACTION: CHECK YOUR TERMTABLE.TXT. ADD A FILE NAME TO THE! REQUIRE STATEMENT.! --& PARAMETER SMG$_UNRECSTA = '00128324'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)C! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED A STATEMENT T HAT! IT DOES NOT RECOGNIZE.B! USER ACTION: CHECK YOUR DEFINITION. MAKE SURE YOU HAVE SPELLED6! 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.A! 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 USER3! 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)D! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A NUMERIC CAPABILITY(! NAME BUT ENCOUNTERED SOMETHING ELSE.A! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE5! MISSPELLED THE NUMERIC CAPABILITY NAME OR OMITTED5! ANOTHER STATEMENT SUCH AS STRING OR BOOLEAN WHICH/! WOULD HAVE TERMINATED NUMERIC CAPABILITIES.! --' PARAMETER SMG$_NOTSTRCAP = '00128344'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)C! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A STRING CAPABILITY(! NAME BUT ENCOUNTERED SOMETHING ELSE.A! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU H AVE4! MISSPELLED THE STRING CAPABILITY NAME OR OMITTED6! ANOTHER STATEMENT SUCH AS BOOLEAN OR NUMERIC WHICH.! WOULD HAVE TERMINATED STRING CAPABILITIES.! --' PARAMETER SMG$_MISENDSTA = '0012834C'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)@! EXPLANATION: THE TERMTABLE COMPILER EXPECTED AN END STATEMENT4! TO TERMINATE THE CURRENT TERMINAL DEFINITION AND#! THIS END STATEMENT WAS MISSING.0! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS.! --' PARAMETER SMG$_MISNAMREQ = '00128 354'X! ++%! FACILITY: SMG (TERMTABLE COMPILER)@! EXPLANATION: THE TERMTABLE COMPILER EXPECTED TERMTABLE.TXT TO5! BEGIN WITH A TERMINAL DEFINITION (NAME STATEMENT)2! OR A REQUIRE. SOMETHING ELSE WAS ENCOUNTERED.+! USER ACTION: CHECK YOUR TERMTABLE.TXT. ! --' PARAMETER SMG$_ILLBATFNC = '0012835C'X! ++! FACILITY: SMG@! EXPLANATION: AN ATTEMPT WAS MADE TO PERFORM AN OPERATION THAT5! IS NOT PERMITTED WHILE A VIRTUAL DISPLAY IS BEING4! BATCHED (FOR EXAMPLE, PERFORMING I NPUT OR MOVING! THE VIRTUAL DISPLAY).3! 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 FAO4! 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 MADE1! SPECIFYING THAT THE TERMINAL IS TO BE QUERIED%! TO DETERMINE WHERE THE CURSOR IS./! THIS COULD NOT BE DONE BECAUSE THE TERMINAL/! 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: SMG2! EXPLANATION: A CALL TO SMG$READ_VERIFY WA S MADE.! SPECIFYING A PICTURE STRING AND AN INITIAL0! STRING OF UNEQUAL LENGTH. SINCE THE INITIAL/! STRING IS USED AS THE DEFAULT VALUE FOR THE6! INPUT, IT MUST MATCH THE PICTURE STRING IN LENGTH.B! USER ACTION: MODIFY THE INITIAL STRING TO BE OF THE SAME LENGTH! AS THE PICTURE STRING.! --' PARAMETER SMG$_LENMUSONE = '0012837C'X! ++! FACILITY: SMG2! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE'! SPECIFYING A FILL STRING OR A CLEAR<! STRING OF MORE THAN ONE CHAR ACTER. SINCE FILL CHARACTER7! MATCHING IS DONE ONE CHARACTER AT A TIME, ONLY ONE =! CHARACTER MAY BE SPECIFIED FOR THE FILL AND CLEAR STRING.G! USER ACTION: MODIFY THE FILL AND/OR CLEAR STRING TO BE ONE CHARACTER ! LONG.! --$ PARAMETER SMG$_DISREQ = '00128384'X! ++! FACILITY: SMG2! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE5! SPECIFYING RIGHT-JUSTIFICATION, NO DISPLAY_ID WAS5! SPECIFIED AND THE SCROLL_REVERSE SEQUENCE WAS NOT4! FOUND FOR THIS TERMINAL IN TERMT ABLE.EXE. SINCE5! RIGHT-JUSTIFICATION REQUIRES A CURSOR POSITIONING4! SEQUENCE TO WORK PROPERLY, EITHER THE DISPLAY_ID5! PARAMETER MUST BE SPECIFIED OR THE SCROLL_REVERSE,! SEQUENCE MUST BE ADDED TO TERMTABLE.EXE.C! USER ACTION: ADD THE DISPLAY_ID PARAMETER TO THE SMG$READ_VERIFY/! CALL OR ADD THE SCROLL_REVERSE SEQUENCE TO ! TERMTABLE.EXE.! --$ PARAMETER SMG$_NOTIMP = '0012838C'X! ++! FACILITY: SMGB! EXPLANATION: YOU TRIED TO USE A ROUTINE THAT IS NOT IMPLEMENTED ! IN THIS VERSION OF SMG$.4! USER ACTION: GET THE APPROPRIATE VERSION OF SMG$.! --) PARAMETER SMG$_NO_WINASSOC = '00128394'X! ++! FACILITY: SMGC! EXPLANATION: A VIEWPORT HAS NOT BEEN ASSOCIATED WITH THE VIRTUAL ! DISPLAY.9! USER ACTION: CREATE A VIEWPORT ON THE VIRTUAL DISPLAY.! --' PARAMETER SMG$_WINEXISTS = '0012839C'X! ++! FACILITY: SMGG! EXPLANATION: A VIEWPORT EXISTS. THAT IS, A VIEWPORT HAS ALREADY BEEN(! ASSOCIATED WITH THE VIRTUAL DISPLAY.D! 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 VIEWPORT2! ROUTINES ON CHANGE/MOVE THE EXISTING VIEWPORT.! --& PARAMETER SMG$_NOSUBEXI = '001283A4'X! ++! FACILITY: SMGE! EXPLANATION: A SUBPROCESS DOES NOT EXIST FOR THE SPECIFIED VIRTUAL ! DISPLAY. E! USER ACTION: CALL SMG$CREATE_SUBPROCESS TO CREATE A SUBPROCESS FOR! THIS VIRTUAL DISPLAY.! --' PARAMETER SMG $_INSQUOCRE = '001283AC'X! ++! FACILITY: SMGC! 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: SMGF! EXPLANATION: THE LENGTH OF AN INPUT STRING EXCEEDED 255 CHARACTERS.=! USER ACTION: SHORTEN THE STRING TO 255 CHARACTERS OR LESS.! --' PARAMETER SMG$_KBDIN_USE = '001283BC'X! ++! FACILITY: SMG>! EXPLA NATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOT@! 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.H! USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE INPUTS4! 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.C ! USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS ! CONDITION AND RESPOND TO IT.! --' PARAMETER SMG$_KEYDEFPRO = '0012840A'X! ++! FACILITY: SMGC! EXPLANATION: THE SPECIFIED KEY IS ALREADY DEFINED, AND SINCE ITS5! DEFINITION IS PROTECTED, IT CAN NOT BE CHANGED OR! RE-DEFINED.! USER ACTION: NONE! --' PARAMETER SMG$_INVDEFATT = '00128412'X! ++! FACILITY: SMGG! EXPLANATION: WHEN A KEY IS DEFINED, ATTRIBUTES SUCH AS NOECHO MAY BE;! SPECIFIED WIT H THE DEFINITION. AN ATTEMPT WAS MADE TO!! SPECIFY AN UNKNOWN ATTRIBUTE.C! USER ACTION: CHECK THE LIST OF VALID ATTRIBUTES AND CORRECT YOUR ! PROGRAM.! --' PARAMETER SMG$_INVKEYNAM = '0012841A'X! ++! FACILITY: SMGC! 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: SMGE! EXPLANATION: THE SPECIFIED STATE NA ME 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: SMG6! EXPLANATION: THE INPUT LINE REQUESTED IN A CALL TO (! SMG$RETURN_INPUT_LINE WAS NOT FOUND.C! USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS ! CONDITION AND RESPOND TO IT.! --' PARAMETER SMG$_KEYNOTDEF = '00129000'X! ++! FACILITY: SMGD! EXPLANATION: AN ATTEMPT WAS MAD E TO PERFORM AN OPERATION, SUCH AS4! SMG$GET_KEY_DEF, ON A KEY WHICH WAS NOT DEFINED.A! USER ACTION: CHECK YOUR PROGRAM TO SEE IF THIS KEY SHOULD HAVE! BEEN DEFINED.! --( PARAMETER SMG$_NOMOREKEYS = '00129008'X! ++! FACILITY: SMGF! EXPLANATION: SMG$LIST_KEY_DEFS, WHEN CALLED REPEATEDLY, RETURNS ALL:! THE KEY DEFINITIONS IN A KEY TABLE. WHEN THERE ARE NO-! MORE DEFINITIONS, THIS ERROR IS RETURNED.K! USER ACTION: MODIFY YOUR PROGRAM TO EXPECT THIS CONDITION, IF NECESSARY. ! --' PARAMETER SMG$_STRTERESC = '00129010'X! ++! FACILITY: SMGD! EXPLANATION: AN SMG OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE:! EMBEDDED IN THE OUTPUT STRING. THE OUTPUT STRING WAS 5! WRITTEN TO THE VIRTUAL DISPLAY BUT THE STRING WAS&! TERMINATED AT THE ESCAPE SEQUENCE.A! USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE6! SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION3! PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST:! LIKELY A SMG ROUTINE THA T PROVIDES THAT FUNCTIONALITY.! --' PARAMETER SMG$_GBLNOTCRE = '00129018'X! ++! FACILITY: SMGF! EXPLANATION: THE SYSTEM PROGRAM THAT MAPS TERMTABLE.EXE AS A GLOBAL! SECTION WAS UNSUCCESSFUL.G! USER ACTION: THIS MESSAGE SHOULD BE HANDLED ONLY BY SYSTEM MANAGERS.6! 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: SMGC! EXPLANATION: THE SYSTEM PROGRAM WHICH MAPS TERMTABLE AS A GLOBAL:! SECTION WAS UNSUCCESSFUL. BEFORE A NEW GLOBAL SECTION5! CAN BE CREATED, THE PREVIOUS ONE MUST BE DELETED.A! 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: SMGE! EXPLANATION: THIS MESSAGE IS SIGNALED INTERNALLY TO ALLOW THE HELP8! OUTPUT ROUTINE THAT WAS CALLED BY LBR$OUTPUT_HELP TO;! ACCESS THE DISPLAY_ID AND KEYBOARD_ID FOR THE SPECIFIED8! 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: SMGA! EXPLANATION: THE REQUESTED OPERATION CANNOT BE PERFORMED SINCE8! THE TERMINAL HARDWARE DOES NOT SUPPORT THIS FEATURE.D! USER ACTION: RUN THE APPLICATION ON A TERMINAL THAT SUPPORTS THIS !  FEATURE.! --' PARAMETER SMG$_HLPPMTSTR = '00129038'X! ++! FACILITY: SMGG! EXPLANATION: THIS MESSAGE IS THE PROMPT STRING OUTPUT BY THE ROUTINE9! SMG$PUT_HELP_TEXT. IT IS NOT A NORMAL ERROR MESSAGE 6! BUT RESIDES HERE TO ALLOW TRANSLATION TO LANGUAGES! OTHER THAN ENGLISH.! USER ACTION: NONE.! --CDEC$ END OPTIONSww*!*** MODULE $SMGTRMPTR ***CDEC$ OPTIONS /NOALIGN5! Terminal Capability Pointers for RTL SMG$ facility! &! Boolean capabilit ies 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 = '00000005'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( PAR AMETER 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_REGIS = '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 = '00 000017'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! 2! 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 - 2 21 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, PAR AMETER 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 SMG$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_C ROSS_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* PARAMETER 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_DOUBL E_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$ PARAMETER 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 S MG$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& PARAMETER 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_L EFT_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_KEY_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 = '0000022 D'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_SCROLL_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 = '0 0000237'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 = '0000023B'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_U PPER_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 = '00000246'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 SMG$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 S MG$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 SMG$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! 3! 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_USER1 = '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_U SER8 = '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 S MG$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_KEY_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+ PAR AMETER 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 S MG$K_SET_HANGUL = '000002C9'X+ PARAMETER SMG$K_SET_KS_ROMAN = '000002CA'X/ PARAMETER SMG$K_MAX_STRING2_CODE = '00000370'XCDEC$ END OPTIONSwwΞ0!*** MODULE $SMRDEF ***CDEC$ OPTIONS /NOALIGN! (! 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 D PARAMETER SMR$K_START = '00000002'X ! ACTIVATE OR RESUME PRINTING E P ARAMETER SMR$K_PAUSE = '00000003'X ! SUSPEND PRINTING FOR A WHILE O PARAMETER SMR$K_MERGE = '00000004'X ! MOVE FILES FORM ONE QUEUE INTO ANOTHER N PARAMETER SMR$K_REDIRECT = '00000005'X ! ASSIGNMENT OF ONE QUEUE TO ANOTHER L PARAMETER SMR$K_JUSTIFY = '00000006'X ! JUSTIFY PRINT FORMS(IE: ISSUE FF) A 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 D P ARAMETER SMR$K_ADDFIL = '0000000A'X ! ADD A FILE TO EXISTING JOB 8 PARAMETER SMR$K_CLSJOB = '0000000B'X ! CLOSE OPEN JOB ? PARAMETER SMR$K_RMVJOB = '0000000C'X ! REMOVE JOB FROM QUEUE G PARAMETER SMR$K_ALTER = '0000000D'X ! CHANGE A FILES CHARACTERISTICS F PARAMETER SMR$K_ABORT = '0000000E'X ! ABORT CURRENT JOB, START NEXT E PARAMETER SMR$K_RELEASE = '0000000F'X ! RELEASE JOB FROM HOLD LIST E PARAMETER SMR$K_DETINIT = '00000010'X ! DETACHED JOB HAS INITIATED F PARAMETER SMR$K_SYNCJOB = '00000011'X ! SYNCRONIZE WITH A BATCH JOB I PARAMETER SMR$K_ASKQNAM = '00000012'X ! GET NAME OF QUEUE FOR LOG FILE ! 8! ASSIGN SYMBIONT MANAGER PRINT JOB/RECORD OPTION CODES! ! ! JOB FILE OPTIONS H 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 @ PARAMETER SMO$K_NOFLAGP AG = '00000005'X ! INHIBIT A FLAG PAGE G PARAMETER SMO$K_PAGHDR = '00000006'X ! PRINT FILENAME AS PAGE HEADER B PARAMETER SMO$K_DOUBLE = '00000007'X ! DOUBLE SPACE THE LISTING F PARAMETER SMO$K_NOFEED = '00000008'X ! INHIBIT FORM FEED GENERATION E PARAMETER SMO$K_PAGCNT = '00000009'X ! SPECIFY PAGE COUNT TO PRINT C PARAMETER SMO$K_COPIES = '0000000A'X ! NUMBER OF COPIES TO PRINT 4 PARAMETER SMO$K_FILESIZ = '0000000B'X ! FILE SIZE < PARAMETER SMO$K_DESTQUE = '0000000C'X ! DESTINATION QUEUE ! OPTIONS FOR CREATE JOB E PARAMETER SMO$K_RLSTIM = '00000020'X ! TIME TO HOLD UNTIL QUEUEING 4 PARAMETER SMO$K_HOLD = '00000021'X ! HOLD THE JOB P PARAMETER SMO$K_JOBPRI = '00000022'X ! SPECIFY PRINT JOB/DETACHED JOB PRIOITY I PARAMETER SMO$K_JOBCOPY = '00000023'X ! NUMBER OF COPIES OF ENTIRE JOB J PARAMETER SMO$K_FORMTYPE = '00000024'X ! FORM TYPE TO USED WHEN PRINTED F PARAMETER SMO$K_LOWER = '00000025'X ! UPPER/LOWER CASE PRINTER ONLY ? PARAMETER SMO$K_PARAMS = '00000026'X ! SUPPLY JOB PARAMETERS C PARAMETER SMO$K_JOBNAME = '00000027'X ! SUPPLY A NAME TO THE JOB D PARAMETER SMO$K_NOLOWER = '00000028'X ! CLEAR LOWER CASE REQUIRED 8 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 A PARAMETER SMO$K_NOWSDFT = '0000002E'X ! NO WORKING SET DEFAULT G PARAMETER SMO$K_DQCHAR = '0000002F'X ! CHAR. TO BE USED WHEN PRINTED 9 PARAMETER SMO$K_LOGFNAM = '00000030'X ! LOG FILE SPEC. B PARAMETER SMO$K_LOGQNAM = '00000031'X ! QUEUE NAME FOR LOG FILE 8 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 B PARAMETER SMO$K_NOLOG = '00000035'X ! CREATE LOG ON NULL DEVICE C PARAMET ER SMO$K_NOTIFY = '00000036'X ! NOTIFY WHEN JOB COMPLETES 4 PARAMETER SMO$K_NONOTFY = '00000037'X ! NO NOTIFY 4 PARAMETER SMO$K_WSEXTNT = '00000038'X ! WS EXTENT 9 PARAMETER SMO$K_NOWSEXTNT = '00000039'X ! NO WS EXTENT %! OPTIONS FOR INIT OR START A QUEUE J PARAMETER SMO$K_CURFORM = '00000040'X ! CURRENT FORMS MOUNTED ON DEVICE @ PARAMETER SMO$K_GENPRT = '00000041'X ! ALLOW GENERIC PRINTING E PARAMETER SMO$K_NOGENPRT = '00000042'X ! DISALLOW GENERIC PRINTING K PARAMETER SMO$K_DETJO B = '00000043'X ! QUEUE IS FOR DETACHED JOB QUEUING G PARAMETER SMO$K_GENDEV = '00000044'X ! QUEUE IS GENERIC DEVICE QUEUE @ PARAMETER SMO$K_NOGENDEV = '00000045'X ! NOT A GENERIC DEVICE J PARAMETER SMO$K_DEFBRST = '00000046'X ! QUEUE HAS BURST PAGE BY DEFAULT B PARAMETER SMO$K_NODEFBRST = '00000047'X ! NO DEFAULT BURST PAGE I 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 = '0 000004A'X ! DEVICE IS A TERMINAL D PARAMETER SMO$K_NOTRMDEV = '0000004B'X ! DEVICE IS NOT A TERMINAL B PARAMETER SMO$K_JOBLIM = '0000004C'X ! JOB LIMIT FOR BATCH JOBS > PARAMETER SMO$K_INIPRI = '0000004D'X ! JOB INITIAL PRIORITY 9 PARAMETER SMO$K_DISWAP = '0000004E'X ! DISABLE SWAPING < PARAMETER SMO$K_MCPULM = '0000004F'X ! MAX CPU TIME LIMIT A PARAMETER SMO$K_NOMCPULM = '00000050'X ! NO MAX CPU TIME LIMIT @ PARAMETER SMO$K_DCPULM = '00000051'X ! DEFAULT CPU TIME LIMIT E PARAMETER S MO$K_NODCPULM = '00000052'X ! NO DEFAULT CPU TIME LIMIT ; PARAMETER SMO$K_WSQUTA = '00000053'X ! WORKING SET QUOTA @ PARAMETER SMO$K_NOWSQUTA = '00000054'X ! NO WORKING SET QUOTA = PARAMETER SMO$K_WSDFLT = '00000055'X ! WORKING SET DEFAULT B PARAMETER SMO$K_NOWSDFLT = '00000056'X ! NO WORKING SET DEFAULT G PARAMETER SMO$K_CURDQCHAR = '00000057'X ! CURRENT CHAR. OF THE QUEUE B PARAMETER SMO$K_SMBNAME = '00000058'X ! SYMBIONT NAME FOR QUEUE 4 PARAMETER SMO$K_WSXTANT = '00000059'X ! WS EXTENT 8 PARAMETER SMO$K_NOWSXTNT = '0000005A'X ! NO WS EXTENT ; PARAMETER SMO$K_NODISWAP = '0000005B'X ! ENABLE SWAPPING ! OPTIONS FOR RESTART O PARAMETER SMO$K_NEXTJOB = '00000060'X ! RESTART AT END BEGINNING OF NEXT JOB F PARAMETER SMO$K_TOPOFILE = '00000061'X ! RESTART JOB AT TOP-OF-FILE E PARAMETER SMO$K_SPCCNT = '00000062'X ! SPECIFY PAGES TO SPACE OVER ! OPTIONS FOR ABORT ; PARAMETER SMO$K_REQUEUE = '00000070'X ! REQUEUE THE FILE H PARAMETER SMO$K_REQDEST = '00000071'X ! SPECIFY NEW QUEUE DESTINATION F PARAMETER SMO$K_REQPRIO = '00000072'X ! SPECIFY PRIORITY ON REQUEUE CDEC$ END OPTIONS wwmU0!*** MODULE $SNAPEVTDEF ***CDEC$ OPTIONS /NOALIGN, PARAMETER SNAPEVT$M_ROLLINOUT = '00000001'X* PARAMETER SNAPEVT$M_FILESYS = '00000002'X* PARAMETER SNAPEVT$M_CLUSTER = '00000004'X( PARAMETER SNAPEVT$M_DEBUG = '00000008'X- PARAMETER SNAPEVT$M_DISCONNECT = '00000010'X* PARAMETER SNAPEVT$M_NEW_CPU = '00000020'X* PARAMETER SNAPEVT$M_NOQUIET = '00000040'X+ PARAMETER SNAPEVT$M_NOSECURE = '00000080'XJ PARAMETER SNAPEVT$_SNAPSHOT = '00000001'X ! a system snapshot is pending/ PARAMETER SNAPEVT$C_SNAPSHOT = '00000001'X ! R PARAMETER SNAPEVT$_RESTART = '00000003'X ! the system is booting from a snapshot. PARAMETER SNAPEVT$C_RESTART = '00000003'X ! S PARAMETER SNAPEVT$_ABORT = '00000005'X ! an attempt to take a snapshot as aborted, PARAMETER SNAPEVT$C_ABORT = '00000005'X ! f PARAMETER SNAPEVT$_CLUEXIT = '00000006'X ! the syste m is resynchronizing after loss of communicationJ PARAMETER SNAPEVT$C_CLUEXIT = '00000006'X ! with the rest of the clusterY! Bugcheck codes. These appear on the stack whenever a SNAPSHOT bugcheck is executedd PARAMETER SNAPBUG$C_CONUTIL_SLOTOCCUP = '00000001'X ! Our desired slot is occupied (CSID on stack)j PARAMETER SNAPBUG$C_CONUTIL_OLDCOORD = '00000002'X ! Old coordinator assigned a bad CSID (CSID on stack)g PARAMETER SNAPBUG$C_CONUTIL_BAD_MAX_NODES = '00000003'X ! INCRNDEF doesn't a gree with MAXINDEX (SPR)Z PARAMETER SNAPBUG$C_CONUTIL_SAME_CSID = '00000004'X ! Two nodes have the same CSID (SPR)c PARAMETER SNAPBUG$C_MSCP_NOWAIT = '00000005'X ! MSCP server did not complete initialization (SPR)g PARAMETER SNAPBUG$C_SHDSNAP_BADEVT = '00000006'X ! Shadow driver called with unknown event type (SPR)~ PARAMETER SNAPBUG$C_SHDSNAP_PENDING_PRE = '00000007'X ! Shadow driver called twice for pending snapshot before restart (SPR)} PARAMETER SNAPBUG$C_SHDSNAP_PENDING_POST = '00000 008'X ! Shadow driver called twice for pending snapshot after restart(SPR)i PARAMETER SNAPBUG$C_SHDSNAP_UNEXP_PENDING = '00000009'X ! Shadow driver saw an unexpected pending stated PARAMETER SNAPBUG$C_SHDSNAP_SHUTDWN_FAIL = '0000000A'X ! Shadow driver shutdown failed (SPR, POOL)r PARAMETER SNAPBUG$C_SHDSNAP_NO_MERGE_AST = '0000000B'X ! Shadow driver merge assist is unsupported (UNSUPPORTED)t PARAMETER SNAPBUG$C_SHDSNAP_BAD_RWAITCNT = '0000000C'X ! Shadow driver saw an unexpected resource wa it count (SPR)r PARAMETER SNAPBUG$C_SHDSNAP_NOCANDIDATE = '0000000D'X ! Shadow driver could not find shadow set candidates (SPR)g PARAMETER SNAPBUG$C_SHDSNAP_TOOMANYCAND = '0000000E'X ! Shadow driver found too many candidates (SPR)r PARAMETER SNAPBUG$C_SHDSNAP_NOMNTVERIP = '0000000F'X ! Shadow driver unexpectedly found mount verify clear (SPR)| PARAMETER SNAPBUG$C_SHDSNAP_BAD_RETURN = '00000010'X ! Shadow driver unexpectedly returned from sh$shadow_processing (SPR)x PARAMETER SNAPBUG$C_SHDSN AP_BAD_MASTERUCB = '00000011'X ! Shadow driver could not find the new master's UCB (BAD FILE) PARAMETER SNAPBUG$C_SHDSNAP_MOUNTEDELSEWH = '00000012'X ! Shadow driver needs a disk mounted in another volume set (BAD FILE)j PARAMETER SNAPBUG$C_SNAPSHOT_LOCKPAGE = '00000013'X ! All pages locked in memory were not unlocked (SPR)Y PARAMETER SNAPBUG$C_BROADCAST_BADMSG = '00000014'X ! Bad broadcast message format (SPR)c PARAMETER SNAPBUG$C_CLUSTER_QF_WIP = '00000015'X ! Unexpected quorum file writ e in progress (SPR)X PARAMETER SNAPBUG$C_CLUSTER_FLAGS = '00000016'X ! Unexpected cluster flags state (SPR)Z PARAMETER SNAPBUG$C_CLUSTER_LK_FLAGS = '00000017'X ! Unexpected cluster lock flags (SPR)^ PARAMETER SNAPBUG$C_CLUSTER_FAILOVER = '00000018'X ! Unexpected cluster failover state (SPR)m PARAMETER SNAPBUG$C_CLUSTER_NOLONG_BREAK = '00000019'X ! Cluster system block not in long break state (SPR)m PARAMETER SNAPBUG$C_CLUSTER_NONMEM_REFC = '0000001A'X ! Unexpected cluster non-member refere nce count (SPR)i PARAMETER SNAPBUG$C_CLUSTER_MEMBER_REFC = '0000001B'X ! Unexpected cluster member reference count (SPR)T PARAMETER SNAPBUG$C_CLUSTER_LOCK_STATE = '0000001C'X ! Unexpected lock state (SPR)c PARAMETER SNAPBUG$C_CLUSTER_FKB_BUSY = '0000001D'X ! Cluster fork block found on fork queue (SPR)j PARAMETER SNAPBUG$C_CLUSTRLOA_INPROG = '0000001E'X ! Snapshot event processing already in progress (SPR)e PARAMETER SNAPBUG$C_CLUSTRLOA_UNSUPFUNC = '0000001F'X ! Unsupported cluster snapsh ot function (SPR)e PARAMETER SNAPBUG$C_CLUSTRLOA_ALRINPROG = '00000020'X ! Snapshot shutdown already in progress (SPR)c PARAMETER SNAPBUG$C_CLUSTRLOA_UNSUPRST = '00000021'X ! Unsupported cluster restart function (SPR)a PARAMETER SNAPBUG$C_CLUSTRLOA_BADINIT = '00000022'X ! Connection manager restart failure (POOL)h PARAMETER SNAPBUG$C_CLUSTRLOA_BADREFCNT = '00000023'X ! Bad Cluster System Block reference count (SPR)c PARAMETER SNAPBUG$C_CLUSTRLOA_LOCKDB = '00000024'X ! Unexpected stale lo ck database entries (SPR)g PARAMETER SNAPBUG$C_CLUSTRLOA_MSTCOPY = '00000025'X ! Unexpected lock master copy still present (SPR)V PARAMETER SNAPBUG$C_CLUSTRLOA_LOCK_STATE = '00000026'X ! Unexpected lock state (SPR)] PARAMETER SNAPBUG$C_CLUSTRLOA_DBSIZE = '00000027'X ! Stale lock database is too small (SPR)b PARAMETER SNAPBUG$C_CLUSTRLOA_LKBREFNEG = '00000028'X ! Lock reference count went negative (SPR)d PARAMETER SNAPBUG$C_CLUSTRLOA_LOCKMGRERR = '00000029'X ! Unexpected lock context flags state (SPR)e PARAMETER SNAPBUG$C_CLUSTRLOA_LOCKLOOP = '0000002A'X ! Lock rundown infinite loop in progress (SPR)R PARAMETER SNAPBUG$C_FILES_NOVOLVCB = '0000002B'X ! No volume set VCB found (SPR)_ PARAMETER SNAPBUG$C_FILES_NOPROCVCB = '0000002C'X ! No VCB found during disk processing (SPR)p PARAMETER SNAPBUG$C_FILES_P1EXPANDED = '0000002D'X ! The snapshot process p1 space expanded unexpectedly (SPR)Y PARAMETER SNAPBUG$C_FILES_NOAQB = '0000002E'X ! No AQB found for a mounted volume (SPR)d PARAMETER SNAPBUG$C_MEMORY_BADBUFFER = '0000002F'X ! Buffer found in the wrong address space (SPR)h PARAMETER SNAPBUG$C_MEMORY_PAGEDEAL = '00000030'X ! Not all pagefile pages correctly deallocated (SPR)\ PARAMETER SNAPBUG$C_MEMORY_BADBITMAP = '00000031'X ! Illegal memory bitmap reference (SPR)` PARAMETER SNAPBUG$C_MEMORY_BADFREEBIT = '00000032'X ! Illegal free page bitmap reference (SPR)a PARAMETER SNAPBUG$C_MEMORY_BADFREEBIT2 = '00000033'X ! Illegal free page bitmap reference (SPR)] PARAM ETER SNAPBUG$C_MEMORY_BADMODBIT = '00000034'X ! Illegal modify bitmap refereence (SPR)^ PARAMETER SNAPBUG$C_MEMORY_NOSTORETBL = '00000035'X ! No place to store pfn references (SPR)g PARAMETER SNAPBUG$C_MEMORY_NOTFREELIST = '00000036'X ! Expected free page not on free page list (SPR)b PARAMETER SNAPBUG$C_MEMORY_BADDALCBAKSTOR = '00000037'X ! Illegal call to mmg$dalcbakstore (SPR)W PARAMETER SNAPBUG$C_MEMORY_BADRELPFN = '00000038'X ! Illegal call to mmg$relpfn (SPR)U PARAMETER SNAPBUG$C_MEM ORY_BADMFYPAG = '00000039'X ! Unexpected modified page (SPR)R PARAMETER SNAPBUG$C_MEMORY_BADFREEPAG = '0000003A'X ! Unexpected free page (SPR)Q PARAMETER SNAPBUG$C_MEMORY_BADCOPYPFN = '0000003B'X ! Unexpected copy pfn (SPR)U PARAMETER SNAPBUG$C_MEMORY_BADCOPYSTATE = '0000003C'X ! Unexpected copy state (SPR)Y PARAMETER SNAPBUG$C_MEMORY_NOTFREELST = '0000003D'X ! Page isn't on the free list (SPR)[ PARAMETER SNAPBUG$C_MEMORY_NOPIC = '0000003E'X ! Bad page list could not be located (SPR)R PARAMETER SNAPBUG$C_MEMORY_BADFREELST = '0000003F'X ! Free list is corrupt (SPR)S PARAMETER SNAPBUG$C_MEMORY_BADFREELST2 = '00000040'X ! Free list is corrupt (SPR)Z PARAMETER SNAPBUG$C_MEMORY_NOFAULT = '00000041'X ! Failure to fault in system page (SPR)[ PARAMETER SNAPBUG$C_MEMORY_NOFAULT2 = '00000042'X ! Failure to fault in system page (SPR)[ PARAMETER SNAPBUG$C_MEMORY_BADWORKPFN = '00000043'X ! Bad working set PFN reference (SPR)k PARAMETER SNAPBUG$C_FORK_NOTIFY_BADFRKBLK = '00000044'X ! exe$dclrstfork called with bad fork block (SPR)f PARAMETER SNAPBUG$C_FORK_NOTIFY_BADQUEUE = '00000045'X ! corrupted exe$gq_snap_fork_list queue (SPR)f PARAMETER SNAPBUG$C_FORK_NOTIFY_BADQLOCK = '00000046'X ! corrupted exe$gq_snap_fork_list queue (SPR)Z PARAMETER SNAPBUG$C_FORK_NOTIFY_BADREFCNT = '00000047'X ! bad fork reference count (SPR)Z PARAMETER SNAPBUG$C_PROC_NOTIFY_UNEXPCALL = '00000048'X ! unexpected call sequence (SPR)T PARAMETER SNAPBUG$C_PROC_NOTIFY_BADMODE = '00000049'X ! un expected call mode (SPR)a PARAMETER SNAPBUG$C_SYNCHRONIZE_BADSTUB = '0000004A'X ! notification vector is not a stub (SPR)v PARAMETER SNAPBUG$C_SYNCHRONIZE_NOVECTOR = '0000004B'X ! notification AST did not find the notification vector (SPR)\ PARAMETER SNAPBUG$C_SYNCHRONIZE_BADSEQ = '0000004C'X ! unknown notification sequence (SPR)S PARAMETER SNAPBUG$C_SYNCHRONIZE_NOMAINWCB = '0000004D'X ! No main image wcb (SPR)^ PARAMETER SNAPBUG$C_SYNCHRONIZE_NOACB = '0000004E'X ! No valid AST control blo ck found (SPR)w PARAMETER SNAPBUG$C_SYNCHRONIZE_NOVECTOR2 = '0000004F'X ! notification AST did not find the notification vector (SPR)T PARAMETER SNAPBUG$C_SYNCHRONIZE_INVRPT = '00000050'X ! invalid report format (SPR)x PARAMETER SNAPBUG$C_SYNCHRONIZE_NOVECTOR3 = '00000051'X ! notification code did not find the notification vector (SPR)_ PARAMETER SNAPBUG$C_SYSLICENSE_BADPCKLEN = '00000052'X ! bad license packed data length (SPR)b PARAMETER SNAPBUG$C_SYSLICENSE_ERRCNTEXC = '00000053'X ! lic ense error count exceeded (BAD FILE)a PARAMETER SNAPBUG$C_SYSLICENSE_BADLMFNAME = '00000054'X ! illegal lmf logical name format (SPR)W PARAMETER SNAPBUG$C_SYSLICENSE_NOBUFFER = '00000055'X ! no p1 buffers available (SPR)X PARAMETER SNAPBUG$C_SYSLICENSE_NOBUFFER2 = '00000056'X ! no p1 buffers available (SPR)X PARAMETER SNAPBUG$C_SYSLICENSE_NOBUFFER3 = '00000057'X ! no p1 buffers available (SPR)h PARAMETER SNAPBUG$C_SYSLICENSE_UNEXPTRAN = '00000058'X ! unexpected lmf logical name translation (SPR)a PARAMETER SNAPBUG$C_SYSLICENSE_BADLMFNAM2 = '00000059'X ! illegal lmf logical name format (SPR)q PARAMETER SNAPBUG$C_TAKE_SNAP_NOTIFYFORK = '0000005A'X ! Error (on stack) returned from fork notification (SPR)Y PARAMETER SNAPBUG$C_TAKE_SNAP_CLUSTER = '0000005B'X ! Cluster verification failed (SPR)W PARAMETER SNAPBUG$C_TAKE_SNAP_POOLEXP = '0000005C'X ! Unexpected pool expansion (SPR)r PARAMETER SNAPBUG$C_TAKE_SNAP_NOTIFYFORK2 = '0000005D'X ! Error (on stack) returned from fork noti fication (SPR)\ PARAMETER SNAPBUG$C_TAKE_SNAP_PAGRESTORE = '0000005E'X ! Page file restoration error (SPR)f PARAMETER SNAPBUG$C_TAKE_SNAP_BADSTATUS = '0000005F'X ! Unexpected erroneous status (on stack) (SPR)l PARAMETER SNAPBUG$C_TAKE_SNAP_NODEBUG = '00000060'X ! System crashed because of previously broadcast errorY PARAMETER SNAPBUG$C_TAKE_SNAP_NOPIC = '00000061'X ! Failed to locate the PIC code (SPR)` PARAMETER SNAPBUG$C_VALIDATE_VBNPURGE = '00000062'X ! Unexpected VBN cache purge failure (SPR)] PARAMETER SNAPBUG$C_VALIDATE_DISK_DEQ = '00000063'X ! Unexpected lock dequeue failure (SPR)V PARAMETER SNAPBUG$C_FILES_DISKERR = '00000064'X ! Mount verify abort on a disk (SPR)f PARAMETER SNAPBUG$C_CLUSTRLOA_BADLCKCNT = '00000065'X ! Bad count of total locks in the system (SPR)j PARAMETER SNAPBUG$C_CLUSTRLOA_BADRSBCNT = '00000066'X ! Bad count of total resources in the system (SPR)N PARAMETER SNAPBUG$C_VCC_BADEVT = '00000067'X ! Bad snapshot event code (SPR)V PARAMETER SNAPBUG$C_V CC_NOTRUNC = '00000068'X ! Cache not in a truncated state (SPR)M PARAMETER SNAPBUG$C_VCC_LIMBO = '00000069'X ! Limbo files are present (SPR)N PARAMETER SNAPBUG$C_VCC_LIMBO2 = '0000006A'X ! Limbo files are present (SPR)N PARAMETER SNAPBUG$C_VCC_LIMBO3 = '0000006B'X ! Limbo files are present (SPR)T PARAMETER SNAPBUG$C_VCC_WRITER = '0000006C'X ! All files should be read-only (SPR)U PARAMETER SNAPBUG$C_VCC_WRITER2 = '0000006D'X ! All files should be read-only (SPR)R PARAMETER SNAPBUG$C_VCC_B ADCMLOCK = '0000006E'X ! Error on file lock queue (SPR)m PARAMETER SNAPBUG$C_CLUSTRLOA_BADCLUVEC = '0000006F'X ! Snapshot event processing already in progress (SPR)Q PARAMETER SNAPBUG$C_MEMORY_BADFREECNT = '00000070'X ! Bad free list count (SPR)f PARAMETER SNAPBUG$C_PAGEFAULT = '00000071'X ! Unexpected Pagefault (Appears only with test software)U PARAMETER SNAPBUG$C_FILES_NOUCBCTX = '00000072'X ! UCB lock context not saved (SPR)Z PARAMETER SNAPBUG$C_SNAPSHOT_STALEORB = '00000073'X ! Fail ure to update volume orb (SPR)! End of bugcheck codes. STRUCTURE /SNAPEVTCODE/ INTEGER*2 SNAPEVT$W_EVENT UNION MAP% INTEGER*2 SNAPEVT$W_MODIFIER END MAP MAP. PARAMETER SNAPEVT$S_ROLLINOUT = 1M PARAMETER SNAPEVT$V_ROLLINOUT = 0 ! Rollinout system checkpoint, PARAMETER SNAPEVT$S_FILESYS = 1G PARAMETER SNAPEVT$V_FILESYS = 1 ! File system validation, PARAMETER SNAPEVT$S_CLUSTER = 1D PARAMETER SNAPEVT$V_CLUSTER = 2 ! VAXcluster fastboot* PARAMETER SNAPEVT$S_DEBUG = 1C PARAMETER SNAPEVT$V_DEBUG = 3 ! Debug mode in effect/ PARAMETER SNAPEVT$S_DISCONNECT = 1W PARAMETER SNAPEVT$V_DISCONNECT = 4 ! Disconnect all interactive terminals, PARAMETER SNAPEVT$S_NEW_CPU = 1H PARAMETER SNAPEVT$V_NEW_CPU = 5 ! Boot on a different CPU, PARAMETER SNAPEVT$S_NOQUIET = 1Z PARAMETER SNAPEVT$V_NOQUIET = 6 ! Broadcast informational messages to opa0:- PARAMETER SNAPEVT$S_NOSECURE = 1- PARAMETER SNAPEVT$V_NOSECURE = 7F BYTE %FILL (1) ! Allow access to interactive sessions END MAP END UNION! Event Codes R! The following codes indicate special problems: SPR = submit an SPRa! POOL = Possible resource exhaustion^!  UNSUPPORTED = function is not supported}! BAD FILE = a configuration change has invalidated the snapshot file END STRUCTURE ! SNAPEVTCODECDEC$ END OPTIONS ww`!*** MODULE $SORDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:12:58.52! ! FILE: SORMSG.MSG ! ! * *:! * COPYRIGHT (C) 1978, 1980, 1982, 1 984, 1993 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 OW NERSHIP 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. *! * *! * *! ! ++ ! ! FACILITY: VAX-11 SORT/MERGE! ! ABSTRACT:! C! 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! 1! AUTHOR: P. GILBERT, CREATION DATE: 15-FEB-1982! ! MODIFIED BY:! ! T03-015 ORIGINALA! T03-018 CHANGED THE SEVERITY OF WORK_DEV FROM FATAL TO SEVERE.! PDG 16-DEC-1982@! T03-019 ADDED OPERFAIL, REQ_ALT AND USE_ALT. PDG 21-DEC-1982@! T03-020 ADD N EW 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-19833! 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=! V06-001 CHANGED TEXT FOR VAR_FIX TO "truncated or padded".! BAB 10-FEB-1992;! CORRECTED SPELLING AND PUNCTUATION ERRORS.<! DEE RYAN  29-SEP-1993! --! H! SOME ERROR MESSAGES WERE ISSUED BY OLD VERSIONS OF VAX-11 SORT/MERGE,=! BUT ARE NO LONGER BE ISSUED. THESE MUST STILL BE DEFINED.! L! SOME ERROR MESSAGES WILL BE USED BY THE NEW VERSION OF VAX-11 SORT/MERGE,F! 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 S OR$_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% PARAMET ER 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 = '001C820 C'X& PARAMETER SOR$_BADDTYPE = '001C8212'X' PARAMETER SOR$_BADLENOFF = '001C821A'X' PARAMETER 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' PARAM ETER 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& PARAMETER SOR$_STATMSG1 = '001C82AB'X& PARAMETER SOR$_STATMSG2 = '001C82B3'X& PARAMETER SOR$_STATMSG3 = '001C82BB'X& PARAMETER SOR$_STATMSG4 = '001C82C3'X& PARAMETER SOR$_STATMSG5 = '001C82CB'X& PARAMETER SOR$_STATMSG6 = ' 001C82D3'X& PARAMETER SOR$_STATMSG7 = '001C82DB'X& PARAMETER SOR$_STATMSG8 = '001C82E3'X& PARAMETER SOR$_STATMSG9 = '001C82EB'X' PARAMETER SOR$_STATMSG10 = '001C82F3'XCDEC$ END OPTIONSwwŬ!*** MODULE $SRFDEF ***CDEC$ OPTIONS /NOALIGN! 3! 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 UNION5 BYTE SRF$B_DATYP ! Maps over GSY$B_DATYP 5 INTEGER*2 SRF$W_FLAGS ! Maps over GSY$W_FLAGS 6 BYTE SRF$B_NAMLNG ! Length of symbol name - CHARACTER*31 SRF$T_NAME ! Symbol name  END STRUCTURE ! SRFDEFCDEC$ END OPTIONS ww (s!*** MODULE $SRMDEF ***CDEC$ OPTIONS /NOALIGN ! +! Define SRM Hardware symbols! -G PARAMETER SRM$K_INT_OVF_T = '00000001'X ! Integer overflow trap code M PARAMETER SRM$K_INT_DIV_T = '00000002'X ! Integer divide by zero trap code H PARAMETER SRM$K_FLT_OVF_T = '00000003'X ! Floating overflow trap code V PARAMETER SRM$K_FLT_DIV_T = '00000004'X ! Floating/decimal Divide by zero trap code I PARAMETER SRM$K_FLT_UND_T = '00000005'X ! Floating Underflow trap code N PARAMETER SRM$K_DEC_OVF_T = '00000006'X ! Decimal string overflow tr ap code A PARAMETER SRM$K_SUB_RNG_T = '00000007'X ! Subscript range trap I PARAMETER SRM$K_FLT_OVF_F = '00000008'X ! Floating Overflow fault code O PARAMETER SRM$K_FLT_DIV_F = '00000009'X ! Floating Divide by zero fault code J PARAMETER SRM$K_FLT_UND_F = '0000000A'X ! Floating Underflow fault code CDEC$ END OPTIONS ww!*** MODULE $SSDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:31:53.04! A! SSMSG.M SG - SYSTEM DEFINITION FILE FOR SYSTEM SERVICE MESSAGES! ! VERSION: 'X-62'! ! * *(! * COPYRIGHT 1978-1998 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 OTH ER *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. *! * *! * *! ++! (! FACILITY: VMS SYSTEM MACRO LIBRARIES! ! ABSTRACT:! A! THIS FILE CONTAINS THE SDL SOURCE FOR SYSTEM SERVICE MESSAGES.! ! GUIDELINES:! H! WITH THE RELEASE OF HELP MESSAGE, MESSAGE DOCUMENTATION MUST EXACTLY I! MATCH THE MESSAGE TEXT IN THIS FILE IN ORDER FOR THE ONLINE SEARCH TO D! SUCCEED. TO AVOID DOCUMENTING EMBARRASSING TYPOS OR GRAMMATICAL G! E RRORS, PLEASE FORWARD YOUR NEW OR CHANGED MESSAGES TO THE MESSAGES F! WRITER FOR A QUICK EDIT. VMS SENIOR MANAGEMENT SUPPORTS ENFORCING F! STANDARD MESSAGE FORMATTING CONVENTIONS, WHICH ARE INCLUDED IN THE ! FOLLOWING GUIDELINES.! N! O SS$ CODE NAMES SHOULD BE 15 OR FEWER CHARACTERS TO PREVENT TRUNCATION3! IN MESSAGE TEXT, WHICH CAUSES GENERAL CONFUSION.! M! O WORDS IN MESSAGES SHOULD NOT BEGIN WITH CAPS UNLESS THEY WOULD START1! WITH CAPS IN RUNNING TEXT. FOR EXA MPLE,! +! WRONG: +! RIGHT: ! G! THIS IS NOT WELL KNOWN, BUT THE $GETMSG SYSTEM SERVICE AUTOMATICALLYH! CONVERTS TO UPPERCASE THE INITIAL LETTER OF A MESSAGE WHEN RETRIEVING@! A MESSAGE IN AN ENVIRONMENT WHERE THE FACILITY, SEVERITY, AND.! IDENTIFICATION FIELDS HAVE BEEN SUPPRESSED.! +! O ACRONYMS SHOULD BE UPPERCASE ONLY:! !! ! 9! O DO NOT USE PUNCTUATION AT THE END OF A MESSAGE. ! I! O AVOID USING CONTRACTIONS IN MESSAGES. FOR EXAMPLE, USE "cannot" @! INSTEAD OF "can't" AND "does not" INSTEAD OF "doesn't".! G! O "It's" IS A CONTRACTION FOR "it is". THE POSSESSIVE IS "its".! H! O USE THE WORDS "and" OR "or" INSTEAD OF A "/" WHENEVER POSSIBLE.! 5! WRONG: ;! RIGHT: ! M! O AVOID USING HYPHENS TO SEPARATE CLAUSES . USE A SEMICOLON INSTEAD. ! >! WRONG: =! RIGHT: ! I! O SEMICOLONS SHOULD BE USED TO SEPARATE MAIN CLAUSES THAT ARE NOT G! JOINED BY "and" OR "but". IN THE ABOVE EXAMPLE, IT IS GRAMMATICALLYJ! INCORRECT TO USE A COMMA IN PLACE OF THE SEMICOLON. A COMMA IS CORRECTJ! WHEN EITHER CLAUSE DOES NOT FORM A COMPLETE SENTENCE OR WHEN THE COMMA 5! IS USED TO SEPARATE ITEMS IN A LI ST. FOR EXAMPLE,! @! ! D! O ABOVE ALL, KEEP THE JARGON TO A MINIMUM AND CONCENTRATE ON E! COMMUNICATING A MESSAGE THAT IS AS INFORMATIVE AND HELPFUL AS YOU ! CAN MAKE IT.! ! 2! NOTE BENE: WHEN OBSOLETING OR ADDING MESSAGES: ! L! O REUSE OBSOLETE MESSAGE ENTRIES WHEN POSSIBLE. THESE ARE MARKED BY '! A MESSAGE NAME OF OBSOLETE_.! K! O IF YOU MUST REMOVE A MESSAGE, DON'T SIMPLY DELETE IT.  IF MESSAGESH! COME AFTER IT, OBSOLETE IT BY CHANGING THE NAME TO OBSOLETE_.G! LOOK FOR THE OTHER OBSOLETE MESSAGES TO FIND OUT WHAT THE NEXT FREE I! NUMBER IS. THIS WILL LET OTHERS KNOW THAT WHEN THEY WANT A SLOT, THEY @! CAN REUSE SOME OBSOLETE MESSAGE INSTEAD OF ADDING A NEW ONE. ! N! O THE 64-BIT PROJECT HAS ENABLED THE ENTIRE ALPHA VIRTUAL ADDRESS RANGEH! (WITH THE EXCEPTION OF THE GAP) TO BE AVAILABLE. THEREFORE, MESSAGESG! THAT DISPLAY ADDRESSES, INCLUDING PCS,  MUST DISPLAY THE FULL 64-BITSH! OF THOSE ADDRESSES. USE THE !XH FAO DIRECTIVE FOR THIS PURPOSE. FAOD! (SYS$FAO & SYS$FAOL_64 ONLY) FOR ALPHA HANDLES QUADWORD ARGUMENTSG! BY VALUE SO YOU DO NOT HAVE TO SPECIFY THE INDIRECTION OPERATOR (@).! --! 5! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976! ! MODIFIED BY:! =! X-62 KJP-SDOS KEVIN PLAYFORD 29-JUN-1998G! UPDATE SNAPSHOT SERVICES MESSAGES BASED ON DEVICE NAME! CHANGE.  ! %! X-61 BMAN BRIAN MAN 16-APR-1998%! X-80 DAVE BERNARDO 24-FEB-19988! ADD BADLCKTBL AND MAKE BROKEN A SUCCESS STATUS CODE.(! MAKE THE ERROR TEXT MORE MEANINGFUL.(! X-79 AHM039 DREW MASON 17-FEB-19989! ADD MORE STATUS CODES FOR GALAXY MEMBERSHIP SERVICES.! %! X-60 BMAN BRIAN MAN 29-JAN-1998)! ROLL FORWARD TO X6J5-AXP AND X6WU-VAX?! 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-19985! ADD STATUS CODES FOR GALAXY MEMBERSHIP CALLBACKS.'! X-75 DMB DAVE BERNARDO 07-JAN-1998-! ADD MORE STATUS CODES FOR GALAXY LOCKING.! (! X-59 NELSON PAT NELSON 14-JAN-1998+! CLEANED UP INSTRUCTIONS AT TOP OF FILE.! %! X-58 BMAN BRIAN MAN 11-DEC-1997)! ROLL FORWARD TO X6IH-AXP AND X6VQ-VAX&! X-74 HAR HAROLD READ 10-DEC-1997(! ADD NEW STATUS CODE FOR MSCP ERRORS.,! X-73 JAH0250 JOHN A HARNEY 11-NO V-19978! ADD SS$_NOSUCHEXT FOR IMPERSONATION SERVICES TO TELL'! THE USER THERE'S NO SUCH EXTENSION.(! X-72 DMB DAVE BERNARDO 27-OCT-1997(! ADD STATUS CODES FOR GALAXY LOCKING.,! X-71 KLN2008 KAREN L. NOEL 21-OCT-19972! ADD NEW STATUS CODES FOR GALAXY SHARED MEMORY.! &! X-57 HAR HAROLD READ 10-DEC-1997A! ADDED NEW STATUS FOR MSCP ERRORS, FIX PROBLEMS WITH X-56, NEW@! MESSAGES MUST BE ADDED TO THE END OF THE LIST, MESSAGE COUNT! WASN'T UPDATED.! %! X-56 BMAN  BRIAN MAN 30-SEP-1997)! ROLL FORWARD TO X6H2-AXP AND X6UI-VAX$! X-69 ANDY KUEHNEL 10-SEP-1997D! ADD SS$_SECREFOVF ERROR TO BE RETURNED IF ADDING MORE REFERENCESD! TO A GLOBAL SECTION WOULD CAUSE THE REFERENCE COUNT TO OVERFLOW.! &! X-55 HAR HAROLD READ 18-SEP-19972! ADDED TEN NEW MESSAGES FOR DU/TUDRIVER STATUS.! D! X-54 WDB:MTD20 WALTER BLASCHUK 13 AUG 1997J! MULTIPLE TAPE DENSITY PROJECT: INSERT TWO INFORMATIONALS@!  SS$_NOTATBOT AND SS$_PREVSDENS. ALPHA AND VAX.! -! X-53 KJP-SDOS KEVIN PLAYFORD 16-JUL-1997B! UPDATE MESSAGE FOR SNAP CAPABLE DISK TO REFLECT NEEDED ERRORS.! %! X-52 BMAN BRIAN MAN 17-JUN-1997)! ROLL FORWARD TO X6FA-AXP AND X6RQ-VAX! -! X-66 KJP-SDOS KEVIN PLAYFORD 11-JUN-1997A! ADD SS$_TOOMANYFRAGS AND SS$_TOOMANYFAMILIES FOR SNAP CAPABLE ! DISK.! +! X-51 IBB038 IAN BROCKBANK 4-JUN-19974! F11BXQP HFS LATENT SUPPORT - ADD SS$_NOTF11ODS5,"! SS $_NOCONVJNL AND SS$_NORAD50.! %! X-50 BMAN BRIAN MAN 21-MAR-1997)! ROLL FORWARD TO X6E0-AXP AND X6PT-VAX! ?! X-63 DOUGLAS FYFE 14-FEB-1997J! MAINLINE MERGE OF PER-THREAD SECURITY SUPPORT: (GEN 58A1)E! ADD SS$_PERSONADELPEND TO BE RETURNED WHEN A REQUESTE! TO DELETE A PERSONA IS PREVENTED ONLY BY OUTSTANDING(! REFERENCES IN REFCOUNT.! ?! X-62 JMP-VDC JULIAN PALMER  29-JAN-1997:! ADD SS$_FLUSHFAIL FOR VDC LATENT SUPPORT.! D! CW-SD CHRIS WHITAKER 29-JAN-1997C! ADD ADDITIONAL ERROR MESSAGES FOR SNAPSHOT-CAPABLE! DISK.! ! %! X-49 BMAN BRIAN MAN 22-AUG-1996*! ROLL FORWARD TO X6AB-AXP AND X6KS-VAX:! /! X-61 NYK656 NITIN Y. KARKHANSI 21-AUG-19968! ADDED SS$_NOSHPTS AS PART SHARED PAGE TABLE SUPPORT.! +! X-60 KLN1572 KAREN L. NOEL 6-AUG-1996;! O ADDE D 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-1996@! O ADDED SYSTEM SERVICE MESSAGE FOR SHARED PAGE TABLE SECTION!! CREATION, SS$_CREATED_SHPT.4! 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_REGB IG, MRES_NOTREG, MRES_PFNSMALL, :! MRES_INCON, NORESERVEDMEM, RESERVEDMEMUSED, NOMEMRESID! ! C! X-48 WXD BILL DAVENPORT 2-APR-1996N! PER-THREAD SECURITY. RENAME DETACH PRIVILEGE TO IMPERSONATE.6! ADD NODELPERMANENT FOR LATENT SUPPORT OF PERSONAE.! /! X-47 JACH0020 JEREMY A. C. HITT 6-MAR-19965! ADDED THE FOLLOWING MESSAGES FOR ACME: NOEXTAUTH,%! ERRMAPAUTH, AUTHFAIL AND INVUSER.! -! X-46 PKW338 PAUL K. M. WEISS 8-NOV-199 5P! ADD SS$_THREAD_UPCALL, WHICH IS USED TO COMMUNICATE FROM KERNELM! INTERNAL SERVICES TO THE CALLER'S MODE JACKET THAT IT SHOULD! MAKE AN UPCALL! %! X-45 BMAN BRIAN MAN 25-OCT-1995*! ROLL FORWARD TO X64E-T3A AND X6CC-E3A:! ?! X-54 JCH703B JOHN C. HALLYBURTON, JR. 10-OCT-1995M! ADD SS$_NOBUFOBJID (ATTEMPTED USER MODE CREATE BUFFER OBJECT.! WITHOUT A RIGHTS IDENTIFIER).! @! X-53 K  LN1520 KAREN L. NOEL 28-SEP-1995E! 1. FIX SEVERAL NEW SS$ CODES TO BE ERRORS INSTEAD OF! WARNINGS.G! 2. SHORTEN SEVERAL NEW SS$ CODE NAMES SO THEY ARE LESSM! 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-1995D! 1. CHANGE MESSAGE TEXT FOR  SS$_IVPROTECT TO INCLUDE2! INVALID GLOBAL SECTION PROTECTION;! 2. FIX TYPO IN SS$_OFFSET_NOTBLOCK MESSAGE! '! X-44 WBF BURNS FISHER 12-SEP-1995;! ADD SS$_EMULATED (USED FOR ALPHA INSTRUCTION EMULATION)! %! X-43 BMAN BRIAN MAN 22-MAR-1995*! ROLL FORWARD TO X605-T3A AND X66I-E3A:! /! 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 ADDRESS 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.! 5! X-42 JCH703A JOHN C. HALLYBURTON, JR. 15-MAR-1995<! BEWARE THE IDES OF MARCH. ADD SS$_EXBUFOBJLM FROM THETA.! %! X-41 BMAN BRIAN MAN 05-JAN-1995! FIX TRUNCATED LINES.! %! X-40 BMAN BRIAN MAN 13-DEC-1994! MERGE CHANGES FROM THETA:! .! 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-19948! ADD NEW CODES NEEDED FOR 64-BIT MMG SY  STEM SERVICES.! (! X-41 TRB TOM BENSON 02-NOV-1994A! 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.! 5! 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 SIGNIFICANT1! BITS AND THE DRIVER DOES NOT SUPPORT 64-BITS.! /! X-39 KLN1326 KAREN L . NOEL 18-OCT-1994! 64-BIT PROJECT:! ADD SS$_ARG_GTR_32_BITS! 7! X-38 JCH703 JOHN C. HALLYBURTON, JR. 5-OCT-19947! ERROR CODES FOR FAST-IO: BADFANDLE THRU UNSUPVOLSET! %! X-39 BMAN BRIAN MAN 12-OCT-1994! MERGE CHANGES FROM ZETA:! 0! X-33U3 JFD0528 JAMES F. DUNHAM 18-JUL-1994&! ADD MESSAGES TO SUPPORT SCSI-2 TCQ! (! X-33U1 DBK001 DAN KYLER 7-SEP-1994N! ADD MESSAGES FOR SMFS LAYERED PRODUCT IN MME RESERVED REGION.! &! X-33 JHH-B L5 JIM HOGG 6-JUL-1994;! ADD SS$_INSFTHREADS & SS$_NOTSUPFS FOR F64 FILE SYSTEM.! /! X-38 NJB NANCY JEAN BURKHOLDER 15 SEP 1994! ADD SS$_ZEROALLOCLS! .! X-37 RAB0190 RICHARD A. BISHOP 3-JUN-1994 ! MERGE TWO CHANGES FROM ZETA:! *! X-32 RAB RICHARD A. BISHOP 3-JUN-1994$! ADD SS$_SIGNAL64 FOR MIKE HARVEY! 0! X-31 SAD0308 STUART A. DAVIDSON 22-MAR-1994=! ADD INSFP1POOL TO CLEARLY IDENTIFY INSUFFICIENT CTLPAGES.! /! X-36 RAB0184 RICHARD A. BISHOP 15-MAR-1 994>! PICK UP THE FOLLOWING CHANGES FROM EPSILON. THIS INCLUDES <! SOME REWORKING OF THE COMMENTS DELIMITING THE GROUPS OF ! MESSAGE CODES:! 2! X-29 RWC136 RICHARD W. CRITZ, JR. 23-DEC-19937! ADD SS$_CONFIG_SYNTAX FOR 3PB SUPPORT. IT REPLACES! SS$_OBSOLETE_6.! *! X-28 RAB RICHARD A. BISHOP 9-DEC-19934! ADD IMPERSONATION MESSAGE CODES FOR STU DAVIDSON! .! X-35 FAK004 FORREST A. KENNEY 11-JAN-1994A! ADD NEW MESSAGE , IOC$CLONE_UCB RETURNS THI S>! WHEN WE HAVE USED UP ALL THE AVAILABLE UNITS FOR A DEVICE.! L! X-34 DEE RYAN 30-SEP-1993E! CORRECTED SPELLING, PUNCTUATION, AND LEGAL ERRORS IN! MESSAGE TEXT.! /! X-33 RAB0170 RICHARD A. BISHOP 17-AUG-1993! PICK UP NEW ALPHA SYMBOLS:! '! 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 ! L! X-32 WXD BILL DAVENPORT 11-AUG-1993@! ADD SS$_IVNODNAM, INVALID NODE NAME FOR DECNET.! .! X-31 RAB0165 RICHARD A. BISHOP 7-JUL-1993 ! ANOTHER CHANGE FROM EPSILON:! '! X-22 HH1110 HAI HUANG 14-JUN-19932! ADD SS$_TARGET_UNWIND, SS$_TARGET_GOTO_UNWIND.! $! X-30 MW MARK WATTS 21-MAY-1993>! ADD A NEW FILESYSTEM ERROR MESSAGE CALLED SHELFERROR, THISA! WILL BE RETURNED THROUGH THE FILESYSTEM BY THE SHELF HANDLER. ! /! X-29 RAB0155 RICHARD A. BISHOP 14-MAY-1993'! ADD IN ONE NEW SYMBOL FROM EPSILON:! @! X-15 WDB:HLL004 WALTER D. BLASCHUK, JR. 06-JAN-19937! HLLDD PROJECT: FDT PROCESSING CHANGES.9! ADD THE SS$_FDT_COMPL CONSTANT. THIS WILL INDICATE 8! THAT FDT PROCESSING IS COMPLETE. IT SAYS NOTHING#! ABOUT THE PRESENCE OF AN ERROR.! /! X-28 RAB0147 RICHARD A. BISHOP 14-APR-1993+! FOLD BLADE/DELTA CLEANUP INTO MAINLINE:! 0! X-25A2 RAB0147 RIC HARD A. BISHOP 14-APR-19939! MERGE BLADE CHANGES AND RESOLVE CONTENTION (REQUIRES #! VALUE OF NOTRANQUIL TO CHANGE):! )! X-14U2 EHL004 GENE LEACHE 1-APR-1993! ADD SIG_ARGMISMATCH! )! X-14U1 EHL003 GENE LEACHE 1-FEB-19935! ADD SIG_INVARGTYPE, SIG_INVFLTARG, SIG_INVARGLIST! -! X-27 AJM93032 ANDREW J. MOSKAL 11-MAR-1993:! ADD NOTRANQUIL AND SMALLHEADER - MAC RELATED MESSAGES.! +! X-26 MME002 MICHAEL BEELER 8-MAR-1993! MERGE MME WITH MAINLINE! 0! X- 21A1A1 MME001 MICHAEL BEELER 12-OCT-19922! ADD MME (MEDIA MANAGEMENT EXTENSION) MESSAGES! .! X-25 RAB0132 RICHARD A. BISHOP 20-NOV-19929! PICK UP NEW MESSAGES FROM ALPHA & FIX SPELLING ERRORS! FOUND BY JIM DUNHAM:! %! 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.! @!  X-23 DDP1354 DERRELL D. PIPER 30-SEP-1992 16:36@! ADD MESSAGE FOR ATTEMPT TO ADD A PROTECTED SUBSYSTEM ID WITH@! ATTRIBUTES THAT EXCEED THOSE OF ITS HOLDER (SS$_SSANOTAUTH).=! ALSO ADD A MESSAGE FOR INVALID FILE OWNER (SS$_BADOWNER).! @! X-22 DDP1337 DERRELL D. PIPER 16-SEP-1992 17:55;! UPDATE NOPRIV, EXQUOTA, AND OBJNOTLOCKED MESSAGE TEXTS.! .! X-21 JAD045 JOSEPH A. DZIEDZIC 29-JUN-19925! ADD "page read error across access modes" STATUS,! SS$_ PAGRDERRXM.! .! X-20 RAB0115 RICHARD A. BISHOP 16-JUL-1992 ! RETROFIT MORE ALPHA CHANGES:! )! 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-19923! ADD 2 NEW FATAL ERROR MESSAGES, TRANSCALLER AND7! NOCALLTRANS. THESE MESSAGES INDICATE THAT A NATIVE6! IMAGE WAS NOT BUILT CORRECTLY TO INTEROPERATE WITH! TRANSLATED CODE.! -! X-19 RLA095 B ROBERT L. ADAMS 12-JUN-19925! OBSOLETE CHARGE CODE ACCOUNTING AND REPLACE WITH 1! MORE DESCRIPTIVE PROTECTED SUBSYSTEMS ERRORS.'! ADD COMMENT ON OBSOLETING MESSAGES.! .! X-18 RAB0104 RICHARD A. BISHOP 19-MAY-1992"! RETROFIT RECENT ALPHA CHANGES:! '! X-17 HH0855 HAI HUANG 10-MAR-1992&! -16 ADD STATUS FOR GENTRAP CODES.! '! X-15 HH0853 HAI HUANG 26-FEB-19926! ADD SS$_GENTRAP, SS$_GOTO_UNWIND, SS$_EXIT_UNWIND.! *! X-17 ATP014.17 ALAN POTTER 2-APR-1992 4! CHANGE ERROR MESSAGE TEXT FOR SS$_TPDISABLED AND! SS$_NOLOG.! C! 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-14 RAB0100 RICHARD A. BISHOP 30-JAN-19926! MERGE BLADE AND ALPHA VERSIONS OF THIS FILE. THIS 5! IS BEING DONE SO AS TO LEAVE BLADE VALUES INTACT.4! WHERE CHANGES IN VALUES ARE NECESSARY, THEY ARE ! HAPPENING TO ALPHA. ! 8 ! ALSO MOVE SS$_IMGDMP (PREVIOUS BLADE CHECKIN). THIS 8! WAS WRONGLY PLACED, AND CAUSED SOME SYMBOLS TO MOVE..! THEY NOW GO BACK TO THEIR ORIGINAL VALUES.! 6! AS LUCK WOULD HAVE IT, THIS CHECKIN IS GENERATION ! 14 ON BOTH MASTERPACKS.....! +! ========================================! 6! 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.! 8! X-12 CRB0711 COLIN R. BLAKE 18-DEC-1991 13:18:23.938! THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE.! E! X-8A3A1A2 THE GREAT MERGER NASSER ABBASI 11-DEC-1991! MERGE T4 WITH BLADE_BLD6$! COPY OF HISTORY FROM BLD6 MODULE$! --------------------------------4! X-11 JFD0031 JAMES F. DUNHAM 8-JAN-19913! ADD MESSAGES TO SUPPORT ISO 9660 VOLUME MOUNTS! 4! X-8A3A1A1 DOR DENNIS O. ROGERS 26-NOV-19! 91 12:19! C2 BLADE MERGE (T4):! -! X-10 CBD0238 CHARLES B. DUNN 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:! 1! T-6T9 SAD0144 STUART A. DAVIDSON 18-OCT-19915! ADD NOOJBSRV ERROR --" OBJECT SERVER NOT RUNNING.! /! X-8A2 FAK0003 FORREST A. KENNEY 16-OCT-1991! MERGE LATEST C2 CHANGES.! 9! T-9 DDP0887 DERRELL D. PIPER 4-OCT-1991 18:43"! ADD ITEM CODE ERROR MESSAGES.! /! X-8A1 FAK0002 FORREST A. KENNEY 20-SEP-1991<! MERGE C2 MESSAGES INTO MAINLINE, FIX IDENT TO AGREE WITH"! CMS DUE TO MASTERPACK CLEANUP.! 7! 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.! 1! LMP0544 L. MARK PILANT, 30-JUL-1991 14:451! 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.! 3! 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.! /! T-4 $ SAD0116 STUART A. DAVIDSON 3-MAY-19914! ADD ILLRSDM (ILLEGAL RESOURCE DOMAIN OPERATION)! 2! X-80T3 SAD0109 STUART A. DAVIDSON 19-APR-1991+! ADD OBJECT CONTEXT NOT LOCKED MESSAGE.! 2! X-80T2 SAD0109 STUART A. DAVIDSON 11-MAR-19917! ADD MISSED MESSAGES FOR SECURITY OBJECT MANAGEMENT! 1! X-81 RLA0147 ROBERT L. ADAMS 15-FEB-19912! ADD SECURITY MESSAGES ADDED FOR PHOENIX WORK.! ,! X-87 PMV0169 PETER M. VATNE 20-JUN-1991! ADD SS$_DEVNOTWS.! '! X-86 % CW CHRIS 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-1991B! ADD 4 NEW CODES. SS$_BADCHECKSUM, SS$_INVSECDOMAIN,%! SS$_ARBTOOBIG, AND SS$_ORBTOOBIG.! 1! X-81 RKK0058 ROBERT K. K& OSAKOWSKI 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 19909! ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID,2! SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS.! +! ========================================! 6! 30-JAN-1992: WHAT FOLLOWS IS THE ALPHA AUDIT TRAIL $! FROM 16-JUL-1990 TO 18-DEC-1991! +! =============' ===========================! +! X-13 RS00233 RICHARD SAYDE 18-DEC-19912! ADD ERROR CODES FOR ALIGNMENT FAULT REPORTING.! *! X-12 TNS001 TOM SCARPELLI 24-OCT-19915! 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 MESSAGES FROM VAX SIDE FOR $FORGE_WORD SYSTEM SERVICE.! ( 1! 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-19917! 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 LEAHY 12 OCT 1990:! ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_IN) VCOMPID,3! SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS.! &! X-K9 HH0610 HAI HUANG 25-FEB-19919! ADD ALPHA HARDWARE EXCEPTIONS SS$_HPARITH, SS$_ALIGN.! -! X-K8 RFH002 ROBERT F. HOFFMAN 23-JAN-19915! ADD SS$_QIO_CROCK FOR SPECIAL TREATMENT THAT $QIO7! NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE.! .! X-K7 MSH1062 MICHAEL S. HARVEY 13-DEC-19905! ADD SS$_INVARG FOR $CRMPSC AND $MPGBLSC SERVICES.! -! X-K6 RFH001 ROBERT F. HOFFMAN 11-DEC-19908! ADD SS* $_QUEUED FOR TTDRIVER PORT (REPLACES AN UNUSED ! MESSAGE)! 1! X-K5 RWC003 RICHARD W. CRITZ, JR. 1-NOV-1990! ADD SS$_DRVNOTVALID.! 1! 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.! +! ========================================! 7! 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-19907! FIXUP OUT-OF-ORDER CODES. MOVE SOME NEW CODES INTO:! UNUSED SLOTS. FIX TEXT OF INSFSPT TO BE MORE GENERIC.! 2! X-46U8 CAM0109 CHRISTOPHER A. MEGA 12-FEB-1990C! ADD BOOTREJECT WARNING STATUS - USED BY ST, ART/CPU CODE IF A CPU;! FAILS TO BOOT BECAUSE IT IS IN THE BOOT_REJECTED STATE.! *! X-46U7 LBB0010 LEE BARTON 30-NOV-19898! ADD SS$_ARCHIVING, SS$_ARCHIVED (XQP SUPPORT OF ALM)! 6! X-46U6 LMP0517 L. MARK PILANT, 17-OCT-1989 16:42$! ADD PROTECTED SUBSYSTEM SUPPORT.! +! X-46U5 RLF RICHARD L. FRANK 16-OCT-19898! MODIFY INSFSPTS TO BE MORE GENERIC. ADD INSFRPGS AND ! INSFLPGS.! 2! 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.! 0! X-46U2 PRD0503 PAUL R. DESTEFANO 25-SEP-19899! ADD SS$_NOSUCHFAC FOR EVENT FACILITY OBJECT SECURITY.! 0! X-46U1 PRD0495 PAUL R. DESTEFANO 18-SEP-19895! ADD SS$_INVEVENT FATAL MESSAGE FOR $SETEVTAST AND! $CANEVTAST.! -! X-46 SAS0203 SCOTT A. SHURTS 15-SEP-19894! ADD SS$_INCONOLCK FATAL MESSAGE FOR $CHANGE_ACL.! 0! X-45 CAM0063 CHRISTOPHER A. MEGA 13-SE. P-1989=! ADD WARNING AND INFORMATIONAL STATUS FOR ENHANCED PRIMARY?! CPU SWITCHING: CPUSTARTIP, CPUSTARTD, CPUSTOPPD, PRIMNOSTP. ! ALSO ADDED /FAO=1 TO NSTPPD.! @! X-44 DDP0429 DERRELL D. PIPER 11-SEP-1989 16:578! CHANGE THE SEVERITY OF THE NEW PASSWORD STATUS CODES! FROM FATAL TO ERROR.! -! X-43 CBD0198 CHARLES B. DUNN 14-AUG-19892! ADD SS$_EFNOTSET FOR IOC$PRE_SIMREQCOM SUPPORT! (! X-42 RAP0491 ROD A. PAYNE 15-AUG-89;! ADD SS$_HSTBUFACC, TO REPO/ RT HOST BUFFER ACCESS ERRORS.! -! X-41 CJB0041 CHERYL J. BULMER 9-AUG-19892! ADD SS$_LOADER, TO REPORT LOADER CYCLE ERRORS.! ,! X-40 MAS0238 MARK A. STILES 9-AUG-19898! ADD SS$_CPUCAP FOR USE WHEN A REQUESTED CPU DOES NOT6! HAVE THE CAPABILITIES REQUIRED TO RUN THE PROCESS.&! [FOLD FROM X-29U11 IN V5.3 STREAM]! 9! X-39 MVI0033 MICHAEL V. ILES, 28-JUL-1989 10:08:05.45:! ADD MESSAGE CODE NOSUCHCPB AND CHANGE TEXT FOR ACLFULL! @! X-38 DDP0387 DERRELL D. PI0 PER 25-JUL-1989 12:47:! ADD MESSAGE CODES FOR SITE-SPECIFIC PASSWORD POLICIES.! @! 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 SSA0002 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.! 1 (! X-33 SSA0001 STAN AMWAY 14-SEP-19882! ADD NOSUSPEND ("process cannot be suspended").! 4! X-32 RJB0165 RICHARD J. BOUCHARD JR. 14-SEP-19883! ADD NOMOREDEV MESSAGE FOR $DEVICE_SCAN SERVICE.! 8! X-31 ACG0559 ANDREW C. GOLDSTEIN, 31-AUG-1988 16:285! 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.! @! X-29 DDP0308 DERRELL D. PIPER 21-JUL2 -1988 14:02,! ADD PWDSYNTAX, INVPWDLEN, AND PWDNOTDIF.! -! X-28 JEJ0527 JAMES E JOHNSON 27-JUN-19889! ADD NOSUCHTID, NOCURTID, WRONGSTATE, VETO, UNKRESULT,9! FORGET, PREPARED, NOSUCHRM, ITEMNOTFOUND, NOMOREITEMS! &! X-26 HH0315 HAI HUANG 18-APR-19880! -27 ADD NEW STATUS CODES FOR VECTOR SUPPORT.! 6! X-25 PT00010 PANKAJ TANDON 30-DEC-1987 6! ADD ALLSTARTED,ALRDYSTRT,ALRDYSTPPD AND NSTPPD FOR$! $START/STOP CPU ERRONEOUS CASES.! 4! X-24 LMP0465 L. MA3 RK 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-22 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-1984 7-! 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-19873! CONVERT SS$_BADXXXCTX TO SINGLE BADCONTEXT 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-19864! ADD SS$_LASTID, SS$_NOMOREID, SS$_RLSEMPTY, AND 0! SS5 $_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,&! AND SS$_INV_HW_ID FOR LMF SERVICE.! /! X-8 SAS001 SCOTT A. SHURTS 02-OCT-19867! ADDED SS$_SRVMMAT TO INDICATE CRYPTOGRAPHIC SERVICE ! MISMATCH.! *! X-7 KL 0001 KEITH LOEPERE 12-JUN-19869! ADDED SS$_REMOVED TO INDICATE DIR ENTRY ONLY REMOVED.! %! X-6 CWH5006 CW HOBBS 306 -MAY-1986/! ADD SS$_REMOTE_PROC ERROR MESSAGE FOR CWPS.! &! X-5H2 SJF STU FARNHAM 29-MAY-19864! ADD SS$_CPUNOTACT TO INDICATE THAT THE REQUESTED'! CPU IN AN SMP SYSTEM IS NOT ACTIVE.! -! X-5 PRD0184 PAUL R. DESTEFANO 07-NOV-19854! 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.! 3! X-4 LMP0382 L. MARK PILANT, 6-NOV-1985 10:10@! ADD SS$_OBJLOCKHELD TO INDICATE THAT 7 A PROCESS ALREADY HOLDS! THE OBJECT'S ACL LOCK.! .! X-3 JMK0002 JOSEPH M. KRAETSCH 17-SEP-1985A! ADD SS$_RUCONFLICT "file has active RUs by another facility".)! REMOVE NOTMPJNL, NOPRMJNL (OBSOLETE).! /! V04-001 ROW0466 RALPH O. WEBER 11-JUN-1985<! REPLACE SS$_SHACPYINP (A NO LONGER USED SHADOWING ERROR C! STATUS) WITH SS$_DEVNOTSHR, "device not currently shareable". A! SS$_DEVNOTSHR IS AN ERROR STATUE FOR USE WITH DEVICES MARKED ?! FOR EXCLUSIVE ACCESS BY SOMEON8 E ELSE BY AN MSCP CONTROLLER.! ! ---! +! SYSTEM STATUS CODES! ! LAYOUT OF MESSAGE SPACE:! .! MSG #S RANGE # MSGS DESCRIPTION! %! 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 CODES0! 384-447 C00-DFF 64 INFORMATIONAL CODES1! 448-511 E00-FFF 64 NONFATAL ERROR CODESC! 512-1023 1000-1FFF 512 SHARED MESSAGES (NOT HE9 RE, SEE SHRMSG)>! 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF)0! 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS2! 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORS?! 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONSF! 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF)+! 1664-4031 3400-7DFF 2368 (UNUSED)4! 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! I! NOTE THAT CONTINUE,WASCLR,WASSET,REMEMBER DO NOT HAVE ANY MESSAGE TEXTF! SINCE THESE CODES USE THE SAME MESSAGE NUMBER AS NORMAL AND ACCVIO,@! 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 # MSGS 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'X1! 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& PARAMETER 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 S= S$_FILNOTACC = '000000AC'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$ PAR> AMETER SS$_INSFARG = '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% P ? ARAMETER SS$_IVSTSFLG = '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 = '000@ 001DC'X% PARAMETER 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 =A '00000244'X% PARAMETER 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$_FILNOB TCNTG = '000002AC'X% 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" PARAM C ETER SS$_NOAQB = '00000314'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 = 'D 00000374'X' PARAMETER 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( PARAMET E ER SS$_DUPDSKQUOTA = '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!!!!6! 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 = '0000201F 4'X' PARAMETER 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$_THIRDPARTG Y = '0000207C'X' 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& PARAM H ETER SS$_LINKABORT = '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 = 'I 00002144'X$ PARAMETER 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$ PARAMET J ER SS$_INSFCDT = '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 = '0000220CK 'X& PARAMETER 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$_DAT L ALATE = '00002274'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 = '000022M D4'X' PARAMETER 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% PARAMET N ER SS$_NODELETE = '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 O & PARAMETER 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$_SITEPWDP FAIL = '00002404'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& PARAMET Q ER SS$_NOTORIGIN = '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$_NOWR RITER = '000024CC'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' S PARAMETER SS$_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& T PARAMETER SS$_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 = ' U 000025EC'X( PARAMETER 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$_NOSUCHTHR V EAD = '0000264C'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 = '00002W 6AC'X( PARAMETER 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+ 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 = '0000Y 276C'X' PARAMETER 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& PARAMETERZ 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" PARAMET [ ER 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'XA! THE FOLLOWING CODES MUST BE IN ORDER SINCE THEY ARE CAL\ CULATED# 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$ PARAMET] ER 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 S_ S$_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! >! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT=! ***** NOTE: ROOM FOR 6 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( PARAMETER SS$_DEVALRALLOC = '00000641'X# PARAMETER SS$_REMOTE = '00000649'X% PARAMETER SS$_CONTROLC = '00000651'X( PARAMETER SS$_NOTMODIFIED = '00000659'X& PARAMETER SS$_RDDELDATAa = '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$ b 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( PARAMETER SS$_CONTINUE_64 = '00000709'X* PARAMETER SS$_THREAD_UPCALL = '00000711'X) PARAMETER SS$_CREATED_SHPT = '00000719'X+ PARAMETER SS$_PERSONADELPEND = '00000721'X% PARAMETER Sc S$_DEVAVAIL = '00000729'X$ PARAMETER SS$_LONGGAP = '00000731'X# PARAMETER SS$_BROKEN = '00000739'X! >! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT>! ***** NOTE: ROOM FOR 24 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 = '00000818d '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& PARAMETER 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$ e _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$_NOHOMEBf LK = '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( PARAM g ETER 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$_NOM h OREPROC = '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 i & 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' PARAMETER 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$ j _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$_NOPTBLDIR = '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_UNWI k ND = '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 ! >! NEW SYMBOLS SHOULD l BE ADDED IMMEDIATELY BEFORE THIS COMMENT>! ***** NOTE: ROOM FOR 26 MORE MESSAGES IN THIS SECTION *****! ! .! MSG #S RANGE # MSGS DESCRIPTION! 0! 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$m _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! >! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT>! ***** NOTE: ROOM FOR 49 MORE MESSAGES IN THIS SECTION *****! ! .! MSG #S RANGE # MSGS DESCRIPTION! n 1! 448-511 E00-FFF 64 NONFATAL ERROR CODESF! 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF)! % 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$_UNSUPo PORTED = '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$_NOCOMPLSTS = '00000EAA'X) p 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$ q _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$_BADFILESI r ZE = '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& PARAMETER SS$_QIO_CROCK = ' s 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!!!!8! ANY ADDITIONAL NONFATAL ERROR MESSAGES MUST BE ADDED&! BELOW, IN THE RANGE HEX 2C00-33FF.! **************( PARAMETER SS$_NOTASSUMING = '00002C02'X, PARAMETER SS$_ALREADYASSUMING = '00002C t 0A'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' PARAMETER 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 = '00002Cu 6A'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% v 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' PARAMETER 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'w 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( PARx AMETER 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$_NOTAMEMBER = '00002DBA'X- PARAMETER SS$_GLXSPIUNAVAIL = '00002DC2'X ! >! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT?! ***** NOTE: ROOM FOR 199 MORE MESSAGES IN THIS SECTION *****! ! .! MSG #S RANGE # MSGS DESCRIPTION! 0! 1280-1343 2800-29FF 64y NO PRIVILEGE ERRORS! ! I! NB: THESE MESSAGES MUST BE KEPT IN THE SAME ORDER AS THE PRIVILEGE BITO! 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' PARAMET z ER 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 = '0000{ 2884'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! 2! 1344-1375 2A00-2AFF 32 EXCEE} DED 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*! SYSTEM-WIDE QUOTA ERRORS GROW BACKWARDS' PARAMETER SS$_EXBUFOBJLM = '00002AFC'X' PARAMET ~ ER SS$_EXQUOTAEND = '00002AFF'X! .! MSG #S RANGE # MSGS DESCRIPTION! ?! 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONS! & PARAMETER SS$_MMSFAILED = '00002B04'X>! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT=! ***** NOTE: ROOM FOR 2 MORE MESSAGES IN THIS SECTION *****& PARAMETER SS$_TOOFEWDEV = '00002B18'X$ PARAMETER SS$_AVRWAIT = '00002B20'X>! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT=! ***** NOTE: ROOM FOR 3 MORE MESSA  GES 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 CREATED FOR INFORMATIONALS >! ***** NOTE: ROOM FOR 0 MORE MESSAGES IN ABOVE SECTION *****# PARAMETER SS$_RDBERR = '00002B8 4'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>! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT=! ***** NOTE: ROOM FOR 9 MORE MESSAGES IN THIS SECTION *****! .! MSG #S RANGE # MSGS DESCRIPTION! 4! 4032-4095 7E00-7FFF 64 RESERVE D FOR SCS SYSAPS! 4! MESSAGE CODES IN THIS BLOCK ARE GUARANTEED NOT TO8! BE TRANSLATED BY VMS WHEN THEY ARE SEND OUT BY VMSSCS7! OR WHEN THEY ARE RECEIVED BY VMSSCS. SCA SYSAPS ARE8! FREE TO USE THESE CODES IN ANY SYSAP-DEPENDENT MANNER! IN WHICH THEY CHOOSE.! =! THIS ADDRESS OF THIS BLOCK OF CODES MUST BE IN CONFORMANCE6! WITH THE SCA ARCHITECTURE, I.E., MUST NOT BE MOVED.! % PARAMETER SS$_SYSAPMIN = '00007E00'X% PARAMETER SS$_SYSAPMAX = '00007FFF'XCDEC$ END OPTIONS wwm5!*** MODULE $STRDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:00.77! "! FILE: STRMSG.MSG EDIT: JWN2008! ! * *5! * COPYRIGHT (C) 1978, 1980, 1982, 1984 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 ACCORDAN CE 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. *! * *! * *! ! M! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM STRMSG.MSG$! VERSION 1-004. SBL 22-APR-19812! 2-005 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982R! 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-19828! 2-004 - NOW DEFINE STR$_NORMAL HERE. SBL 24-AUG-1982E! 2-006 - ADD DEFINITIONS FOR STR$_INVDELIM (INVALID DELIMITER) AND @! STR$_NOELEM (NO ELEMENT FOUND), TWO NEW STATUS VALUES TO BE0! USED BY STR$ELEMENT. ROW 03-NOV-1986F! 2-007 - ADD STR$_ERRFREDYN, USED WHEN LIB$FREE_VM BARFS ON A STRINGE! WE ARE TRYING TO FREE. IE. THE USER HAS A CLASS_D DESCR POINTING! AT SOME ARBITRARY MEMORY.D! 2-008 - REMOVE FI RST LETTER CAPITALIZATION FROM ERROR MESSAGES. ! JWN 26-APR-1987! +?! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:! ! STR$_ABCMNOXYZ! L! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",N! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR3! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.! ! ! MACRO-32 PROGRAMMING:! ! THE MACRO CALL:! ! $STRDEF! =! WILL CAUSE ALL SYMBOLS TO BE MADE AVA ILABLE TO THE MODULE.;! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;@! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER.! -! 4! THE FOLLOWING SEVERE ERRORS ARE ALWAYS SIGNALLED.! 9! ; 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$_WR ONUMARG = '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! /! THE FOLLOWING ARE QUALIFIED SUCCESS MESSAGES! ! ; GO IN STEPS OF 8.' PARAMETER STR$_NEGSTRLEN = '00248401'X' PAR AMETER STR$_ILLSTRPOS = '00248409'X' PARAMETER STR$_ILLSTRSPE = '00248411'X# PARAMETER STR$_MATCH = '00248419'X! 3! DEFINE STR$_NORMAL TO BE THE SAME AS SS$_NORMAL.! $ PARAMETER STR$_NORMAL = '00000001'X! CDEC$ END OPTIONSwwb0!*** MODULE $STSDEF ***CDEC$ OPTIONS /NOALIGN! <! MACROS TO DEFINE SYSTEM SERVICE FAILURE AND STATUS CODES.! ! ! $STRUCT SS! 1! THIS STRUCTURE IS NOW CONTAINED IN 'SSMSG.MDL'! +2! Define 32-bit VAX-1 1 error code longword fieldsE! Changed to agree with Handbook - TNH 26-OCT-77 - CHANGE M 1 to P 1B! 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( PARAMET ER STS$M_INHIB_MSG = '10000000'X% PARAMETER STS$M_FAC_NO = '0FFF0000'X2 PARAMETER STS$K_WARNING = '00000000'X ! WARNING @ PARAMETER STS$K_SUCCESS = '00000001'X ! SUCCESSFUL COMPLETION . PARAMETER STS$K_ERROR = '00000002'X ! ERROR 3 PARAMETER STS$K_INFO = '00000003'X ! INFORMATION 6 PARAMETER STS$K_SEVERE = '00000004'X ! SEVERE ERROR  STRUCTURE /STSDEF/ UNION MAP% PARAMETER STS$S_SEVERITY = 38 PARAMETER STS$V_SEVERITY = 0 ! severity code % PARAMETER STS$S_COND_ID = 256 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 = 11 PARAMETER STS$V_SUCCESS = 0 ! Success $ PARAMETER STS$S_MSG_NO = 13# PARAMETER STS$V_MSG_NO = 3- BYTE %FILL (2) ! Message number END MAP MAP" PARAMETER STS$S_CODE = 12+ PARAMETER STS$V_CODE = 3 ! code # PARAMETER STS$S_FAC_SP = 1@ PARAMETER STS$V_FAC_SP = 15 ! 1 if facility specific % PARAMETER STS$S_CUST_DEF = 1X PARAMETER STS$V_CUST_DEF = 27 ! 1 if sub-system is customer (or CSS) defined & PARAMETER STS$S_INHIB_MSG = 1O 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_F AC_NO = 16 ! Facility is 12 bits  BYTE %FILL (2) END MAP! +! Define severity codes! - END UNION END STRUCTURE ! STSDEFCDEC$ END OPTIONS wwM0!*** MODULE $SYIDEF ***CDEC$ OPTIONS /NOALIGN! +5! Get System Information Data Identifier Definitions! ! **** NOTE ****! E! New items must always be added to the END of each item listG! (preceeding the ENDlistname item) so that users will not have! to relink. ! -! DEFINE TABLE TYPES 9 PARAMETER SYI$C_EXETYPE = '00000001'X ! Executive cells8 PARAMETER SYI$C_FLDTYPE = '00000002'X ! Sub-field data= PARAMETER SYI$C_RSDTYPE = '00000003'X ! Reduced system data9! The following item-codes are for executive data cells.7! Processor registers are a special case of this type.7! 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 n umber7 PARAMETER SYI$_SID = '00001001'X ! System ID registerK PARAMETER SYI$_PFCDEFAULT = '00001002'X ! Default page fault cluster sizeP PARAMETER SYI$_PAGTBLPFC = '00001003'X ! Default page table page fault clusterL PARAMETER SYI$_SYSPFC = '00001004'X ! Page fault cluster for system pagingX PARAMETER SYI$_KFILSTCNT = '00001005'X ! (Obsolete, to be deleted in a future release)A PARAMETER SYI$_GBLSECTIONS = '00001006'X ! Global section count; PARAMETER SYI$_GBLPAGES = '00001007'X ! Gl obal page countK PARAMETER SYI$_GBLPAGFIL = '00001008'X ! Global page page file page limitD PARAMETER SYI$_MAXPROCESSCNT = '00001009'X ! Maximum process count; PARAMETER SYI$_PIXSCAN = '0000100A'X ! Process scan countB PARAMETER SYI$_PROCSECTCNT = '0000100B'X ! Process section countB PARAMETER SYI$_MINWSCNT = '0000100C'X ! Minimum working set sizeA PARAMETER SYI$_PAGFILCNT = '0000100D'X ! Number of paging files? PARAMETER SYI$_SWPFILCNT = '0000100E'X ! Number of swap filesB PARAMET ER SYI$_SYSMWCNT = '0000100F'X ! System working set countA PARAMETER SYI$_INTSTKPAGES = '00001010'X ! Interrupt stack sizeS 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 packetsI PARAMETER SYI$_IRPCOUNTV = '00001014'X ! Limit of extension of IRP listF PARAMETER SYI$_WSMAX = '00001015'X ! Max size of process working set@ PARAMETER SYI$_NP AGEDYN = '00001016'X ! Non-paged dynamic poolE PARAMETER SYI$_NPAGEVIR = '00001017'X ! Limit of extension of above; PARAMETER SYI$_PAGEDYN = '00001018'X ! Paged dynamic poolF PARAMETER SYI$_VIRTUALPAGECNT = '00001019'X ! Max virtual page count? PARAMETER SYI$_SPTREQ = '0000101A'X ! Requested SPT extensionC PARAMETER SYI$_EXUSRSTK = '0000101B'X ! Extra user stack providedI PARAMETER SYI$_LRPCOUNT = '0000101C'X ! Number of large request packetsI PARAMETER SYI$_LRPCOUNTV = '0000101D'X  ! Limit of extension of LRP listE PARAMETER SYI$_LRPSIZE = '0000101E'X ! Size of large request packetB PARAMETER SYI$_LRPMIN = '0000101F'X ! Min alloc request for LRPsI PARAMETER SYI$_SRPCOUNT = '00001020'X ! Number of small request packetsI PARAMETER SYI$_SRPCOUNTV = '00001021'X ! Limit of extension of SRP listE PARAMETER SYI$_SRPSIZE = '00001022'X ! Size of small request packetB PARAMETER SYI$_SRPMIN = '00001023'X ! Min alloc request for SRPsL PARAMETER SYI$_CHANNELCNT = '00001024 'X ! Number of permanent I/O channels; PARAMETER SYI$_PIOPAGES = '00001025'X ! Process I/O pagesE PARAMETER SYI$_CTLPAGES = '00001026'X ! Control region impure pagesL PARAMETER SYI$_CTLIMGLIM = '00001027'X ! Limit on use of proc alloc regionI PARAMETER SYI$_IMGIOCNT = '00001028'X ! Default image I/O address space8 PARAMETER SYI$_QUANTUM = '00001029'X ! Process quantumI PARAMETER SYI$_MPW_WRTCLUSTER = '0000102A'X ! Page write cluster factorJ PARAMETER SYI$_MPW_HILIMIT = '0000102B'X !  Modified page list high limitI PARAMETER SYI$_MPW_LOLIMIT = '0000102C'X ! Modified page list low limitK PARAMETER SYI$_MPW_PRIO = '0000102D'X ! Modified page writer I/O priority> PARAMETER SYI$_SWP_PRIO = '0000102E'X ! Swapper I/O priorityP PARAMETER SYI$_MPW_THRESH = '0000102F'X ! Modified page writer lower thresholdS PARAMETER SYI$_MPW_WAITLIMIT = '00001030'X ! Modified page writer busy wait limitL PARAMETER SYI$_TBSKIPWSL = '00001031'X ! Max number WSlist entries to skipR PARAMETER SYI$_PHYSICALPAGES = '00001032'X ! Max number of physical pages to useG PARAMETER SYI$_PFRATL = '00001033'X ! Page fault rate lower thresholdF PARAMETER SYI$_PFRATH = '00001034'X ! Page fault rate high thresholdN 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 minimumI PARAMETER SYI$_AWST IME = '00001039'X ! Working set measurement interval@ PARAMETER SYI$_SWPRATE = '0000103A'X ! Swap rate control (max)Q PARAMETER SYI$_SWPOUTPGCNT = '0000103B'X ! Desired proc page cnt for an outswapQ PARAMETER SYI$_SWPALLOCINC = '0000103C'X ! Swap file allocation increment value8 PARAMETER SYI$_IOTA = '0000103D'X ! I/O time allowanceO PARAMETER SYI$_LONGWAIT = '0000103E'X ! When HIB or LEF proc becomes longwait8 PARAMETER SYI$_SWPFAIL = '0000103F'X ! Swap fail countL PARAMETER SYI$_VM SD1 = '00001040'X ! Reserved to VMS development (DYNAMIC)( PARAMETER SYI$_VMSD2 = '00001041'X ! "( PARAMETER SYI$_VMSD3 = '00001042'X ! "( PARAMETER SYI$_VMSD4 = '00001043'X ! "J 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 ! "D PARAMETER SYI$_USERD1 = '00001048'X ! Reserved for users (DYNAMIC)) PARAMETER SYI$_USERD2 = '00001049'X ! "B PAR AMETER SYI$_USER3 = '0000104A'X ! Reserved for users (STATIC)( PARAMETER SYI$_USER4 = '0000104B'X ! "N PARAMETER SYI$_EXTRACPU = '0000104C'X ! Extra CPU time allowed on expirationJ PARAMETER SYI$_MAXSYSGROUP = '0000104D'X ! Max group code for system UICI PARAMETER SYI$_MVTIMEOUT = '0000104E'X ! Timeout for mount verificationK PARAMETER SYI$_MAXBUF = '0000104F'X ! Maximum allowable buffered I/O sizeS PARAMETER SYI$_DEFMBXBUFQUO = '00001050'X ! Def buffer quota for mailbox creationR PAR AMETER SYI$_DEFMBXMXMSG = '00001051'X ! Def max msg size for mailbox creationJ PARAMETER SYI$_DEFMBXNUMMSG = '00001052'X ! Def number of messages for "A PARAMETER SYI$_FREELIM = '00001053'X ! Desired free list lengthA PARAMETER SYI$_FREEGOAL = '00001054'X ! Target free list lengthN PARAMETER SYI$_GROWLIM = '00001055'X ! Free > growlim to grow proc > wsquota; PARAMETER SYI$_BORROWLIM = '00001056'X ! Same as above???E PARAMETER SYI$_LOCKRETRY = '00001057'X ! Multi-CPU lock retry count= PARAMETER SYI$_XFMAXRATE = '00001058'X ! Max DR32 data rateK PARAMETER SYI$_LAMAPREGS = '00001059'X ! Number of UBA map regs for LPA11R PARAMETER SYI$_REALTIME_SPTS = '0000105A'X ! SPT entries for CONINTERR processesO PARAMETER SYI$_CLISYMTBL = '0000105B'X ! Number of pages for CLI symbol table@ PARAMETER SYI$_LOCKIDTBL = '0000105C'X ! Size of lock ID tableG PARAMETER SYI$_RESHASHTBL = '0000105D'X ! Size of resource hash tableP PARAMETER SYI$_DEADLOCK_WAIT = '0000105E'X ! Deadlock de tection timeout periodO PARAMETER SYI$_SCSBUFFCNT = '0000105F'X ! SCS buffer descriptor table entriesP PARAMETER SYI$_SCSCONNCNT = '00001060'X ! SCS connect descriptor table entriesQ PARAMETER SYI$_SCSRESPCNT = '00001061'X ! SCS response descriptor table entriesC PARAMETER SYI$_SCSMAXDG = '00001062'X ! SCS maximum datagram sizeI PARAMETER SYI$_SCSMAXMSG = '00001063'X ! SCS max sequenced message sizeE PARAMETER SYI$_SCSFLOWCUSH = '00001064'X ! SCS flow control cushionD PARAMETER SYI$_ SCSSYSTEMID = '00001065'X ! SCS system ID (48 bits)@ PARAMETER SYI$_SCSSYSTEMIDH = '00001066'X ! High bits of above= PARAMETER SYI$_SCSNODE = '00001067'X ! SCS system node name'! Used to be SCSNODEH. Unused for now.L PARAMETER SYI$_PRCPOLINTERVAL = '00001069'X ! SCA process polling intervalF PARAMETER SYI$_PASTIMOUT = '0000106A'X ! CI port START/STACK timeoutQ PARAMETER SYI$_PASTDGBUF = '0000106B'X ! CI port DG buffers for START handshakeE PARAMETER SYI$_PANUMPOLL = '0000106C'X ! Num ber of CI ports to pollJ PARAMETER SYI$_PAPOLLINTERVAL = '0000106D'X ! Time between CI port pollsN PARAMETER SYI$_PAPOOLINTERVAL = '0000106E'X ! Time between SYSAPs pool checkR PARAMETER SYI$_TIMEPROMPTWAIT = '0000106F'X ! Time prompt timeout (when booting)Q PARAMETER SYI$_UDABURSTRATE = '00001070'X ! Max number of longwords per NPR - 1U PARAMETER SYI$_LNMSHASHTBL = '00001071'X ! Size of system space log name hash tableD PARAMETER SYI$_LNMPHASHTBL = '00001072'X ! Size of process space " O PARAMETER SYI$_TTY_SCANDELTA = '00001073'X ! Delta time for dialup timer scanC PARAMETER SYI$_TTY_DIALTYPE = '00001074'X ! Flags for dialup typeB PARAMETER SYI$_TTY_SPEED = '00001075'X ! Terminal default: speed= PARAMETER SYI$_TTY_RSPEED = '00001076'X ! " " receive speed6 PARAMETER SYI$_TTY_PARITY = '00001077'X ! " " parity7 PARAMETER SYI$_TTY_BUF = '00001078'X ! " " line width@ PARAMETER SYI$_TTY_DEFCHAR = '00001079'X ! " " characteristicsO PARAMETER SYI$_TTY_DEFCHAR2 = '0000107A 'X ! " " characteristics, 2nd longwordF PARAMETER SYI$_TTY_TYPAHDSZ = '0000107B'X ! Size of typeahead bufferF PARAMETER SYI$_TTY_ALTYPAHD = '0000107C'X ! Alternate typeahead sizeF PARAMETER SYI$_TTY_ALTALARM = '0000107D'X ! Alt typeahead alarm size5 PARAMETER SYI$_TTY_DMASIZE = '0000107E'X ! Dma sizeK PARAMETER SYI$_TTY_PROT = '0000107F'X ! Default terminal alloc protectionA PARAMETER SYI$_TTY_OWNER = '00001080'X ! Default terminal ownerQ PARAMETER SYI$_TTY_CLASSNAME = '00001081'X !  Default terminal class name prefixL PARAMETER SYI$_TTY_SILOTIME = '00001082'X ! Default silo timeout for DMF32J PARAMETER SYI$_TTY_DEFPORT = '00001083'X ! DEFAULT PORT ACTION PARAMETERI PARAMETER SYI$_RMS_DFMBC = '00001084'X ! RMS default: multi-block countS PARAMETER SYI$_RMS_DFMBFSDK = '00001085'X ! " " multi-buffer count for disk (SEQ)M PARAMETER SYI$_RMS_DFMBFSMT = '00001086'X ! " " multi-buffer count for tapeT PARAMETER SYI$_RMS_DFMBFSUR = '00001087'X ! " " multi-buffer count for unit recordR PARAMETER SYI$_RMS_DFMBFREL = '00001088'X ! " " multi-buffer count for REL filesS PARAMETER SYI$_RMS_DFMBFIDX = '00001089'X ! " " multi-buffer count for ISAM filesS PARAMETER SYI$_RMS_DFMBFHSH = '0000108A'X ! " " multi-buffer count for HASH files8 PARAMETER SYI$_RMS_PROLOGUE = '0000108B'X ! " " prologI PARAMETER SYI$_RMS_EXTEND_SIZE = '0000108C'X ! " " file extend quantityA PARAMETER SYI$_RMS_FILEPROT = '0000108D'X ! " " file protection9 PARAMETER SYI$_PQL_DASTLM = '0000 108E'X ! Def AST limit1 PARAMETER SYI$_PQL_MASTLM = '0000108F'X ! Min "B PARAMETER SYI$_PQL_DBIOLM = '00001090'X ! Def buffered I/O limit1 PARAMETER SYI$_PQL_MBIOLM = '00001091'X ! Min "M PARAMETER SYI$_PQL_DBYTLM = '00001092'X ! Def buffered I/O byte count limit1 PARAMETER SYI$_PQL_MBYTLM = '00001093'X ! Min "> PARAMETER SYI$_PQL_DCPULM = '00001094'X ! Def CPU time limit1 PARAMETER SYI$_PQL_MCPULM = '00001095'X ! Min "@ PARAMETER SYI$_PQL_DDIOLM = '00001096'X ! Def direct I/O l imit1 PARAMETER SYI$_PQL_MDIOLM = '00001097'X ! Min "? PARAMETER SYI$_PQL_DFILLM = '00001098'X ! Def open file limit1 PARAMETER SYI$_PQL_MFILLM = '00001099'X ! Min "E PARAMETER SYI$_PQL_DPGFLQUOTA = '0000109A'X ! Def paging file quota5 PARAMETER SYI$_PQL_MPGFLQUOTA = '0000109B'X ! Min "A PARAMETER SYI$_PQL_DPRCLM = '0000109C'X ! Def sub-process limit1 PARAMETER SYI$_PQL_MPRCLM = '0000109D'X ! Min "G PARAMETER SYI$_PQL_DTQELM = '0000109E'X ! Def timer queue entry limit1 PARAMET ER SYI$_PQL_MTQELM = '0000109F'X ! Min "L PARAMETER SYI$_PQL_DWSDEFAULT = '000010A0'X ! Def working set default size5 PARAMETER SYI$_PQL_MWSDEFAULT = '000010A1'X ! Min "C PARAMETER SYI$_PQL_DWSQUOTA = '000010A2'X ! Def working set quota3 PARAMETER SYI$_PQL_MWSQUOTA = '000010A3'X ! Min "E PARAMETER SYI$_PQL_DWSEXTENT = '000010A4'X ! Def working set extent4 PARAMETER SYI$_PQL_MWSEXTENT = '000010A5'X ! Min "= PARAMETER SYI$_PQL_DENQLM = '000010A6'X ! Def enqueue limit1 PARAMETER SYI $_PQL_MENQLM = '000010A7'X ! Min "N PARAMETER SYI$_ACP_MAPCACHE = '000010A8'X ! Number of blocks in bitmap cacheS PARAMETER SYI$_ACP_HDRCACHE = '000010A9'X ! Number of blocks in file header cacheQ PARAMETER SYI$_ACP_DIRCACHE = '000010AA'X ! Number of blocks in directory cache< PARAMETER SYI$_ACP_WORKSET = '000010AB'X ! ACP working setO PARAMETER SYI$_ACP_FIDCACHE = '000010AC'X ! Number of cached index file slotsK PARAMETER SYI$_ACP_EXTCACHE = '000010AD'X ! Number of cached disk extent sK PARAMETER SYI$_ACP_EXTLIMIT = '000010AE'X ! Max fraction of disk to cacheS PARAMETER SYI$_ACP_QUOCACHE = '000010AF'X ! Number of file quota entries to cacheM PARAMETER SYI$_ACP_SYSACC = '000010B0'X ! Default access for system volumesN PARAMETER SYI$_ACP_MAXREAD = '000010B1'X ! Max number of direct blks to readR PARAMETER SYI$_ACP_WINDOW = '000010B2'X ! Default window size for system volumesN PARAMETER SYI$_ACP_WRITEBACK = '000010B3'X ! Deferred cache writeback enableI 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 flagsL PARAMETER SYI$_DEFPRI = '000010B7'X ! Default priority for Job InitiationsC 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 jobsG PARAMETER SYI$_RJOBLIM = '000010BB'X  ! Limit for remote terminal jobsI PARAMETER SYI$_QUORUM = '000010BC'X ! Connection manager cluster QUORUMP PARAMETER SYI$_VOTES = '000010BD'X ! Connection manager VOTES from this systemT PARAMETER SYI$_RECNXINTERVAL = '000010BE'X ! Connection manager reconnect intervalP PARAMETER SYI$_BOOTTIME = '000010BF'X ! 64-bit abs. system time at system bootM PARAMETER SYI$_LOCKIDTBL_MAX = '000010C0'X ! Maximum size of lock ID table.B PARAMETER SYI$_TAILORED = '000010C1'X ! Is this system tailore d?N PARAMETER SYI$_STARTUP_P1 = '000010C2'X ! Parameters for passing informationH 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'XO PARAMETER SYI$_CLUSTER_NODES = '000010CA'X ! total number of nodes in clusterJ PARAMETER SYI $_CLUSTER_VOTES = '000010CB'X ! " " " votes " "H PARAMETER SYI$_CLUSTER_QUORUM = '000010CC'X ! " quorum in clusterA PARAMETER SYI$_CLUSTER_FSYSID = '000010CD'X ! founding systemid@ PARAMETER SYI$_CLUSTER_FTIME = '000010CE'X ! founding boottimeI PARAMETER SYI$_CLUSTER_MEMBER = '000010CF'X ! true if in a live clusterK PARAMETER SYI$_NODE_CSID = '000010D0'X ! cluster system id of target node@ PARAMETER SYI$_NODE_VOTES = '000010D1'X ! votes of target node? PARAMETER SYI$_ NODE_QUORUM = '000010D2'X ! quorum of " "A PARAMETER SYI$_NODE_SYSTEMID = '000010D3'X ! systemid of " "I PARAMETER SYI$_NODE_SWINCARN = '000010D4'X ! S/W incarnation of " "A PARAMETER SYI$_NODE_SWTYPE = '000010D5'X ! S/W type of " "A PARAMETER SYI$_NODE_SWVERS = '000010D6'X ! S/W version of " "A PARAMETER SYI$_NODE_HWTYPE = '000010D7'X ! H/W type of " "A PARAMETER SYI$_NODE_HWVERS = '000010D8'X ! H/W version of " "@ PARAMETER SYI$_NODENAME = '000010D9'X ! SCS nodename of " "A PARAMETER SYI$_ARCHFLAG = '000010DA'X ! Flags used by uVAX codeL PARAMETER SYI$_SCS_EXISTS = '000010DB'X ! Flag to indicate presence of SCSR PARAMETER SYI$_DISK_QUORUM = '000010DC'X ! Cluster quorum device name (in ASCII)M PARAMETER SYI$_XSID = '000010DD'X ! Extended System Identification Register+! Used to be DISK_QUORUM3. Unused for now.+! Used to be DISK_QUORUM4. Unused for now.> PARAMETER SYI$_PAMAXPORT = '000010E0'X ! Max PA port to pollO 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 PriorityB PARAMETER SYI$_QDSKINTERVAL = '000010E4'X ! Disk Quorum Interval; PARAMETER SYI$_ALLOCLASS = '000010E5'X ! Allocation class@ PARAMETER SYI$_LGI_RETRY_LIM = '000010E6'X ! Login retry limitB PARAMETER SYI$_LGI_RETRY_TMO = '000010E7'X ! Login retry timeout@ PARAMETER SYI$_LGI_BRK_LIM = '000010E8'X ! L ogin failure limitB PARAMETER SYI$_LGI_BRK_TMO = '000010E9'X ! Login suspect timeoutF PARAMETER SYI$_LGI_HID_TIM = '000010EA'X ! Login evasive action timeK PARAMETER SYI$_LGI_PWD_TMO = '000010EB'X ! System password drop dead time` PARAMETER SYI$_PQL_DJTQUOTA = '000010EC'X ! Default Job-wide Logical Name Table Creation Quota` PARAMETER SYI$_PQL_MJTQUOTA = '000010ED'X ! Minimum Job-wide Logical Name Table Creation QuotaD PARAMETER SYI$_VAXCLUSTER = '000010EE'X ! VAXcluster participationO P ARAMETER SYI$_LOCKDIRWT = '000010EF'X ! Lock manager directory system weightD PARAMETER SYI$_QDSKVOTES = '000010F0'X ! Votes held by quorum diskR PARAMETER SYI$_DORMANTWAIT = '000010F1'X ! When low pri COM proc becomes dormantC PARAMETER SYI$_PAGEFILE_PAGE = '000010F2'X ! Total pagefile pagesC PARAMETER SYI$_SWAPFILE_PAGE = '000010F3'X ! Total swapfile pagesB PARAMETER SYI$_PAGEFILE_FREE = '000010F4'X ! Free pagefile pagesB PARAMETER SYI$_SWAPFILE_FREE = '000010F5'X ! Free swapfile pag esQ PARAMETER SYI$_TTY_TIMEOUT = '000010F6'X ! Seconds for virtual terminal timeoutL PARAMETER SYI$_TTY_AUTOCHAR = '000010F7'X ! autobaud recognition characterH PARAMETER SYI$_PANOPOLL = '000010F8'X ! Disable/enable CI port pollingC PARAMETER SYI$_PE1 = '000010F9'X ! Reserved TO PEDRIVER (DYNAMIC)& PARAMETER SYI$_PE2 = '000010FA'X ! "& PARAMETER SYI$_PE3 = '000010FB'X ! "& PARAMETER SYI$_PE4 = '000010FC'X ! "B PARAMETER SYI$_PE5 = '000010FD'X ! Reserved TO PEDRIVER (STATIC)& PARAMET ER SYI$_PE6 = '000010FE'X ! "F PARAMETER SYI$_RMS_GBLBUFQUO = '000010FF'X ! RMS global buffer quotaB PARAMETER SYI$_RMS_DFNBC = '00001100'X ! " " network block countX PARAMETER SYI$_ACP_DINDXCACHE = '00001101'X ! File system directory index cache blocksa PARAMETER SYI$_MAXATTACHPRI = '00001102'X ! Maximum scheduling prio for ASMP attached processorN PARAMETER SYI$_SMP_CPUS = '00001103'X ! Number of CPUs to boot in SMP systemR PARAMETER SYI$_SMP_CPUSH = '00001104'X ! Hi Number of CPUs to  boot in SMP systemD PARAMETER SYI$_FALLBACK_MODE = '00001105'X ! Cluster fallback mode[ PARAMETER SYI$_MPW_LOWAITLIMIT = '00001106'X ! Modified page writer lower busy wait limitZ PARAMETER SYI$_MPW_IOLIMIT = '00001107'X ! Modified page writer max concurrent I/O countD PARAMETER SYI$_S0_PAGING = '00001108'X ! System space paging flagsM PARAMETER SYI$_HW_MODEL = '00001109'X ! VAX model number (from SB$B_HWVERS)P PARAMETER SYI$_HW_NAME = '0000110A'X ! VAX model name from #/name trans. table J PARAMETER SYI$_SCH_CTLFLAGS = '0000110B'X ! CPU scheduling control flagsJ PARAMETER SYI$_NODE_EVOTES = '0000110C'X ! Votes expected by target nodeS PARAMETER SYI$_CLUSTER_EVOTES = '0000110D'X ! Number of expected votes in clusterM PARAMETER SYI$_MULTIPROCESSING = '0000110E'X ! Multiprocessor participationG PARAMETER SYI$_FREE_GBLPAGES = '0000110F'X ! Total, free global pagesV PARAMETER SYI$_CONTIG_GBLPAGES = '00001110'X ! Maximum, contiguous free global pagesJ PARAMETER SYI$_FREE_GBL SECTS = '00001111'X ! Total, free global sections> PARAMETER SYI$_EXPECTED_VOTES = '00001112'X ! Expected votesH PARAMETER SYI$_PU_OPTIONS = '00001113'X ! Select PUDRIVER load optionsL PARAMETER SYI$_WPTTE_SIZE = '00001114'X ! # Watchpoint Trace Table EntriesI PARAMETER SYI$_WPRE_SIZE = '00001115'X ! Watchpoint Restore Entry size P PARAMETER SYI$_SMP_SANITY_CNT = '00001116'X ! # SMP Sanity events bef. timeoutX PARAMETER SYI$_SMP_TICK_CNT = '00001117'X ! Clock ticks between SMP sanity tim e cycles[ PARAMETER SYI$_QBUS_MULT_INTR = '00001118'X ! uVAX/QBUS multi-level interrupt enable flagI PARAMETER SYI$_SYSTEM_RIGHTS = '00001119'X ! System rights list segmentI PARAMETER SYI$_SMP_SPINWAIT = '0000111A'X ! SMP normal busywait timeoutJ PARAMETER SYI$_SMP_LNGSPINWAIT = '0000111B'X ! SMP LONG busywait timeoutL PARAMETER SYI$_TIME_CONTROL = '0000111C'X ! Time-related control functionsL PARAMETER SYI$_AVAILCPU_CNT = '0000111D'X ! Number of CPUs in this machineL PARAMETER SYI$_AC TIVECPU_CNT = '0000111E'X ! Number of CPUs up and running)! Used to be LAVC_CONV_BOOT. Unused now.)! Used to be LAVC_LOAD_PEA0. Unused now.)! Used to be LAVC_PORT_SERV. Unused now.H PARAMETER SYI$_MSCP_LOAD = '00001122'X ! Load MSCP server at boot time? PARAMETER SYI$_MSCP_SERVE_ALL = '00001123'X ! Serve all disksJ PARAMETER SYI$_POOLCHECK = '00001124'X ! Pool debugging in MEMORYALC.MARJ PARAMETER SYI$_TAPE_MVTIMEOUT = '00001125'X ! Magtape mount verificationM PARAMETER SYI$_PSEUDO LOA = '00001126'X ! Pseudoloa image size for tape bootP PARAMETER SYI$_MINCLASSPRI = '00001127'X ! Min. priority for class scheduling P PARAMETER SYI$_MAXCLASSPRI = '00001128'X ! Max. priority for class scheduling Y PARAMETER SYI$_MINPRPRI = '00001129'X ! Min. priority for preemptive-resume scheduling g PARAMETER SYI$_AUTOCONFIG_ALGO = '0000112A'X ! Selects which algorithmn SYSGEN uses to autoconfigure.T PARAMETER SYI$_ERRORLOGBUFFERS = '0000112B'X ! Number of buffers for error loggingv PARAMETER SYI$_JOBCTLD = '0000112C'X ! Dynamic SYSGEN flag to handle job controller diagnostics and Rolling upgrade.W PARAMETER SYI$_WINDOW_SYSTEM = '0000112D'X ! Default windowing system for workstationQ PARAMETER SYI$_MSCP_BUFFER = '0000112E'X ! Pages allocated to server local poolW 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 bootg PARAMETER SYI$_CLOCK_INTE RVAL = '00001131'X ! Time (in usec) between interval timer clock interruptsq PARAMETER SYI$_DUMPSTYLE = '00001132'X ! Mask specifying desired format of dump file (full dump or subset dump)C PARAMETER SYI$_NISCS_PORT_SERV = '00001133'X ! Port services flagK PARAMETER SYI$_RSRVPAGCNT = '00001134'X ! No. of pagefile pages to escrowC PARAMETER SYI$_VECTOR_PROC = '00001135'X ! Load vector processing< PARAMETER SYI$_VECTOR_MARGIN = '00001136'X ! Vector marginB PARAMETER SYI$_AFFINITY_SKIP  = '00001137'X ! Affinity skip countB PARAMETER SYI$_AFFINITY_TIME = '00001138'X ! Affinity queue timeM PARAMETER SYI$_VECTOR_EMULATOR = '00001139'X ! Vector emulator present flagB PARAMETER SYI$_VP_MASK = '0000113A'X ! Mask of vector processorsF PARAMETER SYI$_VP_NUMBER = '0000113B'X ! Number of vector processorsT PARAMETER SYI$_USED_GBLPAGCNT = '0000113C'X ! Current count of global pages in useT PARAMETER SYI$_USED_GBLPAGMAX = '0000113D'X ! Maximum count of global pages in useX PARAMET ER SYI$_USED_GBLSECTCNT = '0000113E'X ! Current count of global sections in useX PARAMETER SYI$_USED_GBLSECTMAX = '0000113F'X ! Maximum count of global sections in useH PARAMETER SYI$_ERLBUFFERPAGES = '00001140'X ! Pages in each ERL BufferE PARAMETER SYI$_TAPE_ALLOCLASS = '00001141'X ! Tape Allocation classN PARAMETER SYI$_PFRATH_SYS = '00001142'X ! PFRATH for the system working setM PARAMETER SYI$_WSINC_SYS = '00001143'X ! WSINC for the system working setM PARAMETER SYI$_WSDEC_SYS =  '00001144'X ! WSDEC for the system working setN PARAMETER SYI$_AWSMIN_SYS = '00001145'X ! AWSMIN for the system working setO PARAMETER SYI$_AWSTIME_SYS = '00001146'X ! AWSTIME for the system working set6 PARAMETER SYI$_BOOT_STYLE = '00001147'X ! Boot StyleE PARAMETER SYI$_FT_FLAGS = '00001148'X ! Fault Tolerance Flags field9 PARAMETER SYI$_SHADOWING = '00001149'X ! Shadowing modeL PARAMETER SYI$_SHADOW_SYS_DISK = '0000114A'X ! Volume shadowed system diskQ PARAMETER SYI$_SHADOW_SYS _UNIT = '0000114B'X ! Shadowed system disk unit numberP PARAMETER SYI$_SHADOW_MAX_COPY = '0000114C'X ! Max shadow copy threads allowedD PARAMETER SYI$_TIMVCFAIL = '0000114D'X ! Time to detect VC failureO PARAMETER SYI$_SCSI_NOAUTO = '0000114E'X ! NOAUTOCONFIGURE for SCSI devices. L PARAMETER SYI$_PRIORITY_OFFSET = '0000114F'X ! Priority gap for preemptionJ PARAMETER SYI$_VBN_CACHE_D = '00001150'X ! VBN cache flags dynamic part1I PARAMETER SYI$_VBN_CACHE_S = '00001151'X ! VBN cache flags static part1J PARAMETER SYI$_VCC_FLAGS_D = '00001152'X ! VBN cache flags dynamic part2I PARAMETER SYI$_VCC_FLAGS_S = '00001153'X ! VBN cache flags static part2K PARAMETER SYI$_VCC_PTES = '00001154'X ! VBN cache number of PTE allocatedB PARAMETER SYI$_VCC_MAXSIZE = '00001155'X ! Max size of VBN cacheB PARAMETER SYI$_VCC_MINSIZE = '00001156'X ! Min size of VBN cacheQ PARAMETER SYI$_VCC_CLMAX = '00001157'X ! Max number of cache lines in VBN cachea PARAMETER SYI$_VCC_EQCLASS = '00001158' X ! VBN cache aver. number of Eq. classes per cache lineO PARAMETER SYI$_MMG_CTLFLAGS = '00001159'X ! Bit mask to control A/T mem mgmt.M PARAMETER SYI$_MAXAUDMSG = '0000115A'X ! Max # of pages in mailbox message.h PARAMETER SYI$_NISCS_MAX_PKTSZ = '0000115B'X ! Maximum number of bytes allocated for all NISCS packetsj PARAMETER SYI$_NISCS_LAN_OVRHD = '0000115C'X ! Bytes in NISCS packets reserved for other uses (eg DESNC)O PARAMETER SYI$_DECNET_VERSION = '0000115D'X ! Version of DECnet-VAX  installedO PARAMETER SYI$_TMSCP_LOAD = '0000115E'X ! Load TMSCP tape server at boot timeV PARAMETER SYI$_LGI_CALLOUTS = '0000115F'X ! Number of LOGINOUT local policy calloutsZ 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 bitsW PARAMETER SYI$_SHADOW_MBR_TMO = '00001163 'X ! Timeout interval for HBS shadow membersD 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 nameF PARAMETER SYI$_CRD_CONTROL = '00001167'X ! CRD scrub/replace controlN PARAMETER SYI$_SECURITY_POLICY = '00001168'X ! C2/B1 security policy bitmask; PARAMETER SYI$_DNVOSI1 = '00001169'X ! DECnet/OSI for VMSE PARAMETER SYI$_VBSS_ENABLE = '0000116A'X ! VBSS  enable static flags; PARAMETER SYI$_MEMSIZE = '0000116B'X ! System memory sizeH PARAMETER SYI$_XQPCTLD1 = '0000117A'X ! Reserved for XQP use (dynamic)= PARAMETER SYI$_XQPCTL2 = '0000117B'X ! Reserved for XQP useG PARAMETER SYI$_VBSS_ENABLE2 = '0000117C'X ! VBSS enable dynamic flagsc PARAMETER SYI$_DECNET_FULLNAME = '0000117E'X ! DECnet/OSI fullname (or DECnet Phase IV node name)E PARAMETER SYI$_XQPCTLD3 = '0000117F'X ! F11BXQP Specific parametersu PARAMETER SYI$_SHADOW_SYS_TMO = '00 00118D'X ! Timeout interval for HBS system disk- new and after - shadow membersn PARAMETER SYI$_SHADOW_SYS_WAIT = '0000118E'X ! Timeout interval for HBS system disk- exists - shadow membersW PARAMETER SYI$_SYSTEM_CHECK = '00001191'X ! load/enable system problem isolation code@ PARAMETER SYI$_TMSCP_SERVE_ALL = '00001199'X ! Serve all tapesL PARAMETER SYI$_MULTITHREAD = '000011A9'X ! per process kernel thread limitc PARAMETER SYI$_CWCREPRC_ENABLE = '000011AA'X ! Allow remote process creati on by unprivileged user\ PARAMETER SYI$_DISABLE_UPCALLS = '000011B9'X ! Bitmask to disable specific threads upcallsE PARAMETER SYI$_AVAIL_PAGES = '000011BB'X ! Available physical pagesD PARAMETER SYI$_PROC_SLOTS = '000011BC'X ! Process slot informationC PARAMETER SYI$_BAL_SLOTS = '000011BD'X ! Balance slot informationF PARAMETER SYI$_NPAGED_POOL = '000011BE'X ! Nonpaged pool informationB PARAMETER SYI$_PAGED_POOL = '000011BF'X ! Paged pool information? PARAMETER SYI$_MAIN_MEMORY = '000 011C0'X ! Memory informationI PARAMETER SYI$_MSCP_CMD_TMO = '000011C5'X ! VMS-MSCP server timer valueH PARAMETER SYI$_RMS_DFLRL = '000011C7'X ! RMS default max record lengthT PARAMETER SYI$_RMS_HEURISTIC = '000011C8'X ! RMS file attribute heuristic ctr flagR PARAMETER SYI$_CLUSTER_CREDITS = '000011D0'X ! VMS$VAXcluster SYSAP Send CreditsO PARAMETER SYI$_GALAXY_ID = '000011E5'X ! 16-byte unique ID of Galaxy platform? PARAMETER SYI$_CLUSTER_NTIME = '000011FD'X ! Cluster New timeU PARAM ETER SYI$_CLUSTER_NTIME_REF = '000011FE'X ! Cluster New time - local referenceK! ADD 'EXE' (LONGWORD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ********K! DO NOT ADD 'FLD' (FIELD) ITEMS HERE!!!! ADD THEM BEFORE 'LASTFLD' ******4 PARAMETER SYI$_LASTEXE = '000011FF'X ! LAST INDEX <! ) equals SYI$C_EXETYPE@12 increment 1 prefix SYI tag $;;! The following item-codes are for 'sub-field data' items.9! There usually exists another item-code to retrieve the;! whole parent cell (longword ) - in the EXE section above.- PARAMETER SYI$_CPU = '00002000'X ! CPU typeA PARAMETER SYI$_BUGREBOOT = '00002001'X ! Bugcheck reboot enable= PARAMETER SYI$_DUMPBUG = '00002003'X ! Bugcheck dump enableI PARAMETER SYI$_BUGCHECKFATAL = '00002004'X ! All bugchecks become fatalI PARAMETER SYI$_ACP_MULTIPLE = '00002005'X ! New ACP for each disk classH PARAMETER SYI$_NOAUTOCONFIG = '00002006'X ! Auto configuration inhibit? PARAMETER SYI$_NOCLOCK = '00002007'X ! Interval timer inhibitG P ARAMETER SYI$_NOCLUSTER = '00002008'X ! Page read clustering inhibitG PARAMETER SYI$_POOLPAGING = '00002009'X ! Enable paging of paged poolH PARAMETER SYI$_SBIERRENABLE = '0000200A'X ! SBI error detection enableK PARAMETER SYI$_SETTIME = '0000200B'X ! Force entry of time at system bootC PARAMETER SYI$_ACP_SHARE = '0000200C'X ! Enable sharing of F11ACPG PARAMETER SYI$_SYSPAGING = '0000200D'X ! Enable paging of system codeQ PARAMETER SYI$_UAFALTERNATE = '0000200E'X ! Select alternate a uthorization fileP PARAMETER SYI$_WRITABLESYS = '0000200F'X ! Leave system writable for debuggingM PARAMETER SYI$_RESALLOC = '00002010'X ! Enable resource allocation checkingP PARAMETER SYI$_SSINHIBIT = '00002011'X ! Inhibit system services for processesI PARAMETER SYI$_CONCEAL_DEVICES = '00002012'X ! Enable concealed devicesH PARAMETER SYI$_SAVEDUMP = '00002013'X ! Save dump if it's in page fileP PARAMETER SYI$_MOUNTMSG = '00002014'X ! Enable oper notification of vol mountsO PARAMETER SYI$_DISMOUMSG = '00002015'X ! Enable oper notification of vol dismK PARAMETER SYI$_LOADERAPT = '00002016'X ! Load alt erase pattern generatorM PARAMETER SYI$_LOADCHKPRT = '00002017'X ! Load alt protection check routineE PARAMETER SYI$_XCPU = '00002018'X ! CPU subtype (Extended SID info)D PARAMETER SYI$_CJFLOAD = '00002019'X ! Load common journaling codeM PARAMETER SYI$_CJFSYSRUJ = '0000201A'X ! Load recovery unit journaling code> PARAMETER SYI$_NODE_AREA = '0000201B'X ! System ID n ode areaB PARAMETER SYI$_NODE_NUMBER = '0000201C'X ! System ID node numberH PARAMETER SYI$_CLASS_PROT = '0000201D'X ! Non-discretionary check flagZ PARAMETER SYI$_CHARACTER_EMULATED = '0000201E'X ! Character string instructions emulatedV PARAMETER SYI$_DECIMAL_EMULATED = '0000201F'X ! Decimal string instructions emulatedR PARAMETER SYI$_D_FLOAT_EMULATED = '00002020'X ! D floating instructions emulatedR PARAMETER SYI$_F_FLOAT_EMULATED = '00002021'X ! F floating instructions emulatedR PARAM ETER SYI$_G_FLOAT_EMULATED = '00002022'X ! G floating instructions emulatedR PARAMETER SYI$_H_FLOAT_EMULATED = '00002023'X ! H floating instructions emulatedW PARAMETER SYI$_LOADMTACCESS = '00002024'X ! Load installation specific access routine9 PARAMETER SYI$_ACP_XQP_RES = '00002025'X ! Resident XQP_ PARAMETER SYI$_WRITESYSPARAMS = '00002026'X ! Write active parameters to the system .PAR fileP PARAMETER SYI$_LGI_BRK_TERM = '00002027'X ! Use term name in breakin detectionP PARAMETER SYI $_LGI_BRK_DISUSER = '00002028'X ! Disable user account on breakinS PARAMETER SYI$_ACP_REBLDSYSD = '00002029'X ! Rebuild system disk when mounting itH PARAMETER SYI$_WS_OPA0 = '0000202A'X ! Workstation using QVSS for OPA0J PARAMETER SYI$_NOPGFLSWP = '0000202B'X ! Inhibit swapping into pagefiles1! Used to be SHADOWING. Became an EXE item-code.C PARAMETER SYI$_LOAD_SYS_IMAGES = '0000202D'X ! Load System ImagesQ PARAMETER SYI$_NISCS_CONV_BOOT = '0000202E'X ! Allow remote conversational boo tL PARAMETER SYI$_NISCS_LOAD_PEA0 = '0000202F'X ! Load NI-SCS driver for PEA0S PARAMETER SYI$_SA_APP = '00002030'X ! Booting stand-alone application (SA-BACKUP)S PARAMETER SYI$_LOAD_PWD_POLICY = '00002031'X ! Load site-specific password policyH PARAMETER SYI$_FT_ACTIVE = '00002032'X ! CIRRUS system is fully activeH PARAMETER SYI$_CHECK_CLUSTER = '00002033'X ! VAXCLUSTER=0 sanity checkT PARAMETER SYI$_DAY_OVERRIDE = '00002036'X ! UAF day classifications are overriddenO PARAMETER SYI$_DA Y_SECONDARY = '00002037'X ! UAF day override is to SecondaryD PARAMETER SYI$_CWLOGICALS = '00002038'X ! State of CAP_CWLOGICALS K! ADD 'FLD' (FIELD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ***********K! DO NOT ADD 'EXE' (LONGWORD) ITEMS HERE!!!! ADD THEM BEFORE 'LASTEXE' ***4 PARAMETER SYI$_LASTFLD = '00002039'X ! LAST INDEX <! ) equals SYI$C_FLDTYPE@12 increment 1 prefix SYI tag $;! *B! * THE FOLLOWING DEFINITIONS EXIST FOR COMPATIBILITY WITH THE 1ST8! * IMPLEMENTATION OF SYS$ GETSYI. DO NOT CHANGE THEM!!!9! * ADD NEW GETSYI ITEM-CODES ONLY TO THE PREVIOUS LISTS.! *? PARAMETER SYI$C_SFWTYPE = '00000001'X ! SYSTEM SOFTWARE ITEM 8 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 4 PARAMETER SYI$_LASTSFW = '00000101'X ! LAST INDEX F! *************************************************************** ****F! ********************* BEGIN TEMP FIX ******************************F! ********************* BEGIN TEMP FIX ******************************F! *******************************************************************;! ) equals SYI$C_SFWTYPE@8 increment 1 prefix SYI tag $;F! *******************************************************************F! ********************** END TEMP FIX *******************************F! ********************** END TEMP FIX *******************************F! *** **************************************************************** ! IDENTIFIER FOR HARDWARE TYPE 1 PARAMETER SYI$_OLDCPU = '00000200'X ! CPU TYPE ; PARAMETER SYI$_OLDSID = '00000201'X ! SYSTEM ID REGISTER 4 PARAMETER SYI$_LASTHDW = '00000202'X ! LAST INDEX =! ) equals SYI$C_HDWTYPE@8 increment 1 prefix SYI tag $;CDEC$ END OPTIONS ww A4! **************************************************************************************************************************** *******************************************************************************************************************************! Created 9-NOV-1999 09:13:51 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:13:48 FORD2$:[VFORT.KIT.FORSYSDEF]$SYSSRVNAM.SDI;1 ! ************************************************************************************************************************************************************************************************************************************************** ********* !*** MODULE STARLET ***CDEC$ OPTIONS /NOALIGN! *! SYSTEM SERVICE ENTRY POINT DESCRIPTIONS! ! ! $ADD_HOLDER! .! Add Holder Record To The Rights Database! #! $ADD_HOLDER id, holder, [attrib]! ,! id = identifier longword to associate the! holder record with5! holder = address of the holder identifier quadword6! 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]! 2! name = address of the identifier name character! string descriptor4! id = identifier longword to associate with 'name'/! attrib = attributes longword to grant to the! identifier7! 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! J! 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]! 7! rem_node in address of remote node descriptor7! rem_user in address of remote user descriptor6! 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 pointer/! 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]! F! pagcnt = number of pages to add to working set (if positive).F! Number of pages to subtract from working set (if! negative).F! wsetlm = address of longword to receive new working set limit,F! 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]! F! devnam = address of device na me or logical name string! descriptorC! phylen = address of word to receive length of physical 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]! F! efn = number of any event flag in t he cluster with which to! associate;! name = address of the text name string descriptor5! prot = protection indicator for the cluster3! 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! 5! $ASCTIM [timlen] ,timbuf ,[timadr] ,[cvtflg]! F! timlen = address of a word to receive the number of characters1! inserted into the output buffer.F! timbuf = address of a character string descriptor describing:! the buffer to receive the converted time.F! timadr = address of the quadword containing the 64-bit time to@! be converted to ASCII. If 0, use current time.%! cvtflg = conversion indicator/!  0 -> return full date and time0! 1 -> return converted time only!  INTEGER*4 SYS$ASCTIM EXTERNAL SYS$ASCTIM! ! $ASCTOID! $! Ascii To Identifier Conversion! ! $ASCTOID name, [id], [attrib]! 2! name = address of the identifier name character'! string descriptor to be converted1! id = address to return the identifier longword5! attrib = address to return the attributes longword!  INTEGER*4 SYS$ASCTOID EXTERNAL SYS$ASCTOID! ! $A SCUTC! 4! Convert Binary UTC time into ASCII time string! /! $ASCUTC [timlen], timbuf, [utcadr], [cvtflg]! 1! timlen = Length (in bytes) of the ASCII string.! returned by $ASCUTC. The timelen argument5! is the address of a word containing this length.>! timbuf = Buffer into which $ASCUTC writes the ASCII string.6! The timbuf argument is the address of a character2! string descriptor pointing to the bufer. The4! buffer length specified in the timbuf argument,6 ! together rwith the cvtflg argument, controls what! information is returned.=! utcadr = Time value that $ASCUTC is to convert. The utcadr8! argument is the address of this 128-bit time value.3! Relative times are not permitted. If utcadr is8! 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 is7! a longword value, which is inte rpreted as Boolean.9! The 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]! F! devnam = address of device name or logical name string! descripto rC! chan = address of word to receive channel number assigned4! acmode = access mode associated with channelF! mbxnam = address of mailbox logical name string descriptor, if/! mailbox associated with deviceA! flags = channel flags longword for specifying options for the! $ASSIGN operation!  INTEGER*4 SYS$ASSIGN EXTERNAL SYS$ASSIGN! ! $AUDIT_EVENT! #! Audit Security Relevant Event! L! $AUDIT_EVENT(W) [efn], [flags], itmlst , [audsts], [astadr], [astprm]! 2! efn = number of event flag to set on completion! ! flags = input flags longword! /! itmlst = address of list of item descriptors! B! audsts = address of longword to receive final completion status! -! astadr = address of AST completion routine! 9! astprm = unsigned longword to be passed to AST routine!  INTEGER*4 SYS$AUDIT_EVENT EXTERNAL SYS$AUDIT_EVENT INTEGER*4 SYS$AUDIT_EVENTW EXTERNAL SYS$AUDIT_EVENTW! ! $BINTIM!  )! Convert ASCII String to Binary Time! ! $BINTIM timbuf ,timadr! C! timbuf = address of string descriptor for ASCII time stringF! 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:mm:ss.cc!  INTEGER*4 SYS$BINTIM EXTERNAL SYS$BI NTIM! ! $BINUTC! /! Convert ASCII UTC time to a binary format! ! $BINUTC timbuf, utcadr! =! timbuf = Buffer that holds the ASCII time to be converted.3! The timbuf argument specifies the address of a4! character string descriptor pointing to the VMS3! time string. The VMS time string specifies the/! absolute time to be converted by $BINUTC.7! utcadr = Time value that $BINUTC has converted. The8! 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 descriptorF! devnam = terminal device name string descriptor. If 0, sendF! message to all terminals. If first word inF! descriptor 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],4! ($BRKTHRUW) [carcon], [flags], [reqid], [timout],! [astadr], [astprm]! 2! efn = event flag to be set at completion! 4! msgbuf = address of message buffer descriptor! 2! sendto = address of send address descriptor! (! sndtyp = value to describe sendto! 6! iosb = address of a quadword I/O st atus block! ! carcon = carriage control! (! flags = flags to modify broadcast! +! reqid = broadcast class requestor id! (! timout = address of timeout value! 4! astadr = address of entry mask of AST routine! @! astprm = value to be passed to AST routine as an argument! !  INTEGER*4 SYS$BRKTHRU EXTERNAL SYS$BRKTHRU INTEGER*4 SYS$BRKTHRUW EXTERNAL SYS$BRKTHRUW! ! $CANCEL! ! Cancel I/O on Channel! ! $CANCEL chan ! E! 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! 4! $CANCEL_SELECTIVE chan, [iosblst], [lenlst]! F! chan = number of the channel on which I/O is to be canceled6! iosblst = address of a vector of IOSB pointersD! 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! L! $CANEVTAST [evtnam], [evtadr], [evtfac], [acmode], [flags], [reqid]! ,[evtid]! 3! evtnam = address of descriptor of event name! :! evtadr = address of entry mask of event AST routine! .! evtfac = address of event facility code! 0! acmode = access mode of event declaration! )! flags = address of optional flags! <! reqid = user provided identification of  this request! 5! evtid = unique identification of this request!  INTEGER*4 SYS$CANEVTAST EXTERNAL SYS$CANEVTAST! ! $CANEXH! ! Cancel Exit Handler! ! $CANEXH [desblk]! F! desblk = address of exit control block describing exit handler2! to be deleted. If 0, delete all.!  INTEGER*4 SYS$CANEXH EXTERNAL SYS$CANEXH! ! $CANTIM! ! Cancel Timer Request! #! $CANTIM [reqidt] ,[acmode]! F! reqidt = req uest identification for request to be canceled.-! If 0, all requests canceled.7! acmode = access mode of requests to be canceled!  INTEGER*4 SYS$CANTIM EXTERNAL SYS$CANTIM! ! $CANWAK! ! Cancel Wakeup! #! $CANWAK [pidadr] ,[prcnam]! F! pidadr = address of process identification of process for1! which wakeups are to be canceled:! prcnam = address of process name string descriptor!  INTEGER*4 SYS$CANWA K EXTERNAL SYS$CANWAK! $CHANGE_ACL! #! Set or modify an object's ACL! (! $CHANGE_ACL [chan], objtyp, [objnam],! itmlst, [acmode], [iosb],"! [contxt] , [routin], [orbadr]! 9! chan = number of a channel assigned to the object or6! 0 if object is specified by the objnam parameter! *! objtyp = address of an object type code! "! objnam = address of object name! 1! itmlst = address of a list of item descriptors! ;! acmode = address of a byte containi ng the access mode in*! which the arguments will be validated! 2! iosb = address of a quadword I/O status block! >! contxt = address of a context long word (used for iterative&! calls or a multi-entry 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]! $! Modi fy an objects access class! .! objtyp = address of an object type code! 4! objnam = address of an object name descriptor! 5! itmlst = address of a list of item descriptors! ?! acmode = address of a byte containing the access mode in)! which the arguments will be validated! @! orbadr = address of routine to be executed in kernel mode! !  INTEGER*4 SYS$CHANGE_CLASS EXTERNAL SYS$CHANGE_CLASS! $CHECK_ACCESS! _! $CHECK_ACCESS [objtyp], [objn am], [usrnam], itmlst, [contxt], [clsnam], [objpro], [usrpro]! $! Check User Access to an Object! .! objtyp = address of an object type code! 4! objnam = address of an object name descriptor! 1! usrnam = address of a user name descriptor! 5! itmlst = address of a list of item descriptors! 3! contxt = address of longword for UAI context! 7! clsnam = address of object class name descriptor! I! objpro = address of object profile descript or (ORB TLV or channel)! <! usrpro = address of user profile descriptor (ARB TLV)!  INTEGER*4 SYS$CHECK_ACCESS EXTERNAL SYS$CHECK_ACCESS! $CHECK_PRIVILEGE[W]! =! Check for process privilege and perform security audit.! c! $CHECK_PRIVILEGE[W] [efn] ,prvadr ,[altprv] ,[flags] ,[itmlst] ,[audsts] ,[astadr] ,[astprm]! F! efn = event flag to set on asynchronous service completionK! prvadr = address of quadword privilege mask or longword identifier ?! altprv = address of quadword privilege mask to check against! flags = control flags7! itmlst = address of a list of item descriptors=! audsts = longword to receive final completion statusF! astadr = address of AST routine to call on service completion1! 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! ! $CHKPRO! !  Check Access Protection! *! $CHKPRO itmlst, [objpro], [usrpro]! 1! itmlst = address of a list of item descriptors! J! objpro = address of object profile descriptor (ORB TLV or channel)! =! usrpro = address of user profile descriptor (ARB TLV)!  INTEGER*4 SYS$CHKPRO EXTERNAL SYS$CHKPRO! $CLRCLUEVT! &! Clear Cluster Event Notification! -! $CLRCLUEVT [handle], [acmode], [event]! !! handle = address of handle! "! acmode = ac cess mode of AST! .! event = code indicating type of event!  INTEGER*4 SYS$CLRCLUEVT EXTERNAL SYS$CLRCLUEVT! ! $CLREF! ! Clear Event Flag! ! $CLREF efn! 3! 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! 1! err = address of user error completion routine! 3! suc = address of user success com pletion routine!  INTEGER*4 SYS$CLOSE EXTERNAL SYS$CLOSE! ! $CMEXEC! ! Change to Executive Mode! !! $CMEXEC routin ,[arglst]! F! routin = address of the routine to be executed in executive! modeF! arglst = address of argument list to be supplied to the! routine!  INTEGER*4 SYS$CMEXEC EXTERNAL SYS$CMEXEC ! $CMKRNL! ! Change to Kernel Mode! ! $CMKRNL routin ,[arglst]! @! r outin = address of routine to be executed in kernel mode! B! arglst = address of argument list to be supplied to routine!  INTEGER*4 SYS$CMKRNL EXTERNAL SYS$CMKRNL! ! $CONNECT! ! Connect File! "! $CONNECT rab, [err], [suc]! ! rab = address of rab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$CONNECT EXTERNAL SYS$CONNECT ! $CNTREG! %! Contract Program/Con trol Region! 4! $CNTREG pagcnt ,[retadr] ,[acmode] ,[region]! @! pagcnt = number of pages to be deleted from end of region! E! 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 SYS$CNTREG EXTERNAL SYS$CNTREG! ! $C REATE! ! Create File! !! $CREATE fab, [err], [suc]! ! fab = address of fab! 1! err = address of user error completion routine! 3! 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! ! $CRE ATE_PROXY! !  INTEGER*4 SYS$CREATE_PROXY EXTERNAL SYS$CREATE_PROXY! ! $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! H! $CREATE_BUFOBJ inadr ,[retadr] ,[acmode] ,[flags] ,buffer_handle! L! inadr = address of 2-longword array containing starting and endingL!  virtual addresses of existing VA to include in buffer object! E! retadr = address of 2-longword array to receive addresses6! actually included in the buffer object! 5! acmode = access mode of owner of buffer object! $! flags = request option flags! ! Bit Meaning (if set)! D! 0 Return system virtual address of buffer object in RETADR$! (Caller must be in kernel mode)! E! buffer_handle = address of a quadword to  receive the buffer handle-! that identifies the created buffer object!  INTEGER*4 SYS$CREATE_BUFOBJ EXTERNAL SYS$CREATE_BUFOBJ! ! $CREATE_RDB! ! Create The Rights Database! ! $CREATE_RDB [sysid]! 4! sysid = address of the quadword system identifier(! to store in the maintenance record!  INTEGER*4 SYS$CREATE_RDB EXTERNAL SYS$CREATE_RDB! ! $CREATE_USER_PROFILE! %! Create a user security profile.! Q! $CREATE_USER_PROFILE [usrnam], [itmlst] , [flags], usrpro, usrprolen, [context]! K! usrnam = address of username descriptor (optional with CHP$M_NOACCESS)"! itmlst = address of item list! flags = flags longwordL! usrpro = address of buffer to receive user profile (opaque byte string)C! usrprolen = address of longword to receive user profile length8! contxt = address of longword to receive UAI context! " INTEGER*4 SYS$CREATE_USER_PROFILE! EXTERNAL SYS$CREATE_USER_PROFILE! ! $CRELNM! ! Create Logical Name! <! $CRELNM [attr], tabnam, lognam, [acmode], [itemlist]! 0! attr = address of logical name attributes! ! Attribute MeaningA! LNM$M_CONFINE Logical name not to be copied into sub-process2! LNM$M_NO_ALIAS Logical name can not be aliased2! LNM$M_CRELOG Logical name created using $CRELOG! ?! tabnam = address of logical name table string descriptor! 9! lognam = address of logical name string descriptor! 7! acmode = address of access  mode for logical name! 5! itmlst = address of a list of item descriptors!  INTEGER*4 SYS$CRELNM EXTERNAL SYS$CRELNM ! $CRELNT! ! Create Logical Name Table! 4! $CRELNT [attr], [resnam], [reslen], [quota],1! [promsk], [tabnam], [acmode], [partab]! 6! attr = address of logical name table attributes! @! resnam = address of descriptor of a buffer to receive the! created table's name! D! reslen = address of word to recieve len gth of created table's ! name! B! quota = address of quota associated with logical name table! *! promsk = address of protection mask! N! tabnam = address of descriptor of logical name table name to be created! A! partab = address of name of table parent string descriptor! 7! acmode = address of access mode for logical name! K! uic = optional, owner of table created in response to remote request!  INTEGER*4 SYS$CRELNT EXTERNAL SYS$CRELNT ! $CRELOG! ! Create Logical Name! 2! $CRELOG [tblflg] ,lognam ,eqlnam ,[acmode]! )! tblflg = logical name table number;! 0 -> system (default) 1 -> group 2 -> process! 9! lognam = address of logical name string descriptor! =! eqlnam = address of equivalence name string descriptor! A! acmode = access mode for logical name (process table only)!  INTEGER*4 SYS$CRELOG EXTERNAL SYS$CRELOG ! $CREMBX! '! Create Mailbox and Assign Channel! Y! $CREMBX [prmflg] ,chan ,[maxmsg] ,[bufquo] ,[promsk] ,[acmode] ,[lognam], [flags]! ! prmflg = permanent flag2! 0 -> temporary (default) 1 -> permanent! 2! chan = address of word to receive channel! 9! maxmsg = maximum message size that may be received! C! bufquo = number of bytes that can be used to buffer messages! ! promsk = protection mask! .! acmode = access mode of created mailbox! E! logna m = address of logical name string descriptor for mailbox! @! flags = flags for mailbox creation and channel assignment!  INTEGER*4 SYS$CREMBX EXTERNAL SYS$CREMBX ! $CREPRC! ! Create Process! G! $CREPRC [pidadr] ,[image] ,[input] ,[output] ,[error] ,[prvadr]P! ,[quota] ,[prcnam] ,[baspri] ,[uic] ,[mbxunt] ,[stsflg] ,[itmlst] ,[node]! C! 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! 2! prvadr = address of quadword privilege list! %! quota = address of quota list! =! prcnam = address of string descriptor for process name! $! baspri = base priority (0-31)! D! uic = user identification code. If 0, create a subprocess! 4! mbx unt = mailbox unit for termination message! )! stsflg = status and mode flag bits! ! Bit Meaning! +! 0 disable resource wait mode8! 1 enable system service failure exception mode$! 2 inhibit process swapping,! 3 disable accounting messages! 4 batch process3! 5 cause created process to hibernate=! 6 allow login without authorization file check4! 7 process is a network conn ect object! 5! itmlst = address of a list of item descriptors! <! node = address of string descriptor for SCS node name!  INTEGER*4 SYS$CREPRC EXTERNAL SYS$CREPRC ! $CRETVA! "! Create Virtual Address Space! )! $CRETVA inadr ,[retadr] ,[acmode]! E! inadr = address of 2-longword array containing starting and=! ending virtual address of pages to be created! E! retadr = address of a 2-longword array to receive starting and@ ! ending virtual address of pages actually created! E! acmode = access mode for the new pages (protection is@! read/write for acmode and more privileged modes)!  INTEGER*4 SYS$CRETVA EXTERNAL SYS$CRETVA ! $CRMPSC! ! Create and Map Section! G! $CRMPSC [inadr] ,[retadr] ,[acmode] ,[flags] ,[gsdnam] ,[ident]A! ,[relpag] ,[chan] ,[pagcnt] ,[vbn] ,[prot] ,[pfc]! E! inadr = address of 2-longword array contai ning starting and@! ending virtual addresses of space to map section! E! 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 section-! SEC$M_CRF Copy-on-reference pages'! SEC$M_DZRO Demand zero pages0! SEC$M_EXPREG Find first available space'! SEC$M_PERM Permanent section1! SEC$M_PFNMAP Physical page frame section+! SEC$M_SYSGBL System global section(! SEC$M_WRT Read/write section! @! gsdnam = address of global section name string descriptor! K! ident = address of quadword containing version id and match control! 3! relpag = relative page number within section! ;! chan = number of channel on which file is accessed! *! pagcnt = number of pages in s ection! E! vbn = virtual block number of beginning of section orB! physical page frame number of beginning of section! ! prot = protection mask! '! pfc = page fault cluster size!  INTEGER*4 SYS$CRMPSC EXTERNAL SYS$CRMPSC ! $DACEFC! ,! Disassociate Common Event Flag Cluster! ! $DACEFC efn! 7! efn = number of any event flag in the cluster!  INTEGER*4 SYS$DACEFC EXTERNAL SYS$DACEFC ! $DALLOC!  ! Deallocate Device! "! $DALLOC [devnam] ,[acmode]! H! devnam = address of device name descriptor. If 0, deallocate all! 2! acmode = access mode associated with device!  INTEGER*4 SYS$DALLOC EXTERNAL SYS$DALLOC ! $DASSGN! ! Deassign I/O Channel! ! $DASSGN chan! 2! chan = number of channel to be deassigned!  INTEGER*4 SYS$DASSGN EXTERNAL SYS$DASSGN ! $DCLAST! ! Declare AST! *! $DCLAST astadr ,[astprm] ,[a cmode]! 4! astadr = address of entry mask of AST routine! 1! 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! 7! Declare Change Mode or Compatibility Mode Handler! (! $DCLCMH addres ,[prvhnd] ,[type]! "! addres = address of handler! G! prvhnd = address of longword to receive previous handler address! &! type = hand ler type indicatorJ! 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]! 4! evtnam = address of descriptor of event name! -! rcvacl = address of descriptor of ACL! /! evtfac = address of event facility code! 1! 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! 9! 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! 9! Define Mapping record types  in the Mapping database! ,! $DEFINE_MAPPING initmlst [,outitmlst]! J! initmlst = address of a list of item descriptors for the operationH! 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! 1! err = address of user error completion routine! 3! s uc = address of user success completion routine!  INTEGER*4 SYS$DELETE EXTERNAL SYS$DELETE! ! $DELETE_INTRUSION! ! Delete intrusion record! 2! $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! 1! Delete Mapping record from Mapping database! ! $DELETE_MAPPI NG initmlst! J! 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]! 7! rem_node in address of remote node descriptor7! rem_user in address of remote user descriptor6! 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]! G! tabnam = address of descriptor of logical name table name string! <! lognam = address of descriptor of logical name string! 7! 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 number9! 0 -> system 1 -> group 2 -> process! A! lognam = address of logical name string descriptor. If 0, ! delete all names! @! acmode = access mode of logical name (process table only)!  INTEGER*4 SYS$DELLOG EXTERNAL SYS$DELLOG ! $DELMBX! ! Delete Mailbox! ! $DELMBX chan! 6! chan = channel number assigned to the mailbox!  INTEGER*4 SYS$DELMBX EXTER NAL SYS$DELMBX ! $DELPRC! ! Delete Process! "! $DELPRC [pidadr] ,[prcnam]! J! pidadr = address of longword containing id of process to be deleted! K! prcnam = address of string descriptor for process name to be deleted!  INTEGER*4 SYS$DELPRC EXTERNAL SYS$DELPRC ! $DELTVA! "! Delete Virtual Address Space! )! $DELTVA inadr ,[retadr] ,[acmode]! E! inadr = address of 2-longword array containing starting and;! endi ng virtual addresses of pages to delete! E! 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! $DELETE_BUFOBJ! ! Delete I/O Buffer Object! $! $DELETE_BUFOBJ buffer_handle! H! buffer_handle = address of a quadword that contains the buffer handle/! identifying the buffer object to b e deleted!  INTEGER*4 SYS$DELETE_BUFOBJ EXTERNAL SYS$DELETE_BUFOBJ! $DEQ! ! Dequeue Lock! 0! $DEQ [lkid] ,[valblk] ,[acmode] ,[flags]! 2! lkid = lock ID of the lock to be dequeued! /! valblk = address of the lock value block! 7! 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 ! O! $DEVICE_SCAN return_devnam, retlen, [search_devnam], [itmlst], [contxt]! K! return_devnam = address of descriptor of returned device name buffer! F! retlen = address to store length of device name returned! B! 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$DEVI CE_SCAN ! $DGBLSC! ! Delete Global Section! (! $DGBLSC [flags] ,gsdnam ,[ident]! ! flags = type of sectionE! 0 -> group section SEC$M_SYSGBL -> system section! @! gsdnam = address of global section name string descriptor! K! ident = address of quadword containing version id and match control!  INTEGER*4 SYS$DGBLSC EXTERNAL SYS$DGBLSC ! $DIAGNOSE/! System Service for Diagnostics Programmers! ,! $DIAGNOSE functio n, P2, [cpu_id, [flags]]! +! function = DIAG$SETAFF or DIAG$_ACTVCPUS! 2! P2 = enable flag if function is DIAG$SETAFF, or1! address to return actvcpus in if function! is DIAG$_ACTVCPUS! )! cpu_id = CPU number to set affinity to! 6! flags = masks governing the checking to do, whether9! 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! 8! Disable Use of the Vector Processor, internal form! 0! $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! 1! err = address of user error completion routine! 3! suc = address of  user success completion routine!  INTEGER*4 SYS$DISCONNECT EXTERNAL SYS$DISCONNECT ! $DISMOU! ! Dismount Volume! ! $DISMOU devnam ,[flags]! 8! devnam = address of device name string descriptor! H! flags = 32-bit status mask selecting options for the dismountH! The symbols for the flags are defined by the $DMTDEF! macro.! "! Flag Meaning! 7! DMT$M_NOUNLOAD Do not unload the volume .! C! DMT$M_UNIT Dismount the specified device, rather9! than the entire volume set.!  INTEGER*4 SYS$DISMOU EXTERNAL SYS$DISMOU! ! $DISPLAY! ! Display File! "! $DISPLAY fab, [err], [suc]! ! fab = address of fab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$DISPLAY EXTERNAL SYS$DISPLAY ! $DLCEFC! &! Delete Commo n Event Flag Cluster! ! $DLCEFC name! 9! name = address of cluster name string descriptor!  INTEGER*4 SYS$DLCEFC EXTERNAL SYS$DLCEFC! $DNS! ! DNS Clerk system service! @! $DNS [efn], func , itmlst, [dnsb] ,[astadr] ,[astprm]! ($DNSW)! 9! efn = number of event flag to set on completion! ?! func = function code specifying action to be performed! 5! itmlst = address of a list of item descriptors! E! dnsb  = address of quadword I/O status block to receive final!! completion status! 4! 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! 7! Enable Use of the Vector Processor, internal form! /! $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]B! ($ENQW) ,[astadr] ,[astprm] ,[blkast] ,[acmode], [rsdm_id]2! efn = event flag to be set at completion! 8! lkmode = type of lock mode reques" ted. 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! /! lksb = address of the lock status block! J! 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! A! resnam = address of string descriptor of the resource name! *! parid = lock ID of the parent lock! 4! astadr = address of entry mask of AST routine! 1! 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! #! rsdm_id = 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! 1! err = address of user error completion routine! 3! 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! 3! count = iteration count (seed for erase pattern)! 8! 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! 1! err = address of user error completion routine! 3! 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! 4! $EXPREG pagcnt ,[retadr] ,[acmode] ,[region]! A! pagcnt = number of pages to add to end of s' pecified region! E! retadr = address of 2-longword array to receive virtual6! addresses of starting and ending pages! ,! acmode = access mode of the new pages! ! region = region indicatorD! 0 -> program (P0) region 1 -> control (P1) region!  INTEGER*4 SYS$EXPREG EXTERNAL SYS$EXPREG! ! $EXTEND! ! Extend File! !! $EXTEND fab, [err], [suc]! ! fab = address of fab! 1! err = address of user err( or completion routine! 3! 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! ?! outlen = address of word in which to store output length! :! outbuf = address of output buffer string descriptor! 3! p1... = variable number of arguments to FAO! )  INTEGER*4 SYS$FAO EXTERNAL SYS$FAO ! $FAOL! 0! Formatted ASCII Output With List Parameter! 0! $FAOL ctrstr ,[outlen] ,outbuf ,prmlst! ?! ctrstr = address of string descriptor for control string! ?! outlen = address of word to receive output string length! :! outbuf = address of output buffer string descriptor! 8! prmlst = address of a list of longword parameters!  INTEGER*4 SYS$FAOL EXTERNAL SYS$FAOL ! $FILESCAN! 5! Scan a* string and identify a file specification! F! $FILESCAN srcstr, [valuelst], [fldflags], [auxout], [retlen]! >! srcstr = address of string descriptor for source string! 7! valuelst = address of a list of item descriptors! 8! fldflags = address of a longword to receive flags! >! auxout = address of string descriptor for output string! E! retlen = address to store length of the output string returned!  INTEGER*4 SYS$FILESCAN EXTERNAL SYS$FILESC+ AN! ! $FIND! ! Find Record in File! ! $FIND rab, [err], [suc]! ! rab = address of rab! 1! err = address of user error completion routine! 3! 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 find1! id , = address to return the identifier longword<! attrib = address to return the holder attributes longword>! contxt = address of a longword containing the record stream5! context. initially should be zero, value output5! on first call, value input on subsequent calls.!  INTEGER*4 SYS$FIND_HELD EXTERNAL SYS$FIND_HELD! ! $FIND_HOLDER! ! Find Holder Of Identifier! 0! $FIND_HOLDER id, [holder], [attrib], [contxt]! 0! id = identifier longword whose holder records- ! are to be found4! holder = address to return the holder id quadword5! attrib = address to return the attributes longword>! contxt = address of a longword containing the record stream5! context. initially should be zero, value output5! 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]! E! pidadr = address of process id of process to be forced to exit! E! 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.! P! $FORG/ E_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 flagsE! retdata longword to receive actual amount of information in word3! outlen word to receive length of returned word-! outstr address of buffer to receive word!  INTEGER*4 SYS$FORGE_WORD EXTERNAL SYS$FORGE_WORD! ! $FORGE0 T_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 block0! 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 EXTERNA1 L SYS$FORGET_RMW! ! $FORMAT_ACL! )! Format an Access Control list Entry! 3! $FORMAT_ACL acl-entry, [acl-length], acl-string,1! [line-width], [term-desc], [line-indent],! [bit-names], [routin]! 8! 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! 8! acl-string = address of a descriptor of a buffer into.! which the output string is to2 be stored! 1! line-width = address of the maximum line width! (0 = infinite)! ;! term_desc = address of a character descriptor containing1! a character string to be inserted whenever5! 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!  I3 NTEGER*4 SYS$FORMAT_ACL EXTERNAL SYS$FORMAT_ACL! 3! $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! A! 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 t4 he display width! 8! 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! 5! itmlst = address of a list of item descriptors! @! routin = address of routine to be executed in kernel mode! !  INTEGER*4 SYS$FORMAT_CLASS EXT5 ERNAL SYS$FORMAT_CLASS! ! $FREE! ! Free Record! ! $FREE rab, [err], [suc]! ! rab = address of fab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$FREE EXTERNAL SYS$FREE! ! $FLUSH! ! Flush Record! ! $FLUSH rab, [err], [suc]! ! rab = address of rab! 1! err = address of user error completion routine! 3! suc = address of user success compl6 etion routine!  INTEGER*4 SYS$FLUSH EXTERNAL SYS$FLUSH! $GET_SECURITY! ! Get Object Securty Profile! Y! $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! 1! err = address of user error completion routine! 3! suc = address of user success completion routin7 e!  INTEGER*4 SYS$GET EXTERNAL SYS$GET ! $GETCHN! !! Get I/O Channel Information! <! $GETCHN chan ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf]! :! chan = number of a channel assigned to the device! C! prilen = address of word to receive length of primary buffer! 4! pribuf = address of primary buffer descriptor! E! scdlen = address of word to receive length of secondary buffer! 6! scdbuf = address of secondary buffer descriptor!  I8 NTEGER*4 SYS$GETCHN EXTERNAL SYS$GETCHN ! $GETDEV! ! Get I/O Device Information! ?! $GETDEV devnam ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf]! A! devnam = address of device name or logical name descriptor! C! prilen = address of word to receive length of primary buffer! 4! pribuf = address of primary buffer descriptor! E! scdlen = address of word to receive length of secondary buffer! 6! scdbuf = address of secondary buffer descriptor9 !  INTEGER*4 SYS$GETDEV EXTERNAL SYS$GETDEV! ! $GETDTI! -! Get Distributed Transaction Information! G! $GETDTI [efn], [flags], iosb, [astadr], [astprm], [log_id], context,! ($GETDTIW) search, itmlst! (! efn = event flag to set at completion! flags = operation flags0! iosb = address of a quadword I/O status block7! 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 log/! : context = address of longword search context6! search = address of a list of search criteria items1! 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! A! $GETDVI [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr].! ($GETDVIW) ,[astprm] ,[nullarg]! 2! efn = event flag to be set at completion! =! chan = ; number of a channel assigned to the device or@! 0 if device is specified by the devnam parameter! A! devnam = address of device name or logical name descriptor! 5! itmlst = address of a list of item descriptors! 6! iosb = address of a quadword I/O status block! 4! astadr = address of entry mask of AST routine! 1! astprm = value to be passed to AST routine! "! nullarg = reserved argument! !  INTEGER*4 SYS$GETDVI EXTERNAL SYS$< GETDVI INTEGER*4 SYS$GETDVIW EXTERNAL SYS$GETDVIW ! $GETEVI! ! Get Event Information! !! $GETEVI itmlst ,[nullarg]! 5! itmlst = address of a list of item descriptors!  INTEGER*4 SYS$GETEVI EXTERNAL SYS$GETEVI ! $GETJPI! !! Get Job/Process Information! D! $GETJPI [efn] ,[pidadr] ,[prcnam] ,itmlst ,[iosb], [astadr],! ($GETJPIW) [astprm]! 2! efn = event flag to be set at completion! 1! pidadr = address of process= identification! 9! prcnam = address of process name string descriptor! 5! itmlst = address of a list of item descriptors! 6! iosb = address of a quadword I/O status block! 4! astadr = address of entry mask of AST routine! @! 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 ! $GETLKI! ! Get Lock Information! C! $GETLKI [efn] ,l> kidadr ,itmlst ,[iosb], [astadr], [astprm],! ($GETLKIW) [reserved]! 2! efn = event flag to be set at completion! /! lkidadr = address of lock identification! 5! itmlst = address of a list of item descriptors! 6! iosb = address of a quadword I/O status block! 4! astadr = address of entry mask of AST routine! @! astprm = value to be passed to AST routine as an argument! $! reserved = reserved parameter! !  INTEGER*4 SYS$GETLK? I EXTERNAL SYS$GETLKI INTEGER*4 SYS$GETLKIW EXTERNAL SYS$GETLKIW ! $GETMSG! ! Get Message! 8! $GETMSG msgid ,msglen ,bufadr ,[flags] ,[outadr]! 9! msgid = identification of message to be retrieved! E! msglen = address of a word to receive length of string! returned! E! bufadr = address of buffer descriptor of buffer to receive! string! B! 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! H! outadr = address of 4-byte array to receive the following values:! ! Byte Contents! ! 0 Reserved#! A 1 Count of FAO arguments! 2 User value! 3 Reserved!  INTEGER*4 SYS$GETMSG EXTERNAL SYS$GETMSG ! $GETPTI! ! Get Page Table Information! 9! $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 starting6! and ending address of pages operated on is returned! @! acmode = B access mode against which ownership is checked! 9! mask = mask of page table information control bits! "! pagcnt = minimum page count! !  INTEGER*4 SYS$GETPTI EXTERNAL SYS$GETPTI ! $GETQUI! ! Get Queue Information! 2! $GETQUI [efn], func, [nullarg], [itmlst],+! ($GETQUIW) [iosb], [astadr], [astprm]! <! efn = event flag to be set when request completes9! func = code specifying function to be performedB! context = addressC of a longword containing a context numberH! itmlst = address of a list of item descriptors for the operationO! iosb = address of a quadword status block to receive the final statusN! 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 ! $GETSYI! !! Get System-Wide Information! E! $GETSYI [efn] ,[csidadD r],[nodename],itmlst ,[iosb] ,[astadr],! ($GETSYIW) [astprm]! 2! efn = event flag to be set at completion! 9! csidadr = address of cluster system identification! 8! nodename = address of node name string descriptor! 5! itmlst = address of a list of item descriptors! 6! iosb = address of a quadword I/O status block! 4! astadr = address of entry mask of AST routine! 1! astprm = value to be passed to AST routine! ! F! The sE econd and third arguments in the $GETSYI argument list are2! 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! J! timadr = address of a quadword to receive 64-bit current time value!  INTEGER*4 SYS$GETTIM EXTERNAL SYS$GETTIM ! $GETUTC! ! Get UTC Time! ! $GETUTC utcadr! N! utcadr = address of a utc_dF ate_time to receive 128-bit current UTC time ! value!  INTEGER*4 SYS$GETUTC EXTERNAL SYS$GETUTC ! $GETUAI! (! Get User Authorization Information! A! $GETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr]! ,[astprm]! 2! efn = event flag to be set at completion! =! contxt = address of a context longword (UAF IFI & ISI)! /! usrnam = address of user name descriptor! 5! itmlst = address of a list of item descriptors! 6! G iosb = address of a quadword I/O status block! 4! astadr = address of entry mask of AST routine! 1! astprm = value to be passed to AST routine! !  INTEGER*4 SYS$GETUAI EXTERNAL SYS$GETUAI! ! $GRANTID! !! Grant Identifier to Process! A! $GRANTID [pidadr], [prcnam], [id], [name], [prvatr] [,segment]! /! pidadr = address of PID of affected process9! prcnam = address of string descriptor of process name:! id = address of quadword identifieH r and attributes<! name = address of string descriptor of identifier name9! 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.! 6! $GRANT_LICENSE prdnam ,prducer [,contxt] [,itmlst]! ;! prdnam = address of descriptor for software product name=! prducer = address of descriptor for software I producer name4! contxt = address of context buffer (4 longwords)1! 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.! 0! $HASH_PASSWORD pwd, alg, [salt], usrnam, hash! 5! 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 J of username0! 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]! 2! id = identifier longword to convert, or zero to(! find all identifiers (wildcarding)8! namlen = address of a word to store the len K gth of the! identifier name9! nambuf = address of a character string descriptor that8! describes the buffer to return the identifier name7! resid = address of a longword to return the id found! while wildcarding5! attrib = address to return the attributes longword>! contxt = address of a longword containing the record stream5! context. initially should be zero, value output5! on first call, value input on subsequent calls.!  INTEGER*4 SYS$IDTOASC EXTERNAL L SYS$IDTOASC ! $IMGACT! ! Image Activation! 5! $IMGACT name,[dflnam],hdrbuf,[imgctl],[inadr],! [retadr], [ident], [acmode]! ! 8! name = address of descriptor for file name string! /! dflnam = descriptor for file name string! 6! 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 M of quadword specifying virtual address! range actually mapped! >! ident = address of quadword holding image section match! control and identifier! @! 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]N ! ;! devnam = device name containing volume to initialize! 2! volnam = name to initialize the volume with! D! itmlst = address of item code list for initialization options!  INTEGER*4 SYS$INIT_VOL EXTERNAL SYS$INIT_VOL! $IPC! (! Interprocess Communication Request! 5! $IPC [efn] ,func ,ipcb ,[astadr] ,[astprm]! ($IPCW)! 9! efn = number of event flag to set on completion! ?! func = function code specifying action to be peO rformed! ;! ipcb = address of Interprocess Communication Block! 4! 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]! C! inadr = address of 2-longword array containing starting and6! ending addresses of pages to bP e locked! C! retadr = address of 2-longword array to receive addresses of%! pages actually locked! C! acmode = access mode to check against the owner of the pages!  INTEGER*4 SYS$LCKPAG EXTERNAL SYS$LCKPAG ! $LKWSET! ! Lock Pages in Working Set! )! $LKWSET inadr ,[retadr] ,[acmode]! C! inadr = address of 2-longword array containing starting and>! ending virtual addresses of pages to be locked! E! retadr = Q address of a 2-longword array to receive starting andA! ending virtual addresses of pages actually locked! @! acmode = access mode to be checked against the page owner!  INTEGER*4 SYS$LKWSET EXTERNAL SYS$LKWSET! ! $LOOKUP_MAPPING! 4! Find single Mapping record in Mapping database! ,! $LOOKUP_MAPPING initmlst ,[outitmlst]! K! initmlst = address of a list of item descriptors for the operationK! outitmlst = address of a list of item R descriptors for the operation!  INTEGER*4 SYS$LOOKUP_MAPPING EXTERNAL SYS$LOOKUP_MAPPING ! $MGBLSC! ! Map Global Section! M! $MGBLSC inadr ,[retadr] ,[acmode] ,[flags] ,gsdnam ,[ident] ,[relpag]! C! inadr = address of 2-longword array containing starting and6! ending addresses of pages to be mapped! >! retadr = address of 2-longword array to receive virtual)! addresses of pages mapped! 4! acmode = access mode of ownS er of mapped pages! @! flags = flags overriding default section characteristics! ! Flag Meaning! *! SEC$M_WRT Read/write section-! SEC$M_SYSGBL System global section2! SEC$M_EXPREG Find first available space! 9! gsdnam = address of global section name descriptor! K! ident = address of quadword containing version id and match control! :! relpag = relative page number within global section!  INTEGER*4 SYS$MGBT LSC EXTERNAL SYS$MGBLSC! ! $MODIFY! ! Modify File! !! $MODIFY fab, [err], [suc]! ! fab = address of fab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$MODIFY EXTERNAL SYS$MODIFY! ! $MOD_HOLDER! -! Modify Holder Record In Rights Database! 5! $MOD_HOLDER id, holder, [set_attrib], [clr_attrib]! ! id = identifier longword8! holder = address of thU e holder identifier quadword9! 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! ! $MODIFY_MAPPING! /! Modify Mapping record in Mapping database! *! $MODIFY_MAPPING initmlst, moditmlst! K! initmlst = address of a list of item descriptors for the operationK! moditmlst = V address of a list of item descriptors for the operation!  INTEGER*4 SYS$MODIFY_MAPPING EXTERNAL SYS$MODIFY_MAPPING! ! $MOD_IDENT! 1! Modify Identifier Record In Rights Database! E! $MOD_IDENT id, [set_attrib], [clr_attrib], [new_name], [new_value]! ! id = identifier longword2! set_attrib = longword containing the attributes*! to set into the identifier record2! clr_attrib = longword containing the attributes*! to clear in the identifier record<! W 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! 5! itmlst = Address of a list of item identifiers!  INTEGER*4 SYS$MOUNT EXTERNAL SYS$MOUNT ! $MTACCESS! 1! Installation specific accessibility routine! :! $MTACCESS lblnam, [uic], [std_version], [access_ch X ar],! [access_spec],type! ;! lblnam = On input this field is the address of the7! VOL1 or HDR1 label read off the magnetic tape. On3! output of labels this field is zero. The type/! of label is determined by the TYPE field.B! uic = This field contains the longword volme UIC passed! by value.<! std_version = This field contains a byte value of the1! decimal equivalent of the version number5! gotten from the VOL1 label, passe Y d by value.=! access_char = This field contins the byte value of the7! accessibility character specified by the user,4! passed by value. For output of labels only.B! access_spec = This field determines if the character passed6! in ACCESS_CHAR was specified by user, passed8! by value. It must contain one of the following! values:! MTA$K_CHARVALID = YES! MTA$K_NOCHAR = NO$! For output of labels only.F! type = This field coZ ntains 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]! B! timbuf = address of a 7-word buffer to receive nu[ meric time! information! E! 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]! C! timbuf = address of a 11-word buffer to receive numeric time! information! ! 31 0(! +---------------+---------------+A! | 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 |*! +---------------+---------------+@! | imins | ihours | 6 word Inaccuracy*! +---------------+---------------+*! | ihund of sec | isecs |*! +---------------+] ---------------+! | TDF in Min |! +---------------+! 6! 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! 1! err = address of user error completion routine! 3! 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! 1! err = address of user error completion routine! 3! 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! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INT_ EGER*4 SYS$PARSE EXTERNAL SYS$PARSE! ! $PARSE_ACL! (! Parse an Access Control list Entry! 6! $PARSE_ACL acl-string ,acl-entry ,[error-position],! [bit-names], [routin]! 9! acl-string = address of a descriptor of a buffer which%! contains the text to be parsed! 7! acl-entry = address of a descriptor of a buffer into/! which the converted ACE is to be written! >! error-position = address of a word to receive the number of4! characters actually` processed by the service.1! 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! 5! itmlst = address of a list of item descriptors! @! routin = address of routine to be executea d in kernel mode! !  INTEGER*4 SYS$PARSE_CLASS EXTERNAL SYS$PARSE_CLASS! $PERSONA_CREATE! ! Create Persona! /! $PERSONA_CREATE persona, usrnam, flags! A! persona = address of longword holding persona identifier! 2! usrnam = address of user name descriptor! "! flags = bitvector value! !  INTEGER*4 SYS$PERSONA_CREATE EXTERNAL SYS$PERSONA_CREATE! $PERSONA_ASSUME! ! Assume Persona! '! $PERSONA_ASSUME perb sona, flags! A! persona = address of longword holding persona identifier! !! flags = longword value! !  INTEGER*4 SYS$PERSONA_ASSUME EXTERNAL SYS$PERSONA_ASSUME! $PERSONA_DELETE! ! Delete Persona! ! $PERSONA_DELETE persona! A! persona = address of longword holding persona identifier!  INTEGER*4 SYS$PERSONA_DELETE EXTERNAL SYS$PERSONA_DELETE! $PROCESS_SCAN! %! Initialize Process_scan context! (! $Process_c scan pidctx , [itmlst ]! )! pidctx = address of process ctx id! 5! itmlst = address of a list of item descriptors! !  INTEGER*4 SYS$PROCESS_SCAN EXTERNAL SYS$PROCESS_SCAN ! $PURGWS! ! Purge Working Set! ! $PURGWS inadr! C! inadr = address of 2-longword array containing starting and7! ending addresses of pages to be removed!  INTEGER*4 SYS$PURGWS EXTERNAL SYS$PURGWS! ! $PUT! ! Put Record to File! ! d $PUT rab, [err], [suc]! ! rab = address of rab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$PUT EXTERNAL SYS$PUT ! $PUTMSG! ! Put Message! 4! $PUTMSG msgvec ,[actrtn] ,[facnam], [actprm]! 2! msgvec = address of message argument vector! 7! actrtn = address of entry mask of action routine! :! facnam = address of facility name string descriptor! 3! e 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]3! ($QIOW) ,[p1] ,[p2] ,[p3] ,[p4] ,[p5] ,[p6]! 9! 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! E! iosb = address of quadword I/O stf atus block to receive final!! completion status! 4! astadr = address of entry mask of AST routine! =! astprm = value to be passed to AST routine as argument! A! 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! 1! err = address of user error cg ompletion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$READ EXTERNAL SYS$READ ! $READEF! ! Read Event Flag! ! $READEF efn ,state! <! efn = event flag number of any flag in the cluster! E! state = address of a longword to receive current state of all$! flags in the cluster!  INTEGER*4 SYS$READEF EXTERNAL SYS$READEF! ! $REGISTRY! (! Interface to the Registry Database! H! $REGIh STRY [efn], func, [nullarg], itmlst, [regsb], [astadr], [astprm]! ($REGISTRYW)! +! efn = event flag to be set at completion! 9! func = function code specifying action to be performed! ! nullarg = reserved argument! 1! itmlst = address of a list of item descriptors! -! regsb = address of a quadword status block! 0! astadr = address of entry mask of AST routine! -! astprm = value to be passed to AST routine!  INTEGER*4 SYS$REGISTRY EXTERNAL SYS$REGISTRY INTi EGER*4 SYS$REGISTRYW EXTERNAL SYS$REGISTRYW! ! $RELEASE! ! Release Record! "! $RELEASE rab, [err], [suc]! ! rab = address of rab! 1! err = address of user error completion routine! 3! 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! 3! contxt = address of context buffer j 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$RELEASE_VP! ! $RELEASE_VP_INT! 1! 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], [sk uc]! ! fab = address of fab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$REMOVE EXTERNAL SYS$REMOVE! ! $REM_HOLDER! /! Remove Holder Record From Rights Database! ! $REM_HOLDER id, holder! ! id = identifier longword5! holder = address of the holder identifier quadword!  INTEGER*4 SYS$REM_HOLDER EXTERNAL SYS$REM_HOLDER! ! $REM_IDENT! ,! Remove Identifiel r 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! 1! err = address of user error completion routine! 3! suc = address of user success completion routine! ! newfab = address of new fab INTEGER*4 SYS$RENAME EXTERNAL SYS$RENAME! ! $RESTORE_VP_EXCEPTION! .! m Restore Vector Processor Exception State! ! $RESTORE_VP_EXCEPTION excid! )! excid = address of a context longword! # INTEGER*4 SYS$RESTORE_VP_EXCEPTION" 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 Stn ate! ! $RESTORE_VP_STATE!  INTEGER*4 SYS$RESTORE_VP_STATE EXTERNAL SYS$RESTORE_VP_STATE ! $RESUME! ! Resume Suspended Process! "! $RESUME [pidadr] ,[prcnam]! >! pidadr = address of process id of process to be resumed! 9! prcnam = address of process name string descriptor!  INTEGER*4 SYS$RESUME EXTERNAL SYS$RESUME! ! $REVOKID! $! Revoke Identifier from Process! A! $REVOKID [pidadr], [prcnam], [id], [name], [prvatr] [,segment]o ! /! pidadr = address of PID of affected process9! prcnam = address of string descriptor of process name:! id = address of quadword identifier and attributes<! name = address of string descriptor of identifier name9! 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 ofp rab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$REWIND EXTERNAL SYS$REWIND! $RMSRUNDWN! <! RMS rundown (close all files opened by OpenVMS RMS for2! 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 identificationB! (16 byteq s) and the file identification (6 bytes)=! bytes) of an improperly closed output file.A! type-value = a single byte code that specifies the type of0! I/O rundown to be performed. INTEGER*4 SYS$RMSRUNDWN EXTERNAL SYS$RMSRUNDWN ! $RUNDWN! ! Rundown Process! ! $RUNDWN [acmode]! 9! acmode = access mode to rundown; this and all less'! privileged access modes are rundown!  INTEGER*4 SYS$RUNDWN EXTERNAL SYS$RUNDWN! r ! $SAVE_VP_EXCEPTION! +! Save Vector Processor 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! ! s flags = noallocation flag.! 0 -> allocate 1 -> don't allocate!  INTEGER*4 SYS$SAVE_VP_EXC_INT EXTERNAL SYS$SAVE_VP_EXC_INT! ! $SCAN_INTRUSION! ! Scan intrusion database! B! $SCAN_INTRUSION logfail_status, failed_user, job_type,H! [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 t failed username descriptor"! job_type in job type index@! 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 addressM! failed_password in address of failed password (breakin attempts only)1! parent_user in address of parent username! parent_id in parent PID)! flags in intrusiou n service flags!  INTEGER*4 SYS$SCAN_INTRUSION EXTERNAL SYS$SCAN_INTRUSION! ! $SCAN_MAPPING! 0! Locate Mapping records in Mapping database! 2! $SCAN_MAPPING initmlst, outitmlst [,contxt]! J! initmlst = address of a list of item descriptors for the operationJ! outitmlst = address of a list of item descriptors for the operation1! contxt = address of a context long word!  INTEGER*4 SYS$SCAN_MAPPING EXTERNAL SYS$SCAN_MAPPING ! $SCHDWK! v ! Schedule Wakeup! 4! $SCHDWK [pidadr] ,[prcnam] ,daytim ,[reptim]! ?! pidadr = address of process id of process to be awakened! 9! prcnam = address of process name string descriptor! ;! daytim = address of quadword containing time to wake! C! reptim = address of quadword containing repeat time interval!  INTEGER*4 SYS$SCHDWK EXTERNAL SYS$SCHDWK! *! SYSTEM SERVICE ENTRY POINT DESCRIPTIONS! ! ! $SCHED! ! Control class schedulew r! ! $SCHED func, P1, P2, P3! 0! func = function code (see CSHDEFS in STARLET)! 5! P1 = buffer address, AST entry point address, or 0! 7! P2 = buffer length address or AST acmode or PID or 0! 2! P3 = entry size of a single buffer element or 0 INTEGER*4 SYS$SCHED EXTERNAL SYS$SCHED! ! $SEARCH! ! Search for File Name! !! $SEARCH fab, [err], [suc]! ! fab = address of fab! 1! err = address of user error completion routine! 3! suc = ax ddress 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! 4! astadr = address of entry mask of AST routine! @! astprm = value to be passed to AST routine as an argument! "! acmode = access mode of AST! !! handle = address of handle!  INTEGER*4 SYS$SETCLUEy VT EXTERNAL SYS$SETCLUEVT ! $SETDDIR! @! Read and set the default directory string for the process.! >! $SETDDIR [new-dir-addr] ,[length-addr] ,[cur-dir-addr]! @! new-dir-addr = a descriptor of the new default directory.! @! length-addr = a word that is to receive the length of the/! current default directory.! ?! cur-dir-addr = descriptor of a buffer that is to receive4! the current default directory. INTEGER*4z SYS$SETDDIR EXTERNAL SYS$SETDDIR! $SETDFPROT! A! Read and write the default file protection for the process.! ;! $SETDFPROT [new-def-prot-addr] ,[cur-def-prot-addr]! E! new-def-prot-addr = a word that specifies the new default file4! protection specification.! M! cur-def-prot-addr = a word that is to receive the current default file4! protection specification. INTEGER*4 SYS$SETDFPROT EXTERNAL SYS$SETDFP{ ROT! $SET_RESOURCE_DOMAIN! ! Set Resource Domain! S! $SET_RESOURCE_DOMAIN func ,rsdm_id ,uic_group ,[nullarg] ,[access] ,[acmode]! 0! func = join or leave function to be performed'! 1 - Join the System Resource Domain'! 2 - Join the Process Default Domain:! 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 reserve| d to Digital! 3! 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! Y! $SET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode]!  INTEGER*4 SYS$SET_SECURITY EXTERNAL SYS$SET_SECURITY ! $SETAST! ! Set AST Enable! ! $SETAST enbflg! <! enbflg = AST enab} le indicator for current access mode-! 0 -> disable 1 -> enable!  INTEGER*4 SYS$SETAST EXTERNAL SYS$SETAST ! $SETEF! ! Set Event Flag! ! $SETEF efn! 0! efn = event flag number of flag to set!  INTEGER*4 SYS$SETEF EXTERNAL SYS$SETEF! $SETEVTAST! $! Establish an Event AST Routine! H! $SETEVTAST evtnam, evtadr, [evtfac], [acmode], [flags], [reqid]?! (SETEVTASTW) ,[evtid], [evtcrd], [efn], [iosb], [astadr]! ~ ,[astprm], [nullarg]! 3! evtnam = address of descriptor of event name! :! evtadr = address of entry mask of event AST routine! .! evtfac = address of event facility code! 0! acmode = access mode of event declaration! ! flags = optional flags! <! reqid = user provided identification of this request! H! 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! 6! iosb = address of a quadword I/O status block! ?! astadr = address of entry mask of completion AST routine! <! astprm = value to be passed to completion AST routine!  INTEGER*4 SYS$SETEVTAST EXTERNAL SYS$SETEVTAST INTEGER*4 SYS$SETEVTASTW EXTERNAL SYS$SETEVTASTW ! $SETEXV! ! Set Exception Vector! 6! $SETEXV [vector] ,[addres] ,[acmode] ,[prvhnd]! ! vector = vector number J! 0 -> primary vector 1 -> secondary 2 -> last chance! G! addres = exception handler address (0 indicates deassign vector)! 3! acmode = access mode for which vector is set! G! prvhnd = address of longword to receive previous handler address!  INTEGER*4 SYS$SETEXV EXTERNAL SYS$SETEXV ! $SETIME! ! Set System Time! ! $SETIME [timadr]! E! timadr = address of quadword containing new system time inE!  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]! 4! efn = event flag to set when timer expires! @! daytim = address of quadword containing 64-bit time value! 4! astadr = address of entry mask of AST routine! <! reqidt = request identification of this timer request!  7! flags = only bit 0 used right now. If bit 0 is set,5! then this timer request is in terms of CPU time.!  INTEGER*4 SYS$SETIMR EXTERNAL SYS$SETIMR ! $SETPFM! ! Set Page Fault Monitoring! 6! $SETPFM [pfmflg] ,[astadr] ,[astprm] ,[acmode]! %! pfmflg = function/subfunction bits! 0! astadr = address of entry mask of AST routine! -! astprm = value to be passed to AST routine! ;! acmode = access mode for which the AST is to be declared! :! bufcn tadr = address of longword for which the number ofA! page fault monitoring buffers allocated is stored.!  INTEGER*4 SYS$SETPFM EXTERNAL SYS$SETPFM ! $SETPRA! ! Set Power Recovery AST! ! $SETPRA astadr ,[acmode]! 5! astadr = address of power recovery AST routine! "! acmode = access mode of AST!  INTEGER*4 SYS$SETPRA EXTERNAL SYS$SETPRA ! $SETPRI! ! Set Priority! 1! $SETPRI [pidadr] ,[prcnam] ,pri ,[prvpri]! :!  pidadr = address of process id of process to be set! 9! prcnam = address of process name string descriptor! 1! pri = new base priority for the process! E! prvpri = address of longword to receive previous base priority!  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! 9! $SETPRT inadr ,[retadr] ,[acmode] ,prot ,[prvprt]! C! inadr = address of 2-longword array containing starting and;! ending virtual addresses of pages to change! C! retadr = address of 2-longword array containing starting and<! ending addresses of pages which were changed! &! acmode = access mode of request! ! prot = new protection! A! prvprt = address of byte to receive previ ous protection of!! last page changed!  INTEGER*4 SYS$SETPRT EXTERNAL SYS$SETPRT ! $SETPRV! ! Set privileges.5! $SETPRV [enbflg] ,[prvadr] ,[prmflg] ,[prvprv]! ! enbflg = enable indicator,! 0 -> disable 1 -> enable! D! prvadr = 64-bit mask defining the privileges to be enabled or! disabled! #! prmflg = permanent indicatorA! 0 -> temporary (for this image) 1 -> permanent! I!  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 indicatorD! 0 -> wait for resources 1 -> return failure immediately;! (type is NUMBER rather than BOOLEAN since WATFLG=TRUE?! means 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 indicatorK! 0 -> disable generation of exceptions on service failuresF! 1 -> generate exceptions for system service failures!  INTEGER*4 SYS$SETSFM EXTERNAL SYS$SETSFM ! $SETSHLV! .! Modify process default unshelving action! .! $SETSHLV [pidadr] ,[prcnam], [shlvflg]! 0! 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 bottom bit is set,C! then the default is not to automatically unshelveA! shelved files. If the bottom bit is clear, thenB! the default is to automatically unshelve shelved! files.!  INTEGER*4 SYS$SETSHLV EXTERNAL SYS$SETSHLV ! $SETSSF! ! Set System Service Filter ! ! $SETSSF [mask]! +! mask = flags for services to inhibit!  INTEGER*4 SYS$SETSSF EXTERNAL SYS$SETSSF ! $SETSTK! ! SET VIRTUAL STACK LIMITS! (! $SETSTK inadr ,[retadr] ,[acmode]! E! inadr = address of 2-longword array containing starting and=! ending virtual address of stack limits to set! E! retadr = address of a 2-longword array to receive starting and=! ending virtual address of stack limits to set!  7! acmode = access mode for the stack to change!  INTEGER*4 SYS$SETSTK EXTERNAL SYS$SETSTK ! $SETSWM! ! Set Process 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 flags0! iosb = address of a quadword I/O status block7! astadr = address of the entry mask of an AST routine-! astprm = value to be passed to AST routine/! context = address of longword search context'! func = function code to be performed1! itmlst = address of a list of item descriptors!  INTEGER*4 SYS$SETDTI EXTERNAL SYS$SETDTI INTEGER*4 SYS$SETDTIW EXTERNAL SYS$SETDTIW ! $SETUAI! +! Modify U ser Authorization Information! A! $SETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr]! ,[astprm]! 2! efn = event flag to be set at completion! =! contxt = address of a context longword (UAF IFI & ISI)! /! usrnam = address of user name descriptor! 5! itmlst = address of a list of item descriptors! 6! iosb = address of a quadword I/O status block! 4! astadr = address of entry mask of AST routine! 1! astprm = value  to be passed to AST routine! !  INTEGER*4 SYS$SETUAI EXTERNAL SYS$SETUAI! ! $SHOW_INTRUSION! ! Show intrusion record! d! $SHOW_INTRUSION user_criteria, intruder, intruder_len, breakin_block, [flags], [context]! <! user_criteria in address of user criteria descriptor2! intruder in out address of intruder descriptorI! intruder_len out address of word to receive intruder string length5! breakin_block out address of intrusion block)! fla gs in intrusion service flags8! context in out address of optional longword context!  INTEGER*4 SYS$SHOW_INTRUSION EXTERNAL SYS$SHOW_INTRUSION! ! $DISPLAY_PROXY! ! Display proxy record! Q! $DISPLAY_PROXY rem_node, rem_user, buffer_sizes, proxy_node, proxy_user,9! default_user, local_users, [flags], [context]! 0! rem_node in address of remote node descriptor0! rem_user in address of remote user descriptorU! buffer_sizes out address o f array of words to receive output string lengthsJ! proxy_node out address of descriptor to receive matching proxy nodeJ! proxy_user out address of descriptor to receive matching proxy userH! default_user out address of descriptor to receive default userH! local_users out address of array of blocks to receive local users ! flags in proxy service flags8! context in out address of optional longword context!  INTEGER*4 SYS$DISPLAY_PROXY EXTERNAL SYS$DISPLAY_PROXY ! $SNDACC! (! Send Message to Accounting Manager! ! $SNDACC msgbuf ,[chan]! ;! msgbuf = address of message buffer string descriptor! F! 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! ;! msgbuf = 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! F! 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]! ;! msgbuf = address of message buffer string descriptor! F! chan = number of channel assigned to mailbox to receive reply!  INTEG ER*4 SYS$SNDSMB EXTERNAL SYS$SNDSMB ! $SNDJBC! $! Send Message to Job Controller! 2! $SNDJBC [efn], func, [nullarg], [itmlst],+! ($SNDJBCW) [iosb], [astadr], [astprm]! <! efn = event flag to be set when request completes9! func = code specifying function to be performedG! nullarg = reserved argument for similarity with $getxxx servicesH! itmlst = address of a list of item descriptors for the operationO! iosb = address of a quad word status block to receive the final statusN! 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! ! $SPACE rab, [err], [suc]! ! rab = address of rab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!   INTEGER*4 SYS$SPACE EXTERNAL SYS$SPACE ! $SUSPND! ! Suspend Process! +! $SUSPND [pidadr] ,[prcnam], [flags]! @! 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 is1! currently used. If bit 0 is set, then this1! 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]! 2! efn = event flag to be set at completion! 6! iosb = address of a quadword I/O status block!  INTEGER*4 SYS$SYNCH EXTERNAL SYS$SYNCH! $SUBSYSTEM! +! Modify Protected Subsystem Attributes! ! $SUBSYSTEM enbflg! ! enbflg = enable indicator.! 0 => disable image identifiers"! 1 => restore image identifiers!  INTEGER*4 S YS$SUBSYSTEM EXTERNAL SYS$SUBSYSTEM! ! $TIMCON! 6! Convert between binary UTC and Smithsonian times! %! $TIMCON smntim, utctim, cvtflg! .! For cvtflg = 0 (Convert UTC to Smithsonian)8! smnadr = Address of the output quadword to be written-! with the UTC 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 Smith sonian binary time to be!! converted (VMS Binabs time).8! 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 Name! >! $TRNLNM [attr], tabnam, [lognam], [acmode], [itemlist]! <! attr = address of logical name translation attributes! ! Attribute Meaning8! LNM$M_CASE_BLIND Search of string is case insensitive! D!  tabnam = address of logical name table name string descriptor! 9! lognam = address of logical name string descriptor! 7! acmode = address of access mode for logical name! 5! itmlst = address of a list of item descriptors!  INTEGER*4 SYS$TRNLNM EXTERNAL SYS$TRNLNM ! $TRNLOG! ! Translate Logical Name! E! $TRNLOG lognam ,[rsllen] ,rslbuf ,[table] ,[acmode] ,[dsbmsk]! 9! lognam = address of logical name string descriptor! C! rsllen  = address of word to receive length of resultant name! E! rslbuf = address of descriptor for buffer to receive resultant! string! D! table = address of byte to receive logical name table number! ?! 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 table/! 2 Do not search process table!  INTEGER*4 SYS$TRNLOG EXTERNAL SYS$TRNLOG! ! $TRUNCATE! ! Truncate Record! #! $TRUNCATE rab, [err], [suc]! ! rab = address of rab! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$TRUNCATE EXTERNAL SYS$TRUNCATE ! $ULKPAG! ! Unlock Pages From Memory! )! $ULKPAG inadr ,[retadr] ,[acmode]!  C! inadr = address of 2-longword array containing starting and@! ending virtual addresses of pages to be unlocked! E! retadr = address of a 2-longword array to receive starting andC! ending virtual addresses of pages actually unlocked! C! acmode = access mode to check against the owner of the pages!  INTEGER*4 SYS$ULKPAG EXTERNAL SYS$ULKPAG ! $ULWSET! #! Unlock Pages From Working Set! )! $ULWSET inadr ,[retadr] ,[acmo de]! C! inadr = address of 2-longword array containing starting and@! ending virtual addresses of pages to be unlocked! E! retadr = address of a 2-longword array to receive starting andC! ending virtual addresses of pages actually unlocked! C! acmode = access mode to check against the owner of the pages!  INTEGER*4 SYS$ULWSET EXTERNAL SYS$ULWSET ! $UNWIND! ! Unwind Call Stack! !! $UNWIND [depadr] ,[newpc]! G!  depadr = address of longword containing number of logical frames,! (depth) to unwind call stack! G! 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! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$UPDATE EXTERNAL SYS$UPDATE ! $UPDSEC! !! Update Section File on Disk! B! $UPDSEC inadr ,[retadr] ,[acmode] ,[updflg] ,[efn] ,[iosb]&! ($UPDSECW) ,[astadr] ,[astprm]! C! inadr = address of 2-longword array containing starting andE! ending addresses of the pages to be potentially! written! E! retadr = address of 2-longword array to receive addresses ofE! the first and last page queued in the first I/O ! request! E! acmode = access mode on behalf of which the service is! performed! ?! updflg = update indicator for read/write global sections@! 0 -> write all read/write pages in the section=! 1 -> write all pages modified by the caller! E! efn = number of event flag to set when the section file is! updated! 4! iosb = address of quadword I/O status block! ?! ast adr = address of entry mask of an AST service routine! E! 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! ! $VERIFY_PROXY! ! Verify proxy record! \! $VERIFY_PROXY rem_node, rem_user, [proposed_user], local_user, local_user_len, flags! 0! rem_node in address of remote node descriptor0! rem_user in address of remote user descriptorB! proposed_user  in address of optional proposed user descriptorA! local_user out address of descriptor to receive local userG! local_user_len out address of word to receive local user length'! flags in proxy service flags!  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]! @! pidadr = address of process id of process to be awakened! B! 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! @! efn = event flag number of any flag within the cluster! 5! 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! @! 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! 1! err = address of user error completion routine! 3! suc = address of user success completion routine!  INTEGER*4 SYS$WRITE EXTERNAL SYS$WRITE ! $DCLRNH! ! Declare Restart Handler! ! $DCLRNH desblk! <! desblk = address of handler control 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 c ompletion! flags = operation flags0! iosb = address of a quadword I/O status block3! astadr = address of an entry mask of AST routine<! astprm = value to be passed to AST routine as an argument0! tid = identifier of transaction to be aborted0! reason = optional extended abort reason code7! 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! 6 ! Acknowledge a resource manager transaction event! @! $ACK_EVENT [flags], report_id, report_reply, [, [reason],9! [beftime], [afttime], [part_name], [rm_context],! [timout]]! ! flags = operation flags#! report_id = participant id value,! report_reply = value of completion status7! reason = extended abort reason code (for veto vote),! beftim = lower bound of commit timestamp1! afttim = upper bound of commit timestamp5! part_name = address of  participant name descriptor8! rm_context = RM private value to be passed to evt_rtn1! timout = transaction execution time-out value!  INTEGER*4 SYS$ACK_EVENT EXTERNAL SYS$ACK_EVENT! ! $ADD_BRANCH! ! Add a transaction branch! 8! $ADD_BRANCH [efn], [flags], iosb, [astadr], [astprm],$! ($ADD_BRANCHW) tid, tm_name, bid! +! efn = event flag to be set at completion! flags = operation flags0! iosb = address of a quadword I/O status block3! 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 transaction manager name descriptor1! 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! ! $CREATE_BRANCH! !! Create a transaction branch! @! $CREATE_BRANCH = [efn], [flags], iosb, [astadr], [astprm],A! ($CREATE_ BRANCHW) tid, bid [,[timout], [acmode], [tx_class]]! +! efn = event flag to be set at completion! flags = operation flags0! iosb = address of a quadword I/O status block3! 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 branch5! bid = address to receive new branch identifier0! timout = transaction execution time-out value/! acmode = access mode for $CREATE_BRANCH call(! tx_cl ass= user transaction class name!  INTEGER*4 SYS$CREATE_BRANCH EXTERNAL SYS$CREATE_BRANCH INTEGER*4 SYS$CREATE_BRANCHW EXTERNAL SYS$CREATE_BRANCHW! :! $DECLARE_RM [efn], [flags], iosb, [astadr], [astprm],9! ($DECLARE_RMW) rm_id, event_handler [, [part_name],7! [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 block4! astadr = address of entry mask of AST routine1! astprm = value to be passed to AST routineA! rm_id = address of longword to receive resource manager idC! event_rtn = address of entry mask of transaction event routine<! part_name = address of resource manager name descriptor9! rm_context = RM private value to be passed to evt_rtn?! acmode = value of access mode in which to invoke evt_rtnA! tm_log_id = transaction manager log id for validation checks A! 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! 8! $END_BRANCH [efn], [flags], iosb, [astadr], [astprm],! ($END_BRANCHW) tid, bid! +! efn = event flag to be set at completion! flags = operation flags0! iosb = address of a quadword I/O status block:! astadr = address of a complet ion AST routine entry mask8! astprm = value to be passed to completion AST routine*! tid = address of transaction identifier1! 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! A! $END_TRANS [efn], [flags], iosb [, [astadr], [astprm], [tid] ]! ($END_TRANSW)! +! efn = event flag to be set at completion! flags = opera tion flags0! iosb = address of a quadword I/O status block3! astadr = address of an entry mask of AST routine<! astprm = value to be passed to AST routine as an argument2! 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! 9! Finish resource manager transaction event operation! 9! $FINISH_RMOP [efn], [flags], iosb, [astadr], [astprm],>! ($FINI SH_RMOPW) part_id, retsts [, [reason],! [beftime], [afttime]! *! efn = event flag to set upon completion! flags = operation flags%! iosb = address of I/O status block0! 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 status7! reason = extended abort reason code (for veto vote),! beftim = lower bound of commit timestamp1! afttim = upper bound of c ommit timestamp!  INTEGER*4 SYS$FINISH_RMOP EXTERNAL SYS$FINISH_RMOP INTEGER*4 SYS$FINISH_RMOPW EXTERNAL SYS$FINISH_RMOPW! ! $GET_DEFAULT_TRANS! 1! Get the current process default transaction! ! $GET_DEFAULT_TRANS tid! 6! tid = identifier of the process default transaction! INTEGER*4 SYS$GET_DEFAULT_TRANS EXTERNAL SYS$GET_DEFAULT_TRANS! ! $JOIN_RM! <! Join a resource manager previously started transaction! 5! $JOIN_RM [efn], [flags], iosb, [astadr], [astprm],G! ($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 block4! astadr = address of entry mask of AST routine1! 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 r outine4! 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.! 5! $RECOVER [efn], [flags], iosb, [astadr], [astprm],D! ($RECOVERW) recovery_prefix, event_handler, tm_log_id [,9! [tid], [node], [rm_context], [acmode], [max_events]]! 2! efn = event flag to set upon completion"! flags = operation flags-! iosb = address of I/O status block8! astadr = address of entry mask of AST routine5! astprm = value to be passed to AST routine;! recovery_prefix = address of search name descriptorI! event_handler = address of entry mask of recovery event routine3! tm_log_id = address TM log identifier;! tid = address of transaction identifier9! node = address of node name descriptorM! rm_context = value  to be passed via event block to event_handlerV! acmode = value of access mode in which event ASTs should be deliveredU! 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! A! $SET_DEFAULT_TRANS [efn], [flags], iosb [, [astadr], [astprm],/! ($SET_DEFAULT_TRANSW) [new _tid], [old_tid]]! +! efn = event flag to be set at completion! flags = operation flags0! iosb = address of a quadword I/O status block3! 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 transactionA! 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 EXTER NAL SYS$SET_DEFAULT_TRANSW! ! $START_BRANCH! ! Start a transaction branch! >! $START_BRANCH [efn], [flags], iosb, [astadr], [astprm],L! ($START_BRANCHW) tid, tm_name, bid, [, [timout], [acmode], [tx_class]]! +! efn = event flag to be set at completion! flags = operation flags0! iosb = address of a quadword I/O status block3! 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 branchB! tm_name = address of parent transaction manager name descriptor(! bid = address of branch identifier0! timout = transaction execution time-out value,! acmode = access mode for $END_BRANCH 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], [astpr m],=! ($START_TRANSW) [tid], [timout], [acmode], [tx_class]]! +! efn = event flag to be set at completion! flags = operation flags0! iosb = address of a quadword I/O status block3! astadr = address of an entry mask of AST routine<! astprm = value to be passed to AST routine as an argument/! tid = identifier of transaction just started0! timout = transaction execution time-out value@! acmode = outermost access mode allowed to end the transaction(! tx_class= user transact ion 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],F! ($TRANS_EVENTW) tid, tx_event [, [cmttime], [beftime], [afttime]]! /! efn = event flag to be set at completion! flags = operation flags4! iosb = address of a quadword I/O status block7! astadr = address of an entry  mask of AST routine@! astprm = value to be passed to AST routine as an argument3! tid = identifier of transaction just started-! tx_event = transaction transition event&! cmttime = commit timestamp0! beftime = lower bound of commit timestamp5! afttime = upper bound of commit timestamp!  INTEGER*4 SYS$TRANS_EVENT EXTERNAL SYS$TRANS_EVENT INTEGER*4 SYS$TRANS_EVENTW EXTERNAL SYS$TRANS_EVENTW! $TSTCLUEVT! %! Test Cluster Event Notific ation! -! $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! A! PTD$CREATE CHAN, [ACMODE], [CHARBUFF], [BUFLEN], [HANGUP_AST],)! [HANGUP_ASTPRM], [AST_ACMODE], INADR! B! CHAN = Address of word to receive channel number assigned5! ACMODE = Ac cess mode associated with channelE! CHARBUFF = Address ofa 3 - 5 longword array containing device! characteristics.B! BUFLEN = Length of characteristics buffer in bytes either! 12, 16, or 206! ASTADR = Address of entry mask of AST routine3! ASTPRM = Value to be passed to AST routineH! AST_ACMODE = Access mode for whjich the AST is to be deliveredD! INADR = Address of 2-longword array containing starting and2! 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! D! PTD$READ(W) [EFN], CHAN, [ASTADR], [ASTPRM], READBUF, READBUF_LEN8! EFN = Number of event flag to set on completionQ! CHAN = Word containing number of channel on which I/O is to be performed6! ASTADR = Address of entry mask of AST routine3! ASTPRM = Value to be passed to AST routineC! READBUF = Address character string to hold characters readF! 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]Q! CHAN = Word containing number of channel on which I/O is to be performed6! ASTADR = Address of entry mask of AST routine3! ASTPRM = Value to be passed to AST routineN! WRTBUF = Address of character string containing character to write to! pseudo terminalC! WRTBUF_LEN = Number of characters to write to pseudo terminalC! ECHOBUF = Address character string to hold characters readF! ECHOBUF_LEN = Number of character to be read from pseudo terminal INTEGER*4 PTD$WRITE EXTERNAL PTD$WRITE! PTD$SET_EVENT_NOTIFICATION! 5! Enable or disable terminal event notification ASTs! ?! PTD$SET_EVENT_NOTIF ICATION CHAN, ASTADR, [ASTPRM], [ACMODE], ! TYPEQ! CHAN = Word containing number of channel on which I/O is to be performed6! ASTADR = Address of entry mask of AST routine3! ASTPRM = Value to be passed to AST routineG! 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! 3! Cancel queued control connection read req uest(s)! ! PTD$CANCEL CHAN! Q! 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! Q! 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! 7! PTD$DECTERM_SET_PAGE_SIZE CHAN, PAGE_LEN, PAGE_ WIDTH! Q! CHAN = Word containing number of channel on which I/O is to be performedB! PAGE_LEN = Longword containing new page length of terminalA! 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! L! $POSIX_FORK_CONTROL cntrl , [when] , [handler] , [arg] , [acmode]! ?! cntrl = constant defining what contr ol routine is to do! 9! when = bit array of when handler is to be called! ! handler= handler address! <! arg = arg value that is passed back to the handler! C! acmode = access mode at which to make the specified callback! INTEGER*4 SYS$POSIX_FORK_CONTROL EXTERNAL SYS$POSIX_FORK_CONTROL! ! $ICC_ACCEPT! ! Accept an ICC connection! :! $ICC_ACCEPT Conn_Handle ,[Accept_Buf] ,[Accept_Len]! ,[User_Context] ,[Flags]! @! Conn_Ha ndle = Handle value associated with the Connection8! Accept_Buf = Address of optional user Accept data-! Accept_Len = Length of the accept data2! User_Context = Optional user context value'! Flags = Optional flags argument!  INTEGER*4 SYS$ICC_ACCEPT EXTERNAL SYS$ICC_ACCEPT! ! $ICC_CLOSE_ASSOC! ! Close an ICC association! $! $ICC_CLOSE_ASSOC Assoc_Handle! B! Assoc_Handle = Handle representing the Association to close!  INTEGER*4 SYS$I CC_CLOSE_ASSOC EXTERNAL SYS$ICC_CLOSE_ASSOC! ! $ICC_CONNECT[W]! (! Initiate an ICC Connection attempt! @! $ICC_CONNECT[W] IOS_ICC ,[astadr] ,[astprm] ,assoc_handle.! ,conn_hndl_A ,remote_assoc ,[remote_node]0! ,[user_context] ,[conn_buf] ,[conn_buf_len]3! ,[return_buf] ,[return_buf_len] ,[retlen_addr] ! ,[flags]! =! ios_icc = address of a quadword I/O status blockE! astadr = address of entry mask of users' completion AST! routineB! astprm = value to be passed to the AST routine as an ! argumentD! Assoc_Handle = Handle representing the Association to closeA! Conn_Hndl_A = Address to return the handle value of the! opened ConnectionE! Remote_Assoc = Pointer to a descriptor describing the remote! association name stringE! Remote_Node = Pointer to a descriptor describing the remote! node name string3! User_Context = Optional user context va lueC! 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 dataF! Return_Buf_Len = Length of the buffer available for return dataC! Retlen_Addr = Address to receive the actual length of any! return data,! Flags = Optional flags argument!  INTEGER*4 SYS$ICC_CONNECT EXTERNAL SYS$ICC_CONNECT INTEGER*4 SYS$ICC_CONNECTW EXTERNA L SYS$ICC_CONNECTW! ! $ICC_DISCONNECT[W]! #! Initiate an ICC Disconnection! ?! $ICC_DISCONNECT[W] conn_handle ,IOSB ,[astadr] ,[astprm]!! ,[disc_buf] ,[disc_buf_len]! G! Conn_Handle = Handle representing the Connection to terminate=! iosb = Address of a quadword I/O status blockE! astadr = Address of entry mask of users' completion AST! routineB! astprm = Value to be passed to the AST routine as an ! a rgument@! Disc_Buf = Address of an optional buffer containing! Disconnect dataA! 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]! @! Conn_Handle = Handle value associated with the Connection 8! Reject_Buf = Address of optional user Reject data1! 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! A! $ICC_OPEN_ASSOC assoc_handle ,[assoc_name] ,[logical_name]-! ,[logical_table] ,[conn_rtn] ,[disc_rtn])! ,[recv_rtn] ,[maxflowbufcnt] ,[prot]! ?! Assoc_Handle = Address to return the handle value of th e! opened Association?! Assoc_Name = Pointer to a descriptor describing the! association name stringE! Logical_Name = Pointer to a descriptor describing a logical ! nameF! Logical_Table = Pointer to a descriptor describing a logical! name table<! 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 routineB! M axflowbufcnt = Maximum number of pending inbound message! buffers7! Prot = Default protection for this 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] ,[astprm]! ,recv_buf ,recv_buf_len! C! conn_handle = Handle representing the Connection the data! is being transferred overB! ios_icc = Add ress of an I/O status block (16-byte ICC! RECEIVE layout)E! astadr = Address of entry mask of users' completion AST! routineB! 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! C! 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)B! astadr = Address of entry mask of users' completion AST! routine?! astprm = Value to be passed to the AST ro utine as an! argument<! reply_buf = Address of a buffer containing the data4! 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! C! $ICC_TRANSCEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm]! ,send_buf ,send_len! C! conn_handle = Handle representing the Connection the data is! being transferred over@! ios_icc = Address of an I/O status block (20-byte ICC ! TRANSCEIVE layout)B! 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 containing the data3! send_len = Length of the data in send_buf!  INTEGER*4 SYS$ICC_TRANSCEIVE EXTERNAL SYS$ICC_TRANSCEIVE INTEGER*4 SYS$ICC_TRA NSCEIVEW EXTERNAL SYS$ICC_TRANSCEIVEW! ! $ICC_TRANSMIT[W]! *! Transmit data over an ICC connection! @! $ICC_TRANSMIT[W] conn_handle ,ios_icc ,[astadr] ,[astprm]! ,send_buf ,send_len! C! conn_handle = Handle representing the Connection the data is! being transferred over;! ios_icc = Address of a quadword I/O status blockB! 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 containing the data3! 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_TRANSMITWCDEC$ END OPTIONSww-}0!*** MODULE $TEBDEF ***CDEC$ OPTIONS /NOALIGN! '! Thread Environment Block Definitions! % PARAMETER TEB$M_ASTACT = '00000001'X$ PARAMETER TEB$M_ASTEN = '00000002'X  STRUCTURE /TEB/2 INTEGER*4 TEB$L_FLINK ! Forward queue link3 INTEGER*4 TEB$L_BLINK ! Backward queue link4 INTEGER*2 TEB$W_SIZE ! Size of TEB, in bytes: BYTE TEB$B_TYPE ! Structure type code for TEB: BYTE TEB$b_reserved_1 ! Reserved to DECthreads? BYTE TEB$b_reserved_2(1:4) ! Reserved to DECthreads8 INTEGER*4 TEB$L_SEQUENCE ! Thread sequence number? INTEGER*4 TEB$l_reserved_3(1:2) ! Reserved to DECthreadsF INTEGER*4 T EB$L_PER_KT_AREA ! Address of per kernel thread areaI INTEGER*4 TEB$L_STACK_BASE ! Address of first usable byte in stackL INTEGER*4 TEB$L_STACK_RESERVE ! Address of first byte in reserve areaJ INTEGER*4 TEB$L_STACK_YELLOW ! Address of first byte in yellow areaH INTEGER*4 TEB$L_STACK_GUARD ! Address of first byte in guard areaU INTEGER*4 TEB$L_STACK_SIZE ! Total stack allocation (green+reserve+yellow+red)I INTEGER*4 TEB$L_TSD_VALUES ! Address of thread-spec ific data arrayG INTEGER*4 TEB$L_TSD_COUNT ! Count of thread-specific data values2 INTEGER*4 TEB$L_CANCEL_FLAGS ! cancel flagsC INTEGER*4 TEB$L_CANCEL_COUNT ! CMA alert scope nesting count UNION MAP6 INTEGER*4 TEB$L_THREAD_FLAGS ! thread flags END MAP MAP' PARAMETER TEB$S_ASTACT = 1J PARAMETER TEB$V_ASTACT = 0 ! there's a user mode AST active& PARAMETER TEB$S_ASTEN = 1D PARAMET ER TEB$V_ASTEN = 1 ! use mode ASTs are enabled BYTE %FILL (1) END MAP END UNION END STRUCTURE ! TEB7 PARAMETER TEB$K_LENGTH = '00000048'X ! Length of TEB 7 PARAMETER TEB$C_LENGTH = '00000048'X ! Length of TEB CDEC$ END OPTIONS wwL!*** MODULE $TIRDEF ***CDEC$ OPTIONS /NOALIGN! 0! Text, information and relocation record (TIR)! C PARAMETER TIR$C_STA_GBL = '00000000'X ! Stack global symbol value : PARAMETER TIR$C_STA_SB = '00000 001'X ! Stack signed byte : PARAMETER TIR$C_STA_SW = '00000002'X ! Stack signed word 7 PARAMETER TIR$C_STA_LW = '00000003'X ! Stack longword J PARAMETER TIR$C_STA_PB = '00000004'X ! Stack psect base plus byte offset J PARAMETER TIR$C_STA_PW = '00000005'X ! Stack psect base plus word offset N 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 ? PAR AMETER TIR$C_STA_BFI = '00000009'X ! Stack byte from image ? PARAMETER TIR$C_STA_WFI = '0000000A'X ! Stack word from image C PARAMETER TIR$C_STA_LFI = '0000000B'X ! Stack longword from image @ 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) ` PARAMETER TIR$C_STA_WPB = '0000000E'X ! Stack psect base plus byte offset -- word psect number ` PARAMETER TIR$C_STA_WPW = '0000000F'X ! Stack p sect base plus word offset -- word psect number g PARAMETER TIR$C_STA_WPL = '00000010'X ! Stack psect base plus longword offset -- word of psect number B PARAMETER TIR$C_STA_LSY = '00000011'X ! Stack local symbol value 7 PARAMETER TIR$C_STA_LIT = '00000012'X ! Stack literal N PARAMETER TIR$C_STA_LEPM = '00000013'X ! Stack local symbol entry point mask M PARAMETER TIR$C_MAXSTACOD = '00000013'X ! Last assigned code of stack group M 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 6 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 A PARAMETER TIR$C_STO_LD = '00000019'X ! Store longword displaced < PARAMETER TIR$C_STO_LI = '0000001A'X ! Store short literal K PARAMETER TIR$C_STO_PIDR = '0000001B'X ! Store pos. ind ep. data reference K PARAMETER TIR$C_STO_PICR = '0000001C'X ! Store pos. indep. code reference D PARAMETER TIR$C_STO_RSB = '0000001D'X ! Store repeated signed byte D PARAMETER TIR$C_STO_RSW = '0000001E'X ! Store repeated signed word @ 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 F PARAM ETER TIR$C_STO_RUB = '00000023'X ! Store repeated unsigned byte F PARAMETER TIR$C_STO_RUW = '00000024'X ! Store repeated unsigned word 2 PARAMETER TIR$C_STO_B = '00000025'X ! Store byte 2 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 R PARAMETER TIR$C_STO_RIVB = '00000029'X ! Store repeated immediate variable bytes O PARAMETER TIR$C_STO_PIRR = '0000002A'X ! Store pos. ind ep. relative reference L PARAMETER TIR$C_MAXSTOCOD = '0000002A'X ! Last assigned store command code P PARAMETER TIR$C_MINOPRCOD = '00000032'X ! First assigned operator command code / PARAMETER TIR$C_OPR_NOP = '00000032'X ! No-op - PARAMETER TIR$C_OPR_ADD = '00000033'X ! Add 2 PARAMETER TIR$C_OPR_SUB = '00000034'X ! Subtract 2 PARAMETER TIR$C_OPR_MUL = '00000035'X ! Multiply 0 PARAMETER TIR$C_OPR_DIV = '00000036'X ! Divide 5 PARAMETER TIR$C_OPR_AND = '00000037'X ! Logical AND > PARAMETER T IR$C_OPR_IOR = '00000038'X ! Logical inclusive OR > PARAMETER TIR$C_OPR_EOR = '00000039'X ! Logical exclusive OR 0 PARAMETER TIR$C_OPR_NEG = '0000003A'X ! Negate 4 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 8 PARAMETER TIR$C_OPR_USH = '0000003E'X ! Unsigned shift 0 PARAMETER TIR$C_OPR_ROT = '0000003F'X ! Rotate W PARAMETER TIR$C_OPR_SEL = '00000040'X ! Select one of t hree longwords on top of stack M PARAMETER TIR$C_OPR_REDEF = '00000041'X ! Redefine this symbol after pass 2 < PARAMETER TIR$C_OPR_DFLIT = '00000042'X ! Define a literal O PARAMETER TIR$C_MAXOPRCOD = '00000042'X ! Last assigned operator command code O PARAMETER TIR$C_MINCTLCOD = '00000050'X ! First assigned control command code ? PARAMETER TIR$C_CTL_SETRB = '00000050'X ! Set relocation base C PARAMETER TIR$C_CTL_AUGRB = '00000051'X ! Augment relocation base A PARAMETER TIR$C_CTL_DFLOC = ' 00000052'X ! Define debug location > PARAMETER TIR$C_CTL_STLOC = '00000053'X ! Set debug location @ PARAMETER TIR$C_CTL_STKDL = '00000054'X ! Stack debug location N PARAMETER TIR$C_MAXCTLCOD = '00000054'X ! Last assigned control command code  STRUCTURE /TIRDEF/ UNION MAP8 BYTE TIR$B_RECTYP ! Record type (OBJ$C_TIR) END MAP! Define relocation commands END UNION END STRUCTURE ! TIRDEF! '! EVAX dependent structures start here! CDEC$ END OPTIONS w wm0!*** MODULE $TPADEF ***CDEC$ OPTIONS /NOALIGN! P! TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE,4! 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'XO PARAMETER TPA$K_LENGTH0 = '00000024'X ! LENGTH OF ZERO LEVEL PAR AMETER BLOCK O PARAMETER TPA$C_LENGTH0 = '00000024'X ! LENGTH OF ZERO LEVEL PARAMETER BLOCK  STRUCTURE /TPADEF/E INTEGER*4 TPA$L_COUNT ! ARGUMENT COUNT (NUMBER OF LONGWORDS) UNION MAP7 INTEGER*4 TPA$L_OPTIONS ! OPTIONS LONGWORD  END MAP MAP' PARAMETER TPA$S_BLANKS = 1O PARAMETER TPA$V_BLANKS = 0 ! PROCESS BLANKS AND TABS EXPLICITLY ' PARAMETER TPA$S_ABBREV = 1G PARAMETER TPA$V_ABB REV = 1 ! ALLOW MINIMAL ABBREVIATION ' PARAMETER TPA$S_ABBRFM = 1K PARAMETER TPA$V_ABBRFM = 2 ! ALLOW FIRST MATCH ABBREVIATION & PARAMETER TPA$S_AMBIG = 1L PARAMETER TPA$V_AMBIG = 16 ! AMBIGUOUS KEYWORD AT THIS STATE  BYTE %FILL (1) END MAP MAP! BYTE %FILL(1:3)J BYTE TPA$B_MCOUNT ! MINIMUM ABBREVIATION ON KEYWORDS  END MAP END UNIONE INTEGER*4 TPA$L_S TRINGCNT ! BYTE COUNT OF STRING BEING PARSED B INTEGER*4 TPA$L_STRINGPTR ! ADDRESS OF STRING BEING PARSED G INTEGER*4 TPA$L_TOKENCNT ! BYTE COUNT OF CURRENT MATCHING TOKEN < INTEGER*4 TPA$L_TOKENPTR ! ADDRESS OF MATCHING TOKEN UNION MAPH INTEGER*4 TPA$L_CHAR ! ASCII CODE OF SINGLE CHARACTER TOKEN  END MAP MAPA BYTE TPA$B_CHAR ! BYTE FORM OF SINGLE CHAR CELL  END MAP END UNION@ INTEGER*4 TPA $L_NUMBER ! NUMERIC VALUE OF NUMERIC TOKEN D INTEGER*4 TPA$L_PARAM ! PARAMETER LONGWORD FROM STATE TABLE  END STRUCTURE ! TPADEFCDEC$ END OPTIONS ww 0!*** MODULE $TRMDEF ***CDEC$ OPTIONS /NOALIGN! .! 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'XB PARAMETER TRM$_LASTITM = '0000000B'X ! must remain the 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 = '00000017'X' PARAMETER TRM$_RESERVE24 = '00000018'X' PARAMETER TRM$_RESERVE25 = '00000019'X' PARAMETER TRM$_RESERVE26 = '0000001A'X' PARAMETER TRM$_RESERVE27 = '0000001B'X' PARAMETER T RM$_RESERVE28 = '0000001C'X' PARAMETER TRM$_RESERVE29 = '0000001D'X' PARAMETER TRM$_RESERVE30 = '0000001E'XF 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 = '00 000100'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_CV_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* P ARAMETER TRM$M_ST_OTHERWAY = '00000002'X STRUCTURE /TRMDEF/ UNION MAP& PARAMETER TRM$S_TM_NOECHO = 11 PARAMETER TRM$V_TM_NOECHO = 6 ! NOECHO % PARAMETER TRM$S_TM_TIMED = 1/ 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 = 15 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 = 1H PARAMETER TRM$V_TM_TRMNOECHO = 12 ! TERMINATORS ARE NOT ECHOED ' PARAMETER TRM$S_TM_REFRESH = 1H PARAMETER TRM$V_TM_REFRESH = 13 ! Control-R interrupted read n& PARAMETER TRM$S_TM_ESCAPE = 1M PARAMETER TRM$V_TM_ESCAPE = 14 ! TERMINATE READ ON ESCAPE SEQUENCE & PARAMETER TRM$S_TM_NOEDIT = 1C PARAMETER TRM$V_TM_NOEDIT = 15 ! DISABLE ADVANCED EDITING( PARAMETER TRM$S_TM_NORECALL = 1Z 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 = 1J PARAMETER TRM$V_TM_ARROWS = 19 ! enable left & right arrow keys* PARAMETER TRM$S_TM_TERM_ARROW = 1H PARAMETER TRM$V_TM_TERM_ARROW = 20 ! pass arrows as terminator( PARAMETER TRM$S_TM_TERM_DEL = 1E PARAMETER TRM$V_TM_TERM_DEL = 21 ! pass as terminator& PARAMETER TRM$S_TM_TOGGLE = 1J PARAMETER TRM$V_TM_TOGGLE = 22 ! allow insert/overstrike toggle( PARAMETER TRM$S_TM_OTHERWAY = 1U 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 = 14 PARAMETER TRM$V_CV_UPPER = 0 ! upper case% PARAMETER TRM$S_CV_LOWER = 14 PARAMETER TRM$V_CV_LOWER = 1 ! lower case' PARAMETER TRM$S_CV_NUMERIC = 19 PARAMETER TRM$V_CV_NUMERIC = 2 ! nu meric (0-9)' PARAMETER TRM$S_CV_NUMPUNC = 1G PARAMETER TRM$V_CV_NUMPUNC = 3 ! numeric punctuation (+ - .)) PARAMETER TRM$S_CV_PRINTABLE = 1@ PARAMETER TRM$V_CV_PRINTABLE = 4 ! printable character# PARAMETER TRM$S_CV_ANY = 15 PARAMETER TRM$V_CV_ANY = 5 ! any character BYTE %FILL (1) END MAP MAP* PARAMETER TRM$S_ST_FIELD_FULL = 1b 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 ! TRMDEFCDEC$ END OPTIONS ww0!*** MODULE $TT2DEF ***CDEC$ OPTIONS /NOALIGN( 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& PARAMETER 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 = '0001000 0'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 = '00400000'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& PARAMET ER 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 = 1K PARAMETER TT2$V_DCL_MAILBX = 9 ! TEMP DEFINITIONS FOR DCL SPAWN $ PARAMETER TT2$S_DECCRT4 = 1R PARAMETER TT2$V_DEC CRT4 = 10 ! Level 4 terminals (was OUTBAND-obsolete)% PARAMETER TT2$S_COMMSYNC = 1D PARAMETER TT2$V_COMMSYNC = 11 ! (was DCL_CTRLC-obsolete) $ PARAMETER TT2$S_EDITING = 1A PARAMETER TT2$V_EDITING = 12 ! enable advanced editing# PARAMETER TT2$S_INSERT = 1E PARAMETER TT2$V_INSERT = 13 ! INPUT EDITING INSTER DEFAULT% PARAMETER TT2$S_FALLBACK = 1E PARAMETER TT2$V_FALLBACK = 14 ! USE MULTINATIONAL FALLBACK# PAR AMETER TT2$S_DIALUP = 1H PARAMETER TT2$V_DIALUP = 15 ! TERMINAL IS CONNECTED TO DIALUP# PARAMETER TT2$S_SECURE = 1@ PARAMETER TT2$V_SECURE = 16 ! RECOGNIZE SECURE SERVER' PARAMETER TT2$S_DISCONNECT = 1I PARAMETER TT2$V_DISCONNECT = 17 ! TERMINAL CAN BE DISCONNECTED$ PARAMETER TT2$S_PASTHRU = 1B PARAMETER TT2$V_PASTHRU = 18 ! passall with flowcontrol# PARAMETER TT2$S_SYSPWD = 1A PARAMETER TT2$V_SYSPWD = 19 ! System password required" PARAMETER TT2$S_SIXEL = 17 PARAMETER TT2$V_SIXEL = 20 ! SIXEL SUPPORTED! PARAMETER TT2$S_DRCS = 1' PARAMETER TT2$V_DRCS = 21 ! $ PARAMETER TT2$S_PRINTER = 1@ PARAMETER TT2$V_PRINTER = 22 ! PRINTER PORT AVAILABLE' PARAMETER TT2$S_APP_KEYPAD = 1I PARAMETER TT2$V_APP_KEYPAD = 23 ! Keypad in applicationis mode$ PARAMETER TT2$S_ANSICRT = 1E PARAMETER TT2$V_ANSICRT = 24 ! ANSI , REGIS, BLOCK and AVO " PARAMETER TT2$S_REGIS = 1G PARAMETER TT2$V_REGIS = 25 ! must be contiguous for SCRPKG. " PARAMETER TT2$S_BLOCK = 1# PARAMETER TT2$V_BLOCK = 26 PARAMETER 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 = 18 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 ! TT2DEFCDEC$ END OPTIONS wwM0!*** MODULE $TT3DEF ***CDEC$ OPTIONS /NOALIGN$ 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 STRUCTURE /TT3DEF/ UNION MAP" P ARAMETER TT3$S_POSIX = 1" PARAMETER TT3$V_POSIX = 0' PARAMETER TT3$S_ANSI_COLOR = 1' PARAMETER TT3$V_ANSI_COLOR = 1$ 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_tt_spare = 12% PARAMETER TT3$V_tt_spare = 4) PARAMETER TT3$S_AS_RESERVED = 16) PARAMETER TT3$V_AS_RESERVED = 16 BYTE %FILL (4) END M AP END UNION END STRUCTURE ! TT3DEFCDEC$ END OPTIONS ww0!*** MODULE $TTCDEF ***CDEC$ OPTIONS /NOALIGN' 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 = 8@ PARAM ETER TTC$V_RESERVED = 0 ! First byte is reserved! 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 = 1/ 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 = 13 ! Thai BYTE %FILL (2) END MAP END UNION END STRUCTURE ! TTCDEFCDEC$ END OPTIONS ww+0!*** MODULE $TTDEF ***CDEC$ OPTIONS /NOALIGN! "! 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& P ARAMETER 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( PARAM ETER 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 8 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 includes9 PARAMETER 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" PAR AMETER 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'XA! from 128 on is reserved for foreign terminals and must not be ! used for terminal definitions% 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 = '00000020'X$ PARAMETER T T$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$ PAR AMETER 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" 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" PARAMETER T T$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$ PARAMETER TT$S_ME CHFORM = 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$S_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 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 TT$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 ! TTDEFCDEC$ END OPTIONS ww-0!*** MODULE $TTYDPORTDEF ***CDEC$ OPTIONS /NOALIGN* PARAMETER TTY$M_NO_AUTO_XON = '00000001'X' PARAMETER TTY$M_RESERVED = '000000FE'X+ PARAMETER TTY$M_PARITY_ERROR = '00000100'X1 PARAM ETER TTY$M_USE_WINDOW_CONSOLE = '00000200'X3 PARAMETER TTY$M_LOAD_INPUT_EXTENSION = '00000400'X STRUCTURE /TTYDPORTDEF/ UNION MAP( PARAMETER TTY$S_NO_AUTO_XON = 1G PARAMETER TTY$V_NO_AUTO_XON = 0 ! Disable automatic Xon/Xoff% PARAMETER TTY$S_RESERVED = 7B PARAMETER TTY$V_RESERVED = 1 ! Next 7 bits are reserved) PARAMETER TTY$S_PARITY_ERROR = 1D PARAMETER TTY$V_PARITY_ERROR = 8 ! Drop parity error chars/ PARAMETER TTY$S_USE_WINDOW_CONSOLE = 1A PARAMETER TTY$V_USE_WINDOW_CONSOLE = 9 ! Console option1 PARAMETER TTY$S_LOAD_INPUT_EXTENSION = 1D PARAMETER TTY$V_LOAD_INPUT_EXTENSION = 10 ! Console option BYTE %FILL (2) END MAP END UNION END STRUCTURE ! TTYDPORTDEFCDEC$ END OPTIONS ww80!*** MODULE $UAF070DEF ***CDEC$ OPTIONS /NOALIGN! ++!! 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.! --@ PARAMETER UAF070$C_USER_ID = '00000001'X ! main user ID record: PARAMETER UAF070$C_VERSION1 = '00000001'X ! this versionG PARAMETER UAF070$C_KEYED_PART = '00000034'X ! ISAM keys come this farU PARAMETER UAF070$C_MAX_PWD_LENGTH = '00000020'X ! maximum plaintext password lengthU PARAMETER UAF070$K_MAX_PWD_LENGTH = '00000020'X ! maximum plaintext password lengthE PARAMETER UAF070$C_AD_II = '00000000'X ! AUTODIN-II 32 bit crc codeM PARAMETER UAF070$C_PURDY = '00000001'X ! Purdy polynomial over salted inputX PARAMETER UAF070$C_PURDY_V = '00000002'X ! Purdy polynomial + variable length usernameP PARAMETER UAF070$C_PURDY_S = '00000003'X ! PURDY_V folded into password lengthS PARAMETER UAF070$K_CURRENT_ALGORITHM = '00000003'X ! current DEC algorithm numberS 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_PREFERRED_ALGORITHM = '0000007F'X ! preferred hash algorithm - use currentO PARAMETER UAF070$C_CUST_ALGORITHM = '00000080'X ! customer algorithm divisionO PARAMETER UAF070$K_CUST_ALGORITHM = '00000080'X ! customer algorithm divisionB PARAMETER UAF070$K_FIXED = '00000284'X ! length of fixed portionB  PARAMETER UAF070$C_FIXED = '00000284'X ! length of fixed portion( PARAMETER UAF070$K_LENGTH = '00000584'X( PARAMETER UAF070$C_LENGTH = '00000584'XZ PARAMETER UAF070$S_UAF070DEF = '00000584'X ! Old size name, synonym for UAF070$S_UAF070 STRUCTURE /UAF070/4 BYTE UAF070$B_RTYPE ! UAF070 record type9 BYTE UAF070$B_VERSION ! UAF070 format versionK INTEGER*2 UAF070$W_USRDATOFF ! offset of counted string of user data UNION MAP4 CHARACTER*32 UAF070$T_USERNAME ! username END MAP MAP CHARACTER*31 %FILLN CHARACTER*1 UAF070$T_USERNAME_TAG ! tag to differentiate records END MAP END UNION UNION MAP1 INTEGER*4 UAF070$L_UIC ! user ID code END MAP MAP8 INTEGER*2 UAF070$W_MEM ! member subfield7 INTEGER*2 UAF070$W_GRP ! group subfield END MAP END UNION6 INTEGER*4 UAF070$L_SUB_ID !  user sub-identifierL INTEGER*4 UAF070$Q_PARENT_ID(2) ! identifier of owner of this account3 CHARACTER*32 UAF070$T_ACCOUNT ! account name1 CHARACTER*32 UAF070$T_OWNER ! owner's name4 CHARACTER*32 UAF070$T_DEFDEV ! default device7 CHARACTER*64 UAF070$T_DEFDIR ! default directory8 CHARACTER*64 UAF070$T_LGICMD ! login command fileA CHARACTER*32 UAF070$T_DEFCLI ! default command interpreter8 CHARACTER*32 UAF070$T_CLITABLES ! user CLI tables  UNION MAP6 INTEGER*4 UAF070$Q_PWD(2) ! hashed password END MAP MAP8 INTEGER*4 UAF070$L_PWD ! 32 bit subfield END MAP END UNION3 INTEGER*4 UAF070$Q_PWD2(2) ! second password< INTEGER*2 UAF070$W_LOGFAILS ! count of login failures6 INTEGER*2 UAF070$W_SALT ! random password saltC BYTE UAF070$B_ENCRYPT ! primary password hash algorithm! known hash algorithm indicesF BYTE UAF070$B_ENCR YPT2 ! secondary password hash algorithm> BYTE UAF070$B_PWD_LENGTH ! minimum password length BYTE %FILL(1:1)D INTEGER*4 UAF070$Q_EXPIRATION(2) ! expiration date for account< INTEGER*4 UAF070$Q_PWD_LIFETIME(2) ! password lifetime? INTEGER*4 UAF070$Q_PWD_DATE(2) ! date of password changeD INTEGER*4 UAF070$Q_PWD2_DATE(2) ! date of 2nd password changeH INTEGER*4 UAF070$Q_LASTLOGIN_I(2) ! date of last interactive loginL INTEGER*4 UAF070$Q_LAST LOGIN_N(2) ! date of last non-interactive login< INTEGER*4 UAF070$Q_PRIV(2) ! process privilege vectorB INTEGER*4 UAF070$Q_DEF_PRIV(2) ! default process privileges BYTE %FILL(1:20) BYTE %FILL(1:20) UNION MAP9 INTEGER*4 UAF070$L_FLAGS ! user flags longword END MAP MAP+ PARAMETER UAF070$S_DISCTLY = 1A PARAMETER UAF070$V_DISCTLY = 0 ! no user control-y* PARAMETER UAF070$ S_DEFCLI = 1J PARAMETER UAF070$V_DEFCLI = 1 ! only allow user default CLI+ PARAMETER UAF070$S_LOCKPWD = 1L PARAMETER UAF070$V_LOCKPWD = 2 ! disable SET PASSWORD command. PARAMETER UAF070$S_RESTRICTED = 1W PARAMETER UAF070$V_RESTRICTED = 3 ! restricted account (pre-V5.2 CAPTIVE)+ PARAMETER UAF070$S_DISACNT = 1D PARAMETER UAF070$V_DISACNT = 4 ! no interactive login- PARAMETER UAF070$S_DISWEL COM = 1E PARAMETER UAF070$V_DISWELCOM = 5 ! skip welcome message+ PARAMETER UAF070$S_DISMAIL = 1E PARAMETER UAF070$V_DISMAIL = 6 ! skip new mail message* PARAMETER UAF070$S_NOMAIL = 1D PARAMETER UAF070$V_NOMAIL = 7 ! disable mail delivery* PARAMETER UAF070$S_GENPWD = 1J PARAMETER UAF070$V_GENPWD = 8 ! passwords must be generated/ PARAMETER UAF070$S_PWD_EXPIRED = 1G PARAMETER  UAF070$V_PWD_EXPIRED = 9 ! password has expired0 PARAMETER UAF070$S_PWD2_EXPIRED = 1M PARAMETER UAF070$V_PWD2_EXPIRED = 10 ! 2nd password has expired) PARAMETER UAF070$S_AUDIT = 1@ PARAMETER UAF070$V_AUDIT = 11 ! audit all actions- PARAMETER UAF070$S_DISREPORT = 1J PARAMETER UAF070$V_DISREPORT = 12 ! skip last login messages0 PARAMETER UAF070$S_DISRECONNECT = 1J PARAMETER UAF070$V_DISRECON NECT = 13 ! inhibit reconnections- PARAMETER UAF070$S_AUTOLOGIN = 1A PARAMETER UAF070$V_AUTOLOGIN = 14 ! auto-login only7 PARAMETER UAF070$S_DISFORCE_PWD_CHANGE = 1Z PARAMETER UAF070$V_DISFORCE_PWD_CHANGE = 15 ! disable forced password change+ PARAMETER UAF070$S_CAPTIVE = 1O PARAMETER UAF070$V_CAPTIVE = 16 ! captive account (no overrides), PARAMETER UAF070$S_DISIMAGE = 1S PARAMETER UAF070$ V_DISIMAGE = 17 ! disable arbitrary image activation- PARAMETER UAF070$S_DISPWDDIC = 1T PARAMETER UAF070$V_DISPWDDIC = 18 ! disable password dictionary search- PARAMETER UAF070$S_DISPWDHIS = 1Q PARAMETER UAF070$V_DISPWDHIS = 19 ! disable password history search- PARAMETER UAF070$S_DEFCLSVAL = 1Q PARAMETER UAF070$V_DEFCLSVAL = 20 ! default classification is valid BYTE %FILL (3) END MAP END! UNIONO BYTE UAF070$B_NETWORK_ACCESS_P(1:3) ! hourly network access, primaryQ BYTE UAF070$B_NETWORK_ACCESS_S(1:3) ! hourly network access, secondaryK BYTE UAF070$B_BATCH_ACCESS_P(1:3) ! hourly batch access, primaryM BYTE UAF070$B_BATCH_ACCESS_S(1:3) ! hourly batch access, secondaryK BYTE UAF070$B_LOCAL_ACCESS_P(1:3) ! hourly local access, primaryM BYTE UAF070$B_LOCAL_ACCESS_S(1:3) ! hourly local access, secondaryM BYTE U "AF070$B_DIALUP_ACCESS_P(1:3) ! hourly dialup access, primaryO BYTE UAF070$B_DIALUP_ACCESS_S(1:3) ! hourly dialup access, secondaryM BYTE UAF070$B_REMOTE_ACCESS_P(1:3) ! hourly remote access, primaryO BYTE UAF070$B_REMOTE_ACCESS_S(1:3) ! hourly remote access, secondary= BYTE %FILL(1:12) ! space for 2 more access types UNION MAPH BYTE UAF070$B_PRIMEDAYS ! bits representing primary days END MAP MAP* # PARAMETER UAF070$S_MONDAY = 1T PARAMETER UAF070$V_MONDAY = 0 ! bit clear means this is a primary day+ PARAMETER UAF070$S_TUESDAY = 1P 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* PARAM$ETER 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)6 BYTE UAF070$B_PRI ! base process priority? BYTE UAF070$B_QUEPRI ! maximum job queuing priority@ INTEGER*2 UAF070$W_MAXJOBS ! maximum jobs for UIC allowed! 0 means no limitH % INTEGER*2 UAF070$W_MAXACCTJOBS ! maximum jobs for account allowed! 0 means no limitH INTEGER*2 UAF070$W_MAXDETACH ! maximum detached processes for UIC! 0 means no limit< INTEGER*2 UAF070$W_PRCCNT ! subprocess creation limit4 INTEGER*2 UAF070$W_BIOLM ! buffered I/O limit2 INTEGER*2 UAF070$W_DIOLM ! direct I/O limit9 INTEGER*2 UAF070$W_TQCNT ! timer queue entry limit1 INTEGER*2 UAF070$W_ASTLM ! AST queue limit/ INTEGER*2 UAF070$W_ENQLM ! en &queue limit1 INTEGER*2 UAF070$W_FILLM ! open file limit6 INTEGER*2 UAF070$W_SHRFILLM ! shared file 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 limit5 INTEGER*4 UAF070$L_PGFLQUOTA ! page file quota1 INTEGER*4 UAF070$L_CPUTIM ! CPU time quota? INTEGER*4 UAF070$L_BYTLM ! buffered I/O byte count limitD INTEGER*4 UAF070$L_PB 'YTLM ! paged buffer I/O byte count limitN INTEGER*4 UAF070$L_JTQUOTA ! job-wide logical name table creation quotaF INTEGER*2 UAF070$W_PROXY_LIM ! number of proxies user can grant= INTEGER*2 UAF070$W_PROXIES ! number of proxies grantedF INTEGER*2 UAF070$W_ACCOUNT_LIM ! number of sub-accounts allowedB INTEGER*2 UAF070$W_ACCOUNTS ! number of sub-accounts in use BYTE %FILL(1:20)+ BYTE %FILL(1:44) ! spare space5 BYTE %FILL(1:768) ( ! user-extensible area END STRUCTURE ! UAF070CDEC$ END OPTIONS ww F0!*** MODULE $UAIDEF ***CDEC$ OPTIONS /NOALIGN! +! A! Get User Authorization Information Data Identifier Definitions! ! **** NOTE ****! E! New items must always be added to the END of each item list0! so that users will not have to relink.! ! -6 PARAMETER UAI$_RTYPE = '00000001'X ! UAF record type; PARAMETER UAI$_VERSION = '00000002'X ! UAF format version)P PARAMETER UAI$_USRDATOFF = '00000003'X ! offset of counted string of user data2 PARAMETER UAI$_USERNAME = '00000004'X ! usernameJ PARAMETER UAI$_USERNAME_TAG = '00000005'X ! tag to differentiate records1 PARAMETER UAI$_UIC = '00000006'X ! user ID code4 PARAMETER UAI$_MEM = '00000007'X ! member subfield3 PARAMETER UAI$_GRP = '00000008'X ! group subfield; PARAMETER UAI$_SUB_ID = '00000009'X ! user sub-identifierN PARAMETER UAI$_PARENT_ID = '0000000A'X ! identifier of owner of this a *ccount5 PARAMETER UAI$_ACCOUNT = '0000000B'X ! account name3 PARAMETER UAI$_OWNER = '0000000C'X ! owner's name6 PARAMETER UAI$_DEFDEV = '0000000D'X ! default device9 PARAMETER UAI$_DEFDIR = '0000000E'X ! default directory: PARAMETER UAI$_LGICMD = '0000000F'X ! login command fileC PARAMETER UAI$_DEFCLI = '00000010'X ! default command interpreter: PARAMETER UAI$_CLITABLES = '00000011'X ! user CLI tables4 PARAMETER UAI$_PWD = '00000012'X ! hashed password5 PARAMETER UAI$_PWD2 = '0000+0013'X ! second passwordA PARAMETER UAI$_LOGFAILS = '00000014'X ! count of login failures: PARAMETER UAI$_SALT = '00000015'X ! random password saltH PARAMETER UAI$_ENCRYPT = '00000016'X ! primary password hash algorithmK PARAMETER UAI$_ENCRYPT2 = '00000017'X ! secondary password hash algorithmC PARAMETER UAI$_PWD_LENGTH = '00000018'X ! minimum password lengthG PARAMETER UAI$_EXPIRATION = '00000019'X ! expiration date for account? PARAMETER UAI$_PWD_LIFETIME = '0000001A'X ! password, lifetimeA PARAMETER UAI$_PWD_DATE = '0000001B'X ! date of password changeF PARAMETER UAI$_PWD2_DATE = '0000001C'X ! date of 2nd password changeK PARAMETER UAI$_LASTLOGIN_I = '0000001D'X ! date of last interactive loginO PARAMETER UAI$_LASTLOGIN_N = '0000001E'X ! date of last non-interactive login> PARAMETER UAI$_PRIV = '0000001F'X ! process privilege vectorD PARAMETER UAI$_DEF_PRIV = '00000020'X ! default process privilegesA PARAMETER UAI$_MIN_CLASS = '00000021'X ! minimum security -classA PARAMETER UAI$_MAX_CLASS = '00000022'X ! maximum security class: PARAMETER UAI$_FLAGS = '00000023'X ! user flags longwordP PARAMETER UAI$_NETWORK_ACCESS_P = '00000024'X ! hourly network access, primaryR PARAMETER UAI$_NETWORK_ACCESS_S = '00000025'X ! hourly network access, secondaryL PARAMETER UAI$_BATCH_ACCESS_P = '00000026'X ! hourly batch access, primaryN PARAMETER UAI$_BATCH_ACCESS_S = '00000027'X ! hourly batch access, secondaryL PARAMETER UAI$_LOCAL_ACCESS_P = '00000028'X !. hourly local access, primaryN PARAMETER UAI$_LOCAL_ACCESS_S = '00000029'X ! hourly local access, secondaryN PARAMETER UAI$_DIALUP_ACCESS_P = '0000002A'X ! hourly dialup access, primaryP PARAMETER UAI$_DIALUP_ACCESS_S = '0000002B'X ! hourly dialup access, secondaryN PARAMETER UAI$_REMOTE_ACCESS_P = '0000002C'X ! hourly remote access, primaryP PARAMETER UAI$_REMOTE_ACCESS_S = '0000002D'X ! hourly remote access, secondaryI PARAMETER UAI$_PRIMEDAYS = '0000002E'X ! bits representing primary d /ays: PARAMETER UAI$_PRI = '0000002F'X ! base process priorityD PARAMETER UAI$_QUEPRI = '00000030'X ! maximum job queuing priorityE PARAMETER UAI$_MAXJOBS = '00000031'X ! maximum jobs for UIC allowedM PARAMETER UAI$_MAXACCTJOBS = '00000032'X ! maximum jobs for account allowedM PARAMETER UAI$_MAXDETACH = '00000033'X ! maximum detached processes for UICA PARAMETER UAI$_PRCCNT = '00000034'X ! subprocess creation limit9 PARAMETER UAI$_BIOLM = '00000035'X ! buffered I/O limit7 PARAMETER 0 UAI$_DIOLM = '00000036'X ! direct I/O limit> PARAMETER UAI$_TQCNT = '00000037'X ! timer queue entry limit6 PARAMETER UAI$_ASTLM = '00000038'X ! AST queue limit4 PARAMETER UAI$_ENQLM = '00000039'X ! enqueue limit6 PARAMETER UAI$_FILLM = '0000003A'X ! open file limit; PARAMETER UAI$_SHRFILLM = '0000003B'X ! shared file limit? PARAMETER UAI$_WSQUOTA = '0000003C'X ! working set size quotaA PARAMETER UAI$_DFWSCNT = '0000003D'X ! default working set size@ PARAMETER UAI$_WSEXTENT = '00001003E'X ! working set size limit: PARAMETER UAI$_PGFLQUOTA = '0000003F'X ! page file quota6 PARAMETER UAI$_CPUTIM = '00000040'X ! CPU time quotaD PARAMETER UAI$_BYTLM = '00000041'X ! buffered I/O byte count limitI PARAMETER UAI$_PBYTLM = '00000042'X ! paged buffer I/O byte count limitS PARAMETER UAI$_JTQUOTA = '00000043'X ! job-wide logical name table creation quotaK PARAMETER UAI$_PROXY_LIM = '00000044'X ! number of proxies user can grantB PARAMETER UAI$_PROXIES = '00000045'X ! numbe2r of proxies grantedK PARAMETER UAI$_ACCOUNT_LIM = '00000046'X ! number of sub-accounts allowedG PARAMETER UAI$_ACCOUNTS = '00000047'X ! number of sub-accounts in use9 PARAMETER UAI$_USER_DATA = '00000048'X ! user data areaD PARAMETER UAI$_PASSWORD = '00000049'X ! plaintext primary passwordG PARAMETER UAI$_PASSWORD2 = '0000004A'X ! plaintext secondary passwordJ PARAMETER UAI$_DEF_CLASS = '0000004B'X ! default security classificationV PARAMETER UAI$_AUDIT_FLAGS = '0000004C'X ! passed 3from $SETUAI to UAF$SECURITY_AUDIT%! ADD ITEM-CODES BEFORE THIS COMMENTJ PARAMETER UAI$_MAX_ITEM_CODE = '0000004D'X ! maximum legal item code + 19! Add UAI$_DEFCHARGE_CODE as an alias for UAI$_ACCOUNT.N PARAMETER UAI$_DEFCHARGE_CODE = '0000000B'X ! default charge code (=account)/! Define the various password hash algorithms.B PARAMETER UAI$C_AD_II = '00000000'X ! AUTODIN-II 32 bit crc codeJ PARAMETER UAI$C_PURDY = '00000001'X ! Purdy polynomial over salted inputU PARAMETER UAI$C_PUR4DY_V = '00000002'X ! Purdy polynomial + variable length usernameM 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 currentL PARAMETER UAI$C_CUST_ALGORITHM = '00000080'X ! customer algorithm divisionK PARAMETER UAI$C_MAX_PWD_LENGTH = '00000020'X ! maximum plaintext password0! Define the flags for the user flags longword.& PARAM 5ETER 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_AUDIT = '00000800'X( PARAMETER UAI$M_D 6ISREPORT = '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& PARAMETER UAI$M_VMSAUTH = '00800000'X* PARAMETER 7 UAI$M_DISPWDSYNCH = '01000000'X+ STRUCTURE /FLAGS/ ! user flags longword PARAMETER UAI$S_DISCTLY = 16 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 = 1A PARAMETER UAI$V_LOCKPWD = 2 ! disable SET PASSWORD command# PARAMETER UAI$S_RESTRICTED = 1M PARAMETER UAI$V_RESTRICTED = 3 ! restricted account (pre-V5.2 CAPTIVE) PARAMETER U 8AI$S_DISACNT = 19 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 = 19 PARAMETER UAI$V_NOMAIL = 7 ! disable mail delivery PARAMETER UAI$S_GENPWD = 1? PARAMETER UAI$V_GENPWD = 8 ! passwords must be generated$ PARAMETER UAI$S_PWD_EXPIRED = 1= 9 PARAMETER UAI$V_PWD_EXPIRED = 9 ! password has expired% PARAMETER UAI$S_PWD2_EXPIRED = 1B PARAMETER UAI$V_PWD2_EXPIRED = 10 ! 2nd password has expired PARAMETER UAI$S_AUDIT = 15 PARAMETER UAI$V_AUDIT = 11 ! audit all actions" PARAMETER UAI$S_DISREPORT = 1@ PARAMETER UAI$V_DISREPORT = 12 ! skip last login messages% PARAMETER UAI$S_DISRECONNECT = 1? PARAMETER UAI$V_DISRECONNECT = 13 ! inhibit reconnections" PARAMETER UAI$S_AUTOLOGIN = 17 P :ARAMETER UAI$V_AUTOLOGIN = 14 ! auto-login only, PARAMETER UAI$S_DISFORCE_PWD_CHANGE = 1O PARAMETER UAI$V_DISFORCE_PWD_CHANGE = 15 ! disable forced password change PARAMETER UAI$S_CAPTIVE = 1D PARAMETER UAI$V_CAPTIVE = 16 ! captive account (no overrides)! PARAMETER UAI$S_DISIMAGE = 1I PARAMETER UAI$V_DISIMAGE = 17 ! disable arbitrary image activation" PARAMETER UAI$S_DISPWDDIC = 1J PARAMETER UAI$V_DISPWDDIC = 18 ! disable password dictionary filter ;" PARAMETER UAI$S_DISPWDHIS = 1G PARAMETER UAI$V_DISPWDHIS = 19 ! disable password history search" PARAMETER UAI$S_DEFCLSVAL = 1G PARAMETER UAI$V_DEFCLSVAL = 20 ! default classification is valid PARAMETER UAI$S_EXTAUTH = 1E PARAMETER UAI$V_EXTAUTH = 21 ! external authentication enabled# PARAMETER UAI$S_MIGRATEPWD = 1I PARAMETER UAI$V_MIGRATEPWD = 22 ! migrate UAF pwd to external auth PARAMETER UAI$S_VMSAUTH = 1@ PARAMETER UAI$V_VMSAUTH = < 23 ! VMS alternative is allowed$ PARAMETER UAI$S_DISPWDSYNCH = 1A PARAMETER UAI$V_DISPWDSYNCH = 24 ! no ACME password sharing BYTE %FILL (4) END STRUCTURE ! FLAGS.! Define the flags representing primary days.: STRUCTURE /PRIMEDAYS/ ! bits representing primary days PARAMETER UAI$S_MONDAY = 1I PARAMETER UAI$V_MONDAY = 0 ! bit clear means this is a primary day PARAMETER UAI$S_TUESDAY = 1E 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 UAI$S_SUNDAY = 1 PARAMETER UAI$V_SUNDAY = 6 BYTE %FILL (1) END STRUCTURE ! PRIMEDAYSCDEC$ END OPTIONS wwMS0!*** MODULE $UICDEF ***CDEC$ OPTIONS /NOALIGN! +! >C! Format of UIC - user identification code. May be either two part=! group / member identifier, or a single uniform identifier.! 3! The binary layout of the id space is as follows:! ! ---------- Bit --------'! 31 30 29 28 27 26 DescriptionD! === === === === === === ========================================! 3! 0 0 - - - - UIC form (group/member)"! 0 1 - - - - Unused+! 1 0 - - - - Identifier form2! 1 0 0 0 - ?- System identifiers=! 1 0 0 1 - - Facility-specific identifiers@! 1 0 1 0 - - Arbitrary assignment identifiers:! 1 0 1 0 0 0 SEVMS identifier space*! 1 0 1 0 0 1 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 UICG PARAMETER U@IC$K_WILD_MEMBER = '0000FFFF'X ! Code for wild card memberE 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'X ! ID format code> PARAMETER UIC$K_TYPE_SYSTEM = '00000008'X ! system ID or UICB PARAMETER UIC$K_TYPE_FACILITY = '00000009'X ! facility ID or UICK PARAMETER UIC$K_TYPE_ARBITRARY = '0000000A'X ! arbitrary assignment spaceC PARAMETER UIC$K_FIRST_ID = -2147418112 A! First general identifierA PARAMETER UIC$K_LAST_ID = -1879048193 ! Last general identifier9 PARAMETER UIC$K_MATCH_ALL = -1 ! Match all identifiersN PARAMETER UIC$K_ASSIGN_SEVMS = '00000000'X ! SEVMS block of identifier space STRUCTURE /UICDEF/ UNION MAP+ INTEGER*4 UIC$L_UIC ! Full longword END MAP MAP$ PARAMETER UIC$S_MEMBER = 165 PARAMETER UIC$V_MEMBER = 0 ! Member number# PARAMETER UIC$S_GROUP = 144 PARAMETER UIC$V_GBROUP = 16 ! Group number# PARAMETER UIC$S_FORMAT = 2$ PARAMETER UIC$V_FORMAT = 30) BYTE %FILL (4) ! Format code END MAP MAP% PARAMETER UIC$S_ID_CODE = 280 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 = 164 PARAMETER UIC$V_FAC_ID_CODE = 0 ! ID code& C PARAMETER UIC$S_FACILITY = 128 PARAMETER UIC$V_FACILITY = 16 ! Facility code BYTE %FILL (4) END MAP MAP) PARAMETER UIC$S_ARB_ID_CODE = 264 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 ! UICDEFCDEC$ END OPTIONS wwپ0!*** MODULE $UIDDEF ***CDEC$ OPTIONS /NDOALIGNJ 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 MAPC INTEGER*4 UID$l_t EimeLow ! Low order 32 bits of timeF INTEGER*2 UID$w_timeMid ! Middle order 16 bits of time UNION MAPS INTEGER*2 UID$w_timeHiAndVersion ! High order 12 bits of time and END MAP MAP! 4 bits of version0 PARAMETER UID$S_timeHi = 12N PARAMETER UID$V_timeHi = 0 ! High order 12 bits of time0 PARAMETER UID$S_Version = 41 F PARAMETER UID$V_Version = 12; BYTE %FILL (2) ! 4 bits of version END MAP END UNION END MAP END UNION UNION MAPK 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! G 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 UNIONO BYTE UID$b_clockSeqLow ! Low order 8 bits of clock sequence END MAP END UNION H UNION MAP" BYTE UID$b_node(1:6) END MAP MAPJ INTEGER*2 UID$w_nodeHi ! High order 16 bits of node numberJ INTEGER*4 UID$l_nodeLow ! Low order 32 bits of node number END MAP END UNION END STRUCTURE ! UIDDEFCDEC$ END OPTIONS ww`0!*** MODULE $USGDEF ***CDEC$ OPTIONS /NOALIGN! +I! Disk usage accounting file produced by ANALYZE/DISK_STRUCTURE utility.! -> PARAMETER USG$K_I IDENT = '00000001'X ! Identification record 3 PARAMETER USG$K_FILE = '00000002'X ! File record C PARAMETER USG$K_IDENT_LEN = '0000003D'X ! Length of IDENT record C PARAMETER USG$C_IDENT_LEN = '0000003D'X ! Length of IDENT record  STRUCTURE /USGDEF/+ BYTE USG$B_TYPE ! Record type 6 INTEGER*4 USG$L_SERIALNUM ! Pack serial number 6 CHARACTER*12 USG$T_STRUCNAME ! Volume set name 0 CHARACTER*12 USG$T_VOLNAME ! Volume name 8 CHARACTER*12 USG$T_OWNERNAME !J Volume owner name 6 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 ! USGDEFI PARAMETER USG$K_FILE_LEN = '0000040F'X ! Maximum length of FILE record I PARAMETER USG$C_FILE_LEN = '0000040F'X ! Maximum length of FILE record  STRUCTURE /USGDEF1/ BYTE %FILL UNION MAP6 INTEGER*4 USG$L_FILEOWNER ! File owner UIC  END MAP K MAP= INTEGER*2 USG$W_UICMEMBER ! UIC member number ; INTEGER*2 USG$W_UICGROUP ! UIC group number  END MAP END UNIONG 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 H INTEGER*2 USG$W_SPEC_LEN ! Length of complete file specification D CHARACTER*1022 USG$T_FILESPEC ! File spec "[dir]nam.typ;ver"  END STRLUCTURE ! USGDEF1CDEC$ END OPTIONS ww-0!*** MODULE $USRIDEF ***CDEC$ OPTIONS /NOALIGN! ! User image bit definitions! ! * PARAMETER USRI$M_DBG_MAPPED = '00000001'X STRUCTURE /USRIDEF/ UNION MAP( PARAMETER USRI$S_DBG_MAPPED = 1C PARAMETER USRI$V_DBG_MAPPED = 0 ! Debugger is now mapped BYTE %FILL (1) END MAP END UNION END STRUCTURE ! USRIDEFCDEC$ END OPTIONS wwm0!*** MODULE $VAERDEF ***CDMEC$ OPTIONS /NOALIGN! +G! Vector Arithmetic Error Register longword mask and field definitions! -' PARAMETER VAER$M_SUMMARY = '0000FFFF'X& PARAMETER VAER$M_F_UNDF = '00000001'X& PARAMETER VAER$M_F_DIVZ = '00000002'X& PARAMETER VAER$M_F_ROPR = '00000004'X& PARAMETER VAER$M_F_OVFL = '00000008'X& PARAMETER VAER$M_I_OVFL = '00000020'X- PARAMETER VAER$M_REGISTER_MASK = 'FFFF0000'X STRUCTURE /VAERDEF/ UNION MAP* PARAMETER VAER$S_SUMMARY = 16) N PARAMETER VAER$V_SUMMARY = 0 BYTE %FILL (2) END MAP MAP, PARAMETER VAER$S_F_UNDF = 1B PARAMETER VAER$V_F_UNDF = 0 ! Floating underflow, PARAMETER VAER$S_F_DIVZ = 1G PARAMETER VAER$V_F_DIVZ = 1 ! Floating divide by zero, PARAMETER VAER$S_F_ROPR = 1I PARAMETER VAER$V_F_ROPR = 2 ! Floating reserved operand, PARAMETER VAER$S_F_OVFL = 1OA PARAMETER VAER$V_F_OVFL = 3 ! Floating overflow, PARAMETER VAER$S_I_OVFL = 1@ PARAMETER VAER$V_I_OVFL = 5 ! Integer overflow BYTE %FILL (1) END MAP END UNION, PARAMETER VAER$S_REGISTER_MASK = 16, PARAMETER VAER$V_REGISTER_MASK = 166 BYTE %FILL (2) ! Desination register mask  END STRUCTURE ! VAERDEFCDEC$ END OPTIONS ww?8!*** MODULE $VAXDEF ***CDECP$ OPTIONS /NOALIGN# 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 = '00000Q007'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$ PARRAMETER 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& PARAMETERS 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% PARAMETTER 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# PARAMETUER 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% PAR VAMETER 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 W$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 X_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& PARAMETER 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 = Y'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 = 'Z0000003D'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& PARAMET^ER 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$ PARAM_ETER 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' PARAM aETER 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 = '0000005D'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) PARAMET bER 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_V6250c_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& PARAMET dER 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& PARAMETER 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 = '000000e70'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_V62f85_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 g 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& PARAMETER 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 h = '0000007E'X& PARAMETER VAX$C_V2000AD = '0000007F'X& PARAMETER VAX$K_V2000AD = '0000007F'X( PARAMETER VAX$K_V2000AW_T = '00000080'X( PARAMETER VAX$C_V2000AW_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 = '00i000084'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_V35j60L = '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$ PARkAMETER 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 VlAX$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' PARAMETER 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$ PAR mAMETER 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 n 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 V oAX$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 p_V9AR10 = '000000B0'X% PARAMETER VAX$K_V9AR20 = '000000B1'X% PARAMETER VAX$C_V9AR20 = '000000B1'X% PARAMETER VAX$K_V9AQ10 = '000000B2'X% PARAMETER VAX$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 q' 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' r 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 = '000000BE'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' P sARAMETER 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 = '000000C4'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' PAR tAMETER 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 =u '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_V45 v00_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 w' 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& PARAMET xER 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_VPV0Sy_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_VPV1S_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& PARAMET zER 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 V {AX$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_V }3820_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 VAX$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% PARAMET ER 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% PARAMETER 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 = '0 0000129'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_V1302_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 = '000 0012F'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_V1302_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 = '00000 135'X' PARAMETER VAX$K_V1302_1J = '00000136'X' PARAMETER VAX$C_V1302_1J = '00000136'X' PARAMETER VAX$K_V9AQII10 = '00000137'X' PARAMETER VAX$C_V9AQII10 = '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 = '0000013 B'X' PARAMETER VAX$K_V9ARII20 = '0000013C'X' PARAMETER VAX$C_V9ARII20 = '0000013C'X( PARAMETER VAX$K_V9AQIII10 = '0000013D'X( PARAMETER VAX$C_V9AQIII10 = '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' PARAMETER 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_V9ARIII10_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_V9A QIII30_S = '00000165'X* PARAMETER VAX$K_V9AQIII40_S = '00000166'X* PARAMETER VAX$C_V9AQIII40_S = '00000166'X' PARAMETER VAX$K_V1701_1T = '00000167'X' PARAMETER 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' PARAMETER 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_V 1701_3S = '00000171'X' PARAMETER VAX$K_V1701_4S = '00000172'X' PARAMETER VAX$C_V1701_4S = '00000172'X' PARAMETER VAX$K_V1701_5S = '00000173'X' PARAMETER 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_V17 01_1J = '00000177'X' PARAMETER VAX$K_VKA49C_S = '00000178'X' PARAMETER VAX$C_VKA49C_S = '00000178'X' PARAMETER VAX$K_VKA49C_T = '00000179'X' PARAMETER 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% PARAMET ER 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 V AX$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' PARAMETER 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' PARAMETER 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_V 1704_3T = '000001A2'X' PARAMETER VAX$K_V1704_4T = '000001A3'X' PARAMETER VAX$C_V1704_4T = '000001A3'X' PARAMETER VAX$K_V1704_5T = '000001A4'X' PARAMETER 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_V17 04_1S = '000001A8'X' PARAMETER VAX$K_V1704_2S = '000001A9'X' PARAMETER VAX$C_V1704_2S = '000001A9'X' PARAMETER VAX$K_V1704_3S = '000001AA'X' PARAMETER 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_4 T = '000001B4'X' PARAMETER VAX$K_V1705_5T = '000001B5'X' PARAMETER VAX$C_V1705_5T = '000001B5'X' PARAMETER VAX$K_V1705_6T = '000001B6'X' PARAMETER VAX$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_VKA676 = '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 = '000001C8'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' PARAM ETER 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' PARAMETER 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_VFT81 2_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 VAX$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 V AX$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 = '000001F9'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' P ARAMETER 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 = '000001FF'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' PAR AMETER 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 = '00000205'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' PARAM ETER 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 = '0000020B'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' PARAMET ER 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'XCDEC$ END OPTIONSwwm0!*** MODULE $VPSRDEF ***CDEC$ OPTIONS /NOALIGN! +5! Vector Processor Status Register field definitions! -# PARAMETER VPSR$M_VEN = '00000001'X# PARAMETER VPSR$M_RST = '00000002'X# PARAMETER VPSR$M_STS = '00000004'X# PARAMETER VPSR$M_RLD = '00000008'X" PARAMETER VPSR$M_MF = '00000020'X# PARAMETER VPSR$M_PMF = '00000040'X# PARAMETER VPSR$M_AEX = '00000080'X# PARAMETER VPSR$M_IMP = '01000000'X# PARAMETER VPSR$M_IVO = '02000000'X# PARAMETER VPSR$M_BSY = '80000000'X STRUCTURE /VPSRDEF/ UNION MAP! PARAMETER VPSR$S_VEN = 1, PARAMETER VPSR$V_VEN = 0 ! Enabled! PARAMETER VPSR$S_RST = 1* PARAMETER VPSR$V_RST = 1 ! Reset! PARAMETER VPSR$S_STS = 10 PARAMETER VPSR$V_STS = 2 ! Sta te store! PARAMETER VPSR$S_RLD = 11 PARAMETER VPSR$V_RLD = 3 ! State reload PARAMETER VPSR$S_MF = 11 PARAMETER VPSR$V_MF = 5 ! Memory fault! PARAMETER VPSR$S_PMF = 19 PARAMETER VPSR$V_PMF = 6 ! Pending memory fault! PARAMETER VPSR$S_AEX = 19 PARAMETER VPSR$V_AEX = 7 ! Arithmetic exception! PARAMETER VPSR$S_IMP = 1C PARAMETER VPSR$V_IMP = 24 ! Implementation-specific error! PARAMETER VPSR$S_IVO = 1; PARAMETER VPSR$V_IVO = 25 ! Illegal vector opcode! PARAMETER VPSR$S_BSY = 1" PARAMETER VPSR$V_BSY = 31! BYTE %FILL (2) ! Busy END MAP END UNION END STRUCTURE ! VPSRDEFCDEC$ END OPTIONS ww !*** MODULE $XABALLDEF ***CDEC$ OPTIONS /NOALIGN! --! ++! $! allocation xab definitions! $xaballdef! ! ! +++++*****3! the fields thru bkz cannot be rearranged due to! their co mmonality with fab5 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 lbn B PARAMETER XAB$C_VBN = '00000003'X ! allocate near specified vbn A PARAMETER XAB$C_RFI = '00000004'X ! allocate near related file : PARAMETER XAB$K_ALLLEN = '00000020'X ! length of xaball : PARAMETER XAB$C_ALLLEN = '00000020'X ! length of xaball  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 type A INTEGER*2 XAB$W_VOL ! relative volume no. for allocation '! (not applicable if aln = vbn or rfi)2 INTEGER*4 XAB$L_LOC ! allocation location 2 INTEGER*4 XAB$L_ALQ ! allocation quantity : INTEGER*2 XAB$W_DEQ ! default allocation quantity J BYTE %FILL ! bucket size for area (note: field name is bkz, 9! defined above in $xabdef,since it is shared by the fhc*! xab and has the same offset, of course) ! -----*****- 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 number 2 INTEGER*2 XAB$W_RFI2 ! seq number 2 INTEGER*2 XAB$W_RFI4 ! rev number  END MAP END UNION# INTEGER*2 %FILL ! (spare)  END STRUCTURE ! XABALLDEFCDEC$ END OPTIONS ww !*** MODULE $XABCXFDEF ***CDEC$ OPTIONS /NOALIGN! 1! RMS Context XAB associated with the FAB! $xabcxfdef! ! 5 PARAMETER XAB$C_CXF = '00000020'X ! XABCXF id code % PARAMETER XAB$M_CXFRST = '00000001'X@ PARAMETER XAB$K_CXFLEN = '0000003C'X ! length of xab type CXF @ PARAMETER XAB$C_CXFLEN = '0000003C'X ! length of xab type CXF  STRUCTURE /XABCXFDEF/- BYTE %FILL ! COD - xab id code . BYTE %FILL ! BLN - block length # INTEGER*2 %FI LL ! (spare) 0 INTEGER*4 %FILL ! NXT - xab chain link $! UP TILL NOW COMMON AMONG ALL XABS! 6! Following in common with the CXR block, too.1! 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. These 1! 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 Identifier 5 BYTE XAB$B_CXFVER ! prologue version num? BYTE %FILL ! spare to longword align commonality ! INTEGER*4 %FILL ! spare ! 1! Up Till now in common with XABCXR, too.! D! The following fields correspond to those in the FAB or IFBE! They should not be rearranged as their order is assumed forD! purposes of moving large chunks of data rather than a byteE! 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 ! spare 3 BYTE XAB$B_CXFORG ! file organization 4 INTEGER*2 XAB$W_CXFGBC ! global buffer count1 BYTE XAB$B_CXFRTV ! retrieval window BYTE %FILL& INTEGER*4 %FILL(1:4) ! spares  END STRUCTURE ! XABCXFDEFCDEC$ END OPTIONS wwM !*** MODULE $XABCXRDEF ***CDEC$ OPTIONS /NOALIGN! 1! 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'XB PARAMETER XAB$C_CXRBLEN = '00000200'X ! Length of CXRBUF (bytes)@ PARAMETER XAB$K_CXRLEN = '00000054'X ! Length of XAB type CXR @ PARAMETER XAB$C_CXRLEN = '00000054'X ! Length of XAB type CXR  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! 6! Following in common with the CXF block, too./! 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 ! Con text Options.  END MAP MAP' PARAMETER XAB$S_CXRRST = 1b PARAMETER XAB$V_CXRRST = 0 ! Restore file/record state - use context blk as input. ( PARAMETER XAB$S_CXRBVER = 4) PARAMETER XAB$V_CXRBVER = 287 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 Identifier 6 BYTE XAB$B_CXRVER ! prologue version num.? BYTE %FILL ! spare to longword align commonality ! INTEGER*4 %FILL ! spare ! 1! Up Till now in common with XABCXF, too.! ! H! The following elements are arranged such that large amounts ofI! data can be moved at a time rather than words or bytes. Do not<! rearrange them without this consideration in mind.! H! The following elements are stream dependent regardless of file org.! 2 BYTE  XAB$B_CXRMBF ! Multibuffer count1 BYTE XAB$B_CXRMBC ! Multiblock count5 INTEGER*2 XAB$W_CXRBFZ ! sz in byte of CXRBUF! F! The following elements are necessary for saving the NRP context for!! Sequential and Relative files.! ( INTEGER*4 XAB$L_CXRVBN ! NRP VBN2 INTEGER*2 XAB$W_CXROFF ! NRP offset in VBN5 INTEGER*2 XAB$W_FILL_8 ! mbz - longword align! F! The following elements are necessary for saving the NRP context for! ISAM files.! 9 INTEGER*4 XAB$L_CXRPOS0 ! Primary Positioning RFA INTEGER*2 XAB$W_CXRPOS4$ INTEGER*2 %FILL ! Spare MBZ9 INTEGER*4 XAB$L_CXRCUR0 ! Current Positioning RFA INTEGER*2 XAB$W_CXRCUR4$ INTEGER*2 %FILL ! Spare MBZ6 INTEGER*4 XAB$L_CXRSID0 ! SIDR positioning RFA INTEGER*2 XAB$W_CXRSID4$ INTEGER*2 %FILL ! Spare MBZ1 INTEGER*2 XAB$W_CXRCNT ! SIDR array count6 BYTE XAB$B_CXRKREF ! Cur Key of Reference/ BYTE XAB$B_CXRKLEN ! Length of key3 INTEGER*4 XAB$L_CXRBUF ! address of key buf& INTEGER*4 %FILL(1:2) ! Spares  END STRUCTURE ! XABCXRDEFCDEC$ END OPTIONS ww !*** MODULE $XABDATDEF ***CDEC$ OPTIONS /NOALIGN! --! ++! #! date/time xab definitions! $xabdatdef! 5 PARAMETER XAB$C_DAT = '00000012'X ! xabdat id code D PARAMETER XAB$K_DATLEN_V2 = '00000024'X ! Version 2 XABDAT length D PARAMETER XAB$C_DATLEN_V2 = '000000 24'X ! Version 2 XABDAT length H PARAMETER XAB$K_DATLEN_V54 = '0000002C'X ! Version V5.4 XABDAT length) PARAMETER XAB$C_DATLEN_V54 = '0000002C'X: PARAMETER XAB$K_DATLEN = '0000003C'X ! length of XABDAT : PARAMETER XAB$C_DATLEN = '0000003C'X ! length of XABDAT  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 ! spare E 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 END STRUCTURE ! XABDATDEFCDEC$ END OPTIONS ww !*** MODULE $XABDEF ***CDEC$ OPTIONS /NOALIGN! #! definitions for all xabs! $xabdef! ! ! ?! the first four fields are shared in common between all xabs#! and hence are defined only onceH! (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 (! WITH POSSIBLE EXCEPTION OF SPARE FIELD 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 ! XABDEF1K PARAMETER XAB$C_CXT_VER1 = '00000001'X ! RMS Context Extraction version 1CDEC$ END OPTIONS ww-# !*** MODULE $XABFHCDEF ***CDEC$ OPTIONS /NOALIGN! ++5! file header characteristics xab definitions! $xabfhcdef! ! +++++*****5! 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$K_FHCLEN = '0000002C'X ! length of xabfhc : PARAMETER XAB$C_FHCLEN = '0000002C'X ! length of xabfhc  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; INTEGER*2 XAB$W_FFB ! first free byte in eof block J BYTE %FILL ! bucket size for fhc ( note: field name is bkz, /! 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 size 6 INTEGER*2 XAB$W_DXQ  ! default extend quantity 2 INTEGER*2 XAB$W_GBC ! global buffer count 9 BYTE %FILL(1:8) ! spares (pad to last word) : INTEGER*2 XAB$W_VERLIMIT ! version limit for file. ! -----*****9 INTEGER*4 XAB$L_SBN ! starting lbn if contiguous  END STRUCTURE ! XABFHCDEFCDEC$ END OPTIONS wwͩ !*** MODULE $XABITMDEF ***CDEC$ OPTIONS /NOALIGN! ++! ! Item XAB definitions! ! 5 PARAMETER XAB$C_ITM = '00000024'X ! xabitm id code  P! The following set of flags exactly mimic the FCHDEF flags defined in STARLET.U! 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 bit H! means the file is a temporary file that should only exist within the N! 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 is J! made to be the 'moved' file, then the original file is replaced by the I! 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 signal K! to ANALYZE/DISK/REPAIR that this header is not being used.) RMS should 6! 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 PARAMETER 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_DIRECTORY = 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_FLAGSP PARAMETER XAB$_NET_BUFFER_SIZE = '00000001'X ! (sense) negociated buffer sizeR PARAMETER XAB$_NET_BLOCK_COUNT = '00000002'X ! (set,sense) requested block countN PARAMETER XAB$_NET_REMOTE_SYSTEM = '00000003'X ! (sense) remote system typeX PARAMETER XAB$_NET_REMOTE_FILE_SYSTEM = '00000004'X ! (sense) remote file system typeT PARAMETER XAB$_NET_EXTPROT = '00000005'X ! (set,sense) actual extended protectionU PARAMETER XAB$_NET_SYSCAP_LOCAL = '00000006'X ! (sense) DAP SYSCAP of local systemW PARAMETER XAB$_NET_SYSCAP_REMOTE = '00000007'X ! (sense) DAP SYSCAP of remote systemU PARAMETER XAB$_NET_DAPVER_LOCAL = '00000008'X ! (sense) DAP version - local systemW 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) N 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'XO PARAMETER XAB$_STAT_ENABLE = '00000040'X ! (set,sense) Read statistics enablei PARAMETER XAB$_FILE_LENGTH_HINT = '00000041'X ! (set,sense) File length hint (set of 2 quadword fields)' PARAMETER XAB$K_STAT_MIN = '00000040'X' PARAMETER XAB$K_STAT_MAX = '00000041'XS PARAMETER XAB$_UCHAR = '00000080'X ! (sense) Read file characteristics (obsolete)H PARAMETER XAB$_UCHAR_WASCONTIG = '00000081'X ! (sense) FCH$V_WASCONTIGJ PARAMETER XAB$_UCHAR_NOBACKUP = '00000082'X ! (set,sense) FCH$V_NOBACKUPH PARAMETER XAB$_UCHAR_WRITEBACK = '00000083'X ! (sense) FCH$V_WRITEBACKL PARAMETER XAB$_UCHAR_READCHECK = '00000084'X ! (set,sense) FCH$V_READCHECKN PARAMETER XAB$_UCHAR_WRITECHECK = '00000085'X ! (set,sense) FCH$V_WRITECHECKH PARAMETER XAB$_UCHAR_CONTIGB = '00000086'X ! (set,sense) FCH$V_CONTIGBF PARAMETER XAB$_UCHAR_LOCKED = '00000087'X ! (set,sense) FCH$V_LOCKEDB PARAMETER XAB$_UCHAR_CONTIG = '00000088'X ! (sense) FCH$V_CONTIGB PARAMETER XAB$_UCHAR_BADACL = '00000089'X ! (sense) FCH$V_BADACL@ PARAMETER XAB$_UCHAR_SPOOL = '0000008A'X ! (sense) FCH$V_SPOOLH PARAMETER XAB$_UCHAR_DIRECTORY = '0000008B'X ! (sense) FCH$V_DIRECTORYF PARAMETER XAB$_UCHAR_BADBLOCK = '0000008C'X ! (sense) FCH$V_BADBLOCKE PARAMETER XAB$_UCHAR_MARKDEL = '0000008D'X ! (sense) FCH$V_BADBLOCKF PARAMETER XAB$_UCHAR_NOCHARGE = '0000008E'X ! (sense) FCH$V_NOCHARGED PARAMETER XAB$_UCHAR_ERASE = '0000008F'X ! (set,sense) FCH$V_ERASEF PARAMETER XAB$_UCHAR_NOMOVE = '00000090'X ! (set,sense) FCH$V_NOMOVEI PARAMETER XAB$_UCHAR_SHELVED = '00000091'X ! (sense) FCH$V_SHELVEDQ PARAMETER XAB$_UCHAR_NOSHELVABLE = '00000092'X ! (set,sense) FCH$V_NOSHELVABLEO PARAMETER XAB$_UCHAR_PRESHELVED = '00000093'X ! (sense) FCH$V_PRESHELVED( PARAMETER XAB$K_UCHAR_MIN = '00000080'X( PARAMETER XAB$K_UCHAR_MAX = '00000093'XZ PARAMETER XAB$_STORED_SEMANTICS = '000000C0'X ! (set,sense) Stored semantics of the fileZ PARAMETER XAB$_ACCESS_SEMANTICS = '000000C1'X ! (set,sense) Access semantics of the 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 semanticse PARAMETER XAB$_MULTIBUFFER_COUNT = '00000100'X ! (set-only) Multibuffer count (not limited to 127)! legal only on $CONNECTs PARAMETER XAB$_NORECORD = '00000101'X ! (set-only) Norecord suppresses update of the expiration d/t,  passed in on! on $OPEN or $CLOSEB PARAMETER XAB$_RECOVERY = '00000102'X ! Used to indicate type of! recovery in progress.H PARAMETER XAB$_RUJVOLNAM = '00000103'X ! Used to control RUJ placement' PARAMETER XAB$K_MISC_MIN = '00000100'X' PARAMETER XAB$K_MISC_MAX = '00000103'X5 PARAMETER XAB$_TID = '00000140'X ! (set/sense) TID& PARAMETER XAB$K_TID_MIN = '00000140'X& PARAMETER XAB$K_TID_MAX = '00000140'X( PARAMETER XAB$K_SENSEMODE = '00000001'X& PARAMETER XAB$K_SETMODE = '000000 02'X% PARAMETER XAB$K_ITMLEN = '00000020'X% PARAMETER XAB$C_ITMLEN = '00000020'X STRUCTURE /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 list E! In the user interface, item codes are arbitrary integer values, soE! we may as well allow logical groups to have con tiguous codes, with3! room for expansion (to allow table driven code).B BYTE XAB$B_MODE ! must be either SETMODE or SENSEMODEC BYTE %FILL(1:3) ! Reserved space for future definitionC INTEGER*4 %FILL(1:4) ! Reserved space for future definition END STRUCTURE ! XABITMDEF>! The following set of flags mimic the IFB$B_RECVRFLGS flags.5! They are here to provide an interface for RECOVER.% PARAMETER XAB$M_RCF_RU = '00000001'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_DISABLE = '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_RSX11MP = '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$K_NO_FS = '00000006'X' PARAMETER XAB$K_TOPS2 0FS = '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_NET_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_NET_NOWRITE = 1, PARAMETER XAB$V_N ET_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- 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# PARAMETER 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$ PARAMETER 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_C AP_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_CHGTIMREN = 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, PARAMETER 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'XCDEC$ END OPTIONS ww !*** MODULE $XABJNLDEF ***CDEC$ OPTIONS /NOALIGN! ++! !! Journal XAB definitions! $xabjnldef! ! 5 PARAMETER X AB$C_JNL = '00000022'X ! xabjnl id code , PARAMETER XAB$C_JNL_TYPE_NONE = '00000000'X/ PARAMETER XAB$C_AI = '00000001'X ! AI journal/ PARAMETER XAB$C_BI = '00000002'X ! BI journal/ PARAMETER XAB$C_AT = '00000003'X ! AT journal> PARAMETER XAB$C_RU_DEFAULT = '00000004'X ! default RU volume/ PARAMETER XAB$M_JOURNAL_DISABLED = '00000001'X* PARAMETER XAB$M_BACKUP_DONE = '00000002'X% PARAMETER XAB$K_JNLLEN = '00000050'X% PARAMETER XAB$C_JNLLEN = '00000050'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 $XABDEF4 BYTE XAB$B_XABJNL_TYPE ! type of $XABJNL BYTE %FILL UNION MAPN INTEGER*2 XAB$W_JNL_FLAGS ! journal flags (from ACE$W_RMSJNL_FLAGS) END MAP MAP1 PARAMETER XAB$S_JOURNAL_DISABLED = 1] PARAMETER XAB$V_JOU RNAL_DISABLED = 0 ! journaling disabled by BACKUP (AI/BI/AT), PARAMETER XAB$S_BACKUP_DONE = 1M 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 FABI INTEGER*4 XAB$L_VOLNAM_BUF ! address of journal volume name bufferF INTEGER*2 XAB$W_VOLNAM_SIZ ! size of journal volume name bufferH INTEGER*2 XAB$W_VOLNAM_LEN ! return l ength of journal volume nameY INTEGER*4 XAB$Q_JNL_VERIFY_CDATE(2) ! journal file creation date (from ACE$Q_CDATE)/! (to match with journal file's creation date)I INTEGER*4 XAB$L_JNLIDX ! Journal stream index within journal file= INTEGER*4 XAB$L_BACKUP_SEQNO ! Backup sequence number.Q INTEGER*4 XAB$Q_JNL_MOD_TIME(2) ! Timestamp of last backup or last journal! entry 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 ! XABJNLDEFCDEC$ END OPTIONS ww= !*** MODULE $XABKEYDEF ***CDEC$ OPTIONS /NOALIGN! --! ++! .! 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_NCM PR = '00000008'X( PARAMETER XAB$M_KEY_NCMPR = '00000040'X( PARAMETER XAB$M_DAT_NCMPR = '00000080'X- PARAMETER XAB$C_STG = '00000000'X ! string F PARAMETER XAB$C_IN2 = '00000001'X ! signed 15 bit integer (2 bytes) 4 PARAMETER XAB$C_BN2 = '00000002'X ! 2 byte binary F PARAMETER XAB$C_IN4 = '00000003'X ! signed 31 bit integer (4 bytes) 4 PARAMETER XAB$C_BN4 = '00000004'X ! 4 byte binary B 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 ! collatedC PARAMETER XAB$C_MAX_ASCEND = '00000008'X ! maximum ascending type8 PARAMETER XAB$C_DSTG = '00000020'X ! descending string= PARAMETER XAB$C_DIN2 = '00000021'X ! " signed word? PARAMETER XAB$C_DBN2 = '00000022'X ! " unsigned wordA PARAMETER XAB$C_DIN4 = '00000023'X ! " signed longwordC PARAMETER XAB$C_DBN4 = '00000024'X !  " unsigned longword@ PARAMETER XAB$C_DPAC = '00000025'X ! " packed decimalA PARAMETER XAB$C_DIN8 = '00000026'X ! " signed quadwordC PARAMETER XAB$C_DBN8 = '00000027'X ! " unsigned 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_P RG3 = '00000003'X ! Prologue version three < PARAMETER XAB$C_PRG2 = '00000002'X ! Prologue version two < PARAMETER XAB$C_PRG1 = '00000001'X ! Prologue versoin one C PARAMETER XAB$K_KEYLEN_V4 = '0000004C'X ! xabkey length until V5 B PARAMETER XAB$C_KEYLEN_V4 = '0000004C'X ! xabkey length until V5= PARAMETER XAB$K_KEYLEN = '00000064'X ! xabkey length for V5= PARAMETER XAB$C_KEYLEN = '00000064'X ! xabkey length for V5! -- STRUCTURE /XABKEYDEF/ BYTE %FILL BYTE %FI LL 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 contents may be moved9! 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 number 5 BYTE XAB$B_DAN ! data level area number 3 BYTE XAB$B_LVL ! level of root bucket F BYTE XAB$B_IBS ! size of index buckets in virtual blocks E BYTE XAB$B_DBS ! size of data buckets in virtual blocks 4 INTEGER*4 XAB$L_RVB ! root bucket start 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 XAB$S_IDX_NCMPR = 1g PARAMETER XAB$V_IDX_NCMPR = 3 ! indicate index records for given key are not compressed * 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 UNION2 BYTE XAB$B_DTP ! key field data type 5 BYTE XAB$B_NSG ! number of key segments 0 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 (bytes) UNION MAPH INTEGER*2 XAB$W_POS(1:8) ! key field record offset positions  END MAP MAP1 INTEGER*2 X AB$W_POS0 ! segment 0 1 INTEGER*2 XAB$W_POS1 ! segment 1 1 INTEGER*2 XAB$W_POS2 ! segment 2 1 INTEGER*2 XAB$W_POS3 ! segment 3 1 INTEGER*2 XAB$W_POS4 ! segment 4 1 INTEGER*2 XAB$W_POS5 ! segment 5 1 INTEGER*2 XAB$W_POS6 ! segment 6 1 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 0 1 BYTE XAB$B_SIZ1 ! segment 1 1 BYTE XAB$B_SIZ2 ! segment 2 1 BYTE XAB$B_SIZ3 ! segment 3 1 BYTE XAB$B_SIZ4 ! segment 4 1 BYTE XAB$B_SIZ5 ! segment 5 1 BYTE XAB$B_SIZ6 ! segment 6 1 BYTE XAB$B_SIZ7 ! segment 7  END MAP END UNION! INTEGER*2 %FILL ! spare ! G! 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 MAP> BYTE XAB$B_TYP(1:8) ! key field segment types  END MAP MAP1 BYTE XAB$B_TYP0 ! segment 0 1  BYTE XAB$B_TYP1 ! segment 1 1 BYTE XAB$B_TYP2 ! segment 2 1 BYTE XAB$B_TYP3 ! segment 3 1 BYTE XAB$B_TYP4 ! segment 4 1 BYTE XAB$B_TYP5 ! segment 5 1 BYTE XAB$B_TYP6 ! segment 6 1 BYTE XAB$B_TYP7 ! segment 7  END MAP END UNIONV BYTE XAB$B_PROLOG ! indicate prologue version desired (primary key only) ! BYTE %FILL ! spare ! INTEGER*2 %FILL ! spare 9 INTEGER*4 XAB$L_COLTBL ! address of collate table6 INTEGER*4 XAB$L_COLSIZ ! size of collate table6 INTEGER*4 XAB$L_COLNAM ! name of collate table INTEGER*4 %FILL ! spare INTEGER*4 %FILL ! spare INTEGER*4 %FILL ! spare! ++ END STRUCTURE ! XABKEYDEFCDEC$ END OPTIONS wwJ !*** MODULE $XABPRODEF ***CDEC$ OPTIONS /NOALIGN! --! ++! *! protection xab field definitions! $xabprodef! ! 5 PARAMETER XAB$C_PRO = '00000013'X ! xabpro 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 " PAR AMETER XAB$S_NOEXE = 1= PARAMETER XAB$V_NOEXE = 2 ! deny execution access " 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 7 PARAMETER XAB$K_PROLEN = '00000058'X ! xabpro length 7 PARAMETER XAB$C_PROLEN = '00000058'X ! xabpro length  STRUCTURE /XABPRODEF1/ 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 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% 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 = 1b 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 code 1 INTEGER*2 XAB$W_GRP ! group code  END MAP END UNION UNION MAPF INTEGER*4 XAB$Q_PROT_MODE(2) ! eventually may  be a quadword END MAP MAPD BYTE XAB$B_PROT_MODE ! but currently only a byte END MAP END UNION= INTEGER*4 XAB$L_ACLBUF ! address 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 ACL2 INTEGER*4 XAB$L_ACLCTX ! ACL context field6 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 ! XABPRODEF1CDEC$ END OPTIONS wwѲ !*** MODULE $XABRDTDEF ***CDEC$ OPTIONS /NOALIGN! --! ++! ,! re vision date/time xab definitions! $xabrdtdef5 PARAMETER XAB$C_RDT = '0000001E'X ! xabrdt id code ; PARAMETER XAB$K_RDTLEN = '00000014'X ! length of rdt xab ; PARAMETER XAB$C_RDTLEN = '00000014'X ! length of rdt xab  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 ! spare E INTEGER*4 %FILL(2) ! revision date & time,defined in $xabdef  END STRUCTURE ! XABRDTDEFCDEC$ END OPTIONS ww-X !*** MODULE $XABRUDEF ***CDEC$ OPTIONS /NOALIGN! ++! '! Recovery Unit XAB definitions! $xabrudef! ! 3 PARAMETER XAB$C_RU = '00000023'X ! xabru id code % PARAMETER XAB$M_NOJOIN = '00000001'X$ PARAMETER XAB$K_RULEN = '00 000030'X$ PARAMETER XAB$C_RULEN = '00000030'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$S_NOJOIN = 1I PARAMETER XAB$V_NOJOIN = 0 ! Do not join any recovery unit  BYTE %FILL (1) END MAP END UNION INTEGER*2 %FILLB INTEGER*4 XAB$L_RU_HANDLE ! RU handle to join (input field)H 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 ! XABRUDEFCDEC$ END OPTIONS ww-X !*** MODULE $XABSUMDEF ***CDEC$ OPTIONS /NOALIGN ! --! ++! '! summary xab field definitions! $xabsumdef! ! 5 PARAMETER XAB$C_SUM = '00000016'X ! xabsum id code 7 PARAMETER XAB$K_SUMLEN = '0000000C'X ! xabsum length 7 PARAMETER XAB$C_SUMLEN = '0000000C'X ! xabsum length  STRUCTURE /XABSUMDEF/ 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 $XABDEFE  BYTE XAB$B_NOA ! number of defined areas for index file D BYTE XAB$B_NOK ! number of defined keys for index file Q INTEGER*2 XAB$W_PVN ! prologue version number (relative and index files)  END STRUCTURE ! XABSUMDEFCDEC$ END OPTIONS ww޵ !*** MODULE $XABTRMDEF ***CDEC$ OPTIONS /NOALIGN! --! ++! 0! terminal control xab field definitions! $xabtrmdef! ! ! 4 PARAMETER XAB$C_TRM = '0000001F'X ! XABTRM ID  CODE P PARAMETER XAB$K_TRMLEN = '00000024'X ! length of xab of type terminal control P PARAMETER XAB$C_TRMLEN = '00000024'X ! length of xab of type terminal control  STRUCTURE /XABTRMDEF/ 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 $XABDEF2 INTEGER*4 XAB$L_ITMLST ! item list address4 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 ! XABTRMDEFCDEC$ END OPTIONS ww {0!*** MODULE $XADEF ***CDEC$ OPTIONS /NOALIGN! +9! DR11-W DEFINITIONS FOR DEVICE SPECIFIC CHARACTERISTICS!! - & PARAMETER XA$M_DATAPATH = '00000001'X" PARAMETER XA$M_LINK = '00000002'X STRUCTURE /XADEF/ 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 ! XADEFCDEC$ END OPTIONS ww0!*** MODULE $XFDEF ***CDEC$ OPTIONS /NOALIGN! +! C! DR32 DEFINITIONS FOR COMMAND TABLE, PACKETS, AND CHARACTERISTICS! ! -! ! QIO COMMAND TABLE OFFSETS! ( PARAMETER XF$M_IOS_SUCCES = '00000001'X( PARAMETER XF$M_IOS_CMDSTD = '00000002'X( PARAMETER XF$M_IOS_INVPTE = '00000004'X( PARAMETER XF$M_IOS_FREQPK = '00000008'X( PARAMETER XF$M_IOS_DDIDIS = '00000010'X( PARAMETER XF$M_IOS_SLFTST = '00000020'X( PARAMETER XF$M_IOS_RNGERR = '00000040'X( PARAMETER XF$M_IOS_UNQERR = '00000080'X( PARAMETER XF$M_IOS_INVPKT = '00000100'X( PARAMETER XF$M_IOS_FREQMT = '00000200'X( PARAMETER XF$M_IOS_RNDENB = '00000400'X( PAR AMETER XF$M_IOS_INVDDI = '00000800'X( PARAMETER XF$M_IOS_LENERR = '00001000'X( PARAMETER XF$M_IOS_DRVABT = '00002000'X( PARAMETER XF$M_IOS_PARERR = '00004000'X( PARAMETER XF$M_IOS_BUSERR = '08000000'X( PARAMETER XF$M_IOS_RDSERR = '10000000'X' PARAMETER XF$M_IOS_WCSPE = '20000000'X& PARAMETER XF$M_IOS_CIPE = '40000000'X& PARAMETER XF$M_IOS_DIPE = '80000000'X( PARAMETER XF$M_IOS_NEXREG = '00000020'X% PARAMETER XF$M_IOS_LOG = '00000040'X( PARAMETER XF$M_IOS_DDIERR = '00000080'X STRUCTURE / XFDEF/ UNION MAP& PARAMETER XF$S_IOS_SUCCES = 13 PARAMETER XF$V_IOS_SUCCES = 0 ! SUCCESS & PARAMETER XF$S_IOS_CMDSTD = 1; PARAMETER XF$V_IOS_CMDSTD = 1 ! COMMAND STARTED & PARAMETER XF$S_IOS_INVPTE = 17 PARAMETER XF$V_IOS_INVPTE = 2 ! INVALID PTE & PARAMETER XF$S_IOS_FREQPK = 1= PARAMETER XF$V_IOS_FREQPK = 3 ! FREE QUEUE PACKET & PARAMETER XF$S_IOS_DDIDIS = 17 PARAMETER XF$V_IOS_DDIDIS = 4 !  DDI DISABLE & PARAMETER XF$S_IOS_SLFTST = 15 PARAMETER XF$V_IOS_SLFTST = 5 ! SELF TEST & PARAMETER XF$S_IOS_RNGERR = 17 PARAMETER XF$V_IOS_RNGERR = 6 ! RANGE ERROR & PARAMETER XF$S_IOS_UNQERR = 1A PARAMETER XF$V_IOS_UNQERR = 7 ! UNALIGNED QUEUE ERROR & PARAMETER XF$S_IOS_INVPKT = 1B PARAMETER XF$V_IOS_INVPKT = 8 ! INVALID COMMAND PACKET & PARAMETER XF$S_IOS_FREQMT = 1< PARAMETER XF$V_IOS_FREQMT = 9 ! FREE QUEUE EMPTY & PARAMETER XF$S_IOS_RNDENB = 1: PARAMETER XF$V_IOS_RNDENB = 10 ! RANDOM ENABLE & PARAMETER XF$S_IOS_INVDDI = 1@ PARAMETER XF$V_IOS_INVDDI = 11 ! INVALID DDI COMMAND & PARAMETER XF$S_IOS_LENERR = 19 PARAMETER XF$V_IOS_LENERR = 12 ! LENGTH ERROR & PARAMETER XF$S_IOS_DRVABT = 19 PARAMETER XF$V_IOS_DRVABT = 13 ! DRIVER ABORT & PARAMETER XF$S_IOS_PARERR = 1D PARAMETER XF$V_IOS_PARERR = 1 4 ! PARITY ERROR (CI OR DI) & PARAMETER XF$S_IOS_DDISTS = 87 PARAMETER XF$V_IOS_DDISTS = 16 ! DDI STATUS & PARAMETER XF$S_IOS_BUSERR = 16 PARAMETER XF$V_IOS_BUSERR = 27 ! BUS ERROR & PARAMETER XF$S_IOS_RDSERR = 1G PARAMETER XF$V_IOS_RDSERR = 28 ! READ DATA SUBSTITUTE ERROR % PARAMETER XF$S_IOS_WCSPE = 1< PARAMETER XF$V_IOS_WCSPE = 29 ! WCS PARITY ERROR $ PARAMETER XF$S_IOS_CIPE = 1L PARAMETER XF$V_IO S_CIPE = 30 ! CONTROL INTERCONNECT PARITY ERROR $ PARAMETER XF$S_IOS_DIPE = 1% PARAMETER XF$V_IOS_DIPE = 31= BYTE %FILL (4) ! DATA INTERCONNECT PARITY ERROR END MAP MAP& PARAMETER XF$S_IOS_NEXREG = 1A PARAMETER XF$V_IOS_NEXREG = 5 ! NON-EXISTENT REGISTER # PARAMETER XF$S_IOS_LOG = 1, PARAMETER XF$V_IOS_LOG = 6 ! LOG & PARAMETER XF$S_IOS_DDIERR = 1& PARAMETER XF$V_IOS_DDIERR = 76 BYTE %F ILL (1) ! ERROR ON FAR-END DEVICE END MAP END UNION END STRUCTURE ! XFDEF( PARAMETER XF$M_CMT_SETRTE = '00000001'X( PARAMETER XF$M_CMT_DIPEAB = '00000002'XD PARAMETER XF$K_CMT_LENGTH = '00000020'X ! LENGTH OF COMMAND TABLE D PARAMETER XF$C_CMT_LENGTH = '00000020'X ! LENGTH OF COMMAND TABLE !  STRUCTURE /XFDEF1/6 INTEGER*4 XF$L_CMT_CBLKSZ ! COMMAND BLOCK SIZE 9 INTEGER*4 XF$L_CMT_CBLKAD ! COMMAND BLOCK ADDRESS 5 INTEGER*4 XF$L_CMT_BBLKSZ ! BUFFER BLOCK SIZE 8 INTEGER*4 XF$L_CMT_BBLKAD ! BUFFER BLOCK ADDRESS 6 INTEGER*4 XF$L_CMT_PASTAD ! PACKET AST ADDRESS 6 INTEGER*4 XF$L_CMT_PASTPM ! PACKET AST ADDRESS , BYTE XF$B_CMT_RATE ! DATA RATE UNION MAP, BYTE XF$B_CMT_FLAGS ! FLAGS  END MAP MAP* PARAMETER XF$S_CMT_SETRTE = 1= PARAMETER XF$V_CMT_SETRTE = 0 ! SET DATA RATE * PARAMETER XF$S_CMT_DIPEAB = 1J PARAMETER XF$V_CMT_DIPEAB = 1 ! DISABLE PARITY ERROR ABORT  BYTE %FILL (1) END MAP END UNION! INTEGER*2 %FILL ! SPARE 2 INTEGER*4 XF$L_CMT_GBITAD ! GO BIT ADDRESS ! COMMAND PACKET OFFSETS!  END STRUCTURE ! XFDEF1- PARAMETER XF$K_PKT_RD = '00000000'X ! READ 8 PARAMETER XF$K_PKT_RDCHN = '00000001'X ! READ CHAINED / PARAMETER XF$K_PKT_WRT = '00000002'X ! WRITE : PARAMETER XF$K_PKT_WRTCHN = '00000003'X ! WRITE CHAINED A PARAMETER XF$K_PKT_WRTCM = '0000000 4'X ! WRITE CONTROL MESSAGE ! VALUE 5 IS RESERVED: PARAMETER XF$K_PKT_SETTST = '00000006'X ! SET SELF TEST < PARAMETER XF$K_PKT_CLRTST = '00000007'X ! CLEAR SELF TEST - PARAMETER XF$K_PKT_NOP = '00000008'X ! NOP E PARAMETER XF$K_PKT_DIAGRI = '00000009'X ! DIAGNOSTIC READ INTERNAL F PARAMETER XF$K_PKT_DIAGWI = '0000000A'X ! DIAGNOSTIC WRITE INTERNAL @ PARAMETER XF$K_PKT_DIAGRD = '0000000B'X ! DIAGNOSTIC READ DDI B PARAMETER XF$K_PKT_DIAGWC = '0000000C'X ! WRITE CONTROL MESSAGE >  PARAMETER XF$K_PKT_SETRND = '0000000D'X ! SET RANDOM ENABLE @ PARAMETER XF$K_PKT_CLRRND = '0000000E'X ! CLEAR RANDOM ENABLE / PARAMETER XF$K_PKT_HALT = '0000000F'X ! HALT ( PARAMETER XF$M_PKT_SLNERR = '00000020'X< PARAMETER XF$K_PKT_NOTRAN = '00000000'X ! NO TRANSMISSION : PARAMETER XF$K_PKT_CB = '00000001'X ! COMMAND BYTE ONLY J PARAMETER XF$K_PKT_CBDM = '00000002'X ! COMMAND BYTE AND DEVICE MESSAGE P PARAMETER XF$K_PKT_CBDMBC = '00000003'X ! CMD. BYTE, DEV. MSG, AND BYTE COUNT ! V ALUES FOR INTERRUPT CONTOL D PARAMETER XF$K_PKT_UNCOND = '00000000'X ! UNCONDITIONAL INTERRUPT J PARAMETER XF$K_PKT_TMQMT = '00000001'X ! INTERRUPT ON TERM. QUEUE EMPTY 8 PARAMETER XF$K_PKT_NOINT = '00000002'X ! NO INTERRUPT ( PARAMETER XF$M_PKT_SUCCES = '00000001'X( PARAMETER XF$M_PKT_CMDSTD = '00000002'X( PARAMETER XF$M_PKT_INVPTE = '00000004'X( PARAMETER XF$M_PKT_FREQPK = '00000008'X( PARAMETER XF$M_PKT_DDIDIS = '00000010'X( PARAMETER XF$M_PKT_SLFTST = '00000020'X( PARAMETER XF$M_PKT_RNGERR = '00000040'X( PARAMETER XF$M_PKT_UNQERR = '00000080'X( PARAMETER XF$M_PKT_INVPKT = '00000100'X( PARAMETER XF$M_PKT_FREQMT = '00000200'X( PARAMETER XF$M_PKT_RNDENB = '00000400'X( PARAMETER XF$M_PKT_INVDDI = '00000800'X( PARAMETER XF$M_PKT_LENERR = '00001000'X( PARAMETER XF$M_PKT_DRVABT = '00002000'X( PARAMETER XF$M_PKT_PARERR = '00004000'X( PARAMETER XF$M_PKT_NEXREG = '00000020'X% PARAMETER XF$M_PKT_LOG = '00000040'X( PARAMETER XF$M_PKT_DDIERR = '00000080'X STRUCTURE /XFDEF2//   INTEGER*4 XF$L_PKT_FLINK ! FORWARD LINK 0 INTEGER*4 XF$L_PKT_BLINK ! BACKWARD LINK A BYTE XF$B_PKT_MSGLEN ! LENGTH OF DEVICE MESSAGE AREA 6 BYTE XF$B_PKT_LOGLEN ! LENGTH OF LOG AREA UNION MAP7 BYTE XF$B_PKT_CMDCTL ! COMMAND CONTROL  END MAP MAP( PARAMETER XF$S_PKT_FUNC = 4; PARAMETER XF$V_PKT_FUNC = 0 ! FUNCTION CODE  BYTE %FILL (1) END MAP! FUNCTION CODE VAL!UES  END UNION UNION MAP6 BYTE XF$B_PKT_PKTCTL ! PACKET CONTROL  END MAP MAP) PARAMETER XF$S_PKT_CISEL = 2J PARAMETER XF$V_PKT_CISEL = 3 ! CONTROL INTERCONNECT SELECT * PARAMETER XF$S_PKT_SLNERR = 1E PARAMETER XF$V_PKT_SLNERR = 5 ! SUPPRESS LENGTH ERROR * PARAMETER XF$S_PKT_INTCTL = 2* PARAMETER XF$V_PKT_INTCTL = 64 BYTE %FILL (1) ! INTERRUPT CO"NTROL  END MAP*! VALUES FOR CONTROL INTERCONNECT SELECT  END UNION/ INTEGER*4 XF$L_PKT_BFRSIZ ! BUFFER SIZE 2 INTEGER*4 XF$L_PKT_BFRADR ! BUFFER ADDRESS > INTEGER*4 XF$L_PKT_RMBCNT ! RESIDUAL MEMORY BYTE COUNT ; INTEGER*4 XF$L_PKT_RDBCNT ! RESIDUAL DDI BYTE COUNT UNION MAP: INTEGER*4 XF$L_PKT_DSL ! DR32 STATUS LONGWORD  END MAP MAP* PARAMETER XF$S_PKT_SUCCES = 17 PARAMETER XF$V_PK #T_SUCCES = 0 ! SUCCESS * PARAMETER XF$S_PKT_CMDSTD = 1? PARAMETER XF$V_PKT_CMDSTD = 1 ! COMMAND STARTED * PARAMETER XF$S_PKT_INVPTE = 1; PARAMETER XF$V_PKT_INVPTE = 2 ! INVALID PTE * PARAMETER XF$S_PKT_FREQPK = 1A PARAMETER XF$V_PKT_FREQPK = 3 ! FREE QUEUE PACKET * PARAMETER XF$S_PKT_DDIDIS = 1; PARAMETER XF$V_PKT_DDIDIS = 4 ! DDI DISABLE * PARAMETER XF$S_PKT_SLFTST = 19 $ PARAMETER XF$V_PKT_SLFTST = 5 ! SELF TEST * PARAMETER XF$S_PKT_RNGERR = 1; PARAMETER XF$V_PKT_RNGERR = 6 ! RANGE ERROR * PARAMETER XF$S_PKT_UNQERR = 1E PARAMETER XF$V_PKT_UNQERR = 7 ! UNALIGNED QUEUE ERROR * PARAMETER XF$S_PKT_INVPKT = 1F PARAMETER XF$V_PKT_INVPKT = 8 ! INVALID COMMAND PACKET * PARAMETER XF$S_PKT_FREQMT = 1@ PARAMETER XF$V_PKT_FREQMT = 9 ! FREE QUEUE EMPTY %* PARAMETER XF$S_PKT_RNDENB = 1> PARAMETER XF$V_PKT_RNDENB = 10 ! RANDOM ENABLE * PARAMETER XF$S_PKT_INVDDI = 1D PARAMETER XF$V_PKT_INVDDI = 11 ! INVALID DDI COMMAND * PARAMETER XF$S_PKT_LENERR = 1= PARAMETER XF$V_PKT_LENERR = 12 ! LENGTH ERROR * PARAMETER XF$S_PKT_DRVABT = 1= PARAMETER XF$V_PKT_DRVABT = 13 ! DRIVER ABORT * PARAMETER XF$S_PKT_PARERR = 1= PARAMETER & XF$V_PKT_PARERR = 14 ! PARITY ERROR * PARAMETER XF$S_PKT_DDISTS = 8; PARAMETER XF$V_PKT_DDISTS = 16 ! DDI STATUS  BYTE %FILL (3) END MAP MAP* PARAMETER XF$S_PKT_NEXREG = 1E PARAMETER XF$V_PKT_NEXREG = 5 ! NON-EXISTENT REGISTER ' PARAMETER XF$S_PKT_LOG = 10 PARAMETER XF$V_PKT_LOG = 6 ! LOG * PARAMETER XF$S_PKT_DDIERR = 1* PARAMETER XF$V_PKT_DDIERR = 7: ' BYTE %FILL (1) ! ERROR ON FAR-END DEVICE  END MAP END UNION; BYTE XF$B_PKT_DEVMSG ! START OF DEVICE MESSAGE ! 2! SECOND LONGWORD OF I/O STATUS BLOCK DEFINITIONS!  END STRUCTURE ! XFDEF2CDEC$ END OPTIONS wwM0!*** MODULE $XKDEVDEF ***CDEC$ OPTIONS /NOALIGN! ! 3271 DEVICE STATUS BLOCK! L! THE DRIVER RETURNS N COPIES OF THIS BLOCK FOLLOWING THE LINE STATUS BLOCKM! IN THE USER'S BUFFER, WHERE N IS THE NUMBER OF AC (TIVE DEVICES ON THE LINE.! I PARAMETER XKDEV$K_SIZE = '0000000F'X ! SIZE OF THE DEVICE STATUS BLOCK I PARAMETER XKDEV$C_SIZE = '0000000F'X ! SIZE OF THE DEVICE STATUS BLOCK  STRUCTURE /XKDEVDEF/B BYTE XKDEV$B_DUEB ! DEVICE ADDRESS (DU - HEX EBCDIC) F INTEGER*4 XKDEV$L_DPID ! PROCESS ID OF PROCESS OWNING THIS DU > INTEGER*2 XKDEV$W_TBLK ! NUMBER OF BLOCKS TRANSMITTED ; INTEGER*2 XKDEV$W_RBLK ! NUMBER OF BLOCKS RECEIVED C INTEGER*2 XKDEV$W_SPOL ! ) NUMBER OF SPECIFIC POLLS RECEIVED D INTEGER*2 XKDEV$W_ASEL ! NUMBER OF ADDRESS SELECTS RECEIVED @ INTEGER*2 XKDEV$W_CREJ ! NUMBER OF COMMAND REJECTS SENT  END STRUCTURE ! XKDEVDEFCDEC$ END OPTIONS ww0!*** MODULE $XKSTSDEF ***CDEC$ OPTIONS /NOALIGN! C! DEFINITIONS FOR 3271 LINE STATUS BLOCK (RETURNED BY IO$_RDSTATS)! J PARAMETER XKSTS$K_LSTR = '00000000'X ! OFFSET OF BEGINNING OF DATA AREA J PARAMETER XKSTS$C_LSTR = '00000000'X ! OFFSET OF* BEGINNING OF DATA AREA $ PARAMETER XKSTS$M_ACT = '00000001'X$ PARAMETER XKSTS$M_DGN = '00000002'XI PARAMETER XKSTS$K_DSTR = '0000002D'X ! LENGTH OF THE LINE STATUS BLOCK I PARAMETER XKSTS$C_DSTR = '0000002D'X ! LENGTH OF THE LINE STATUS BLOCK  STRUCTURE /XKSTSDEF/C BYTE XKSTS$B_CUAD ! CONTROL UNIT ADDRESS (HEX EBCDIC) UNION MAP1 INTEGER*2 XKSTS$W_LSTS ! LINE STATUS  END MAP MAP& PARAMETER XKSTS$S_ACT = 1V + PARAMETER XKSTS$V_ACT = 0 ! IF SET, LINE IS 'ON' (ACTIVE IN 3271 MODE) & PARAMETER XKSTS$S_DGN = 1V 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 G INTEGER*2 XKSTS$W_BSIZ ! MAXIMUM BLOCK TO BE RECEIVED FROM IBM / BYTE XKSTS$B_ECNT ! ENQ THRESHOLD < INTEGER*2 XKSTS$W_TNAK ! NUMBER OF NAKS TRANSMITTED 9 I ,NTEGER*2 XKSTS$W_RNAK ! NUMBER OF NAKS RECEIVED 5 INTEGER*2 XKSTS$W_TENQ ! NUMBER OF ENQS SENT 9 INTEGER*2 XKSTS$W_RENQ ! NUMBER OF ENQS RECEIVED < INTEGER*2 XKSTS$W_TRVI ! NUMBER OF RVIS TRANSMITTED 9 INTEGER*2 XKSTS$W_RRVI ! NUMBER OF RVIS RECEIVED I INTEGER*2 XKSTS$W_RCNV ! NUMBER OF CONVERSATIONAL MODE RESPONSES ! RECEIVEDC INTEGER*2 XKSTS$W_CHAI ! NUMBER OF CHAINED WRITES RECEIVED B INTEGER*2 XKSTS$W_GPOL ! NUMBER OF GENERAL POL -LS RECEIVED A INTEGER*2 XKSTS$W_XACK ! NUMBER OF INVALID ACKS RECEIVED C INTEGER*2 XKSTS$W_HABO ! NUMBER OF HOST ABORTS ENCOUNTERED E INTEGER*2 XKSTS$W_DABO ! NUMBER OF DRIVER ABORTS ENCOUNTERED A INTEGER*2 XKSTS$W_RTIM ! NUMBER OF ACK RESPONSE TIMEOUTS C INTEGER*2 XKSTS$W_DISC ! NUMBER OF DISCONNECTS ENCOUNTERED H 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 ! XKSTSDEFCDEC$ END OPTIONS ww0!*** MODULE $XMDEF ***CDEC$ OPTIONS /NOALIGN! N! DEFINITIONS FOR STATUS, CHARACTERISTICS AND ERRORS FOR DMC-11/DMR-11/DMP-11!  STRUCTURE /XMDEV/0 BYTE XMDEV$B_P1_CLASS ! Device Class. BYTE / XMDEV$B_P1_TYPE ! Device type6 INTEGER*2 XMDEV$W_P1_MMS ! Maximum message size7 BYTE XMDEV$B_P1_CHAR ! Unit characteristics- BYTE XMDEV$B_P1_STS ! Unit Status0 BYTE XMDEV$B_P1_ESUM ! Error Summary7 BYTE XMDEV$B_P1_TPI ! 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 0 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( PARAMETER 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_MAIN 1T = '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 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 = '000001002'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_CTS = '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( PARAMETER3 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 = 11 PARAMETER XM$V_CHR_MOP = 0 ! MOP MODE % PARAMETER XM$S_CHR_LOOPB = 14 PARAMETER XM$V_CHR_LOOPB = 1 ! LOOP BACK % PARAMETER XM$S_CHR_HDPLX = 16 PARAMETER XM$V_CHR_HDPLX = 2 4 ! HALF DUPLEX % PARAMETER XM$S_CHR_SLAVE = 1D 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 = 1B PARAMETER XM$V_CHR_DMC = 5 ! DMC-11 COMPATABILITY MODE $ PARAMETER XM$S_CHR_CTRL = 19 PARAMETER XM$V_CHR_CTRL = 6 ! CONTROL STATION $ PARAMETER XM$S_CHR_TRIB = 1; PARAMETER XM$V_CHR_TRIB = 7 5 ! TRIBUTARY STATION $ PARAMETER XM$S_STS_DCHK = 1< PARAMETER XM$V_STS_DCHK = 8 ! DATA CHECK OCCURED $ PARAMETER XM$S_STS_TIMO = 19 PARAMETER XM$V_STS_TIMO = 9 ! TIMEOUT OCCURED $ PARAMETER XM$S_STS_ORUN = 1@ PARAMETER XM$V_STS_ORUN = 10 ! DATA OVER RUN OCCURED & PARAMETER XM$S_STS_ACTIVE = 18 PARAMETER XM$V_STS_ACTIVE = 11 ! ACTIVE UNIT ' PARAMETER XM$S_STS_BUFFAIL = 1O PARAMETER XM$V_STS_BUFFAIL = 612 ! BUFFER ALLOCATION FAILURE OCCURED ' PARAMETER XM$S_STS_RUNNING = 1> PARAMETER XM$V_STS_RUNNING = 13 ! PROTOCOL RUNNING $ PARAMETER XM$S_STS_DISC = 1B PARAMETER XM$V_STS_DISC = 14 ! LINE DISCONNECT OCCURED % PARAMETER XM$S_ERR_FATAL = 1: PARAMETER XM$V_ERR_FATAL = 16 ! HARDWARE ERROR % PARAMETER XM$S_ERR_MAINT = 1H PARAMETER XM$V_ERR_MAINT = 19 ! DDCMP MAINT MESSAGE RECEIVED $ PARAMETER XM$S_ERR_LOST = 1 7T 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 = 1C PARAMETER XM$V_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 = 14 8 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 ! MAINTENANCE 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< 9 PARAMETER XM$V_MDM_RDY = 6 ! DATA TERMINAL READY $ PARAMETER XM$S_MDM_POLL = 1C PARAMETER XM$V_MDM_POLL = 7 ! SELECT POLLING MODEM MODE $ PARAMETER XM$S_MDM_SELM = 1J PARAMETER XM$V_MDM_SELM = 8 ! MODEM INTERFACE PROGRAM SELECTED # PARAMETER XM$S_MDM_INT = 18 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_CARRDET = 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 = 16 PARAMETER XM$V_MDM_CTS = 2 ! CLEAR TO SEND # ; PARAMETER XM$S_MDM_DSR = 17 PARAMETER XM$V_MDM_DSR = 3 ! DATA SET READY # PARAMETER XM$S_MDM_HDX = 14 PARAMETER XM$V_MDM_HDX = 4 ! HALF-DUPLEX # PARAMETER XM$S_MDM_RTS = 18 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 = 1J < 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) ! SIGN=AL RATE END MAP END UNION END STRUCTURE ! XMDEFCDEC$ END OPTIONS ww-0!*** MODULE $XRVDEF ***CDEC$ OPTIONS /NOALIGNA PARAMETER XRV$_PR_VIADR = '0000009D'X ! Vector indirect addressB PARAMETER XRV$_PR_VIDLO = '0000009E'X ! Vector indirect data lowA PARAMETER XRV$_PR_VIDHI = '0000009F'X ! Vector indirect data hi! += PARAMETER XRV$_VIR_VREG0 = '00000000'X ! Vector Register 0= PARAMETER XRV$_VIR_VREG1 = '00000040'X ! Vector Register 1= PARAMETER > XRV$_VIR_VREG2 = '00000080'X ! Vector Register 2= PARAMETER XRV$_VIR_VREG3 = '000000C0'X ! Vector Register 3= PARAMETER XRV$_VIR_VREG4 = '00000100'X ! Vector Register 4= PARAMETER XRV$_VIR_VREG5 = '00000140'X ! Vector Register 5= PARAMETER XRV$_VIR_VREG6 = '00000180'X ! Vector Register 6= PARAMETER XRV$_VIR_VREG7 = '000001C0'X ! Vector Register 7= PARAMETER XRV$_VIR_VREG8 = '00000200'X ! Vector Register 8= PARAMETER XRV$_VIR_VREG9 = '00000240'X ! Vector Register 9> PAR?AMETER XRV$_VIR_VREG10 = '00000280'X ! Vector Register 10> PARAMETER XRV$_VIR_VREG11 = '000002C0'X ! Vector Register 11> PARAMETER XRV$_VIR_VREG12 = '00000300'X ! Vector Register 12> PARAMETER XRV$_VIR_VREG13 = '00000340'X ! Vector Register 13> PARAMETER XRV$_VIR_VREG14 = '00000340'X ! Vector Register 14> PARAMETER XRV$_VIR_VREG15 = '000003C0'X ! Vector Register 15= PARAMETER XRV$_VIR_ALU_OP = '00000440'X ! Arithmetic opcodeB PARAMETER XRV$_VIR_ALU_SCOP_LO = '00000448'X ! Scalar operan @d LOB PARAMETER XRV$_VIR_ALU_SCOP_HI = '0000044C'X ! Scalar operand HI? PARAMETER XRV$_VIR_ALU_MASK_LO = '0000044C'X ! Vector mask LO? PARAMETER XRV$_VIR_ALU_MASK_HI = '00000450'X ! Vector mask HI? PARAMETER XRV$_VIR_ALU_EXC = '00000454'X ! ALU exception reg.! Location 458 reservedE PARAMETER XRV$_VIR_ALU_DIAG_CTRL = '0000045C'X ! Diagnostic control4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_ISL = '00000001'X4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_ISH = '00000002'X4 PARAMETER XRV$M_VIR_ALU_DIA AG_CTRL_IBL = '00000004'X4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_IBH = '00000008'X4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_ICL = '00000010'X4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_ICH = '00000020'X4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_ICI = '00000040'X4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_ABE = '00000100'X4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_CPE = '00000200'X4 PARAMETER XRV$M_VIR_ALU_DIAG_CTRL_IFO = '00000400'XB PARAMETER XRV$_VIR_VERSE_CHIP0 = '0000045C'X ! Verse Chip 0 reg.B PARAMETER XRV$_VIR_VERSE_CHIP1 = B'0000045D'X ! Verse Chip 1 reg.B PARAMETER XRV$_VIR_VERSE_CHIP2 = '0000045E'X ! Verse Chip 2 reg.B PARAMETER XRV$_VIR_VERSE_CHIP3 = '0000045F'X ! Verse Chip 3 reg.A PARAMETER XRV$_VIR_VCTL_CALU = '00000480'X ! Current ALU instr.A PARAMETER XRV$_VIR_VCTL_DALU = '00000481'X ! Defered ALU instr.E PARAMETER XRV$_VIR_VCTL_COP_LO = '00000482'X ! Current ALU oper. LOE PARAMETER XRV$_VIR_VCTL_COP_HI = '00000483'X ! Current ALU oper. HIE PARAMETER XRV$_VIR_VCTL_DOP_LO = '00000484'X ! Defered C ALU oper. LOE PARAMETER XRV$_VIR_VCTL_DOP_HI = '00000485'X ! Defered ALU oper. HI> PARAMETER XRV$_VIR_VCTL_LS = '00000486'X ! Load/Store instr.B PARAMETER XRV$_VIR_VCTL_STRIDE = '00000487'X ! Load/Store strideA PARAMETER XRV$_VIR_VCTL_ILL = '00000488'X ! Illegal instruction? PARAMETER XRV$_VIR_VCTL_CSR = '00000489'X ! Controller Status/ PARAMETER XRV$M_VIR_VCTL_CSR_LSS = '00000001'X/ PARAMETER XRV$M_VIR_VCTL_CSR_LSH = '00000002'X/ PARAMETER XRV$M_VIR_VCTL_CSR_CDS = '00000004'X/ P DARAMETER XRV$M_VIR_VCTL_CSR_CDH = '00000008'X/ PARAMETER XRV$M_VIR_VCTL_CSR_VIS = '00000010'X/ PARAMETER XRV$M_VIR_VCTL_CSR_VIH = '00000020'X/ PARAMETER XRV$M_VIR_VCTL_CSR_ISE = '00000040'X/ PARAMETER XRV$M_VIR_VCTL_CSR_STF = '00000200'X/ PARAMETER XRV$M_VIR_VCTL_CSR_ETF = '00000400'X/ PARAMETER XRV$M_VIR_VCTL_CSR_VHE = '00000800'X/ PARAMETER XRV$M_VIR_VCTL_CSR_SEE = '00040000'X/ PARAMETER XRV$M_VIR_VCTL_CSR_HEE = '00080000'X/ PARAMETER XRV$M_VIR_VCTL_CSR_FRL = '00100000'X/ PARAMET EER XRV$M_VIR_VCTL_CSR_FRH = '00200000'X/ PARAMETER XRV$M_VIR_VCTL_CSR_FDL = '00400000'X/ PARAMETER XRV$M_VIR_VCTL_CSR_FDH = '00800000'X/ PARAMETER XRV$M_VIR_VCTL_CSR_FSE = '10000000'X/ PARAMETER XRV$M_VIR_VCTL_CSR_FVP = '20000000'X/ PARAMETER XRV$M_VIR_VCTL_CSR_IMP = '80000000'XB PARAMETER XRV$_VIR_MOD_REV = '0000048A'X ! Module revision level3 PARAMETER XRV$M_VIR_MOD_REV_FIXUP_LS = '00000080'X> PARAMETER XRV$_VIR_LSX_P0BR = '00000500'X ! P0 base register@ PARAMETER XRV$_VIR_LSX_P0LR F = '00000501'X ! P0 length register> PARAMETER XRV$_VIR_LSX_P1BR = '00000502'X ! P1 base register@ PARAMETER XRV$_VIR_LSX_P1LR = '00000503'X ! P1 length registerA PARAMETER XRV$_VIR_LSX_SBR = '00000504'X ! System base registerA PARAMETER XRV$_VIR_LSX_SLR = '00000505'X ! System len. register! 506-507 reserved? PARAMETER XRV$_VIR_LSX_EXC = '00000508'X ! L/S exception reg.B PARAMETER XRV$_VIR_LSX_TBCSR = '00000509'X ! TB control registerB PARAMETER XRV$_VIR_LSX_MAPEN = '0000050A'X ! G Map enable register? PARAMETER XRV$_VIR_LSX_TBIA = '0000050B'X ! TB invalidate allB PARAMETER XRV$_VIR_LSX_TBIS = '0000050C'X ! TB invalidate single! 50D-50F reserved@ PARAMETER XRV$_VIR_LSX_MASKLO = '00000510'X ! Mask register LO@ PARAMETER XRV$_VIR_LSX_MASKHI = '00000511'X ! Mask register HIC PARAMETER XRV$_VIR_LSX_STRIDE = '00000512'X ! L/S stride register= PARAMETER XRV$_VIR_LSX_INST = '00000513'X ! L/S instructionB PARAMETER XRV$_VIR_LSX_AGDIAG = '00000514'X ! AG diagnostic Hreg.! 515-517 reserved? PARAMETER XRV$_VIR_LSX_XBE = '00000518'X ! XMI bus error reg.C PARAMETER XRV$_VIR_LSX_XFADR = '00000519'X ! XMI failed addr reg.! 51A-51F reserved@ PARAMETER XRV$_VIR_LSX_CCSR = '00000520'X ! Cache control reg.! 521-527 reserved/ PARAMETER XRV$M_VIR_LSX_CCSR_ACT = '00000001'X/ PARAMETER XRV$M_VIR_LSX_CCSR_CPE = '00000200'X/ PARAMETER XRV$M_VIR_LSX_CCSR_XSE = '00000400'X/ PARAMETER XRV$M_VIR_LSX_CCSR_XHE = '00000800'X% PARAMETER XRV$M_FILL_7 = '00007 I000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_CEE = '00008000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_SEE = '00010000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_ENA = '00020000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_HIT = '00040000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_FHT = '00080000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_FLU = '00100000'X% PARAMETER XRV$M_FILL_8 = '00600000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_FRL = '00800000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_FDL = '01000000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_FDH = '02000000'X/ PARAMET JER XRV$M_VIR_LSX_CCSR_IVS = '04000000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_IPS = '08000000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_DXT = '10000000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_IDV = '20000000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_IDP = '40000000'X/ PARAMETER XRV$M_VIR_LSX_CCSR_DTC = '80000000'XA PARAMETER XRV$_VIR_LSX_WBDIAG = '00000528'X ! WB diagnostic regB PARAMETER XRV$_VIR_LSX_VMAC1 = '00000529'X ! Memory active startB PARAMETER XRV$_VIR_LSX_VMAC2 = '0000052A'X ! Memory active check! 52B-51FK reserved< PARAMETER XRV$_VIR_LSX_TAG = '00000530'X ! TB tag register< PARAMETER XRV$_VIR_LSX_PTE = '00000531'X ! TB PTE register! 532-53F reserved STRUCTURE /XRVDEF/ UNION! +C! Internal Processor register definitions for XRV Vector Processor0! - 9! Indirect register definitions for XRV Vector Processor! - MAP2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_ISL = 1V PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_ISL = 0 ! Invert sca Llar operand parity low2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_ISH = 1W PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_ISH = 1 ! Invert scalar operand parity high2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_IBL = 1I PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_IBL = 2 ! Invert B parity low2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_IBH = 1J PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_IBH = 3 ! Invert B parity high2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_ICL = 1N PARAMETER XRV$V_VIR_ALU M_DIAG_CTRL_ICL = 4 ! Invert CD bus parity low2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_ICH = 1O PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_ICH = 5 ! Invert CD bus parity high2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_ICI = 1[ PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_ICI = 6 ! Invert internally generated CP parity2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_ABE = 1E PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_ABE = 8 ! AB parity error2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_CPE = 1H N PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_CPE = 9 ! C bus parity error2 PARAMETER XRV$S_VIR_ALU_DIAG_CTRL_IFO = 1K PARAMETER XRV$V_VIR_ALU_DIAG_CTRL_IFO = 10 ! Illegal FAVOR opcode BYTE %FILL (2) END MAP MAP- PARAMETER XRV$S_VIR_VCTL_CSR_LSS = 1K PARAMETER XRV$V_VIR_VCTL_CSR_LSS = 0 ! Load store chip soft error- PARAMETER XRV$S_VIR_VCTL_CSR_LSH = 1K PARAMETER XRV$V_VIR_VCTL_CSR_LSH = 1 ! Load store chip hard error- O PARAMETER XRV$S_VIR_VCTL_CSR_CDS = 1O PARAMETER XRV$V_VIR_VCTL_CSR_CDS = 2 ! Soft internal bus parity error- PARAMETER XRV$S_VIR_VCTL_CSR_CDH = 1O PARAMETER XRV$V_VIR_VCTL_CSR_CDH = 3 ! Hard internal bus parity error- PARAMETER XRV$S_VIR_VCTL_CSR_VIS = 1C PARAMETER XRV$V_VIR_VCTL_CSR_VIS = 4 ! VIB bus soft error- PARAMETER XRV$S_VIR_VCTL_CSR_VIH = 1D PARAMETER XRV$V_VIR_VCTL_CSR_VIH = 5 ! VIB* bus hard error- PARAMET PER XRV$S_VIR_VCTL_CSR_ISE = 1G PARAMETER XRV$V_VIR_VCTL_CSR_ISE = 6 ! Illegal sequence error/ PARAMETER XRV$S_VIR_VCTL_CSR_MCODE = 2E PARAMETER XRV$V_VIR_VCTL_CSR_MCODE = 7 ! Machine check code- PARAMETER XRV$S_VIR_VCTL_CSR_STF = 1A PARAMETER XRV$V_VIR_VCTL_CSR_STF = 9 ! Self test failed- PARAMETER XRV$S_VIR_VCTL_CSR_ETF = 1F PARAMETER XRV$V_VIR_VCTL_CSR_ETF = 10 ! Extended test failed- PARAMETER XRV$S_VIR_VCTL_CSR_VHE Q= 1B PARAMETER XRV$V_VIR_VCTL_CSR_VHE = 11 ! Verse hard error- PARAMETER XRV$S_VIR_VCTL_CSR_SEE = 1C PARAMETER XRV$V_VIR_VCTL_CSR_SEE = 18 ! Soft error enable- PARAMETER XRV$S_VIR_VCTL_CSR_HEE = 1C PARAMETER XRV$V_VIR_VCTL_CSR_HEE = 19 ! Hard error enable- PARAMETER XRV$S_VIR_VCTL_CSR_FRL = 1J PARAMETER XRV$V_VIR_VCTL_CSR_FRL = 20 ! Force bad RFA low parity- PARAMETER XRV$S_VIR_VCTL_CSR_FRH = 1K PARAMETER XRV$V R_VIR_VCTL_CSR_FRH = 21 ! Force bad RFA high parity- PARAMETER XRV$S_VIR_VCTL_CSR_FDL = 1R PARAMETER XRV$V_VIR_VCTL_CSR_FDL = 22 ! Force bad CD bus low data parity- PARAMETER XRV$S_VIR_VCTL_CSR_FDH = 1S PARAMETER XRV$V_VIR_VCTL_CSR_FDH = 23 ! Force bad CD bus high data parity. PARAMETER XRV$S_VIR_VCTL_CSR_CMOD = 2L PARAMETER XRV$V_VIR_VCTL_CSR_CMOD = 24 ! Current mode during error- PARAMETER XRV$S_VIR_VCTL_CSR_FSE = 1B PAR SAMETER XRV$V_VIR_VCTL_CSR_FSE = 28 ! Force soft error- PARAMETER XRV$S_VIR_VCTL_CSR_FVP = 1V PARAMETER XRV$V_VIR_VCTL_CSR_FVP = 29 ! Force bad VIB bus parity data parity- PARAMETER XRV$S_VIR_VCTL_CSR_IMP = 1. PARAMETER XRV$V_VIR_VCTL_CSR_IMP = 31; BYTE %FILL (3) ! Implementation specific error END MAP MAP1 PARAMETER XRV$S_VIR_MOD_REV_REVISION = 7D PARAMETER XRV$V_VIR_MOD_REV_REVISION = 0 ! Module revision1 P TARAMETER XRV$S_VIR_MOD_REV_FIXUP_LS = 1M PARAMETER XRV$V_VIR_MOD_REV_FIXUP_LS = 7 ! Load store fixup trigger BYTE %FILL (1) END MAP MAP- PARAMETER XRV$S_VIR_LSX_CCSR_ACT = 1@ PARAMETER XRV$V_VIR_LSX_CCSR_ACT = 0 ! Memory activity0 PARAMETER XRV$S_VIR_LSX_CCSR_LSXREV = 4L PARAMETER XRV$V_VIR_LSX_CCSR_LSXREV = 1 ! Load store chip revision0 PARAMETER XRV$S_VIR_LSX_CCSR_NODEID = 4? PARAMETER XRV$V_VIR_LSX_CCSR_NODEID = U 5 ! XMI node id- PARAMETER XRV$S_VIR_LSX_CCSR_CPE = 1C PARAMETER XRV$V_VIR_LSX_CCSR_CPE = 9 ! Cache parity error- PARAMETER XRV$S_VIR_LSX_CCSR_XSE = 1J PARAMETER XRV$V_VIR_LSX_CCSR_XSE = 10 ! XMI interface soft error- PARAMETER XRV$S_VIR_LSX_CCSR_XHE = 1J PARAMETER XRV$V_VIR_LSX_CCSR_XHE = 11 ! XMI interface hard error- PARAMETER XRV$S_VIR_LSX_CCSR_CEE = 1D PARAMETER XRV$V_VIR_LSX_CCSR_CEE = 15 ! Cache error enable- V PARAMETER XRV$S_VIR_LSX_CCSR_SEE = 1C PARAMETER XRV$V_VIR_LSX_CCSR_SEE = 16 ! Soft error enable- PARAMETER XRV$S_VIR_LSX_CCSR_ENA = 1> PARAMETER XRV$V_VIR_LSX_CCSR_ENA = 17 ! Cache enable- PARAMETER XRV$S_VIR_LSX_CCSR_HIT = 1; PARAMETER XRV$V_VIR_LSX_CCSR_HIT = 18 ! Cache hit- PARAMETER XRV$S_VIR_LSX_CCSR_FHT = 1A PARAMETER XRV$V_VIR_LSX_CCSR_FHT = 19 ! Force cache hit- PARAMETER XRV$S_VIR_LSX_CCSR_FLU = 1B W PARAMETER XRV$V_VIR_LSX_CCSR_FLU = 20 ! Invalidate cache- PARAMETER XRV$S_VIR_LSX_CCSR_FRL = 1J PARAMETER XRV$V_VIR_LSX_CCSR_FRL = 23 ! Force bad low RFA parity- PARAMETER XRV$S_VIR_LSX_CCSR_FDL = 1K PARAMETER XRV$V_VIR_LSX_CCSR_FDL = 24 ! Force bad low data parity- PARAMETER XRV$S_VIR_LSX_CCSR_FDH = 1L PARAMETER XRV$V_VIR_LSX_CCSR_FDH = 25 ! Force bad high data parity- PARAMETER XRV$S_VIR_LSX_CCSR_IVS = 1H PARAMETER X XRV$V_VIR_LSX_CCSR_IVS = 26 ! Invert valid bit sense- PARAMETER XRV$S_VIR_LSX_CCSR_IPS = 1E PARAMETER XRV$V_VIR_LSX_CCSR_IPS = 27 ! Invert parity sense- PARAMETER XRV$S_VIR_LSX_CCSR_DXT = 1J PARAMETER XRV$V_VIR_LSX_CCSR_DXT = 28 ! Disable XMI transactions- PARAMETER XRV$S_VIR_LSX_CCSR_IDV = 1R PARAMETER XRV$V_VIR_LSX_CCSR_IDV = 29 ! Invert duplicate tag valid sense- PARAMETER XRV$S_VIR_LSX_CCSR_IDP = 1S PARAMETER XRV$V_VYIR_LSX_CCSR_IDP = 30 ! Invert duplicate tag parity sense- PARAMETER XRV$S_VIR_LSX_CCSR_DTC = 1. PARAMETER XRV$V_VIR_LSX_CCSR_DTC = 311 BYTE %FILL (4) ! Duplicate tag check END MAP END UNION END STRUCTURE ! XRVDEFCDEC$ END OPTIONS ww 0!*** MODULE $XWDEF ***CDEC$ OPTIONS /NOALIGN! ++! 0! XWDEF - System definitions for software DDCMP! ! --% PARAMETER XW$M_CHA_FDX = '00000001'X% PARAMETER XW$M_CHA_XPR = '00000002'X% Z 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 = 19 PARAMETER XW$V_CHA_FDX = 0 ! Full duplex line # PARAMETER XW$S_CHA_XPR = 15 PARAMETER XW$V_CHA_XPR = 1 ! Transparency # PARAMETER XW$S_CHA_DSR = 1; PARAMETER XW$V_CHA_DSR = 2 ! Data S\et Ready set  BYTE %FILL (1) END MAP! ! Device dependent status!  MAP% PARAMETER XW$S_FAT_STAT = 10G 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 = 12 PARAMETER XW$V_ ]EOT = 0 ! EOT received " PARAMETER XW$S_DATACK = 1@ PARAMETER XW$V_DATACK = 1 ! Retry threshold exceeded ! PARAMETER XW$S_NODSR = 19 PARAMETER XW$V_NODSR = 2 ! Line not connected " PARAMETER XW$S_DISCON = 1B PARAMETER XW$V_DISCON = 3 ! Disconnect (DLE, EOT) rcvd % PARAMETER XW$S_TRABINTMO = 1B PARAMETER XW$V_TRABINTMO = 4 ! Binary transmit timeout % PARAMETER XW$S_PIPE_MARK = 1G PARAMETER XW$V_PIPE ^_MARK = 5 ! Aborted because of pipe mark $ PARAMETER XW$S_BADCHAIN = 19 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 = 1F PARAMETER XW$V_CONACK = 11 ! Buffer ACKed with conver resp  PARAMETER XW$S_XPR = 1D PARAMETER XW$V_XP_R = 12 ! Buffer rcvd with transparency " PARAMETER XW$S_ETXEND = 1B 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 = 1F 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 = 137 BYTE %FILL (1) ! I/O modifier field start END MAP END UNION END STRUCTURE ! XWDEFCDEC$ END OPTIONSwwA! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:18 by VAX SDL V3.2-12 Source: 9-NOV-1999 09: a11:18 FORD2$:[VFORT.KIT.FORSYSDEF]ACLEDIT$ROUTINES.SD ! *********************************************************************************************************************************************************************************************************************************************************** *!*** MODULE ACLEDIT$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! /! Access Control List Editor (ACLEDIT) Routine! ! *! ACLEDIT$EDIT - Edit Access Control List! $! status = bACLEDIT$EDIT (item_list)! &! item_list - Itemlist for operation!  INTEGER*4 ACLEDIT$EDIT EXTERNAL ACLEDIT$EDITCDEC$ END OPTIONSww-)! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:19 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:1 c9 FORD2$:[VFORT.KIT.FORSYSDEF]CLI$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** &!*** MODULE CLI$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! .! Command Language Interpreter (CLI) Routines! ! +! CLI$DCL_PARSE - Parse DCL command string! C! status = CLI$DCL_dPARSE ([command_string], table [,param_routine]2! [,prompt_routine] [,prompt_string])! ,! command_string - Command string to parse"! table - Command table9! param_routine - Routine to obtain omitted parameters0! 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])! ! userearg - User argument!  INTEGER*4 CLI$DISPATCH EXTERNAL CLI$DISPATCH! 8! 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)! f$! entity_desc - Entity to retrieve!  INTEGER*4 CLI$PRESENT EXTERNAL CLI$PRESENTCDEC$ END OPTIONSww'!*** MODULE CMA$DEF IDENT V3.14-001 ***CDEC$ OPTIONS /NOALIGN! %! Copyright (c) 1989, 1994, 1996 by9! Digital Equipment Corporation, Maynard Massachusetts.! All rights reserved.! J! This software is furnished under a license and may be used and copiedJ! only in accordance with the terms of such license and with theJ! inclusion of t ghe above copyright notice. This software or any otherJ! copies thereof may not be provided or otherwise made available to anyJ! other person. No title to and ownership of the software is hereby! transferred.! J! The information in this software is subject to change without noticeJ! and should not be construed as a commitment by DIGITAL Equipment! Corporation.! J! DIGITAL assumes no responsibility for the use or reliability of its;! software on equipmenht which is not supplied by DIGITAL.! ! ! FACILITY:! 6! 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 i! ! G! Define a symbol which client code can test to determine whether the G! underlying threads package is DECthreads or not. This is especiallyE! important to clients of the Pthreads interface who may want to useK! certain DECthreads extensions, such as the global lock and non-real-timeE! scheduling policies, on the DECthreads platform while maintaining 6! portability to a "vanilla" pthreads implementation.! $ PARAMETER DECTHREADS_ = '00000001'X ! ** INTEGER*4 cma$t_integejr ! ** 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_prio_rr_max = '0000001F'X/ PARAMETER cma k$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 = '00000000'X/ PARAMETER cma$c_prio_ada_rtb_mild = '00000004'X/ PARAMETER cma$c_prio_ada_rtb_max = '00000007'X! D! The implementation of the date_time type should match the "nativeM! time" of the platform: that allows clients to use the full set of platformE! time operations, rather than just "get_expiration", to compute and! test timed waits.! K! 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 SmTRUCTURE ! 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! F! 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 INTnEGER*4 once_field2 ! type is "cma$t_integer"5 INTEGER*4 once_field3 ! type is "cma$t_integer" END STRUCTURE ! cma$t_once! B! 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! 1! The following are the portable CMA definitions! ! ! Operations on threads! # ! ** INTEGER*4 cma$t_start_routoine! ! Constants! $ PARAMETER cma$c_false = '00000000'X# PARAMETER cma$c_true = '00000001'X' PARAMETER cma$c_null_ptr = '00000000'X! ! Objects! 3 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 STRpUCTURE /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! ! !q ** 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' PARAMETrER 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_mutex_fast = '00000000'X. PARAMETER cma$c_mutex_recursive = '00000001'X1 PARAMETER cma$c_mutex_nonrecursive = '0000000s2'X! "! Sample decision for error codes! 8! Values used are "VMS status codes" in decimal. These?! must remain in synch with the "message file" MESSAGE_VMS.MSGC! Note: these values cannot be altered after they have shipped in @! some CMA release. Octal boundaries are shown on the decimal A! 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' P tARAMETER 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 = '00u00002C'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 = '000004ACv'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$_existenc we = '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_nestinxg = '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 y$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_excep ztion/ 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_exception/ cma$e_decovf& RECORD /cma$t_exception/ cma$e_subrng' RECORD /cma$t_exception/ cma$e_alerted) RECORD /cma$t_exception/ cma$e_assertio {n( 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/ cm|a$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! ! F! The value of a handle can be assigned the value of another handle. !  ! Subroutine cma$handle_assign! F! The value of a handle can be assigned the value of another handle. ! K BYTE cma$handle_equal ! Unsupported Dimension 0 ! type is "handle1" EXTERNAL cma$handle_equal! I! An attr}ibutes object is created to specify the attributes of other CMA ! objects that will be created.!  ! Subroutine cma$attr_create! C! An attributes object can be deleted when it is no longer needed.!  ! Subroutine cma$attr_delete! C! The following procedures can be used to control thread creation,! termination and deletion.! ! M! To create a thread object and runnable thread, a routine must be specifiedH! as the new thread's start routine. An argument may be passed to ~thisM! routine, as an untyped address; an untyped address may also be returned asL! the routine's value. An attributes object may be used to specify details*! about the kind of thread being created.!  ! Subroutine cma$thread_create! I! 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! K! A thread can await termination of another thread and retrieve the return-! value and completion status of the thread.!  ! Subroutine cma$thread_join! 2! Operations to define thread creation attributes! ! -! Set or obtain the default thread priority.! # ! Subroutine cma$attr_set_priority! 1! Obtain thread priority from attributes object.! # ! Subroutine cma$attr_get_priority! 2! Set or obtain the default scheduling algorithm.! ! Subroutine cma$attr_set_sched! :! Get thread scheduling algorithm from attributes object.! ! Subroutine cma$attr_get_sched! M! 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! ! A! The current user_assigned priority of a thread can be changed.! % ! Subroutine cma$thread_set_priority! L! The current user_assigned scheduler algorithm of a thread can be changed.! " ! Subroutine cma$thread_set_sched! L! A thread may tell the scheduler that its processor can be made available.!  ! Subroutine cma$yield! A! A thread may enter a wait state for a specifed period of time.!  ! Subroutine cma$delay! ! Thread Information Operations! ! 7! 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! I! 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! B! 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.! K BYTE cma$mutex_try_lock ! Unsupported Dimension 0 ! type is "mutex" 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! 6! A thread can create and delete condition variables.!  ! Subroutine cma$cond_create! ! Delete a condition variable.!  ! Subroutine cma$cond_delete! @! 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! K! 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.! P BYTE cma$cond_timed_wait ! Unsupported Dimension 0 ! type is "condition" EXTERNAL cma$cond_timed_wait! L! A thread may perform some operations on absolute date-time and intervals.! % ! Subroutine cma$time_get_expiration! 0! Operations for CMA and client initialization.! ! ! Initialize the CMA facility.!  ! Subroutine cma$init! J! A thread can declare a one-time initialization routine. The address of7! 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! B! A unique per-thread context key can be obtained for the process!  ! Subroutine cma$key_create! C! A thread can set a per-thread context value identified by a key.! ! ! Subroutine cma$key_set_context! H! A thread can retrieve a per-thread context value identified by a key.! ! ! Subroutine cma$key_get_context! ! Operations for alerts.! ! I! The current thread can request that a thread terminate it's execution.!  ! Subroutine cma$thread_alert! 2! 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_integer"" 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_address" EXTERNAL cma$sigwait! D! 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! I! An attributes object is created to specify the attributes of other CMA ! objects that will be created.! ! ! Subroutine cma$lib_attr_create! C! 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_enqueueV BYTE cma$lib_queue_try_enqueue_int ! Unsupported Dimension 0 ! type is "QUEUE"' EXT ERNAL cma$lib_queue_try_enqueue_int# ! Subroutine cma$lib_queue_requeueR BYTE cma$lib_queue_try_dequeue ! Unsupported Dimension 0 ! type is "QUEUE"# EXTERNAL cma$lib_queue_try_dequeueR BYTE cma$lib_queue_try_enqueue ! Unsupported Dimension 0 ! type is "QUEUE"# EXTERNAL cma$lib_queue_try_enqueueR BYTE cma$lib_queue_try_requeue ! Unsupported Dimension 0 ! type is "QUEUE"# EXTERNAL cma$lib_queue_try_requeue! '! Set or obtain the default queue size! ( ! Subroutine cma$lib_attr_get_queuesize( ! Subroutine cma$lib_attr_set_queuesizeCDEC$ END OPTIONSwwt! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:23 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:23 FORD2$:[VFORT.KIT.FORSYSDEF]CONV$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** '!*** MODULE CONV$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! ! Convert (CONV) Routines! ! %! CONV$CONVERT - Initiate conversion! :! status = CONV$CONVERT ([status_block_address] [,flags])! H! status_block_address - Array of longwords into which will be writtenF! statistics about the conversion. The first@! 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_filespec6! [,fdl_filespec] [,exception_filespec]! [,flags])! -! input_fi lespec - File to be converted)! output_filespec - Destination file;! fdl_filespec - File containing FDL for conversion:! exception_filespec - File to contain exception records5! flags - Flags controlling conversion INTEGER*4 CONV$PASS_FILES EXTERNAL CONV$PASS_FILES! 1! CONV$PASS_OPTIONS - Specify processing options! A! status = CONV$PASS_OPTIONS ([parameter_list_address] [,flags])! =! parameter_list_address - Array specifying convert options9! 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_filespec - File to be convertedJ! statistics_blk - Array to receive statistics; first longword specifies$! number of statistics!  INTEGER*4 CONV$RECLAIM EXTERNAL CONV$RECLAIMCDEC$ END OPTIONSww-B! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:29 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:28 FORD2$:[VFORT.KIT.FORSYSDEF]CVT$ROUTINES.SDI;1 ! ****************************************************************************************************************************** ***************************************************************************************************************************** !*** MODULE cvt$routines ***CDEC$ OPTIONS /NOALIGNL! **************************************************************************L! L! Copyright (c) 1993,1994 L! by DIGITAL Equipment Corporation, Maynard, Mass. L!  L! This software is furnished under a license and may be used and copied L! only in accordance with the terms of such license and with the L! inclusion of the above copyright notice. This software or any other L! copies thereof may not be provided or otherwise made available to any L! other person. No title to and ownership of the software is hereby L! transferred.  L! L! The information in this software is subject to change without notice L! and should not be construed as a commitment by DIGITAL Equipment L! Corporation. L! L! DIGITAL assumes no responsibility for the use or reliability of its L! so ftware on equipment which is not supplied by DIGITAL. L! L! **************************************************************************! CVT$CONVERT_FLOAT! (! Convert floating point data types.! G! 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$FTOFCDEC$ END OPTIONSww ! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:32 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:32 FORD2$:[VFORT.KIT.FORSYSDEF]DCX$ROUTINES.SDI;1 ! **************************************** ******************************************************************************************************************************************************************************************************************* &!*** MODULE DCX$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGNA! ---------------------------------------------------------------! ,! Data Compression/Expansion (DCX) Routines! ! +! DCX$ANALYZE_DATA - Analyze a data record! .! status = DCX$ANALYZE_DATA (context, record)! 8! 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)! 8! context - Context value returned by DCX$ANALYZE_INIT INTEGER*4 DCX$ANALYZE_DONE EXTERNAL DCX$ANALYZE_DONE! 5! DCX$ANALYZE_INIT - Initialize context for analysis! ?! status = DCX$ANALYZE_INIT (context [,item_code, item_value])! 6! context - Receives context value for data stream@! item_code - Specifies information to be used during analysis*! item_value - Value of information itemF! [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! D! status = DCX$COMPRESS_DATA (context, in_rec, out_rec, out_length)! 4! context - Value returned by DCX$COMPRESS_INIT-! in_rec - Data record to be compressed+! out_rec - Receives compressed record5! out_length - Receives length of compressed record!  INTEGER*4 DCX$COMPRESS_DATA EXTERNAL DCX$COMPRESS_DATA! 5! DCX$COMPRESS_DONE - Delete context for compression! '! status = DCX$COMPRESS_DONE (context)! 1! context - Value returned by DCX$COMPRESS_INIT!  INTEGER*4 DCX$COMPRESS_DONE EXTERNAL DCX$COMPRESS_DONE! 9! DCX$COMPRESS_INIT - Initialize context for compression! ,! status = DCX$COMPRESS_INIT (context, map)! 0! context - Context value for this data stream0! map - Map value returned by DCX$MAKE_MAP!  INTEGER*4 DCX$COMPRESS_INIT EXTERNAL DCX$COMPRESS_INIT! 4! DCX$EXPAND_DATA - Expand a compressed data record! D! status = DCX$EXPAND_DATA (context, in_rec, out_rec [,out_length])! 2! context - Value returned by DCX$EXPAND_INIT+! in_rec - Data record to be expanded.! out_rec - Receives expanded data record3! out_length - Receives length of expanded record!  INTEGER*4 DCX$EXPAND_DATA EXTERNAL DCX$EXPAND_DATA! 1! DCX$EXPAND_DONE - Delete context for expansion! %! status = DCX$EXPAND_DONE (context)! /! context - Value returned by DCX$EXPAND_INIT!  INTEGER*4 DCX$EXPAND_DONE EXTERNAL DCX$EXPAND_DONE! 5! DCX$EXPAND_INIT - Initialize context for expansion! *! status = DCX$EXPAND_INIT (context, map)! <! context - Receives context value identifying data stream0! map  - Map value returned by DCX$MAKE_MAP!  INTEGER*4 DCX$EXPAND_INIT EXTERNAL DCX$EXPAND_INIT! 3! DCX$MAKE_MAP - Compute compression/expansion map! 9! status = DCX$MAKE_MAP (context, map_addr [, map_size])! 0! context - Value returned by DCX$ANALYZE_INIT5! map_addr - Receives address of allocated map data2! map_size - Receives size of allocated map data!  INTEGER*4 DCX$MAKE_MAP EXTERNAL DCX$MAKE_MAPCDEC$ END OPTIONSwwm/! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:37 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:36 FORD2$:[VFORT.KIT.FORSYSDEF]DTK$ROUTINES.SDI;1 ! ****************************************************************************************************************************************** ***************************************************************************************************************** !*** MODULE dtk$routines ***CDEC$ OPTIONS /NOALIGNM! ***************************************************************************! *1! COPYRIGHT (c) 1988 BY *A! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *M! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B E 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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFERRED. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE  CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! ***************************************************************************! DTK$ANSWER_PHONE! '! Wait for Phone to Ring and Answer! 4! The Wait for Phone to Ring and Answer routine A! 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! P! 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! Q! 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! C! 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! c! 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! 3! 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! 1! Read a Series of Keys Entered on the Keypad! F! The Read a Series of Keys Entered on the Keypad routine reads a 1! 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! I! 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! G! 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! 5! The Speak the Text in a Specified File routine 6! 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! 4! 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 5! 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 6! 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! E! 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! Q! Set the Logging Mode for the Video Terminal Connected to the DECtalk Device! 6! The Set the Logging Mode for the Video Terminal -! Connected to the DECtalk Device routine=! controls the information that is displayed on the video8! 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! 8! 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 9! either starts or stops the DECtalk device's speech.!  INTEGER*4 dtk$set_speech_mode EXTERNAL dtk$set_speech_mode! DTK$SET_TERMINAL_MODE! I! 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! P! The Terminate DECtalk routine terminates the use of an initialized DECtalk ! device.!  INTEGER*4 dtk$terminate EXTERNAL dtk$terminateCDEC$ END OPTIONSww\! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:40 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:39 FORD2$:[VFORT.KIT.FORSYSDEF]EDT$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** &!*** MODULE EDT$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! ! EDT Editor (EDT) Routines! ! ! EDT$EDIT - Edit a file! M! status = EDT$EDIT (in_file [,out_file] [,com_file] [,jou_file] [,options] 4! [,fileio] [,workio] [,xlate] )! '! in_file - Input file specification(! out_file - Output file specification1! com_file - Startup command file specification)! jou_file - Journal file specification)! options - Options for edit operation9! fileio - Bound procedure value for file I/O routine:! workio - Bound procedure value for work I/O routine 6! xlate - Bound procedure value for XLATE routine!  INTEGER*4 EDT$EDIT EXTERNAL EDT$EDITCDEC$ END OPTIONSwwM! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:41 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:40 FORD2$:[VFORT.KIT.FORSYSDEF]FDL$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** &!*** MODULE FDL$ROUTINES IDENT X-2 ***CDEC$ OPTIONS /NOALIGN! *! 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]! A! fdl_desc - Name of file or string containg FDL statements-! filename - Name of file to be created&! default_name - Default name string/! result_name - Receives resultant file name3! fid_block - Receives file ID of created file.! flags - Flags controlling operation8! stmt_num - Receives number of statement in error1! retlen - Receives length of result_name)! sts - Receives RMS STS value)! stv - Receives RMS STV valueK! 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! 9! status = FDL$GENERATE (flags, fab_pointer, rab_pointer;! [,fdl_file_dst] [,fdl_file_resnam]/! [,fdl_str_dst] [,bad_blk_addr] [,retlen])! 1! flags - Flags controlling operation*! fab_pointer - Address of FAB block* ! rab_pointer - Address of RAB block4! fdl_file_dst - Name of FDL file to be created9! fdl_file_resnam - Receives resultant name of FDL file)! fdl_str_dst - Receives FDL string;! bad_blk_addr - Receives address of invalid RMS blockG! retlen - Receives length of fdl_file_resnam or fdl_str_dst!  INTEGER*4 FDL$GENERATE EXTERNAL FDL$GENERATE! )! FDL$PARSE - Parse an FDL specification! B! status = FDL$PARSE (fdl_spec, fdl_fab_pointer, fdl_rab_pointer =! [,flags] [,dflt_fdl_spec] [,stmt_num])! A! fdl_spec - Name of FDL file or FDL string to be parsed5! fdl_fab_pointer - Receives address of created FAB5! fdl_rab_pointer - Receives address of created RAB1! flags - Flags controlling operationD! 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])! 2! fab_pointer - Address of FAB to be deallocated2! rab_pointer - Address of RAB to be deallocated-! flags - Flags controlling operation6! badblk_addr - Recives address of invalid RMS block!  INTEGER*4 FDL$RELEASE EXTERNAL FDL$RELEASECDEC$ END OPTIONSww_! FORSYSDEF.TLB&! Built by: Compaq Fortran V6.6-201! OpenVMS Version: V6.2 )! FORSYSDEF Date: 9-NOV-1999 09:11:16.44)! STARLETSD Date: 14-NOV-1998 03:34:28.00!wwm! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:46 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:46 FORD2$:[VFORT.KIT.FORSYSDEF] LBR$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** &!*** MODULE LBR$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! ! ?! This package defines the interfaces to the Librarian utilityC! 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! 3! status = LBR$DELETE_DATA (library_index, txtrfa)! ;! library_index - Index value returned by LBR$INI_CONTROL=! txtrfa - RFA of module header for module to delete!  INTEGER*4 LBR$DELETE_DATA EXTERNAL LBR$DELETE_DATA! ! LBR$DELETE_KEY - Delete a key! 4! status = LBR$DELETE_KEY (library_index, key_name)! ;! library_index - Index value returned by LBR$INI_CONTROLB! key_name - Key to be deleted - for binary keys, passed by=! reference, for string keys, by descriptor!  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! 1! status = LBR$FLUSH (library_index, block_type)! ;! library_index - Index value returned by LBR$INI_CONTROL1! block_type - Extent of the flush operation INTEGER*4 LBR$FLUSH EXTERNAL LBR$FLUSH! 7! LBR$GET_HEADER - Retrieve library header information! 2! status = LBR$GET_HEADER (library_index, retary)! ;! library_index - Index value returned by LBR$INI_CONTROLD! retary - Array of 128 longwords to receive library header!  INTEGER*4 LBR$GET_HEADER EXTERNAL LBR$GET_HEADER! $! LBR$GET_HELP - Retrieve help text! @! status = LBR$GET_HELP (library_index [,line_width] [,routine].! [,data] [,key_n...]);! library_index - Index value returned by LBR$INI_CONTROL/! line_width - Width of the help text line6! routine - Routine called to output text line/! 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_CONTROL7! action_routine - Routine to process history records!  INTEGER*4 LBR$GET_HISTORY EXTERNAL LBR$GET_HISTORY! 7! LBR$GET_INDEX - Call routine for selected index keys! D! status = LBR$GET_INDEX (library_index, index_number, routine_name(! [,match_desc])! ;! library_index - Index value returned by LBR$INI_CONTROL1! index_number - Number of the index to search6! routine_name - User routine to process selections'! match_desc - Key matching string!  INTEGER*4 LBR$GET_INDEX EXTERNAL LBR$GET_INDEX! &! LBR$GET_RECORD - Read a data record! C! status = LBR$GET_RECORD (library_index [,inbufdes] [,outbufdes])! ;! library_index - Index value returned by LBR$INI_CONTROL,! inbufdes - Buffer to receive recordA! outbufdes - Descriptor receiving information about record INTEGER*4 LBR$GET_RECORD EXTERNAL LBR$GET_RECORD! ;! LBR$INI_CONTROL - Initialize a library control structure! C! 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! <! status = LBR$INSERT_KEY (library_index, key_name, txtrfa)! ;! library_index - Index value returned by LBR$INI_CONTROLD! key_name - Name of key to insert (reference for binary key,,! descriptor for text key)!! txtrfa - RFA of module!  INTEGER*4 LBR$INSERT_KEY EXTERNAL LBR$INSERT_KEY! )! LBR$LOOKUP_KEY - Look up a library key! <! status = LBR$LOOKUP_KEY (library_index, key_name, txtrfa)! ;! library_index - Index value returned by LBR$INI_CONTROLD! key_name - Name of key to insert (reference for binary key,,! descriptor for text key)*! txtrfa - Receives RFA of module!  INTEGER*4 LBR$LOOKUP_KEY EXTERNAL LBR$LOOKUP_KEY! &! LBR$OPEN - Open or create a library! C! status = LBR$OPEN (library_index [,fns] [,create_options] [,dns]/!  [,rlfna] [,rns] [,rnslen])! <! library_index - Index value returned by LBR$INI_CONTROL6! fns - File specification of the library?! create_options - Library characteristics ($LBRDEF, $CREDEF)/! dns - Default file specification,! rlfna - Related file name block:! rns - Receives resultant file specificationD! rnslen - Receives length of resultant file specification!  INTEGER*4 LBR$OPEN EXTERNAL LBR$OPEN! )! LBR$OUTPUT_HELP - Output help messages! H! status = LBR$OUTPUT_HELP (output_routine [,output_width] [,line_desc]G! [,library_name] [,flags] [,input_routine])! 8! output_routine - Routine called to output text lines2! output_width - Maximum width of output lines&! line_desc - Help request line-! library_name - Name of the help library/! flags - Flags to control operation/! input_routine - Routine used for prompting!  INTEGER*4 LBR$OUTPUT_HELP EXTERNAL LBR$OUTPUT_HELP! .! 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! 3! LBR$PUT_HISTORY - Write an update history record! 8! 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! :! status = LBR$PUT_RECORD (library_index, bufdes, txtrfa)! ;! library_index - Index value returned by LBR$INI_CONTROL(! bufdes - Record to be written*! txtrfa - Receives RFA of module!  INTEGER*4 LBR$PUT_RECORD EXTERNAL LBR$PUT_RECORD! *! LBR$REPLACE_KEY - Replace a library key! E! status = LBR$REPLACE_KEY (library_index, key_name, oldrfa, newrfa)! ;! library_index - Index value returned by LBR$INI_CONTROLB! key_name - Name of key, passed by reference or descriptor,! oldrfa - RFA of old module header,! newrfa - RFA of new module header!  INTEGER*4 LBR$REPLACE_KEY EXTERNAL LBR$REPLACE_KEY! /! 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! A! status = LBR$SEARCH (library_index, index_number, rfa_to_find, ! routine_name)! ;! library_index - Index value returned by LBR$INI_CONTROL-! index_number - Number of index to search/! rfa_to_find - RFA of module to search for2! routine_name - Routine called to process keys INTEGER*4 LBR$SEARCH EXTERNAL LBR$SEARCH! /! LBR$SET_INDEX - Set the current index number! 7! 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! 4! 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! 2! LBR$SET_MODULE - Read or update a module header! 9! 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 header4! buflen - Receives length of module headerH! updatedesc - Additional information to be stored in module header!  INTEGER*4 LBR$SET_MODULE EXTERNAL LBR$SET_MODULE! 0! 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_MOVECDEC$ END OPTIONSww- ! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:11:50 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:11:49 FORD2$:[VFORT.KIT.FORSYSDEF]LIB$ROUTINES.SDI;1 ! ****************************************** ***************************************************************************************************************************************************************************************************************** !*** MODULE lib$routines ***CDEC$ OPTIONS /NOALIGNM! ***************************************************************************! *=! COPYRIGHT (c) 1988, 1994, 1996, 1997 BY *A! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *#! AL L RIGHTS RESERVED. *! *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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFERRED. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! ***************************************************************************! LIB$ADAWI! %! Add Aligned Word with Interlock! O! The Add Aligned Word with Interlock routine allows the user to perform an6! interlocked add operation using an aligned word.!  INTEGER*4 lib$adawi EXTERNAL lib$adawi! LIB$ADDX! /! Add Two Multiple-Precision Binary Numbers! Q! The Add Two Multiple-Precision Binary Numbers routine adds two signed two's.! complement integers of arbitrary length.!  INTEGER*4 lib$addx EXTERNAL lib$addx!  LIB$ADD_TIMES! ! Add Two Quadword Times! Q! 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! S! The Analyze String Descriptors routine extracts the length and the address atG! which the data starts for a variety of string descriptor classes.!  INTEGER*4 lib$analyze_sdesc EXTERNAL lib$analyze_sdesc! LIB$ASCII_TO_UID! ! Convert Text To UID! 9! The Convert Text to UID routine converts a standard8! representation 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! U! The Assign Channel with Mailbox routine assigns a channel to a specified deviceV! 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! T! 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! S! The Attach Terminal to Process routine requests the calling process's CommandU! Language Interpreter (CLI) to detach the terminal of the calling process and to)! reattach it to a different process.!  INTEGER*4 lib$attach EXTERNAL lib$attach! LIB$BBCCI! '! Test and Clear Bit with Interlock! F! 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! D! The Build a Node-Name Specification routine builds a node-name/! specification from the primary node name.!  INTEGER*4 lib$build_nodespec EXTERNAL lib$build_nodespec! LIB$CALLG! -! Call Routine with General Argument List! Q! The Call Routine  with General Argument List routine calls a routine with anU! argument list specified as an array of longwords, the first of which is a countI! of the remaining longwords. LIB$CALLG is a callable version of the ! VAX CALLG instruction.!  INTEGER*4 lib$callg EXTERNAL lib$callg! LIB$CHAR! 1! Transform Byte to First Character of String! Q! The Transform Byte to First Character of String routine transforms a singleO! 8-bit ASCII character to an ASCII string consisting of a single characterS! followed by trailing spaces, if needed, to fill out the string. 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 names3! 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! 8! 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! C! The Compress a Node Name routine compresses a node name to anA! 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! K! The Convert Date String to Quadword routine converts an absolute dateJ! string into a VMS internal format date-time quadword. That is, given6! an input date/time string of a specified format,K! 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! /! Calculate a Cyclic Redundancy Check (CRC)! V! The Calculate a Cyclic Redundancy Check routine calculates the cyclic redundancy$! check (CRC) for a data stream.!  INTEGER*4 lib$crc EXTERNAL lib$crc! LIB$CRC_TABLE! 6! Construct a Cyclic Redundancy Check (CRC) Table ! T! The Construct a Cyclic Redundancy Check Table routine constructs a 16-longwordQ! table that uses a cyclic redundancy check polynomial specification as a bit ! mask.!  ! Subroutine lib$crc_table! LIB$CREATE_DIR! ! Create a Directory! I! 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! U! 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_VM_ZONE! ! Create a New Zone! U! 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$CRF_INS_KEY! )! Insert Key in Cross-Reference Table! U! The Insert Key in Cross-Reference Table routine inserts information 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! R! The Insert Reference to a Key in the Cross-Reference Table routine 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! S! The Output Cross-Reference Table Information routine extracts the informationC! from the cross-reference tables and formats the output pages.!  ! Subroutine lib$crf_output! LIB$CURRENCY! ! Get System Currency Symbol! R! The Get System Currency Symbol routine returns the system's currency symbol.!  INTEGER*4 lib$currency EXTERNAL lib$currency!! LIB$CVTF_FROM_INTERNAL_TIME! E! Convert Internal Time to External Time (F-Floating Point Value)! I! The Convert Internal Time to External Time (F-Floating Point Value)H! 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$CVTF_TO_INTERNAL_TIME! E! Convert External Time to Internal Time (F-Floating Point Value)! Q! The Convert External Time to Internal Time (F-Floating Point Value) routineT! converts an external time interval into a VMS internal format F-floating delta ! time.! $ INTEGER*4 lib$cvtf_to_internal_time# EXTERNAL lib$cvtf_to_internal_time! LIB$CVT_DTB! $! Convert Numeric Text to Binary! S! The Convert Numeric Text to Binary routines return a binary representation ofV! the ASCII text string representation of a decimal, hexadecimal, or octal number.!  INTEGER*4 lib$cvt_dtb EXTERNAL lib$cvt_dtb! LIB$CVT_DX_DX! *! General Data Type Conversion Routine! l! The General Data Type Conversion routine  converts a VMS standard atomic or string datum described by aP! source descriptor to another VMS standard atomic or string datum describedP! by a destination descriptor. This 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! Q! The Convert Internal Time to External Time routine converts an internal VMSD!  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! A! The Convert Numeric Text to Binary routines return a binaryA! representation of the ASCII text string representation of a,! decimal, hexadecimal, or octal number.!  INTEGER*4 lib$cvt_htb EXTERNAL lib$cvt_htb! LIB$CVT_OTB! $! Convert Numeric Text to Binary! A! The Convert Numeric Text to Binary routines return a binaryA! representation of the ASCII text string representation of a,! decimal, hexadecimal, or octal number.!  INTEGER*4 lib$cvt_otb EXTERNAL lib$cvt_otb! LIB$CVT_TO_INTERNAL_TIME! ,! Convert External Time to Internal Time! R! The Convert External Time to Internal Time routine converts an external time5! interval into a VMS internal format delta time.! # INTEGER*4 lib$cvt_to_internal_time" EXTERNAL lib$cvt_to_internal_time! LIB$CVT_VECTIM! 0! Convert Seven-Word Vector to Internal Time! G! The Convert Seven-Word Vector to Internal Time routine converts a! seven-word vector8! 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! P! 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! /! Day Number Returned as a Longword Integer! V! The Day Number Returned as a Longword Integer routine returns the number of daysQ! since the system zero date of November 17, 1858, or the number of days from1! November 17, 1858, to a user-supplied date.!  INTEGER*4 lib$day EXTERNAL lib$day! LIB$DAY_OF_WEEK! ! Show Numeric Day of Week! U! The Show Numeric Day of Week routine returns the numeric day of the week for anT! input time value. If 0 is the input time value, the current day of the week isV! 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! O! The Decode Instruction Stream During Fault routine is a tool for buildingQ! condition handlers that process instruction fault exceptions. It is called! from a condition handler.! H! 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! 2! Enable or Disable Decimal Overflow Detection! R! The Enable or Disable Decimal Overflow Detection routine enables or disablesR! decimal overflow detection for the calling routine activation. The previous+! decimal overflow setting is returned.! G! This routine is available on Alpha VMS systems in translated form6! 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! I! The Delete One or More Files routine deletes one or more files. TheG ! specification of the file(s) to be deleted may include wildcards.G! 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! U! The Delete Logical Name routine requests the calling process's Command LanguageI! Interpreter (CLI) to delete a supervisor-mode process logical name.P! 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! S! The Delete CLI Symbol routine requests the calling process's Command Language9! 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 and@! 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$DIGIT_SEP! ! Get Digit Separator Symbol! Q! 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! 4! Disable CLI Interception of Control Characters ! U! The Disable CLI Interception of Control Characters routine requests the callingP! process's Command Language Interpreter (CLI) to not intercept the selectedT! control characters when they are typed during an interactive terminal session.S! 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! Q! The Execute Command ro utine stops program execution and directs the CommandT! Language Interpreter to execute a command which you supply as the argument. IfP! successful, LIB$DO_COMMAND does not return control to the calling program.H! Instead, LIB$DO_COMMAND begins execution of the specified command.I! 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! Q!  The Extended-Precision Divide routine performs extended-precision division.!! LIB$EDIV makes the VAX EDIV! 2! instruction available as a callable routine.!  INTEGER*4 lib$ediv EXTERNAL lib$ediv! LIB$EMODD! K! Extended Multiply and Integerize Routines for D-Floating Point Values! S! The Extended Multiply and Integerize routine (D-Floating Point Values) allowsS! higher-level language users to perform accurate range reduction of D-floating! arguments.! J! D-floating point values are not supported in full precision on AlphaL! systems. They are precise to 56 bits on VAX systems, 53 bits on Alpha! systems.!  INTEGER*4 lib$emodd EXTERNAL lib$emodd! LIB$EMODF! K! Extended Multiply and Integerize Routines for F-Floating Point Values! S! The Extended Multiply and Integerize routine (F-Floating Point Values) allowsS! higher-level language users to perform accurate range reduction of F-floating! arguments.!  INTEGER*4 lib$emodf EXTERNAL lib$emodf! LIB$EMODG! K! Extended Multiply and Integerize Routines for G-Floating Point Values! S! The Extended Multiply and Integerize routine (G-Floating Point Values) allowsS! higher-level language users to perform accurate range reduction of G-floating! arguments.!  INTEGER*4 lib$emodg EXTERNAL lib$emodg! LIB$EMODH! K! Extended Multiply and Integerize Routines for H-Floating Point Values! ?! On VAX VMS, the Extended Multiply and Integerize routine &! (H-Floating Point Values) allowsS! 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! I! The Extended-Precision Multiply routine performs extended-precision! multiplication. !! LIB$EMUL makes the VAX EMUL! 2! instruction available as a callable routine.!  INTEGER*4 lib$emul EXTERNAL lib$emul! LIB$ENABLE_CTRL! 3! Enable CLI Interception of Control Characters! T! The Enable CLI Interception of Control Characters routine requests the callingP! process's Command Language Interpreter (CLI) to resume interception of theT! selected control characters when they are typed during an interactive terminalP! session. LIB$ENABLE_CTRL provides the same function as the DCL command SET! CONTROL.!  INTEGER*4 lib$enable_ctrl EXTERNAL lib$enable_ctrl! LIB$ESTABLISH! #! Establish a Condition Handler! P! The Establish a Condition Handler routine moves the address of a conditionL! handling routine (which can be a user-written or a library routine) toC! longword 0 of the stack frame of the caller of LIB$ESTABLISH.!  INTEGER*4 lib$establish EXTERNAL lib$establish! LIB$EXPAND_NODENAME! 4! Expand a Node Name to its Full Name equivalent! @! The Expand a Node Name to its Full Name equivalent routine6! 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! R! The Extract a Field and Sign-Extend routine returns a sign-extended longwordK! field that has been extracted from the specified variable bit field. !! LIB$EXTV makes the VAX EXTV! 2! instruction available as a callable routine.!  INTEGER*4 lib$extv EXTERNAL lib$extv! LIB$EXTZV! #! Extract a Zero-Extended Field! V! The Extract a Zero-Extended Field routine returns a longword zero-extended fieldE! that has been extracted from the specified variable bit field. #! LIB$EXTZV makes the VAX EXTZV! 2! instruction available as a callable routine.!  INTEGER*4 lib$extzv EXTERNAL lib$extzv ! LIB$FFC! !! Find First Clear or Set Bit! L! The Find First Clear or Set Bit routines search the field specified byI! the start position, size, and base for the first clear or set bit. M! 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! L! The Find First Clear or Set Bit routines search the field specified byI! the start position, size, and base for the first clear or set bit. M! 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!  6! Convert Device and File ID to File Specification! R! The Convert Device and File ID to File Specification routine converts a 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! P! The File Scan routine searches an area, such as a directory, for all filesR! matching the file specification given and transfers program execution to theU!  specified user-written routine. Wildcards are acceptable. An action routine isN! called for each file and/or error found. LIB$FILE_SCAN allows the searchV! sequence to continue even if an error occurs while processing a particular file.!  INTEGER*4 lib$file_scan EXTERNAL lib$file_scan! LIB$FILE_SCAN_END! ! End-of-File Scan! L! The End-of-File Scan routine is called after each sequence of calls toV! LIB$FILE_SCAN. LIB$FILE_SCAN_END deallocates  any saved Record Management ServiceU! (RMS) context and/or deallocates the virtual memory that had been allocated for9! holding the related file specification information.!  INTEGER*4 lib$file_scan_end EXTERNAL lib$file_scan_end! LIB$FIND_FILE! ! Find File! U! The Find File routine is called with a wildcard file specification for which itK! searches. LIB$FIND_FILE returns all file specifications that satisfy'! that wildcard file specification.!  INTEGER*4 lib$find_file EXTERNAL lib$find_file! LIB$FIND_FILE_END! ! End of Find File! Q! The End of Find File routine is called once after each sequence of calls toV! LIB$FIND_FILE. LIB$FIND_FILE_END deallocates any saved Record Management ServiceQ! (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! 3! Find Universal Symbol in Shareable Image File! O! The Find Universal Symbol in Shareable Image File routine reads universalV! symbols from the shareable image file. This routine then dynamically activates a=! shareable image into 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! C! The Return the Next Valid Zone Identifier routine returns theC! zone identifier of the next valid zone in the heap management! database.!  INTEGER*4 lib$find_vm_zone EXTERNAL lib$find_vm_zone! LIB$FIT_NODENAME! *! Fit a Node Name into an output field! 6! The Fit a Node Name into an output field routine,! fits a Node Name into an output field.!  INTEGER*4 lib$fit_nodename EXTERNAL lib$fit_nodename! LIB$FIXUP_FLT! #! Fix Floating Reserved Oper and! Q! The Fix Floating Reserved Operand routine finds the reserved operand of anyN! F-floating, D-floating, G-floating, or H-floating instruction (with someQ! exceptions) after a reserved operand fault has been signaled. LIB$FIXUP_FLTA! changes the reserved operand from --0.0 to the value of the5! new-operand argument, if present; or to +0.0 if! new-operand is absent.! G! This routine is available on Alpha VMS systems in translated form6! and is applicable to translated VAX images only.!  INTEGER*4 lib$fixup_flt EXTERNAL lib$fixup_flt! LIB$FLT_UNDER! (! Floating-Point Underflow Detection! H! The Floating-Point Underflow Detection routine enables or disablesQ! floating-point underflow detection for the calling routine activation. The7! previous setting is returned as a function value.! G! This routine is available on Alpha VMS systems in translated form6! 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! Q! The Format Date and/or Time routine allows the user to select at run time aF! specific output language and format for a date or time, or both.!  INTEGER*4 lib$format_date_time EXTERNAL lib$format_date_time ! LIB$FREE_DATE_TIME_CONTEXT! T! Free the Context Area Used When Formatting Dates and Times for Input or Output! H! The Free the Context Area Used When Formatting Dates and Times for#! Input or Output routine freesO! the virtual memory associated with the context 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! R! The Free Event Flag routine frees a local event flag previously allocated by>! LIB$GET_EF. LIB$FREE_EF is the complement of LIB$GET_EF.!  INTEGER*4 lib$free_ef EXTERNAL lib$free_ef! LIB$FREE_LUN! ! Free Logical Unit Number! V! The Free Logical Unit Number routine releases a logical unit number allocated by*! LIB$GET_LUN to the pool of available0! 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! A!  The Free Timer Storage routine frees the storage allocated ! by LIB$INIT_TIMER.!  INTEGER*4 lib$free_timer EXTERNAL lib$free_timer! LIB$FREE_VM! -! Free Virtual Memory from Program Region! U! The Free Virtual Memory from Program Region routine deallocates an entire blockS! of contiguous bytes that were allocated by a previous call to LIB$GET_VM. The6! arguments passed are the same as for LIB$GET_VM.!  INTEGER*4 lib$free_vm EXTERNAL lib$free_vm! LIB$FREE_VM_PAGE! ! Free Virtual Memory Page! A! The Free Virtual Memory Page routine deallocates a block ofF! contiguous 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$GETDVI! #! Get Device/Volume Information! V! The Get Device/Volume Information routine provides a simplified interface to theT! $GETDVI system service. It returns information about the primary and secondaryR! device characteristics of an I/O device. The calling process need not have aF! channel assigned to the device about which it wants information.!  INTEGER*4 lib$getdvi EXTERNAL lib$getdvi! LIB$GETJPI! !! Get Job/Process Information! T! The Get Job/Process Information routine provides a simplified interface to theP! $GETJPI system service. It provides accounting, status, and identification,! information about a specified process.G! LIB$GETJPI obtains only one item of information in a single call.!  INTEGER*4 lib$getjpi EXTERNAL lib$getjpi! LIB$GETQUI! ! Get Queue Information! N! The Get Queue Information routine provides a simplified interface to theK! $GETQUI system service. It provides queue, job, file, characteristic,! and form,! information about a specified process.G! LIB$GETQUI obtains only one item of information in a single call.!  INTEGER*4 lib$getqui EXTERNAL lib$getqui! LIB$GETSYI! ! Get Systemwide Information! S! The Get Systemwide Information routine provides a simplified interface to the! $GETSYI system service. `! The $GETSYI system service obtains status and identification information about the system.G! LIB$GETSYI returns only one item of information in a single call.!  INTEGER*4 lib$getsyi EXTERNAL lib$getsyi! LIB$GET_ACCNAM! 6! Get Access Name Table for Protected Object Class! J! The Get Access Name Table for Protected Object Class routine returnsJ! 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! 6! Get Access Name Table for Protected Object Class! J! The Get Access Name Table for Protected Object C lass routine returnsJ! 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! T! The Get Line from SYS$COMMAND routine gets one record of ASCII text from theR! 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! R! The Get String from Common routine copies a string in the common area to theV! destination string. (The common area is an area of storage which remains definedV! across multiple image activations in a process.) The string length is taken from,! the first longword of the common area.!  INTEGER*4 lib$get_common EXTERNAL lib$get_common! LIB$GET_CURR_INVO_CONTEXT! $! Get  Current Invocation Context! L! The Get Current Invocation Context routine gets the current invocation&! context of any active procedure.! O! ENTRY lib$get_curr_invo_context ALIAS $lib_get_curr_invo_context PARAMETER (/! LONGWORD UNSIGNED NAMED invo_context OUT1! TYPENAME invo_context_blk REFERENCE );! LIB$GET_CURR_INVO_HANDLE! #! Get Current Invocation Handle! K! The Get Current Invocation Handle routine gets the current invocation%!   handle of any active procedure.! A! ENTRY lib$get_curr_invo_handle ALIAS $lib_get_curr_invo_handleG! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned;! LIB$GET_DATE_FORMAT! &! Get the User's Date Input Format! L! The Get The User's Date Input Format routine returns information about4! 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! S! The Get Event Flag routine allocates one local event flag from a process-wideV! pool and returns the number of the allocated flag to the caller. If no flags areC! 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! O! The Get Foreign Command Line routine requests the calling image's CommandF! Language Interpreter (CLI) to return the contents of the foreign4! command line that activated the current image. ! foreign!  INTEGER*4 lib$get_foreign EXTERNAL lib$get_foreign! LIB$GET_FULLNAME_OFFSET! E! Get the Offset to the Starting Position of the Most Significant! Part of a Full Name! I! The Get the Offset to the Starting Position of the Most SignificantA! Part of a Full Name 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! B! 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! R! The Get Line from SYS$INPUT routine gets one record of ASCII text from the?! current controlling input device, specified by SYS$INPUT.!  INTEGER*4 lib$get_input EXTERNAL lib$get_input! LIB$GET_INVO_CONTEXT! ! Get Invocation Context ! D! The Get Invocation Context routine gets the invocation context! of any active procedure.! E! ENTRY lib$get_invo_context ALIAS $lib_get_invo_context PARAMETER (-! LONGWORD UNSIGNED NAMED invo_handle IN&! TYPENAME invo_handle VALUE,/! LONGWORD UNSIGNED NAMED invo_context OUT0!  TYPENAME invo_context_blk REFERENCE )G! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned;! LIB$GET_INVO_HANDLE! ! Get Invocation Handle! B! The Get Invocation Handle routine gets the invocation handle! of any active procedure.! C! ENTRY lib$get_invo_handle ALIAS $lib_get_invo_handle PARAMETER (/! LONGWORD UNSIGNED NAMED invo_context OUT0! TYPENAME invo_context_blk REFERENCE )G! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned;! LIB$GET_LOGICAL! ! Get Logical! J! 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 Logical Unit Number! R! The Get Logical Unit Number routine allocates one logical unit number from aO! process-wide pool. If a unit is available, its number is returned to theE! caller. Otherwise, an error is returned as the function value.!  INTEGER*4 lib$get_lun EXTERNAL lib$get_lun!! LIB$GET_MAXIMUM_DATE_LENGTH! 7! Retrieve the Maximum Length of a Date/Time String! J! Given an output format and language, the Retrieve the Maximum LengthN! 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_PREV_INVO_CONTEXT! %! Get Previous Invocation Context! N! The Get Previous Invocation Context routine gets the previous invocation&! context of any active procedure.! O! ENTRY lib$get_prev_invo_context ALIAS $lib_get_prev_invo_context PARAMETER (2! LONGWORD UNSIGNED NAMED invo_context IN OUT0! TYPENAME invo_context_blk REFERENCE )G! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned;! LIB$GET_PREV_INVO_HANDLE! $! Get Previous Invocation Handle! M! The Get Previous Invocation Handle routine gets the previous invocation%! handle of any active procedure.! M! ENTRY lib$get_prev_invo_handle ALIAS $lib_get_prev_invo_handle PARAMETER (-! LONGWORD UNSIGNED NAMED invo_handle IN'! TYPENAME invo_handle VALUE )G! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned;! LIB$GET_SYMBOL! ! Get Value of CLI Symbol! P! The Get Value of CLI Symbol routine requests the calling process's CommandQ! Language Interpreter (CLI) to return the value of a CLI symbol as a string.V! LIB$GET_SYMBOL then returns the string to the caller. Optionally, LIB$GET_SYMBOLS! can return the length of the returned value and the table in which the symbol! was found.!  INTEGER*4 lib$get_symbol EXTERNAL lib$get_symbol! LIB$GET_USERS_LANGUAGE! ! Return the User's Language! V! The Return the User's Language routine determines the user's choice of a naturalQ! 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! T! The Allocate Virtual Memory routine allocates a specified number of contiguousS! bytes in the program region and returns the virtual address of the first byte! allocated.!  INTEGER*4 lib$get_vm EXTERNAL lib$get_vm! LIB$GET_VM_PAGE! ! Get Virtual Memory Page! I! The Get Virtual Memory Page routine allocates a specified number ofL! contiguous pages on VAX and pagelets on Alpha of memory in the programK! 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$ICHAR! 2! Convert First Character of String to Integer! Q! The Convert First Character of String to Integer routine converts the firstT! character of a source string to an 8-bit ASCII integer extended to a longword.!  INTEGER*4 lib$ichar EXTERNAL lib$ichar! LIB$INDEX! -! Index to Relative Position of Substring! T! The Index to Relative Position of Substring routine returns an index, which isP! 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! X! Initialize the Context Area Used in Formatting Dates and Times for Input or Output! L! The Initialize the Context Area Used in Formatting Dates and Times for! Input or OutputD! routine allows the user to initialize the context area used byL! LIB$FORMAT_DATE_TIME or LIB$CONVERT_DATE_STRING with specific strings,2! 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! T! The Initialize Times and Counts routine stores the current values of specified0! 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! U! 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$INSQHI! #! Insert Entry at Head of Queue! T! The Insert Entry at Head of Queue routine inserts a queue entry at the head ofM! the specified self-relative interlocked queue. LIB$INSQHI makes the VAX9! INSQHI instruction available as a callable routine.!  INTEGER*4 lib$insqhi EXTERNAL lib$insqhi! LIB$INSQTI! #! Insert Entry at Tail of Queue! L! The Insert Entry at Tail of Queue routine inserts a queue entry at theH! tail of the specified self-relative interlocked queue. LIB$INSQTIG! makes the VAX INSQTI instruction available as a callable routine.!  INTEGER*4 lib$insqti EXTERNAL lib$insqti! LIB$INSV! !! Insert a Variable Bit Field! M! The Insert a Variable Bit Field routine replaces the variable bit field M! specified by the base, position, and size arguments with bits 0 throughK! of the source field. If the size of the bit field is zero, nothing isG! inserted. LIB$INSV makes the VAX INSV instruction available as a! callable routine.!  ! Subroutine lib$insv! LIB$INT_OVER! ! Integer Overflow Detection! Q! The Integer Overflow Detection routine enables or disables integer overflowR! detection for the calling routine activation. The previous integer overflow!! enable setting is returned.! G! This routine is available on Alpha VMS systems in translated form6! and is applicable to translated VAX images only.!  INTEGER*4 lib$int_over EXTERNAL lib$int_over ! LIB$LEN! 1! Length of String Returned as Longword Value! U! 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! Q! The Locate a Character routine locates a character in a string by comparingM! successive bytes in the string with the character specified. The searchR! continues until the character is found or the string has no more characters.!! LIB$LOCC makes the VAX LOCC! 2! instruction available as a callable routine.!  INTEGER*4 lib$locc EXTERNAL lib$locc! LIB$LOOKUP_KEY! ! Look Up Keyword in Table! U! ! The Look Up Keyword In Table routine scans a table of keywords to find one that>! matches the keyword or keyword abbreviation specified by! search-string.!  INTEGER*4 lib$lookup_key EXTERNAL lib$lookup_key! LIB$LOOKUP_TREE! 0! Look Up an Entry in a Balanced Binary Tree! S! 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 EXTERNAL lib$lookup_tree! " LIB$LP_LINES! ! Lines on Each Printer Page! V! The Lines on Each Printer Page routine computes the default number of lines on aN! 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! 0! Match Characters, Return Relative Position! Q! The Match Characters and Return Relative Position routine searches a sou #rceR! string for a specified substring and returns an index, which is the relativeK! position of the first occurrence of a substring in the source string.J! The relative character positions returned by LIB$MATCHC are numberedC! 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! Q! The Match Condition Values routine checks to see if a given cond$ition value9! matches a list of condition values that you supply.!  INTEGER*4 lib$match_cond EXTERNAL lib$match_cond! LIB$MOVC3! ! Move Characters! 5! The Move Characters routine makes the VAX MOVC3! 2! instruction available as a callable routine.B! The source item is moved to the destination item. Overlap ofB! the source and destination items does not affect the result.!  ! Subroutine lib$movc3! LIB$MOVC5! %! Move Characters with Fill! ?! The Move Characters with Fill routine makes the VAX MOVC5! 2! instruction available as a callable routine.7! The source item is moved to the destination item.M! Overlap of the source and destination items does not affect the result.!  ! Subroutine lib$movc5! LIB$MOVTC! ! Move Translated Characters! R! The Move Translated Characters routine moves the source string, character byU! characte&r, to the destination string after translating each character using the#! specified translation table. #! LIB$MOVTC makes the VAX MOVTC! 2! instruction available as a callable routine.!  INTEGER*4 lib$movtc EXTERNAL lib$movtc! LIB$MOVTUC! %! Move Translated Until Character! T! The Move Translated Until Character routine moves the source string, characterT! by character, to the destination string after translating each character using'N! the specified translation table until the stop character is encountered.%! LIB$MOVTUC makes the VAX MOVTUC! 2! instruction available as a callable routine.!  INTEGER*4 lib$movtuc EXTERNAL lib$movtuc! LIB$MULTF_DELTA_TIME! 1! Multiply Delta Time by an F_Floating Scalar! U! The Multiply Delta Time by an F-Floating Scalar routine multiplies a delta time! by an F-floating scalar.!  INTEGER*4 lib$multf_delta_time EXTERNAL li(b$multf_delta_time! LIB$MULT_DELTA_TIME! #! Multiply Delta Time by Scalar! ]! 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! H! The Parse Access Encoded Name String routine parses and translatesE! a string of access names into a mask for a particular )ownership! category.! 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 translates1! a protection string into a protection mask.!  INTEGER*4 lib$parse_sogw_prot EXTERNAL lib$parse_sogw_prot! LIB$PAUSE! ! Pause Program Execution! P! The Pause Program Execution routine suspends program execution* and returns+! control to the calling command level.!  INTEGER*4 lib$pause EXTERNAL lib$pause! LIB$POLYD! ! Evaluate Polynomials! T! The Evaluate Polynomials routine (D-floating point values) allows higher-levelD! language users to evaluate D-floating point value polynomials.!  INTEGER*4 lib$polyd EXTERNAL lib$polyd! LIB$POLYF! ! Evaluate Polynomials! T! The Evaluate Polynomials routine (F-floating point value+s) allows higher-level>! language users to evaluate F-floating point polynomials.!  INTEGER*4 lib$polyf EXTERNAL lib$polyf! LIB$POLYG! ! Evaluate Polynomials! T! The Evaluate Polynomials routine (G-floating point values) allows higher-levelD! language users to evaluate G-floating point value polynomials.!  INTEGER*4 lib$polyg EXTERNAL lib$polyg! LIB$POLYH! ! Evaluate Polynomials! T! On VAX VMS, the Evaluate Pol ,ynomials routine (H-floating point values) allows Q! higher-level language users to evaluate H-floating point value polynomials.! H! This routine is not available to native Alpha VMS programs, but is)! available to translated VAX images.! H! This routine is not available to native Alpha VMS programs, but isN! recognized and handled appropriately by most Digital high-level language! compilers.!  INTEGER*4 lib$polyh EXTERNAL lib$polyh! LIB$PUT_COMMON -! ! Put String to Common! V! The Put String to Common routine copies the contents of a string into the commonN! area. The common area is an area of storage which remains defined acrossU! multiple image activations in a process. Optionally, LIB$PUT_COMMON returns theV! actual number of characters copied. The maximum number of characters that can be! copied is 252.!  INTEGER*4 lib$put_common EXTERNAL lib$put_common! LIB$PUT_INVO_REGISTERS! . ! Put Invocation Registers! O! The Put Invocation Registers routine updates a given procedure invocation2! context's fields with new register contents.! I! ENTRY lib$put_invo_registers ALIAS $lib_put_invo_registers PARAMETER (-! LONGWORD UNSIGNED NAMED invo_handle IN&! TYPENAME invo_handle VALUE,.! LONGWORD UNSIGNED NAMED invo_context IN/! TYPENAME invo_context_blk REFERENCE,+! QUADWORD UNSIGNED NAMED invo_mask IN-! / TYPENAME mask_quadword REFERENCE )3! RETURNS LONGWORD UNSIGNED TYPENAME cond_value;! LIB$PUT_OUTPUT! ! Put Line to SYS$OUTPUT! S! The Put Line to SYS$OUTPUT routine writes a record to the current controllingH! 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! R! The Radix Point Symbol routine returns the system's 0radix point symbol. ThisP! symbol is used inside a digit string to separate the integer part from theS! fraction part. This routine works by attempting to translate the logical nameB! 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! S! The Remove Entry from Head of Queue routine removes an entry from the head of5! the specified 1self-relative interlocked queue. %! LIB$REMQHI makes the VAX REMQHI! 2! instruction available as a callable routine.!  INTEGER*4 lib$remqhi EXTERNAL lib$remqhi! LIB$REMQTI! %! Remove Entry from Tail of Queue! S! The Remove Entry from Tail of Queue routine removes an entry from the tail of5! the specified self-relative interlocked queue. %! LIB$REMQTI makes the VAX REMQTI! 2! instruction available as a callable routine.2!  INTEGER*4 lib$remqti EXTERNAL lib$remqti! LIB$RENAME_FILE! ! Rename One or More Files! R! The Rename One or More Files routine changes the names of one or more files.I! The specification of the files to be renamed may include wildcards.G! 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! U! The Reserve 3Event 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! P! 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$REVERT! 4! Revert to the Handler of the Routine Activator4! L! The Revert to the Handler of the Routine Activator routine deletes theU! condition handler established by LIB$ESTABLISH by clearing the address pointingH! to the condition handler from the activated routine's stack frame.!  INTEGER*4 lib$revert EXTERNAL lib$revert! LIB$RUN_PROGRAM! ! Run New Program! P! The Run New Program routine causes the current program to stop running and*! begins execution of another program.!  INT5EGER*4 lib$run_program EXTERNAL lib$run_program! LIB$SCANC! 6! Scan for Characters and Return Relative Position! T! The Scan for Characters and Return Relative Position routine is used to find a8! specified set of characters in the source string. #! LIB$SCANC makes the VAX SCANC! 2! instruction available as a callable routine.!  INTEGER*4 lib$scanc EXTERNAL lib$scanc! LIB$SCOPY_DXDX! <! Copy Source String Passed by Descr6iptor to Destination! Q! The Copy Source String Passed by Descriptor to Destination routine copies aA! source string passed by descriptor to a destination string.!  INTEGER*4 lib$scopy_dxdx EXTERNAL lib$scopy_dxdx! LIB$SCOPY_R_DX! B! Copy Source String Passed by Reference to Destination String! U! The Copy Source String Passed by Reference to Destination String routine copiesB! a source string passed by reference to a destination string.7!  INTEGER*4 lib$scopy_r_dx EXTERNAL lib$scopy_r_dx! LIB$SET_LOGICAL! ! Set Logical Name! R! The Set Logical Name routine requests the calling process's Command LanguageU! Interpreter (CLI) to define or redefine a supervisor-mode 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! P! The 8Set Value of CLI Symbol routine requests the calling process's CommandD! 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! L! 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 Dyn9amic Strings! V! 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! P! 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$SHOW_TIMER! '! Show Accumulated Times and Count:s! L! The Show Accumulated Times and Counts routine returns times and countsL! accumulated since the last call to LIB$INIT_TIMER and displays them onG! SYS$OUTPUT. (LIB$INIT_TIMER must be called prior to invoking thisF! 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! S! The Show Virtual Memory Statisti ;cs routine returns the statistics accumulated*! from calls to LIB$GET_VM/LIB$FREE_VM,! and LIB$GET_VM_PAGE/LIB$FREE_VM_PAGE. !  INTEGER*4 lib$show_vm EXTERNAL lib$show_vm! LIB$SHOW_VM_ZONE! %! Return Information About a Zone! U! The Return Information About a Zone routine returns formatted information aboutH! the specified zone, detailing such information as the zone's name,U! characteristics, and areas, and then passes the information to t<he specified or! default action routine.!  INTEGER*4 lib$show_vm_zone EXTERNAL lib$show_vm_zone! LIB$SIGNAL! ! Signal Exception Condition! V! The Signal Exception Condition routine generates a signal that indicates that anS! exception condition has occurred in your program. If a condition handler doesT! 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! U! The Signal Converted to a Return Status routine converts any signaled conditionT! value to a value returned as a function. The signaled condition is returned toQ! the caller of the user routine that established the handler that is callingS! 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! 5! Convert a Signaled Condition to a Signaled Stop! U! The Convert a Signaled Condition to a Signaled Stop routine converts a signaledA! 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! T! The Simulate Floating Trap routine converts floating faults to floating traps.G! It can be enabled as a condition handler or can ?be called by one.! H! 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! V! The Skip Equal Characters routine compares each character of a given string withO! a given character and returns the relative position of the first nonequal! character as an index. !! LIB$SKPC makes the VAX SKPC! @2! instruction available as a callable routine.!  INTEGER*4 lib$skpc EXTERNAL lib$skpc! LIB$SPANC! ! Skip Selected Characters! M! The Skip Selected Characters routine is used to skip a specified set ofE! characters in the source string. LIB$SPANC makes the VAX SPANC2! instruction available as a callable routine.!  INTEGER*4 lib$spanc EXTERNAL lib$spanc! LIB$SPAWN! ! Spawn Subprocess! U! The Spawn Subpro Acess routine requests the command language interpreter (CLI) ofV! the calling process to spawn a subprocess for executing CLI commands. LIB$SPAWN:! provides the same function as the DCL SPAWN command.!  INTEGER*4 lib$spawn EXTERNAL lib$spawn! LIB$STAT_TIMER! 5! Statistics, Return Accumulated Times and Counts! P! The Statistics, Return Accumulated Times and Counts routine returns to itsP! caller one of five available statistics accumulated since Bthe last call toQ! LIB$INIT_TIMER. Unlike LIB$SHOW_TIMER, which formats the values for output,K! LIB$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! S! The Return Virtual Memory Statistics routine returns to its caller one of sixC! statistics available from calls to LIB$GET_VM/LIB$FREE_VM andT! LIB$GET_VM_PAGE/LIB$FREE_V CM_PAGE. Unlike LIB$SHOW_VM, which formats the valuesV! for output and displays them on SYS$OUTPUT, LIB$STAT_VM returns the statistic inI! 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_ZONE! %! Return Information About a Zone! K! The Return Information About a Zone routine returns a single piece of,! information about the specified Dzone. ! 9! 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,2! LONGWORD NAMED resultant_value OUT OPTIONAL.! TYPENAME longword_signed REFERENCE,A! CHARACTER RTL_STR_DESC NAMED resultant_string OUT OPTIONAL ! TYPENAM EE char_string,8! WORD UNSIGNED NAMED resultant_length OUT OPTIONAL-! TYPENAME word_unsigned REFERENCE )3! RETURNS LONGWORD UNSIGNED TYPENAME cond_value;! LIB$STOP! -! Stop Execution and Signal the Condition! Q! The Stop Execution and Signal the Condition routine generates a signal thatS! indicates that an exception condition has occurred in your program. ExceptionO! conditions signaled by LIB$STOP cannot be continued from the point of theF ! signal.!  ! Subroutine lib$stop! LIB$SUBX! +! Multiple-Precision Binary Subtraction! V! The Multiple-Precision Binary Subtraction routine performs subtraction on signed4! 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.!  IGNTEGER*4 lib$sub_times EXTERNAL lib$sub_times! LIB$SYS_ASCTIM! ;! Invoke $ASCTIM to Convert Binary Time to ASCII String! Q! The Invoke $ASCTIM to Convert Binary Time to ASCII String routine calls theS! 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! 1! Invoke $FAO System ServiceH to Format Output! U! The Invoke $FAO System Service to Format Output routine calls $FAO, returning aS! string in the semantics you provide. If called with other than a fixed-lengthS! 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! 2! Invoke $FAOL System Service to Format Output! O! The Invoke $FAOL System Service to I Format Output routine calls the systemR! service routine $FAOL, returning the string in the semantics you provide. IfP! called with other than a fixed-length string for output, the length of theI! resultant string is limited to 256 bytes and truncation will occur.!  INTEGER*4 lib$sys_faol EXTERNAL lib$sys_faol! LIB$SYS_GETMSG! 7! Invoke $GETMSG System Service to Get Message Text! T! The Invoke $GETMSG System Service to Get Message Text routine Jcalls the SystemJ! Service $GETMSG and returns a message string into destination-string1! 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! R! The Invoke $TRNLOG System Service to Translate Logical Name routine uses theT! system service $TRNLOG to translate a logical name. LIB$SYS_TRNLOG returns theL! logical name's trans Klation 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! U! The Table-Driven Finite State Parser routine is a general-purpose, table-drivenR! parser implemented as a finite-state automaton, with extensions that make itG! suitable for a wide range of applications. It parses a string andL! returns a message indicating whether or not the inLput string is valid.! 3! LIB$TPARSE performs this function on VAX VMS.! J! LIB$TABLE_PARSE performs this function on Alpha VMS and is availableM! only on Alpha VMS. LIB$TPARSE is available in translated form on AlphaM! 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_parse INTEGER*4 lib$tparse EXTERNAL lib$tparse! LIB$TRAVERSE_TREE! M %! Traverse a Balanced Binary Tree! R! 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$TRA_ASC_EBC! ! Translate ASCII to EBCDIC! S! 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! ! N Translate EBCDIC to ASCII! J! 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! 2! Fit Long File Specification into Fixed Field! K! The Fit Long File Specification into Fixed Field routine takes a fileN! specification, such as an RMS resultant name string, and shortens it (if=! necessary) so that it fits into a field of fixed widthO.!  INTEGER*4 lib$trim_filespec EXTERNAL lib$trim_filespec! LIB$TRIM_FULLNAME! 9! Trim a Full Name to Fit into a Desired Output Field! E! 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! 9! The Convert a UID to Text routine converts a UID to7! stPandard representation ina an ASCII text string.!  INTEGER*4 lib$uid_to_ascii EXTERNAL lib$uid_to_ascii! LIB$VERIFY_VM_ZONE! ! Verify a Zone! @! The Verify a Zone routine performs verification of a zone.!  INTEGER*4 lib$verify_vm_zone EXTERNAL lib$verify_vm_zone! LIB$WAIT! %! Wait a Specified Period of Time! Q! The Wait a Specified Period of Time routine places the current process intoF! hibernation for the number of se Qconds specified in its argument.!  INTEGER*4 lib$wait EXTERNAL lib$waitCDEC$ END OPTIONSww! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:02 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:02 FORD2$:[VFORT.KIT.FORSYSDEF]MAIL$ROUTI RNES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** '!*** MODULE MAIL$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! ! C! This package defines the interfaces to the callable OpenVMS MAILC! routines as documented in the OpenVMS Utility Routines Reference ! Manual. ! ! S! Mail File routines! ! 2! MAILFILE_BEGIN - Initiates mail file processing! F! 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! 7! MAILFILE_CLOSE - Closes the currently open mail file! F! status = MAIL$MAILFILE_CLOSE (context, in_item_list, out_item_list)! !! context T- 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! I! 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! 1! MAILFILE_END - UTerminates mail file processing! D! 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! G! MAILFILE_INFO_FILE - Obtains information about a specified mail file! J! status = MAIL$MAILFILE_INFO_FILE (context, in_item_list, out_item_list)! !! context - Context value#! in_item_list - VInput item list$! out_item_list - Output item list! " INTEGER*4 MAIL$MAILFILE_INFO_FILE! EXTERNAL MAIL$MAILFILE_INFO_FILE! E! MAILFILE_MODIFY - Modifies the information in an indexed mail file! G! 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 speWcified mail file for processing! E! 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! L! status = MAIL$MAILFILE_PURGE_WASTE (context, in_item_list, out_item_list)! !! context - Context value#! in_item_list - InXput 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! E! 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 messaYges between files or folders! D! 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! F! status = MAIL$MESSAGE_DELETE (context, in_item_list, out_item_list)! !! context - Context value#! in_item_list - Input item list$! out_item_list - OutpZut item list!  INTEGER*4 MAIL$MESSAGE_DELETE EXTERNAL MAIL$MESSAGE_DELETE! (! MESSAGE_END - Ends message processing! C! 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! F! MESSAGE_GET - Retrieves a message from the set of selected messages! C! 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! D! 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! 0! MESSAGE_MODIFY = Modifies message information! F! 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! F! status = MAIL$MESSAGE_SELECT (context, in_item_list, out_item_list)! !! context - Co]ntext value#! in_item_list - Input item list$! out_item_list - Output item list!  INTEGER*4 MAIL$MESSAGE_SELECT EXTERNAL MAIL$MESSAGE_SELECT! ! Send routines! ! 0! SEND_ABORT - Cancels a current send operation! B! 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! 9! SEND_ADD_ADDR^ESS - Adds an address to the address list! H! 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! @! SEND_ADD_ATTRIBUTE - Adds an attribute to the current message! J! 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! 6! SEND_BEGIN - Initiates processing to send a message! B! 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! 3! SEND_ADD_BODYPART - Builds the body of a mess`age! I! 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! @! 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 lista!  INTEGER*4 MAIL$SEND_END EXTERNAL MAIL$SEND_END! 4! SEND_MESSAGE - Begins actual sending of a message! D! 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! B! status = MAIL$USER_BEGIN b(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! D! USER_DELETE_INFO - Remove a user record from the common data base! H! 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$UScER_DELETE_INFO EXTERNAL MAIL$USER_DELETE_INFO! <! USER_END - terminates access to the common user data base! @! 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! 3! USER_GET_INFO - Obtains information about a user! E! status = MAIL$USER_GET_INFO (context, in_item_list, out_item_list)! !! contexdt - 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! E! 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_INFOCDEC$ END OPTIeONSwwmW[! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:07 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:06 FORD2$:[VFORT.KIT.FORSYSDEF]MTH$ROUTINES.SDI;1 ! ************************************************************************************ f*********************************************************************************************************************************************************************** !*** MODULE mth$routines ***CDEC$ OPTIONS /NOALIGNM! ***************************************************************************! *1! COPYRIGHT (c) 1988 BY *A! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *M! g 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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFERRED. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT ThO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! ***************************************************************************! MTH$ACOS! .! Arc Cosine of Angle Expressed in Radians! Pi! 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! P! 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! jMTH$GACOS! .! Arc Cosine of Angle Expressed in Radians! P! 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! P! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees! routine returns that! angle (in degrees).!  REAL*4 mkth$acosd EXTERNAL mth$acosd! MTH$DACOSD! .! Arc Cosine of Angle Expressed in Degrees! P! 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! P! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degreles! routine returns that! angle (in degrees). !  REAL*8 mth$gacosd EXTERNAL mth$gacosd! MTH$ASIN! ! Arc Sine in Radians! 9! 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! 9! Given the sine of an angle, the Arc Sine in Radians ! routine returns that angle! (in mradians).-!  REAL*8 mth$dasin EXTERNAL mth$dasin! MTH$GASIN"! ! Arc Sine in Radians! 9! 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! 9! Given the sine of an angle, the Arc Sine in Degrees ! routine returns nthat angle! (in degrees).!  REAL*4 mth$asind EXTERNAL mth$asind! MTH$DASIND! ! Arc Sine in Degrees! 9! 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! 9! Given the sine of an angle, the Arc Sine in Degrees ! routine returns thato 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 Radians.! 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 Radians/! routine returns that angle (in radians). -! p  REAL*8 mth$datan EXTERNAL mth$datan! MTH$GATAN! ! Arc Tangent in Radians! ?! Given the tangent of an angle, the Arc Tangent in Radians/! routine returns that angle (in radians). -!  REAL*8 mth$gatan EXTERNAL mth$gatan! MTH$ATAN2! /! Arc Tangent in Radians with Two Arguments! 1! Given cosine and cosine, the Arc Tangent in ! Radians with Twoq Arguments,! routine returns the angle (in radians)B! whose tangent is given by the quotient of cosine and cosine,! cosine/cosine.!  REAL*4 mth$atan2 EXTERNAL mth$atan2! MTH$DATAN2! /! Arc Tangent in Radians with Two Arguments! 2! Given cosine and cosine, the Arc Tangent in ! Radians with Two Arguments,! routine returns the angle (in radians)B! whose tangent is given by the quotient of cosine and cosine,! cosine/cosine. r-!  REAL*8 mth$datan2 EXTERNAL mth$datan2! MTH$GATAN2! /! Arc Tangent in Radians with Two Arguments! 2! Given cosine and cosine, the Arc Tangent in ! Radians with Two Arguments,! routine returns the angle (in radians)B! 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 Dsegrees! ?! Given the tangent of an angle, the Arc Tangent in Degrees.! 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 Degrees/! routine returns that angle (in degrees). -!  REAL*8 mth$datand EXTERNAL mth$datand! MTH$GATAND! ! Arc Tangent in Degtrees! ?! Given the tangent of an angle, the Arc Tangent in Degrees/! routine returns that angle (in degrees). !  REAL*8 mth$gatand EXTERNAL mth$gatand! MTH$ATANH! ! Hyperbolic Arc Tangent! J! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent! routine returns/! the hyperbolic arc tangent of that angle.!  REAL*4 mth$atanh EXTERNAL mth$atanh! MTH$DATANH! ! Hyperbolic Arc Tangentu! J! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent! routine returns/! the hyperbolic arc tangent of that angle.-!  REAL*8 mth$datanh EXTERNAL mth$datanh! MTH$GATANH! ! Hyperbolic Arc Tangent! J! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent! routine returns/! the hyperbolic arc tangent of that angle.!  REAL*8 mth$gatanh EXTERNAvL mth$gatanh! MTH$ATAND2! /! Arc Tangent in Degrees with Two Arguments! 1! Given cosine and cosine, the Arc Tangent in ! Degrees with Two Arguments! routine returns*! the angle (in degrees) whose tangent4! is given by the quotient of cosine and cosine,! cosine/cosine.!  REAL*4 mth$atand2 EXTERNAL mth$atand2! MTH$DATAND2! /! Arc Tangent in Degrees with Two Arguments! 2! Given cosine and cosine, the Arcw Tangent in ! Degrees with Two Arguments! routine returns *! the angle (in degrees) whose tangent5! is given by the quotient of cosine and cosine, ! cosine/cosine.-!  REAL*8 mth$datand2 EXTERNAL mth$datand2! MTH$GATAND2! /! Arc Tangent in Degrees with Two Arguments! 2! Given cosine and cosine, the Arc Tangent in ! Degrees with Two Arguments! routine returns *! the angle (in xdegrees) whose tangent5! is given by the quotient of cosine and cosine, ! cosine/cosine.!  REAL*8 mth$gatand2 EXTERNAL mth$gatand2! BLAS1$VISAMAX! >! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value! E! The Otain the Index of the First Element of a Vector Having the<! Largest Absolute Value routines find the index of the F! first occurrence of a vector element having the maximum absolute ! value.y!  INTEGER*4 blas1$visamax EXTERNAL blas1$visamax! BLAS1$VIDAMAX! >! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value! E! The Otain the Index of the First Element of a Vector Having the<! Largest Absolute Value routines find the index of the F! first occurrence of a vector element having the maximum absolute ! value.!  INTEGER*4 blas1$vidamax EXTERNAL blas1$vidamax! BLAS1$VIGAMAX! >! Obtain the Indzex of the First Element of a Vector Having ! the Largest Absolute Value! E! The Otain the Index of the First Element of a Vector Having the<! Largest Absolute Value routines find the index of the F! first occurrence of a vector element having the maximum absolute ! value.!  INTEGER*4 blas1$vigamax EXTERNAL blas1$vigamax! BLAS1$VICAMAX! >! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value! E! The Otain the {Index of the First Element of a Vector Having the<! Largest Absolute Value routines find the index of the F! first occurrence of a vector element having the maximum absolute ! value.!  INTEGER*4 blas1$vicamax EXTERNAL blas1$vicamax! BLAS1$VIZAMAX! >! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value! E! The Otain the Index of the First Element of a Vector Having the<! Largest Absolute Value routines find the ind|ex of the F! first occurrence of a vector element having the maximum absolute ! value.!  INTEGER*4 blas1$vizamax EXTERNAL blas1$vizamax! BLAS1$VIWAMAX! >! Obtain the Index of the First Element of a Vector Having ! the Largest Absolute Value! E! The Otain the Index of the First Element of a Vector Having the<! Largest Absolute Value routines find the index of the F! first occurrence of a vector element having the maximum absolute ! value.! } INTEGER*4 blas1$viwamax EXTERNAL blas1$viwamax! BLAS1$VSASUM! G! Obtain the Sum of the Absolute Values of the Elements of a Vector! K! The Obtain the Sum of the Absolute Values of the Elements of a VectorJ! routines determine the sum of the absolute values of the elements of! the x-element vector x.!  REAL*4 blas1$vsasum EXTERNAL blas1$vsasum! BLAS1$VDASUM! G! Obtain the Sum of the Absolute Values of the Elements of a Vector! K! The ~Obtain the Sum of the Absolute Values of the Elements of a VectorJ! routines determine the sum of the absolute values of the elements of! the x-element vector x.!  REAL*8 blas1$vdasum EXTERNAL blas1$vdasum! BLAS1$VGASUM! G! Obtain the Sum of the Absolute Values of the Elements of a Vector! K! The Obtain the Sum of the Absolute Values of the Elements of a VectorJ! routines determine the sum of the absolute values of the elements of! the x-element vector x.!  REAL*8 blas1$vgasum EXTERNAL blas1$vgasum! BLAS1$VSCASUM! G! Obtain the Sum of the Absolute Values of the Elements of a Vector! K! The Obtain the Sum of the Absolute Values of the Elements of a VectorJ! routines determine the sum of the absolute values of the elements of! the x-element vector x.!  COMPLEX blas1$vscasum EXTERNAL blas1$vscasum! BLAS1$VDZASUM! G! Obtain the Sum of the Absolute Values of the Elements of a Vector! K! The Obtain the Sum of the Absolute Values of the Elements of a VectorJ! routines determine the sum of the absolute values of the elements of! the x-element vector x.!  COMPLEX*16 blas1$vdzasum EXTERNAL blas1$vdzasum! BLAS1$VGWASUM! G! Obtain the Sum of the Absolute Values of the Elements of a Vector! K! The Obtain the Sum of the Absolute Values of the Elements of a VectorJ! routines determine the sum of the absolute values of the elements of! the x-element vector x.!  COMPLEX*16 blas1$vgwasum EXTERNAL blas1$vgwasum! BLAS1$VSAXPY! 4! Multiply a Vector by a Scalar and Add a Vector! I! The Multiply a Vector by a Scalar and Add a Vector routines computeF! n, where n is a scalar number and n and n are n-element vectors.!  ! Subroutine blas1$vsaxpy! BLAS1$VDAXPY! 4! Multiply a Vector by a Scalar and Add a Vector! I! The Multiply a Vector by a Scalar and Add a Vector routines computeF! n, where n is a scalar number and n and n are n-element vectors.!  ! Subroutine blas1$vdaxpy! BLAS1$VGAXPY! 4! Multiply a Vector by a Scalar and Add a Vector! I! The Multiply a Vector by a Scalar and Add a Vector routines computeF! n, where n is a scalar number and n and n are n-element vectors.!  ! Subroutine blas1$vgaxpy! BLAS1$VCAXPY! 4! Multiply a Vector by a Scalar and Add a Vector! I! The Multiply a Vector by a Scalar and Add a Vector routines computeF! n, where n is a scalar number and n and n are n-element vectors.!  ! Subroutine blas1$vcaxpy! BLAS1$VZAXPY! 4! Multiply a Vector by a Scalar and Add a Vector! I! The Multiply a Vector by a Scalar and Add a Vector routines computeF! n, where n is a scalar number and n and n are n-element vectors.!  ! Subroutine blas1$vzaxpy! BLAS1$VWAXPY! 4! Multiply a Vector by a Scalar and Add a Vector! I! The Multiply a Vector by a Scalar and Add a Vector routines computeF! n, where n is a scalar number and n and n are n-element vectors.!  ! Subroutine blas1$vwaxpy! BLAS1$VSCOPY! ! Copy a Vector! 7! The Copy a Vector routines copy n elements of the! vector x to the vector y.!  ! Subroutine blas1$vscopy! BLAS1$VDCOPY! ! Copy a Vector! 7! The Copy a Vector routines copy n elements of the! vector x to the vector y.!  ! Subroutine blas1$vdcopy! BLAS1$VCCOPY! ! Copy a Vector! 7! The Copy a Vector routines copy n elements of the! vector x to the vector y.!  ! Subroutine blas1$vccopy! BLAS1$VZCOPY! ! Copy a Vector! 7! The Copy a Vector routines copy n elements of the! vector x to the vector y.!  ! Subroutine blas1$vzcopy! BLAS1$VSDOT! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  REAL*4 blas1$vsdot EXTERNAL blas1$vsdot! BLAS1$VDDOT! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  REAL*8 blas1$vddot EXTERNAL blas1$vddot! BLAS1$VGDOT! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  REAL*8 blas1$vgdot EXTERNAL blas1$vgdot! BLAS1$VCDOTU! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  COMPLEX blas1$vcdotu EXTERNAL blas1$vcdotu! BLAS1$VCDOTC! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  COMPLEX blas1$vcdotc EXTERNAL blas1$vcdotc! BLAS1$VZDOTU! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  COMPLEX*16 blas1$vzdotu EXTERNAL blas1$vzdotu! BLAS1$VZDOTC! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  COMPLEX*16 blas1$vzdotc EXTERNAL blas1$vzdotc! BLAS1$VWDOTU! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  COMPLEX*16 blas1$vwdotu EXTERNAL blas1$vwdotu! BLAS1$VWDOTC! -! Obtain the Inner Product of Two Vectors! :! The Obtain the Inner Product of Two Vectors routines6! return the dot product of two y-element vectors, ! x and y!  COMPLEX*16 blas1$vwdotc EXTERNAL blas1$vwdotc! BLAS1$VSNRM2! +! Obtain the Euclidean Norm of a Vector! D! The Obtain the Ecudlicean Norm of a Vector routines obtain the.! Euclidean norm of an n-element vector x.!  REAL*4 blas1$vsnrm2 EXTERNAL blas1$vsnrm2! BLAS1$VDNRM2! +! Obtain the Euclidean Norm of a Vector! D! The Obtain the Ecudlicean Norm of a Vector routines obtain the.! Euclidean norm of an n-element vector x.!  REAL*8 blas1$vdnrm2 EXTERNAL blas1$vdnrm2! BLAS1$VGNRM2! +! Obtain the Euclidean Norm of a Vector! D! The Obtain the Ecudlicean Norm of a Vector routines obtain the.! Euclidean norm of an n-element vector x.!  REAL*8 blas1$vgnrm2 EXTERNAL blas1$vgnrm2! BLAS1$VSCNRM2! +! Obtain the Euclidean Norm of a Vector! D! The Obtain the Ecudlicean Norm of a Vector routines obtain the.! Euclidean norm of an n-element vector x.!  COMPLEX blas1$vscnrm2 EXTERNAL blas1$vscnrm2! BLAS1$VDZNRM2! +! Obtain the Euclidean Norm of a Vector! D! The Obtain the Ecudlicean Norm of a Vector routines obtain the.! Euclidean norm of an n-element vector x.!  COMPLEX*16 blas1$vdznrm2 EXTERNAL blas1$vdznrm2! BLAS1$VGWNRM2! +! Obtain the Euclidean Norm of a Vector! D! The Obtain the Ecudlicean Norm of a Vector routines obtain the.! Euclidean norm of an n-element vector x.!  COMPLEX*16 blas1$vgwnrm2 EXTERNAL blas1$vgwnrm2! BLAS1$VSROT! #! Apply a Givens Plane Rotation! E! The Apply a Givens Plane Rotation routines apply a Givens plane6! rotation to a pair of n-element vectors x and y.!  ! Subroutine blas1$vsrot! BLAS1$VDROT! #! Apply a Givens Plane Rotation! E! The Apply a Givens Plane Rotation routines apply a Givens plane6! rotation to a pair of n-element vectors x and y.!  ! Subroutine blas1$vdrot! BLAS1$VGROT! #! Apply a Givens Plane Rotation! E! The Apply a Givens Plane Rotation routines apply a Givens plane6! rotation to a pair of n-element vectors x and y.!  ! Subroutine blas1$vgrot! BLAS1$VCSROT! #! Apply a Givens Plane Rotation! E! The Apply a Givens Plane Rotation routines apply a Givens plane6! rotation to a pair of n-element vectors x and y.!  ! Subroutine blas1$vcsrot! BLAS1$VZDROT! #! Apply a Givens Plane Rotation! E! The Apply a Givens Plane Rotation routines apply a Givens plane6! rotation to a pair of n-element vectors x and y.!  ! Subroutine blas1$vzdrot! BLAS1$VWGROT! #! Apply a Givens Plane Rotation! E! The Apply a Givens Plane Rotation routines apply a Givens plane6! rotation to a pair of n-element vectors x and y.!  ! Subroutine blas1$vwgrot! BLAS1$VSROTG! 7!  Generate the Elements for a Givens Plane Rotation! ;! The Generate the Elements for a Givens Plane RotationK! routines construct a Givens plane rotation that eliminates the second&! element of a two-element vector.!  ! Subroutine blas1$vsrotg! BLAS1$VDROTG! 7! Generate the Elements for a Givens Plane Rotation! ;! The Generate the Elements for a Givens Plane RotationK! routines construct a Givens plane rotation that eliminates the second&! element of a two-element vector.!  ! Subroutine blas1$vdrotg! BLAS1$VGROTG! 7! Generate the Elements for a Givens Plane Rotation! ;! The Generate the Elements for a Givens Plane RotationK! routines construct a Givens plane rotation that eliminates the second&! element of a two-element vector.!  ! Subroutine blas1$vgrotg! BLAS1$VCROTG! 7! Generate the Elements for a Givens Plane Rotation! ;! The Generate the Elements for a Givens Plane RotationK! routines construct a Givens plane rotation that eliminates the second&! element of a two-element vector.!  ! Subroutine blas1$vcrotg! BLAS1$VZROTG! 7! Generate the Elements for a Givens Plane Rotation! ;! The Generate the Elements for a Givens Plane RotationK! routines construct a Givens plane rotation that eliminates the second&! element of a two-element vector.!  ! Subroutine blas1$vzrotg! BLAS1$VWROTG! 7! Generate the Elements for a Givens Plane Rotation! ;! The Generate the Elements for a Givens Plane RotationK! routines construct a Givens plane rotation that eliminates the second&! element of a two-element vector.!  ! Subroutine blas1$vwrotg! BLAS1$VSSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD! a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vsscal! BLAS1$VDSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD! a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vdscal! BLAS1$VGSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD! a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vgscal! BLAS1$VCSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD! a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vcscal! BLAS1$VCSSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD! a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vcsscal! BLAS1$VZSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD!  a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vzscal! BLAS1$VWSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD! a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vwscal! BLAS1$VZDSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD! a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vzdscal! BLAS1$VWGSCAL! $! Scale the Elements of a Vector! 9! The Scale the Elements of a Vector routines computeD! a * x where a is a scalar number and x is an n-element vector.!  ! Subroutine blas1$vwgscal! BLAS1$VSSWAP! &! Swap the Elements of Two Vectors! ;! The Swap the Elements of Two Vectors routines swap n 1! elements of the vector x with the vector y.!  ! Subroutine blas1$vsswap! BLAS1$VDSWAP! &! Swap the Elements of Two Vectors! ;! The Swap the Elements of Two Vectors routines swap n 1! elements of the vector x with the vector y.!  ! Subroutine blas1$vdswap! BLAS1$VCSWAP! &! Swap the Elements of Two Vectors! ;! The Swap the Elements of Two Vectors routines swap n 1! elements of the vector x with the vector y.!  ! Subroutine blas1$vcswap! BLAS1$VZSWAP! &! Swap the Elements of Two Vectors! ;! The Swap the Elements of Two Vectors routines swap n 1! elements of the vector x with the vector y.!  ! Subroutine blas1$vzswap! 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! 3! Cosine of a Complex Number (F-floating Value)! 7! 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)! 0! The Complex Exponential (F-floating Value)2! routine returns the complex exponential of a,! complex number as an F-floating value.!  COMPLEX mth$cexp EXTERNAL mth$cexp! MTH$CLOG! 2! Complex Natural Logarithm (F-floating Value)! 6! The Complex Natural Logarithm (F-floating Value)J! routine returns the complex natural logarithm of a complex number as! an F-floating value.!  COMPLEX mth$clog EXTERNAL mth$clog! MTH$CMPLX! /! Complex Number Made from F-floating-Point! 3! The Complex Number Made from F-floating-PointL! routine returns a complex number from two floating-point input values.!  COMPLEX mth$cmplx EXTERNAL mth$cmplx! MTH$DCMPLX! 5! Complex Number Made from D- or G-floating-Point! "! The Complex Number Made from! D- or G-floating-PointN! routine returns a complex number from two D- or G-floating input values.!  ! Subroutine mth$dcmplx! MTH$GCMPLX! 5! Complex Number Made from D- or G-floating-Point! #! The Complex Number Made from ! D- or G-floating-PointO! routine returns a complex number from two D- or G-floating input values. !  ! Subroutine mth$gcmplx!  MTH$CONJG! 6! Conjugate of a Complex Number (F-floating Value)! 3! The Conjugate of a Complex Number (F-floating ! Value)F! 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 NumberM! 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 NumberN! 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 Cosine.! routine returns the hyperbolic cosine of! the input value.!  REAL*4 mth$cosh EXTERNAL mth$cosh! MTH$DCOSH!  ! Hyperbolic Cosine! ! The Hyperbolic Cosine/! routine returns the hyperbolic cosine of ! the input value.-!  REAL*8 mth$dcosh EXTERNAL mth$dcosh! MTH$GCOSH! ! Hyperbolic Cosine! ! The Hyperbolic Cosine/! routine returns the hyperbolic cosine of ! the input value.!  REAL*8 mth$gcosh EXTERNAL mth$gcosh! MTH$CSIN! 1! Sine of a Complex Number (F-floating Value)! .! The Sine of a 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)! 8! The Complex Square Root (F-floating Value) routine@! 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! 5! The Convert One Double-Precision Value routines/! convert one double-precision value to theF! destination data type and return the result as a function value.?! MTH$CVT_D_G converts a D-floating value to G-floating andD! 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! 5! The Convert One Double-Precision Value routines/! convert one double-precision value to theG! destination data type and return the result as a function value. ?! MTH$CVT_D_G converts a D_floating value to G_floating andE! 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! 1! Convert an Array of Double-Precision Values! ! The Convert an Array of! Double-Precision Values,! routines convert a contiguous array ofQ! double-precision values to the destination data type and return the resultsM! 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! 1! Convert an Array of Double-Precision Values! ! The Convert an Array of! Double-Precision Values,! routines convert a contiguous array ofQ! double-precision values to the destination data type and return the resultsM! 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 Number 5! routine returns the cosine of a complex number.!  ! Subroutine mth$cdcos! MTH$CGCOS! ! Cosine of a Complex Number! $! The Cosine of a Complex Number5! routine returns the cosine of a complex number.!  ! Subroutine mth$cgcos! MTH$CDEXP! ! Complex Exponential! ! The Complex Exponential2! routine returns the complex exponential of a! complex number.!  ! Subroutine mth$cdexp! MTH$CGEXP! ! Complex Exponential! ! The Complex Exponential2! routine returns the complex exponential of a! complex number.!  ! Subroutine mth$cgexp! MTH$CDLOG! ! Complex Natural Logarithm! #! The Complex Natural LogarithmH! routine returns the complex natural logarithm of a complex number.!  ! Subroutine mth$cdlog! MTH$CGLOG! ! Complex Natural Logarithm! #! The Complex Natural LogarithmI! routine returns the complex natural logarithm of a complex number. !  ! Subroutine mth$cglog! MTH$CDSIN! ! Sine of a Complex Number! "! The Sine of a Complex Number9! routine returns the sine of a complex number (r,i).!  ! Subroutine mth$cdsin! MTH$CGSIN! ! Sine of Complex Number! ! The Sine of Complex Number9! routine returns the sine of a complex number (r,i).-!  ! Subroutine mth$cgsin! MTH$CDSQRT! ! Complex Square Root! %! The Complex Square Root routine@! returns the complex square root of a complex number (r,i).!  ! Subroutine mth$cdsqrt! MTH$CGSQRT! ! Complex Square Root! %! The Complex Square Root routineA! returns the complex square root of a complex number (r,i). -!  ! Subroutine mth$cgsqrt ! MTH$EXP! ! Exponential! ! The Exponential9! 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$VJFOLRLP_MA_V5! R! First Order Linear Recurrence --- Multiplication and Addition --- Last Value! K! The First Order Linear Recurrence --- Multiplication and Addition ---G! Last Value routines provide a vectorized algorithm for the linearI! recurrence relation that includes both multiplication and addition :! operations. Only the last value computed is stored.!  INTEGER*4 mth$vjfolrlp_ma_v5 EXTERNAL mth$vjfolrlp_ma_v5! MTH$VFFOLRLP_MA_V5! R! First Order Linear Recurrence --- Multiplication and Add ition --- Last Value! K! The First Order Linear Recurrence --- Multiplication and Addition ---G! Last Value routines provide a vectorized algorithm for the linearI! recurrence relation that includes both multiplication and addition :! operations. Only the last value computed is stored.-!  REAL*4 mth$vffolrlp_ma_v5 EXTERNAL mth$vffolrlp_ma_v5! MTH$VDFOLRLP_MA_V5! R! First Order Linear Recurrence --- Mult iplication and Addition --- Last Value! K! The First Order Linear Recurrence --- Multiplication and Addition ---G! Last Value routines provide a vectorized algorithm for the linearI! recurrence relation that includes both multiplication and addition :! operations. Only the last value computed is stored.!  REAL*8 mth$vdfolrlp_ma_v5 EXTERNAL mth$vdfolrlp_ma_v5! MTH$VGFOLRLP_MA_V5! R! First Order Linear Recurrence --- Multiplication and Additio n --- Last Value! K! The First Order Linear Recurrence --- Multiplication and Addition ---G! Last Value routines provide a vectorized algorithm for the linearI! recurrence relation that includes both multiplication and addition :! operations. Only the last value computed is stored.!  REAL*8 mth$vgfolrlp_ma_v5 EXTERNAL mth$vgfolrlp_ma_v5! MTH$VJFOLRLN_MA_V5! R! First Order Linear Recurrence --- Multiplication and Addition --- Last Value!  K! The First Order Linear Recurrence --- Multiplication and Addition ---G! Last Value routines provide a vectorized algorithm for the linearI! recurrence relation that includes both multiplication and addition :! operations. Only the last value computed is stored.!  INTEGER*4 mth$vjfolrln_ma_v5 EXTERNAL mth$vjfolrln_ma_v5! MTH$VFFOLRLN_MA_V5! R! First Order Linear Recurrence --- Multiplication and Addition --- Last Value! K! The First Or der Linear Recurrence --- Multiplication and Addition ---G! Last Value routines provide a vectorized algorithm for the linearI! recurrence relation that includes both multiplication and addition :! operations. Only the last value computed is stored. !  REAL*4 mth$vffolrln_ma_v5 EXTERNAL mth$vffolrln_ma_v5! MTH$VDFOLRLN_MA_V5! R! First Order Linear Recurrence --- Multiplication and Addition --- Last Value! K! The First Order Linear Recurre nce --- Multiplication and Addition ---G! Last Value routines provide a vectorized algorithm for the linearI! recurrence relation that includes both multiplication and addition :! operations. Only the last value computed is stored.!  REAL*8 mth$vdfolrln_ma_v5 EXTERNAL mth$vdfolrln_ma_v5! MTH$VGFOLRLN_MA_V5! R! First Order Linear Recurrence --- Multiplication and Addition --- Last Value! K! The First Order Linear Recurrence --- Multiplication  and Addition ---G! Last Value routines provide a vectorized algorithm for the linearI! recurrence relation that includes both multiplication and addition :! operations. Only the last value computed is stored.-!  REAL*8 mth$vgfolrln_ma_v5 EXTERNAL mth$vgfolrln_ma_v5! MTH$VJFOLRLP_M_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. !  INTEGER*4 mth$vjfolrlp_m_v2 EXTERNAL mth$vjfolrlp_m_v2! MTH$VFFOLRLP_M_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  REAL*4 mth$vffolrlp_m_v2 EXTERNAL mth$vffolrlp_m_v2! MTH$VDFOLRLP_M_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. T!  REAL*8 mth$vdfolrlp_m_v2 EXTERNAL mth$vdfolrlp_m_v2! MTH$VGFOLRLP_M_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. !  REAL*8 mth$vgfolrlp_m_v2 EXTERNAL mth$vgfolrlp_m_v2! MTH$VJFOLRLN_M_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  INTEGER*4 mth$vjfolrln_m_v2 EXTERNAL mth$vjfolrln_m_v2! MTH$VFFOLRLN_M_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. !  REAL*4 mth$vffolrln_m_v2 EXTERNAL mth$vffolrln_m_v2! MTH$VDFOLRLN_M_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The Firs t Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  REAL*8 mth$vdfolrln_m_v2 EXTERNAL mth$vdfolrln_m_v2! MTH$VGFOLRLN_M_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value!  J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  REAL*8 mth$vgfolrln_m_v2 EXTERNAL mth$vgfolrln_m_v2! MTH$VJFOLRLP_A_V2! Q! First Order Linear Recurrence --- Multiplication or Addition ---  Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  INTEGER*4 mth$vjfolrlp_a_v2 EXTERNAL mth$vjfolrlp_a_v2! MTH$VFFOLRLP_A_V2! Q! First Order Linear Recurrence --- Multiplicati on or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. T!  REAL*4 mth$vffolrlp_a_v2 EXTERNAL mth$vffolrlp_a_v2! MTH$VDFOLRLP_A_V2!  Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  REAL*8 mth$vdfolrlp_a_v2 EXTERNAL mth$vdfolrlp_a_v2! MTH$VG FOLRLP_A_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  REAL*8 mth$vgfolrlp_a_v2 EXTERNAL mth$vgfolrlp_a _v2! MTH$VJFOLRLN_A_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  INTEGER*4 mth$vjfolrln_a_v2 EXTER NAL mth$vjfolrln_a_v2! MTH$VFFOLRLN_A_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!  REAL*4 mth$vff olrln_a_v2 EXTERNAL mth$vffolrln_a_v2! MTH$VDFOLRLN_A_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!   REAL*8 mth$vdfolrln_a_v2 EXTERNAL mth$vdfolrln_a_v2! MTH$VGFOLRLN_A_V2! Q! First Order Linear Recurrence --- Multiplication or Addition --- Last Value! J! The First Order Linear Recurrence --- Multiplication or Addition ---G! Last Value routines provide a vectorized algorithm for the linearE! recurrence relation that includes either a multiplication or anB! addition operation. Only the last value computed is stored. -!   REAL*8 mth$vgfolrln_a_v2 EXTERNAL mth$vgfolrln_a_v2! MTH$VJFOLRP_MA_V15! C! First Order Linear Recurrence --- Multiplication and Addition! G! The First Order Linear Recurrence --- Multiplication and AdditionG! routines provide a vectorized algorithm for the linear recurrence>! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vjfolrp_ma_v15! MTH$VFFOLRP_MA_V15! C! Fi rst Order Linear Recurrence --- Multiplication and Addition! G! The First Order Linear Recurrence --- Multiplication and AdditionG! routines provide a vectorized algorithm for the linear recurrence>! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vffolrp_ma_v15! MTH$VDFOLRP_MA_V15! C! First Order Linear Recurrence --- Multiplication and Addition! G! The First Order Linear Recurrence --- Multip lication and AdditionG! routines provide a vectorized algorithm for the linear recurrence>! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vdfolrp_ma_v15! MTH$VGFOLRP_MA_V15! C! First Order Linear Recurrence --- Multiplication and Addition! G! The First Order Linear Recurrence --- Multiplication and AdditionG! routines provide a vectorized algorithm for the linear recurrence>! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vgfolrp_ma_v15! MTH$VJFOLRN_MA_V15! C! First Order Linear Recurrence --- Multiplication and Addition! G! The First Order Linear Recurrence --- Multiplication and AdditionG! routines provide a vectorized algorithm for the linear recurrence>! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vjfolrn_ma_v15! MTH$VFFOLRN_MA_V15! C! First Order Linear Recurrence --- Multiplication and Addition! G! The First Order Linear Recurrence --- Multiplication and AdditionG! routines provide a vectorized algorithm for the linear recurrence>! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vffolrn_ma_v15! MTH$VDFOLRN_MA_V15! C! First Order Linear Recurrence --- Multiplication and Addition! G! The First Order Li near Recurrence --- Multiplication and AdditionG! routines provide a vectorized algorithm for the linear recurrence>! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vdfolrn_ma_v15! MTH$VGFOLRN_MA_V15! C! First Order Linear Recurrence --- Multiplication and Addition! G! The First Order Linear Recurrence --- Multiplication and AdditionG! routines provide a vectorized algorithm for the linear recurrence>! relation that includes both multiplication and addition ! operations. ! ! Subroutine mth$vgfolrn_ma_v15! MTH$VJFOLRP_M_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vjfolrp_m_v8! MTH$VFFOLRP_M_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vffolrp_m_v8! MTH$VDFOLRP_M_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vdfolrp_m_v8! MTH$VGFOLRP_M_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provi de a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vgfolrp_m_v8! MTH$VJFOLRN_M_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vjfolrn_m_v8! MTH$VFFOLRN_M_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vffolrn_m_v8! MTH$VDFOLRN_M_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vdfolrn_m_v8! MTH$VGFOLRN_M_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Line ar Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vgfolrn_m_v8! MTH$VJFOLRP_A_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear rec urrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vjfolrp_a_v8! MTH$VFFOLRP_A_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vffolrp_a_v8! MTH$VDFOLRP_A_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vdfolrp_a_v8! MTH$VGFOLRP_A_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vgfolrp_a_v8! MTH$VJFOLRN_A_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or Addition G! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vjfolrn_a_v8! MTH$VFFOLRN_A_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vffolrn_a_v8! MTH$VDFOLRN_A_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vdfolrn_a_v8!  MTH$VGFOLRN_A_V8! B! First Order Linear Recurrence --- Multiplication or Addition! F! The First Order Linear Recurrence --- Multiplication or AdditionG! routines provide a vectorized algorithm for the linear recurrenceD! relation that includes either a multiplication or an addition ! operation, but not both.!  ! Subroutine mth$vgfolrn_a_v8! MTH$HACOS! A! Arc Cosine of Angle Expressed in Radians (H-floating Value)! H! Given the cosine of an angle, the Arc Cosine of Angle Expressed inK! Radians (H-floating Value) routine returns that angle (in radians) in!! H-floating-point precision.!  ! Subroutine mth$hacos! MTH$HACOSD! A! Arc Cosine of Angle Expressed in Degrees (H-Floating Value)! H! Given the cosine of an angle, the Arc Cosine of Angle Expressed in ! Degrees (H-Floating Value)! routine returns that0! angle (in degrees) as an H-floating value.!  ! Subroutine mth$hacosd! MTH$HASIN! ,! Arc Sine in Radians (H-floating Value)! L! 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)! L! 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! /! Arc Tangent in Radians (H-floating Value)! R! 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! B! Arc Tangent in Radians (H-floating Value) with Two Arguments! 1! Given cosine and cosine, the Arc Tangent inG! Radians (H-floating Value) with Two Arguments routine returns theI! 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! /! Arc Tangent in Degrees (H-floating Value)! R! 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! /! Hyperbolic Arc Tangent (H-floating Value)! B! Given the hyperbolic tangent of an angle, the Hyperbolic Arc! Tangent ! line_break! H-floating value(! (H-floating Value) routine returns(! the hyperbolic arc tangent (as an ! line_break%! H-floating value of that angle.! line_break!  ! Subroutine mth$hatanh! MTH$HCOS! =! Cosine of Angle Expressed in Radians (H-floating Value)! .! The Cosine of Angle Expressed in Radians! (H-floating Value)D! 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)! .! The Cosine of Angle Expressed in Degrees! (H-floating Value)D! 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 Cosine.! routine returns the hyperbolic cosine of-! the input value as an H-floating value.!  ! Subroutine mth$hcosh! MTH$HEXP! $! Exponential (H-floating Value)! ! The ExponentialI! 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)7! routine returns the common (base 10) logarithm of0! the input argument as an H-floating value.!  ! Subroutine mth$hlog10! MTH$HLOG! *! Natural Logarithm (H-floating Value)! .! The Natural Logarithm (H-floating Value)7! routine returns the natural (base e) logarithm of0! 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)! 8! The Sine of Angle Expressed in Radians (H-floating ! Value)B! 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)! 8! The Sine of Angle Expressed in Degrees (H-floating ! Value)B! 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)6! routine returns the hyperbolic sine of the input9! 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)8! routine returns the square root of the input value8! floating-point-input-value as an H-floating value.!  ! Subroutine mth$hsqrt! MTH$HTAN! >! Tangent of Angle Expressed in Radians (H-floating Value)! /! The Tangent of Angle Expressed in Radians! (H-floating Value)E! 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)! /! The Tangent of Angle Expressed in Degrees! (H-floating Value)E! routine returns the tangent of a given angle (in degrees) as an! H-floating value.!  ! Subroutine mth$htand! MTH$HTANH! 7! Compute the Hyperbolic Tangent (H-floating Value)! 4! The Compute the Hyperbolic Tangent (H-floating ! Value),! routine returns the hyperbolic tangent0! of the input value as an H-floating value.!  ! Subroutine mth$htanh! MTH$HATAND2! B! Arc Tangent in Degrees (H-floating Value) with Two Arguments! 2! Given cosine and cosine, MTH$xHTAND2 returns*! the angle (in degrees) whose tangent4! 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! M! The Natural Logarithm routine returns the natural (base e) logarithm of! the input argument.!  REAL*4 mth$alog EXTERNAL mth$alog! MTH$DLOG! ! Natural Logarithm! M! The Natural Logarithm routine returns the natural (base e) logarithm of! the input argument. !  REAL*8 mth$dlog EXTERNAL mth$dlog! MTH$GLOG! ! Natural Logarithm! M! The Natural Logarithm routine returns the natural (base e) logarithm of! the input argument. !  REAL*8 mth$glog EXTERNAL mth$glog! MTH$ALOG10! ! Common Logarithm! L! The Common Logarithm routine returns the common (base 10) logarithm of! the input argument.!  REAL*4 mth$alog10 EXTERNAL mth$alog10! MTH$DLOG10! ! Common Logarithm! L! The Common Logarithm routine returns the common (base 10) logarithm of! the input argument.!  REAL*8 mth$dlog10 EXTERNAL mth$dlog10! MTH$GLOG10! ! Common Logarithm! L! The Common Logarithm routine returns the common (base 10) logarithm of! the input argument.!  REAL*8 mth$glog10 EXTERNAL mth$glog10! MTH$ALOG2! ! Base 2 Logarithm! R! 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! R! 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! R! 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! 4! Random Number Generator, Uniformly Distributed! 8! The Random Number Generator, Uniformly Distributed3! 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 Number8! 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 Number8! 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 Number8! 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 Sine6! routine returns the hyperbolic sine of the input4! value specified by floating-point-input-value.!  REAL*4 mth$sinh EXTERNAL mth$sinh! MTH$DSINH! ! Hyperbolic Sine! ! The Hyperbolic Sine6! routine returns the hyperbolic sine of the input5! value specified by floating-point-input-value. !  REAL*8 mth$dsinh EXTERNAL mth$dsinh! MTH$GSINH! ! Hyperbolic Sine! ! The Hyperbolic Sine6! routine returns the hyperbolic sine of the input5! value specified by floating-point-input-value. !  REAL*8 mth$gsinh EXTERNAL mth$gsinh! MTH$SINCOS! 3! Sine and Cosine of Angle Expressed in Radians! 7! The Sine and Cosine of Angle Expressed in Radians! routine returns the sine/! and cosine of a given angle (in radians).!  ! Subroutine mth$sincos! MTH$DSINCOS! 3! Sine and Cosine of Angle Expressed in Radians! 7! The Sine and Cosine of Angle Expressed in Radians! routine returns the sine 3! and the cosine of a given angle (in radians).-!  ! Subroutine mth$dsincos! MTH$GSINCOS! 3! Sine and Cosine of Angle Expressed in Radians! 7! The Sine and Cosine of Angle Expressed in Radians! routine returns the sine 3! and the cosine of a given angle (in radians).-!  ! Subroutine mth$gsincos! MTH$HSINCOS! 3! Sine and Cosine of Angle Expressed in Radians! 7! The Sine and Cosine of Angle Expressed in Radians! routine returns the sine 3! and the cosine of a given angle (in radians).!  ! Subroutine mth$hsincos! MTH$SINCOSD! 3! Sine and Cosine of Angle Expressed in Degrees! 7! The Sine and Cosine of Angle Expressed in DegreesH! routine returns the sine and cosine of a given angle (in degrees).!  ! Subroutine mth$sincosd! MTH$DSINCOSD! 3! Sine and Cosine of Angle Expressed in Degrees! 7! The Sine and Cosine of Angle Expressed in DegreesI! routine returns the sine and cosine of a given angle (in degrees). !  ! Subroutine mth$dsincosd! MTH$GSINCOSD! 3! Sine and Cosine of Angle Expressed in Degrees! 7! The Sine and Cosine of Angle Expressed in DegreesI! routine returns the sine and cosine of a given angle (in degrees). -!  ! Subroutine mth$gsincosd! MTH$HSINCOSD! 3! Sine and Cosine of Angle Expressed in Degrees! 7! The Sine and Cosine of Angle Expressed in DegreesI! routine returns the sine and cosine of a given angle (in degrees). -!  ! Subroutine mth$hsincosd! MTH$SQRT! ! Square Root! ! The Square Root8! 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 Root8! 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 Root8! 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! /! The Tangent of Angle Expressed in Radians@! 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! /! The Tangent of Angle Expressed in Radians@! 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! /! The Tangent of Angle Expressed in Radians@! 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! /! The Tangent of Angle Expressed in Degrees@! 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! /! The Tangent of Angle Expressed in Degrees@! 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! /! The Tangent of Angle Expressed in Degrees@! 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 MaximumK! routine computes the unsigned longword maximum of n unsigned longword7! 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 MinimumK! 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! 0! Bitwise AND of Two Word Parameters Routine!  INTEGER*2 mth$iiand EXTERNAL mth$iiand! MTH$JIAND! 4! Bitwise AND of Two Longword Parameters Routine!  INTEGER*4 mth$jiand EXTERNAL mth$jiand! MTH$DBLE! 6! Convert F_floating to D_floating (Exact) Routine!  REAL*8 mth$dble EXTERNAL mth$dble! MTH$GDBLE! 6! 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! 8! 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! 9! 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! 4! Convert F_floating to Word (Truncated) Routine!  INTEGER*2 mth$iifix EXTERNAL mth$iifix! MTH$JIFIX! 8! Convert F_floating to Longword (Truncated) Routine!  INTEGER*4 mth$jifix EXTERNAL mth$jifix! MTH$FLOATI! 0! Convert Word to F_floating (Exact) Routine!  REAL*4 mth$floati EXTERNAL mth$floati! MTH$DFLOTI! 0! Convert Word to D_floating (Exact) Routine!  REAL*8 mth$dfloti EXTERNAL mth$dfloti! MTH$GFLOTI! 0! Convert Word to G_floating (Exact) Routine!  REAL*8 mth$gfloti EXTERNAL mth$gfloti! MTH$FLOATJ! 4! Convert Longword to F_floating (Exact) Routine!  REAL*4 mth$floatj EXTERNAL mth$floatj! MTH$DFLOTJ! 4! Convert Longword to D_floating (Exact) Routine!  REAL*8 mth$dflotj EXTERNAL mth$dflotj! MTH$GFLOTJ! 4! 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 Greatest 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! 8! Convert F_floating to Truncated F_floating Routine!  REAL*4 mth$aint EXTERNAL mth$aint! MTH$DINT ! 8! Convert D_floating to Truncated D_floating Routine!  REAL*8 mth$dint EXTERNAL mth$dint! MTH$IIDINT! 4! Convert D_floating to Word (Truncated) Routine!  INTEGER*2 mth$iidint EXTERNAL mth$iidint! MTH$JIDINT! 8! 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! 4! Convert G_floating to Word (Truncated) Routine!  INTEGER*2 mth$iigint EXTERNAL mth$iigint! MTH$JIGINT! 8! 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! 2! Convert H_floating to Truncated Word Routine!  INTEGER*2 mth$iihint EXTERNAL mth$iihint! MTH$JIHINT! 6! Convert H_floating to Truncated Longword Routine!  INTEGER*4 mth$jihint EXTERNAL mth$jihint! MTH$IINT! 4! Convert F_floating to Word (Truncated) Routine!  INTEGER*2 mth$iint EXTERNAL mth$iint! MTH$JINT! 8! Convert F_floating to Longword (Truncated) Routine!  INTEGER*4 mth$jint EXTERNAL mth$jint!  MTH$IIOR! 9! 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! 4! F_floating Maximum of N WordParameters Routine!  REAL*4 mth$aimax0 EXTERNAL mth$aimax0! MTH$AJMAX0! 9! F_floating Maximum of N Longword Parameters Routine!  REAL*4   mth$ajmax0 EXTERNAL mth$ajmax0! MTH$IMAX0! /! Word Maximum of N Word Parameters Routine!  INTEGER*2 mth$imax0 EXTERNAL mth$imax0! MTH$JMAX0! 7! 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_floati ng 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! 5! Word Maximum of N F_floating Parameters Routine!  INTEGER*2 mth$imax1 EXTERNAL mth$imax1! MTH$JMAX1! 9! Lo ngword Maximum of N F_floating Parameters Routine!  INTEGER*4 mth$jmax1 EXTERNAL mth$jmax1! MTH$AIMIN0! 5! F_floating Minimum of N Word Parameters Routine!  REAL*4 mth$aimin0 EXTERNAL mth$aimin0! MTH$AJMIN0! 9! F_floating Minimum of N Longword Parameters Routine!  REAL*4 mth$ajmin0 EXTERNAL mth$ajmin0! MTH$IMIN0! /! Word Minimum of N Word Parameters Routine!  INTEGER*2 mth$imin0 EXTERNAL mth$imin0 ! MTH$JMIN0! 7! 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! 5! Word Minimum of N F_floating Parameters Routine!  INTEGER*2 mth$imin1 EXTERNAL mth$imin1! MTH$JMIN1! 9! Longword Minimum of N F_floating Parameters Routine!  INTEGER*4 mth$jmin1 EXTERNAL mth$jmin1! MTH$AMOD! 4! Remainder of Two F_floating Parameters Routine!  REAL*4 mth$amod EXTERNAL mth$amod! MTH$DMOD! 4! Remainder of Two D_floating Parameters Routine!  REAL*8 mth$dmod EXTERNAL mth$dmod! MTH$GMOD! 4! Remainder of Two G_floating Parameters Routine!  REAL*8 mth$gmod EXTERNAL mth$gmod! MTH$HMOD! 4! 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! 2! 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! 0! 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! 8! 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! 8! 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! 2! Bitwise Complement of Word Parameter Routine!  INTEGER*2 mth$inot EXTERNAL mth$inot! MTH$JNOT! 6! 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! 5! Word Transfer of Sign of Y to Sign of X Routine!  INTEGER*2 mth$iisign EXTERNAL mth$iisign! MTH$JISIGN! 9! Longword Transfer of Sign of Y to Sign of X Routine!  INTEGER*4 mth$jisign EXTERNAL mth$jisign! MTH$SNGL! 8! Convert D_floating to F_floating (Rounded) Routine!  REAL*4 mth$sngl EXTERNAL mth$sngl! MTH$SNGLG! 8! Convert G_floating to F_floating (Rounded) Routine!  REAL*4 mth$snglg EXTERNAL mth$snglgCDEC$ END OPTIONSww-! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:10 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:10 FORD2$:[VFORT.KIT.FORSYSDEF]NCS$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** !*** MODULE ncs$routines ***CDEC$ OPTIONS /NOALIGNM! ****** *********************************************************************! *1! COPYRIGHT (c) 1988 BY *A! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFERRED. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! ***************************************************************************! NCS$COMPARE! ! Compare Strings! K! Compares two strings using specified collating sequence 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! I! 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! H! 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! L! 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! K! Retrieves the definition of the named collating sequence from the NCS! library.!  INTEGER*4 ncs$get_cs EXTERNAL ncs$get_cs! NCS$RESTORE_CF! !! Restore Conversion Function! H! 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! R! Permits the calling program to restore the definition of a "saved" collating/! sequence from a data base or an RMS file.!  INTEGER*4 ncs$restore_cs EXTERNAL ncs$restore_cs! NCS$SAVE_CF! ! Save Conversion Function! P! Provides the calling  program with information that permits the applicationQ! 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! P! Provides the calling program with information that permits the applicationP! to store the definition of a collating sequence in a local data base or an+! RMS file rather than the N CS$LIBRARY.!  INTEGER*4 ncs$save_cs EXTERNAL ncs$save_csCDEC$ END OPTIONSwwm ! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:26 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:25 FORD2$:[VFORT.KIT.FORSYSDEF]OTS$ROUTINES.SDI;1 !  *********************************************************************************************************************************************************************************************************************************************************** !*** MODULE ots$routines ***CDEC$ OPTIONS /NOALIGNM! ***************************************************************************! *1! COPYRIGHT (c) 1988 BY *A! DIGITAL EQUIPMENT CORPORATION, MAYNARD, !MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFERRED. " *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! **************************************************************************#*! OTS$CVT_T_D! 4! Convert Numeric Text to D- or F-Floating Value! ;! The Convert Numeric Text to D- or F-Floating routines6! convert an ASCII text string representation of a8! numeric value to a D-floating or F-floating value.!  INTEGER*4 ots$cvt_t_d EXTERNAL ots$cvt_t_d! OTS$CVT_T_F! 4! Convert Numeric Text to D- or F-Floating Value! ;! The Convert Numeric Text to D- or F-Floating routines6! convert an ASCII text $string representation of a8! numeric value to a D_floating or F_floating value.!  INTEGER*4 ots$cvt_t_f EXTERNAL ots$cvt_t_f! OTS$CVT_T_G! 4! Convert Numeric Text to G- or H-Floating Value! ;! The Convert Numeric Text to G- or H-Floating routines6! convert an ASCII text string representation of a8! 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! 4! Convert %Numeric Text to G- or H-Floating Value! ;! The Convert Numeric Text to G- or H-Floating routines6! convert an ASCII text string representation of a8! 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 routines6! return a complex result of a division on complex! numbers.! ,! ENTRY ots$divc ALIAS $ots_divc PARAMETER (2! &F_FLOATING COMPLEX NAMED complex_dividend IN,! TYPENAME f_floating_complex VALUE,1! F_FLOATING COMPLEX NAMED complex_divisor IN-! TYPENAME f_floating_complex VALUE )H! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex;! OTS$DIVCD_R3! ! Complex Division! #! The Complex Division routines6! return a complex result of a division on complex! numbers.! 4! ENTRY ots$divcd_r3 ALIAS $ots_divcd_r3 PARAMETER (2! D_'FLOATING COMPLEX NAMED complex_dividend IN,! TYPENAME d_floating_complex VALUE,1! D_FLOATING COMPLEX NAMED complex_divisor IN-! TYPENAME d_floating_complex VALUE )H! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex;! OTS$DIVCG_R3! ! Complex Division! #! The Complex Division routines6! return a complex result of a division on complex! numbers.! 4! ENTRY ots$divcg_r3 ALIAS $ots_divcg_r3 PARAMETER (2! G_FL (OATING COMPLEX NAMED complex_dividend IN,! TYPENAME g_floating_complex VALUE,1! G_FLOATING COMPLEX NAMED complex_divisor IN,! TYPENAME g_floatin_complex VALUE )H! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex;! OTS$DIV_PK_LONG! /! Packed Decimal Division with Long Divisor! ;! The Packed Decimal Division with Long Divisor routineA! divides fixed-point decimal data, which is stored in packedO! decimal form, when p)recision and scale requirements for the quotient callK! for multiple precision division. The 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! 0! Packed Decimal Division with Short Divisor! <! The Packed Decimal Division with Short Divisor routine&! divides fixed-point decimal dataE! when precision and scale requirements for the quotient call for#! mu*ltiple-precision division. !  INTEGER*4 ots$div_pk_short EXTERNAL ots$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 aB! 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,1+47,483,647 bytes) from aB! specified source address to a specified destination address,3! with separate source and destination lengths,B! and with fill. Overlap of the source and destination arrays!! does not affect the result.!  ! Subroutine ots$move5! OTS$MULCD_R3! ! Complex Multiplication! )! The Complex Multiplication routines2! calculate the complex product of two complex ! values.! 4! ENTRY ots$mulcd_r3 ALIAS $ots_mu,lcd_r3 PARAMETER (4! D_FLOATING COMPLEX NAMED complex_multiplier IN,! TYPENAME d_floating_complex VALUE,6! D_FLOATING COMPLEX NAMED complex_multiplicand IN-! TYPENAME d_floating_complex VALUE )H! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex;! OTS$MULCG_R3! ! Complex Multiplication! )! The Complex Multiplication routines2! calculate the complex product of two complex ! values.! 4! ENTRY ots$mulcg_r3 A -LIAS $ots_mulcg_r3 PARAMETER (4! G_FLOATING COMPLEX NAMED complex_multiplier IN,! TYPENAME g_floating_complex VALUE,6! G_FLOATING COMPLEX NAMED complex_multiplicand IN-! TYPENAME g_floating_complex VALUE )H! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex;! OTS$CNVOUT! N! Convert D-floating, G-floating or H-floating Number to Character String! ?! The Convert Floating to Character String routines convert3! a D-floati.ng, 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! M! Convert D_floating, G_floating or H_floating Number to Character String! ?! The Convert Floating to Character String routines convert4! a D_floating, G_floating or H_floating number ! to a character string in ! the FORTRAN E format.!  INTEGER*4 ots$cnvout_g EXTERNAL ots$cnvo/ut_g! OTS$CNVOUT_H! M! Convert D_floating, G_floating or H_floating Number to Character String! ?! The Convert Floating to Character String routines convert4! 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$POWCC! ?! Raise a Complex Base to a Complex Floating-Point Exponent! L! The Raise a Complex Base to a Comple 0x Floating-Point Exponent routines ! raise+! 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,8! F_FLOATING COMPLEX NAMED complex_exponent_value IN-! TYPENAME f_floating_complex VALUE )H! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex;! OTS$POWCDCD_R3! ?! Raise a Complex Base to a Complex Floating-P 1oint Exponent! L! The Raise a Complex Base to a Complex Floating-Point Exponent routines ! raise+! a complex base to a complex exponent.! 8! ENTRY ots$powcdcd_r3 ALIAS $ots_powcdcd_r3 PARAMETER (.! D_FLOATING COMPLEX NAMED complex_base IN,! TYPENAME d_floating_complex VALUE,8! D_FLOATING COMPLEX NAMED complex_exponent_value IN-! TYPENAME d_floating_complex VALUE )H! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex;! 2 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 routines ! raise+! a complex base to a complex exponent.! 8! ENTRY ots$powcgcg_r3 ALIAS $ots_powcgcg_r3 PARAMETER (.! G_FLOATING COMPLEX NAMED complex_base IN,! TYPENAME g_floating_complex VALUE,8! G_FLOATING COMPLEX NAMED complex_exponent_value IN-! TYPENAME g_floating_complex VALUE )H! 3 RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex;! OTS$POWCJ! A! Raise a Complex Base to a Signed Longword Integer Exponent! D! The Raise a Complex Base to a Signed Longword Integer ExponentH! routines return 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_complex VALUE,1! LONGWO 4RD NAMED longword_integer_exponent IN*! TYPENAME longword_signed VALUE )H! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex;! OTS$POWCDJ_R3! @! Raise a Complex Base to a Signed Longword Integer Exponent! E! The Raise a Complex Base to a Signed Longword Integer Exponent H! routines return the complex result of raising a complex base to an! integer exponent.! 6! ENTRY ots$powcdj_r3 ALIAS $ots_powcdj_r3 PARAMETER (.! D_ 5FLOATING COMPLEX NAMED complex_base IN,! TYPENAME D_floating_complex VALUE,1! LONGWORD NAMED longword_integer_exponent IN*! TYPENAME longword_signed VALUE )H! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex;! OTS$POWCGJ_R3! @! Raise a Complex Base to a Signed Longword Integer Exponent! E! The Raise a Complex Base to a Signed Longword Integer Exponent H! routines return the complex result of raising a complex base to an 6! integer exponent.! 6! ENTRY ots$powcgj_r3 ALIAS $ots_powcgj_r3 PARAMETER (.! G_FLOATING COMPLEX NAMED complex_base IN,! TYPENAME g_floating_complex VALUE,1! LONGWORD NAMED longword_integer_exponent IN*! TYPENAME longword_signed VALUE )H! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex;! OTS$POWDD! 4! Raise a D_floating Base to D_floating Exponent! B! The Raise a D_floating Base to a D_floating Exponent routi7ne.! raises a D_floating base to a D_floating! exponent. ! .! ENTRY ots$powdd ALIAS $ots_powdd PARAMETER (/! D_FLOATING NAMED D_floating_point_base IN$! TYPENAME d_floating VALUE,3! D_FLOATING NAMED D_floating_point_exponent IN%! TYPENAME d_floating VALUE )8! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating;! OTS$POWDJ! 4! Raise a D_floating Base to a Longword Exponent! @! The Raise a D_floating Base to a Longword Expo8nent routine7! raises a D_floating base to a longword exponent. ! .! ENTRY ots$powdj ALIAS $ots_powdj PARAMETER (/! D_FLOATING NAMED D_floating_point_base IN$! TYPENAME d_floating VALUE,1! LONGWORD NAMED longword_integer_exponent IN*! TYPENAME longword_signed VALUE )8! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating;! OTS$POWDR! 7! Raise a D_floating Base to an F_floating Exponent! D! The Raise a D_floating Base to an F_fl9oating Exponent routines$! raise a D_floating base to an ! F_floating exponent. ! .! ENTRY ots$powdr ALIAS $ots_powdr PARAMETER (/! D_FLOATING NAMED D_floating_point_base IN$! TYPENAME d_floating VALUE,3! F_FLOATING NAMED F_floating_point_exponent IN%! TYPENAME f_floating VALUE )8! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating;! OTS$POWGG! 6! Raise a G-floating Base to a G-floating Exponent! B! The Raise a G-floati:ng Base to a G-floating Exponent routine8! raises a G-floating base to a G-floating exponent.! .! ENTRY ots$powgg ALIAS $ots_powgg PARAMETER (/! G_FLOATING NAMED G_floating_point_base IN$! TYPENAME g_floating VALUE,3! G_FLOATING NAMED G_floating_point_exponent IN%! TYPENAME g_floating VALUE )8! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating;! OTS$POWGJ! 4! Raise a G-floating Base to a Longword Exponent! @! The Raise a G-fl;oating Base to a Longword Exponent routine6! raises a G-floating base to a longword exponent.! .! ENTRY ots$powgj ALIAS $ots_powgj PARAMETER (/! G_FLOATING NAMED G_floating_point_base IN$! TYPENAME g_floating VALUE,1! LONGWORD NAMED longword_integer_exponent IN*! TYPENAME longword_signed VALUE )8! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating;! OTS$POWHH_R3! 8! Raise an H-floating Base to an H-floating Exponent! <! The Rais <e an H-floating Base to an H-floating ExponentB! routine raises an H-floating base to an H-floating exponent.! 4! ENTRY ots$powhh_r3 ALIAS $ots_powhh_r3 PARAMETER (/! H_FLOATING NAMED H_floating_point_base IN$! TYPENAME h_floating VALUE,3! H_FLOATING NAMED H_floating_point_exponent IN%! TYPENAME h_floating VALUE )8! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating;! OTS$POWHJ_R3! 5! Raise an H-floating Base to a Longword Exponent! = 9! The Raise an H-floating Base to a Longword Exponent?! routine raises an H-floating base to a longword exponent.! 4! ENTRY ots$powhj_r3 ALIAS $ots_powhj_r3 PARAMETER (/! H_FLOATING NAMED H_floating_point_base IN$! TYPENAME h_floating VALUE,1! LONGWORD NAMED longword_integer_exponent IN*! TYPENAME longword_signed VALUE )8! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating;! OTS$POWII! *! Raise a Word Base to a Word Exponent! > 6! The Raise a Word Base to a Word Exponent routine,! raises a word base to a word exponent.!  INTEGER*2 ots$powii EXTERNAL ots$powii! OTS$POWJJ! 2! Raise a Longword Base to a Longword Exponent! >! The Raise a Longword Base to a Longword Exponent routineB! raises a signed longword base to a signed longword exponent.!  INTEGER*4 ots$powjj EXTERNAL ots$powjj! OTS$POWLULU! F! Raise an Unsigned Longword Base to an Unsi?gned Longword Exponent! A! The Raise an Unsigned Longword Base to an Unsigned Longword! Exponent routine1! raises an unsigned longword integer base to,! an unsigned longword integer exponent.!  INTEGER*4 ots$powlulu EXTERNAL ots$powlulu! OTS$POWRD! 7! Raise an F-floating Base to a D-floating Exponent! ;! The Raise an F-floating Base to a D-floating Exponent7! routine raises an F-floating base to a D-floating! exponent. @! .! ENTRY ots$powrd ALIAS $ots_powrd PARAMETER (/! F_FLOATING NAMED F_floating_point_base IN$! TYPENAME f_floating VALUE,3! D_FLOATING NAMED D_floating_point_exponent IN%! TYPENAME d_floating VALUE )8! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating;! OTS$POWRJ! 5! Raise an F-floating Base to a Longword Exponent! 9! The Raise an F-floating Base to a Longword Exponent?! routine raises an F-floating base to a longword expoAnent.!  REAL*4 ots$powrj EXTERNAL ots$powrj! OTS$POWRR! 8! Raise an F-floating Base to an F-floating Exponent! <! The Raise an F-floating Base to an F-floating Exponent8! routine raises an F-floating base to an F-floating! exponent.!  REAL*4 ots$powrr EXTERNAL ots$powrr! OTS$POWRLU! J! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent! E! The Raise a Floating-Point Base to an Unsigned LBongword Integer! Exponent routines raises E! a floating-point base to an unsigned longword integer exponent.!  REAL*4 ots$powrlu EXTERNAL ots$powrlu! OTS$POWDLU! J! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent! F! The Raise a Floating-Point Base to an Unsigned Longword Integer ! Exponent routines raisesF! a floating-point base to an unsigned longword integer exponent. ! 0! ENTRY ots$powdlu ALIAS $ots_powd Clu PARAMETER (-! D_FLOATING NAMED floating_point_base IN$! TYPENAME d_floating VALUE,<! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN,! TYPENAME longword_unsigned VALUE )8! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating;! OTS$POWGLU! J! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent! F! The Raise a Floating-Point Base to an Unsigned Longword Integer ! Exponent routines raisesF! a floating-point b Dase to an unsigned longword integer exponent. ! 0! 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 )8! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating;! OTS$POWHLU_R3! J! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent! F! The Raise a Floating-Point B Ease to an Unsigned Longword Integer ! Exponent routines raisesF! a floating-point base to an unsigned longword integer exponent. ! 6! ENTRY ots$powhlu_r3 ALIAS $ots_powhlu_r3 PARAMETER (-! H_FLOATING NAMED floating_point_base IN$! TYPENAME h_floating VALUE,<! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN,! TYPENAME longword_unsigned VALUE )8! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating;! OTS$SCOPY_DXDX! G! Copy a SourcFe String Passed by Descriptor to a Destination String! K! The Copy a Source String Passed by Descriptor to a Destination String ! routineF! copies a source string to a destination string. Both strings are! passed by descriptor.!  INTEGER*2 ots$scopy_dxdx EXTERNAL ots$scopy_dxdx! OTS$SCOPY_R_DX! F! Copy a Source String Passed by Reference to a Destination String! J! The Copy a Source String Passed by Reference to a Destination StringGI! routine copies a source string passed by reference to a destination ! string.!  INTEGER*2 ots$scopy_r_dx EXTERNAL ots$scopy_r_dx! OTS$SFREE1_DD! ! Strings, Free One Dynamic! )! The Free One Dynamic String routine6! returns one dynamic string area to free storage.!  ! Subroutine ots$sfree1_dd! OTS$SFREEN_DD! ! Strings, Free n Dynamic! (! The Free n Dynamic Strings routineE! takes as input a vectoHr of one or more dynamic string areas and#! returns them to free storage.!  ! Subroutine ots$sfreen_dd! OTS$SGET1_DD! ! Strings, Get One Dynamic! (! The Get One Dynamic String routine>! allocates a specified number of bytes of dynamic virtual.! memory to a specified string descriptor.!  ! Subroutine ots$sget1_dd! OTS$CVT_L_TB! 0! Convert an Unsigned Integer to Binary Text! <! The Convert an Unsigned Integer to BIinary Text routine?! converts an unsigned integer value of arbitrary length toN! 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! 8! The Convert Signed Integer to Decimal Text routineD! converts a signed integer to a decimal ASCII text string. ThisN! routine supports FORTRAN Iw and Iw.m output and JBASIC output conversion.!  INTEGER*4 ots$cvt_l_ti EXTERNAL ots$cvt_l_ti! OTS$CVT_L_TL! %! Convert Integer to Logical Text! 1! The Convert Integer to Logical Text routine@! 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! 8! The Convert Unsigned Integer to Octal TeKxt routineA! converts an unsigned integer to an octal ASCII text string.J! 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 decimalG! representation in an ASCII text string. By default, a longword is! Lconverted.!  INTEGER*4 ots$cvt_l_tu EXTERNAL ots$cvt_l_tu! OTS$CVT_L_TZ! )! Convert Integer to Hexadecimal Text! 5! The Convert Integer to Hexadecimal Text routine>! converts an unsigned integer to a hexadecimal ASCII textI! 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! 9! M The Convert Binary Text to Unsigned Integer routineA! converts an ASCII text string representation of an unsignedP! binary value to an unsigned integer value of arbitrary length. By default,L! 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! 8! The Convert Signed Integer TNext to Integer routine?! converts an ASCII text string representation of a decimal?! number to a signed byte, word, or longword integer value.!! The result is a longword byI! 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! 1! The Convert Logical Text to Integer routineD! converts an ASCII text string Orepresentation of a FORTRAN-77 LT! format to a byte, word, or longword integer value. The result is a longword byI! 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! 6! The Convert Octal Text to Signed Integer routine9! converts an ASCII text string representation of an M! octal value to a signed integer ofP 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 routineA! converts an ASCII text string representation of an unsignedQ! decimal value to an unsigned byte, word, or longword value. By default, theQ! result Q 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! 2! Convert Hexadecimal Text to Unsigned Integer! >! The Convert Hexadecimal Text to Unsigned Integer routineA! converts an ASCII text string representation of an unsignedF! hexadecimal value to an unsigned integer of an arbitrary length.N! The result is a longword by default, bRut the calling program can specify! a byte, word, or longword ! value.!  INTEGER*4 ots$cvt_tz_l EXTERNAL ots$cvt_tz_lCDEC$ END OPTIONSwwZ!*** MODULE PPL$DEF ***CDEC$ OPTIONS /NOALIGN9! Definitions for RTL Parallel Processing Facility - PPL! ! Pre-defined event ids.! G PARAMETER PPL$K_ABNORMAL_EXIT = -2 ! abnormal participant terminationC PARAMETER PPL$K_NORMAL_EXIT = -1 ! normal participant termination! ! Shared memory options fSlags.! % 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 = 13 PARAMETER PPL$V_NOZERO = 0 ! not demand-zero PARAMETER PPL$S_NOWRT = 1, PARAMETER PPL$V_NOWRT = 1 ! read-only PARAMETER PPL$S_FLUSH = 10 PARAMETER PPL$V_FLUSH = 2 ! write to disk PARAMETER PPL$S_NTOUNI = 1@ 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_STOP_CHILDREN = '00000004'X+ PARAMETER PPL$M_NON_BLOCKING = '00000008'X) PARAMETER PPL$M_NOTIFY_ONE = '00000010'X( PARAMETER PPL$M_SPIN_WAIT = U '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_FORCEDEL = '00004000'X' PARAMETER PPL$M_NOCLISYM = '00008000'X' PARAMETER PPL$M_NOLOGNAM = '00010000'X' PARAMETER PPL$M_NOKEYPAD = '00020000' VX% 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 STRUCTURE /proc_options/# PARAMETER PPL$S_INIT_SYNCH = 1I PARAMETER PPL$V_INIT_SYNCH = 0 ! parent blocks until children init W PARAMETER PPL$S_NODEBUG = 12 PARAMETER PPL$V_NODEBUG = 1 ! disable DEBUG& PARAMETER PPL$S_STOP_CHILDREN = 1N PARAMETER PPL$V_STOP_CHILDREN = 2 ! stop children of terminating process% PARAMETER PPL$S_NON_BLOCKING = 1M PARAMETER PPL$V_NON_BLOCKING = 3 ! don't block if semaphore unavailable# PARAMETER PPL$S_NOTIFY_ONE = 1I PARAMETER PPL$V_NOTIFY_ONE = 4 ! notify only one enabler for event" PARAMETER PPL$S_SPIN_WAIT = 1> PARAMETER PPL$V_SPIN_WAIT = 5 X ! spin rather than $HIBER! PARAMETER PPL$S_FORMONLY = 1I PARAMETER PPL$V_FORMONLY = 6 ! Only form (do not join) a new appl.! PARAMETER PPL$S_JOINONLY = 1I PARAMETER PPL$V_JOINONLY = 7 ! Only join (do not form) a new appl. PARAMETER PPL$S_PERM = 1@ PARAMETER PPL$V_PERM = 8 ! Create a permanent application PARAMETER PPL$S_SYSTEM = 1D PARAMETER PPL$V_SYSTEM = 9 ! Create a system-wide application" PARAMETER PPL$S_DELETEALL = 1K PARAMETER Y PPL$V_DELETEALL = 10 ! Delete all corresponding work items" PARAMETER PPL$S_TAILFIRST = 1A PARAMETER PPL$V_TAILFIRST = 11 ! Delete from tail of queue PARAMETER PPL$S_ATHEAD = 1@ PARAMETER PPL$V_ATHEAD = 12 ! Insert at the head of queue! PARAMETER PPL$S_FROMTAIL = 1@ PARAMETER PPL$V_FROMTAIL = 13 ! Remove from tail of queue! PARAMETER PPL$S_FORCEDEL = 1C PARAMETER PPL$V_FORCEDEL = 14 ! Force deletion of work queue! PARAMETER PPL$S_NOCLISYM Z= 1J PARAMETER PPL$V_NOCLISYM = 15 ! Do not inherit parent's CLI symbols! PARAMETER PPL$S_NOLOGNAM = 1G PARAMETER PPL$V_NOLOGNAM = 16 ! Do not inherit parent's logicals! PARAMETER PPL$S_NOKEYPAD = 1K PARAMETER PPL$V_NOKEYPAD = 17 ! Inherit parent's keypad state & defs PARAMETER PPL$S_NOTIFY = 1I PARAMETER PPL$V_NOTIFY = 18 ! Broadcast message on child terminate" PARAMETER PPL$S_NOCONTROL = 1L PARAMETER PPL$V_NOCONTROL = 19 ! No carriage co [ntrol prefix on prompt$ PARAMETER PPL$S_CALL_UNIQUE = 1A PARAMETER PPL$V_CALL_UNIQUE = 20 ! Request call unique name$ PARAMETER PPL$S_PROC_UNIQUE = 1D PARAMETER PPL$V_PROC_UNIQUE = 21 ! Request process unique name% PARAMETER PPL$S_SPIN_COUNTED = 1N PARAMETER PPL$V_SPIN_COUNTED = 22 ! Spin for counted period 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_optionsCDEC$ END OPTIONSww ! ***********************************************************************************************************************************************************************************************************************************************************~! Created 9-NOV-1999 09:12:30 by VAX ] SDL V3.2-12 Source: 9-NOV-1999 09:12:30 FORD2$:[VFORT.KIT.FORSYSDEF]PPL$MSG.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** !*** MODULE $PPLDEF ***CDEC$ OPTIONS /NOALIGN! N! This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:48:03.35! !! FILE: PPLMSG.MS ^G EDIT: CMF1004! N! ****************************************************************************! * *%! * COPYRIGHT (C) 1987 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 SOFTWAR _E 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 RELI`ABILITY OF ITS *C! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! * *! * *N! ****************************************************************************! ! ++! ! FACILITY: VAX PPL! ! ABSTRACT:! B! THIS FILE CONTAINS THE DEFINITION FOR THE PPL FACILITY SPECIFIC5! ERROR MESSAGES. THE FACILITY CODE FOR PPL IS 481.! !! ENVIRONMENT: VAX/VMS USER MODE! 1! AUTHOR: P. GILBERT, CREATION DATE: 30-SEP-1986! ! MODIFIED BYa:! ! E01-001 ORIGINAL! 5! E01-002 TO ADD THE FACILITY CODE. CMF 23-JAN-1987! 9! E01-003 TO CORRECT THE IDENT TO MATCH CMF 26-JAN-1987! THE CMS GENERATION NUMBER.! 9! 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 16b-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! 5! V051-001 ADDED PPL$_NO_NEXT_PROC WWS 09-SEP-1988! <! V53-001 CORRECTED EVENT SIGNAL MESSAGES WWS 20-MAR-1989! 5! V53-002 ADDED THE V5.3 MESSAGES WWS 27-MAR-1c989! =! 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! K! IN ADDITION, THE IBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",H! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE8! ERROR MESSAGE, NOT COUNTING ARTICLES AND PREPSITIONS.! M! THE NAMES OF ALL PROCEDURES USING EACH dERROR CONDITION VALUE SHOULD APPEAR7! 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 NOTE:! B! THE MESSAGES HERE SHOULD BE RESOLVED FROM STARLET.OLB. INORDERA! FOR THIS TO HAPPEN, SEVERAL V eMS BUILD FILES NEED TO BE EDITED.@! THIS WILL BE DONE FOR SYS 11. NOTE THAT SEVERAL OF OUT BUILD;! PROCEDURES MAY NEED TO BE EDITED. PPLRTLBLD.COM TO COPY5! AND DELETE APPROPRIATE FILE IN APPROPRIATE PLACES.! E! ALSO, THE FILE PPLDEF WILL NEED TO BE CHANGED TO BE NAME PPLMSGDEF1! TO FOLLOW THE STANDARDS OF THE OTHER ROUTINES.! F! 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.! ! -! ; SfET 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 STATUS9! INDICATING THE ITEM WAS NOT JUST SUCCESSFULLY FOUND.$! USER ACTION: CONTINUE NORMALLY.! g--+ PARAMETER PPL$_NOONE_ENABLED = '01E18019'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYE! 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 LIBRARYF! EXPLANATION: ALTERNATE SUCCESS STATUS RETURNED WHEN USER REQUESTS6! IMMEDIATE NON-BLOCKING ACCEhSS TO A RESOURCE WHICH! WAS NOT AVAILABLE.$! USER ACTION: CONTINUE NORMALLY.! --* PARAMETER PPL$_CREATED_SOME = '01E18029'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYH! EXPLANATION: SOME OF THE REQUESTED ITEMS WERE CREATED, BUT NOT ALL.H! 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! D! EXPLANATION: THIS CODE iIS FOR INTERNAL USE ONLY AND IS RETURNED9! FROM THE ROUTINE, PPL$$TELL, WHEN IT IS INVOKED WITH7! 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! PERFOjRMED.! "! USER ACTION CONTINUE NORMALLY! --;! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES!!!+! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW.! ; SET LH TO 481 (DECIMAL)K! *** EXCQUESIZ ! ++'! FACILITY: PPL, RUN-TIME LIBRARY4! EXPLANATION: TOO MANY CALLERS REQUIRED QUEUING.H! USER ACTION: RECODE TO REDUCE NUMBER OF CALLERS ACCESSING RESOURCE.! --' PARAMETER PPL$_INCOMPEXI = '01E18204'X! ++'! kFACILITY: PPL, RUN-TIME LIBRARY9! 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 LIBRARYD! EXPLANATION: CALLER DOES NOT HAVE SUFFICIENT AVAILABLE SPACE TO! COMPLETE REQUEST.E! USER ACTION: IF YOU USE EXTENSIVE PPL SERVICES, TRY SPECIFYING A6! LARGER VALUE TO PPL$INITIALIZE. OTHERWISE, CHECK8! YOUR SYSTEM QUOTAS TOl SEE IF AN INCREASE IS NEEDED.! --% PARAMETER PPL$_INVDESC = '01E18214'X! ++'! FACILITY: PPL, RUN-TIME LIBRARY(! EXPLANATION: DESCRIPTOR IS INVALID.3! 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.A! USER ACTION: EXAMINE PROGRAM CODE - SOME MODIFICATION OF THE! ELEMENT ID HAS OCCURRED.! --' PARAMETER PPL$_INVEmLENAM = '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 LIBRARYD! EXPLANATION: USER SPECIFIED AN ELEMENT WHICH CANNOT BE OPERATED! BY THE CALLED ROUTINE.9! USER ACTION: RECODE TO PASS THE PROPER ELEMENT TYPE.! --' PARAMETER PPL$_INVNUMCHI = '01E18234'X! ++'! FACILITY: PPL, RUN-TIME LInBRARY:! EXPLANATION: USER REQUESTED CREATION OF A NUMBER < 1.9! USER ACTION: RECODE REQUEST TO USE THE PROPER VALUE.! --6! *** 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 LIBRARYC! EXPLANATION: A SEMAPHORE INITIAL VALUE MUST BE <= ITS MAXIMUM.5! USER ACTION:o CHANGE THE SPECIFIED INITIAL VALUE.! --' PARAMETER PPL$_INVSEMMAX = '01E18244'X! ++'! FACILITY: PPL, RUN-TIME LIBRARY?! EXPLANATION: A SEMAPHORE'S MAXIMUM VALUE MUST BE POSITIVE.5! USER ACTION: CHANGE THE SPECIFIED MAXIMUM VALUE.! --' PARAMETER PPL$_LOCNOTEST = '01E1824C'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYF! EXPLANATION: YOU CANNOT RELEASE A LOCK YOU HAVE NOT BEEN GRANTED.?! USER ACTION: RECODE TO ASSURE THAT THE LOCK IS HELD BY THE%! CALLER ATpTEMPTING TO RELEASE IT.! --% PARAMETER PPL$_NOSECEX = '01E18254'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYG! EXPLANATION: SECTION SPECIFIED FOR FLUSH OR DELETE DOES NOT EXIST.H! 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! ++'! q 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.! --' PARAMETER 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 = '01Er1826C'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYB! EXPLANATION: INPUT NAME DOES NOT SPECIFY AN EXISTING ELEMENT.B! USER ACTION: RECODE TO ASSURE THAT THE NAME MATCHES A CREATED ! ELEMENT.! --' PARAMETER PPL$_WRONUMARG = '01E18274'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYF! 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: s PPL, RUN-TIME LIBRARY'! EXPLANATION: ABNORMAL TERMINATION.B! USER ACTION: AN APPLICATION PARTICIPANT HAS ENDED ABNORMALLY.7! 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.C! USER ACTION: APPLICATION HAS BEEN ABNORMALLY TERMINATED. SOME2! APPLICATION-SPECIFIC RECOVERY MAY BtE DESIRED.! --$ PARAMETER PPL$_INVARG = '01E1828C'X! ++'! FACILITY: PPL, RUN-TIME LIBRARY2! EXPLANATION: A SPECIFIED ARGUMENT IS INVALID.5! USER ACTION: RECODE TO PASS THE PROPER ARGUMENT.! --$ PARAMETER PPL$_NOINIT = '01E18294'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYD! EXPLANATION: PPL$INITIALIZE MUST BE CALLED BEFORE THIS ROUTINE.I! USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER.7! PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST u5! CALLS, BUT NOT FOR THOSE WHICH REQUIRE THE PRIOR! CREATION OF AN ELEMENT.! --$ PARAMETER PPL$_NONPIC = '01E1829C'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYD! EXPLANATION: PPL CANNOT MAP REQUESTED ADDRESS SPACE TO THE SAME ! ADDRESSES IN ALL PROCESSES.I! USER ACTION: IF IT IS CRITICAL TO THE APPLICATION THAT THE REQUESTED9! SPACE APPEAR AT THE SAME ADDRESSES IN ALL PROCESSES,9! THE USER MUST TAKE STEPS TO ASSURE THAT ENOUGH SPACE;! IS MADE AVAILABLE. TvHIS MAY REQUIRE INCREASING SYSTEM7! QUOTAS OR RESERVING THE REQUIRED ADDRESSES THROUGH! LINKTIME OPERATIONS.! --' PARAMETER PPL$_SEMININON = '01E182A4'X! ++'! FACILITY: PPL, RUN-TIME LIBRARY3! EXPLANATION: IMPROPER INITIAL VALUE SPECIFIED.?! USER ACTION: RECODE TO ASSURE THAT PROPER VALUE IS PASSED.! --$ PARAMETER PPL$_NOTIMP = '01E182AC'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYE! EXPLANATION: A CALL HAS BEEN ISSUED TO AN UNIMPLEMENTED SERVICE.0! wUSER ACTION: RECODE TO ELIMINATE THIS CALL.! --' PARAMETER PPL$_ATTUSETWO = '01E182B4'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYB! EXPLANATION: USER HAS ATTEMPTED TO WAIT ON 2 APPLICATION-WIDE! BARRIERS AT THE SAME TIME.F! USER ACTION: RECODE TO ASSURE THAT DEADLOCK IS AVOIDED BY WAITING4! ON ONLY ONE APPLICATION-WIDE BARRIER AT A TIME.! --- PARAMETER PPL$_IN_BARRIER_WAIT = '01E182BC'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYB! EXPLANATION: THE BARRIER WAS xALREADY IN EFFECT AT THE TIME OF! THIS CALL.I! USER ACTION: RECODE TO ASSURE THAT THE BARRIER QUORUM IS ESTABLISHED3! 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.G! USER ACTION: RECODE TO ASSURE THAT PROPER PARTICIPANT IS SPECIFIED!! IN THE CALL TO THIS ROUTINE.! --' PARAMETER PPL$_APPALREXyI = '01E182CC'X! ++'! FACILITY: PPL, RUN-TIME LIBRARY@! EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO FORM AN:! APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION4! ALREADY EXISTS, AND SO CANNOT BE FORMED BY THIS ! PROCESS.B! USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO FORM AN1! APPLICATION, THIS IS APPLICATION-DEPENDENT. ! --& PARAMETER PPL$_ELEINUSE = '01E182D4'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYE! EXPLANATION: THIS PROCESS z ATTEMPTED AN OPERATION WHICH MAY ONLY 3! BE PERFORMED ON AN OBJECT WHICH IS NOT IN USE.<! THE SPECIFIED OBJECT IS CURRENTLY IN USE AND THEREFORE (! THE OPERATION MAY NOT BE PERFORMED.C! 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 LIBRARYI! EXPLANATION: THIS PROCESS SPECIFIED A SIZE, PRO{TECTION, OR FLAG ON A:! CALL TO PPL$INITIALIZE WHICH IS INCOMPATIBLE WITH THE:! EXISTING APPLICATION WHICH THIS PROCESS IS ATTEMPTING ! TO JOIN.C! USER ACTION: RECODE THE CALL TO OMIT THE ARGUMENTS, OR SPECIFY5! 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.! --' PARAM|ETER PPL$_NOSUCHAPP = '01E182EC'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYI! EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO JOIN AN EXISTING:! APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION4! DOES NOT EXIST, AND SO CANNOT BE JOINED BY THIS ! PROCESS.B! USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO JOIN AN1! APPLICATION, THIS IS APPLICATION-DEPENDENT. ! --% PARAMETER PPL$_BUFOVFL = '01E19000'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYF! } EXPLANATION: BUFFER COULD NOT CONTAIN THE COMPLETE OUTPUT STRING.1! USER ACTION: RECODE TO PASS A LARGER BUFFER.! --% PARAMETER PPL$_ALTSIZE = '01E19008'X! ++'! FACILITY: PPL, RUN-TIME LIBRARY9! EXPLANATION: PPL$INITIALIZE HAS ALREADY BEEN CALLED.I! USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER.7! PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST9! CALLS. ALTERING THE INTERNAL STRUCTURE SIZE MUST BE'! DONE BEFORE ANY OTHER CALL TO P~PL.! --' PARAMETER PPL$_ELEALREXI = '01E1C003'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYA! EXPLANATION: AN ELEMENT BY THIS NAME ALREADY EXISTS, AND ITS! ID HAS BEEN RETURNED.E! 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.F! USER ACTION: RECODE TO ASSURE THAT ONLY THE PROPER MAXIMUM NUMBER4! OF PPL$INCREMENT_SEMAPHORE REQUESTS ARE ISSUED.! --' PARAMETER PPL$_INTDELPRC = '01E1C013'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYG! EXPLANATION: AN APPLICATION CALL TO PPL$STOP FORCED THE TEMINATION! OF THIS PARTICIPANT.E! USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY,+! ANY ACTIONS ARE APPLICATION-DEPENDENT.! --' PARAMETER PPL$_INTTERMIN = '01E1C01B'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYA! EXPLANATION: AN APPLICATION CALL TO PPL$TERMINATE FORCED THE$! TEMINATION OF THIS PARTICIPANT.E! USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY,+! ANY ACTIONS ARE APPLICATION-DEPENDENT.! --( PARAMETER PPL$_EXITSTATUS = '01E1C023'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYE! EXPLANATION: AN APPLICATION PARTICIPANT EXITED WITH THIS STATUS.E! USER ACTION: DETERMINE THE CAUSE OF THE TERMINATION BY EXAMINING! THE STATUS CODE.! --, PARAMETER PPL$_EVENT_OCCURRED = '01E1C02B'X! ++'! FACI LITY: PPL, RUN-TIME LIBRARYD! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF AN EVENT FOR7! WHICH NOTIFICATION HAS BEEN REQUESTED BY THE USER.D! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,'! RESPONSE IS APPLICATION-DEPENDENT.! --) PARAMETER PPL$_NORMAL_EXIT = '01E1C033'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYB! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE NORMAL#! PARTICIPANT TERMINATION EVENT.D! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,'! RESPONSE IS APPLICATION-DEPENDENT.! --+ PARAMETER PPL$_ABNORMAL_EXIT = '01E1C03B'X! ++'! FACILITY: PPL, RUN-TIME LIBRARYD! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE ABNORMAL#! PARTICIPANT TERMINATION EVENT.D! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,'! RESPONSE IS APPLICATION-DEPENDENT.! --' PARAMETER PPL$_FORMEDAPP = '01E1C043'X! ++'! FACILITY: PPL, RUN-TIME LIBRARY8! EX PLANATION: THIS PROCESS FORMED A NEW APPLICATION.C! 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.C! 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.C! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT.! --CDEC$ END OPTIONSwwM! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:29 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:29 FORD2$:[VFORT.KIT.FORSYSDEF]PPL$ROUTINES .SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** !*** MODULE ppl$routines ***CDEC$ OPTIONS /NOALIGNM! ***************************************************************************! *1! COPYRIGHT (c) 1988 BY *A! DIGITAL EQUIPMENT CORPORATIO N, MAYNARD, MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFER RED. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! ***************************************************************************"! PPL$ADJUST_SEMAPHORE_MAXIMUM! ! Adjust a Semaphore Maximum! Q! 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! K! 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! I! 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! L! The Form or Join a PPL$ Application routine informs the PPL$ facility L! 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 a2! barrier, and returns the barrier identifier.F! 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! I!  The Create an Event routine creates an arbitrary user-defined eventG! 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! J! The Create Spin Lock routine creates and initializes a simple (spin)M! 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! H! The Create Shared Memory routine creates (if necessary) and maps aA! 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! O! 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 aK! semaphore with a waiting queue, and returns the semaphore identifier.H! 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! H! The Create a New Virtual Memory Zone routine creates a new storageG! 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! G! The Delete a PPL$ Application routine marks all shared memory forN! deletion and prevents additional processes from joining the application.! ! INTEGER*4 ppl$delete_application EXTERNAL ppl$delete_application! PPL$DECREMENT_SEMAPHORE! ! Decrement a Semaphore! G! The Decrement a Semaphore routine waits for a semaphore to have a5! value greater than 0, then decrements the value4! by 1 to indicate the allocation of a resource.! " INTEGER*4 ppl$decrement_semaphore! EXTERNAL ppl$decrement_semaphore! PPL$DISABLE_EVENT! 3! Disable Asynchronous Notification of an Event! V! The Disable Asynchronous Notification of an Event routine disables delivery to aB! 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! J! 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! F! The Delete Shared Memory routine deletes or unmaps from a globalJ! section that you created using the PPL$CREATE_SHARED_MEMORY routine.K! 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! T! 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! N! The Enable AST Notification of an Event routine specifies the address ofQ! 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! D! 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! K! The Flush Sh ared Memory routine writes (flushes) to disk the contentsM! of a global section that you created using the PPL$CREATE_SHARED_MEMORYF! 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! K! Given the name of a spin lock, semaphore, barrier, event, work queue,K! or shared memory zone, the Find Object Identification routine returnsI! 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 ! F! Given the name of a spin lock, semaphore, barrier, or event, theE! 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! L! The Get Index of a Participant routine returns an index that is uniqueL! within the application. A value of zero signifies the participant thatG! formed the application. The other participants in the application0! 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! V! 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! M! The Increment a Semaphore routine increments the value of the semaphoreH! by 1, analogous to the signal protocol. If any other participantsJ! are blocked on a call to PPL$DECREMENT_SEMAPHORE for this semaphore,1! one is removed from the queue and awakened.C! 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! J! The Convert Participant Index to VMS PID routine returns the VMS PID9! 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! Q! The Initialize the PPL$ Facility routine informs the PPL$ facility that theJ! caller is forming or joining the parallel application. Calling thisA! 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! O! 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! S! The Read a Barrier routine returns the specified barrier's current quorum andQ! 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! Q! The Read an Event State routine returns the current state of the specified ! event.5! 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 orC! 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! N! The Release Spin Lock routine relinquishes the spin lock by clearing theD! 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! U! 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! L! The Read a Spin Lock State routine returns the current state of a spin8! 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! K! 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! Q! 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! G! The Initiate Parallel Execution routine executes code in parallelN! 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! E! 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! N! 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! P! The Seize Spin Lock routine retrieves a simple (spin) lock by waiting in aJ! 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'sJ! participation in the application prematurely---that is, at some time9! before the caller actually completes its execution.!  INTEGER*4 ppl$terminate EXTERNAL ppl$terminate! PPL$TRIGGER_EVENT! ! Trigger an Event! E! The Trigger an Event routine causes the event's state to become<! occurred. You control whether all pending actions forH! the event are processed (made to occur), or just one is processed.H! 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! K! The Produce a Unique Name routine returns an application-unique name.L! 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 inR! 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.H! The barrier is in effect from the time the first participant calls2! PPL$WAIT_AT_BARRIER until each member of theG! 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_barrierCDEC$ END OPTIONSww*! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:31 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:31 FORD2$:[VFORT.KIT.FORSYSDEF]PSM$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** &!*** MODULE PSM$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! -! Print Symbiont Modification (PSM) Routines! ! 1! PSM$PRINT - Invoke VMS-Supplied Print Symbiont! 6! status = PSM$PRINT ([streams], [bufsiz], [worksiz])! 2! streams - Maximum number of streams to support@! bufsiz - Maximum buffer size in bytes for output operations8! worksiz - Size in bytes of work area to be allocated!  INTEGER*4 PSM$PRINT EXTERNAL PSM$PRINT! 3! PSM$READ_ITEM_DX - Obtain Value of Message Items! 7! status = PSM$READ_ITEM_DX (request_id, item, buffer)! L! request_id - Request identifier supplied by the symbiont to user routineB! item - Item code identifying message item to be returned3! 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 replaced6! 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])! L! request_id - Request identifier supplied by the symbiont to user routineF! status - Completion status of asynchronous operation completed!  INTEGER*4 PSM$REPORT EXTERNAL PSM$REPORTCDEC$ END OPTIONSww- ! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:45 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:45 FORD2$:[VFORT.KIT.FORSYSDEF] SMB$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** &!*** MODULE SMB$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! 3! Symbiont/Job Controller Interface (SMB) Routines! ! @! 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! 4! SMB$INITIALIZE - Initialize User-Written Symbiont! F! status = SMB$INITIALIZE (structure_level [,ast_routine] [,streams])! F! structure_level - Version of the job-controller/symbiont interface2! 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! 6! status = SMB$READ_MESSAGE (stream, buffer, request)! '! stream - Stream number for message2! 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! F! 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! 6! SMB$SEND_TO_JOBCTL - Send Message to Job Controller! ?! status = SMB$SEND_TO_JOBCTL (stream [,request] [,accounting]5! [,checkpoint] [,device_status] [,error])! <! stream - Number of stream to which message refers<! request  - Code identifying request being completed7! accounting - Accounting information about a task6! checkpoint - Checkpoint data about current task;! device_status - Status of device served by the symbiontA! error - Condition code returned by the requested task!  INTEGER*4 SMB$SEND_TO_JOBCTL EXTERNAL SMB$SEND_TO_JOBCTLCDEC$ END OPTIONSwwMo7! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:48 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:47 FORD2$:[VFORT.KIT.FORSYSDEF]SMG$ROUTINES.SDI;1 ! **************************************************************************************************************************************************************************************************************************** ******************************* !*** MODULE smg$routines ***CDEC$ OPTIONS /NOALIGNM! ***************************************************************************! **! COPYRIGHT (c) 1988, 1995 BY *A! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *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 W ITH 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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFERRED. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *!  *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! ***************************************************************************! SMG$ADD_KEY_DEF! ! Add Key Definition! L! 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! T! 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 ! J! 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 ! I! The Begin Batching of Pasteboard Updates routine saves, or batches,9! all output to a pasteboard until a matching call to/! 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 anyA! 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$CURSOR_COLUMN! #! Return Cursor Column Position! L! 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$CHECK_FOR_OCCLUSION! ! Check for Occlusion! E! 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$CHANGE_VIEWPORT! ! Change the Viewport! G! The Change the Viewport Associated with a Virtual Display routineH! changes the size of an existing viewport in a virtual display. TheG! text that is currently in the viewport is remapped to fit the new! dimensions.!  INTEGER*4 smg$change_viewport EXTERNAL smg$change_viewport! SMG$CREATE_KEY_TABLE! ! Create Key Table! G! 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! L! The Fill the Virtual Display with a Menu routine displays menu choicesF! in the virtual display indicated, starting at the specified row.!  INTEGER*4 smg$create_menu EXTERNAL smg$create_menu! SMG$CONTROL_MODE! ! Control Mode! H! The Control Mode routine controls the mode of the pasteboard. ThisI! includes buffering, minimal updating, whether the screen is clearedI! 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! F! The Copy a Virtual Display routine creates a copy of an existingI! virtual display and assigns to it a new virtual display identifier.! # INTEGER*4 smg$copy_virtual_display" EXTERNAL smg$copy_virtual_display! SMG$CREATE_PASTEBOARD! !  Create a Pasteboard! Q! The Create Pasteboard routine creates a pasteboard and returns its assigned! pasteboard identifier.! INTEGER*4 smg$create_pasteboard EXTERNAL smg$create_pasteboard$! SMG$CHANGE_PBD_CHARACTERISTICS! '! Change Pasteboard Characteristics! W! The Change Pasteboard Characteristics routine lets you change the characteristics#! associated with a pasteboard.! ) INTEGER*4 smg$change_pbd_characteristics( EXTERNAL smg$change_pbd_characteristics! SMG$CHANGE_RENDITION! ! Change Default Rendition! \! 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$CURSOR_ROW! ! Return Cursor Row Position! I! 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$CREATE_SUBPROCESS! (! Create and Initialize a Subprocess! B! 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_VIRTUAL_DISPLAY! ! Create a Virtual Display! R! The Create Virtual Display routine creates a virtual display and returns its"! assigned display identifier.! % INTEGER*4 smg$create_virtual_display$ EXTERNAL smg$create_virtual_display ! SMG$CHANGE_VIRTUAL_DISPLAY! ! Change Virtual Display! Z! The Change Virtual Display routine lets you change the dimensions, border, and video&! attributes of a virtual display.! % INTEGER*4 smg$change_virtual_display$ EXTERNAL smg$change_virtual_display!! SMG$CREATE_VIRTUAL_KEYBOARD! ! Create Virtual Keyboard! ]! The Create Virtual Keyboard routine creates a virtual keyboard and returns its assigned! keyboard identifier.! & INTEGER*4 smg$create_virtual_keyboard% EXTERNAL smg$create_virtual_keyboard! SMG$CREATE_VIEWPORT! ! Create a Virtual Viewport! B! The Create a Virtual Viewport routine creates a viewport andH! 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$DELETE_CHARS! ! Delete Characters! L! The Delete Characters routine deletes characters in a virtual display.!  INTEGER*4 smg$delete_chars EXTERNAL smg$delete_chars! SMG$DEFINE_KEY! "! Perform a DEFINE/KEY Command! F! The Perform a DEFINE/KEY Command routine performs the DEFINE/KEY! command you provide.!  INTEGER*4 smg$define_key EXTERNAL smg$define_key$! SMG$DISABLE_BROADCAST_TRAPPING! ! Disable Broadcast Trapping! K! The Disable Broadcast Trapping routine disables trapping of broadcast*! messages for the specified terminal.! ) INTEGER*4 smg$disable_broadcast_trapping( EXTERNAL smg$disable_broadcast_trapping#! SMG$DISABLE_UNSOLICITED_INPUT! ! Disable Unsolicited Input! D! The Disable Unsolicited Input routine disables the trapping of! unsolicited input.! ( INTEGER*4 smg$disable_unsolicited_input' EXTERNAL smg$disable_unsolicited_input! SMG$DELETE_KEY_DEF! ! Delete Key Definition! I! 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! C! The Delete Line routine deletes lines from a virtual display.!  INTEGER*4 smg$delete_line EXTERNAL smg$delete_line! SMG$DELETE_MENU! 1! End Access to a Menu in the Virtual Display! L! The End Access to a Menu in the Virtual Display routine ends access to8! the menu choices in the specified virtual display.!  INTEGER*4 smg$delete_menu EXTERNAL smg$delete_menu! SMG$DELETE_PASTEBOARD! ! Delete Pasteboard! 9! The Delete Pasteboard routine deletes a pasteboard.! INTEGER*4 smg$delete_pasteboard EXTERNAL smg$delete_pasteboard! SMG$DRAW_CHAR! +! Draw a Character in a Virtual Display! L! The Draw a Character in a Virtual Display routine draws a character at2! the specified position in a virtual display.!  INTEGER*4 smg$draw_char EXTERNAL smg$draw_char! SMG$DRAW_LINE! ! Draw a Line! B! 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! 5! The Draw a Rectangle routine draws a rectangle.!  INTEGER*4 smg$draw_rectangle EXTERNAL smg$draw_rectangle! SMG$DELETE_SUBPROCESS! ! Terminate a Subprocess! F! The Terminate a Subprocess routine deletes a subprocess that was5! created with the SMG$CREATE_SUBPROCESS routine.! INTEGER*4 smg$delete_subprocess EXTERNAL smg$delete_subprocess! SMG$DEL_TERM_TABLE! ! Delete Terminal Table! T! The Delete Terminal Table routine terminates access to a private TERMTABLE.EXE5! and frees the associated virtual address space.!  INTEGER*4 smg$del_term_table EXTERNAL smg$del_term_table ! SMG$DELETE_VIRTUAL_DISPLAY! ! Delete Virtual Display! C! 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! E! The Delete Virtual Keyboard routine deletes a virtual keyboard.! & INTEGER*4 smg$delete_virtual_keyboard% EXTERNAL smg$delete_virtual_keyboard! SMG$DELETE_VIEWPORT! ! Delete a Viewport! K! 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$ERASE_CHARS! ! Erase Characters! L! 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$END_DISPLAY_UPDATE! ! End Display Update! P! 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! N! The End Pasteboard Update routine ends update batching for a pasteboard.! $ INTEGER*4 smg$end_pasteboard_update# EXTERNAL smg$end_pasteboard_update"! SMG$ENABLE_UNSOLICITED_INPUT! ! Enable Unsolicited Input! H! 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$ERASE_COLUMN! ! Erase Column from Display! K! The Erase Column From Display routine erases the specified portion ofK! 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! G! The Erase Virtual Display routine erases all or part of a virtual7! display by replacing text characters with blanks.!  INTEGER*4 smg$erase_display EXTERNAL smg$erase_display! SMG$ERASE_LINE! ! Erase Line! O! 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! G! 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!  H! The Execute Command in a Subprocess routine executes the specifiedF! 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! C! The Find Display that Contains the Cursor routine returns theJ! 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! K! 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! I! The Flush Display Update routine flushes any update batching to the6! 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! H! 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! I! 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! J! 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! J! The Get Keyboard Attributes routine gets information about a virtualB! 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! T! 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! F! 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_PASTING_INFO! ! Return Pasting Information! J! Provided that the specified virtual display is currently pasted, theJ! 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_PASTEBOARD_ATTRIBUTES! ! Get Pasteboard Attributes! J! The Get Pasteboard Attributes routine gets pasteboard attributes and6! stores them in the pasteboard information table.! ( INTEGER*4 smg$get_pasteboard_attributes' EXTERNAL smg$get_pasteboard_attributes! SMG$GET_TERM_DATA! ! Get Terminal Data! J! The Get Terminal Data routine accesses TERMTABLE.EXE and returns theF! 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 ! E! The Get Characteristics of Display Viewport routine returns the0! characteristics of the specified viewport.! INTEGER*4 smg$get_viewport_char EXTERNAL smg$get_viewport_char! SMG$HOME_CURSOR! ! Home Cursor! G! 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! E! The Initialize Terminal Table routine initializes the TERMTABLEB! database for the terminal named, so that subsequent calls toL! 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$INSERT_CHARS! ! Insert Characters! N! The Insert Characters routine inserts characters into a virtual display.!  INTEGER*4 smg$insert_chars EXTERNAL smg$insert_chars! SMG$INSERT_LINE! ! Insert Line! G! 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$INIT_TERM_TABLE_BY_TYPE! 0! Initialize TERMTABLE by VMS Terminal Type ! K! The Initialize TERMTABLE by VMS Terminal Type routine initializes theL! TERMTABLE database for the terminal named, so that subsequent calls toL! 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$INVALIDATE_DISPLAY! ! Mark a Display as Invalid! J! 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 ! O! 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! G! 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$LOAD_KEY_DEFS! ! Load Key Definitions! ;! The Load Key Definitions routine loads a file of key ! definitions 7! (DEFINE/KEY commands) into a specified key table.!  INTEGER*4 smg$load_key_defs EXTERNAL smg$load_key_defs! SMG$LIST_KEY_DEFS! ! List Key Definitions! C! The List Key Definitions routine returns, one at a time, the ! definitions (equivalenceG! strings) associated with specified keys in a specified key table.!  INTEGER*4 smg$list_key_defs EXTERNAL smg$list_key_defs! SMG$LIST_PASTING_ORDER! 0! Return Virtual Display Pasting Information! H! Th e Return Virtual Display Pasting Information routine returns theK! identifiers of the virtual displays pasted to a specified pasteboard.2! 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$LIST_PASTEBOARD_ORDER! ! Return Pasting Information! C! The Return Pasting Information routine returns the pasteboardL! identifi er of the pasteboard to which the specified virtual display isL! pasted. Optionally, the pasteboard row 1 and column 1 (origins) of the*! virtual displays are also returned. ! $ INTEGER*4 smg$list_pasteboard_order# EXTERNAL smg$list_pasteboard_order! 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_VIRTUAL_DISPLAY! ! Move Virtual Display! V! The Move Virtual Display routine relocates a virtual display on a pasteboard and"! preserves the pasting order.! # INTEGER*4 smg$move_virtual_display" EXTERNAL smg$move_virtual_display! SMG$MOVE_TEXT! 3! Move Text from One Virtual Display to Another! /! The Move Text from One Virtual Display toK! Another routine moves a rectangle of text from one virtual display toJ! another virtual display. Given two points in opposite corners of theJ! rectangle, SMG$MOVE_TEXT determines the desired width and height of ! the new virtual display.!  INTEGER*4 smg$move_text EXTERNAL smg$move_text! SMG$NAME_TO_KEYCODE! +! Translate a Key Name into a Key Code ! I! 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! Q! The Paste Virtual Display routine pastes a virtual display to a pasteboard.! $ INTEGER*4 smg$paste_virtual_display# EXTERNAL smg$paste_virtual_display! SMG$PUT_CHARS! +! Write Characters to a Virtual Display! >! The Write Characters to a Virtual Display routine writes@! characters in a virtual display with the text you specify.!  INTEGER*4 smg$put_chars EXTERNAL smg$put_chars! SMG$PUT_CHARS_HIGHWIDE! 2! Write Double-Height Double-Width Characters ! D! The Write Double-Height Double-Width Characters routine writesB! 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 ! O! The Put Text with Multiple Renditions to Display routine writes text with1! 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! S! 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! K! The Output Help Text to the Display routine retrieves and outputs theH! 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! J! The Write Line to Virtual Display routine writes a line of text to aH! 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 ! L! 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! 4! Write Line with Multiple Renditions to Display! @! The Write Line with Multiple Renditions to Display routineC! writes lines with multiple renditions to the virtual display,7! 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! L! 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$POP_VIRTUAL_DISPLAY! )! Delete a Series of Virtual Displays! I! The Delete a Series of Virtual Displays routine deletes a specifiedH! virtual display and all displays that were pasted on the specified9! pasteboard on top of the specified virtual display.! " INTEGER*4 smg$pop_virtual_display! EXTERNAL smg$pop_virtual_display! SMG$PUT_PASTEBOARD! %! Output Pasteboard Using Routine! L! The Output Pasteboard Using Routine routine accesses the contents of a! pasteboard.!  INTEGER*4 smg$put_pasteboard EXTERNAL smg$put_pasteboard! SMG$PRINT_PASTEBOARD! *! Print Pasteboard Using a Print Queue! J! The Print Pasteboard Using a Print Queue routine prints the contents4! of the specified pasteboard on a line printer.!  INTEGER*4 smg$print_pasteboard EXTERNAL smg$print_pasteboard! SMG$PUT_STATUS_LINE! 1! Output Line of Text to Hardware Status Line! L! 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! U! SMG$PUT_VIRTUAL_DISPLAY_ENCODED lets you write a string that has 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! T! 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$RING_BELL! &! Ring the Terminal Bell or Buzzer! V! The Ring the Terminal Bell or Buzzer routine sounds the terminal bell or buzzer.!  INTEGER*4 smg$ring_bell EXTERNAL smg$ring_bell! SMG$READ_COMPOSED_LINE! ! Read Composed Line! F! The Read Composed Line routine reads a line of input composed of0! normal keystrokes and equivalence strings.! ! INTEGER*4 smg$read_composed_line EXTERNAL smg$read_composed_line! SMG$REMOVE_LINE! *! Remove a Line from a Virtual Display! L! The Remove a Line from a Virtual Display routine removes a line from aH! 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$REPLACE_INPUT_LINE! ! Replace Input Line! H! 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$RETURN_INPUT_LINE! ! Return Input Line! \! The Return Input Line routine returns to the caller the requested line from the recallU! buffer. This line is retrieved either by matching it with a specified string or0! by specifying the appropriate line number.! INTEGER*4 smg$return_input_line EXTERNAL smg$return_input_line! SMG$READ_FROM_DISPLAY! ! Read Text from Display! U! 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! L! 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! D! The Read Locator Information routine reads information from a J! DECwindows workstation terminal's locator device (such as a mouse or! tablet). !  INTEGER*4 smg$read_locator EXTERNAL smg$read_locator! SMG$REPAINT_LINE! 9! Repaint One or More Lines on the Current Pasteboard! P! The Repaint One or More Lines on the Current Pasteboard routine repaints a0! series of lines on the current pasteboard.!  INTEGER*4 smg$repaint_line EXTERNAL smg$repaint_line! SMG$REPAINT_SCREEN! ! Repaint Current Pasteboard! C! 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 ! J! The Repaste Virtual Display routine moves a virtual display to a newE! position on the pasteboard. The pasting order is not preserved.! & INTEGER*4 smg$repaste_virtual_display% EXTERNAL smg$repaste_virtual_display!! SMG$RESTORE_PHYSICAL_SCREEN! !! Restore Physical Pasteboard! Q! The Restore Physical Pasteboard routine rewrites the pasteboard image as itF! was at the time the SMG$SAVE_PHYSICAL_SCREEN routine was called.! & INTEGER*4 smg$restore_physical_screen% EXTERNAL smg$restore_physical_screen! SMG$READ_STRING! ! Read String! E! The Read String routine reads a string from a virtual keyboard.!  INTEGER*4 smg$read_string EXTERNAL smg$read_string! SMG$RETURN_CURSOR_POS! ! Return Cursor Position! K! 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$READ_VERIFY! ! Read and Verify a String! I! 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$SET_BROADCAST_TRAPPING!  ! Enable Broadcast Trapping ! M! The Enable Broadcast Trapping routine enables the trapping of broadcast! messages.! % INTEGER*4 smg$set_broadcast_trapping$ EXTERNAL smg$set_broadcast_trapping! SMG$SCROLL_DISPLAY_AREA! ! Scroll Display Area! G! 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$SET_CURSOR_ABS! "! Set Absolute Cursor Position! J! The Set Absolute Cursor Position routine moves the virtual cursor to2! the specified position in a virtual display.!  INTEGER*4 smg$set_cursor_abs EXTERNAL smg$set_cursor_abs! SMG$SET_CURSOR_REL! /! Move Cursor Relative to Current Position ! L! The Move Cursor Relative to Current Position routine moves the virtualF! cursor the specified number of rows and columns from the current3! virtual cursor position in a virtual display.!  INTEGER*4 smg$set_cursor_rel EXTERNAL smg$set_cursor_rel! SMG$SCROLL_VIEWPORT! '! Scroll a Display Under a Viewport! b! 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$SET_DISPLAY_SCROLL_REGION! &! Create Display Scrolling Region ! T! The Create Display Scrolling Region routine creates a virtual scrolling region! in a virtual display.! ( INTEGER*4 smg$set_display_scroll_region' EXTERNAL smg$set_display_scroll_region! SMG$SELECT_FROM_MENU! $! Make a Selection from the Menu! J! The Make a Selection from the Menu routine lets you move between theH! menu choices using the arrow keys and lets you make a selection by! pressing RETURN.!  INTEGER*4 smg$select_from_menu EXTERNAL smg$select_from_menu! 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_KEYPAD_MODE! ! Set Keypad Mode! V! 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$SNAPSHOT_TO_PRINTER! ! Write Snapshot to Printer! I! The Write Snapshot to Printer routine writes the current pasteboard5! buffer to the printer attached to the terminal.! " INTEGER*4 smg$snapshot_to_printer! EXTERNAL smg$snapshot_to_printer! SMG$SNAPSHOT! ! Write Snapshot! L! The Write Snapshot routine writes the current pasteboard buffer to theG! file or hardcopy terminal specified by the pasteboard identifier.!  INTEGER*4 smg$snapshot EXTERNAL smg$snapshot! SMG$SET_OUT_OF_BAND_ASTS! ! Set Out-of-Band ASTs ! E! The Set Out-of-Band ASTs routine either enables or disables the1! 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! L! The Set Cursor on Physical Screen routine moves the physical cursor to/! the specified position on the pasteboard.! " INTEGER*4 smg$set_physical_cursor! EXTERNAL smg$set_physical_cursor! SMG$SET_DEFAULT_STATE! ! Set Default State! K! 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_TERM_CHARACTERISTICS! &! Change Terminal Characteristics ! J! The Change Terminal Characteristics routine changes or retrieves the6! terminal characteristics for a given pasteboard.! ' INTEGER*4 smg$set_term_characteristics& EXTERNAL smg$set_term_characteristics! SMG$SAVE_VIRTUAL_DISPLAY! )! Save the Virtual Display to a File ! M! 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$SAVE_PHYSICAL_SCREEN! ! Save Physical Screen! N! The Save Physical Screen routine saves the contents of the pasteboard soF! that a later call to SMG$RESTORE_PHYSICAL_SCREEN can restore it.! # INTEGER*4 smg$save_physical_screen" EXTERNAL smg$save_physical_screen!! SMG$UNPASTE_VIRTUAL_DISPLAY! ! Remove Virtual Display ! U! The Remove Virtual Display routine removes a virtual display from a pasteboard.! & INTEGER*4 smg$unpaste_virtual_display% EXTERNAL smg$unpaste_virtual_displayCDEC$ END OPTIONSww! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:12:54 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:12:53 FORD2$:[VFORT.KIT.FORSYSDEF]SOR$ ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** !*** MODULE sor$routines ***CDEC$ OPTIONS /NOALIGNM! ***************************************************************************! *1! COPYRIGHT (c) 1988 BY *A! DIGITAL EQUIPMENT CO RPORATION, MAYNARD, MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFERRED. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! ***************************************************************************! ! SOR$BEGIN_MERGE ! ! Initialize a Merge Operation! I! Initializes the merge operation by opening the input and output filesG! 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! I! Initializes a sort operation by opening input and output files and by5! 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! G! 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! F! 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! A! 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 Name! <! Used to pass a specification file or specification text.(!   INTEGER*4 SOR$SPEC_FILE EXTERNAL SOR$SPEC_FILE! ! SOR$STAT! ! Obtain Sorting Statistics! G! Returns one statistic about the sort or merge operation to the user ! program.!  INTEGER*4 SOR$STAT EXTERNAL SOR$STATCDEC$ END OPTIONSwwy&5! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:13:53 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:13:53 FORD2$:[VFORT.KIT.FORSYSDEF]STR$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** !*** MODULE str$routines ***CDEC$ OP TIONS /NOALIGNM! ***************************************************************************! *1! COPYRIGHT (c) 1988 BY *A! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *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 SOFT WARE OR ANY OTHER *M! 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. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! *************************************************************************** ! 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! 8! The Analyze String Descriptor routine extracts the-! length and starting address of the data1! for a variety of string descriptor classes.!  INTEGER*2 str$analyze_sdesc EXTERNAL str$analyze_sdesc! STR$APPEND! ! Append String! [! The Append String routine appends a source string to the end of a destination string.H! 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 ! K! The Compare Strings Without Regard to Case routine compares two input$! strings of any supported classU! 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! 2! The Compare Two Strings routine compares the ! contents of two strings. !  INTEGER*4 str$compare EXTERNAL str$compare! STR$CONCAT! %! Concatenate Two or More Strings! L! The Concatenate Two or More Strings routine concatenates all specified7! 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 ! 6! 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 ! 5! The Copy a Source String Passed by Reference to^! a Destination String routine copies a source string passed by reference to a destination ! string.!  INTEGER*4 str$copy_r  EXTERNAL str$copy_r! STR$DIVIDE! ! Divide Two Decimal Strings! I! The Divide Two Decimal Strings routine divides two decimal strings.!  INTEGER*4 str$divide EXTERNAL str$divide! STR$DUPL_CHAR! %! Duplicate Character Empty Times! 1! The Duplicate Character empty Times routineA! generates a string containing empty duplicates of the inputQ! character. If the destination string is an empty dynamic string descriptor,9!   STR$DUPL_CHAR allocates and initializes the string.!  INTEGER*4 str$dupl_char EXTERNAL str$dupl_char! STR$ELEMENT! )! Extract Delimited Element Substring! I! The Extract Delimited Element Substring routine extracts an elementF! from a string in which the elements are separated by a specified! delimiter. !  INTEGER*4 str$element EXTERNAL str$element! STR$COMPARE_EQL! &! Compare Two Strings for Equality! ?!  The Compare Two Strings for Equality routine compares two1! strings to see if they have the same lengthP! and contents. Uppercase and lowercase characters are not considered equal.!  INTEGER*4 str$compare_eql EXTERNAL str$compare_eql! STR$FIND_FIRST_IN_SET! 1! Find First Character in a Set of Characters! *! The Find First Character in a Set of! Characters routine5! searches a string one character at a time, fromQ! left to right, com paring each 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! +! Find First That Does Not Occur in Set! ,! The Find First Character That Does Not! Occur in Set routine8! searches a string, comparing each character to theT! characters in a specified set of characters. The string is searched characterN! by character, from left to right. STR$FIND_FIRST_NOT_IN_SET returns theR! position of the first character in the string that does not match any of the3! characters in the selected set of characters.! $ INTEGER*4 str$find_first_not_in_set# EXTERNAL str$find_first_not_in_set! STR$FREE1_DX! ! Free One Dynamic String! )! The Free One Dynamic String routine%! deallocates one dynamic string.!  INTEGER*4 str$free1_dx EXTERNAL str$free1_dx! STR$FIND_FIRST_SUBSTRING! *! Find First Substring in Input String! 6! The Find First Substring in Input String routine6! finds the first substring (in a provided list of.! substrings) occurring in a given string.! # INTEGER*4 str$find_first_substring" EXTERNAL str$find_first_substring! STR$GET1_DX! !! Allocate One Dynamic String! -! The Allocate One Dynamic String routineE! allocates a specified number of bytes of dynamic virtual memory/! to a specified dynamic string descriptor.!  INTEGER*4 str$get1_dx EXTERNAL str$get1_dx! STR$LEFT! %! Extract a Substring of a String! I! The Extract a Substring of a String routine copies a substring of a! source string into aG! destination string. The relative starting position in the source ! string is 1.!  INTEGER*4 str$left EXTERNAL str$left! STR$LEN_EXTR! %! Extract a Substring of a String! :! The Extract a Substring of a String routine copies a)! substring of a source string into a! destination string.!  INTEGER*4 str$len_extr EXTERNAL str$len_extr! STR$MATCH_WILD! "! Match Wildcard Specification! C! The Match Wildcard Specification routine is used to compare a+! pattern string that includes wildcardU! characters with a candidate string. It returns a condition value of STR$_MATCHB! if the strings match and STR$_NOMATCH if they do not match.!  INTEGER*4 str$match_wild EXTERNAL str$match_wild ! STR$MUL! "! Multiply Two Decimal Strings! N! The Multiply Two Decimal Strings routine multiplies two decimal strings.!  INTEGER*4 str$mul EXTERNAL str$mul! STR$COMPARE_MULTI! A! Compare Two for Equality Using Multinational Character Set ! 0! The Compare Two Strings for Equality Using@! Multinational Character Set routine compares two character$! strings for equality using the&! DEC Multinational Character Set.!  INTEGER*4 str$compare_multi EXTERNAL str$compare_multi! STR$POS_EXTR! %! Extract a Substring of a String! 1! The Extract a Substring of a String routine2! copies a substring of a source string into a! destination string.!  INTEGER*4 str$pos_extr EXTERNAL str$pos_extr! STR$POSITION! +! Return Relative Position of Substring! 7! The Return Relative Position of Substring routine,! searches for the first occurrence of aT! single substring within a source string. If STR$POSITION finds the substring,9! it returns the relative position of that substring.A! If the substring is not found, STR$POSITION returns a zero.!  INTEGER*4 str$position EXTERNAL str$position! STR$PREFIX! ! Prefix a String! !! The Prefix a String routine?! inserts a source string at the beginning of a destinationG! string. The destination string must be dynamic or varying length.!  INTEGER*4 str$prefix EXTERNAL str$prefix! STR$RECIP! $! Reciprocal of a Decimal String! 0! The Reciprocal of a Decimal String routineG! takes the reciprocal of the first decimal string to the precisionN! limit specified by the second decimal string and returns the result as a! decimal string.!  INTEGER*4 str$recip EXTERNAL str$recip! STR$REPLACE! ! Replace a Substring! %! The Replace a Substring routineD! copies a source string to a destination string, replacing partI! of the string with another string. The substring to be replaced is5! specified by its starting and ending positions.!  INTEGER*4 str$replace EXTERNAL str$replace! STR$RIGHT! %! Extract a Substring of a String! 1! The Extract a Substring of a String routine2! copies a substring of a source string into a! destination string.!  INTEGER*4 str$right EXTERNAL str$right! STR$ROUND! (! Round or Truncate a Decimal String! 4! The Round or Truncate a Decimal String routineC! rounds or truncates a decimal string to a specified number ofI! significant digits and places the result in another decimal string.!  INTEGER*4 str$round EXTERNAL str$round! STR$TRANSLATE! "!  Translate Matched Characters! f! The Translate Matched Characters routine successively compares each character in a source stringN! to all characters in a match string. If a source character has a match,O! the destination character is taken from the translate string. Otherwise,I! STR$TRANSLATE moves the source character to the destination string.!  INTEGER*4 str$translate EXTERNAL str$translate! STR$TRIM! #! Trim Trailing Blanks and Tabs! /! The Trim Trailing Blanks and Tabs routineD! copies a source string to a destination string and deletes the(! trailing blank and tab characters.!  INTEGER*4 str$trim EXTERNAL str$trim! STR$UPCASE! 0! Convert 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$upcaseCDEC$ END OPTIONSwwt6! ***********************************************************************************************************************************************************************************************************************************************************! Created 9-NOV-1999 09:13:55 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:13:55 FORD2$:[VFORT.KIT.FORSYSDEF]TPU$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** &!*** MODULE TPU$ROUTINES IDENT X-1 ***CDEC$ OPTIONS /NOALIGN! )! Text Processing Utility (TPU) Routines! ! >! TPU$CLEANUP - Free System Resources Used During TPU Session! ! status = TPU$CLEANUP (flags)! ! flags - Cleanup options!  INTEGER*4 TPU$CLEANUP EXTERNAL TPU$CLEANUP! &! TPU$CLIPARSE - Parse a command line! 4!  status = TPU$CLIPARSE (string, fileio, call_user)! (! string - Command line to be parsed9! 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! 1! TPU$CLOSE_TERMINAL - Close Channel to Terminal! !! status = TPU$CLOSE_TERMINAL ()!  INTEGER*4 TPU$CLOSE_TERMINAL EXTERNAL TPU$CLOSE_TERMINAL! $! TPU$CONTROL - Pass Control to TPU! ! status = TPU$CONTROL ()!  INTEGER*4 TPU$CONTROL EXTERNAL TPU$CONTROL! ! TPU$EDIT - Edit a file! $! status = TPU$EDIT (input, output)! ! input - Input file name! output - Output file name!  INTEGER*4 TPU$EDIT EXTERNAL TPU$EDIT! ;! TPU$EXECUTE_COMMAND - Execute One or More TPU Statements! (! status = TPU$EXECUTE_COMMAND (string)! (! string - TPU statement(s) to execute!  INTEGER*4 TPU$EXECUTE_COMMAND EXTERNAL TPU$EXECUTE_COMMAND! 5! 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)! 0! code - Item code specifying a TPU function! stream - File description! data - Stream data!  INTEGER*4 TPU$FILEIO EXTERNAL TPU$FILEIO! .! TPU$FILE_PARSE - Parse a File Specification! ;! status = TPU$FILE_PARSE (result_string, flags, filespec,;! [default_spec], [related_spec])! 0! result_string - Resultant file specification7! flags - Specifies components to be returned/! filespec - File specification to parse.! default_spec - Default file specification.! related_spec - Related file specification!  INTEGER*4 TPU$FILE_PARSE EXTERNAL TPU$FILE_PARSE! 4! TPU$FILE_SEARCH - Search for a File Specification! <! status = TPU$FILE_SEARCH (result_string, flags, filespec,;!   [default_spec], [related_spec])! 0! result_string - Resultant file specification7! flags - Specifies components to be returned/! filespec - File specification to parse.! default_spec - Default file specification.! related_spec - Related file specification!  INTEGER*4 TPU$FILE_SEARCH EXTERNAL TPU$FILE_SEARCH! &! TPU$HANDLER - TPU Condition Handler! 9! 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! 1! status = TPU$INITIALIZE (callback [, user_arg)! 5! 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! 9! TPU$PARSEINFO - Parse Command Line and Build Item List! -! status = TPU$PARSEINFO (fileio, call_user)! 5! 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! G! status = TPU$SPECIFY_ASYNC_ACTION (facility_index [, tpu_statement])! 0! facility_index - Index number of this action8! 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$TRI $GGER_ASYNC_ACTION - Trigger an Asynchronous Action! 5! status = TPU$TRIGGER_ASYNC_ACTION (facility_index)! 0! facility_index - Index number of this action! # INTEGER*4 TPU$TRIGGER_ASYNC_ACTION" EXTERNAL TPU$TRIGGER_ASYNC_ACTIONCDEC$ END OPTIONSww6! ************************************************************************************************************************************************************************************************************************%***********************************! Created 9-NOV-1999 09:13:56 by VAX SDL V3.2-12 Source: 9-NOV-1999 09:13:56 FORD2$:[VFORT.KIT.FORSYSDEF]UTIL$ROUTINES.SDI;1 ! *********************************************************************************************************************************************************************************************************************************************************** *!*** MODULE util$routines IDENT X01-01 ***CDEC$ OPTIONS /NOALIGNM! **** &***********************************************************************! *$! COPYRIGHT (c) 1998 BY *A! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *#! ALL RIGHTS RESERVED. *! *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 *N! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * #! TRANSFERRED. *! *M! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *M! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! CORPORATION. *! *M! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *B! SOFT(WARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *! *! *M! ***************************************************************************! ! 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_actCDEC$ END OPTIONSww