% Librarian I01-42%": >; @@@2-=!()$ACCDEF7 $ACCESSDEF>$ACEDEFj$ACLDEF|$ACMEDEF $ACMEMSGDEF $ACMEVMSDEF$ACRDEF $AFRDEF&$AGNDEF, $ALPHADEF$ARGDEF$ARMDEF$ATRDEF0$BASDEF $BREAKDEF!$BRKDEF,$CAPDEF<$CBODEFB$CHFDEFX $CHKPNTDEF]$CHPDEFq $CLIDEFo $CLIMSGDEF $CLISERVDEF $CLIVERBDEF$CLSDEF $CLUEVTDEF$CMBDEF$COBDEF$CONVDEF $CONVMSGDEF$DSTDEFFdCSHDEF? CVT$ROUTINESc DCX$ROUTINES DTK$ROUTINES EDT$ROUTINESELFDATYPELFDEFyESFDEF FDL$ROUTINES~ LBR$ROUTINES LIB$ROUTINES-LIBICB MAIL$ROUTINESMMEDEFN MTH$ROUTINES  NCS$ROUTINESt OTS$ROUTINESPAGEDEFPPL$DEF PPL$ROUTINESJ  PSM$ROUTINES  SMB$ROUTINES  SMG$ROUTINES SNAPEVTDEF  SOR$ROUTINESISTARLET STR$ROUTINES  VERSION_INFO $CONVMSGDEF $DSTDEF $ENVDEF$FMLDEF$LBRDEF $MAILMSGDEFs $OBJRECDEF $PSCANDEFL$SDFDEF$SYIDEF $XABALLDEF $XABPRODEF CONV$ROUTINES PSM$ROUTINES VERSION_INFO$LCKDEF"$LDDEFS$LEPMDEF$LGIDEF$LHIDEF $LIBCLIDEF $LIBDCFDEF\$LIBDEF $LIBDTDEF $LIBFILDEF< $LIBFISDEF $LIBVMDEFB $LIBWAITDEF $LICENSEDEFN$LKIDEFe$LKSBDEFk$LMFDEF$LNKDEFt$LNMDEFH $LOGTYPDEF$LPDEFZ$LPRODEFM$LSDFDEFG$LSRFDEF@$LSYDEF $MACIDDEF$MAILDEF $MAILMSGDEFFM $NAMDEF$NCSDEF( $NSAMSGDEFw $OBJRECDEFDFDEFu$SDFMDEF$SDFVDEF$SDFWDEF+$SDVDEFk$SECDEFT $SECIDDEF $SECSRVDEFc  $SECSRVMSGDEF$SGPSDEFr $SHRDEF$SJCDEF  $SMBMSGDEF$ $SMGDEF| $SMGMSGI  $SMGTRMPTR$SMRDEF $SORDEF$SRFDEF_ $SRMDEFg $SSDEF$SSIODEF $STENVDEF $STRDEF$STSDEF$SYIDEFDEF$TBKDEF$TEBDEFa$TIRDEF$TPADEF$TPUDEF$TRMDEFw $UTCBLKDEF  $XABALLDEFODEF$FORDEFJ $FSCNDEF $GEN64DEF $GETSPIDEF $GLOCKDEF$GPSDEFQ$GSDEF$GSYDEF$HLPDEF$HWDEF $IA64REGDEF$IACDEF$ICCDEF1$IDCDEF$IEEEDEF$ILEDEF $INDICTDEF$INITDEF$IODEFa$IOSADEFm$IOSBDEFv$ISSDEF. $JBCMSGDEF$JPIDEF$JPIFDEF$KGBDEF$LADEF$LATDEFR $LATMSGDEF $LBRCTLTBL$LBRDEFg $EOBJRECDEF$EOMDEF$EOMWDEF$EPMDEF$EPMMDEF$EPMVDEF%$EPMWDEFs$ERADEF$ESDFDEF $ESDFMDEF $ESDFVDEF $ESGPSDEF$ESRFDEF$ETIRDEF $EVENTDEF?$FABDEF $FALDEF$FDLDEF $FDLMSGDEF$FDSCDEF$FIBDEF$FIDDEF$FLTDEF$FMLDEFd$OPCDEFF$OPCMSGE$OPRDEFN$OSSDDEF`$OSSDEF$OTSDEFq$PCCDEFz$PDSCDEF$PMMDEF$POSIX_SERVICEDEF $POWERDEF $PPLDEF $PPROPDEF$PQLDEF$PRCDEF$PRDEF$PRODEF,$PROMDEF$PROVDEF+$PROWDEF$PRTDEF$PRVDEF$PRXDEF( $PSCANDEF$PSIGDEFR  $PSMMSGDEF $RABDEFF$RBLDDEF_ $REGMSGS $RMEDEF{ $RMSDEFX $SCRDEF$SDFDEF  $XABRDTDEFC  $XABRUDEF  $XABSUMDEF  $XABTRMDEF$XADEF' $XKDEVDEF $XKSTSDEF-$XMDEF>$XWDEFACLEDIT$ROUTINESoCIADEFe CLI$ROUTINESCMA$DEF CONV$ROUTINES$DTIDEF$DTKDEF$DTKMSG$DVIDEF$DVSDEF$EEOMDEF$EFNDEF$EGPSDEF$EGSDEF$EGSTDEF$EGSYDEF$EIDCDEFy$EMHDEF9$ENVDEF8$CPUIDEF $CQUALDEF$CRDEF$CREDEF($CRFDEF5$CRFMSG$CSTDEFI$CVTDEF  $CVTFNMDEFW$CVTMSG $DCDEF^$DDTMDEFq $DDTMMSGDEFm $DELPRCSYMDEFr$DEVDEF6$DIBDEF $DIRENTDEF$DMTDEF$DPSDEF $DSCDEF~$DSTDEF@  ! V8.4-2L3 ! V8.4-2L3! IA64! V1.6wwLhO ! *** PREDECLARED TYPES M: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )S END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF C: %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORDI* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED 07  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 3 ! Access Control List Editor (ACLEDIT) Routine !  ! . ! ACLEDIT$EDIT - Edit Access Control List ! ( ! status = ACLEDIT$EDIT (item_list) ! * ! item_list - Itemlist for operation ! , EXTERNAL LONG FUNCTION ACLEDIT$EDIT & ( & ANY BY REF & )ww) ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:47.61 !  ! P ! *************************************************************************P ! *  *P ! * COPYRIGHT 2000, 2001 COMPAQ COMPUTER CORPORATION *P ! * *P ! * COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. *P ! * *P ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ OR *P ! * AUTHORIZED SUBLICENSOR REQUIRED FOR POSSESSION, USE OR COPYING. *P ! * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *P ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *P ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *P ! * COMMERCIAL LICENSE. *P ! * *P ! * COMPAQ SHALL NOT BE LIABLE FOR TECHNICAL OR EDITORIAL ERRORS OR *P ! * OMISSIONS CONTAINED HEREIN. THE INFORMATION IN THIS DOCUMENT IS *P ! * SUBJECT TO CHANGE WITHOUT NOTICE. *P ! * *P ! ************************************************************************* !  ! ++ !  ! FACILITY: !  ! STARLET !  ! ABSTRACT: ! J ! THIS MODULE DEFINES THE MESSAGE CODES USED BY THE $AUTHENTICATE[W],? ! $LOGON[W], $SET_PASSWORD[W] AND $ACM[W] SYSTEM SERVICES. !  ! ENVIRONMENT: ! B ! VMS PROTECTED SHAREABLE IMAGE ($AUTHENTICATE[W], $LOGON[W], ! $SET_PASSWORD[W])( ! VMS EXECUTIVE ($ACM[W] SERVICE)3 ! VMS AUTHENTICIATION SERVER ($ACM[W] SERVICE) !  ! AUTHOR: ! ) ! RICHARD J. BARRY DECEMBER 15, 1995 !  ! ! NOTE:3 ! THIS MODULE IS COMMON BETWEEN ALPHA AND VAX. !  ! MODIFICATIONS: ! ' ! X-20 DOUGLAS FYFE 22-MAY-2003" ! ADD DIALOGUELM ERROR CODE. ! * ! X-19 RICHARD J. BARRY 14-NOV-2001< ! TWEEK THE ACME$_FAILURE MESSAGE DESCRIPTION ONE LAST= ! TIME TO COMMUNICATE THE FACT THAT ACME SERVER LOGGING ! MAY NEED TO BE ENABLED. ! ' ! X-18 DOUGLAS FYFE 5-OCT-2001; ! X-17 ADD ERROR CODES FOR CONFIGURATION/RESTART FILE . ! OPEN FAILURES. FIX CUT-N-PASTE ERROR.  ! 1 ! X-16 RJB0129 RICHARD J. BARRY 6-AUG-2001* ! CORRECT MESSAGE DESCRIPTION TYPOS. ! 6 ! X-15 LJK0204 LAWRENCE J. KILGALLEN 4-JAN-2001< ! CHANGE FAILURE TEXT TO MENTION ACME$SERVER LOG FILE. ! 6 ! X-14 LJK0182 LAWRENCE J. KILGALLEN 31-AUG-2000 ! ADD BADSTRUCTLEN.- ! ADD CONTACTSYSMGR, PER PTR 75-43-211. ! 1 ! X-13 AJM00701 ANDREW J. MOSKAL 24-JUL-2000 ! ADD NOAGENTINIT. ! 1 ! X-12 AJM00602 ANDREW J. MOSKAL 21-JUN-2000: ! ADD WASCLR, WASSET AND LOCKED ALTERNATIVE SUCCESS.$ ! ADD INVITMSEQ AND NOACMECTX. ! ADD NOTOUTITEM. ! ADD AGENTLOADFAIL.: ! UPDATE COPYRIGHT NOTICE PER MANAGEMENT DIRECTIVES. ! 1 ! X-11 AJM63405 ANDREW J. MOSKAL 13-APR-1999 ! ADD INCOMPATSTATE. ! 1 ! X-10 AJM62A07 ANDREW J. MOSKAL 29-OCT-1998 ! ADD BUSY. ! 0 ! X-9 AJM62602 ANDREW J. MOSKAL 23-JUN-19983 ! MOVE ERROPNLOGFIL, RENAME TO ERROPENLOGFIL.. ! ADD ERRCLOSELOGFIL AND ERRWRIT ELOGFIL.' ! ADD SERVERSTART AND SERVEREXIT.6 ! CORRECT TYPO: DOIUNAVAILBLE ==> DOIUNAVAILBLE. ! 0 ! X-8 AJM62307 ANDREW J. MOSKAL 16-MAR-1998" ! REINSTATE PERFORMDIALOGUE. ! 0 ! X-7 AJM62301 ANDREW J. MOSKAL 11-MAR-19987 ! MOVE TRACE MESSAGES TO [ACMESRV]ACMESRVMSG.MSG. ! 0 ! X-6 AJM62202 ANDREW J. MOSKAL 12-FEB-1998+ ! ADD GENERAL FAILURE STATUS MESSAGE. ! 0 ! X-5 AJM62120 ANDREW J. MOSKAL 23-JAN-19988 ! ADD SET SERVER (DC !L INTERFACE) RELATED MESSAGES. ! FIX FAO DIRECTIVES:2 ! - ?XQ SHOULD BE ?@XQ (INDIRECT REFERENCES) ! - %UL SHOULD BE ?UL. ! REVISE AUTHDOWN TEXT. ! 0 ! X-4 AJM62103 ANDREW J. MOSKAL 8-JAN-1998, ! INCORPORATE $ACM[W] RELATED MESSAGE.A ! (LEFT PRE-$ACM MESSAGES INTACT TO ALLOW FOR THE CONTINUEDB ! BUILDING OF PREVIOUS SUPPORT. MAY REVISIT PRIOR TO SSB.) ! 1 ! X-3 JACH0036 JEREMY A. C. HITT 5-AUG-1996( ! ADDED MESSAGES FOR ACM"E MODULES. ! 1 ! X-2 JACH0014 JEREMY A. C. HITT 4-MAR-19960 ! INITIAL VERSION MERGED FROM ACME STREAM. ! --1 DECLARE LONG CONSTANT ACME$_FACILITY = 1866 ! ++ ! B ! ADD NEW MESSAGE CODES AT THE END OF THE APPROPRIATE LIST. !  ! ASSIGNED RANGES: ! + ! 0 - 99 SUCCESS ( 100 MESSAGES)0 ! 100 - 199 INFORMATIONAL ( 100 MESSAGES)+ ! 200 - 1199 WARNING (1000 MESSAGES)) ! 1200 - 2199 ERROR (1000 MESSAGES)) ! # 2200 - 2559 FATAL ( 360 MESSAGES) ! ; ! 2560 - 3071 AUTHENTICATION SERVER EXECUTION CONTROL.G ! 3072 - 4095 AUTHENTICATION SERVER EXECUTION CONTROL AND TRACING.: ! (MESSAGES ARE DEFINED BY [ACMESRV]ACMESRVMSG.MSG) !  ! --4 DECLARE LONG CONSTANT ACME$_NORMAL = 1223229454 DECLARE LONG CONSTANT ACME$_WASCLR = 1223229534 DECLARE LONG CONSTANT ACME$_WASSET = 1223229614 DECLARE LONG CONSTANT ACME$_LOCKED = 1223229696 DECLARE LONG CONSTANT AC$ME$_CONTINUE = 1223229456 DECLARE LONG CONSTANT ACME$_PWDSYNCH = 1223237478 DECLARE LONG CONSTANT ACME$_PWDNOSYNCH = 1223237556 DECLARE LONG CONSTANT ACME$_LOCLOGIN = 122323763 !  ! $ACM MESSAGES ! 7 DECLARE LONG CONSTANT ACME$_BUFFEROVF = 1223237719 DECLARE LONG CONSTANT ACME$_SERVERSTART = 1223237798 DECLARE LONG CONSTANT ACME$_SERVEREXIT = 122323787 !  ! $ACM MESSAGES ! 7 DECLARE LONG CONSTANT ACME$_OPINCOMPL = 12232454 %4: DECLARE LONG CONSTANT ACME$_NOSUCHUSERID = 1223325466 DECLARE LONG CONSTANT ACME$_PWDWRONG = 1223325548 DECLARE LONG CONSTANT ACME$_ACCEXPIRED = 1223325628 DECLARE LONG CONSTANT ACME$_PWDEXPIRED = 1223325709 DECLARE LONG CONSTANT ACME$_INVALIDTIME = 1223325789 DECLARE LONG CONSTANT ACME$_UNSPECIFIED = 122332586: DECLARE LONG CONSTANT ACME$_PWDINHISTORY = 1223325947 DECLARE LONG CONSTANT ACME$_PWDINDICT = 1223326029 DECLARE LONG CONSTANT ACME &$_PWDTOOSHORT = 1223326108 DECLARE LONG CONSTANT ACME$_PWDTOOLONG = 1223326188 DECLARE LONG CONSTANT ACME$_PWDINVCHAR = 1223326268 DECLARE LONG CONSTANT ACME$_PWDTOOEASY = 1223326348 DECLARE LONG CONSTANT ACME$_PWDINVALID = 122332642; DECLARE LONG CONSTANT ACME$_PWDCANTCHANGE = 1223326507 DECLARE LONG CONSTANT ACME$_NOLOCAUTH = 1223326588 DECLARE LONG CONSTANT ACME$_USERIDRQRD = 1223326665 DECLARE LONG CONSTANT ACME$_PWDRQRD = 1223326746 DECLAR 'E LONG CONSTANT ACME$_INSUFITM = 122332682 !  ! $ACM MESSAGES ! 9 DECLARE LONG CONSTANT ACME$_AUTHFAILURE = 1223326909 DECLARE LONG CONSTANT ACME$_ACCOUNTLOCK = 1223326988 DECLARE LONG CONSTANT ACME$_NOSUCHUSER = 1223327068 DECLARE LONG CONSTANT ACME$_INVALIDPWD = 1223327147 DECLARE LONG CONSTANT ACME$_INVNEWPWD = 1223327227 DECLARE LONG CONSTANT ACME$_PWDNOTCHG = 1223327308 DECLARE LONG CONSTANT ACME$_INVMAPPING = 1223327389 DECLARE (LONG CONSTANT ACME$_MAPCONFLICT = 122332746; DECLARE LONG CONSTANT ACME$_NOTAUTHORIZED = 1223327547 DECLARE LONG CONSTANT ACME$_NOEXTAUTH = 1223327626 DECLARE LONG CONSTANT ACME$_INTRUDER = 1223327708 DECLARE LONG CONSTANT ACME$_INVPERSONA = 122332778: DECLARE LONG CONSTANT ACME$_NOTARGETCRED = 122332786; DECLARE LONG CONSTANT ACME$_NOCREDENTIALS = 122332794= DECLARE LONG CONSTANT ACME$_INSFDIALSUPPORT = 1223328028 DECLARE LONG CONSTANT ACME$_INVALI )DCTX = 1223328108 DECLARE LONG CONSTANT ACME$_INVREQUEST = 1223328188 DECLARE LONG CONSTANT ACME$_INVALIDTLV = 1223328264 DECLARE LONG CONSTANT ACME$_NOPRIV = 122332834< DECLARE LONG CONSTANT ACME$_DOIUNAVAILABLE = 1223328427 DECLARE LONG CONSTANT ACME$_NOSUCHDOI = 1223328505 DECLARE LONG CONSTANT ACME$_TIMEOUT = 122332858= DECLARE LONG CONSTANT ACME$_UNSUPPORTED = 122332866 ! R ! THIS MESSAGE IS SENT TO THE SYSTEM MANAGER WHEN DETAILS ARE IN THE LOG *FILE ! 5 DECLARE LONG CONSTANT ACME$_FAILURE = 122332874; DECLARE LONG CONSTANT ACME$_ERROPENLOGFIL = 122332882< DECLARE LONG CONSTANT ACME$_ERRCLOSELOGFIL = 122332890< DECLARE LONG CONSTANT ACME$_ERRWRITELOGFIL = 1223328987 DECLARE LONG CONSTANT ACME$_INVITMSEQ = 1223329067 DECLARE LONG CONSTANT ACME$_NOACMECTX = 122332914 ! L ! THIS MESSAGE IS SENT TO THE END USER WHEN DETAILS ARE IN THE LOG FILE ! ; DECLARE LONG CONSTANT ACME$_CONTAC +TSYSMGR = 122332922 ! C ! ERROR MESSAGES TO REPORT FAILURES OPENING AUTO-RESTART FILES ! ? DECLARE LONG CONSTANT ACME$_ERROPENRESTARTFIL = 122332930? DECLARE LONG CONSTANT ACME$_ERROPENCONFIGSFIL = 1223329388 DECLARE LONG CONSTANT ACME$_DIALOGUELM = 122332946 ! / ! CONTROL (DCL) INTERFACE RELATED MESSAGES ! 4 DECLARE LONG CONSTANT ACME$_ACTIVE = 1223389466 DECLARE LONG CONSTANT ACME$_INACTIVE = 1223389548 DECLARE LONG CONSTANT ACME ,$_NOTSTARTED = 122338962 ! 9 DECLARE LONG CONSTANT ACME$_AGENTDBFULL = 1223389705 DECLARE LONG CONSTANT ACME$_DUPACME = 1223389782 DECLARE LONG CONSTANT ACME$_BUSY = 122338986; DECLARE LONG CONSTANT ACME$_INCOMPATSTATE = 122338994; DECLARE LONG CONSTANT ACME$_AGENTLOADFAIL = 1223390029 DECLARE LONG CONSTANT ACME$_NOAGENTINIT = 1223390106 DECLARE LONG CONSTANT ACME$_AUTHDOWN = 1223405488 DECLARE LONG CONSTANT ACME$_INCONSTATE = 122340556 ! -++ ! O ! MESSAGE CODES 2560 THROUGH 4095 ARE RESERVED FOR INTERNAL (NOT VISIBLEP ! AT THE $ACM[W] SERVICE INTERFACE) USE WITHIN THE AUTHENTICATION SERVER. !  ! ASSIGNED RANGES: ! $ ! 2560 - 3071 EXECUTION CONTROL ! (DEFINED HEREIN)7 ! 3072 - 4095 EXECUTION CONTROL AND TRACE MESSAGES- ! (DEFINED BY [ACMESRV]ACMESRVMSG.MSG) !  ! --= DECLARE LONG CONSTANT ACME$_PERFORMDIALOGUE = 122344448: DECLARE LONG CONSTANT ACME .$_PERFORMPHASE = 1223444566 DECLARE LONG CONSTANT ACME$_RETRYPWD = 1223444645 DECLARE LONG CONSTANT ACME$_WAITAST = 122344472: DECLARE LONG CONSTANT ACME$_WAITRESOURCE = 122344480: DECLARE LONG CONSTANT ACME$_ASTCTXNOTFND = 1223454749 DECLARE LONG CONSTANT ACME$_BUFTOOSMALL = 1223454828 DECLARE LONG CONSTANT ACME$_DIALOGFULL = 1223454908 DECLARE LONG CONSTANT ACME$_DUPCREDTYP = 1223454988 DECLARE LONG CONSTANT ACME$_INVCREDTYP = 1223455065 DECLAR /E LONG CONSTANT ACME$_INVFLAG = 122345514: DECLARE LONG CONSTANT ACME$_INVPARAMETER = 1223455226 DECLARE LONG CONSTANT ACME$_NOMSGFND = 1223455307 DECLARE LONG CONSTANT ACME$_NULLVALUE = 122345538> DECLARE LONG CONSTANT ACME$_RESOURCENOTAVAIL = 1223455469 DECLARE LONG CONSTANT ACME$_UNSUPREVLVL = 1223455548 DECLARE LONG CONSTANT ACME$_NOTOUTITEM = 122345562: DECLARE LONG CONSTANT ACME$_BADSTRUCTLEN = 122345570 ! FATAL9 DECLARE LONG CONSTANT ACME$_THREADERROR = 122346500ww1`6 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED 2( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN3G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 4 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.31 ! R ! **************************************************************************** ! * *- ! * 5 COPYRIGHT 1978, 2004 BY *D ! * COMPAQ COMPUTER CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 6 *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT 7SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! +++ ! FACILITY: DEC BASIC RUN TIME LIBRARY !  ! ABSTRACT: ! C ! THIS FILE, BASMSG.MSG, CONTAINS THE DEFINITIONS OF THE BASICG ! MESSAGES FOR VAX/VMS. THIS FILE IS READ BY THE MESSAGE COMPILER= ! TO BUILD AN OBJECT FILE CONTAINING THE BASIC MESSAGES. ! - ! ENVIRONMENT: USER MODE 8- AST REENTRANT ! : ! AUTHOR: RTL DEVELOPMENT, CREATION DATE: 06-MAY-1983 !  ! MODIFIED BY: !  ! NOTE #1:? ! CHANGES TO THE THIS FILE, IF THEY INVOLVE THE FIRST 3005 ! MESSAGES DEFINED HERE REQUIRE A CHANGE TO THE# ! BASRTL_BASMSGNUM.SDL FILE. B ! THE FIRST 300 MESSAGES HAVE BASIC ERROR NUMBERS ASSOCIATED ! WITH THEM. !  ! NOTE #2:H ! RUN-TIME RTL CODE WILL "create" A MESSAGE CODE STARTING WITH THE G ! BASIC 9 MESSAGE NUMBER (BAS$K_XXXX) AND FILLING IN THE STATUS CODEG ! FIELDS WITH THE BASIC FACILITY NUMBER AND FACILITY SPECIFIC BIT. ! J ! THIS SCHEME OF BUILDING CONDITION VALUES WORKS FOR ALL MESSAGES UP - ! THROUGH BAS$K_MAX_ERR (CURRENTLY 300). ! L ! THIS ALLOWS THE RTL TO MAP BASIC ERROR NUMBERS TO VMS CONDITION CODES= ! (AND VMS CONDITION CODES BACK TO BASIC ERROR NUMBERS). ! K ! IF A SEVERITY OF A MESSAGE IS CHANGED, THE TABLE IN BASRTL_ERR_MISC  : ! MUST BE UPDATED. ! H ! THERE IS NO WAY TO RELATE THE SEVERITY OF A BASIC MESSAGE TO THE H ! SEVERITY OF THE CORRISPONDING VMS CONDITION AT RUN TIME SINCE WE K ! "build" THE VMS CONDITION FROM THE BAS$K_XXXXX BASIC MESSAGE NUMBER. !  ! NOTE #3:I ! THIS FILE LIVES IN THE STARLET FACILITY FOR EVMS BUILDS. THE EVMSF ! BUILD FOR DEC$BASRTL NEEDS TO CPYSHRLIB BASMSG BEFORE USING IT. ! ( ! 1-001 - ORIGINAL. BLS 6-MAY-1983G ! 1-002 - CHANG;E FACILITY TO BASIC INSTEAD OF BAS. LEB 2-JUN-1983N ! 1-003 - NOPE, FACILITY SHOULD HAVE BEEN BAS ALL ALONG. MDL 30-JUN-1983] ! 1-004 - CHANGE TEXT OF ERROR 178 AND NAME FROM ERRFILCOR TO EXRMSSHR. MDL 29-AUG-1983= ! 1-005 - CHANGE SEVERITY OF PRIUSIFOR. KC 11-JAN-1985.< ! 1-006 - ADD ILLNETOPE AND ILLTFFOPE. KC 11-JAN-1985.^ ! 1-007 - ADD FORLINPIC (FROM LINE ?SL IN PICTURE ?AC) AS A TRACEBACK ERROR FOR PICTURES. ! KC 15-JAN-1985.= ! 1-008 - ADD ILLWAIVAL < AND DEADLOCK. KC 23-JUL-1985. ; ! 1-009 - ADD ORIERRWAS AND NOTBASIC. KC 01-SEP-1985.O ! 1-010 - ADD NEW UNUSED ERRORS SO THERE WILL ROOM TO ADD GRAPHICS ERRORS. ! KC 10-SEP-1985. ! 1-011 - ADD ECHTYPNOT. KC 18-NOV-1985.O ! 1-012 - ADD INVTRANUM, ILLPICOPE, ILLCLISTA, TRANOTDIF. KC 26-NOV-1985.R ! 1-013 - CHANGE GKSNOTINS TO A SEVERE MESSAGE (FROM FATAL). KC 05-DEC-1985./ ! 1-014 - ADD COLNOTCON. KC 10-DEC-1985.; ! 1-015 - ADD MOST GRAPHICS MES =SAGES. KC 19-DEC-1985.P ! 1-016 - NUMBER 271 IS NOT USED. CHANGE WORDING OF 260. KC 08-JAN-1986.A ! 1-017 - CHANGE "VAX GKS/0b" TO "VAX GKS". KC 09-JAN-1986.9 ! 1-018 - CHANGE TYPO IN DEVNOTOPE. KC 13-JAN-1986.K ! 1-019 - CHANGE TEXT OF KEYBOARD WAIT EXHAUSTED TO "wait exhausted".  ! KC 17-FEB-1986.J ! 1-020 - ADD REMSTRNOT, REMAP'ED STRING NOT STATIC. KC 20-FEB-1986.F ! 1-021 - PAD ALL THE UNUSED MESSAGES WITH SPACES SO WE CAN PATCH0 ! THEM EASI >LY FOR V4.5. KC 28-FEB-1986.J ! 1-022 - ADD NEW GRAPHICS ERROR MESSAGES FOR V4.5. KC 16-APR-1986./ ! 1-023 - ADD ILLCNTCLA. KC 15-MAY-1986.? ! 1-024 - ADD ARRTOOSMA, ARRAY TOO SMALL. KC 20-MAY-1986.I ! 1-025 - CHANGE TEXT OF FROLINOEG. ADD ILLCOLMIX. KC 16-JUN-1986.. ! 1-026 - ADD ILLDEVNAM. KC 24-JUN-1986.L ! 1-027 - ADD MESSAGES FOR PROGRAMS W/O LINE NUMBERS. DJM 14-AUG-1986.J ! 1-028 - CHANGE TEXT FOR PROLOSSOR, ADD LOCPOICAN. DJM 17-SEP-1987.4 ?! V03-001 BRIAN J. MCCARTHY 19-MAY-1993B ! ADD COMMENTS TO BETTER DESCRIBE HOW THE BASIC ERROR NUMBERS& ! AND VMS BASIC CONDITION VALUES.4 ! V03-002 BRIAN J. MCCARTHY 15-JUL-1993A ! - ADD NEW MESSAGE FOR GOSUB IN PROGRAMS WITH LINE NUMBERS.# ! - CHANGE ALL VAX TEXT TO DEC4 ! V03-003 BRIAN J. MCCARTHY 02-SEP-19931 ! - CHANGE TITLE TO CONFORM WITH OTHER RTL'S4 ! V03-004 BRIAN J. MCCARTHY 16-SEP-1993 ! - UPDATE COMMENTS.. @ ! V03-005 KARL PUDER 24-FEB-20005 ! - CHANGE DEC BASIC TO ALPHA BASIC IN PROLOSSOR. ! V03-006 KARL PUDER 17-SEP-20041 ! - CHANGE ALPHA BASIC TO BASIC IN PROLOSSOR !  ! -- ! I ! BAS FACILITY IS BEING USED FOR DEC$BASRTL FOR UPWARD COMPATABILITY ! 2 DECLARE LONG CONSTANT BAS$_FACILITY = 26 ! K ! NOTE THAT IF ANYTHING IS CHANGED BETWEEN THIS .BASE 0 STATEMENT AND E ! THE NEXT .BASE STATEMENT, THE MODULES BASRTL_BASMSGNUM. ASDL ANDM ! BASRTL_ERR_MISC.C MUST BE CHECKED TO SEE IF THEY NEED TO UPDATED ALSO. ! O ! THE MESSAGES BETWEEN THE TWO .BASE DIRECTIVES HAVE BASIC MESSAGE NUMBERSR ! ASSOCIATED WITH THEM AND THAT MUST BE REFLECTED IN THE BASRTL_BASMSGNUM.SDL% ! AND BASRTL_ERR_MISC.C MODULES. ! 1 DECLARE LONG CONSTANT BAS$_VAXBAS = 17367074 DECLARE LONG CONSTANT BAS$_BADDIRDEV = 17367144 DECLARE LONG CONSTANT BAS$_ILLFILNAM = 17367224 DECLARE LONG CONSTANT BAS$_A BCCDEVUSE = 17367304 DECLARE LONG CONSTANT BAS$_NO_ROOUSE = 17367384 DECLARE LONG CONSTANT BAS$_CANFINFIL = 17367464 DECLARE LONG CONSTANT BAS$_NOTVALDEV = 17367544 DECLARE LONG CONSTANT BAS$_IO_CHAALR = 17367624 DECLARE LONG CONSTANT BAS$_DEVNOTAVA = 17367704 DECLARE LONG CONSTANT BAS$_IO_CHANOT = 17367781 DECLARE LONG CONSTANT BAS$_PROVIO = 17367864 DECLARE LONG CONSTANT BAS$_ENDFILDEV = 17367944 DECLARE LONG CONSTANT BAS$_FATSYSIO_ = 17368024 C DECLARE LONG CONSTANT BAS$_USEDATERR = 17368104 DECLARE LONG CONSTANT BAS$_DEVHUNWRI = 17368184 DECLARE LONG CONSTANT BAS$_KEYWAIEXH = 17368264 DECLARE LONG CONSTANT BAS$_NAMACCNOW = 17368344 DECLARE LONG CONSTANT BAS$_TOOMANOPE = 17368424 DECLARE LONG CONSTANT BAS$_ILLSYSUSA = 17368504 DECLARE LONG CONSTANT BAS$_DISBLOINT = 17368584 DECLARE LONG CONSTANT BAS$_PACIDSDON = 17368664 DECLARE LONG CONSTANT BAS$_DISPACNOT = 17368744 DECLARE LONG CON DSTANT BAS$_DISPACLOC = 17368824 DECLARE LONG CONSTANT BAS$_ILLCLUSIZ = 17368904 DECLARE LONG CONSTANT BAS$_DISPACPRI = 17368984 DECLARE LONG CONSTANT BAS$_DISPACNEE = 17369064 DECLARE LONG CONSTANT BAS$_FATDISPAC = 17369144 DECLARE LONG CONSTANT BAS$_IO_TO_DET = 17369224 DECLARE LONG CONSTANT BAS$_PROC__TRA = 17369304 DECLARE LONG CONSTANT BAS$_CORFILSTR = 17369384 DECLARE LONG CONSTANT BAS$_DEVNOTFIL = 17369464 DECLARE LONG CONSTANT BAS$_ILLBYTCOU E = 17369544 DECLARE LONG CONSTANT BAS$_NO_BUFSPA = 17369624 DECLARE LONG CONSTANT BAS$_ODDADDTRA = 17369704 DECLARE LONG CONSTANT BAS$_RESINSTRA = 17369804 DECLARE LONG CONSTANT BAS$_MEMMANVIO = 17369884 DECLARE LONG CONSTANT BAS$_SP_STAOVE = 17369964 DECLARE LONG CONSTANT BAS$_DISERRDUR = 17370044 DECLARE LONG CONSTANT BAS$_MEMPARFAI = 17370124 DECLARE LONG CONSTANT BAS$_MAGSELERR = 17370184 DECLARE LONG CONSTANT BAS$_MAGRECLEN = 17370264 DE FCLARE LONG CONSTANT BAS$_NONRESRUN = 17370344 DECLARE LONG CONSTANT BAS$_VIRBUFTOO = 17370424 DECLARE LONG CONSTANT BAS$_VIRARRDIS = 17370504 DECLARE LONG CONSTANT BAS$_MATARRTOO = 17370584 DECLARE LONG CONSTANT BAS$_VIRARROPE = 17370664 DECLARE LONG CONSTANT BAS$_ILLIO_CHA = 17370744 DECLARE LONG CONSTANT BAS$_LINTOOLON = 17370824 DECLARE LONG CONSTANT BAS$_FLOPOIERR = 17370904 DECLARE LONG CONSTANT BAS$_ARGTOOLAR = 17370984 DECLARE LONG CONSTANT GBAS$_DATFORERR = 17371041 DECLARE LONG CONSTANT BAS$_INTERR = 17371141 DECLARE LONG CONSTANT BAS$_ILLNUM = 17371224 DECLARE LONG CONSTANT BAS$_ILLARGLOG = 17371304 DECLARE LONG CONSTANT BAS$_IMASQUROO = 17371384 DECLARE LONG CONSTANT BAS$_SUBOUTRAN = 17371464 DECLARE LONG CONSTANT BAS$_CANINVMAT = 17371544 DECLARE LONG CONSTANT BAS$_OUTOF_DAT = 17371624 DECLARE LONG CONSTANT BAS$_ON_STAOUT = 17371704 DECLARE LONG CONSTANT BAS$_NOTENODAT = 1737178 H4 DECLARE LONG CONSTANT BAS$_INTOVEFOR = 17371864 DECLARE LONG CONSTANT BAS$_DIVBY_ZER = 17371944 DECLARE LONG CONSTANT BAS$_NO_RUNSYS = 17372024 DECLARE LONG CONSTANT BAS$_FIEOVEBUF = 17372104 DECLARE LONG CONSTANT BAS$_NOTRANACC = 17372184 DECLARE LONG CONSTANT BAS$_ILLMAGUSA = 17372264 DECLARE LONG CONSTANT BAS$_MISSPEFEA = 17372344 DECLARE LONG CONSTANT BAS$_ILLSWIUSA = 17372424 DECLARE LONG CONSTANT BAS$_UNUERR068 = 17372524 DECLARE LONG I CONSTANT BAS$_UNUERR069 = 17372604 DECLARE LONG CONSTANT BAS$_UNUERR070 = 17372684 DECLARE LONG CONSTANT BAS$_STANOTFOU = 17372764 DECLARE LONG CONSTANT BAS$_RETWITGOS = 17372844 DECLARE LONG CONSTANT BAS$_FNEWITFUN = 17372924 DECLARE LONG CONSTANT BAS$_UNDFUNCAL = 17373001 DECLARE LONG CONSTANT BAS$_ILLSYM = 17373081 DECLARE LONG CONSTANT BAS$_ILLVER = 17373161 DECLARE LONG CONSTANT BAS$_ILLEXP = 17373244 DECLARE LONG CONSTANT BAS$_ILLMODMIX = J 17373324 DECLARE LONG CONSTANT BAS$_ILLIF_STA = 17373404 DECLARE LONG CONSTANT BAS$_ILLCONCLA = 17373484 DECLARE LONG CONSTANT BAS$_ILLFUNNAM = 17373564 DECLARE LONG CONSTANT BAS$_ILLDUMVAR = 17373644 DECLARE LONG CONSTANT BAS$_ILLFN_RED = 17373724 DECLARE LONG CONSTANT BAS$_ILLLINNUM = 17373801 DECLARE LONG CONSTANT BAS$_MODERR = 17373884 DECLARE LONG CONSTANT BAS$_CANCOMSTA = 17373944 DECLARE LONG CONSTANT BAS$_EXPTOOCOM = 17374044 DECLAR KE LONG CONSTANT BAS$_ARGDONMAT = 17374124 DECLARE LONG CONSTANT BAS$_TOOMANARG = 17374204 DECLARE LONG CONSTANT BAS$_INCFUNUSA = 17374244 DECLARE LONG CONSTANT BAS$_ILLDEFNES = 17374364 DECLARE LONG CONSTANT BAS$_FORWITNEX = 17374444 DECLARE LONG CONSTANT BAS$_NEXWITFOR = 17374524 DECLARE LONG CONSTANT BAS$_DEFWITFNE = 17374604 DECLARE LONG CONSTANT BAS$_FNEWITDEF = 17374684 DECLARE LONG CONSTANT BAS$_LITSTRNEE = 17374764 DECLARE LONG CONSTANT BAS$ L_TOOFEWARG = 17374841 DECLARE LONG CONSTANT BAS$_SYNERR = 17374924 DECLARE LONG CONSTANT BAS$_STRIS_NEE = 17375004 DECLARE LONG CONSTANT BAS$_NUMIS_NEE = 17375084 DECLARE LONG CONSTANT BAS$_DATTYPERR = 17375164 DECLARE LONG CONSTANT BAS$_ONEOR_TWO = 17375244 DECLARE LONG CONSTANT BAS$_PROLOSSOR = 17375324 DECLARE LONG CONSTANT BAS$_RESNO_ERR = 17375401 DECLARE LONG CONSTANT BAS$_REDARR = 17375464 DECLARE LONG CONSTANT BAS$_INCSUBUSE = 17375524 M DECLARE LONG CONSTANT BAS$_ON_STANEE = 17375644 DECLARE LONG CONSTANT BAS$_ENDOF_STA = 1737572. DECLARE LONG CONSTANT BAS$_WHA = 17375794 DECLARE LONG CONSTANT BAS$_BADLINNUM = 17375884 DECLARE LONG CONSTANT BAS$_NOTENOAVA = 17375964 DECLARE LONG CONSTANT BAS$_EXEONLFIL = 17376044 DECLARE LONG CONSTANT BAS$_PLEUSERUN = 17376121 DECLARE LONG CONSTANT BAS$_CANCON = 17376204 DECLARE LONG CONSTANT BAS$_FILEXIREN = 17376284 DECLARE LONG CONSTANT BA NS$_PRIUSIFOR = 17376344 DECLARE LONG CONSTANT BAS$_MATARRWIT = 17376444 DECLARE LONG CONSTANT BAS$_BADNUMPRI = 17376524 DECLARE LONG CONSTANT BAS$_ILLIN_IMM = 17376604 DECLARE LONG CONSTANT BAS$_PRIUSIBUF = 17376681 DECLARE LONG CONSTANT BAS$_ILLSTA = 17376764 DECLARE LONG CONSTANT BAS$_ILLFIEVAR = 1737684. DECLARE LONG CONSTANT BAS$_STO = 17376914 DECLARE LONG CONSTANT BAS$_MATDIMERR = 17377004 DECLARE LONG CONSTANT BAS$_WROMATPAC = 17377084 O DECLARE LONG CONSTANT BAS$_MAXMEMEXC = 17377164 DECLARE LONG CONSTANT BAS$_SCAFACINT = 17377244 DECLARE LONG CONSTANT BAS$_TAPRECNOT = 17377304 DECLARE LONG CONSTANT BAS$_TAPBOTDET = 17377384 DECLARE LONG CONSTANT BAS$_KEYNOTCHA = 17377464 DECLARE LONG CONSTANT BAS$_NO_CURREC = 17377544 DECLARE LONG CONSTANT BAS$_RECHASBEE = 17377624 DECLARE LONG CONSTANT BAS$_ILLUSADEV = 17377704 DECLARE LONG CONSTANT BAS$_DUPKEYDET = 17377781 DECLARE LONG CONST PANT BAS$_ILLUSA = 17377864 DECLARE LONG CONSTANT BAS$_ILLILLACC = 17377944 DECLARE LONG CONSTANT BAS$_ILLKEYATT = 17378024 DECLARE LONG CONSTANT BAS$_FILIS_LOC = 17378104 DECLARE LONG CONSTANT BAS$_INVFILOPT = 17378184 DECLARE LONG CONSTANT BAS$_INDNOTINI = 17378261 DECLARE LONG CONSTANT BAS$_ILLOPE = 17378344 DECLARE LONG CONSTANT BAS$_ILLRECFIL = 17378424 DECLARE LONG CONSTANT BAS$_BADRECIDE = 17378504 DECLARE LONG CONSTANT BAS$_INVKEYREF = 173 Q78584 DECLARE LONG CONSTANT BAS$_KEYSIZTOO = 17378664 DECLARE LONG CONSTANT BAS$_TAPNOTANS = 17378744 DECLARE LONG CONSTANT BAS$_RECNUMEXC = 17378824 DECLARE LONG CONSTANT BAS$_BADRECVAL = 17378904 DECLARE LONG CONSTANT BAS$_NOTENDFIL = 17378984 DECLARE LONG CONSTANT BAS$_NO_PRIKEY = 17379064 DECLARE LONG CONSTANT BAS$_KEYFIEBEY = 17379144 DECLARE LONG CONSTANT BAS$_ILLRECACC = 17379224 DECLARE LONG CONSTANT BAS$_RECALREXI = 17379304 DECLARE RLONG CONSTANT BAS$_RECBUCLOC = 17379384 DECLARE LONG CONSTANT BAS$_RECNOTFOU = 17379464 DECLARE LONG CONSTANT BAS$_SIZRECINV = 17379544 DECLARE LONG CONSTANT BAS$_RECFILTOO = 17379624 DECLARE LONG CONSTANT BAS$_PRIKEYOUT = 17379704 DECLARE LONG CONSTANT BAS$_KEYLARTHA = 17379784 DECLARE LONG CONSTANT BAS$_FILATTNOT = 17379864 DECLARE LONG CONSTANT BAS$_MOVOVEBUF = 17379944 DECLARE LONG CONSTANT BAS$_CANOPEFIL = 17380024 DECLARE LONG CONSTANT BAS$_N SO_FILNAM = 17380104 DECLARE LONG CONSTANT BAS$_TERFORFIL = 17380184 DECLARE LONG CONSTANT BAS$_CANPOSEOF = 17380264 DECLARE LONG CONSTANT BAS$_NEGFILSTR = 17380344 DECLARE LONG CONSTANT BAS$_ILLRECFOR = 17380424 DECLARE LONG CONSTANT BAS$_ILLALLCLA = 17380504 DECLARE LONG CONSTANT BAS$_UNUERR169 = 17380604 DECLARE LONG CONSTANT BAS$_INDNOTFUL = 17380664 DECLARE LONG CONSTANT BAS$_RRVNOTFUL = 17380744 DECLARE LONG CONSTANT BAS$_RECLOCFAI = 17380824 T DECLARE LONG CONSTANT BAS$_INVRFAFIE = 17380904 DECLARE LONG CONSTANT BAS$_FILEXPDAT = 17380984 DECLARE LONG CONSTANT BAS$_NODNAMERR = 17381064 DECLARE LONG CONSTANT BAS$_NEGZERTAB = 17381124 DECLARE LONG CONSTANT BAS$_TOOMUCDAT = 17381203 DECLARE LONG CONSTANT BAS$_EXRMSSHR = 17381304 DECLARE LONG CONSTANT BAS$_UNEFILDAT = 17381383 DECLARE LONG CONSTANT BAS$_NOSUPFOR = 17381461 DECLARE LONG CONSTANT BAS$_DECERR = 17381544 DECLARE LONG CON USTANT BAS$_NETOPEREJ = 17381624 DECLARE LONG CONSTANT BAS$_REMOVEBUF = 17381704 DECLARE LONG CONSTANT BAS$_UNAREMVAR = 17381804 DECLARE LONG CONSTANT BAS$_RECOVEMAP = 17381884 DECLARE LONG CONSTANT BAS$_IMPERRHAN = 17381964 DECLARE LONG CONSTANT BAS$_ILLRECLOC = 17382044 DECLARE LONG CONSTANT BAS$_REQRECSIZ = 17382104 DECLARE LONG CONSTANT BAS$_TOOLITDAT = 17382164 DECLARE LONG CONSTANT BAS$_ILLNETOPE = 17382264 DECLARE LONG CONSTANT BAS$_ILLTFFOPE V = 17382344 DECLARE LONG CONSTANT BAS$_ILLWAIVAL = 17382423 DECLARE LONG CONSTANT BAS$_DEADLOCK = 17382503 DECLARE LONG CONSTANT BAS$_NOTBASIC = 17382584 DECLARE LONG CONSTANT BAS$_DIMOUTRAN = 17382664 DECLARE LONG CONSTANT BAS$_REMSTRNOT = 17382764 DECLARE LONG CONSTANT BAS$_ARRTOOSMA = 17382824 DECLARE LONG CONSTANT BAS$_UNUERR198 = 17382924 DECLARE LONG CONSTANT BAS$_UNUERR199 = 17383004 DECLARE LONG CONSTANT BAS$_UNUERR200 = 17383084 DE WCLARE LONG CONSTANT BAS$_UNUERR201 = 17383164 DECLARE LONG CONSTANT BAS$_UNUERR202 = 17383244 DECLARE LONG CONSTANT BAS$_UNUERR203 = 17383324 DECLARE LONG CONSTANT BAS$_UNUERR204 = 17383404 DECLARE LONG CONSTANT BAS$_UNUERR205 = 17383484 DECLARE LONG CONSTANT BAS$_UNUERR206 = 17383564 DECLARE LONG CONSTANT BAS$_UNUERR207 = 17383644 DECLARE LONG CONSTANT BAS$_UNUERR208 = 17383724 DECLARE LONG CONSTANT BAS$_UNUERR209 = 17383804 DECLARE LONG CONSTANT XBAS$_UNUERR210 = 17383884 DECLARE LONG CONSTANT BAS$_UNUERR211 = 17383964 DECLARE LONG CONSTANT BAS$_UNUERR212 = 17384044 DECLARE LONG CONSTANT BAS$_UNUERR213 = 17384124 DECLARE LONG CONSTANT BAS$_UNUERR214 = 17384204 DECLARE LONG CONSTANT BAS$_UNUERR215 = 17384284 DECLARE LONG CONSTANT BAS$_UNUERR216 = 17384364 DECLARE LONG CONSTANT BAS$_UNUERR217 = 17384444 DECLARE LONG CONSTANT BAS$_UNUERR218 = 17384524 DECLARE LONG CONSTANT BAS$_UNUERR219 = 173 Y84604 DECLARE LONG CONSTANT BAS$_UNUERR220 = 17384684 DECLARE LONG CONSTANT BAS$_UNUERR221 = 17384764 DECLARE LONG CONSTANT BAS$_UNUERR222 = 17384844 DECLARE LONG CONSTANT BAS$_UNUERR223 = 17384924 DECLARE LONG CONSTANT BAS$_UNUERR224 = 17385004 DECLARE LONG CONSTANT BAS$_UNUERR225 = 17385084 DECLARE LONG CONSTANT BAS$_GKSNOTINS = 17385144 DECLARE LONG CONSTANT BAS$_STRTOOLON = 17385224 DECLARE LONG CONSTANT BAS$_RECATTNOT = 17385304 DECLARE ZLONG CONSTANT BAS$_DIFUSELON = 17385404 DECLARE LONG CONSTANT BAS$_NO_FIEIMA = 17385464 DECLARE LONG CONSTANT BAS$_ILLSTRIMA = 17385541 DECLARE LONG CONSTANT BAS$_NULIMA = 17385624 DECLARE LONG CONSTANT BAS$_ILLNUMIMA = 17385704 DECLARE LONG CONSTANT BAS$_NUMIMASTR = 17385784 DECLARE LONG CONSTANT BAS$_STRIMANUM = 17385864 DECLARE LONG CONSTANT BAS$_TIMLIMEXC = 17385944 DECLARE LONG CONSTANT BAS$_FIRARGSEQ = 17386024 DECLARE LONG CONSTANT BAS$_ARR [MUSSAM = 17386104 DECLARE LONG CONSTANT BAS$_ARRMUSSQU = 17386184 DECLARE LONG CONSTANT BAS$_CANCHAARR = 17386261 DECLARE LONG CONSTANT BAS$_FLOOVE = 17386341 DECLARE LONG CONSTANT BAS$_FLOUND = 17386424 DECLARE LONG CONSTANT BAS$_CHATO_NON = 17386501 DECLARE LONG CONSTANT BAS$_EXPERR = 17386584 DECLARE LONG CONSTANT BAS$_ILLEXIDEF = 17386684 DECLARE LONG CONSTANT BAS$_ERRTRANEE = 17386764 DECLARE LONG CONSTANT BAS$_ILLRESSUB = 17386844 DE \CLARE LONG CONSTANT BAS$_ILLRETSUB = 17386904 DECLARE LONG CONSTANT BAS$_ARGOUTBOU = 17386981 DECLARE LONG CONSTANT BAS$_NOTIMP = 17387064 DECLARE LONG CONSTANT BAS$_RECSUBCAL = 17387144 DECLARE LONG CONSTANT BAS$_FILACPFAI = 17387221 DECLARE LONG CONSTANT BAS$_DIRERR = 17387304 DECLARE LONG CONSTANT BAS$_UNUERR254 = 17387404 DECLARE LONG CONSTANT BAS$_UNUERR255 = 17387484 DECLARE LONG CONSTANT BAS$_ECHTYPNOT = 17387544 DECLARE LONG CONSTANT BAS$ ]_ILLTRANUM = 17387624 DECLARE LONG CONSTANT BAS$_ILLPICOPE = 17387704 DECLARE LONG CONSTANT BAS$_CLIPONOFF = 17387784 DECLARE LONG CONSTANT BAS$_TRANOTDIF = 17387864 DECLARE LONG CONSTANT BAS$_COLNOTCON = 17387944 DECLARE LONG CONSTANT BAS$_ILLARESTY = 17388024 DECLARE LONG CONSTANT BAS$_ILLTEXJUS = 17388104 DECLARE LONG CONSTANT BAS$_ILLTEXPRE = 17388184 DECLARE LONG CONSTANT BAS$_ILLTEXPAT = 17388263 DECLARE LONG CONSTANT BAS$_ILLDEVID = 1738834 ^4 DECLARE LONG CONSTANT BAS$_DEVTYPNOT = 17388424 DECLARE LONG CONSTANT BAS$_DEVNOTOPE = 17388504 DECLARE LONG CONSTANT BAS$_DEVOUTMET = 17388583 DECLARE LONG CONSTANT BAS$_DEVINMET = 17388664 DECLARE LONG CONSTANT BAS$_UNUERR271 = 17388764 DECLARE LONG CONSTANT BAS$_DEVOPEINC = 17388824 DECLARE LONG CONSTANT BAS$_COONOTNDC = 17388904 DECLARE LONG CONSTANT BAS$_ILLLINSTY = 17388984 DECLARE LONG CONSTANT BAS$_ILLLINSIZ = 17389064 DECLARE LONG _ CONSTANT BAS$_ILLPOISTY = 17389144 DECLARE LONG CONSTANT BAS$_ILLTEXRAT = 17389224 DECLARE LONG CONSTANT BAS$_ILLTEXHEI = 17389304 DECLARE LONG CONSTANT BAS$_ILLSTYIND = 17389384 DECLARE LONG CONSTANT BAS$_ILLCOLIND = 17389464 DECLARE LONG CONSTANT BAS$_NUMCOOINS = 17389544 DECLARE LONG CONSTANT BAS$_UNINUMNOT = 17389624 DECLARE LONG CONSTANT BAS$_ILLECHARE = 17389704 DECLARE LONG CONSTANT BAS$_ILLINIVAL = 17389784 DECLARE LONG CONSTANT BAS$_ENTPO `INOT = 17389864 DECLARE LONG CONSTANT BAS$_UNKGKSERR = 17389944 DECLARE LONG CONSTANT BAS$_INVCHASTR = 17390024 DECLARE LONG CONSTANT BAS$_STRLENZER = 17390103 DECLARE LONG CONSTANT BAS$_DATOVERF = 17390184 DECLARE LONG CONSTANT BAS$_ILLCNTCLA = 17390264 DECLARE LONG CONSTANT BAS$_ILLCOLMIX = 17390344 DECLARE LONG CONSTANT BAS$_ILLDEVNAM = 17390424 DECLARE LONG CONSTANT BAS$_USEABOINP = 17390504 DECLARE LONG CONSTANT BAS$_UNUERR294 = 17390604 a DECLARE LONG CONSTANT BAS$_UNUERR295 = 17390684 DECLARE LONG CONSTANT BAS$_UNUERR296 = 17390764 DECLARE LONG CONSTANT BAS$_UNUERR297 = 17390844 DECLARE LONG CONSTANT BAS$_UNUERR298 = 17390924 DECLARE LONG CONSTANT BAS$_UNUERR299 = 17391004 DECLARE LONG CONSTANT BAS$_UNUERR300 = 1739108 ! Q ! THIS BASE DIRECTIVE IS CAUSING THE MESSAGES BELOW THIS TO BE PLACED AT THE< ! VERY END (THE LIMIT) OF MESSAGES FOR THIS FACILITY. R ! MESSAGES BELOW HERE DO NO bT HAVE BASIC MESSAGE NUMBERS ASSOCIATED WITH THEM. ! T ! ADDITIONS OF MESSAGES THAT DO NOT HAVE BASIC MESSAGE NUMBERS ASSOCIATED WITH P ! THEM CAN BE MADE BY DECREASING THE .BASE DIRECTIVE BY ONE AND ADDING THE 2 ! MESSAGE DIRECTLY AFTER THE .BASE DIRECTIVE. ! Q ! ALSO NOTE THAT ANY VALUE BELOW THIS .BASE DIRECTIVE GET TRANSLATED INTO AN( ! INFORMATIONAL STATUS AT RUN TIME. ! S ! THIS METHOD ALLOWS A MESSAGE THAT MUST HAVE AN ASSOCIATED BASIC ERROR NUMBER cN ! TO BE ADDED WITHOUT CHANGING THE VALUES OF MESSAGES THAT DO NOT REQUIRE ! BASIC ERROR NUMBERS. ! 4 DECLARE LONG CONSTANT BAS$_FROGSBLIN = 17692911 DECLARE LONG CONSTANT BAS$_FROPIC = 17692991 DECLARE LONG CONSTANT BAS$_FROMOD = 17693071 DECLARE LONG CONSTANT BAS$_FROSUB = 17693151 DECLARE LONG CONSTANT BAS$_FROFUN = 17693234 DECLARE LONG CONSTANT BAS$_FRODEFMOD = 17693314 DECLARE LONG CONSTANT BAS$_FRODFSMOD = 17693394 DECLARE LO dNG CONSTANT BAS$_FROGSBMOD = 17693474 DECLARE LONG CONSTANT BAS$_FROOEGMOD = 1769355 ! 4 DECLARE LONG CONSTANT BAS$_ORIERRWAS = 17693637 DECLARE LONG CONSTANT BAS$_GKSACTIVATED = 17693724 DECLARE LONG CONSTANT BAS$_FROLINPIC = 17693794 DECLARE LONG CONSTANT BAS$_FORFILUSE = 17693874 DECLARE LONG CONSTANT BAS$_USEPC_PSL = 17693951 DECLARE LONG CONSTANT BAS$_FROIOL = 17694034 DECLARE LONG CONSTANT BAS$_ON_CHAFIL = 17694114 DECLARE LONG CONSTANT BAS$_FROLINMOD = 17694194 DECLARE LONG CONSTANT BAS$_FROLINSUB = 17694274 DECLARE LONG CONSTANT BAS$_FROLINFUN = 17694354 DECLARE LONG CONSTANT BAS$_FROLINDEF = 17694434 DECLARE LONG CONSTANT BAS$_FROLINDFS = 17694514 DECLARE LONG CONSTANT BAS$_FROLINGSB = 17694594 DECLARE LONG CONSTANT BAS$_FROLINOEG = 1769467wwfF> ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED g( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINhG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > i %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 2 ! Command Language Interpreter (CLI) Routines !  ! / ! CLI$DCL_PARSE - Parse DCL command string ! G ! status = CLI$DCL_PARSE ([command_string], table [,param_routine]6 ! j [,prompt_routine] [,prompt_string]) ! 0 ! command_string - Command string to parse& ! table - Command table= ! param_routine - Routine to obtain omitted parameters4 ! prompt_routine - Routine to prompt for input2 ! prompt_string - Prompt string for display ! - EXTERNAL LONG FUNCTION CLI$DCL_PARSE & ( &% STRING BY DESC, &! ANY BY REF, &* OPTIONAL LONG BY REkF, &" LONG BY REF, &$ STRING BY DESC & ) ! 0 ! CLI$DISPATCH - Dispatch to action routine ! ( ! status = CLI$DISPATCH ([userarg]) !  ! userarg - User argument ! , EXTERNAL LONG FUNCTION CLI$DISPATCH & ( &( OPTIONAL ANY BY REF & ) ! < ! CLI$GET_VALUE - Get value of entity in command string ! B ! status = CLI$GET_VALUE (entity_desc, reltdesc [, retlength]) ! ( ! entity_desc - Entity to retrieve+ ! retdesc - Returned value string. ! retlength - Length of returned value ! - EXTERNAL LONG FUNCTION CLI$GET_VALUE & ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! C ! CLI$PRESENT - Determine presence of entity in command string ! ) ! status = CLI$PRESENT (entity_ mdesc) ! ( ! entity_desc - Entity to retrieve ! + EXTERNAL LONG FUNCTION CLI$PRESENT & ( &$ STRING BY DESC & )> DECLARE LONG CONSTANT CLI$K_token_size_traditional = 255> DECLARE LONG CONSTANT CLI$C_token_size_traditional = 255< DECLARE LONG CONSTANT CLI$K_token_size_extended = 4000< DECLARE LONG CONSTANT CLI$C_token_size_extended = 4000p DECLARE LONG CONSTANT CLI$K_command_size_traditional = 255 n! command size with no continuation character@ DECLARE LONG CONSTANT CLI$C_command_size_traditional = 255n DECLARE LONG CONSTANT CLI$K_command_size_extended = 4096 ! command size with no continuation character> DECLARE LONG CONSTANT CLI$C_command_size_extended = 4096p DECLARE LONG CONSTANT CLI$K_buffer_size_traditional = 1024 ! command size with continuation character(s)g DECLARE LONG CONSTANT CLI$C_buffer_size_traditional = 1024 ! or from input file  m DECLARE LONG CONSTANT CLI$K_buffer_size_extended = 8192 ! command size with continuation character(s)d DECLARE LONG CONSTANT CLI$C_buffer_size_extended = 8192 ! or from input file wwpCI ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED q( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINrG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > s %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:56.34 !  !  ! VERSION: 'X-12' ! P ! *********************************************************************t****P ! * *P ! * COPYRIGHT 1978 - 2011 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *P ! * *P ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR *P ! * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. *P ! * *P ! *u CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *P ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *P ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *P ! * COMMERCIAL LICENSE. *P ! * *P ! * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL *P ! * OR EDITORIAL vERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION *P ! * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND *P ! * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS *P ! * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING *P ! * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN *P ! * ADDITIONAL WARRANTY. *P ! * w *P ! ************************************************************************* !  ! MODIFIED BY: ! H ! X-12 GAK060811 ASHOKA KOTRESHA 08-JUN-2011L ! ADDED A NEW MESSAGE ILLFILEVER TO SIGNAL ERROR WHEN THEI ! LEXICAL FUNCTION F$FILE_ATTRIBUTES IS PASSED A FILEC ! NAME WITH VERSION NUMBER SPECIFIED EXPLICITLY. ! / ! X-11 SS111808 SHAHINA SHAIK x 18-NOV-2008B ! ADDED A NEW MESSAGE DEFOVF16 TO SIGNAL WHEN PARSING LIMIT @ ! OF PN VALUES TO COMMAND PROCEDURE EXCEEDS A LIMIT OF 16 , ! WHEN 4TH BIT OF DCL_CTLFLAGS IS SET. ! 2 ! 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-9 STEVE T. LEE 06-FEB-1996% ! UPDATE MESSAGES FOR DCL PIPE. ! 3 ! X-8 STL0200 y STEVE T. LEE 30-AUG-1995' ! ADD NEW MESSAGES FOR DCL PIPE. ! 3 ! X-7 DCP DAVID C. PASTERCHIK 25-AUG-19946 ! CLARIFY TEXT OF GBLNDF MESSAGE (V6 QAR 00787). ! - ! X-6 RAB RICHARD A. BISHOP 21-OCT-19936 ! REVERSE ORDER OF PREVIOUS CHANGE TO MATCH V1.5) ! REQUIRES CORRESPONDING FIX ON VAX ! 0 ! X-5 DBM0010 DAVID B. MILLER 13-SEP-19934 ! ALIGN REVISION NUMBER WITH CMS. / ! CORAL PARITY z - ADD INVNOD.  ! 8 ! X01-003 TH THOMAS J. HOEY 22-JUL-1993 + ! COMPLETE BLADE MERGE. 7 ! X-15 RNM0119 RUSS MURRAY 10-OCT-1990 : ! MAKE IVPROT MESSAGE TEXT MORE GENERIC.  ! > ! X01-002 DBM0001 DAVID B. MILLER 23-NOV-1992 # ! ADD CMDSEG2.  ! : ! V01-001 DAG DARYL A. GLEASON 1-APR-1992 G ! EVMS Q {AR 1872: CHANGE IVPROT TO BE IN SYNCH WITH VAX.  ! 7 ! X-3 RAB RICHARD A. BISHOP 29-JAN-1992 A ! MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS. H ! SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION I ! OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), WHAT E ! FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK.  ! P ! ======================================= |========================  ! ; ! X-7 CRB0239 COLIN R. BLAKE 18-DEC-1991 11:38:24.76< ! THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. ! 2 ! X-6A1 FAK001 FORREST A. KENNEY 23-SEP-1991D ! MERGE C2 CHANGES INTO BLADE. MAKE MODULE IDENT AND REVISION= ! HISTORY AGREE WITH CMS AFTER THE MASTER PACK CLEANUP. ! A ! T-2 LBB LEE BARTON 22-MAY-1991- ! PICK UP PHOENIX CHANGE: ! + ! X-18 }TNF0094 TODD FLOLO 23 FEB 1991# ! ADD MESSAGE FOR SET PREFIX. ! , ! X-14 RNM0109 RUSS MURRAY 25-MAY-1990E ! ADD MSNGENDS TO FLAG MISSING ENDSUBROUTINES ON A FORWARD SCAN ! FOR A CALL TARGET. ! G ! INCLUDE THE TARGET LABEL NAME IN THE USCALL MESSAGE, AND CHANGE? ! THE TEXT OF THE MESSAGE TO INDICATE THE LABEL COULD BE  ! INACCESSIBLE. ! , ! X-13 RNM0102 RUSS MURRAY 28-FEB-19891 ! ADD NOREADCP ERROR MESSAGE TO FLAG FILES # ~ ! NOT OPENED FOR READ ACCESS. ! , ! X-12 RNM0090 RUSS MURRAY 11-OCT-1989: ! ADD THE CURRENT DISK FILE NAME (IF ONE EXISTS) TO + ! THE MISSPELL INFORMATIONAL MESSAGE. ! , ! X-11 RNM0086 RUSS MURRAY 20-SEP-19894 ! SUPPORT FOR COMMAND VERB/QUALIFIER SPELLING 7 ! CHECKS: ADD MISSPELL INFORMATIONAL MESSAGE FOR , ! COMMAND VERB/QUALIFIER MISSPELLINGS. ! * ! X-10 TNF0056 TODD FLOLO 6-FEB-19892 ! ADD MESSAGE FOR DISABLED RUN ? MCR COMMAND ! ) ! X-9 TNF0053 TODD FLOLO 2-DEC-19884 ! ADD MESSAGES FOR CAPTIVE ? DISIMAGE ACCOUNTS ! * ! X-8 TNF0047 TODD FLOLO 06-OCT-19887 ! ADD NEW MESSAGES FOR CONTEXT SYMBOL PROCESSING. ! . ! X-7 HWS0263 HAROLD SCHULTZ 08-DEC-19864 ! 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-19855 ! CHANGE THE INVCALL AND STKOVF ERROR MESSAGES." ! ADD INVGOSUB AND GOSUBMAX. ! . ! X-4 HWS0168 HAROLD SCHULTZ 04-SEP-1985 ! ADD INVDEF AND INVCALL ! . ! X-3 HWS0161 HAROLD SCHULTZ 19-AUG-1985 ! ADD PERMSYM AND GBLNDF ! 2 ! V04-002 HWS0130 HAROLD SCHULLZ 29-MAY-1985 ! ADD INVOUTSPE ! 2 ! V04-001 HWS0117 HAROLD SCHULTZ 09-MAR-1985 ! ADD ATTRMBX  ! ! --- ! ' ! DEFINE CLI RELATED STATUS VAL UES ! - DECLARE LONG CONSTANT CLI$_FACILITY = 30 DECLARE LONG CONSTANT CLI$_ABVERB = 2293840 DECLARE LONG CONSTANT CLI$_ABKEYW = 2293920 DECLARE LONG CONSTANT CLI$_BUFOVF = 2294000 DECLARE LONG CONSTANT CLI$_COMPLX = 2294080 DECLARE LONG CONSTANT CLI$_DEFOVF = 2294160 DECLARE LONG CONSTANT CLI$_DIRECT = 2294240 DECLARE LONG CONSTANT CLI$_EXPSYN = 229432O DECLARE LONG CONSTANT CLI$_IMCHNG = 229440 ! NOT USED BY DCL NOR BY MCR1 DECLAR E LONG CONSTANT CLI$_INSFPRM = 2294480 DECLARE LONG CONSTANT CLI$_IVCHAR = 229456? DECLARE LONG CONSTANT CLI$_DEFOVF16 = 229464 ! SS1118080 DECLARE LONG CONSTANT CLI$_IVKEYW = 2294720 DECLARE LONG CONSTANT CLI$_IVOPER = 2294800 DECLARE LONG CONSTANT CLI$_IVPROT = 2294880 DECLARE LONG CONSTANT CLI$_IVQLOC = 2294960 DECLARE LONG CONSTANT CLI$_IVSYMB = 2295040 DECLARE LONG CONSTANT CLI$_IVVALU = 2295120 DECLARE LONG CONSTANT CLI$_IVVERB = 2295201 DECLARE LONG CONSTANT CLI$_MAXPARM = 229528P DECLARE LONG CONSTANT CLI$_NOATFIL = 229536 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_NOCCAT = 2295440 DECLARE LONG CONSTANT CLI$_NOCOMD = 2295520 DECLARE LONG CONSTANT CLI$_NOKEYW = 2295600 DECLARE LONG CONSTANT CLI$_NOLIST = 2295680 DECLARE LONG CONSTANT CLI$_NOQUAL = 2295760 DECLARE LONG CONSTANT CLI$_NOVALU = 2295840 DECLARE LONG CONSTANT CLI$_NOTNEG = 2295920 DECLARE LONG CON STANT CLI$_NULFIL = 2296000 DECLARE LONG CONSTANT CLI$_NUMBER = 2296080 DECLARE LONG CONSTANT CLI$_ONCOMD = 229616/ DECLARE LONG CONSTANT CLI$_ONERR = 2296240 DECLARE LONG CONSTANT CLI$_ONLEVL = 229632/ DECLARE LONG CONSTANT CLI$_ONOVF = 2296401 DECLARE LONG CONSTANT CLI$_PARMDEL = 2296480 DECLARE LONG CONSTANT CLI$_RSLOVF = 2296560 DECLARE LONG CONSTANT CLI$_SKPDAT = 2296640 DECLARE LONG CONSTANT CLI$_STKOVF = 2296720 DECLARE LONG CONSTAN T CLI$_SYMDEL = 2296800 DECLARE LONG CONSTANT CLI$_SYMOVF = 2296880 DECLARE LONG CONSTANT CLI$_UNDSYM = 2296960 DECLARE LONG CONSTANT CLI$_USGOTO = 2297040 DECLARE LONG CONSTANT CLI$_VALREQ = 2297120 DECLARE LONG CONSTANT CLI$_ONEVAL = 2297200 DECLARE LONG CONSTANT CLI$_OVRFLW = 229728P DECLARE LONG CONSTANT CLI$_UNPROQUAL = 229736 ! OLD CLI INTERFACE STATUSP DECLARE LONG CONSTANT CLI$_UNPROPARM = 229744 ! OLD CLI INTERFACE STATUSS DECLARE LONG CONSTANT CLI$_INVKEY = 229752 ! OLD MCR STATUS GOING AWAY SOONO DECLARE LONG CONSTANT CLI$_INVRSP = 229760 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_UNDFIL = 229768O DECLARE LONG CONSTANT CLI$_FILOPN = 229776 ! NOT USED BY DCL NOR BY MCRO DECLARE LONG CONSTANT CLI$_BADRET = 229784 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_ABSYMD = 2297920 DECLARE LONG CONSTANT CLI$_INVUIC = 229800P DECLARE LONG CONSTANT CLI$_BADTEXT = 229808 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_ABFNAM = 2298160 DECLARE LONG CONSTANT CLI$_IVFNAM = 229824S DECLARE LONG CONSTANT CLI$_BLKOVRFLOW = 229832 ! NOT USED BY DCL NOR BY MCRS DECLARE LONG CONSTANT CLI$_BLKUNDFLOW = 229840 ! NOT USED BY DCL NOR BY MCRO DECLARE LONG CONSTANT CLI$_BADBLK = 229848 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_NOLBLS = 229856F DECLARE LONG CONSTANT CLI$_NOCHANGE = 229864 ! MCR-ONL Y STATUSM DECLARE LONG CONSTANT CLI$_ABSENT = 229872 ! NEW CLI INTERFACE STATUSN DECLARE LONG CONSTANT CLI$_NEGATED = 229880 ! NEW CLI INTERFACE STATUS3 DECLARE LONG CONSTANT CLI$_INVFILSPE = 229888R DECLARE LONG CONSTANT CLI$_INVLOGFIL = 229896 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_NOTHEN = 2299043 DECLARE LONG CONSTANT CLI$_SYMTOOLNG = 229912D DECLARE LONG CONSTANT CLI$_ASTDCL = 229920 ! GOES AWAY IN V42 DECLARE LONG CONST ANT CLI$_INVRANGE = 229928M DECLARE LONG CONSTANT CLI$_LOCNEG = 229936 ! NEW CLI INTERFACE STATUS3 DECLARE LONG CONSTANT CLI$_CMDNOTFND = 2299440 DECLARE LONG CONSTANT CLI$_IVQUAL = 2299520 DECLARE LONG CONSTANT CLI$_CMDSEG = 2299600 DECLARE LONG CONSTANT CLI$_NOTIFY = 2299682 DECLARE LONG CONSTANT CLI$_CONFLICT = 2299760 DECLARE LONG CONSTANT CLI$_UNDKEY = 2299840 DECLARE LONG CONSTANT CLI$_ARGREQ = 2299920 DECLARE LONG CONSTANT CLI$_SYMLNG = 2300000 DECLARE LONG CONSTANT CLI$_SYMABR = 2300082 DECLARE LONG CONSTANT CLI$_IVKEYNAM = 2300161 DECLARE LONG CONSTANT CLI$_NOPAREN = 2300241 DECLARE LONG CONSTANT CLI$_IVATIME = 2300321 DECLARE LONG CONSTANT CLI$_IVDTIME = 2300400 DECLARE LONG CONSTANT CLI$_TKNOVF = 230048G DECLARE LONG CONSTANT CLI$_CMDFILERR = 230056 ! MCR-ONLY STATUS3 DECLARE LONG CONSTANT CLI$_INVOUTSPE = 2300641 DECLARE LONG CONSTANT CLI$_PERMSYM = 2300720 DECL ARE LONG CONSTANT CLI$_GBLNDF = 2300802 DECLARE LONG CONSTANT CLI$_INVGOSUB = 2300882 DECLARE LONG CONSTANT CLI$_GOSUBMAX = 2300960 DECLARE LONG CONSTANT CLI$_USCALL = 2301041 DECLARE LONG CONSTANT CLI$_USGOSUB = 2301121 DECLARE LONG CONSTANT CLI$_FRZNCTX = 2301200 DECLARE LONG CONSTANT CLI$_NOTCTX = 2301283 DECLARE LONG CONSTANT CLI$_INVCTXTYP = 2301361 DECLARE LONG CONSTANT CLI$_CMDSEG2 = 2301440 DECLARE LONG CONSTANT CLI$_INVNOD = 2301522 DECLARE LONG CONSTANT CLI$_NULLPIPE = 2301604 DECLARE LONG CONSTANT CLI$_INVNULLCMD = 2301685 DECLARE LONG CONSTANT CLI$_WRGSUBSHSYN = 2301765 DECLARE LONG CONSTANT CLI$_UNTERMSUBSH = 2301843 DECLARE LONG CONSTANT CLI$_DUPREDSYN = 2301923 DECLARE LONG CONSTANT CLI$_INCREDSYN = 2302003 DECLARE LONG CONSTANT CLI$_INVREDSYN = 2302084 DECLARE LONG CONSTANT CLI$_INVCONCHAR = 2302168 DECLARE LONG CONSTANT CLI$_CMDNOTALLINPIP = 2302248 DECLARE LO NG CONSTANT CLI$_LBLNOTALLINPIP = 2302327 DECLARE LONG CONSTANT CLI$_TOOMANYPIPCMD = 2302407 DECLARE LONG CONSTANT CLI$_UNSUPITEM = 230248 ! 3 ! DEFINE CLI RELATED "ERROR" LEVEL ERROR CODES, ! BEGIN ERROR CODE 2048 FROM WARNING TO# ! LEAVE ROOM FOR 256 WARNINGS. ! O DECLARE LONG CONSTANT CLI$_CONFQUAL = 231426 ! OLD CLI INTERFACE STATUSN DECLARE LONG CONSTANT CLI$_INVQUAL = 231434 ! OLD CLI INTERFACE STATUSP DECLARE LONG CONSTANT CLI$_REQPRMABS = 231442 ! OLD CLI INTERFACE STATUSQ DECLARE LONG CONSTANT CLI$_INVQUALNUM = 231450 ! OLD CLI INTERFACE STATUSJ DECLARE LONG CONSTANT CLI$_INVREQTYP = 231458 ! USED BY CALL BACKSN DECLARE LONG CONSTANT CLI$_NOVALUE = 231466 ! OLD CLI INTERFACE STATUSP DECLARE LONG CONSTANT CLI$_VALCNVERR = 231474 ! OLD CLI INTERFACE STATUSG DECLARE LONG CONSTANT CLI$_ILLVAL = 231482 ! USED BY CALL BACKSO DECLARE LONG CONSTANT CLI$_NOOPTPRS = 231490 ! OLD CLI INTERFACE STATUSR DECLARE LONG CONSTANT CLI$_CREQUEJOB = 231498 ! NOT USED BY DCL NOR BY MCRR DECLARE LONG CONSTANT CLI$_SUBMITERR = 231506 ! NOT USED BY DCL NOR BY MCRQ DECLARE LONG CONSTANT CLI$_DEVALSPL = 231514 ! NOT USED BY DCL NOR BY MCRR DECLARE LONG CONSTANT CLI$_DEVNOTSPL = 231522 ! NOT USED BY DCL NOR BY MCRG DECLARE LONG CONSTANT CLI$_IVDEVTYPE = 231530 ! MCR-ONLY STATUSD DECLARE LONG CONSTANT CLI$_IMGFNF = 231538 ! MCR-ONLY STATUSR DECLARE LONG CONSTANT CLI$_DEVNOTFOR = 231546 ! NOT USED BY DCL NOR BY MCRK DECLARE LONG CONSTANT CLI$_PWDNOTVAL = 231554 ! SET PASSWORD STATUSK DECLARE LONG CONSTANT CLI$_PWDNOTVER = 231562 ! SET PASSWORD STATUSK DECLARE LONG CONSTANT CLI$_PWDLOCKED = 231570 ! SET PASSWORD STATUSS DECLARE LONG CONSTANT CLI$_NOTFR = 231578 ! IMAGE ACTIVATION ERROR - PART 2K DECLARE LONG CONSTANT CLI$_PWDSYNTAX = 231586 ! SET PASSWORD STATUSU DECLARE LONG CONSTANT CLI$_IMGNAME = 231594 ! IMAGE ACTIVATION ERROR - PART 2V DECLARE LONG CONSTANT CLI$_IMAGEFNF = 231602 ! IMAGE ACTIVATION ERROR - PART 2R DECLARE LONG CONSTANT CLI$_BADSTRLVL = 231610 ! NOT USED BY DCL NOR BY MCR1 DECLARE LONG CONSTANT CLI$_REFUSED = 231618J DECLARE LONG CONSTANT CLI$_BADCTLMSK = 231626 ! USED BY CALL BACKS0 DECLARE LONG CONSTANT CLI$_INVRFM = 231634E DECLARE LONG CONSTANT CLI$_NOCLINT = 231642 ! MCR-ONLY STATUSE DECLARE LONG CONSTANT CLI$ _NOSPAWN = 231650 ! MCR-ONLY STATUS0 DECLARE LONG CONSTANT CLI$_SPWNIO = 2316580 DECLARE LONG CONSTANT CLI$_TRMMBX = 2316663 DECLARE LONG CONSTANT CLI$_STRTOOLNG = 231674E DECLARE LONG CONSTANT CLI$_CMDGONE = 231682 ! MCR-ONLY STATUS3 DECLARE LONG CONSTANT CLI$_NOCMDPROC = 2316901 DECLARE LONG CONSTANT CLI$_INVROUT = 2316980 DECLARE LONG CONSTANT CLI$_OLDTAB = 2317060 DECLARE LONG CONSTANT CLI$_INVTAB = 2317143 DECLARE LONG CONSTANT CLI$_N OTDISCON = 231722/ DECLARE LONG CONSTANT CLI$_ENTNF = 2317301 DECLARE LONG CONSTANT CLI$_ATTRMBX = 2317381 DECLARE LONG CONSTANT CLI$_INVCALL = 2317463 DECLARE LONG CONSTANT CLI$_INVIFNEST = 2317541 DECLARE LONG CONSTANT CLI$_CAPTINT = 2317621 DECLARE LONG CONSTANT CLI$_CAPTINQ = 2317702 DECLARE LONG CONSTANT CLI$_NOFORCMD = 2317782 DECLARE LONG CONSTANT CLI$_NORUNMCR = 2317862 DECLARE LONG CONSTANT CLI$_NOREADCP = 2317943 DECLARE LONG CONSTANT CLI$_INVPREFIX = 2318023 DECLARE LONG CONSTANT CLI$_CAPTSPAWN = 2318104 DECLARE LONG CONSTANT CLI$_ILLFILEVER = 231818 ! % ! DEFINE INFORMATIONAL MESSAGES. ! 0 DECLARE LONG CONSTANT CLI$_DEFKEY = 2533790 DECLARE LONG CONSTANT CLI$_DELKEY = 2533870 DECLARE LONG CONSTANT CLI$_SETKEY = 253395G DECLARE LONG CONSTANT CLI$_SPARE1 = 253403 ! NOT CURRENTLY USED/ DECLARE LONG CONSTANT CLI$_ALLOC = 2534113 DECLARE LONG CONSTANT CLI$ _SUPERSEDE = 253419E DECLARE LONG CONSTANT CLI$_INSPRIV = 253427 ! MCR-ONLY STATUSF DECLARE LONG CONSTANT CLI$_NODIRCHG = 253435 ! MCR-ONLY STATUS1 DECLARE LONG CONSTANT CLI$_IGNQUAL = 2534432 DECLARE LONG CONSTANT CLI$_TABEXIST = 2534512 DECLARE LONG CONSTANT CLI$_TABSUPER = 2534593 DECLARE LONG CONSTANT CLI$_TABNOTFND = 2534670 DECLARE LONG CONSTANT CLI$_DELSYM = 2534752 DECLARE LONG CONSTANT CLI$_SYMTRUNC = 2534830 DECLARE LONG CONSTANT CLI$_KEYCNV = 2534910 DECLARE LONG CONSTANT CLI$_INVDEF = 2534992 DECLARE LONG CONSTANT CLI$_MISSPELL = 2535072 DECLARE LONG CONSTANT CLI$_MSNGENDS = 253515 ! ! ! DEFINE SUCCESSFUL MESSAGES ! 1 DECLARE LONG CONSTANT CLI$_SPAWNED = 2613772 DECLARE LONG CONSTANT CLI$_ATTACHED = 2613852 DECLARE LONG CONSTANT CLI$_RETURNED = 261393N DECLARE LONG CONSTANT CLI$_PRESENT = 261401 ! NEW CLI INTERFACE STATUSP DECLARE LONG CONSTANT CLI$_DEFAULTED = 261409 ! NEW CLI INTERFACE STATUSM DECLARE LONG CONSTANT CLI$_CONCAT = 261417 ! NEW CLI INTERFACE STATUSN DECLARE LONG CONSTANT CLI$_LOCPRES = 261425 ! NEW CLI INTERFACE STATUSL DECLARE LONG CONSTANT CLI$_COMMA = 261433 ! NEW CLI INTERFACE STATUSQ DECLARE LONG CONSTANT CLI$_OKTAB = 261441 ! CDU CONVERSION ROUTINE STATUSR DECLARE LONG CONSTANT CLI$_UPGTAB = 261449 ! CDU CONVERSION ROUTINE STATUSP DECLARE LONG CONSTANT CLI$_PROC_ID = 262129 ! NOT USED BY DCL NOR BY MCRR DECLARE LONG CONSTANT CLI$_QUEJOBCRE = 262137 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_NORMAL = 196609wwpV%DEFINE cma$t_integer LONG%DEFINE cma$t_interval SINGLE%DEFINE cma$t_key LONG%DEFINE cma$t_status LONG%DEFINE cma$t_priority LONG%DEFINE cma$t_address LONG %DEFINE cma$t_start_routine LONG %DEFINE cma$t_mutex cma$t_handle%DEFINE cma$t_attr cma$t_handle!%DEFINE cma$t_thread cma$t_handle%DEFINE cma$t_cond cma$t_handle#%DEFINE cma$t_stack_np cma$t_handle%DEFINE cma$t_exit_status LONG %DEFINE cma$t_sched_inherit LONG%DEFINE cma$t_sched_policy LONG%DEFINE cma$t_mutex_kind LONG%DEFINE cma$t_init_routine LONG%DEFINE cma$t_destructor LONG%DEFINE cma$t_call_routine LONG#%DEFINE cma$lib_t_attr cma$t_handle$%DEFINE cma$lib_t_queue cma$t_handle ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! FACILITY: ! : ! Common Multithread Architecture (CMA) services !  ! ABSTRACT: ! 1 ! 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 ! Bri an Keane ! Webb Scales !  ! K ! Define a symbol which client code can test to determine whether the K ! underlying threads package is DECthreads or not. This is especiallyI ! important to clients of the Pthreads interface who may want to useO ! certain DECthreads extensions, such as the global lock and non-real-timeI ! scheduling policies, on the DECthreads platform while maintaining : ! portability to a "vanilla" pthreads implementation. ! +  DECLARE LONG CONSTANT DECTHREADS_ = 1      4 DECLARE LONG CONSTANT cma$c_prio_fifo_min = 164 DECLARE LONG CONSTANT cma$c_prio_fifo_mid = 244 DECLARE LONG CONSTANT cma$c_prio_fifo_max = 312 DECLARE LONG CONSTANT cma$c_prio_rr_min = 162 DECLARE LONG CONSTANT cma$c_prio_rr_mid = 242 DECLARE LONG CONSTANT cma$c_prio_rr_max = 316 DECLARE LONG CONSTANT cma$c_prio_through_min = 87 DECLARE LONG CONSTANT cma$c_prio_through_mid = 127 DECLARE LONG CONSTANT cma$c_prio_through_max = 153 DECLARE LONG CONSTANT cma$c_prio_back_min = 03 DECLARE LONG CONSTANT cma$c_prio_back_mid = 43 DECLARE LONG CONSTANT cma$c_prio_back_max = 76 DECLARE LONG CONSTANT cma$c_prio_ada_low_min = 06 DECLARE LONG CONSTANT cma$c_prio_ada_low_mid = 46 DECLARE LONG CONSTANT cma$c_prio_ada_low_max = 76 DECLARE LONG CONSTANT cma$c_prio_ada_rtb_min = 06 DECLARE LONG CONSTANT cma$c_prio_ada_rtb_mid = 46 DECLARE LONG CONSTANT cma$c_prio_ada_rtb_max = 7 ! H ! The implementation of the date_time type should match the "nativeQ ! time" of the platform: that allows clients to use the full set of platformI ! time operations, rather than just "get_expiration", to compute and ! test timed waits. ! O ! This section assumes the platform is either "VMS" or "UNIX-ish". Others ! will require changes. ! 1 DECLARE LONG CONSTANT s_cma$t_date_time = 8  record cma$t_date_time LONG low LONG high end record cma$t_date_time  ! 2 ! Sample decisions for what handles shall be  ! . DECLARE LONG CONSTANT s_cma$t_handle = 8 record cma$t_handle$ cma$t_natural handle_field1$ cma$t_natural handle_field2 end record cma$t_handle 1 DECLARE LONG CONSTANT cma$c_handle_size = 8 ! J ! Sample decision for a one-time initialization control block and its  ! initialization macro. !  ! - DECLARE LONG CONSTANT s_cma$t_once = 12 record cma$t_once" cma$t_integer once_field1" cma$t_integer once_field2" cma$t_integer once_field3 end record cma$t_once  ! F ! Sample decision for a variable to save the current alert state. ! 3 DECLARE LONG CONSTANT s_cma$t_alert_state = 8 record cma$t_alert_state cma$t_integer state1 cma$t_integer state2"  end record cma$t_alert_state  ! 5 ! The following are the portable CMA definitions !  !  ! Operations on threads !   !  ! Constants ! + DECLARE LONG CONSTANT cma$c_false = 0* DECLARE LONG CONSTANT cma$c_true = 1. DECLARE LONG CONSTANT cma$c_null_ptr = 0 !  ! Objects !       !  ! Predefined null handle ! & EXTERNAL cma$t_handle cma$c_null !  ! Exit status constants !  0 DECLARE LONG CONSTANT cma$c_term_error = 01 DECLARE LONG CONSTANT cma$c_term_normal = 10 DECLARE LONG CONSTANT cma$c_term_alert = 22 DECLARE LONG CONSTANT cma$c_null_thread = -1 ! % ! Schedule inheritance constants !  3 DECLARE LONG CONSTANT cma$c_sched_inherit = 07 DECLARE LONG CONSTANT cma$c_sched_use_default = 1 ! ! Schedule policy constants !  0 DECLARE LONG CONSTANT cma$c_sched_fifo = 0. DECLARE LONG CONSTANT cma$c_sched_rr = 16 DECLARE LONG CONSTANT cma$c_sched_throughput = 26 DECLARE LONG CONSTANT cma$c_sched_background = 33 DECLARE LONG CONSTANT cma$c_sched_ada_low = 4 ! " ! Default and other policies. ! 3 DECLARE LONG CONSTANT cma$c_sched_default = 21 DECLARE LONG CONSTANT cma$c_sched_other = 2 !  ! Mutex types !  0 DECLARE LONG CONSTANT cma$c_mutex_fast = 05 DECLARE LONG CONSTANT cma$c_mutex_recursive = 18 DECLARE LONG CONSTANT cma$c_mutex_nonrecursive = 2 !  ! Operations on Handles !  ! J ! The value of a handle can be assigned the value of another handle.  ! ' EXTERNAL SUB cma$handle_assign & ( &* cma$t_handle BY REF, &) cma$t_handle BY REF & ) ! J ! The value of a handle can be assigned the value of another handle.  ! 9 EXTERNAL cma$t_boolean FUNCTION cma$handle_equal & ( &* cma$t_handle BY REF, &) cma$t_handle BY REF & ) ! M ! An attributes object is created to specify the attributes of other CMA$ ! objects that will be created. ! % EXTERNAL SUB cma$attr_create & ( &( cma$t_attr BY REF, &' cma$t_attr BY REF & ) ! G ! An attributes object can be deleted when it is no longer needed. ! % EXTERNAL SUB cma$attr_delete & ( &' cma$t_attr BY REF & ) ! G ! The following procedures can be used to control thread creation, ! termination and deletion. !  ! Q ! To create a thread object and runnable thread, a routine must be specifiedL ! as the new thread's start routine. An argument may be passed to thisQ ! routine, as an untyped address; an untyped address may also be returned asP ! the routine's value. An attributes object may be used to specify details. ! about the kind of thread being created. ! ' EXTERNAL SUB cma$thread_create & ( &* cma$t_thread BY REF, &( cma$t_attr BY REF, &" LONG BY REF, &* cma$t_address BY REF & ) ! M ! A thread object may be "detached" to specify that the return value and/ ! completion status will not be requested. ! ' EXTERNAL SUB cma$thread_detach & ( &) cma$t_thread BY REF & ) ! 1 ! A thread may terminate it's own execution. ! ) EXTERNAL SUB cma$thread_exit_error !  ! Exit a thread normally. ! , EXTERNAL SUB cma$thread_exit_normal & ( &* cma$t_address BY REF & ) ! O ! A thread can await termination of another thread and retrieve the return1 ! value and completion status of the thread. ! % EXTERNAL SUB cma$thread_join & ( &* cma$t_thread BY REF, &/ cma$t_exit_status BY REF, &* cma$t_address BY REF & ) ! 6 ! Operations to define thread creation attributes !  ! 1 ! Set or obtain the default thread priority. ! + EXTERNAL SUB cma$attr_set_priority & ( &( cma$t_attr BY REF, &+ cma$t_priority BY REF & ) ! 5 ! Obtain thread priority from attributes object. ! + EXTERNAL SUB cma$attr_get_priority & ( &( cma$t_attr BY REF, &+ cma$t_priority BY REF & ) ! 6 ! Set or obtain the default scheduling algorithm. ! ( EXTERNAL SUB cma$attr_set_sched &  ( &( cma$t_attr BY REF, &/ cma$t_sched_policy BY REF & ) ! > ! Get thread scheduling algorithm from attributes object. ! ( EXTERNAL SUB cma$attr_get_sched & ( &( cma$t_attr BY REF, &/ cma$t_sched_policy BY REF & ) ! Q ! Set or obtain whether a thread will use the default scheduling attributes,0 ! or inherit them from the creating thread. ! 0 EXTERNAL SUB cma$attr_set_inherit_sched & ( &( cma$t_attr BY REF, &0 cma$t_sched_inherit BY REF & ) ! , ! Obtain default scheduling attributes. ! 0 EXTERNAL SUB cma$attr_get_inherit_sched & ( &( cma$t_attr BY REF, &0 cma$t_sched_inherit BY REF & ) ! ! ! Set the default stack size ! , EXTERNAL SUB cma$attr_set_stacksize & ( &( cma$t_attr BY REF, &* cma$t_natural BY REF & ) ! % ! Obtain the default stack size. ! , EXTERNAL SUB cma$attr_get_stacksize & ( &( cma$t_attr BY REF, &* cma$t_natural BY REF & ) ! ! ! Set the default guard size ! , EXTERNAL SUB cma$attr_set_guardsize & ( &(  cma$t_attr BY REF, &* cma$t_natural BY REF & ) ! $ ! Obtain the default guard size ! , EXTERNAL SUB cma$attr_get_guardsize & ( &( cma$t_attr BY REF, &* cma$t_natural BY REF & ) ! # ! Thread Scheduling Operations !  ! E ! The current user_assigned priority of a thread can be changed. ! - EXTERNAL SUB cma$thread_set_priority & ( &* cma$t_thread BY REF, &+ cma$t_priority BY REF & ) ! P ! The current user_assigned scheduler algorithm of a thread can be changed. ! * EXTERNAL SUB cma$thread_set_sched & ( &* cma$t_thread BY REF, &/ cma$t_sched_policy BY REF & ) ! P ! A thread may tell the scheduler that its processor can be made available. !   EXTERNAL SUB cma$yield ! E ! A thread may enter a wait state for a specifed period of time. !  EXTERNAL SUB cma$delay & ( &- cma$t_interval BY VALUE & ) ! $ ! Thread Information Operations !  ! ; ! A thread may obtain a copy of its own thread handle. ! ) EXTERNAL SUB cma$thread_get_self & ( &) cma$t_thread BY REF & ) ! B ! The current user_assigned priority of a thread can be read. ! - EXTERNAL SUB cma$thread_get_priority & ( &* cma$t_thread BY REF, &+ cma$t_priority BY REF & ) ! M ! The current user_assigned scheduler algorithm of a thread can be read. ! * EXTERNAL SUB cma$thread_get_sched & ( &* cma$t_thread BY REF, &/ cma$t_sched_policy BY REF &  ) !  ! Operations on Mutexes !  ! ( ! Set whether mutex locks can nest. ! - EXTERNAL SUB cma$attr_set_mutex_kind & ( &( cma$t_attr BY REF, &- cma$t_mutex_kind BY REF & ) ! + ! Obtain whether mutex locks can nest. ! - EXTERNAL SUB cma$attr_get_mutex_kind & ( &( cma$t_attr BY REF, &- cma$t_mutex_kind BY REF & ) ! F ! The following routines create, delete, lock and unlock mutexes. ! & EXTERNAL SUB cma$mutex_create & ( &) cma$t_mutex BY REF, &' cma$t_attr BY REF & ) !  ! Delete a mutex. ! & EXTERNAL SUB cma$mutex_delete & ( &( cma$t_mutex BY REF & ) !  ! Lock a mutex. ! $ EXTERNAL SUB cma$mutex_lock & ( &( cma$t_mutex BY REF & ) !  ! Try to lock a mutex. ! ; EXTERNAL cma$t_boolean FUNCTION cma$mutex_try_lock & ( &( cma$t_mutex BY REF & ) !  ! Unlock a mutex. ! & EXTERNAL SUB cma$mutex_unlock & ( &( cma$t_mutex BY REF & ) !  ! Lock Global mutex. ! # EXTERNAL SUB cma$lock_global !  ! Unlock Global mutex. ! % EXTERNAL SUB cma$unlock_global ! : ! A thread can create and delete condition variables. ! % EXTERNAL SUB cma$cond_create & ( &( cma$t_cond BY REF, &' cma$t_attr BY REF & ) ! # ! Delete a condition variable. ! % EXTERNAL SUB cma$cond_delete & ( &' cma$t_cond BY REF &  ) ! D ! A thread can signal to and broadcast on a condition variable. ! ( EXTERNAL SUB cma$cond_broadcast & ( &' cma$t_cond BY REF & ) ! # ! Signal a condition variable. ! % EXTERNAL SUB cma$cond_signal & ( &' cma$t_cond BY REF & ) ! , ! Interupt signal a condition variable. ! ) EXTERNAL SUB cma$cond_signal_int &  ( &' cma$t_cond BY REF & ) ! O ! A thread can wait for a condition variable to be signalled or broadcast. ! # EXTERNAL SUB cma$cond_wait & ( &( cma$t_cond BY REF, &( cma$t_mutex BY REF & ) ! # ! Operations for timed waiting !  ! A ! A thread can perform a timed wait on a condition variable. ! ; EXTERNAL cma$t_status FUNCTION cma$cond_timed_wait & ( &( cma$t_cond BY REF, &) cma$t_mutex BY REF, &, cma$t_date_time BY REF & ) ! P ! A thread may perform some operations on absolute date-time and intervals. ! - EXTERNAL SUB cma$time_get_expiration & ( &- cma$t_date_time BY REF, &- cma$t_interval BY VALUE & ) ! 4 ! Operations for CMA and client initialization. !  ! # ! Initialize the CMA facility. !  EXTERNAL SUB cma$init ! N ! A thread can declare a one-time initialization routine. The address of; ! the init block and routine are passed as parameters. !   !  ! Once routine !  EXTERNAL SUB cma$once & ( &+ cma$t_address BY REF, &/ cma$t_init_routine BY REF & ) ! ( ! Operations for per-thread context !   ! F ! A unique per-thread context key can be obtained for the process ! $ EXTERNAL SUB cma$key_create & ( &' cma$t_key BY REF, &( cma$t_attr BY REF, &- cma$t_destructor BY REF & ) ! G ! A thread can set a per-thread context value identified by a key. ! ) EXTERNAL SUB cma$key_set_context & ( &'  cma$t_key BY REF, &* cma$t_address BY REF & ) ! L ! A thread can retrieve a per-thread context value identified by a key. ! ) EXTERNAL SUB cma$key_get_context & ( &' cma$t_key BY REF, &* cma$t_address BY REF & ) !  ! Operations for alerts. !  ! M ! The current thread can request that a thread terminate it's execution. ! & EXTERNAL SUB cma$thread_alert & ( &) cma$t_thread BY REF & ) ! 6 ! The current thread can poll for alert delivery. ! " EXTERNAL SUB cma$alert_test ! $ ! Control alert delivery state. ! . EXTERNAL SUB cma$alert_disable_asynch & ( &. cma$t_alert_state BY REF & )/ EXTERNAL SUB cma$alert_disable_general & ( &. cma$t_alert_state BY REF & )+ EXTERNAL SUB cma$alert_enable_asynch. EXTERNAL SUB cma$alert_enable_general & ( &. cma$t_alert_state BY REF & )' EXTERNAL SUB cma$alert_restore & ( &. cma$t_alert_state BY REF & ) !  ! Operations on stacks !   ! ! ! Assign a stack to a thread ! ) EXTERNAL SUB cma$stack_assign_np &  ( &, cma$t_stack_np BY REF, &) cma$t_thread BY REF & ) ! $ ! Call a routine on a new stack ! / EXTERNAL SUB cma$stack_call_routine_np & ( &, cma$t_stack_np BY REF, &0 cma$t_call_routine BY REF, &+ cma$t_address BY REF, &* cma$t_address BY REF & ) !  ! Check stack limit ! A EXTERNAL cma$t_boolean FUNCTION cma$stack_check_limit_np & ( &* cma$t_integer BY REF & ) !  ! Create a new stack ! ) EXTERNAL SUB cma$stack_create_np & ( &, cma$t_stack_np BY REF, &' cma$t_attr BY REF & ) !  ! Delete a stack ! ) EXTERNAL SUB cma$stack_delete_np & ( &+ cma$t_stack_np BY REF &  ) !  ! CMA Debug entry point !  EXTERNAL SUB cma$debug !  ! Fetch the fp ! 7 EXTERNAL cma$t_address FUNCTION cma$exc_fetch_fp ! ! Push an exception context ! & EXTERNAL SUB cma$exc_push_ctx & ( &* cma$t_address BY REF & )% EXTERNAL SUB cma$exc_pop_ctx & ( &* cma$t_address BY REF & )# EXTERNAL SUB cma$exc_raise & ( &* cma$t_address BY REF & )* EXTERNAL SUB cma$exc_raise_status & ( &* cma$t_integer BY REF & )$ EXTERNAL SUB cma$exc_report & ( &* cma$t_address BY REF & )6 EXTERNAL cma$t_integer FUNCTION cma$exc_handler4 EXTERNAL cma$t_integer FUNCTION cma$sigwait & ( &* cma$t_address BY REF & )O ! ************************************************************************* ! H ! The following are the portable CMA High-Level Library definitions ! O ! ************************************************************************* ! ' ! Operations on attributes objects !   ! M ! An attributes object is created to specify the attributes of other CMA$ ! objects that will be created. ! ) EXTERNAL SUB cma$lib_attr_create & ( &, cma$lib_t_attr BY REF, &+ cma$lib_t_attr BY REF & ) ! G ! An attributes object can be deleted when it is no longer needed. ! ) EXTERNAL SUB cma$lib_attr_delete & ( &+ cma$lib_t_attr BY REF & ) !  ! Operations on queues !  * EXTERNAL SUB cma$lib_queue_create & ( &- cma$lib_t_queue BY REF, &+ cma$lib_t_attr BY REF & )* EXTERNAL SUB cma$lib_queue_delete & ( &, cma$lib_t_queue BY REF & )+ EXTERNAL SUB cma$lib_queue_dequeue & ( &- cma$lib_t_queue BY REF, &* cma$t_address BY REF & )+ EXTERNAL SUB cma$lib_queue_enqueue & ( &- cma$lib_t_queue BY REF, &, cma$t_address BY VALUE & )F EXTERNAL cma$t_boolean FUNCTION cma$lib_queue_try_enqueue_int & ( &- cma$lib_t_queue BY REF, &, cma$t_address BY VALUE & )+ EXTERNAL SUB cma$lib_queue_requeue & ( &- cma$lib_t_queue BY REF, &, cma$t_address BY VALUE & )B EXTERNAL cma$t_boolean FUNCTION cma$lib_queue_try_dequeue &  ( &- cma$lib_t_queue BY REF, &* cma$t_address BY REF & )B EXTERNAL cma$t_boolean FUNCTION cma$lib_queue_try_enqueue & ( &- cma$lib_t_queue BY REF, &, cma$t_address BY VALUE & )B EXTERNAL cma$t_boolean FUNCTION cma$lib_queue_try_requeue & ( &- cma$lib_t_queue BY REF, &, cma$t_address BY VALUE & ) ! + ! Set or obtain the default queue size ! 0 EXTERNAL SUB cma$lib_attr_get_queuesize & ( &, cma$lib_t_attr BY REF, &* cma$t_natural BY REF & )0 EXTERNAL SUB cma$lib_attr_set_queuesize & ( &, cma$lib_t_attr BY REF, &, cma$t_natural BY VALUE & )wwc ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.38 ! - ! FILE: COBMSG.MSG EDIT: HR 04-NOV-2000 !  !  ! 3 ! COPYRIGHT 2000 COMPAQ COMPUTER CORPORATION ! ? ! COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. ! K ! CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ REQUIREDO ! FOR POSSESSION, USE OR COPYING. CONSISTENT WITH FAR 12.211 AND 12.212,K ! COMMERCIAL COMPUTER SOFTWARE, COMPUTER SOFTWARE DOCUMENTATION, ANDP ! TECHNICAL DATA FOR COMMERCIAL ITEMS ARE LICENSED TO THE U.S. GOVERNMENT4 ! UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. !  !  !  !  ! EDIT HISTORY:3 ! X-12 HR HOWARD RUTIEZER 04-NOV-2000; ! ADD RESDETCON, OVFDETCON, UNDDETCON. T ! FROM EDIT HISTORY OF COB_MSG.SRC, ABOUT NOV-1999 - SZYMANSKI. & ! BRANDING CHANGES. ! 0 ! X-11 LNG LOUIS GROSS 21-JAN-1998( ! ADDED MESSAGES FOR DIGITAL COBOL ! ) ! X-10 LNG LOUIS GROSS 29-JUN-1995 ! % ! ADDED MESSAGES FOR DEC COBOL.- ! X-9 CKJ CATHY KIMMEL JOLY 14-SEP-1994 ! $ ! ADDED MESSAGE FOR DEC COBOL. ! - ! X-8 CKJ CATHY KIMMEL JOLY 11-JUL-1994 ! % ! ADDED MESSAGES FOR DEC COBOL. ! - ! X-7 CKJ CATHY KIMMEL JOLY 03-MAR-1994 ! $ ! ADDED MESSAGE FOR DEC COBOL. ! - ! X-6 CKJ CATHY KIMMEL JOLY 28-JAN-1994 ! + ! CHANGED MESSAGE TEXT FOR DEC COBOL. ! - ! X-5 CKJ CATHY KIMMEL JOLY 15-DEC-1993 ! - ! ADD MORE ISAM MESSAGES FOR DEC COBOL. ! - ! X-4 CKJ CATHY KIMMEL JOLY 10-NOV-1993 ! ) ! ADD NOISAM MESSAGE FOR DEC COBOL. !  ! $ ! X-3 KC KEN COWAN 1-APR-1993 ! = ! MERGE DEC$COBMSG.MSG INTO COBMSG.MSG. TRANSLATED VAX8 ! COBOL PROGRAMS AND NATIVE DEC COBOL PROGRAMS NOW; ! SHARE THE SAME MESSAGE SOURCE FILE, THOUGH THEY USE% ! SOME DIFFERENT MESSAGE CODES. !  ! - ! X-2 RAB RICHARD A. BISHOP 19-MAY-19927 ! MERGE ANOTHER CHANGE (RANDOMBOUNDS) FROM BLADE. !  ! OLD AUDIT TRAIL.... ! - ! X-3 RAB RICHARD A. BISHOP 29-JAN-19926 ! 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 ; ! FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK. ! F ! =============================================================== ! Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM COBMSG.MDL( ! VERSION 1-019. SBL 22-APR-1981B ! 2-002 - USE COB$ FACILITY FOR COB$_NORMAL. SBL 27-APR-1981P ! 2-003 - COPIED CHANGES MADE TO COBMSG.MDL TO THIS MSG FILE. THE MESSAGESJ ! ADDED INCLUDE COB$_LSTHNDUSE, COB$_LSTHNDLDB, AND COB$_EXPDBOVER. ! LB 7-MAY-81.4 ! 2-004 - ADDED COB$_KEYNOTMAT. PDG 24-JUL-81.* ! 2-005 - ADDED .TITLE PDG 26-JUL-81.F ! 2-006 - ADDED COB$_UNLUNOFIL AND COB$_RECNOTLOC. PDG 7-AUG-81.M ! 2-007 - UPDATED COPYRIGHT DATE AND FIXE D SPELLING ERROR. LB 9-AUG-81.3 ! 2-008 - ADDED COB$_UNLNO_CUR. LB 29-OCT-81.L ! 2-009 - CHANGED COB$_GOTNO_ALT TO BE COB$_GOTO_ALT. THIS HAD BEEN INB ! ERROR IN THIS FILE AS WELL AS IN COBERROR. LB 1-APR-82.; ! 2-010 - CHANGE TITLE TO COB$MSGDEF. SBL 28-AUG-1982H ! 2-011 - ADDED COB$_ERRDURPOS FOR COB$POS_ERASE AND COB$_REAMP_D_R- ! FOR COB$IOEXCEPTION. LGB 6-SEP-83: ! ADDED COB$_INVDEFVAL FOR COB$ACCEPT LGB 3-OCT-83O ! 2-012 - ADDED NUMEROU S CODES FOR COBOL V4.0 SUPPORT FOR COB$IOEXCEPTION. ! DJM 17-NOV-86Q ! 2-013 - CHANGED MESSAGE AND SEVERITY FOR COB$_INTDIVZER AND COB$_UNDEF_EXPE ! AS THE PROGRAM IS ALLOWED TO CONTINUE WITH THE NEW STANDARD.; ! ALSO - ADD MESSAGE COB$_DIVBYZER. DJM 27-APR-19879 ! 2-014 - REMOVE REFERENCE TO ISAM. DJM 30-DEC-1987; ! 2-015 - ADD MULFILERR FOR COB$MFT. DJM 28-MAR-1988./ ! 2-016 - ADD COB$NOTIMP. MDL 23-OCT-1989K ! 2-017 - ADD CODES FOR COBOL V5 INTRINSIC FUNCTIONS. KC 14-NOV-1991.2 ! 2-018 - ADD RANDOM BOUNDS. KC 24-JAN-1992. !  ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! COB$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. !  !  ! MACRO-32 PROGRAMMING: !  ! THE MACRO CALL: !  ! $COBDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - !  ! > ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES???. DECLARE LONG CONSTANT COB$_FACILITY = 251 DECLARE LONG CONSTANT COB$_NORMAL = 1671169( ! COBOL V4 SUPPORT, NEXT 2 MESSAGES4 DECLARE LONG CON STANT COB$_READUPKEY = 16711774 DECLARE LONG CONSTANT COB$_RECNOTSIZ = 16711853 DECLARE LONG CONSTANT COB$_GOTO_ALT = 16712364 DECLARE LONG CONSTANT COB$_RECACTPER = 16712444 DECLARE LONG CONSTANT COB$_NESERRPER = 16712524 DECLARE LONG CONSTANT COB$_TIMOVELON = 16712604 DECLARE LONG CONSTANT COB$_OCCDEPOVE = 16712684 DECLARE LONG CONSTANT COB$_SUBOVELON = 16712764 DECLARE LONG CONSTANT COB$_ERRDURSOR = 16712844 DECLARE LONG CONSTANT COB$_UNEINSCON = 16712921 DECLARE LONG CONSTANT COB$_CALFAI = 16713004 DECLARE LONG CONSTANT COB$_INVLINVAL = 16713081 ! ***** NO_USEPRO MUST BE THE FIRST ERROR' ! ***** MESSAGE ASSOCIATED WITH/ ! ***** COB$IOEXCEPTION. IT IS USED AS2 ! ***** THE BASE OF AN ENCODING ALGORITHM. ! 4 DECLARE LONG CONSTANT COB$_NO_USEPRO = 16713164 DECLARE LONG CONSTANT COB$_ERRON_FIL = 16713244 DECLARE LONG CONSTANT COB$_OPTMISOPE = 16713324 DECLARE LONG CON STANT COB$_FILALRLOC = 16713404 DECLARE LONG CONSTANT COB$_FILALROPE = 16713484 DECLARE LONG CONSTANT COB$_FILCLOLOC = 16713563 DECLARE LONG CONSTANT COB$_NO_SPACE = 16713644 DECLARE LONG CONSTANT COB$_FILNOTFOU = 16713724 DECLARE LONG CONSTANT COB$_OPTMISCLO = 16713804 DECLARE LONG CONSTANT COB$_FILALRCLO = 16713884 DECLARE LONG CONSTANT COB$_NO_NEXLOG = 16713964 DECLARE LONG CONSTANT COB$_OPTMISREA = 16714044 DECLARE LONG CONSTANT COB$_NO_NEXVAL = 16714124 DECLARE LONG CONSTANT COB$_RECLOCREA = 16714204 DECLARE LONG CONSTANT COB$_RECLOC_OK = 16714284 DECLARE LONG CONSTANT COB$_REAUNOFIL = 16714364 DECLARE LONG CONSTANT COB$_REAINCOPE = 16714444 DECLARE LONG CONSTANT COB$_WRIBEYBOU = 16714524 DECLARE LONG CONSTANT COB$_WRIUNOFIL = 16714604 DECLARE LONG CONSTANT COB$_WRIINCOPE = 16714684 DECLARE LONG CONSTANT COB$_REWNO_R_S = 16714764 DECLARE LONG CONSTANT COB$_REWUNOFIL = 16714844 DE CLARE LONG CONSTANT COB$_REWINCOPE = 16714924 DECLARE LONG CONSTANT COB$_RECNOTEXI = 16715004 DECLARE LONG CONSTANT COB$_OPTMISSTA = 16715084 DECLARE LONG CONSTANT COB$_RECLOCSTA = 16715164 DECLARE LONG CONSTANT COB$_STAUNOFIL = 16715244 DECLARE LONG CONSTANT COB$_STAINCOPE = 16715324 DECLARE LONG CONSTANT COB$_RECLOCWRI = 16715404 DECLARE LONG CONSTANT COB$_RECLOCDEL = 16715484 DECLARE LONG CONSTANT COB$_DELNO_R_S = 16715564 DECLARE LONG CONSTANT COB$_DELUNOFIL = 16715644 DECLARE LONG CONSTANT COB$_DELINCOPE = 16715724 DECLARE LONG CONSTANT COB$_RECLOCREW = 16715804 DECLARE LONG CONSTANT COB$_WRIDUPKEY = 16715884 DECLARE LONG CONSTANT COB$_WRICREDUP = 16715964 DECLARE LONG CONSTANT COB$_WRINOTASC = 16716044 DECLARE LONG CONSTANT COB$_WRIDUPALT = 16716124 DECLARE LONG CONSTANT COB$_REWCREDUP = 16716204 DECLARE LONG CONSTANT COB$_PRIKEYCHA = 16716284 DECLARE LONG CONSTANT COB$_REWDISDUP = 167 16364 DECLARE LONG CONSTANT COB$_WRIDISDUP = 16716444 DECLARE LONG CONSTANT COB$_REASMAMIN = 16716524 DECLARE LONG CONSTANT COB$_EOFON_ACC = 16716604 DECLARE LONG CONSTANT COB$_ERRDURACC = 16716684 DECLARE LONG CONSTANT COB$_DISMORMAX = 16716764 DECLARE LONG CONSTANT COB$_INTEXPOVE = 16716844 DECLARE LONG CONSTANT COB$_INTEXPUND = 16716924 DECLARE LONG CONSTANT COB$_INTRESOPE = 1671700T DECLARE LONG CONSTANT COB$_NO_MES_00 = 1671708 ! PLACE HOLDE R. WAS INTDIVZER4 DECLARE LONG CONSTANT COB$_INVDECDIG = 1671716T DECLARE LONG CONSTANT COB$_NO_MES_01 = 1671724 ! PLACE HOLDER. WAS UNDEF_EXP4 DECLARE LONG CONSTANT COB$_WRISMAMIN = 16717324 DECLARE LONG CONSTANT COB$_REWSMAMIN = 16717404 DECLARE LONG CONSTANT COB$_NAMNOTLIN = 16717484 DECLARE LONG CONSTANT COB$_INVCHANAM = 16717564 DECLARE LONG CONSTANT COB$_ORGNOTMAT = 16717642 DECLARE LONG CONSTANT COB$_CANFAIL = 16717721 DECLARE LONG CONSTAN T COB$_INVARG = 16717804 DECLARE LONG CONSTANT COB$_FAIGET_VM = 16717884 DECLARE LONG CONSTANT COB$_FAIFREEVM = 16717964 DECLARE LONG CONSTANT COB$_ERRDURDIS = 16718043 DECLARE LONG CONSTANT COB$_USE_EXIT = 16718124 DECLARE LONG CONSTANT COB$_RECACTUSE = 16718204 DECLARE LONG CONSTANT COB$_FATINTERR = 16718284 DECLARE LONG CONSTANT COB$_FAIGET_EF = 16718364 DECLARE LONG CONSTANT COB$_SETEXTFAI = 16718444 DECLARE LONG CONSTANT COB$_INVDECDAT = 167 18524 DECLARE LONG CONSTANT COB$_LSTHNDUSE = 16718604 DECLARE LONG CONSTANT COB$_LSTHNDLDB = 16718684 DECLARE LONG CONSTANT COB$_EXPDBOVER = 16718764 DECLARE LONG CONSTANT COB$_KEYNOTMAT = 16718844 DECLARE LONG CONSTANT COB$_UNLUNOFIL = 16718924 DECLARE LONG CONSTANT COB$_RECNOTLOC = 16719004 DECLARE LONG CONSTANT COB$_UNLNO_CUR = 16719084 DECLARE LONG CONSTANT COB$_REAMP_D_R = 16719164 DECLARE LONG CONSTANT COB$_ERRDURPOS = 16719244 DECLARE LONG CONSTANT COB$_INVDEFVAL = 1671932) ! COBOL V4 SUPPORT, NEXT 10 MESSAGES4 DECLARE LONG CONSTANT COB$_REARECTOB = 16719404 DECLARE LONG CONSTANT COB$_WRIRECTOB = 16719484 DECLARE LONG CONSTANT COB$_DEVNOTAPL = 16719564 DECLARE LONG CONSTANT COB$_INVRECSIZ = 16719644 DECLARE LONG CONSTANT COB$_RECSIZEXC = 16719724 DECLARE LONG CONSTANT COB$_INVRECTYP = 16719804 DECLARE LONG CONSTANT COB$_INVBLKFAC = 16719884 DECLARE LONG CONSTANT COB$_CONCODSET = 16719964 DECLARE LONG CONSTANT COB$_COLSEQKEY = 16720044 DECLARE LONG CONSTANT COB$_CONPADCHR = 1672012 ! EDIT 2-0134 DECLARE LONG CONSTANT COB$_MULFILERR = 1672020 ! EDIT 2-0161 DECLARE LONG CONSTANT COB$_NOTIMP = 1672028$ ! EDIT 2-017, COBOL V5.0 SUPPORT8 DECLARE LONG CONSTANT COB$_INTDATEBOUNDS = 16720367 DECLARE LONG CONSTANT COB$_INTDAYBOUNDS = 16720447 DECLARE LONG CONSTANT COB$_DAYINTBOUNDS = 16720528 DECLARE LONG CONSTANT COB$_D ATEINTBOUNDS = 16720605 DECLARE LONG CONSTANT COB$_FACTBOUNDS = 16720687 DECLARE LONG CONSTANT COB$_NUMVALARGINV = 16720767 DECLARE LONG CONSTANT COB$_LOWERLENZERO = 16720847 DECLARE LONG CONSTANT COB$_UPPERLENZERO = 16720929 DECLARE LONG CONSTANT COB$_REVERSELENZERO = 16721008 DECLARE LONG CONSTANT COB$_ANNUITYBOUNDS = 16721085 DECLARE LONG CONSTANT COB$_CHARBOUNDS = 16721164 DECLARE LONG CONSTANT COB$_MODBOUNDS = 16721248 DECLARE LONG CONST ANT COB$_PRESVALBOUNDS = 16721324 DECLARE LONG CONSTANT COB$_REMBOUNDS = 16721407 DECLARE LONG CONSTANT COB$_RANDOMBOUNDS = 16721484 DECLARE LONG CONSTANT COB$_INTDIVZER = 16791704 DECLARE LONG CONSTANT COB$_DIVBY_ZER = 16791784 DECLARE LONG CONSTANT COB$_UNDEF_EXP = 1679186 !  ! F ! THIS FILE IS AUTOMATICALLY GENERATED. DO NOT EDIT IT BY HAND.H ! INSTEAD CHANGE COB_MSG.SRC AND RERUN THE MESSAGE CONVERT UTILITY ! > ! NOTE: THIS FILE GE TS CHECKED INTO [STARLET] FACILITY, ! IT DOES NOT GO INTO [DEC$COBRTL]. !  !  ! ( ! VAX COBOL USES 0-499, 1000 ONWARD/ DECLARE LONG CONSTANT COB$_INFO = 16751712 DECLARE LONG CONSTANT COB$_VERSION = 16751794 DECLARE LONG CONSTANT COB$_BUG_CHECK = 16751882 DECLARE LONG CONSTANT COB$_INVDATE = 16751964 DECLARE LONG CONSTANT COB$_NOTCOBSPE = 16752044 DECLARE LONG CONSTANT COB$_INVARGCOB = 16752122 DECLARE LONG CONSTANT COB$_SUCCESS = 16752177 DECLARE LONG CONSTANT COB$_DUPLICATE_OK = 16752277 DECLARE LONG CONSTANT COB$_RECORD_SHORT = 16752356 DECLARE LONG CONSTANT COB$_RECORD_LONG = 16752442 DECLARE LONG CONSTANT COB$_CREATED = 16752513 DECLARE LONG CONSTANT COB$_NOT_REEL = 16752597 DECLARE LONG CONSTANT COB$_EOF_DETECTED = 16752687 DECLARE LONG CONSTANT COB$_EOF_OPTIONAL = 16752769 DECLARE LONG CONSTANT COB$_ALREADY_AT_EOF = 16752849 DECLARE LONG CONSTANT COB$_READ_TOO_ LARGE = 16752926 DECLARE LONG CONSTANT COB$_KEY_CHANGED = 16753008 DECLARE LONG CONSTANT COB$_DUPLICATE_KEY = 1675308; DECLARE LONG CONSTANT COB$_RECORD_NOT_FOUND = 16753168 DECLARE LONG CONSTANT COB$_KEY_TOO_LARGE = 1675324: DECLARE LONG CONSTANT COB$_PERMANENT_ERROR = 16753323 DECLARE LONG CONSTANT COB$_BOUNDARY = 16753409 DECLARE LONG CONSTANT COB$_FILE_NOT_FOUND = 1675348> DECLARE LONG CONSTANT COB$_IO_NOT_MASS_STORAGE = 1675356; DECLARE LO NG CONSTANT COB$_NOT_MASS_STORAGE = 16753647 DECLARE LONG CONSTANT COB$_CLOSE_LOCKED = 16753726 DECLARE LONG CONSTANT COB$_FILE_ATTRIB = 16753807 DECLARE LONG CONSTANT COB$_ALREADY_OPEN = 16753883 DECLARE LONG CONSTANT COB$_NOT_OPEN = 16753965 DECLARE LONG CONSTANT COB$_NO_CURRENT = 16754047 DECLARE LONG CONSTANT COB$_REWRITE_SIZE = 16754125 DECLARE LONG CONSTANT COB$_WRITE_SIZE = 16754209 DECLARE LONG CONSTANT COB$_NO_NEXT_RECORD = 16754284 DECLARE LONG CONSTANT COB$_NOT_INPUT = 16754365 DECLARE LONG CONSTANT COB$_NOT_OUTPUT = 16754441 DECLARE LONG CONSTANT COB$_NOT_IO = 16754524 DECLARE LONG CONSTANT COB$_LOCKED_OK = 16754606 DECLARE LONG CONSTANT COB$_FILE_LOCKED = 16754688 DECLARE LONG CONSTANT COB$_LOCKED_FAILED = 1675476; DECLARE LONG CONSTANT COB$_DEVICE_FULL_OPEN = 16754846 DECLARE LONG CONSTANT COB$_CLOSE_ERROR = 1675492M ! NOTIMP SHARED WITH VAX COBOL MESSAGE S IN COBMSG.MSG2 DECLARE LONG CONSTANT COB$_FAILURE = 16755008 DECLARE LONG CONSTANT COB$_END_OF_VOLUME = 1675508< DECLARE LONG CONSTANT COB$_NOT_END_OF_VOLUME = 16755165 DECLARE LONG CONSTANT COB$_NO_LOCKING = 16755246 DECLARE LONG CONSTANT COB$_INVALID_KEY = 16755326 DECLARE LONG CONSTANT COB$_END_OF_PAGE = 1675540; DECLARE LONG CONSTANT COB$_CONVERSION_ERROR = 16755485 DECLARE LONG CONSTANT COB$_SCR_NORMAL = 16755538 DECLARE LONG CONSTANT CO B$_SCR_BUG_CHECK = 16755644 DECLARE LONG CONSTANT COB$_SCR_ERROR = 16755702 DECLARE LONG CONSTANT COB$_SCR_EOF = 16755795 DECLARE LONG CONSTANT COB$_SCR_CVTERR = 16755866 DECLARE LONG CONSTANT COB$_SCR_CVT_OFW = 16755944 DECLARE LONG CONSTANT COB$_SCR_NOTTY = 16756025 DECLARE LONG CONSTANT COB$_SCR_INVKEY = 16756105 DECLARE LONG CONSTANT COB$_SCR_INVDAT = 16756183 DECLARE LONG CONSTANT COB$_SCR_FULL = 16756267 DECLARE LONG CONSTANT COB$_SCR_NOT _FULL = 16756347 DECLARE LONG CONSTANT COB$_SCR_REQUIRED = 16756426 DECLARE LONG CONSTANT COB$_SCR_INVLINE = 16756505 DECLARE LONG CONSTANT COB$_SCR_INVCOL = 16756585 DECLARE LONG CONSTANT COB$_SCR_HEIGHT = 16756674 DECLARE LONG CONSTANT COB$_SCR_WIDTH = 16756756 DECLARE LONG CONSTANT COB$_SCR_NOCOLOR = 1675683M ! DIVBY_ZER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! UNDEF_EXP SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! INVDECDAT SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! GOTO_ALT SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! RECACTPER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! NESERRPER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! TIMOVELON SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! RECACTUSE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! SUBOVELON  SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! INTDATEBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! INTDAYBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! DAYINTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! DATEINTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! FACTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! NUMVALARGINV SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! LOWERLENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! UPPERLENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! REVERSELENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! ANNUITYBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! CHARBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! MODBOUNDS SHARED WITH VAX COBOL MESSAGES IN COB MSG.MSGM ! PRESVALBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! REMBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG4 DECLARE LONG CONSTANT COB$_INSVIRMEM = 1675692: DECLARE LONG CONSTANT COB$_STRING_OVERFLOW = 16757008 DECLARE LONG CONSTANT COB$_INVALID_FNAME = 16757086 DECLARE LONG CONSTANT COB$_SWITCH_FAIL = 16757169 DECLARE LONG CONSTANT COB$_INVALID_SWITCH = 16757245 DECLARE LONG CONSTANT COB$_NOT_LOCKED = 16 757329 DECLARE LONG CONSTANT COB$_NOT_LOCKED_REL = 16757407 DECLARE LONG CONSTANT COB$_SIZE_CHANGED = 16757486 DECLARE LONG CONSTANT COB$_CALL_FAILED = 16757568 DECLARE LONG CONSTANT COB$_CANCEL_FAILED = 16757649 DECLARE LONG CONSTANT COB$_INVALID_RECORD = 16757727 DECLARE LONG CONSTANT COB$_USE_EXECUTED = 1675780; DECLARE LONG CONSTANT COB$_FILE_NOT_PRESENT = 16757888 DECLARE LONG CONSTANT COB$_UNLOCK_FAILED = 1675796: DECLARE LONG CONSTANT COB$_RECORD_KEY_ZERO = 16758048 DECLARE LONG CONSTANT COB$_DISPLAY_ERROR = 16758127 DECLARE LONG CONSTANT COB$_ACCEPT_ERROR = 16758205 DECLARE LONG CONSTANT COB$_OPEN_ERROR = 16758285 DECLARE LONG CONSTANT COB$_READ_ERROR = 16758366 DECLARE LONG CONSTANT COB$_WRITE_ERROR = 16758448 DECLARE LONG CONSTANT COB$_REWRITE_ERROR = 16758527 DECLARE LONG CONSTANT COB$_DELETE_ERROR = 16758606 DECLARE LONG CONSTANT COB$_START_ERROR = 16758687 DECLARE LONG CONSTANT COB$_UNLOCK_ERROR = 16758765 DECLARE LONG CONSTANT COB$_SORT_ERROR = 1675884: DECLARE LONG CONSTANT COB$_KEY_MATCH_ERROR = 1675892: DECLARE LONG CONSTANT COB$_KEY_COUNT_ERROR = 1675900: DECLARE LONG CONSTANT COB$_INVALID_FOOTING = 16759084 DECLARE LONG CONSTANT COB$_PAGE_SIZE = 1675916; DECLARE LONG CONSTANT COB$_ACCEPT_CVT_ERROR = 16759243 DECLARE LONG CONSTANT COB$_OPEN_MFT = 16759326 DECLARE LONG CONSTANT COB$_DEVICE_FULL = 1675940: DECLARE LONG CONSTANT COB$_RECORD_EXCEEDED = 1675948: DECLARE LONG CONSTANT COB$_DEVICE_FULL_KEY = 16759564 DECLARE LONG CONSTANT COB$_SUBSCRIPT = 16759647 DECLARE LONG CONSTANT COB$_MFT_POSITION = 16759721 DECLARE LONG CONSTANT COB$_NOISAM = 1675980; DECLARE LONG CONSTANT COB$_ISAM_KEY_OVERLAP = 16759887 DECLARE LONG CONSTANT COB$_ISAM_BADFILE = 1675996M ! RANDOMBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG4 DECLARE LONG CONSTAN T COB$_ORDLENONE = 16760042 DECLARE LONG CONSTANT COB$_INVTERM = 16760124 DECLARE LONG CONSTANT COB$_INVTERMDB = 16760204 DECLARE LONG CONSTANT COB$_INVARGMTH = 16760286 DECLARE LONG CONSTANT COB$_ISAM_BADKEY = 16760362 DECLARE LONG CONSTANT COB$_NOEXTFH = 1676044? DECLARE LONG CONSTANT COB$_ENCINA_UNKNOWN_ERROR = 16760523 DECLARE LONG CONSTANT COB$_FCNTLERR = 16760602 DECLARE LONG CONSTANT COB$_LOCKERR = 16760682 DECLARE LONG CONSTANT COB$_NOMOR EL = 16760766 DECLARE LONG CONSTANT COB$_ISAM_INVKEY = 16760847 DECLARE LONG CONSTANT COB$_INVALID_TAPE = 16760925 DECLARE LONG CONSTANT COB$_TAPE_ERROR = 16761007 DECLARE LONG CONSTANT COB$_TAPE_SUPPORT = 16761087 DECLARE LONG CONSTANT COB$_CORRECT_TAPE = 16761154 DECLARE LONG CONSTANT COB$_NEXT_TAPE = 16761236 DECLARE LONG CONSTANT COB$_TAPE_PROMPT = 16761318 DECLARE LONG CONSTANT COB$_TAPE_SEQUENCE = 16761386 DECLARE LONG CONSTANT COB$_END_O F_TAPE = 16761485 DECLARE LONG CONSTANT COB$_TAPE_ABORT = 16761566 DECLARE LONG CONSTANT COB$_TAPE_DEVICE = 16761635 DECLARE LONG CONSTANT COB$_TAPE_ENTER = 16761716 DECLARE LONG CONSTANT COB$_TAPE_IN_USE = 16761806 DECLARE LONG CONSTANT COB$_TAPE_WRLOCK = 16761887 DECLARE LONG CONSTANT COB$_TAPE_OFFLINE = 16761942 DECLARE LONG CONSTANT COB$_INVLOCK = 16762047 DECLARE LONG CONSTANT COB$_NOALPHAUPROG = 16762106 DECLARE LONG CONSTANT COB$_BUFTOOS MALL = 16762187 DECLARE LONG CONSTANT COB$_COM_BUGCHECK = 16762262 DECLARE LONG CONSTANT COB$_ILLPICT = 16762342 DECLARE LONG CONSTANT COB$_BIGAPIC = 16762422 DECLARE LONG CONSTANT COB$_BIGNPIC = 16762503 DECLARE LONG CONSTANT COB$_BIGANPIC = 16762584 DECLARE LONG CONSTANT COB$_BIGANEPIC = 16762663 DECLARE LONG CONSTANT COB$_BIGNEPIC = 16762744 DECLARE LONG CONSTANT COB$_PICLENEXT = 16762822 DECLARE LONG CONSTANT COB$_PICLONG = 16762904 DE CLARE LONG CONSTANT COB$_PICREPEAT = 16762983 DECLARE LONG CONSTANT COB$_PIC1ONLY = 16763063 DECLARE LONG CONSTANT COB$_PICPAREN = 16763143 DECLARE LONG CONSTANT COB$_RT_FLOAT = 16763224 DECLARE LONG CONSTANT COB$_PICMUTEX1 = 16763304 DECLARE LONG CONSTANT COB$_PICMUTEX2 = 16763384 DECLARE LONG CONSTANT COB$_PICMUTEX3 = 16763464 DECLARE LONG CONSTANT COB$_PICMUTEX4 = 16763543 DECLARE LONG CONSTANT COB$_ARGLIMIT = 1676362M ! INTDIVZER  SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! INTEXPOVE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! INTEXPUND SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSGM ! INTRESOPE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG4 DECLARE LONG CONSTANT COB$_BADVERS_S = 16763724 DECLARE LONG CONSTANT COB$_BADVERS_I = 1676379; DECLARE LONG CONSTANT COB$_FILE_LOCKED_PERM = 16763885 DECLARE LONG CONSTANT COB$_INVFUNCARG = 16763964 DECLARE LONG CONSTANT COB$_RESDETCON = 16764024 DECLARE LONG CONSTANT COB$_OVFDETCON = 16764104 DECLARE LONG CONSTANT COB$_UNDDETCON = 1676418ww"k ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! Convert (CONV) Routines !  ! ) ! CONV$CONVERT - Initiate conversion ! > ! status = CONV$CONVERT ([status_block_address] [,flags]) ! L ! status_block_address - Array of longwords into which will be writtenJ ! statistics about the conversion. The firstD ! element contains the number of following elements> ! flags - Flags to control the conversion ! , EXTERNAL LONG FUNCTION CONV$CONVERT & ( &/ OPTIONAL LONG DIM() BY REF, &! LONG BY REF & ) ! 1 ! CONV$PASS_FILES - Specify conversion files ! @ ! s tatus = CONV$PASS_FILES (input_filespec, output_filespec: ! [,fdl_filespec] [,exception_filespec] ! [,flags]) ! 1 ! input_filespec - File to be converted- ! output_filespec - Destination file? ! fdl_filespec - File containing FDL for conversion> ! exception_filespec - File to contain exception records9 ! flags - Flags controlling conversion/ EXTERNAL LONG FUNCTION CONV$PASS_FILES &  ( &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! 5 ! CONV$PASS_OPTIONS - Specify processing options ! E ! status = CONV$PASS_OPTIONS ([parameter_list_address] [,flags]) ! A ! parameter_list_address - Array specifying convert options= ! flags - Flags controlling conversion ! 1 EXTERNAL LONG FUNCTION CONV$PASS_OPTIONS & ( &/ OPTIONAL LONG DIM() BY REF, &! LONG BY REF & ) ! % ! CONV$RECLAIM - CONVERT/RECLAIM ! ? ! status - CONV$RECLAIM (input_filespec [,statistics_blk]) ! - ! input_filespec - File to be convertedN ! statistics_blk - Array to receive statistics; first longword specifies( ! number of statistics ! , EXTERNAL LONG FUNCTION CONV$RECLAIM & ( &% STRING BY DESC, &. OPTIONAL LONG DIM() BY REF & )wws ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >   %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  7 DECLARE LONG CONSTANT CONV$M_SIGNAL = x'00000001'; DECLARE LONG CONSTANT CONV$M_FDL_STRING = x'00000002'. DECLARE LONG CONSTANT CONV$S_CONVDEF = 2 record CONVDEF variant  case" WORD CONV$W_CONVDEF case( group CONV$R_CONVDEF_BITSn BYTE SIGNAL_bits ! COMMENT ADDED BY SDL - SIGNAL_bits contains bits SIGNAL through FILL_0_, end group CONV$R_CONVDEF_BITS end variant end record CONVDEF 4 DECLARE LONG CONSTANT CONV$K_OPTIONS_COUNT = 0- DECLARE LONG CONSTANT CONV$K_CREATE = 1, DECLARE LONG CONSTANT CONV$K_SHARE = 2+ DECLARE LONG CONSTANT CONV$K_FAST = 3, DECLARE LONG CONSTANT CONV$K_MERGE = 4- DECLARE LONG CONSTANT CONV$K_APPEND = 5+ DECLARE LONG CONSTANT CONV$K_SORT = 61 DECLARE LONG CONSTANT CONV$K_WORK_FILES = 7* DECLARE LONG CONSTANT CONV$K_KEY = 8* DECLARE LONG CONSTANT CONV$K_PAD = 95 DECLARE LONG CONSTANT CONV$K_PAD_CHARACTER = 100 DECLARE LONG CONSTANT CONV$K_TRUNCATE = 11, DECLARE LONG CONSTANT CONV$K_EXIT = 125 DECLARE LONG CONSTANT CONV$K_FIXED_CONTROL = 134 DECLAR E LONG CONSTANT CONV$K_FILL_BUCKETS = 142 DECLARE LONG CONSTANT CONV$K_READ_CHECK = 153 DECLARE LONG CONSTANT CONV$K_WRITE_CHECK = 16+ DECLARE LONG CONSTANT CONV$K_FDL = 171 DECLARE LONG CONSTANT CONV$K_EXCEPTION = 180 DECLARE LONG CONSTANT CONV$K_PROLOGUE = 197 DECLARE LONG CONSTANT CONV$K_IGNORE_PROLOGUE = 201 DECLARE LONG CONSTANT CONV$K_SECONDARY = 213 DECLARE LONG CONSTANT CONV$K_MAX_OPTIONS = 213 DECLARE LONG CONSTANT CONV$C_MAX_OPTIONS = 21/ DECLARE LONG CONSTANT CONV$S_OPTIONS = 884 DECLARE LONG CONSTANT CONV$S_CONV$OPTIONS = 88 record CONV$OPTIONS" LONG CONV$L_OPTIONS_COUNT LONG CONV$L_CREATE LONG CONV$L_SHARE LONG CONV$L_FAST LONG CONV$L_MERGE LONG CONV$L_APPEND LONG CONV$L_SORT LONG CONV$L_WORK_FILES LONG CONV$L_KEY LONG CONV$L_PAD" LONG CONV$L_PAD_CHARACTER LONG CONV$L_TRUNCATE  LONG CONV$L_EXIT" LONG CONV$L_FIXED_CONTROL! LONG CONV$L_FILL_BUCKETS LONG CONV$L_READ_CHECK LONG CONV$L_WRITE_CHECK LONG CONV$L_FDL LONG CONV$L_EXCEPTION LONG CONV$L_PROLOGUE$ LONG CONV$L_IGNORE_PROLOGUE LONG CONV$L_SECONDARY end record CONV$OPTIONS 7 DECLARE LONG CONSTANT CONV$K_STATISTICS_COUNT = 01 DECLARE LONG CONSTANT CONV$K_FILE_COUNT = 13 DECLARE LONG CONSTANT CONV$K _RECORD_COUNT = 23 DECLARE LONG CONSTANT CONV$K_EXCEPT_COUNT = 32 DECLARE LONG CONSTANT CONV$K_VALID_COUNT = 45 DECLARE LONG CONSTANT CONV$K_MAX_STATISTICS = 45 DECLARE LONG CONSTANT CONV$C_MAX_STATISTICS = 42 DECLARE LONG CONSTANT CONV$S_STATISTICS = 201 DECLARE LONG CONSTANT CONV$K_KEY_NUMBER = 5. DECLARE LONG CONSTANT CONV$K_REC_OUT = 6, DECLARE LONG CONSTANT CONV$K_NODES = 7. DECLARE LONG CONSTANT CONV$K_WRK_ALQ = 8/ DECLARE LONG CON STANT CONV$K_INI_RUNS = 91 DECLARE LONG CONSTANT CONV$K_MRG_ORDER = 102 DECLARE LONG CONSTANT CONV$K_MRG_PASSES = 116 DECLARE LONG CONSTANT CONV$K_SORT_DIO_COUNT = 126 DECLARE LONG CONSTANT CONV$K_SORT_BIO_COUNT = 139 DECLARE LONG CONSTANT CONV$K_SORT_ELAPSED_TIME = 145 DECLARE LONG CONSTANT CONV$K_SORT_CPU_TIME = 165 DECLARE LONG CONSTANT CONV$K_SORT_PF_COUNT = 186 DECLARE LONG CONSTANT CONV$K_LOAD_DIO_COUNT = 196 DECLARE LONG CONSTANT CONV$K _LOAD_BIO_COUNT = 209 DECLARE LONG CONSTANT CONV$K_LOAD_ELAPSED_TIME = 215 DECLARE LONG CONSTANT CONV$K_LOAD_CPU_TIME = 235 DECLARE LONG CONSTANT CONV$K_LOAD_PF_COUNT = 256 DECLARE LONG CONSTANT CONV$K_EXT_STATISTICS = 256 DECLARE LONG CONSTANT CONV$C_EXT_STATISTICS = 257 DECLARE LONG CONSTANT CONV$S_EXT_STATISTICS = 1048 DECLARE LONG CONSTANT CONV$S_CONV$STATISTICS = 104 record CONV$STATISTICS% LONG CONV$L_STATISTICS_COUNT LONG CONV$L_FILE_COUNT! LONG CONV$L_RECORD_COUNT! LONG CONV$L_EXCEPT_COUNT LONG CONV$L_VALID_COUNT LONG CONV$L_KEY_NUMBER LONG CONV$L_REC_OUT LONG CONV$L_NODES LONG CONV$L_WRK_ALQ LONG CONV$L_INI_RUNS LONG CONV$L_MRG_ORDER LONG CONV$L_MRG_PASSES# LONG CONV$L_SORT_DIO_COUNT# LONG CONV$L_SORT_BIO_COUNT0 BASIC$QUADWORD CONV$Q_SORT_ELAPSED_TIME, BASIC$QUADWORD CONV$Q_SOR T_CPU_TIME" LONG CONV$L_SORT_PF_COUNT# LONG CONV$L_LOAD_DIO_COUNT# LONG CONV$L_LOAD_BIO_COUNT0 BASIC$QUADWORD CONV$Q_LOAD_ELAPSED_TIME, BASIC$QUADWORD CONV$Q_LOAD_CPU_TIME" LONG CONV$L_LOAD_PF_COUNT end record CONV$STATISTICS 7 DECLARE LONG CONSTANT RECL$K_STATISTICS_COUNT = 01 DECLARE LONG CONSTANT RECL$K_SCAN_COUNT = 11 DECLARE LONG CONSTANT RECL$K_DATA_COUNT = 22 DECLARE LONG CONSTANT RECL$K_INDEX_COUNT =  32 DECLARE LONG CONSTANT RECL$K_TOTAL_COUNT = 45 DECLARE LONG CONSTANT RECL$K_MAX_STATISTICS = 45 DECLARE LONG CONSTANT RECL$C_MAX_STATISTICS = 42 DECLARE LONG CONSTANT RECL$S_STATISTICS = 207 DECLARE LONG CONSTANT RECL$S_RECL$STATISTICS = 20 record RECL$STATISTICS% LONG RECL$L_STATISTICS_COUNT LONG RECL$L_SCAN_COUNT LONG RECL$L_DATA_COUNT LONG RECL$L_INDEX_COUNT LONG RECL$L_TOTAL_COUNT end record RECL$STATISTICS ww9| ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:59.59 ! O ! *************************************************************************O ! *  *O ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978, 1980, 1982, 1984, * ! * 1991,1992 *O ! * ALL RIGHTS RESERVED. *O ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *O ! * STATES. *O ! * *O ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *O ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *O ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *O ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *O ! * DIGITAL EQUIPMENT CORPORATION. *O ! * *O ! * RESTRICTED RIGHTS LEGEND  USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *O ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *O ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *O ! * *O ! ************************************************************************* !  ! ++ !  ! FACILITY: VAX-11 CONVERT !  ! ENVIRONMENT: ! ! VAX/VMS OPERATING SYSTEM !  ! ABSTRACT:2 ! CONVERT AND CONVERT/RECLAIM ERROR MESSAGES !  ! : ! AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980 !  !  ! MODIFIED BY: ! , ! X-4 BP026 BOB PREMOVICH 29-MAY-1998; ! CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT8 ! WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO: ! FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET ! FACILITY. ! - ! X-3 CW002 CHRIS WHITAKER 26-AUG-1992  ! MERGE IN AMBER CHANGES. ! 0 ! X-2 SBL1003 STEVEN B. LIONEL 13-DEC-1991% ! SET MACRO NAME TO $CONVMSGDEF ! 3 ! X-2 RMM0004 RICHARD M. MARSHALL 9-AUG-19912 ! PORTED TO ALPHA. CORRECTED MORE SPELLING. ! 1 ! V03-005 RAS0318 RON SCHAEFER 27-JUN-1984+ ! FIX SPELLINGS AND TEXT OF MESSAGES. ! 5 ! V03-004 KBT0468 KEITH B. THOMPSON 21-JAN-1983 ! CHANGE THE TEXT OF RSZ ! 5 ! V03-003 KBT0438 KEITH B. THOMPSON 30-DEC-1!982# ! CHANGE THE TEXT OF CREA_ERR ! 5 ! V03-002 KBT0394 KEITH B. THOMPSON 29-OCT-1982< ! CHANGE THE MESSGAE TEXT OF PROERR TO INCLUDE VBN AND( ! MAKE THE SIGNED VALUES UNSIGNED. ! 2 ! V03-001 KBT0039 KEITH THOMPSON 3-APR-1982- ! CHANGE THE EXCEPTION MESSAGES TO INFO ! ! ****3 DECLARE LONG CONSTANT CONVERT$_FACILITY = 178i DECLARE LONG CONSTANT CONV$_CREATEDSTM = 11670267 ! /FAO=1W " DECLARE LONG CONSTANT CONV$_INSVIRMEM = 11670258 ! R DECLARE LONG CONSTANT CONV$_OPENERR = 11670410 ! /FAO=1Z DECLARE LONG CONSTANT CONV$_OPENIN = 11669658 ! /FAO=1\ DECLARE LONG CONSTANT CONV$_OPENOUT = 11669666 ! /FAO=1R DECLARE LONG CONSTANT CONV$_READERR = 11669682 ! /FAO=1S DECLARE LONG CONSTANT CONV$_WRITEERR = 11669714 ! /FAO=1[ DECLARE LONG CONSTANT CONV$_CLOSEIN = 11669586 ! /FAO=1] DECLARE LONG CONSTANT CONV$_CLOSEOUT = 11669594 ! /FAO=1X DECLARE LONG CONSTANT CONV$_BADLOGIC = 11669794 ! N DECLARE LONG CONSTANT CONV$_NOWILD = 11669802 ! ^ DECLARE LONG CONSTANT CONV$_VALERR = 11669994 ! Q DECLARE LONG CONSTANT CO $NV$_CONFQUAL = 11670242 ! - DECLARE LONG CONSTANT CONV$_FAO_MAX = 2/ DECLARE LONG CONSTANT CONV$_NI = 116981870 DECLARE LONG CONSTANT CONV$_PAD = 116981950 DECLARE LONG CONSTANT CONV$_RMS = 116982030 DECLARE LONG CONSTANT CONV$_RTL = 116982110 DECLARE LONG CONSTANT CONV$_RTS = 116982190 DECLARE LONG CONSTANT CONV$_VFC = 116982270 DECLARE LONG CONSTANT CONV$_DUP = 116982350 DECLARE LONG CONSTANT CONV$_KEY = 116982430 % DECLARE LONG CONSTANT CONV$_REX = 116982510 DECLARE LONG CONSTANT CONV$_RSK = 116982590 DECLARE LONG CONSTANT CONV$_RSZ = 116982670 DECLARE LONG CONSTANT CONV$_SEQ = 116982753 DECLARE LONG CONSTANT CONV$_BADBLK = 116982825 DECLARE LONG CONSTANT CONV$_CREA_ERR = 11698290C DECLARE LONG CONSTANT CONV$_DELPRI = 11698298 ! UNUSED IN V45 DECLARE LONG CONSTANT CONV$_EXTN_ERR = 116983065 DECLARE LONG CONSTANT CONV$_FATALEXC = 116983144 DECLARE LONG & CONSTANT CONV$_BADSORT = 116983223 DECLARE LONG CONSTANT CONV$_FILLIM = 116983304 DECLARE LONG CONSTANT CONV$_IDX_LIM = 116983384 DECLARE LONG CONSTANT CONV$_ILL_KEY = 116983466 DECLARE LONG CONSTANT CONV$_ILL_VALUE = 116983546 DECLARE LONG CONSTANT CONV$_INP_FILES = 11698362C DECLARE LONG CONSTANT CONV$_KEYREF = 11698370 ! UNUSED IN V44 DECLARE LONG CONSTANT CONV$_LOADIDX = 116983781 DECLARE LONG CONSTANT CONV$_NARG = 116983862 DECLARE LONG C 'ONSTANT CONV$_NOKEY = 116983943 DECLARE LONG CONSTANT CONV$_NOTIDX = 116984023 DECLARE LONG CONSTANT CONV$_NOTSEQ = 116984102 DECLARE LONG CONSTANT CONV$_ORDER = 116984184 DECLARE LONG CONSTANT CONV$_OPENEXC = 116984263 DECLARE LONG CONSTANT CONV$_PROERR = 116984345 DECLARE LONG CONSTANT CONV$_PROL_WRT = 116984424 DECLARE LONG CONSTANT CONV$_UDF_BKS = 116984504 DECLARE LONG CONSTANT CONV$_UDF_BLK = 116984583 DECLARE LONG CONSTANT CONV$_INVBKT = 116984660 DECLARE LONG CONSTANT CONV$_PLV = 11698474ww)@w ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED *( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN+G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > , %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ! ! CRF$INSRTREF ARGUMENT LIST ! - DECLARE LONG CONSTANT CRF$S_CRFDEF = 24 record CRFDEF> LONG CRFDEF$$_FILL_1 ! ARGUMENT COUNT E LONG CRF$L_IR_CTLTBL - ! CRF CONTROL TABLE ADR ; LONG CRF$L_IR_KEYADR ! KEY ADDRESS G LONG CRF$L_IR_REFADR ! REFERENCE INDICATOR ADR I WORD CRF$W_IR_REFLAG ! REFERENCE INDICATOR FLAGS 9 BYTE CRFDEF$$_FILL_2 ( 1 to 2 ) ! UNUSED D BYTE CRF$B_IR_DEFIND ! DEFINITION INDICATOR 9 BYTE CRFDEF$$_FILL_3 ( 1 to 3 ) ! UNUSED  end record CRFDEF  ! ! ! CRF$INSRTKEY AR .GUMENT LIST ! . DECLARE LONG CONSTANT CRF$S_CRFDEF1 = 20 record CRFDEF1> LONG CRFDEF$$_FILL_4 ! ARGUMENT COUNT E LONG CRF$L_IK_CTLTBL ! CRF CONTROL TABLE ADR > LONG CRF$L_IK_KEYADR ! ADDRESS OF KEY @ LONG CRF$L_IK_VALADR ! ADDRESS OF VALUE ; WORD CRF$W_IK_VALFLG ! VALUE FLAGS 9 BYTE CRFDEF$$_FILL_5 ( 1 to 2 ) ! UNUSED  end record CRFDEF1 /  !  ! CRF$OUT ARGUMENT LIST ! . DECLARE LONG CONSTANT CRF$S_CRFDEF2 = 25 record CRFDEF2> LONG CRFDEF$$_FILL_6 ! ARGUMENT COUNT E LONG CRF$L_OU_CTLTBL ! CRF CONTROL TABLE ADR A LONG CRF$L_OU_LINWID ! OUTPUT LINE WIDTH > BYTE CRF$B_OU_PAG1 ! ? LINES/PAGE 1 9 BYTE CRFDEF$$_FILL_7 ( 1 to 3 ) ! UNUSED H BYTE CRF$B_OU_SUCPAG ! ? LINES/S0UCCESSIVE PAGES 9 BYTE CRFDEF$$_FILL_8 ( 1 to 3 ) ! UNUSED C BYTE CRF$B_OU_PRTIND ! REF PRINT INDICATOR 9 BYTE CRFDEF$$_FILL_9 ( 1 to 3 ) ! UNUSED > BYTE CRF$B_OU_SAVIND ! SAVE INDICATOR  end record CRFDEF2  ! ! CRF CONTROL TABLE OFFSETS ! 6 DECLARE LONG CONSTANT CRF$M_MULDEF = x'00000001'. DECLARE LONG CONSTANT CRF$S_CRFDEF3 = 96 record CRFDEF3B LONG CRF$L_HASHT 1 ! HASH TABLE ADDRESS J LONG CRF$L_LASTKEY ! LAST KEY LOOKED AT ADDRESS $ group CRF$R_KEYTYPE_OVERLAY variant caseD BYTE CRF$B_KEYTYPE ! TYPE OF KEY IN TABLE  case* group CRF$R_KEYTYPE_BITSD ! OBSOLETE FIELD. RETAINED FOR COMPATIBLILTYq BYTE BINARY_bits ! COMMENT ADDED BY SDL - BINARY_bits contains bits BINARY th 2rough FILL_2_. end group CRF$R_KEYTYPE_BITS end variant( end group CRF$R_KEYTYPE_OVERLAY group CRF$R_FILL_0_ variant caseO BYTE CRF$B_FLAGS ! MISC. FLAGS FOR FUTURE EXPANSION case% group CRF$R_FILL_1_' ! Multi-Definersq BYTE MULDEF_bits ! COMMENT ADDED BY SDL - MULDEF_bits contains bits MULDEF through FILL_3_3) end group CRF$R_FILL_1_ end variant end group CRF$R_FILL_0_K WORD CRF$W_ERRSTS ! SECONDARY ERROR STATUS CODE T LONG CRF$L_ENTRIES ! NUMBER OF ENTRIES IN CROSS REFERENCE M LONG CRF$L_DYNMEM ( 1 to 2 ) ! LISTHEAD OF DYNAMIC MEMORY T LONG CRF$L_MAXBLK ! SIZE (IN BYTES) OF BLOCK TO ALLOCATE T LONG CRF$L_MEMEXP ! SIZE (IN PAGES) OF BLOC4K TO ALLOCATE G WORD CRF$W_CTLTABVER ! VERSION OF CONTROL TABLEW BYTE CRF$B_VALTYPE ! SYMBOL VALUE DATA TYPE (Ver 1 and later)[ BYTE CRF$B_REFTYPE ! SYMBOL REFERENCE DATA TYPE (Ver 1 and later)9 LONG CRFDEF$$_FILL_10 ( 1 to 7 ) ! SPARES E LONG CRF$L_ERROR ! ERROR ROUTINE ADDRESS F LONG CRF$L_OUTPUT ! OUTPUT ROUTINE ADDRESS I LONG CRF$L_K1FMTBL ! KEY1 FIELD FORMAT TBL ADR I LONG CRF$L_K2FMTBL ! KEY2 FIELD FORMAT TBL ADR I LONG CRF$L_V1FMTBL ! VAL1 FIELD FORMAT TBL ADR I LONG CRF$L_V2FMTBL ! VAL2 FIELD FORMAT TBL ADR I LONG CRF$L_R1FMTBL ! REF1 FIELD FORMAT TBL ADR I LONG CRF$L_R2FMTBL ! REF2 FIELD FORMAT TBL ADR  end record CRFDEF3 ww6P ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED 7( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN8G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 9 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:59.14 !  !  !  ! VERSION: 'V04-004' !  ! I ! COPYRIGHT 1978-2004 HEWLETT-PACKARD DEVELOPM:ENT COMPANY, L.P. ! " ! RESTRICTED RIGHTS LEGEND ! M ! USE, DUPLICATION OR DISCLOSURE BY THE U.S. GOVERNMENT IS SUBJECT TOL ! RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH (C)(1)(II) OF THE RIGHTSO ! IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE IN DFARS 252.227-7013. ! 2 ! HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P ! 3000 HANOVER STREET ! PALO ALTO, CA 94304 ! U.S.A. ! L ! RIGHTS FOR NON-DOD U.S. GOVERNMENT; DEPARTMENTS AND AGENCIES ARE AS- ! SET FORTH IN FAR 52.227-19(C)(1,2).5 ! UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. !  ! 6 ! RETURN STATUS CODES FOR CROSS REFERENCE PROGRAM !  ! MODIFIED BY: ! 3 ! V04-004 TMS0569 TODD SCHOELLER 27-DEC-2004 ! ADD NOFOOTNOTES. ! 3 ! V04-003 TMS0567 TODD SCHOELLER 6-OCT-2004/ ! ADD MULDEFFMT FOR MULTI-DEFINER SUPPORT ! 3 ! V04-002 TMS0532 TODD SCHOELLER 16-OCT-20035 <! ADD CROPPING FOR CROPPING/FOOTNOTING SUPPORT. ! 3 ! V04-001 TMS0294 TODD SCHOELLER 4-NOV-19941 ! ADD ARGCOUNT FOR ARGUMENT COUNT CHECKING. ! 2 ! V02-002 BLS0156 BENN SCHREIBER 1-MAR-1982 ! REMOVE UNUSED MESSAGES ! 2 ! V02-001 BLS0123 BENN SCHREIBER 19-DEC-1981 ! CHANGE TEXT OF FAOFAIL !  ! ( ! SUCCESS CODES (SEVERITY LEVEL 1) ! 0 DECLARE LONG CONSTANT CREF$_FACILITY = 1012 DECLARE LONG CONSTANT CRF$_SUCCESS = = 66519055 DECLARE LONG CONSTANT CRF$_KEYPRVENTR = 66519135 DECLARE LONG CONSTANT CRF$_KEY1STENTR = 66519215 DECLARE LONG CONSTANT CRF$_REFPRVENTR = 66519292 DECLARE LONG CONSTANT CRF$_UNUSERR = 6651937/ DECLARE LONG CONSTANT CRF$_CROP = 6651945 ! - ! SEVERE ERROR CODES (SEVERITY LEVEL 2) ! 2 DECLARE LONG CONSTANT CRF$_UNUERR1 = 66519862 DECLARE LONG CONSTANT CRF$_UNUERR2 = 66519942 DECLARE LONG CONSTANT CRF$_UNUERR3 = 66520022 > DECLARE LONG CONSTANT CRF$_UNUERR4 = 66520102 DECLARE LONG CONSTANT CRF$_UNUERR5 = 66520182 DECLARE LONG CONSTANT CRF$_UNUERR6 = 66520262 DECLARE LONG CONSTANT CRF$_UNUERR7 = 66520344 DECLARE LONG CONSTANT CRF$_NO_OUTRTN = 66520422 DECLARE LONG CONSTANT CRF$_LINELNG = 66520502 DECLARE LONG CONSTANT CRF$_FAOFAIL = 66520582 DECLARE LONG CONSTANT CRF$_UNUERR8 = 66520662 DECLARE LONG CONSTANT CRF$_BADTYPE = 66520743 DECLARE LONG CONSTANT CRF$_ARGCOUNT = 66520824 DECLARE LONG CONSTANT CRF$_MULDEFFMT = 66520906 DECLARE LONG CONSTANT CRF$_NOFOOTNOTES = 6652098ww@< ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED A( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINBG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > C %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  P ! **************************************************************************P ! P ! Copyright (c) 1993,1994 D P ! by DIGITAL Equipment Corporation, Maynard, Mass. P ! P ! This software is furnished under a license and may be used and copied P ! only in accordance with the terms of such license and with the P ! inclusion of the above copyright notice. This software or any other P ! copies thereof may not be provided or otherwise made avaiElable to any P ! other person. No title to and ownership of the software is hereby P ! transferred. P ! P ! The information in this software is subject to change without notice P ! and should not be construed as a commitment by DIGITAL Equipment P ! Corporation. FP ! P ! DIGITAL assumes no responsibility for the use or reliability of its P ! software on equipment which is not supplied by DIGITAL. P ! P ! ************************************************************************** ! CVT$CONVERT_FLOAT ! , ! Convert floating point data types. ! GK ! The CVT$CONVERT_FLOAT converts floating point data types to other. ! supported floating point data types. ! 1 EXTERNAL LONG FUNCTION cvt$convert_float & ( &! ANY BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION CVT$FTOF & ( &! ANY BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )ww ! *** PREDECLARED TYPES M: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )  END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORDL* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF S< %IF %DECLARED JR ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED K( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINLG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > M %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  M DECLARE LONG CONSTANT CVT$K_VAX_F = 0 ! VAX F Floating point dataM DECLARE LONG CONSTANT CVT$K_VAX_D = 1 ! VAX D Floating point dataM DECLARE LONG CONSTANT CVT$K_VAX_G = 2 ! VAX G N Floating point dataM DECLARE LONG CONSTANT CVT$K_VAX_H = 3 ! VAX H Floating point dataN DECLARE LONG CONSTANT CVT$K_IEEE_S = 4 ! IEEE S Floating point dataN DECLARE LONG CONSTANT CVT$K_IEEE_T = 5 ! IEEE T Floating point dataP DECLARE LONG CONSTANT CVT$K_IBM_LONG = 6 ! IBM Long Floating point dataQ DECLARE LONG CONSTANT CVT$K_IBM_SHORT = 7 ! IBM Short Floating point dataL DECLARE LONG CONSTANT CVT$K_CRAY = 8 ! Cray Floating point data ON DECLARE LONG CONSTANT CVT$K_IEEE_X = 9 ! IEEE X Floating point dataZ DECLARE LONG CONSTANT CVT$K_BIG_ENDIAN_IEEE_S = 10 ! IEEE S Floating point dataZ DECLARE LONG CONSTANT CVT$K_BIG_ENDIAN_IEEE_T = 11 ! IEEE S Floating point dataZ DECLARE LONG CONSTANT CVT$K_BIG_ENDIAN_IEEE_X = 12 ! IEEE S Floating point data1 DECLARE LONG CONSTANT CVT$K_CRAY_SINGLE = 8 ! % ! Function Return Status Values: ! , DECLARE LONG CONSTANT CVT$K_NORMAL P = 0B DECLARE LONG CONSTANT CVT$M_INVALID_INPUT_TYPE = x'00000001'C DECLARE LONG CONSTANT CVT$M_INVALID_OUTPUT_TYPE = x'00000002'> DECLARE LONG CONSTANT CVT$M_INVALID_OPTION = x'00000004'? DECLARE LONG CONSTANT CVT$M_RESULT_INFINITE = x'00000008'C DECLARE LONG CONSTANT CVT$M_RESULT_DENORMALIZED = x'00000010'E DECLARE LONG CONSTANT CVT$M_RESULT_OVERFLOW_RANGE = x'00000020'F DECLARE LONG CONSTANT CVT$M_RESULT_UNDERFLOW_RANGE = x'00000040'C DECLARE LONGQ CONSTANT CVT$M_RESULT_UNNORMALIZED = x'00000080'> DECLARE LONG CONSTANT CVT$M_RESULT_INVALID = x'00000100'? DECLARE LONG CONSTANT CVT$M_RESULT_OVERFLOW = x'00000200'@ DECLARE LONG CONSTANT CVT$M_RESULT_UNDERFLOW = x'00000400'> DECLARE LONG CONSTANT CVT$M_RESULT_INEXACT = x'00000800'3 DECLARE LONG CONSTANT CVT$S_RETURN_STATUS = 2 record CVT$R_RETURN_STATUS WORD INVALID_INPUT_TYPE_bits ! COMMENT ADDED BY SDL - INVALID_INPUT_TYPE_bits contains bits INVRALID_INPUT_TYPE through & ! FILL_0_$ end record CVT$R_RETURN_STATUS  !  ! Conversion Options: ! @ DECLARE LONG CONSTANT CVT$M_ROUND_TO_NEAREST = x'00000001'8 DECLARE LONG CONSTANT CVT$M_TRUNCATE = x'00000002'< DECLARE LONG CONSTANT CVT$M_ROUND_TO_POS = x'00000004'< DECLARE LONG CONSTANT CVT$M_ROUND_TO_NEG = x'00000008'< DECLARE LONG CONSTANT CVT$M_VAX_ROUNDING = x'00000010': DECLARE LONG CONSTANT CVT$M_BIG_ENDIAN = x'00000020'= DESCLARE LONG CONSTANT CVT$M_ERR_UNDERFLOW = x'00000040'E DECLARE LONG CONSTANT CVT$M_FORCE_INVALID_TO_ZERO = x'00000080'D DECLARE LONG CONSTANT CVT$M_FORCE_DENORM_TO_ZERO = x'00000100'F DECLARE LONG CONSTANT CVT$M_FORCE_INF_TO_MAX_FLOAT = x'00000200'H DECLARE LONG CONSTANT CVT$M_FORCE_ALL_SPECIAL_VALUES = x'00000400'I DECLARE LONG CONSTANT CVT$M_ALLOW_OVRFLW_RANGE_VALUES = x'00000800'I DECLARE LONG CONSTANT CVT$M_ALLOW_UDRFLW_RANGE_VALUES = x'00001000'I DECLTARE LONG CONSTANT CVT$M_ALLOW_UNNORMALIZED_VALUES = x'00002000': DECLARE LONG CONSTANT CVT$M_REPORT_ALL = x'00004000'6 DECLARE LONG CONSTANT CVT$m_spare2 = x'FFFF8000'8 DECLARE LONG CONSTANT CVT$S_CONVERSION_OPTIONS = 4% record CVT$R_CONVERSION_OPTIONS !  ! Rounding Mode Options: !  ! - ! Options exclusive to CVT$CONVERT_FLOAT !  !  ! Forcing Results Options: !  ! ( ! Allowing Special Results Options: !  ! U ! Status Selection Options: !  !  ! Everything else. ! LONG ROUND_TO_NEAREST_bits ! COMMENT ADDED BY SDL - ROUND_TO_NEAREST_bits contains bits ROUND_TO_NEAREST through spare2) end record CVT$R_CONVERSION_OPTIONS D DECLARE LONG CONSTANT CVT$M_ALT_ROUND_TO_NEAREST = x'00000001'= DECLARE LONG CONSTANT CVT$M_ROUND_TO_ZERO = x'00000002'@ DECLARE LONG CONSTANT CVT$M_ALT_ROUND_TO_POS = x'00000004'@ DECLARE LONG CONSTANT CVT$M_ALT_ VROUND_TO_NEG = x'00000008'? DECLARE LONG CONSTANT CVT$M_BIASED_ROUNDING = x'00000010'6 DECLARE LONG CONSTANT CVT$m_spare3 = x'FFFFFFE0'< DECLARE LONG CONSTANT CVT$S_ALT_CONVERSION_OPTIONS = 4) record CVT$R_ALT_CONVERSION_OPTIONS !  ! Rounding Mode Options: ! LONG ALT_ROUND_TO_NEAREST_bits ! COMMENT ADDED BY SDL - ALT_ROUND_TO_NEAREST_bits contains bits ALT_ROUND_TO_NEAREST & ! through spare3- end record CVT$R_ALT_CONVERSION_OPTIONS  wwX̯ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED Y( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINZG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > [ %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.81 !  ! R ! ****************************************************************************R ! * \ *R ! * COPYRIGHT (C) 1991 *R ! * BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *R ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ]ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *R ! * TRANSFERRED. *R ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT B^E CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *R ! * CORPORATION. *R ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *R ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *R ! * *R ! ************************_****************************************************R ! ============================================================================ !  ! FILE: CVTMSG.MSG !  ! VERSION: 1-001 ! ; ! FACILITY: CVTRTL - VMS CONVERSION RUN TIME LIBRARY ! < ! ABSTRACT: MESSAGE DEFINITIONS FOR THE CVT FACILITY. ! ! ! AUTHOR: JEFFREY S. YOUNG ! " ! CREATION DATE: 25-JUN-1991 !  ! MODIFICATION HISTORY:R ! ---------------------- `----------------------------------------------------/ ! 1-001 25-JUN-1991 JSY ORIGINAL VERSION. ! R ! ============================================================================R ! ============================================================================ ! C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! CVT$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE F aIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. ! R ! ============================================================================ ! 0 DECLARE LONG CONSTANT CVT$_FACILITY = 15303 DECLARE LONG CONSTANT CVT$_NORMAL = 1003028576 DECLARE LONG CONSTANT CVT$ b_INPCONERR = 1003028666 DECLARE LONG CONSTANT CVT$_INVINPTYP = 1003028743 DECLARE LONG CONSTANT CVT$_INVOPT = 1003028826 DECLARE LONG CONSTANT CVT$_INVOUTTYP = 1003028903 DECLARE LONG CONSTANT CVT$_INVVAL = 1003028983 DECLARE LONG CONSTANT CVT$_NEGINF = 1003029066 DECLARE LONG CONSTANT CVT$_OUTCONERR = 1003029145 DECLARE LONG CONSTANT CVT$_OVERFLOW = 1003029223 DECLARE LONG CONSTANT CVT$_POSINF = 1003029306 DECLARE LONG CONSTANT CVT$_UNDERFLOW = 100302938wwd6 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED e( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINfG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > g %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  E ! --------------------------------------------------------------- ! 0 ! Data Compression/Expansion (DCX) Routines !  ! / ! DCX$ANALYZE_DATA - Analyze a data record ! 2 ! statuhs = DCX$ANALYZE_DATA (context, record) ! < ! context - Context value returned by DCX$ANALYZE_INIT' ! record - Record to be analyzed0 EXTERNAL LONG FUNCTION DCX$ANALYZE_DATA & ( &" LONG BY REF, &$ STRING BY DESC & ) ! + ! DCX$ANALYZE_DONE - Complete analysis ! * ! status = DCX$ANALYZE_DONE (context) ! < ! context - Context value returned by DCX$ANALYZE_INIT0 EXTERNAL L iONG FUNCTION DCX$ANALYZE_DONE & ( &! LONG BY REF & ) ! 9 ! DCX$ANALYZE_INIT - Initialize context for analysis ! C ! status = DCX$ANALYZE_INIT (context [,item_code, item_value]) ! : ! context - Receives context value for data streamD ! item_code - Specifies information to be used during analysis. ! item_value - Value of information itemJ ! [Note - successive pairs of item_code and item_value can b je passed ! in the argument list] ! 0 EXTERNAL LONG FUNCTION DCX$ANALYZE_INIT & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, & LONG BY REF,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,, & k ) ! 1 ! DCX$COMPRESS_DATA - Compress a data record ! H ! status = DCX$COMPRESS_DATA (context, in_rec, out_rec, out_length) ! 8 ! context - Value returned by DCX$COMPRESS_INIT1 ! in_rec - Data record to be compressed/ ! out_rec - Receives compressed record9 ! out_length - Receives length of compressed record ! 1 EXTERNAL LONG FUNCTION DCX$COMPRESS_DATA & ( &" LONG BY REF, &% l STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! 9 ! DCX$COMPRESS_DONE - Delete context for compression ! + ! status = DCX$COMPRESS_DONE (context) ! 5 ! context - Value returned by DCX$COMPRESS_INIT ! 1 EXTERNAL LONG FUNCTION DCX$COMPRESS_DONE & ( &! LONG BY REF & ) ! = ! DCX$COMPRESS_INIT - Initialize contmext for compression ! 0 ! status = DCX$COMPRESS_INIT (context, map) ! 4 ! context - Context value for this data stream4 ! map - Map value returned by DCX$MAKE_MAP ! 1 EXTERNAL LONG FUNCTION DCX$COMPRESS_INIT & ( &" LONG BY REF, &! LONG BY REF & ) ! 8 ! DCX$EXPAND_DATA - Expand a compressed data record ! H ! status = DCX$EXPAND_DATA (context, in_rec, out_rec [,out_lenngth]) ! 6 ! context - Value returned by DCX$EXPAND_INIT/ ! in_rec - Data record to be expanded2 ! out_rec - Receives expanded data record7 ! out_length - Receives length of expanded record ! / EXTERNAL LONG FUNCTION DCX$EXPAND_DATA & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! 5 ! DCXo$EXPAND_DONE - Delete context for expansion ! ) ! status = DCX$EXPAND_DONE (context) ! 3 ! context - Value returned by DCX$EXPAND_INIT ! / EXTERNAL LONG FUNCTION DCX$EXPAND_DONE & ( &! LONG BY REF & ) ! 9 ! DCX$EXPAND_INIT - Initialize context for expansion ! . ! status = DCX$EXPAND_INIT (context, map) ! @ ! context - Receives context value identifying data stream4 ! map p- Map value returned by DCX$MAKE_MAP ! / EXTERNAL LONG FUNCTION DCX$EXPAND_INIT & ( &" LONG BY REF, &! LONG BY REF & ) ! 7 ! DCX$MAKE_MAP - Compute compression/expansion map ! = ! status = DCX$MAKE_MAP (context, map_addr [, map_size]) ! 4 ! context - Value returned by DCX$ANALYZE_INIT9 ! map_addr - Receives address of allocated map data6 ! map_size - Receives size of allo cated map data ! , EXTERNAL LONG FUNCTION DCX$MAKE_MAP & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & )wwrF6 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED s( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINtG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > u %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:23.44 ! A ! .TITLE DDTMMSGDEF -- DECDTM SERVICES EXTENDED REASON CODES ! O ! **********************************v***************************************O ! * *O ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1991, 1993 *O ! * ALL RIGHTS RESERVED. *O ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *O ! * STATES. *O ! * w *O ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *O ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *O ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *O ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *O ! * DIGITAL EQUIPMENT CORPORATION. *O ! * x *O ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *O ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *O ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *O ! * *O ! ************************************************************************* !  ! ++ ! FACILITY: DDTM !  ! ABSTRACT: ! N ! y THIS MODULE DEFINES THE EXTENDED TRANSACTION ABORT REASON CODES FOR THE" ! DECDTM TRANSACTION MANAGER. !  ! ENVIRONMENT: ! VMS V5.4 OR LATER. ! < ! AUTHOR: JAMES E JOHNSON CREATION DATE: 27-FEB-1990 !  ! MODIFIED BY: ! + ! A-4 KJP KEVIN PLAYFORD 15-SEP-1993C ! UPDATED ALPHA VERSION OF DECDTM MESSAGES TO REFLECT MESSAGE+ ! TEXT AS FOUND IN HELP MESSAGE TEXT. ! + ! A-3 KJP KEVIN PLAYFORD 23-AUG-1993? ! UPDATEzD ALPHA VERSION OF DECDTM MESSAGES TO DECDTM V1.2 ! FUNCTIONALITY. ! + ! *** VAX CHANGES PICKED UP FOR ALPHA ! ' ! X-6 RM RUDI MARTIN 9-AUG-19938 ! UPDATE SYNCH_FAIL AND ORPHAN_BRANCH MESSAGES TO/ ! CORRESPOND TO THEIR HELP/MESSAGE TEXT. ! + ! A-2 KJP KEVIN PLAYFORD 20-JUL-1993? ! UPDATED ALPHA VERSION OF DECDTM MESSAGES TO DECDTM V1.2 ! FUNCTIONALITY. ! + ! *** VAX CHANGES PICKED UP FOR ALPHA ! ' ! X-5 {RM RUDI MARTIN 25-FEB-1993 ! ADD XA ERROR CODES. ! * ! X-4 CW CHRIS WHITAKER 26-FEB-19916 ! MODIFY WORDING ON SOME MESSAGES TO CONFORM TO1 ! FUNCTIONAL SPECIFICATION OF DECDTM V1.2. ! . ! X-3 CW1023 CHRIS WHITAKER 21-MAY-1990+ ! ADD RESERVED CODE AS FIRST MESSAGE. ! 0 ! X-2 JEJ0599 JAMES E JOHNSON 23-APR-19902 ! ADD LOG_FAIL, SYNC_FAIL, AND ORPHAN_BRANCH !  ! --1 DECLARE LONG CONSTANT DDTM$_FACILITY = 1187K | DECLARE LONG CONSTANT DDTM$_UNKNOWN = 0 ! NO EXTENDED CODE PROVIDED ! ERROR CODES: ! 5 DECLARE LONG CONSTANT DDTM$_RESERVED = 778240024 DECLARE LONG CONSTANT DDTM$_TIMEOUT = 778240109 DECLARE LONG CONSTANT DDTM$_PART_TIMEOUT = 778240185 DECLARE LONG CONSTANT DDTM$_SEG_FAIL = 778240266 DECLARE LONG CONSTANT DDTM$_COMM_FAIL = 778240343 DECLARE LONG CONSTANT DDTM$_VETOED = 778240424 DECLARE LONG CONSTANT DDTM$_ABORTED = 77824050: DECLAR }E LONG CONSTANT DDTM$_SERIALIZATION = 778240588 DECLARE LONG CONSTANT DDTM$_PART_SERIAL = 778240666 DECLARE LONG CONSTANT DDTM$_INTEGRITY = 778240745 DECLARE LONG CONSTANT DDTM$_LOG_FAIL = 778240826 DECLARE LONG CONSTANT DDTM$_SYNC_FAIL = 77824090: DECLARE LONG CONSTANT DDTM$_ORPHAN_BRANCH = 778240985 DECLARE LONG CONSTANT DDTM$_DEADLOCK = 778241066 DECLARE LONG CONSTANT DDTM$_PROTERROR = 778241145 DECLARE LONG CONSTANT DDTM$_ROLLBACK = 778241226  DECLARE LONG CONSTANT DDTM$_TRANSIENT = 77824130wwF ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  $ ! Use a K to indicate constant Q DECLARE LONG CONSTANT DST$K_LOCOMMAND = 0 ! Low value for range checking G DECLARE LONG CONSTANT DST$K_STA_R00 = 0 ! Stack contents of R0 G DECLARE LONG CONSTANT DST$K_STA_R01 = 1 ! Stack contents of R1 G DECLARE LONG CONSTANT DST$K_STA_R02 = 2 ! Stack contents of R2 G DECLARE LONG CONSTANT DST$K_STA_R03 = 3 ! Stack contents of R3 G DECLARE LONG CONSTANT DST$K_STA_R04 = 4 ! Stack contents of R4 G DECLARE LONG CONSTANT DST$K_STA_R05 = 5 ! Stack contents of R5 G DECLARE LONG CONSTANT DST$K_STA_R06 = 6 ! Stack contents of R6 G DECLARE LONG CONSTANT DST$K_STA_R07 = 7 ! Stack contents of R7 G DECLARE LONG CONSTANT DST$K_STA_R08 = 8 ! Stack contents of R8 G DECLARE LONG CONSTANT DST$K_STA_R09 = 9 ! Stack contents of R9 I DECLARE LONG CONSTANT DST$K_STA_R10 = 10 ! Stack contents of R10 I DECLARE LONG CONSTANT DST$K_STA_R11 = 11 ! Stack contents of R11 N DECLARE LONG CONSTANT DST$K_STA_R12 = 12 ! Stack contents of R12 (AP) N DECLARE LONG CONSTANT DST$K_STA_R13 = 13 ! Stack contents of R13 (FP) N DECLARE LONG CONSTANT DST$K_STA_R14 = 14 ! Stack contents of R14 (SP) N DECLARE LONG CONSTANT DST$K_STA_R15 = 15 ! Stack contents of R15 (PC) T DECLARE LONG CONSTANT DST$K_STA_IMM_B = 16 ! Stack contents of byte operand $ ! sign extending to longwordT DECLARE LONG CONSTANT DST$K_STA_IMM_W = 17 ! Stack contents of word operand $ ! sign extending to longwordX DECLARE LONG CONSTANT DST$K_STA_IMM_L = 18 ! Stack contents of longword operand K DECLARE LONG CONSTANT DST$K_OPR_ADD = 19 ! Pop two ope rands, add ,  ! stack longword resultZ DECLARE LONG CONSTANT DST$K_STA_REP_B = 20 ! Pop top item and stack sign extended  ! byte at that addressZ DECLARE LONG CONSTANT DST$K_STA_REP_W = 21 ! Pop top item and stack sign extended  ! word at that addressX DECLARE LONG CONSTANT DST$K_STA_REP_L = 22 ! Pop top item and stack longword at  ! that addressW DECLARE LONG CONSTANT DST$K_OPR_STOP = 23 ! Terminate command string. Longword * ! at top of stack contains address ! of data item.Q DECLARE LONG CONSTANT DST$K_HICOMMAND = 23 ! Hi value for range checking ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSAC HUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! 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 *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! *************************************************************************** ! DTK$ANSWER_PHONE ! + ! Wait for Phone to Ring and Answer ! 8 ! The Wait for Phone to Ring and Answer routine E ! waits for the phone connected to the DECtalk device to ring ! and then answers it. ! 0 EXTERNAL LONG FUNCTION dtk$answer_phone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &%  STRING BY DESC, &! LONG BY REF & ) ! DTK$CHECK_HDWR_STATUS !  ! Check Hardware Status ! T ! The Check Hardware Status routine checks the DECtalk hardware for hardware ! malfunctions. ! 5 EXTERNAL LONG FUNCTION dtk$check_hdwr_status & ( &" LONG BY REF, &! LONG BY REF & ) ! DTK$DIAL_PHONE !  ! Dial the Telephone ! U ! The Dial the Telephone routine dials the specified number on the telephone. ! . EXTERNAL LONG FUNCTION dtk$dial_phone & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! DTK$HANGUP_PHONE !  ! Hang Up the Phone ! G ! The Hang Up the Phone routine speaks an optional message and " ! then hangs up the phone. ! 0 EXTERNAL LONG FUNCTION dtk$hangup_phone & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) ! DTK$INITIALIZE !  ! Initialize DECtalk ! g ! The Initialize DECtalk routine initializes a DECtalk device and returns the device's assigned ! voice identifier.  ! . EXTERNAL LONG FUNCTION dtk$initialize & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! DTK$LOAD_DICTIONARY ! 1 ! Load a Word into the DECtalk Dictionary ! > ! The Load a Word into the DECtalk Dictionary routine A ! loads a phonemic definition of a word into the DECtalk  ! dictionary. ! 3 EXTERNAL LONG FUNCTION dtk$load_dictionary & ( &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! DTK$READ_KEYSTROKE ! * ! Read a Key Entered on the Keypad ! 7 ! The Read a Key Entered on the Keypad routine 2 ! reads a key entered on the phone keypad. ! 2 EXTERNAL LONG FUNCTION dtk$read_keystroke & ( &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &! LONG BY REF & ) ! DTK$READ_STRING ! 5 ! Read a Series of Keys Entered on the Keypad ! J ! The Read a Series of Keys Entered on the Keypad routine reads a 5 ! series of keys entered on the phone keypad. ! / EXTERNAL LONG FUNCTION dtk$read_string & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! DTK$RETURN_LAST_INDEX ! " ! Return Last Index Spoken ! M ! The Return Last Index Spoken routine returns the last index spoken. ! 5 EXTERNAL LONG FUNCTION dtk$return_last_index & ( &" LONG BY REF, &! LONG BY REF & ) ! DTK$SPELL_TEXT !  ! Spell Text ! K ! The Spell Text routine causes DECtalk to pronounce each letter of ! the specified text. ! . EXTERNAL LONG FUNCTION dtk$spell_text & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! DTK$SPEAK_FILE ! , ! Speak the Text in a Specified File ! 9 ! The Speak the Text in a Specified File routine : ! speaks the text contained in the specified file. ! . EXTERNAL LONG FUNCTION dtk$speak_file & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & )! ! DTK$SPEAK_PHONEMIC_TEXT ! + ! Speak the Specified Phonemic Text ! 8 ! The Speak the Specified Phonemic Text routine B ! sends the specified phonemic text to the DECtalk device  ! to be spoken. ! 7 EXTERNAL LONG FUNCTION dtk$speak_phonemic_text & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! DTK$SPEAK_TEXT ! " ! Speak the Specified Text ! / ! The Speak the Specified Text routine 9 ! sends the specified text to the DECtalk device  ! to be spoken. ! . EXTERNAL LONG FUNCTION dtk$speak_text & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! DTK$SET_INDEX ! 1 ! Insert an Index at the Current Position ! > ! The Insert an Index at the Current Position routine : ! inserts an index into the current output stream. ! - EXTERNAL LONG FUNCTION dtk$set_index & ( &" LONG BY REF, &! LONG BY REF & ) ! DTK$SET_KEYPAD_MODE ! * ! Turn the Phone Keypad On and Off ! I ! The Turn the Phone Keypad On and Off routine turns recognition , ! of the telephone keypad on or off. ! 3 EXTERNAL LONG FUNCTION dtk$set_keypad_mode & ( &" LONG BY REF, &!  LONG BY REF & ) ! DTK$SET_LOGGING_MODE ! U ! Set the Logging Mode for the Video Terminal Connected to the DECtalk Device ! : ! The Set the Logging Mode for the Video Terminal 1 ! Connected to the DECtalk Device routineA ! controls the information that is displayed on the video< ! terminal while the DECtalk device is functioning. ! 4 EXTERNAL LONG FUNCTION dtk$set_logging_mode &  ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! DTK$SET_MODE ! / ! Set the Mode for the DECtalk Terminal ! < ! The Set the Mode for the DECtalk Terminal routine C ! sets or resets the mode settings of the DECtalk terminal. ! , EXTERNAL LONG FUNCTION dtk$set_mode & ( &" LONG BY REF, &*  OPTIONAL LONG BY REF, &! LONG BY REF & ) ! DTK$SET_SPEECH_MODE ! % ! Turn Speech Mode On and Off ! 2 ! The Turn Speech Mode On and Off routine = ! either starts or stops the DECtalk device's speech. ! 3 EXTERNAL LONG FUNCTION dtk$set_speech_mode & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF &  ) ! DTK$SET_TERMINAL_MODE ! M ! Set the Mode for the Video Terminal Connected to the DECtalk Device ! 2 ! The Set the Mode for the Video Terminal 1 ! Connected to the DECtalk Device routineA ! controls the attributes of the video terminal connected! ! to the DECtalk device. ! 5 EXTERNAL LONG FUNCTION dtk$set_terminal_mode & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! DTK$SET_VOICE ! # ! Set Voice Characteristics ! / ! The Set Voice Characteristics routineB ! changes the DECtalk voice characteristics to match those ! specified. ! - EXTERNAL LONG FUNCTION dtk$set_voice & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &! LONG BY REF & ) ! DTK$TERMINATE !  ! Terminate DECtalk ! T ! The Terminate DECtalk routine terminates the use of an initialized DECtalk ! device. ! - EXTERNAL LONG FUNCTION dtk$terminate & ( &! LONG BY REF & )ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF. ! Definitions for RTL DECtalk Management  !  ! Phone keypad keys. ! / DECLARE LONG CONSTANT DTK$K_TRM_ZERO = 48. DECLARE LONG CONSTANT DTK$K_TRM_ONE = 49. DECLARE LONG CONSTANT DTK$ K_TRM_TWO = 500 DECLARE LONG CONSTANT DTK$K_TRM_THREE = 51/ DECLARE LONG CONSTANT DTK$K_TRM_FOUR = 52/ DECLARE LONG CONSTANT DTK$K_TRM_FIVE = 53. DECLARE LONG CONSTANT DTK$K_TRM_SIX = 540 DECLARE LONG CONSTANT DTK$K_TRM_SEVEN = 550 DECLARE LONG CONSTANT DTK$K_TRM_EIGHT = 56/ DECLARE LONG CONSTANT DTK$K_TRM_NINE = 57, DECLARE LONG CONSTANT DTK$K_TRM_A = 65, DECLARE LONG CONSTANT DTK$K_TRM_B = 66, DECLARE LONG CONSTANT DTK$K_TRM_C = 67,  DECLARE LONG CONSTANT DTK$K_TRM_D = 686 DECLARE LONG CONSTANT DTK$K_TRM_NUMBER_SIGN = 353 DECLARE LONG CONSTANT DTK$K_TRM_ASTERISK = 42 ! ConditionsH DECLARE LONG CONSTANT DTK$K_TRM_CANCELLED = 508 ! I/O cancelled N DECLARE LONG CONSTANT DTK$K_TRM_TIMEOUT = 509 ! Timeout period expiredJ DECLARE LONG CONSTANT DTK$K_TRM_BUFFER_FULL = 510 ! Buffer is fullJ DECLARE LONG CONSTANT DTK$K_TRM_UNKNOWN = 511 ! Unknown terminator !  ! Self-test constants. ! 0 DECLARE LONG CONSTANT DTK$K_TEST_POWER = 10 DECLARE LONG CONSTANT DTK$K_TEST_HDATA = 23 DECLARE LONG CONSTANT DTK$K_TEST_HCONTROL = 3/ DECLARE LONG CONSTANT DTK$K_TEST_DATA = 40 DECLARE LONG CONSTANT DTK$K_TEST_SPEAK = 5 !  ! Phone dialing constants. ! / DECLARE LONG CONSTANT DTK$K_DIAL_TONE = 00 DECLARE LONG CONSTANT DTK$K_DIAL_PULSE = 1 !  ! DECtalk types. ! 1 DECLARE LONG CONSTANT DTK$K_DTC_UNKNOWN = 0, DECLARE LONG CONSTANT DTK$K_DTC_01 = 1, DECLARE LONG CONSTANT DTK$K_DTC_03 = 2 !  ! Keypad modes. ! 0 DECLARE LONG CONSTANT DTK$K_KEYPAD_OFF = 0/ DECLARE LONG CONSTANT DTK$K_KEYPAD_ON = 11 DECLARE LONG CONSTANT DTK$K_KEYPAD_AUTO = 2 !  ! Voices. ! 0 DECLARE LONG CONSTANT DTK$K_VOICE_MALE = 02 DECLARE LONG CONSTANT DTK$K_VOICE_FEMALE = 11 DECLARE LONG CONSTANT DTK$K_VOICE_CHILD = 25 DECLARE LONG CONSTANT DTK$K_VOICE_DEEP_MALE = 37 DECLARE LONG CONSTANT DTK$K_VOICE_DEEP_FEMALE = 46 DECLARE LONG CONSTANT DTK$K_VOICE_OLDER_MALE = 58 DECLARE LONG CONSTANT DTK$K_VOICE_LIGHT_FEMALE = 6 !  ! Speaking modes. ! + DECLARE LONG CONSTANT DTK$K_SPEAK = 0* DECLARE LONG CONSTANT DTK$K_STOP = 1* DECLARE LONG CONSTANT DTK$K_HALT = 2 !  ! Return modes. ! U DECLARE LONG CONSTANT DTK$K_IMMED = 0 ! Return immedately after sending text.a DE CLARE LONG CONSTANT DTK$K_WAIT = 1 ! Wait until text is completely spoken be returning.d DECLARE LONG CONSTANT DTK$K_STATUS = 2 ! Wait for text to be spoken and return phone status. ! = ! DEFINE BIT MASKS AND VALUES FOR MODE ATTRIBUTES ! 6 DECLARE LONG CONSTANT DTK$M_SQUARE = x'00000001'5 DECLARE LONG CONSTANT DTK$M_ASCII = x'00000002'5 DECLARE LONG CONSTANT DTK$M_MINUS = x'00000004'6 DECLARE LONG CONSTANT DTK$M_EUROPE = x'00000008'5 DECLARE LONG CONSTANT DTK$M_SPELL = x'00000010'= DECLARE LONG CONSTANT DTK$M_NORMAL = 0 ! no bits set L DECLARE LONG CONSTANT DTK$K_SQUARE = 0 ! Mode square bitvector index9 DECLARE LONG CONSTANT DTK$K_ASCII = 1 ! asky modeQ DECLARE LONG CONSTANT DTK$K_MINUS = 2 ! Say dash as minus bitvector indexF DECLARE LONG CONSTANT DTK$K_EUROPE = 3 ! European type numbers? DECLARE LONG CONSTANT DTK$K_SPELL = 4 ! Spell all words4 DECLARE LONG CONSTANT DTK$M_ HOST = x'00000001'9 DECLARE LONG CONSTANT DTK$M_SPEAK_ALL = x'00000002'6 DECLARE LONG CONSTANT DTK$M_EDITED = x'00000004'4 DECLARE LONG CONSTANT DTK$M_HARD = x'00000008'5 DECLARE LONG CONSTANT DTK$M_SETUP = x'00000010'6 DECLARE LONG CONSTANT DTK$M_FILTER = x'00000020'L DECLARE LONG CONSTANT DTK$K_HOST = 0 ! Send all chars typed to host.J DECLARE LONG CONSTANT DTK$K_SPEAK_ALL = 1 ! Speak all chars typed.K DECLARE LONG CONSTANT DTK$K_EDITED = 2 ! Line edit all chars typed.P DECLARE LONG CONSTANT DTK$K_HARD = 3 ! Do local echo in hardcopy format.X DECLARE LONG CONSTANT DTK$K_SETUP = 4 ! Speak all chars displayed in setup mode.W DECLARE LONG CONSTANT DTK$K_FILTER = 5 ! Don't send DECtalk specific sequences.4 DECLARE LONG CONSTANT DTK$M_TEXT = x'00000001'7 DECLARE LONG CONSTANT DTK$M_PHONEME = x'00000002'7 DECLARE LONG CONSTANT DTK$M_RAWHOST = x'00000004'6 DECLARE LONG CONSTANT DTK$M_INHOST = x'0 0000008'7 DECLARE LONG CONSTANT DTK$M_OUTHOST = x'00000010'5 DECLARE LONG CONSTANT DTK$M_ERROR = x'00000020'5 DECLARE LONG CONSTANT DTK$M_TRACE = x'00000040'5 DECLARE LONG CONSTANT DTK$M_DEBUG = x'00000080'> DECLARE LONG CONSTANT DTK$K_TEXT = 0 ! Log ASCII text.D DECLARE LONG CONSTANT DTK$K_PHONEME = 1 ! Log phonemic text.S DECLARE LONG CONSTANT DTK$K_RAWHOST = 2 ! Log all chars without inspection.I DECLARE LONG CONSTANT DTK$K_INHOST = 3 ! L og text read from host.H DECLARE LONG CONSTANT DTK$K_OUTHOST = 4 ! Log text sent to host.C DECLARE LONG CONSTANT DTK$K_ERROR = 5 ! Log error messages.J DECLARE LONG CONSTANT DTK$K_TRACE = 6 ! Log sequences symbolically8 DECLARE LONG CONSTANT DTK$K_DEBUG = 7 ! Reserved, DECLARE LONG CONSTANT DTK$S_DTKDEF = 1 record DTKDEF variant ! < ! DEFINE BITS, MASKS, AND FIELDS FOR THE CONTROL MODES. !  case' group  DTK$R_DTKMODE_BITS( ! Set mode square on ! asky mode' ! Say dash as minus ! Europe % ! Spell all wordsn BYTE SQUARE_bits ! COMMENT ADDED BY SDL - SQUARE_bits contains bits SQUARE through FILL_0_+ end group DTK$R_DTKMODE_BITS case' group DTK$R_DTKTERM_BITS3 ! Send all chars typed to host., ! Speak all chars typed.0 ! Line edit all chars typed.7 ! Do local echo in hardcopy format.> ! Speak all chars displayed in setup mode.< ! Don't send DECtalk specific sequences.h BYTE HOST_bits ! COMMENT ADDED BY SDL - HOST_bits contains bits HOST through FILL_1_+ end group DTK$R_DTKTERM_BITS case& group DTK$R_DTKLOG_BITS% ! Log ASCII text. ( ! Log phonemic text.7 ! Log all chars without inspection.. ! Log text read from host., ! Log text sent to host.) ! Log error messages.0 ! Log sequences symbolically ! Reservedf BYTE TEXT_bits ! COMMENT ADDED BY SDL - TEXT_bits contains bits TEXT through DEBUG* end group DTK$R_DTKLOG_BITS end variant end record DTKDEF ww6= ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.87 ! % ! FILE: DTKMSG.MSG EDIT: TS1004 ! R ! ************************************************************** ************** ! * *N ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1988 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER  *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! 5 ! 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 ! - ! +C ! SYMBOLS A RE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! DTK$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $DTKDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. !  ! -) ! TEMPLATE FOR DOCUMENTING MESSAGES.= ! EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND# ! IS FOLLOWED BY A BLANK LINE.K ! BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "?" IN REGULAR COMMENTSB ! AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE= ! SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE' ! DOCUMENTATION BECOMES AUTOMATED. ! ++ ! FACILITY: DTK ! EXPLANATION: X ! USER ACTION: Y ! --# ! ; SET LH TO 419 (DECIMAL)./ DECLARE LONG CONSTANT DTK$_FACILITY = 4192 DECLARE LONG CONSTANT DTK$_NORMAL = 27492353 ! ++ ! FACILITY: DTK1 ! EXPLANATION: NORMAL SUCCESSFUL COMPLETION. ! USER ACTION: NONE ! --5 DECLARE LONG CONSTANT DTK$_VOIALREXI = 27492369 ! ++ ! FACILITY: DTKH ! EXPLANATION: A USER TRIED TO CREATE A NEW VOICE_ID FOR A DECTALK ; ! DEVICE, WHEN ONE ALREADY EXISTS. THIS IS NORMAL IN5 ! 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. ! --5 DECLARE LONG CONSTANT DTK$_NOT_A_TRM = 27492377  ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT, ! THE OUTPUT DEVICE IS NOT A TERMINAL. ! USER ACTION: NONE. ! -- ! +> ! NOTE:: DO NOT ADD ANY ADDITIONAL SUCCESS MESSAGES HERE.= ! ADD THEM BELOW AFTER THE REMAINING .SUCCESS MESSAGES. ! -0 DECLARE LONG CONSTANT DTK$_BUSY = 27492387 ! ++ ! FACILITY: DTKI ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE% ! NUMBER AND THE LINE WAS BUSY.& ! USER ACTION: TRY CALLING AGAIN. ! --4 DECLARE LONG CONSTANT DTK$_NOANSWER = 27492395 ! ++ ! FACILITY: DTKI ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE, ! NUMBER AND NO ONE ANSWERED THE CALL.& ! USER ACTION: TRY CALLING AGAIN. ! --5 DECLARE LONG CONSTANT DTK$_NODIATONE = 27492403 ! ++ ! FACILITY: DTKI ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE3 ! NUMBER AND NO DIAL TONE WAS DETECTED ON THE ! PHONE LINE. F ! USER ACTION: CORRECT THE TELEPHONE LINE PROBLEM AND CALL AGAIN. ! --3 DECLARE LONG CONSTANT DTK$_OFFHOOK = 27492411 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT0 ! THE PHONE IS OFFHOOK (A CALL IS ACTIVE). ! USER ACTION: NONE. ! --2 DECLARE LONG CONSTANT DTK$_ONHOOK = 27492419 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT0 ! THE PHONE IS ONHOOK (NO CALL IS ACTIVE). ! USER ACTION: NONE. ! --3 DECLARE LONG CONSTANT DTK$_TIMEOUT = 27492427 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT( ! THE OUTPUT DEVICE HAS TIMED OUT. ! USER ACTION: NONE. ! --0 DECLARE LONG CONSTANT DTK$_WINK = 27492435 ! ++ ! FACILITY: DTKA ! EXPLANATION: A WINK (POSSIBLE TIMEOUT) WAS DETECTED ON THE; ! PHONE LINE. THE CALLER MAY HAVE HUNG UP THE PHONE. ! USER ACTION: NONE. ! --3 DECLARE LONG CONSTANT DTK$_COMFAIL = 27492443 ! ++ ! FACILITY: DTKH ! EXPLANATION: A COMMUNICATIONS MALFUNCTION HAS OCCURRED SINCE THE # ! DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_INPBUFOVR = 27492451 ! ++ ! FACILITY: DTKL ! EXPLANATION: AN INPUT BUFFER OVERFLOW MALFUNCTION HAS OCCURRED SINCE ' ! THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_NVROPRFAI = 27492459 ! ++ ! FACILITY: DTK? ! EXPLANATION: A NVR OPERATION FAILURE HAS OCCURRED SINCE ' ! THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_ERRPHOTRA = 27492467 ! ++ ! FACILITY: DTKL ! EXPLANATION: A PHONEMIC TRANSCRIPTION MALFUNCTION HAS OCCURRED SINCE ' ! THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_CONSEQERR = 27492475 ! ++ ! FACILITY: DTKG ! EXPLANATION: A DECTALK PRIVATE CONTROL SEQUENCE MALFUNCTION HAS 6 ! OCCURRED SINCE THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_DECTSTFAI = 27492483 ! ++ !  FACILITY: DTKE ! EXPLANATION: A LOCAL SELF-TEST MALFUNCTION HAS OCCURRED SINCE ' ! THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_FATERRLIB = 27492868 ! ++ ! FACILITY: DTK= ! EXPLANATION: AN INTERNAL ERROR HAS OCCURED WITHIN DTK.9 ! USER ACTION: SUBMIT AN SPR DESCRIBING THE PROBLEM. ! --5 DECLARE LONG CONSTANT DTK$_FILTOOLON = 27492876 ! ++ ! FACILITY: DTK6 !  EXPLANATION: THE LENGTH OF THE SPECIFIED STRING ! WAS TOO LONG.C ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE' ! NAME OF 255 CHARACTERS OR LESS. ! --2 DECLARE LONG CONSTANT DTK$_INVARG = 27492884 ! ++ ! FACILITY: DTKK ! EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE.A ! USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS. ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --3 DECLARE LONG CONSTANT DTK$_INVMODE = 27492892 ! ++ ! FACILITY: DTKA ! EXPLANATION: THE VALUE OF THE MODE ARGUMENT IS NOT IN THE  ! CORRECT RANGE.; ! USER ACTION: EXAMINE THE ARGUMENT. DETERMINE WHAT IS. ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --5 DECLARE LONG CONSTANT DTK$_INVVOI_ID = 27492900 ! ++ ! FACILITY: DTK6 ! EXPLANATION: AN INVALID VOICE-ID WAS SPECIFIED.H ! USER ACTION: CHECK THAT YOU ARE PASSING THE VOICE ID BY REFERENCE2 ! NOT BY VALUE. ENSURE THAT THE VOICE ID WAS6 ! PREVIOUSLY SET UP BY A CALL TO DTK$INITIALIZE. ! --2 DECLARE LONG CONSTANT DTK$_NOROOM = 27492908 ! ++ ! FACILITY: DTKD ! EXPLANATION: THERE IS NO ROOM LEFT IN THE DICTIONARY FOR THIS ! DEFINITION.C ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS FEWER < ! DICTIONARY ENTRIES OR SO THAT EACH ENTRY IS SMALLER. ! --2 DECLARE LONG CONSTANT DTK$_NOTIMP = 27492916 ! ++ ! FACILITY: DTKF ! EXPLANATION: YOU TRIED TO USE A FEATURE THAT IS NOT IMPLEMENTED ! IN THIS VERSION OF DTK$.8 ! USER ACTION: GET THE APPROPRIATE VERSION OF DTK$. ! --5 DECLARE LONG CONSTANT DTK$_PROTOOLON = 27492924 ! ++ ! FACILITY: DTKJ ! EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS.A ! USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. ! --5 DECLARE LONG CONSTANT DTK$_STRTERESC = 27492932 ! ++ ! FACILITY: DTKH  ! EXPLANATION: AN DTK OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE( ! EMBEDDED IN THE OUTPUT STRING. E ! USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE: ! SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION7 ! PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST> ! LIKELY A DTK ROUTINE THAT PROVIDES THAT FUNCTIONALITY. ! --3 DECLARE LONG CONSTANT DTK$_TOOLONG = 27492940 ! ++ ! FACILITY: DTKD ! EXPLANATION: THE LENGTH OF THE SPECIFIED STRING WAS TOO LONG.K ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A PHONE NUMBER= ! OR DICTIONARY SUBSTITUTION OF 255 CHARACTERS OR LESS. ! --5 DECLARE LONG CONSTANT DTK$_UNKESCSEQ = 27492948 ! ++ ! FACILITY: DTKF ! EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE) ! THAT IT WAS UNABLE TO UNDERSTAND. ! USER ACTION: ???? ! --4 DECLARE LONG CONSTANT DTK$_UNKREPLY = 27492956 ! ++ ! FACILITY: DTK F ! EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE* ! THAT IT COULD NOT PARSE CORRECTLY. ! USER ACTION: ???? ! --5 DECLARE LONG CONSTANT DTK$_WRONUMARG = 27492964 ! ++ ! FACILITY: DTKC ! EXPLANATION: A DTK ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS4 ! (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) ! OR TOO MANY ARGUMENTS.= ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH' ! THE PROPER NUMBER OF ARGUMENTS.  ! --4 DECLARE LONG CONSTANT DTK$_TLKINUSE = 27492972 ! ++ ! FACILITY: DTK@ ! EXPLANATION: A DTK ROUTINE WAS CALLED FROM AN AST ROUTINE4 ! THAT INTERRUPTED A DTK ROUTINE WITH THE SAME ! VOICE_ID.= ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH# ! THE PROPER SYNCHRONIZATION. ! --5 DECLARE LONG CONSTANT DTK$_NOTLCLTRM = 27492980 ! ++ ! FACILITY: DTK> ! EXPLANATION: THE OUTPUT DEVICE IS NOT A TERMINAL ON THE ! LOCAL VMS NODE.4 ! USER ACTION: SPECIFY A LOCAL TERMINAL DEVICE. ! --5 DECLARE LONG CONSTANT DTK$_NOMALFUN1 = 27494401 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT7 ! NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK5 ! UNIT WAS TURNED ON. THIS IS THE FIRST REPLY. ! USER ACTION: NONE. ! --5 DECLARE LONG CONSTANT DTK$_NOMALFUN2 = 27494409 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT7 ! NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK? ! UNIT WAS TURNED ON. THIS IS THE SECOND OR LATER REPLY. ! USER ACTION: NONE. ! --ww6 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ! EDT Editor (EDT) Routines !  !  ! EDT$EDIT - Edit a file ! Q ! status = EDT$EDIT (in_file [,out_file] [,com_file] [,jou_file] [,options] 8 ! [,fileio ] [,workio] [,xlate] ) ! + ! in_file - Input file specification, ! out_file - Output file specification5 ! com_file - Startup command file specification- ! jou_file - Journal file specification- ! options - Options for edit operation= ! fileio - Bound procedure value for file I/O routine> ! workio - Bound procedure value for work I/O routine : ! xlate - Bound procedure value for XLATE routine ! ( EXTERNAL LONG FUNCTION EDT$ EDIT & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &) OPTIONAL ANY BY REF, &! ANY BY REF, & ANY BY REF & )wwV1 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! . ! File Definition Language (FDL) Routines ! A ! Note - FDL routines accept only class S string descriptors !  ! ! ! FDL$CREATE - Create a file ! @ ! status = FDL$CREA TE (fdl_desc [,filename] [,default_name]@ ! [,result_name] [,fid_block] [,flags]@ ! [,stmnt_num] [,retlen] [,sts] [,stv] ! [,dflt-fdl-spc] ! E ! fdl_desc - Name of file or string containg FDL statements1 ! filename - Name of file to be created* ! default_name - Default name string3 ! result_name - Receives resultant file name7 ! fid_block - Receives file ID of created file2 ! flags  - Flags controlling operation< ! stmt_num - Receives number of statement in error5 ! retlen - Receives length of result_name- ! sts - Receives RMS STS value- ! stv - Receives RMS STV valueO ! dflt-fdl-spc - Name of file or string containing default FDL statements* EXTERNAL LONG FUNCTION FDL$CREATE & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &' LONG DIM() BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! ? ! FDL$GENERATE - Generate an FDL specification from a file ! = ! status = FDL$GENERATE (flags, fab_pointer, rab_pointer? !  [,fdl_file_dst] [,fdl_file_resnam]3 ! [,fdl_str_dst] [,bad_blk_addr] [,retlen]) ! 5 ! flags - Flags controlling operation. ! fab_pointer - Address of FAB block. ! rab_pointer - Address of RAB block8 ! fdl_file_dst - Name of FDL file to be created= ! fdl_file_resnam - Receives resultant name of FDL file- ! fdl_str_dst - Receives FDL string? ! bad_blk_addr - Receives address of invalid RMS blockK ! retlen  - Receives length of fdl_file_resnam or fdl_str_dst ! , EXTERNAL LONG FUNCTION FDL$GENERATE & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! - ! FDL$PARSE - Parse an FDL spec ification ! F ! status = FDL$PARSE (fdl_spec, fdl_fab_pointer, fdl_rab_pointer A ! [,flags] [,dflt_fdl_spec] [,stmt_num]) ! E ! fdl_spec - Name of FDL file or FDL string to be parsed9 ! fdl_fab_pointer - Receives address of created FAB9 ! fdl_rab_pointer - Receives address of created RAB5 ! flags - Flags controlling operationH ! dflt_fdl_spec - Name of default FDL file or default FDL string? ! stmt_num - Receives number of statement in error ! ) EXTERNAL LONG FUNCTION FDL$PARSE & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! ( ! FDL$RELEASE - Release FDL context ! B ! status = FDL$RELEASE ([fab_pointer] [,rab_pointer] [,flags], !  [,badblk_addr]) ! 6 ! fab_pointer - Address of FAB to be deallocated6 ! rab_pointer - Address of RAB to be deallocated1 ! flags - Flags controlling operation: ! badblk_addr - Recives address of invalid RMS block ! + EXTERNAL LONG FUNCTION FDL$RELEASE & ( &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF &  )ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:59.64 !  !  ! VERSION: 'X-4' ! P ! *************************************************************************P ! * *P ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978, 1979, 1980, 1981, *P ! * 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 *P ! * ALL RIGHTS RESERVED. *P ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *P ! * STATES. *P ! * *P ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *P ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *P ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *P ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *P ! * DIGITAL EQUIPMENT CORPORATION. *P ! *  *P ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *P ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *P ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *P ! * *P ! ************************************************************************* ! ++ ! % ! FACILITY: VAX-11 FDL UTILITIES !  ! ENVIRONMENT: ! ! VAX/VMS OPERATING SYSTEM !  ! ABSTRACT: ! FDL ERROR MESSAGES !  !  ! -- ! : ! AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980 !  !  ! MODIFIED BY: ! , ! X-4 BP026 BOB PREMOVICH 28-MAY-1998< ! CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT 8 ! WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO: ! FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET ! FACILITY. ! - ! X-3 CW002 CHRIS WHITAKER 26-AUG-1992 ! MERGE IN AMBER CHANGES. ! 0 ! 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 ! 2 ! V03-004 KFH0003 KEN HENDERSON 21 DEC 1982( ! REWORDED "key word" TO "keyword" ! 2 ! V03-003 KFH0002 KEN HENDERSON 22-NOV-1982, ! REWORDED "on line" TO "in statement" ! 2 ! V03-002 KFH0001 KEN HENDERSON 25-OCT-1982 ! ADDED INVBLK MESSAGE ! 3 ! V03-001 KBT0033 KEITH THOMPSON 31-MAR-1982 ! ADD INVDATIM MESSAGE ! ! ****/ DECLARE LONG CONSTANT FDL$_FACILITY = 180W DECLARE LONG CONSTANT FDL$_BADLOGIC = 11800866 ! Z DECLARE LONG CONSTANT FDL$_CLOSEIN = 11800658 ! /FAO=1\ DECLARE LONG CONSTANT FDL$_CLOSEOUT = 11800666 ! /FAO=1K DECLARE LONG CONSTANT FDL$_CREATED = 11800691 ! /FAO=1h DECLARE LONG CONSTANT FDL$_CREATEDSTM = 11801339 ! /FAO=1V DECLARE LONG CONSTANT FDL$_INSVIRMEM = 11801330 ! Y DECLARE LONG CONSTANT FDL$_OPENIN = 11800730 ! /FAO=1[ DECLARE LONG CONSTANT FDL$_OPENOUT = 11800738 ! /FAO=1Q DECLARE LONG CONSTANT FDL$_READERR = 11800754 ! /FAO=1] DECLARE LONG CONSTANT FDL$_VALERR = 11801066 ! R DECLARE LONG CONSTANT FDL$_WRITEERR = 11800786 ! /FAO=1, DECLARE LONG CONSTANT FDL$_FAO_MAX = 51 DECLARE LONG CONSTANT FDL$_TITLE = 118292590 DECLARE LONG CONSTANT FDL$_ABKW = 118292644 DECLARE LONG CONSTANT FDL$_INVDATIM = 118292722 DECLARE LONG CONSTANT FDL$_MULSEC = 118292802 DECLARE LONG CONSTANT FDL$_NOQUAL = 118292883 DECLARE LONG CONSTANT FDL$_NULLPRI = 118292961 DECLARE LONG CONSTANT FDL$_RFLOC = 118293042 DECLARE LONG CONSTANT FDL$_VALPRI = 118293123 DECLARE LONG CONSTANT FDL$_UNQUAKW = 118293203 DECLARE LONG CONSTANT FDL$_UNSECKW = 118293283 DECLARE LONG CONSTANT FDL$_WARNING = 118293363 DECLARE LONG CONSTANT FDL$_ABPRIKW = 118293462 DECLARE LONG CONSTANT FDL$_CREATE = 118293544 DECLARE LONG CONSTANT FDL$_FDLERROR = 118293623 DECLARE LONG CONSTANT FDL$_ILL_ARG = 118293702 DECLARE LONG CONSTANT FDL$_MULPRI = 118293783 DECLARE LONG CONSTANT FDL$_OPENFDL = 118293864 DECLARE LONG CONSTANT FDL$_OUTORDER = 118293942 DECLARE LONG CONSTANT FDL$_SYNTAX = 118294023 DECLARE LONG CONSTANT FDL$_UNPRIKW = 118294102 DECLARE LONG CONSTANT FDL$_INVBLK = 118294187 DECLARE LONG CONSTANT FDL$_UNKNOWN_TAG = 11829426wwvx ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.45 !  ! FILE: FOR_MSG.MSG  ! K ! *********************************************************************K  ! ** *K ! ** COPYRIGHT 2001 COMPAQ COMPUTER CORPORATION *K ! ** *K ! ** COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION *K ! ** TECHNOLOGIES GROUP, L.P. *K ! ** *K ! ** CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ *K ! ** REQUIRED FOR POSSESSION, USE OR COPYING. CONSISTENT WITH FAR *K ! ** 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, COMPUTER *K ! ** SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS *K ! ** ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *K ! ** COMMERCIAL LICENSE. *K ! ** *K  ! ********************************************************************* ! > ! 1-014 - ADD ERRORS 17-19 FOR NAMELIST. SBL 10-NOV-1980: ! 1-015 - CORRECT TYPO IN TOOMANVAL. SBL 15-DEC-1980S ! 1-016 - RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015. ! SBL 6-JAN-1981Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM FORMSG.MDL( ! VERSION 1-016. SBL 22-APR-1981I ! 2-002 - ADD UNFIO_FMT, FMTIO_UNF, DIRIO_KEY, SEQIO_ DIR, KEYIO_DIR,: ! IO_NONFOR, INVTXTREC, FLOUNDEXC. JAW 23-AUG-1981> ! 2-003 - CHANGE INVTXTREC TO INVTEXREC. JAW 24-AUG-1981V ! 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXEDT ! AND INTERNAL FILES THAT DO NOT HAVE A VALID RECORD NUMBER. DGP 21-DEC-1981+ ! 2-005 - ADD .TITLE. SBL 28-AUG-1982; ! 2-006 - ADD OPEREQDIS AND OPEREQSEQ. SBL 2-JUN-19837 ! 2-007 - ADD ULTRIX SPECIFIC ERRORS AND WARNINGS./ ! 2-008 - ADD INVMA TKEY. DJM 14-SEP-1987.5 ! 2-009 - ADD FORRTL2 MESSAGES. CHH 22-SEP-1987# ! X-4 STEVE LIONEL 16-OCT-1989 ! ADD SUBPRCDEL,UNAWAKSUB. ! X-5 5 ! A LONG TIME AGO, IN A GALAXY FAR, FAR AWAY ...+ ! X-6 SBL1001 22-OCT-1991 STEVE LIONEL ! ADD FOR$_VECALIGNEXC, ! X-7 EBF1002 08-OCT-1992 ED FLECCHIA6 ! ADDED DEC FORTRAN MESSAGES FOR OTHER PLATFORMS.P ! X-8 ADD FOR$_ENDRECDUR, END OF RECORD DURING READ. CHANGE IDENT TO VM.N-O ! SYNTAX. BRR 10-NOV-1993.> ! X-9 ADD MISSING ALPHA GENTRAP MESSAGES. TCM 02-JUN-94.- ! X-10 ADD INVREALLOC. JDR 11-JUL-1994., ! X-11 ADD RESACQFAI. JDR 23-NOV-1994.- ! X-12 ADD INVDEALLOC. TCM 13-MAR-1995.K ! X-13 MAKE MESSAGE ENDRECDUR, END OF RECORD DURING READ FATAL INSTEADM ! ERROR, LIKE THE OTHER OPERATING SYSTEMS. THE STANDARD SAYS FATAL, AND3 ! THIS SHOULD FIX BUG DFB2234. TCM 24-MAR-1995N ! X-14 ADD POINTERS TO THE MESSAGE TEXT FOR INVDEALLOC. TCM 19-JUN-1 995.5 ! X-15 FIX THE MESSAGE TEXT OF ERROR 69 (SIGINT)B ! INTERRUPT WAS SPELLED WRONG, MISSING AN R. TCM 29-MAR-19963 ! X-16 ADD PRELIMINARY VISUAL FORTRAN SUPPORT.2 ! THUS, ADDING ALL OF THE MSF ERROR MESSAGES.2 ! NOTE: THESE MESSAGES MUST BE CONTIGUOUS, SO0 ! THAT THE MAPPING OF MSF ERRORS TO VISUAL8 ! FORTRAN CAN BE DONE WITH EASE. TCM 26-APR-1996 : ! X-17 FIX THE MESSAGE TEXT OF MSF ERRORS 6970, 6971.3 ! IT SHOULD BE D FIELD NOT M FIELD, ETC. ALS O= ! FIX F6750-52, REMOVE UNIX IN THE TEXT. TCM 07-NOV-1996. ! X-18 ADD INVDEALLOC2. WCH 15-JUL-1999.B ! X-19 CHANGE PRODUCT NAME FROM DEC TO COMPAQ PMK 8-NOV-1999H ! X-20 REPLACE DEC WITH COMPAQ IN RESACQFAI MESSAGE. PMK 9-NOV-1999L ! X-21 ADD SHORTDATEARG, SHORTTIMEARG, ? SHORTZONEARG. PMK 31-JUL-2000< ! X-22 ADD COUNTING FLTING INEXACTS. WCH 10-AUG-2000.V ! X-23 ADD NEW ERRORS FOR COMPILER GENERATED RUNTIME MESSAGES. WCH 16-AUG-2000.R ! X-24 ADD A G ENERIC DIVIDE BY ZERO MESSAGE FOR CASES WHEN WE CANNOT TELL IFM ! IT WAS A TRUE FLOATING POINT DIV0 OR AN INTEGER DIV0. AS OF GEM BL46,P ! GEM SOMETIMES DOES INTEGER DIV IN THE FP UNIT ON ALPHA. WCH 06-OCT-2000.P ! X-25 ADD A NEW MESSAGE FOR ATTEMPTED ARRAY ALLOCATIONS THAT OVERFLOW MAX7 ! ARRAY SIZE (32/64 BITS). WCH 13-OCT-2000. ! -- ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! FOR$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $FORDEF ! A ! WILL CAUSE ALL SYMBOLS TO B E MADE AVAILABLE TO THE MODULE.; ! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).C ! THESE SYMBOLS ARE DECLARED EXTERNAL BY THE RUN-TIME LIBRARY,D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! -6 ! ; MAKE ALL ERRORS BE SEVERE (EXCEPT AS NOTED)6 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE" ! ; SET LH TO 24 (DECIMAL).. DECLARE LONG CONSTANT FOR$_FACILITY = 244 DECLARE LONG CONSTANT FOR$_NOTFORSPE = 16056446 ! ; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR7 ! ; NUMBER FOR ERRSNS TO MEAN SOME OTHER FACILITY/ ! ; THAN FOR$ OR MTH$ DETECTED THE ERROR.1 DECLARE LONG CONSTANT FOR$_NOTIMP = 16056522 DECLARE LONG CONSTANT FOR$_IGNORED = 16056564 DECLARE LONG CONSTANT FOR$_IGNNOTDEL = 16056642 DECLARE LONG CONSTANT FOR$_VERSION = 16056834 DECLARE LONG CONSTANT FOR$_BUG_CHECK = 16057004 DECLARE LONG CONSTANT FOR$_PERACCFIL = 16057084 DECLARE LONG CONSTANT FOR$_C ANOVEEXI = 16057164 DECLARE LONG CONSTANT FOR$_UNINOTCON = 16057234 DECLARE LONG CONSTANT FOR$_SYNERRNAM = 16057724 DECLARE LONG CONSTANT FOR$_TOOMANVAL = 16057804 DECLARE LONG CONSTANT FOR$_INVREFVAR = 16057881 DECLARE LONG CONSTANT FOR$_REWERR = 16057964 DECLARE LONG CONSTANT FOR$_DUPFILSPE = 16058044 DECLARE LONG CONSTANT FOR$_INPRECTOO = 16058121 DECLARE LONG CONSTANT FOR$_BACERR = 16058204 DECLARE LONG CONSTANT FOR$_ENDDURREA = 16058284  DECLARE LONG CONSTANT FOR$_RECNUMOUT = 16058364 DECLARE LONG CONSTANT FOR$_OPEDEFREQ = 16058444 DECLARE LONG CONSTANT FOR$_TOOMANREC = 16058521 DECLARE LONG CONSTANT FOR$_CLOERR = 16058604 DECLARE LONG CONSTANT FOR$_FILNOTFOU = 16058681 DECLARE LONG CONSTANT FOR$_OPEFAI = 16058764 DECLARE LONG CONSTANT FOR$_MIXFILACC = 16058844 DECLARE LONG CONSTANT FOR$_INVLOGUNI = 16058924 DECLARE LONG CONSTANT FOR$_ENDFILERR = 16059004 DECLARE LONG CONSTANT FOR$_UNIALROPE = 16059084 DECLARE LONG CONSTANT FOR$_SEGRECFOR = 16059164 DECLARE LONG CONSTANT FOR$_ATTACCNON = 16059244 DECLARE LONG CONSTANT FOR$_INCRECLEN = 16059324 DECLARE LONG CONSTANT FOR$_ERRDURWRI = 16059404 DECLARE LONG CONSTANT FOR$_ERRDURREA = 16059484 DECLARE LONG CONSTANT FOR$_RECIO_OPE = 16059564 DECLARE LONG CONSTANT FOR$_INSVIRMEM = 16059644 DECLARE LONG CONSTANT FOR$_NO_SUCDEV = 16059724 DECLARE LONG CONSTANT FOR$_FILNAMSPE = 160 59804 DECLARE LONG CONSTANT FOR$_INCRECTYP = 16059884 DECLARE LONG CONSTANT FOR$_KEYVALERR = 16059964 DECLARE LONG CONSTANT FOR$_INCOPECLO = 16060044 DECLARE LONG CONSTANT FOR$_WRIREAFIL = 16060124 DECLARE LONG CONSTANT FOR$_INVARGFOR = 16060204 DECLARE LONG CONSTANT FOR$_INVKEYSPE = 16060284 DECLARE LONG CONSTANT FOR$_INCKEYCHG = 16060364 DECLARE LONG CONSTANT FOR$_INCFILORG = 16060444 DECLARE LONG CONSTANT FOR$_SPERECLOC = 16060524 DECLARE LONG CONSTANT FOR$_NO_CURREC = 16060604 DECLARE LONG CONSTANT FOR$_REWRITERR = 16060681 DECLARE LONG CONSTANT FOR$_DELERR = 16060761 DECLARE LONG CONSTANT FOR$_UNLERR = 16060841 DECLARE LONG CONSTANT FOR$_FINERR = 16060924 DECLARE LONG CONSTANT FOR$_MORONEREC = 16058524 DECLARE LONG CONSTANT FOR$_ATTREANON = 16059241 DECLARE LONG CONSTANT FOR$_FMTSYN = 16060994 DECLARE LONG CONSTANT FOR$_LISIO_SYN = 16061084 DECLARE LONG CONSTANT FOR$_INFFORLOO  = 16061164 DECLARE LONG CONSTANT FOR$_FORVARMIS = 16061244 DECLARE LONG CONSTANT FOR$_SYNERRFOR = 16061324 DECLARE LONG CONSTANT FOR$_OUTCONERR = 16061384 DECLARE LONG CONSTANT FOR$_INPCONERR = 16061481 DECLARE LONG CONSTANT FOR$_FLTINV = 16061564 DECLARE LONG CONSTANT FOR$_OUTSTAOVE = 16061644 DECLARE LONG CONSTANT FOR$_INPSTAREQ = 16061724 DECLARE LONG CONSTANT FOR$_VFEVALERR = 16061801 DECLARE LONG CONSTANT FOR$_SIGINT = 16061861 DECLAR E LONG CONSTANT FOR$_INTOVF = 16061961 DECLARE LONG CONSTANT FOR$_INTDIV = 16062041 DECLARE LONG CONSTANT FOR$_FLTOVF = 16062101 DECLARE LONG CONSTANT FOR$_FLTDIV = 16062181 DECLARE LONG CONSTANT FOR$_FLTUND = 16062261 DECLARE LONG CONSTANT FOR$_SIGFPE = 16062341 DECLARE LONG CONSTANT FOR$_SIGIOT = 16062421 DECLARE LONG CONSTANT FOR$_SUBRNG = 16062522 DECLARE LONG CONSTANT FOR$_SIGTERM = 16062582 DECLARE LONG CONSTANT FOR$_SIGQUIT = 1606266 4 DECLARE LONG CONSTANT FOR$_WRONUMARG = 16062764 DECLARE LONG CONSTANT FOR$_INVARGMAT = 16062841 DECLARE LONG CONSTANT FOR$_UNDEXP = 16062924 DECLARE LONG CONSTANT FOR$_LOGZERNEG = 16063004 DECLARE LONG CONSTANT FOR$_SQUROONEG = 16063084 DECLARE LONG CONSTANT FOR$_SIGLOSMAT = 16063324 DECLARE LONG CONSTANT FOR$_FLOOVEMAT = 16063404 DECLARE LONG CONSTANT FOR$_FLOUNDMAT = 16063464 DECLARE LONG CONSTANT FOR$_ADJARRDIM = 16063804 DECLARE LONG C ONSTANT FOR$_INVMATKEY = 16063884 DECLARE LONG CONSTANT FOR$_FLOCONFAI = 16063944 DECLARE LONG CONSTANT FOR$_CANSTAFIL = 16065004 DECLARE LONG CONSTANT FOR$_OPEREQSEE = 16065965 DECLARE LONG CONSTANT FOR$_BRK_USERBP = 16066767 DECLARE LONG CONSTANT FOR$_BRK_KERNELBP = 16066847 DECLARE LONG CONSTANT FOR$_BRK_BD_TAKEN = 1606700: DECLARE LONG CONSTANT FOR$_BRK_BD_NOTTAKEN = 16067086 DECLARE LONG CONSTANT FOR$_BRK_SSTEPBP = 16067167 DECLARE LONG CON STANT FOR$_BRK_OVERFLOW = 16067246 DECLARE LONG CONSTANT FOR$_BRK_DIVZERO = 16067324 DECLARE LONG CONSTANT FOR$_BRK_RANGE = 16067405 DECLARE LONG CONSTANT FOR$_BRK_RANGE2 = 1606748 ! **********I ! [X-9] THE FOLLOWING ERRORS REFER TO GENTRAP EXCEPTIONS OR SIGNALS & ! AND ARE NOT RETURNED BY IOSTAT.1 DECLARE LONG CONSTANT FOR$_FLTINE = 16067561 DECLARE LONG CONSTANT FOR$_DECOVF = 16067641 DECLARE LONG CONSTANT FOR$_DECDIV = 16067721 DECLAR E LONG CONSTANT FOR$_DECINV = 16067802 DECLARE LONG CONSTANT FOR$_ROPRAND = 16067884 DECLARE LONG CONSTANT FOR$_ASSERTERR = 16067964 DECLARE LONG CONSTANT FOR$_NULPTRERR = 16068041 DECLARE LONG CONSTANT FOR$_STKOVF = 16068124 DECLARE LONG CONSTANT FOR$_STRLENERR = 16068204 DECLARE LONG CONSTANT FOR$_SUBSTRERR = 16068283 DECLARE LONG CONSTANT FOR$_RANGEERR = 1606836 ! **********J ! [X-10] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRA YS5 DECLARE LONG CONSTANT FOR$_INVREALLOC = 1606844 ! ********** ! [X-11]4 DECLARE LONG CONSTANT FOR$_RESACQFAI = 1606852 ! **********J ! [X-12] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYSS ! [X-14] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS.5 DECLARE LONG CONSTANT FOR$_INVDEALLOC = 1606860 ! **********S ! [X-18] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS.6 DECLAR E LONG CONSTANT FOR$_INVDEALLOC2 = 1607020 ! **********\ ! [X-21] NEW ERRORS GENERATED FOR ARGUMENT LENGTHS SHORTER THAN STANDARD SPECIFIES FOR & ! INTRINSIC DATE_AND_TIME.3 ! [X-24] NEW ERROR FOR GENERIC DIVIDE BY ZERO.; ! [X-25] NEW ERROR FOR ARRAY ALLOCATION SIZE OVERFLOW.7 DECLARE LONG CONSTANT FOR$_SHORTDATEARG = 16070367 DECLARE LONG CONSTANT FOR$_SHORTTIMEARG = 16070447 DECLARE LONG CONSTANT FOR$_SHORTZONEARG = 1607052. DECLARE LONG  CONSTANT FOR$_DIV = 16070605 DECLARE LONG CONSTANT FOR$_ARRSIZEOVF = 1607068 ! **********I ! THE FOLLOWING MESSAGES ARE SECONDARY MESSAGES, OR ARE USED ONLY INI ! EXIT HANDLERS, AND THEREFORE DO NOT NEED TO BE (AND SHOULD NOT BE)* ! CONTIGUOUS WITH THE MESSAGES ABOVE.M ! THE NEXT SIX MESSAGES ARE SECONDARY MESSAGES FOR USE WITH MIXFILACC IN ! FOR$$IO_BEG AND FOR$$CB.4 DECLARE LONG CONSTANT FOR$_UNFIO_FMT = 16076844 DECLARE LONG CONSTANT FOR$_FMT IO_UNF = 16076924 DECLARE LONG CONSTANT FOR$_DIRIO_KEY = 16077004 DECLARE LONG CONSTANT FOR$_SEQIO_DIR = 16077084 DECLARE LONG CONSTANT FOR$_KEYIO_DIR = 16077164 DECLARE LONG CONSTANT FOR$_IO_NONFOR = 1607724M ! THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN# ! FOR$$UDF_WF AND FOR$$UDF_WL.4 DECLARE LONG CONSTANT FOR$_INVTEXREC = 16077321 DECLARE LONG CONSTANT FOR$_INVTEX = 1607740$ ! ADDITIONAL SECONDARY MESSAGES4 DECL ARE LONG CONSTANT FOR$_OPEREQDIS = 16077484 DECLARE LONG CONSTANT FOR$_OPEREQSEQ = 16077564 DECLARE LONG CONSTANT FOR$_PROABOUSE = 16077625 DECLARE LONG CONSTANT FOR$_FLOCONFAIU = 1607770 ! **********T ! [X-13] THE FOLLOWING MESSAGE IS A FATAL MESSAGE ACCORDING TO THE F90 STANDARD4 DECLARE LONG CONSTANT FOR$_ENDRECDUR = 1607780[ ! THESE NEXT 4 MESSAGES ARE USED IN THE EXIT HANDLER WHICH IS DECLARED BY FOR$HANDLER.4 DECLARE LONG CONSTANT FOR$_FLOINEEXC =  16080034 DECLARE LONG CONSTANT FOR$_FLOINVEXC = 16080114 DECLARE LONG CONSTANT FOR$_FLOOVFEXC = 16080195 DECLARE LONG CONSTANT FOR$_FLODIV0EXC = 16080274 DECLARE LONG CONSTANT FOR$_FLOUNDEXC = 16080356 DECLARE LONG CONSTANT FOR$_VECALIGNEXC = 1608043 ! END OF SPECIAL MESSAGES ! ********** ! **********G ! RESERVE A NUMBER FOR A MESSAGE TO REPORT COMPILED CODE GENERATED ! RUNTIME ERRORS.4 DECLARE LONG CONSTANT FOR$_MSGBUFOVF = 1608828 5 DECLARE LONG CONSTANT FOR$_DIAGNOSTIC = 1608836 ! **********D ! THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE 9 ! VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT.  ! 4 DECLARE LONG CONSTANT FOR$_FATINTERR = 16097325 DECLARE LONG CONSTANT FOR$_SUBPRCDIED = 16097404 DECLARE LONG CONSTANT FOR$_NOTIMPRET = 16097485 DECLARE LONG CONSTANT FOR$_FAIOWNERID = 16097563 DECLARE LONG CONSTANT FOR$_FAIPRCID = 16097645 DECLARE LO NG CONSTANT FOR$_FAIPRCNAME = 16097724 DECLARE LONG CONSTANT FOR$_FAIACTCPU = 16097803 DECLARE LONG CONSTANT FOR$_FAIIDPRC = 16097886 DECLARE LONG CONSTANT FOR$_FAIIMAGNAME = 16097965 DECLARE LONG CONSTANT FOR$_FAIDCLEXIT = 16098044 DECLARE LONG CONSTANT FOR$_FAISUBPRC = 16098124 DECLARE LONG CONSTANT FOR$_INVNUMPRC = 16098204 DECLARE LONG CONSTANT FOR$_MEMSHRERR = 16098286 DECLARE LONG CONSTANT FOR$_LOCALSHRERR = 16098366 DECLARE LONG CONSTANT FOR$_LOCALACCESS = 16098444 DECLARE LONG CONSTANT FOR$_INVLCLADR = 16098524 DECLARE LONG CONSTANT FOR$_COMSHRERR = 16098604 DECLARE LONG CONSTANT FOR$_INVCOMADR = 16098685 DECLARE LONG CONSTANT FOR$_PARINITERR = 16098766 DECLARE LONG CONSTANT FOR$_STACKSHRERR = 16098846 DECLARE LONG CONSTANT FOR$_FAISHRSTACK = 16098924 DECLARE LONG CONSTANT FOR$_INVUNWIND = 16099004 DECLARE LONG CONSTANT FOR$_STKBUFOVR = 16099084 DECLARE LONG CONSTANT FOR$_SUBPRCD EL = 1609916D DECLARE LONG CONSTANT FOR$_ASSERTFAIL = 1609924 ! **********P ! THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM MICORSOFT FORTRAN AND NOW ! VISUAL FORTRAN. ! ? ! [X-16] THE FOLLOWING ERRORS REFER TO MSF ERROR MESSAGES.@ ! THESE MESSAGES MUST REMAIN IN CONTIGUOUS ORDER SO THAT ANC ! OFFSET INTO A MAPPING ARRAY CAN BE COMPUTED FROM THE MESSAGEC ! BASE NUMBER, WHICH IS 540 FOR MSF MESSAGES. THAT WAY VISUAL> ! FORTRAN CAN RETURN IOSTAT NUM BERS SIMILAR TO MSF. ALSOA ! WE PUT THESE MESSAGES THIS FAR DOWN TO KEEP IN SYNCH WITH B ! THE VMS MESSAGE FILE. IT HAS CONTIGUOUS OPENINGS UP TO 768C ! IN THIS RANGE. THE NEXT CONTIGUOUS OPENING BEGINS FROM 1024.0 DECLARE LONG CONSTANT FOR$_F6096 = 16099560 DECLARE LONG CONSTANT FOR$_F6097 = 16099640 DECLARE LONG CONSTANT FOR$_F6098 = 16099720 DECLARE LONG CONSTANT FOR$_F6099 = 16099800 DECLARE LONG CONSTANT FOR$_F6100 = 16099880 DECLARE LONG CON STANT FOR$_F6101 = 16099960 DECLARE LONG CONSTANT FOR$_F6102 = 16100040 DECLARE LONG CONSTANT FOR$_F6103 = 16100120 DECLARE LONG CONSTANT FOR$_F6104 = 16100200 DECLARE LONG CONSTANT FOR$_F6105 = 16100280 DECLARE LONG CONSTANT FOR$_F6106 = 16100360 DECLARE LONG CONSTANT FOR$_F6200 = 16100440 DECLARE LONG CONSTANT FOR$_F6201 = 16100520 DECLARE LONG CONSTANT FOR$_F6202 = 16100600 DECLARE LONG CONSTANT FOR$_F6203 = 16100680 DECLARE LONG CONSTANT FOR$_F6204 = 16100760 DECLARE LONG CONSTANT FOR$_F6205 = 16100840 DECLARE LONG CONSTANT FOR$_F6206 = 16100920 DECLARE LONG CONSTANT FOR$_F6207 = 16101000 DECLARE LONG CONSTANT FOR$_F6208 = 16101080 DECLARE LONG CONSTANT FOR$_F6209 = 16101160 DECLARE LONG CONSTANT FOR$_F6210 = 16101240 DECLARE LONG CONSTANT FOR$_F6211 = 16101320 DECLARE LONG CONSTANT FOR$_F6212 = 16101400 DECLARE LONG CONSTANT FOR$_F6213 = 16101480 DECLARE LONG CONSTANT FOR$_F 6214 = 16101560 DECLARE LONG CONSTANT FOR$_F6300 = 16101640 DECLARE LONG CONSTANT FOR$_F6301 = 16101720 DECLARE LONG CONSTANT FOR$_F6302 = 16101800 DECLARE LONG CONSTANT FOR$_F6303 = 16101880 DECLARE LONG CONSTANT FOR$_F6304 = 16101960 DECLARE LONG CONSTANT FOR$_F6305 = 16102040 DECLARE LONG CONSTANT FOR$_F6306 = 16102120 DECLARE LONG CONSTANT FOR$_F6307 = 16102200 DECLARE LONG CONSTANT FOR$_F6308 = 16102280 DECLARE LONG CONSTANT FOR$_F6309 =  16102360 DECLARE LONG CONSTANT FOR$_F6310 = 16102440 DECLARE LONG CONSTANT FOR$_F6311 = 16102520 DECLARE LONG CONSTANT FOR$_F6312 = 16102600 DECLARE LONG CONSTANT FOR$_F6313 = 16102680 DECLARE LONG CONSTANT FOR$_F6314 = 16102760 DECLARE LONG CONSTANT FOR$_F6315 = 16102840 DECLARE LONG CONSTANT FOR$_F6316 = 16102920 DECLARE LONG CONSTANT FOR$_F6317 = 16103000 DECLARE LONG CONSTANT FOR$_F6318 = 16103080 DECLARE LONG CONSTANT FOR$_F6319 = 16103 160 DECLARE LONG CONSTANT FOR$_F6400 = 16103240 DECLARE LONG CONSTANT FOR$_F6401 = 16103320 DECLARE LONG CONSTANT FOR$_F6402 = 16103400 DECLARE LONG CONSTANT FOR$_F6403 = 16103480 DECLARE LONG CONSTANT FOR$_F6404 = 16103560 DECLARE LONG CONSTANT FOR$_F6405 = 16103640 DECLARE LONG CONSTANT FOR$_F6406 = 16103720 DECLARE LONG CONSTANT FOR$_F6407 = 16103800 DECLARE LONG CONSTANT FOR$_F6408 = 16103880 DECLARE LONG CONSTANT FOR$_F6409 = 16103960  DECLARE LONG CONSTANT FOR$_F6410 = 16104040 DECLARE LONG CONSTANT FOR$_F6411 = 16104120 DECLARE LONG CONSTANT FOR$_F6412 = 16104200 DECLARE LONG CONSTANT FOR$_F6413 = 16104280 DECLARE LONG CONSTANT FOR$_F6414 = 16104360 DECLARE LONG CONSTANT FOR$_F6415 = 16104440 DECLARE LONG CONSTANT FOR$_F6416 = 16104520 DECLARE LONG CONSTANT FOR$_F6417 = 16104600 DECLARE LONG CONSTANT FOR$_F6418 = 16104680 DECLARE LONG CONSTANT FOR$_F6419 = 16104760 DE CLARE LONG CONSTANT FOR$_F6420 = 16104840 DECLARE LONG CONSTANT FOR$_F6421 = 16104920 DECLARE LONG CONSTANT FOR$_F6422 = 16105000 DECLARE LONG CONSTANT FOR$_F6423 = 16105080 DECLARE LONG CONSTANT FOR$_F6424 = 16105160 DECLARE LONG CONSTANT FOR$_F6425 = 16105240 DECLARE LONG CONSTANT FOR$_F6500 = 16105320 DECLARE LONG CONSTANT FOR$_F6501 = 16105400 DECLARE LONG CONSTANT FOR$_F6502 = 16105480 DECLARE LONG CONSTANT FOR$_F6503 = 16105560 DECLARE LONG CONSTANT FOR$_F6504 = 16105640 DECLARE LONG CONSTANT FOR$_F6505 = 16105720 DECLARE LONG CONSTANT FOR$_F6506 = 16105800 DECLARE LONG CONSTANT FOR$_F6507 = 16105880 DECLARE LONG CONSTANT FOR$_F6508 = 16105960 DECLARE LONG CONSTANT FOR$_F6509 = 16106040 DECLARE LONG CONSTANT FOR$_F6510 = 16106120 DECLARE LONG CONSTANT FOR$_F6511 = 16106200 DECLARE LONG CONSTANT FOR$_F6512 = 16106280 DECLARE LONG CONSTANT FOR$_F6513 = 16106360 DECLARE LONG C ONSTANT FOR$_F6514 = 16106440 DECLARE LONG CONSTANT FOR$_F6515 = 16106520 DECLARE LONG CONSTANT FOR$_F6516 = 16106600 DECLARE LONG CONSTANT FOR$_F6600 = 16106680 DECLARE LONG CONSTANT FOR$_F6601 = 16106760 DECLARE LONG CONSTANT FOR$_F6602 = 16106840 DECLARE LONG CONSTANT FOR$_F6700 = 16106920 DECLARE LONG CONSTANT FOR$_F6701 = 16107000 DECLARE LONG CONSTANT FOR$_F6970 = 16107080 DECLARE LONG CONSTANT FOR$_F6971 = 16107160 DECLARE LONG CONSTAN !T FOR$_F6972 = 16107240 DECLARE LONG CONSTANT FOR$_F6980 = 16107320 DECLARE LONG CONSTANT FOR$_F6981 = 16107400 DECLARE LONG CONSTANT FOR$_F6982 = 16107480 DECLARE LONG CONSTANT FOR$_F6983 = 16107560 DECLARE LONG CONSTANT FOR$_F6984 = 16107640 DECLARE LONG CONSTANT FOR$_F6985 = 16107720 DECLARE LONG CONSTANT FOR$_F6986 = 16107800 DECLARE LONG CONSTANT FOR$_F6987 = 16107880 DECLARE LONG CONSTANT FOR$_F6988 = 16107960 DECLARE LONG CONSTANT FOR$ "_F6989 = 16108040 DECLARE LONG CONSTANT FOR$_F6990 = 16108120 DECLARE LONG CONSTANT FOR$_F6991 = 16108200 DECLARE LONG CONSTANT FOR$_F6992 = 16108280 DECLARE LONG CONSTANT FOR$_F6993 = 16108360 DECLARE LONG CONSTANT FOR$_F6994 = 16108440 DECLARE LONG CONSTANT FOR$_F6995 = 16108520 DECLARE LONG CONSTANT FOR$_F6996 = 16108600 DECLARE LONG CONSTANT FOR$_F6997 = 16108680 DECLARE LONG CONSTANT FOR$_F6998 = 16108760 DECLARE LONG CONSTANT FOR$_F6999 # = 16108840 DECLARE LONG CONSTANT FOR$_F6702 = 16108920 DECLARE LONG CONSTANT FOR$_F6703 = 16109000 DECLARE LONG CONSTANT FOR$_F6704 = 16109080 DECLARE LONG CONSTANT FOR$_F6705 = 16109160 DECLARE LONG CONSTANT FOR$_F6706 = 16109240 DECLARE LONG CONSTANT FOR$_F6707 = 16109320 DECLARE LONG CONSTANT FOR$_F6708 = 16109400 DECLARE LONG CONSTANT FOR$_F6709 = 16109480 DECLARE LONG CONSTANT FOR$_F6710 = 16109560 DECLARE LONG CONSTANT FOR$_F6711 = 161 $09640 DECLARE LONG CONSTANT FOR$_F6712 = 16109720 DECLARE LONG CONSTANT FOR$_F6713 = 16109800 DECLARE LONG CONSTANT FOR$_F6714 = 16109880 DECLARE LONG CONSTANT FOR$_F6715 = 16109960 DECLARE LONG CONSTANT FOR$_F6716 = 16110040 DECLARE LONG CONSTANT FOR$_F6717 = 16110120 DECLARE LONG CONSTANT FOR$_F6718 = 16110200 DECLARE LONG CONSTANT FOR$_F6719 = 16110280 DECLARE LONG CONSTANT FOR$_F6720 = 16110360 DECLARE LONG CONSTANT FOR$_F6721 = 16110440 % DECLARE LONG CONSTANT FOR$_F6722 = 16110520 DECLARE LONG CONSTANT FOR$_F6723 = 16110600 DECLARE LONG CONSTANT FOR$_F6724 = 16110680 DECLARE LONG CONSTANT FOR$_F6725 = 16110760 DECLARE LONG CONSTANT FOR$_F6726 = 16110840 DECLARE LONG CONSTANT FOR$_F6727 = 16110920 DECLARE LONG CONSTANT FOR$_F6728 = 16111000 DECLARE LONG CONSTANT FOR$_F6729 = 16111080 DECLARE LONG CONSTANT FOR$_F6730 = 16111160 DECLARE LONG CONSTANT FOR$_F6731 = 16111240 &DECLARE LONG CONSTANT FOR$_F6732 = 16111320 DECLARE LONG CONSTANT FOR$_F6733 = 16111400 DECLARE LONG CONSTANT FOR$_F6734 = 16111480 DECLARE LONG CONSTANT FOR$_F6735 = 16111560 DECLARE LONG CONSTANT FOR$_F6736 = 16111640 DECLARE LONG CONSTANT FOR$_F6737 = 16111720 DECLARE LONG CONSTANT FOR$_F6738 = 16111800 DECLARE LONG CONSTANT FOR$_F6739 = 16111880 DECLARE LONG CONSTANT FOR$_F6740 = 16111960 DECLARE LONG CONSTANT FOR$_F6741 = 16112040 DECLAR 'E LONG CONSTANT FOR$_F6742 = 16112120 DECLARE LONG CONSTANT FOR$_F6743 = 16112200 DECLARE LONG CONSTANT FOR$_F6744 = 16112280 DECLARE LONG CONSTANT FOR$_F6745 = 16112360 DECLARE LONG CONSTANT FOR$_F6746 = 16112440 DECLARE LONG CONSTANT FOR$_F6747 = 16112520 DECLARE LONG CONSTANT FOR$_F6748 = 16112600 DECLARE LONG CONSTANT FOR$_F6749 = 16112680 DECLARE LONG CONSTANT FOR$_F6750 = 16112760 DECLARE LONG CONSTANT FOR$_F6751 = 16112840 DECLARE LONG ( CONSTANT FOR$_F6752 = 16112920 DECLARE LONG CONSTANT FOR$_F6753 = 16113000 DECLARE LONG CONSTANT FOR$_F6754 = 16113080 DECLARE LONG CONSTANT FOR$_F6755 = 16113160 DECLARE LONG CONSTANT FOR$_F6756 = 16113240 DECLARE LONG CONSTANT FOR$_F6757 = 16113320 DECLARE LONG CONSTANT FOR$_F6758 = 16113400 DECLARE LONG CONSTANT FOR$_F6759 = 16113480 DECLARE LONG CONSTANT FOR$_F6760 = 16113560 DECLARE LONG CONSTANT FOR$_F6761 = 16113640 DECLARE LONG CONST )ANT FOR$_F6762 = 16113720 DECLARE LONG CONSTANT FOR$_F6763 = 16113800 DECLARE LONG CONSTANT FOR$_F6764 = 16113880 DECLARE LONG CONSTANT FOR$_F6765 = 16113960 DECLARE LONG CONSTANT FOR$_F6766 = 16114040 DECLARE LONG CONSTANT FOR$_F6767 = 16114120 DECLARE LONG CONSTANT FOR$_F6768 = 16114200 DECLARE LONG CONSTANT FOR$_F6769 = 16114280 DECLARE LONG CONSTANT FOR$_F6770 = 16114360 DECLARE LONG CONSTANT FOR$_F6771 = 16114440 DECLARE LONG CONSTANT FO *R$_F6772 = 16114520 DECLARE LONG CONSTANT FOR$_F6773 = 16114600 DECLARE LONG CONSTANT FOR$_F6774 = 16114680 DECLARE LONG CONSTANT FOR$_F6775 = 16114760 DECLARE LONG CONSTANT FOR$_F6776 = 16114840 DECLARE LONG CONSTANT FOR$_F6777 = 16114920 DECLARE LONG CONSTANT FOR$_F6778 = 16115000 DECLARE LONG CONSTANT FOR$_F6779 = 16115080 DECLARE LONG CONSTANT FOR$_F6780 = 16115160 DECLARE LONG CONSTANT FOR$_F6781 = 16115240 DECLARE LONG CONSTANT FOR$_F67 +82 = 16115320 DECLARE LONG CONSTANT FOR$_F6783 = 16115400 DECLARE LONG CONSTANT FOR$_F6784 = 16115480 DECLARE LONG CONSTANT FOR$_F6785 = 16115560 DECLARE LONG CONSTANT FOR$_F6786 = 16115640 DECLARE LONG CONSTANT FOR$_F6787 = 16115720 DECLARE LONG CONSTANT FOR$_F6788 = 16115800 DECLARE LONG CONSTANT FOR$_F6789 = 16115880 DECLARE LONG CONSTANT FOR$_F6790 = 16115960 DECLARE LONG CONSTANT FOR$_F6791 = 16116040 DECLARE LONG CONSTANT FOR$_F6792 = 1 ,6116120 DECLARE LONG CONSTANT FOR$_F6793 = 16116200 DECLARE LONG CONSTANT FOR$_F6794 = 16116280 DECLARE LONG CONSTANT FOR$_F6795 = 16116360 DECLARE LONG CONSTANT FOR$_F6796 = 16116440 DECLARE LONG CONSTANT FOR$_F6797 = 16116520 DECLARE LONG CONSTANT FOR$_F6798 = 16116600 DECLARE LONG CONSTANT FOR$_F6799 = 16116680 DECLARE LONG CONSTANT FOR$_F6800 = 16116760 DECLARE LONG CONSTANT FOR$_F6801 = 16116840 DECLARE LONG CONSTANT FOR$_F6802 = 1611692 -0 DECLARE LONG CONSTANT FOR$_F6803 = 16117000 DECLARE LONG CONSTANT FOR$_F6804 = 1611708/ ! END OF SPECIAL MISCROSOFT ERROR MESSAGES ! **********4 DECLARE LONG CONSTANT FOR$_INVLOGNAM = 16117784 DECLARE LONG CONSTANT FOR$_TOOMANPRC = 16117866 DECLARE LONG CONSTANT FOR$_INVDSTRSIZE = 16117945 DECLARE LONG CONSTANT FOR$_DEFVALUSED = 16158755 DECLARE LONG CONSTANT FOR$_UNIPROCESS = 16158834 DECLARE LONG CONSTANT FOR$_NOPARINIT = 16158915  DECLARE LONG CONSTANT FOR$_NOTRUNINPP = 16158995 DECLARE LONG CONSTANT FOR$_NESTPPLOOP = 16159074 DECLARE LONG CONSTANT FOR$_UNAWAKSUB = 1615915 ! END OF FORRTL2 MESSAGES ! **********ww/ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED 0( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN1G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 2 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.20 !  !  ! VERSION: 'X-5' ! P ! *********************************************************************3****P ! * *P ! * COPYRIGHT 2004 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *P ! * *P ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR *P ! * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. *P ! * *P ! *4 CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *P ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *P ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *P ! * COMMERCIAL LICENSE. *P ! * *P ! * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL *P ! * OR EDITORIAL 5ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION *P ! * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND *P ! * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS *P ! * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING *P ! * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN *P ! * ADDITIONAL WARRANTY. *P ! * 6 *P ! ************************************************************************* !  ! MODIFIED BY: ! G ! X-5 CAK ASWIN CHALUPADI 28-FEB-2006K ! ADD NEW LMFLICERR TO SIGNAL WHEN NON-COMPLIANT LICENSET ! IS DETECTED. ALSO ADD TWO OTHER GENERIC ERRORS FOR FURTHER USE. ! 2 ! X-4 DJS DAVID J. SWEENEY 16-FEB-2001B ! ADD NOTIMZONRUL TO BE SIGNALLED WH 7EN THE SYS$TIMEZONE_RULEC ! LOGICAL IS NOT DEFINED, MEANING DAYLIGHT SAVINGS TIME CLOCK$ ! ADJUSTMENT WILL NOT BE MADE. ! G ! X-3 LAD LORI A. DESMARAIS 03-JUN-1993N ! ADD ACCNOTENB, TO BE USED WHEN ACCOUNTING IS DISABLED AND6 ! SJC$_NEW_VERSION ITEM IS PRESENT. ! . ! X-2 RAB RICHARD A. BISHOP 19-MAY-1992- ! PICK UP QMANABORT MESSAGE FROM BLADE: ! , ! X-18 TNF0319 TODD FLOLO 12 FEB 19 892G ! ADD QMANABORT, DENOTING THAT A REQUEST CAUSED THE QUEUE MANAGER ! TO ABORT. !  ! OLD AUDIT TRAIL..... ! / ! X-17 RG40209 RAY GUZMAN 11-NOV-1991F ! ADD THREE NEW MESSAGES TO RETURN TO THE USER. QMGREXISTS ISF ! RETURNED WHEN AN ATTEMPT TO ADD A QUEUE MANAGER NAME THAT ISF ! ALREADY DEFINED IS MADE. TWOQMGRS IS RETURNED WHEN A REQUESTF ! IS MADE THAT WOULD REQUIRE INFORMATION FROM TWO DIFFERENTF ! QUEUE MANAGERS. 9 INVQMANNAM IS RETURNED FOR INVALIDE QUEUEH ! MANAGER NAMES. NOMOREQMGR IS RETURNED DURING WILDCARD SEARCHES. ! / ! X-16 RG40126 RAY GUZMAN 4-APR-1991F ! MODIFY THE TEXT OF TWO MESSAGES INVMSG, NOAUTOSTART ?F ! QUEDISABLED. ALSO REMOVE BADMSG, NOMASTER, ? BADLOCK FROMF ! THIS FILE SINCE THEY ARE NO LONGER USEFUL AND NEVER WENT WITHF ! ANY SHIPPED RELEASE. ALSO ADD FAILCREPRC TO THE LIST OF! ! MESSAGES TO BE SIGNALLED. : ! / ! X-15 RG40063 RAY GUZMAN 8-FEB-1991F ! ADD TWO NEW MESSAGES ONE FOR UNEXPECTED QUEUE MANAGER FAILURES8 ! AND ANOTHER FOR RESOLVING LOST DELPROC MESSAGES. ! / ! X-14 RG40052 RAY GUZMAN 22-JAN-19916 ! MODIFY JBC$_NOTSUPPORTED TO BE A SEVERE ERROR. ! / ! X-13 RG40043 RAY GUZMAN 11-JAN-1991F ! ADD BUFTOOSMALL TO INDICATE THAT ALL THE DESIRED DATA COULDF ! NOT BE RETURNED BECAUSE OF A LIMITTED BUFFER SIZE. ALSO ADDF ;! QMANNOTSTARTED TO INDICATE THAT THE QUEUE MANAGER COULD NOT BE ! STARTED. ! 0 ! X-12 SEH0032 SUSAN HEIMBACH 6-SEP-1990, ! MODIFY NOTSUPPORTED AND TOOMUCHINFO./ ! ADD INITFAIL AND NOMASTER. ! 0 ! 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 - NOS<UCHENT, NOMOREENT. ! / ! X-8 JES0037 JACK SPEIGHT 23-OCT-19869 ! FIX ERROR NFYQUESTATE TO ALLOW A PARAMETER, WHERE7 ! THAT PARAMETER WILL BE USED TO SPECIFY A NUMBER7 ! OF QUEUE STATES - STALLED, STOPPED, PAUSED ETC. ! , ! X-7 JES0036 JACK SPEIGHT 08-SEP-19868 ! ADD NEW MESSAGES FOR VERSION 5.0 - BASE LEVEL 1. ! 0 ! V04-007 JES0035 JACK SPEIGHT 04-OCT-1985( ! CHANGE TEXT FOR JBC$_NOSUCHNODE. ! 0 ! V04-006 JES0034 JACK SPE=IGHT 05-SEP-1985- ! ADD JBC$_NOSUCHNODE, JBC$_RESTARTCOM. ! . ! V04-005 JAK0407 J A KRYCKA 29-APR-1985D ! 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,H ! JBC$_NOMOREJOB, JBC$_NOMOREQUE, JBC$_NOJOBCTX, AND JBC$_NOQUECTX ! MESSAGES. ! 0 ! V04-003 JES0033 JACK SPEIGHT 26-APR-1985A ! >SPECIFY AN EXPLICIT SEVERITY LEVEL FOR EACH ERROR MESSAGE@ ! SO THAT THE DEFINITIONS HERE AGREE WITH WHAT IS ACTUALLYF ! RETURNED BY THE JOB CONTROLLER IN THE USER'S I/O STATUS BLOCK.D ! PRIOR TO THIS CHANGE ALL NON-SUCCESS CODES WERE DEFINED HEREE ! WITH A SEVERITY LEVEL OF WARNING AND THE JOB CONTROLLER ADDEDC ! THE PROPER SEVERITY LEVEL. ALSO MAKE MINOR EDITS TO CERTAIN ! MESSAGE TEXT. ! 3 ! V04-002 JES0032 JACK SPEIGHT 03-APR-1985= ! ?ADD JBC$_RESTRICT, JBC$_NFY_FAILURE, JBC$_NFY_CPULIM,$ ! AND JBC$_NFY_WSVAL MESSAGES. ! 3 ! V04-001 JES0031 JACK SPEIGHT 15-MAR-1985$ ! ADD JBC$_QUENOTSTOP MESSAGE.- DECLARE LONG CONSTANT JBC$_FACILITY = 4 ! U ! THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB9 ! SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. ! K ! THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. ! T ! NOTE: E@RROR CODES WITH ASSOCIATED TEXT OF <> ARE RETIRED ERROR CODES AND HAVE" ! A SEVERITY LEVEL OF SEVERE. ! P DECLARE LONG CONSTANT JBC$_NORMAL = 262145 ! \ DECLARE LONG CONSTANT JBC$_NOCMKRNL = 272386 ! X DECLARE LONG CONSTANT JBC$_NOOPER = 272530 ! \ DECLARE LONG CONSTANT JBC$_NOSYSNAM = 272402 ! 3 DECLARE LONG CONSTANT JB AC$_ILLDEVNAM = 2949163 DECLARE LONG CONSTANT JBC$_UNSDEVTYP = 2949243 DECLARE LONG CONSTANT JBC$_ILLFILNAM = 2949323 DECLARE LONG CONSTANT JBC$_INVQUENAM = 2949400 DECLARE LONG CONSTANT JBC$_NOPRIV = 2949462 DECLARE LONG CONSTANT JBC$_NOQUEHDR = 2949564 DECLARE LONG CONSTANT JBC$_NOQUESPACE = 2949623 DECLARE LONG CONSTANT JBC$_NOSUCHQUE = 2949703 DECLARE LONG CONSTANT JBC$_NOSUCHJOB = 2949783 DECLARE LONG CONSTANT JBC$_NOOPENJOB = 2949864 B DECLARE LONG CONSTANT JBC$_REFERENCED = 2949941 DECLARE LONG CONSTANT JBC$_STARTED = 2950023 DECLARE LONG CONSTANT JBC$_INVITMCOD = 2950123 DECLARE LONG CONSTANT JBC$_INVFUNCOD = 2950202 DECLARE LONG CONSTANT JBC$_EMPTYJOB = 2950263 DECLARE LONG CONSTANT JBC$_JOBQUEDIS = 2950342 DECLARE LONG CONSTANT JBC$_JOBABORT = 2950442 DECLARE LONG CONSTANT JBC$_ACMINVOP = 2950523 DECLARE LONG CONSTANT JBC$_INVPARLEN = 2950603 DECLARE LONG CONSTANT JB CC$_TRMMBXUSE = 2950683 DECLARE LONG CONSTANT JBC$_MAXSYMEXD = 2950763 DECLARE LONG CONSTANT JBC$_SCTTABFUL = 2950843 DECLARE LONG CONSTANT JBC$_CREPRCFAL = 2950923 DECLARE LONG CONSTANT JBC$_SYMNTBFUL = 2951002 DECLARE LONG CONSTANT JBC$_NODSTQUE = 2951063 DECLARE LONG CONSTANT JBC$_INVDSTQUE = 2951163 DECLARE LONG CONSTANT JBC$_JOBDELETE = 2951243 DECLARE LONG CONSTANT JBC$_NORESTART = 2951304 DECLARE LONG CONSTANT JBC$_JOBREQUEUE = 295140 D2 DECLARE LONG CONSTANT JBC$_QUERESET = 2951481 DECLARE LONG CONSTANT JBC$_SYSFAIL = 2951563 DECLARE LONG CONSTANT JBC$_EXECUTING = 2951623 DECLARE LONG CONSTANT JBC$_INVMSGBUF = 2951723 DECLARE LONG CONSTANT JBC$_MISREQPAR = 2951803 DECLARE LONG CONSTANT JBC$_INVPARVAL = 2951883 DECLARE LONG CONSTANT JBC$_INCQUETYP = 2951963 DECLARE LONG CONSTANT JBC$_INCDSTQUE = 2952043 DECLARE LONG CONSTANT JBC$_JOBQUEENA = 2952103 DECLARE LONG CON ESTANT JBC$_NOTASSIGN = 2952184 DECLARE LONG CONSTANT JBC$_INCOMPLETE = 2952263 DECLARE LONG CONSTANT JBC$_INVCHANAM = 2952363 DECLARE LONG CONSTANT JBC$_INVFORNAM = 2952444 DECLARE LONG CONSTANT JBC$_NOSUCHCHAR = 2952504 DECLARE LONG CONSTANT JBC$_NOSUCHFORM = 2952581 DECLARE LONG CONSTANT JBC$_DUPFORM = 2952664 DECLARE LONG CONSTANT JBC$_INCFORMPAR = 2952764 DECLARE LONG CONSTANT JBC$_NOSUCHFILE = 2952823 DECLARE LONG CONSTANT JBC$_DELACCESS = F 2952904 DECLARE LONG CONSTANT JBC$_QUENOTSTOP = 2952984 DECLARE LONG CONSTANT JBC$_NOMORECHAR = 2953064 DECLARE LONG CONSTANT JBC$_NOMOREFILE = 2953144 DECLARE LONG CONSTANT JBC$_NOMOREFORM = 2953223 DECLARE LONG CONSTANT JBC$_NOMOREJOB = 2953303 DECLARE LONG CONSTANT JBC$_NOMOREQUE = 2953382 DECLARE LONG CONSTANT JBC$_NOJOBCTX = 2953462 DECLARE LONG CONSTANT JBC$_NOQUECTX = 2953544 DECLARE LONG CONSTANT JBC$_NOSUCHNODE = 2953621 DECLARE GLONG CONSTANT JBC$_GEN_MAX = 2953704 DECLARE LONG CONSTANT JBC$_QUE_CLOSED = 2953783 DECLARE LONG CONSTANT JBC$_NOSUCHENT = 2953863 DECLARE LONG CONSTANT JBC$_NOMOREENT = 2953945 DECLARE LONG CONSTANT JBC$_JOBCTLABORT = 2954046 DECLARE LONG CONSTANT JBC$_NOTSUPPORTED = 2954127 DECLARE LONG CONSTANT JBC$_NOTMEANINGFUL = 2954195 DECLARE LONG CONSTANT JBC$_QUEDISABLED = 2954265 DECLARE LONG CONSTANT JBC$_NOTDISABLED = 2954343 DECLARE LONG CONST HANT JBC$_NOTENAGEN = 2954423 DECLARE LONG CONSTANT JBC$_ENABLEQUE = 2954483 DECLARE LONG CONSTANT JBC$_QUENOTMOD = 2954591 DECLARE LONG CONSTANT JBC$_ATT_MAX = 2954665 DECLARE LONG CONSTANT JBC$_ATTNOTAVAIL = 2954741 DECLARE LONG CONSTANT JBC$_QEXISTS = 2954824 DECLARE LONG CONSTANT JBC$_NOSUCHQMGR = 2954904 DECLARE LONG CONSTANT JBC$_JOBNOTEXEC = 2954985 DECLARE LONG CONSTANT JBC$_DUPCHARNAME = 2955064 DECLARE LONG CONSTANT JBC$_DUPCHARNUM I= 2955145 DECLARE LONG CONSTANT JBC$_DUPFORMNAME = 2955226 DECLARE LONG CONSTANT JBC$_STKNOTCHANGE = 2955304 DECLARE LONG CONSTANT JBC$_ITMREMOVED = 2955393 DECLARE LONG CONSTANT JBC$_PRIOSMALL = 2955471 DECLARE LONG CONSTANT JBC$_QMANMAX = 2955525 DECLARE LONG CONSTANT JBC$_NOAUTOSTART = 2955605 DECLARE LONG CONSTANT JBC$_NOTALLREQUE = 295568/ DECLARE LONG CONSTANT JBC$_NULL1 = 2955805 DECLARE LONG CONSTANT JBC$_TOOMUCHINFO = 2955866 JDECLARE LONG CONSTANT JBC$_AUTONOTSTART = 295595/ DECLARE LONG CONSTANT JBC$_NULL2 = 2956028 DECLARE LONG CONSTANT JBC$_QMANNOTSTARTED = 2956105 DECLARE LONG CONSTANT JBC$_BUFTOOSMALL = 2956167 DECLARE LONG CONSTANT JBC$_INTERNALERROR = 2956244 DECLARE LONG CONSTANT JBC$_QMGREXISTS = 2956342 DECLARE LONG CONSTANT JBC$_TWOQMGRS = 2956424 DECLARE LONG CONSTANT JBC$_INVQMANNAM = 2956504 DECLARE LONG CONSTANT JBC$_NOMOREQMGR = 2956583 DECLARE LONG C KONSTANT JBC$_QMANABORT = 295668 ! R ! THE FOLLOWING CODES ARE SIGNALLED TO THE CONSOLE OR BROADCAST TO THE USER'S& ! TERMINAL BY THE JOB CONTROLLER. ! M ! THESE MESSAGES ARE NOT PUBLIC AND MAY CHANGE FROM RELEASE TO REALEASE. ! S ! NOTE: THE JOB CONTROLLER ABORTS EXECUTION AND RESTARTS ITSELF WHEN A SEVERE* ! ERROR IS SIGNALLED TO THE CONSOLE. ! 3 DECLARE LONG CONSTANT JBC$_ACCDISERR = 2959392 DECLARE LONG CONSTANT JBC$_ALLOCMEM = 2959483 L DECLARE LONG CONSTANT JBC$_COMREMJBC = 2959562 DECLARE LONG CONSTANT JBC$_INVBLOCK = 2959640 DECLARE LONG CONSTANT JBC$_INVMSG = 2959702 DECLARE LONG CONSTANT JBC$_NEWQUEUE = 2959793 DECLARE LONG CONSTANT JBC$_OPEJBCMBX = 2959881 DECLARE LONG CONSTANT JBC$_PRCREAT = 2959963 DECLARE LONG CONSTANT JBC$_QUEFORMAT = 2960003 DECLARE LONG CONSTANT JBC$_REAJBCMBX = 2960121 DECLARE LONG CONSTANT JBC$_REQUEST = 2960190 DECLARE LONG CONSTANT JBC$ M_SETIMR = 2960263 DECLARE LONG CONSTANT JBC$_SYMCREPRC = 2960340 DECLARE LONG CONSTANT JBC$_SYMDEL = 2960423 DECLARE LONG CONSTANT JBC$_WRIRSPMSG = 2960503 DECLARE LONG CONSTANT JBC$_WRISMBMBX = 2960586 DECLARE LONG CONSTANT JBC$_NFY_COMPLETE = 2960675 DECLARE LONG CONSTANT JBC$_NFY_CURRENT = 2960752 DECLARE LONG CONSTANT JBC$_NFY_HOLD = 2960835 DECLARE LONG CONSTANT JBC$_NFY_PENDING = 2960913 DECLARE LONG CONSTANT JBC$_NFY_TIMER = 2960996 N DECLARE LONG CONSTANT JBC$_STRUCT_LEVEL = 2961074 DECLARE LONG CONSTANT JBC$_DIAGNOSTIC = 2961123 DECLARE LONG CONSTANT JBC$_DIAG_TEXT = 2961203 DECLARE LONG CONSTANT JBC$_DIAG_DATA = 2961282 DECLARE LONG CONSTANT JBC$_RESTRICT = 2961365 DECLARE LONG CONSTANT JBC$_NFY_FAILURE = 2961474 DECLARE LONG CONSTANT JBC$_NFY_CPULIM = 2961553 DECLARE LONG CONSTANT JBC$_NFY_WSVAL = 2961634 DECLARE LONG CONSTANT JBC$_RESTARTCOM = 2961716 DECLARE LONG C OONSTANT JBC$_NFY_NOACCESS = 2961794 DECLARE LONG CONSTANT JBC$_NFY_CHARAC = 2961875 DECLARE LONG CONSTANT JBC$_NFY_NOLOWER = 2961956 DECLARE LONG CONSTANT JBC$_NFY_SIZE_MIN = 2962036 DECLARE LONG CONSTANT JBC$_NFY_SIZE_MAX = 2962112 DECLARE LONG CONSTANT JBC$_NFY_FORM = 2962196 DECLARE LONG CONSTANT JBC$_NFY_QUESTATE = 2962274 DECLARE LONG CONSTANT JBC$_FAILCREPRC = 2962344 DECLARE LONG CONSTANT JBC$_QMANCREPRC = 2962422 DECLARE LONG CONSTANT JBC$ P_INITFAIL = 2962521 DECLARE LONG CONSTANT JBC$_QMANDEL = 2962585 DECLARE LONG CONSTANT JBC$_NOTIMZONRUL = 2962644 DECLARE LONG CONSTANT JBC$_LMFPRCFAIL = 2962723 DECLARE LONG CONSTANT JBC$_LMFLICERR = 2962806 DECLARE LONG CONSTANT JBC$_LMFERROR = 296288 ! = ! THIS IS CONTINUATION OF THE FIRST PORTION OF MESSAGES.U ! THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB9 ! SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE.  ! K ! THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. ! 3 DECLARE LONG CONSTANT JBC$_ACCNOTENB = 298914ww@g ! *** PREDECLARED TYPESM : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )$ END RECORD * %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )B END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF D< %IF %DECLARED SfJ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED T( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINUG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > V %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:22.01 !  ! MODULE: LATMSG.MSG ! VERSION: 'V6.0-064' ! R ! ****************************************** W********************************** ! * *M ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1987, 1990-1995 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTW XARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES N YO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! 1 ! V6.0-064 MICHAEL D. RASPUZZI 16-JAN-19950 ! ADD ERROR MESSAGE FOR INVALID PORT NAME. ! 1 ! V6.0-063 MICHAEL D. RASPUZZI 14-SEP-1994/ ! ADD ERROR MESSAGE FOR INVALID NODE UID. ! 1 ! V6.0-06 Z2 MICHAEL D. RASPUZZI 16-MAY-1994C ! ADD ERROR MESSAGES FOR NEW LAT RATING IMAGE. THIS MESSAGESC ! ARE USED TO INDICATE THE STATE OF THE LAT$RATING IMAGE. IT@ ! SHOULD BE LOADED CORRECTLY IF THE SYSTEM USED THE PROPERA ! LAT STARTUP. HOWEVER, WE ALL KNOW THAT PEOPLE LIKE TO DO ! THINGS THEIR OWN WAY ... ! 1 ! V05-061 MICHAEL D. RASPUZZI 22-FEB-1994B ! ADD NEW REJECT REASON FOR LTPAD. MATCHES DECSERVER REJECT& ! REASON FOR SAME FUNCTION[ALITY. ! 1 ! V05-060 MICHAEL D. RASPUZZI 6-JAN-19949 ! ADD NEW CONNECT MESSAGE FOR LTPAD WHEN DISCONNECT ! CHARACTER IS DISABLED. ! 1 ! V05-059 MICHAEL D. RASPUZZI 30-AUG-1993: ! ADD NEW MESSAGE FOR INCOMPATIBLE PROTOCOL VERSION. ! 1 ! V05-058 MICHAEL D. RASPUZZI 3-MAY-19931 ! ADDED INCOMPATIBLE DRIVER/ACP ERROR CODE. ! 1 ! V05-057 MICHAEL D. RASPUZZI 16-APR-1993* ! ADD MORE CONNECT FAILURE MESSAGES. ! 1 \ ! V05-056 MICHAEL D. RASPUZZI 8-SEP-1992, ! ADD MESSAGE FOR DELETING CONNECTION. ! 1 ! V05-055 MICHAEL D. RASPUZZI 28-AUG-1992: ! ADD INFORMATIONAL ERROR MESSAGE FOR LTPAD TO QUEUE! ! QUEUE POSITION REPORTING. ! 0 ! V05-54 MICHAEL D. RASPUZZI 19-AUG-1992B ! ADD ERROR MESSAGE WHEN ONE TRIES TO RUN LATACP IMPROPERLY. ! 0 ! V05-53 MICHAEL D. RASPUZZI 3-AUG-1992@ ! ADD INFORMATIONAL RETURN FOR LIMITED SERVICE CONNECTION. ]! 0 ! V05-52 MICHAEL D. RASPUZZI 24-JUL-1992$ ! ADD "no active links" ERROR. ! 0 ! V05-51 MICHAEL D. RASPUZZI 13-JAN-1992% ! ADD MISSING LRJ REASON CODES. ! 0 ! V05-50 MICHAEL D. RASPUZZI 4-NOV-19919 ! ADD CONNECT SOLICIT CODE FOR REGULAR CONNECTIONS. ! 0 ! V05-49 MICHAEL D. RASPUZZI 5-SEP-1991> ! ADD LAN DRIVER ERROR MESSAGE SO LAT WON'T START IF VCI ! DRIVERS ARE ABSENT. ! 0 ! V05-48 MICHAEL D. RASPUZZI 1^9-JUN-1991A ! 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. ! 0 ! V05-45 MICHAEL D. RASPUZZI 8-MAR-1991+ ! ADD MESSAGE FOR X SOLICIT REQUESTS. ! 0 _ ! V05-44 MICHAEL D. RASPUZZI 19-JAN-1991" ! ADD QUEUED ENTRY MESSAGES. ! 0 ! V05-43 MICHAEL D. RASPUZZI 31-DEC-1990B ! ADD CONNECTION MESSAGES AND CHANGE "server mode disabled". ! ' ! V05-42 SHOOU YIU 28-NOV-19902 ! ADD MESSAGE FOR LINK NAME THAT IS TOO LONG ! - ! V05-41 ERIC L. MERSHON 25-OCT-1990B ! REMOVE LNKOBS, SRVRSOBS, AND PRTOBS. ADD QUALOBS, CMDOBS. ! 0 ! V05-40 MICHAEL D. RASPUZZI 13-SEP-1990; ! 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-1990B ! ADD CONATMPT AND REMOVE CAPITILIZATION OF THE BEGINNING OF ! SOME MESSAGES. ! - ! V05-37 ERIC L. MERSHON 27-JUN-19908 ! REMOVE QUOTES FROM TODISCON, AND ADD CONFQUAVAL. ! - ! V05-36 ERIC L. MERSHON 13-JUN-1990+ a ! 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 DISPLAY; ! USER'S CUSTOMIZED DISCONNECT CHARACTER (FOR LTPAD). ! 0 ! V05-32 MICHAEL D. RASPUZZI 9-JAN-1990! ! ADD DRIVERNOTSHUT MESSAGE ! - ! V05-31 JAbMES F. CAHILL 15-NOV-19897 ! ADD NEWLOGNAME FOR CREATE PORT/LOG/LOGICAL_NAME ! 0 ! V05-30 MICHAEL D. RASPUZZI 16-OCT-1989= ! ADD VERMISMATCH SO WE CAN USE TO BUILD OLD COMPONENTS ! - ! V05-29 JAMES F. CAHILL 16-OCT-19895 ! ADD LATCP MESSAGES TO SUPPORT /LOG QUALIFIER. ! + ! V05-28 DAVID H. COOK 06-OCT-19895 ! ADD ACPNOCTL, ACPNOKSTK, ACPNOVIRT, NODLIMIT. ! + ! V05-27 DAVID H. COOK 18-SEP-19897 ! ADD NOMORENOcDS, NOMORESVCS, NOSELF, NOTOFFERED. ! + ! V05-26 DAVID H. COOK 04-AUG-1989 ! ADD ENTNOTFOU. ! - ! V05-25 JAMES F. CAHILL 24-JUL-1989 ! ADD CANTATTACH. ! 3 ! V05-24 ELM032 ERIC L. MERSHON 21-JUL-1989. ! CHANGED FAO PARAMETER OF END TO ASCID. ! 3 ! V05-23 ELM023 ERIC L. MERSHON 29-JUN-1989, ! REMOVED FAO ARGUMENTS FROM FAILOVER. ! - ! V05-22 JAMES F. CAHILL 21-JUN-1989 ! ADD CONTROLC. ! 2 d ! V05-21 ELM012 ERIC L. MERSHON 6-JUN-1989* ! REMOVED NORESP AND ADDED TODISCON. ! 1 ! V05-19 DHC002 DAVID H. COOK 30-MAY-1989' ! CREATE AN LAT SHUTDOWN MESSAGE. ! 3 ! V05-17 ELM011 ERIC L. MERSHON 23-MAY-1989> ! CHANGE CONNECTED TO HAVE A SEVERITY LEVEL INDICATOR OFA ! SUCCESS. ADD FLEXIBILITY TO SAME MESSAGE FOR CONNECTIONSD ! TO NODES WHICH HAVE THE SAME NAME AS THE SERVICE THEY OFFER. ! , ! V05-16 SY001 SHOOU YIU 16-MA eY-1989- ! ADD MESSAGES USED BY LTDRIVER MODULES ! 3 ! V05-15 ELM010 ERIC L. MERSHON 16-MAY-1989A ! ADD REMAINING (HOPEFULLY) LAT REJECT CODES AND PWDPROMPT,C ! USED FOR PASSWORD PROMPTING ON PASSWORD PROTECTED SERVICES. ! . ! V05-014 JAMES F. CAHILL 2-MAY-1989A ! CHANGE SEVERITY OF REINITERR AND DRVERROR. RENAME NOTERMD ! TO NOTATERM TO AVOID CONFUSION WITH EXISING MESSAGE NOTERMS. ! 3 ! V05-013 ELM009 ERIC L. MERSHON 1-MAY-1f989 ! ADD NOTERM MESSAGE. ! 4 ! V05-012 ELM008 ERIC L. MERSHON 28-APR-1989@ ! ADD CTRL/Y MESSAGE, AND REMOVE SECOND FAO ARGUMENTS FROM ! CONFAIL AND CONLOST. ! 4 ! V05-011 ELM007 ERIC L. MERSHON 18-APR-1989D ! ADD MESSAGES FOR LTPAD, AND CLEAN OUT MESSAGES INTENDED, BUT! ! NO LONGER NEEDED FOR DDE. ! . ! V05-010 JAMES F. CAHILL 10-APR-1989; ! CHANGE CMDERROR AND INVCMD FROM ERRORS TO WARNINGS. ! . ! V05-009 JgAMES F. CAHILL 9-MAR-1989< ! SHARED MESSAGE INVCMD NOT FOUND, SO ADD LAT$_INVCMD. ! . ! V05-008 JAMES F. CAHILL 9-MAR-1989( ! ADD OUTOFRANGE, REMOVE PRSERROR. ! 4 ! V05-007 ELM006 ERIC L. MERSHON 8-MAR-19898 ! MERGE IN MESSAGES FROM LAT$MESSAGES AND ADD MORE$ ! DECSERVER EMULATOR MESSAGES. ! 4 ! V05-006 ELM005 ERIC L. MERSHON 25-FEB-1989; ! ADD MESSAGES FOR DECSERVER EMULATOR SESSION CONTROL ! 4 ! V05-005 ELM002 ERIhC L. MERSHON 15-FEB-1989' ! ADD DECSERVER EMULATOR MESSAGES ! 3 ! V05-004 DHC0001 DAVID H. COOK 18-NOV-1988 ! ADD ACP MSGS ! 5 ! V05-003 JFC0025 JAMES F. CAHILL 7-SEP-1988 ! ADD TWO MESSAGES FOR LMF ! 5 ! V05-002 JFC0015 JAMES F. CAHILL 10-AUG-1987# ! FIX CAPITALIZATION PROBLEMS ! " ! V05-001 (VARIOUS AUTHORS) ! INITIAL VERSION ! O ! THIS FILE REPRESENTS THE MERGE OF ERROR MESSAGES FOR LATCP, LAT, AN iD LGUO ! LATCP MESSAGES APPEAR FIRST AS THIS FACILITY HAS BEEN SHIPPED. WHILE THEN ! ERROR NAMES ARE CHANGED WITH THE ASSIGNMENT OF A LAT FACILITY CODE, THEK ! ERROR MESSAGE NUMBERS/MEANINGS ARE NOT. NEW ERROR MESSAGES ARE ADDEDB ! AT THE SECTION BELOW WHERE .BASE VALUES HAVE BEEN ASSIGNED. ! / DECLARE LONG CONSTANT LAT$_FACILITY = 3747 DECLARE LONG CONSTANT LAT$_CMDBUFOVFLW = 245432444 DECLARE LONG CONSTANT LAT$_CANTBIND = 245432501 DECLARE LONG C jONSTANT LAT$_IVCMD = 245432581 DECLARE LONG CONSTANT LAT$_IVDEV = 245432662 DECLARE LONG CONSTANT LAT$_IVQUAL = 245432743 DECLARE LONG CONSTANT LAT$_MAXSERV = 245432823 DECLARE LONG CONSTANT LAT$_NOTERMS = 245432902 DECLARE LONG CONSTANT LAT$_NONODE = 245432985 DECLARE LONG CONSTANT LAT$_NOTLOADED = 245433065 DECLARE LONG CONSTANT LAT$_NOTINITED = 245433146 DECLARE LONG CONSTANT LAT$_NOTSTARTED = 245433226 DECLARE LONG CONSTANT LAT$_NOTSTOPPE kD = 245433302 DECLARE LONG CONSTANT LAT$_NOTSET = 245433385 DECLARE LONG CONSTANT LAT$_NOHISTORY = 245433467 DECLARE LONG CONSTANT LAT$_NOSTARTHIST = 245433546 DECLARE LONG CONSTANT LAT$_NOSUCHSERV = 245433626 DECLARE LONG CONSTANT LAT$_NOTFROMLAT = 245433704 DECLARE LONG CONSTANT LAT$_INTERNAL = 245433786 DECLARE LONG CONSTANT LAT$_SERVEXISTS = 245433862 DECLARE LONG CONSTANT LAT$_LOCKED = 245433945 DECLARE LONG CONSTANT LAT$_UNDEFLINK = 2454340 l26 DECLARE LONG CONSTANT LAT$_LINKEXISTS = 245434106 DECLARE LONG CONSTANT LAT$_LINKACTIVE = 245434184 DECLARE LONG CONSTANT LAT$_MAXLINKS = 245434262 DECLARE LONG CONSTANT LAT$_IVPORT = 245434342 DECLARE LONG CONSTANT LAT$_NOLINK = 245434403 DECLARE LONG CONSTANT LAT$_STARTED = 245434513 DECLARE LONG CONSTANT LAT$_STOPPED = 24543459/ DECLARE LONG CONSTANT LAT$_SET = 245434675 DECLARE LONG CONSTANT LAT$_NOSERVERS = 24543475 ! 8 ! NEW m MESSAGES ARE ADDED ONLY IN THE SECTIONS BELOW ! 6 DECLARE LONG CONSTANT LAT$_ALREADYDEF = 245448352 DECLARE LONG CONSTANT LAT$_NOTDEF = 245448435 DECLARE LONG CONSTANT LAT$_NOCONTEXT = 245448514 DECLARE LONG CONSTANT LAT$_RELNOTES = 245448593 DECLARE LONG CONSTANT LAT$_ACPINIT = 245448674 DECLARE LONG CONSTANT LAT$_ACPSTATS = 245448754 DECLARE LONG CONSTANT LAT$_FAILOVER = 245448838 DECLARE LONG CONSTANT LAT$_DISCONNECTED = 245448913 DECLAR nE LONG CONSTANT LAT$_LOSTMSG = 245448993 DECLARE LONG CONSTANT LAT$_PWDPROT = 245449076 DECLARE LONG CONSTANT LAT$_OUTOFRANGE = 24544915/ DECLARE LONG CONSTANT LAT$_END = 245449231 DECLARE LONG CONSTANT LAT$_CTRLY = 245449315 DECLARE LONG CONSTANT LAT$_PWDPROMPT = 245449394 DECLARE LONG CONSTANT LAT$_TODISCON = 245449474 DECLARE LONG CONSTANT LAT$_CONTROLC = 24544955L DECLARE LONG CONSTANT LAT$_NEWLINK = 24544963 ! CREATE /LOG MESSAGES3 DECL oARE LONG CONSTANT LAT$_NEWPORT = 245449716 DECLARE LONG CONSTANT LAT$_NEWSERVICE = 245449796 DECLARE LONG CONSTANT LAT$_NEWLOGNAME = 24544987L DECLARE LONG CONSTANT LAT$_DELLINK = 24544995 ! DELETE /LOG MESSAGES3 DECLARE LONG CONSTANT LAT$_DELPORT = 245450036 DECLARE LONG CONSTANT LAT$_DELSERVICE = 245450114 DECLARE LONG CONSTANT LAT$_DELENTRY = 24545019I DECLARE LONG CONSTANT LAT$_MODLINK = 24545027 ! SET /LOG MESSAGES3 DECLARE LONG CONSTANT LAT$ p_MODPORT = 245450356 DECLARE LONG CONSTANT LAT$_MODSERVICE = 245450433 DECLARE LONG CONSTANT LAT$_MODNODE = 24545051K DECLARE LONG CONSTANT LAT$_ZEROLINK = 24545059 ! ZERO /LOG MESSAGES4 DECLARE LONG CONSTANT LAT$_ZEROPORT = 245450677 DECLARE LONG CONSTANT LAT$_ZEROSERVICE = 245450754 DECLARE LONG CONSTANT LAT$_ZERONODE = 245450835 DECLARE LONG CONSTANT LAT$_DEFINEKEY = 245450914 DECLARE LONG CONSTANT LAT$_CONATMPT = 245450999 DECLARE LONG C qONSTANT LAT$_NODECNTRSONLY = 24545107: DECLARE LONG CONSTANT LAT$_CONNECTLIMITED = 245451159 DECLARE LONG CONSTANT LAT$_CONNECTQUEUED = 245451237 DECLARE LONG CONSTANT LAT$_DELETEDCONN = 245451314 DECLARE LONG CONSTANT LAT$_NODISCON = 245451397 DECLARE LONG CONSTANT LAT$_NAMETOOLONG = 245464346 DECLARE LONG CONSTANT LAT$_LOGSTOPPED = 245464427 DECLARE LONG CONSTANT LAT$_CONTEXTINIT = 245464505 DECLARE LONG CONSTANT LAT$_ILLSTRUCT = 245464587 rDECLARE LONG CONSTANT LAT$_CONSISTANCY = 245464662 DECLARE LONG CONSTANT LAT$_NOCNCT = 245464745 DECLARE LONG CONSTANT LAT$_BADGETJPI = 245464825 DECLARE LONG CONSTANT LAT$_BRDCSTMSG = 245464905 DECLARE LONG CONSTANT LAT$_BRDCSTOUT = 245464986 DECLARE LONG CONSTANT LAT$_CANTATTACH = 245465065 DECLARE LONG CONSTANT LAT$_CANTSPAWN = 245465147 DECLARE LONG CONSTANT LAT$_CANTCOPYSTR = 245465225 DECLARE LONG CONSTANT LAT$_ERRCREKBD = 245465305 DE sCLARE LONG CONSTANT LAT$_ERRVIRDPY = 245465386 DECLARE LONG CONSTANT LAT$_NOGCDAVAIL = 245465466 DECLARE LONG CONSTANT LAT$_NOIDBAVAIL = 245465544 DECLARE LONG CONSTANT LAT$_NOITMLST = 245465625 DECLARE LONG CONSTANT LAT$_NOREQUEST = 245465704 DECLARE LONG CONSTANT LAT$_DRVERROR = 245465786 DECLARE LONG CONSTANT LAT$_CANTRUNACP = 245465862 DECLARE LONG CONSTANT LAT$_INVCMD = 245480324 DECLARE LONG CONSTANT LAT$_CMDERROR = 245480405 DECLARE LONG C tONSTANT LAT$_REINITERR = 245480483 DECLARE LONG CONSTANT LAT$_QUALOBS = 245480564 DECLARE LONG CONSTANT LAT$_CNTRSOBS = 245480642 DECLARE LONG CONSTANT LAT$_CMDOBS = 245480725 DECLARE LONG CONSTANT LAT$_CONNECTED = 24549633 ! J ! LAT CONNECTION REJECTION REASON CODES. THESE MESSAGES CORRESPOND TOI ! THE REJECTION REASON CODES GENERATED BY LTDRIVER WHEN A CONNECTIONJ ! REQUEST IS ABORTED (IE. FAILS). THE REASON CODE IS RETURNED IN PARTH ! OF THE IOSB u AND MAY BE TRANSLATED TO THE CORRESPONDING CODE BELOW( ! WITH A SIMPLE TRANSLATION VECTOR. ! 6 DECLARE LONG CONSTANT LAT$_LRJUNKNOWN = 245512367 DECLARE LONG CONSTANT LAT$_LRJSHUTDOWN = 245512447 DECLARE LONG CONSTANT LAT$_LRJRESOURCE = 245512524 DECLARE LONG CONSTANT LAT$_LRJINUSE = 245512608 DECLARE LONG CONSTANT LAT$_LRJNOSERVICE = 245512686 DECLARE LONG CONSTANT LAT$_LRJDISABLE = 245512769 DECLARE LONG CONSTANT LAT$_LRJNOTOFFERED = 24551284: v DECLARE LONG CONSTANT LAT$_LRJNAMEUNKNOWN = 24551292; DECLARE LONG CONSTANT LAT$_LRJACCESSREJECT = 24551300; DECLARE LONG CONSTANT LAT$_LRJACCESSDENIED = 245513086 DECLARE LONG CONSTANT LAT$_LRJCORRUPT = 245513169 DECLARE LONG CONSTANT LAT$_LRJNOTSUPPORT = 245513246 DECLARE LONG CONSTANT LAT$_LRJNOSTART = 245513326 DECLARE LONG CONSTANT LAT$_LRJDELETED = 245513406 DECLARE LONG CONSTANT LAT$_LRJILLEGAL = 245513486 DECLARE LONG CONSTANT LAT$_LRJUS wERDIS = 245513569 DECLARE LONG CONSTANT LAT$_LRJIVPASSWORD = 245513646 DECLARE LONG CONSTANT LAT$_CONTIMEOUT = 24551372: DECLARE LONG CONSTANT LAT$_CONAPPLICATION = 245513807 DECLARE LONG CONSTANT LAT$_LICREQUIRED = 245513887 DECLARE LONG CONSTANT LAT$_UNREACHABLE = 245513966 DECLARE LONG CONSTANT LAT$_NOSUCHNODE = 245514042 DECLARE LONG CONSTANT LAT$_NOSRVC = 245514125 DECLARE LONG CONSTANT LAT$_PWDSYNTAX = 245514203 DECLARE LONG CONSTANT LAT$ x_SERUNAV = 245514282 DECLARE LONG CONSTANT LAT$_SESLIM = 245514364 DECLARE LONG CONSTANT LAT$_SRVCNODE = 245514441 DECLARE LONG CONSTANT LAT$_VCLIM = 245514523 DECLARE LONG CONSTANT LAT$_NODUNAV = 245514603 DECLARE LONG CONSTANT LAT$_INITERR = 245514684 DECLARE LONG CONSTANT LAT$_OUTERROR = 245514764 DECLARE LONG CONSTANT LAT$_AUTHFAIL = 245514843 DECLARE LONG CONSTANT LAT$_CONFAIL = 245514923 DECLARE LONG CONSTANT LAT$_CONLOST = 245515002 y DECLARE LONG CONSTANT LAT$_INSRES = 245515084 DECLARE LONG CONSTANT LAT$_NOMASTER = 245515163 DECLARE LONG CONSTANT LAT$_TIMEOUT = 245515243 DECLARE LONG CONSTANT LAT$_PROTERR = 245515322 DECLARE LONG CONSTANT LAT$_SRVDIS = 245515401 DECLARE LONG CONSTANT LAT$_NOACP = 245515482 DECLARE LONG CONSTANT LAT$_NOSLOT = 245515563 DECLARE LONG CONSTANT LAT$_BADCIRC = 245515644 DECLARE LONG CONSTANT LAT$_VCSESLIM = 245515723 DECLARE LONG CONSTANT LA zT$_BADLINK = 245515804 DECLARE LONG CONSTANT LAT$_NOTATERM = 245515881 DECLARE LONG CONSTANT LAT$_NOCIB = 245515967 DECLARE LONG CONSTANT LAT$_INSRESOURCE = 245516042 DECLARE LONG CONSTANT LAT$_CIBLIM = 245516123 DECLARE LONG CONSTANT LAT$_PROTVIO = 245516202 DECLARE LONG CONSTANT LAT$_NOROOM = 245516288 DECLARE LONG CONSTANT LAT$_LISTTOOSHORT = 245516367 DECLARE LONG CONSTANT LAT$_LATSTOPPING = 245516447 DECLARE LONG CONSTANT LAT$_NOTWITHCONN { = 245516525 DECLARE LONG CONSTANT LAT$_ENTNOTFOU = 245516606 DECLARE LONG CONSTANT LAT$_NOMORENODS = 245516686 DECLARE LONG CONSTANT LAT$_NOMORESVCS = 245516762 DECLARE LONG CONSTANT LAT$_NOSELF = 245516846 DECLARE LONG CONSTANT LAT$_NOTOFFERED = 245516924 DECLARE LONG CONSTANT LAT$_ACPNOCTL = 245517005 DECLARE LONG CONSTANT LAT$_ACPNOKSTK = 245517085 DECLARE LONG CONSTANT LAT$_ACPNOVIRT = 245517164 DECLARE LONG CONSTANT LAT$_NODLIMIT = 245517 |247 DECLARE LONG CONSTANT LAT$_VERMISMATCH = 245517329 DECLARE LONG CONSTANT LAT$_DRIVERNOTSHUT = 245517406 DECLARE LONG CONSTANT LAT$_CONFQUAVAL = 245517484 DECLARE LONG CONSTANT LAT$_NODESHUT = 245517567 DECLARE LONG CONSTANT LAT$_INCDISABLED = 245517647 DECLARE LONG CONSTANT LAT$_CANTMODCONN = 245517725 DECLARE LONG CONSTANT LAT$_UNDEFCONN = 245517806 DECLARE LONG CONSTANT LAT$_NOMORECONN = 245517886 DECLARE LONG CONSTANT LAT$_UNDEFENTRY = }245517969 DECLARE LONG CONSTANT LAT$_NOMOREENTRIES = 245518048 DECLARE LONG CONSTANT LAT$_ENTRYDELONLY = 245518124 DECLARE LONG CONSTANT LAT$_XSOLICIT = 245518204 DECLARE LONG CONSTANT LAT$_NOLANDEV = 245518285 DECLARE LONG CONSTANT LAT$_SOLGENSVC = 245518367 DECLARE LONG CONSTANT LAT$_LRJUSERDISC = 245518448 DECLARE LONG CONSTANT LAT$_LRJNOTQUEUED = 245518526 DECLARE LONG CONSTANT LAT$_NOACTLINKS = 24551860: DECLARE LONG CONSTANT LAT$_CONNDELET EONLY = 24551868: DECLARE LONG CONSTANT LAT$_LRJREMDISABLED = 245518768 DECLARE LONG CONSTANT LAT$_INCOMPDRVACP = 245518848 DECLARE LONG CONSTANT LAT$_LRJINCOMPVER = 245518924 DECLARE LONG CONSTANT LAT$_LRJIVMSG = 245519009 DECLARE LONG CONSTANT LAT$_NORATINGIMAGE = 245519089 DECLARE LONG CONSTANT LAT$_RATINGNOTINIT = 245519166 DECLARE LONG CONSTANT LAT$_INVNODEUID = 24551924ww& ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! C ! This package defines the interfaces to the Librarian utilityG ! 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 ! ) EXTERNAL LONG FUNCTION LBR$CLOSE & ( &! LONG BY REF & ) ! / ! LBR$DELETE_DATA - Delete a module's data ! @ ! status = LBR$DELETE_DATA (library_index, txtrfa [,flags]) ! ? ! library_index - Index value returned by LBR$INI_CONTROLA ! txtrfa - RFA of module header for module to delete ! flags - key flags ! / EXTERNAL LONG FUNCTION LBR$DELETE_DATA & ( &" LONG BY REF, &! ANY BY REF, &+ OPTIONAL LONG BY VALUE & ) ! $ ! LBR$DELETE_KEY - Delete a key ! K ! status = LBR$DELETE_KEY (library_index, key_name [,txtrfa] [,flags]) ! ? ! library_index - Index value returned by LBR$INI_CONTROLF ! key_name - Key to be deleted - for binary keys, passed byA ! reference, for string keys, by descriptor9 ! txtrfa - RFA of module header for key to delete ! flags - key flags ! . EXTERNAL LONG FUNCTION LBR$DELETE_KEY & ( &" LONG BY REF, &! ANY BY REF, &) OPTIONAL ANY BY REF, &# LONG BY VALUE & ) ! , ! LBR$FIND - Lookup a module by its RFA ! 0 ! status = LBR$FIND (library_index, txtrfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROL/ ! txtrfa - RFA of module to access ! ( EXTERNAL LONG FUNCTION LBR$FIND & ( &" LONG BY REF, & ANY BY REF & ) ! ) ! LBR$FLUSH - Recover virtual memory ! 5 ! status = LBR$FLUSH (library_index, block_type) ! ? ! library_index - Index value returned by LBR$INI_CONTROL5 ! block_type - Extent of the flush operation) EXTERNAL LONG FUNCTION LBR$FLUSH & ( &" LONG BY REF, &# LONG BY VALUE & ) ! ; ! LBR$GET_HEADER - Retrieve library header information ! 6 ! status = LBR$GET_HEADER (library_index, retary) ! ? ! library_index - Index value returned by LBR$INI_CONTROLH ! retary - Array of 128 longwords to receive library header ! . EXTERNAL LONG FUNCTION LBR$GET_HEADER & ( &" LONG BY REF, & ANY BY REF & ) ! ( ! LBR$GET_HELP - Retrieve help text ! D ! status = LBR$GET_HELP (library_index [,line_width] [,routine]2 ! [,data] [,key_n...])? ! library_index - Index value returned by LBR$INI_CONTROL3 ! line_width - Width of the help text line: ! routine - Routine called to output text line3 ! data - User data passed to routine0 ! key_n - Zero or more key strings ! , EXTERNAL LONG FUNCTION LBR$GET_HELP & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! A ! 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_CONTROL; ! action_routine - Routine to process history records ! / EXTERNAL LONG FUNCTION LBR$GET_HISTORY & ( &" LONG BY REF, &# LONG BY VALUE & ) ! ; ! LBR$GET_INDEX - Call routine for selected index keys ! H ! status = LBR$GET_INDEX (library_index, index_number, routine_name5 ! [,match_desc] [,flags]) ! ? ! library_index - Index value returned by LBR$INI_CONTROL5 ! index_number - Number of the index to search: ! routine_name - User routine to process selections+ ! match_desc - Key matching string ! flags - Key flags ! - EXTERNAL LONG FUNCTION LBR$GET_INDEX & ( &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &- OPTIONAL STRING BY DESC, &# LONG BY VALUE & ) ! * ! LBR$GET_R ECORD - Read a data record ! G ! status = LBR$GET_RECORD (library_index [,inbufdes] [,outbufdes]) ! ? ! library_index - Index value returned by LBR$INI_CONTROL0 ! inbufdes - Buffer to receive recordE ! outbufdes - Descriptor receiving information about record. EXTERNAL LONG FUNCTION LBR$GET_RECORD & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, & ANY BY REF &  ) ! ? ! LBR$INI_CONTROL - Initialize a library control structure ! G ! status = LBR$INI_CONTROL (library_index, func [,type] [,namblk]) ! - ! library_index - Receives index value 0 ! func - Function to be performed' ! type - Type of library1 ! namblk - RMS NAM block for library ! / EXTERNAL LONG FUNCTION LBR$INI_CONTROL & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, & ANY BY REF & ) ! ( ! LBR$INSERT_KEY - Insert a new key ! I ! status = LBR$INSERT_KEY (library_index, key_name, txtrfa [,flags]) ! ? ! library_index - Index value returned by LBR$INI_CONTROLH ! key_name - Name of key to insert (reference for binary key,0 ! descriptor for text key)% ! txtrfa - RFA of module ! flags - key flags ! . EXTERNAL LONG FUNCTION LBR$INSERT_KEY & ( &" LONG BY REF, &! ANY BY REF, &! ANY BY REF, &+ OPTIONAL LONG BY VALUE & ) ! - ! LBR$LOOKUP_KEY - Look up a library key ! I ! status = LBR$LOOKUP_KEY (library_index, key_name, txtrfa [,flags]) ! ? ! library_index - Index value returned by LBR$INI_CONTROLH ! key_name - Name of key to insert (reference for binary key,0 ! descriptor for text key). ! txtrfa - Receives RFA of module$ ! flags - Receives key flags ! . EXTERNAL LONG FUNCTION LBR$LOOKUP_KEY & ( &" LONG BY REF, &! ANY BY REF, &! ANY BY REF, &) OPTIONAL LONG BY REF & ) ! E ! LBR$LOOKUP_TYPE - Look up a type of key with specified RFA in ' ! library's current index ! H ! status = LBR$LOOKUP_TYPE (library_index, key_name, txtrfa, flags) ! ? ! library_index - Index value returned by LBR$INI_CONTROLH ! key_name - Name of key to insert (reference for binary key,0 ! descriptor for text key)% ! txtrfa - RFA of module& ! flags - Receives type of key ! / EXTERNAL LONG FUNCTION LBR$LOOKUP_TYPE & ( &" LONG BY REF, &!  ANY BY REF, &! ANY BY REF, &! LONG BY REF & ) ! * ! LBR$OPEN - Open or create a library ! G ! status = LBR$OPEN (library_index [,fns] [,create_options] [,dns]3 ! [,rlfna] [,rns] [,rnslen]) ! @ ! library_index - Index value returned by LBR$INI_CONTROL: ! fns - File specification of the libraryC ! create_options - Library characteristics ($LBRDEF, $CREDEF )3 ! dns - Default file specification0 ! rlfna - Related file name block> ! rns - Receives resultant file specificationH ! rnslen - Receives length of resultant file specification ! ( EXTERNAL LONG FUNCTION LBR$OPEN & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &! ANY BY REF, &% STRING BY DESC, &! ANY BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! - ! LBR$OUTPUT_HELP - Output help messages ! L ! status = LBR$OUTPUT_HELP (output_routine [,output_width] [,line_desc]K ! [,library_name] [,flags] [,input_routine]) ! < ! output_routine - Routine called to output text lines6 ! output_width - Maximum width of output lines* ! line_desc - Help request line1 ! library_name - Name of the help library3 ! flags - Flags to control operation3 ! input_routine - Routine used for prompting ! / EXTERNAL LONG FUNCTION LBR$OUTPUT_HELP & ( &$ LONG BY VALUE, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) ! K ! LBR$PUT_MODULE - Put an ELF object module to the ELF object library. ! B ! status = LBR$PUT_MODULE (library_index, addr, size, txtrfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROL/ ! addr - address of the ELF object module, ! size - Size of the ELF object module' ! txtrfa - Receives RFA of module ! . EXTERNAL LONG FUNCTION LBR$PUT_MODULE & ( &" LONG BY REF, &, BASIC$QUADWORD BY REF, &,  BASIC$QUADWORD BY REF, & ANY BY REF & ) ! 2 ! LBR$PUT_END - Write an end-of-module record ! + ! status = LBR$PUT_END (library_index) ! ? ! library_index - Index value returned by LBR$INI_CONTROL ! + EXTERNAL LONG FUNCTION LBR$PUT_END & ( &! LONG BY REF & ) ! 7 ! LBR$PUT_HISTORY - Write an update history record ! < ! status = LBR$PUT_HISTORY (library_index, record_desc) ! ? ! library_index - Index value returned by LBR$INI_CONTROL& ! record_desc - History record ! / EXTERNAL LONG FUNCTION LBR$PUT_HISTORY & ( &" LONG BY REF, &$ STRING BY DESC & ) ! + ! LBR$PUT_RECORD - Write a data record ! I ! status = LBR$PUT_RECORD (library_index, bufdes, txtrfa [,modsize]) ! ? ! library_index - Index value returned by LBR$INI_CONTROL, ! bufdes - Record to be written. ! txtrfa - Receives RFA of module* ! modsize - ELF object module size. EXTERNAL LONG FUNCTION LBR$PUT_RECORD & ( &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &3 OPTIONAL BASIC$QUADWORD BY REF & ) ! . ! LBR$REPLACE_KEY - Replace a library key ! R ! status = LBR$RE PLACE_KEY (library_index, key_name, oldrfa, newrfa [,flags]) ! ? ! library_index - Index value returned by LBR$INI_CONTROLF ! key_name - Name of key, passed by reference or descriptor0 ! oldrfa - RFA of old module header0 ! newrfa - RFA of new module header ! flags - key flags ! / EXTERNAL LONG FUNCTION LBR$REPLACE_KEY & ( &" LONG BY REF, &! ANY BY REF, &!  ANY BY REF, &! ANY BY REF, &+ OPTIONAL LONG BY VALUE & ) ! 3 ! LBR$RET_RMSSTV - Return VMS RMS status value ! ! ! status = LBR$RET_RMSSTV () ! , EXTERNAL LONG FUNCTION LBR$RET_RMSSTV ! # ! LBR$SEARCH - Search an index ! E ! status = LBR$SEARCH (library_index, index_number, rfa_to_find,- ! routine_name [,flags]) ! ? ! library_index - Index value returned by LBR$INI_CONTROL1 ! index_number - Number of index to search3 ! rfa_to_find - RFA of module to search for6 ! routine_name - Routine called to process keys ! flags - Key flags* EXTERNAL LONG FUNCTION LBR$SEARCH & ( &" LONG BY REF, &" LONG BY REF, &! ANY BY REF, &$ LONG BY VALUE, &+ OPTIONAL LONG BY VALUE & ) ! 3 ! LBR$SET_INDEX - Set the current index number ! ; ! status = LBR$SET_INDEX (library_index, index_number) ! ? ! library_index - Index value returned by LBR$INI_CONTROL( ! index_number - New index number ! - EXTERNAL LONG FUNCTION LBR$SET_INDEX & ( &" LONG BY REF, &! LONG BY REF & ) ! 8 ! LBR$SET_LOCATE - Set record access to locate mode ! . ! status = LBR$SET_LOCATE (library_index) ! ? ! library_index - Index value returned by LBR$INI_CONTROL ! . EXTERNAL LONG FUNCTION LBR$SET_LOCATE & ( &! LONG BY REF & ) ! 6 ! LBR$SET_MODULE - Read or update a module header ! = ! status = LBR$SET_MODULE (library_index, rfa [,bufdesc]+ ! [,buflen] [,updatedesc]) ! ? ! library_index - Index value returned by LBR$INI_CONTROL, ! rfa - RFA of module header. ! bufdesc - Receives module header8 ! buflen - Receives length of module headerL ! updatedesc - Additional information to be stored in module header ! . EXTERNAL LONG FUNCTION LBR$SET_MODULE & ( &" LONG BY REF, &! ANY BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &$ STRING BY DESC & ) ! 4 ! LBR$SET_MOVE - Set record access to move mode ! , ! status = LBR$SET_MOVE (library_index) ! ? ! library_index - Index value returned by LBR$INI_CONTROL ! , EXTERNAL LONG FUNCTION LBR$SET_MOVE & ( &! LONG BY REF & ) ! K ! LBR$MAP_MODULE - Copy/map an ELF object module from current library  ! to the memory space ! ? ! statust = LBR$MAP_MODULE (library_index, addr, len, rfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROL- ! addr - Receives address of the module' ! len - Receives length of module ! rfa - RFA of module ! . EXTERNAL LONG FUNCTION LBR$MAP_MODULE & ( &" LONG BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, & ANY BY REF & ) ! S ! LBR$UNMAP_MODULE - Remove/release an ELF object module from the memory space ! 5 ! status = LBR$UNMAP_MODULE (library_index, rfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROL ! rfa - RFA of module ! 0 EXTERNAL LONG FUNCTION LBR$UNMAP_MODULE & ( &" LONG BY REF, & ANY BY REF & )ww$. ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  M DECLARE LONG CONSTANT LBR$C_CTLTBLID = 203 ! Ident for control table 6 DECLARE LONG CONSTANT LBR$M_LOCATE = x'00000001'4 DECLARE LONG CONSTANT LBR$M_OPEN = x'00000002'- DECLARE LONG CONSTAN T LBR$K_LENGTH = 30- DECLARE LONG CONSTANT LBR$C_LENGTH = 300 DECLARE LONG CONSTANT LBR$S_LBRCTLTBL = 30 record LBRCTLTBL@ BYTE LBR$B_ID ! Control table ID B BYTE LBR$B_TBLSIZ ! Control table size F BYTE LBR$B_TYPE ! Type of library opened N BYTE LBR$B_FUNC ! Operation (function) requested G BYTE LBRCTLTBL$$_FILL_1 ( 1 to 2 ) ! Reserved extra bytes #  group LBR$R_USRFLG_OVERLAY variant case> LONG LBR$L_USRFLG ! Flags longword  case) group LBR$R_USRFLG_BITS> ! Use "locate" rather than "move" mode & ! Library open q BYTE LOCATE_bits ! COMMENT ADDED BY SDL - LOCATE_bits contains bits LOCATE through FILL_0_- end group LBR$R_USRFLG_BITS end variant' end group LBR$R_USRFLG_OVERLAYI LONG LBR$L_HDRPTR ! Pointer to in-core header P LONG LBR$L_CTXPTR ! Pointer to context control block G LONG LBR$L_CURIDX ! Number of current index I LONG LBR$L_USRNAM ! Pointer to user NAM block Z LONG LBR$L_OLDHDRPTR ! Pointer to unmodified in-core header block  end record LBRCTLTBL  ww5 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! Module header ! R DECLARE LONG CONSTANT MHD$C_MHDID = 173 ! Value that must be in the ident V DECLARE LONG CONSTANT MHD$K_REFLNG = 8 ! Length of record to end of ref count V DECLARE LONG CONSTANT MHD$C_REFLNG = 8 ! Length of record to end of ref count Q DECLARE LONG CONSTANT MHD$K_INSTIME = 8 ! Label for start of insert time Q DECLARE LONG CONSTANT MHD$C_INSTIME = 8 ! Label for start of insert time W DECLARE LONG CONSTANT MHD$K_USRDAT = 16 ! Start of user additional header data W DECLARE LONG CONSTANT MHD$C_USRDAT = 16 ! Start of user additional header data N DECLARE LONG CONSTANT MHD$K_MHDLEN = 16 ! Length of fixed part of MH D N DECLARE LONG CONSTANT MHD$C_MHDLEN = 16 ! Length of fixed part of MHD 6 DECLARE LONG CONSTANT MHD$M_SELSRC = x'00000001'6 DECLARE LONG CONSTANT MHD$M_OBJTIR = x'00000002'5 DECLARE LONG CONSTANT MHD$M_WKSYM = x'00000004'4 DECLARE LONG CONSTANT MHD$K_OBJIDENT = 18 ! 4 DECLARE LONG CONSTANT MHD$C_OBJIDENT = 18 ! T DECLARE LONG CONSTANT MHD$K_OREFOFFSET = 52 ! Offset of the other ref. countT DECLARE LONG CONSTANT MHD$C_OREFOFFSET = 52 ! Offset  of the other ref. count- DECLARE LONG CONSTANT MHD$S_MHDDEF = 64 record MHDDEFN BYTE MHD$B_LBRFLAG ! Librarian-controlled flag byte 5 BYTE MHD$B_ID ! Ident = WORD MHDDEF$$_FILL_1 ! Reserved word ? LONG MHD$L_REFCNT ! Reference count B LONG MHD$L_DATIM ! Date/time inserted # group MHD$R_FILL_2_OVERLAY variant c ase3 LONG MHDDEF$$_FILL_2 ! ...  case+ group MHD$R_FILL_2_FIELDS4 BYTE MHDDEF$$_FILL_3 ( 1 to 4 )V STRING MHD$B_USRDAT = 0 ! Start of user additional header data / end group MHD$R_FILL_2_FIELDS end variant' end group MHD$R_FILL_2_OVERLAY$ group MHD$R_OBJSTAT_OVERLAY variant caseG BYTE MHD$B_OBJSTAT  ! Status of object module  case* group MHD$R_OBJSTAT_BITS* ! Selective search 5 ! Module contains TIR records F ! Module contains other non-group global symbolq BYTE SELSRC_bits ! COMMENT ADDED BY SDL - SELSRC_bits contains bits SELSRC through FILL_1_. end group MHD$R_OBJSTAT_BITS end variant( end group MHD$R_OBJSTAT_OVERLAY % group MHD$R_OBJIDLNG_OVERLAY variant case? BYTE MHD$B_OBJIDLNG ! Length of ident  case- group MHD$R_OBJIDLNG_FIELDS) BYTE MHDDEF$$_FILL_4G STRING MHD$T_OBJIDENT = 0 ! Object module ident 1 end group MHD$R_OBJIDLNG_FIELDS end variant) end group MHD$R_OBJIDLNG_OVERLAYZ BYTE MHDDEF$$_FILL_5 ( 1 to 31 ) ! Object module ident data or GSMATCH area7 BYTE MHDDEF$$_FILL_6 ( 1 to 3 ) ! spaceD LONG MHD$L_OTHEREFCNT ! Other reference count: LONG MHD$L_MODSIZE ! Module sizeD LONG MHD$L_FILL_7 ! part of module size. end record MHDDEF  wwf= ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! * ! Data structures for help processing ! 6 DECLARE LONG CONSTANT HLP$M_PROMPT = x'00000001'7 DECLARE LONG CONSTANT HLP$M_PROCESS = x'00000002'5 DECLARE LONG CONSTANT HLP$M_GROUP = x'00000004'6 DECLARE LONG CONSTANT HLP$M_SYSTEM = x'00000008'7 DECLARE LONG CONSTANT HLP$M_LIBLIST = x'00000010'4 DECLARE LONG CONSTANT HLP$M_HELP = x'00000020'6 DECLARE LONG CONSTANT HLP$M_SPARE1 = x'00000040'9 DECLARE LONG CONSTANT HLP$M_PAGE_SAVE = x'00000080'4 DECLARE LONG CONSTANT HLP$M_PAGE = x'00000100'6 DECLARE LONG CONSTANT HLP$M_OUTPUT = x'00000200'7 DECLARE LONG CONSTANT HLP$M_LIBRARY = x'00000400'3 DECLARE LONG CONSTANT HLP$M_ALL = x'00000800'7 DECLARE LONG CONSTANT HLP$M_PAGEDEF = x'00001000'7 DECLARE LONG CONSTANT HLP$M_PMPTDEF = x'00002000'7 DECLARE LONG CONSTANT HLP$M_NOTTERM = x'00004000', DECLARE LONG CONSTANT HLP$S_HLPDEF = 2 record HLPDEF variant case& group HLP$R_HLPDEF_BITS( ! Prompting enabled B ! Process logical name table searches enabled @ ! Group logical name table searches enabled A ! System logical name table searched enabled 7 ! Output list of default libraries A ! Display help on help before list of topics ' ! Page=Save enabled* ! Page breaks enabled 2 ! Output listing file enabled 5 ! Main library specified by user ? ! Some logical name table searches enabled 4 ! Page flag defaulting disable d 6 ! Prompt flag defaulting disabled 5 ! Input device is not a terminal n WORD PROMPT_bits ! COMMENT ADDED BY SDL - PROMPT_bits contains bits PROMPT through FILL_2_* end group HLP$R_HLPDEF_BITS end variant end record HLPDEF 8 DECLARE LONG CONSTANT HLP$M_NOHLPTXT = x'00000001'9 DECLARE LONG CONSTANT HLP$M_KEYNAMLIN = x'00000002'9 DECLARE LONG CONSTANT HLP$M_OTHERINFO = x'00000004'.  DECLARE LONG CONSTANT HLP$S_HLPDEF1 = 16 record HLPDEF1U LONG HLP$L_DESC ! Address of string descriptor for line " group HLP$R_FLAGS_OVERLAY variant case5 LONG HLP$L_FLAGS ! Flags  case( group HLP$R_FLAGS_BITSC ! Line is part of text due to no help found > ! Line contains keynames to be printed @ ! Line is part of "other info available" w BYTE NOHLPTXT_bits ! COMMENT ADDED BY SDL - NOHLPTXT_bits contains bits NOHLPTXT through FILL_3_, end group HLP$R_FLAGS_BITS end variant& end group HLP$R_FLAGS_OVERLAYW LONG HLP$L_DATA ! Address of user data passed to GET_HELP B LONG HLP$L_LEVEL ! Level of this help  end record HLPDEF1  ww,G ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! Types of libraries ! ! Define the library types S DECLARE LONG CONSTANT LBR$C_TYP_UNK = 0 ! Unknown/unspecified library type Q DECLARE LONG CONSTANT LBR$C_TYP_OBJ = 1 ! Object/shareable image library @ DECLARE LONG CONSTANT LBR$C_TYP_MLB = 2 ! Macro library D DECLARE LONG CONSTANT LBR$C_TYP_HLP = 3 ! Help file library ? DECLARE LONG CONSTANT LBR$C_TYP_TXT = 4 ! TEXT library S DECLARE LONG CONSTANT LBR$C_TYP_SHSTB = 5 ! Shareable image symbol library > DECLARE LONG CONSTANT LBR$C_TYP_NCS = 6 ! NCS library X DECLARE LONG CONSTANT LBR$C_TYP_DECMX = 6 ! Maximum Digital library type definedG DECLARE LONG CONSTANT LBR$C_TYP_EOBJ = 7 ! Alpha object libraryY DECLARE LONG CONSTANT LBR$C_TYP_ESHSTB = 8 ! Alpha Shareable image symbol libraryG DECLARE LONG CONSTANT LBR$C_TYP_ELFOBJ = 9 ! ELF object libraryZ DECLARE LONG CONSTANT LBR$C_TYP_ELFSHSTB = 10 ! ELF Shareable image symbol libraryR DECLARE LONG CONSTANT ELBR$C_TYP_DECMX = 10 ! Maximum library type definedV DECLARE LONG CONSTANT LBR$C_TYP_RDEC = 127 ! Types between DECMX and RDEC are  ! reserved to DigitalX  DECLARE LONG CONSTANT LBR$C_TYP_USRLW = 128 ! User library types range from 128 > DECLARE LONG CONSTANT LBR$C_TYP_USRHI = 255 ! to 255.  ! # ! Function codes for lbr$flush ! Q DECLARE LONG CONSTANT LBR$C_FLUSHDATA = 1 ! Flush data blocks from cache X DECLARE LONG CONSTANT LBR$C_FLUSHALL = 0 ! Flush data blocks, then index blocks  ! ! ! Librarian fixed parameters ! S DECLARE LONG CONSTANT LBR$C_MAXRECSIZ = 2048 ! Maximum record size allowed I DECLARE LONG CONSTANT LBR$C_PAGESIZE = 512 ! Size of memory page a DECLARE LONG CONSTANT LBR$C_HASHSIZE = 512 ! Size of hash table ** Must be power of 2 ** Y DECLARE LONG CONSTANT LBR$C_TEXTPAGE = 508 ! No. of useable bytes on a text page Q DECLARE LONG CONSTANT LBR$C_DEXTQ = 50 ! Library default extend quantity S DECLARE LONG CONSTANT LBR$C_MAXCTL = 64 ! Maximum number of open libraries V DECLARE LONG CONSTANT LBR$C_MAXHDRSIZ = 128 ! Maximum length of module header  ! (max user length is:& ! lbr$c_maxhdrsiz-mhd$c_length)_ DECLARE LONG CONSTANT LBR$C_DEFENTALL = 300 ! Number of entries to allocate by default ` DECLARE LONG CONSTANT LBR$C_RETRYOPEN = 120 ! Number of times to retry open on RMS$_FLK M DECLARE LONG CONSTANT LBR$C_RETRYWAIT = 1 ! Number of seconds to waitS DECLARE LONG CONSTANT LBR$C_MINREAD = 2 ! Minimum number of blocks to read M DECLARE LONG CONSTANT LBR$C_MAXREAD = 100 ! Max blocks can ever read u DECLARE LONG CONSTANT LBR$C_MEMXTRA = 50 ! Number blocks to expand region by above and beyond lbr$gl_maxread Y DECLARE LONG CONSTANT LBR$C_PUTBUFSIZ = 30 ! Block size of VM empty cache buffer X DECLARE LONG CONSTANT LBR$C_FLSHBFSIZ = 1 ! Block size of stack mt_cache buffer U DECLARE LONG CONSTANT LBR$C_MAXIDXRD = 20 ! Maximum blocks in one index read n DECLARE LONG CONSTANT LBR$C_ELFMAXKEYLEN = 1024 ! Maximum length of an ASCII keyword for ELF librariesk DECLARE LONG CONSTANT LBR$C_MAXKEYLEN = 128 ! Maximum length of an ASCII keyword, at most N, where  ! 3*(N+7) < or = 506e DECLARE LONG CONSTANT LBR$C_MAXLUHREC = 32768 ! maximum library update history record length H DECLARE LONG CONSTANT LBR$M_SYM_WEAK = 1 ! Weak symbol attributeJ DECLARE LONG CONSTANT LBR$M_SYM_GROUP = 2 ! Group symbol attributeM DECLARE LONG CONSTANT LBR$M_SYM_ALL = X"80000000"L ! All types symbol_  DECLARE LONG CONSTANT LBR$M_SYM_NGG = 1 ! Symbol type bitmasks - Nongroup global symbolZ DECLARE LONG CONSTANT LBR$M_SYM_UXWK = 2 ! Symbol type bitmasks - Unix weak symbol[ DECLARE LONG CONSTANT LBR$M_SYM_GG = 4 ! Symbol type bitmasks - group global symbola DECLARE LONG CONSTANT LBR$M_SYM_GUXWK = 8 ! Symbol type bitmasks - group Unix weak symbol ! + ! Librarian fixed parameters for ALPHA ! S DECLARE LONG CONSTANT ELBR$C_MAXRECSIZ = 8192 ! Maximu m record size allowed ! $ ! LBR$INI_CONTROL argument list ! F DECLARE LONG CONSTANT LBR$C_CREATE = 0 ! Create a new library H DECLARE LONG CONSTANT LBR$C_READ = 1 ! Read an existing library M DECLARE LONG CONSTANT LBR$C_UPDATE = 2 ! Update an exisiting library I DECLARE LONG CONSTANT LBR$C_MAXFUNC = 2 ! Maximum legal function - DECLARE LONG CONSTANT LBR$S_LBRDEF = 16 record LBRDEF> LONG LBRDEF$$_FILL_1 ! Argument count E LONG LBR$L_IC_CTLTBL ! Control index address 8 LONG LBR$L_IC_FUNC ! Function P LONG LBR$L_IC_TYPE ! Type of library expected to open  !  ! LBR$OPEN argument list !  end record LBRDEF . DECLARE LONG CONSTANT LBR$S_LBRDEF1 = 32 record LBRDEF1> LONG LBRDEF$$_FILL_2 ! Argument count E LONG LBR$L_OP_CTLTBL ! Control index address Y LONG LBR$L_OP_FNS ! Address of string descriptor for filename O LONG LBR$L_OP_CREOPT ! Address of create options array ] LONG LBR$L_OP_DNS ! Address of descriptor for default name string U LONG LBR$L_OP_RLFNA ! Address of NAM block for related file a LONG LBR$L_OP_RNS ! Address of descriptor for related filename string m LONG LBR$L_OP_RNSLEN ! Address of longword to store resultant filename string length  !  ! LBR$CLOSE argument list !  end record LBRDEF1 - DECLARE LONG CONSTANT LBR$S_LBRDEF2 = 8 record LBRDEF2> LONG LBRDEF$$_FILL_3 ! Argument count E LONG LBR$L_CL_CTLTBL ! Control index address  ! # ! LBR$GET_HEADER argument list !  end record LBRDEF2 . DECLARE LONG CONSTANT LBR$S_LBRDEF3 = 12 record LBRDEF3>  LONG LBRDEF$$_FILL_4 ! Argument count H LONG LBR$L_GH_CTLTBL ! Address of Control index ] LONG LBR$L_GH_RETARY ! Address of 128-longword array for return info  ! " ! LBR$SET_INDEX argument list !  end record LBRDEF3 . DECLARE LONG CONSTANT LBR$S_LBRDEF4 = 12 record LBRDEF4> LONG LBRDEF$$_FILL_5 ! Argument count E LONG LBR$L_SI_CTLTBL ! Control  index address G LONG LBR$L_SI_IDXNUM ! Address of index number  ! # ! LBR$LOOKUP_KEY argument list !  end record LBRDEF4 . DECLARE LONG CONSTANT LBR$S_LBRDEF5 = 16 record LBRDEF5> LONG LBRDEF$$_FILL_6 ! Argument count E LONG LBR$L_LK_CTLTBL ! Control index address \ LONG LBR$L_LK_KEYNAM ! Address of string descriptor or binary value Z LONG LBR$L_LK_TXTRF A ! Address of quadword to return RFA if found  ! # ! LBR$INSERT_KEY argument list !  end record LBRDEF5 . DECLARE LONG CONSTANT LBR$S_LBRDEF6 = 16 record LBRDEF6> LONG LBRDEF$$_FILL_7 ! Argument count E LONG LBR$L_IK_CTLTBL ! Control index address \ LONG LBR$L_IK_KEYNAM ! Address of string descriptor or binary value F LONG LBR$L_IK_TXTRFA ! Address of RFA of text  ! $ ! LBR$REPLACE_MOD argument list !  ! $ ! LBR$REPLACE_KEY argument list !  end record LBRDEF6 . DECLARE LONG CONSTANT LBR$S_LBRDEF7 = 20 record LBRDEF7> LONG LBRDEF$$_FILL_8 ! Argument count E LONG LBR$L_RK_CTLTBL ! Control index address \ LONG LBR$L_RK_KEYNAM ! Address of string descriptor or binary value J LONG LBR$L_RK_OLDRFA ! Address of RFA of old text J LONG LBR$L_RK_NEWRFA ! Address of RFA of new text  ! # ! LBR$DELETE_KEY argument list !  end record LBRDEF7 . DECLARE LONG CONSTANT LBR$S_LBRDEF8 = 12 record LBRDEF8> LONG LBRDEF$$_FILL_9 ! Argument count E LONG LBR$L_DK_CTLTBL ! Control index address \ LONG LBR$L_DK_KEYNAM ! Address of string descriptor or binary value  ! $ ! LBR$DELETE_DATA argument list !  end record LBRDEF8 . DECLARE LONG CONSTANT LBR$S_LBRDEF9 = 12 record LBRDEF9> LONG LBRDEF$$_FILL_10 ! Argument count E LONG LBR$L_DD_CTLTBL ! Control index address M LONG LBR$L_DD_TXTRFA ! Address of RFA to delete from  ! # ! LBR$GET_RECORD argument list !  end record LBRDEF9 / DECLARE LONG CONSTANT LBR$S_LBRDEF10 = 16 record LBR DEF10> LONG LBRDEF$$_FILL_11 ! Argument count E LONG LBR$L_GR_CTLTBL ! Control index address O LONG LBR$L_GR_BUFDES ! Address of descriptor of buffer Y LONG LBR$L_GR_BUFLEN ! Address of longword to return record size  ! # ! LBR$PUT_RECORD argument list !  end record LBRDEF10 / DECLARE LONG CONSTANT LBR$S_LBRDEF11 = 16 record LBRDEF11> LONG LBRDEF$$_FIL L_12 ! Argument count E LONG LBR$L_PR_CTLTBL ! Control index address Y LONG LBR$L_PR_BUFDES ! Address of descriptor of buffer to output Q LONG LBR$L_PR_TXTRFA ! Address of quadword to return RFA  ! of text record ! ! LBR$PUT_END argument list !  end record LBRDEF11 . DECLARE LONG CONSTANT LBR$S_LBRDEF12 = 8 record LBRDEF12> LONG LBRDEF$$_FILL_13  ! Argument count E LONG LBR$L_PE_CTLTBL ! Control index address  !  ! LBR$SEARCH argument list !  end record LBRDEF12 / DECLARE LONG CONSTANT LBR$S_LBRDEF13 = 20 record LBRDEF13> LONG LBRDEF$$_FILL_14 ! Argument count E LONG LBR$L_SR_CTLTBL ! Control index address G LONG LBR$L_SR_IDXNUM ! Address of index number R LONG LBR$L_SR_RFA  ! Address of RFA to search index for M LONG LBR$L_SR_USRTN ! User routine to call on match  ! : ! Argument list for user routine called by LBR$SEARCH !  end record LBRDEF13 / DECLARE LONG CONSTANT LBR$S_LBRDEF14 = 12 record LBRDEF14> LONG LBRDEF$$_FILL_15 ! Argument count \ LONG LBR$L_SU_KEYDES ! Address of string descriptor or binary value Y LONG LBR$L_SU_TXTRFA  ! Address of array containing rfa of module  ! " ! LBR$GET_INDEX argument list !  end record LBRDEF14 / DECLARE LONG CONSTANT LBR$S_LBRDEF15 = 16 record LBRDEF15> LONG LBRDEF$$_FILL_16 ! Argument count E LONG LBR$L_GI_CTLTBL ! Control index address < LONG LBR$L_GI_IDXNUM ! Index number S LONG LBR$L_GI_USRTN ! User routine to call for each entry  ! = ! Argument list for user routine called by LBR$GET_INDEX !  end record LBRDEF15 / DECLARE LONG CONSTANT LBR$S_LBRDEF16 = 12 record LBRDEF16> LONG LBRDEF$$_FILL_17 ! Argument count U LONG LBR$L_GU_KEYADR ! Address of descriptor or binary value F LONG LBR$L_GU_TXTRFA ! RFA of associated text  ! # ! LBR$ADD_UPDATE argument list !  end record LBRDEF16 < DECLARE LONG  CONSTANT LBR$C_ADDMOD = 1 ! Add module ? DECLARE LONG CONSTANT LBR$C_DELMOD = 2 ! Delete module @ DECLARE LONG CONSTANT LBR$C_REPMOD = 3 ! Replace module  ! / DECLARE LONG CONSTANT LBR$S_LBRDEF17 = 16 record LBRDEF17> LONG LBRDEF$$_FILL_18 ! Argument count E LONG LBR$L_AU_CTLTBL ! Control index address 5 LONG LBR$L_AU_FLAGS ! Flags \ LONG LBR$L_AU_KEYNAM ! Address o f string descriptor or binary value " ! Types of operations logged $ ! LBR$GET_UPDATES argument list !  end record LBRDEF17 / DECLARE LONG CONSTANT LBR$S_LBRDEF18 = 12 record LBRDEF18> LONG LBRDEF$$_FILL_19 ! Argument count E LONG LBR$L_GU_CTLTBL ! Control index address T LONG LBR$L_GU_USRTN ! User routine to call for each update  ! ? ! Argument list for user routine called by LBR$GET_UPDATES !  end record LBRDEF18 . DECLARE LONG CONSTANT LBR$S_LBRDEF19 = 8 record LBRDEF19= LONG LBRDEF$$_FILL_20 ! Argument list R LONG LBR$L_UU_UPDESC ! String descriptor for history line  end record LBRDEF19  ! # ! LBR$MAP_MODULE argument list ! / DECLARE LONG CONSTANT LBR$S_LBRDEF20 = 28 record LBRDEF20> LONG LBRDEF$$_FILL_21 ! Argument count D  LONG LBR$L_MM_CTLTBL ! Control index addressd BASIC$QUADWORD LBR$Q_MM_VAADDR ! 64-bit virtual Address of the specified object moduleE BASIC$QUADWORD LBR$Q_MM_MODSIZ ! Address of module sizeI LONG LBR$L_MM_TXTRFA ! Address of RFA to map from ! > ! Argument list for user routine called by LBR$MAP_MODULE !  end record LBRDEF20  ! % ! LBR$UNMAP_MODULE argument list ! / DECLARE LONG CONSTANT LBR$S_LBRDEF21 = 12 record LBRDEF21> LONG LBRDEF$$_FILL_22 ! Argument count D LONG LBR$L_UM_CTLTBL ! Control index addressG LONG LBR$L_UM_TXTRFA ! Address of RFA to unmap  ! @ ! Argument list for user routine called by LBR$UNMAP_MODULE !  end record LBRDEF21  ! $ ! LBR$GET_VERSION argument list ! / DECLARE LONG CONSTANT LBR$S_LBRDEF22 = 12 record LBRDEF22> LONG LBRDEF$$_FILL_23 ! Argument count I LONG LBR$L_GV_VERDESC ! Addr of Version DescriptorD LONG LBR$L_GV_RETLEN ! Address of ret. len.  ! ? ! Argument list for user routine called by LBR$GET_VERSION !  end record LBRDEF22  ! $ ! LBR$LOOKUP_TYPE argument list ! / DECLARE LONG CONSTANT LBR$S_LBRDEF23 = 20 record LBRDEF23> LONG LBRDEF$$_FILL_24  ! Argument count E LONG LBR$L_LT_CTLTBL ! Control index address \ LONG LBR$L_LT_KEYNAM ! Address of string descriptor or binary value Z LONG LBR$L_LT_TXTRFA ! Address of quadword to return RFA if found C LONG LBR$L_LT_FLAG ! Address of ret. flag ! ? ! Argument list for user routine called by LBR$LOOKUP_TYPE !  end record LBRDEF23  ! # ! LBR$PUT_MODULE argument  list ! / DECLARE LONG CONSTANT LBR$S_LBRDEF24 = 28 record LBRDEF24> LONG LBRDEF$$_FILL_25 ! Argument count D LONG LBR$L_PM_CTLTBL ! Control index addressd BASIC$QUADWORD LBR$Q_PM_VAADDR ! 64-bit virtual Address of the specified object moduleE BASIC$QUADWORD LBR$Q_PM_MODSIZ ! Address of module sizeD LONG LBR$L_PM_TXTRFA ! Address of return RFA ! > ! Argument list for user routine called by LBR$PUT_MODULE !  end record LBRDEF24  ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! / ! Library header information array offsets ! . DECLARE LONG CONSTANT LHI$S_LHIDEF = 144 record LHIDEF< LONG LHI$L_TYPE ! Library type A LONG LHI$L_NINDEX ! Number of indices G LONG LHI$L_MAJORID ! Library format major id G LONG LHI$L_MINORID ! Library format minor id W STRING LHI$T_LBRVER = 32 ! ASCIC version of librarian that created B LONG LHI$L_CREDAT ! Creation date/time 3 LONG LHIDEF$$_FILL_1 ! ... H LONG LHI$L_UPDTIM ! Date/time of last update 3 LONG LHIDEF$$_FILL_2 ! ... N LONG LHI$L_UPDHIS ! VBN of start of update history K LONG LHI$L_FREEVBN ! 1st logically deleted block H LONG LHI$L_FREEBLK ! Number of deleted blocks H BYTE LHI$B_NEXTRFA ( 1 to 6 ) ! RFA of end of library B WORD LHI$W_RFAXTR ! Spare word, zeroed S LONG LHI$L_NEXTVBN ! Next VBN to allocate at end of file Y LONG LHI$L_FREIDXBLK ! Number of free pre-allocated index blocks W LONG LHI$L_FREEIDX ! Listhead for pre-allocated index blocks R LONG LHI$L_HIPREAL ! VBN of highest pre-allocated block M LONG LHI$L_IDXBLKS ! Number of index blocks in use O LONG LHI$L_IDXCNT ! Number of index entries (total) [ LONG LHI$L_MODCNT ! Number of entries in index 1 (module names) _ LONG LHI$L_MHDUSZ ! Length of user-maintained info in module header m LONG LHI$L_MAXLUHREC ! Maximum number of library update histories records maintained P LONG LHI$L_NUMLUHREC ! Number of LUH records in history W LONG LHI$L_LIBSTATUS ! False if there was an error closing lib e BYTE LHI$B_FREEHDRS ( 1 to 6 ) ! Freed list header structure in RFA structure formatc BYTE LHI$B_FREENODES ( 1 to 6 ) ! Freed list nodes structure in RFA struture formatG LONG LHI$L_IDX3HEAP ! VBN of third index block end record LHIDEF  ww\V ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! Create options table ! K DECLARE LONG CONSTANT CRE$C_VMSV2 = 2 ! VMS version V04-000 format E DECLARE LONG CONSTANT CRE$C_VMSV3 = 3 ! VMS version 3 format V DECLARE LONG CONSTANT CRE$C_VMSV4 = 4 ! VMS version 4 format for an ELF files.V DECLARE LONG CONSTANT CRE$C_VMSV5 = 5 ! VMS version 5 format for an ELF files.V DECLARE LONG CONSTANT CRE$C_VMSV6 = 6 ! VMS version 6 format for an ELF files.9 DECLARE LONG CONSTANT CRE$M_NOCASECMP = x'00000001'9 DECLARE LONG CONSTANT CRE$M_NOCASENTR = x'00000002'9 DECLARE LONG CONSTANT CRE$M_UPCASNTRY = x'00000004'^ DECLARE LONG CONSTANT CRE$C_HLPCASING = 6 ! Treat upper casing as it is fo r HELP libs ` DECLARE LONG CONSTANT CRE$C_OBJCASING = 3 ! Treat upper casing as it is for OBJECT libs h DECLARE LONG CONSTANT CRE$C_MACTXTCAS = 0 ! Treat upper casing as it is for MACRO and TEXT libs 2 DECLARE LONG CONSTANT CRE$K_LENGTH = 80 ! 2 DECLARE LONG CONSTANT CRE$C_LENGTH = 80 ! - DECLARE LONG CONSTANT CRE$S_CREDEF = 80 record CREDEF? LONG CRE$L_TYPE ! Type of library * ! (library types defined in $LBRDEF)I  LONG CRE$L_KEYLEN ! Length of keys in library G LONG CRE$L_ALLOC ! Initial file allocation I LONG CRE$L_IDXMAX ! Maximum number of indices U LONG CRE$L_UHDMAX ! Size of additional module header data W LONG CRE$L_ENTALL ! Number of index entries to pre-allocate a LONG CRE$L_LUHMAX ! Number of library update history records to store Q  LONG CRE$L_VERTYP ! Version type of library to create # group CRE$R_IDXOPT_OVERLAY variant case= LONG CRE$L_IDXOPT ! Index options  case) group CRE$R_IDXOPT_BITS9 ! Do not upper case the match key Y ! Do not upper case the index key when comparing with a match key T ! Upper case the index key when entering it into the library z BYTE NOCASECMP_bits ! COMMENT ADDED BY SDL - NOCASECMP_bits contains bits NOCASECMP through FILL_4_- end group CRE$R_IDXOPT_BITS end variant' end group CRE$R_IDXOPT_OVERLAYH LONG CREDEF$$_FILL_1 ( 1 to 11 ) ! Reserved 11 longwords  end record CREDEF wwv ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *H ! COPYRIGHT (c) 1992, 1994, 1995, 1996, 1997, 2003, 2010 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *Q ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE I S HEREBY *' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * !  *Q ! *************************************************************************** ! LIB$ADAWI ! ) ! Add Aligned Word with Interlock ! S ! The Add Aligned Word with Interlock routine allows the user to perform an: ! interlocked add operation using an aligned word. ! ) EXTERNAL LONG FUNCTION lib$adawi & ( &" WORD BY REF, &" WORD BY REF, &! WORD BY REF & ) ! LIB$ADDX ! 3 ! Add Two Multiple-Precision Binary Numbers ! O ! The Add Two Multiple-Precision Binary Numbers routine adds two signed8 ! two's complement integers of arbitrary length. ! ( EXTERNAL LONG FUNCTION lib$addx & ( &! ANY BY REF, &! ANY BY REF, &! ANY BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$ADD_TIMES ! ! Add Two Quadword Times ! N ! The Add Two Quadword Times routine adds two VMS internal time format ! times. ! - EXTERNAL LONG FUNCTION lib$add_times & ( &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$ANALYZE_SDESC ! $ ! Analyze String Descriptors ! L ! The Analyze String Descriptors routine extracts the length and theM ! address at which the data starts for a variety of string descriptor ! classes. ! 1 EXTERNAL LONG FUNCTION lib$analyze_sdesc & ( &, BASIC$QUADWORD BY REF, &" WORD BY REF, &! LONG BY REF & ) ! LIB$ANALYZE_SDESC_64 ! $ ! Analyze String Descriptors ! L ! The Analyze String Descriptors routine extracts the length and theM ! address at which the data starts for a variety of string descriptor ! classes. ! 4 EXTERNAL LONG FUNCTION lib$analyze_sdesc_64 & ( &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &) OPTIONAL WORD BY REF & ) ! LIB$ASCII_TO_UID !  ! Convert Text To UID ! L ! The Convert Text to UID routine converts a standard representation; ! of a UID in an ASCII text string to a binary UID. ! 0 EXTERNAL LONG FUNCTION lib$ascii_to_uid & ( &% STRING BY DESC, &+ BASIC$OCTAWORD BY REF & ) ! LIB$ASN_WTH_MBX ! % ! Assign Channel with Mailbox ! R ! The Assign Channel with Mailbox routine assigns a channel to a specifiedN ! device and associates a mailbox with the device. It returns both the1 ! device channel and the mailbox channel. ! / EXTERNAL LONG FUNCTION lib$asn_wth_mbx & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" WORD BY REF, &! WORD BY REF & ) ! LIB$AST_IN_PROG !  ! AST in Progress ! N ! Th e AST in Progress routine indicates whether an AST is currently in ! progress. ! - EXTERNAL BYTE FUNCTION lib$ast_in_prog ! LIB$ATTACH ! $ ! Attach Terminal to Process ! O ! The Attach Terminal to Process routine requests the calling process'sR ! Command Language Interpreter (CLI) to detach the terminal of the calling< ! process and to reattach it to a different process. ! * EXTERNAL LONG FUNCTION lib$attach & ( &! LONG BY REF & ) ! LIB$BBCCI ! + ! Test and Clear Bit with Interlock ! J ! The Test and Clear Bit with Interlock routine tests and clears a. ! selected bit under memory interlock. ! ) EXTERNAL LONG FUNCTION lib$bbcci & ( &" LONG BY REF, &# LONG BY VALUE & ) ! LIB$BBSSI ! )  ! Test and Set Bit with Interlock ! F ! The Test and Set Bit with Interlock routine tests and sets a. ! selected bit under memory interlock. ! ) EXTERNAL LONG FUNCTION lib$bbssi & ( &" LONG BY REF, &# LONG BY VALUE & ) ! LIB$BUILD_NODESPEC ! ) ! Build a Node-Name Specification ! H ! The Build a Node-Name Specification routine builds a node-name3 ! specification from the primary node name. ! 2 EXTERNAL LONG FUNCTION lib$build_nodespec & ( &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &! WORD BY REF & ) ! LIB$CALLG ! J ! Call Routine with General Argument List (longword argument list) ! R ! The Ca ll Routine with General Argument List routine calls a routine withQ ! an argument list specified as an array of longwords, the first of whichQ ! is a count of the remaining longwords. LIB$CALLG is a callable version' ! of the VAX CALLG instruction. ! ) EXTERNAL LONG FUNCTION lib$callg & ( &! ANY BY REF, &# LONG BY VALUE & ) ! LIB$CALLG_64 ! J ! Call Routine w ith General Argument List (quadword argument list) ! R ! The Call Routine with General Argument List routine calls a routine withQ ! an argument list specified as an array of quadwords, the first of whichL ! is a count of the remaining quadwords. LIB$CALLG_64 is a callable/ ! version of the VAX CALLG instruction. ! , EXTERNAL LONG FUNCTION lib$callg_64 & ( &1 BASIC$QUADWORD DIM() BY REF, &#  LONG BY VALUE & ) ! LIB$CHAR ! 5 ! Transform Byte to First Character of String ! N ! The Transform Byte to First Character of String routine transforms aP ! single 8-bit ASCII character to an ASCII string consisting of a singleS ! character followed by trailing spaces, if needed, to fill out the string.7 ! The range of the input byte is 0 through 255. ! ( EXTERNAL LONG FUNCTION lib$char &   ( &% STRING BY DESC, &! BYTE BY REF & ) ! LIB$COMPARE_NODENAME ! ! Compare Two Node Names ! ? ! The Compare Node Name routine compares two node names7 ! to see if they resolve to the same full name. ! 4 EXTERNAL LONG FUNCTION lib$compare_nodename & ( &% STRING BY DESC, &% STRING BY DESC, &!   LONG BY REF & ) ! LIB$COMPARE_UID !  ! Compare Two UIDs ! < ! The Compare Two UIDs routine compares the contents1 ! of two UIDs for total lexical ordering. ! / EXTERNAL LONG FUNCTION lib$compare_uid & ( &, BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &! LONG BY REF & ) ! LIB$COMPRESS_NODENAME ! 0 ! Comp ress a Node Name to its Short Form ! G ! The Compress a Node Name routine compresses a node name to anE ! unambiguous short form usable within the naming environment- ! where the compression is performed. ! 5 EXTERNAL LONG FUNCTION lib$compress_nodename & ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & )! ! LIB$CONVERT_DATE_STRING  ! ) ! Convert Date String to Quadword ! O ! The Convert Date String to Quadword routine converts an absolute dateN ! string into a VMS internal format date-time quadword. That is, given: ! an input date/time string of a specified format,O ! LIB$CONVERT_DATE_STRING converts this string to a VMS internal format ! time. ! 7 EXTERNAL LONG FUNCTION lib$convert_date_string & ( &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &' WORD DIM() BY REF, &! LONG BY REF & ) ! LIB$CRC ! 3 ! Calculate a Cyclic Redundancy Check (CRC) ! O ! The Calculate a Cyclic Redundancy Check routine calculates the cyclic3 ! redundancy check (CRC) for a data stream. ! ' EXTERNAL LONG FUNCTION lib$crc & ( &' LONG DIM() BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! LIB$CRC_TABLE ! : ! Construct a Cyclic Redundancy Check (CRC) Table ! L ! The Construct a Cyclic Redundancy Check Table routine constructs aJ ! 16-longword table that uses a cyclic redundancy check polynomial& ! specification as a bit mask. ! # EXTERNAL SUB lib$crc_table & ( &" LONG BY REF, && LONG DIM() BY REF & ) ! LIB$CREATE_DIR !  ! Create a Directory ! M ! The Create a Directory routine creates a directory or subdirectory. ! . EXTERNAL LONG FUNCTION lib$create_dir & ( &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" WORD BY REF, &"  WORD BY REF, &" WORD BY REF, &! WORD BY REF & )! ! LIB$CREATE_USER_VM_ZONE ! * ! Create User-Defined Storage Zone ! Q ! The Create User-Defined Storage Zone routine creates a new user-defined ! storage zone. ! 7 EXTERNAL LONG FUNCTION lib$create_user_vm_zone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &$  LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ STRING BY DESC & )$ ! LIB$CREATE_USER_VM_ZONE_64 ! * ! Create User-Defined Storage Zone ! Q ! The Create User-Defined Storage Zone routine creates a new user-defined ! storage zone. ! : EXTERNAL LONG FUNCTION lib$create_user_vm_zone_64 & ( &, BASIC$QUADWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ STRING BY DESC & ) ! LIB$CREATE_VM_ZONE !  ! Create a New Zone ! O ! The Create a New Zone routine creates a new storage zone according to ! specified arguments. ! 2 EXTERNAL LONG FUNCTION lib$create_vm_zone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &$  LONG BY VALUE, &# LONG BY VALUE & ) ! LIB$CREATE_VM_ZONE_64 !  ! Create a New Zone ! O ! The Create a New Zone routine creates a new storage zone according to ! specified arguments. ! 5 EXTERNAL LONG FUNCTION lib$create_vm_zone_64 & ( &, BASIC$QUADWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! LIB$CRF_INS_KEY !  - ! Insert Key in Cross-Reference Table ! M ! The Insert Key in Cross-Reference Table routine inserts information3 ! about a key into a cross-reference table. ! % EXTERNAL SUB lib$crf_ins_key & ( &' LONG DIM() BY REF, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! LIB$CRF_INS_REF ! @ ! Insert Reference to a Key in the Cross-Reference Table ! L ! The Insert Reference to a Key in the Cross-Reference Table routineI ! inserts a reference to a key in a cross-reference symbol table. ! % EXTERNAL SUB lib$crf_ins_ref & ( &' LONG DIM() BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! LIB$CRF_OUTPUT ! 2 ! Output Cross-Reference Table Information ! K ! The Output Cross-Reference Table Information routine extracts theS ! information from the cross-reference tables and formats the output pages. ! $ EXTERNAL SUB lib$crf_output & ( &' LONG DIM() BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &!  LONG BY REF & ) ! LIB$CURRENCY ! $ ! Get System Currency Symbol ! N ! The Get System Currency Symbol routine returns the system's currency ! symbol. ! , EXTERNAL LONG FUNCTION lib$currency & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & )% ! LIB$CVTS_FROM_INTERNAL_TIME ! I ! Convert Internal Time to External Time (S-Floating Point Value) ! M ! The Convert Internal Time to External Time (S-Floating Point Value)L ! routine converts a delta internal VMS system time into an external ! S-floating time. ! ; EXTERNAL LONG FUNCTION lib$cvts_from_internal_time & ( &" LONG BY REF, &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF & )% ! LIB$CVTF_FROM_INTERNAL_TIME  ! I ! Convert Internal Time to External Time (F-Floating Point Value) ! M ! The Convert Internal Time to External Time (F-Floating Point Value)L ! routine converts a delta internal VMS system time into an external ! F-floating time. ! ; EXTERNAL LONG FUNCTION lib$cvtf_from_internal_time & ( &" LONG BY REF, &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF &  )# ! LIB$CVTS_TO_INTERNAL_TIME ! I ! Convert External Time to Internal Time (S-Floating Point Value) ! M ! The Convert External Time to Internal Time (S-Floating Point Value)O ! routine converts an external time interval into a VMS internal format ! S-floating delta time. ! ! 9 EXTERNAL LONG FUNCTION lib$cvts_to_internal_time & ( &" LONG BY REF, &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF & )# ! LIB$CVTF_TO_INTERNAL_TIME ! I ! Convert External Time to Internal Time (F-Floating Point Value) ! M ! The Convert External Time to Internal Time (F-Floating Point Value)O ! routine converts an external time interval into a VMS internal format ! F-floating delta time. ! 9 EXTERNAL LONG FUNCTION lib$cvtf_to_internal_time & ( &"  LONG BY REF, &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$CVT_DTB ! ( ! Convert Numeric Text to Binary ! L ! The Convert Numeric Text to Binary routine returns a 32-bit binaryM ! representation of the ASCII text string representation of a decimal ! number. ! + EXTERNAL LONG FUNCTION lib$cvt_dtb & ( &$ LONG   BY VALUE, &$ STRING BY REF, &! LONG BY REF & ) ! LIB$CVT_DTB_64 ! ( ! Convert Numeric Text to Binary ! L ! The Convert Numeric Text to Binary routine returns a 64-bit binaryM ! representation of the ASCII text string representation of a decimal ! number. ! . EXTERNAL LONG FUNCTION lib$cvt_dtb_64 & ( &$ LONG BY VALUE, &$ ! STRING BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$CVT_DX_DX ! . ! General Data Type Conversion Routine ! Q ! The General Data Type Conversion routine converts a VMS standard atomicR ! or string datum described by a source descriptor to another VMS standardM ! atomic or string datum described by a destination descriptor. ThisO ! conversion is supported over a subset of the VMS standard da"ta types. ! - EXTERNAL LONG FUNCTION lib$cvt_dx_dx & ( &! ANY BY REF, &! ANY BY REF, &) OPTIONAL WORD BY REF & )$ ! LIB$CVT_FROM_INTERNAL_TIME ! 0 ! Convert Internal Time to External Time ! Q ! The Convert Internal Time to External Time routine converts an internalL ! VMS system time (either absolute or delta) into an external time. ! # : EXTERNAL LONG FUNCTION lib$cvt_from_internal_time & ( &" LONG BY REF, &" LONG BY REF, &3 OPTIONAL BASIC$QUADWORD BY REF & ) ! LIB$CVT_HTB ! ( ! Convert Numeric Text to Binary ! L ! The Convert Numeric Text to Binary routine returns a 32-bit binaryQ ! representation of the ASCII text string representation of a hexadecimal ! number. ! + $ EXTERNAL LONG FUNCTION lib$cvt_htb & ( &$ LONG BY VALUE, &$ STRING BY REF, &! LONG BY REF & ) ! LIB$CVT_HTB_64 ! ( ! Convert Numeric Text to Binary ! L ! The Convert Numeric Text to Binary routine returns a 64-bit binaryQ ! representation of the ASCII text string representation of a hexadecimal ! number. ! . EXTERNAL LONG FUNCTION lib$cvt_ht%b_64 & ( &$ LONG BY VALUE, &$ STRING BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$CVT_OTB ! ( ! Convert Numeric Text to Binary ! L ! The Convert Numeric Text to Binary routine returns a 32-bit binaryL ! representation of the ASCII text string representation of an octal ! number. ! + EXTERNAL LONG FUNCTION lib$cvt_otb & ( &$ & LONG BY VALUE, &$ STRING BY REF, &! LONG BY REF & ) ! LIB$CVT_OTB_64 ! ( ! Convert Numeric Text to Binary ! L ! The Convert Numeric Text to Binary routine returns a 64-bit binaryL ! representation of the ASCII text string representation of an octal ! number. ! . EXTERNAL LONG FUNCTION lib$cvt_otb_64 & ( &$ LONG BY VALUE, &$ ' STRING BY REF, &+ BASIC$QUADWORD BY REF & )" ! LIB$CVT_TO_INTERNAL_TIME ! 0 ! Convert External Time to Internal Time ! H ! The Convert External Time to Internal Time routine converts anG ! external time interval into a VMS internal format delta time. ! 8 EXTERNAL LONG FUNCTION lib$cvt_to_internal_time & ( &" LONG BY REF, &" LONG BY (REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$CVT_VECTIM ! 4 ! Convert Seven-Word Vector to Internal Time ! K ! The Convert Seven-Word Vector to Internal Time routine converts aN ! seven-word vector into a VMS internal format delta or absolute time. ! . EXTERNAL LONG FUNCTION lib$cvt_vectim & ( &' WORD DIM() BY REF, &+ BASIC$QUADWORD BY REF & ) ) ! LIB$DATE_TIME ! , ! Date and Time Returned as a String ! O ! The Date and Time Returned as a String routine returns the VMS systemC ! date and time in the semantics of a user-provided string. ! - EXTERNAL LONG FUNCTION lib$date_time & ( &$ STRING BY DESC & ) ! LIB$DAY ! 3 ! Day Number Returned as a Longword Integer ! R ! *The Day Number Returned as a Longword Integer routine returns the numberP ! of days since the system zero date of November 17, 1858, or the numberB ! of days from November 17, 1858, to a user-supplied date. ! ' EXTERNAL LONG FUNCTION lib$day & ( &" LONG BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! LIB$DAY_OF_WEEK ! " ! Show Numeric D +ay of Week ! R ! The Show Numeric Day of Week routine returns the numeric day of the weekQ ! for an input time value. If 0 is the input time value, the current dayR ! of the week is returned. The days are numbered 1 through 7, with Monday' ! as day 1 and Sunday as day 7. ! / EXTERNAL LONG FUNCTION lib$day_of_week & ( &, BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! , LIB$DECODE_FAULT ! 0 ! Decode Instruction Stream During Fault ! S ! The Decode Instruction Stream During Fault routine is a tool for buildingN ! condition handlers that process instruction fault exceptions. It is* ! called from a condition handler. ! L ! This routine is not available to native Alpha VMS programs, but is- ! available to translated VAX images. ! 0 EXTERNAL LONG FUNCTION lib$decode_fault & - ( &! ANY BY REF, &! ANY BY REF, &# LONG BY DESC, &+ OPTIONAL ANY BY VALUE, && BYTE DIM() BY REF & ) ! LIB$DEC_OVER ! 6 ! Enable or Disable Decimal Overflow Detection ! M ! The Enable or Disable Decimal Overflow Detection routine enables orQ ! disables decimal overflow detection for the calling routine activation.< ! . The previous decimal overflow setting is returned. ! K ! This routine is available on Alpha VMS systems in translated form: ! and is applicable to translated VAX images only. ! , EXTERNAL LONG FUNCTION lib$dec_over & ( &! LONG BY REF & ) ! LIB$DELETE_FILE ! " ! Delete One or More Files ! M ! The Delete One or More Files routine deletes one or more files. TheK ! / specification of the file(s) to be deleted may include wildcards.K ! LIB$DELETE_FILE is similar in function to the DCL command DELETE. ! / EXTERNAL LONG FUNCTION lib$delete_file & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# ANY BY VALUE0, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! LIB$DELETE_LOGICAL !  ! Delete Logical Name ! P ! The Delete Logical Name routine requests the calling process's CommandP ! Language Interpreter (CLI) to delete a supervisor-mode process logicalQ ! name. LIB$DELETE_LOGICAL provides the same function as the DCL command ! DEASSIGN. ! 2 1 EXTERNAL LONG FUNCTION lib$delete_logical & ( &% STRING BY DESC, &, OPTIONAL STRING BY DESC & ) ! LIB$DELETE_SYMBOL !  ! Delete CLI Symbol ! N ! The Delete CLI Symbol routine requests the calling process's CommandF ! Language Interpreter (CLI) to delete an existing CLI symbol. ! 1 EXTERNAL LONG FUNCTION lib$delete_symbol & ( &% 2 STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! LIB$DELETE_VM_ZONE ! $ ! Delete Virtual Memory Zone ! C ! The Delete Virtual Memory Zone routine deletes a zone andD ! returns all pages on VAX or pagelets on Alpha owned by the, ! zone to the processwide page pool. ! 2 EXTERNAL LONG FUNCTION lib$delete_vm_zone & ( &! LONG BY REF & ) 3 ! LIB$DELETE_VM_ZONE_64 ! $ ! Delete Virtual Memory Zone ! C ! The Delete Virtual Memory Zone routine deletes a zone andD ! returns all pages on VAX or pagelets on Alpha owned by the, ! zone to the processwide page pool. ! 5 EXTERNAL LONG FUNCTION lib$delete_vm_zone_64 & ( &+ BASIC$QUADWORD BY REF & ) ! LIB$DIGIT_SEP ! $ ! Get Digit Separator Symbol4 ! K ! The Get Digit Separator Symbol routine returns the system's digit ! separator symbol. ! - EXTERNAL LONG FUNCTION lib$digit_sep & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! LIB$DISABLE_CTRL ! 8 ! Disable CLI Interception of Control Characters ! Q ! The Disable CLI Interception of Control Characters routine requests theO ! 5 calling process's Command Language Interpreter (CLI) to not interceptS ! the selected control characters when they are typed during an interactiveO ! terminal session. LIB$DISABLE_CTRL provides the same function as the$ ! DCL command SET NOCONTROL. ! 0 EXTERNAL LONG FUNCTION lib$disable_ctrl & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$DO_COMMAND !  ! 6Execute Command ! M ! The Execute Command routine stops program execution and directs theO ! Command Language Interpreter to execute a command which you supply asN ! the argument. If successful, LIB$DO_COMMAND does not return controlN ! to the calling program. Instead, LIB$DO_COMMAND begins execution ofN ! the specified command. If you want control to return to the caller, ! use LIB$SPAWN instead. ! . EXTERNAL LONG FUNCTION 7lib$do_command & ( &$ STRING BY DESC & ) ! LIB$EDIV ! # ! Extended-Precision Divide ! K ! The Extended-Precision Divide routine performs extended-precisionK ! division. LIB$EDIV makes the VAX EDIV instruction available as a ! callable routine. ! ( EXTERNAL LONG FUNCTION lib$ediv & ( &" LONG BY REF, &, BASIC$QUADWORD B 8Y REF, &" LONG BY REF, &! LONG BY REF & ) ! LIB$EMODD ! O ! Extended Multiply and Integerize Routines for D-Floating Point Values ! P ! The Extended Multiply and Integerize routine (D-Floating Point Values)P ! allows higher-level language users to perform accurate range reduction" ! of D-floating arguments. ! N ! D-floating point values are not supported in full precision 9on AlphaP ! systems. They are precise to 56 bits on VAX systems, 53 bits on Alpha ! systems. ! ) EXTERNAL LONG FUNCTION lib$emodd & ( &$ DOUBLE BY REF, &" BYTE BY REF, &$ DOUBLE BY REF, &" LONG BY REF, &# DOUBLE BY REF & ) ! LIB$EMODT ! O ! Extended Multiply and Integerize Routines for T-Floating Point Values: ! P ! The Extended Multiply and Integerize routine (T-Floating Point Values)P ! allows higher-level language users to perform accurate range reduction" ! of T-floating arguments. ! ! ) EXTERNAL LONG FUNCTION lib$emodt & ( &$ DOUBLE BY REF, &" BYTE BY REF, &$ DOUBLE BY REF, &" LONG BY REF, &# DOUBLE BY REF & ) ;! LIB$EMODS ! O ! Extended Multiply and Integerize Routines for S-Floating Point Values ! P ! The Extended Multiply and Integerize routine (S-Floating Point Values)P ! allows higher-level language users to perform accurate range reduction" ! of S-floating arguments. ! ) EXTERNAL LONG FUNCTION lib$emods & ( &$ SINGLE BY REF, &" BYTE BY REF, &$ SINGLE B<Y REF, &" LONG BY REF, &# SINGLE BY REF & ) ! LIB$EMODF ! O ! Extended Multiply and Integerize Routines for F-Floating Point Values ! P ! The Extended Multiply and Integerize routine (F-Floating Point Values)P ! allows higher-level language users to perform accurate range reduction" ! of F-floating arguments. ! ) EXTERNAL LONG FUNCTION lib$emodf & ( &$ = SINGLE BY REF, &" BYTE BY REF, &$ SINGLE BY REF, &" LONG BY REF, &# SINGLE BY REF & ) ! LIB$EMODG ! O ! Extended Multiply and Integerize Routines for G-Floating Point Values ! P ! The Extended Multiply and Integerize routine (G-Floating Point Values)P ! allows higher-level language users to perform accurate range reduction" ! >of G-floating arguments. ! ) EXTERNAL LONG FUNCTION lib$emodg & ( &$ GFLOAT BY REF, &" WORD BY REF, &$ GFLOAT BY REF, &" LONG BY REF, &# GFLOAT BY REF & ) ! LIB$EMODH ! O ! Extended Multiply and Integerize Routines for H-Floating Point Values ! N ! On VAX VMS, the Extended Multiply and Integerize routine (H-Fl?oatingN ! Point Values) allows higher-level language users to perform accurate2 ! range reduction of H-floating arguments. ! ) EXTERNAL LONG FUNCTION lib$emodh & ( &. BASIC$HFLOAT_AXP BY REF, &" WORD BY REF, &. BASIC$HFLOAT_AXP BY REF, &" LONG BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! LIB$EMUL ! % ! Extended-Preci@sion Multiply ! M ! The Extended-Precision Multiply routine performs extended-precisionO ! multiplication. LIB$EMUL makes the VAX EMUL instruction available as ! a callable routine. ! ( EXTERNAL LONG FUNCTION lib$emul & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$ENABLE_CTRL ! 7 A ! Enable CLI Interception of Control Characters ! P ! The Enable CLI Interception of Control Characters routine requests theH ! calling process's Command Language Interpreter (CLI) to resumeM ! interception of the selected control characters when they are typedO ! during an interactive terminal session. LIB$ENABLE_CTRL provides the7 ! same function as the DCL command SET CONTROL. ! / EXTERNAL LONG FUNCTION lib$enable_ctrl & B ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$ESTABLISH ! ' ! Establish a Condition Handler ! J ! The Establish a Condition Handler routine moves the address of aN ! condition handling routine (which can be a user-written or a libraryS ! routine) to longword 0 of the stack frame of the caller of LIB$ESTABLISH. ! ; ! ENTRY lib$establish ALIAS $lib_esta Cblish PARAMETER (/ ! ADDRESS (ENTRY) NAMED new_handler IN) ! TYPENAME procedure VALUE )? ! RETURNS ADDRESS (ENTRY) NAMED RESULT TYPENAME routine; ! LIB$EXPAND_NODENAME ! 8 ! Expand a Node Name to its Full Name equivalent ! D ! The Expand a Node Name to its Full Name equivalent routine: ! expands a node name to its full name equivalent. ! 3 EXTERNAL LONG FUNCTION lib$expand_nodename & (D &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! LIB$EXTV ! ) ! Extract a Field and Sign-Extend ! M ! The Extract a Field and Sign-Extend routine returns a sign-extendedP ! longword field that has been extracted from the specified variable bitQ ! field. LIB$EXTV makes the VAX EXTV instruction available as a callable ! routine. ! E ( EXTERNAL LONG FUNCTION lib$extv & ( &" LONG BY REF, &" BYTE BY REF, &# LONG BY VALUE & ) ! LIB$EXTZV ! ' ! Extract a Zero-Extended Field ! F ! The Extract a Zero-Extended Field routine returns a longwordH ! zero-extended field that has been extracted from the specifiedH ! variable bit field. LIB$EXTZV makes the VAX EXTZV instruction* F! available as a callable routine. ! ) EXTERNAL LONG FUNCTION lib$extzv & ( &" LONG BY REF, &" BYTE BY REF, &# LONG BY VALUE & ) ! LIB$FFC ! % ! Find First Clear or Set Bit ! P ! The Find First Clear or Set Bit routines search the field specified byM ! the start position, size, and base for the first clear or set bit. Q ! LIB$FFGC 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. ! ' EXTERNAL LONG FUNCTION lib$ffc & ( &" LONG BY REF, &" BYTE BY REF, &" LONG BY REF, &! LONG BY REF & ) ! LIB$FFS ! % ! Find First Clear H or Set Bit ! P ! The Find First Clear or Set Bit routines search the field specified byM ! the start position, size, and base for the first clear or set bit. Q ! 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. ! ' EXTERNAL LONG FUNCTION lib$ffs & ( &" LIONG BY REF, &" BYTE BY REF, &" LONG BY REF, &! LONG BY REF & ) ! LIB$FID_TO_NAME ! : ! Convert Device and File ID to File Specification ! Q ! The Convert Device and File ID to File Specification routine converts aG ! disk device name and file identifier to a file specification. ! / EXTERNAL LONG FUNCTION lib$fid_to_name & ( &% J STRING BY DESC, &' WORD DIM() BY REF, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &' WORD DIM() BY REF, &! LONG BY REF & ) ! LIB$FILE_SCAN !  ! File Scan ! N ! The File Scan routine searches an area, such as a directory, for allK ! files matching the file specification given and transfers programI ! execution to the K specified user-written routine. Wildcards areM ! acceptable. An action routine is called for each file and/or errorN ! found. LIB$FILE_SCAN allows the search sequence to continue even if= ! an error occurs while processing a particular file.M ! CP120606 - Changed fab type from unsigned int * to struct _fabdef *D ! and data types of arguments to user_success_procedure and < ! user_error_procedure from void to __unknown_params ! - EXTERNLAL LONG FUNCTION lib$file_scan & ( &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &) OPTIONAL LONG BY REF & ) ! LIB$FILE_SCAN_END !  ! End-of-File Scan ! P ! The End-of-File Scan routine is called after each sequence of calls toR ! LIB$FILE_SCAN. LIB$FILE_SCAN_END deallocates any saved Record ManagementS ! Service (RMS) contMext and/or deallocates the virtual memory that had beenK ! allocated for holding the related file specification information.G ! CP - Changed fab type from unsigned int * to struct _fabdef * ! 1 EXTERNAL LONG FUNCTION lib$file_scan_end & ( &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! LIB$FIND_FILE !  ! Find File ! P ! The Find File routine is called Nwith a wildcard file specification forP ! which it searches. LIB$FIND_FILE returns all file specifications that3 ! satisfy that wildcard file specification. ! - EXTERNAL LONG FUNCTION lib$find_file & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! O LONG BY REF & ) ! LIB$FIND_FILE_END !  ! End of Find File ! R ! The End of Find File routine is called once after each sequence of callsJ ! to LIB$FIND_FILE. LIB$FIND_FILE_END deallocates any saved RecordR ! Management Service (RMS) context and deallocates the virtual memory used. ! to hold the allocated context block. ! 1 EXTERNAL LONG FUNCTION lib$find_file_end & ( &! P LONG BY REF & ) ! LIB$FIND_IMAGE_SYMBOL ! 7 ! Find Universal Symbol in Shareable Image File ! I ! The Find Universal Symbol in Shareable Image File routine readsM ! universal symbols from the shareable image file. This routine thenN ! dynamically activates a shareable image into the P0 address space of ! a process. ! 5 EXTERNAL LONG FUNCTION lib$find_image_symbol & (Q &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &# LONG BY VALUE & ) ! LIB$FIND_VM_ZONE ! / ! Return the Next Valid Zone Identifier ! G ! The Return the Next Valid Zone Identifier routine returns theG ! zone identifier of the next valid zone in the heap management ! database. ! R0 EXTERNAL LONG FUNCTION lib$find_vm_zone & ( &" LONG BY REF, &! LONG BY REF & ) ! LIB$FIND_VM_ZONE_64 ! / ! Return the Next Valid Zone Identifier ! G ! The Return the Next Valid Zone Identifier routine returns theG ! zone identifier of the next valid zone in the heap management ! database. ! 3 EXTERNAL LONG FUNCTION lib$find_vm_zone_64 & S ( &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$FIT_NODENAME ! . ! Fit a Node Name into an output field ! : ! The Fit a Node Name into an output field routine0 ! fits a Node Name into an output field. ! 0 EXTERNAL LONG FUNCTION lib$fit_nodename & ( &% STRING BY DESC, &% STRING BY DESC, &* T OPTIONAL WORD BY REF, &! WORD BY REF & ) ! LIB$FIXUP_FLT ! ' ! Fix Floating Reserved Operand ! Q ! The Fix Floating Reserved Operand routine finds the reserved operand ofQ ! any F-floating, D-floating, G-floating, or H-floating instruction (withL ! some exceptions) after a reserved operand fault has been signaled.O ! LIB$FIXUP_FLT changes the reserved operand from --0.0 to the valueU ofL ! the new-operand argument, if present; or to +0.0 if new-operand is ! absent. ! K ! This routine is available on Alpha VMS systems in translated form: ! and is applicable to translated VAX images only. ! - EXTERNAL LONG FUNCTION lib$fixup_flt & ( &! ANY BY REF, &! ANY BY REF, &+ OPTIONAL SINGLE BY REF & ) ! LIB$FLT_UNDER ! , V ! Floating-Point Underflow Detection ! L ! The Floating-Point Underflow Detection routine enables or disablesP ! floating-point underflow detection for the calling routine activation.? ! The previous setting is returned as a function value. ! K ! This routine is available on Alpha VMS systems in translated form: ! and is applicable to translated VAX images only. ! - EXTERNAL LONG FUNCTION lib$flt_under & ( &W! LONG BY REF & ) ! LIB$FORMAT_DATE_TIME ! ! ! Format Date and/or Time ! S ! The Format Date and/or Time routine allows the user to select at run timeL ! a specific output language and format for a date or time, or both. ! 4 EXTERNAL LONG FUNCTION lib$format_date_time & ( &% STRING BY DESC, &4 OPTIONAL BASIC$QUADWORD BY REF, &" X LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! LIB$FORMAT_SOGW_PROT ! ! Format Protection Mask ! I ! The Format Protection Mask routine translates a protection mask" ! into a formatted string. ! 4 EXTERNAL LONG FUNCTION lib$format_sogw_prot & ( &" WORD BY REF, &1 BASIC$QUADWORD DIM() BY REF, &1 BAS YIC$QUADWORD DIM() BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & )$ ! LIB$FREE_DATE_TIME_CONTEXT ! Q ! Free the Context Area Used When Formatting Dates and Times for Input or ! Output ! R ! The Free the Context Area Used When Formatting Dates and Times for InputP ! or Output routine frees the virtual meZmory associated with the contextJ ! area used by the date/time input and output Formatting Routines. ! : EXTERNAL LONG FUNCTION lib$free_date_time_context & ( &) OPTIONAL LONG BY REF & ) ! LIB$FREE_EF !  ! Free Event Flag ! S ! The Free Event Flag routine frees a local event flag previously allocatedF ! by LIB$GET_EF. LIB$FREE_EF is the complement of LIB$GET_EF. ! [ + EXTERNAL LONG FUNCTION lib$free_ef & ( &! LONG BY REF & ) ! LIB$FREE_LUN ! " ! Free Logical Unit Number ! M ! The Free Logical Unit Number routine releases a logical unit numberR ! allocated by LIB$GET_LUN to the pool of available numbers. LIB$FREE_LUN, ! is the complement of LIB$GET_LUN. ! , EXTERNAL LONG FUNCTION lib$free_lun & ( &! \ LONG BY REF & ) ! LIB$FREE_TIMER !  ! Free Timer Storage ! E ! The Free Timer Storage routine frees the storage allocated  ! by LIB$INIT_TIMER. ! . EXTERNAL LONG FUNCTION lib$free_timer & ( &! LONG BY REF & ) ! LIB$FREE_VM ! 1 ! Free Virtual Memory from Program Region ! L ! The Free Virtual Memory from Program] Region routine deallocates anQ ! entire block of contiguous bytes that were allocated by a previous callN ! to LIB$GET_VM. The arguments passed are the same as for LIB$GET_VM. ! + EXTERNAL LONG FUNCTION lib$free_vm & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$FREE_VM_64 ! 1 ! Free Virtual Memory from Program Region ! ^ L ! The Free Virtual Memory from Program Region routine deallocates anQ ! entire block of contiguous bytes that were allocated by a previous callE ! to LIB$GET_VM_64. The arguments passed are the same as for ! LIB$GET_VM_64. ! . EXTERNAL LONG FUNCTION lib$free_vm_64 & ( &, BASIC$QUADWORD BY REF, &" LONG BY REF, &3 OPTIONAL BASIC$QUADWORD BY REF & ) ! _ LIB$FREE_VM_PAGE ! " ! Free Virtual Memory Page ! E ! The Free Virtual Memory Page routine deallocates a block ofJ ! contiguous pages on VAX or pagelets on Alpha that were allocated/ ! by previous calls to LIB$GET_VM_PAGE. ! 0 EXTERNAL LONG FUNCTION lib$free_vm_page & ( &" LONG BY REF, &! LONG BY REF & ) ! LIB$FREE_VM_PAGE_64 ! " ! Fr`ee Virtual Memory Page ! E ! The Free Virtual Memory Page routine deallocates a block ofJ ! contiguous pages on VAX or pagelets on Alpha that were allocated2 ! by previous calls to LIB$GET_VM_PAGE_64. ! 3 EXTERNAL LONG FUNCTION lib$free_vm_page_64 & ( &, BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! LIB$GETDVI ! ' ! Get Device/Volume Information ! a S ! The Get Device/Volume Information routine provides a simplified interfaceR ! to the $GETDVI system service. It returns information about the primaryM ! and secondary device characteristics of an I/O device. The callingO ! process need not have a channel assigned to the device about which it ! wants information. ! * EXTERNAL LONG FUNCTION lib$getdvi & ( &" LONG BY REF, &* OPTIONAL WORbD BY REF, &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &" WORD BY REF, &$ STRING BY DESC & ) ! LIB$GETJPI ! % ! Get Job/Process Information ! Q ! The Get Job/Process Information routine provides a simplified interfaceM ! to the $GETJPI system service. It provides accounting, status, and? ! identification informaticon about a specified process.K ! LIB$GETJPI obtains only one item of information in a single call. ! * EXTERNAL LONG FUNCTION lib$getjpi & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &% STRING BY DESC, &! WORD BY REF & ) ! LIB$GETQUI !  ! Get Queue Information d ! R ! The Get Queue Information routine provides a simplified interface to theO ! $GETQUI system service. It provides queue, job, file, characteristic,9 ! and form information about a specified process.K ! LIB$GETQUI obtains only one item of information in a single call. ! * EXTERNAL LONG FUNCTION lib$getqui & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &% e STRING BY DESC, &" LONG BY REF, &! ANY BY REF, &% STRING BY DESC, &! WORD BY REF & ) ! LIB$GETSYI ! $ ! Get Systemwide Information ! P ! The Get Systemwide Information routine provides a simplified interfaceS ! to the $GETSYI system service. The $GETSYI system service obtains status: ! and identification information about tfhe system.K ! LIB$GETSYI returns only one item of information in a single call. ! * EXTERNAL LONG FUNCTION lib$getsyi & ( &" LONG BY REF, &) OPTIONAL ANY BY REF, &% STRING BY DESC, &" WORD BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! LIB$GET_ACCNAM ! : ! Get Access Name Table for Protected Object Cglass ! N ! The Get Access Name Table for Protected Object Class routine returnsN ! a pointer to the access name table for a protected object class that ! is specified by name. ! . EXTERNAL LONG FUNCTION lib$get_accnam & ( &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & )# ! LIB$GET_ACCNAM_BY_CONTEXT ! : ! Get Access Name Tablhe for Protected Object Class ! N ! The Get Access Name Table for Protected Object Class routine returnsN ! a pointer to the access name table for a protected object class that$ ! is specified by a context. ! 9 EXTERNAL LONG FUNCTION lib$get_accnam_by_context & ( &" LONG BY REF, &! LONG BY REF & ) ! LIB$GET_COMMAND ! # ! Get Line from SYS$COMMAND ! i R ! The Get Line from SYS$COMMAND routine gets one record of ASCII text fromM ! the current controlling input device, specified by the logical name ! SYS$COMMAND. ! / EXTERNAL LONG FUNCTION lib$get_command & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &! WORD BY REF & ) ! LIB$GET_COMMON ! ! Get String from Common ! R ! j The Get String from Common routine copies a string in the common area toO ! the destination string. (The common area is an area of storage whichO ! remains defined across multiple image activations in a process.) TheL ! string length is taken from the first longword of the common area. ! . EXTERNAL LONG FUNCTION lib$get_common & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) k! LIB$GET_DATE_FORMAT ! * ! Get the User's Date Input Format ! P ! The Get The User's Date Input Format routine returns information about8 ! the user's choice of a date/time input format. ! 3 EXTERNAL LONG FUNCTION lib$get_date_format & ( &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! LIB$GET_EF !  ! Get Event Flag ! J ! lThe Get Event Flag routine allocates one local event flag from aO ! process-wide pool and returns the number of the allocated flag to theP ! caller. If no flags are available, LIB$GET_EF returns an error as its ! function value. ! * EXTERNAL LONG FUNCTION lib$get_ef & ( &! LONG BY REF & ) ! LIB$GET_FOREIGN ! " ! Get Foreign Command Line ! K ! The Get Foreign Commanmd Line routine requests the calling image'sJ ! Command Language Interpreter (CLI) to return the contents of the@ ! foreign command line that activated the current image. ! / EXTERNAL LONG FUNCTION lib$get_foreign & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &! LONG BY REF & )! ! LIB$GET_FULLNAME_OFFSET ! I ! nGet the Offset to the Starting Position of the Most Significant ! Part of a Full Name ! M ! The Get the Offset to the Starting Position of the Most SignificantE ! Part of a Full Name routine gets the offset to the starting? ! position of the most significant part of a full name. ! 7 EXTERNAL LONG FUNCTION lib$get_fullname_offset & ( &% STRING BY DESC, &! WORD BY REF & o ) ! LIB$GET_HOSTNAME !  ! Get Host Node Name ! F ! The Get Host Node Name routine returns the host node name of ! the local system. ! 0 EXTERNAL LONG FUNCTION lib$get_hostname & ( &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! LONG BY REF & ) ! LIB$GET_INPUT ! ! ! Get Line from SYS$INPUT ! P ! pThe Get Line from SYS$INPUT routine gets one record of ASCII text fromG ! the current controlling input device, specified by SYS$INPUT. ! - EXTERNAL LONG FUNCTION lib$get_input & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &! WORD BY REF & ) ! LIB$GET_LOGICAL !  ! Get Logical ! N ! The Get Logical routine gets the logical name informqation by calling0 ! the system service routine SYS$TRNLNM. ! / EXTERNAL LONG FUNCTION lib$get_logical & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" BYTE BY REF, &! LONG BY REF & ) ! LIB$GET_LUN ! r ! ! Get Logical Unit Number ! O ! The Get Logical Unit Number routine allocates one logical unit numberS ! from a process-wide pool. If a unit is available, its number is returnedP ! to the caller. Otherwise, an error is returned as the function value. ! + EXTERNAL LONG FUNCTION lib$get_lun & ( &! LONG BY REF & )% ! LIB$GET_MAXIMUM_DATE_LENGTH ! ; ! Retrieve the s Maximum Length of a Date/Time String ! N ! Given an output format and language, the Retrieve the Maximum LengthR ! of a Date/Time String routine determines the maximum possible length forB ! the date-string string returned by LIB$FORMAT_DATE_TIME. ! ; EXTERNAL LONG FUNCTION lib$get_maximum_date_length & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) t ! LIB$GET_SYMBOL ! ! ! Get Value of CLI Symbol ! L ! The Get Value of CLI Symbol routine requests the calling process'sP ! Command Language Interpreter (CLI) to return the value of a CLI symbolM ! as a string. LIB$GET_SYMBOL then returns the string to the caller.P ! Optionally, LIB$GET_SYMBOL can return the length of the returned value6 ! and the table in which the symbol was found. ! . EXTERNAL LONG FUNCTION liub$get_symbol & ( &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! LONG BY REF & ), ! LIB$GET_UIB_INFO ** IPF only ** ! F ! Returns information from the unwind information block (UIB). ! 0 EXTERNAL LONG FUNCTION lib$get_uib_info & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" v LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! LIB$GET_USERS_LANGUAGE ! $ ! Return the User's Language ! P ! The Return the User's Language routine determines the user's choice ofR ! a natural language. The choice is determined by translating the logical ! SYS$LANGUAGE. ! 6 EXTERNALw LONG FUNCTION lib$get_users_language & ( &$ STRING BY DESC & ) ! LIB$GET_VM ! ! ! Allocate Virtual Memory ! M ! The Allocate Virtual Memory routine allocates a specified number ofP ! contiguous bytes in the program region and returns the virtual address& ! of the first byte allocated. ! * EXTERNAL LONG FUNCTION lib$get_vm & ( &" LONG BY xREF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$GET_VM_64 ! ! ! Allocate Virtual Memory ! M ! The Allocate Virtual Memory routine allocates a specified number ofP ! contiguous bytes in the program region and returns the virtual address& ! of the first byte allocated. ! - EXTERNAL LONG FUNCTION lib$get_vm_64 & ( &, BASIC$QUADWORyD BY REF, &" LONG BY REF, &3 OPTIONAL BASIC$QUADWORD BY REF & ) ! LIB$GET_VM_PAGE ! ! ! Get Virtual Memory Page ! M ! The Get Virtual Memory Page routine allocates a specified number ofP ! contiguous pages on VAX and pagelets on Alpha of memory in the programO ! region and returns the virtual address of the first allocated page on# ! VAX and pagelet on Alpha. ! / z EXTERNAL LONG FUNCTION lib$get_vm_page & ( &" LONG BY REF, &! LONG BY REF & ) ! LIB$GET_VM_PAGE_64 ! ! ! Get Virtual Memory Page ! M ! The Get Virtual Memory Page routine allocates a specified number ofP ! contiguous pages on VAX and pagelets on Alpha of memory in the programO ! region and returns the virtual address of the first allocated page on# ! VAX {and pagelet on Alpha. ! 2 EXTERNAL LONG FUNCTION lib$get_vm_page_64 & ( &, BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! LIB$ICHAR ! 6 ! Convert First Character of String to Integer ! O ! The Convert First Character of String to Integer routine converts theO ! first character of a source string to an 8-bit ASCII integer extended ! to a longword. ! | ) EXTERNAL LONG FUNCTION lib$ichar & ( &$ STRING BY DESC & ) ! LIB$INDEX ! 1 ! Index to Relative Position of Substring ! O ! The Index to Relative Position of Substring routine returns an index,O ! which is the relative position of the first occurrence of a substring ! in the source string. ! ) EXTERNAL LONG FUNCTION lib$index & ( &% } STRING BY DESC, &$ STRING BY DESC & )$ ! LIB$INIT_DATE_TIME_CONTEXT ! R ! Initialize the Context Area Used in Formatting Dates and Times for Input ! or Output ! P ! The Initialize the Context Area Used in Formatting Dates and Times forP ! Input or Output routine allows the user to initialize the context areaO ! used by LIB$FORMAT_DATE_TIME or LIB$CONVERT_DATE_STRING with specific? ! ~ strings, instead of through logical name translation. ! : EXTERNAL LONG FUNCTION lib$init_date_time_context & ( &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! LIB$INIT_TIMER ! % ! Initialize Times and Counts ! N ! The Initialize Times and Counts routine stores the current values ofR ! specified times and counts for use by LIB$SHOW_TIMER or LIB$STAT_TIMER. ! . EXTERNAL LONG FUNCTION lib$init_timer & ( &) OPTIONAL LONG BY REF & ) ! LIB$INSERT_TREE ! 0 ! Insert Entry in a Balanced Binary Tree ! P ! The Insert Entry in a Balanced Binary Tree routine inserts a node in a ! balanced binary tree. ! / EXTERNAL LONG FUNCTION lib$insert_tree & ( &" LONG BY REF, &!  ANY BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &+ OPTIONAL LONG BY VALUE & ) ! LIB$INSERT_TREE_64 ! 0 ! Insert Entry in a Balanced Binary Tree ! P ! The Insert Entry in a Balanced Binary Tree routine inserts a node in a ! balanced binary tree. ! 2 EXTERNAL LONG FUNCTION lib$insert_tree_64 & ( &" LONG BY REF, &! ANY BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &5! OPTIONAL BASIC$QUADWORD BY VALUE & ) ! LIB$INSQHI ! ' ! Insert Entry at Head of Queue ! P ! The Insert Entry at Head of Queue routine inserts a queue entry at theI ! head of the specified self-relative interlocked longword queue.M ! LIB$INSQHI makes the VAX INSQHI instruction available as a callable ! routine. ! * EXTERNAL LONG FUNCTION lib$insqhi & ( &! ANY BY REF, &, BASIC$QUADWORD BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$INSQHIQ ! 2 ! Insert Entry at Head of Queue (Quadword) ! P ! The Insert Entry at Head of Queue routine inserts a queue entry at theI ! head of the specified self-relative interlocked quadword queue.N ! LIB$INSQHIQ makes the Alpha unprivileged PALcode instruction INSQHIQ* ! available as a callable routine. ! + EXTERNAL LONG FUNCTION lib$insqhiq & ( &! ANY BY REF, &, BASIC$OCTAWORD BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$INSQTI ! ' ! Insert Entry at Tail of Queue ! P ! The Insert Entry at Tail of Queue routine inserts a queue entry at theI ! tail of the specified self-relative interlocked longword queue.M ! LIB$INSQTI makes the VAX INSQTI instruction available as a callable ! routine. ! * EXTERNAL LONG FUNCTION lib$insqti & ( &! ANY BY REF, &, BASIC$QUADWORD BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$INSQTIQ ! 2 ! Insert Entry at Tail of Queue (Quadword) ! P ! The Insert Entry at Tail of Queue routine inserts a queue entry at theI ! tail of the specified self-relative interlocked quadword queue.N ! LIB$INSQTIQ makes the Alpha unprivileged PALcode instruction INSQTIQ* ! available as a callable routine. ! + EXTERNAL LONG FUNCTION lib$insqtiq & ( &!  ANY BY REF, &, BASIC$OCTAWORD BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$INSV ! % ! Insert a Variable Bit Field ! Q ! The Insert a Variable Bit Field routine replaces the variable bit fieldQ ! specified by the base, position, and size arguments with bits 0 throughO ! of the source field. If the size of the bit field is zero, nothing isK ! inserted. LIB$INSV makes the VAX INSV instruction available as a ! callable routine. !  EXTERNAL SUB lib$insv & ( &" LONG BY REF, &" LONG BY REF, &" BYTE BY REF, &# LONG BY VALUE & ) ! LIB$INT_OVER ! $ ! Integer Overflow Detection ! L ! The Integer Overflow Detection routine enables or disables integerN ! overflow detection for the c alling routine activation. The previous6 ! integer overflow enable setting is returned. ! K ! This routine is available on Alpha VMS systems in translated form: ! and is applicable to translated VAX images only. ! , EXTERNAL LONG FUNCTION lib$int_over & ( &! LONG BY REF & )5 ! LIB$I64_CREATE_INVO_CONTEXT ** IPF only ** ! S ! A thread can allocte an invocation context block on the heap by using the$ ! following function format: ! 9 EXTERNAL LONG FUNCTION lib$i64_create_invo_context4 ! LIB$I64_FREE_INVO_CONTEXT ** IPF only ** ! P ! A thread can free an invocation context block to the heap by using the$ ! following function format: ! / EXTERNAL SUB lib$i64_free_invo_context & ( &! LONG BY REF & )7 ! LIB$I64_GET_CURR_INVO_CONTEXT ** IPF only **  ! Z ! A thread can obtain the invocation context of the current procedure by using the$ ! following function format: ! = EXTERNAL LONG FUNCTION lib$i64_get_curr_invo_context & ( &! LONG BY REF & )6 ! LIB$I64_GET_CURR_INVO_HANDLE ** IPF only ** ! W ! A thread can obtain the invocation handle corresponding to current invocationR ! context of the current procedure by using the following function format: ! < EXTERNAL LONG FUNCTION lib$i64_get_curr_invo_handle & ( &! LONG BY REF & )2 ! LIB$I64_GET_INVO_CONTEXT ** IPF only ** ! Y ! A thread can obtain the invocation context of any active procedure by using the$ ! following function format: ! 8 EXTERNAL LONG FUNCTION lib$i64_get_invo_context & ( &" LONG BY REF, &! LONG BY REF & )1 ! LIB$I64_GET_INVO_HANDLE ** IPF only ** ! Z ! A thread can obtain an invocation handle corresponding to any invocation context7 ! block by using the following function format: ! 7 EXTERNAL LONG FUNCTION lib$i64_get_invo_handle & ( &" LONG BY REF, &! LONG BY REF & )7 ! LIB$I64_GET_PREV_INVO_CONTEXT ** IPF only ** ! [ ! A thread  can obtain the invocation context of the procedure context preceding anyI ! other procedure context by using the following function format: ! = EXTERNAL LONG FUNCTION lib$i64_get_prev_invo_context & ( &! LONG BY REF & )6 ! LIB$I64_GET_PREV_INVO_HANDLE ** IPF only ** ! Z ! A thread can obtain an invocation handle of the procedure context preceding thatR ! of a specified procedure context by using the following function format: ! < EXTERNAL LONG FUNCTION lib$i64_get_prev_invo_handle & ( &" LONG BY REF, &! LONG BY REF & )4 ! LIB$I64_INIT_INVO_CONTEXT ** IPF only ** ! J ! A thread can initialize an invocation context block by using the$ ! following function format: ! 9 EXTERNAL LONG FUNCTION lib$i64_init_invo_context & ( &"  LONG BY REF, &$ BYTE BY VALUE, &+ OPTIONAL LONG BY VALUE & )0 ! LIB$I64_PREV_INVO_END ** IPF only ** ! W ! This routine should be called at the conclusion of call tracing operations toX ! free the memory used to process unwind descriptors. The call tracing routinesJ ! are LIB$I64_GET_INVO_CONTEXT, LIB$I64_GET_PREV_INVO_CONTEXT, and( ! LIB$I64_GET_CURR_INVO_CONTEXT. ! [ ! To provide e fficient call tracing, some unwind information can be tracked in heapZ ! storage from one call to the next. This heap storage should be freed before you8 ! release or reuse the invocation context block. ! U ! Calling this routine is only necessary if the LIBICB$V_UO_FLAG_CACHE_UNWINDN ! flag is set in the LIBICB$Q_UO_FLAGS field of the invocation contextJ ! block. This flag causes unwind information to be cached between ! calls. ! 5  EXTERNAL LONG FUNCTION lib$i64_prev_invo_end & ( &! LONG BY REF & )4 ! LIB$I64_PUT_INVO_REGISTERS ** IPF only ** ! T ! The fields of a given procedure invocation context can be updated with newY ! register contents by calling a system library function in the following format: ! : EXTERNAL LONG FUNCTION lib$i64_put_invo_registers & ( &" LONG BY REF, &"  LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ), ! LIB$I64_SET_FPSR ** IPF only ** ! S ! Given an invocation context block and a quadword FPSR value in fpsr_copy,U ! write the fpsr_copy value to the invocation context block FPSR and then useS ! LIB$I64_PUT_INVO_REGISTERS to write to the actual context. The invocation? ! context block remains unchanged if the routine fails. ! 0 EXTERNAL LONG FUNCTION lib$i64_set_fpsr & ( &" LONG BY REF, &! LONG BY REF & )* ! LIB$I64_GET_FR ** IPF only ** ! W ! Given an invocation context block and floating-point register index such thatU ! 2 <= index < 128, copy the register value to fr_copy. For example, an index Y ! value of 4 fetches the invocation context block FREG[4] value, which represents- ! the contents of F4 for the context. ! . EXTERNAL LONG FUNCTION lib$i64_get_fr & ( &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & )* ! LIB$I64_SET_FR ** IPF only ** ! a ! Given an invocation context block, a floating-point register index, and a floatingpointV ! register value in fr_copy, writes the corresponding invocation context blockN ! FREG entry, and calls LIB$I64_PUT_INVO_REGISTERS to write the actualW ! context. The invocation context block remains unchanged if the routine fails. ! . EXTERNAL LONG FUNCTION lib$i64_set_fr & ( &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & )* ! LIB$I64_GET_GR ** IPF only **  ! P ! Given an invocation context block and general register index such thatT ! 0 < index < 128,) copy the register value to gr_copy, for example, index 4[ ! fetches the invocation context block IREG[4] value, which represents the contents ! of R4 for the context. ! . EXTERNAL LONG FUNCTION lib$i64_get_gr & ( &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF &  )* ! LIB$I64_SET_GR ** IPF only ** ! O ! Given an invocation context block, a general register index such thatQ ! 0 < index < 128, and a quadword value gr_copy, writes the correspondingU ! invocation context block general register, clears the corresponding NaT bitQ ! and uses LIB$I64_PUT_INVO_REGISTERS to write to the actual context. TheJ ! invocation context block remains unchanged if the routine fails. ! . EXTERNAL LONG FU NCTION lib$i64_set_gr & ( &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & )* ! LIB$I64_SET_PC ** IPF only ** ! U ! Given an invocation context block and a quadword PC value in pc_copy, writeX ! the pc_copy value to the invocation context block PC and then use LIB$I64_PUT_U ! INVO_REGISTERS to write to the actual context. The invocation context block1 ! rema ins unchanged if the routine fails. ! . EXTERNAL LONG FUNCTION lib$i64_set_pc & ( &" LONG BY REF, &! LONG BY REF & )7 ! LIB$I64_GET_UNWIND_HANDLER_FV ** IPF only ** ! Y ! Given a pc_value, find the function value (address of the procedure descriptor)\ ! for the condition handler, if present, and write it to handler_fv. If not present,% ! then write 0 to handler_fv. !  = EXTERNAL LONG FUNCTION lib$i64_get_unwind_handler_fv & ( &" LONG BY REF, &! LONG BY REF & )2 ! LIB$I64_GET_UNWIND_LSDA ** IPF only ** ! L ! Given a pc_value, find the address of the unwind information blockX ! language-specific data area (LSDA), if present, and write it to unwind_lsda_p.9 ! If not present, then write 0 to unwind_lsda_va. ! 7 EXTERNAL LONG FUNCTI ON lib$i64_get_unwind_lsda & ( &" LONG BY REF, &! LONG BY REF & )2 ! LIB$I64_GET_UNWIND_OSSD ** IPF only ** ! V ! Given a pc_value, find the address of the unwind information block operatingV ! system-specific data area, if present, and write it to unwind_ossd_p. If not1 ! present, then write 0 to unwind_ossd_p. ! 7 EXTERNAL LONG FUNCTION lib$i64_get_unwind_ossd &  ( &" LONG BY REF, &! LONG BY REF & )7 ! LIB$I64_IS_AST_DISPATCH_FRAME ** IPF only ** ! 4 ! Used to determine whether a given PC value, ! represents the AST dispatch frame. ! = EXTERNAL LONG FUNCTION lib$i64_is_ast_dispatch_frame & ( &! LONG BY REF & )7 ! LIB$I64_IS_EXC_DISPATCH_FRAME ** IPF only ** ! 4 ! Used to determine whether a given PC value2 ! represents the exception dispatch frame. ! = EXTERNAL LONG FUNCTION lib$i64_is_exc_dispatch_frame & ( &! LONG BY REF & ) ! LIB$LEN ! 5 ! Length of String Returned as Longword Value ! M ! The Length of String Returned as Longword Value routine returns the ! length of a string. ! ' EXTERNAL WORD FUNCTION lib$len &  ( &$ STRING BY DESC & ) ! LIB$LOCC !  ! Locate a Character ! K ! The Locate a Character routine locates a character in a string byP ! comparing successive bytes in the string with the character specified.P ! The search continues until the character is found or the string has noP ! more characters. LIB$LOCC makes the VAX LOCC instruction available as ! a callable routine. ! ( EXTERNAL LONG FUNCTION lib$locc & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$LOCK_IMAGE  ! # ! Lock Image in working set ! C ! Lock all address ranges associated with a specified image ! into the working set. ! . EXTERNAL LONG FUNCTION lib$lock_image & ( &+ BASIC$QUADWORD BY REF & ) ! LIB$LOOKUP_KEY ! " ! Look Up Keyword in Table ! P ! The Look Up Keyword In Table routine scans a table of keywords to findK ! one that matches the keyword or keyword abbreviation specified by ! search-string. ! . EXTERNAL LONG FUNCTION lib$lookup_key & ( &% STRING BY DESC, &! ANY BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &!  WORD BY REF & ) ! LIB$LOOKUP_TREE ! 4 ! Look Up an Entry in a Balanced Binary Tree ! L ! The Look Up an Entry in a Balanced Binary Tree routine looks up an* ! entry in a balanced binary tree. ! / EXTERNAL LONG FUNCTION lib$lookup_tree & ( &" LONG BY REF, &! ANY BY REF, &$ LONG BY VALUE, &! LONG BY REF &  ) ! LIB$LOOKUP_TREE_64 ! 4 ! Look Up an Entry in a Balanced Binary Tree ! L ! The Look Up an Entry in a Balanced Binary Tree routine looks up an* ! entry in a balanced binary tree. ! 2 EXTERNAL LONG FUNCTION lib$lookup_tree_64 & ( &" LONG BY REF, &! ANY BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! LIB$LP_LINES ! $ ! Lines on Each Printer Page ! O ! The Lines on Each Printer Page routine computes the default number ofO ! lines on a printer page. This routine can be used by native-mode VMSB ! utilities that produce listing files and paginate files. ! * EXTERNAL LONG FUNCTION lib$lp_lines ! LIB$MATCHC ! 4 ! Match Characters, Return Relative Position ! N ! The Match Characters and Return Re lative Position routine searches aP ! source string for a specified substring and returns an index, which isM ! the relative position of the first occurrence of a substring in theQ ! source string. The relative character positions returned by LIB$MATCHCN ! are numbered 1, 2, , n. Thus, zero means that the substring was not ! found. ! * EXTERNAL LONG FUNCTION lib$matchc & ( &% STRING BY DESC, &$  STRING BY DESC & ) ! LIB$MATCH_COND ! ! Match Condition Values ! O ! The Match Condition Values routine checks to see if a given conditionC ! value matches a list of condition values that you supply. ! . EXTERNAL LONG FUNCTION lib$match_cond & ( &" LONG BY REF, & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &) ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! LIB$MOVC3 !  ! Move Characters ! O ! The Move Characters routine makes the VAX MOVC3 instruction availableS ! as a callable routine. The source item is moved to the destination item.Q ! Overlap of the source and destination items does not affect the result. !  EXTERNAL SUB lib$movc3 & ( &" WORD BY REF, &! ANY BY REF, & ANY BY REF & ) ! LIB$MOVC5 ! # ! Move Characters with Fill ! O ! The Move Characters with Fill routine makes the VAX MOVC5 instructionK ! available as a callable routine. The source item is moved to theQ ! destination item. Overlap of the source and destination items does not ! affect the result. !  EXTERNAL SUB lib$movc5 & ( &" WORD BY REF, &! ANY BY REF, &" BYTE BY REF, &" WORD BY REF, & ANY BY REF & ) ! LIB$MOVTC ! $ ! Move Translated Characters ! I ! The Move Translated Characters routine moves the source string,M !  character by character, to the destination string after translating@ ! each character using the specified translation table. K ! LIB$MOVTC makes the VAX MOVTC instruction available as a callable ! routine. ! ) EXTERNAL LONG FUNCTION lib$movtc & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$MOVT UC ! ) ! Move Translated Until Character ! N ! The Move Translated Until Character routine moves the source string,R ! character by character, to the destination string after translating eachR ! character using the specified translation table until the stop characterP ! is encountered. LIB$MOVTUC makes the VAX MOVTUC instruction available ! as a callable routine. ! * EXTERNAL LONG FUNCTION lib$movtuc &  ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &, OPTIONAL STRING BY DESC & ) ! LIB$MT_DENSITY_CONVERSION ! ; ! Convert the DCL command line qualifiers specfied for8 ! /DENSITY, /COMPACTION, /MEDIA_FORMAT=DENSITY= and@ ! /MEDIA_FORMAT=COMPACTION to a OpenVMS density/compressionA ! code (MT3DEF or MTDEF symbols) and return value indicatingD ! the tape driver owning the device is MTD enhanced or not. ! 9 EXTERNAL LONG FUNCTION lib$mt_density_conversion & ( &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) ! % ! LIB$MT_DENSITY_VERIFICATION  ! B ! Verify a OpenVMS density/compression code (MT3DEF or MTDEF A ! symbols) is indeed an acceptable density/compression codeB ! for both MTD enhanced tape device drivers and non enhanced; ! tape device drivers. Also return a value indicating? ! the driver owning the device is MTD enhanced or not. ! ; EXTERNAL LONG FUNCTION lib$mt_density_verification & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) ! !  ! LIB$MT_DENSITY_STRCVT ! E ! Copies the string equivalent of a OpenVMS density/compression D ! code into a user supplied buffer. This works for both MT3DEF! ! symbols and MTDEF symbols. ! ! 5 EXTERNAL LONG FUNCTION lib$mt_density_strcvt & ( &$ LONG BY VALUE, &# STRING BY REF & ) ! LIB$MULTF_DELTA_TIME ! 5 ! Multiply Delta Time by an F_Floating Scalar ! N ! The Multiply Delta Time by an F-Floating Scalar routine multiplies a- ! delta time by an F-floating scalar. ! 4 EXTERNAL LONG FUNCTION lib$multf_delta_time & ( &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$MULTS_DELTA_TIME ! 5 ! Multiply Delta Time by an S_Floating Scalar ! N ! The Multiply Delta Time by an S-Floating Scalar routine multiplies a- ! delta time by an S-floating scalar. ! 4 EXTERNAL LONG FUNCTION lib$mults_delta_time & ( &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$MULT_DELTA_TIME ! ' ! Multiply Delta Time by Scalar ! N ! The Multiply Delta Time by Scalar routine multiplies a delta time by$ ! a longword integer scalar. ! 3 EXTERNAL LONG FUNCTION lib$mult_delta_time & ( &"  LONG BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$PARSE_ACCESS_CODE ! * ! Parse Access Encoded Name String ! L ! The Parse Access Encoded Name String routine parses and translatesI ! a string of access names into a mask for a particular ownership ! category. ! 5 EXTERNAL LONG FUNCTION lib$parse_access_code & ( &% STRING BY DESC, &1  BASIC$QUADWORD DIM() BY REF, &" WORD BY REF, &" WORD BY REF, &) OPTIONAL WORD BY REF & ) ! LIB$PARSE_SOGW_PROT ! ! ! Parse Protection String ! C ! The Parse Protection String routine parses and translates5 ! a protection string into a protection mask. ! 3 EXTERNAL LONG FUNCTION lib$parse_sogw_prot & ( &% STRING BY DESC, &1 BASIC$QUADWORD DIM() BY REF, &" WORD BY REF, &" WORD BY REF, &) OPTIONAL WORD BY REF & ) ! LIB$PAUSE ! ! ! Pause Program Execution ! L ! The Pause Program Execution routine suspends program execution and7 ! returns control to the calling command level. ! ' EXTERNAL LONG FUNCTION lib$pause ! LIB$POLYD !  ! Evaluate Polynomials ! K ! The Evaluate Polynomials routine (D-floating point values) allowsH ! higher-level language users to evaluate D-floating point value ! polynomials. ! ) EXTERNAL LONG FUNCTION lib$polyd & ( &$ DOUBLE BY REF, &" WORD BY REF, &) DOUBLE DIM() BY REF, &# DOUBLE BY REF & ) ! LIB$POLYF !   ! Evaluate Polynomials ! K ! The Evaluate Polynomials routine (F-floating point values) allowsB ! higher-level language users to evaluate F-floating point ! polynomials. ! ) EXTERNAL LONG FUNCTION lib$polyf & ( &$ SINGLE BY REF, &" WORD BY REF, &) SINGLE DIM() BY REF, &# SINGLE BY REF & ) ! LIB$POLYT !  ! Evaluate Polynomials ! K ! The Evaluate Polynomials routine (T-floating point values) allowsH ! higher-level language users to evaluate T-floating point value ! polynomials. ! ) EXTERNAL LONG FUNCTION lib$polyt & ( &$ DOUBLE BY REF, &" WORD BY REF, &) DOUBLE DIM() BY REF, &# DOUBLE BY REF & ) ! LIB$POLYS !  ! Evaluate Polynomials ! K ! The Evaluate Polynomials routine (S-floating point values) allowsB ! higher-level language users to evaluate S-floating point ! polynomials. ! ) EXTERNAL LONG FUNCTION lib$polys & ( &$ SINGLE BY REF, &" WORD BY REF, &) SINGLE DIM() BY REF, &# SINGLE BY REF & ) ! LIB$POLYG !  ! Evaluate Polynomials ! K ! The Evaluate Polynomials routine (G-floating point values) allowsH ! higher-level language users to evaluate G-floating point value ! polynomials. ! ) EXTERNAL LONG FUNCTION lib$polyg & ( &$ GFLOAT BY REF, &" WORD BY REF, &) GFLOAT DIM() BY REF, &# GFLOAT BY REF & ) ! LIB$POLYH !  ! Evaluate Polynomials  ! P ! On VAX VMS, the Evaluate Polynomials routine (H-floating point values)P ! allows higher-level language users to evaluate H-floating point value ! polynomials. ! L ! This routine is not available to native Alpha VMS programs, but is- ! available to translated VAX images. ! L ! This routine is not available to native Alpha VMS programs, but isR ! recognized and handled appropriately by most Digital high-level language ! compilers. ! ) EXTERNAL LONG FUNCTION lib$polyh & ( &. BASIC$HFLOAT_AXP BY REF, &" WORD BY REF, &3 BASIC$HFLOAT_AXP DIM() BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! LIB$PUT_COMMON !  ! Put String to Common ! O ! The Put String to Common routine copies the contents of a string intoO ! the common area. The common area is an area of storage which remainsN ! defined across multiple image activations in a process. Optionally,H ! LIB$PUT_COMMON returns the actual number of characters copied.E ! The maximum number of characters that can be copied is 252. ! . EXTERNAL LONG FUNCTION lib$put_common & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! LIB$PUT_OUTPUT ! ! Put Line to SYS$OUTPUT ! K ! The Put Line to SYS$OUTPUT routine writes a record to the currentO ! controlling output device, specified by SYS$OUTPUT using the RMS $PUT ! service. ! . EXTERNAL LONG FUNCTION lib$put_output & ( &$ STRING BY DESC & ) ! LIB$RADIX_POINT !  ! Radix Point Symbol ! Q ! The Radix Point Symbol routine returns the system's radix point symbol.P  ! This symbol is used inside a digit string to separate the integer partP ! from the fraction part. This routine works by attempting to translateQ ! the logical name SYS$RADIX_POINT as a process, group, or system logical ! name. ! / EXTERNAL LONG FUNCTION lib$radix_point & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! LIB$REMQHI ! ) ! Remove Entry fro m Head of Queue ! O ! The Remove Entry from Head of Queue routine removes an entry from theJ ! head of the specified self-relative interlocked longword queue. B ! LIB$REMQHI makes the VAX REMQHI instruction available as ! a callable routine. ! * EXTERNAL LONG FUNCTION lib$remqhi & ( &, BASIC$QUADWORD BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & )  ! LIB$REMQHIQ ! 4 ! Remove Entry from Head of Queue (Quadword) ! O ! The Remove Entry from Head of Queue routine removes an entry from theJ ! head of the specified self-relative interlocked quadword queue. N ! LIB$REMQHIQ makes the Alpha unprivileged PALcode instruction REMQHIQ* ! available as a callable routine. ! + EXTERNAL LONG FUNCTION lib$remqhiq & ( &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$REMQTI ! ) ! Remove Entry from Tail of Queue ! O ! The Remove Entry from Tail of Queue routine removes an entry from theJ ! tail of the specified self-relative interlocked longword queue. D ! LIB$REMQTI makes the VAX REMQTI instruction available as a ! callable routine. ! * EXTERNAL LONG FUNCTION lib$remqti &  ( &, BASIC$QUADWORD BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$REMQTIQ ! 4 ! Remove Entry from Tail of Queue (Quadword) ! O ! The Remove Entry from Tail of Queue routine removes an entry from theJ ! tail of the specified self-relative interlocked quadword queue. N ! LIB$REMQTIQ makes the Alpha unprivileged PALcode instruction REMQTIQ*  ! available as a callable routine. ! + EXTERNAL LONG FUNCTION lib$remqtiq & ( &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$RENAME_FILE ! " ! Rename One or More Files ! O ! The Rename One or More Files routine changes the names of one or moreI ! files. The specification of the files to be renamed may includeO ! wildcards. LIB$RENAME_FILE is similar in function to the DCL command ! RENAME. ! / EXTERNAL LONG FUNCTION lib$rename_file & ( &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$  LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! LIB$RESERVE_EF !  ! Reserve Event Flag ! L ! The Reserve Event Flag routine allocates a local event flag number) ! specified by event-flag-number. ! . EXTERNAL LONG FUNCTION lib$reserve_ef & ( &! LONG BY REF & ) ! LIB$RESET_VM_ZONE ! # ! Reset Virtual Memory Zone ! O ! The Reset Virtual Memory Zone routine frees all blocks of memory that2 ! were previously allocated from the zone. ! 1 EXTERNAL LONG FUNCTION lib$reset_vm_zone & ( &! LONG BY REF & ) ! LIB$RESET_VM_ZONE_64 ! # ! Reset Virtual Memory Zone ! O ! The Reset Virtual Memory Zone routine frees all blocks of memory that2 ! were previously allocated from the zone. ! 4 EXTERNAL LONG FUNCTION lib$reset_vm_zone_64 & ( &+ BASIC$QUADWORD BY REF & ) ! LIB$REVERT ! 8 ! Revert to the Handler of the Routine Activator ! P ! The Revert to the Handler of the Routine Activator routine deletes theP ! condition handler established by LIB$ESTABLISH by clearing the addressN  ! pointing to the condition handler from the activated routine's stack ! frame. ! ) ! ENTRY lib$revert ALIAS $lib_revert7 ! RETURNS ADDRESS NAMED RESULT TYPENAME address; ! LIB$RUN_PROGRAM !  ! Run New Program ! P ! The Run New Program routine causes the current program to stop running2 ! and begins execution of another program. ! / EXTERNAL LONG FUNCTION lib$run_program & ( &$  STRING BY DESC & ) ! LIB$SCANC ! : ! Scan for Characters and Return Relative Position ! Q ! The Scan for Characters and Return Relative Position routine is used toC ! find a specified set of characters in the source string. B ! LIB$SCANC makes the VAX SCANC instruction available as a ! callable routine. ! ) EXTERNAL LONG FUNCTION lib$scanc & ( &%  STRING BY DESC, &' BYTE DIM() BY REF, &! BYTE BY REF & ) ! LIB$SCOPY_DXDX ! @ ! Copy Source String Passed by Descriptor to Destination ! L ! The Copy Source String Passed by Descriptor to Destination routineN ! copies a source string passed by descriptor to a destination string. ! . EXTERNAL LONG FUNCTION lib$scopy_dxdx & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$SCOPY_R_DX ! F ! Copy Source String Passed by Reference to Destination String ! R ! The Copy Source String Passed by Reference to Destination String routineM ! copies a source string passed by reference to a destination string. ! . EXTERNAL LONG FUNCTION lib$scopy_r_dx & ( &" WORD BY REF, &$ STRING BY REF, &$  STRING BY DESC & ) ! LIB$SCOPY_R_DX_64 ! F ! Copy Source String Passed by Reference to Destination String ! R ! The Copy Source String Passed by Reference to Destination String routineM ! copies a source string passed by reference to a destination string. ! 1 EXTERNAL LONG FUNCTION lib$scopy_r_dx_64 & ( &, BASIC$QUADWORD BY REF, &$ STRING BY REF, &$ STRING BY DESC & ) ! LIB$SET_LOGICAL !  ! Set Logical Name ! M ! The Set Logical Name routine requests the calling process's CommandL ! Language Interpreter (CLI) to define or redefine a supervisor-modeP ! process logical name. It provides the same function as the DCL DEFINE ! command. ! / EXTERNAL LONG FUNCTION lib$set_logical & ( &% STRING  BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, & ANY BY REF & ) ! LIB$SET_SYMBOL ! ! ! Set Value of CLI Symbol ! L ! The Set Value of CLI Symbol routine requests the calling process'sP ! Command Language Interpreter (CLI) to define or redefine a CLI symbol. ! . EXTERNAL LONG FUNCTION lib$set_symbol &  ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! LIB$SFREE1_DD ! ! ! Free One Dynamic String ! P ! The Free One Dynamic String routine returns the dynamically allocated ' ! storage for a dynamic string. ! - EXTERNAL LONG FUNCTION lib$sfree1_dd & ( &+ BASIC$QUADWORD BY REF & ) ! LIB$SFREEN_DD ! * ! Free One or More Dynamic Strings ! R ! The Free One or More Dynamic Strings routine returns one or more dynamic" ! strings to free storage. ! - EXTERNAL LONG FUNCTION lib$sfreen_dd & ( &" LONG BY REF, &0 BASIC$QUADWORD DIM() BY REF & ) ! LIB$SGET1_DD ! ! Get One Dynamic String ! P ! The Get One Dynamic String routine allocates dynamic virtual memory to, ! the string descriptor you specify. ! , EXTERNAL LONG FUNCTION lib$sget1_dd & ( &" WORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$SGET1_DD_64 ! ! Get One Dynamic String ! P ! The Get One Dynamic String routine allocates dynamic virtual memory to, ! the string descriptor you specify. ! /  EXTERNAL LONG FUNCTION lib$sget1_dd_64 & ( &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$SHOW_TIMER ! + ! Show Accumulated Times and Counts ! P ! The Show Accumulated Times and Counts routine returns times and countsP ! accumulated since the last call to LIB$INIT_TIMER and displays them onK ! SYS$OUTPUT. (LIB$INIT_TIMER must be called prior to invoking thisJ ! routine.) A user-supplied action routine may change this default ! behavior. ! . EXTERNAL LONG FUNCTION lib$show_timer & ( &* OPTIONAL LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! LIB$SHOW_VM ! ( ! Show Virtual Memory Statistics ! K ! The Show Virtual Memory Statistics routine returns the statisticsM ! accumulated from calls to LIB$GET_VM, LIB$FREE_VM, LIB$GET_VM_PAGE, ! and LIB$FREE_VM_PAGE. ! + EXTERNAL LONG FUNCTION lib$show_vm & ( &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! LIB$SHOW_VM_64 ! ( ! Show Virtual Memory Statistics ! K ! The Show Virtual Memory Statistics routine returns the statisticsB ! accumulated from calls to LIB$GET_VM_64, LIB$FREE_VM_64,7 ! LIB$GET_VM_PAGE_64, and LIB$FREE_VM_PAGE_64. ! . EXTERNAL LONG FUNCTION lib$show_vm_64 & ( &4 OPTIONAL BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &-! BASIC$QUADWORD BY VALUE & ) ! LIB$SHOW_VM_ZONE ! ) ! Return Information About a Zone ! S ! The Return Infor mation About a Zone routine returns formatted informationR ! about the specified zone, detailing such information as the zone's name,L ! characteristics, and areas, and then passes the information to the. ! specified or default action routine. ! 0 EXTERNAL LONG FUNCTION lib$show_vm_zone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE &  ) ! LIB$SHOW_VM_ZONE_64 ! ) ! Return Information About a Zone ! S ! The Return Information About a Zone routine returns formatted informationR ! about the specified zone, detailing such information as the zone's name,L ! characteristics, and areas, and then passes the information to the. ! specified or default action routine. ! 3 EXTERNAL LONG FUNCTION lib$show_vm_zone_64 & ( &,  BASIC$QUADWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &-! BASIC$QUADWORD BY VALUE & ) ! LIB$SIGNAL ! $ ! Signal Exception Condition ! R ! The Signal Exception Condition routine generates a signal that indicatesR ! that an exception condition has occurred in your program. If a conditionS ! handler does not take corrective action and the condition is severe, then! ! your program will exit. ! EXTERNAL SUB lib$signal & ( &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, & ANY BY VALUE,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,, ,,,,,,,,,, & ) ! LIB$SIG_TO_RET ! - ! Signal Converted to a Return Status ! O ! The Signal Converted to a Return Status routine converts any signaledS ! condition value to a value returned as a function. The signaled conditionL ! is returned to the caller of the user routine that established theQ ! handler that is calling LIB$SIG_TO_RET. This routine may be established0 ! as or called from a condition handler. ! . EXTERNAL LONG FUNCTION lib$sig_to_ret & ( &! ANY BY REF, & ANY BY REF & ) ! LIB$SIG_TO_STOP ! 9 ! Convert a Signaled Condition to a Signaled Stop ! P ! The Convert a Signaled Condition to a Signaled Stop routine converts aN ! signaled condition to a signaled condition that cannot be continued. ! / EXTERNAL LONG FUNCTION lib$sig_to_stop & ( &! ANY BY REF, & ANY BY REF & ) ! LIB$SIM_TRAP ! ! Simulate Floating Trap ! Q ! The Simulate Floating Trap routine converts floating faults to floatingS ! traps. It can be enabled as a condition handler or can be called by one. ! L ! This routine is not available to native Alpha VMS programs, but is- ! available to translated VAX images. ! , EXTERNAL LONG FUNCTION lib$sim_trap & ( &! ANY BY REF, & ANY BY REF & ) ! LIB$SKPC !  ! Skip Equal Characters ! N ! The Skip Equal Characters routine compares each character of a givenP ! string with a given character and returns the relative position of theL ! first nonequal character as an index. LIB$SKPC makes the VAX SKPC6 ! instruction available as a callable routine. ! ( EXTERNAL LONG FUNCTION lib$skpc & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$SPANC ! " ! Skip Selected Characters ! Q ! The Skip Selected Characters routine is used to skip a specified set ofI ! characters in the source string. LIB$SPANC makes the VAX SPANC6 ! instruction available as a callable routine. ! )  EXTERNAL LONG FUNCTION lib$spanc & ( &% STRING BY DESC, &' BYTE DIM() BY REF, &! BYTE BY REF & ) ! LIB$SPAWN !  ! Spawn Subprocess ! P ! The Spawn Subprocess routine requests the command language interpreterN ! (CLI) of the calling process to spawn a subprocess for executing CLIS ! commands. LIB$SPAWN provides the same function as the DCL SPAWN command. ! ) EXTERNAL LONG FUNCTION lib$spawn & ( &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &" BYTE BY REF, &$ LONG BY VALUE, &# ANY BY VALUE, &% STRING  BY DESC, &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! LIB$STAT_TIMER ! 9 ! Statistics, Return Accumulated Times and Counts ! M ! The Statistics, Return Accumulated Times and Counts routine returnsN ! to its caller one of five available statistics accumulated since theP ! last call to LIB$INIT_TIMER. Unlike LIB$SHOW_TIMER, which formats theL !  values for output, LIB$STAT_TIMER returns the value as an unsigned ! longword or quadword. ! . EXTERNAL LONG FUNCTION lib$stat_timer & ( &" LONG BY REF, &! ANY BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$STAT_VM ! * ! Return Virtual Memory Statistics ! P ! The Return Virtual Memory Statistics routine returns to its caller oneN ! of s ix statistics available from calls to LIB$GET_VM/LIB$FREE_VM andN ! LIB$GET_VM_PAGE/LIB$FREE_VM_PAGE. Unlike LIB$SHOW_VM, which formatsL ! the values for output and displays them on SYS$OUTPUT, LIB$STAT_VMP ! returns the statistic in the value-argument argument. Only one of the= ! statistics is returned by each call to LIB$STAT_VM. ! + EXTERNAL LONG FUNCTION lib$stat_vm & ( &" LONG BY REF, & ANY  BY REF & ) ! LIB$STAT_VM_64 ! * ! Return Virtual Memory Statistics ! S ! The Return Virtual Memory Statistics routine returns to its caller one ofQ ! six statistics available from calls to LIB$GET_VM_64/LIB$FREE_VM_64 andT ! LIB$GET_VM_PAGE_64/LIB$FREE_VM_PAGE_64. Unlike LIB$SHOW_VM, which formatsO ! the values for output and displays them on SYS$OUTPUT, LIB$STAT_VM_64P ! returns the statistic in the value-argument argument. Only one of the@ ! statistics is returned by each call to LIB$STAT_VM_64. ! . EXTERNAL LONG FUNCTION lib$stat_vm_64 & ( &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$STAT_VM_ZONE ! ) ! Return Information About a Zone ! O ! The Return Information About a Zone routine returns a single piece of0 ! information about the sp ecified zone. ! = ! Edit: Routine LIB$STAT_VM_ZONE is not yet implemented. ! A ! ENTRY lib$stat_vm_zone ALIAS $lib_stat_vm_zone PARAMETER (- ! LONGWORD UNSIGNED NAMED zone_id IN- ! TYPENAME identifier REFERENCE,& ! LONGWORD NAMED item_code IN2 ! TYPENAME longword_signed REFERENCE,6 ! LONGWORD NAMED resultant_value OUT OPTIONAL2 ! TYPENAME longword_signed REFERENCE,E ! CHARACTER RTL_STR_DESC NAMED re sultant_string OUT OPTIONAL$ ! TYPENAME char_string,< ! WORD UNSIGNED NAMED resultant_length OUT OPTIONAL1 ! TYPENAME word_unsigned REFERENCE )7 ! RETURNS LONGWORD UNSIGNED TYPENAME cond_value; ! LIB$STOP ! 1 ! Stop Execution and Signal the Condition ! P ! The Stop Execution and Signal the Condition routine generates a signalR ! that indicates that an exception condition has occurred in your program.P ! Exception conditions signaled by LIB$STOP cannot be continued from the ! point of the signal. !  EXTERNAL SUB lib$stop & ( &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, & ANY BY VALUE,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! LIB$SUBX ! / ! Multiple-Precision Binary Subtraction ! P ! The Multiple-Precision Binary Subtraction routine performs subtractionB ! on signed two's complement integers of arbitrary length. ! ( EXTERNAL LONG FUNCTION lib$subx & ( &! ANY BY REF, &! ANY BY REF, &! ANY BY REF, &)  OPTIONAL LONG BY REF & ) ! LIB$SUB_TIMES ! % ! Subtract Two Quadword Times ! C ! The Subtract Two Quadword Times routine subtracts two VMS% ! internal-time-format times. ! - EXTERNAL LONG FUNCTION lib$sub_times & ( &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$SY S_ASCTIM ! ? ! Invoke $ASCTIM to Convert Binary Time to ASCII String ! U ! The Invoke $ASCTIM to Convert Binary Time to ASCII String routine calls theW ! system service $ASCTIM to convert a binary date and time value, returning theB ! ASCII string using the semantics of the caller's string. ! . EXTERNAL LONG FUNCTION lib$sys_asctim & ( &" WORD BY REF, &% STRING BY DESC, &4  OPTIONAL BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! LIB$SYS_FAO ! 5 ! Invoke $FAO System Service to Format Output ! M ! The Invoke $FAO System Service to Format Output routine calls $FAO,P ! returning a string in the semantics you provide. If called with otherL ! than a fixed-length string for output, the length of the resultantC ! string is limited to 256 bytes and truncation wi ll occur. ! + EXTERNAL LONG FUNCTION lib$sys_fao & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, & OPTIONAL ANY BY REF,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &% ,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,, & ) ! LIB$SYS_FAOL ! 6 ! Invoke $FAOL System Service to Format Output ! L ! The Invoke $FAOL System Service to Format Output routine calls theM ! system service routine $FAOL, returning the string in the semanticsK ! you provide. If called with other than a fixed-length string forL ! output, the length of the resultant string is limited to 256 bytes$ ! and truncation will occur. ! , EXTERNAL LONG FUNCTION lib$sys_faol & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! LIB$SYS_FAOL_64 ! 6 ! Invoke $FAOL System Service to Format Output ! L ! The Invoke $FAOL System Service to Format Output routine calls theM ! system service routine $FAOL, returning the string in the semanticsK ! you provide. If called with other than a fixed-length string forL ! output, the length of the resultant string is limited to 256 bytes$ ! and truncation will occur. ! / EXTERNAL LONG FUNCTION lib$sys_faol_64 & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &+ BASIC$QUADWORD BY REF & ) ! LIB$SYS_GETMSG ! ; ! Invoke $GETMSG System Service to Get Message Text ! M ! The Invoke $GETMSG System Service to Get Message Text routine callsF ! the System Service $GETMSG and returns a message string intoH ! destination-string using the semantics of the caller's string. ! . EXTERNAL LONG FUNCTION lib$sys_getmsg & ( &" LONG BY REF, &" WORD BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &  ANY BY REF & ) ! LIB$SYS_TRNLOG ! A ! Invoke $TRNLOG System Service to Translate Logical Name ! M ! The Invoke $TRNLOG System Service to Translate Logical Name routineF ! uses the system service $TRNLOG to translate a logical name.I ! LIB$SYS_TRNLOG returns the logical name's translation using the+ ! semantics of the caller's string. ! . EXTERNAL LONG FUNCTION lib$sys_trnlog &  ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &* OPTIONAL BYTE BY REF, &" BYTE BY REF, &! BYTE BY REF & )$ ! LIB$TPARSE/LIB$TABLE_PARSE ! * ! Table-Driven Finite-State Parser ! L ! The Table-Driven Finite State Parser routine is a general-purpose,K ! table-driven parser implemented as a finite-stat e automaton, withL ! extensions that make it suitable for a wide range of applications.L ! It parses a string and returns a message indicating whether or not$ ! the input string is valid. ! 7 ! LIB$TPARSE performs this function on VAX VMS. ! N ! LIB$TABLE_PARSE performs this function on Alpha VMS and is availableQ ! only on Alpha VMS. LIB$TPARSE is available in translated form on AlphaQ ! VMS. LIB$TABLE_PARSE differs from LIB$TPARSE only in the way that user/ ! specified action routines are called. ! / EXTERNAL LONG FUNCTION lib$table_parse & ( &! ANY BY REF, &! ANY BY REF, & ANY BY REF & )5 ! ENTRY lib$tparse ALIAS $lib_tparse PARAMETER (* ! ANY NAMED argument_block IN OUT& ! TYPENAME any REFERENCE,# ! ANY NAMED state_table IN& ! TYPENAME any REFERENCE,!  ! ANY NAMED key_table IN' ! TYPENAME any REFERENCE )7 ! RETURNS LONGWORD UNSIGNED TYPENAME cond_value; ! LIB$TRAVERSE_TREE ! ) ! Traverse a Balanced Binary Tree ! M ! The Traverse a Balanced Binary Tree routine calls an action routine) ! for each node in a binary tree. ! 1 EXTERNAL LONG FUNCTION lib$traverse_tree & ( &" LONG BY REF, &$ LONG BY VALUE, &( OPTIONAL ANY BY REF & ) ! LIB$TRAVERSE_TREE_64 ! ) ! Traverse a Balanced Binary Tree ! M ! The Traverse a Balanced Binary Tree routine calls an action routine) ! for each node in a binary tree. ! 4 EXTERNAL LONG FUNCTION lib$traverse_tree_64 & ( &" LONG BY REF, &$ LONG BY VALUE, &( OPTIONAL ANY BY REF &  ) ! LIB$TRA_ASC_EBC ! # ! Translate ASCII to EBCDIC ! J ! The Translate ASCII to EBCDIC routine translates an ASCII string ! to an EBCDIC string. ! / EXTERNAL LONG FUNCTION lib$tra_asc_ebc & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$TRA_EBC_ASC ! # ! Translate EBCDIC to ASCII ! K ! The Translate EBCDIC to ASCII routine translates an EBCDIC string ! to an ASCII string. ! / EXTERNAL LONG FUNCTION lib$tra_ebc_asc & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$TRIM_FILESPEC ! 6 ! Fit Long File Specification into Fixed Field ! O ! The Fit Long File Specification into Fixed Field routine takes a fileN ! specification, such as an RMS resultant name string, and shortens itE ! (if necessary) so that it fits into a field of fixed width. ! 1 EXTERNAL LONG FUNCTION lib$trim_filespec & ( &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! WORD BY REF & ) ! LIB$TRIM_FULLNAME ! = ! Trim a Full Name to Fit into a Desired Output Field ! I ! The Trim a Full Name to Fit into a Desired Output Field routine? ! trims a full name to fit into a desired output field. ! 1 EXTERNAL LONG FUNCTION lib$trim_fullname & ( &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! WORD BY REF & ) ! LIB$UID_TO_ASCII !  ! Convert a UID to Text ! = ! The Convert a UID to Text routine converts a UID to; !  standard representation ina an ASCII text string. ! 0 EXTERNAL LONG FUNCTION lib$uid_to_ascii & ( &, BASIC$OCTAWORD BY REF, &$ STRING BY DESC & ) ! LIB$UNLOCK_IMAGE  ! ' ! Unlock Image from working set ! E ! Unlock all address ranges associated with a specified image ! from the working set. ! 0 EXTERNAL LONG FUNCTION lib$unlock_image & ( &+ BASIC$QUADWORD BY REF & ) ! LIB$VERIFY_VM_ZONE !  ! Verify a Zone ! D ! The Verify a Zone routine performs verification of a zone. ! 2 EXTERNAL LONG FUNCTION lib$verify_vm_zone & ( &! LONG BY REF & ) ! LIB$VERIFY_VM_ZONE_64 !  ! Verify a Zone ! D ! The Verify a Zone routine performs verification of a zone. ! 5 EXTERNAL LONG FUNCTION lib$verify_vm_zone_64 & ( &+ BASIC$QUADWORD BY REF & ) ! LIB$WAIT ! ) ! Wait a Specified Period of Time ! P ! The Wait a Specified Period of Time routine places the current processO ! into hibernation for the number of seconds specified in its argument. ! ( EXTERNAL LONG FUNCTION lib$wait & ( &$ SINGLE BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )ww~ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF4 ! Definitions for LIB$ CLI callback procedures 3 DECLARE LONG CONSTANT LIB$K_CLI_LOCAL_SYM = 14 DECLARE LONG CONSTANT LIB$K_CLI_GLOBAL_SYM = 29 DECLARE LONG CONSTANT LIB$M_CLI_CTRLT = x'00100000'9 DECLARE LONG CONSTANT LIB$M_CLI_CTRLY = x'02000000'5 DECLARE LONG CONSTANT LIB$S_CLI$CTRL_FIELDS = 4 record CLI$CTRL_FIELDS( ! Ctrl-A to Ctrl-S are unused( ! Ctrl-U to Ctrl-X are unusedk LONG FILL_A_S_bits ! COMMENT ADDED BY SDL - FILL_A_S_bits contains bits FILL_A_S through FILL_0_ end record CLI$CTRL_FIELDS ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  < DECLARE LONG CONSTANT UTIL$M_CQF_CONFIRM = x'00000001'< DECLARE LONG CONSTANT UTIL$M_CQF_EXCLUDE = x'00000002'; DECLARE LONG CONSTANT UTIL$M_CQF_BEFORE = x'00000004': DECLARE LONG CONSTANT UT IL$M_CQF_SINCE = x'00000008'< DECLARE LONG CONSTANT UTIL$M_CQF_CREATED = x'00000010'= DECLARE LONG CONSTANT UTIL$M_CQF_MODIFIED = x'00000020'< DECLARE LONG CONSTANT UTIL$M_CQF_EXPIRED = x'00000040'; DECLARE LONG CONSTANT UTIL$M_CQF_BACKUP = x'00000080'< DECLARE LONG CONSTANT UTIL$M_CQF_BYOWNER = x'00000100'= DECLARE LONG CONSTANT UTIL$M_CQF_ACCESSED = x'00000200'? DECLARE LONG CONSTANT UTIL$M_CQF_ATTRIBUTES = x'00000400'@ DECLARE LONG CONSTANT UTIL$M _CQF_UPDATE_DATA = x'00000800'C DECLARE LONG CONSTANT UTIL$M_CQF_SYMLINK_SEARCH = x'00001000'C DECLARE LONG CONSTANT UTIL$M_CQF_SYMLINK_TARGET = x'00002000'. DECLARE LONG CONSTANT UTIL$S_CFQUALS = 4 record CFQUALS# group UTIL$R_FLAGS_OVERLAY variant case. group UTIL$L_QUALIFIER_FLAGS LONG CQF_CONFIRM_bits ! COMMENT ADDED BY SDL - CQF_CONFIRM_bits contains bits CQF_CONFIRM through QF_FILL2   end group UTIL$L_QUALIFIER_FLAGS case* group UTIL$R_QF_OVERLAY2~ LONG CQF_ASSIGNED_bits ! COMMENT ADDED BY SDL - CQF_ASSIGNED_bits contains bits CQF_ASSIGNED through & ! CQF_UNASSIGNED. end group UTIL$R_QF_OVERLAY2 end variant' end group UTIL$R_FLAGS_OVERLAY end record CFQUALS  ! % ! define prompt parameter values ! 6 DECLARE LONG CONSTANT UTIL$K_CQF_U NSPECIFIED = 00 DECLARE LONG CONSTANT UTIL$K_CQF_SHORT = 1/ DECLARE LONG CONSTANT UTIL$K_CQF_LONG = 24 DECLARE LONG CONSTANT UTIL$K_CQF_CONDENSED = 13 DECLARE LONG CONSTANT UTIL$K_CQF_EXPANDED = 23 DECLARE LONG CONSTANT UTIL$K_CQF_MAX_FORM = 2 ! " ! Flag values output argument ! U DECLARE LONG CONSTANT UTIL$K_SEARCH_SYMLINK_DEFAULT = 0 ! use process defaultN DECLARE LONG CONSTANT UTIL$K_SEARCH_SYMLINK_NONE = 1 ! use no symlinksQ DE CLARE LONG CONSTANT UTIL$K_SEARCH_SYMLINK_ALL = 2 ! use symlinks alwaysb DECLARE LONG CONSTANT UTIL$K_SEARCH_SYMLINK_NOELLIPS = 3 ! use symlinks except in ellipsisE DECLARE LONG CONSTANT UTIL$M_CQF_SYMLINK_NOTARGET = x'00000004'- DECLARE LONG CONSTANT UTIL$S_CFVALS = 4 record CFVALS group UTIL$R_FILL_0_ variant case) LONG UTIL$L_FLAG_VALUES case& group UTIL$R_FILL_1_U !  NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF,+ ! $LIBFILDEF, $PPROPDEF, and $NAMLDEF. BYTE CQF_SYMLINK_MODE_bits ! COMMENT ADDED BY SDL - CQF_SYMLINK_MODE_bits contains bits CQF_SYMLINK_MODE & ! through FILL_2_* end group UTIL$R_FILL_1_ end variant! end group UTIL$R_FILL_0_ end record CFVALS  !  ! TO BE REMOVED; DECLARE LONG CONSTANT LIB$M_CQF_CONFIRM = x'00000001 '; DECLARE LONG CONSTANT LIB$M_CQF_EXCLUDE = x'00000002': DECLARE LONG CONSTANT LIB$M_CQF_BEFORE = x'00000004'9 DECLARE LONG CONSTANT LIB$M_CQF_SINCE = x'00000008'; DECLARE LONG CONSTANT LIB$M_CQF_CREATED = x'00000010'< DECLARE LONG CONSTANT LIB$M_CQF_MODIFIED = x'00000020'; DECLARE LONG CONSTANT LIB$M_CQF_EXPIRED = x'00000040': DECLARE LONG CONSTANT LIB$M_CQF_BACKUP = x'00000080'; DECLARE LONG CONSTANT LIB$M_CQF_BYOWNER = x'00000100', DECLAR E LONG CONSTANT LIB$S_CQUALS = 4 record CQUALS" group LIB$R_FLAGS_OVERLAY variant case- group LIB$L_QUALIFIER_FLAGS LONG CQF_CONFIRM_bits ! COMMENT ADDED BY SDL - CQF_CONFIRM_bits contains bits CQF_CONFIRM through QF_FILL1 end group LIB$L_QUALIFIER_FLAGS case) group LIB$R_QF_OVERLAY2~ LONG CQF_ASSIGNED_bits ! COMMENT ADDED BY SDL - CQF_ASSIGNED_bits contains bits CQF_ASSIGNED through & ! CQF_UNASSIGNED- end group LIB$R_QF_OVERLAY2 end variant& end group LIB$R_FLAGS_OVERLAY end record CQUALS wwl0 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF( ! Definitions for LIB$DECODE_FAULT  !  ! Operand definition codes ! 6 DECLARE LONG CONSTANT LIB$M_DCFACC = x'00000007'6 DECLARE LONG CONSTANT LIB$M_DCFTYP = x'000000F8'7 DECLARE LONG  CONSTANT LIB$S_LIB$B_DCF_OPERAND = 1 record LIB$B_DCF_OPERAND ! Operand access type ! Operand data typed BYTE DCFACC_bits ! COMMENT ADDED BY SDL - DCFACC_bits contains bits DCFACC through DCFTYP" end record LIB$B_DCF_OPERAND  ! ! Operand access type codes ! H DECLARE LONG CONSTANT LIB$K_DCFACC_R = 1 ! Operand is to be readL DECLARE LONG CONSTANT LIB$K_DCFACC_M = 2 ! Operand is to be modifiedK DECLARE LONG CON STANT LIB$K_DCFACC_W = 3 ! Operand is to be writtenH DECLARE LONG CONSTANT LIB$K_DCFACC_A = 4 ! Operand is an addressb DECLARE LONG CONSTANT LIB$K_DCFACC_V = 5 ! Operand is a field (may be register or address)S DECLARE LONG CONSTANT LIB$K_DCFACC_B = 6 ! Operand is a branch displacement !  ! Operand data type codes ! D DECLARE LONG CONSTANT LIB$K_DCFTYP_B = 1 ! Operand is a byteD DECLARE LONG CONSTANT LIB$K_DCFTYP_W = 2 ! Operand is a wordH  DECLARE LONG CONSTANT LIB$K_DCFTYP_L = 3 ! Operand is a longwordH DECLARE LONG CONSTANT LIB$K_DCFTYP_Q = 4 ! Operand is a quadwordI DECLARE LONG CONSTANT LIB$K_DCFTYP_O = 5 ! Operand is an octawordK DECLARE LONG CONSTANT LIB$K_DCFTYP_F = 6 ! Operand is an F_floatingJ DECLARE LONG CONSTANT LIB$K_DCFTYP_D = 7 ! Operand is a D_floatingJ DECLARE LONG CONSTANT LIB$K_DCFTYP_G = 8 ! Operand is a G_floatingK DECLARE LONG CONSTANT LIB$K_DCFTYP_H = 9 ! Ope rand is an H_floating ! 2 ! Combined operand access and data type codes ! / DECLARE LONG CONSTANT LIB$K_DCFOPR_AB = 8/ DECLARE LONG CONSTANT LIB$K_DCFOPR_RB = 90 DECLARE LONG CONSTANT LIB$K_DCFOPR_MB = 100 DECLARE LONG CONSTANT LIB$K_DCFOPR_WB = 110 DECLARE LONG CONSTANT LIB$K_DCFOPR_VB = 120 DECLARE LONG CONSTANT LIB$K_DCFOPR_BB = 130 DECLARE LONG CONSTANT LIB$K_DCFOPR_AW = 160 DECLARE LONG CONSTANT LIB$K_DCFOPR_RW = 170 DECLARE LONG CONSTANT LIB$K_DCFOPR_MW = 180 DECLARE LONG CONSTANT LIB$K_DCFOPR_WW = 190 DECLARE LONG CONSTANT LIB$K_DCFOPR_VW = 200 DECLARE LONG CONSTANT LIB$K_DCFOPR_BW = 210 DECLARE LONG CONSTANT LIB$K_DCFOPR_AL = 240 DECLARE LONG CONSTANT LIB$K_DCFOPR_RL = 250 DECLARE LONG CONSTANT LIB$K_DCFOPR_ML = 260 DECLARE LONG CONSTANT LIB$K_DCFOPR_WL = 270 DECLARE LONG CONSTANT LIB$K_DCFOPR_VL = 280 DECLARE LONG CONSTANT LIB$K_DCFOPR_BL = 290 DECLARE LONG C ONSTANT LIB$K_DCFOPR_AQ = 320 DECLARE LONG CONSTANT LIB$K_DCFOPR_RQ = 330 DECLARE LONG CONSTANT LIB$K_DCFOPR_MQ = 340 DECLARE LONG CONSTANT LIB$K_DCFOPR_WQ = 350 DECLARE LONG CONSTANT LIB$K_DCFOPR_VQ = 360 DECLARE LONG CONSTANT LIB$K_DCFOPR_AO = 400 DECLARE LONG CONSTANT LIB$K_DCFOPR_RO = 410 DECLARE LONG CONSTANT LIB$K_DCFOPR_MO = 420 DECLARE LONG CONSTANT LIB$K_DCFOPR_WO = 430 DECLARE LONG CONSTANT LIB$K_DCFOPR_VO = 440 DECLARE LONG CONSTAN T LIB$K_DCFOPR_AF = 480 DECLARE LONG CONSTANT LIB$K_DCFOPR_RF = 490 DECLARE LONG CONSTANT LIB$K_DCFOPR_MF = 500 DECLARE LONG CONSTANT LIB$K_DCFOPR_WF = 510 DECLARE LONG CONSTANT LIB$K_DCFOPR_VF = 520 DECLARE LONG CONSTANT LIB$K_DCFOPR_AD = 560 DECLARE LONG CONSTANT LIB$K_DCFOPR_RD = 570 DECLARE LONG CONSTANT LIB$K_DCFOPR_MD = 580 DECLARE LONG CONSTANT LIB$K_DCFOPR_WD = 590 DECLARE LONG CONSTANT LIB$K_DCFOPR_VD = 600 DECLARE LONG CONSTANT LIB$ K_DCFOPR_AG = 640 DECLARE LONG CONSTANT LIB$K_DCFOPR_RG = 650 DECLARE LONG CONSTANT LIB$K_DCFOPR_MG = 660 DECLARE LONG CONSTANT LIB$K_DCFOPR_WG = 670 DECLARE LONG CONSTANT LIB$K_DCFOPR_VG = 680 DECLARE LONG CONSTANT LIB$K_DCFOPR_AH = 720 DECLARE LONG CONSTANT LIB$K_DCFOPR_RH = 730 DECLARE LONG CONSTANT LIB$K_DCFOPR_MH = 740 DECLARE LONG CONSTANT LIB$K_DCFOPR_WH = 750 DECLARE LONG CONSTANT LIB$K_DCFOPR_VH = 760 DECLARE LONG CONSTANT LIB$K_DCFOPR_END = 0 ! wwF ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ! %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ; ! Interface definitions for LIB$DT (date/time) package !  ! 3 ! Request codes for LIB$INIT_DATE_TIME_CONTEXT ! L DECLARE LONG CONSTANT LIB$K_MONTH_NAME = 0 ! Pre-init the mon"th namesP DECLARE LONG CONSTANT LIB$K_MONTH_NAME_ABB = 3 ! Pre-init the month namesM DECLARE LONG CONSTANT LIB$K_WEEKDAY_NAME = 6 ! Pre-init the week namesQ DECLARE LONG CONSTANT LIB$K_WEEKDAY_NAME_ABB = 9 ! Pre-init the week namesU DECLARE LONG CONSTANT LIB$K_MERIDIEM_INDICATOR = 12 ! Pre-init the AM/PM namesJ DECLARE LONG CONSTANT LIB$K_OUTPUT_FORMAT = 1 ! Pre-init the formatI DECLARE LONG CONSTANT LIB$K_INPUT_FORMAT = 2 ! Pre-init the formatR DECL #ARE LONG CONSTANT LIB$K_RELATIVE_DAY_NAME = 15 ! Pre-init "TODAY", etc.V DECLARE LONG CONSTANT LIB$K_FORMAT_MNEMONICS = 18 ! Pre-init MM, DD, YYYY, etc.J DECLARE LONG CONSTANT LIB$K_LANGUAGE = 4 ! Pre-init user's language ! A ! Operation codes (flags) for date time conversion routines.M ! NOTE: any new operation codes MUST be added just BEFORE MAX_OPERATION ! a DECLARE LONG CONSTANT LIB$K_MONTH_OF_YEAR = 1 ! requests output in units of month of year[ $ DECLARE LONG CONSTANT LIB$K_DAY_OF_YEAR = 2 ! requests output in days of year 1-366^ DECLARE LONG CONSTANT LIB$K_HOUR_OF_YEAR = 3 ! requests output in hours of year 1-8784d DECLARE LONG CONSTANT LIB$K_MINUTE_OF_YEAR = 4 ! requests output in minutes of year 1-527040f DECLARE LONG CONSTANT LIB$K_SECOND_OF_YEAR = 5 ! requests output in seconds of year 1-31622400[ DECLARE LONG CONSTANT LIB$K_DAY_OF_MONTH = 6 ! request output in days of month 1-31^ DECLARE LONG C%ONSTANT LIB$K_HOUR_OF_MONTH = 7 ! request output in hours of month 1-744d DECLARE LONG CONSTANT LIB$K_MINUTE_OF_MONTH = 8 ! request output in minutes of month 1-44640g DECLARE LONG CONSTANT LIB$K_SECOND_OF_MONTH = 9 ! requests output in seconds of month 1-2678400j DECLARE LONG CONSTANT LIB$K_DAY_OF_WEEK = 10 ! requests output in days of week 1-7 with monday = 1^ DECLARE LONG CONSTANT LIB$K_HOUR_OF_WEEK = 11 ! requests output in hours of week 1-168] DECLARE LONG& CONSTANT LIB$K_MINUTE_OF_WEEK = 12 ! requests in minutes of week 1-10080e DECLARE LONG CONSTANT LIB$K_SECOND_OF_WEEK = 13 ! requests output in seconds of week 1-604800[ DECLARE LONG CONSTANT LIB$K_HOUR_OF_DAY = 14 ! requests output in hours of day 1-24a DECLARE LONG CONSTANT LIB$K_MINUTE_OF_DAY = 15 ! requests output in minutes of day 1-1440a DECLARE LONG CONSTANT LIB$K_SECOND_OF_DAY = 16 ! requests output in seconds of day 1-3600a DECLARE LONG CONSTANT LI'B$K_MINUTE_OF_HOUR = 17 ! requests output in minutes of hour 1-60c DECLARE LONG CONSTANT LIB$K_SECOND_OF_HOUR = 18 ! requests output in minutes of hour 1-3600f DECLARE LONG CONSTANT LIB$K_SECOND_OF_MINUTE = 19 ! requests output in seconds of minutes 1-60] DECLARE LONG CONSTANT LIB$K_JULIAN_DATE = 20 ! requests output as a julian day number[ DECLARE LONG CONSTANT LIB$K_DELTA_WEEKS = 21 ! input/output in terms of delta weeksY DECLARE LONG CONSTANT LIB$K_DELTA_(DAYS = 22 ! input/output in terms of delta days[ DECLARE LONG CONSTANT LIB$K_DELTA_HOURS = 23 ! input/output in terns of delta hours_ DECLARE LONG CONSTANT LIB$K_DELTA_MINUTES = 24 ! input/output in terms of delta minutes_ DECLARE LONG CONSTANT LIB$K_DELTA_SECONDS = 25 ! input/output in terms of delta secondsh DECLARE LONG CONSTANT LIB$K_DELTA_WEEKS_F = 26 ! input/output in terms of fractional delta weeksf DECLARE LONG CONSTANT LIB$K_DELTA_DAYS_F = 27 ! in)put/output in terms of fractional delta daysh DECLARE LONG CONSTANT LIB$K_DELTA_HOURS_F = 28 ! input/output in terms of fractional delta hoursm DECLARE LONG CONSTANT LIB$K_DELTA_MINUTES_F = 29 ! input/output in terms of fractional delta minutessl DECLARE LONG CONSTANT LIB$K_DELTA_SECONDS_F = 30 ! input/output in terms of fractional delta secondsU DECLARE LONG CONSTANT LIB$K_MAX_OPERATION = 31 ! 1+ max # of conversion flags ! 4 ! Masks for outputting date or *time fields only ! ; DECLARE LONG CONSTANT LIB$M_TIME_FIELDS = x'00000001'; DECLARE LONG CONSTANT LIB$M_DATE_FIELDS = x'00000002'5 DECLARE LONG CONSTANT LIB$S_DT_PRINT_FIELDS = 1 record DT_PRINT_FIELDS* ! Force printing of time fields* ! Force printing of date fieldst BYTE TIME_FIELDS_bits ! COMMENT ADDED BY SDL - TIME_FIELDS_bits contains bits TIME_FIELDS through FILL_0_ end record DT_PRINT_FIELDS  ! / ! Masks for + input defaulting flag longword ! 4 DECLARE LONG CONSTANT LIB$M_YEAR = x'00000001'5 DECLARE LONG CONSTANT LIB$M_MONTH = x'00000002'3 DECLARE LONG CONSTANT LIB$M_DAY = x'00000004'4 DECLARE LONG CONSTANT LIB$M_HOUR = x'00000008'6 DECLARE LONG CONSTANT LIB$M_MINUTE = x'00000010'6 DECLARE LONG CONSTANT LIB$M_SECOND = x'00000020': DECLARE LONG CONSTANT LIB$M_HUNDREDTHS = x'00000040'7 DECLARE LONG CONSTANT LIB$S_DT_DEFAULT_FIELDS = 1 record DT_ DEFAULT_FIELDS+ ! Allow the year to be defaulted, ! Allow the month to be defaulted* ! Allow the day to be defaulted+ ! Allow the hour to be defaulted- ! Allow the minute to be defaulted- ! Allow the second to be defaulted, ! Allow the fract to be defaulted_ BYTE YEAR_bits ! COMMENT ADDED BY SDL - YEAR_bits contains bits YEAR through FILL_1_" end record DT_DEFAULT_FIELDS www ! *** PREDECLARED TYPESI : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORDD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF L: %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )$ END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED . ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED /( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN0G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 1 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  5 DECLARE LONG CONSTANT LIB$K_PROC_VALUE_NULL = 06 DECLARE LONG CONSTANT LIB$K_INVO_HANDLE_NULL = 09 DECLARE LONG CONSTANT LIBICB$K_INVO_HANDLE_SIZE = 8= DECLARE LONG CONSTANT LIBICB$K_INVO_CO 2NTEXT_VERSION = 2$ ! The header quadword contains:> DECLARE LONG CONSTANT LIBICB$M_FFLAGS_BITS = x'00FFFFFF'B DECLARE LONG CONSTANT LIBICB$M_BOTTOM_OF_STACK = x'00000001'B DECLARE LONG CONSTANT LIBICB$M_HANDLER_PRESENT = x'00000002'> DECLARE LONG CONSTANT LIBICB$M_IN_PROLOGUE = x'00000004'> DECLARE LONG CONSTANT LIBICB$M_IN_EPILOGUE = x'00000008'D DECLARE LONG CONSTANT LIBICB$M_HAS_MEM_STK_FRAME = x'00000010'D DECLARE LONG CONSTANT LIBICB$M_HAS_REG_STK_F 3RAME = x'00000020'A DECLARE LONG CONSTANT LIBICB$K_INVO_CONTEXT_T_LENGTH = 1888; DECLARE LONG CONSTANT LIBICB$K_SDA_COPY_LENGTH = 1960G DECLARE LONG CONSTANT LIBICB$M_UO_FLAG_CACHE_UNWIND = x'00000001'I DECLARE LONG CONSTANT LIBICB$M_UO_FLAG_EMULATION_MODE = x'00000002'3 DECLARE LONG CONSTANT LIBICB$K_UO_LENGTH = 88 ! G DECLARE LONG CONSTANT LIBICB$m_using_client_memread = x'00000001': DECLARE LONG CONSTANT LIBICB$m_my_mode = x'00000006'< DECL 4ARE LONG CONSTANT LIBICB$K_CONTEXT_BLK_SIZE = 2080E ! The following is an "internal" area that's reserved for use by; DECLARE LONG CONSTANT LIBICB$K_REGION_BLK_SIZE = 1096> DECLARE LONG CONSTANT LIBICB$K_REGIONLABEL_BLK_SIZE = 32? DECLARE LONG CONSTANT LIBICB$K_DESCRIPTOR_BLK_SIZE = 1280 ! Action codes:n DECLARE LONG CONSTANT LIBICB$K_ACTION_KP_FIND_UNWIND = 1 ! override call to exe$kp_find_unwind_context ! prototype:U ! uint64 sp = action_routine 5(enum action_code code, uint64 sp, uint64 ident);m DECLARE LONG CONSTANT LIBICB$K_ACTION_USE_DEFAULT = -1 ! action routine return value to "use default"? ! Alert codes: (matches _UNW_ReturnCode enum in unwind.h)e DECLARE LONG CONSTANT LIBICB$K_AC_STEP_KRNL_SAV_STATE = -2 ! _UNW_STEP_KERNEL_SAVE_STATE = -2M DECLARE LONG CONSTANT LIBICB$K_AC_STEP_BOTTOM = -1 ! _UNW_STEP_BOTTOM> DECLARE LONG CONSTANT LIBICB$K_AC_OK = 0 ! _UNW_OK = 0J DECLARE LONG CONSTANT 6LIBICB$K_AC_STEP_ERROR = 1 ! _UNW_STEP_ERRORT DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INVALID_IP = 2 ! _UNW_STEP_INVALID_IPT DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INVALID_SP = 3 ! _UNW_STEP_INVALID_SPT DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INVALID_GR = 4 ! _UNW_STEP_INVALID_GRV DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INVALID_PFS = 5 ! _UNW_STEP_INVALID_PFSV DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INVALID_RSC = 6 ! _UNW_STEP_INVALID_RSCV DECLARE LONG CONST7ANT LIBICB$K_AC_STEP_INVALID_BSP = 7 ! _UNW_STEP_INVALID_BSP\ DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INV_BSPSTORE = 8 ! _UNW_STEP_INVALID_BSPSTOREV DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INVALID_CFM = 9 ! _UNW_STEP_INVALID_CFMU DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INVALID_BR = 10 ! _UNW_STEP_INVALID_BR_ DECLARE LONG CONSTANT LIBICB$K_AC_STEP_BAD_BSP_ALIGN = 11 ! _UNW_STEP_BAD_BSP_ALIGNMENTY DECLARE LONG CONSTANT LIBICB$K_AC_STEP_INVALID_RNAT = 12 ! _UNW_ST8EP_INVALID_RNATi DECLARE LONG CONSTANT LIBICB$K_AC_STEP_NODSC4_NONLEAF = 13 ! _UNW_STEP_NO_DESCRIPTOR_FOR_NON_LEAF_ DECLARE LONG CONSTANT LIBICB$K_AC_STEP_CORRUPT_DESC = 14 ! _UNW_STEP_CORRUPT_DESCRIPTOR^ DECLARE LONG CONSTANT LIBICB$K_AC_STEP_RSE_NOT_FLUSHD = 15 ! _UNW_STEP_RSE_NOT_FLUSHED] DECLARE LONG CONSTANT LIBICB$K_AC_STEP_SIGNAL_CONTEXT = 16 ! _UNW_STEP_SIGNAL_CONTEXT^ DECLARE LONG CONSTANT LIBICB$K_AC_STEP_BAD_STATE = 17 ! _UNW_STEP_NOT_ALLOWED_IN_S9TATEa DECLARE LONG CONSTANT LIBICB$K_AC_INIT_RANGE_ERROR = 18 ! _UNW_INITIALIZATION_RANGE_ERRORY DECLARE LONG CONSTANT LIBICB$K_AC_QUERY_RANGE_ERROR = 19 ! _UNW_QUERY_RANGE_ERROR] DECLARE LONG CONSTANT LIBICB$K_AC_QUERY_INVALID_ERROR = 20 ! _UNW_QUERY_INVALID_ERROR\ DECLARE LONG CONSTANT LIBICB$K_AC_SET_BAD_STATE = 21 ! _UNW_SET_NOT_ALLOWED_IN_STATE] DECLARE LONG CONSTANT LIBICB$K_AC_CURR_CTXT_FAILED = 22 ! _UNW_CURRENT_CONTEXT_FAILEDn DECLARE LONG CON:STANT LIBICB$K_AC_CURR_CTXT_BAD_STATE = 23 ! _UNW_CURRENT_CONTEXT_NOT_ALLOWED_IN_STATE` DECLARE LONG CONSTANT LIBICB$K_AC_MEMORY_ALLOC_ERROR = 24 ! _UNW_MEMORY_ALLOCATION_ERROR` DECLARE LONG CONSTANT LIBICB$K_AC_CLEAR_BAD_STATE = 25 ! _UNW_CLEAR_NOT_ALLOWED_IN_STATE` DECLARE LONG CONSTANT LIBICB$K_AC_QUERY_BAD_STATE = 26 ! _UNW_QUERY_NOT_ALLOWED_IN_STATES DECLARE LONG CONSTANT LIBICB$K_AC_INTERNAL_ERROR = 27 ! _UNW_INTERNAL_ERRORh DECLARE LONG CONSTANT LIBICB$K;_AC_STEP_I_ABI_MISMATCH = 28 ! _UNW_STEP_INTERRUPTION_ABI_MISMATCHQ DECLARE LONG CONSTANT LIBICB$K_AC_UNALIGNED_ICB = 29 ! _UNW_UNALIGNED_ICBZ DECLARE LONG CONSTANT LIBICB$K_AC_READ_MEM_FAILURE = 30 ! _UNW_READ_MEMORY_FAILURE\ DECLARE LONG CONSTANT LIBICB$K_AC_WRITE_MEM_FAILURE = 31 ! _UNW_WRITE_MEMORY_FAILURE^ DECLARE LONG CONSTANT LIBICB$K_AC_WRITE_REG_FAILURE = 32 ! _UNW_WRITE_REGISTER_FAILUREq DECLARE LONG CONSTANT LIBICB$K_AC_UO_INCON_CALLBACK = 33 ! _UN <W_USER_OVERRIDE_INCONSISTENT_CALLBACK_PARAMZ DECLARE LONG CONSTANT LIBICB$K_AC_PUT_REG_INVALID = 34 ! _UNW_PUT_REGISTER_INVALIDA DECLARE LONG CONSTANT LIBICB$K_INVO_CONTEXT_BLK_SIZE = 2112< DECLARE LONG CONSTANT LIBICB$S_INVO_CONTEXT_BLK = 2112 record INVO_CONTEXT_BLK ! @ ! The length of the structure in bytes (a longword field),5 ! The frame flags (a 3 byte field of bits), and+ ! The version number (a 1 byte field) group LIBICB$R_HDR = variant caseU BASIC$QUADWORD LIBICB$IH_HEADER ! Header (length, flags, version) case) group LIBICB$R_HDR_DESC1 LONG LIBICB$L_CONTEXT_LENGTH. group LIBICB$R_FRAMEFLAGS variant case LONG FFLAGS_BITS_bits ! COMMENT ADDED BY SDL - FFLAGS_BITS_bits contains bits FFLAGS_BITS through & ! FFLAGS_BI >TS case5 group LIBICB$R_FFLAGS_DESCx BYTE BOTTOM_OF_STACK_bits ! COMMENT ADDED BY SDL - BOTTOM_OF_STACK_bits contains bits &" ! BOTTOM_OF_STACK through FILL_0_9 end group LIBICB$R_FFLAGS_DESC# end variant2 end group LIBICB$R_FRAMEFLAGS0 BYTE LIBICB$B_BLOCK_VERSION- end group LIBICB$R_HDR_DESC ? end variant end group LIBICB$R_HDRZ BASIC$QUADWORD LIBICB$ih_spare_01 ! Start of context_t must be octaword aligned1 ! ***** Start of context_t ****************** ! S ! a context_t structure should be octaword (16-byte) aligned, and is passed byN ! reference to the "get initial context" callback routine and establishesY ! the "current" state of the machine and forms the inital context for for unwinding. !  group LIBICB$r_i_reg @ variant caseW BASIC$QUADWORD LIBICB$IH_IREG ( 127 ) ! General (integer) Registers ! 32 static registers, plus* ! up to 96 stacked/rotating registers case* group LIBICB$r_i_overlay< BASIC$QUADWORD LIBICB$ih_i_used0 ! R0Y BASIC$QUADWORD LIBICB$IH_GP ! synonym for R1 (Global Data Pointer)N BASIC$QUADWORD LIBICB$ih_i_used1 ( 2 to 11 ) ! R2 - R11A[ BASIC$QUADWORD LIBICB$IH_SP ! synonym for R12 (Memory Stack Pointer)U BASIC$QUADWORD LIBICB$IH_TP ! synonym for R13 (Thread Pointer)P BASIC$QUADWORD LIBICB$ih_i_used2 ( 14 to 24 ) ! R14 - R24d BASIC$QUADWORD LIBICB$IH_AI ! synonym for R25 (Argument Information register)R BASIC$QUADWORD LIBICB$ih_i_used3 ( 26 to 127 ) ! R26 - R127. end group LIBICB$r_i_overlay B end variant! end group LIBICB$r_i_reg[ BASIC$QUADWORD LIBICB$IH_GRNAT ( 1 ) ! General Register NaT Collection RegistersR BASIC$OCTAWORD LIBICB$FO_F2_F31 ( 2 to 31 ) ! Floating Point Registers.* ! 32 static floating point registers.0 ! Floating Point Registers are 82 bits wide$ ! but stored here in octawords.V BASIC$QUADWORD LIBICB$PH_F32_F127 ! Pointer to upper Floating Register save ! area. Zero if not saved.C BASIC$QUA CDWORD LIBICB$IH_BRANCH ( 7 ) ! Branch Registers" ! Application Registers (ARs) ! T BASIC$QUADWORD LIBICB$IH_RSC ! Register Stack Configuration RegisterD BASIC$QUADWORD LIBICB$IH_BSP ! Backing store pointerJ BASIC$QUADWORD LIBICB$IH_BSPSTORE ! Backing store write pointerJ BASIC$QUADWORD LIBICB$IH_RNAT ! RSE NaT Collection RegisterP BASIC$QUADWORD LIBICB$IH_CCV ! Compare ? Exchange Value RegisterK BASIC$QUADWDORD LIBICB$IH_UNAT ! User NaT Collection Registerd BASIC$QUADWORD LIBICB$FH_FPSR ! OBSOLETE - do not rely on the contents of this field.F BASIC$QUADWORD LIBICB$IH_PFS ! Previous Function StateB BASIC$QUADWORD LIBICB$IH_LC ! Loop Count RegisterF BASIC$QUADWORD LIBICB$IH_EC ! Epilogue Count Register= BASIC$QUADWORD LIBICB$IH_CSD ! Copy of AR.CSD= BASIC$QUADWORD LIBICB$IH_SSD ! Copy of AR.SSD ! E ! End ARsV BASIC$QUADWORD LIBICB$Q_PRED ! Predicate Collection Register, PR0-PR63V BASIC$QUADWORD LIBICB$IH_PC ! Current PC (Instruction Pointer + slot) group LIBICB$r_cfm_u variant caseG BASIC$QUADWORD LIBICB$IH_CFM ! Current Frame Marker case& group LIBICB$r_cfm_s- ! Size of stack frame ? ! Size of locals portion of s Ftack frame A ! Size of rotating portion of stack frame C ! Register Rename Base for General RegistersJ ! Register Rename Base for Floating-point RegistersE ! Register Rename Base for Predicate Registersn BYTE SOF_bits ( 5 ) ! COMMENT ADDED BY SDL - SOF_bits contains bits SOF through FILL_1_* end group LIBICB$r_cfm_s end variant! end group LIBIC GB$r_cfm_u group LIBICB$r_um_u variant caseL BASIC$QUADWORD LIBICB$IH_UM ! User Mask bits of the PSR. case% group LIBICB$r_um_s! ! Reserved8 ! Big-endian memory access enable8 ! User performance monitor enable? ! Alignment check data memory referencesH ! Lower (F2-F31) Floating-point registe Hrs writtenJ ! Upper (F32-F127) Floating-point registers writtene BYTE rv_bits ! COMMENT ADDED BY SDL - rv_bits contains bits rv through FILL_2_) end group LIBICB$r_um_s end variant end group LIBICB$r_um_u` BASIC$QUADWORD LIBICB$ih_next_bsp ! Next frame's Backing Store Pointer (Internal use)_ BASIC$QUADWORD LIBICB$ih_next_pfs ! Next frame's Previous Frame State (Internal use)F ! The folIlowing two locations are used when walking from an innerS ! mode stack to an outer mode and context has been saved in a INTSK structure,_ ! but the outer mode stacked registers have bee saved on the inner mode RSE backing store. ! ] BASIC$QUADWORD LIBICB$ih_bspbase ! Base for outer mode stacked registers saved in2 ! inner mode RSE backing store (Internal use)X BASIC$QUADWORD LIBICB$ih_intstk_rnat ! RNAT as saved in INTSTK (Internal use)E ! the followi Jng "valid" bitmasks are used to record the validity+ ! of a given register for this contextM BASIC$OCTAWORD LIBICB$O_GR_VALID ! General Register validity maskT LONG LIBICB$L_FR_VALID ! F2 - F31 validity mask (bit 2 for F2)$ LONG LIBICB$l_fr_valid_fillL BASIC$QUADWORD LIBICB$Q_BR_VALID ! Branch Register validity mask" group LIBICB$r_ar_valid_u variant caseY BASIC$QUADWORD LIBICB$Q_AR K_VALID ! Application Register validity mask case+ group LIBICB$r_ar_valid_s> ! Register Stack Configuration Register. ! Backing store pointer4 ! Backing store write pointer4 ! RSE NaT Collection Register: ! Compare ? Exchange Value Register5 ! User NaT Collection Register8 ! Floating Point Status Registe Lr.0 ! Previous Function State, ! Loop Count Register0 ! Epilogue Count Register' ! Copy of AR.CSD' ! Copy of AR.SSDz WORD RSC_VALID_bits ! COMMENT ADDED BY SDL - RSC_VALID_bits contains bits RSC_VALID through FILL_3_/ end group LIBICB$r_ar_valid_s end variant& end group LIBICB$r_ar_valid_u% group LIBICB$r_other_va Mlid_u variant caseP BASIC$QUADWORD LIBICB$Q_OTHER_VALID ! PC, CFM validity mask case. group LIBICB$r_other_valid_s# ! Current PC- ! Current Frame Marker0 ! User Mask field of PSR.w BYTE PC_VALID_bits ! COMMENT ADDED BY SDL - PC_VALID_bits contains bits PC_VALID through FILL_4_2 end group LIBICB$r_other_v Nalid_s end variant) end group LIBICB$r_other_valid_uO BASIC$QUADWORD LIBICB$Q_PR_VALID ! Predicate Register validity maskp BASIC$QUADWORD LIBICB$IH_ORIGINAL_SPILL_ADDR ! Original address of GR spill area (?LIBICB$IH_IREG[0])1 ! (needed for NaT bit podition calculations)Q BASIC$QUADWORD LIBICB$ih_true_psp ! True Previous SP (for Invo Handle)* BASIC$QUADWORD LIBICB$ih_spare_03* BASIC$QUADWORD LIBICB$ih_spare_04* O BASIC$QUADWORD LIBICB$ih_spare_05* BASIC$QUADWORD LIBICB$ih_spare_06* BASIC$QUADWORD LIBICB$ih_spare_07* BASIC$QUADWORD LIBICB$ih_spare_08 ! > ! ******* End of context_t structure *********************S BASIC$QUADWORD LIBICB$IH_PSP ! SP at entry to routine (Previous SP)@ BASIC$QUADWORD LIBICB$ih_psp_valid ! PreviousSP validB BASIC$QUADWORD LIBICB$IH_RETURN_PC ! Return PC for SDA.N BASIC$QUADWORD LIBICB$IH_PREV_BSP ! P BSP of preceding frame for SDA.e BASIC$QUADWORD LIBICB$PH_CHFCTX_ADDR ! Pointer to condition handler facility context block^ BASIC$QUADWORD LIBICB$PH_OTHER ! Pointer to other interesting structure (if any)Y BASIC$QUADWORD LIBICB$IH_OSSD ! Copy of OSSD from Unwind Information BlockQ BASIC$QUADWORD LIBICB$IH_HANDLER_FV ! Condition Handler Function ValueQ BASIC$QUADWORD LIBICB$PH_LSDA ! Virtual Address of LSD area of UIBe BASQIC$QUADWORD LIBICB$ph_desc ! Pointer to _Unwind_Descriptor structure (Internal use)b BASIC$QUADWORD LIBICB$ph_history ! Pointer to _Unwind_History structure (Internal use)> ! ******* Start of User Override ************************* ! I ! The following locations can be used to alter the default behaviorE ! Typically this would be used for cross-process unwinding, and; ! specifying an alternative memory allocation scheme. group LIBICB$r_op_flags R variant caseI LONG LIBICB$R_UO_BASE ! base of User Override area caseH BASIC$QUADWORD LIBICB$Q_UO_FLAGS ! operational flags case- group LIBICB$r_uo_flag_bits- ! cache unwind information between calls! ! for effiecient stack walk.* ! Internal use onlyy BYTE UO_FLAG_CACHE_UNWIND_bits ! COMMENT ADDED BY SDL - UO_FLAG_CAC SHE_UNWIND_bits contains bits &' ! UO_FLAG_CACHE_UNWIND through FILL_5_1 end group LIBICB$r_uo_flag_bits end variant$ end group LIBICB$r_op_flagsU BASIC$QUADWORD LIBICB$IH_UO_IDENT ! user context variable, passed by value* ! to the following callback routines.W BASIC$QUADWORD LIBICB$PH_UO_READ_MEM ! Pointer to user "read memory" routinei BASIC$QUADWORD LIBICB$PH_UO_GETUEINFO ! Pointer to user "get Unwind Entry InformaTtion" routinea BASIC$QUADWORD LIBICB$PH_UO_GETCONTEXT ! Pointer to user "get Initial Context" routineW BASIC$QUADWORD LIBICB$PH_UO_WRITE_MEM ! Pointer to user "put memory" routineY BASIC$QUADWORD LIBICB$PH_UO_WRITE_REG ! Pointer to user "put register" routineP BASIC$QUADWORD LIBICB$PH_UO_MALLOC ! Pointer to user "malloc" routineM BASIC$QUADWORD LIBICB$PH_UO_FREE ! Pointer to user "free" routinec BASIC$QUADWORD LIBICB$PH_UO_ACTION_RO UUTINE ! Pointer to user "action" routine - actions 1 ! are defined by "action codes" (see below).* BASIC$QUADWORD LIBICB$ih_spare_10C ! ******* End of User Override area ***************************E ! the following locations are used internally, and should not be ! modified by the userW BASIC$QUADWORD LIBICB$ph_most_recent_context ! Most recent user context used! group LIBICB$r_int_flags variant caseM V LONG LIBICB$l_internal_flags ! internal operational flags case. group LIBICB$r_int_flag_bitsy BYTE using_client_memread_bits ! COMMENT ADDED BY SDL - using_client_memread_bits contains bits &' ! using_client_memread through FILL_6_2 end group LIBICB$r_int_flag_bits end variant% end group LIBICB$r_int_flagsG LONG LIBICB$l_interface_state ! enum InterfaceUsageState= L WONG LIBICB$l_ip_source ! enum IP_SOURCEG ! The alert code can be examined to a more detailed failure statusC LONG LIBICB$L_ALERT_CODE ! enum _UNW_ReturnCode* BASIC$QUADWORD LIBICB$ih_spare_11$ STRING LIBICB$t_align_2 = 0: ! the operating system. It's size may vary over time.6 BASIC$QUADWORD LIBICB$IH_SYSTEM_DEFINED ( 1 ) ! \ ! Action codes are passed as the first parameter to the UO_ACTION_ROUTINE to indicate^ ! X an action to be performed. The remaining parameters to the action routine are actionN ! dependent, and usually include the ident value as the last parameter. ! " ! Action routine prototype: ! \ ! uint64 return_value = action_routine (enum action_code code, ..., uint64 ident); ! Y ! A return_value of ACTION_USE_DEFAULT indicates that the action was not performedT ! and the calling standard routines should fall back to "default" processing.2 ! Y Other return values are action dependent. ! ! end record INVO_CONTEXT_BLK 7 ! Write Register callback routine - WhichReg enum. ! C ! The Write Register callback routine is only used when a liveB ! register in another (remote) process needs to be written as8 ! a result of a call to LIB$I64_PUT_INVO_REGISTERS.B ! It is permissible to implement a subset of these registers,F ! or not implement it at all if you are sure that these registers: ! h Zave been saved to memory before PUT_INVO is called ! ! ! For the General Registers:; ! whichReg = LIBICB$K_WhichReg_GR0 + register number) ! value_1 = 64-bit register value- ! value_2 = 0, or 1 for NaT bit value ! 5 DECLARE LONG CONSTANT LIBICB$K_WhichReg_GR0 = 0 ! " ! For the Floating Registers:D ! whichReg = LIBICB$K_WhichReg_FR0 + floating register number4 ! value_1 = 64-bit lower floating fill value4 ! value_2 = 64-b[it upper floating fill value ! 7 DECLARE LONG CONSTANT LIBICB$K_WhichReg_FR0 = 128 ! # ! For the Predicate Registers:E ! whichReg = LIBICB$K_WhichReg_PR0 + predicate register number/ ! value_1 = 0, or 1 rgister (bit) value ! value_2 = ignored ! 7 DECLARE LONG CONSTANT LIBICB$K_WhichReg_PR0 = 256 ! ! For the Branch Registers:B ! whichReg = LIBICB$K_WhichReg_BR0 + branch register number) ! value_1 = 64-bit register value ! value_2 = ignored ! 7 DECLARE LONG CONSTANT LIBICB$K_WhichReg_BR0 = 320 ! . ! For the Floating Point Status Register:* ! whichReg = LIBICB$K_WhichReg_FPSR) ! value_1 = 64-bit register value ! value_2 = ignored ! 8 DECLARE LONG CONSTANT LIBICB$K_WhichReg_FPSR = 328ww] ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ^( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN_G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ` %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.58 !  ! FILE: LIBMSG.MSG ! R ! **************************************************************************** a ! * *D ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1991 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THER bEOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILIT cY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! C ! 1-013 - ADD LIB$_KEYALRINS, LIB$_KEYNOTFOU. SBL 20-MAR-1981, ! 1-014 - ADD LIB$_INVCVT. FM 24-MAR-81O ! 1-015 - ADD LIB$_INVDTYDSC, LIB$_INVCLADSC, LIB$_INVCLADTY, LIB$_INVNBDS: ! LIB$_DESSTROVF, LIB$_OUTSTRTRU. FM 21-APR-81Q ! 2-001d - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM LIBMSG.MDL( ! VERSION 1-015. SBL 23-APR-1981B ! 2-002 - USE LIB$ FACILITY FOR LIB$_NORMAL. SBL 27-APR-1981T ! 2-003 - ADD LIB$_INTOVF, LIB$_FLTOVF, LIB$_FLTUND, LIB$_DECOVF, LIB$_ROPRAND.2 ! 2-004 - ADD LIB$_WRONUMARG. RKR 4-SEP-1981C ! 2-005 - ADD MESSAGES FOR LIB$CLI_CALLBACK. SBL 14-SEPT-1981Q ! 2-006 - ADD LIB$_INVSYMNAM, MESSAGES FOR LIB$EXTEND_RANGE. SBL 1-OCT-1981@ ! 2-007 - ADD LIB$_WASSET AeND LIB$_WASCLR. SBL 16-OCT-1981? ! 2-008 - CORRECT TYPO IN LIB$_UNAEXTRAN. SBL 30-OCT-1981X ! 2-009 - REMOVE LIB$_WASSET AND LIB$_WASCLR. ADD LIB$_ATTREQREF. SBL 21-DEC-1981E ! 2-010 - REMOVE MESSAGES FOR LIB$EXTEND_RANGE. SBL 22-DEC-1981- ! 2-011 - CORRECT TYPO. SBL 23-DEC-1981T ! 2-012 - ADD LIB$_INVFILSPE FOR FILE MANIPULATION PROCEDURES. MLJ 30-DEC-1981> ! 2-013 - ADD LIB$_ERRROUCAL AND .TITLE. SBL 28-AUG-1982J ! 2-014 - ADD LIB$_INVXAB, LIB$_FILFAIMAT f, LIB$_NEGANS, LIB$_QUIPRO, ( ! LIB$_QUICONACT. TSK 20-SEP-19820 ! 2-015 - ADD LIB$_RESTART. SBL 1-MAR-1983E ! 2-016 - ADD LIB$_NO_STRACT FOR SCREEN PACKAGE. PLL 19-JUL-1983M ! 2-017 - ADD SEVERAL NEW MESSAGES FOR LIB$$READ_OBJECT. BLS 25-FEB-1984F ! 2-018 - ADD NEW MESSAGES FOR FUTURE LIB$VM. BLS 11-APR-1984 0 ! 2-019 - ADD LIB$_NOTIMP. MDL 11-JUL-19852 ! 2-020 - ADD LIB$_BADZONE. SMM 09-APR-1986 ! G ! 2-021 - ADD ERROR MESSAGES FOR DATE/TIME ROgUTINES. LIB$_IVTIME,I ! LIB$_ONEDELTIM, LIB$_NEGTIM, LIB$_INVARGORD, LIB$_INVOPER,8 ! LIB$_ABSTIMREQ, LIB$_DELTIMREQ JWN 14-NOV-1986K ! 2-022 - ADD SEVERAL NEW MESSAGES FOR LIB$DATE_FORMAT AKS 20-NOV-1986P ! 2-023 - ADD NEW MESSAGES AND UPDATES FOR LIB$DATE_STRING. EGM 12-JAN-1987Q ! 2-024 - ADD NEW MESSAGES FOR VAXC MEMORY MANAGEMENT SUPPORT AKS 3-OCT-1988N ! 2-025 - ADD LITERALS FOR SHR$_ SYMBOLS USED BY LIBRTL. KC 16-OCT-1989.. ! X-5 - MAH MARK hA. HOWELL 3-AUG-1990 ! ADD LIB$UID MESSAGES. ! X-7 - CW CHRIS WHITAKER 25-FEB-1991% ! ROLL LIB UID SUPPORT FORWARD5 ! X-8 - CORRECT TEXT FOR FLTUND. GAS 16-SEP-1991- ! X-3 RAB RICHARD A. BISHOP 29-JAN-19925 ! MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS.= ! SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION = ! OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), THE 8 ! PRECEDING AUDIT TRAIL IS FROM THE VMS MASTERPACK. ! . ! X i-4 JAH0090 JOHN A HARNEY 28-MAR-1994* ! ADD MESSAGE FOR LIB$BUILD_NODESPEC:A ! NODTOOLNG - PRIMARY NODE NAME TOO LONG AFTER BEING QUOTED' ! ADD MESSAGE FOR LIB$GET_HOSTNAME* ! NOHOSNAM - NO HOST NODE NAME FOUND ! - ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! LIB$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRSjT THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $LIBDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVID kED ONLY FOR THE CONVENIENCE OF THE USER. ! -" ! ; SET LH TO 21 (DECIMAL).. DECLARE LONG CONSTANT LIB$_FACILITY = 211 DECLARE LONG CONSTANT LIB$_NORMAL = 14090251 DECLARE LONG CONSTANT LIB$_STRTRU = 14090414 DECLARE LONG CONSTANT LIB$_ONEENTQUE = 1409049: ! ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI4 DECLARE LONG CONSTANT LIB$_KEYALRINS = 1409057 ! ; LIB$INSERT_TREE4 DECLARE LONG CONSTANT LIB$_ERRROUCAL = 1409065+ ! ; LIB$D lELETE_FILE, LIB$RENAME_FILE2 DECLARE LONG CONSTANT LIB$_RESTART = 1409073 ! ; LIB$DECODE_FAULT= ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES???/ ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW." ! ; SET LH TO 21 (DECIMAL).5 ! ; SO THAT EACH CODE WILL BE AN WARNING CODE./ ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW.1 DECLARE LONG CONSTANT LIB$_BADSTA = 1409540 ! ; LIB$FIXUP_FLT4 DECLARE LONG CONSTANT LIB$_FATERRLIB = 1409548 m ! ; LIB$VM_GET4 DECLARE LONG CONSTANT LIB$_INSVIRMEM = 1409556( ! ; LIB$VM_GET, LIB$LOOKUP_KEY4 DECLARE LONG CONSTANT LIB$_INPSTRTRU = 1409564 ! ; LIB$GET_INPUT4 DECLARE LONG CONSTANT LIB$_INVSTRDES = 1409572 ! ; LIB$SCOPY_XXXX4 DECLARE LONG CONSTANT LIB$_INTLOGERR = 14095801 DECLARE LONG CONSTANT LIB$_INVARG = 1409588 ! ; LIB$LOOKUP_KEY1 DECLARE LONG CONSTANT LIB$_AMBKEY = 1409596 ! ; LIB$LOOKUP_KEY1 n DECLARE LONG CONSTANT LIB$_UNRKEY = 14096044 DECLARE LONG CONSTANT LIB$_PUSSTAOVE = 1409612 ! ; LIB$FIXUP_FLT4 DECLARE LONG CONSTANT LIB$_USEFLORES = 1409620 ! ; LIB$LOOKUP_KEY4 DECLARE LONG CONSTANT LIB$_SIGNO_ARG = 1409628" ! ; LIB$SIGNAL, LIB$STOP4 DECLARE LONG CONSTANT LIB$_BADBLOADR = 1409636' ! ; LIB$FREE_VM, LIB$VM_FREE[_P]4 DECLARE LONG CONSTANT LIB$_BADBLOSIZ = 1409644 ! ; LIB$GET_VM1 DECLARE LONG CON oSTANT LIB$_NOTFOU = 1409652 ! ; LIB$FFS, LIB$FFC4 DECLARE LONG CONSTANT LIB$_ATTCONSTO = 1409660 ! ; LIB$SIGNAL, LIB$STOP4 DECLARE LONG CONSTANT LIB$_SYNTAXERR = 14096682 DECLARE LONG CONSTANT LIB$_INVTYPE = 1409676 ! ; LIB$TPARSE0 DECLARE LONG CONSTANT LIB$_INSEF = 1409684 ! ; LIB$GET_EF4 DECLARE LONG CONSTANT LIB$_EF_ALRFRE = 1409692 ! ; LIB$FREE_EF4 DECLARE LONG CONSTANT LIB$_EF_ALRRES = 1409700 ! ; LIB$RESERVE p_EF4 DECLARE LONG CONSTANT LIB$_EF_RESSYS = 1409708& ! ; LIB$FREE_EF, LIB$RESERVE_EF1 DECLARE LONG CONSTANT LIB$_INSLUN = 1409716 ! ; LIB$GET_LUN4 DECLARE LONG CONSTANT LIB$_LUNALRFRE = 1409724 ! ; LIB$FREE_LUN4 DECLARE LONG CONSTANT LIB$_LUNRESSYS = 1409732( ! ; LIB$FREE_LUN, LIB$RESERVE_LUN4 DECLARE LONG CONSTANT LIB$_SCRBUFOVF = 1409740 ! ; SCR PACKAGE4 DECLARE LONG CONSTANT LIB$_INVSCRPOS = 1409748 ! ; SCR PACKAGE q4 DECLARE LONG CONSTANT LIB$_SECINTFAI = 14097569 ! ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI1 DECLARE LONG CONSTANT LIB$_INVCHA = 1409764+ ! ; LIB$TRA_ASC_EBC, LIB$TRA_EBC_ASC4 DECLARE LONG CONSTANT LIB$_QUEWASEMP = 1409772! ! ; LIB$REMQHI, LIB$REMQTI4 DECLARE LONG CONSTANT LIB$_STRIS_INT = 1409780 ! ; LIB$SCOPY, ETC.4 DECLARE LONG CONSTANT LIB$_KEYNOTFOU = 1409788 ! ; LIB$LOOKUP_TREE1 DECLARE LONG CONSTANT LIB$_INVCVrT = 1409796 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_INVDTYDSC = 1409804 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_INVCLADSC = 1409812 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_INVCLADTY = 1409820 ! ; LIB$CVTDXDX2 DECLARE LONG CONSTANT LIB$_INVNBDS = 1409828 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_DESSTROVF = 1409836 ! ; LIB$CVTDXDX1 DECLARE LONG CONSTANT LIB$_INTOVF = 1409844 ! ; LIB$CVTDXDX1 s DECLARE LONG CONSTANT LIB$_DECOVF = 1409852 ! ; LIB$CVTDXDX1 DECLARE LONG CONSTANT LIB$_FLTOVF = 1409860 ! ; LIB$CVTDXDX1 DECLARE LONG CONSTANT LIB$_FLTUND = 1409868 ! ; LIB$CVTDXDX2 DECLARE LONG CONSTANT LIB$_ROPRAND = 1409876 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_WRONUMARG = 1409884 ! ; LIB$ANALYZE_SDESC4 DECLARE LONG CONSTANT LIB$_NOSUCHSYM = 1409892 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_INSCL tIMEM = 1409900 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_AMBSYMDEF = 1409908 ! ; LIB$CLI_CALLBACK0 DECLARE LONG CONSTANT LIB$_NOCLI = 1409916 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_UNECLIERR = 1409924 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_INVSYMNAM = 1409932 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_ATTREQREF = 1409940 ! ; LIB$ATTACH4 DECLARE LONG CONSTANT LIB$_INVFILSPE = 14099u482 ! ; LIB$FID_TO_NAME, LIB$EXTRACT_CONCEALED,= ! ; LIB$SET_FILE_PROT, LIB$UNLOCK_FILE, LIB$CREATE_DIR1 DECLARE LONG CONSTANT LIB$_INVXAB = 1409956 ! ; LIB$QUAL_FILE_PARSE4 DECLARE LONG CONSTANT LIB$_NO_STRACT = 1409964 ! ; SCR PACKAGE4 DECLARE LONG CONSTANT LIB$_BADTAGVAL = 1409972 ! ; LIB$VM4 DECLARE LONG CONSTANT LIB$_INVOPEZON = 1409980 ! ; LIB$VM4 DECLARE LONG CONSTANT LIB$_PAGLIMEXC = 1409988 ! ; LIB$VM1 v DECLARE LONG CONSTANT LIB$_NOTIMP = 1409996 ! ; LIB$NOT_IMPLEMENTED2 DECLARE LONG CONSTANT LIB$_BADZONE = 1410004A ! ; LIB$VERIFY_VM_ZONE, LIB$SHOW_VM_ZONE, LIB$STAT_VM_ZONE ! ; LIB$FIND_VM_ZONE1 DECLARE LONG CONSTANT LIB$_IVTIME = 1410012? ! ; LIB$ADD_TIMES, LIB$SUB_TIMES, LIB$MULIPLY_DELTA_TIME> ! ; LIB$MULTIPLY_DELTA_TIME_F, LIB$CVT_TO_INTERNAL_TIME> ! ; LIB$CVT_FROM_INTERNAL_TIME, LIB$CONVERT_DATE_STRING4 DECLARE LONG CONSTANT wLIB$_ONEDELTIM = 1410020 ! ; LIB$ADD_TIMES1 DECLARE LONG CONSTANT LIB$_NEGTIM = 1410028 ! ; LIB$SUB_TIMES4 DECLARE LONG CONSTANT LIB$_INVARGORD = 1410036 ! ; LIB$SUB_TIMES4 DECLARE LONG CONSTANT LIB$_ABSTIMREQ = 1410044% ! ; LIB$CVT_FROM_INTERNAL_TIME4 DECLARE LONG CONSTANT LIB$_DELTIMREQ = 1410052% ! ; LIB$CVT_FROM_INTERNAL_TIME2 DECLARE LONG CONSTANT LIB$_INVOPER = 1410060$ ! ; LIB$CVT_XXX_INTERNAL_TIME5 DECLARE LONG x CONSTANT LIB$_REENTRANCY = 1410068; ! ;LIB$FORMAT_DATE_TIME, LIB$INIT_DATE_TIME_CONTEXT,6 ! ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT4 DECLARE LONG CONSTANT LIB$_UNRFORCOD = 14100768 ! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT4 DECLARE LONG CONSTANT LIB$_ILLINISTR = 1410084$ ! ;LIB$INIT_DATE_TIME_CONTEXT6 DECLARE LONG CONSTANT LIB$_NUMELEMENTS = 1410092$ ! ;LIB$INIT_DATE_TIME_CONTEXT4 DECLARE LONG C yONSTANT LIB$_ELETOOLON = 1410100$ ! ;LIB$INIT_DATE_TIME_CONTEXT7 DECLARE LONG CONSTANT LIB$_ILLCOMPONENT = 1410108$ ! ;LIB$INIT_DATE_TIME_CONTEXT4 DECLARE LONG CONSTANT LIB$_AMBDATTIM = 1410116! ! ;LIB$CONVERT_DATE_STRING4 DECLARE LONG CONSTANT LIB$_INCDATTIM = 1410124! ! ;LIB$CONVERT_DATE_STRING4 DECLARE LONG CONSTANT LIB$_ILLFORMAT = 14101326 ! ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT3 DECLARE LONG CONSTANT LIB$_UNSUPVER = 1410 z140> ! ; LIB$ASCII_TO_UID, LIB$COMPARE_UID, LIB$UID_TO_ASCII4 DECLARE LONG CONSTANT LIB$_BADFORMAT = 1410148 ! ; LIB$ASCII_TO_UID4 DECLARE LONG CONSTANT LIB$_NODTOOLNG = 1410156 ! ; LIB$BUILD_NODESPEC3 DECLARE LONG CONSTANT LIB$_NOHOSNAM = 1410164 ! ; LIB$GET_HOSTNAME4 DECLARE LONG CONSTANT LIB$_OUTSTRTRU = 1413120 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_FILFAIMAT = 1413128 ! ; LIB$QUAL_FILE_MATCH1 DECLARE LONG { CONSTANT LIB$_NEGANS = 1413136 ! ; LIB$CONFIRM_ACT1 DECLARE LONG CONSTANT LIB$_QUIPRO = 1413144/ ! ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH4 DECLARE LONG CONSTANT LIB$_QUICONACT = 1413152/ ! ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH3 DECLARE LONG CONSTANT LIB$_ENGLUSED = 14131608 ! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT4 DECLARE LONG CONSTANT LIB$_DEFFORUSE = 14131688 ! ;LIB$FORMAT_DATE_TIME, LIB$CONV |ERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT4 DECLARE LONG CONSTANT LIB$_MEMALRFRE = 1413176 ! ;LIB$VM_FREE1 DECLARE LONG CONSTANT LIB$_BADCCC = 1425408 ! ; LIB$$READ_OBJECT3 DECLARE LONG CONSTANT LIB$_EOMERROR = 1425416 ! ; LIB$$READ_OBJECT3 DECLARE LONG CONSTANT LIB$_EOMFATAL = 1425424 ! ; LIB$$READ_OBJECT2 DECLARE LONG CONSTANT LIB$_EOMWARN = 1425432 ! ; LIB$$READ_OBJECT1 DECLARE LONG CONSTANT LIB$_GSDTYP = 1425 }440 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLFMLCNT = 1425448 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLMODNAM = 1425456 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLPSCLEN = 1425464 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLRECLEN = 1425472 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLRECLN2 = 1425480 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLRECTYP = 14254~88 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLRECTY2 = 1425496 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLSYMLEN = 1425504 ! ; LIB$$READ_OBJECT0 DECLARE LONG CONSTANT LIB$_NOEOM = 1425512 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_RECTOOSML = 1425520 ! ; LIB$$READ_OBJECT3 DECLARE LONG CONSTANT LIB$_SEQUENCE = 1425528 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_SEQUENCE2 = 1425536 ! ; LIB$$READ_OBJECT1 DECLARE LONG CONSTANT LIB$_STRLVL = 1425544 ! ; LIB$$READ_OBJECT1 DECLARE LONG CONSTANT LIB$_NOWILD = 13806503 DECLARE LONG CONSTANT LIB$_ACTIMAGE = 13810501 DECLARE LONG CONSTANT LIB$_OPENIN = 13805062 DECLARE LONG CONSTANT LIB$_CLOSEIN = 13804322 DECLARE LONG CONSTANT LIB$_READERR = 1380530ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  / ! Interface definitions for LIB$VM package ! ) ! LIB$CREATE_VM_ZONE algorithm codes@ DECLARE LONG CONSTANT LIB$K_VM_FIRST_FIT = 1 ! First fitf DECLARE LONG CONSTANT LIB$K_VM_QUICK_FIT = 2 ! Quick fit, with fixed queues of preferred sizes\ DECLARE LONG CONSTANT LIB$K_VM_FREQ_SIZES = 3 ! First fit, with frequent sizes cacheD DECLARE LONG CONSTANT LIB$K_VM_FIXED = 4 ! Fixed size blocks* ! LIB$CREATE_VM_ZONE flag definitionsQ DECLARE LONG CONSTANT LIB$M_VM_BOUNDARY_TAGS = 1 ! Boundary tagged blocksL DECLARE LONG CONSTANT LIB$M_VM_GET_FILL0 = 2 ! 0-fill for LIB$GET_VML DECLARE LONG CONSTANT LIB$M_VM_GET_FILL1 = 4 ! 1-fill for LIB$GET_VMN  DECLARE LONG CONSTANT LIB$M_VM_FREE_FILL0 = 8 ! 0-fill for LIB$FREE_VMO DECLARE LONG CONSTANT LIB$M_VM_FREE_FILL1 = 16 ! 1-fill for LIB$FREE_VMa DECLARE LONG CONSTANT LIB$M_VM_EXTEND_AREA = 32 ! Add extent to existing area if possibleZ DECLARE LONG CONSTANT LIB$M_VM_NO_EXTEND = 64 ! Area is not allowed to be extendedb DECLARE LONG CONSTANT LIB$M_VM_TAIL_LARGE = 128 ! Add larger than normal areas at the tailww< ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:56.80 ! P ! *************************************************************************P ! *  *P ! * HP CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL PROPRIETARY SOFTWARE *P ! * LICENSED BY HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., AND IS NOT *P ! * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT THE *P ! * PRIOR WRITTEN PERMISSION OF HP. *P ! * (C) 2015 COPYRIGHT HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *P ! *  *P ! * VMS SOFTWARE, INC. CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL *P ! * PROPRIETARY SOFTWARE LICENSED BY VMS SOFTWARE, INC., AND IS NOT *P ! * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT *P ! * THE PRIOR WRITTEN PERMISSION OF VMS SOFTWARE, INC. *P ! * (C) 2015 COPYRIGHT VMS SOFTWARE, INC. *P ! *  *P ! ************************************************************************* ! ++ !  ! FACILITY: ! ( ! VAX/VMS LICENSING SYSTEM SERVICES !  ! ABSTRACT: ! L ! THIS MODULE DEFINES THE STATUS CODES FOR THE VARIOUS ERROR CONDITIONSC ! 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-11 DAG DOUG GORDON 22-JUN-2015 ! ADD VSI TO ILLPRODUCER ! + ! X-10 GP030104 GUY PELEG 01-MAR-2004 ! ADD NONCOMPLIANCE. ! * ! X-9 GP121003 GUY PELEG 10-DEC-2003) ! UPDATE ILLPRODUCER TO INCLUDE HP. ! . ! X-8 EAG2 ERIC ABIS 3-JUN-1998 ! ADDED USER_MODE. ! - ! X-7 EA12 ERIC ABIS 4-APR-1995 ! ADDED INVALID_TOKEN. ! / ! X-6  EA001 ERIC ABIS 29-APR-1991= ! ADDED MESSAGE FOR PRODUCTS WITH RESERVE LISTS. IT IS> ! PUT IN THE PLACE OF THE CURRENTLY UNUSED INVALID_HW_ID@ ! MESSAGE BECAUSE THE SEPARATE RELEASE OF LMF 1.1 REQUIRED8 ! THE PATCHING OF SYSMSG.EXE. THIS PATCH REPLACED= ! INVALID_HW_ID WITH NOTINRSRVLIST. FUTURE RELEASES OF< ! VMS, IF THEY INCLUDE LMF 1.1, WILL NOT HAVE TO PATCH< ! AND NOTINRSRVLIST WILL RETAIN ITS VALUE. THE UNUSED; ! INVALID_HW_ID WILL  GET A NEW MESSAGE NUMBER AND THE ! IMPACT SHOULD BE MINIMAL ! / ! X-5 JWN009 JOHN W. NOGRADY 03-NOV-19879 ! UPDATE MESSAGE TEXT AND ALLOW FOR "room to grow". ! / ! X-4 JWN001 JOHN W. NOGRADY 14-OCT-1987< ! ADD MESSAGES NOAUTH AND SYSMGR. THESE MESSAGES WILL= ! BE THE FIRST TWO VALUES IN THE MESSAGE VECTOR USED IN$ ! THE ROUTINE $LOOKUP_LICENSE. ! * ! X-3 DKH001 KEN HOBDAY 19-SEP-19875 ! ADD ADDITIONAL MESSAGES FOR LMF$GRANT_LICENSE ! 1 ! X-2 TCM0002 TRUDY C. MATTHEWS 09-MAR-1987: ! REMOVE WORD WARRANTY FROM LICENSE STATUS MESSAGES. ! 1 ! X-1 TCM0001 TRUDY C. MATTHEWS 26-JAN-1987 ! INITIAL VERSION. ! --3 DECLARE LONG CONSTANT LICENSE_FACILITY = 2708 ! SUCCESS CODES% ! THESE CODES RETURN INFORMATION7 DECLARE LONG CONSTANT LICENSE$_SYSMGR = 177505059> DECLARE LONG CONSTANT LICENSE$_NONCOMPLIANCE = 1775050678 ! THESE CODES RETURN SLIGHTLY DISMA YING INFORMATION0 ! THESE CODES INDICATE UNRECOVERABLE ERRORS7 DECLARE LONG CONSTANT LICENSE$_NOAUTH = 177507058 ! ALL OF THESE ARE FATAL: DECLARE LONG CONSTANT LICENSE$_NOLICENSE = 1775078609 DECLARE LONG CONSTANT LICENSE$_EXCEEDED = 177507868< DECLARE LONG CONSTANT LICENSE$_NOT_STARTED = 177507876= DECLARE LONG CONSTANT LICENSE$_INVALID_DATE = 177507884@ DECLARE LONG CONSTANT LICENSE$_INVALID_VERSION = 177507892; DECLARE LONG CONSTANT LICENSE$_TERMINATED = 177507900> DECLARE LONG CONSTANT LICENSE$_NOTINRSRVLIST = 177507908 ! +% ! RETURNED BY SYS$LOOKUP_LICENSE ! -9 DECLARE LONG CONSTANT LICENSE$_BADPARAM = 177507916< DECLARE LONG CONSTANT LICENSE$_ILLPRODUCER = 177507924: DECLARE LONG CONSTANT LICENSE$_WRONUMARG = 177507932> DECLARE LONG CONSTANT LICENSE$_INVALID_HW_ID = 177507940> DECLARE LONG CONSTANT LICENSE$_INVALID_TOKEN = 177507948 ! + ! NEW MESSAGES ! -:  DECLARE LONG CONSTANT LICENSE$_USER_MODE = 177507956wwl ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:47.87 ! ! --- ! " ! ERROR MESSAGES FOR LOGINOUT ! ! --- ! P ! *************************************************************************P ! * *P ! * HP CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL PROPRIETARY SOFTWARE *P ! * LICENSED BY HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., AND IS NOT *P ! * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT THE *P ! * PRIOR WRITTEN PERMISSION OF HP. *P ! * COPYRIGHT 2015 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *P ! * *P ! * VMS SOFTWARE, INC. CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL *P ! * PROPRIETARY SOFTWARE LICENSED BY VMS SOFTWARE, INC., AND IS NOT *P ! * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT *P ! * THE PRIOR WRITTEN PERMISSION OF VMS SOFTWARE, INC. *P ! * COPYRIGHT 2015 VMS SOFTWARE, INC.  *P ! * *P ! ************************************************************************* !  ! ++ ! FACILITY: LOGINOUT !  ! ABSTRACT: ! A ! THESE ARE THE ERROR MESSAGES USED BY THE LOGINOUT PROGRAM. !  ! ENVIRONMENT: ! 0 ! VMS OPERATING SYSTEM, PRIVILEGED UTILITY. ! * ! AUTHOR: TIM HALVORSEN, MARCH 1981 !  ! MODIFIED BY:  ! , ! X-16 MAS MARK A. STILES 9-SEP-2015= ! MAKE IA64HELLO MESSAGE (USED FOR DEFAULT SYS$WELCOME) ! MATCH BOOT BANNER FORMAT ! ) ! X-15 DAG DOUG GORDON 22-JUN-2015& ! REMOVE 'DEC' FROM NOVAXCLUSTER ! ) ! X-14 DAG DOUG GORDON 7-APR-2015$ ! ONE MORE VSI BRANDING CHANGE ! / ! X-13 JAH0504 JOHN A HARNEY 23-MAR-20058 ! D'OH. I DUPLICATED THE SPACE PADDING IN THE NEW: ! PWDCLEARSEC MESSAGE FROM THE MESSAGE ABOVE; THAT'D 9 ! HAVE BEEN WONDERFUL IF THE MESSAGE JUST ABOVE WAS7 ! A SIMILAR MESSAGE. ADD ONE MORE SPACE, TO MAKE* ! PWDCLEARSEC JUST LIKE PWDSYNCHSEC. ! / ! X-12 JAH0504 JOHN A HARNEY 05-JAN-2005 ! ADD PWDCLEARSEC -B ! "OpenVMS secondary password has been cleared" ! 0 ! X-11 MAS0803 MARK A. STILES 10-NOV-2004? ! ONCE AGAIN, WE BOW TO THE LEGAL BEAGLES, BEAN COUNTERS,@ ! AND SPIN DOCTORS. MAKE "hp" BE "HP" IN THE PRODUCT NAME  ! IN THE BANNER. ! 0 ! X-10 MAS0796 MARK A. STILES 4-APR-20041 ! FINALLY USE REAL PRODUCT NAME IN WELCOME. ! FOR TOPAZ, THIS WILL BE:F ! HP OPENVMS INDUSTRY STANDARD 64 OPERATING SYSTEM, VERSION V8.2 ! / ! X-9 MAS0784 MARK A. STILES 23-JUN-20039 ! YOU DIDN'T THINK THEY'D LET US GET OUT WITHOUT AT> ! LEAST ONE PRODUCT/BANNER/WELCOME NAME CHANGE, DO YOU??1 ! FOR MAKO_BL2, THE BANNER/WELCOME BECOMES:? ! HP OPENVMS INDUSTRY STANDARD 64 EVALUATION RELEASE V8.0 ! . ! X-8 JAH0434 JOHN A HARNEY 25-FEB-2003& ! ADD IA64HELLO WELCOME MESSAGE. ! 5 ! X-7 LJK0200 LAWRENCE J. KILGALLEN 13-DEC-2000- ! ADD THE STATUS CODE LGI$_DECWRESTART. ! 5 ! X-6 LJK0198 LAWRENCE J. KILGALLEN 12-DEC-2000- ! ADD THE STATUS CODE LGI$_NULLNETUSER. ! 5 ! X-5 LJK0175 LAWRENCE J. KILGALLEN 26-JUN-2000< ! COPY MESSAGES FROM SET.MSG SO THEY WILL BE AVAILABLE# ! TO THIRD PARTY ACME AGENTS. ! CHANGE COPYRIGHT. ! 5 ! X-4 LJK0119 LAWRENCE J. KILGALLEN 29-JAN-1999" ! ADD LGI$_LOSTSYNC MESSAGE. ! 5 ! X-3 LJK0045 LAWRENCE J. KILGALLEN 26-MAY-1998; ! CHANGE THE TWO PASSWORD SYNCHRONIZATION MESSAGES TO- ! SAY "external" RATHER THAN "network".; ! TRIPLE THE TWO PASSWORD SYNCHRONIZATION MESSAGES TO. ! COVER PRIMARY AND SECONDARY PASSWORDS. ! 5 ! X-2 LJK0033 LAWRENCE J. KILGALLEN 13-MAY-1998 ! ADD LGI$_LOGDISABLOPR." ! ADD SPACE TO LGI$_LOSTLGI." ! ADD SPACE TO LGI$_LOSTDEC. ! 5 ! X-1 LJK0009 LAWRENCE J. KILGALLEN 11-MAR-19986 ! INITIAL SUPPORT OF EXTERNAL AUTHENTICATION II: ! ADD LGI$_PWD2NOTSET. ! ADD LGI$_SYSPWDERR. ! ADD LGI$_LOSTDEC. ! ADD LGI$_LOSTLGI. ! ADD LGI$_NOSYSPWD. ! ADD LGI$_WRONGPRINCIPAL. ! ADD LGI$_PROCSTEP. ! ADD LGI$_SUBPROGRAM. ! ADD LGI$_OLDPOLICY.> ! CHANGE MODULE NAME TO LO GINMSG AND MOVE IT TO STARLET. ! 1 ! X-19 RJB0023 RICHARD J. BARRY 4-MAR-1996$ ! ADD SINGLE SIGN-ON MESSAGES. ! / ! X-18 JAH0202 JOHN A HARNEY 16-JAN-1996C ! PUT THE (TM) IN THE RIGHT PLACE IN ALPHAHELLO AND VAXHELLO. ! 2 ! X-17 NYK487 NITIN Y. KARKHANIS 29-SEP-1995= ! O INCREASE FIELD WIDTH FOR NUMBER DISPLAYED AFTER THE2 ! PEAK PAGE FILE SIZE TEXT IN LOGOUT/FULL.: ! O CHANGED THE FIELD WIDTHS FOR WS PEAK AND MOUNTED= ! VO LUME COUNT SO THAT THE NUMBERS ARE ALIGNED ON THE+ ! RIGHT-HAND-SIDE, FOR LOGOUT/FULL.< ! O REPLACED THE "Peak page file size" TEXT WITH "PEAK@ ! VIRTUAL SIZE" SINCE THAT IS THE VALUE THAT IS ACTUALLY ! DISPLAYED. ! 5 ! X-16 JAH0180 JOHN A HARNEY 08-MAY-1995B ! CHANGE THE ALPHA'S WELCOME MESSAGE TO REMOVE AXP REFERENCE ! . ! X-15 TNS003 TOM SCARPELLI 21-SEP-1993- ! UPDATE MESSAGES TO MATCH VAX VERSION. ! . ! X-14 TNS003 TOM SCARPELLI 29-JUN-19938 ! MOVE HARDCODED DAYS OF THE WEEK TO MESSAGE FILE. ! . ! X-13 TNS003 TOM SCARPELLI 23-JUN-1993# ! USE LOCAL DATE/TIME FORMAT. ! ( ! X-12 AHM DREW MASON 29-SEP-1992, ! MAKE PRODUCT NAME FIT ON 80 COLUMNS. ! ( ! X-11 AHM DREW MASON 29-SEP-1992( ! LAST PRODUCT NAME CHANGE FOR V1. ! ( ! X-10 AHM DREW MASON 28-SEP-1992( ! LAST PRODUCT NAME CHANGE FOR V1. ! ' ! X-9 AHM DREW MASON 25-SEP-1992 ! CHANGE PRODUCT NAME. ! - ! X-7 TNS001 TOM SCARPELLI 19-JUN-1992. ! FIX TEXT OF DECWCAPTIVE ERROR MESSAGE. ! 3 ! X-6 TNS001 TOM SCARPELLI 23-JAN-1992# ! MERGE THE FOLLOWING CHANGE:O ! (X-15 DDP1119 DERRELL D. PIPER 8-JAN-1992 12:16N ! ADD MESSAGE FOR WHEN LOGINOUT IS NOT PROPERLY INSTALLED.) ! 3 ! X-5 TNS001 TOM SCARPELLI 23-DEC-1991# ! MERGE THE FOLLOWING CHANGE:E  ! (X-14 DDP0952 DERRELL D. PIPER 23-MAY-1991 13:40% ! FOLD SIGMA CHANGE INTO MAGIC:@ ! DDP0931 DERRELL D. PIPER 6-MAY-1991 16:50< ! ADD MESSAGE FOR FAILURE TO ACCESS RIGHTS DATA BASE.) ! . ! X-4 KLN1136 KAREN L. NOEL 06-AUG-1991# ! MERGE THE FOLLOWING CHANGE:O ! (X-13 JRC1015 JOHN R. COVERT 22-FEB-1991 14:452 ! IMPLEMENT LOGINOUT CALLOUTS.) ! 3 ! X-3 TNS001 TOM SCARPEL LI 22-APR-1991, ! ADD WELCOME AND LOGOUT MESSAGE TEXT. ! C ! X-9 DDP0352 DERRELL D. PIPER 24-FEB-1989 14:51' ! ADD VAXCLUSTER LICENSE MESSAGE. ! C ! X-8 DDP0303 DERRELL D. PIPER 27-JUN-1988 15:15/ ! MERGE DECWINDOWS CHANGES INTO MAINLINE. ! 7 ! X-7 RJB0048 RICHARD J. BOUCHARD JR. 15-NOV-1987; ! CHANGE LOGOPRCON TO EXPLICITLY STATE THAT LOGIN WAS: ! ALLOWED ON OPA0:, NOT A GENERIC "operator console"  ! 7 ! X-6 RJB0034 RICHARD J. BOUCHARD JR. 26-OCT-1987< ! ADD MESSAGES FOR SUPPORT OF LMF CALL WITHIN LOGINOUT ! C ! X-5 DDP0135 DERRELL D. PIPER 13-AUG-1987 20:03< ! RENAME LGI$_FRCPWDERR TO LGI$_FRCPWDHLP AND MAKE THE; ! MESSAGE TEXT MORE READABLE. ADD LGI$_FRCPWDERR FOR' ! FORCE PASSWORD CHANGE TIMEOUTS. ! C ! X-4 DDP0076 DERRELL D. PIPER 18-MAY-1987 19:04= ! ADD LGI$_FRCPWDERR MESSAGE FOR FORCED PASSWORD CHANGE( ! ERRORS (POINT USER TO ). ! 0 ! X-3 DDP0052 DERRELL D. PIPER 01-APR-1987? ! ADD LGI$_NOTMODEM MESSAGE FOR INCORRECTLY WIRED MODEMS. ! ? ! V04-001 ACG0478 ANDREW C. GOLDSTEIN, 12-APR-1985 19:419 ! ADD LGI$_EXLICENSE, LGI$_DISUSER, LGI$_AUTOLOGIN," ! AND LGI$_INVINPUT MESSAGES ! 2 ! V03-008 MHB0142 MARK BRAMHALL 27-APR-1984" ! ADD NOSUCHUSER AND INVPWD. ! 2 ! V03-007 MHB0130 MARK BRAMHALL 10-APR-1984. !  MAKE CONNERR ONLY AN ERROR, NOT FATAL.& ! ADD CLITBLFAIL AND CLITBLPROT. ! 2 ! V03-006 MHB0112 MARK BRAMHALL 21-MAR-1984% ! ADD CONNERR AND DISRECONNECT. ! 1 ! V03-005 PCG0001 PETER GEORGE 04-FEB-1984# ! ADD ACNTEXPIR AND PWDEXPIR. ! ? ! V03-004 ACG0385 ANDREW C. GOLDSTEIN, 29-DEC-1983 11:59$ ! ADD NEW RESTRICTION MESSAGES ! ? ! V03-003 ACG0376 ANDREW C. GOLDSTEIN, 29-NOV-1983 14:23' ! ADD DEFCLI RESTRICTIONS MESSAGE ! 0 ! V03-002 GAS-162 GERRY SMITH 30-JUL-1983= ! ADD MESSAGES FOR SYSTEM PASSWORD AND BREAKIN EVASION. ! 0 ! V03-001 GAS0123 GERRY SMITH 20-APR-19833 ! ADD NETUAFACC, ERROR ACCESSING NETUAF FILE. ! 0 ! V02-003 HRJ0036 HERB JACOBS 08-DEC-1981; ! ADDED MORE MESSAGES FOR TERMINAL TYPE RESTRICTIONS. ! 0 ! V02-002 HRJ0031 HERB JACOBS 02-NOV-1981C ! ADD MESSAGES FOR TIME OF DAY AND USER ACCOUNT RESTRICTIONS. ! . ! V001 TM H0001 TIM HALVORSEN 22-OCT-1981. ! ADD ERROR MESSAGE FOR CAPTIVE ACCOUNTS2 ! CHANGE TO USE SYSTEM-WIDE FACILITY NUMBER. ! ---- ! IMPORTANT: ! R ! THESE MESSAGES ARE MADE AVAILABLE TO INSTALLATION CALLOUT ROUTINES AND AREQ ! STORED IN THE ACCOUNTING FILE AND MUST NOT CHANGE VALUE FROM NOW ON. YOUO ! MUST ADD ALL NEW MESSAGES TO THE APPROPRIATE SECTION AT THE END OF THIS ! MODULE.1 DECLARE LONG CONSTANT LOGIN$_FACILITY = 211 ! DEFAU LT SEVERITY IS FATAL4 DECLARE LONG CONSTANT LGI$_JBCMIXUP = 138608765 DECLARE LONG CONSTANT LGI$_LOGDISABL = 138608843 DECLARE LONG CONSTANT LGI$_EXQUOTA = 138608923 DECLARE LONG CONSTANT LGI$_CLIFAIL = 138609003 DECLARE LONG CONSTANT LGI$_CLIPROT = 138609085 DECLARE LONG CONSTANT LGI$_CLISYMTBL = 138609164 DECLARE LONG CONSTANT LGI$_NOTVALID = 138609243 DECLARE LONG CONSTANT LGI$_FILEACC = 138609324 DECLARE LONG CONSTANT LGI$_USERAUTH = 1386 09404 DECLARE LONG CONSTANT LGI$_INPUTERR = 138609485 DECLARE LONG CONSTANT LGI$_OUTPUTERR = 138609564 DECLARE LONG CONSTANT LGI$_CMDINPUT = 138609642 DECLARE LONG CONSTANT LGI$_OPENIN = 138609683 DECLARE LONG CONSTANT LGI$_CAPTIVE = 138609803 DECLARE LONG CONSTANT LGI$_BADHOUR = 138609883 DECLARE LONG CONSTANT LGI$_USEREXC = 138609963 DECLARE LONG CONSTANT LGI$_ACNTEXC = 138610042 DECLARE LONG CONSTANT LGI$_BADDAY = 138610124 DECLARE LO NG CONSTANT LGI$_RESTRICT = 138610205 DECLARE LONG CONSTANT LGI$_NETUAFACC = 138610285 DECLARE LONG CONSTANT LGI$_SYSPWDTMO = 138610361 DECLARE LONG CONSTANT LGI$_EVADE = 138610442 DECLARE LONG CONSTANT LGI$_DEFCLI = 138610525 DECLARE LONG CONSTANT LGI$_ACNTEXPIR = 138610604 DECLARE LONG CONSTANT LGI$_PWDEXPIR = 138610683 DECLARE LONG CONSTANT LGI$_CONNERR = 138610748 DECLARE LONG CONSTANT LGI$_DISRECONNECT = 138610846 DECLARE LONG CONSTANT LG I$_CLITBLFAIL = 138610926 DECLARE LONG CONSTANT LGI$_CLITBLPROT = 138611006 DECLARE LONG CONSTANT LGI$_NOSUCHUSER = 138611082 DECLARE LONG CONSTANT LGI$_INVPWD = 138611165 DECLARE LONG CONSTANT LGI$_EXLICENSE = 138611243 DECLARE LONG CONSTANT LGI$_DISUSER = 138611325 DECLARE LONG CONSTANT LGI$_AUTOLOGIN = 138611404 DECLARE LONG CONSTANT LGI$_INVINPUT = 138611484 DECLARE LONG CONSTANT LGI$_NOTMODEM = 138611565 DECLARE LONG CONSTANT LGI$_FRCPWDERR  = 138611645 DECLARE LONG CONSTANT LGI$_LICCHKINV = 138611723 DECLARE LONG CONSTANT LGI$_FISFAIL = 138611807 DECLARE LONG CONSTANT LGI$_DECWCAPTIVE = 138611888 DECLARE LONG CONSTANT LGI$_NOVAXCLUSTER = 138611960 ! SEVERITY OF THIS MESSAGE IS INFORMATIONAL5 DECLARE LONG CONSTANT LGI$_FRCPWDHLP = 13861203, ! SEVERITY OF THESE MESSAGES IS SUCCESS5 DECLARE LONG CONSTANT LGI$_LICNOTREQ = 138612095 DECLARE LONG CONSTANT LGI$_LOGOPRCON = 138612175  DECLARE LONG CONSTANT LGI$_LICCHKVAL = 13861225S ! ALL NEW MESSAGES MUST BE ADDED TO ONE OF THE FOLLOWING SECTIONS. YOU CANNOTQ ! ADD A MESSAGE ABOVE AS THIS WILL CHANGE THE VALUES OF THOSE MESSAGES WHICH2 ! FOLLOW YOUR NEW (PRESUMABLY FATAL) MESSAGE. ! INFORMATIONAL MESSAGES8 DECLARE LONG CONSTANT LGI$_LOGDISABLOPR = 13861267 ! SUCCESS MESSAGESW DECLARE LONG CONSTANT LGI$_SKIPRELATED = 13861665 ! INTERNAL COMMUNICATION ONLY ! WARNING MESSAGES  ! ERROR MESSAGES ! J ! THE FOLLOWING TWO MESSAGES DUPLICATE SET$_ MESSAGES IN SEVERITY ANDG ! TEXT (ALTHOUGH NOT IN CODE VALUE) TO ALLOW TRANSMISSION OF THEIRG ! VALUE TO SYS$ACM CLIENTS WHO DO NOT HAVE SET$_ MESSAGES CODES ING ! THEIR IMAGE. FOR THE PARTICULAR CASES OF LOGINOUT COMMUNICATINGG ! WITH AN LGI-CALLOUT PROVIDER OR SET PASSWORD RETURNING STATUS TOJ ! DCL, THESE LGI$_ CODES GET CONVERTED TO THE CORRESPONDING SET CODESD ! TO PRESERVE COMPA TIBILITY WITH VERSIONS OF VMS PRIOR TO V7.2. ! 6 DECLARE LONG CONSTANT LGI$_PWD2NOTSET = 138632665 DECLARE LONG CONSTANT LGI$_SYSPWDERR = 13863274 ! FATAL ERRORS6 DECLARE LONG CONSTANT LGI$_COUNTWRONG = 138640685 DECLARE LONG CONSTANT LGI$_RDBACCERR = 138640766 DECLARE LONG CONSTANT LGI$_NOTALLPRIV = 138640845 DECLARE LONG CONSTANT LGI$_NOEXTAUTH = 138640925 DECLARE LONG CONSTANT LGI$_NOLOCAUTH = 13864100 ! : ! FATAL MESSAGES ADDED FO R EXTERNAL AUTHENTICATION II ! 3 DECLARE LONG CONSTANT LGI$_LOSTDEC = 138641083 DECLARE LONG CONSTANT LGI$_LOSTLGI = 138641164 DECLARE LONG CONSTANT LGI$_NOSYSPWD = 13864124: DECLARE LONG CONSTANT LGI$_WRONGPRINCIPAL = 138641324 DECLARE LONG CONSTANT LGI$_LOSTSYNC = 13864140 ! = ! FAILURE MESSAGES ADDED FOR EXTERNAL AUTHENTICATION III ! 7 DECLARE LONG CONSTANT LGI$_NULLNETUSER = 138641487 DECLARE LONG CONSTANT LGI$_DECWRESTART = 1386415 6 ! J ! ALL ERROR MESSAGES SHOULD BE ADDED BEFORE THIS POINT. THE MESSAGESF ! FOLLOWING THE .BASE DIRECTIVE BELOW ARE TEXT OUTPUT BY LOGINOUT8 ! OR THE VMS ACME AND ARE NOT RETURNED TO THE USER. !  ! 5 ! THE FOLLOWING ARE MESSAGES OUTPUT IN LOGIN.B32 ! 3 DECLARE LONG CONSTANT LGI$_JOBTERM = 138690575 DECLARE LONG CONSTANT LGI$_JOBLOGOUT = 138690653 DECLARE LONG CONSTANT LGI$_PROCEND = 138690734 DECLARE LONG CONSTANT LGI$_ACNTINFO = 138690815 DECLARE LONG CONSTANT LGI$_ACNTINFO1 = 138690895 DECLARE LONG CONSTANT LGI$_ACNTINFO2 = 138690975 DECLARE LONG CONSTANT LGI$_ACNTINFO3 = 138691055 DECLARE LONG CONSTANT LGI$_ACNTINFO4 = 138691135 DECLARE LONG CONSTANT LGI$_ACNTINFO5 = 138691212 DECLARE LONG CONSTANT LGI$_PASEXP = 138691295 DECLARE LONG CONSTANT LGI$_PRIPASEXP = 138691375 DECLARE LONG CONSTANT LGI$_SECPASEXP = 138691452 DECLARE LONG CONSTANT LGI$_SETPAS = 138691535  DECLARE LONG CONSTANT LGI$_SETPRIPAS = 138691615 DECLARE LONG CONSTANT LGI$_SETSECPAS = 138691695 DECLARE LONG CONSTANT LGI$_EXPSETPAS = 138691775 DECLARE LONG CONSTANT LGI$_PRISETPAS = 138691855 DECLARE LONG CONSTANT LGI$_SECSETPAS = 13869193 ! 8 ! THE FOLLOWING ARE MESSAGES OUTPUT IN INTERACT.B32 ! 4 DECLARE LONG CONSTANT LGI$_USERNAME = 138692014 DECLARE LONG CONSTANT LGI$_PASSWORD = 138692094 DECLARE LONG CONSTANT LGI$_VAXHELLO = 138692176 DECLARE LONG CONSTANT LGI$_ALPHAHELLO = 138692252 DECLARE LONG CONSTANT LGI$_ONNODE = 138692335 DECLARE LONG CONSTANT LGI$_LASINTLOG = 138692417 DECLARE LONG CONSTANT LGI$_LASNOINTLOG = 138692494 DECLARE LONG CONSTANT LGI$_LOGFAILS = 138692576 DECLARE LONG CONSTANT LGI$_NEWMAILCNT = 138692653 DECLARE LONG CONSTANT LGI$_NEWMAIL = 138692736 DECLARE LONG CONSTANT LGI$_DISCONPROC = 138692817 DECLARE LONG CONSTANT LGI$_DISCONPROCS = 1386928 95 DECLARE LONG CONSTANT LGI$_DISCONHDR = 138692975 DECLARE LONG CONSTANT LGI$_DISCONTXT = 138693055 DECLARE LONG CONSTANT LGI$_CONTOTERM = 138693135 DECLARE LONG CONSTANT LGI$_CONTOPROC = 138693213 DECLARE LONG CONSTANT LGI$_YESRESP = 138693294 DECLARE LONG CONSTANT LGI$_NONERESP = 138693374 DECLARE LONG CONSTANT LGI$_TERMCONN = 138693452 DECLARE LONG CONSTANT LGI$_MONDAY = 138693533 DECLARE LONG CONSTANT LGI$_TUESDAY = 138693615 DECL ARE LONG CONSTANT LGI$_WEDNESDAY = 138693694 DECLARE LONG CONSTANT LGI$_THURSDAY = 138693772 DECLARE LONG CONSTANT LGI$_FRIDAY = 138693854 DECLARE LONG CONSTANT LGI$_SATURDAY = 138693932 DECLARE LONG CONSTANT LGI$_SUNDAY = 13869401 ! # ! NEW SINGLE SIGN-ON MESSAGES. ! 4 DECLARE LONG CONSTANT LGI$_PWDSYNCH = 138694096 DECLARE LONG CONSTANT LGI$_PWDNOSYNCH = 138694174 DECLARE LONG CONSTANT LGI$_LOCLOGIN = 13869425 ! 4 ! MESSAGES ADDED FOR EXTERNAL AUTHENTICATION II ! 4 DECLARE LONG CONSTANT LGI$_PROCSTEP = 138694336 DECLARE LONG CONSTANT LGI$_SUBPROGRAM = 138694415 DECLARE LONG CONSTANT LGI$_OLDPOLICY = 138694497 DECLARE LONG CONSTANT LGI$_PWDSYNCHPRI = 138694577 DECLARE LONG CONSTANT LGI$_PWDSYNCHSEC = 138694659 DECLARE LONG CONSTANT LGI$_PWDNOSYNCHPRI = 138694739 DECLARE LONG CONSTANT LGI$_PWDNOSYNCHSEC = 13869481 ! = ! MESSAGES COPIED FROM SET.MSG SO THEY WILL BE AVAILABLE" ! TO THIRD PARTY ACME AGENTS. ! 3 DECLARE LONG CONSTANT LGI$_OLDPASS = 138694893 DECLARE LONG CONSTANT LGI$_NEWPASS = 138694973 DECLARE LONG CONSTANT LGI$_CHKPASS = 13869505 ! ! IA64HELLO WELCOME MESSAGEo ! NOTE: INDENTED ONLY TWO SPACES TO KEEP ENTIRE LENGTH WITH VERSION STRING AND NODE NAME AT 80 CHARACTERS ! 5 DECLARE LONG CONSTANT LGI$_IA64HELLO = 13869513 ! ; ! ANOTHER MESSAGE ADDED FOR EXTERNAL AUTHENTICATION II  ! 7 DECLARE LONG CONSTANT LGI$_PWDCLEARSEC = 13869521 ! F ! ERROR MESSAGES SHOULD BE NOT ADDED AT THIS POINT. THE MESSAGESF ! FOLLOWING THE .BASE DIRECTIVE ABOVE ARE TEXT OUTPUT BY LOGINOUT8 ! OR THE VMS ACME AND ARE NOT RETURNED TO THE USER. ! ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! G ! This package defines the interfaces to the callable OpenVMS MAILG ! routines as documented in the OpenVMS Utility Routines Reference ! Manual.  !  !  ! Mail File routines !  ! 6 ! MAILFILE_BEGIN - Initiates mail file processing ! J ! 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 ! 3 EXTERNAL LONG FUNCTION MAIL$MAILFILE_BEGIN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & )  ! ; ! MAILFILE_CLOSE - Closes the currently open mail file ! J ! status = MAIL$MAILFILE_CLOSE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 3 EXTERNAL LONG FUNCTION MAIL$MAILFILE_CLOSE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 1 ! MAILFILE_COMPRESS - Compresses a mail file ! M ! 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 ! 6 EXTERNAL LONG FUNCTION MAIL$MAILFILE_COMPRESS & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 5 ! MAILFILE_END - Terminates mail file processing ! H ! 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 ! 1 EXTERNAL LONG FUNCTION MAIL$MAILFILE_END & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! K ! MAILFILE_INFO_FILE - Obtains information about a specified mail file ! N ! status = MAIL$MAILFILE_INFO_FILE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 7 EXTERNAL LONG FUNCTION MAIL$MAILFILE_INFO_FILE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! I ! MAILFILE_MODIFY - Modifies the information in an indexed mail file ! K ! 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 ! 4 EXTERNAL LONG FUNCTION MAIL$MAILFILE_MODIFY & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! A ! MAILFILE_OPEN - Opens a specified mail file for processing ! I ! 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 ! 2 EXTERNAL LONG FUNCTION MAIL$MAILFILE_OPEN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! C ! MAILFILE_PURGE_WASTE - Purges the wastebasket of a mail file ! P ! status = MAIL$MAILFILE_PURGE_WASTE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 9 EXTERNAL LONG FUNCTION MAIL$MAILFILE_PURGE_WASTE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) !  ! Message routines !  ! / ! MESSAGE_BEGIN - Begin message processing ! I ! 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 ! 2 EXTERNAL LONG FUNCTION MAIL$MESSAGE_BEGIN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! > ! MESSAGE_COPY - Copies messages between files or folders ! H ! 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 ! 1 EXTERNAL LONG FUNCTION MAIL$MESSAGE_COPY & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! ) ! MESSAGE_DELETE - Deletes a message ! J ! status = MAIL$MESSAGE_DELETE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 3 EXTERNAL LONG FUNCTION MAIL$MESSAGE_DELETE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! , ! MESSAGE_END - Ends message processing ! G ! 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 ! 0 EXTERNAL LONG FUNCTION MAIL$MESSAGE_END & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! J ! MESSAGE_GET - Retrieves a message from the set of selected messages ! G ! 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 ! 0 EXTERNAL LONG FUNCTION MAIL$MESSAGE_GET & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! C ! MESSAGE_INFO - Obtains information about a specified message ! H ! 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 ! 1 EXTERNAL LONG FUNCTION MAIL$MESSAGE_INFO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 4 ! MESSAGE_MODIFY = Modifies message information ! J ! 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 ! 3 EXTERNAL LONG FUNCTION MAIL$MESSAGE_MODIFY & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! C ! MESSAGE_SELECT - Selects messages from the current mail file ! J ! status = MAIL$MESSAGE_SELECT (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 3 EXTERNAL LONG FUNCTION MAIL$MESSAGE_SELECT & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) !  ! Send routines !  ! 4 ! SEND_ABORT - Cancels a current send operation ! F ! 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 ! / EXTERNAL LONG FUNCTION MAIL$SEND_ABORT & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! = ! SEND_ADD_ADDRESS - Adds an address to the address list ! L ! 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 ! 5 EXTERNAL LONG FUNCTION MAIL$SEND_ADD_ADDRESS & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! D ! SEND_ADD_ATTRIBUTE - Adds an attribute to the current message ! N ! 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 ! 7 EXTERNAL LONG FUNCTION MAIL$SEND_ADD_ATTRIBUTE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! : ! SEND_BEGIN - Initiates processing to send a message ! F ! 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 ! / EXTERNAL LONG FUNCTION MAIL$SEND_BEGIN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 7 ! SEND_ADD_BODYPART - Builds the body of a message ! M ! 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 ! 6 EXTERNAL LONG FUNCTION MAIL$SEND_ADD_BODYPART & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! , ! SEND_END - Terminates send processing ! D ! status = MAIL$SEND_END (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! - EXTERNAL LONG FUNCTION MAIL$SEND_END & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 8 ! SEND_MESSAGE - Begins actual sending of a message ! H ! 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 ! 1 EXTERNAL LONG FUNCTION MAIL$SEND_MESSAGE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) !  ! User data base routines !  ! A ! USER_BEGIN - Initiates access to the common user data base ! F ! status = MAIL$USER_BEGIN (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! / EXTERNAL LONG FUNCTION MAIL$USER_BEGIN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! H ! USER_DELETE_INFO - Remove a user record from the common data base ! L ! 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 ! 5 EXTERNAL LONG FUNCTION MAIL$USER_DELETE_INFO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! @ ! USER_END - terminates access to the common user data base ! D ! 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 ! - EXTERNAL LONG FUNCTION MAIL$USER_END & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 7 ! USER_GET_INFO - Obtains information about a user ! I ! status = MAIL$USER_GET_INFO (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 2 EXTERNAL LONG FUNCTION MAIL$USER_GET_INFO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! @ ! USER_SET_INFO - Adds or modifies information about a user ! I ! 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 ! 2 EXTERNAL LONG FUNCTION MAIL$USER_SET_INFO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & )wwB ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:53.27 !  !  ! VERSION: 'X-14' ! R ! ********************************************************************** ****** ! * *D ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1992 - 1996 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIE S THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ ! , ! FACILITY: VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! : ! THIS FILE CONTAINS THE MDL SOURCE FOR MAIL MESSAGES !  ! ENVIRONMENT: ! ! N/A !  !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 8-JUN-1978 !  ! MODIFICATION HISTORY: ! 6 ! X-14 RKS020909 RANJAN KUMAR SARANGI 09-FEB-20097 ! MODIFIED DIRHD0 MESSAGE FORMAT FOR MAIL HEADER " ! ALIGNMENT(PTR-75-120-515). ! H ! X-13 SD070507 SAMWEDANA DEVPA 05-JUL-2007' ! MODIFIED DIRHD0 MESSAGE FORMAT. ! . ! X-12 SG088 SHEELA GAYATRI 20-FEB-1996- ! ADD KEYNOTDEF ? INVKEYNAM MESSAGES.  ! . ! X-11 SG082 SHEELA GAYATRI 09-FEB-1996, ! ADD IL LEDTNAM MESSAGE. REMOVE X-10. ! 2 ! X-10 SG067 SHEELA GAYATRI 13-NOV-1995; ! ADD CDASUPPORT MESSAGE FOR EAGLE/THETA FOR MAIL/OLD8 ! SUPPORT FOR DDIF/DTIF FILES. THIS MESSAGE WILL 6 ! BECOME REDUNDANT IN GRYPHON, WHEN SUPPORT FOR + ! DDIF/DTIF FILE PROCESSING IS ADDED. ! / ! X-9 ROP1002 ROBERT POSNIAK 7-JUN-19956 ! ADD SHOWNOSIG, SHOWSIG AND BADLOGVAL MESSAGES. ! . ! X-8 MB0020 MARINA BUCKLEY 12-OCT-19942 ! MODIFY THE TEX T OF THE CODERR FATAL ERROR. ! . ! X-7 MB0011 MARINA BUCKLEY 16-JUN-1994; ! ADD MAIL$_LISTTOOLONG ERROR MESSAGE TO BE RETURNED < ! FROM CALLABLE MAIL ROUTINE MAIL$SEND_ADD_ADDRESS IF = ! USER CALLS IT MULTIPLE TIMES RESULTING IN AN ADDRESS & ! LIST THAT EXCEEDS THE MAXIMUM. ! - ! X-6 TNS004 TOM SCARPELLI 11-APR-1994 ! ADD I18N CHANGES. ! - ! X-5 RAB RICHARD A. BISHOP 17-AUG-19939 ! 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-1993; ! ADD FFMTMSG INFORMATIONAL MESSAGE FOR FOREIGN FILES ! WHERE TRANLATOR EXISTS ! , ! X-20 CCD007 CAREY DONAT 08-FEB-1993? ! ADD DELETED MESSAGE FOR COMPRESS TEMP FILE SUCCESSFULLY ! DELETED ! $ ! ***** OLD AUDIT TRAIL FOLLOWS ! / ! X-6 LAF0001 LISA A. FARLEY 02-JUL-1992= ! FI X FOR QAR #3161. ADDED MESSAGE INVRANGE TO LET THE : ! USER KNOW WHEN THE RANGE SPECIFIED FOR A DELETE IS ! INVALID. ! 0 ! X-5 MFS0069 MARK F. SCANLON 26-JUN-19925 ! QAR 2682. REMOVED FAO FROM MESSAGE NAMTOOBIG. ! - ! X-4 RAB RICHARD A. BISHOP 21-MAY-19924 ! MERGE ANOTHER SYMBVOL FROM THE VAX/VMS COPY: ! > ! X-19 DAC060 DAVE CANTOR 15-APR-1992J ! CORRECTED TEXT OF NOUSERSPEC AT REQUEST OF DOC. GROUP  ! > ! X-18 DAC058 DAVE CANTOR 02-APR-1992O ! SUPPLY ERROR MESSAGE FOR DCL COMMAND $ MAIL FILENAME E ! FOLLOWED BY NO ADDRESSEE SUPPLIED. (NOUSERSPEC) ! - ! X-3 RAB RICHARD A. BISHOP 29-JAN-19926 ! 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 ; ! FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK. ! F ! =============================================================== ! . ! X-17 DRB0084 DAWN R. BANKS 8-AUG-19917 ! ADD MESSAGES TO SUPPORT DDIF/DTIF DOTS PACKING. ! 1 ! X-16 ROP0423 ROBERT POSNIAK 17-MAR-1988" ! CHANGE THE TEXT OF FORMSG. ! 0 ! X-15 ROP0342 ROBERT POSNIAK 10-AUG-1987 ! ADD SHOW220, SHOW 225. ! 0 ! X-14 ROP0321 ROBERT POSNIAK 23-JUL-1987 ! ADD NOACCPTMSG MESSAGE. ! / ! X-13 ROP0297 ROBERT POSNIAK 2-MAR-19875 ! MAKE DIRHD0 TAKE AS A PARAMETER THE NUMBER OF/ ! SPACES BETWEEN DATE AND SUBJECT FIELDS. ! 0 ! 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. ! 1 ! X-10 ROP0205 ROBERT POSNIAK 14-NOV-1986 ! ADD SHOW210 AND SHOW215. ! 0 !  X-9 ROP0195 ROBERT POSNIAK 11-NOV-1986 ! ADD YES. ! 0 ! X-8 ROP0179 ROBERT POSNIAK 27-OCT-19864 ! ADD UPGRADE FOR ROLLING UPGRADE IN PROGRESS. !  ! X-7 ROP ! ADD ERRACTRNS !  ! X-6 ROP ! ADD SHOW200, SHOW205 ! ADD FORMSG, NOTFORMSG !  ! X-5 ROP< ! FIX SHOW10 TO USE ONLY DESCRIPTORS. REMOVE RECLSTAT: ! ADD PROMPT. CHANGE INFO50 TO TAKE A DESCRIPTOR AS. ! INPUT. ADD INFO12,INFO14, CRENEWFILE.6 ! 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-19855 ! NEW MESSAGE FOR WRONG FILE. ADD ERROR ERACTED ! 2 ! V03-015 ROP0004 ROBERT POSNIAK 6-JUN-19849 ! NEW MESSGE FOR OVERSIZED RECORD. NEW MESSAGE FOR !  REENTERING LINE. ! = ! V03-014 BLS0272 BENN SCHREIBER 18-FEB-1984 13:36:12 3 ! NEW MESSAGE FOR INCORRECT PROTOCOL VERSION. ! 3 ! V03-013 BLS0263 BENN SCHREIBER 5-FEB-19848 ! NEW MESSAGE FOR CAPTIVE ACCOUNT TRYING TO SPAWN. ! 3 ! V03-012 BLS0255 BENN SCHREIBER 28-DEC-1983A ! NEW MESSAGES FOR SHOW KEY, AND FOR TIME IN NOTIFY MESSAGE ! 3 ! V03-011 BLS0250 BENN SCHREIBER 8-DEC-1983= ! NEW MESSAGE FOR EDITOR NOT CALLABLE. NEW MESSAGE FOR1 ! ISAM FILE FOUND WHEN SEQUENTIAL EXPECTED. ! 3 ! V03-010 BLS0246 BENN SCHREIBER 28-NOV-19838 ! NEW MESSAGE ASKING IF WANT TO CREATE NEW FOLDER. ! 3 ! V03-009 BLS0229 BENN SCHREIBER 16-JUL-1983( ! NEW MESSAGE "you have new mail". ! 3 ! V03-008 BLS0227 BENN SCHREIBER 1-JUL-1983; ! NEW MESSAGES FOR SENDERR AND NOSUCHUSR THAT INCLUDE ! THE NODE NAME. ! 3 ! V03-007 BLS0225 BENN SCHREIBER 17-JUN-19835 ! NEW MESSAGE FOR BETTER PERSONAL NAME CHECKING ! 3 ! V03-006 BLS0222 BENN SCHREIBER 15-MAY-1983( ! NEW MESSAGE FOR RECLAIMING SPACE ! 3 ! V03-005 BLS0220 BENN SCHREIBER 30-APR-1983% ! NEW MESSAGES FOR NEW FEATURES ! 3 ! V03-004 BLS0217 BENN SCHREIBER 12-APR-1983B ! CHANGE TEXT OF DELSPACE. ADD NEW MESSAGE FOR NON-EXISTANT@ ! FOLDER SELECTED. ADD MESSAGE FOR EXTERNAL MESSAGE TEXT. ! 3 ! V03-003 BLS0211 BENN SCHREIBER 13-MAR-1983: ! NEW MESSAGES FOR ISAM FILES, AND TEXT THAT USED TO# ! BE EMBEDDED IN THE PROGRAM. ! 3 ! V03-002 BLS0202 BENN SCHREIBER 5-JAN-1983: ! NEW MESSAGES FOR ILLEGAL STRING LENGTH AND ILLEGAL ! CHARACTER IN STRING ! 3 ! V03-001 BLS0177 BENN SCHREIBER 24-JUN-1982> ! NEW MESSAGE FOR USER WHO HAS DISMAIL SET. NEW MESSAGE; ! IF LOOP DETECTED IN FORWARDING VIA LOGICAL NAMES OR ! SET FORWARD. !  ! -- ! . ! DEF INE MAIL RELATED ERROR/STATUS VALUES !  !  ! DEFINE ERROR MESSAGES ! 0 DECLARE LONG CONSTANT MAIL$_FACILITY = 1262 DECLARE LONG CONSTANT MAIL$_CODERR = 82903163 DECLARE LONG CONSTANT MAIL$_UPGRADE = 82903245 DECLARE LONG CONSTANT MAIL$_UAFGETERR = 82903305 DECLARE LONG CONSTANT MAIL$_UAFOPNERR = 82903385 DECLARE LONG CONSTANT MAIL$_NOSUCHUSR = 82903465 DECLARE LONG CONSTANT MAIL$_NOTREADIN = 82903543 DECLARE LONG CONSTANT MAIL$_ LOGLINK = 82903625 DECLARE LONG CONSTANT MAIL$_CREPRIJOB = 82903703 DECLARE LONG CONSTANT MAIL$_SENDERR = 82903785 DECLARE LONG CONSTANT MAIL$_NOMOREMSG = 82903862 DECLARE LONG CONSTANT MAIL$_NOMSGS = 82903944 DECLARE LONG CONSTANT MAIL$_USERSPEC = 82904025 DECLARE LONG CONSTANT MAIL$_SENDABORT = 82904104 DECLARE LONG CONSTANT MAIL$_EDITPROC = 82904182 DECLARE LONG CONSTANT MAIL$_INVCMD = 82904264 DECLARE LONG CONSTANT MAIL$_NOTFOUND = 8290434 4 DECLARE LONG CONSTANT MAIL$_NETIOERR = 82904425 DECLARE LONG CONSTANT MAIL$_USERDSABL = 82904504 DECLARE LONG CONSTANT MAIL$_FORWLOOP = 82904585 DECLARE LONG CONSTANT MAIL$_NAMTOOBIG = 82904663 DECLARE LONG CONSTANT MAIL$_ILLCHAR = 82904745 DECLARE LONG CONSTANT MAIL$_DATIMUSED = 82904823 DECLARE LONG CONSTANT MAIL$_NOTISAM = 82904902 DECLARE LONG CONSTANT MAIL$_DELMSG = 82904984 DECLARE LONG CONSTANT MAIL$_DELWASTE = 82905064 DECLARE LONG CONSTANT MAIL$_NOFOLDER = 82905144 DECLARE LONG CONSTANT MAIL$_NOTEXIST = 82905225 DECLARE LONG CONSTANT MAIL$_NOTSUBDIR = 82905305 DECLARE LONG CONSTANT MAIL$_ILLSUBDIR = 82905385 DECLARE LONG CONSTANT MAIL$_ILLFOLNAM = 82905464 DECLARE LONG CONSTANT MAIL$_NOMSGPRI = 82905545 DECLARE LONG CONSTANT MAIL$_ALTPRIJOB = 82905625 DECLARE LONG CONSTANT MAIL$_ILLPERNAM = 82905707 DECLARE LONG CONSTANT MAIL$_NOSUCHUSRAT = 82905785 DECLARE LONG C ONSTANT MAIL$_SENDERRAT = 82905864 DECLARE LONG CONSTANT MAIL$_CONABORT = 82905945 DECLARE LONG CONSTANT MAIL$_NOTCALEDT = 82906028 DECLARE LONG CONSTANT MAIL$_FILECONFUSED = 82906103 DECLARE LONG CONSTANT MAIL$_CAPTIVE = 82906185 DECLARE LONG CONSTANT MAIL$_IVPROTVAL = 82906264 DECLARE LONG CONSTANT MAIL$_RECTOBIG = 82906345 DECLARE LONG CONSTANT MAIL$_ILLCTXADR = 82906424 DECLARE LONG CONSTANT MAIL$_WRONGCTX = 82906505 DECLARE LONG CONSTANT MAIL$_FAILGETVM = 82906585 DECLARE LONG CONSTANT MAIL$_INVITMCOD = 82906665 DECLARE LONG CONSTANT MAIL$_MISREQITM = 82906745 DECLARE LONG CONSTANT MAIL$_INVITMLEN = 82906824 DECLARE LONG CONSTANT MAIL$_FILEOPEN = 82906906 DECLARE LONG CONSTANT MAIL$_NOFILEOPEN = 82906985 DECLARE LONG CONSTANT MAIL$_CONITMCOD = 82907065 DECLARE LONG CONSTANT MAIL$_NOMORECTX = 82907145 DECLARE LONG CONSTANT MAIL$_WRONGFILE = 82907223 DECLARE LONG CONSTANT MAIL $_ILLTPRT = 82907305 DECLARE LONG CONSTANT MAIL$_INVITMVAL = 82907383 DECLARE LONG CONSTANT MAIL$_ERACTED = 82907462 DECLARE LONG CONSTANT MAIL$_FORMSG = 82907545 DECLARE LONG CONSTANT MAIL$_NOTFORMSG = 82907625 DECLARE LONG CONSTANT MAIL$_ERRACTRNS = 82907704 DECLARE LONG CONSTANT MAIL$_BADVALUE = 82907784 DECLARE LONG CONSTANT MAIL$_CLOSEDEL = 82907865 DECLARE LONG CONSTANT MAIL$_FILNOTDEL = 82907942 DECLARE LONG CONSTANT MAIL$_OPENIN = 829 08023 DECLARE LONG CONSTANT MAIL$_OPENOUT = 82908105 DECLARE LONG CONSTANT MAIL$_PARSEFAIL = 82908183 DECLARE LONG CONSTANT MAIL$_READERR = 82908266 DECLARE LONG CONSTANT MAIL$_SEARCHFAIL = 82908344 DECLARE LONG CONSTANT MAIL$_SYSERROR = 82908424 DECLARE LONG CONSTANT MAIL$_NOSYSNAM = 82908504 DECLARE LONG CONSTANT MAIL$_NOSYSPRV = 82908584 DECLARE LONG CONSTANT MAIL$_PROTOCOL = 82908666 DECLARE LONG CONSTANT MAIL$_NOACCPTMSG = 82908744 DE CLARE LONG CONSTANT MAIL$_DOTSPACK = 82908826 DECLARE LONG CONSTANT MAIL$_DOTSUNPACK = 82908906 DECLARE LONG CONSTANT MAIL$_NOUSERSPEC = 82908984 DECLARE LONG CONSTANT MAIL$_INVRANGE = 82909067 DECLARE LONG CONSTANT MAIL$_LISTTOOLONG = 82909144 DECLARE LONG CONSTANT MAIL$_SELECTED = 83063073 DECLARE LONG CONSTANT MAIL$_DELMSGS = 83063153 DECLARE LONG CONSTANT MAIL$_CVTFILE = 83063234 DECLARE LONG CONSTANT MAIL$_DELSPACE = 83063315 DECLARE LONG C ONSTANT MAIL$_NEWFOLDER = 83063397 DECLARE LONG CONSTANT MAIL$_RECLPLSWAIT = 83063473 DECLARE LONG CONSTANT MAIL$_REENTER = 83063553 DECLARE LONG CONSTANT MAIL$_DELETED = 83063633 DECLARE LONG CONSTANT MAIL$_FFMTMSG = 83063713 DECLARE LONG CONSTANT MAIL$_MOREMSG = 8314304H DECLARE LONG CONSTANT MAIL$_DIRHD0 = 8314312 ! SD070507?RKS0209093 DECLARE LONG CONSTANT MAIL$_DIRHD10 = 83143203 DECLARE LONG CONSTANT MAIL$_DIRHD20 = 83143284 DECLARE LONG CONSTANT MAIL$_DIRDEL10 = 83143362 DECLARE LONG CONSTANT MAIL$_ISUB10 = 83143442 DECLARE LONG CONSTANT MAIL$_ISUB20 = 83143522 DECLARE LONG CONSTANT MAIL$_ISUB30 = 83143603 DECLARE LONG CONSTANT MAIL$_PRESRET = 83143686 DECLARE LONG CONSTANT MAIL$_YOUHAVENEW = 83143762 DECLARE LONG CONSTANT MAIL$_MAIL10 = 83143842 DECLARE LONG CONSTANT MAIL$_MAIL20 = 83143925 DECLARE LONG CONSTANT MAIL$_WANTOSEND = 83144004 DECLARE LONG CONSTANT MAIL$_NOTIFY 10 = 83144084 DECLARE LONG CONSTANT MAIL$_NOTIFY20 = 83144166 DECLARE LONG CONSTANT MAIL$_JOBENTERED = 83144242 DECLARE LONG CONSTANT MAIL$_SHOW10 = 83144322 DECLARE LONG CONSTANT MAIL$_SHOW20 = 83144402 DECLARE LONG CONSTANT MAIL$_SHOW30 = 83144482 DECLARE LONG CONSTANT MAIL$_SHOW40 = 83144562 DECLARE LONG CONSTANT MAIL$_SHOW50 = 83144642 DECLARE LONG CONSTANT MAIL$_SHOW60 = 83144722 DECLARE LONG CONSTANT MAIL$_SHOW70 = 83144802 DECLARE LONG  CONSTANT MAIL$_SHOW80 = 83144882 DECLARE LONG CONSTANT MAIL$_SHOW90 = 83144963 DECLARE LONG CONSTANT MAIL$_SHOW100 = 83145043 DECLARE LONG CONSTANT MAIL$_SHOW110 = 83145122 DECLARE LONG CONSTANT MAIL$_EDIT10 = 83145202 DECLARE LONG CONSTANT MAIL$_INFO10 = 83145282 DECLARE LONG CONSTANT MAIL$_INFO20 = 83145362 DECLARE LONG CONSTANT MAIL$_INFO30 = 83145440 DECLARE LONG CONSTANT MAIL$_SEND = 83145521 DECLARE LONG CONSTANT MAIL$_REPLY = 83145603  DECLARE LONG CONSTANT MAIL$_SHOW120 = 83145683 DECLARE LONG CONSTANT MAIL$_SHOW130 = 83145762 DECLARE LONG CONSTANT MAIL$_INFO50 = 83145843 DECLARE LONG CONSTANT MAIL$_SHOW140 = 83145923 DECLARE LONG CONSTANT MAIL$_SHOW150 = 83146003 DECLARE LONG CONSTANT MAIL$_SHOW160 = 83146082 DECLARE LONG CONSTANT MAIL$_ISUB50 = 83146162 DECLARE LONG CONSTANT MAIL$_MAIL30 = 83146243 DECLARE LONG CONSTANT MAIL$_RETCONT = 83146322 DECLARE LONG CONSTANT MAIL$_NEWSEQ = 83146403 DECLARE LONG CONSTANT MAIL$_MAILDIR = 83146484 DECLARE LONG CONSTANT MAIL$_MAILFILE = 83146566 DECLARE LONG CONSTANT MAIL$_MAILFOLDER = 83146642 DECLARE LONG CONSTANT MAIL$_MAIL40 = 83146726 DECLARE LONG CONSTANT MAIL$_CRENEWFOLD = 83146805 DECLARE LONG CONSTANT MAIL$_NONEWMAIL = 83146885 DECLARE LONG CONSTANT MAIL$_SHOWKEY10 = 83146965 DECLARE LONG CONSTANT MAIL$_SHOWKEY20 = 83147045 DECLARE LONG CONSTANT MAIL$_SHOWKEY3 0 = 83147125 DECLARE LONG CONSTANT MAIL$_SHOWKEY40 = 83147205 DECLARE LONG CONSTANT MAIL$_SHOWKEY50 = 83147285 DECLARE LONG CONSTANT MAIL$_SHOWKEY60 = 83147365 DECLARE LONG CONSTANT MAIL$_SHOWKEY70 = 83147444 DECLARE LONG CONSTANT MAIL$_NOTIFY30 = 83147524 DECLARE LONG CONSTANT MAIL$_NOTIFY40 = 83147604 DECLARE LONG CONSTANT MAIL$_NOPARENT = 83147684 DECLARE LONG CONSTANT MAIL$_FILEMPTY = 83147765 DECLARE LONG CONSTANT MAIL$_NONEFOUND = 831478 45 DECLARE LONG CONSTANT MAIL$_NOMOREREC = 8314792 ! 6 ! THE FOLLOWING MESSAGE IS USED FOR COMMUNICATIONH ! BETWEEN MAILSHR AND MAILSHRP. IT DOES NOT NEED TO BE DOCUMENTED. ! 3 DECLARE LONG CONSTANT MAIL$_USERFWD = 83148002 DECLARE LONG CONSTANT MAIL$_PROMPT = 83148082 DECLARE LONG CONSTANT MAIL$_INFO12 = 83148162 DECLARE LONG CONSTANT MAIL$_INFO14 = 83148242 DECLARE LONG CONSTANT MAIL$_INFO16 = 83148322 DECLARE LONG CONSTANT MAIL$_INFO 18 = 83148406 DECLARE LONG CONSTANT MAIL$_CRENEWFILE = 83148482 DECLARE LONG CONSTANT MAIL$_SHOW15 = 83148562 DECLARE LONG CONSTANT MAIL$_SHOW25 = 83148642 DECLARE LONG CONSTANT MAIL$_SHOW35 = 83148723 DECLARE LONG CONSTANT MAIL$_FORWARD = 83148803 DECLARE LONG CONSTANT MAIL$_SHOW200 = 83148883 DECLARE LONG CONSTANT MAIL$_SHOW205 = 83148963 DECLARE LONG CONSTANT MAIL$_SHOW210 = 83149043 DECLARE LONG CONSTANT MAIL$_SHOW215 = 83149123 DECL ARE LONG CONSTANT MAIL$_CLOSEIN = 83149204 DECLARE LONG CONSTANT MAIL$_CLOSEOUT = 83149285 DECLARE LONG CONSTANT MAIL$_INVQUAVAL = 83149364 DECLARE LONG CONSTANT MAIL$_WRITEERR = 83149443 DECLARE LONG CONSTANT MAIL$_SHOW220 = 83149523 DECLARE LONG CONSTANT MAIL$_SHOW225 = 83149603 DECLARE LONG CONSTANT MAIL$_HPROMPT = 83149685 DECLARE LONG CONSTANT MAIL$_SHOWNOSIG = 83149763 DECLARE LONG CONSTANT MAIL$_SHOWSIG = 83149845 DECLARE LONG CONSTAN T MAIL$_BADLOGVAL = 83149923 DECLARE LONG CONSTANT MAIL$_MSGTEXT = 83223053 DECLARE LONG CONSTANT MAIL$_MSGINFO = 83223133 DECLARE LONG CONSTANT MAIL$_MSGSENT = 83223215 DECLARE LONG CONSTANT MAIL$_MSGSENTAT = 8322329/ DECLARE LONG CONSTANT MAIL$_YES = 83223373 DECLARE LONG CONSTANT MAIL$_COPIEDR = 83223453 DECLARE LONG CONSTANT MAIL$_CREATED = 83223533 DECLARE LONG CONSTANT MAIL$_RENAMED = 83223610 DECLARE LONG CONSTANT MAIL$_TEXT = 83223 69 ! 9 ! THE FOLLOWING TWO ARE FOLDER NAMES CREATED BY MAIL ! 4 DECLARE LONG CONSTANT MAIL$_MAILFOLD = 83223775 DECLARE LONG CONSTANT MAIL$_WASTEFOLD = 83223855 DECLARE LONG CONSTANT MAIL$_ILLEDTNAM = 83223945 DECLARE LONG CONSTANT MAIL$_KEYNOTDEF = 83224025 DECLARE LONG CONSTANT MAIL$_INVKEYNAM = 8322410ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >   %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:57.16 !  ! ++O ! *************************************************************************O ! *   *O ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1991, 1992, 1993 *O ! * ALL RIGHTS RESERVED. *O ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *O ! * STATES. *O ! * *O ! * THE SOFTWARE CONTAINED ON THIS  MEDIA IS PROPRIETARY TO AND EMBODIES *O ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *O ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *O ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *O ! * DIGITAL EQUIPMENT CORPORATION. *O ! * *O ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, O R DISCLOSURE BY THE U.S. *O ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *O ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *O ! * *O ! ************************************************************************* !  ! ++ ! FACILITY:. ! MME - VMS MEDIA MANAGEMENT EXTENSIONS !  ! ABSTRACT:? ! CONTAINS MESSAGES FOR THE MEDIA MANAGEMENT EXTENSIONS. !  ! AUTHOR: ! DAN KYLER ! ! ! CREATION DATE: 11-SEP-1991 !  ! MODIFICATION HISTORY: ! 1 ! X-3 SGS0032 STEVE SKONETSKI 30-SEP-1993E ! FIX BUILD BUG. WRONG COMMENT CHARACTER USED IN NEW COPYRIGHT. ! 1 ! X-2 SGS0032 STEVE SKONETSKI 30-SEP-1993= ! VAX TO ALPHA PORT. ADD /MACRO=$MMEMSGDEF TO .FACILITYC ! DIRECTIVE. ALLOWS US TO REMOVE MMEMSGDEF.COM FROM THE BUILD ! PROCEDURE. !  ! 2 ! X-1 MME-JDE013 JOHN EIKENBERRY 21 NOV 1991 ! MERGED INTO BLADE !  ! -- ! + ! FACILITY DEFINITION ! -/ DECLARE LONG CONSTANT MME_FACILITY = 3439 ! + ! SUCCESS MESSAGES ! - !  ! + ! INFORMATIONAL MESSAGES ! - ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --3 DECLARE LONG CONSTANT MME$_NO_MME = 225411875 !  ! + ! WARNING MESSAGES ! - ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONSL ! EXPLANATION: THE MEDIA MANAGEMENT PROCESS RECEIVED A MAILBOX MESSAGED ! CONTAINING AN ARGUMENT WHICH WAS UNRECOGNIZED. THE ARGUMENT ! WILL BE IGNORED. ! USER ACTION: NONE ! --6 DECLARE LONG CONSTANT MME$_BADARGIGN = 225412672 !  ! + ! ERROR MESSAGES ! - ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONSM ! EXPLANATION: THE MEDIA MANAGEMENT PROCESS RECEIEVED A MAILBOX MESSAGEC ! INDICATING AN ACTION ROUTINE FOR WHICH THE MEDIA MANAGEMENT, ! SOFTWARE HAS NOT DECLARED A ROUTINE. ! USER ACTION: NONE. ! --7 DECLARE LONG CONSTANT MME$_RTNNOTDECL = 225415074 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --7 DECLARE LONG CONSTANT MME$_BADMSGTYPE = 225415082 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --8 DECLARE LONG CONSTANT MME$_FACMISMATCH = 225415090 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_MBXFAOERR = 225415098 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_MBXASNERR = 225415106 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_MBXWRTERR = 225415114 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_ASTNOTQED = 225415122 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_AVRFAOERR = 225415130 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_AVRENQERR = 225415138 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_AVRASNERR = 225415146 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_GETNAMERR = 225415154 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --8 DECLARE LONG CONSTANT MME$_UICMISMATCH = 225415162 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_MBXDVIERR = 225415170 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_JPIUICERR = 225415178 !  ! + ! FATAL MESSAGES ! - ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_FINTERNAL = 225419076 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --5 DECLARE LONG CONSTANT MME$_MBXRDERR = 225419084 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --7 DECLARE LONG CONSTANT MME$_POSTMBXERR = 225419092 ! ++: ! FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS ! EXPLANATION:  ! USER ACTION:  ! --6 DECLARE LONG CONSTANT MME$_MEMALLERR = 225419100 ! ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.13 !  !  ! VERSION: 'X-26' ! O ! *************************************************************************O ! * *O ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978 - 1999 *O ! * ALL RIGHTS RESERVED. *O ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *O ! * STATES. *O ! * *O ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *O ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *O ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *O ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *O ! * DIGITAL EQUIPMENT CORPORATION. *O ! * *O ! * RESTRICTED RIG HTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *O ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *O ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *O ! * *O ! ************************************************************************* ! ++ ! 0 ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! H ! THIS FILE CONTAINS THE MDL SOURCE FOR THE MOUNT UTILITY MESSAGES. !  ! ENVIRONMENT: ! F ! MAINTAINERS TAKE NOTE? THIS MODULE IS COMMON SOURCE FOR VAX ANDI ! ALPHA. DO NOT CHANGE ONE WITHOUT TRACKING THE CHANGE IN THE OTHER. !  ! -- !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! 6 ! X-26 JJF0296 J. JEFFERY FRIEDRICHS 4-MAY-2004 ! ADD MESSAGES FOR BAD SCB ! 0 ! X-25 RAB087 ROBERT A. BR OOKS 18-FEB-20042 ! (RESYNCH IDENT WITH WHAT VDE THINKS . . .)# ! FOLD FROM V73-2R-HBMM . . . ! A ! X-35 JJF0260 J. JEFFERY FRIEDRICHS 10-NOV-2003$ ! ADD MBRTOOSMALL ! 6 ! X-35 JJF0279 J. JEFFERY FRIEDRICHS 12-FEB-2004/ ! ADD SHDWREQALLOC FOR SHADOW SET MEMBERS ! 6 ! X-34 JJF0213 J. JEFFERY FRIEDRICHS 7-FEB-2003* ! ADD NOCAPABILITY AND OPTCAPABILITY ! 6 ! X-33 JJF0178 J. JEFFERY FRIEDRICHS 20=FEB-2002! ! ADD BADWINDOWS ! * ! X-32 MLH MARK HOPKINS 29-FEB-2000; ! ADD MESSAGE FOR ACP NOT FOUND ON VOLUME MOUNT (VAFS ! SUPPORT). ! 6 ! X-31 JJF0116 J. JEFFERY FRIEDRICHS 20-DEC-1999! ! ADD MESSAGES FOR MINICOPY ! 6 ! X-30 JJF0095 J. JEFFERY FRIEDRICHS 24-FEB-1999- ! ADD WARNING MESSAGE FOR SIZE CONFLICT ! 6 ! X-29 JJF0095 J. JEFFERY FRIEDRICHS 8-JAN-1999C ! ADD NEW MESSAGES OLDSHDRIVER, NOTALLMEM AND POLICY MESSAGES " ! = ! X-28 JJF-0076 J. JEFFERY FRIEDRICHS 12-SEP-1997@ ! SEPARATE DEVBUSY ERROR MESSAGES OUT INTO UNIQUE MESSAGES ! 9 ! X-27 KJP-SDOS KEVIN PLAYFORD 18-JUL-1997: ! ADD MESSAGE FOR SNAPSHOT POOL MEMBER. ! < ! X-26 ACG0639 ANDREW C. GOLDSTEIN, 13-JUN-1997 14:44* ! ADD NEW MESSAGES FOR ODS-5 SUPPORT ! G ! X-25 TGC0049 TOM CARR 19-JUN-1996K ! ADD AN INFORMATIONAL ME #SSAGE TO BE USED TO REPORT THATA ! A MEMBER IS ALREADY A MEMBER OF A SHADOW SET ! G ! X-24 TGC0048 TOM CARR 29-MAY-1996K ! ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THATI ! A MEMBER REQUIRES A COPY OPERATION AND CAN NOT BE A  ! MASTER ! ; ! X-23 ACG0618 ANDREW C. GOLDSTEIN, 8-APR-1996 11:17% ! RETURN FACILITY NAME TO MOUNT ! J $! X-22 TGC0045 TOM CARR 29-MAR-1996@ ! ADD NEW MESSAGES FROM SHADOW MOUNT REWRITE. ! 7 ! X-21 JJF0017 J. JEFFERY FRIEDRICHS 11-OCT-1994< ! NUMEROUS MESSAGE CLEANUPS PER DOCUMENTATION FOLKS... ! P ! X-20 JJF0014 J. JEFFERY FRIEDRICHS 17-MAY-1994 ! REMOVE BADSECSUG ! P ! X-19 JJF0014 J. JEFFERY FRIEDRICHS 10-MAY-19940 ! CHANGE BADSECSYS AND BADSE %CSUG TO ERRORS ! P ! X-18 JJF0014 J. JEFFERY FRIEDRICHS 14-APR-1994# ! ADD BADSECSYS AND BADSECSUG ! P ! X-17 JJF0007 J. JEFFERY FRIEDRICHS 22-MAR-1994 ! ADD DENIGNORED. ! P ! X-16 JJF0011 J. JEFFERY FRIEDRICHS 14-MAR-1994Q ! ADD REBUILD MESSAGES. ALSO ADD CRELNM_FAILED FOR A PENDING  ! CHANGE. ! 9 ! X-15 JJF0008 J. JEFFERY FRIEDRICHS & 9-MAR-1994@ ! REMOVE FAO AND CLARIFY MESSAGES INCONPROT AND INCONOWNER ! 9 ! X-14 JJF0005 J. JEFFERY FRIEDRICHS 1-FEB-1994% ! FIX TYPO IN MESSAGE BADUNDFAT ! 1 ! X-13 AJK0003 ADAM J. KOJNOK 12-OCT-19930 ! ADDING NEW MESSAGE WAITDEVRDY FOR MOUNT. ! 1 ! X-12 AJK0002 ADAM J. KOJNOK 12-OCT-19939 ! RETROFITTING MESSAGE VOLSETALRMNT FROM ALPHA VMS. ! , ! X-4 ABELL53 ALLY BELL 25-JUNE-1993G ! ADDED FATAL MESSAGE VOLSET 'ALRMNT FOR WHEN A VOLUME SET IS BEINGD ! MOUNTED WITH THE SAME NAME AS AN ALREADY MOUNTED VOLUME SET. ! 7 ! X-10 AJK0010 MIKE STAMS/ADAM KOJNOK 01-SEP-1993@ ! ADDING MESSAGE (CBSNOTSUPTD). ALSO, CHANGING 'NEWER' IN= ! MESSAGE INVSHDWMEM TO "newer". THIS WAS REQUESTED BY7 ! DOCUMENTATION SO THAT IT MATCHES THE HELP FILE. ! . ! X-9 VBK VAIKOM B. KRISHNAN 14-NOV-1991; ! ADD A NEW ERROR MESSAGE TO BE OUTPUT WHEN A DISK IS: ! TOO BIG TO BE PA (RT OF A VOLUME SET. SUCH DISKS ARE> ! LARGER THAN 8GB AND SO THEY REQUIRE AN ENTIRE LONGWORD9 ! TO STORE LBNS WHICH LEAVES NO ROOM FOR RVN TO BE " ! STORED IN THE MAP POINTER. ! / ! X-8 JFD0034 JAMES F. DUNHAM 8-JAN-1991: ! IN SUPPORT OF FILES-11 C/D CONTROLLED VOLUME SETS,: ! ADD ISO 9660 AND HIGH SIERRA VOLUME MOUNT MESSAGES ! 5 ! X-21 RKK0057 ROBERT K. KOSAKOWSKI 19-FEB-1991< ! ADD NEW MESSAGES FOR MME OPCOM MESSAGES - SUPPORT OF1 ! ) SCRATCH VOLUME, MOUNT BY CARTRIDGE NAME.  ! (FOR DAN KYLER) ! 5 ! X-20 RKK0049 ROBERT K. KOSAKOWSKI 26-DEC-1990@ ! REPLACE WITH CORRECT VERSION OF FILE. (BUILDBUG, CHECKED ! IN WRONG VERSION) ! 5 ! X-19 RKK0048 ROBERT K. KOSAKOWSKI 21-DEC-1990 ! ADDED DEVNOFE MESSAGE. ! 5 ! X-18 RKK0036 ROBERT K. KOSAKOWSKI 17-NOV-1990 ! ADDED INVQUAVAL MESSAGE. ! . ! X-17 PRD PAUL R. DESTEFANO 26-APR-1990! ! ADDED NOALOCLASS M*ESSAGE. ! . ! X-16 PRD PAUL R. DESTEFANO 20-MAR-1990 ! ADDED NOTACLU MESSAGE. ! 2 ! X-15 PRD0548 PAUL R. DESTEFANO 06-NOV-1989 ! ADDED BADMDFMT MESSAGE. ! 2 ! X-14 PRD0526 PAUL R. DESTEFANO 07-OCT-1989< ! ADDED MESSAGES SHDWMEMERGE, AUTOMEMSUCC, AUTOMEMCOPY ! AND AUTOMEMERGE, ! 2 ! X-13 PRD0462 PAUL R. DESTEFANO 16-OCT-19881 ! ADDED WAITINGMNT AND RMTMNTSUCC MESSAGES. ! 2 ! X-12 PRD0455 PAUL R. DESTEFANO 05-OCT-+19889 ! ADDED MOUN$_MOUNT MESSAGE FOR IO$_DISPLAY CALL IN ! ASSIST. ! 2 ! X-11 PRD0445 PAUL R. DESTEFANO 18-MAY-1988 ! ADD QUOTAFNF MESSAGE. ! 2 ! X-10 PRD0416 PAUL R. DESTEFANO 23-SEP-1987: ! 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-19857 ! FOR CONSISTENC,Y, 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-19857 ! ADD SHDWCOPYREQ MESSAGE. ALSO, RENAME SHAMEM TO ! SHDWMEM. ! ) ! X-3 HH0092 HAI HUANG 20-AUG-1985) ! REMOVE OBSOLET-E BADJRNL MESSAGE.  ! ) ! X-2 HH0073 HAI HUANG 16-MAY-1985& ! ADD VOLUME SHADOWING MESSAGES. !  ! ** ! + ! > ! THE FOLLOWING ARE MESSAGES ISSUED BY THE MOUNT UTILITY. !  ! - ! 4 ! ***** FOLLOWING MESSAGES ARE SHARED WITH INIT ! I ! WHEN ADDING A NEW MESSAGE IN THIS SECTION, USE THE FILL VALUES DX. ! 1 DECLARE LONG CONSTANT MOUNT$_FACILITY = 1145 DECLARE LONG CONSTANT MOUN$_BADDATCHK = 75038843 DECLAR .E LONG CONSTANT MOUN$_BADDENS = 75038922 DECLARE LONG CONSTANT MOUN$_BADPRO = 75039002 DECLARE LONG CONSTANT MOUN$_BADUIC = 75039084 DECLARE LONG CONSTANT MOUN$_CONFQUAL = 75039162 DECLARE LONG CONSTANT MOUN$_ILLOPT = 75039244 DECLARE LONG CONSTANT MOUN$_NONLOCAL = 75039322 DECLARE LONG CONSTANT MOUN$_NOTRAN = 75039402 DECLARE LONG CONSTANT MOUN$_UNKDEV = 75039485 DECLARE LONG CONSTANT MOUN$_BADLABELQ = 75039565 DECLARE LONG CONSTANT MOUN$_VALCNV /ERR = 7503964. DECLARE LONG CONSTANT MOUN$_D3 = 7503972. DECLARE LONG CONSTANT MOUN$_D4 = 7503980. DECLARE LONG CONSTANT MOUN$_D5 = 7503988 ! 4 ! ***** PRECEDING MESSAGES ARE SHARED WITH INIT ! 3 DECLARE LONG CONSTANT MOUN$_LOGNAME = 75039962 DECLARE LONG CONSTANT MOUN$_MAXDEV = 75040042 DECLARE LONG CONSTANT MOUN$_MAXLAB = 75040124 DECLARE LONG CONSTANT MOUN$_NOACPDEV = 75040202 DECLARE LONG CONSTANT MOUN$_MOUVOL = 75040285 DECLAR 0E LONG CONSTANT MOUN$_INCOMPACP = 75040364 DECLARE LONG CONSTANT MOUN$_INCOMPAT = 75040445 DECLARE LONG CONSTANT MOUN$_VOLALRMNT = 75040523 DECLARE LONG CONSTANT MOUN$_BADVOL1 = 75040603 DECLARE LONG CONSTANT MOUN$_ILLDENS = 75040685 DECLARE LONG CONSTANT MOUN$_NOTGENDEV = 75040765 DECLARE LONG CONSTANT MOUN$_DUPDEVSPC = 75040845 DECLARE LONG CONSTANT MOUN$_ILLANSIBS = 75040922 DECLARE LONG CONSTANT MOUN$_ACCERR = 75041005 DECLARE LONG CONST 1ANT MOUN$_FILNOTEXP = 75041082 DECLARE LONG CONSTANT MOUN$_NOPRIV = 75041163 DECLARE LONG CONSTANT MOUN$_NOTANSI = 75041244 DECLARE LONG CONSTANT MOUN$_NOTLABEL = 75041325 DECLARE LONG CONSTANT MOUN$_NOTVOLSET = 75041405 DECLARE LONG CONSTANT MOUN$_NOTRELVOL = 75041483 DECLARE LONG CONSTANT MOUN$_OFFLINE = 75041563 DECLARE LONG CONSTANT MOUN$_IOERROR = 75041643 DECLARE LONG CONSTANT MOUN$_ILLQUAL = 75041723 DECLARE LONG CONSTANT MOUN$_WRITLC 2K = 75041804 DECLARE LONG CONSTANT MOUN$_RECGTRBL = 75041883 DECLARE LONG CONSTANT MOUN$_ACPNAME = 75041963 DECLARE LONG CONSTANT MOUN$_ACPTIME = 75042043 DECLARE LONG CONSTANT MOUN$_AQBTIME = 75042122 DECLARE LONG CONSTANT MOUN$_BADACP = 75042202 DECLARE LONG CONSTANT MOUN$_BADEBC = 75042282 DECLARE LONG CONSTANT MOUN$_BADOVR = 75042363 DECLARE LONG CONSTANT MOUN$_DEVICES = 75042444 DECLARE LONG CONSTANT MOUN$_SZTOOBIG = 75042525 DECLAR 3E LONG CONSTANT MOUN$_INCONSDEV = 75042604 DECLARE LONG CONSTANT MOUN$_DEVCOUNT = 75042684 DECLARE LONG CONSTANT MOUN$_VOLINSET = 75042765 DECLARE LONG CONSTANT MOUN$_RVN1NOTMT = 75042844 DECLARE LONG CONSTANT MOUN$_SETLIMIT = 75042925 DECLARE LONG CONSTANT MOUN$_DUPVOLNAM = 75043005 DECLARE LONG CONSTANT MOUN$_HOMBLKCHK = 75043082 DECLARE LONG CONSTANT MOUN$_DUPRVN = 75043164 DECLARE LONG CONSTANT MOUN$_BADCACHE = 75043244 DECLARE LONG CONSTAN 4T MOUN$_UNRELVOL = 75043324 DECLARE LONG CONSTANT MOUN$_MBXCRERR = 75043404 DECLARE LONG CONSTANT MOUN$_MBXRDERR = 75043484 DECLARE LONG CONSTANT MOUN$_REPLYERR = 75043565 DECLARE LONG CONSTANT MOUN$_OPRSNDERR = 75043644 DECLARE LONG CONSTANT MOUN$_OPRABORT = 75043726 DECLARE LONG CONSTANT MOUN$_BATCHNOOPR = 75043805 DECLARE LONG CONSTANT MOUN$_MOUNEWVOL = 75043884 DECLARE LONG CONSTANT MOUN$_REMOUVOL = 75043964 DECLARE LONG CONSTANT MOUN$_OBSOLE 5TE = 75044043 DECLARE LONG CONSTANT MOUN$_VOLOERR = 75044123 DECLARE LONG CONSTANT MOUN$_BADINIT = 75044202 DECLARE LONG CONSTANT MOUN$_DISMAL = 75044284 DECLARE LONG CONSTANT MOUN$_INCONSHR = 75044365 DECLARE LONG CONSTANT MOUN$_INCONPROT = 75044446 DECLARE LONG CONSTANT MOUN$_INCONQUOTA = 75044526 DECLARE LONG CONSTANT MOUN$_INCONOWNER = 75044606 DECLARE LONG CONSTANT MOUN$_INCONWRITE = 75044684 DECLARE LONG CONSTANT MOUN$_INCONFOR = 75044764 6 DECLARE LONG CONSTANT MOUN$_NOVOLACC = 75044844 DECLARE LONG CONSTANT MOUN$_NOFILACC = 75044927 DECLARE LONG CONSTANT MOUN$_TAPEPOSLOST = 75045005 DECLARE LONG CONSTANT MOUN$_BADSHADOW = 75045085 DECLARE LONG CONSTANT MOUN$_NOSHDWMEM = 75045166 DECLARE LONG CONSTANT MOUN$_INVSHDWMEM = 75045247 DECLARE LONG CONSTANT MOUN$_SHDWCOPYREQ = 75045326 DECLARE LONG CONSTANT MOUN$_SHADOWFAIL = 75045406 DECLARE LONG CONSTANT MOUN$_SHDWINCVOL = 75045486 7 DECLARE LONG CONSTANT MOUN$_NOTSHDWDEV = 75045564 DECLARE LONG CONSTANT MOUN$_BADMDFMT = 75045643 DECLARE LONG CONSTANT MOUN$_NOTACLU = 75045726 DECLARE LONG CONSTANT MOUN$_NOALOCLASS = 75045806 DECLARE LONG CONSTANT MOUN$_BADASNUNIT = 75045883 DECLARE LONG CONSTANT MOUN$_BADDISP = 75045965 DECLARE LONG CONSTANT MOUN$_BADUNDFAT = 75046045 DECLARE LONG CONSTANT MOUN$_VOLTOOBIG = 75046125 DECLARE LONG CONSTANT MOUN$_BADSECSYS = 75046203 DECL 8ARE LONG CONSTANT MOUN$_DEVBUSY = 75046282 DECLARE LONG CONSTANT MOUN$_DEVDMT = 75046364 DECLARE LONG CONSTANT MOUN$_BADREPLY = 75046444 DECLARE LONG CONSTANT MOUN$_MMEABORT = 75046524 DECLARE LONG CONSTANT MOUN$_NOSHADOW = 75046605 DECLARE LONG CONSTANT MOUN$_NOTSHDWVU = 75046685 DECLARE LONG CONSTANT MOUN$_NOSHADLIC = 75046765 DECLARE LONG CONSTANT MOUN$_DIFVOLMNT = 75046845 DECLARE LONG CONSTANT MOUN$_DEVSHAMEM = 75046923 DECLARE LONG CONST 9ANT MOUN$_SHADSCB = 75047002 DECLARE LONG CONSTANT MOUN$_NOODS1 = 75047083 DECLARE LONG CONSTANT MOUN$_WRONGVU = 75047168 DECLARE LONG CONSTANT MOUN$_DETSHADINCON = 75047244 DECLARE LONG CONSTANT MOUN$_NOMASTER = 75047322 DECLARE LONG CONSTANT MOUN$_XSMBRS = 75047402 DECLARE LONG CONSTANT MOUN$_NOVUID = 75047488 DECLARE LONG CONSTANT MOUN$_SHADUNSTABLE = 75047565 DECLARE LONG CONSTANT MOUN$_INCONPOOL = 75047646 DECLARE LONG CONSTANT MOUN$_DEVBUS :YMOU = 75047729 DECLARE LONG CONSTANT MOUN$_DEVBUSYMOUDSA = 75047806 DECLARE LONG CONSTANT MOUN$_DEVBUSYDMT = 75047886 DECLARE LONG CONSTANT MOUN$_DEVBUSYSYS = 75047966 DECLARE LONG CONSTANT MOUN$_DEVBUSYVOL = 75048046 DECLARE LONG CONSTANT MOUN$_DEVBUSYORB = 75048129 DECLARE LONG CONSTANT MOUN$_DEVBUSYINVMOS = 75048208 DECLARE LONG CONSTANT MOUN$_DEVBUSYINSET = 75048285 DECLARE LONG CONSTANT MOUN$_NOTALLMEM = 75048365 DECLARE LONG CONSTANT MOUN ;$_BADPOLICY = 75048446 DECLARE LONG CONSTANT MOUN$_POLICYFAIL = 75048521 DECLARE LONG CONSTANT MOUN$_SPARE = 75048609 DECLARE LONG CONSTANT MOUN$_REQ_WBM_MERGE = 75048688 DECLARE LONG CONSTANT MOUN$_REQ_WBM_FAIL = 75048769 DECLARE LONG CONSTANT MOUN$_ACPNOTPRESENT = 75048846 DECLARE LONG CONSTANT MOUN$_BADWINDOWS = 75048928 DECLARE LONG CONSTANT MOUN$_NOCAPABILITY = 75049007 DECLARE LONG CONSTANT MOUN$_MBRTOOSMALL = 75049088 DECLARE LONG CONST <ANT MOUN$_SHDWREQALLOC = 75049166 DECLARE LONG CONSTANT MOUN$_INVALIDSCB = 7504924M ! *********************************************************************** ! L ! ADD NEW FATAL STATUS MESSAGES HERE. THERE IS ROOM FOR 385 MORE CODES. ! M ! *********************************************************************** !  ! WARNING MESSAGES ! 5 DECLARE LONG CONSTANT MOUN$_HOMBLKBAD = 75079685 DECLARE LONG CONSTANT MOUN$_IDXHDRBAD = 75079765 DE =CLARE LONG CONSTANT MOUN$_MAPHDRBAD = 75079845 DECLARE LONG CONSTANT MOUN$_IDXMAPERR = 75079925 DECLARE LONG CONSTANT MOUN$_BITMAPERR = 75080005 DECLARE LONG CONSTANT MOUN$_BADHOMBLK = 75080085 DECLARE LONG CONSTANT MOUN$_WRTHOMBLK = 75080165 DECLARE LONG CONSTANT MOUN$_QUOTAFAIL = 75080245 DECLARE LONG CONSTANT MOUN$_BITMAPINV = 75080324 DECLARE LONG CONSTANT MOUN$_WRITESCB = 75080404 DECLARE LONG CONSTANT MOUN$_DISMPART = 75080482 DECLARE >LONG CONSTANT MOUN$_UNUSED = 75080565 DECLARE LONG CONSTANT MOUN$_DISMOUNTD = 75080646 DECLARE LONG CONSTANT MOUN$_VOLSHDWMEM = 75080726 DECLARE LONG CONSTANT MOUN$_RMTMNTFAIL = 75080806 DECLARE LONG CONSTANT MOUN$_MNTCLUFAIL = 75080884 DECLARE LONG CONSTANT MOUN$_QUOTAFNF = 75080967 DECLARE LONG CONSTANT MOUN$_CBSNOTSUPTD = 75081049 DECLARE LONG CONSTANT MOUN$_CRELNM_FAILED = 75081126 DECLARE LONG CONSTANT MOUN$_DENIGNORED = 75081204 DECLARE LO ?NG CONSTANT MOUN$_ALHOMERR = 75081284 DECLARE LONG CONSTANT MOUN$_ALHOMINV = 75081367 DECLARE LONG CONSTANT MOUN$_INCONSTRUCT = 75081444 DECLARE LONG CONSTANT MOUN$_INCONSET = 75081527 DECLARE LONG CONSTANT MOUN$_OLDSHDRIVER = 75081606 DECLARE LONG CONSTANT MOUN$_POLICYWARN = 75081685 DECLARE LONG CONSTANT MOUN$_INCONSIZE = 75081769 DECLARE LONG CONSTANT MOUN$_OPT_WBM_MERGE = 7508184: DECLARE LONG CONSTANT MOUN$_WBM_NOTSTARTED = 75081929 DECLAR @E LONG CONSTANT MOUN$_OPTCAPABILITY = 7508200 !  ! INFORMATIONAL MESSAGES ! 3 DECLARE LONG CONSTANT MOUN$_MOUNTED = 75120674 DECLARE LONG CONSTANT MOUN$_VOLIDENT = 75120755 DECLARE LONG CONSTANT MOUN$_WRITELOCK = 75120833 DECLARE LONG CONSTANT MOUN$_REBUILD = 75120912 DECLARE LONG CONSTANT MOUN$_OPRQST = 75120993 DECLARE LONG CONSTANT MOUN$_OPREPLY = 75121075 DECLARE LONG CONSTANT MOUN$_OPRQSTCAN = 75121151 DECLARE LONG CONSTANT MO AUN$_NOOPR = 75121235 DECLARE LONG CONSTANT MOUN$_INVLDRESP = 75121314 DECLARE LONG CONSTANT MOUN$_MOUNTDEV = 75121393 DECLARE LONG CONSTANT MOUN$_VOLNAME = 75121474 DECLARE LONG CONSTANT MOUN$_NODEVAVL = 75121556 DECLARE LONG CONSTANT MOUN$_RPLYARRIVD = 75121634 DECLARE LONG CONSTANT MOUN$_WRONGVOL = 75121713 DECLARE LONG CONSTANT MOUN$_RQSTDON = 75121795 DECLARE LONG CONSTANT MOUN$_VOLSTATUS = 75121875 DECLARE LONG CONSTANT MOUN$_VOLSETSTS = B75121954 DECLARE LONG CONSTANT MOUN$_REDCACHE = 75122035 DECLARE LONG CONSTANT MOUN$_REBLDREQD = 75122117 DECLARE LONG CONSTANT MOUN$_SHDWMEMSUCC = 75122197 DECLARE LONG CONSTANT MOUN$_SHDWMEMCOPY = 75122277 DECLARE LONG CONSTANT MOUN$_SHDWMEMFAIL = 7512235L DECLARE LONG CONSTANT MOUN$_MOUNT = 7512243 ! MAXIMUM = 8 CHARACTERS6 DECLARE LONG CONSTANT MOUN$_WAITINGMNT = 75122516 DECLARE LONG CONSTANT MOUN$_RMTMNTSUCC = 75122597 DECLARE LONG CON CSTANT MOUN$_SHDWMEMERGE = 75122677 DECLARE LONG CONSTANT MOUN$_AUTOMEMSUCC = 75122757 DECLARE LONG CONSTANT MOUN$_AUTOMEMCOPY = 75122837 DECLARE LONG CONSTANT MOUN$_AUTOMEMERGE = 75122914 DECLARE LONG CONSTANT MOUN$_MOUNTVOL = 75122996 DECLARE LONG CONSTANT MOUN$_ANYSCRATCH = 75123076 DECLARE LONG CONSTANT MOUN$_SCRATCHCOL = 75123156 DECLARE LONG CONSTANT MOUN$_SCRATCHLOC = 75123235 DECLARE LONG CONSTANT MOUN$_SCRCOLLOC = 75123313 DECLARE LONG D CONSTANT MOUN$_SUITDEV = 75123393 DECLARE LONG CONSTANT MOUN$_DEVTYPE = 75123472 DECLARE LONG CONSTANT MOUN$_DEVICE = 75123555 DECLARE LONG CONSTANT MOUN$_MEDIANAME = 75123635 DECLARE LONG CONSTANT MOUN$_CARTRIDGE = 75123714 DECLARE LONG CONSTANT MOUN$_CARTSIDE = 75123795 DECLARE LONG CONSTANT MOUN$_CDROM_ISO = 75123874 DECLARE LONG CONSTANT MOUN$_CDROM_HS = 75123956 DECLARE LONG CONSTANT MOUN$_WAITDEVRDY = 75124033 DECLARE LONG CONSTANT MOUN E$_NOTODS2 = 75124115 DECLARE LONG CONSTANT MOUN$_SRCMBRADD = 75124196 DECLARE LONG CONSTANT MOUN$_ISACPYTRGT = 75124272 DECLARE LONG CONSTANT MOUN$_ISAMBR = 75124354 DECLARE LONG CONSTANT MOUN$_DOSETVOL = 75124435 DECLARE LONG CONSTANT MOUN$_RETSTATUS = 75124517 DECLARE LONG CONSTANT MOUN$_SHDWMEMMCPY = 75124596 DECLARE LONG CONSTANT MOUN$_SHDWNOMCPY = 7512467 ! J ! MORE FATAL MESSAGES (DO NOT ADD MORE MESSAGES TO THIS SECTION UNTIL) ! THE BLOCK ABOVE HAS BEEN USED UP.) ! 5 DECLARE LONG CONSTANT MOUN$_INVQUAVAL = 75158763 DECLARE LONG CONSTANT MOUN$_DEVNOFE = 75158848 DECLARE LONG CONSTANT MOUN$_VOLSETALRMNT = 7515892 wwG} ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED H( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINIG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > J %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.14 ! 4 DECLARE LONG CONSTANT REBUILD$_FACILITY = 18146 DECLARE LONG CONSTANT RBLD$_NODEVICE = 1189150824 KDECLARE LONG CONSTANT RBLD$_ADDERR = 1189150907 DECLARE LONG CONSTANT RBLD$_MODIFYERR = 1189150985 DECLARE LONG CONSTANT RBLD$_CLOSERR = 1189151065 DECLARE LONG CONSTANT RBLD$_LOCKERR = 1189151147 DECLARE LONG CONSTANT RBLD$_UNLOCKERR = 1189151225 DECLARE LONG CONSTANT RBLD$_MAXVOLS = 1189151307 DECLARE LONG CONSTANT RBLD$_ACCINDEXF = 1189151387 DECLARE LONG CONSTANT RBLD$_ACCBITMAP = 1189151466 DECLARE LONG CONSTANT RBLD$_ACCQFILE = 1189151547 L DECLARE LONG CONSTANT RBLD$_QUOTARERR = 1189151627 DECLARE LONG CONSTANT RBLD$_BITMAPERR = 1189151705 DECLARE LONG CONSTANT RBLD$_READSCB = 1189151786 DECLARE LONG CONSTANT RBLD$_WRITESCB = 1189151866 DECLARE LONG CONSTANT RBLD$_WRTIBMAP = 1189151947 DECLARE LONG CONSTANT RBLD$_WRTBITMAP = 1189152026 DECLARE LONG CONSTANT RBLD$_MEMALLOC = 1189152107 DECLARE LONG CONSTANT RBLD$_HOMEBLOCK = 1189152187 DECLARE LONG CONSTANT RBLD$_SYSHEADER = 118915 M2264 DECLARE LONG CONSTANT RBLD$_ERRORS = 1189152345 DECLARE LONG CONSTANT RBLD$_SHADSCB = 1189152425 DECLARE LONG CONSTANT RBLD$_DUALLOC = 1189152487 DECLARE LONG CONSTANT RBLD$_HEADERERR = 1189152566 DECLARE LONG CONSTANT RBLD$_WRITEHDR = 1189152647 DECLARE LONG CONSTANT RBLD$_ERASEBLKS = 118915272; DECLARE LONG CONSTANT RBLD$_VOLNOTPRESENT = 1189152809 DECLARE LONG CONSTANT RBLD$_INVBACKLINK = 1189152889 DECLARE LONG CONSTANT RBLD$_NOREBLDREQD = 1189152997 DECLARE LONG CONSTANT RBLD$_REBLDREQD = 1189153077 DECLARE LONG CONSTANT RBLD$_REBLDDONE = 1189153138 DECLARE LONG CONSTANT RBLD$_INVALIDSCB = 118915322wwO ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED P( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINQG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > R %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSAC SHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ' T ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! ********U******************************************************************* ! MTH$ACOS ! 2 ! Arc Cosine of Angle Expressed in Radians ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians$ ! routine returns that angle ! (in radians). ! * EXTERNAL SINGLE FUNCTION mth$acos & ( &# SINGLE BY REF & ) ! MTH$DACOS ! 2 ! Arc Cosine of VAngle Expressed in Radians ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians$ ! routine returns that angle ! (in radians). ! + EXTERNAL DOUBLE FUNCTION mth$dacos & ( &# DOUBLE BY REF & ) ! MTH$GACOS ! 2 ! Arc Cosine of Angle Expressed in Radians ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in RadiansW$ ! routine returns that angle ! (in radians). ! + EXTERNAL GFLOAT FUNCTION mth$gacos & ( &# GFLOAT BY REF & ) ! MTH$ACOSD ! 2 ! Arc Cosine of Angle Expressed in Degrees ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! + EXTERNAL SINGLE FUNCTION mth$acosd &X ( &# SINGLE BY REF & ) ! MTH$DACOSD ! 2 ! Arc Cosine of Angle Expressed in Degrees ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! , EXTERNAL DOUBLE FUNCTION mth$dacosd & ( &# DOUBLE BY REF & ) ! MTH$GACOSD ! 2 ! Arc YCosine of Angle Expressed in Degrees ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! , EXTERNAL GFLOAT FUNCTION mth$gacosd & ( &# GFLOAT BY REF & ) ! MTH$ASIN !  ! Arc Sine in Radians ! = ! Given the sine of an angle, the Arc Sine in Radians$ ! routine returns that aZngle ! (in radians). ! * EXTERNAL SINGLE FUNCTION mth$asin & ( &# SINGLE BY REF & ) ! MTH$DASIN !  ! Arc Sine in Radians ! = ! Given the sine of an angle, the Arc Sine in Radians$ ! routine returns that angle ! (in radians). ! + EXTERNAL DOUBLE FUNCTION mth$dasin & ( &# DOUBLE BY REF & ) [ ! MTH$GASIN& !  ! Arc Sine in Radians ! = ! Given the sine of an angle, the Arc Sine in Radians$ ! routine returns that angle ! (in radians). ! + EXTERNAL GFLOAT FUNCTION mth$gasin & ( &# GFLOAT BY REF & ) ! MTH$ASIND !  ! Arc Sine in Degrees ! = ! Given the sine of an angle, the Arc Sine in Degrees\$ ! routine returns that angle ! (in degrees). ! + EXTERNAL SINGLE FUNCTION mth$asind & ( &# SINGLE BY REF & ) ! MTH$DASIND !  ! Arc Sine in Degrees ! = ! Given the sine of an angle, the Arc Sine in Degrees$ ! routine returns that angle ! (in degrees). ! , EXTERNAL DOUBLE FUNCTION mth$dasind & ( &# DOU]BLE BY REF & ) ! MTH$GASIND !  ! Arc Sine in Degrees ! = ! Given the sine of an angle, the Arc Sine in Degrees$ ! routine returns that angle ! (in degrees). ! , EXTERNAL GFLOAT FUNCTION mth$gasind & ( &# GFLOAT BY REF & ) ! MTH$ATAN ! ! Arc Tangent in Radians ! C ! Given the tangent of an angle, the Arc Tange^nt in Radians3 ! routine returns that angle (in radians). ! * EXTERNAL SINGLE FUNCTION mth$atan & ( &# SINGLE BY REF & ) ! MTH$DATAN ! ! Arc Tangent in Radians ! C ! Given the tangent of an angle, the Arc Tangent in Radians3 ! routine returns that angle (in radians). ! + EXTERNAL DOUBLE FUNCTION mth$datan & ( &# DOU_BLE BY REF & ) ! MTH$GATAN ! ! Arc Tangent in Radians ! C ! Given the tangent of an angle, the Arc Tangent in Radians3 ! routine returns that angle (in radians). 1 ! + EXTERNAL GFLOAT FUNCTION mth$gatan & ( &# GFLOAT BY REF & ) ! MTH$ATAN2 ! 3 ! Arc Tangent in Radians with Two Arguments ! ` 6 ! Given cosine and cosine, the Arc Tangent in $ ! Radians with Two Arguments0 ! routine returns the angle (in radians)F ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! + EXTERNAL SINGLE FUNCTION mth$atan2 & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DATAN2 ! 3 ! Arc Tangent in Radians with Two Argumentas ! 6 ! Given cosine and cosine, the Arc Tangent in $ ! Radians with Two Arguments0 ! routine returns the angle (in radians)F ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! , EXTERNAL DOUBLE FUNCTION mth$datan2 & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GATAN2 ! 3 ! Arc Tangent in Radians with Twbo Arguments ! 6 ! Given cosine and cosine, the Arc Tangent in $ ! Radians with Two Arguments0 ! routine returns the angle (in radians)F ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! , EXTERNAL GFLOAT FUNCTION mth$gatan2 & ( &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$ATAND ! ! Arc Tangent in Degreces ! C ! Given the tangent of an angle, the Arc Tangent in Degrees3 ! routine returns that angle (in degrees). ! + EXTERNAL SINGLE FUNCTION mth$atand & ( &# SINGLE BY REF & ) ! MTH$DATAND ! ! Arc Tangent in Degrees ! C ! Given the tangent of an angle, the Arc Tangent in Degrees3 ! routine returns that angle (in degrees). ! , EXTERNAL DdOUBLE FUNCTION mth$datand & ( &# DOUBLE BY REF & ) ! MTH$GATAND ! ! Arc Tangent in Degrees ! C ! Given the tangent of an angle, the Arc Tangent in Degrees3 ! routine returns that angle (in degrees). ! , EXTERNAL GFLOAT FUNCTION mth$gatand & ( &# GFLOAT BY REF & ) ! MTH$ATANH ! ! Hyperbolic Arc Tanegent ! N ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns3 ! the hyperbolic arc tangent of that angle. ! + EXTERNAL SINGLE FUNCTION mth$atanh & ( &# SINGLE BY REF & ) ! MTH$DATANH ! ! Hyperbolic Arc Tangent ! N ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns3 f! the hyperbolic arc tangent of that angle. ! , EXTERNAL DOUBLE FUNCTION mth$datanh & ( &# DOUBLE BY REF & ) ! MTH$GATANH ! ! Hyperbolic Arc Tangent ! N ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns3 ! the hyperbolic arc tangent of that angle. ! , EXTERNAL GFLOAT FUNCTION mth$gatanh & ( &# g GFLOAT BY REF & ) ! MTH$ATAND2 ! 3 ! Arc Tangent in Degrees with Two Arguments ! 6 ! Given cosine and cosine, the Arc Tangent in $ ! Degrees with Two Arguments ! routine returns . ! the angle (in degrees) whose tangent9 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. ! , EXTERNAL SINGLE FUNCTION mth$atand2 & ( &$ h SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DATAND2 ! 3 ! Arc Tangent in Degrees with Two Arguments ! 6 ! Given cosine and cosine, the Arc Tangent in $ ! Degrees with Two Arguments ! routine returns . ! the angle (in degrees) whose tangent9 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. ! - EXTERNAL DOUBLE FUNCTION mth$datand2 & i ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GATAND2 ! 3 ! Arc Tangent in Degrees with Two Arguments ! 6 ! Given cosine and cosine, the Arc Tangent in $ ! Degrees with Two Arguments ! routine returns . ! the angle (in degrees) whose tangent9 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. ! - EXTERNAL GFLOAT FUNCTION mtjh$gatand2 & ( &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$CABS ! ! Complex Absolute Value ! , ! The Complex Absolute Value routine? ! returns the absolute value of a complex number (r,i). ! * EXTERNAL SINGLE FUNCTION mth$cabs & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CDABS ! k! Complex Absolute Value ! , ! The Complex Absolute Value routine? ! returns the absolute value of a complex number (r,i). ! + EXTERNAL DOUBLE FUNCTION mth$cdabs & ( &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGABS ! ! Complex Absolute Value ! , ! The Complex Absolute Value routine? ! returns the absolute value of a complex number (r,i).1 ! l + EXTERNAL GFLOAT FUNCTION mth$cgabs & ( &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CCOS ! 7 ! Cosine of a Complex Number (F-floating Value) ! ; ! The Cosine of a Complex Number (F-floating Value)? ! routine returns the cosine of a complex number as an  ! F-floating value. ! < EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mmth$ccos & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CEXP ! 0 ! Complex Exponential (F-floating Value) ! 4 ! The Complex Exponential (F-floating Value)6 ! routine returns the complex exponential of a0 ! complex number as an F-floating value. ! < EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$cexp & ( &5 BASIC$F_FLOATING_COMPLEX BY REF n& ) ! MTH$CLOG ! 6 ! Complex Natural Logarithm (F-floating Value) ! : ! The Complex Natural Logarithm (F-floating Value)O ! routine returns the complex natural logarithm of a complex number as  ! an F-floating value. ! < EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$clog & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CMPLX ! 3 ! o Complex Number Made from F-floating-Point ! 7 ! The Complex Number Made from F-floating-PointQ ! routine returns a complex number from two floating-point input values. ! = EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$cmplx & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DCMPLX ! 9 ! Complex Number Made from D- or G-floating-Point ! ' ! pThe Complex Number Made from ! D- or G-floating-PointS ! routine returns a complex number from two D- or G-floating input values. ! EXTERNAL SUB mth$dcmplx & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GCMPLX ! 9 ! Complex Number Made from D- or G-floating-Point ! ' ! The Complex Number Madqe from ! D- or G-floating-PointS ! routine returns a complex number from two D- or G-floating input values. ! EXTERNAL SUB mth$gcmplx & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$CONJG ! : ! Conjugate of a Complex Number (F-floating Value) ! 8 ! The Conjugate of a Complex Number (F-floatinrg  ! Value)K ! routine returns the complex conjugate (r,-i) of a complex number ' ! (r,i) as an F-floating value. ! = EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$conjg & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DCONJG ! ' ! Conjugate of a Complex Number ! + ! The Conjugate of a Complex NumberR ! routine returns the complex conjugate (r,-i) of a scomplex number (r,i). ! EXTERNAL SUB mth$dconjg & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GCONJG ! ' ! Conjugate of a Complex Number ! + ! The Conjugate of a Complex NumberR ! routine returns the complex conjugate (r,-i) of a complex number (r,i). ! EXTERNAL SUB mth$gconjg & ( &6 t BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$COS ! . ! Cosine of Angle Expressed in Radians ! 2 ! The Cosine of Angle Expressed in RadiansC ! routine returns the cosine of a given angle (in radians). ! ) EXTERNAL SINGLE FUNCTION mth$cos & ( &# SINGLE BY REF & ) ! MTH$DCOS ! .u ! Cosine of Angle Expressed in Radians ! 2 ! The Cosine of Angle Expressed in RadiansC ! routine returns the cosine of a given angle (in radians). ! * EXTERNAL DOUBLE FUNCTION mth$dcos & ( &# DOUBLE BY REF & ) ! MTH$GCOS ! . ! Cosine of Angle Expressed in Radians ! 2 ! The Cosine of Angle Expressed in RadiansC ! routine returns the cosine of a given vangle (in radians). ! * EXTERNAL GFLOAT FUNCTION mth$gcos & ( &# GFLOAT BY REF & ) ! MTH$COSD ! . ! Cosine of Angle Expressed in Degrees ! 2 ! The Cosine of Angle Expressed in DegreesC ! routine returns the cosine of a given angle (in degrees). ! * EXTERNAL SINGLE FUNCTION mth$cosd & ( &# SINGLE BY REF & ) ! w MTH$DCOSD ! . ! Cosine of Angle Expressed in Degrees ! 2 ! The Cosine of Angle Expressed in DegreesC ! routine returns the cosine of a given angle (in degrees). ! + EXTERNAL DOUBLE FUNCTION mth$dcosd & ( &# DOUBLE BY REF & ) ! MTH$GCOSD ! . ! Cosine of Angle Expressed in Degrees ! 2 ! The Cosine of Angle Expressed in DegreesC ! routinxe returns the cosine of a given angle (in degrees). ! + EXTERNAL GFLOAT FUNCTION mth$gcosd & ( &# GFLOAT BY REF & ) ! MTH$COSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine3 ! routine returns the hyperbolic cosine of  ! the input value. ! * EXTERNAL SINGLE FUNCTION mth$cosh & ( &# SINGLE BY REF & y ) ! MTH$DCOSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine3 ! routine returns the hyperbolic cosine of  ! the input value. ! + EXTERNAL DOUBLE FUNCTION mth$dcosh & ( &# DOUBLE BY REF & ) ! MTH$GCOSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine3 ! routine returns the hyperbolic cosine of  ! thze input value. ! + EXTERNAL GFLOAT FUNCTION mth$gcosh & ( &# GFLOAT BY REF & ) ! MTH$CSIN ! 3 ! Sine of Complex Number (F-floating Value) ! 1 ! The Sine of Complex Number (F-floating  ! Value)C ! routine returns the sine of a complex number (r,i) as an  ! F-floating value. ! < EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$csin & { ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CSQRT ! 0 ! Complex Square Root (F-floating Value) ! < ! The Complex Square Root (F-floating Value) routineE ! returns the complex square root of a complex number (r,i). ! = EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$csqrt & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CVT_D_G | ! , ! Convert One Double-Precision Value ! 9 ! The Convert One Double-Precision Value routines3 ! convert one double-precision value to theK ! destination data type and return the result as a function value. C ! MTH$CVT_D_G converts a D_floating value to G_floating andI ! MTH$CVT_G_D converts a G_floating value to a D_floating value. ! - EXTERNAL GFLOAT FUNCTION mth$cvt_d_g & ( &# D }OUBLE BY REF & ) ! MTH$CVT_G_D ! , ! Convert One Double-Precision Value ! 9 ! The Convert One Double-Precision Value routines3 ! convert one double-precision value to theK ! destination data type and return the result as a function value. C ! MTH$CVT_D_G converts a D_floating value to G_floating andI ! MTH$CVT_G_D converts a G_floating value to a D_floating value. ! - EXTERNAL DOUBLE FUNC~TION mth$cvt_g_d & ( &# GFLOAT BY REF & ) ! MTH$CVT_DA_GA ! 5 ! Convert an Array of Double-Precision Values ! ! ! The Convert an Array of! ! Double-Precision Values0 ! routines convert a contiguous array ofU ! double-precision values to the destination data type and return the resultsQ ! as an array. MTH$CVT_DA_GA converts D_floating values to G_floating andB !  MTH$CVT_GA_DA converts G_floating values to D_floating. ! # EXTERNAL SUB mth$cvt_da_ga & ( &) DOUBLE DIM() BY REF, &) GFLOAT DIM() BY REF, &) OPTIONAL LONG BY REF & ) ! MTH$CVT_GA_DA ! 5 ! Convert an Array of Double-Precision Values ! ! ! The Convert an Array of! ! Double-Precision Values0 ! routines convert a contiguous array of U ! double-precision values to the destination data type and return the resultsQ ! as an array. MTH$CVT_DA_GA converts D_floating values to G_floating andB ! MTH$CVT_GA_DA converts G_floating values to D_floating. ! # EXTERNAL SUB mth$cvt_ga_da & ( &) GFLOAT DIM() BY REF, &) DOUBLE DIM() BY REF, &) OPTIONAL LONG BY REF & ) ! MTH$CDCOS ! $ ! Cosine of a Complex Number ! ( ! The Cosine of a Complex Number9 ! routine returns the cosine of a complex number. !  EXTERNAL SUB mth$cdcos & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGCOS ! $ ! Cosine of a Complex Number ! ( ! The Cosine of a Complex Number9 ! routine returns the cosine of a complex number. !  EXTERNAL SUB mth$cgcos & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDEXP !  ! Complex Exponential ! ! ! The Complex Exponential6 ! routine returns the complex exponential of a ! complex number. !  EXTERNAL SUB mth$cdexp & ( &6  BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGEXP !  ! Complex Exponential ! ! ! The Complex Exponential6 ! routine returns the complex exponential of a ! complex number. !  EXTERNAL SUB mth$cgexp & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDLOG ! # ! Complex Natural Logarithm ! ' ! The Complex Natural LogarithmM ! routine returns the complex natural logarithm of a complex number. !  EXTERNAL SUB mth$cdlog & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGLOG ! # ! Complex Natural Logarithm ! ' ! The Complex Natural LogarithmM ! routine returns the complex natural logarithm of a complex number. !  EXTERNAL SUB mth$cglog & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDSIN ! ! Sine of Complex Number ! $ ! The Sine of Complex Number= ! routine returns the sine of a complex number (r,i). !  EXTERNAL SUB mth$cdsin & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGSIN ! ! Sine of Complex Number ! $ ! The Sine of Complex Number= ! routine returns the sine of a complex number (r,i).1 !  EXTERNAL SUB mth$cgsin & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDSQRT !  ! Complex Square Root ! ) ! The Complex Square Root routineE ! returns the complex square root of a complex number (r,i). ! EXTERNAL SUB mth$cdsqrt & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGSQRT !  ! Complex Square Root ! ) ! The Complex Square Root routineE ! returns the complex square root of a complex number (r,i). 1 ! EXTERNAL SUB mth$cgsqrt & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$EXP !  ! Exponential !  ! The Exponential> ! routine returns the exponential of the input value. ! ) EXTERNAL SINGLE FUNCTION mth$exp & ( &# SINGLE BY REF & ) ! MTH$DEXP !  ! Exponential !  ! The Exponential> ! routine returns the exponential of the input value. 1 ! * EXTERNAL DOUBLE FUNCTION mth$dexp & ( &# DOUBLE BY REF &  ) ! MTH$GEXP !  ! Exponential !  ! The Exponential> ! routine returns the exponential of the input value. ! * EXTERNAL GFLOAT FUNCTION mth$gexp & ( &# GFLOAT BY REF & ) ! MTH$HACOS ! E ! Arc Cosine of Angle Expressed in Radians (H-floating Value) ! L ! Given the cosine of an angle, the Arc Cosine of Angle Expressed inO ! Radians (H-floating Value) routine returns that angle (in radians) in& ! H-floating-point precision. !  EXTERNAL SUB mth$hacos & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HACOSD ! E ! Arc Cosine of Angle Expressed in Degrees (H-Floating Value) ! M ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in $ ! Degrees (H-Floating Value) ! routine returns that4 ! angle (in degrees) as an H-floating value. ! EXTERNAL SUB mth$hacosd & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HASIN ! 0 ! Arc Sine in Radians (H-floating Value) ! P ! 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. !  EXTERNAL SUB mth$hasin & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HASIND ! 0 ! Arc Sine in Degrees (H-Floating Value) ! P ! 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. !  EXTERNAL SUB mth$hasind & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATAN ! 3 ! Arc Tangent in Radians (H-floating Value) ! V ! Given the tangent of an angle, the Arc Tangent in Radians (H-floating Value)1 ! routine returns that angle (in radians)! ! as an H-floating value. !  EXTERNAL SUB mth$hatan & ( &.  BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATAN2 ! F ! Arc Tangent in Radians (H-floating Value) with Two Arguments ! 5 ! Given cosine and cosine, the Arc Tangent inK ! Radians (H-floating Value) with Two Arguments routine returns theM ! angle (in radians) as an H-floating value whose tangent is given by, ! the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SUB mth$hatan2 & ( &. BASIC$HFLOAT_AXP BY REF, &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATAND ! 3 ! Arc Tangent in Degrees (H-floating Value) ! V ! Given the tangent of an angle, the Arc Tangent in Degrees (H-floating Value)1 ! routine returns that angle (in degrees)' ! as an H-floating point value. ! EXTERNAL SUB mth$hatand & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATANH ! 3 ! Hyperbolic Arc Tangent (H-floating Value) ! G ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc $ ! Tangent (H-floating Value) ! routine returnsL ! the hyperbolic arc tangent (as an H-floating value) of that angle. ! EXTERNAL SUB mth$hatanh & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HCOS ! A ! Cosine of Angle Expressed in Radians (H-floating Value) ! 3 ! The Cosine of Angle Expressed in Radians  ! (H-floating Value)I ! routine returns the cosine of a given angle (in radians) as an  ! H-floating value. !   EXTERNAL SUB mth$hcos & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HCOSD ! A ! Cosine of Angle Expressed in Degrees (H-floating Value) ! 3 ! The Cosine of Angle Expressed in Degrees  ! (H-floating Value)I ! routine returns the cosine of a given angle (in degrees) as an  ! H-floating value. !  EXTERNAL SUB mth$hcosd & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HCOSH ! . ! Hyperbolic Cosine (H-floating Value) !  ! The Hyperbolic Cosine3 ! routine returns the hyperbolic cosine of 1 ! the input value as an H-floating value. !  EXTERNAL SUB mth$hcosh & ( &. BASIC$HFLOAT_AXP BY REF, &-  BASIC$HFLOAT_AXP BY REF & ) ! MTH$HEXP ! ( ! Exponential (H-floating Value) !  ! The ExponentialN ! routine returns the exponential of the input value as an H-floating  ! value. !  EXTERNAL SUB mth$hexp & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HLOG10 ! - ! Common Logarithm (H-floating Value) ! 1 ! The Common Logarithm (H-floating Value); ! routine returns the common (base 10) logarithm of4 ! the input argument as an H-floating value. ! EXTERNAL SUB mth$hlog10 & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HLOG ! . ! Natural Logarithm (H-floating Value) ! 2 ! The Natural Logarithm (H-floating Value); ! routine returns the natural (base e) logarithm of4 ! the input argument as an H-floating value. !  EXTERNAL SUB mth$hlog & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HLOG2 ! - ! Base 2 Logarithm (H-floating Value) ! 1 ! The Base 2 Logarithm (H-floating Value)A ! routine returns the base 2 logarithm of the input valueC ! specified by floating-point-input-value as an H-floating  ! value. !  EXTERNAL SUB mth$hlog2 & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HSIN ! ? ! Sine of Angle Expressed in Radians (H-floating Value) ! = ! The Sine of Angle Expressed in Radians (H-floating  ! Value)G ! routine returns the sine of a given angle (in radians) as an  ! H-floating value. !  EXTERNAL SUB mth$hsin & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HSIND ! ? ! Sine of Angle Expressed in Degrees (H-floating Value) ! = ! The Sine of Angle Expressed in Degrees (H-floating  ! Value)G ! routine returns the sine of a given angle (in degrees) as an  ! H-floating value. !  EXTERNAL SUB mth$hsind & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HSINH ! , ! Hyperbolic Sine (H-floating Value) ! 0 ! The Hyperbolic Sine (H-floating Value): ! routine returns the hyperbolic sine of the input> ! value specified by floating-point-input-value as an  ! H-floating value. !  EXTERNAL SUB mth$hsinh & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HSQRT ! ( ! Square Root (H-floating Value) ! , ! The Square Root (H-floating Value)< ! routine returns the square root of the input value< ! floating-point-input-value as an H-floating value. !  EXTERNAL SUB mth$hsqrt &  ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HTAN ! B ! Tangent of Angle Expressed in Radians (H-floating Value) ! 4 ! The Tangent of Angle Expressed in Radians  ! (H-floating Value)J ! routine returns the tangent of a given angle (in radians) as an  ! H-floating value. !  EXTERNAL SUB mth$htan & ( &.  BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HTAND ! B ! Tangent of Angle Expressed in Degrees (H-floating Value) ! 4 ! The Tangent of Angle Expressed in Degrees  ! (H-floating Value)J ! routine returns the tangent of a given angle (in degrees) as an  ! H-floating value. !  EXTERNAL SUB mth$htand & ( &. BASIC$HFLOAT_AXP  BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HTANH ! ; ! Compute the Hyperbolic Tangent (H-floating Value) ! 9 ! The Compute the Hyperbolic Tangent (H-floating  ! Value)0 ! routine returns the hyperbolic tangent4 ! of the input value as an H-floating value. !  EXTERNAL SUB mth$htanh & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$HATAND2 ! F ! Arc Tangent in Degrees (H-floating Value) with Two Arguments ! 7 ! Given cosine and cosine, MTH$xHTAND2 returns . ! the angle (in degrees) whose tangent9 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. ! ! EXTERNAL SUB mth$hatand2 & ( &. BASIC$HFLOAT_AXP BY REF, &. BASIC$HFLOAT_AXP  BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$AIMAG ! , ! Imaginary Part of a Complex Number ! 0 ! The Imaginary Part of a Complex NumberA ! routine returns the imaginary part of a complex number. ! + EXTERNAL SINGLE FUNCTION mth$aimag & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DIMAG ! , ! Imaginary Part of a Complex Number ! 0 ! The Imaginary Part of a Complex NumberA ! routine returns the imaginary part of a complex number. ! + EXTERNAL DOUBLE FUNCTION mth$dimag & ( &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GIMAG ! , ! Imaginary Part of a Complex Number ! 0 ! The Imaginary Part of a Complex NumberA ! routine returns the imaginary part of a complex number.  ! + EXTERNAL GFLOAT FUNCTION mth$gimag & ( &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$ALOG !  ! Natural Logarithm !  ! The Natural Logarithm; ! routine returns the natural (base e) logarithm of ! the input argument. ! * EXTERNAL SINGLE FUNCTION mth$alog & ( &# SINGLE BY REF & ) ! MTH$DLOG  !  ! Natural Logarithm !  ! The Natural Logarithm; ! routine returns the natural (base e) logarithm of ! the input argument. ! * EXTERNAL DOUBLE FUNCTION mth$dlog & ( &# DOUBLE BY REF & ) ! MTH$GLOG !  ! Natural Logarithm !  ! The Natural Logarithm; ! routine returns the natural (base e) logarithm of ! the input argument. ! * EXTERNAL GFLOAT FUNCTION mth$glog & ( &# GFLOAT BY REF & ) ! MTH$ALOG10 !  ! Common Logarithm !  ! The Common Logarithm; ! routine returns the common (base 10) logarithm of ! the input argument. ! , EXTERNAL SINGLE FUNCTION mth$alog10 & ( &# SINGLE BY REF & ) ! MTH$DLOG10 !   ! Common Logarithm !  ! The Common Logarithm; ! routine returns the common (base 10) logarithm of ! the input argument. ! , EXTERNAL DOUBLE FUNCTION mth$dlog10 & ( &# DOUBLE BY REF & ) ! MTH$GLOG10 !  ! Common Logarithm !  ! The Common Logarithm; ! routine returns the common (base 10) logarithm of ! the input argument.  ! , EXTERNAL GFLOAT FUNCTION mth$glog10 & ( &# GFLOAT BY REF & ) ! MTH$ALOG2 !  ! Base 2 Logarithm !  ! The Base 2 LogarithmA ! routine returns the base 2 logarithm of the input value2 ! specified by floating-point-input-value. ! + EXTERNAL SINGLE FUNCTION mth$alog2 & ( &# SINGLE BY REF & ) ! MTH$DLOG2 !  ! Base 2 Logarithm !  ! The Base 2 LogarithmA ! routine returns the base 2 logarithm of the input value2 ! specified by floating-point-input-value. ! + EXTERNAL DOUBLE FUNCTION mth$dlog2 & ( &# DOUBLE BY REF & ) ! MTH$GLOG2 !  ! Base 2 Logarithm !  ! The Base 2 LogarithmA ! routine returns the base 2 logarithm of the input value2 ! specified by floating-point-input-value. ! + EXTERNAL GFLOAT FUNCTION mth$glog2 & ( &# GFLOAT BY REF & ) ! MTH$RANDOM ! 8 ! Random-Number Generator, Uniformly Distributed ! < ! The Random-Number Generator, Uniformly Distributed8 ! routine is a general random-number generator. ! , EXTERNAL SINGLE FUNCTION mth$random & ( &!  LONG BY REF & ) ! MTH$REAL ! ' ! Real Part of a Complex Number ! + ! The Real Part of a Complex Number< ! routine returns the real part of a complex number. ! * EXTERNAL SINGLE FUNCTION mth$real & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DREAL ! ' ! Real Part of a Complex Number ! + ! The Real Part of a Complex Number< ! routine returns the real part of a complex number. ! + EXTERNAL DOUBLE FUNCTION mth$dreal & ( &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GREAL ! ' ! Real Part of a Complex Number ! + ! The Real Part of a Complex Number< ! routine returns the real part of a complex number. ! + EXTERNAL GFLOAT FUNCTION mth$greal & ( &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$SIN ! , ! Sine of Angle Expressed in Radians ! 0 ! The Sine of Angle Expressed in RadiansA ! routine returns the sine of a given angle (in radians). ! ) EXTERNAL SINGLE FUNCTION mth$sin & ( &# SINGLE BY REF & ) ! MTH$DSIN ! , ! Sine of Angle Expressed in Radians ! 0 ! The Sine of Angle Expressed in RadiansA ! routine returns the sine of a given angle (in radians). ! * EXTERNAL DOUBLE FUNCTION mth$dsin & ( &# DOUBLE BY REF & ) ! MTH$GSIN ! , ! Sine of Angle Expressed in Radians ! 0 ! The Sine of Angle Expressed in RadiansA ! routine returns the sine of a given angle (in radians). ! * EXTERNAL GFLOAT FUNCTION mth$gsin & ( &# GFLOAT BY REF & ) ! MTH$SIND ! , ! Sine of Angle Expressed in Degrees ! 0 ! The Sine of Angle Expressed in DegreesA ! routine returns the sine of a given angle (in degrees). ! * EXTERNAL SINGLE FUNCTION mth$sind & ( &# SINGLE BY REF & ) ! MTH$DSIND ! , ! Sine of Angle Expressed in Degrees  ! 0 ! The Sine of Angle Expressed in DegreesA ! routine returns the sine of a given angle (in degrees). ! + EXTERNAL DOUBLE FUNCTION mth$dsind & ( &# DOUBLE BY REF & ) ! MTH$GSIND ! , ! Sine of Angle Expressed in Degrees ! 0 ! The Sine of Angle Expressed in DegreesA ! routine returns the sine of a given angle (in degrees). ! + EXTERNAL GFLOAT FUNCTION mth$gsind & ( &# GFLOAT BY REF & ) ! MTH$SINH !  ! Hyperbolic Sine !  ! The Hyperbolic Sine: ! routine returns the hyperbolic sine of the input9 ! value specified by floating-point-input-value. ! * EXTERNAL SINGLE FUNCTION mth$sinh & ( &# SINGLE BY REF & ) ! MTH$DSINH !  ! Hyperbolic Sine !  ! The Hyperbolic Sine: ! routine returns the hyperbolic sine of the input9 ! value specified by floating-point-input-value. ! + EXTERNAL DOUBLE FUNCTION mth$dsinh & ( &# DOUBLE BY REF & ) ! MTH$GSINH !  ! Hyperbolic Sine !  ! The Hyperbolic Sine: ! routine returns the hyperbolic sine of the input9 ! value specified by floating-point-input-value. ! + EXTERNAL GFLOAT FUNCTION mth$gsinh & ( &# GFLOAT BY REF & ) ! MTH$SINCOS ! 7 ! Sine and Cosine of Angle Expressed in Radians ! ; ! The Sine and Cosine of Angle Expressed in Radians# ! routine returns the sine 7 ! and the cosine of a given angle (in radians). ! EXTERNAL SUB mth$sincos & ( &$  SINGLE BY REF, &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DSINCOS ! 7 ! Sine and Cosine of Angle Expressed in Radians ! ; ! The Sine and Cosine of Angle Expressed in Radians# ! routine returns the sine 7 ! and the cosine of a given angle (in radians).1 ! ! EXTERNAL SUB mth$dsincos & ( &$  DOUBLE BY REF, &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GSINCOS ! 7 ! Sine and Cosine of Angle Expressed in Radians ! ; ! The Sine and Cosine of Angle Expressed in Radians# ! routine returns the sine 7 ! and the cosine of a given angle (in radians). ! ! EXTERNAL SUB mth$gsincos & ( &$ GFLOAT BY REF, &$  GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$HSINCOS ! 7 ! Sine and Cosine of Angle Expressed in Radians ! ; ! The Sine and Cosine of Angle Expressed in Radians# ! routine returns the sine 7 ! and the cosine of a given angle (in radians). ! ! EXTERNAL SUB mth$hsincos & ( &. BASIC$HFLOAT_AXP BY REF, &. BASIC$HFLOAT_AXP BY REF, &-  BASIC$HFLOAT_AXP BY REF & ) ! MTH$SINCOSD ! 7 ! Sine and Cosine of Angle Expressed in Degrees ! ; ! The Sine and Cosine of Angle Expressed in DegreesM ! routine returns the sine and cosine of a given angle (in degrees). ! ! EXTERNAL SUB mth$sincosd & ( &$ SINGLE BY REF, &$ SINGLE BY REF, &# SINGLE BY REF &  ) ! MTH$DSINCOSD ! 7 ! Sine and Cosine of Angle Expressed in Degrees ! ; ! The Sine and Cosine of Angle Expressed in DegreesM ! routine returns the sine and cosine of a given angle (in degrees). ! " EXTERNAL SUB mth$dsincosd & ( &$ DOUBLE BY REF, &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GSINCOSD ! 7 ! Sine and Cosine of Angle Expressed in Degrees ! ; ! The Sine and Cosine of Angle Expressed in DegreesM ! routine returns the sine and cosine of a given angle (in degrees). 1 ! " EXTERNAL SUB mth$gsincosd & ( &$ GFLOAT BY REF, &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$HSINCOSD ! 7 ! Sine and Cosine of Angle Expressed in Degrees ! ; ! The Sine and Cosine of Angle Expressed in DegreesM ! routine returns the sine and cosine of a given angle (in degrees). 1 ! " EXTERNAL SUB mth$hsincosd & ( &. BASIC$HFLOAT_AXP BY REF, &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$SQRT !  ! Square Root  !  ! The Square Root< ! routine returns the square root of the input value% ! floating-point-input-value. ! * EXTERNAL SINGLE FUNCTION mth$sqrt & ( &# SINGLE BY REF & ) ! MTH$DSQRT !  ! Square Root !  ! The Square Root< ! routine returns the square root of the input value% ! floating-point-input-value. ! + EXTERNAL DOUBLE FUNCTION mth$dsqrt & ( &# DOUBLE BY REF & ) ! MTH$GSQRT !  ! Square Root !  ! The Square Root< ! routine returns the square root of the input value% ! floating-point-input-value. ! + EXTERNAL GFLOAT FUNCTION mth$gsqrt & ( &# GFLOAT BY REF & ) ! MTH$TAN ! / ! Tangent of Angle Expressed in Radians ! 3 ! The Tangent of Angle Expressed in RadiansD ! routine returns the tangent of a given angle (in radians). ! ) EXTERNAL SINGLE FUNCTION mth$tan & ( &# SINGLE BY REF & ) ! MTH$DTAN ! / ! Tangent of Angle Expressed in Radians ! 3 ! The Tangent of Angle Expressed in RadiansD ! routine returns the tangent of a given angle (in radians). ! * EXTERNAL DOUBLE FUNCTION mth$dtan & ( &# DOUBLE BY REF & ) ! MTH$GTAN ! / ! Tangent of Angle Expressed in Radians ! 3 ! The Tangent of Angle Expressed in RadiansD ! routine returns the tangent of a given angle (in radians). ! * EXTERNAL GFLOAT FUNCTION mth$gtan & ( &# GFLOAT BY REF & ) ! MTH$TAND ! /  ! Tangent of Angle Expressed in Degrees ! 3 ! The Tangent of Angle Expressed in DegreesD ! routine returns the tangent of a given angle (in degrees). ! * EXTERNAL SINGLE FUNCTION mth$tand & ( &# SINGLE BY REF & ) ! MTH$DTAND ! / ! Tangent of Angle Expressed in Degrees ! 3 ! The Tangent of Angle Expressed in DegreesD ! routine returns the tangent of a given angle (in degrees). ! + EXTERNAL DOUBLE FUNCTION mth$dtand & ( &# DOUBLE BY REF & ) ! MTH$GTAND ! / ! Tangent of Angle Expressed in Degrees ! 3 ! The Tangent of Angle Expressed in DegreesD ! routine returns the tangent of a given angle (in degrees). ! + EXTERNAL GFLOAT FUNCTION mth$gtand & ( &# GFLOAT BY REF &  ) ! MTH$TANH ! ( ! Compute the Hyperbolic Tangent ! , ! The Compute the Hyperbolic Tangent0 ! routine returns the hyperbolic tangent ! of the input value. ! * EXTERNAL SINGLE FUNCTION mth$tanh & ( &# SINGLE BY REF & ) ! MTH$DTANH ! ( ! Compute the Hyperbolic Tangent ! , ! The Compute the Hyperbolic Tangent0 ! routine returns the hyperbolic tangent ! of the input value. ! + EXTERNAL DOUBLE FUNCTION mth$dtanh & ( &# DOUBLE BY REF & ) ! MTH$GTANH ! ( ! Compute the Hyperbolic Tangent ! , ! The Compute the Hyperbolic Tangent0 ! routine returns the hyperbolic tangent ! of the input value. ! + EXTERNAL GFLOAT FUNCTION mth$gtanh & ( &#  GFLOAT BY REF & ) ! MTH$UMAX ! " ! Compute Unsigned Maximum ! & ! The Compute Unsigned MaximumO ! routine computes the unsigned longword maximum of n unsigned longword< ! arguments, where n is greater than or equal to 1. ! ( EXTERNAL LONG FUNCTION mth$umax & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$UMIN ! " ! Compute Unsigned Minimum ! & ! The Compute Unsigned MinimumP ! routine computes the unsigned longword minimum of n unsigned longword 0 ! arguments, where n is greater than or  ! equal to 1. ! ( EXTE RNAL LONG FUNCTION mth$umin & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$ABS ! + ! F_floating Absolute Value Routine ! ) EXTERNAL SINGLE FUNCTION mth$abs & ( &# SINGLE BY REF & ) ! MTH$DABS ! + ! D_floating Absolute Value Routine ! * EXTERNAL DOUBLE FUNCTION mth$dabs & ( &# DOUBLE BY REF & ) ! MTH$GABS ! + ! G_floating Absolute Value Routine ! * EXTERNAL GFLOAT FUNCTION mth$gabs & ( &# GFLOAT BY REF &  ) ! MTH$HABS ! + ! H_floating Absolute Value Routine !  EXTERNAL SUB mth$habs & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$IIABS ! % ! Word Absolute Value Routine ! ) EXTERNAL WORD FUNCTION mth$iiabs & ( &! WORD BY REF & ) ! MTH$JIABS ! ) !  Longword Absolute Value Routine ! ) EXTERNAL LONG FUNCTION mth$jiabs & ( &! LONG BY REF & ) ! MTH$IIAND ! 4 ! Bitwise AND of Two Word Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$iiand & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JIAND ! 8 ! Bitwise AND of Two Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jiand & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$DBLE ! : ! Convert F_floating to D_floating (Exact) Routine ! * EXTERNAL DOUBLE FUNCTION mth$dble & ( &# SINGLE BY REF & ) ! MTH$GDBLE ! : ! Convert F_floating to G_floating (Exact) Routine ! +  EXTERNAL GFLOAT FUNCTION mth$gdble & ( &# SINGLE BY REF & ) ! MTH$DIM ! B ! Positive Difference of Two F_floating Parameters Routine ! ) EXTERNAL SINGLE FUNCTION mth$dim & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DDIM ! B ! Positive Difference of Two D_floating Parameters Routine ! * EXTERNAL DOUBLE FUNCTION mth$ddim & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GDIM ! B ! Positive Difference of Two D_floating Parameters Routine ! * EXTERNAL GFLOAT FUNCTION mth$gdim & ( &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$HDIM ! B ! Positive Difference of Two D_floating Parameters Routine !  EXTERNAL SUB mth$hdim & ( &. BASIC$HFLOAT_AXP BY REF, &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$IIDIM ! < ! Positive Difference of Two Word Parameters Routine. ! ) EXTERNAL WORD FUNCTION mth$iidim & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JIDIM ! @ ! Positive Difference of Two Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jidim & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$IIEOR ! = ! Bitwise Exclusive OR of Two Word Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$iieor & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JIEOR ! A ! Bitwise Exclusive OR of Two Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jieor & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$IIFIX ! 8 ! Convert F_floating to Word (Truncated) Routine ! ) EXTERNAL WORD FUNCTION mth$iifix & ( &#  SINGLE BY REF & ) ! MTH$JIFIX ! < ! Convert F_floating to Longword (Truncated) Routine ! ) EXTERNAL LONG FUNCTION mth$jifix & ( &# SINGLE BY REF & ) ! MTH$FLOATI ! 4 ! Convert Word to F_floating (Exact) Routine ! , EXTERNAL SINGLE FUNCTION mth$floati & ( &! WORD BY REF & ) ! MTH$DFLOTI ! 4 ! Convert Word to D_floating (Exact) Routine ! , EXTERNAL DOUBLE FUNCTION mth$dfloti & ( &! WORD BY REF & ) ! MTH$GFLOTI ! 4 ! Convert Word to G_floating (Exact) Routine ! , EXTERNAL GFLOAT FUNCTION mth$gfloti & ( &! WORD BY REF & ) ! MTH$FLOATJ ! 8 ! Convert Longword to F_floating (Exact) Routine ! , EXTERNAL SINGLE FUNCTION mth$floatj & ( &! LONG BY REF & ) ! MTH$DFLOTJ ! 8 ! Convert Longword to D_floating (Exact) Routine ! , EXTERNAL DOUBLE FUNCTION mth$dflotj & ( &! LONG BY REF & ) ! MTH$GFLOTJ ! 8 ! Convert Longword to G_floating (Exact) Routine ! , EXTERNAL GFLOAT FUNCTION mth$gflotj & ( &! LONG BY REF & ) ! MTH$FLOOR ! C ! Convert F_floating to Greatest F_floating Integer Routine ! + EXTERNAL SINGLE FUNCTION mth$floor & ( &# SINGLE BY REF & ) ! MTH$DFLOOR ! C ! Convert D_floating to Greatest D_floating Integer Routine ! , EXTERNAL DOUBLE FUNCTION mth$dfloor & ( &# DOUBLE BY REF & ) ! MTH$GFLOOR ! C ! Convert G_floating to Greatest G_floating Integer Routine ! , EXTERNAL GFLOAT FUNCTION mth$gfloor & ( &# GFLOAT BY REF & ) ! MTH$HFLOOR ! C ! Convert H_floating to Greatest H_floating Integer Routine ! EXTERNAL SUB mth$hfloor & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$AINT ! < ! Convert F_floating to Truncated F_floating Routine ! * EXTERNAL SINGLE FUNCTION mth$aint & ( &# SINGLE BY REF & )# ! MTH$DINT ! < ! Convert D_floating to Truncated D_floating Routine ! * EXTERNAL DOUBLE FUNCTION mth$dint & ( &# DOUBLE BY REF & ) ! MTH$IIDINT ! 8 ! Convert D_floating to Word (Truncated) Routine ! * EXTERNAL WORD FUNCTION mth$iidint & ( &# DOUBLE BY REF & ) ! MTH$JIDINT ! < ! Convert D_floating to Longword (Truncated) Routine ! * EXTERNAL LONG FUNCTION mth$jidint & ( &# DOUBLE BY REF & ) ! MTH$GINT ! > ! Convert G_floating to G_floating (Truncated) Routine ! * EXTERNAL GFLOAT FUNCTION mth$gint & ( &# GFLOAT BY REF & ) ! MTH$IIGINT ! 8 ! Convert G_floating to Word (Truncated) Routine ! * EXTERNAL WORD FUNCTION mth$iigint & ( &# GFLOAT BY REF & ) ! MTH$JIGINT ! < ! Convert G_floating to Longword (Truncated) Routine ! * EXTERNAL LONG FUNCTION mth$jigint & ( &# GFLOAT BY REF & ) ! MTH$HINT ! > ! Convert H_floating to H_floating (Truncated) Routine !  EXTERNAL SUB mth$hint & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$IIHINT ! 6 ! Convert H_floating to Truncated Word Routine ! * EXTERNAL WORD FUNCTION mth$iihint & ( &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$JIHINT ! : ! Convert H_floating to Truncated Longword Routine ! * EXTERNAL LONG FUNCTION mth$jihint & ( &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$IINT ! 8 ! Convert F_floating to Word (Truncated) Routine ! ( EXTERNAL WORD FUNCTION mth$iint & ( &# SINGLE BY REF & ) ! MTH$JINT ! < ! Convert F_floating to Longword (Truncated) Routine ! ( EXTERNAL LONG FUNCTION mth$jint & ( &# SINGLE BY REF & ) ! MTH$IIOR ! = ! Bitwise Inclusive OR of Two Word Parameters Routine ! ( EXTERNAL WORD FUNCTION mth$iior & ( &"  WORD BY REF, &! WORD BY REF & ) ! MTH$JIOR ! A ! Bitwise Inclusive OR of Two Longword Parameters Routine ! ( EXTERNAL LONG FUNCTION mth$jior & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$AIMAX0 ! 8 ! F_floating Maximum of N WordParameters Routine ! , EXTERNAL SINGLE FUNCTION mth$aimax0 &  ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AJMAX0 ! = ! F_floating Maximum of N Longword Parameters Routine ! , EXTERNAL SINGLE FUNCTION mth$ajmax0 &  ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMAX0 ! 3 ! Word Maximum of N Word Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$imax0 & ( &  WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMAX0 ! ; ! Longword Maximum of N Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jmax0 & ( &  LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMAX1 ! ? ! F_floating Maximum of N F_floating Parameters Routine ! + EXTERNAL SINGLE FUNCTION mth$amax1 & ( &  SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$DMAX1 ! ? ! D_floating Maximum of N D_floating Parameters Routine ! + EXTERNAL DOUBLE FUNCTION mth$dmax1 & ( &  DOUBLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$GMAX1 ! ? ! G_floating Maximum of N G_floating Parameters Routine ! + EXTERNAL GFLOAT FUNCTION mth$gmax1 &  ( & GFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$HMAX1 ! ? ! H_floating Maximum of N H_floating Parameters Routine !  EXTERNAL SUB mth$hmax1 & ( &.  BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &5 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMAX1 ! 9 ! Word Maximum of N F_floating Parameters Routine ! ) EXTERN AL WORD FUNCTION mth$imax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMAX1 ! = ! Longword Maximum of N F_floating Parameters Routine ! ) EXTERN AL LONG FUNCTION mth$jmax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AIMIN0 ! 9 ! F_floating Minimum of N Word Parameters Routine ! , EXTERNAL S INGLE FUNCTION mth$aimin0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AJMIN0 ! = ! F_floating Minimum of N Longword Parameters Routine ! , EXTERNAL S INGLE FUNCTION mth$ajmin0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMIN0 ! 3 ! Word Minimum of N Word Parameters Routine ! ) EXTERNAL WORD FUNCTI ON mth$imin0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMIN0 ! ; ! Longword Minimum of N Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jmin0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMIN1 ! ? ! F_floating Minimum of N F_floating Parameters Routine ! + EXTERNAL SINGLE FUNCTION  mth$amin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$DMIN1 ! ? ! D_floating Minimum of N D_floating Parameters Routine ! + EXTERNAL DOUBLE FUNC TION mth$dmin1 & ( & DOUBLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$GMIN1 ! ? ! G_floating Minimum of N G_floating Parameters Routine ! + EXTERNAL GFLOAT FUNCTION mth$gmin1 & ( & GFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$HMIN1 ! ? ! H_floating Minimum of N H_floating Parameters Routine !  EXTERNAL SU B mth$hmin1 & ( &. BASIC$HFLOAT_AXP BY REF, & BASIC$HFLOAT_AXP BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &5 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMIN1 ! 9 ! Word Minimum of N F_floating Paramet ers Routine ! ) EXTERNAL WORD FUNCTION mth$imin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMIN1 ! = ! Longword Minimum of N F_floating Paramet ers Routine ! ) EXTERNAL LONG FUNCTION mth$jmin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMOD ! 8 ! Remainder of Two F_floating Parameters Routine ! * EXTERNAL SINGLE FUNCTION mth$amod & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DMOD ! 8 ! Remainder of Two D_floating Parameters Routine ! * EXTERNAL DOUBLE FUNCTION mth$dmod & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GMOD ! 8 ! Remainder of Two G_floating Parameters Routine ! * EXTERNAL GFLOAT FUNCTION mth$gmod & ( &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$HMOD ! 8 ! Remainder of Two H_floating Parameters Routine !  EXTERNAL SUB mth$hmod & ( &. BASIC$HFLOAT_AXP BY REF, &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$IMOD ! 2 ! Remainder of Two Word Parameters Routine ! ( EXTERNAL WORD FUNCTION mth$imod & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JMOD ! 6 ! Remainder of Two Longword Parameters Routine ! ( EXTERNAL LONG FUNCTION mth$jmod & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$ANINT ! B ! Convert F_floating to Nearest F_floating Integer Routine ! + EXTERNAL SINGLE FUNCTION mth$anint & ( &# SINGLE BY REF & ) ! MTH$DNINT ! B ! Convert D_floating to Nearest D_floating Integer Routine ! + EXTERNAL DOUBLE FUNCTION mth$dnint & ( &# DOUBLE BY REF & ) ! MTH$IIDNNT ! 4 ! Convert D_floating to Word Integer Routine ! * EXTERNAL WORD FUNCTION mth$iidnnt & ( &# DOUBLE BY REF & ) ! MTH$JIDNNT ! @ ! Convert D_floating to Nearest Longword Integer Routine ! * EXTERNAL LONG FUNCTION mth$jidnnt & ( &# DOUBLE BY REF & ) ! MTH$GNINT ! B ! Convert G_floating to Nearest G_floating Integer Routine  ! + EXTERNAL GFLOAT FUNCTION mth$gnint & ( &# GFLOAT BY REF & ) ! MTH$IIGNNT ! B ! Convert T_floating to Nearest G_floating Integer Routine ! * EXTERNAL WORD FUNCTION mth$iignnt & ( &# GFLOAT BY REF & ) ! MTH$JIGNNT ! @ ! Convert G_floating to Nearest Longword Integer Routine ! * EXTERNAL LONG FUNCTION mth$jignnt & ( &# GFLOAT BY REF & ) ! MTH$HNINT ! B ! Convert H_floating to Nearest H_floating Integer Routine !  EXTERNAL SUB mth$hnint & ( &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$IIHNNT ! < ! Convert H_floating to Nearest Word Integer Routine ! * EXTERNAL WORD FUNCTION mth$iihnnt & ( &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$JIHNNT ! @ ! Convert H_floating to Nearest Longword Integer Routine ! * EXTERNAL LONG FUNCTION mth$jihnnt & ( &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$ININT ! < ! Convert F_floating to Nearest Word Integer Routine ! ) EXTERNAL WORD FUNCTION mth$inint &  ( &# SINGLE BY REF & ) ! MTH$JNINT ! @ ! Convert F_floating to Nearest Longword Integer Routine ! ) EXTERNAL LONG FUNCTION mth$jnint & ( &# SINGLE BY REF & ) ! MTH$INOT ! 6 ! Bitwise Complement of Word Parameter Routine ! ( EXTERNAL WORD FUNCTION mth$inot & ( &! WORD BY REF &  ) ! MTH$JNOT ! : ! Bitwise Complement of Longword Parameter Routine ! ( EXTERNAL LONG FUNCTION mth$jnot & ( &! LONG BY REF & ) ! MTH$DPROD ! A ! D_floating Product of Two F_floating Parameters Routine ! + EXTERNAL DOUBLE FUNCTION mth$dprod & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$GPROD ! A ! G_floating Product of Two F_floating Parameters Routine ! + EXTERNAL GFLOAT FUNCTION mth$gprod & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$SGN ! " ! F_floating Sign Function ! ' EXTERNAL LONG FUNCTION mth$sgn & ( & ANY BY REF & ) ! MTH$IISHFT ! '  ! Bitwise Shift of Word Routine ! * EXTERNAL WORD FUNCTION mth$iishft & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JISHFT ! + ! Bitwise Shift of Longword Routine ! * EXTERNAL LONG FUNCTION mth$jishft & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$SIGN ! ? ! F_floating Transfer of Sign of Y to Sign of X Routine ! * EXTERNAL SINGLE FUNCTION mth$sign & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DSIGN ! ? ! D_floating Transfer of Sign of Y to Sign of X Routine ! + EXTERNAL DOUBLE FUNCTION mth$dsign & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GSIGN ! ? ! G_floating Transfer of Sign of X to Sign of X Routine ! + EXTERNAL GFLOAT FUNCTION mth$gsign & ( &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$HSIGN ! ? ! H_floating Transfer of Sign of Y to Sign of X Routine !  EXTERNAL SUB mth$hsign & ( &. BASIC$HFLOAT_AXP BY REF, &. BASIC$HFLOAT_AXP BY REF, &- BASIC$HFLOAT_AXP BY REF & ) ! MTH$IISIGN ! 9 ! Word Transfer of Sign of Y to Sign of X Routine ! * EXTERNAL WORD FUNCTION mth$iisign & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JISIGN ! = ! Longword Transfer of Sign of Y to Sign of X Routine ! * EXTERNAL LONG FUNCTION mth$jisign & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$SNGL ! < ! Convert D_floating to F_floating (Rounded) Routine ! * EXTERNAL SINGLE FUNCTION mth$sngl & ( &# DOUBLE BY REF & ) ! MTH$SNGLG ! < ! Convert G_floating to F_floating (Rounded) Routine ! + EXTERNAL SINGLE FUNCTION mth$snglg & ( &#  GFLOAT BY REF & )wwb ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.64 ! 7 ! DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSGX ! 2H1 27-MAY-1986 11:12:01 GAMACHE "Create new SMP thread from V5.0_BL2 modules"\ ! 2E1 3-APR-1986 20:55:46 HOLSTEIN "Create new Exec Reorg thread from V4.4 modules"U ! 2F1 18-MAR-1986 20:31:28 HOLSTEIN "Create new SMP thread from V4.4 modules"[ ! 2D1 17-DEC-1985 09:08:44 FIORELLI "Create new exec reorg thread from BL7 modules"T ! *2 3-SEP-1985 15:59:52 MAILMAN "extend transfer vector; add mth$_notimp"B ! 1A1 20-JUL-1985 14:44:33 SYSTEMBUILD "Initial SMP entry"M ! *1 18-JUN-1985 03:36:07 SYSTEMBUI LD "Initial entry of V4.0 source"7 ! DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG& ! FILE: MTHMSG.MSG EDIT: JCW2004 ! R ! **************************************************************************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MA Y BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R  ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! Q ! 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-19820 ! 2-003 - ADD MTH$_NOTIMP. SMM 03-SEP-1985: ! 2-004 - ADDED VECTOR MATH MESSAGES. JCW 24-FEB-88. ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! MTH$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $MTHDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.; ! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).< ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXT ERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! -6 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE- ! ; SET LH TO 22 (DECIMAL) MTH$ PREFIX. DECLARE LONG CONSTANT MTH$_FACILITY = 224 DECLARE LONG CONSTANT MTH$_WRONUMARG = 14752044 DECLARE LONG CONSTANT MTH$_INVARGMAT = 14752121 DECLARE LONG CONSTANT MTH$_UNDEXP = 14752204 DECLARE LONG CONSTANT MTH$_LOGZERNEG = 14752284 DECLARE LONG CONSTANT MTH$_SQUROONEG = 1475236 6 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE- ! ; SET LH TO 22 (DECIMAL) MTH$ PREFIX4 DECLARE LONG CONSTANT MTH$_SIGLOSMAT = 14752604 DECLARE LONG CONSTANT MTH$_FLOOVEMAT = 14752684 DECLARE LONG CONSTANT MTH$_FLOUNDMAT = 14752761 DECLARE LONG CONSTANT MTH$_NOTIMP = 1475284 ! MTH$NOT_IMPLEMENTED8 DECLARE LONG CONSTANT MTH$_VEC_INVARGMAT = 14752925 DECLARE LONG CONSTANT MTH$_VEC_UNDEXP = 14753008 DECLARE LONG CONSTANT MTH$_VEC_LOGZERNEG = 14753088 DECLARE LONG CONSTANT MTH$_VEC_SQUROONEG = 14753168 DECLARE LONG CONSTANT MTH$_VEC_FLOOVEMAT = 14753248 DECLARE LONG CONSTANT MTH$_VEC_FLOUNDMAT = 14753324 DECLARE LONG CONSTANT MTH$_SINCOSSIG = 1475260ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSAC HUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! 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 *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! *************************************************************************** ! NCS$COMPARE !  ! Compare Strings ! O ! Compares two strings using specified collating sequence as comparison ! basis. ! + EXTERNAL LONG FUNCTION ncs$compare & ( &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! NCS$CONVERT !  ! Convert String ! C ! Convert a string using the specified conversion function. ! + EXTERNAL LONG FUNCTION ncs$convert & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! WORD BY REF & ) ! NCS$END_CF ! ! ! End Conversion Function ! M ! Terminates the use of a conversion function by the calling program. ! * EXTERNAL LONG FUNCTION ncs$end_cf & ( &! LONG BY REF & ) ! NCS$END_CS ! ! End Collating Sequence ! L ! Terminates the use of a collating sequence by the calling program. ! * EXTERNAL LONG FUNCTION ncs$end_cs & ( &! LONG BY REF & ) ! NCS$GET_CF ! ! ! Get Conversion Function ! P ! Retrieves the definition of the named conversion function from the NCS ! library. ! * EXTERNAL LONG FUNCTION ncs$get_cf & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & ) ! NCS$GET_CS ! ! Get Collating Sequence ! O ! Retrieves the definition of the named collating sequence from the NCS ! library. ! * EXTERNAL LONG FUNCTION ncs$get_cs & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & ) ! NCS$RESTORE_CF ! % ! Restore Conversion Function ! L ! Permits the calling program to restore the definition of a "saved"> ! conversion function from a data base or an RMS file. ! . EXTERNAL LONG FUNCTION ncs$restore_cf & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! NCS$RESTORE_CS ! $ ! Restore Collating Sequence ! V ! Permits the calling program to restore the definition of a "saved" collating3 ! sequence from a data base or an RMS file. ! . EXTERNAL LONG FUNCTION ncs$restore_cs & ( &"  LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! NCS$SAVE_CF ! " ! Save Conversion Function ! T ! Provides the calling program with information that permits the applicationU ! to store the definition of a conversion function in a local data base or an/ ! RMS file rather than the NCS$LIBRARY. ! + EXTERNAL LONG FUNCTION ncs$save_cf & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! NCS$SAVE_CS ! ! ! Save Collating Sequence ! T ! Provides the calling program with information that permits the applicationT ! to store the definition of a collating sequence in a local data base or an/ ! RMS file rather than the NCS$LIBRARY. ! + EXTERNAL LONG FUNCTION ncs$save_cs &  ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )wwq^+ ! *** PREDECLARED TYPES# : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )S END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF F< %IF %DECLARED ( ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:22.63 ! % ! FILE: NCSMSG.MSG EDIT: PDG1001 ! R ! ************************************************************** ************** ! * *) ! * COPYRIGHT (C) 1982 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *!G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ !  ! FACILITY: VAX-11 NCS !  ! ABSTRACT: ! F ! THIS FILE CONTAINS THE DEFINITION FOR THE NCS FACILITY SPECIFIC9 ! ERROR MESSAGES. THE FACILITY CODE FOR NCS IS ???. ! % ! ENVIRONMENT: VAX/VMS USER MODE ! 5 ! AUTHOR: P. GI"LBERT, CREATION DATE: 11-OCT-1983 !  ! MODIFIED BY: !  ! E01-001 ORIGINAL ! S ! E01-002 CHB FIX FOR QAR #396 FROM V52-IFT DATABASE; 21-JUL-1989E ! USE ONLY ONE PREFIX FOR NCS$_, LIB$_ AND, ! TFF$_ MESSAGES. ! --/ DECLARE LONG CONSTANT NCS$_FACILITY = 5612 DECLARE LONG CONSTANT NCS$_CVTNUM = 367984663 DECLARE LONG CONSTANT NCS$_EXPCHAR = 367984745 DECLARE LONG CONSTANT #NCS$_EXPMORTXT = 367984823 DECLARE LONG CONSTANT NCS$_DUMMY_1 = 367984905 DECLARE LONG CONSTANT NCS$_INVCOLSEQ = 367984984 DECLARE LONG CONSTANT NCS$_NOMEMORY = 367985084 DECLARE LONG CONSTANT NCS$_NUMTRUNC = 367985126 DECLARE LONG CONSTANT NCS$_QUOTOOLONG = 367985223 DECLARE LONG CONSTANT NCS$_COL_ADJ = 367985325 DECLARE LONG CONSTANT NCS$_COL_CMPLX = 367985404 DECLARE LONG CONSTANT NCS$_COL_CHAR = 367985483 DECLARE LONG CONSTANT NCS$_COL_PAD $ = 367985565 DECLARE LONG CONSTANT NCS$_COL_THREE = 367985643 DECLARE LONG CONSTANT NCS$_ON_LINE = 367985715 DECLARE LONG CONSTANT NCS$_INVAPPEND = 36798578/ DECLARE LONG CONSTANT NCS$_NYI = 367985862 DECLARE LONG CONSTANT NCS$_NOT_CS = 367985942 DECLARE LONG CONSTANT NCS$_NOT_CF = 367986024 DECLARE LONG CONSTANT NCS$_LINEINFO = 367986115 DECLARE LONG CONSTANT NCS$_CONMODEQL = 367986184 DECLARE LONG CONSTANT NCS$_EXPECTED = 367986264 DE %CLARE LONG CONSTANT NCS$_EXP1CHAR = 367986342 DECLARE LONG CONSTANT NCS$_RANDIF = 367986421 DECLARE LONG CONSTANT NCS$_BADCS = 367986521 DECLARE LONG CONSTANT NCS$_BADCF = 367986604 DECLARE LONG CONSTANT NCS$_INSERTED = 367992653 DECLARE LONG CONSTANT NCS$_DELETED = 367992734 DECLARE LONG CONSTANT NCS$_REPLACED = 367992813 DECLARE LONG CONSTANT NCS$_REMOVED = 367992895 DECLARE LONG CONSTANT NCS$_EXTRACTED = 367992972 DECLARE LONG CONSTANT NCS$ &_DIFTYP = 367993045 DECLARE LONG CONSTANT NCS$_NOMTCHFOU = 367993123 DECLARE LONG CONSTANT NCS$_BRKNLIB = 367993203 DECLARE LONG CONSTANT NCS$_HISTERR = 367993286 DECLARE LONG CONSTANT NCS$_INVKEYCHAR = 367993365 DECLARE LONG CONSTANT NCS$_DELKEYERR = 367993465 DECLARE LONG CONSTANT NCS$_DELDATERR = 367993542 DECLARE LONG CONSTANT NCS$_DUPMOD = 367993623 DECLARE LONG CONSTANT NCS$_FAOFAIL = 367993704 DECLARE LONG CONSTANT NCS$_INDEXERR = 3679 '93785 DECLARE LONG CONSTANT NCS$_INSERTERR = 367993865 DECLARE LONG CONSTANT NCS$_LOOKUPERR = 367993945 DECLARE LONG CONSTANT NCS$_MODNAMLNG = 367994024 DECLARE LONG CONSTANT NCS$_NOMODNAM = 367994105 DECLARE LONG CONSTANT NCS$_NOTOBJLIB = 367994185 DECLARE LONG CONSTANT NCS$_NOTFORUNK = 367994264 DECLARE LONG CONSTANT NCS$_CNVRTING = 367994358 DECLARE LONG CONSTANT NCS$_EMPTYLIBRARY = 367994432 DECLARE LONG CONSTANT NCS$_MHDERR = 367994523 DECLARE LONG CONSTANT NCS$_INITERR = 367994604 DECLARE LONG CONSTANT NCS$_LIBEMPTY = 368000643 DECLARE LONG CONSTANT NCS$_DUPLTAB = 368000725 DECLARE LONG CONSTANT NCS$_NOREADLIB = 368000804 DECLARE LONG CONSTANT NCS$_NOWRTLIB = 368000884 DECLARE LONG CONSTANT NCS$_IVTABNAM = 368000985 DECLARE LONG CONSTANT NCS$_NOSUCHTAB = 368001062 DECLARE LONG CONSTANT NCS$_NOWILD = 36800114ww)Ҷ8 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED *( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN+G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > , %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:47.34 !  !  ! N ! ***********************************************************************N ! * - *N ! * *N ! * COPYRIGHT 1989 COMPAQ COMPUTER CORPORATION *N ! * *N ! * COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. *N ! * *N ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID. LICENSE FROM COMPAQ OR *N ! * AUTHORIZED SUBLICENSOR REQUIRED FOR POSSESSION, USE OR COPYING. *N ! * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE,*N ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *N ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *N ! * COMMERCIAL LICENSE. *N ! * / *N ! * *N ! * *N ! *********************************************************************** !  !  ! ++ !  ! FACILITY: ! ! VMSLIB !  ! ABSTRACT: ! O ! THIS MODULE DEFINES THE MESSAGES CODES USED TO AUDIT USE OF PRIVILEGEF ! WITHIN THE VMS TCB. MESSAGE CODES ARE NUMBERED FROM 0-40095. ! L ! THE FIRST HALF OF THIS RANGE IS RESERVED EXCLUSIVELY FOR PRIVILEGET ! AUDITING AND ARE FURTHER BROKEN DOWN BY PRIVILEGE. THE SECOND HALF OF THEP ! RANGE IS RESERVED FOR OTHER MESSAGES ASSOCIATED WITH TCB AUDIT EVENTS. !  ! ENVIRONMENT: !  ! VMS EXECUTIVE !  ! AUTHOR: ! ( ! DERRELL D. PIPER APRIL 17TH, 1989 !  ! NOTA BENE: ! L ! OBSOLETE PRIVILEGE AUDITING MESSAGE CODES CANNOT BE REMOVED FROM THIS 1L ! MODULE? THESE MESSAGE CODES ARE DEFINED IN STARLET AND REFERENCED BYI ! NAME IN THE $IFPRIV/$IFNPRIV AND $HAS_PRIV MACROS. IF YOU WANT TON ! "remove" AN OBSOLETE MESSAGE, REPLACE THE TEXT WITH "< -- unused -- >".I ! IF YOU'RE ADDING A NEW MESSAGE, PLEASE RE-USE ANY UNUSED MESSAGES. !  ! MODIFICATIONS: ! + ! X-37 GP051505 GUY PELEG 15-MAY-2006 ! ADD COMB_20 AND WORLD_6. ! 1 ! X-36 RAB0148 ROBERT A. BROOKS 11-JAN-2006* ! ADD OP2ER_94 FOR SET PATH AUDITING. ! 1 ! X-35 RAB0143 ROBERT A. BROOKS 28-NOV-2005, ! ADD SYSPRV_52 FOR SET PATH AUDITING. ! - ! X-34 WCC WILLIAM CLEMENCE 15-JUL-2004) ! ADDED CMKRNL_37 FOR IPMI AUDITING ! 6 ! X-33 JJF0282 J. JEFFERY FRIEDRICHS 9-MAR-20041 ! ADDED SYSPRV_51 FOR SETSHOSHADOW AUDITING ! . ! X-32 LC0002 LARRY CAMILLI 15-JAN-20039 ! ADDED OPER_93 FOR OPER PRIVILEGE REQUIREMENT FOR< ! SET CACHE/FLUSH, AND REMOVED V3OLPRO_16. (SEE X-31.) ! . ! X-31 LC0001 LARRY CAMILLI 19-DEC-20029 ! ADDED OPER_92 FOR OPER PRIVILEGE REQUIREMENT FOR: ! SET CACHE/RESET AND VOLPRO_16 FOR VOLPRO PRIVILEGE( ! REQUIREMENT FOR SET CACHE/FLUSH. ! / ! X-30 JAH0405 JOHN A HARNEY 01-AUG-20029 ! MORE COE FOLD: AUDITS FOR MEDDLE BIT PRIV CHECK: ! 6 ! X-25A1A2 JAH0404 JOHN A HARNEY 24-JUL-2002D ! ADD CMKRNL_36 FOR $SET_PROCESS_PROPERTIES MEDDLE_ENABLE BIT. ! 6 4! X-25A1A1 JAH0404 JOHN A HARNEY 23-JUL-2002C ! ADD CMEXEC_2 FOR $SET_PROCESS_PROPERTIES MEDDLE_ENABLE BIT. ! 7 ! X-29 DOUGLAS FYFE 15-FEB-2002Q ! ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING WITHIN SET SERVER4 ! /SUSPEND, /RESUME AND /CLUSTER. ! / ! X-28 JAH0378 JOHN A HARNEY 10-OCT-20019 ! COE FOLD: CHANGE AUDIT MESSAGE FOR IMPERSONATE_12 ! 6 ! X-27 LJK0230 LAWRENCE J. KILGALLEN 15-FEB-2001 5= ! ONE MORE MESSAGE FOR USE-OF-PRIVILEGE AUDITING WITHIN ! SHOW SERVER. ! 6 ! X-25 LJK0219 LAWRENCE J. KILGALLEN 2-FEB-20014 ! RESOLVE A FOLD BETWEEN X-24, X-23 AND X-22A. ! 1 ! X-24 PEM0070 PAUL E. MOSTEIKA 01-AUG-20003 ! ADD IMPERSONATE_12 - AUDIT THE NEW ACE TYPE9 ! POSIX_OWNER FOR COE SUPPORT OF EFFECTIVE UID/GID. ! G ! X-23 KGBCOE KENNETH G.BLAYLOCK 18-JUL-2000@ ! MODIFY XQP_16 WITH NEW 6MESSAGE NAME AND ADD* ! A NEW XQP_23 MESSAGE. ! 7 ! X-22A LJK0218 LAWRENCE J. KILGALLEN 1-FEB-2001D ! ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING WITHIN SET SERVER ! AND SHOW SERVER.A ! ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING BY SYS$ACM[W]. ! / ! X-22 JAH0331 JOHN A HARNEY 10-MAR-19998 ! ADD IMPERSONATE_11 FOR USES OF $PERSONA_RESERVE. ! / ! X-21 JAH0317 JOHN A HARNEY 24-SEP-1998C ! ADD AUDIT_3 FOR NEW $SETUAI 7ITEM WHICH REQUIRES AUDIT PRIV. ! ) ! X-20 JMB004 JIM BLUE 08-JUN-19986 ! ADD OPER_79, OPER_80, AND OPER_81 MESSAGES FOR8 ! MULTIPATH SET DEVICE /ENABLE, /POLL, AND /SWITCH ! OPTIONS. ! / ! X-19 JAH0269 JOHN A HARNEY 11-NOV-1997A ! ADD NSA$_IMPERSONATE_8, _9, AND _10 FOR PERSONA SERVICES. ! / ! X-18 MCJ MICHAEL C. JOHNSON 31-JUL-1997: ! ADD CMKRNL_35, XQP_21 AND XQP_22 MESSAGES FOR XFC & ! (EXTENDED FILE CACHE) PROJECT. 8! ) ! X-17 NL NICCOLE LUCE 04-MAR-19971 ! ADD NETMBX_3 MESSAGE FOR ICC (RAVEN_FT1). ! , ! X-16 WXD BILL DAVENPORT 13-DEC-1995+ ! PERTHREAD SECURITY STAGE 1 CHECKIN:: ! - RENAME DETACH PRIVILEGE TO IMPERSONATE. ADD ; ! LITERALS SO THAT OLD SYMBOLS STILL GET CREATED/ ! TO MAINTAIN BACKWARD COMPATIBILITY> ! - ADDED SETPRV_6 FOR USE OF SETPRV TO MODIFY IMAGE % ! WORKING PRIVILEGES MASK. ! 1 ! X-15 RJB0016 R9ICHARD J. BARRY 28-JUN-1995+ ! CHANGE TEXT OF MACBYPASSED MESSAGE. ! - ! X-14 JRK369 JIM KAUFFMAN 25-APR-1995 ! ADD ALTPRI_7 AND WORLD_5 ! A ! X-13 CHANGE TEXT OF MESSAGES SO 64-BIT SYSTEM SERVICES CAN@ ! SHARE ROUTINES WHICH DO AUTIDING WITH WITH 32-BIT SYSTEM ! SERVICES. !  ! MESSAGES CHANGED: ! CMKRNL_22 ! CMKRNL_23 ! CMEXEC_1 ! PRMGBL_1 ! SYSGBL_1 ! PFNMAP_1 ! PFNMAP_2 ! 7 :! X-12 JCH703 JOHN C. HALLYBURTON, JR. 17-JAN-1995B ! CHANGE TEXT OF LOG_IO_1, PHY_IO_9, PHY_IO_14 AND DETACH_1. ! ADD ALTPRI_6.  ! 0 ! X-11 REG002 RUTH GOLDENBERG 26-OCT-19946 ! EDIT TEXT OF CMKRNL_24 AND DETACH_1 TO INCLUDE! ! REMOTE PROCESS CREATIONS. ! / ! X-10 JAH0159 JOHN A HARNEY 07-SEP-1994# ! ADD COMMON MAPPING MESSAGES ! 1 ! X-9 NYK028 NITIN Y. KARKHANIS 20-MAY-1994@ ! RELEASE OPER_47 AND USE CMKRNL_34 FOR FLAGGING; ATTEMPTED7 ! MODIFICATIONS TO CONSOLE ENVIRONMENT VARIABLES. ! 1 ! X-8 NYK023 NITIN Y. KARKHANIS 14-APR-1994? ! RE-USED OPER_47 FOR "USER MODIFYING CONSOLE ENVIRONMENT ! VARIABLES. ! . ! X-7 JAH0086 JOHN A HARNEY 14-MAR-19940 ! ADD SECURITY_20 TO SECURITY_25 MESSAGES. ! 0 ! X-6 SGS0042 STEVE SKONETSKI 10-MAR-19946 ! ADD MEDIA MANAGEMENT EXTENSIONS (MME) SPECIFIC ! AUDITING MESSAGES. ! 2 ! X-5 SAD0296 STUART A. DAVI<DSON 9-DEC-1993' ! ADD DETACH_7 FOR IMPERSONATION. ! ' ! X-4 TRB TOM BENSON 23-OCT-1993: ! PROPAGATED WORLD_4 FROM VAX, FOR CLASS SCHEDULER.  ! - ! X-3 TNS003 TOM SCARPELLI 23-AUG-1993" ! CHANGE $MAPGBL TO $MGBLSC. ! ( ! X-2 CEG CLAIR GRANT 2-APR-1993. ! VAX (BLADE) => AXP. GET BLADE VERSION. ! ( ! X-1 CEG CLAIR GRANT 04-MAR-1993: ! VAX (BLADE) => AXP. GET BLADE VERSION FOR EPSILON. !  ! **0 DECLARE LONG = CONSTANT NSA$_FACILITY = 10724 DECLARE LONG CONSTANT NSA$_CMKRNL_1 = 702873634 DECLARE LONG CONSTANT NSA$_CMKRNL_2 = 702873714 DECLARE LONG CONSTANT NSA$_CMKRNL_3 = 702873794 DECLARE LONG CONSTANT NSA$_CMKRNL_4 = 702873874 DECLARE LONG CONSTANT NSA$_CMKRNL_5 = 702873954 DECLARE LONG CONSTANT NSA$_CMKRNL_6 = 70287403E DECLARE LONG CONSTANT NSA$_CMKRNL_7 = 70287411 ! UNDOCUMENTED4 DECLARE LONG CONSTANT NSA$_CMKRNL_8 = 702874194 DECLARE LONG CONST >ANT NSA$_CMKRNL_9 = 70287427F DECLARE LONG CONSTANT NSA$_CMKRNL_10 = 70287435 ! UNDOCUMENTEDF DECLARE LONG CONSTANT NSA$_CMKRNL_11 = 70287443 ! UNDOCUMENTED5 DECLARE LONG CONSTANT NSA$_CMKRNL_12 = 702874515 DECLARE LONG CONSTANT NSA$_CMKRNL_13 = 70287459F DECLARE LONG CONSTANT NSA$_CMKRNL_14 = 70287467 ! UNDOCUMENTED5 DECLARE LONG CONSTANT NSA$_CMKRNL_15 = 70287475F DECLARE LONG CONSTANT NSA$_CMKRNL_16 = 70287483 ! UNDOCUMENTED5 DECLARE LONG C ?ONSTANT NSA$_CMKRNL_17 = 70287491F DECLARE LONG CONSTANT NSA$_CMKRNL_18 = 70287499 ! UNDOCUMENTED5 DECLARE LONG CONSTANT NSA$_CMKRNL_19 = 70287507F DECLARE LONG CONSTANT NSA$_CMKRNL_20 = 70287515 ! UNDOCUMENTEDF DECLARE LONG CONSTANT NSA$_CMKRNL_21 = 70287523 ! UNDOCUMENTED5 DECLARE LONG CONSTANT NSA$_CMKRNL_22 = 702875315 DECLARE LONG CONSTANT NSA$_CMKRNL_23 = 702875395 DECLARE LONG CONSTANT NSA$_CMKRNL_24 = 70287547F DECLARE LONG CONSTANT NS @A$_CMKRNL_25 = 70287555 ! UNDOCUMENTED5 DECLARE LONG CONSTANT NSA$_CMKRNL_26 = 70287563I DECLARE LONG CONSTANT NSA$_CMKRNL_27 = 70287571 ! UNDOCUMENTED 5 DECLARE LONG CONSTANT NSA$_CMKRNL_28 = 702875795 DECLARE LONG CONSTANT NSA$_CMKRNL_29 = 702875875 DECLARE LONG CONSTANT NSA$_CMKRNL_30 = 702875955 DECLARE LONG CONSTANT NSA$_CMKRNL_31 = 702876035 DECLARE LONG CONSTANT NSA$_CMKRNL_32 = 702876115 DECLARE LONG CONSTANT NSA$_CMKRNL_33 = 7028761A95 DECLARE LONG CONSTANT NSA$_CMKRNL_34 = 702876275 DECLARE LONG CONSTANT NSA$_CMKRNL_35 = 702876355 DECLARE LONG CONSTANT NSA$_CMKRNL_36 = 70287643 ! 2 ! START OF A SET OF AUDITS ISSUED ONLY ON IPF ! 5 DECLARE LONG CONSTANT NSA$_CMKRNL_37 = 70287651 ! 0 ! END OF A SET OF AUDITS ISSUED ONLY ON IPF ! 4 DECLARE LONG CONSTANT NSA$_CMEXEC_1 = 702877634 DECLARE LONG CONSTANT NSA$_CMEXEC_2 = 702877714 DECLARE LONG CONSTANT NSA$_SYS BNAM_1 = 702878434 DECLARE LONG CONSTANT NSA$_SYSNAM_2 = 702878514 DECLARE LONG CONSTANT NSA$_SYSNAM_3 = 702878594 DECLARE LONG CONSTANT NSA$_SYSNAM_4 = 702878674 DECLARE LONG CONSTANT NSA$_SYSNAM_5 = 702878754 DECLARE LONG CONSTANT NSA$_SYSNAM_6 = 702878834 DECLARE LONG CONSTANT NSA$_SYSNAM_7 = 702878914 DECLARE LONG CONSTANT NSA$_SYSNAM_8 = 702878994 DECLARE LONG CONSTANT NSA$_SYSNAM_9 = 702879075 DECLARE LONG CONSTANT NSA$_SYSNAM_10 = 702879155 C DECLARE LONG CONSTANT NSA$_SYSNAM_11 = 702879235 DECLARE LONG CONSTANT NSA$_SYSNAM_12 = 702879315 DECLARE LONG CONSTANT NSA$_SYSNAM_13 = 702879394 DECLARE LONG CONSTANT NSA$_GRPNAM_1 = 702880834 DECLARE LONG CONSTANT NSA$_GRPNAM_2 = 702880914 DECLARE LONG CONSTANT NSA$_GRPNAM_3 = 702880996 DECLARE LONG CONSTANT NSA$_ALLSPOOL_1 = 702881634 DECLARE LONG CONSTANT NSA$_DETACH_1 = 702882434 DECLARE LONG CONSTANT NSA$_DETACH_2 = 702882514 DECLAR DE LONG CONSTANT NSA$_DETACH_3 = 702882594 DECLARE LONG CONSTANT NSA$_DETACH_4 = 702882674 DECLARE LONG CONSTANT NSA$_DETACH_5 = 702882754 DECLARE LONG CONSTANT NSA$_DETACH_6 = 702882834 DECLARE LONG CONSTANT NSA$_DETACH_7 = 702882919 DECLARE LONG CONSTANT NSA$_IMPERSONATE_1 = 702882439 DECLARE LONG CONSTANT NSA$_IMPERSONATE_2 = 702882519 DECLARE LONG CONSTANT NSA$_IMPERSONATE_3 = 702882599 DECLARE LONG CONSTANT NSA$_IMPERSONATE_4 = 702882679 DE ECLARE LONG CONSTANT NSA$_IMPERSONATE_5 = 702882759 DECLARE LONG CONSTANT NSA$_IMPERSONATE_6 = 702882839 DECLARE LONG CONSTANT NSA$_IMPERSONATE_7 = 702882919 DECLARE LONG CONSTANT NSA$_IMPERSONATE_8 = 702882999 DECLARE LONG CONSTANT NSA$_IMPERSONATE_9 = 70288307: DECLARE LONG CONSTANT NSA$_IMPERSONATE_10 = 70288315Q ! THE ABOVE LIST IS FULL. USE THE OVERFLOW REGION AT THE END OF THE MODULE.6 DECLARE LONG CONSTANT NSA$_DIAGNOSE_1 = 702883236 DECLARE FLONG CONSTANT NSA$_DIAGNOSE_2 = 702883316 DECLARE LONG CONSTANT NSA$_DIAGNOSE_3 = 70288339G DECLARE LONG CONSTANT NSA$_DIAGNOSE_4 = 70288347 ! UNDOCUMENTED6 DECLARE LONG CONSTANT NSA$_DIAGNOSE_5 = 702883556 DECLARE LONG CONSTANT NSA$_DIAGNOSE_6 = 702883636 DECLARE LONG CONSTANT NSA$_DIAGNOSE_7 = 702883716 DECLARE LONG CONSTANT NSA$_DIAGNOSE_8 = 702883794 DECLARE LONG CONSTANT NSA$_LOG_IO_1 = 702884034 DECLARE LONG CONSTANT NSA$_LOG_IO_2 = 702884114 G DECLARE LONG CONSTANT NSA$_LOG_IO_3 = 702884194 DECLARE LONG CONSTANT NSA$_LOG_IO_4 = 70288427E DECLARE LONG CONSTANT NSA$_LOG_IO_5 = 70288435 ! UNDOCUMENTED4 DECLARE LONG CONSTANT NSA$_LOG_IO_6 = 702884434 DECLARE LONG CONSTANT NSA$_LOG_IO_7 = 702884513 DECLARE LONG CONSTANT NSA$_GROUP_1 = 702884833 DECLARE LONG CONSTANT NSA$_GROUP_2 = 702884913 DECLARE LONG CONSTANT NSA$_GROUP_3 = 702884993 DECLARE LONG CONSTANT NSA$_GROUP_4 = 702885073 H DECLARE LONG CONSTANT NSA$_GROUP_5 = 702885153 DECLARE LONG CONSTANT NSA$_GROUP_6 = 702885233 DECLARE LONG CONSTANT NSA$_GROUP_7 = 702885313 DECLARE LONG CONSTANT NSA$_GROUP_8 = 702885393 DECLARE LONG CONSTANT NSA$_GROUP_9 = 702885474 DECLARE LONG CONSTANT NSA$_GROUP_10 = 702885552 DECLARE LONG CONSTANT NSA$_ACNT_1 = 702886432 DECLARE LONG CONSTANT NSA$_ACNT_2 = 702886514 DECLARE LONG CONSTANT NSA$_PRMCEB_1 = 702887234 DECLARE LONG CONSTANT INSA$_PRMCEB_2 = 702887314 DECLARE LONG CONSTANT NSA$_PRMMBX_1 = 702888034 DECLARE LONG CONSTANT NSA$_PRMMBX_2 = 702888114 DECLARE LONG CONSTANT NSA$_PRMMBX_3 = 702888194 DECLARE LONG CONSTANT NSA$_PSWAPM_1 = 702888834 DECLARE LONG CONSTANT NSA$_PSWAPM_2 = 702888914 DECLARE LONG CONSTANT NSA$_PSWAPM_3 = 702888994 DECLARE LONG CONSTANT NSA$_PSWAPM_4 = 702889074 DECLARE LONG CONSTANT NSA$_ALTPRI_1 = 702889634 DECLARE LONG CONSTANT NSA$_ALTPRI_2 = 7028 J89714 DECLARE LONG CONSTANT NSA$_ALTPRI_3 = 702889794 DECLARE LONG CONSTANT NSA$_ALTPRI_4 = 702889874 DECLARE LONG CONSTANT NSA$_ALTPRI_5 = 702889954 DECLARE LONG CONSTANT NSA$_ALTPRI_6 = 702890034 DECLARE LONG CONSTANT NSA$_ALTPRI_7 = 702890114 DECLARE LONG CONSTANT NSA$_IMPORT_1 = 702890434 DECLARE LONG CONSTANT NSA$_TMPMBX_1 = 702891234 DECLARE LONG CONSTANT NSA$_TMPMBX_2 = 702891313 DECLARE LONG CONSTANT NSA$_WORLD_1 = 702892033 DECLARE KLONG CONSTANT NSA$_WORLD_2 = 702892113 DECLARE LONG CONSTANT NSA$_WORLD_3 = 702892193 DECLARE LONG CONSTANT NSA$_WORLD_4 = 702892273 DECLARE LONG CONSTANT NSA$_WORLD_5 = 702892353 DECLARE LONG CONSTANT NSA$_WORLD_6 = 702892433 DECLARE LONG CONSTANT NSA$_MOUNT_1 = 702892832 DECLARE LONG CONSTANT NSA$_OPER_1 = 702893632 DECLARE LONG CONSTANT NSA$_OPER_2 = 702893712 DECLARE LONG CONSTANT NSA$_OPER_3 = 702893792 DECLARE LONG CONSTANT NSA$_OPER_4 L= 702893872 DECLARE LONG CONSTANT NSA$_OPER_5 = 702893952 DECLARE LONG CONSTANT NSA$_OPER_6 = 702894032 DECLARE LONG CONSTANT NSA$_OPER_7 = 702894112 DECLARE LONG CONSTANT NSA$_OPER_8 = 702894192 DECLARE LONG CONSTANT NSA$_OPER_9 = 702894273 DECLARE LONG CONSTANT NSA$_OPER_10 = 702894353 DECLARE LONG CONSTANT NSA$_OPER_11 = 702894433 DECLARE LONG CONSTANT NSA$_OPER_12 = 702894513 DECLARE LONG CONSTANT NSA$_OPER_13 = 70289459D DECLARE LONG M CONSTANT NSA$_OPER_14 = 70289467 ! UNDOCUMENTEDD DECLARE LONG CONSTANT NSA$_OPER_15 = 70289475 ! UNDOCUMENTED3 DECLARE LONG CONSTANT NSA$_OPER_16 = 70289483D DECLARE LONG CONSTANT NSA$_OPER_17 = 70289491 ! UNDOCUMENTEDD DECLARE LONG CONSTANT NSA$_OPER_18 = 70289499 ! UNDOCUMENTED3 DECLARE LONG CONSTANT NSA$_OPER_19 = 702895073 DECLARE LONG CONSTANT NSA$_OPER_20 = 702895153 DECLARE LONG CONSTANT NSA$_OPER_21 = 702895233 DECLARE LONG CONSTANT NNSA$_OPER_22 = 702895313 DECLARE LONG CONSTANT NSA$_OPER_23 = 70289539D DECLARE LONG CONSTANT NSA$_OPER_24 = 70289547 ! UNDOCUMENTED3 DECLARE LONG CONSTANT NSA$_OPER_25 = 702895553 DECLARE LONG CONSTANT NSA$_OPER_26 = 702895633 DECLARE LONG CONSTANT NSA$_OPER_27 = 702895713 DECLARE LONG CONSTANT NSA$_OPER_28 = 702895793 DECLARE LONG CONSTANT NSA$_OPER_29 = 702895873 DECLARE LONG CONSTANT NSA$_OPER_30 = 702895953 DECLARE LONG CONSTANT NSA$ O_OPER_31 = 702896033 DECLARE LONG CONSTANT NSA$_OPER_32 = 702896113 DECLARE LONG CONSTANT NSA$_OPER_33 = 702896193 DECLARE LONG CONSTANT NSA$_OPER_34 = 70289627D DECLARE LONG CONSTANT NSA$_OPER_35 = 70289635 ! UNDOCUMENTED3 DECLARE LONG CONSTANT NSA$_OPER_36 = 702896433 DECLARE LONG CONSTANT NSA$_OPER_37 = 702896513 DECLARE LONG CONSTANT NSA$_OPER_38 = 702896593 DECLARE LONG CONSTANT NSA$_OPER_39 = 702896673 DECLARE LONG CONSTANT NSA$_OPE PR_40 = 702896753 DECLARE LONG CONSTANT NSA$_OPER_41 = 702896833 DECLARE LONG CONSTANT NSA$_OPER_42 = 702896913 DECLARE LONG CONSTANT NSA$_OPER_43 = 702896993 DECLARE LONG CONSTANT NSA$_OPER_44 = 702897073 DECLARE LONG CONSTANT NSA$_OPER_45 = 702897153 DECLARE LONG CONSTANT NSA$_OPER_46 = 702897233 DECLARE LONG CONSTANT NSA$_OPER_47 = 702897313 DECLARE LONG CONSTANT NSA$_OPER_48 = 702897393 DECLARE LONG CONSTANT NSA$_OPER_49 = 702897473 Q DECLARE LONG CONSTANT NSA$_OPER_50 = 702897553 DECLARE LONG CONSTANT NSA$_OPER_51 = 702897633 DECLARE LONG CONSTANT NSA$_OPER_52 = 702897713 DECLARE LONG CONSTANT NSA$_OPER_53 = 702897793 DECLARE LONG CONSTANT NSA$_OPER_54 = 702897873 DECLARE LONG CONSTANT NSA$_OPER_55 = 70289795D DECLARE LONG CONSTANT NSA$_OPER_56 = 70289803 ! UNDOCUMENTED3 DECLARE LONG CONSTANT NSA$_OPER_57 = 702898113 DECLARE LONG CONSTANT NSA$_OPER_58 = 702898193 RDECLARE LONG CONSTANT NSA$_OPER_59 = 702898273 DECLARE LONG CONSTANT NSA$_OPER_60 = 702898353 DECLARE LONG CONSTANT NSA$_OPER_61 = 702898433 DECLARE LONG CONSTANT NSA$_OPER_62 = 702898513 DECLARE LONG CONSTANT NSA$_OPER_63 = 702898593 DECLARE LONG CONSTANT NSA$_OPER_64 = 702898673 DECLARE LONG CONSTANT NSA$_OPER_65 = 702898753 DECLARE LONG CONSTANT NSA$_OPER_66 = 702898833 DECLARE LONG CONSTANT NSA$_OPER_67 = 702898913 DECLARE LONG CONSTAN ST NSA$_OPER_68 = 702898993 DECLARE LONG CONSTANT NSA$_OPER_69 = 70289907D DECLARE LONG CONSTANT NSA$_OPER_70 = 70289915 ! UNDOCUMENTED3 DECLARE LONG CONSTANT NSA$_OPER_71 = 702899233 DECLARE LONG CONSTANT NSA$_OPER_72 = 702899313 DECLARE LONG CONSTANT NSA$_OPER_73 = 702899393 DECLARE LONG CONSTANT NSA$_OPER_74 = 702899473 DECLARE LONG CONSTANT NSA$_OPER_75 = 702899553 DECLARE LONG CONSTANT NSA$_OPER_76 = 702899633 DECLARE LONG CONSTANT NS TA$_OPER_77 = 702899713 DECLARE LONG CONSTANT NSA$_OPER_78 = 702899793 DECLARE LONG CONSTANT NSA$_OPER_79 = 702899873 DECLARE LONG CONSTANT NSA$_OPER_80 = 702899953 DECLARE LONG CONSTANT NSA$_OPER_81 = 70290003 ! 4 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 3 DECLARE LONG CONSTANT NSA$_OPER_82 = 702900113 DECLARE LONG CONSTANT NSA$_OPER_83 = 702900193 DECLARE LONG CONSTANT NSA$_OPER_84 = 702900273 DECLARE LONG CONSTANT NSA$_O UPER_85 = 702900353 DECLARE LONG CONSTANT NSA$_OPER_86 = 702900433 DECLARE LONG CONSTANT NSA$_OPER_87 = 702900513 DECLARE LONG CONSTANT NSA$_OPER_88 = 702900593 DECLARE LONG CONSTANT NSA$_OPER_89 = 702900673 DECLARE LONG CONSTANT NSA$_OPER_90 = 702900753 DECLARE LONG CONSTANT NSA$_OPER_91 = 702900833 DECLARE LONG CONSTANT NSA$_OPER_92 = 702900913 DECLARE LONG CONSTANT NSA$_OPER_93 = 702900993 DECLARE LONG CONSTANT NSA$_OPER_94 = 70290107V ! 2 ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 5 DECLARE LONG CONSTANT NSA$_EXQUOTA_1 = 70290323 ! 4 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 5 DECLARE LONG CONSTANT NSA$_EXQUOTA_2 = 702903315 DECLARE LONG CONSTANT NSA$_EXQUOTA_3 = 70290339 ! 2 ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 4 DECLARE LONG CONSTANT NSA$_NETMBX_1 = 702904034 DECLARE LONG CONSTANT NSA$_NETMBX_2 = 702904114 DECLARE LONG CONST WANT NSA$_NETMBX_3 = 702904194 DECLARE LONG CONSTANT NSA$_VOLPRO_1 = 702904834 DECLARE LONG CONSTANT NSA$_VOLPRO_2 = 70290491E DECLARE LONG CONSTANT NSA$_VOLPRO_3 = 70290499 ! UNDOCUMENTED4 DECLARE LONG CONSTANT NSA$_VOLPRO_4 = 702905074 DECLARE LONG CONSTANT NSA$_VOLPRO_5 = 702905154 DECLARE LONG CONSTANT NSA$_VOLPRO_6 = 702905234 DECLARE LONG CONSTANT NSA$_VOLPRO_7 = 702905314 DECLARE LONG CONSTANT NSA$_VOLPRO_8 = 702905394 DECLARE LONG CONSTAN XT NSA$_VOLPRO_9 = 702905475 DECLARE LONG CONSTANT NSA$_VOLPRO_10 = 702905555 DECLARE LONG CONSTANT NSA$_VOLPRO_11 = 702905635 DECLARE LONG CONSTANT NSA$_VOLPRO_12 = 702905715 DECLARE LONG CONSTANT NSA$_VOLPRO_13 = 702905795 DECLARE LONG CONSTANT NSA$_VOLPRO_14 = 702905875 DECLARE LONG CONSTANT NSA$_VOLPRO_15 = 702905954 DECLARE LONG CONSTANT NSA$_PHY_IO_1 = 702906434 DECLARE LONG CONSTANT NSA$_PHY_IO_2 = 702906514 DECLARE LONG CONSTANT NSA$_P YHY_IO_3 = 702906594 DECLARE LONG CONSTANT NSA$_PHY_IO_4 = 702906674 DECLARE LONG CONSTANT NSA$_PHY_IO_5 = 702906754 DECLARE LONG CONSTANT NSA$_PHY_IO_6 = 702906834 DECLARE LONG CONSTANT NSA$_PHY_IO_7 = 702906914 DECLARE LONG CONSTANT NSA$_PHY_IO_8 = 702906994 DECLARE LONG CONSTANT NSA$_PHY_IO_9 = 702907075 DECLARE LONG CONSTANT NSA$_PHY_IO_10 = 702907155 DECLARE LONG CONSTANT NSA$_PHY_IO_11 = 702907235 DECLARE LONG CONSTANT NSA$_PHY_IO_12 = 70290 Z731F DECLARE LONG CONSTANT NSA$_PHY_IO_13 = 70290739 ! UNDOCUMENTED5 DECLARE LONG CONSTANT NSA$_PHY_IO_14 = 702907475 DECLARE LONG CONSTANT NSA$_PHY_IO_15 = 702907554 DECLARE LONG CONSTANT NSA$_BUGCHK_1 = 702908834 DECLARE LONG CONSTANT NSA$_BUGCHK_2 = 702908914 DECLARE LONG CONSTANT NSA$_PRMGBL_1 = 702909634 DECLARE LONG CONSTANT NSA$_PRMGBL_2 = 702909714 DECLARE LONG CONSTANT NSA$_SYSGBL_1 = 702910434 DECLARE LONG CONSTANT NSA$_SYSGBL_2 = 70 [2910514 DECLARE LONG CONSTANT NSA$_PFNMAP_1 = 702911234 DECLARE LONG CONSTANT NSA$_PFNMAP_2 = 702911314 DECLARE LONG CONSTANT NSA$_PFNMAP_3 = 702911393 DECLARE LONG CONSTANT NSA$_SHMEM_1 = 702912033 DECLARE LONG CONSTANT NSA$_SHMEM_2 = 702912113 DECLARE LONG CONSTANT NSA$_SHMEM_3 = 702912193 DECLARE LONG CONSTANT NSA$_SHMEM_4 = 702912273 DECLARE LONG CONSTANT NSA$_SHMEM_5 = 702912354 DECLARE LONG CONSTANT NSA$_SYSPRV_1 = 702912834 DECLAR \E LONG CONSTANT NSA$_SYSPRV_2 = 702912914 DECLARE LONG CONSTANT NSA$_SYSPRV_3 = 702912994 DECLARE LONG CONSTANT NSA$_SYSPRV_4 = 702913074 DECLARE LONG CONSTANT NSA$_SYSPRV_5 = 70291315E DECLARE LONG CONSTANT NSA$_SYSPRV_6 = 70291323 ! UNDOCUMENTED4 DECLARE LONG CONSTANT NSA$_SYSPRV_7 = 702913314 DECLARE LONG CONSTANT NSA$_SYSPRV_8 = 702913394 DECLARE LONG CONSTANT NSA$_SYSPRV_9 = 702913475 DECLARE LONG CONSTANT NSA$_SYSPRV_10 = 702913555 DECLAR ]E LONG CONSTANT NSA$_SYSPRV_11 = 702913635 DECLARE LONG CONSTANT NSA$_SYSPRV_12 = 702913715 DECLARE LONG CONSTANT NSA$_SYSPRV_13 = 70291379B DECLARE LONG CONSTANT NSA$_SYSPRV_14 = 70291387 ! RESERVED5 DECLARE LONG CONSTANT NSA$_SYSPRV_15 = 702913955 DECLARE LONG CONSTANT NSA$_SYSPRV_16 = 702914035 DECLARE LONG CONSTANT NSA$_SYSPRV_17 = 702914115 DECLARE LONG CONSTANT NSA$_SYSPRV_18 = 702914195 DECLARE LONG CONSTANT NSA$_SYSPRV_19 = 702914275 ^ DECLARE LONG CONSTANT NSA$_SYSPRV_20 = 702914355 DECLARE LONG CONSTANT NSA$_SYSPRV_21 = 702914435 DECLARE LONG CONSTANT NSA$_SYSPRV_22 = 702914515 DECLARE LONG CONSTANT NSA$_SYSPRV_23 = 702914595 DECLARE LONG CONSTANT NSA$_SYSPRV_24 = 702914675 DECLARE LONG CONSTANT NSA$_SYSPRV_25 = 702914755 DECLARE LONG CONSTANT NSA$_SYSPRV_26 = 702914835 DECLARE LONG CONSTANT NSA$_SYSPRV_27 = 702914915 DECLARE LONG CONSTANT NSA$_SYSPRV_28 = 702914995 _ DECLARE LONG CONSTANT NSA$_SYSPRV_29 = 702915075 DECLARE LONG CONSTANT NSA$_SYSPRV_30 = 702915155 DECLARE LONG CONSTANT NSA$_SYSPRV_31 = 702915235 DECLARE LONG CONSTANT NSA$_SYSPRV_32 = 702915315 DECLARE LONG CONSTANT NSA$_SYSPRV_33 = 702915395 DECLARE LONG CONSTANT NSA$_SYSPRV_34 = 702915475 DECLARE LONG CONSTANT NSA$_SYSPRV_35 = 702915555 DECLARE LONG CONSTANT NSA$_SYSPRV_36 = 702915635 DECLARE LONG CONSTANT NSA$_SYSPRV_37 = 702915715 `DECLARE LONG CONSTANT NSA$_SYSPRV_38 = 702915795 DECLARE LONG CONSTANT NSA$_SYSPRV_39 = 70291587 DECLARE LONG CONSTANT NSA$_SYSPRV_40 = 70291595 ! THE ABOVE LIST IS FULL. USE THE OVERFLOW REGION AT THE END OF THE & ! MODULE.4 DECLARE LONG CONSTANT NSA$_BYPASS_1 = 702916034 DECLARE LONG CONSTANT NSA$_BYPASS_2 = 702916114 DECLARE LONG CONSTANT NSA$_BYPASS_3 = 702916194 DECLARE LONG CONSTANT NSA$_BYPASS_4 = 702916274 DECLARE LONG CONSTANT NSA$_BYPASS_5 a= 702916354 DECLARE LONG CONSTANT NSA$_BYPASS_6 = 702916434 DECLARE LONG CONSTANT NSA$_BYPASS_7 = 702916514 DECLARE LONG CONSTANT NSA$_BYPASS_8 = 702916594 DECLARE LONG CONSTANT NSA$_BYPASS_9 = 702916675 DECLARE LONG CONSTANT NSA$_BYPASS_10 = 702916755 DECLARE LONG CONSTANT NSA$_BYPASS_11 = 702916835 DECLARE LONG CONSTANT NSA$_BYPASS_12 = 702916915 DECLARE LONG CONSTANT NSA$_BYPASS_13 = 702916995 DECLARE LONG CONSTANT NSA$_BYPASS_14 = 70291707 bB DECLARE LONG CONSTANT NSA$_BYPASS_15 = 70291715 ! RESERVEDB DECLARE LONG CONSTANT NSA$_BYPASS_16 = 70291723 ! RESERVED5 DECLARE LONG CONSTANT NSA$_BYPASS_17 = 702917315 DECLARE LONG CONSTANT NSA$_BYPASS_18 = 702917395 DECLARE LONG CONSTANT NSA$_BYPASS_19 = 702917475 DECLARE LONG CONSTANT NSA$_BYPASS_20 = 702917555 DECLARE LONG CONSTANT NSA$_BYPASS_21 = 702917635 DECLARE LONG CONSTANT NSA$_BYPASS_22 = 702917715 DECLARE LONG CONSTANT NSA$ c_BYPASS_23 = 702917795 DECLARE LONG CONSTANT NSA$_BYPASS_24 = 702917875 DECLARE LONG CONSTANT NSA$_BYPASS_25 = 702917955 DECLARE LONG CONSTANT NSA$_BYPASS_26 = 702918035 DECLARE LONG CONSTANT NSA$_BYPASS_27 = 702918115 DECLARE LONG CONSTANT NSA$_BYPASS_28 = 702918195 DECLARE LONG CONSTANT NSA$_BYPASS_29 = 702918275 DECLARE LONG CONSTANT NSA$_BYPASS_30 = 702918354 DECLARE LONG CONSTANT NSA$_SYSLCK_1 = 702919234 DECLARE LONG CONSTANT NSA$_SYS dLCK_2 = 702919313 DECLARE LONG CONSTANT NSA$_SHARE_1 = 702920034 DECLARE LONG CONSTANT NSA$_GRPPRV_1 = 702920834 DECLARE LONG CONSTANT NSA$_GRPPRV_2 = 702920914 DECLARE LONG CONSTANT NSA$_GRPPRV_3 = 70292099A DECLARE LONG CONSTANT NSA$_GRPPRV_4 = 70292107 ! RESERVED4 DECLARE LONG CONSTANT NSA$_GRPPRV_5 = 702921154 DECLARE LONG CONSTANT NSA$_GRPPRV_6 = 702921234 DECLARE LONG CONSTANT NSA$_GRPPRV_7 = 702921314 DECLARE LONG CONSTANT NSA$_GRPPRV_8 e= 702921394 DECLARE LONG CONSTANT NSA$_GRPPRV_9 = 702921475 DECLARE LONG CONSTANT NSA$_GRPPRV_10 = 702921555 DECLARE LONG CONSTANT NSA$_GRPPRV_11 = 702921635 DECLARE LONG CONSTANT NSA$_GRPPRV_12 = 702921715 DECLARE LONG CONSTANT NSA$_GRPPRV_13 = 702921795 DECLARE LONG CONSTANT NSA$_GRPPRV_14 = 702921875 DECLARE LONG CONSTANT NSA$_GRPPRV_15 = 702921955 DECLARE LONG CONSTANT NSA$_GRPPRV_16 = 702922035 DECLARE LONG CONSTANT NSA$_GRPPRV_17 = 702 f922115 DECLARE LONG CONSTANT NSA$_GRPPRV_18 = 702922195 DECLARE LONG CONSTANT NSA$_READALL_1 = 702922435 DECLARE LONG CONSTANT NSA$_READALL_2 = 70292251B DECLARE LONG CONSTANT NSA$_READALL_3 = 70292259 ! RESERVED6 DECLARE LONG CONSTANT NSA$_SECURITY_1 = 702924836 DECLARE LONG CONSTANT NSA$_SECURITY_2 = 702924916 DECLARE LONG CONSTANT NSA$_SECURITY_3 = 702924996 DECLARE LONG CONSTANT NSA$_SECURITY_4 = 702925076 DECLARE LONG CONSTANT NSA$_SECUR gITY_5 = 702925156 DECLARE LONG CONSTANT NSA$_SECURITY_6 = 702925236 DECLARE LONG CONSTANT NSA$_SECURITY_7 = 702925316 DECLARE LONG CONSTANT NSA$_SECURITY_8 = 702925396 DECLARE LONG CONSTANT NSA$_SECURITY_9 = 702925477 DECLARE LONG CONSTANT NSA$_SECURITY_10 = 702925557 DECLARE LONG CONSTANT NSA$_SECURITY_11 = 702925637 DECLARE LONG CONSTANT NSA$_SECURITY_12 = 702925717 DECLARE LONG CONSTANT NSA$_SECURITY_13 = 702925797 DECLARE LONG CONSTANT NSA$ h_SECURITY_14 = 702925877 DECLARE LONG CONSTANT NSA$_SECURITY_15 = 702925957 DECLARE LONG CONSTANT NSA$_SECURITY_16 = 702926037 DECLARE LONG CONSTANT NSA$_SECURITY_17 = 702926117 DECLARE LONG CONSTANT NSA$_SECURITY_18 = 702926197 DECLARE LONG CONSTANT NSA$_SECURITY_19 = 702926277 DECLARE LONG CONSTANT NSA$_SECURITY_20 = 702926357 DECLARE LONG CONSTANT NSA$_SECURITY_21 = 702926437 DECLARE LONG CONSTANT NSA$_SECURITY_22 = 702926517 DECLARE LO iNG CONSTANT NSA$_SECURITY_23 = 702926597 DECLARE LONG CONSTANT NSA$_SECURITY_24 = 702926677 DECLARE LONG CONSTANT NSA$_SECURITY_25 = 70292675 ! 4 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 7 DECLARE LONG CONSTANT NSA$_SECURITY_26 = 702926837 DECLARE LONG CONSTANT NSA$_SECURITY_27 = 702926917 DECLARE LONG CONSTANT NSA$_SECURITY_28 = 702926997 DECLARE LONG CONSTANT NSA$_SECURITY_29 = 702927077 DECLARE LONG CONSTANT NSA$_SECURITY_30 = j 702927156 ! THE ABOVE LIST IS FULL. CONTINUES AT BASE 3180 ! 2 ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 5 DECLARE LONG CONSTANT NSA$_UPGRADE_1 = 70292723B DECLARE LONG CONSTANT NSA$_UPGRADE_2 = 70292731 ! RESERVED7 DECLARE LONG CONSTANT NSA$_DOWNGRADE_1 = 70292803D DECLARE LONG CONSTANT NSA$_DOWNGRADE_2 = 70292811 ! RESERVEDE DECLARE LONG CONSTANT NSA$_SETPRV_1 = 70292883 ! UNDOCUMENTED4 DECLARE LONG CONSTANT NSA$_SETPRV_2 = 70 k2928914 DECLARE LONG CONSTANT NSA$_SETPRV_3 = 702928994 DECLARE LONG CONSTANT NSA$_SETPRV_4 = 702929074 DECLARE LONG CONSTANT NSA$_SETPRV_5 = 702929154 DECLARE LONG CONSTANT NSA$_SETPRV_6 = 702929233 DECLARE LONG CONSTANT NSA$_AUDIT_1 = 702929633 DECLARE LONG CONSTANT NSA$_AUDIT_2 = 702929713 DECLARE LONG CONSTANT NSA$_AUDIT_3 = 70292979 ! R ! THE RANGE FROM 1900 TO 2000 IS USED FOR IMPLIED SYSPRV FROM UIC GROUP BEING' ! LESS THAN OR EQUAL TO l MAXSYSGRP. ! 8 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_1 = 703025638 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_2 = 703025718 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_3 = 703025798 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_4 = 703025878 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_5 = 703025958 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_6 = 703026038 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_7 = 703026118 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_8 = 703026198 DECLARE LONG C mONSTANT NSA$_IMP_SYSPRV_9 = 703026279 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_10 = 703026359 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_11 = 703026439 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_12 = 703026519 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_13 = 703026599 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_14 = 703026679 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_15 = 703026759 DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_16 = 70302683= DECLARE LONG CONSTANT NSA$_IMP_SYSPRV_17 = n 70302691 ! L ! THE RANGE FROM 2000-2047 IS RESERVED FOR EVENTS WHICH ARE GOVERNED BYP ! MULTIPLE PRIVILEGES. THIS KIND OF THING IS SERIOUSLY FROWNED UPON AND SO> ! WE'LL ONLY RESERVE A MEASLY 48 MESSAGES CODES FOR THEM. ! 2 DECLARE LONG CONSTANT NSA$_COMB_1 = 703033632 DECLARE LONG CONSTANT NSA$_COMB_2 = 703033712 DECLARE LONG CONSTANT NSA$_COMB_3 = 70303379C DECLARE LONG CONSTANT NSA$_COMB_4 = 70303387 ! UNDOCUMENTED2 DECLARE LONG CONSTANT NS oA$_COMB_5 = 703033952 DECLARE LONG CONSTANT NSA$_COMB_6 = 703034032 DECLARE LONG CONSTANT NSA$_COMB_7 = 703034112 DECLARE LONG CONSTANT NSA$_COMB_8 = 703034192 DECLARE LONG CONSTANT NSA$_COMB_9 = 703034273 DECLARE LONG CONSTANT NSA$_COMB_10 = 703034353 DECLARE LONG CONSTANT NSA$_COMB_11 = 703034433 DECLARE LONG CONSTANT NSA$_COMB_12 = 703034513 DECLARE LONG CONSTANT NSA$_COMB_13 = 703034593 DECLARE LONG CONSTANT NSA$_COMB_14 = 703034673 pDECLARE LONG CONSTANT NSA$_COMB_15 = 703034753 DECLARE LONG CONSTANT NSA$_COMB_16 = 703034833 DECLARE LONG CONSTANT NSA$_COMB_17 = 703034913 DECLARE LONG CONSTANT NSA$_COMB_18 = 70303499 ! 4 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 3 DECLARE LONG CONSTANT NSA$_COMB_19 = 70303507 ! 2 ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 3 DECLARE LONG CONSTANT NSA$_COMB_20 = 70303515 ! T ! THE RANGE OF MESSAGE CODES FROM 204 q8-4095 ARE RESERVED TO PORTIONS OF THE TCBI ! WHICH NEED TO ASSOCIATE ONE LINE OF TEXT WITH THEIR AUDIT MESSAGE. !  ! 0 ! FILE AND VOLUME AUDIT MESSAGES (F11BXQP). ! 1 DECLARE LONG CONSTANT NSA$_XQP_1 = 703037471 DECLARE LONG CONSTANT NSA$_XQP_2 = 703037551 DECLARE LONG CONSTANT NSA$_XQP_3 = 703037631 DECLARE LONG CONSTANT NSA$_XQP_4 = 703037711 DECLARE LONG CONSTANT NSA$_XQP_5 = 703037791 DECLARE LONG CONSTANT NSA$_XQP_6 = 703037871 r DECLARE LONG CONSTANT NSA$_XQP_7 = 703037951 DECLARE LONG CONSTANT NSA$_XQP_8 = 703038031 DECLARE LONG CONSTANT NSA$_XQP_9 = 703038112 DECLARE LONG CONSTANT NSA$_XQP_10 = 703038192 DECLARE LONG CONSTANT NSA$_XQP_11 = 703038272 DECLARE LONG CONSTANT NSA$_XQP_12 = 703038352 DECLARE LONG CONSTANT NSA$_XQP_13 = 703038432 DECLARE LONG CONSTANT NSA$_XQP_14 = 703038512 DECLARE LONG CONSTANT NSA$_XQP_15 = 703038592 DECLARE LONG CONSTANT NSA$_XQP_1 s6 = 703038672 DECLARE LONG CONSTANT NSA$_XQP_17 = 703038752 DECLARE LONG CONSTANT NSA$_XQP_18 = 703038832 DECLARE LONG CONSTANT NSA$_XQP_19 = 703038912 DECLARE LONG CONSTANT NSA$_XQP_20 = 703038992 DECLARE LONG CONSTANT NSA$_XQP_21 = 703039072 DECLARE LONG CONSTANT NSA$_XQP_22 = 703039152 DECLARE LONG CONSTANT NSA$_XQP_23 = 70303923 ! 7 ! MESSAGE TO DIFFERENTIATE VARIOUS TCB OPERATIONS. ! 4 DECLARE LONG CONSTANT NSA$_ALLOCATE = 703119392 t DECLARE LONG CONSTANT NSA$_ASSIGN = 703119477 DECLARE LONG CONSTANT NSA$_SETSECURITY = 703119557 DECLARE LONG CONSTANT NSA$_SHOSECURITY = 703119635 DECLARE LONG CONSTANT NSA$_GSDACCESS = 703119715 DECLARE LONG CONSTANT NSA$_KFEACCESS = 703119797 DECLARE LONG CONSTANT NSA$_MACBYPASSED = 70311987 ! ! PRIVILEGE AUDIT OVERFLOW. ! 5 DECLARE LONG CONSTANT NSA$_SYSPRV_41 = 703121635 DECLARE LONG CONSTANT NSA$_SYSPRV_42 = 703121715 uDECLARE LONG CONSTANT NSA$_SYSPRV_43 = 703121795 DECLARE LONG CONSTANT NSA$_SYSPRV_44 = 703121875 DECLARE LONG CONSTANT NSA$_SYSPRV_45 = 703121955 DECLARE LONG CONSTANT NSA$_SYSPRV_46 = 703122035 DECLARE LONG CONSTANT NSA$_SYSPRV_47 = 703122115 DECLARE LONG CONSTANT NSA$_SYSPRV_48 = 703122195 DECLARE LONG CONSTANT NSA$_SYSPRV_49 = 703122275 DECLARE LONG CONSTANT NSA$_SYSPRV_50 = 703122355 DECLARE LONG CONSTANT NSA$_SYSPRV_51 = 703122435 DEvCLARE LONG CONSTANT NSA$_SYSPRV_52 = 70312251 ! # ! IMPERSONATION AUDIT OVERFLOW ! : DECLARE LONG CONSTANT NSA$_IMPERSONATE_11 = 70312483: DECLARE LONG CONSTANT NSA$_IMPERSONATE_12 = 70312491 !  ! SECURITY AUDIT OVERFLOW !  ! 4 ! START OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! 7 DECLARE LONG CONSTANT NSA$_SECURITY_31 = 703128037 DECLARE LONG CONSTANT NSA$_SECURITY_32 = 703128117 DECLARE LONG CONSTANT NSA$_SECURITY_33 = 703 128197 DECLARE LONG CONSTANT NSA$_SECURITY_34 = 703128277 DECLARE LONG CONSTANT NSA$_SECURITY_35 = 703128357 DECLARE LONG CONSTANT NSA$_SECURITY_36 = 703128437 DECLARE LONG CONSTANT NSA$_SECURITY_37 = 703128517 DECLARE LONG CONSTANT NSA$_SECURITY_38 = 703128597 DECLARE LONG CONSTANT NSA$_SECURITY_39 = 70312867 ! 2 ! END OF A SET OF AUDITS ISSUED ONLY ON ALPHA ! wwxzB ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED y( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINzG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > { %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  7 DECLARE LONG CONSTANT OBJ$M_PSC_PIC = x'00000001'7 DECLARE LONG CONSTANT OBJ$M_PSC_LIB = x'00000002'7 DECLARE LONG CONSTANT OBJ$M_PSC_OVL = x'00000004'7 DECLARE LONG CONSTANT OBJ$M_PSC_REL |= x'00000008'7 DECLARE LONG CONSTANT OBJ$M_PSC_GBL = x'00000010'7 DECLARE LONG CONSTANT OBJ$M_PSC_SHR = x'00000020'7 DECLARE LONG CONSTANT OBJ$M_PSC_EXE = x'00000040'6 DECLARE LONG CONSTANT OBJ$M_PSC_RD = x'00000080'7 DECLARE LONG CONSTANT OBJ$M_PSC_WRT = x'00000100'8 DECLARE LONG CONSTANT OBJ$M_SYM_WEAK = x'00000001'7 DECLARE LONG CONSTANT OBJ$M_SYM_DEF = x'00000002'7 DECLARE LONG CONSTANT OBJ$M_SYM_UNI = x'00000004'7 DECLARE LONG CONSTANT }OBJ$M_SYM_REL = x'00000008'9 DECLARE LONG CONSTANT OBJ$M_SYMV_WEAK = x'00000001'8 DECLARE LONG CONSTANT OBJ$M_SYMV_DEF = x'00000002'8 DECLARE LONG CONSTANT OBJ$M_SYMV_UNI = x'00000004'8 DECLARE LONG CONSTANT OBJ$M_SYMV_REL = x'00000008'9 DECLARE LONG CONSTANT OBJ$M_SYMM_WEAK = x'00000001'8 DECLARE LONG CONSTANT OBJ$M_SYMM_DEF = x'00000002'8 DECLARE LONG CONSTANT OBJ$M_SYMM_UNI = x'00000004'8 DECLARE LONG CONSTANT OBJ$M_SYMM_REL = x'00000008'. DE~CLARE LONG CONSTANT OBJ$S_SDADEFS = 16 record SDADEFS! group OBJ$R_TYPE_OVERLAY variant case= BYTE OBJ$B_TYPE ! Type of record caseA BYTE OBJ$B_GSD_TYPE ! Type of GSD record end variant% end group OBJ$R_TYPE_OVERLAY$ group OBJ$R_RECORDS_OVERLAY variant case* group OBJ$R_PSECT_RECORDE  BYTE OBJ$B_PSC_ALI ! PSECT alignment (2**n)( group OBJ$R_FILL_0_ variant case? WORD OBJ$W_PSC_FLAG ! PSECT flags: case. group OBJ$R_FILL_1_8 ! Position independent? ! Defined from sharable image2 ! Overlaid psect7  ! Requires relocation3 ! PSECT is global8 ! Potentially sharable. ! Executable/ ! Can be read2 ! Can be written} WORD PSC_PIC_bits ! COMMENT ADDED BY SDL - PSC_PIC_bits contains bits PSC_PIC through FILL_8_2 end group OBJ$R_FILL_1_# end vari ant, end group OBJ$R_FILL_0_> LONG OBJ$L_PSC_LEN ! Length of PSECTN STRING OBJ$T_PSC_NAME = 1 ! PSECT name (counted string). end group OBJ$R_PSECT_RECORD case/ group OBJ$R_GLOBAL_SYM_RECORDT BYTE OBJ$B_SYM_DTYPE ! Data type (see Arch. Handbook, Ap. C)( group OBJ$R_FILL_2_ variant caseA WORD OBJ$W_SYM_FLAGS ! Symbol flags: case. group OBJ$R_FILL_3_@ ! Weak resolution (0 = strong)> ! Definition (0 = reference)D ! Universal definition (0 = local)B ! Relative symbol (0 = absolute) BYTE SYM_WEAK_bits ! COMMENT ADDED BY SDL - SYM_WEAK_bits contains bits SYM_WEAK through FILL_9_2 end group OBJ$R_FILL_3_# end variant, end group OBJ$R_FILL_2_H BYTE OBJ$B_SYM_PSIND ! PSECT index (only if def)L LONG OBJ$L_SYM_VALUE ! Value of symbol (only if def)O STRING OBJ$T_SYM_NAME = 1 ! Symbol name (counted string)3 end group OBJ$R_GLOBAL_SYM_RECORD case0 group OBJ$R_ENTRY_POINT_RECORDT BYTE OBJ$B_EPM_DTYPE ! Data type (see Arch. Handbook, Ap. C)H WORD OBJ$W_EPM_FLAGS ! Flags (same as SYM_FLAGS)H BYTE OBJ$B_EPM_PSIND ! PSECT index (only if def)L LONG OBJ$L_EPM_VALUE ! Value of symbol (only if def)9 WORD OBJ$W_EPM_MASK ! Entry maskO STRING OBJ$T_EPM_NAME = 1 ! Symbol name (counted string)4 end group OBJ$R_ENTRY_POINT_RECORD case0 group OBJ$R_GLOBAL_SYMV_RECORDT BYTE OBJ$B_SYMV_DTYPE ! Data type (see Arch. Handbook, Ap. C)( group OBJ$R_FILL_4_ variant caseB WORD OBJ$W_SYMV_FLAGS ! Symbol flags: case. group OBJ$R_FILL_5_@ ! Weak resolution (0 = strong) > ! Definition (0 = reference)D ! Universal definition (0 = local)B ! Relative symbol (0 = absolute)~ BYTE SYMV_WEAK_bits ! COMMENT ADDED BY SDL - SYMV_WEAK_bits contains bits SYMV_WEAK through & ! FILL_10_2 end group OBJ$R_FILL_5_# end variant, end group OBJ$R_FILL_4_H BYTE OBJ$B_SYMV_PSIND ! PSECT index (only if def)L LONG OBJ$L_SYMV_VALUE ! Value of symbol (only if def)V LONG OBJ$L_SYMV_VECTOR ! Vectored value of symbol (only if def)P STRING OBJ$T_SYMV_NAME = 1 ! Symbol name (counted string)4 end group OBJ$R_GLOBAL_SYMV_RECORD case0 group OBJ$R_GLOBAL_EPMV_RECORDT BYTE OBJ$B_EPMV_DTYPE ! Data type (see Arch. Handbook, Ap. C)H WORD OBJ$W_EPMV_FLAGS ! Flags (same as SYM_FLAGS)H BYTE OBJ$B_EPMV_PSIND ! PSECT index (only if def)L LONG OBJ$L_EPMV_VALUE ! Value of symbol (only if def)V LONG OBJ$L_EPMV_VECTOR ! Vectored value of symbol (only if def)9 WORD OBJ$W_EPMV_MASK ! Entry maskP STRING OBJ$T_EPMV_NAME = 1 ! Symbol name (counted string)4 end group OBJ$R_GLOBAL_EPMV_ RECORD case0 group OBJ$R_GLOBAL_SYMM_RECORDT BYTE OBJ$B_SYMM_DTYPE ! Data type (see Arch. Handbook, Ap. C)( group OBJ$R_FILL_6_ variant caseB WORD OBJ$W_SYMM_FLAGS ! Symbol flags: case. group OBJ$R_FILL_7_@ ! Weak resolution (0 = strong)>  ! Definition (0 = reference)D ! Universal definition (0 = local)B ! Relative symbol (0 = absolute)~ BYTE SYMM_WEAK_bits ! COMMENT ADDED BY SDL - SYMM_WEAK_bits contains bits SYMM_WEAK through & ! FILL_11_2 end group OBJ$R_FILL_7_# end variant, end group OBJ$R_FILL_6_H BYTE OBJ$B_SYMM_PSIND ! P SECT index (only if def)L LONG OBJ$L_SYMM_VALUE ! Value of symbol (only if def)Z LONG OBJ$L_SYMM_VERSION_MASK ! Version mask of symbol (only if def)P STRING OBJ$T_SYMM_NAME = 1 ! Symbol name (counted string)4 end group OBJ$R_GLOBAL_SYMM_RECORD case0 group OBJ$R_GLOBAL_EPMM_RECORDT BYTE OBJ$B_EPMM_DTYPE ! Data type (see Arch. Handbook, Ap. C)H  WORD OBJ$W_EPMM_FLAGS ! Flags (same as SYM_FLAGS)H BYTE OBJ$B_EPMM_PSIND ! PSECT index (only if def)L LONG OBJ$L_EPMM_VALUE ! Value of symbol (only if def)Z LONG OBJ$L_EPMM_VERSION_MASK ! Version mask of symbol (only if def)9 WORD OBJ$W_EPMM_MASK ! Entry maskP STRING OBJ$T_EPMM_NAME = 1 ! Symbol name (counted string)4 end group OBJ$R_GLOBAL_EPMM_RECORD  case( group OBJ$R_EOM_RECORDH BYTE OBJ$B_EOM_SEV ! Error severity for moduleN BYTE OBJ$B_EOM_PSIND ! PSECT index of transfer address? LONG OBJ$L_EOM_TRANS ! Transfer address, end group OBJ$R_EOM_RECORD end variant( end group OBJ$R_RECORDS_OVERLAY end record SDADEFS C DECLARE LONG CONSTANT OBJ$C_HDR = 0 ! Module header record E DECLARE LONG CONSTANT OBJ$C_HDR_MHD = 0 ! Main header record L DECLARE LONG CONSTANT OBJ$C_HDR_LNM = 1 ! Language processor record K DECLARE LONG CONSTANT OBJ$C_HDR_SRC = 2 ! Source files description = DECLARE LONG CONSTANT OBJ$C_HDR_TTL = 3 ! Title text A DECLARE LONG CONSTANT OBJ$C_HDR_CPR = 4 ! Copyright text C DECLARE LONG CONSTANT OBJ$C_HDR_MTC = 5 ! Maintenance text ? DECLARE LONG CONSTANT OBJ$C_HDR_GTX = 6 ! General text N DECLARE LONG CONSTANT OBJ$C_GSD = 1 ! Global symbol definition record D DECLARE LONG CONSTANT OBJ$C_GSD_PSC = 0 ! P-sect definition M DECLARE LONG CONSTANT OBJ$C_GSD_SYM = 1 ! Symbol (simple) definition I DECLARE LONG CONSTANT OBJ$C_GSD_EPM = 2 ! Entry point definition G DECLARE LONG CONSTANT OBJ$C_GSD_PRO = 3 ! Procedure definition U DECLARE LONG CONSTANT OBJ$C_GSD_SYMW = 4 ! Symbol definition with word psect Z DECLARE LONG CONSTANT OBJ$C_GSD_EPMW = 5 ! Entry point definition with word psect X DECLARE LONG CONSTANT OBJ$C_GSD_PROW = 6 ! Procedure definition with word psect F DECLARE LONG CONSTANT OBJ$C_GSD_IDC = 7 ! Random entity check I DECLARE LONG CONSTANT OBJ$C_GSD_ENV = 8 ! Environment definition T DECLARE LONG CONSTANT OBJ$C_GSD_LSY = 9 ! Local symbol definition/reference R DECLARE LONG CONSTANT OBJ$C_GSD_LEPM = 10 ! Local symbol entry point def. P DECLARE LONG CONSTANT OBJ$C_GSD_LPRO = 11 ! Local symbol procedure def. U DECLARE LONG CONSTANT OBJ$C_GSD_SPSC = 12 ! Shareable image psect definition W DECLARE LONG CONSTANT OBJ$C_GSD_SYMV = 13 ! Global symbol definition (vectored)U DECLARE LONG CONSTANT OBJ$C_GSD_EPMV = 14 ! Entry point definition (vectored)S DECLARE LONG CONSTANT OBJ$C_GSD_PROV = 15 ! Procedure definition (vectored)d DECLARE LONG CONSTANT OBJ$C_GSD_SYMM = 16 ! Global symbol definition (special double valued)b DECLARE LONG CONSTANT OBJ$C_GSD_EPMM = 17 ! Entry point definition (special double valued)` DECLARE LONG CONSTANT OBJ$C_GSD_PROM = 18 ! Procedure definition (special double valued)F DECLARE LONG CONSTANT OBJ$C_TIR = 2 ! Text information record C DECLARE LONG CONSTANT OBJ$C_EOM = 3 ! End of module record J DECLARE LONG CONSTANT OBJ$C_DBG = 4 ! Debugger information record K DECLARE LONG CONSTANT OBJ$C_TBT = 5 ! Traceback information record D DECLARE LONG CONSTANT OBJ$C_LNK = 6 ! Link er options record S DECLARE LONG CONSTANT OBJ$C_EOMW = 7 ! End of module record with word psect M DECLARE LONG CONSTANT OBJ$C_MAXRECTYP = 7 ! Last assigned record type , DECLARE LONG CONSTANT OBJ$K_SUBTYP = 1, DECLARE LONG CONSTANT OBJ$C_SUBTYP = 1P DECLARE LONG CONSTANT OBJ$C_MAXRECSIZ = 2048 ! Maximum legal record size @ DECLARE LONG CONSTANT OBJ$C_STRLVL = 0 ! Structure level G DECLARE LONG CONSTANT OBJ$C_SYMSIZ = 31 ! Maximum symbol length [ DECLARE LONG CONSTANT OBJ$C_STOREPLIM = -1 ! Maximum repeat count on store commands L DECLARE LONG CONSTANT OBJ$C_PSCALILIM = 9 ! Maximum p-sect alignment / DECLARE LONG CONSTANT OBJ$S_OBJRECDEF = 5 record OBJRECDEFL BYTE OBJ$B_RECTYP ! First byte always record type  ! Permissable record types C BYTE OBJ$B_SUBTYP ! Record sub-type byte > BYTE OBJ$B_MHD_STRLV ! Structure level & group OBJ$R_MHD_RECSZ_OVERLAY variant caseB WORD OBJ$W_MHD_RECSZ ! Maximum record size  case. group OBJ$R_MHD_RECSZ_FIELDS7 BYTE OBJRECDEF$$_FILL_1 ( 1 to 2 )D STRING OBJ$T_MHD_NAME = 0 ! Module name field  ! Misc. constants 2 end group OBJ$R_MHD_RECSZ_FIELDS end variant* end group OBJ$R_MHD_RECSZ_OVERLAY end record OBJRECDEF   wwI ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ! ! Module header record (MHD) ! A DECLARE LONG CONSTANT MHD$C_MHD = 0 ! Main header record H DECLARE LONG CONSTANT MHD$C_LNM = 1 ! Language name and version H DECLARE LONG CON STANT MHD$C_SRC = 2 ! Source file specification C DECLARE LONG CONSTANT MHD$C_TTL = 3 ! Title text of module ? DECLARE LONG CONSTANT MHD$C_CPR = 4 ! Copyright notice A DECLARE LONG CONSTANT MHD$C_MTC = 5 ! Maintenence status ; DECLARE LONG CONSTANT MHD$C_GTX = 6 ! General text J DECLARE LONG CONSTANT MHD$C_MAXHDRTYP = 6 ! Maximum allowable type , DECLARE LONG CONSTANT MHD$S_MHDEF = 37 record MHDEFF BYTE MHD$B_RECTYP ! Record type (OBJ$C_MHD) A BYTE MHD$B_HDRTYP ! Type field for MHD  ! Types of header records > BYTE MHD$B_STRLVL ! Structure level B WORD MHD$W_RECSIZ ! Maximum record size A BYTE MHD$B_NAMLNG ! Module name length : STRING MHD$T_NAME = 31 ! Module name  end record MHDEF  wwGQ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ! ! End of module record (EOM) ! H DECLARE LONG CONSTANT EOM$C_SUCCESS = 0 ! Successful (no errors) A DECLARE LONG CONSTANT EOM$C_WARNING = 1 ! Warnings issued ? DECLARE LONG CONSTANT EOM$C_ERROR = 2 ! Errors detected > DECLARE LONG CONSTANT EOM$C_ABORT = 3 ! Abort the link I DECLARE LONG CONSTANT EOM$K_EOMMIN = 2 ! Min length of EOM record I DECLARE LONG CONSTANT EOM$C_EOMMIN = 2 ! Min length of EOM record X DECLARE LONG CONSTANT EOM$K_EOMMX1 = 7 ! Length of EOM record w/o transfer flags X DECLARE LONG CONSTANT EOM$C_EOMMX1 = 7 ! Length of EOM record w/o transfer flags M DECLARE LONG CONSTANT EOM$K_EOMMAX = 8 ! Maximum length of EOM record M DECLARE LONG CONSTANT EOM$C_EOMMAX = 8 ! Maximum length of EOM record 5 DECLARE LONG CONSTANT EOM$M_WKTFR = x'00000001', DECLARE LONG CONSTANT EOM$S_EOMDEF = 8 record EOMDEFF BYTE EOM$B_RECTYP ! Record type (OBJ$C_EOM) G BYTE EOM$B_COMCOD ! Compiler completion code ! Values I BYTE EOM$B_PSINDX ! P-sect of transfer address ? LONG EOM$L_TFRADR ! Tran sfer address # group EOM$R_TFRFLG_OVERLAY variant caseE BYTE EOM$B_TFRFLG ! Transfer address flags  case) group EOM$R_TFRFLG_BITS1 ! Transfer address is weak o BYTE WKTFR_bits ! COMMENT ADDED BY SDL - WKTFR_bits contains bits WKTFR through FILL_12_- end group EOM$R_TFRFLG_BITS end variant' end group EOM$R_TFRFLG_OVERLAY end record EOMDEF  wwsX ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 5 ! End of module record with word of psect (EOMW) ! J DECLARE LONG CONSTANT EOMW$K_EOMMIN = 2 ! Min length of EOM record J DECLARE LONG CONSTANT EOMW$C_EOMMIN = 2 ! Min length of EOM r ecord Z DECLARE LONG CONSTANT EOMW$K_EOMMX1 = 8 ! Length of EOMW record w/o transfer flags Z DECLARE LONG CONSTANT EOMW$C_EOMMX1 = 8 ! Length of EOMW record w/o transfer flags O DECLARE LONG CONSTANT EOMW$K_EOMMAX = 9 ! Maximum length of EOMW record O DECLARE LONG CONSTANT EOMW$C_EOMMAX = 9 ! Maximum length of EOMW record 6 DECLARE LONG CONSTANT EOMW$M_WKTFR = x'00000001'. DECLARE LONG CONSTANT EOMW$S_EOMWDEF = 9 record EOMWDEFF BYTE EOMW$B_REC TYP ! Record type (OBJ$C_EOM) G BYTE EOMW$B_COMCOD ! Compiler completion code I WORD EOMW$W_PSINDX ! P-sect of transfer address ? LONG EOMW$L_TFRADR ! Transfer address $ group EOMW$R_TFRFLG_OVERLAY variant caseE BYTE EOMW$B_TFRFLG ! Transfer address flags  case* group EOMW$R_TFRFLG_BITS1 ! Transfer address is weak o BYTE WKTFR_bits ! COMMENT ADDED BY SDL - WKTFR_bits contains bits WKTFR through FILL_13_. end group EOMW$R_TFRFLG_BITS end variant( end group EOMW$R_TFRFLG_OVERLAY end record EOMWDEF  ww_ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! " ! Linker Options Record (LNK) ! C DECLARE LONG CONSTANT LNK$C_OLB = 0 ! object library spec L DECLARE LONG CONSTANT LNK$C_SHR = 1 ! shareable image library spec S DECLARE LO NG CONSTANT LNK$C_OLI = 2 ! object library with inclusion list O DECLARE LONG CONSTANT LNK$C_OBJ = 3 ! object file or symbol table fileM DECLARE LONG CONSTANT LNK$C_SHA = 4 ! individually specified shr imgP DECLARE LONG CONSTANT LNK$C_MAXRECTYP = 4 ! highest current record type 6 DECLARE LONG CONSTANT LNK$M_SELSER = x'00000001'7 DECLARE LONG CONSTANT LNK$M_LIBSRCH = x'00000002', DECLARE LONG CONSTANT LNK$S_LNKDEF = 6 record LNKDEF? B YTE LNK$B_RECTYP ! record type LNK ? BYTE LNK$B_LNKTYP ! sub record type " group LNK$R_FLAGS_OVERLAY variant case" WORD LNK$W_FLAGS case( group LNK$R_FLAGS_BITS9 ! selectively searched (LNK$C_OBJ)r BYTE SELSER_bits ! COMMENT ADDED BY SDL - SELSER_bits contains bits SELSER through FILL_14_, end group LNK$R_FLAGS_BITS end variant& end group LNK$R_FLAGS_OVERLAY# group LNK$R_NAMLNG_OVERLAY variant caseG WORD LNK$W_NAMLNG ! length of filespec name  case+ group LNK$R_NAMLNG_FIELDS4 BYTE LNKDEF$$_FILL_1 ( 1 to 2 ); STRING LNK$T_NAME = 0 ! actual name / end group LNK$R_NAMLNG_FIELDS end variant'  end group LNK$R_NAMLNG_OVERLAY end record LNKDEF  ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! , ! Global symbol definition record (GSD) ! Q DECLARE LONG CONSTANT GSD$K_ENTRIES = 1 ! Offset to first entry in record Q DECLARE LONG CONSTANT GSD$C_ENTRIES = 1 ! Offset to first entry in record ? DECLARE LONG CONSTANT GSD$C_PSC = 0 ! Psect definition C DECLARE LONG CONSTANT GSD$C_SYM = 1 ! Symbol specification N DECLARE LONG CONSTANT GSD$C_EPM = 2 ! Entry point and mask definition N DECLARE LONG CONSTANT GSD$C_PRO = 3 ! Procedure with formal arguments S DECLARE LONG CONSTANT GSD$C_SYMW = 4 ! Symbol specification with word psect O DECLARE LONG CONSTANT GSD$C_EPMW = 5 ! Entry point mask with word psect H DECLARE LONG CONSTANT GSD$C_PROW = 6 ! Procedure with word psect B DECLARE LONG CONSTANT GSD$C_IDC = 7 ! Random entity check A DECLARE LONG CONSTANT GSD$C_ENV = 8 ! Define environment ; DECLARE LONG CONSTANT GSD$C_LSY = 9 ! Local symbol S DECLARE LONG CONSTANT GSD$C_LEPM = 10 ! Local symbol entry point definition Q DECLARE LONG CONSTANT GSD$C_LPRO = 11 ! Local symbol procedure definition P DECLARE LONG CONSTANT GSD$C_SPSC = 12 ! Shareable image psect definition  ! <  DECLARE LONG CONSTANT GSD$C_VECTOR_TYPE_INCREMENT = 12V DECLARE LONG CONSTANT GSD$C_SYMV = 13 ! Vectored (dual-valued) versions of SYM,4 DECLARE LONG CONSTANT GSD$C_EPMV = 14 ! EPM,3 DECLARE LONG CONSTANT GSD$C_PROV = 15 ! PRO ! : DECLARE LONG CONSTANT GSD$C_MASK_TYPE_INCREMENT = 15F DECLARE LONG CONSTANT GSD$C_SYMM = 16 ! Masked versions of SYM,9 DECLARE LONG CONSTANT GSD$C_EPMM = 17 ! EPM,8 DECLARE LONG CONSTANT GSD$C_PROM = 18 !  PROO DECLARE LONG CONSTANT GSD$C_MAXRECTYP = 18 ! Maximum entry type defined + DECLARE LONG CONSTANT GSD$S_GSDEF = 2 record GSDEFF BYTE GSD$B_RECTYP ! Record type (OBJ$C_GSD) R BYTE GSD$B_GSDTYP ! Type of entry (first byte of entry) O ! Vectored symbol types are (regular + 12). For example, SYMV = SYM + 12. ! K ! Mask symbol types are (regular + 15). For example, SYMM = SYM + 15. !  end record GSDEF  wwn ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ' ! GSD entry - P-section definition ! 3 DECLARE LONG CONSTANT GPS$M_PIC = x'00000001'3 DECLARE LONG CONSTANT GPS$M_LIB = x'00000002'3 DECLARE LONG CONSTANT GPS$M_OVR = x'00000004 '3 DECLARE LONG CONSTANT GPS$M_REL = x'00000008'3 DECLARE LONG CONSTANT GPS$M_GBL = x'00000010'3 DECLARE LONG CONSTANT GPS$M_SHR = x'00000020'3 DECLARE LONG CONSTANT GPS$M_EXE = x'00000040'2 DECLARE LONG CONSTANT GPS$M_RD = x'00000080'3 DECLARE LONG CONSTANT GPS$M_WRT = x'00000100'3 DECLARE LONG CONSTANT GPS$M_VEC = x'00000200'5 DECLARE LONG CONSTANT GPS$M_NOMOD = x'00000400'3 DECLARE LONG CONSTANT GPS$M_COM = x'00000800'* DECLARE LONG CONSTANT GPS$K_NAME = 9* DECLARE LONG CONSTANT GPS$C_NAME = 9- DECLARE LONG CONSTANT GPS$S_GPSDEF = 40 record GPSDEF# group GPS$R_GSDTYP_OVERLAY variant case8 BYTE GPS$B_GSDTYP ! Typ field  case+ group GPS$R_GSDTYP_FIELDS+ STRING GPS$T_START = 0) BYTE GPSDEF$$_FILL_1/ end group GPS$R_GSDTYP_FIELDS end variant' end group GPS$R_GSDTYP_OVERLAY? BYTE GPS$B_ALIGN ! P-sect alignment " group GPS$R_FLAGS_OVERLAY variant case; WORD GPS$W_FLAGS ! P-sect flags  case( group GPS$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Reloca table % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM symi WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through FILL_15_, end group GPS$R_FLAGS_BITS end variant& end group GPS$R_FLAGS_OVERLAYJ LONG GPS$L_ALLOC ! Length of this contribution D BYTE GPS$B_NAMLNG ! Length of p-sect name 9 STRING GPS$T_NAME = 31 ! Name field  end record GPSDEF  ww(v ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! : ! GSD entry - P-section definition in shareable image ! 4 DECLARE LONG CONSTANT SGPS$M_PIC = x'00000001'4 DECLARE LONG CONSTANT SGPS$M_LIB = x'00000002'4 DECLARE LONG CONSTANT SGPS $M_OVR = x'00000004'4 DECLARE LONG CONSTANT SGPS$M_REL = x'00000008'4 DECLARE LONG CONSTANT SGPS$M_GBL = x'00000010'4 DECLARE LONG CONSTANT SGPS$M_SHR = x'00000020'4 DECLARE LONG CONSTANT SGPS$M_EXE = x'00000040'3 DECLARE LONG CONSTANT SGPS$M_RD = x'00000080'4 DECLARE LONG CONSTANT SGPS$M_WRT = x'00000100'4 DECLARE LONG CONSTANT SGPS$M_VEC = x'00000200'6 DECLARE LONG CONSTANT SGPS$M_NOMOD = x'00000400'4 DECLARE LONG CONSTANT SGPS$M_COM = x'00000800', DECLARE LONG CONSTANT SGPS$K_NAME = 13, DECLARE LONG CONSTANT SGPS$C_NAME = 13/ DECLARE LONG CONSTANT SGPS$S_SGPSDEF = 44 record SGPSDEF$ group SGPS$R_GSDTYP_OVERLAY variant case8 BYTE SGPS$B_GSDTYP ! Typ field  case, group SGPS$R_GSDTYP_FIELDS, STRING SGPS$T_START = 0* BYTE SGPSDEF$$_FILL_10 end group SGPS$R_GSDTYP_FIELDS end variant( end group SGPS$R_GSDTYP_OVERLAY? BYTE SGPS$B_ALIGN ! P-sect alignment # group SGPS$R_FLAGS_OVERLAY variant case; WORD SGPS$W_FLAGS ! P-sect flags  case) group SGPS$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $  ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM symi WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through FILL_16_- end group SGPS$R_FLAGS_B ITS end variant' end group SGPS$R_FLAGS_OVERLAYP LONG SGPS$L_ALLOC ! Length of this psect in shr image N LONG SGPS$L_BASE ! Base of this psect in shr image D BYTE SGPS$B_NAMLNG ! Length of p-sect name 9 STRING SGPS$T_NAME = 31 ! Name field  end record SGPSDEF  ww(} ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! $ ! GSD entry - Symbol definition ! 3 ! common to definitions, references, and entry ! point definitions. ! 4 DECLARE LONG CONSTANT GSY$M_WEAK = x'00000001'3 DECLARE LONG  CONSTANT GSY$M_DEF = x'00000002'3 DECLARE LONG CONSTANT GSY$M_UNI = x'00000004'3 DECLARE LONG CONSTANT GSY$M_REL = x'00000008'4 DECLARE LONG CONSTANT GSY$M_COMM = x'00000010', DECLARE LONG CONSTANT GSY$S_GSYDEF = 4 record GSYDEF# group GSY$R_GSDTYP_OVERLAY variant case9 BYTE GSY$B_GSDTYP ! Type field  case+ group GSY$R_GSDTYP_FIELDS+ STRING GSY$T_START = 0) BYTE GSYDEF$$_FILL_1/ end group GSY$R_GSDTYP_FIELDS end variant' end group GSY$R_GSDTYP_OVERLAY? BYTE GSY$B_DATYP ! Symbol data type " group GSY$R_FLAGS_OVERLAY variant case; WORD GSY$W_FLAGS ! Symbol flags  case( group GSY$R_FLAGS_BITS$ ! Weak symbol # ! Definition " ! Universal $ ! Relocatable * ! C common globaldefl BYTE WEAK_bits ! COMMENT ADDED BY SDL - WEAK_bits contains bits WEAK through FILL_17_, end group GSY$R_FLAGS_BITS end variant& end group GSY$R_FLAGS_OVERLAY end record GSYDEF  ww) ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 7 ! Symbol reference (SYM$M_DEF in GSY$W_FLAGS is 0) ! * DECLARE LONG CONSTANT SRF$K_NAME = 5* DECLARE LONG CONSTANT SRF$C_NAME = 5- DECLARE LONG CONSTANT SRF$S_SRFDEF = 36 record SRFDEF# group SRF$R_GSDTYP_OVERLAY variant caseE BYTE SRF$B_GSDTYP ! Maps over GSY$B_GSDTYP  case+ group SRF$R_GSDTYP_FIELDS+ STRING SRF$T_START = 0) BYTE SRFDEF$$_FILL_1/ end group SRF$R_GSDTYP_FIELDS end variant' end group SRF$R_GSDTYP_OVERLAYD BYTE SRF$B_DATYP ! Maps over GSY$B_DATYP D WORD SRF$W_FLAGS ! Maps over GSY$W_FLAGS D BYTE SRF$B_NAMLNG ! Length of symbol name : STRING SRF$T_NAME = 31 ! Symbol name  end record SRFDEF  ww( ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! Symbol definition ! + DECLARE LONG CONSTANT SDF$K_NAME = 10+ DECLARE LONG CONSTANT SDF$C_NAME = 10- DECLARE LONG CONSTANT SDF$S_SDFDEF = 41 record SDFDEF# gro up SDF$R_GSDTYP_OVERLAY variant caseE BYTE SDF$B_GSDTYP ! Maps over GSY$B_GSDTYP  case+ group SDF$R_GSDTYP_FIELDS+ STRING SDF$T_START = 0) BYTE SDFDEF$$_FILL_1/ end group SDF$R_GSDTYP_FIELDS end variant' end group SDF$R_GSDTYP_OVERLAYD BYTE SDF$B_DATYP ! Maps over GSY$B_DATYP D WORD SDF$ W_FLAGS ! Maps over GSY$W_FLAGS B BYTE SDF$B_PSINDX ! Owning psect number > LONG SDF$L_VALUE ! Value of symbol = BYTE SDF$B_NAMLNG ! Length of name : STRING SDF$T_NAME = 31 ! Symbol name  end record SDFDEF  ww( ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! - ! Symbol definition for vectored symbols ! , DECLARE LONG CONSTANT SDFV$K_NAME = 14, DECLARE LONG CONSTANT SDFV$C_NAME = 14/ DECLARE LONG CONSTANT SDFV$S_SDFVDEF = 45 reco rd SDFVDEF$ group SDFV$R_GSDTYP_OVERLAY variant caseE BYTE SDFV$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group SDFV$R_GSDTYP_FIELDS, STRING SDFV$T_START = 0* BYTE SDFVDEF$$_FILL_10 end group SDFV$R_GSDTYP_FIELDS end variant( end group SDFV$R_GSDTYP_OVERLAYD BYTE SDFV$B_DATYP ! Maps over GSY$B_DA TYP D WORD SDFV$W_FLAGS ! Maps over GSY$W_FLAGS B BYTE SDFV$B_PSINDX ! Owning psect number > LONG SDFV$L_VALUE ! Value of symbol F LONG SDFV$L_VECTOR ! Vectored value of symbol= BYTE SDFV$B_NAMLNG ! Length of name : STRING SDFV$T_NAME = 31 ! Symbol name  end record SDFVDEF  ww ! *** PREDECLARED TYPESM (: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )E END RECORD!* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF M: %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORDP* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED (I ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 1 ! Symbol definition for version mask symbols ! , DECLARE LONG CONSTANT SDFM$K_NAME = 14, DECLARE LONG CONSTANT SDFM$C_NAME = 14/ DECLARE LONG CONSTANT SDFM$S_SDFMDEF = 45 record SDFMDEF$ group SDFM$R_GSDTYP_OVERLAY variant caseE BYTE SDFM$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group SDFM$R_GSDTYP_FIELDS, STRING SDFM$T_START = 0* BYTE SDFMDEF$$_FILL_10 end group SDFM$R_GSDTYP_FIELDS end variant( end group SDFM$R_GSDTYP_OVERLAYD BYTE SDFM$B_DATYP ! Maps over GSY$ B_DATYP D WORD SDFM$W_FLAGS ! Maps over GSY$W_FLAGS B BYTE SDFM$B_PSINDX ! Owning psect number > LONG SDFM$L_VALUE ! Value of symbol = LONG SDFM$L_VERSION_MASK ! Mask for symbol= BYTE SDFM$B_NAMLNG ! Length of name : STRING SDFM$T_NAME = 31 ! Symbol name  end record SDFMDEF  wwu ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 9 ! GSD entry - Entry point definition, normal symbols ! + DECLARE LONG CONSTANT EPM$K_NAME = 12+ DECLARE LONG CONSTANT EPM$C_NAME = 12- DECLARE LONG CONSTANT EPM$S_EPMDEF = 43  record EPMDEF# group EPM$R_GSDTYP_OVERLAY variant caseE BYTE EPM$B_GSDTYP ! Maps over GSY$B_GSDTYP  case+ group EPM$R_GSDTYP_FIELDS+ STRING EPM$T_START = 0) BYTE EPMDEF$$_FILL_1/ end group EPM$R_GSDTYP_FIELDS end variant' end group EPM$R_GSDTYP_OVERLAYD BYTE EPM$B_DATYP ! Maps ove r GSY$B_DATYP D WORD EPM$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE EPM$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG EPM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE ? WORD EPM$W_MASK ! Entry point mask = BYTE EPM$B_NAMLNG ! Length of name : STRING EPM$T_NAME = 31 ! Symbol name  end record EPMDEF  wwȩ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ; ! GSD entry - Entry point definition, vectored symbols ! , DECLARE LONG CONSTANT EPMV$K_NAME = 16, DECLARE LONG CONSTANT EPMV$C_NAME = 16/ DECLARE LONG CONSTANT EPMV$S_EPMVDEF = 47 record EPMVDEF$ group EPMV$R_GSDTYP_OVERLAY variant caseE BYTE EPMV$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group EPMV$R_GSDTYP_FIELDS, STRING EPMV$T_START = 0* BYTE EPMVDEF$$_FILL_10 end group EPMV$R_GSDTYP_FIELDS end variant( end group EPMV$R_GSDTYP_OVERLAYD BYTE EPMV$B_DATYP ! Maps over GSY$B_DATYP D WORD EPMV$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE EPMV$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG EPMV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE J LONG EPMV$L_VECTOR ! Vectored entry point address? WORD EPMV$W_MASK ! Entry point mask = BYTE EPMV$B_NAMLNG ! Length of name : STRING EPMV$T_NAME = 31 ! Symbol name  end record EPMVDEF  ww̰ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ? ! GSD entry - Entry point definition, version mask symbols ! , DECLARE LONG CONSTANT EPMM$K_NAME = 16, DECLARE LONG CONSTANT EPMM$C_NAME = 16/ DECLARE LONG CONSTANT EPMM$S_EPMMDEF = 47 record EPMMDEF$ group EPMM$R_GSDTYP_OVERLAY variant caseE BYTE EPMM$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group EPMM$R_GSDTYP_FIELDS, STRING EPMM$T_START = 0* BYTE EPMMDEF$$_FILL_10 end group EPMM$R_GSDTYP_FIELDS end variant( end group EPMM$R_GSDTYP_OVERLAYD BYTE EPMM$B_DATYP ! Maps over GSY$B_DATYP D WORD EPMM$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE EPMM$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG EPMM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE C LONG EPMM$L_VERSION_MASK ! Mask value for symbol? WORD EPMM$W_MASK ! Entry point mask = BYTE EPMM$B_NAMLNG ! Length of name : STRING EPMM$T_NAME = 31 ! Symbol name  end record EPMMDEF  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 7 ! GSD entry - Procedure definition, normal symbols ! + DECLARE LONG CONSTANT PRO$K_NAME = 12+ DECLARE LONG CONSTANT PRO$C_NAME = 12- DECLARE LONG CONSTANT PRO$S_PRODEF = 43  record PRODEF# group PRO$R_GSDTYP_OVERLAY variant caseE BYTE PRO$B_GSDTYP ! Maps over GSY$B_GSDTYP  case+ group PRO$R_GSDTYP_FIELDS+ STRING PRO$T_START = 0) BYTE PRODEF$$_FILL_1/ end group PRO$R_GSDTYP_FIELDS end variant' end group PRO$R_GSDTYP_OVERLAYD BYTE PRO$B_DATYP ! Maps over GSY$B_DATYP D WORD PRO$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE PRO$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG PRO$L_ADDRS ! Entry point address, maps over SDF$L_VALUE ? WORD PRO$W_MASK ! Entry point mask = BYTE PRO$B_NAMLNG ! Length of name : STRING PRO$T_NAME = 31 ! Symbol name  end record PRODEF  ww$ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >   %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 9 ! GSD entry - Procedure definition, vectored symbols ! , DECLARE LONG CONSTANT PROV$K_NAME = 16, DECLARE LONG CONSTANT PROV$C_NAME = 16/ DECLARE LONG CONSTANT PROV$S_PROVDEF = 47  record PROVDEF$ group PROV$R_GSDTYP_OVERLAY variant caseE BYTE PROV$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group PROV$R_GSDTYP_FIELDS, STRING PROV$T_START = 0* BYTE PROVDEF$$_FILL_10 end group PROV$R_GSDTYP_FIELDS end variant( end group PROV$R_GSDTYP_OVERLAYD BYTE PROV$B_DATYP ! Maps o ver GSY$B_DATYP D WORD PROV$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE PROV$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG PROV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE J LONG PROV$L_VECTOR ! Vectored entry point address? WORD PROV$W_MASK ! Entry point mask = BYTE PROV$B_NAMLNG ! Length of name : STRING PROV$T_NAME = 31 ! Symbol name  end record PROVDEF  ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! = ! GSD entry - Procedure definition, version mask symbols ! , DECLARE LONG CONSTANT PROM$K_NAME = 16, DECLARE LONG CONSTANT PROM$C_NAME = 16/ DECLARE LONG CONSTANT PROM$S_PROMDEF = 47 record PROMDEF$ group PROM$R_GSDTYP_OVERLAY variant caseE BYTE PROM$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group PROM$R_GSDTYP_FIELDS, STRING PROM$T_START = 0* BYTE PROMDEF$$_FILL_10 end group PROM$R_GSDTYP_FIELDS end variant( end group PROM$R_GSDTYP_OVERLAYD BYTE PROM$B_DATYP ! Maps over GSY$B_DATYP D WORD PROM$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE PROM$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG PROM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE C LONG PROM$L_VERSION_MASK ! Mask value for symbol? WORD PROM$W_MASK ! Entry point mask = BYTE PROM$B_NAMLNG ! Length of name : STRING PROM$T_NAME = 31 ! Symbol name  end record PROMDEF  wwȣ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! C ! Appended to a procedure definition are the formal arguments:G ! FML$ - The fixed part of the formal arguments description ! * DECLARE LONG CONSTANT FML$K_SIZE = 2* DECLAR E LONG CONSTANT FML$C_SIZE = 2, DECLARE LONG CONSTANT FML$S_FMLDEF = 2 record FMLDEFJ BYTE FML$B_MINARGS ! Minimum number of arguments a BYTE FML$B_MAXARGS ! Maximum which include function if procedure is one  end record FMLDEF  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! - ! ARG$ - The argument descriptors ! I DECLARE LONG CONSTANT ARG$C_UNKNOWN = 0 ! Unspecified or unknown @ DECLARE LONG CONSTANT ARG$C_VALUE = 1 ! Passed by value C DECL ARE LONG CONSTANT ARG$C_REF = 2 ! Passed by reference D DECLARE LONG CONSTANT ARG$C_DESC = 3 ! Passed by descriptor * DECLARE LONG CONSTANT ARG$K_SIZE = 2* DECLARE LONG CONSTANT ARG$C_SIZE = 2, DECLARE LONG CONSTANT ARG$S_ARGDEF = 2 record ARGDEF# group ARG$R_VALCTL_OVERLAY variant caseF BYTE ARG$B_VALCTL ! Validation control byte  case) group ARG$R_VALCTL_BITS* ! Passing mechanism x BYTE PASSMECH_bits ! COMMENT ADDED BY SDL - PASSMECH_bits contains bits PASSMECH through FILL_18_- end group ARG$R_VALCTL_BITS ! Passing mechanisms  end variant' end group ARG$R_VALCTL_OVERLAYC BYTE ARG$B_BYTECNT ! Remaining byte count  end record ARGDEF  ww " ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED !( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN"G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > # %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 1 ! Symbol definition with word of psect value ! , DECLARE LONG CONSTANT SDFW$K_NAME = 11, DECLARE LONG CONSTANT SDFW$C_NAME = 11/ DECLARE LONG CONSTANT SDFW$S_SDFWDEF = 42 $record SDFWDEF$ group SDFW$R_GSDTYP_OVERLAY variant caseE BYTE SDFW$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group SDFW$R_GSDTYP_FIELDS, STRING SDFW$T_START = 0* BYTE SDFWDEF$$_FILL_10 end group SDFW$R_GSDTYP_FIELDS end variant( end group SDFW$R_GSDTYP_OVERLAYD BYTE SDFW$B_DATYP ! Maps over GSY$ B_DATYP D WORD SDFW$W_FLAGS ! Maps over GSY$W_FLAGS B WORD SDFW$W_PSINDX ! Owning psect number > LONG SDFW$L_VALUE ! Value of symbol = BYTE SDFW$B_NAMLNG ! Length of name : STRING SDFW$T_NAME = 31 ! Symbol name  end record SDFWDEF  ww&N ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED '( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN(G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ) %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! B ! GSD entry - Entry point definition with word of psect value ! , DECLARE LONG CONSTANT EPMW$K_NAME = 13, DECLARE LONG CONSTANT EPMW$C_NAME = 13/ DECLARE LONG CONSTANT EPMW$S_EPMWD*EF = 44 record EPMWDEF$ group EPMW$R_GSDTYP_OVERLAY variant caseE BYTE EPMW$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group EPMW$R_GSDTYP_FIELDS, STRING EPMW$T_START = 0* BYTE EPMWDEF$$_FILL_10 end group EPMW$R_GSDTYP_FIELDS end variant( end group EPMW$R_GSDTYP_OVERLAYD BYTE EPMW$B_DATYP ! Maps over GSY$B_DATYP D WORD EPMW$W_FLAGS ! Maps over GSY$W_FLAGS F WORD EPMW$W_PSINDX ! Maps over SDFW$W_PSINDX Z LONG EPMW$L_ADDRS ! Entry point address, maps over SDFW$L_VALUE ? WORD EPMW$W_MASK ! Entry point mask = BYTE EPMW$B_NAMLNG ! Length of name : STRING EPMW$T_NAME = 31 ! Symbol name  end record EPMWDEF  ww, ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED -( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN.G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > / %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! @ ! GSD entry - Procedure definition with word of psect value ! , DECLARE LONG CONSTANT PROW$K_NAME = 13, DECLARE LONG CONSTANT PROW$C_NAME = 13/ DECLARE LONG CONSTANT PROW$S_PROWDEF0 = 44 record PROWDEF$ group PROW$R_GSDTYP_OVERLAY variant caseE BYTE PROW$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group PROW$R_GSDTYP_FIELDS, STRING PROW$T_START = 0* BYTE PROWDEF$$_FILL_10 end group PROW$R_GSDTYP_FIELDS end variant( end group PROW$R_GSDTYP_OVERLAYD BYTE PROW$B_DATYP ! Maps over GSY$B_DATYP D WORD PROW$W_FLAGS ! Maps over GSY$W_FLAGS F WORD PROW$W_PSINDX ! Maps over SDFW$W_PSINDX Z LONG PROW$L_ADDRS ! Entry point address, maps over SDFW$L_VALUE ? WORD PROW$W_MASK ! Entry point mask = BYTE PROW$B_NAMLNG ! Length of name : STRING PROW$T_NAME = 31 ! Symbol name  end record PROWDEF  ww2 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED 3( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN4G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 5 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 2 ! IDC - Random entity ident consistency check ! ) DECLARE LONG CONSTANT IDC$C_LEQ = 0+ DECLARE LONG CONSTANT IDC$C_EQUAL = 1, DECLARE LONG CONSTANT IDC$S_IDCDEF = 4 record 6 IDCDEF9 BYTE IDC$B_GSDTYP ! Type field " group IDC$R_FLAGS_OVERLAY variant case4 WORD IDC$W_FLAGS ! Flags  case( group IDC$R_FLAGS_BITSC ! Ident is binary longword rather than ASCIC F ! Field for ident match control if binary ident > ! Error severity (default is warning-0) x BYTE BINIDE 7NT_bits ! COMMENT ADDED BY SDL - BINIDENT_bits contains bits BINIDENT through FILL_19_, end group IDC$R_FLAGS_BITS ! Match control values  end variant& end group IDC$R_FLAGS_OVERLAY# group IDC$R_NAMLNG_OVERLAY variant caseD BYTE IDC$B_NAMLNG ! Length of entity name  case+ group IDC$R_NAMLNG_FIELDS) BYTE IDCDEF$$_FILL_1/ 8 STRING IDC$T_NAME = 0 !  ! Followed by entity name ! Followed by" ! byte of ident length; ! ident string (length = string length) ! or5 ! ident binary value (length = 4)3 ! Followed by byte of length of name of object" ! Followed by the object name/ end group IDC$R_NAMLNG_FIELDS end variant' end group IDC$R_NAMLNG_OVERLAY end record IDCDEF  ww:G ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ;( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN<G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > = %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! , ! ENV - Define/reference an environment ! 3 DECLARE LONG CONSTANT ENV$M_DEF = x'00000001'6 DECLARE LONG CONSTANT ENV$M_NESTED = x'00000002'- DECLARE LONG CONSTANT ENV$S_ENVDEF = 3 >7 record ENVDEF9 BYTE ENV$B_GSDTYP ! Type field " group ENV$R_FLAGS_OVERLAY variant case@ WORD ENV$W_FLAGS ! Environment flags  case( group ENV$R_FLAGS_BITS2 ! Definition of environment 1 ! Nested environment if seti BYTE DEF_bits ! COMMENT ADDED BY SDL - DEF_bits contains bits DEF through FILL_20_ , end group ENV$R_FLAGS_BITS end variant& end group ENV$R_FLAGS_OVERLAYJ WORD ENV$W_ENVINDX ! Index of parent environment I BYTE ENV$B_NAMLNG ! Length of environment name ? STRING ENV$T_NAME = 31 ! Environment name  end record ENVDEF  ww  ! *** PREDECLARED TYPES  F: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORDR* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORDI* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED A ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED B( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINCG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > D %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! LSY - Module-Local symbol definition ! Q ! Common to definitions, references, entry points, and procedure definitions ! 4 DECLARE LONG CONSTANT LSY$M_WEAK = x'00000001'3 DE ECLARE LONG CONSTANT LSY$M_DEF = x'00000002'3 DECLARE LONG CONSTANT LSY$M_UNI = x'00000004'3 DECLARE LONG CONSTANT LSY$M_REL = x'00000008', DECLARE LONG CONSTANT LSY$S_LSYDEF = 6 record LSYDEF# group LSY$R_GSDTYP_OVERLAY variant case9 BYTE LSY$B_GSDTYP ! Type field  case+ group LSY$R_GSDTYP_FIELDS+ STRING LSY$T_START = 0) BYTE LSFYDEF$$_FILL_1/ end group LSY$R_GSDTYP_FIELDS end variant' end group LSY$R_GSDTYP_OVERLAY: BYTE LSY$B_DATYP ! Symbol type " group LSY$R_FLAGS_OVERLAY variant case; WORD LSY$W_FLAGS ! Symbol flags  case( group LSY$R_FLAGS_BITS/ ! Weak symbol (not used) ' ! Defined symbol - ! Universal (not used) $ ! Relocatable l BYTE WEAK_bits ! COMMENT ADDED BY SDL - WEAK_bits contains bits WEAK through FILL_21_, end group LSY$R_FLAGS_BITS end variant& end group LSY$R_FLAGS_OVERLAY@ WORD LSY$W_ENVINDX ! Environment index  end record LSYDEF  wwH ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED I( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINJG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > K %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! D ! Module-local Symbol reference (LSY$M_DEF in LSY$W_FLAGS is 0) ! + DECLARE LONG CONSTANT LSRF$K_NAME = 7+ DECLARE LONG CONSTANT LSRF$C_NAME = 7/ DECLARE LONG CONSTANT LSRF$S_LSRLFDEF = 38 record LSRFDEF$ group LSRF$R_GSDTYP_OVERLAY variant caseE BYTE LSRF$B_GSDTYP ! Maps over LSY$B_GSDTYP  case, group LSRF$R_GSDTYP_FIELDS, STRING LSRF$T_START = 0* BYTE LSRFDEF$$_FILL_10 end group LSRF$R_GSDTYP_FIELDS end variant( end group LSRF$R_GSDTYP_OVERLAYD BYTE LSRF$B_DATYP ! Maps over LSY$B_DATYP D WORD LSRF$W_FLAGS ! Maps over LSY$W_FLAGS F WORD LSRF$W_ENVINDX ! Maps over LSY$W_ENVINDX D BYTE LSRF$B_NAMLNG ! Length of symbol name : STRING LSRF$T_NAME = 31 ! Symbol name  end record LSRFDEF  wwN~ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED O( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINPG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > Q %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! % ! Module-local Symbol definition ! , DECLARE LONG CONSTANT LSDF$K_NAME = 13, DECLARE LONG CONSTANT LSDF$C_NAME = 13/ DECLARE LONG CONSTANT LSDF$S_LSDFDEF = 44 record LSDFDREF$ group LSDF$R_GSDTYP_OVERLAY variant caseE BYTE LSDF$B_GSDTYP ! Maps over LSY$B_GSDTYP  case, group LSDF$R_GSDTYP_FIELDS, STRING LSDF$T_START = 0* BYTE LSDFDEF$$_FILL_10 end group LSDF$R_GSDTYP_FIELDS end variant( end group LSDF$R_GSDTYP_OVERLAYD BYTE LSDF$B_DATYP ! Maps over LSY$B_DATYP D WORD LSDF$W_FLAGS ! Maps over LSY$W_FLAGS R WORD LSDF$W_ENVINDX ! Environment index symbol defined in B WORD LSDF$W_PSINDX ! Owning psect number > LONG LSDF$L_VALUE ! Value of symbol = BYTE LSDF$B_NAMLNG ! Length of name : STRING LSDF$T_NAME = 31 ! Symbol name  end record LSDFDEF  wwTN ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED U( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINVG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > W %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 6 ! GSD entry - Module local entry point definition ! , DECLARE LONG CONSTANT LEPM$K_NAME = 15, DECLARE LONG CONSTANT LEPM$C_NAME = 15/ DECLARE LONG CONSTANT LEPM$S_LEPMDEF = 46 X record LEPMDEF$ group LEPM$R_GSDTYP_OVERLAY variant caseE BYTE LEPM$B_GSDTYP ! Maps over LSY$B_GSDTYP  case, group LEPM$R_GSDTYP_FIELDS, STRING LEPM$T_START = 0* BYTE LEPMDEF$$_FILL_10 end group LEPM$R_GSDTYP_FIELDS end variant( end group LEPM$R_GSDTYP_OVERLAYD BYTE LEPM$B_DATYP ! Maps over YLSY$B_DATYP D WORD LEPM$W_FLAGS ! Maps over LSY$W_FLAGS R WORD LEPM$W_ENVINDX ! Environment index symbol defined in F WORD LEPM$W_PSINDX ! Maps over LSDF$W_PSINDX H LONG LEPM$L_ADDRS ! Entry point address, maps  ! over LSDF$L_VALUE? WORD LEPM$W_MASK ! Entry point mask = BYTE LEPM$B_NAMLNG ! Length of name : STRING LEPM$T_NAME = 31  ! Symbol name  end record LEPMDEF  ww[> ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED \( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN]G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ^ %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 4 ! GSD entry - Module Local Procedure definition ! , DECLARE LONG CONSTANT LPRO$K_NAME = 15, DECLARE LONG CONSTANT LPRO$C_NAME = 15/ DECLARE LONG CONSTANT LPRO$S_LPRODEF = 46 _ record LPRODEF$ group LPRO$R_GSDTYP_OVERLAY variant caseE BYTE LPRO$B_GSDTYP ! Maps over LSY$B_GSDTYP  case, group LPRO$R_GSDTYP_FIELDS, STRING LPRO$T_START = 0* BYTE LPRODEF$$_FILL_10 end group LPRO$R_GSDTYP_FIELDS end variant( end group LPRO$R_GSDTYP_OVERLAYD BYTE LPRO$B_DATYP ! Maps over LS `Y$B_DATYP D WORD LPRO$W_FLAGS ! Maps over LSY$W_FLAGS R WORD LPRO$W_ENVINDX ! Environment index symbol defined in F WORD LPRO$W_PSINDX ! Maps over LSDF$W_PSINDX H LONG LPRO$L_ADDRS ! Entry point address, maps  ! over LSDF$L_VALUE? WORD LPRO$W_MASK ! Entry point mask = BYTE LPRO$B_NAMLNG ! Length of name : STRING LPRO$T_NAME = 31  ! Symbol name  end record LPRODEF  wwb~$ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED c( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINdG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > e %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 4 ! Text, information and relocation record (TIR) ! K DECLARE LONG CONSTANT TIR$C_STA_GBL = 0 ! Stack global symbol value B DECLARE LONG CONSTANT TIR$C_STA_SB = 1 ! Stack signed byte Bf DECLARE LONG CONSTANT TIR$C_STA_SW = 2 ! Stack signed word ? DECLARE LONG CONSTANT TIR$C_STA_LW = 3 ! Stack longword R DECLARE LONG CONSTANT TIR$C_STA_PB = 4 ! Stack psect base plus byte offset R DECLARE LONG CONSTANT TIR$C_STA_PW = 5 ! Stack psect base plus word offset V DECLARE LONG CONSTANT TIR$C_STA_PL = 6 ! Stack psect base plus longword offset D DECLARE LONG CONSTANT TIR$C_STA_UB = 7 ! Stack unsigned byte D DECLARE LONG CONSTANT TIR$C_STA_UW = 8 g! Stack unsigned word G DECLARE LONG CONSTANT TIR$C_STA_BFI = 9 ! Stack byte from image H DECLARE LONG CONSTANT TIR$C_STA_WFI = 10 ! Stack word from image L DECLARE LONG CONSTANT TIR$C_STA_LFI = 11 ! Stack longword from image I DECLARE LONG CONSTANT TIR$C_STA_EPM = 12 ! Stack entry point mask f DECLARE LONG CONSTANT TIR$C_STA_CKARG = 13 ! Stack result of argument checking (true or false) i DECLARE LONG CONSTANT TIR$C_STA_WPB = 14 ! Stack psect base plus byteh offset -- word psect number i DECLARE LONG CONSTANT TIR$C_STA_WPW = 15 ! Stack psect base plus word offset -- word psect number p DECLARE LONG CONSTANT TIR$C_STA_WPL = 16 ! Stack psect base plus longword offset -- word of psect number K DECLARE LONG CONSTANT TIR$C_STA_LSY = 17 ! Stack local symbol value @ DECLARE LONG CONSTANT TIR$C_STA_LIT = 18 ! Stack literal W DECLARE LONG CONSTANT TIR$C_STA_LEPM = 19 ! Stack local symbol entry point mask V DECLARE LONGi CONSTANT TIR$C_MAXSTACOD = 19 ! Last assigned code of stack group V DECLARE LONG CONSTANT TIR$C_MINSTOCOD = 20 ! First assigned store command code C DECLARE LONG CONSTANT TIR$C_STO_SB = 20 ! Store signed byte C DECLARE LONG CONSTANT TIR$C_STO_SW = 21 ! Store signed word ? DECLARE LONG CONSTANT TIR$C_STO_L = 22 ! Store longword F DECLARE LONG CONSTANT TIR$C_STO_BD = 23 ! Store byte displaced F DECLARE LONG CONSTANT TIR$C_STO_WD = 24 ! Store word displaced jJ DECLARE LONG CONSTANT TIR$C_STO_LD = 25 ! Store longword displaced E DECLARE LONG CONSTANT TIR$C_STO_LI = 26 ! Store short literal T DECLARE LONG CONSTANT TIR$C_STO_PIDR = 27 ! Store pos. indep. data reference T DECLARE LONG CONSTANT TIR$C_STO_PICR = 28 ! Store pos. indep. code reference M DECLARE LONG CONSTANT TIR$C_STO_RSB = 29 ! Store repeated signed byte M DECLARE LONG CONSTANT TIR$C_STO_RSW = 30 ! Store repeated signed word I DECLARE LONG CONSTkANT TIR$C_STO_RL = 31 ! Store repeated longword H DECLARE LONG CONSTANT TIR$C_STO_VPS = 32 ! Store arbitrary field F DECLARE LONG CONSTANT TIR$C_STO_USB = 33 ! Store unsigned byte F DECLARE LONG CONSTANT TIR$C_STO_USW = 34 ! Store unsigned word O DECLARE LONG CONSTANT TIR$C_STO_RUB = 35 ! Store repeated unsigned byte O DECLARE LONG CONSTANT TIR$C_STO_RUW = 36 ! Store repeated unsigned word ; DECLARE LONG CONSTANT TIR$C_STO_B = 37 ! Store byte ; DECLlARE LONG CONSTANT TIR$C_STO_W = 38 ! Store word E DECLARE LONG CONSTANT TIR$C_STO_RB = 39 ! Store repeated byte E DECLARE LONG CONSTANT TIR$C_STO_RW = 40 ! Store repeated word [ DECLARE LONG CONSTANT TIR$C_STO_RIVB = 41 ! Store repeated immediate variable bytes X DECLARE LONG CONSTANT TIR$C_STO_PIRR = 42 ! Store pos. indep. relative reference U DECLARE LONG CONSTANT TIR$C_MAXSTOCOD = 42 ! Last assigned store command code Y DECLARE LONG CONSTANT TIR$C_MINO mPRCOD = 50 ! First assigned operator command code 8 DECLARE LONG CONSTANT TIR$C_OPR_NOP = 50 ! No-op 6 DECLARE LONG CONSTANT TIR$C_OPR_ADD = 51 ! Add ; DECLARE LONG CONSTANT TIR$C_OPR_SUB = 52 ! Subtract ; DECLARE LONG CONSTANT TIR$C_OPR_MUL = 53 ! Multiply 9 DECLARE LONG CONSTANT TIR$C_OPR_DIV = 54 ! Divide > DECLARE LONG CONSTANT TIR$C_OPR_AND = 55 ! Logical AND G DECLARE LONG CONSTANT TIR$C_OPR_IOR = 56 ! Logical inclusive OR G DECLARE LOnNG CONSTANT TIR$C_OPR_EOR = 57 ! Logical exclusive OR 9 DECLARE LONG CONSTANT TIR$C_OPR_NEG = 58 ! Negate = DECLARE LONG CONSTANT TIR$C_OPR_COM = 59 ! Complement D DECLARE LONG CONSTANT TIR$C_OPR_INSV = 60 ! Insert bit field C DECLARE LONG CONSTANT TIR$C_OPR_ASH = 61 ! Arithmetic shift A DECLARE LONG CONSTANT TIR$C_OPR_USH = 62 ! Unsigned shift 9 DECLARE LONG CONSTANT TIR$C_OPR_ROT = 63 ! Rotate ` DECLARE LONG CONSTANT TIR$C_OPR_SEL = 64 ! Selecto one of three longwords on top of stack V DECLARE LONG CONSTANT TIR$C_OPR_REDEF = 65 ! Redefine this symbol after pass 2 E DECLARE LONG CONSTANT TIR$C_OPR_DFLIT = 66 ! Define a literal X DECLARE LONG CONSTANT TIR$C_MAXOPRCOD = 66 ! Last assigned operator command code X DECLARE LONG CONSTANT TIR$C_MINCTLCOD = 80 ! First assigned control command code H DECLARE LONG CONSTANT TIR$C_CTL_SETRB = 80 ! Set relocation base L DECLARE LONG CONSTANT TIR$C_CTL_AUGRB = 81 p! Augment relocation base J DECLARE LONG CONSTANT TIR$C_CTL_DFLOC = 82 ! Define debug location G DECLARE LONG CONSTANT TIR$C_CTL_STLOC = 83 ! Set debug location I DECLARE LONG CONSTANT TIR$C_CTL_STKDL = 84 ! Stack debug location W DECLARE LONG CONSTANT TIR$C_MAXCTLCOD = 84 ! Last assigned control command code , DECLARE LONG CONSTANT TIR$S_TIRDEF = 1 record TIRDEF variant caseF BYTE TIR$B_RECTYP ! Record type (OBJ$C_TIR) " ! Define relocation commands  end variant end record TIRDEF  ! + ! EVAX dependent structures start here !  wwr( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINsG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > t %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! J ! These are the record types defined for VAX and EVAX object records.G ! Some types are only recognized in one format of object file, but8 ! the types must be a single set of distinct codes.u ! H DECLARE LONG CONSTANT EOBJ$C_EMH = 8 ! EVAX module header record I DECLARE LONG CONSTANT EOBJ$C_EEOM = 9 ! EVAX end of module record U DECLARE LONG CONSTANT EOBJ$C_EGSD = 10 ! EVAX global symbol definition record M DECLARE LONG CONSTANT EOBJ$C_ETIR = 11 ! EVAX text information record Q DECLARE LONG CONSTANT EOBJ$C_EDBG = 12 ! EVAX Debugger information record R DECLARE LONG CONSTANT EOBJ$C_ETBT = 13 ! EVAX Traceback information record O DECLARvE LONG CONSTANT EOBJ$C_MAXRECTYP = 13 ! Last assigned record type - DECLARE LONG CONSTANT EOBJ$K_SUBTYP = 4- DECLARE LONG CONSTANT EOBJ$C_SUBTYP = 4Q DECLARE LONG CONSTANT EOBJ$C_MAXRECSIZ = 8192 ! Maximum legal record size A DECLARE LONG CONSTANT EOBJ$C_STRLVL = 2 ! Structure level B DECLARE LONG CONSTANT EOBJ$C_STRLVL64 = 3 ! Structure levelH DECLARE LONG CONSTANT EOBJ$C_SYMSIZ = 64 ! Maximum symbol length \ DECLARE LONG CONSTANT EOBJ$C_STOREPLIM = w -1 ! Maximum repeat count on store commands N DECLARE LONG CONSTANT EOBJ$C_PSCALILIM = 16 ! Maximum p-sect alignment 2 DECLARE LONG CONSTANT EOBJ$S_EOBJRECDEF = 10 record EOBJRECDEF ! A ! These are the record types defined for VAX object records. ! L WORD EOBJ$W_RECTYP ! First byte always record type J WORD EOBJ$W_SIZE ! Second is always record size ! Permissable record types C WORD EOBJ$W_SUBTYP x ! Record sub-type byte = BYTE EOBJ$B_MHD_STRLV ! Structure level= BYTE EOBJ$B_MHD_HOLD ! alignment temp ' group EOBJ$R_MHD_RECSZ_OVERLAY variant caseB WORD EOBJ$W_MHD_RECSZ ! Maximum record size  case/ group EOBJ$R_MHD_RECSZ_FIELDS8 BYTE EOBJRECDEF$$_FILL_1 ( 1 to 2 )E STRING EOBJ$T_MHD_NAME = 0 ! M odule name field  ! Misc. constants 3 end group EOBJ$R_MHD_RECSZ_FIELDS end variant+ end group EOBJ$R_MHD_RECSZ_OVERLAY end record EOBJRECDEF  wwz.2 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED {( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN|G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > } %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! & ! EVAX Module header record (EMH) ! A DECLARE LONG CONSTANT EMH$C_MHD = 0 ! Main header record H DECLARE LONG CONSTANT EMH$C_LNM = 1 ! Language name and version H DECLARE LONG ~ CONSTANT EMH$C_SRC = 2 ! Source file specification C DECLARE LONG CONSTANT EMH$C_TTL = 3 ! Title text of module ? DECLARE LONG CONSTANT EMH$C_CPR = 4 ! Copyright notice A DECLARE LONG CONSTANT EMH$C_MTC = 5 ! Maintenence status ; DECLARE LONG CONSTANT EMH$C_GTX = 6 ! General text J DECLARE LONG CONSTANT EMH$C_MAXHDRTYP = 6 ! Maximum allowable type - DECLARE LONG CONSTANT EMH$S_EMHDEF = 52 record EMHDEFF WORD EMH$W_RECTYP  ! Record type (OBJ$C_MHD) @ WORD EMH$W_SIZE ! length of this EMHA WORD EMH$W_HDRTYP ! Type field for MHD  ! Types of header records > BYTE EMH$B_STRLVL ! Structure level ; BYTE EMH$B_TEMP ! temp pad byteE LONG EMH$L_ARCH1 ! target architecture LW1E LONG EMH$L_ARCH2 ! target architecture LW2B LONG EMH$L_RECSIZ  ! Maximum record size A BYTE EMH$B_NAMLNG ! Module name length : STRING EMH$T_NAME = 31 ! Module name  end record EMHDEF  ww9 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ' ! EVAX End of module record (EEOM) ! I DECLARE LONG CONSTANT EEOM$C_SUCCESS = 0 ! Successful (no errors) B DECLARE LONG CONSTANT EEOM$C_WARNING = 1 ! Warnings issued @ DECLARE LONG CONSTANT EEOM$C_ERROR = 2 ! Errors detected ? DECLARE LONG CONSTANT EEOM$C_ABORT = 3 ! Abort the link K DECLARE LONG CONSTANT EEOM$K_EOMMIN = 10 ! Min length of EOM record K DECLARE LONG CONSTANT EEOM$C_EOMMIN = 10 ! Min length of EOM record Z DECLARE LONG CONSTANT EEOM$K_EOMMX1 = 10 ! Length of EOM record w/o transfer flags Z DECLARE LONG CONSTANT EEOM$C_EOMMX1 = 10 ! Length of EOM record w/o transfer flags 6 DECLARE LONG CONSTANT EEOM$M_WKTFR = x'000 00001'O DECLARE LONG CONSTANT EEOM$K_EOMMAX = 24 ! Maximum length of EOM record O DECLARE LONG CONSTANT EEOM$C_EOMMAX = 24 ! Maximum length of EOM record / DECLARE LONG CONSTANT EEOM$S_EEOMDEF = 24 record EEOMDEFF WORD EEOM$W_RECTYP ! Record type (OBJ$C_EOM) @ WORD EEOM$W_SIZE ! size of this EEMOD_ LONG EEOM$L_TOTAL_LPS ! Number of conditional linkage pairs - max-index/2G WORD EEOM$W_COMCO D ! Compiler completion code ! Values $ group EEOM$R_TFRFLG_OVERLAY variant caseE BYTE EEOM$B_TFRFLG ! Transfer address flags  case* group EEOM$R_TFRFLG_BITS1 ! Transfer address is weak o BYTE WKTFR_bits ! COMMENT ADDED BY SDL - WKTFR_bits contains bits WKTFR through FILL_22_. end group EEOM$R_TFRFLG_BITS  end variant( end group EEOM$R_TFRFLG_OVERLAYA BYTE EEOM$B_TEMP ! pad to align PSINDXI LONG EEOM$L_PSINDX ! P-sect of transfer address $ group EEOM$R_TFRADR_OVERLAY variant caseC BASIC$QUADWORD EEOM$Q_TFRADR ! Transfer address  case> LONG EEOM$L_TFRADR ! Transfer address end variant( end group EEOM$R_TFRADR_OVERLAY end record EEOMDEF  wwΉ@ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 2 ! EVAX Global symbol definition record (EGSD) ! R DECLARE LONG CONSTANT EGSD$K_ENTRIES = 2 ! Offset to first entry in record R DECLARE LONG CONSTANT EGSD$C_ENTRIES = 2 ! Offset to first entry in record ? DECLARE LONG CONSTANT EGSD$C_PSC = 0 ! Psect definition C DECLARE LONG CONSTANT EGSD$C_SYM = 1 ! Symbol specification B DECLARE LONG CONSTANT EGSD$C_IDC = 2 ! Random entity check P DECLARE LONG CONSTANT EGSD$C_SPSC = 5 ! Shareable image psect definition V DECLARE LONG CONSTANT EGSD$C_SYMV = 6 ! Vectored (dual-valued) versions of SYM,F DECLARE LONG CONSTANT EGSD$C_SYMM = 7 ! Masked versions of SYM,H DECLARE LONG CONSTANT EGSD$C_SYMG = 8 ! EGST - gst version of SYMH DECLARE LONG CONSTANT EGSD$C_PSC64 = 9 ! Psect with 64-bit lengtha DECLARE LONG CONSTANT EGSD$C_SPSC64 = 10 ! Shareable image psect definition w/64b len/baseP DECLARE LONG CONSTANT EGSD$C_MAXRECTYP = 10 ! Maximum entry type defined . DECLARE LONG CONSTANT EGSD$S_EGSDEF = 12 record EGSDEFF WORD EGSD$W_RECTYP ! Record type (OBJ$C_GSD) E WORD EGSD$W_RECSIZ ! Size of theis EVAX EGSDS  LONG EGSD$L_ALIGNLW ! Insure that subrecords are QW alignedR WORD EGSD$W_GSDTYP ! Type of entry (first byte of entry) A WORD EGSD$W_GSDSIZ ! Size of this entry  end record EGSDEF  ww*H ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! , ! EVAX GSD entry - P-section definition ! 4 DECLARE LONG CONSTANT EGPS$M_PIC = x'00000001'4 DECLARE LONG CONSTANT EGPS$M_LIB = x'00000002'4 DECLARE LONG CONSTANT EGPS$M_OVR = x'000 00004'4 DECLARE LONG CONSTANT EGPS$M_REL = x'00000008'4 DECLARE LONG CONSTANT EGPS$M_GBL = x'00000010'4 DECLARE LONG CONSTANT EGPS$M_SHR = x'00000020'4 DECLARE LONG CONSTANT EGPS$M_EXE = x'00000040'3 DECLARE LONG CONSTANT EGPS$M_RD = x'00000080'4 DECLARE LONG CONSTANT EGPS$M_WRT = x'00000100'4 DECLARE LONG CONSTANT EGPS$M_VEC = x'00000200'6 DECLARE LONG CONSTANT EGPS$M_NOMOD = x'00000400'4 DECLARE LONG CONSTANT EGPS$M_COM = x'00000800'< DECL ARE LONG CONSTANT EGPS$M_ALLOC_64BIT = x'00001000', DECLARE LONG CONSTANT EGPS$K_NAME = 12, DECLARE LONG CONSTANT EGPS$C_NAME = 12/ DECLARE LONG CONSTANT EGPS$S_EGPSDEF = 44 record EGPSDEF$ group EGPS$R_GSDTYP_OVERLAY variant case8 WORD EGPS$W_GSDTYP ! Typ field  case, group EGPS$R_GSDTYP_FIELDS, STRING EGPS$T_START = 0* WORD EGPSDEF$$_ FILL_10 end group EGPS$R_GSDTYP_FIELDS end variant( end group EGPS$R_GSDTYP_OVERLAY? WORD EGPS$W_SIZE ! size of this EGPS? BYTE EGPS$B_ALIGN ! P-sect alignment > BYTE EGPS$B_TEMP ! pad for aligning# group EGPS$R_FLAGS_OVERLAY variant case; WORD EGPS$W_FLAGS ! P-sect flags  case) group EGPS$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM sym, ! Load in 64-bit spacei WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through FILL_23_- end group EGPS$R_FLAGS_BITS end variant' end group EGPS$R_FLAGS_OVERLAYJ LONG EGPS$L_ALLOC ! Length of this contribution D BYTE EGPS$B_NAMLNG ! Length of p-sect name 9 STRING EGPS$T_NAME = 31 ! Name field   end record EGPSDEF  ! 3 ! EVAX GSD entry - 64-Bit P-section definition ! 6 DECLARE LONG CONSTANT EGPS64$M_PIC = x'00000001'6 DECLARE LONG CONSTANT EGPS64$M_LIB = x'00000002'6 DECLARE LONG CONSTANT EGPS64$M_OVR = x'00000004'6 DECLARE LONG CONSTANT EGPS64$M_REL = x'00000008'6 DECLARE LONG CONSTANT EGPS64$M_GBL = x'00000010'6 DECLARE LONG CONSTANT EGPS64$M_SHR = x'00000020'6 DECLARE LONG CONSTANT EGPS64$M_EXE = x'00000040'5 DECLARE LONG CONSTANT EGPS64$M_RD = x'00000080'6 DECLARE LONG CONSTANT EGPS64$M_WRT = x'00000100'6 DECLARE LONG CONSTANT EGPS64$M_VEC = x'00000200'8 DECLARE LONG CONSTANT EGPS64$M_NOMOD = x'00000400'6 DECLARE LONG CONSTANT EGPS64$M_COM = x'00000800'> DECLARE LONG CONSTANT EGPS64$M_ALLOC_64BIT = x'00001000'. DECLARE LONG CONSTANT EGPS64$K_NAME = 16. DECLARE LONG CONSTANT EGPS64$C_NAME = 163 DECLARE LONG CONSTANT EGPS64$S_EGPS64DEF = 48 record EGPS64DEF&  group EGPS64$R_GSDTYP_OVERLAY variant case8 WORD EGPS64$W_GSDTYP ! Typ field  case. group EGPS64$R_GSDTYP_FIELDS. STRING EGPS64$T_START = 0, WORD EGPS64DEF$$_FILL_12 end group EGPS64$R_GSDTYP_FIELDS end variant* end group EGPS64$R_GSDTYP_OVERLAY? WORD EGPS64$W_SIZE ! size of this EGPS? BYT E EGPS64$B_ALIGN ! P-sect alignment > BYTE EGPS64$B_TEMP ! pad for aligning% group EGPS64$R_FLAGS_OVERLAY variant case; WORD EGPS64$W_FLAGS ! P-sect flags  case+ group EGPS64$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM sym, ! Load in 64-bit spacei WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through FILL_24_/ end group EGPS64$R_FLAGS_BITS end variant) end group EGPS64$R_FLAGS_OVERLAY% group EGPS64$R_ALLOC_OVERLAY variant caseO BASIC$QUADWORD EGPS64$Q_ALLOC ! Length of this contribution  case; LONG EGPS64$L_ALLOC ! Low Longword end variant) end group EGPS64$R_ALLOC_OVERLAYD BYTE EGPS64$B_NAMLNG ! Length of p-sect name 9 STRING EGPS64$T_NAME = 31 ! Name field  end record EGPS64DEF  ww>AP ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ? ! EVAX GSD entry - P-section definition in shareable image ! 5 DECLARE LONG CONSTANT ESGPS$M_PIC = x'00000001'5 DECLARE LONG CONSTANT ESGPS$M_LIB = x'00000002'5 DECLARE LONG CON STANT ESGPS$M_OVR = x'00000004'5 DECLARE LONG CONSTANT ESGPS$M_REL = x'00000008'5 DECLARE LONG CONSTANT ESGPS$M_GBL = x'00000010'5 DECLARE LONG CONSTANT ESGPS$M_SHR = x'00000020'5 DECLARE LONG CONSTANT ESGPS$M_EXE = x'00000040'4 DECLARE LONG CONSTANT ESGPS$M_RD = x'00000080'5 DECLARE LONG CONSTANT ESGPS$M_WRT = x'00000100'5 DECLARE LONG CONSTANT ESGPS$M_VEC = x'00000200'7 DECLARE LONG CONSTANT ESGPS$M_NOMOD = x'00000400'5 DECLARE LONG CONST ANT ESGPS$M_COM = x'00000800'= DECLARE LONG CONSTANT ESGPS$M_ALLOC_64BIT = x'00001000'- DECLARE LONG CONSTANT ESGPS$K_NAME = 25- DECLARE LONG CONSTANT ESGPS$C_NAME = 251 DECLARE LONG CONSTANT ESGPS$S_ESGPSDEF = 56 record ESGPSDEF% group ESGPS$R_GSDTYP_OVERLAY variant case8 WORD ESGPS$W_GSDTYP ! Typ field  case- group ESGPS$R_GSDTYP_FIELDS- STRIN G ESGPS$T_START = 0+ BYTE ESGPSDEF$$_FILL_11 end group ESGPS$R_GSDTYP_FIELDS end variant) end group ESGPS$R_GSDTYP_OVERLAY@ WORD ESGPS$W_SIZE ! size of this ESGPS? BYTE ESGPS$B_ALIGN ! P-sect alignment @ BYTE ESGPS$B_TEMP ! pad for allignment$ group ESGPS$R_FLAGS_OVERLAY variant case; WORD ESGPS$W_FLAGS  ! P-sect flags  case* group ESGPS$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM sym, ! Load in 64-bit spacei WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through FILL_25_. end group ESGPS$R_FLAGS_BITS end variant( end group ESGPS$R_FLAGS_OVERLAYP LONG ESGPS$L_ALLOC ! Length of this psect in shr image ] LONG ESGPS$L_BASE ! Offset into img of psect, copy of symbol vector$ group ESGPS$R_VALUE_OVERLAY variant case. BASIC$QUADWORD ESGPS$Q_VALUE case$ LONG ESGPS$L_VALUE end variant( end group ESGPS$R_VALUE_OVERLAYD BYTE ESGPS$B_NAMLNG ! Length of p-sect name 9 STRING ESGPS$T_NAME = 31 ! Name field  end record ESGPSDEF  ! F ! EVAX GSD entry - 64-Bit P-section  definition in shareable image ! 7 DECLARE LONG CONSTANT ESGPS64$M_PIC = x'00000001'7 DECLARE LONG CONSTANT ESGPS64$M_LIB = x'00000002'7 DECLARE LONG CONSTANT ESGPS64$M_OVR = x'00000004'7 DECLARE LONG CONSTANT ESGPS64$M_REL = x'00000008'7 DECLARE LONG CONSTANT ESGPS64$M_GBL = x'00000010'7 DECLARE LONG CONSTANT ESGPS64$M_SHR = x'00000020'7 DECLARE LONG CONSTANT ESGPS64$M_EXE = x'00000040'6 DECLARE LONG CONSTANT ESGPS64$M_RD = x'00000080'7  DECLARE LONG CONSTANT ESGPS64$M_WRT = x'00000100'7 DECLARE LONG CONSTANT ESGPS64$M_VEC = x'00000200'9 DECLARE LONG CONSTANT ESGPS64$M_NOMOD = x'00000400'7 DECLARE LONG CONSTANT ESGPS64$M_COM = x'00000800'? DECLARE LONG CONSTANT ESGPS64$M_ALLOC_64BIT = x'00001000'/ DECLARE LONG CONSTANT ESGPS64$K_NAME = 33/ DECLARE LONG CONSTANT ESGPS64$C_NAME = 335 DECLARE LONG CONSTANT ESGPS64$S_ESGPS64DEF = 64 record ESGPS64DEF' group ESGPS64$R_GSD TYP_OVERLAY variant case8 WORD ESGPS64$W_GSDTYP ! Typ field  case/ group ESGPS64$R_GSDTYP_FIELDS/ STRING ESGPS64$T_START = 0- BYTE ESGPS64DEF$$_FILL_13 end group ESGPS64$R_GSDTYP_FIELDS end variant+ end group ESGPS64$R_GSDTYP_OVERLAY@ WORD ESGPS64$W_SIZE ! size of this ESGPS? BYTE ESGPS64$B_ALIG N ! P-sect alignment @ BYTE ESGPS64$B_TEMP ! pad for allignment& group ESGPS64$R_FLAGS_OVERLAY variant case; WORD ESGPS64$W_FLAGS ! P-sect flags  case, group ESGPS64$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM sym, ! Load in 64-bit spacei WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through FILL_26_0 end group ESGPS64$R_FLAGS_BITS end variant* end group ESGPS64$R_FLAGS_OVERLAY& group ESGPS64$R_ALLOC_OVERLAY variant caseV BASIC$QUADWORD ESGPS64$Q_ALLOC ! Length of this psect in shr image  case; LONG ESGPS64$L_ALLOC ! Low Longword end variant* end group ESGPS64$R_ALLOC_OVERLAY% group ESGPS64$R_BASE_OVERLAY variant caseb  BASIC$QUADWORD ESGPS64$Q_BASE ! Offset into img of psect, copy of symbol vector case; LONG ESGPS64$L_BASE ! Low Longword end variant) end group ESGPS64$R_BASE_OVERLAY& group ESGPS64$R_VALUE_OVERLAY variant case0 BASIC$QUADWORD ESGPS64$Q_VALUE case& LONG ESGPS64$L_VALUE end variant* end group ESGPS64$R_VALUE_OVERLAYD BYTE ESGPS64$B_NAMLNG ! Length of p-sect name 9 STRING ESGPS64$T_NAME = 31 ! Name field  end record ESGPS64DEF  wwFW ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ) ! EVAX GSD entry - Symbol definition ! 3 ! common to definitions, references, and entry ! point definitions. ! 5 DECLARE LONG CONSTANT EGSY$M_WEAK = x'00000001'4 DECL ARE LONG CONSTANT EGSY$M_DEF = x'00000002'4 DECLARE LONG CONSTANT EGSY$M_UNI = x'00000004'4 DECLARE LONG CONSTANT EGSY$M_REL = x'00000008'5 DECLARE LONG CONSTANT EGSY$M_COMM = x'00000010'6 DECLARE LONG CONSTANT EGSY$M_VECEP = x'00000020'5 DECLARE LONG CONSTANT EGSY$M_NORM = x'00000040'9 DECLARE LONG CONSTANT EGSY$M_QUAD_VAL = x'00000080'. DECLARE LONG CONSTANT EGSY$S_EGSYDEF = 8 record EGSYDEF$ group EGSY$R_GSDTYP_OVERLAY varian t case9 WORD EGSY$W_GSDTYP ! Type field  case, group EGSY$R_GSDTYP_FIELDS, STRING EGSY$T_START = 0* BYTE EGSYDEF$$_FILL_10 end group EGSY$R_GSDTYP_FIELDS end variant( end group EGSY$R_GSDTYP_OVERLAY? WORD EGSY$W_SIZE ! size of this EGSY? BYTE EGSY$B_DATYP ! Symbol data type ? BYTE EGSY$B_TEMP ! pad for alignment# group EGSY$R_FLAGS_OVERLAY variant case; WORD EGSY$W_FLAGS ! Symbol flags  case) group EGSY$R_FLAGS_BITS$ ! Weak symbol # ! Definition " ! Universal $ ! Relocatable * ! C common globaldef, ! Vectored Entry Point, ! Normal Procedure(FD)) ! Value is quadwordl BYTE WEAK_bits ! COMMENT ADDED BY SDL - WEAK_bits contains bits WEAK through QUAD_VAL- end group EGSY$R_FLAGS_BITS end variant' end group EGSY$R_FLAGS_OVERLAY end record EGSYDEF  ww#^ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! U ! EVAX Universal Symbol Definition - used by the linker instead of ESDF$ recordsS ! when building the global symbol table. The def and univ. bits should always ! be set for these records. ! , DECLARE LONG CONSTANT EGST$K_NAME = 37, DECLARE LONG CONSTANT EGST$C_NAME = 37/ DECLARE LONG CONSTANT EGST$S_EGSTDEF = 68 record EGSTDEF$ group EGST$R_GSDTYP_OVERLAY variant caseE WORD EGST$W_GSDTYP ! Maps over GSY$B_GSDTYP  case, group EGST$R_GSDTYP_FIELDS, STRING EGST$T_START = 0* WORD EGSTDEF$$_FILL_10 end group EGST$R_GSDTYP_FIELDS end variant( end group EGST$R_GSDTYP_OVERLAY? WORD EGST$W_SIZE ! size of this EGSTC BYTE EGST$B_DATYP ! Maps over GSY$B_DATYP@ BYTE EGST$B_TEMP ! pad for alignment D WORD EGST$W_FLAGS ! Maps over GSY$W_FLAGS ! group EGST$R_VAL_OVERLAY variant case- BASIC$QUADWORD EGST$Q_VALUE  case# LONG EGST$L_VALUE end variant% end group EGST$R_VAL_OVERLAY! group EGST$R_LP1_OVERLAY variant case, BASIC$QUADWORD EGST$Q_LP_1 case" LONG EGST$L_LP_1 end variant% end group EGST$R_LP1_OVERLAY! group EGST$R_LP2_OVERLAY variant case, BASIC$QUADWORD EGST$Q_LP_2 case" LONG EGST$L_LP_2 end variant% end group EGST$R_LP2_OVERLAYB LONG EGST$L_PSINDX ! Owning psect number = BYTE EGST$B_NAMLNG ! Length of name : STRING EGST$T_NAME = 31 ! Symbol name  end record EGSTDEF  ww z ! *** PREDECLARED TYPES I: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )S END RECORDE* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )S END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF I< %IF %DECLARED e ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! EVAX Symbol definition ! , DECLARE LONG CONSTANT ESDF$K_NAME = 33, DECLARE LONG CONSTANT ESDF$C_NAME = 33/ DECLARE LONG CONSTANT ESDF$S_ESDFDEF = 64 record ESDFDEF$  group ESDF$R_GSDTYP_OVERLAY variant caseE WORD ESDF$W_GSDTYP ! Maps over GSY$B_GSDTYP  case, group ESDF$R_GSDTYP_FIELDS, STRING ESDF$T_START = 0* WORD ESDFDEF$$_FILL_10 end group ESDF$R_GSDTYP_FIELDS end variant( end group ESDF$R_GSDTYP_OVERLAY? WORD ESDF$W_SIZE ! size of this ESDFC BYTE ESDF$B_DATYP ! Maps over GSY$B_DATYP@ BYTE ESDF$B_TEMP ! pad for alignment D WORD ESDF$W_FLAGS ! Maps over GSY$W_FLAGS ! group ESDF$R_VAL_OVERLAY variant case- BASIC$QUADWORD ESDF$Q_VALUE case# LONG ESDF$L_VALUE end variant% end group ESDF$R_VAL_OVERLAY group ESDF$R_CA_OVERLAY variant  case4 BASIC$QUADWORD ESDF$Q_CODE_ADDRESS case* LONG ESDF$L_CODE_ADDRESS end variant$ end group ESDF$R_CA_OVERLAYZ LONG ESDF$L_CA_PSINDX ! Psect index of the code address (which is in# ! LP_1 if the norm bit is set).B LONG ESDF$L_PSINDX ! Owning psect number = BYTE ESDF$B_NAMLNG ! Length of name : STRING ESDF$T_NAME = 31  ! Symbol name  end record ESDFDEF  ww~k ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 2 ! EVAX Symbol definition for vectored symbols ! - DECLARE LONG CONSTANT ESDFV$K_NAME = 25- DECLARE LONG CONSTANT ESDFV$C_NAME = 251 DECLARE LONG CONSTANT ESDFV$S_ESDFVDEF = 56  record ESDFVDEF% group ESDFV$R_GSDTYP_OVERLAY variant caseE WORD ESDFV$W_GSDTYP ! Maps over GSY$B_GSDTYP  case- group ESDFV$R_GSDTYP_FIELDS- STRING ESDFV$T_START = 0+ BYTE ESDFVDEF$$_FILL_11 end group ESDFV$R_GSDTYP_FIELDS end variant) end group ESDFV$R_GSDTYP_OVERLAY? WORD ESDFV$W_SIZE  ! size of this SDFVC BYTE ESDFV$B_DATYP ! Maps over GSY$B_DATYP@ BYTE ESDFV$B_TEMP ! pad for alignment D WORD ESDFV$W_FLAGS ! Maps over GSY$W_FLAGS " group ESDFV$R_VAL_OVERLAY variant case. BASIC$QUADWORD ESDFV$Q_VALUE case$ LONG ESDFV$L_VALUE end variant& end group ESDFV$R_VAL_OVERLAYB LONG ESDFV$L_PSINDX ! Owning psect number F LONG ESDFV$L_VECTOR ! Vectored value of symbol= BYTE ESDFV$B_NAMLNG ! Length of name : STRING ESDFV$T_NAME = 31 ! Symbol name  end record ESDFVDEF  ww>or ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 6 ! EVAX Symbol definition for version mask symbols ! - DECLARE LONG CONSTANT ESDFM$K_NAME = 25- DECLARE LONG CONSTANT ESDFM$C_NAME = 251 DECLARE LONG CONSTANT ESDFM$S_ESDFMDEF = 56 record ESDFMDEF% group ESDFM$R_GSDTYP_OVERLAY variant caseE WORD ESDFM$W_GSDTYP ! Maps over GSY$B_GSDTYP  case- group ESDFM$R_GSDTYP_FIELDS- STRING ESDFM$T_START = 0+ BYTE ESDFMDEF$$_FILL_11 end group ESDFM$R_GSDTYP_FIELDS end variant) end group ESDFM$R_GSDTYP_OVERLAY@ WORD ESDFM$W_SIZE  ! size of this ESDFMC BYTE ESDFM$B_DATYP ! Maps over GSY$B_DATYP@ BYTE ESDFM$B_TEMP ! pad for alignment D WORD ESDFM$W_FLAGS ! Maps over GSY$W_FLAGS " group ESDFM$R_VAL_OVERLAY variant case. BASIC$QUADWORD ESDFM$Q_VALUE case$ LONG ESDFM$L_VALUE end variant& end group ESDFM$R_VAL_OVERLAYB LONG ESDFM$L_PSINDX ! Owning psect number = LONG ESDFM$L_VERSION_MASK ! Mask for symbol= BYTE ESDFM$B_NAMLNG ! Length of name : STRING ESDFM$T_NAME = 31 ! Symbol name  end record ESDFMDEF  wwMy ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! = ! EVAX Symbol reference (SYM$M_DEF in EGSY$W_FLAGS is 0) ! + DECLARE LONG CONSTANT ESRF$K_NAME = 9+ DECLARE LONG CONSTANT ESRF$C_NAME = 9/ DECLARE LONG CONSTANT ESRF$S_ESRFDEF = 40 record ESRFDEF$ group ESRF$R_GSDTYP_OVERLAY variant caseE WORD ESRF$W_GSDTYP ! Maps over GSY$B_GSDTYP  case, group ESRF$R_GSDTYP_FIELDS, STRING ESRF$T_START = 0* WORD ESRFDEF$$_FILL_10 end group ESRF$R_GSDTYP_FIELDS end variant( end group ESRF$R_GSDTYP_OVERLAY? WORD ESRF$W_SIZE ! si ze of this ESRFC BYTE ESRF$B_DATYP ! Maps over GSY$B_DATYP@ BYTE ESRF$B_TEMP ! pad for alignment D WORD ESRF$W_FLAGS ! Maps over GSY$W_FLAGS D BYTE ESRF$B_NAMLNG ! Length of symbol name : STRING ESRF$T_NAME = 31 ! Symbol name  end record ESRFDEF  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 7 ! EVAX IDC - Random entity ident consistency check ! * DECLARE LONG CONSTANT EIDC$C_LEQ = 0, DECLARE LONG CONSTANT EIDC$C_EQUAL = 1. DECLARE LONG CONSTANT EIDC$S_EIDCDEF = 9  record EIDCDEF8 WORD EIDC$W_GSDTYP ! Type fieldC WORD EIDC$W_SIZE ! size of this EIDCDEF # group EIDC$R_FLAGS_OVERLAY variant case4 LONG EIDC$L_FLAGS ! Flags  case) group EIDC$R_FLAGS_BITSC ! Ident is binary longword rather than ASCIC F ! Field for ident match control if binary ident >  ! Error severity (default is warning-0) x BYTE BINIDENT_bits ! COMMENT ADDED BY SDL - BINIDENT_bits contains bits BINIDENT through FILL_27_- end group EIDC$R_FLAGS_BITS ! Match control values  end variant' end group EIDC$R_FLAGS_OVERLAY$ group EIDC$R_NAMLNG_OVERLAY variant caseD BYTE EIDC$B_NAMLNG ! Length of entity name  case,  group EIDC$R_NAMLNG_FIELDS* BYTE EIDCDEF$$_FILL_10 STRING EIDC$T_NAME = 0 !  ! Followed by entity name3 ! Followed by byte of length of name of object" ! Followed by the object name ! Followed by" ! byte of ident length; ! ident string (length = string length) ! or5 ! ident binary value (length = 4)0 end group EIDC$R_NAMLNG_FIELDS  end variant( end group EIDC$R_NAMLNG_OVERLAY end record EIDCDEF  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! : ! EVAX Text, information and relocation record (ETIR) ! G DECLARE LONG CONSTANT ETIR$C_MINSTACOD = 0 ! Minimum store code L DECLARE LONG CONSTANT ETIR$C_STA_GBL = 0 ! Stack global symbol value @ DECLARE LONG CONSTANT ETIR$C_STA_LW = 1 ! Stack longword @ DECLARE LONG CONSTANT ETIR$C_STA_QW = 2 ! Stack quadword W DECLARE LONG CONSTANT ETIR$C_STA_PQ = 3 ! Stack psect base plus quadword offset ? DECLARE LONG CONSTANT ETIR$C_STA_LI = 4 ! Stack literal > DECLARE LONG CONSTANT ETIR$C_STA_MOD = 5 ! Stack moduleC DECLARE LONG CONSTANT ETIR$C_STA_CKARG = 6 ! Check ArgumentsG DECLARE LONG CONSTANT ETIR$C_MAXSTACOD = 6 ! Maximum stack code H DECLARE LONG CONSTANT ETIR$C_MINSTOCOD = 50 ! Minimum store code < DECLARE LONG CONSTANT ETIR$C_STO_B = 50 ! Store byte < DECLARE LONG CONSTANT ETIR$C_STO_W = 51 ! Store word A DECLARE LONG CONSTANT ETIR$C_STO_LW = 52 ! Store longword @ DECLARE LONG CONSTANT ETIR$C_STO_QW = 53 ! Store quadwordL DECLARE LONG CONSTANT ETIR$C_STO_IMMR = 54 ! Store immediate Repeated@ DECLARE LONG CONSTANT ETIR$C_STO_GBL = 55 ! Store global E DECLARE LONG CONSTANT ETIR$C_STO_CA = 56 ! Store code address H DECLARE LONG CONSTANT ETIR$C_STO_RB = 57 ! Store relative branch H DECLARE LONG CONSTANT ETIR$C_STO_AB = 58 ! Store absolute branch M DECLARE LONG CONSTANT ETIR$C_STO_OFF = 59 ! Store offset within psect C DECLARE LONG CONSTANT ETIR$C_STO_IMM = 61 ! Store immediate K DECLARE LONG CONSTANT ETIR$C_STO_GBL_LW = 62 ! Store global Longword4 ! STO_LP_PSB not valid in level 2 use STC_LP_PSB` DECLARE LONG CONSTANT ETIR$C_STO_BR_GBL = 64 ! Store 21 bit displayment to global address_ DECLARE LONG CONSTANT ETIR$C_STO_BR_PS = 65 ! Store 21 bit displayment to psect + offsetH DECLARE LONG CONSTANT ETIR$C_MAXSTOCOD = 65 ! Maximum store code K DECLARE LONG CONSTANT ETIR$C_MINOPRCOD = 100 ! Minimum operate code : DECLARE LONG CONSTANT ETIR$C_OPR_NOP = 100 ! No-op 8 DECLARE LONG CONSTANT ETIR$C_OPR_ADD = 101 ! Add = DECLARE LONG CONSTANT ETIR$C_OPR_SUB = 102 ! Subtract = DECLARE LONG CONSTANT ETIR$C_OPR_MUL = 103 ! Multiply ; DECLARE LONG CONSTANT ETIR$C_OPR_DIV = 104 ! Divide @ DECLARE LONG CONSTANT ETIR$C_OPR_AND = 105 ! Logical AND I DECLARE LONG CONSTANT ETIR$C_OPR_IOR = 106 ! Logical inclusive OR I DECLARE LONG CONSTANT ETIR$C_OPR_EOR = 107 ! Logical exclusive OR ; DECLARE LONG CONSTANT ETIR$C_OPR_NEG = 108 ! Negate ? DECLARE LONG CONSTANT ETIR$C_OPR_COM = 109 ! Complement F DECLARE LONG CONSTANT ETIR$C_OPR_INSV = 110 ! Insert bit field E DECLARE LONG CONSTANT ETIR$C_OPR_ASH = 111 ! Arithmetic shift C DECLARE LONG CONSTANT ETIR$C_OPR_USH = 112 ! Unsigned shift ; DECLARE LONG CONSTANT ETIR$C_OPR_ROT = 113 ! Rotate b DECLARE LONG CONSTANT ETIR$C_OPR_SEL = 114 ! Select one of three longwords on top of stack X DECLARE LONG CONSTANT ETIR$C_OPR_REDEF = 115 ! Redefine this symbol after pass 2 G DECLARE LONG CONSTANT ETIR$C_OPR_DFLIT = 116 ! Define a literal K DECLARE LONG CONSTANT ETIR$C_MAXOPRCOD = 116 ! Maximum operate code K DECLARE LONG CONSTANT ETIR$C_MINCTLCOD = 150 ! Minimum control code J DECLARE LONG CONSTANT ETIR$C_CTL_SETRB = 150 ! Set relocation base N DECLARE LONG CONSTANT ETIR$C_CTL_AUGRB = 151 ! Augment relocation base L DECLARE LONG CONSTANT ETIR$C_CTL_DFLOC = 152 ! Define debug location I DECLARE LONG CONSTANT ETIR$C_CTL_STLOC = 153 ! Set debug location K DECLARE LONG CONSTANT ETIR$C_CTL_STKDL = 154 ! Stack debug location K DECLARE LONG CONSTANT ETIR$C_MAXCTLCOD = 154 ! Maximum control code T DECLARE LONG CONSTANT ETIR$C_MINSTCCOD = 200 ! Minimum store-conditional codeQ DECLARE LONG CONSTANT ETIR$C_STC_LP = 200 ! Store-conditional Linkage Pairn DECLARE LONG CONSTANT ETIR$C_STC_LP_PSB = 201 ! Store-conditional Linkage Pair with Procedure Signature_ DECLARE LONG CONSTANT ETIR$C_STC_GBL = 202 ! Store-conditional Address at global addressd DECLARE LONG CONSTANT ETIR$C_STC_GCA = 203 ! Store-conditional Code Address at global address^ DECLARE LONG CONSTANT ETIR$C_STC_PS = 204 ! Store-conditional Address at psect + offsetb DECLARE LONG CONSTANT ETIR$C_STC_NOP_GBL = 205 ! Store-conditional NOP at address of global] DECLARE LONG CONSTANT ETIR$C_STC_NOP_PS = 206 ! Store-conditional NOP at pect + offset_ DECLARE LONG CONSTANT ETIR$C_STC_BSR_GBL = 207 ! Store-conditional BSR at global address] DECLARE LONG CONSTANT ETIR$C_STC_BSR_PS = 208 ! Store-conditional BSR at pect + offset_ DECLARE LONG CONSTANT ETIR$C_STC_LDA_GBL = 209 ! Store-conditional LDA at global address^ DECLARE LONG CONSTANT ETIR$C_STC_LDA_PS = 210 ! Store-conditional LDA at psect + offsetg DECLARE LONG CONSTANT ETIR$C_STC_BOH_GBL = 211 ! Store-conditional BSR or Hint at global addresse DECLARE LONG CONSTANT ETIR$C_STC_BOH_PS = 212 ! Store-conditional BSR or Hint at pect + offsetk DECLARE LONG CONSTANT ETIR$C_STC_NBH_GBL = 213 ! Store-conditional NOP,BSR or HINT at global addressj DECLARE LONG CONSTANT ETIR$C_STC_NBH_PS = 214 ! Store-conditional NOP,BSR or HINT at psect + offsetT DECLARE LONG CONSTANT ETIR$C_MAXSTCCOD = 214 ! Maximum store-conditional codep ! ******************************************************************************************************** . DECLARE LONG CONSTANT ETIR$S_ETIRDEF = 4 record ETIRDEFG WORD ETIR$W_RECTYP ! Record ty pe (OBJ$C_ETIR): WORD ETIR$W_SIZE ! Record size" ! Define relocation commands  ! ETIR descriptions !  ! = ! MNEUMONIC DESCRIPTION FORMAT STACK EFFECT= ! --------- ----------- ------ ------------6 ! 0 2 4 6 8 12 16 20 245 ! | | | | | | | | |5 ! v v v v v v v v v ! Q ! STA_GBL pushes symbol value on stack |type|size|counted string... +1 ! J ! STA_LW pushes longword value on stack |type|size|longword | +1 ! R ! STA_QW pushes quadword value on stack |type|size| quadword | +1 ! W ! STA_PQ pushes image offset associated |type|size| psect | quadword | +1- ! with psect index + quadword  ! offset on stackP ! STA_LI pushes literal value on stack |type|size|counted string... +1 ! Q !  STA_MOD pushes image offset associated |type|size|counted string... +1 ! with module on stack ! U ! 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 ! A ! STO_LW pops s tack and stores low |type|size| -1( ! longword at location pointer ! A ! STO_QW pops stack and stores qwadword |type|size| -1 ! at location pointer ! P ! STO_GBL stores value associated with |type|size|counted string... 0& ! global symbol at location  ! pointer ! P ! STO_CA stores contents of value |type|size|counted string... 0) ! associated with global symbol" ! +8 at lo cation pointer ! O ! 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 ! P ! STO_AB stores value associated with |type|size|counted string... 0( ! global symbol in low 21 bits ! at location pointer ! a ! STO_OFF pops offset into image from |type|size| -1, ! stack and stores the value in) ! the linker's location counter ! V ! STO_IMMR pops repeat count and stores |type|size| size |immediate... -1+ ! this number of immediates at ! location counter ! G ! STO_LP stores code address at |type|size|counted string... 0# ! location pointer and global ! symbol value at location ! pointer + 8 ! T ! STO _IMM stores this number of |type|size| size |immediate... 0- ! immediates at location counter ! S ! STO_GBL_LW stores low order 32 bits of |type|size|counted string... 0( ! value associated with global& ! symbol at location pointer ! b ! 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 si gnature0 ! information in fixup section2 ! (following the LP_PSB fixups). ! ] ! STO_BR_GBL Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 |9 ! signed offset from virtual |counted string 0" ! address signified by ps2 +" ! off2 to virtual address of& ! global symbol shifted two bits0 ! to the right into the 21 bit5 ! displacement field of instruction+ !  at location ps1 + off1. ! ] ! STO_BR_PS Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 |N ! 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. ! 2 ! OPR_NOP nothing |type|size| 0 ! D ! OPR_ADD pop two elements from stack |type|size| -1! ! adds and push results ! D ! OPR_SUB pop two elements from stack |type|size| -1& ! subtracts and push results ! C ! OPR_MUL pop two elements from stack |type|size| -1% ! multiplys and push results ! D ! OPR_DIV pop two elements from stack |type|size| -1$ ! divides and push results ! D ! OPR_A ND pop two elements from stack |type|size| -1! ! ANDs and push results ! D ! OPR_IOR pop two elements from stack |type|size| -1* ! inclusive ors and push results ! D ! OPR_EOR pop two elements from stack |type|size| -1* ! exclusive ors and push results ! C ! OPR_NEG pop one element from stack |type|size| 0$ ! negates and push results ! C ! OPR_COM pop one element from stack |type|size| 0( ! compliments and push results ! D ! OPR_INSV pop two elements from stack |type|size| -1( ! inserts bit field from first( ! into second and push results ! D ! OPR_USH pop two elements from stack |type|size| -1+ ! unsigned shift and push results ! D ! OPR_ASH pop two elements from stack |type|size| -1& ! arithmetic shift and push  ! results ! D ! OPR_ROT pop two elements from stack |type|size| -1# ! rotate and push results ! H ! OPR_SEL pop three elements from stack |type|size| -2 ! if first is true  ! then push third ! else push second ! W ! OPR_REDEF pop value from stack and |type|size|counted string... -1' ! assign this value to global ! symbol ! W ! OPR_DFLIT pop value from stack and |type|size|counted string... -1( ! assign this value to literal !  ! H ! CTL_SETRB pop value from stack and move |type|size| -1 ! to location pointer  ! U ! CTL_AUGRB add quadword to location |type|size| quadword | 0  ! pointer ! X ! CTL_DFLOC pop index from stack and save |type|size| quadword index | -1' ! current location pointer in# ! debug table using index ! [ ! 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 ! [ ! CTL_STKDL pop index from stack, get |type|size| quadword index | 0% ! saved location pointer in' ! debug table using index and ! push it !  ! = ! MNEUMONIC DESCRIPTIO N FORMAT STACK EFFECT= ! --------- ----------- ------ ------------6 ! 0 2 4 6 8 12 16 20 245 ! | | | | | | | | |5 ! v v v v v v v v v ! i ! STC_LP If the linkage pair specified |type|size|lp index |counted string... 0/ ! by the index is referenced,2 ! i.e. all instructions ref'ing 4 !  it weren't successfully replaced2 ! by other STC_** commands, then2 ! store code address at location3 ! pointer and global symbol value, ! at location pointer + 8. ! i ! STC_LP_PSB If the linkage pair specified |type|size|lp index |counted string...|- 0X ! by the index is referenced, |size|signature block...| 2 ! i.e. all instructions ref'ing 4 !  it weren't successfully replaced2 ! by other STC_** commands, then2 ! store code address at location3 ! pointer and global symbol value2 ! at location pointer + 8. Store2 ! signature information in fixup0 ! section following the LP_PSB ! fixups. ! i ! STC_GBL store value associated with |type|size|lp index |counted string... 01  ! global symbol (if norm bit is3 ! set this is the procedure desc.0 ! address) in the linkage pair0 ! pointed to by the index only; ! if that part of the lp is referenced. ; ! When the norm bit is set the index will3 ! point to the second quadword of% ! the linkage pair. ! i ! STC_GCA store the value from the field |type|size|lp index |c ounted string... 0- ! ESDF$L_LP_1 of the global. ! symbol in the linkage pair0 ! pointed to by the index only; ! if that part of the lp is referenced. : ! The global symbol must be a procedure,1 ! and the norm bit must be set.2 ! The lp index must point to the7 ! first quadword of the linkage pair. ! ! i !   STC_PS store the address associated |type|size|lp index |psct|qw offset| 02 ! with the psect + offset in the/ ! lp pointed to by the index.1 ! The index may point to either ! quadword. ! e ! STC_NOP_GBL Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - i ! compiler) at the location |repl inst|psc2|qw off2 |counted string 0 . ! pointed to by PS1, offset1- ! if the displacement from 0 ! ps2, offset2 to the value in0 ! the EGSY$L_LP_1 field of the2 ! global symbol + its psect base1 ! can be squished into 21 bits. !  ! e ! STC_NOP_PS Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - \ ! compiler) at the location |repl inst|psc2|qw off 2 | - i ! pointed to by PS1, offset1 |psc3|qw off3 | 0- ! if the displacement from / ! ps2, offset2 to ps3,offset31 ! can be squished into 21 bits. ! e ! STC_BSR_GBL Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - i ! repl inst) at the location |repl inst|psc2|qw off2 |counted string 0i !  pointed to by PS1, offset1 - ! if the displacement from 0 ! ps2, offset2 to the value in0 ! the EGSY$L_LP_1 field of the2 ! global symbol + its psect base1 ! can be squished into 21 bits.2 ! Insert the 21 bit displacement) ! into the instruction. ! e ! STC_BSR_PS Store a BSR (specified in |type|si ze|lp index |psc1|qw off1 | - \ ! repl inst) at the location |repl inst|psc2|qw off2 | - i ! pointed to by PS1, offset1 |psc3|qw off3 | 0- ! if the displacement from / ! ps2, offset2 to ps3,offset31 ! can be squished into 21 bits.2 ! Insert the 21 bit displacement) ! into the instruction. ! e !  STC_LDA_GBL Store a LDA (specified in |type|size|lp index |psc1|qw off1 | - i ! repl inst) at the location |repl inst|psc2|qw off2 |counted string 0i ! pointed to by PS1, offset1 - ! if the displacement from 0 ! ps2, offset2 to the value in1 ! the EGSY$L_VALUE field of the2 ! global symbol + its ps ect base1 ! can be squished into 16 bits.4 ! The global symbol cannot be from& ! a shareable image.2 ! Insert the 16 bit displacement) ! into the instruction.4 ! The index is only nonzero if the3 ! instruction being replaced refs# ! a linkage pair. ! e ! STC_LDA_PS Store a LDA (specified in |type|size|lp index |psc1|qw off1 | -  \ ! repl inst) at the location |repl inst|psc2|qw off2 | - i ! pointed to by PS1, offset1 |psc3|qw off3 | 0- ! if the displacement from / ! ps2, offset2 to ps3,offset31 ! can be squished into 16 bits.: ! PS3 cannot be a shareable image psect.2 ! Insert the 16 bit displacement) ! into the instructi on.4 ! The index is only nonzero if the3 ! instruction being replaced refs# ! a linkage pair. ! e ! STC_BOH_GBL Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - i ! repl inst) at the location |repl inst|ps2 |qw off2 |counted string 0f ! pointed to by ps1, off1 - ! if the dis placement from - ! ps2, off2 to the value in0 ! the EGSY$L_LP_1 field of the2 ! global symbol + its psect base1 ! can be squished into 21 bits.2 ! Insert the 21 bit displacement2 ! into the instruction. If the 3 ! displacement is too large, then2 ! store the low order 16 bits of5 ! the virtual address of the global2 ! symbol shifted two bits to the+ ! right into the location ! ps1 + off1. ! e ! STC_BOH_PS Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - Z ! repl inst) at the location |repl inst|ps2 |qw off2 | -i ! pointed to by PS1, off1 |ps3 |qw off3 | 0, ! if the displacement from) ! ps2, off2 to ps3 ,off31 ! can be squished into 21 bits.2 ! Insert the 21 bit displacement2 ! into the instruction. If the 3 ! displacement is too large, then2 ! store the low order 16 bits of5 ! the virtual address of the global2 ! symbol shifted two bits to the+ ! right into the location ! ps1, off1. ! e ! STC_NBH_GBL Equivalent to STC_NOP_GBL, |type|size|lp index |ps1 |qw off1 | - \ ! index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - i ! off2 + 4, counted string, |repl ins2|counted string... 03 ! followed by STC_BOH_GBL, index,3 ! ps2, off2, ins2, ps2, off2 + 4,# ! counted string.0 ! Implicit assumption is that 8 ! the original instructions (LDQ, JSR)# ! are contiguous. ! e ! STC_NBH_PS Equivalent to STC_NOP_PS, |type|size|lp index |ps1 |qw off1 | - \ ! index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - i ! off2 + 4, ps3, off3, |repl ins2|ps3 |qw off3 | 02 ! followed by STC_BOH_PS, index,3 ! ps2, off2, ins2, ps2, off2 + 4, ! ps3, off3.0 ! Implicit assumption is that 8 ! the original instructions (LDQ, JSR)# ! are contiguous. ! g ! ***********************************************************************************************  end record ETIRDEF ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  B DECLARE LONG CONSTANT OPC$_RQ_TERME = 1 ! ENABLE TERMINAL D DECLARE LONG CONSTANT OPC$_RQ_LOGI = 2 ! INITIALIZE THE LOG B DECLARE LONG CONSTANT OPC$_RQ_RQST = 3 ! OPERATOR REQUEST A DECLARE LONG CONSTANT OPC$_RQ_REPLY = 4 ! OPERATOR REPLY B DECLARE LONG CONSTANT OPC$_RQ_CANCEL = 5 ! CANCEL REQUEST K DECLARE LONG CONSTANT OPC$_RQ_STATUS = 6 ! REQUEST OPERATOR STATUS Q DECLARE LONG CONSTANT OPC$_RQ_SECURITY = 7 ! MESSAGE TO SECURITY OPERATORO DECLARE LONG CONSTANT OPC$_RQ_LICENSE = 8 ! MESSAGE TO LICENSE OPERATOR0 DECLARE LONG CONSTANT OPC$M_RQ_NOOCS = 1289 DECLARE LONG CONSTANT OPC$M_NM_CENTRL = x'00000001'8 DECLARE LONG CONSTAN T OPC$M_NM_PRINT = x'00000002'8 DECLARE LONG CONSTANT OPC$M_NM_TAPES = x'00000004'8 DECLARE LONG CONSTANT OPC$M_NM_DISKS = x'00000008'9 DECLARE LONG CONSTANT OPC$M_NM_DEVICE = x'00000010'8 DECLARE LONG CONSTANT OPC$M_NM_CARDS = x'00000020'9 DECLARE LONG CONSTANT OPC$M_NM_NTWORK = x'00000040': DECLARE LONG CONSTANT OPC$M_NM_CLUSTER = x'00000080'; DECLARE LONG CONSTANT OPC$M_NM_SECURITY = x'00000100'8 DECLARE LONG CONSTANT OPC$M_NM_REPLY = x'00000200';  DECLARE LONG CONSTANT OPC$M_NM_SOFTWARE = x'00000400': DECLARE LONG CONSTANT OPC$M_NM_LICENSE = x'00000800'8 DECLARE LONG CONSTANT OPC$M_NM_OPER1 = x'00001000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER2 = x'00002000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER3 = x'00004000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER4 = x'00008000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER5 = x'00010000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER6 = x'00020000'8 DECLARE LONG CONSTANT OPC$M_NM _OPER7 = x'00040000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER8 = x'00080000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER9 = x'00100000'9 DECLARE LONG CONSTANT OPC$M_NM_OPER10 = x'00200000'9 DECLARE LONG CONSTANT OPC$M_NM_OPER11 = x'00400000'9 DECLARE LONG CONSTANT OPC$M_NM_OPER12 = x'00800000'. DECLARE LONG CONSTANT OPC$S_OPCDEF = 158 record OPCDEF< BYTE OPC$B_MS_TYPE ! MESSAGE TYPE B group OPC$R_MS_C_T_S_OVERLAY ! Class-Tar !get-Status variant case2 group OPC$R_MS_TARG_STAT_OVERLAY2 group OPC$R_MS_TARGET_OVERLAY variant caseB BYTE OPC$B_MS_TARGET ! MESSAGE TARGET caseA BYTE OPC$B_MS_ENAB ! MESSAGE ENABLES# end variant6 end group OPC$R_MS_TARGET_OVERLAY= W"ORD OPC$W_MS_STATUS ! MESSAGE STATUS6 end group OPC$R_MS_TARG_STAT_OVERLAY case9 BYTE OPC$Z_MS_TARGET_CLASSES ( 1 to 3 ) case9 BYTE OPC$Z_MS_ENAB_TERMINALS ( 1 to 3 ) end variant) end group OPC$R_MS_C_T_S_OVERLAY& group OPC$R_MS_RPLYID_OVERLAY variant case8 LONG OPC$L_MS_RPLYID ! REPLY ID  case- # group OPC$R_MS_MASK_OVERLAY variant case< LONG OPC$L_MS_MASK ! MESSAGE MASK  case< LONG OPC$L_MS_RQSTID ! REQUEST ID end variant1 end group OPC$R_MS_MASK_OVERLAY end variant* end group OPC$R_MS_RPLYID_OVERLAY$ group OPC$R_MS_TEXT_OVERLAY variant case< LO $NG OPC$L_MS_TEXT ! MESSAGE TEXT  case, group OPC$R_MS_TEXT_FIELDSD WORD OPC$W_MS_OUNIT ! OPERATOR UNIT NUMBER A STRING OPC$T_MS_ONAME = 1 ! OPERATOR NAME 0 end group OPC$R_MS_TEXT_FIELDS end variant( end group OPC$R_MS_TEXT_OVERLAYA WORD OPCDEF$$_FILL_1 ( 1 to 7 ) ! SPACE FOR NAME @ LONG OPC$L_MS_OTEXT ( 1 to 32 ) ! OPERATOR TEXT % % group OPC$R_MS_MAXSZ_OVERLAY variant case@ LONG OPC$L_MS_MAXSZ ! MESSAGE MAX SIZE  ! OPERATOR MESSAGE TYPES  case+ group OPC$R_MS_MAXSZ_BITS| LONG NM_CENTRL_bits ! COMMENT ADDED BY SDL - NM_CENTRL_bits contains bits NM_CENTRL through NM_OPER12/ end group OPC$R_MS_MAXSZ_BITS end variant) end group OPC$R_MS_MAXSZ_OVERLAY end record & OPCDEF ; DECLARE LONG CONSTANT OPC$M_OPR_CENTRAL = x'00000001'; DECLARE LONG CONSTANT OPC$M_OPR_PRINTER = x'00000002'9 DECLARE LONG CONSTANT OPC$M_OPR_TAPES = x'00000004'9 DECLARE LONG CONSTANT OPC$M_OPR_DISKS = x'00000008'; DECLARE LONG CONSTANT OPC$M_OPR_DEVICES = x'00000010'9 DECLARE LONG CONSTANT OPC$M_OPR_CARDS = x'00000020'; DECLARE LONG CONSTANT OPC$M_OPR_NETWORK = x'00000040'; DECLARE LONG CONSTANT OPC$M_OPR_CLUSTER = x'00000080'< ' DECLARE LONG CONSTANT OPC$M_OPR_SECURITY = x'00000100'9 DECLARE LONG CONSTANT OPC$M_OPR_REPLY = x'00000200'< DECLARE LONG CONSTANT OPC$M_OPR_SOFTWARE = x'00000400'; DECLARE LONG CONSTANT OPC$M_OPR_LICENSE = x'00000800'9 DECLARE LONG CONSTANT OPC$M_OPR_USER1 = x'00001000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER2 = x'00002000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER3 = x'00004000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER4 = x'00008000'9 DECLARE LONG C (ONSTANT OPC$M_OPR_USER5 = x'00010000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER6 = x'00020000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER7 = x'00040000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER8 = x'00080000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER9 = x'00100000': DECLARE LONG CONSTANT OPC$M_OPR_USER10 = x'00200000': DECLARE LONG CONSTANT OPC$M_OPR_USER11 = x'00400000': DECLARE LONG CONSTANT OPC$M_OPR_USER12 = x'00800000'0 DECLARE LONG CONSTANT OPC$S_OPC_OPRDEF =) 3 record OPC_OPRDEF variant case& group OPC$R_OPRDEF_BITS LONG OPR_CENTRAL_bits ! COMMENT ADDED BY SDL - OPR_CENTRAL_bits contains bits OPR_CENTRAL through OPR_USER12* end group OPC$R_OPRDEF_BITS end variant end record OPC_OPRDEF , DECLARE LONG CONSTANT OPC$K_SYSTEM = 1+ DECLARE LONG CONSTANT OPC$K_GROUP = 2* DECLARE LONG CONSTANT OPC$K_USER = 3, DECLARE LONG CONSTANT OPC$ *K_UNSPEC = 4, DECLARE LONG CONSTANT OPC$C_SYSTEM = 1+ DECLARE LONG CONSTANT OPC$C_GROUP = 2* DECLARE LONG CONSTANT OPC$C_USER = 3, DECLARE LONG CONSTANT OPC$C_UNSPEC = 40 DECLARE LONG CONSTANT OPC$K_SW_VERSION = 90 DECLARE LONG CONSTANT OPC$K_MAXREAD = 25603 DECLARE LONG CONSTANT OPC$K_MAXMESSAGE = 20480 DECLARE LONG CONSTANT OPC$K_COMHDRSIZ = 38I DECLARE LONG CONSTANT OPC$_OPCOMERROR = 99999 ! New error message1 DECLARE LONG CONSTANT OP +C$_X_OPRENABLE = 10/ DECLARE LONG CONSTANT OPC$_X_LOGFILE = 11/ DECLARE LONG CONSTANT OPC$_X_REQUEST = 12- DECLARE LONG CONSTANT OPC$_X_REPLY = 13. DECLARE LONG CONSTANT OPC$_X_CANCEL = 14. DECLARE LONG CONSTANT OPC$_X_STATUS = 150 DECLARE LONG CONSTANT OPC$_X_SHUTDOWN = 161 DECLARE LONG CONSTANT OPC$_X_TIMESTAMP = 170 DECLARE LONG CONSTANT OPC$_X_SECURITY = 18/ DECLARE LONG CONSTANT OPC$_X_CLUSMSG = 19- DECLARE LONG CONSTANT OPC$_X_DEB,UG = 20. DECLARE LONG CONSTANT OPC$_X_CNXMAN = 218 DECLARE LONG CONSTANT OPC$_X_REQUEST_END_MARK = 22^ DECLARE LONG CONSTANT OPC$K_CLM__ACKNOWLEDGEMENT = 1 ! Response to acknowledge requestl DECLARE LONG CONSTANT OPC$K_CLM__ACKNOWLEDGE_PLEASE = 2 ! Request for remote node to announce itselfP DECLARE LONG CONSTANT OPC$K_CLM__CANCEL = 3 ! Explicit cancel of requesth DECLARE LONG CONSTANT OPC$K_CLM__CHECK_OPERATOR = 4 ! Make sure this operator is in the databa-sec DECLARE LONG CONSTANT OPC$K_CLM__CHECK_REQUEST = 5 ! Make sure a request is in the database` DECLARE LONG CONSTANT OPC$K_CLM__CLUMBX = 6 ! Cluster mailbox message passed from cnxmanS DECLARE LONG CONSTANT OPC$K_CLM__CLUSTER = 7 ! Cluster status change report\ DECLARE LONG CONSTANT OPC$K_CLM__DEVICE = 8 ! Device message (on-line, off-line etc)U DECLARE LONG CONSTANT OPC$K_CLM__IMP_CANCEL = 9 ! Implicitly cancel a requestZ DECLARE LONG CONSTANT OPC$K_.CLM__IMP_DISABLE = 10 ! Implicitly disable an operatorm DECLARE LONG CONSTANT OPC$K_CLM__OPRENABLE = 11 ! Tell everyone else to enable or disable an operatorM DECLARE LONG CONSTANT OPC$K_CLM__REPLY = 12 ! REPLY /PEND etc commande DECLARE LONG CONSTANT OPC$K_CLM__REPLY_COMPLETE = 13 ! Operator request completed by operatorH DECLARE LONG CONSTANT OPC$K_CLM__REQUEST = 14 ! Operator requestw DECLARE LONG CONSTANT OPC$K_CLM__RPYBRD = 15 ! Message from OPCOM to r/emotes, info for cluster REPLY /TERM, etcp DECLARE LONG CONSTANT OPC$K_CLM__RPYBRD_LOCAL = 16 ! Broadcast message from REPLY to OPCOM on local nodeJ DECLARE LONG CONSTANT OPC$K_CLM__RPYNOT = 17 ! Reply notificationsS DECLARE LONG CONSTANT OPC$K_CLM__SECURITY = 18 ! Security alarm from remoteM DECLARE LONG CONSTANT OPC$K_CLM__SHUTDOWN = 19 ! Shut down operationsW DECLARE LONG CONSTANT OPC$K_CLM__LOGFILE = 20 ! Enable/disable logfile operator< DECLARE LO 0NG CONSTANT OPC$K_CLM__REQUEST_END_MARK = 21I DECLARE LONG CONSTANT OPC$K_HDR_SIZE = 26 ! Size of common header5 DECLARE LONG CONSTANT OPC$S_HEADER_MESSAGE = 26 record HEADER_MESSAGE; BYTE OPC$B_RQSTCODE ! Request code< BYTE OPC$B_SCOPE ! Request SCOPEO LONG OPC$L_OPTIONS ! Request independent option bits. group OPC$R_RQOPT variant caseH LO 1NG OPC$L_RQ_OPTIONS ! Request dependent options caseH group OPC$R_RQ_OPT_S ! Also make it available asI BYTE OPC$B_RQOPT_CODE ! a code byte and some fill+ BYTE OPC$B_RQOPT_FILLb+ WORD OPC$W_RQOPT_FILLw* end group OPC$R_RQ_OPT_S end variant end group OPC$R_RQOPTD LONG OPC$L_ATTNMASK1 ! Attention mask part 1D LONG OP 2C$L_ATTNMASK2 ! Attention mask part 2J LONG OPC$L_RQSTID ! User specified request id #? LONG OPC$L_UIC ! UIC of requestor end record HEADER_MESSAGE 5 DECLARE LONG CONSTANT OPC$M_NOLOG = x'00000001'5 DECLARE LONG CONSTANT OPC$M_NOBRD = x'00000002'9 DECLARE LONG CONSTANT OPC$M_NOCLUSTER = x'00000004'- DECLARE LONG CONSTANT OPC$S_FILL_0_ = 4 record FILL_0_ variant 3 case( LONG OPC$L_HEADER_OPTIONS case" group OPC$R_FILL_1_+ ! Do not log the action& ! Do not broadcast, ! Do not send to clusterk BYTE NOLOG_bits ! COMMENT ADDED BY SDL - NOLOG_bits contains bits NOLOG through FILL_2_& end group OPC$R_FILL_1_ end variant end record FILL_0_ Y DECLARE LONG CONSTANT OPC$K_OPRENABLE_MIN_SIZE = 30 ! Min 4message size header + 48 DECLARE LONG CONSTANT OPC$S_OPRENABLE_MESSAGE = 26 record OPRENABLE_MESSAGE. BYTE OPC$B_OPRENABLE_FILL ( 1 to 26 )E STRING OPC$T_OPRENABLE_OPR = 0 ! Start of oper dev name" end record OPRENABLE_MESSAGE 7 DECLARE LONG CONSTANT OPC$M_DISABLE = x'00000001'8 DECLARE LONG CONSTANT OPC$M_PERMOPER = x'00000002'8 DECLARE LONG CONSTANT OPC$M_NOREMIND = x'00000004'- DECLARE LONG CONSTANT OPC$S_FILL_3_ = 4 5record FILL_3_ variant case+ LONG OPC$L_OPRENABLE_OPTIONS case" group OPC$R_FILL_4_q BYTE DISABLE_bits ! COMMENT ADDED BY SDL - DISABLE_bits contains bits DISABLE through FILL_5_& end group OPC$R_FILL_4_ end variant end record FILL_3_ W DECLARE LONG CONSTANT OPC$K_LOGFILE_MIN_SIZE = 30 ! Min message size header + 4c DECLARE LONG CONSTANT OPC$K_INITLOG = 0 ! If o6ne is open, close logfile. Open new logfile.A DECLARE LONG CONSTANT OPC$K_CLOSELOG = 1 ! Close logfile.Z DECLARE LONG CONSTANT OPC$K_ENABLELOG = 2 ! If no logfile is open, open a logfile.: ! Add classes in ATTNMASK to logfile operator mask.k DECLARE LONG CONSTANT OPC$K_DISABLELOG = 3 ! Remove classes in ATTNMASK from logfile operator mask.* ! If mask goes to 0, close logfile.R DECLARE LONG CONSTANT OPC$K_MAX_LOGOPT = 4 ! One more than maximum allowed6 7 DECLARE LONG CONSTANT OPC$S_LOGFILE_MESSAGE = 26 record LOGFILE_MESSAGES BYTE OPC$B_LOGFILE_FILL ( 1 to 26 ) ! Skip to request dependent optionsE STRING OPC$T_LOGFILE_OPR = 0 ! Start of oper dev name end record LOGFILE_MESSAGE L DECLARE LONG CONSTANT OPC$K_REQUEST_MIN_SIZE = 28 ! Min message size6 DECLARE LONG CONSTANT OPC$S_REQUEST_MESSAGE = 28 record REQUEST_MESSAGE, BYTE OPC$B_REQUEST_FILL ( 1 to 26 )= WOR 8D OPC$W_REQUEST_LENGTH ! Length of text< STRING OPC$T_REQUEST_TEXT = 0 ! Start of text end record REQUEST_MESSAGE M DECLARE LONG CONSTANT OPC$K_SECURITY_MIN_SIZE = 28 ! Min message size7 DECLARE LONG CONSTANT OPC$S_SECURITY_MESSAGE = 28 record SECURITY_MESSAGE- BYTE OPC$B_SECURITY_FILL ( 1 to 26 )= WORD OPC$W_SECURITY_LENGTH ! Length of text< STRING OPC$T_SECURITY_TEXT = 0 ! Start of text! en 9d record SECURITY_MESSAGE 5 DECLARE LONG CONSTANT OPC$K_REPLY_MIN_SIZE = 324 DECLARE LONG CONSTANT OPC$S_REPLY_MESSAGE = 26 record REPLY_MESSAGE* BYTE OPC$B_REPLY_FILL ( 1 to 26 )# STRING OPC$T_REPLY_OPR = 0 end record REPLY_MESSAGE V DECLARE LONG CONSTANT OPC$K_STATUS_MIN_SIZE = 30 ! Min message size header + 45 DECLARE LONG CONSTANT OPC$S_STATUS_MESSAGE = 26 record STATUS_MESSAGE+ BYTE OPC$B_STATUS_FILL ( 1 to 2 :6 )< STRING OPC$T_STATUS_OPR = 0 ! Start of text end record STATUS_MESSAGE N DECLARE LONG CONSTANT OPC$K_TIMESTAMP_MIN_SIZE = 26 ! Min message size8 DECLARE LONG CONSTANT OPC$S_TIMESTAMP_MESSAGE = 26 record TIMESTAMP_MESSAGE. BYTE OPC$B_TIMESTAMP_FILL ( 1 to 26 )" end record TIMESTAMP_MESSAGE M DECLARE LONG CONSTANT OPC$K_SHUTDOWN_MIN_SIZE = 26 ! Min message size7 DECLARE LONG CONSTANT OPC$S_SHUTDOWN_MESSAGE = 26; record SHUTDOWN_MESSAGE- BYTE OPC$B_SHUTDOWN_FILL ( 1 to 26 )! end record SHUTDOWN_MESSAGE 7 DECLARE LONG CONSTANT OPC$M_CLUSTER = x'00000001'- DECLARE LONG CONSTANT OPC$S_FILL_6_ = 4 record FILL_6_ variant case* LONG OPC$L_SHUTDOWN_OPTIONS case" group OPC$R_FILL_7_q BYTE CLUSTER_bits ! COMMENT ADDED BY SDL - CLUSTER_bits contains bits CLUSTER through FILL_8_& < end group OPC$R_FILL_7_ end variant end record FILL_6_ K DECLARE LONG CONSTANT OPC$K_CANCEL_MIN_SIZE = 26 ! Min message size5 DECLARE LONG CONSTANT OPC$S_CANCEL_MESSAGE = 26 record CANCEL_MESSAGE+ BYTE OPC$B_CANCEL_FILL ( 1 to 26 ) end record CANCEL_MESSAGE 8 DECLARE LONG CONSTANT OPC$M_RQSTDONE = x'00000001'- DECLARE LONG CONSTANT OPC$S_FILL_9_ = 4 record FILL_9_ variant case( = LONG OPC$L_CANCEL_OPTIONS case# group OPC$R_FILL_10_u BYTE RQSTDONE_bits ! COMMENT ADDED BY SDL - RQSTDONE_bits contains bits RQSTDONE through FILL_11_' end group OPC$R_FILL_10_ end variant end record FILL_9_ 3 DECLARE LONG CONSTANT OPCF_ARG$S_OPCF_ARG = 4 record OPCF_ARG variant case< LONG OPCF_ARG$l_arg_data ! argument data case( > group OPCF_ARG$r_arg_descP WORD OPCF_ARG$w_arg_offset ! The offset to the argument dataT WORD OPCF_ARG$w_arg_cntrl ! A control code for argument handling, end group OPCF_ARG$r_arg_desc end variant end record OPCF_ARG Y ! This structure defines a message sent to OPCOM using the MSG$_OPCFAO message type./ DECLARE LONG CONSTANT OPCF$S_OPCFAO = 256 record OPCFAOI WORD OPCF$w_msgtype ? ! Dispatch message type codeF WORD OPCF$w_spare_1 ! Unused word - alignmentQ LONG OPCF$l_opc_msg ! The message file code for msg textF LONG OPCF$l_opc_class_msk ! The operator class maskF LONG OPCF$l_arg_count ! The number of arguments# group OPCF$r_variable_data variant caseI OPCF_ARG OPCF$r_item_arg ( 1 to 60 ) ! Argument items @ caseK STRING OPCF$t_item_cd = 240 ! Argument data - character caseJ LONG OPCF$l_item_ld ( 1 to 60 ) ! Argument data - long end variant' end group OPCF$r_variable_data end record OPCFAO R ! OPCFAO option codes. Unless commented otherwise, these codes correspond toP ! the equivalent FAO op code (e.g. ?AC --> AC, ?%T --> T). These codes are@ ! used as input arguments to exe_std$sndo Apcfao as controls.) DECLARE LONG CONSTANT OPCF$K_AC = 1) DECLARE LONG CONSTANT OPCF$K_AD = 2) DECLARE LONG CONSTANT OPCF$K_AF = 3) DECLARE LONG CONSTANT OPCF$K_AS = 4w DECLARE LONG CONSTANT OPCF$K_AS_DEVICE_NAME = 5 ! Pass UCB for conversion to device name string with descriptor) DECLARE LONG CONSTANT OPCF$K_AZ = 6( DECLARE LONG CONSTANT OPCF$K_D = 7( DECLARE LONG CONSTANT OPCF$K_I = 8) DECLARE LONG CONSTANT OPCF$K_OA = 9* DECLARE LO BNG CONSTANT OPCF$K_OB = 10* DECLARE LONG CONSTANT OPCF$K_OH = 11* DECLARE LONG CONSTANT OPCF$K_OI = 12* DECLARE LONG CONSTANT OPCF$K_OJ = 13* DECLARE LONG CONSTANT OPCF$K_OL = 14* DECLARE LONG CONSTANT OPCF$K_OQ = 15* DECLARE LONG CONSTANT OPCF$K_OW = 16* DECLARE LONG CONSTANT OPCF$K_SA = 17* DECLARE LONG CONSTANT OPCF$K_SB = 18* DECLARE LONG CONSTANT OPCF$K_SH = 19* DECLARE LONG CONSTANT OPCF$K_SI = 20* DECLARE LONG CONSTANT OPCF$K_SJ C= 21* DECLARE LONG CONSTANT OPCF$K_SL = 22* DECLARE LONG CONSTANT OPCF$K_SQ = 23* DECLARE LONG CONSTANT OPCF$K_SW = 24) DECLARE LONG CONSTANT OPCF$K_T = 25) DECLARE LONG CONSTANT OPCF$K_U = 26* DECLARE LONG CONSTANT OPCF$K_UA = 27* DECLARE LONG CONSTANT OPCF$K_UB = 28* DECLARE LONG CONSTANT OPCF$K_UH = 29* DECLARE LONG CONSTANT OPCF$K_UI = 30* DECLARE LONG CONSTANT OPCF$K_UJ = 31* DECLARE LONG CONSTANT OPCF$K_UL = 32* DECLARE LO DNG CONSTANT OPCF$K_UQ = 33* DECLARE LONG CONSTANT OPCF$K_UW = 34* DECLARE LONG CONSTANT OPCF$K_XA = 35* DECLARE LONG CONSTANT OPCF$K_XB = 36* DECLARE LONG CONSTANT OPCF$K_XH = 37* DECLARE LONG CONSTANT OPCF$K_XI = 38* DECLARE LONG CONSTANT OPCF$K_XJ = 39* DECLARE LONG CONSTANT OPCF$K_XL = 40* DECLARE LONG CONSTANT OPCF$K_XQ = 41* DECLARE LONG CONSTANT OPCF$K_XW = 42* DECLARE LONG CONSTANT OPCF$K_ZA = 43* DECLARE LONG CONSTANT OPCF$K_ZB E= 44* DECLARE LONG CONSTANT OPCF$K_ZH = 45* DECLARE LONG CONSTANT OPCF$K_ZI = 46* DECLARE LONG CONSTANT OPCF$K_ZJ = 47* DECLARE LONG CONSTANT OPCF$K_ZL = 48* DECLARE LONG CONSTANT OPCF$K_ZQ = 49* DECLARE LONG CONSTANT OPCF$K_ZW = 507 DECLARE LONG CONSTANT OPCF$K_MIN_OPCFAO_CNTRL = 18 DECLARE LONG CONSTANT OPCF$K_MAX_OPCFAO_CNTRL = 50L DECLARE LONG CONSTANT OPCF$K_BY_REF = 1 ! Pass argument by referenceH DECLARE LONG CONSTANT OPCF$K_BY_VAL = 2 ! Pass argument by valueN DECLARE LONG CONSTANT OPCF$K_BY_DESC = 3 ! Pass argument by descriptorwwG] ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED H( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINIG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > J %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.07 ! 4 ! OPCMSG.MSG - SYSTEM DEFINITION FILE FOR OPCOM !  ! VERSION: 'X-21' ! e ! ****************K*******************************************************************************e ! * *e ! * COPYRIGHT 2001,2002,2012 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *e ! * *e ! * COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION TECHNOLOGIES GROUP, *e ! * L L.P. IN THE U.S. AND/OR OTHER COUNTRIES. *e ! * *e ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ REQUIRED FOR POSSESSION, USE OR *e ! * COPYING. CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *e ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS ARE LICENSED TO M *e ! * THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. *e ! * *e ! *********************************************************************************************** ! ++ ! 0 ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! 8 ! THIS FILE CONTAINS THE SOURCE FOR OPCOM MESSAGES. !  ! ENVIRONMENT:N ! ! N/A !  ! -- !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! Q ! X-21 SB SRIDATTA BAIRY 17-JAN-2012H ! ADD LOCAL NODE NODENAME TO PEDRIVER OPCOM MESSAGES. ! O ! X-20 BJ BHARGAVA JANDHYALA 3-MAY2011T ! ADD PE_CHCL,PE_CHOP,PE_ECS_IN AND PE_ECS_OUT FOR PEDRIVER OPCOM ! 2 ! X-1 O9 RAB0152 ROBERT A. BROOKS 23-FEB-20064 ! ADD SHADISSOLVED, SHAMEMEXPEL, AND SHAMEMDMT ! 7 ! X-18 JJF0317 J. JEFFERY FRIEDRICHS 9-JUN-2005+ ! ADD INSAMCVP AND HBMMRESET MESSAGES ! ' ! X-17 ABP ANU PANT 27-FEB-2003? ! FOR MVSUPMSG, ADD THE NAME OF THE NODE THAT IS IN MOUNT ! VERIFICATION.  ! 0 ! X-16 KSG0145 KEVIN GREANEY 11-FEB-2003@ ! MOVE MESSAGE MVSUPMSG TO THE BOTTOM OF THE MESSAGE FILE.? ! THIS WAY, THE ASSOCIATED P MESSAGES NUMBERS WILL STAY THEB ! SAME, AND ANY DEPENDENCE ON THOSE MESSAGE NUMBERS WILL NOT ! BE IMPACTED.' ! X-15 ABP ANU PANT 22-JAN-2003F ! ADD NEW SUPPRESS MOUNT VERIFICAITON, MVSUPMSG, MESSAGE CODE.  ! 0 ! X-14 KSG0143 KEVIN GREANEY 19-MAR-2002N ! FIX THE TEXT IN THE WSINCLUSTER MESSAGE. OPC$ENABLE_OPA0M ! SHOULD BE OPC$OPA0_ENABLE, AND OPC$ENABLE_LOGFILE SHOULD+ ! BE OPC$LOGFILE_ENABLE. Q! 1 ! X-13 RAB010 ROBERT A. BROOKS 31-OCT-2001B ! FOR PATHAUTSW AND PATHMANSW, ADD THE NAME OF THE NODE THAT) ! IS SERVING THE OLD AND NEW PATHS. ! G ! X-12 KSG0138 KEVIN GREANEY 04-OCT-2000A ! CHANGE THE TEXT IN WSINCLUSTER TO REMOVE THE REFERENCE TO@ ! WORKSTATION. SINCE MANY ALPHA SERVERS ARE SHIPPING WITHD ! GRAPHICS CARDS, THEY ARE SEEN AS WORKSTATIONS BY THE COMMANDA ! PROCEDURE VMS$DEVICE_STARTUP.COM. CUSTOMERS R MIGHT NOT BED ! HAPPY SEEING THEIR ALPHASERVER REFERRED TO AS A WORKSTATION. ! G ! X-11 KSG0137 KEVIN GREANEY 07-SEP-2000A ! MOVE THE MESSAGE ADDED IN X-10 TO THE BOTTOM OF THE FILE.> ! THIS WAY, MESSAGES WILL RETAIN THE SAME VALUE IN CASE 6 ! SOMEONE USES THAT INSTEAD OF THE MESSAGE NAME. ! G ! X-10 OH OLIVER HELLWIG 30-JUN-2000. ! PTR 75-45-848 ? 75-52-354N ! S ADD A NEW MESSAGE FOR THE FIBRE CHANNEL DRIVER (FGE) THATQ ! IS USED TO TELL THE USER THAT A FIBRE CHANNEL STORAGE DEVICE4 ! REJECTED THE DRIVER PORT LOGIN. ! O ! X-9 KSG0132 KEVIN GREANEY 12-AUG-1999I ! ADD A TRAILING BLANK LINE TO THE WSINCLUSTER MESSAGEK ! ADDED BELOW. IT WILL MAKE IT STAND OUT A LITTLE MORE. ! P ! X-8 KSG0132 KEVIN GREANEY T 08-JUL-1999O ! ADD WSINCLUSTER MESSAGE TO LET USERS KNOW THAT THIS SYSTEMP ! IS A WORKSTATION IN A CLUSTER. AND, BY DEFAULT, OPCOM WILL@ ! NOT ENABLE THE OPERATOR CONSOLE OR LOGFILE. ! P ! X-7 KSG KEVIN GREANEY 15-APR-1999K ! ADD THE CODE TO INCLUDE THE STANDARD HEADER IN THE TWO: ! MESSAGES THAT WERE ADDED IN EDIT X-6. !  ! P ! U X-6 KSG KEVIN GREANEY 05-APR-1999F ! ADD OPA0CLERR AND LOGFCLERR ERROR MESSAGES. THISC ! IS PART OF THE FIX FOR CFS.51506/PTR 70-3-112. ! 7 ! NOTE: PATHINUSE WAS NOT ADDED IN EDIT X-5. THE3 ! REASON FOR THE OMISSION IS NOT KNOWN. ! . ! X-5 JMB022 JAMES M. BLUE 14-JUL-1998D ! THE FOLLOWING MESSAGES HAVE BEEN ADDED FOR DK DRIVER - FIBRE, ! CHANNEL AND MULTIPATH REQUIREMENTS V - ! ? ! PATHINUSE - ANOTHER WORLD WIDE ID DEVICE IS CURRENTLY9 ! AT THE SAME PORT, TARGET, LUN COMBINATION.> ! PATHNOTAVL - THE SPECIFIED PATH NO LONGER HAS DEVICES, ! EITHER ENABLED OR ACCESSIBLE.> ! PATHUSERD - THE PATH WAS DISABLED FOR USE BY POLLER.@ ! PATHAVL - THE SPECIFIED PATH HAS AT LEAST ONE DEVICE& ! ENABLED AND ACCESSIBLE.? ! PATHAUTSW - THE PATH TO THIS DEVICE HAS BEEN SWITCHED+ ! AUTOMAT WICALLY TO A NEW PATH.? ! PATHMANSW - THE PATH TO THIS DEVICE HAS BEEN SWITCHED& ! MANUALLY TO A NEW PATH. ! 2 ! X-4 KDM0235 KATHLEEN D. MORSE 29-JUL-1993B ! ADD NEW SHADOW MESSAGES: SHANODMP AND SHADMPOK FOR ALPHA. ! 1 ! X-3 DBM0001 DAVID B. MILLER 13-APR-1993. ! BLADE PARITY; MERGE OF LATEST CHANGES: ! : ! X-5 JJA92B05_1 JOHN J. ANDRUSZKIEWICZ 21-DEC-19920 ! ALIGN TO EXPECTED VSC GENERATION NUMBER.6 ! MOVE THOSE VOLXUME SHADOWING PHASE II MESSAGES. ! 9 ! X-10 JJA92B05 JOHN J. ANDRUSZKIEWICZ 14-DEC-1992/ ! ADD VOLUME SHADOWING PHASE II MESSAGES. ! 5 ! X-2 WES WILLIAM E. SNAMAN 12-JUN-1992 14:32 A ! CHANGE VAXCLUSTER TO VMSCLUSTER. FIX IDENT TO MATCH CMS. ! ) ! X-9 CWH5209 CW HOBBS 8-APR-19890 ! ADD REQUEST NUMBER TO NOPERATOR MESSAGE. ! * ! X-8 CWH5208 CW HOBBS 12-MAR-1989> ! ADD A MORE MEANINGFUL MESSAGE FOR "OPCOM not running". Y! 2 ! X-7 WES0235 WILLIAM E. SNAMAN 08-JAN-1988% ! FIX SPACING ERROR IN MESSAGE. ! 2 ! X-6 WES0185 WILLIAM E. SNAMAN 02-SEP-1987> ! ADD SOME NEW CLUSTER MESSAGES FOR SERVED QUORUM DISKS. ! 2 ! X-5 WES0171 WILLIAM E. SNAMAN 29-JUL-1987; ! ADD SOME NEW CLUSTER MESSAGES AND FIX MODULE IDENT. ! 2 ! X-2 NCD0001 NANCY C. DENARDO 29-DEC-1986" ! ADD LICENSE OPERATOR CLASS ! - ! V04-001 DBM0400 DB MILLS 9-SEP-1985& ! ADD ZVOLUME 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:418 ! FIX TEXT OF "counterfeit security alarm" MESSAGE ! . ! V03-011 CWH3011 CW HOBBS 18-MAY-19845 ! CHANGE THE IN OPREPLY TO A ?/ DIRECTIVE. ! 3 ! V03-010 MHB0158 MARK BRAMHALL 7-MAY-1984* ! FIX UP THE SEC [URITY ALARM MESSAGE. ! - ! V03-009 CWH3169 CW HOBBS 5-MAY-1984+ ! SECOND PASS FOR CLUSTER-WIDE OPCOM:C ! - CHANGE SEVERAL MESSAGES TO USE THE STANDARD HEADER, ONLY, ! A FEW STILL USE THE SHORT HEADER.A ! - CHANGE THE FORMAT OF THE HEADER SLIGHTLY, MAKE IT MORE5 ! CLEAR WHEN MESSAGES COME FROM OTHER NODES.A ! - REMOVE THE UDA50MVER AND TM78MVER MESSAGES AND REPLACE; ! THEM WITH THE SINGLE, GENERIC CTLRUCODE MESSAGE.? ! - A\DD THE CLU_NOQUORUM CONNECTION MANAGER MESSAGE - IT' ! WAS APPARENTLY NEVER PUT IN. ! . ! V03-008 CWH3008 CW HOBBS 12-APR-19846 ! CHANGE SOME OF THE CONNECTION MANAGER MESSAGES ! 4 ! V03-007 RSH0114 R. SCOTT HANNA 12_MAR-1984, ! CHANGE THE OPC$_COUNTERFEIT MESSAGE. ! 4 ! V03-006 RSH0110 R. SCOTT HANNA 28-FEB-1984A ! 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-1983; ! VARIOUS AND SUNDRY THINGS TO MAKE OPCOM DISTRIBUTED ! ACROSS THE CLUSTER. ! 6 ! V03-001 RLRV3A1 ROBERT L. RAPPAPORT 5-APR-19820 ! ADDED MSG$_UDA50MVER AND MSG$_DUPUNITNO. ! 7 ! V02-006 S ^TJ0180 STEVEN T. JEFFREYS, 07-JAN-1981= ! ADDED MVCOMPLETE AND MVABORTED MESSAGES, AND SLIGHTLYD ! CHANGE THE TEST OF THE EXISTING MOUNT VERIFICATION MESSAGES. ! 7 ! V02-005 STJ0079 STEVEN T. JEFFREYS, 31-JUL-19812 ! ADDED BLANK MESSAGE FOR THE MAG. TAPE ACP. ! 7 ! V02-004 STJ0063 STEVEN T. JEFFREYS, 14-JUL-1981* ! ADDED AN ALTERNATE CANCEL MESSAGE.: ! ADDED AN INITIALIZE MESSAGE FOR THE MAG. TAPE ACP.6 ! ADDED MESSAGES FOR MOUNT VERIFICAT_ION SUPPORT. ! 7 ! V02-003 STJ0042 STEVEN T. JEFFREYS, 22-MAY-1981< ! CHANGE FORMAT OF RQSTCMPLTE, RQSTABORT, AND RQSTPEND9 ! TO BE ENABLE EXISTING CODE TO PARSE THE MESSAGES. ! 7 ! V02-002 STJ0028 STEVEN T. JEFFREYS, 29-MAR-1981< ! MODIFY EXISTING MESSAGES AND ADD NEW ONES AS PART OF& ! THE SUPPORT FOR THE NEW OPCOM. ! +( ! OPERATOR COMMUNICATIONS MESSAGES  ! -/ DECLARE LONG CONSTANT OPCOM$_FACILITY = 52 DECLARE LONG CONST `ANT OPC$_TERMENAB = 3604491 DECLARE LONG CONSTANT OPC$_LOGINIT = 3604572 DECLARE LONG CONSTANT OPC$_TERMDSBL = 3604653 DECLARE LONG CONSTANT OPC$_RQSTABORT = 3604762 DECLARE LONG CONSTANT OPC$_RQSTPEND = 3604814 DECLARE LONG CONSTANT OPC$_RQSTCMPLTE = 3604891 DECLARE LONG CONSTANT OPC$_LOGFAIL = 3605002 DECLARE LONG CONSTANT OPC$_TERMFAIL = 3605084 DECLARE LONG CONSTANT OPC$_NOSUCHRQST = 3605164 DECLARE LONG CONSTANT OPC$_DEVOFFLINE = 3605243 a DECLARE LONG CONSTANT OPC$_DEVONLINE = 360532/ DECLARE LONG CONSTANT OPC$_NOCLI = 3605403 DECLARE LONG CONSTANT OPC$_NOPERATOR = 3605451 DECLARE LONG CONSTANT OPC$_UNKNOPR = 3605563 DECLARE LONG CONSTANT OPC$_DEVNOTERM = 3605641 DECLARE LONG CONSTANT OPC$_ILLRQST = 3605721 DECLARE LONG CONSTANT OPC$_RQSTCAN = 3605802 DECLARE LONG CONSTANT OPC$_OPRNOTIF = 3605851 DECLARE LONG CONSTANT OPC$_OPREPLY = 3605931 DECLARE LONG CONSTANT OPC$_LOG bTIME = 3606011 DECLARE LONG CONSTANT OPC$_LOGCLOS = 3606121 DECLARE LONG CONSTANT OPC$_USERQST = 3606191 DECLARE LONG CONSTANT OPC$_USERMSG = 3606270 DECLARE LONG CONSTANT OPC$_LOGSTS = 3606351 DECLARE LONG CONSTANT OPC$_OPERSTS = 3606432 DECLARE LONG CONSTANT OPC$_RQSTSTST = 3606512 DECLARE LONG CONSTANT OPC$_SHUTDOWN = 3606594 DECLARE LONG CONSTANT OPC$_SYSTEMOPER = 3606673 DECLARE LONG CONSTANT OPC$_GROUPOPER = 3606752 DECLARE LONG C cONSTANT OPC$_USEROPER = 3606834 DECLARE LONG CONSTANT OPC$_NOTENABLED = 360691 ! P ! THE FOLLOWING MESSAGES GIVE THE ASCII TEXT FOR THE OPERATOR TYPES. IT ISP ! POSSIBLE TO CHANGE THE MESSAGE TEXT TO ANYTHING DESIRED. FOR EXAMPLE, ANN ! INSTALLATION MIGHT WANT TO CALL OPER12 BY ANOTHER NAME, SAY FRONT_DESK.C ! THAT INSTALLATION WOULD CHANGE THE LINE WITH OPER12 TO READ: !  ! OPER12  ! Z ! AFTERWARDS, USERS ON THAT SYSTEM COULD REPLY d/ENABLE=FRONT_DESK, REQUEST /TO=FRONT,X ! A FRONT_DESK OPERATOR COULD DO A REPLY /STAT AND SEE THAT FRONT_DESK WAS ENABLED.V ! OF COURSE, A PROGRAMMER ON THAT SYSTEM WOULD USE THE SYMBOL OPC$_OPER12 TO SENDN ! A MESSAGE TO THE FRONT_DESK, SINCE THE MESSAGE NAME CAN NOT BE CHANGED. ! 0 DECLARE LONG CONSTANT OPC$_CENTRL = 360699/ DECLARE LONG CONSTANT OPC$_PRINT = 360707/ DECLARE LONG CONSTANT OPC$_TAPES = 360715/ DECLARE LONG CONSTANT OPC$_DISKS = 3607230 e DECLARE LONG CONSTANT OPC$_DEVICE = 360731/ DECLARE LONG CONSTANT OPC$_CARDS = 3607390 DECLARE LONG CONSTANT OPC$_NTWORK = 3607471 DECLARE LONG CONSTANT OPC$_CLUSTER = 3607552 DECLARE LONG CONSTANT OPC$_SECURITY = 360763/ DECLARE LONG CONSTANT OPC$_REPLY = 3607712 DECLARE LONG CONSTANT OPC$_SOFTWARE = 3607791 DECLARE LONG CONSTANT OPC$_LICENSE = 360787/ DECLARE LONG CONSTANT OPC$_OPER1 = 360795/ DECLARE LONG CONSTANT OPC$_OPER2 = 360803 f/ DECLARE LONG CONSTANT OPC$_OPER3 = 360811/ DECLARE LONG CONSTANT OPC$_OPER4 = 360819/ DECLARE LONG CONSTANT OPC$_OPER5 = 360827/ DECLARE LONG CONSTANT OPC$_OPER6 = 360835/ DECLARE LONG CONSTANT OPC$_OPER7 = 360843/ DECLARE LONG CONSTANT OPC$_OPER8 = 360851/ DECLARE LONG CONSTANT OPC$_OPER9 = 3608590 DECLARE LONG CONSTANT OPC$_OPER10 = 3608670 DECLARE LONG CONSTANT OPC$_OPER11 = 3608750 DECLARE LONG CONSTANT OPC$_OPER12 = 360883 g! 4 DECLARE LONG CONSTANT OPC$_DEVOFFLINX = 3608912 DECLARE LONG CONSTANT OPC$_WRONGVOL = 3608993 DECLARE LONG CONSTANT OPC$_DEVWRTLCK = 360907 ! 1 DECLARE LONG CONSTANT OPC$_INITAPE = 3609152 DECLARE LONG CONSTANT OPC$_RQSTDONE = 3609233 DECLARE LONG CONSTANT OPC$_BLANKTAPE = 360931 ! 4 DECLARE LONG CONSTANT OPC$_MVCOMPLETE = 3609393 DECLARE LONG CONSTANT OPC$_MVABORTED = 3609473 DECLARE LONG CONSTANT OPC$_CTLRUCODE = 3609553 hDECLARE LONG CONSTANT OPC$_DUPUNITNO = 3609635 DECLARE LONG CONSTANT OPC$_SECUR_ALARM = 3609715 DECLARE LONG CONSTANT OPC$_COUNTERFEIT = 3609795 DECLARE LONG CONSTANT OPC$_NODE_ACTIVE = 3609875 DECLARE LONG CONSTANT OPC$_NODE_DELETE = 3609957 DECLARE LONG CONSTANT OPC$_NODE_DEPARTED = 3610033 DECLARE LONG CONSTANT OPC$_NODE_INIT = 3610114 DECLARE LONG CONSTANT OPC$_NODE_RETRY = 3610194 DECLARE LONG CONSTANT OPC$_NODE_START = 3610271 DECLARE iLONG CONSTANT OPC$_UNKNOWN = 3610352 DECLARE LONG CONSTANT OPC$_CLUSCOMM = 3610431 DECLARE LONG CONSTANT OPC$_VALUERR = 3610521 DECLARE LONG CONSTANT OPC$_NOTRQCB = 3610607 DECLARE LONG CONSTANT OPC$_REPLY_GENERAL = 3610678 DECLARE LONG CONSTANT OPC$_REPLY_SHUTDOWN = 3610756 DECLARE LONG CONSTANT OPC$_REPLY_URGENT = 3610836 DECLARE LONG CONSTANT OPC$_REPLY_NOTALL = 3610917 DECLARE LONG CONSTANT OPC$_REPLY_NOTALLN = 3610996 DECLARE LONG CONSTAN jT OPC$_REPLY_NOTDEV = 3611076 DECLARE LONG CONSTANT OPC$_REPLY_NOTUSE = 3611157 DECLARE LONG CONSTANT OPC$_REPLY_NOTUSEN = 361123k DECLARE LONG CONSTANT OPC$_ON_NODE = 361131 ! PREPOSITION FOR "on nodename" ("on ATHENS") MESSAGES0 DECLARE LONG CONSTANT OPC$_HEADER = 3611395 DECLARE LONG CONSTANT OPC$_RQST_PROMPT = 3611474 DECLARE LONG CONSTANT OPC$_NOLCLBROAD = 3611524 DECLARE LONG CONSTANT OPC$_NOREMBROAD = 3611603 DECLARE LONG CONSTANT OPC$_NOREM kWAIT = 361168 !  ! CLUSTER MAILBOX MESSAGES ! FAO PARAMETER LIST IS: ! + ! TIMESTAMP - POINTER TO QUADWORD TIME1 ! LSYSNAML - LENGTH OF NAME OF LOCAL SYSTEM2 ! LSYSNAMA - ADDRESS OF NAME OF LOCAL SYSTEM5 ! LSYSIDW - HIGH ORDER WORD OF LOCAL SYSTEM ID8 ! LSYSIDL - LOW ORDER LONGWORD OF LOCAL SYSTEM ID$ ! LCSID - LOCAL SYSTEM CSID2 ! RSYSNAML - LENGTH OF NAME OF REMOTE SYSTEM3 ! RSYSNAMA - ADDRESS OF NAME OF REMOTE SYSTEM l6 ! RSYSIDW - HIGH ORDER WORD OF REMOTE SYSTEM ID9 ! RSYSIDL - LOW ORDER LONGWORD OF REMOTE SYSTEM ID% ! RCSID - REMOTE SYSTEM CSID ! ? ! MESSAGES USE THE "?+" DIRECTIVE TO SKIP OVER ITEMS WHICH= ! ARE NOT MEANINGFUL OR USEFUL FOR A PARTICULAR MESSAGE. ! 4 DECLARE LONG CONSTANT OPC$_CLU_NEWSYS = 3611791 DECLARE LONG CONSTANT OPC$_CLU_CNX = 3611873 DECLARE LONG CONSTANT OPC$_CLU_RECNX = 3611955 DECLARE LONG CONSTANT OPC$_CLU_LOSTC mNX = 3612034 DECLARE LONG CONSTANT OPC$_CLU_TIMCNX = 3612115 DECLARE LONG CONSTANT OPC$_CLU_INIFORM = 3612194 DECLARE LONG CONSTANT OPC$_CLU_INIADD = 3612278 DECLARE LONG CONSTANT OPC$_CLU_INIRECNFIG = 3612354 DECLARE LONG CONSTANT OPC$_CLU_MEMREQ = 3612433 DECLARE LONG CONSTANT OPC$_CLU_ABORT = 3612511 DECLARE LONG CONSTANT OPC$_CLU_ADD = 3612596 DECLARE LONG CONSTANT OPC$_CLU_DROPNODE = 3612676 DECLARE LONG CONSTANT OPC$_CLU_FORNCLUS = 361275 n6 DECLARE LONG CONSTANT OPC$_CLU_INQUORUM = 3612836 DECLARE LONG CONSTANT OPC$_CLU_LOSTDISK = 3612916 DECLARE LONG CONSTANT OPC$_CLU_GAINDISK = 3612997 DECLARE LONG CONSTANT OPC$_CLU_DISKRDERR = 3613077 DECLARE LONG CONSTANT OPC$_CLU_DISKWRERR = 3613158 DECLARE LONG CONSTANT OPC$_CLU_DISKINVDAT = 3613239 DECLARE LONG CONSTANT OPC$_CLU_DISKTIMEOUT = 3613315 DECLARE LONG CONSTANT OPC$_CLU_LOSTMSG = 3613396 DECLARE LONG CONSTANT OPC$_CLU_NOQUORUM o= 3613476 DECLARE LONG CONSTANT OPC$_CLU_FORNDISK = 3613556 DECLARE LONG CONSTANT OPC$_CLU_COMPLETE = 3613634 DECLARE LONG CONSTANT OPC$_CLU_QUORUM = 3613712 DECLARE LONG CONSTANT OPC$_CLU_ECNX = 3613796 DECLARE LONG CONSTANT OPC$_CLU_HAVEDISK = 3613874 DECLARE LONG CONSTANT OPC$_CLU_REMOTE = 3613953 DECLARE LONG CONSTANT OPC$_CLU_LOCAL = 3614039 DECLARE LONG CONSTANT OPC$_CLU_WTCHTIMEOUT = 3614119 DECLARE LONG CONSTANT OPC$_CLU_NOTRUST = 361419 p ! 2 ! FOLLOWING ARE DEVICE MESSAGE FOR SHADOWING. ! 3 DECLARE LONG CONSTANT OPC$_SHACHASTA = 3614273 DECLARE LONG CONSTANT OPC$_SHAMEMFAL = 3614353 DECLARE LONG CONSTANT OPC$_SHARDUCED = 3614433 DECLARE LONG CONSTANT OPC$_SHACOPCOM = 3614513 DECLARE LONG CONSTANT OPC$_SHACOPBEG = 3614593 DECLARE LONG CONSTANT OPC$_SHAALLCOM = 3614673 DECLARE LONG CONSTANT OPC$_SHAWROMEM = 3614753 DECLARE LONG CONSTANT OPC$_SHAREDZER = 3614833 DE qCLARE LONG CONSTANT OPC$_SHAPOSMEM = 3614913 DECLARE LONG CONSTANT OPC$_SHAORGMEM = 3614991 DECLARE LONG CONSTANT OPC$_NOOPCOM = 3615047 ! FOLLOWING ARE MORE DEVICE MESSAGE FOR SHADOWING. ! 3 DECLARE LONG CONSTANT OPC$_SHAADPBAD = 3615153 DECLARE LONG CONSTANT OPC$_SHAEMUPTH = 3615234 DECLARE LONG CONSTANT OPC$_SHABENODMP = 3615313 DECLARE LONG CONSTANT OPC$_SHABNODMP = 3615393 DECLARE LONG CONSTANT OPC$_SHALOCDEV = 3615473 DECLARE LONG r CONSTANT OPC$_SHANOBPOK = 3615553 DECLARE LONG CONSTANT OPC$_SHABDMPOK = 3615633 DECLARE LONG CONSTANT OPC$_BOOTDMPOK = 3615712 DECLARE LONG CONSTANT OPC$_SHABDBCK = 3615792 DECLARE LONG CONSTANT OPC$_SHANODMP = 361587o DECLARE LONG CONSTANT OPC$_SHADMPOK = 361595 ! THE FOLLOWING MESSAGES ARE FOR FIBRE CHANNEL - MULTIPATH ! 4 DECLARE LONG CONSTANT OPC$_PATHNOTAVL = 3616031 DECLARE LONG CONSTANT OPC$_PATHAVL = 3616113 DECLARE LONG CONSTANT OP sC$_PATHUSERD = 3616193 DECLARE LONG CONSTANT OPC$_PATHAUTSW = 3616273 DECLARE LONG CONSTANT OPC$_PATHMANSW = 3616353 DECLARE LONG CONSTANT OPC$_OPA0CLERR = 3616403 DECLARE LONG CONSTANT OPC$_LOGFCLERR = 3616485 DECLARE LONG CONSTANT OPC$_WSINCLUSTER = 3616598 DECLARE LONG CONSTANT OPC$_LOGIN_REJECTED = 3616642 DECLARE LONG CONSTANT OPC$_MVSUPMSG = 3616752 DECLARE LONG CONSTANT OPC$_INSAMCVP = 3616833 DECLARE LONG CONSTANT OPC$_HBMMRESET = 361 6916 DECLARE LONG CONSTANT OPC$_SHADISSOLVED = 3616995 DECLARE LONG CONSTANT OPC$_SHAMEMEXPEL = 3617073 DECLARE LONG CONSTANT OPC$_SHAMEMDMT = 3617151 DECLARE LONG CONSTANT OPC$_PE_CHCL = 3617231 DECLARE LONG CONSTANT OPC$_PE_CHOP = 3617314 DECLARE LONG CONSTANT OPC$_PE_ECS_OUT = 3617393 DECLARE LONG CONSTANT OPC$_PE_ECS_IN = 361747wwut ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED v( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINwG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > x %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSAC yHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ' z ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! ******** {******************************************************************* ! J ! 20-Mar-2007 JML QXCM1000393572 Headers returning complex resultsC ! can't be compiled by BASIC. ! H ! Well clearly the routines returning complex resultsO ! by value (requiring 2 registers) need header generation toH ! be limited to only those languages KNOWN to be able; ! to support it and likel |y to call them. !  ! I ! 14-Dec-2006 JML QXCM1000384200 Headers returning complex resultsB ! can't be compiled by C/C++ ! Q ! Now I understand why a number of headers have been commentedN ! out. When I added all the new IEEE forms, even for thoseP ! VAX forms commented out, I didn't realize that C/C++ cannotQ ! return more than 64bits by value. Five} of the existing IEEEO ! routines return complex results by value and those requireL ! 2 registers. This resulted in a .h file for C/C++ thatI ! would not compile. The fix is to use iflanguage andQ ! prevent those headers from being generated for C/C++. TheseK ! routines most likely will be called by Fortran anyway. ! N ! 23-Feb-2006 JML PTR 75-109-96 Add missing headers for IEEE forms ~of: ! various routines. ! Q ! As of 23-Feb-2006 SDL has no types to describe IEEE floatingO ! data. Since the actual type is only material with respectP ! to size of the argument (single vs double precision) we useN ! F-Floating to represent IEEE S-Floating and D-Floating to/ ! represent IEEE T-Floating. ! L ! In the course of fixing this PTR it was discovered thatM ! number of header definitions have been commented out forM ! years. Attempts to determine why they are commented outP ! proved futile. Rather than risk enabling them and possiblyP ! introducing a collision between the system supplied headersP ! and private headers users may have developed to work aroundH ! the lack of them, they shall remain commented ou t.L ! However, their new IEEE forms will be enabled as these @ ! routines only came into existence recently.? ! (see DPML$SHR.OPT checkin of 24-Mar-2004). !  ! OTS$CVT_T_D ! 8 ! Convert Numeric Text to D- or F-Floating Value ! ? ! The Convert Numeric Text to D- or F-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a D_floating or F_floating value. ! + EXTERNAL LONG FUNCTION ots$cvt_t_d & ( &% STRING BY DESC, &$ DOUBLE BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! WORD BY REF & ) ! OTS$CVT_T_F ! 8 ! Convert Numeric Text to D- or F-Floating Value ! ? ! The Convert Numeric Text to D- or F-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a D_floating or F_floating value. ! + EXTERNAL LONG FUNCTION ots$cvt_t_f & ( &% STRING BY DESC, &$ SINGLE BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! WORD BY REF & ) ! OTS$CVT_T_T ! 8 !  Convert Numeric Text to T- or S-Floating Value ! ? ! The Convert Numeric Text to T- or S-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a T_floating or S_floating value. ! + EXTERNAL LONG FUNCTION ots$cvt_t_t & ( &% STRING BY DESC, &$ DOUBLE BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$  LONG BY VALUE, &! WORD BY REF & ) ! OTS$CVT_T_S ! 8 ! Convert Numeric Text to T- or S-Floating Value ! ? ! The Convert Numeric Text to T- or S-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a T_floating or S_floating value. ! + EXTERNAL LONG FUNCTION ots$cvt_t_s & ( &% STRING BY DESC, &$  SINGLE BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! WORD BY REF & ) ! OTS$CVT_T_G ! 8 ! Convert Numeric Text to G- or H-Floating Value ! ? ! The Convert Numeric Text to G- or H-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a G_floating or H_floating value. ! +  EXTERNAL LONG FUNCTION ots$cvt_t_g & ( &% STRING BY DESC, &$ GFLOAT BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! WORD BY REF & ) ! OTS$CVT_T_H ! 8 ! Convert Numeric Text to G- or H-Floating Value ! ? ! The Convert Numeric Text to G- or H-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a G_floating or H_floating value. ! + EXTERNAL LONG FUNCTION ots$cvt_t_h & ( &% STRING BY DESC, &. BASIC$HFLOAT_AXP BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! WORD BY REF & ) ! OTS$DIVC !  ! Complex Division  ! ' ! The Complex Division routines: ! return a complex result of a division on complex ! numbers. ! 0 ! ENTRY ots$divc ALIAS $ots_divc PARAMETER (6 ! F_FLOATING COMPLEX NAMED complex_dividend IN0 ! TYPENAME f_floating_complex VALUE,5 ! F_FLOATING COMPLEX NAMED complex_divisor IN1 ! TYPENAME f_floating_complex VALUE )L ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$DIVCD_R3 !  ! Complex Division ! ' ! The Complex Division routines: ! return a complex result of a division on complex ! numbers. ! 8 ! ENTRY ots$divcd_r3 ALIAS $ots_divcd_r3 PARAMETER (6 ! D_FLOATING COMPLEX NAMED complex_dividend IN0 ! TYPENAME d_floating_complex VALUE,5 ! D_FLOATING COMPLEX NAMED complex_divisor IN1 ! TYPENAME d_floating_complex VALUE )L ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$DIVCG_R3 !  ! Complex Division ! ' ! The Complex Division routines: ! return a complex result of a division on complex ! numbers. ! 8 ! ENTRY ots$divcg_r3 ALIAS $ots_divcg_r3 PARAMETER (6 ! G_FLOATING COMPLEX NAMED complex_dividend IN0 ! TYPENAME g_floating_complex VALUE,5 ! G_FLOATING COMPLEX NAMED complex_divisor IN0 ! TYPENAME g_floatin_complex VALUE )L ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$DIVCS !  ! Complex Division ! ' ! The Complex Division routines: ! return a complex result of a division on complex ! numbers. !  ! OTS$DIVCT_R3 !  ! Complex Division ! ' ! The Complex Division routines: ! return a complex result of a division on complex ! numbers. !  ! OTS$DIV_PK_LONG ! 3 ! Packed Decimal Division with Long Divisor ! ? ! The Packed Decimal Division with Long Divisor routineE ! divides fixed-point decimal data, which is stored in packedT ! decimal form, when precision and scale requirements for the quotient call O ! for multiple precision division. The divisor must have a precision of& ! thirty or thirty-one digits. ! / EXTERNAL LONG FUNCTION ots$div_pk_long & ( &! ANY BY REF, &! ANY BY REF, &$ WORD BY VALUE, &! ANY BY REF, &$ WORD BY VALUE, &$ WORD BY VALUE, &# WORD BY VALUE & ) ! OTS$DIV_PK_SHORT ! 4 ! Packed Decimal Division with Short Divisor ! @ ! The Packed Decimal Division with Short Divisor routine* ! divides fixed-point decimal dataI ! when precision and scale requirements for the quotient call for' ! multiple-precision division. ! 0 EXTERNAL LONG FUNCTION ots$div_pk_short & ( &! ANY BY REF, &! ANY BY REF, &$ WORD BY VALUE, &! ANY BY REF, &$ WORD BY VALUE, &# WORD BY VALUE & ) ! OTS$MOVE3 ! ! Move Data Without Fill ! , ! The Move Data Without Fill routine? ! moves up to 231-1 bytes, (2,147,483,647 bytes) from aG ! specified source address to a specified destination address. !  EXTERNAL SUB ots$move3 & ( &$ LONG BY VALUE, &' BYTE DIM() BY REF, && BYTE DIM() BY REF & ) ! OTS$MOVE5 !  ! Move Data with Fill ! ) !  The Move Data with Fill routine? ! moves up to 231-1 bytes, (2,147,483,647 bytes) from aF ! specified source address to a specified destination address,8 ! with separate source and destination lengths, F ! and with fill. Overlap of the source and destination arrays% ! does not affect the result.1 !  EXTERNAL SUB ots$move5 & ( &$ LONG BY VALUE, &'  BYTE DIM() BY REF, &$ BYTE BY VALUE, &$ LONG BY VALUE, && BYTE DIM() BY REF & ) ! OTS$MULC ! ! Complex Multiplication ! - ! The Complex Multiplication routines6 ! calculate the complex product of two complex ! values. ! 0 ! ENTRY ots$mulc ALIAS $ots_mulc PARAMETER (8 ! F_FLOATING COMPLEX NAMED complex_multiplier IN0 ! TYPENAME f_floating_complex VALUE,: ! F_FLOATING COMPLEX NAMED complex_multiplicand IN1 ! TYPENAME f_floating_complex VALUE )L ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$MULCD_R3 ! ! Complex Multiplication ! - ! The Complex Multiplication routines6 ! calculate the complex product of two complex ! values. ! 8 ! ENTRY ots$mulcd_r3 ALIAS $ots_mulcd_r3 PARAMETER (8 ! D_FLOATING COMPLEX NAMED complex_multiplier IN0 ! TYPENAME d_floating_complex VALUE,: ! D_FLOATING COMPLEX NAMED complex_multiplicand IN1 ! TYPENAME d_floating_complex VALUE )L ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$MULCG_R3 ! ! Complex Multiplication ! - ! The Complex Multiplication routines6 ! calculate the complex product of two complex ! values. ! 8 ! ENTRY ots$mulcg_r3 ALIAS $ots_mulcg_r3 PARAMETER (8 ! G_FLOATING COMPLEX NAMED complex_multiplier IN0 ! TYPENAME g_floating_complex VALUE,: ! G_FLOATING COMPLEX NAMED complex_multiplicand IN1 ! TYPENAME g_floating_complex VALUE )L ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$MULCS ! ! Complex Multiplication ! - ! The Complex Multiplication routines6 ! calculate the complex product of two complex ! values. !  ! OTS$MULCT_R3 ! ! Complex Multiplication ! - ! The Complex Multiplication routines6 ! calculate the complex product of two complex ! values. !  ! OTS$CNVOUT ! Q ! Convert D_floating, G_floating or H_floating Number to Character String ! C ! The Convert Floating to Character String routines convert8 ! a D_floating, G_floating or H_floating number # ! to a character string in  ! the FORTRAN E format. ! * EXTERNAL LONG FUNCTION ots$cnvout & ( &$ DOUBLE BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! OTS$CNVOUT_G ! Q ! Convert D_floating, G_floating or H_floating Number to Character String ! C ! The Convert Floating to Character String routines convert8 ! a D_floating, G_floating or H_floating number # ! to a character string in  ! the FORTRAN E format. ! , EXTERNAL LONG FUNCTION ots$cnvout_g & ( &$ GFLOAT BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! OTS$CNVOUT_H ! Q ! Convert D_floating, G_floating or H_floating Number to Character String ! C ! The Convert Floating to Character String routines convert8 ! a D_floating, G_floating or H_floating number # ! to a character string in  ! the FORTRAN E format. ! , EXTERNAL LONG FUNCTION ots$cnvout_h & ( &. BASIC$HFLOAT_AXP BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! OTS$CNVOUT_S ! 4 ! Convert IEEE S_floatingto Character String ! C ! The Convert Floating to Character String routines convert< ! a IEEE S_floating number to a character string in  ! the FORTRAN E format. ! , EXTERNAL LONG FUNCTION ots$cnvout_s & ( &$ SINGLE BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! OTS$CNVOUT_T ! < ! Convert IEEE T_floating Number to Character String ! C ! The Convert Floating to Character String routines convert< ! a IEEE T_floating number to a character string in  ! the FORTRAN E format. ! , EXTERNAL LONG FUNCTION ots$cnvout_t & ( &$ DOUBLE BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! OTS$POWCC ! C ! Raise a Complex Base to a Complex Floating-Point Exponent ! P ! The Raise a Complex Base to a Complex Floating-Point Exponent routines= ! return the complex floating-point result of raising/ ! a complex base to a complex exponent. ! 2 ! ENTRY ots$powcc ALIAS $ots_powcc PARAMETER (2 ! F_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME f_floating_complex VALUE,@ ! F_FLOATING COMPLEX NAMED complex_exponent_value IN 1 ! TYPENAME f_floating_complex VALUE )L ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_float ing_complex; ! OTS$POWCDCD_R3 ! C ! Raise a Complex Base to a Complex Floating-Point Exponent ! O ! The Raise a Complex Base to a Complex Floating-Point Exponent routine/ ! returns the complex result of raising/ ! a complex base to a complex exponent. ! < ! ENTRY ots$powcdcd_r3 ALIAS $ots_powcdcd_r3 PARAMETER (2 ! D_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME d_floating_complex VALUE,< ! D_FL OATING COMPLEX NAMED complex_exponent_value IN1 ! TYPENAME d_floating_complex VALUE )L ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$POWCGCG_R3 ! C ! Raise a Complex Base to a Complex Floating-Point Exponent ! O ! The Raise a Complex Base to a Complex Floating-Point Exponent routine/ ! returns the complex result of raising/ ! a complex base to a complex exponent. ! < ! ENTRY ot s$powcgcg_r3 ALIAS $ots_powcgcg_r3 PARAMETER (2 ! G_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME g_floating_complex VALUE,< ! G_FLOATING COMPLEX NAMED complex_exponent_value IN1 ! TYPENAME g_floating_complex VALUE )L ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$POWCSCS ! C ! Raise a Complex Base to a Complex Floating-Point Exponent ! O ! The Raise a Complex Base to a Complex Floating-Point Exponent routine/ ! returns the complex result of raising/ ! a complex base to a complex exponent. !  ! OTS$POWCTCT_R3 ! C ! Raise a Complex Base to a Complex Floating-Point Exponent ! O ! The Raise a Complex Base to a Complex Floating-Point Exponent routine/ ! returns the complex result of raising/ ! a complex base to a complex exponent. !  ! OTS$POWCJ ! D ! Raise a Complex Base to a Signed Longword Integer Exponent ! I ! The Raise a Complex Base to a Signed Longword Integer Exponent M ! routine returns the complex result of raising a complex base to an ! integer exponent. ! 2 ! ENTRY ots$powcj ALIAS $ots_powcj PARAMETER (2 ! F_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME f_floating_complex VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME lon gword_signed VALUE )L ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$POWCDJ_R3 ! D ! Raise a Complex Base to a Signed Longword Integer Exponent ! I ! The Raise a Complex Base to a Signed Longword Integer Exponent L ! routine returns the complex result of raising a complex base to an ! integer exponent. ! : ! ENTRY ots$powcdj_r3 ALIAS $ots_powcdj_r3 PARAMETER (2 ! D_FLOATING COMPLEX N AMED complex_base IN0 ! TYPENAME D_floating_complex VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )L ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$POWCGJ_R3 ! D ! Raise a Complex Base to a Signed Longword Integer Exponent ! I ! The Raise a Complex Base to a Signed Longword Integer Exponent L ! routine returns the complex result of raising a complex base to an ! integer exponent. ! : ! ENTRY ots$powcgj_r3 ALIAS $ots_powcgj_r3 PARAMETER (2 ! G_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME g_floating_complex VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )L ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$POWCSJ ! D ! Raise a Complex Base to a Signed Longword Integer Expo nent ! I ! The Raise a Complex Base to a Signed Longword Integer Exponent M ! routine returns the complex result of raising a complex base to an ! integer exponent. !  ! OTS$POWCTJ_R3 ! D ! Raise a Complex Base to a Signed Longword Integer Exponent ! I ! The Raise a Complex Base to a Signed Longword Integer Exponent L ! routines return the complex result of raising a complex base to an ! integer exponent. !  ! OTS$POWDD ! 8 ! Raise a D_floating Base to D_floating Exponent ! F ! The Raise a D_floating Base to a D_floating Exponent routineT ! returns the D_floating result of raising a D_floating base to a D_floating ! exponent. ! 2 ! ENTRY ots$powdd ALIAS $ots_powdd PARAMETER (3 ! D_FLOATING NAMED D_floating_point_base IN( ! TYPENAME d_floating VALUE,7 ! D_FLOATING NAMED D_floatin g_point_exponent IN) ! TYPENAME d_floating VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWDJ ! 8 ! Raise a D_floating Base to a Longword Exponent ! D ! The Raise a D_floating Base to a Longword Exponent routine] ! returns the D_floating result of raising a D_floating base to a longword exponent. ! 2 ! ENTRY ots$powdj ALIAS $ots_powdj PARAMETER (3 ! D_FLOATING NAMED D_floating_point_ base IN( ! TYPENAME d_floating VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWDR ! ; ! Raise a D_floating Base to an F_floating Exponent ! H ! The Raise a D_floating Base to an F_floating Exponent routinesJ ! return the D_floating result of raising a D_floating base to an  ! F_floating exponent. ! 2 ! ENTRY ots$powdr ALIAS $ots_powdr PARAMETER (3 ! D_FLOATING NAMED D_floating_point_base IN( ! TYPENAME d_floating VALUE,7 ! F_FLOATING NAMED F_floating_point_exponent IN) ! TYPENAME f_floating VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWGG ! : ! Raise a G_floating Base to a G_floating Exponent ! F ! The Raise a G_floating Base to a G_floating Exponent routine^  ! returns the G_floating result of raising a G_floating base to a G_floating exponent. ! 2 ! ENTRY ots$powgg ALIAS $ots_powgg PARAMETER (3 ! G_FLOATING NAMED G_floating_point_base IN( ! TYPENAME g_floating VALUE,7 ! G_FLOATING NAMED G_floating_point_exponent IN) ! TYPENAME g_floating VALUE )< ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWTT ! F ! Raise an IEEE T_floating Base to an IEEE T_floating Exponent ! R ! The Raise an IEEE T_floating Base to an IEEE T_floating Exponent routineP ! returns the IEEE T_floating result of raising an IEEE T_floating base ) ! to an IEEE T_floating exponent. !  ! + EXTERNAL DOUBLE FUNCTION ots$powtt & ( && DOUBLE BY VALUE, &% DOUBLE BY VALUE & ) ! OTS$POWGJ ! 8 ! Raise a G_floating Base to a Longwor d Exponent ! D ! The Raise a G_floating Base to a Longword Exponent routine\ ! returns the G_floating result of raising a G_floating base to a longword exponent. ! 2 ! ENTRY ots$powgj ALIAS $ots_powgj PARAMETER (3 ! G_FLOATING NAMED G_floating_point_base IN( ! TYPENAME g_floating VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )< ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWTJ ! > ! Raise an IEEE T_floating Base to a Longword Exponent ! L ! The Raise and IEEE T_floating Base to a Longword Exponent routine L ! returns the IEEE T_floating result of raising an IEEE T_floating & ! base to a longword exponent. ! + EXTERNAL DOUBLE FUNCTION ots$powtj & ( && DOUBLE BY VALUE, &# LONG BY VALUE & ) !  OTS$POWHH_R3 ! < ! Raise an H_floating Base to an H_floating Exponent ! A ! The Raise an H_floating Base to an H_floating Exponent N ! routine returns the H_floating result of raising an H_floating base % ! to an H_floating exponent.  ! 8 ! ENTRY ots$powhh_r3 ALIAS $ots_powhh_r3 PARAMETER (3 ! H_FLOATING NAMED H_floating_point_base IN( ! TYPENAME h_floating VALUE,7 ! H_FLOATING NAMED H_floating_po int_exponent IN) ! TYPENAME h_floating VALUE )< ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$POWHJ_R3 ! : ! Raise an H_floating Base to an Longword Exponent ! > ! The Raise an H_floating Base to a Longword Exponent I ! routine returns the H_floating result of raising an H_floating ' ! base to a longword exponent. ! 8 ! ENTRY ots$powhj_r3 ALIAS $ots_powhj_r3 PARAMETER (3 ! H_FLOATING N AMED H_floating_point_base IN( ! TYPENAME h_floating VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )< ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$POWII ! . ! Raise a Word Base to a Word Exponent ! : ! The Raise a Word Base to a Word Exponent routineL ! returns the word result of raising a word base to a word exponent. ! ) EXTERNAL WORD FUNCTION ots$powii & ( &$ WORD BY VALUE, &# WORD BY VALUE & ) ! OTS$POWJJ ! 6 ! Raise a Longword Base to a Longword Exponent ! B ! The Raise a Longword Base to a Longword Exponent routineB ! returns the longword result of raising a signed longword/ ! base to a signed longword exponent. ! ) EXTERNAL LONG FUNCTION ots$powjj & ( &$  LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$POWLULU ! J ! Raise an Unsigned Longword Base to an Unsigned Longword Exponent ! F ! The Raise an Unsigned Longword Base to an Unsigned Longword C ! Exponent routine returns the unsigned longword result of 7 ! raising an unsigned longword integer base to 0 ! an unsigned longword integer exponent. ! + EXTERNAL LONG FUNCTION ots$powlulu & ( &$ LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$POWRD ! 9 ! Raise an F_floating Base to D_floating Exponent ! @ ! The Raise an F_floating Base to a D_floating Exponent > ! routine returns the F_floating result of raising an 4 ! F_floating base to a D_floating exponent. ! 2 ! ENTRY ots$powrd ALIAS $ots_powrd PARAMETER (3 ! F_FLOATING NAM ED F_floating_point_base IN( ! TYPENAME f_floating VALUE,7 ! D_FLOATING NAMED D_floating_point_exponent INA ! TYPENAME d_floating VALUE ) < ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWRJ ! 9 ! Raise an F_floating Base to a Longword Exponent ! > ! The Raise an F_floating Base to a Longword Exponent > ! routine returns the F_floating result of raising an 2 ! F_floating base to a longword exponent. ! + EXTERNAL SINGLE FUNCTION ots$powrj & ( && SINGLE BY VALUE, &# LONG BY VALUE & ) ! OTS$POWSJ ! > ! Raise an IEEE S_floating Base to a Longword Exponent ! K ! The Raise an IEEE S_floating Base to a Longword Exponent routine P ! returns the IEEE S_floating result of raising an IEEE S_floating base " ! to a longword exponent.  ! + EXTERNAL SINGLE FUNCTION ots$powsj & ( && SINGLE BY VALUE, &# LONG BY VALUE & ) ! OTS$POWRR ! 9 ! Raise an F_floating Base to F_floating Exponent ! A ! The Raise an F_floating Base to an F_floating Exponent I ! routine returns the F_floating result of raising an F_floating * ! base to an F_floating exponent. ! + EXTERNAL SINGLE FUNCTION ots$powrr & ( && SINGLE BY VALUE, &% SINGLE BY VALUE & ) ! OTS$POWSS ! C ! Raise an IEEE S_floating Base to IEEE S_floating Exponent ! H ! The Raise an IEEE S_floating Base to IEEE S_floating Exponent@ ! routines retursn the IEEE S_floating result of raisingB ! an IEEES_floating base to an IEEE S_floating exponent.  ! + EXTERNAL SINGLE FUNCTION ots$powss & ( && SINGLE BY VALUE, &% SINGLE BY VALUE & ) ! OTS$POWRLU ! N ! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent ! I ! The Raise a Floating-Point Base to an Unsigned Longword IntegerH ! Exponent routines returns the floating-point result of raisingJ ! a floating-point base to an unsigned longword integer exponent. ! ,  EXTERNAL SINGLE FUNCTION ots$powrlu & ( && SINGLE BY VALUE, &# LONG BY VALUE & ) ! OTS$POWDLU ! J ! Raise a D-Floating Base to an Unsigned Longword Integer Exponent ! F ! The Raise a D-Floating Base to an Unsigned Longword Integer D ! Exponent routines returns the D-Floating result of raisingF ! a D-Floating base to an unsigned longword integer exponent. ! 4  ! ENTRY ots$powdlu ALIAS $ots_powdlu PARAMETER (1 ! D_FLOATING NAMED floating_point_base IN( ! TYPENAME d_floating VALUE,@ ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN0 ! TYPENAME longword_unsigned VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWGLU ! J ! Raise a G_floating Base to an Unsigned Longword Integer Exponent ! F ! The Raise a G-Floating Base to an Unsigned Longw ord Integer D ! Exponent routines returns the G-Floating result of raisingF ! a G-Floating base to an unsigned longword integer exponent. ! 4 ! ENTRY ots$powglu ALIAS $ots_powglu PARAMETER (1 ! G_FLOATING NAMED floating_point_base IN( ! TYPENAME g_floating VALUE,@ ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN0 ! TYPENAME longword_unsigned VALUE )< ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWSLU ! P ! Raise an IEEE S-Floating Base to an Unsigned Longword Integer Exponent ! O ! The Raise an IEEE S-Floating Base to an Unsigned routines returns theL ! IEEE S-flloating result of raising an IEEE S-Floating base to an . ! unsigned longword integer exponent. ! , EXTERNAL SINGLE FUNCTION ots$powslu & ( && SINGLE BY VALUE, &# LONG BY VALUE & ) !  OTS$POWTLU ! P ! Raise an IEEE T-Floating Base to an Unsigned Longword Integer Exponent ! L ! The Raise and IEEE T-Floating Base to an Unsigned Longword IntegerJ ! Exponent routines returns the IEEE T-Floating result of raising L ! an IEEE T-Floating base to an unsigned longword integer exponent. ! , EXTERNAL DOUBLE FUNCTION ots$powtlu & ( && DOUBLE BY VALUE, &# LONG BY VALUE &  ) ! OTS$POWHLU_R3 ! K ! Raise an H-Floating Base to an Unsigned Longword Integer Exponent ! G ! The Raise an H-Floating Base to an Unsigned Longword Integer C ! Exponent routine returns the H-Floating result of raisingG ! an H-Floating base to an unsigned longword integer exponent. ! : ! ENTRY ots$powhlu_r3 ALIAS $ots_powhlu_r3 PARAMETER (1 ! H_FLOATING NAMED floating_point_base IN( ! TY PENAME h_floating VALUE,@ ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN0 ! TYPENAME longword_unsigned VALUE )< ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$SCOPY_DXDX ! K ! Copy a Source String Passed by Descriptor to a Destination String ! P ! The Copy a Source String Passed by Descriptor to a Destination String  ! routineJ ! copies a source string to a destination string. Both strings are ! passed by descriptor. ! . EXTERNAL WORD FUNCTION ots$scopy_dxdx & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! OTS$SCOPY_R_DX ! J ! Copy a Source String Passed by Reference to a Destination String ! O ! The Copy a Source String Passed by Reference to a Destination String M ! routine copies a source string passed by reference to a destination ! string. ! . EXTERNAL WORD FUNCTION ots$scopy_r_dx & ( &$ WORD BY VALUE, &$ STRING BY REF, &$ STRING BY DESC & ) ! OTS$SFREE1_DD ! # ! Strings, Free One Dynamic ! - ! The Free One Dynamic String routine: ! returns one dynamic string area to free storage. ! # EXTERNAL SUB ots$sfree1_dd & ( &+  BASIC$QUADWORD BY REF & ) ! OTS$SFREEN_DD+ ! ! ! Strings, Free n Dynamic ! , ! The Free n Dynamic Strings routineI ! takes as input a vector of one or more dynamic string areas and( ! returns them to free storage. ! # EXTERNAL SUB ots$sfreen_dd & ( &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! OTS$SGET1_DD ! " ! Strings, Get One Dynamic ! - ! The Get One Dynamic String routine B ! allocates a specified number of bytes of dynamic virtual3 ! memory to a specified string descriptor. ! " EXTERNAL SUB ots$sget1_dd & ( &$ WORD BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! OTS$CVT_L_TB ! 4 ! Convert an Unsigned Integer to Binary Text ! @ ! The Convert an Unsigned Integer to Binary Text routineC ! converts an unsigned integer value of arbitrary length toR ! binary representation in an ASCII text string. By default, a longword is ! converted. ! , EXTERNAL LONG FUNCTION ots$cvt_l_tb & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE &  ) ! OTS$CVT_L_TI ! 0 ! Convert Signed Integer to Decimal Text ! < ! The Convert Signed Integer to Decimal Text routineH ! converts a signed integer to a decimal ASCII text string. ThisS ! routine supports FORTRAN Iw and Iw.m output and BASIC output conversion. ! , EXTERNAL LONG FUNCTION ots$cvt_l_ti & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_L_TL ! ) ! Convert Integer to Logical Text ! 5 ! The Convert Integer to Logical Text routineD ! converts an integer to an ASCII text string representation, ! using FORTRAN L (logical) format. ! , EXTERNAL LONG FUNCTION ots$cvt_l_tl & ( &" LONG BY REF, &$  STRING BY DESC & ) ! OTS$CVT_L_TO ! 0 ! Convert Unsigned Integer to Octal Text ! < ! The Convert Unsigned Integer to Octal Text routineE ! converts an unsigned integer to an octal ASCII text string.O ! OTS$CVT_L_TO supports FORTRAN Ow and Ow.m output conversion formats. ! , EXTERNAL LONG FUNCTION ots$cvt_l_to & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_L_TU ! 2 ! Convert Unsigned Integer to Decimal Text ! > ! The Convert Unsigned Integer to Decimal Text routineE ! converts a byte, word or longword value to unsigned decimalK ! representation in an ASCII text string. By default, a longword is ! converted. ! , EXTERNAL LONG FUNCTION ots$cvt_l_tu & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_L_TZ ! - ! Convert Integer to Hexadecimal Text ! 9 ! The Convert Integer to Hexadecimal Text routineB ! converts an unsigned integer to a hexadecimal ASCII textM ! string. OTS$CVT_L_TZ supports FORTRAN Zw and Zw.m output conversion ! formats. ! , EXTERNAL LONG FUNCTION ots$cvt_l_tz & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TB_L ! 1 ! Convert Binary Text to Unsigned Integer ! = ! The Convert Binary Text to Unsigned Integer routineE ! converts an ASCII text string representation of an  unsignedT ! binary value to an unsigned integer value of arbitrary length. By default,P ! the result is a longword. Valid input characters are the blank and the0 ! digits 0 and 1. No sign is permitted. ! , EXTERNAL LONG FUNCTION ots$cvt_tb_l & ( &% STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TI_L ! 0 ! Convert Signed Integer Text to Integer ! < ! The Convert Signed Integer Text to Integer routineC ! converts an ASCII text string representation of a decimalD ! number to a signed byte, word, or longword integer value. % ! The result is a longword byM ! default, but the calling program can specify a byte or a word value ! instead. ! , EXTERNAL LONG FUNCTION ots$cvt_ti_l & ( &%  STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TL_L ! ) ! Convert Logical Text to Integer ! 5 ! The Convert Logical Text to Integer routineH ! converts an ASCII text string representation of a FORTRAN-77 LX ! format to a byte, word, or longword integer value. The result is a longword byM ! default, but the calling program can specify a byte or a word value ! instead. ! , EXTERNAL LONG FUNCTION ots$cvt_tl_l & ( &% STRING BY DESC, &! ANY BY REF, &+ OPTIONAL LONG BY VALUE & ) ! OTS$CVT_TO_L ! . ! Convert Octal Text to Signed Integer ! : ! The Convert Octal Text to Signed Integer routine< ! converts an ASCII text string representation of anR ! octal value to an signed integer of an arbitrary length. The result is aP ! longword by default, but the calling program can specify a byte, word, ! or longword. ! , EXTERNAL LONG FUNCTION ots$cvt_to_l & ( &% STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TU_L ! 2 ! Conv ert Unsigned Decimal Text to Integer ! ? ! The Convert Unsigned Decimal Text to Integer routine E ! converts an ASCII text string representation of an unsignedU ! decimal value to an unsigned byte, word, or longword value. By default, theU ! result is a longword. Valid input characters are the space and the digits 0+ ! through 9. No sign is permitted. ! , EXTERNAL LONG FUNCTION ots$cvt_tu_l & ( &%  STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TZ_L ! 6 ! Convert Hexadecimal Text to Unsigned Integer ! B ! The Convert Hexadecimal Text to Unsigned Integer routineE ! converts an ASCII text string representation of an unsignedJ ! hexadecimal value to an unsigned integer of an arbitrary length.R ! The result i s a longword by default, but the calling program can specify# ! a byte, word, or longword ! value. ! , EXTERNAL LONG FUNCTION ots$cvt_tz_l & ( &% STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & )ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.70 ! & ! FILE: OTSMSG.MSG EDIT: SBL2003 ! R ! ************************************************************** ************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM OTSMSG.MDL( ! VERSION 1-009. SBL 22-APR-19813 ! 2-002 - ADD OTS$_WRONUMARG. RKR 4-SEP-19816 ! 2-003 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982 ! -- ! +C ! SYM BOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! OTS$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $OTSDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.< ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL;D ! 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$)6 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE- ! ; SET LH TO 23 (DECIMAL) OTS$  PREFIX. DECLARE LONG CONSTANT OTS$_FACILITY = 234 DECLARE LONG CONSTANT OTS$_INVSTRDES = 15401084 DECLARE LONG CONSTANT OTS$_FATINTERR = 15401164 DECLARE LONG CONSTANT OTS$_INTDATCOR = 15401244 DECLARE LONG CONSTANT OTS$_IO_CONCLO = 15401324 DECLARE LONG CONSTANT OTS$_INPCONERR = 15401404 DECLARE LONG CONSTANT OTS$_OUTCONERR = 15401484 DECLARE LONG CONSTANT OTS$_STRIS_INT = 15401564 DECLARE LONG CONSTANT OTS$_INSVIRMEM = 15401644 DECLARE LO NG CONSTANT OTS$_WRONUMARG = 1540172 ! ; OTS$SCOPY ! +$ ! DEFINE OTS$ WARNING MESSAGES: ! -> ! ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$)7 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE WARNING- ! ; SET LH TO 23 (DECIMAL) OTS$ PREFIX4 DECLARE LONG CONSTANT OTS$_USEFLORES = 1541120ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  = ! Definitions for RTL Parallel Processing Facility - PPL !  ! Pre-defined event ids. ! Y DECLARE LONG CONSTANT PPL$K_ABNORMAL_EXIT = -2 ! abnormal participant terminationU DECLAR E LONG CONSTANT PPL$K_NORMAL_EXIT = -1 ! normal participant termination ! # ! Shared memory options flags. ! 6 DECLARE LONG CONSTANT PPL$M_NOZERO = x'00000001'5 DECLARE LONG CONSTANT PPL$M_NOWRT = x'00000002'5 DECLARE LONG CONSTANT PPL$M_FLUSH = x'00000004'5 DECLARE LONG CONSTANT PPL$M_NOUNI = x'00000008': DECLARE LONG CONSTANT PPL$m_mopt_spare = x'FFFFFFF0'1 DECLARE LONG CONSTANT PPL$s_mem_options = 4 record mem_options ! not demand-zero ! read-only ! write to disk* ! non-unique name not requested ! extra bitsh LONG NOZERO_bits ! COMMENT ADDED BY SDL - NOZERO_bits contains bits NOZERO through mopt_spare end record mem_options  ! ! Processing options flags. ! : DECLARE LONG CONSTANT PPL$M_INIT_SYNCH = x'00000001'7 DECLARE LONG CONSTANT PPL$M_NODEBUG = x'00000002'= DECLARE LONG CONSTANT PPL$M_STOP_CHILDREN = x'000000 04'< DECLARE LONG CONSTANT PPL$M_NON_BLOCKING = x'00000008': DECLARE LONG CONSTANT PPL$M_NOTIFY_ONE = x'00000010'9 DECLARE LONG CONSTANT PPL$M_SPIN_WAIT = x'00000020'8 DECLARE LONG CONSTANT PPL$M_FORMONLY = x'00000040'8 DECLARE LONG CONSTANT PPL$M_JOINONLY = x'00000080'4 DECLARE LONG CONSTANT PPL$M_PERM = x'00000100'6 DECLARE LONG CONSTANT PPL$M_SYSTEM = x'00000200'9 DECLARE LONG CONSTANT PPL$M_DELETEALL = x'00000400'9 DECLARE LONG CONSTANT PPL$ M_TAILFIRST = x'00000800'6 DECLARE LONG CONSTANT PPL$M_ATHEAD = x'00001000'8 DECLARE LONG CONSTANT PPL$M_FROMTAIL = x'00002000'8 DECLARE LONG CONSTANT PPL$M_FORCEDEL = x'00004000'8 DECLARE LONG CONSTANT PPL$M_NOCLISYM = x'00008000'8 DECLARE LONG CONSTANT PPL$M_NOLOGNAM = x'00010000'8 DECLARE LONG CONSTANT PPL$M_NOKEYPAD = x'00020000'6 DECLARE LONG CONSTANT PPL$M_NOTIFY = x'00040000'9 DECLARE LONG CONSTANT PPL$M_NOCONTROL = x'00080000'; DECLARE LO NG CONSTANT PPL$M_CALL_UNIQUE = x'00100000'; DECLARE LONG CONSTANT PPL$M_PROC_UNIQUE = x'00200000'< DECLARE LONG CONSTANT PPL$M_SPIN_COUNTED = x'00400000'@ DECLARE LONG CONSTANT PPL$M_NOSAVE_PROC_INFO = x'00800000'< DECLARE LONG CONSTANT PPL$M_IGNORE_EXITS = x'01000000': DECLARE LONG CONSTANT PPL$m_popt_spare = x'FE000000'2 DECLARE LONG CONSTANT PPL$s_proc_options = 4 record proc_options. ! parent blocks until children init ! disable  DEBUG1 ! stop children of terminating process1 ! don't block if semaphore unavailable. ! notify only one enabler for event$ ! spin rather than $HIBER0 ! Only form (do not join) a new appl.0 ! Only join (do not form) a new appl.+ ! Create a permanent application- ! Create a system-wide application0 ! Delete all corresponding work items& ! Delete from tail of queue( ! Insert at t he head of queue& ! Remove from tail of queue) ! Force deletion of work queue0 ! Do not inherit parent's CLI symbols- ! Do not inherit parent's logicals1 ! Inherit parent's keypad state ? defs1 ! Broadcast message on child terminate1 ! No carriage control prefix on prompt% ! Request call unique name( ! Request process unique name1 ! Spin for counted period before hiber ! extra bitst LONG INIT_SYNCH_bits ! COMMENT ADDED BY SDL - INIT_SYNCH_bits contains bits INIT_SYNCH through popt_spare end record proc_options wwm ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSAC HUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! 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 *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! ***************************************************************************& ! PPL$ADJUST_SEMAPHORE_MAXIMUM ! $ ! Adjust a Semaphore Maximum ! U ! The Adjust a Semaphore Maximum routine increments or decrements the maximum' ! associated with a semaphore. ! < EXTERNAL LONG FUNCTION ppl$adjust_semaphore_maximum & ( &" LONG BY REF, &! WORD BY REF & ) ! PPL$ADJUST_QUORUM !  ! Adjust Barrier Quorum ! O ! The Adjust Barrier Quorum routine increments or decrements the quorum$ ! associated with a barrier. ! 1 EXTERNAL LONG FUNCTION ppl$adjust_quorum & ( &" LONG BY REF, &! WORD BY REF & ) ! PPL$AWAIT_EVENT ! ! Await Event Occurrence ! M ! The Await Event Occurrence routine blocks the caller until an event ! occurs. ! / EXTERNAL LONG FUNCTION ppl$await_event & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! PPL$CREATE_APPLICATION ! ) ! Form or Join a PPL$ Application ! P ! The Form or Join a PPL$ Application routine informs the PPL$ facility P ! that the calling process is forming or joining a parallel application. ! 6  EXTERNAL LONG FUNCTION ppl$create_application & ( &* OPTIONAL LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! PPL$CREATE_BARRIER !  ! Create a Barrier ! @ ! The Create a Barrier routine creates and initializes a6 ! barrier, and returns the barrier identifier.J ! You use the barrier identifier to perform all operations on that ! barrier. ! 2 EXTERNAL LONG FUNCTION ppl$create_barrier & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &! WORD BY REF & ) ! PPL$CREATE_EVENT !  ! Create an Event ! M ! The Create an Event routine creates an arbitrary user-defined eventK ! and returns the event identifier. You use the event identifier to0 !  perform all operations on that event. ! 0 EXTERNAL LONG FUNCTION ppl$create_event & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) ! PPL$CREATE_SPIN_LOCK !  ! Create Spin Lock ! N ! The Create Spin Lock routine creates and initializes a simple (spin)Q ! lock, and returns the lock identifier. You use that lock identifier to ! get and free the lock. ! 4 EXTERNAL LONG FUNCTION ppl$create_spin_lock & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & )" ! PPL$CREATE_SHARED_MEMORY !  ! Create Shared Memory ! L ! The Create Shared Memory routine creates (if necessary) and maps aE ! section of memory that can be shared by multiple processes. ! 8 EXTERNAL LONG FUNCTION ppl$create_shared_memory &  ( &% STRING BY DESC, &' LONG DIM() BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! PPL$CREATE_WORK_QUEUE !  ! Create a Work Queue ! S ! The Create a Work Queue routine creates and initializes a work queue, and, ! returns the work queue identifier. ! 5 EXTERNAL LONG FUNCTION ppl$create_work_queue & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) ! PPL$CREATE_SEMAPHORE !  ! Create a Semaphore ! B ! The Create a Semaphore routine creates and initializes aO ! semaphore with a waiting queue, and returns the semaphore identifier.L ! You use the semaphore identifier to perform all operations on that ! semaphore. ! 4 EXTERNAL LONG FUNCTION ppl$create_semaphore & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &! WORD BY REF & ) ! PPL$CREATE_VM_ZONE ! * ! Create a New Virtual Memory Zone ! L ! The Create a New Virtual Memory Zone routine creates a new storageK ! zone, according to specified arguments, which is available to all* ! participants in the application. ! 2 EXTERNAL LONG FUNCTION ppl$create_vm_zone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! PPL$DELETE_APPLICATION ! # ! Delete a PPL$ Application ! K ! The Delete a PPL$ Application routine marks all shared memory forR ! deletion and prevents additional processes from joining the application. ! 4 EXTERNAL LONG FUNCTION ppl$delete_application! ! PPL$DECREMENT_SEMAPHORE !  ! Decrement a Semaphore ! K ! The Decrement a Semaphore routine waits for a semaphore to have a9 ! value greater than 0, then decrements the value8 ! by 1 to indicate the allocation of a resource. ! 7 EXTERNAL LONG FUNCTION ppl$decrement_semaphore & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! PPL$DISABLE_EVENT ! 7 ! Disable Asynchronous Notification of an Event ! Z ! The Disable Asynchronous Notification of an Event routine disables delivery to aF ! process of notification of an event by either AST or signal. ! 1 EXTERNAL LONG FUNCTION ppl$disable_event & ( &! LONG BY REF & ) ! PPL$DELETE_WORK_ITEM ! " ! Delete a Work Queue Item ! N ! The Delete a Work Queue Item routine deletes a work item from a work ! queue. ! 4 EXTERNAL LONG FUNCTION ppl$delete_work_item & ( &"  LONG BY REF, &$ LONG BY VALUE, &) OPTIONAL LONG BY REF & )" ! PPL$DELETE_SHARED_MEMORY !  ! Delete Shared Memory ! J ! The Delete Shared Memory routine deletes or unmaps from a globalN ! section that you created using the PPL$CREATE_SHARED_MEMORY routine.O ! Optionally, this routine writes the contents of the global section to+ ! disk before deleting the section. ! 8 EXTERNAL LONG FUNCTION ppl$delete_shared_memory & ( &% STRING BY DESC, &/ OPTIONAL LONG DIM() BY REF, &! LONG BY REF & ) ! PPL$DELETE_WORK_QUEUE !  ! Delete a Work Queue ! X ! The Delete a Work Queue routine deletes the specified work queue, and releases) ! any storage associated with it. ! 5 EXTERNAL LONG FUNCTION ppl$delete_work_queue & ( &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! PPL$ENABLE_EVENT_AST ! - ! Enable AST Notification of an Event ! R ! The Enable AST Notification of an Event routine specifies the address ofU ! an AST routine (and optionally an argument to that routine) to be delivered ! when an event occurs. ! 4  EXTERNAL LONG FUNCTION ppl$enable_event_ast & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL ANY BY VALUE & )! ! PPL$ENABLE_EVENT_SIGNAL ! 0 ! Enable Signal Notification of an Event ! H ! The Enable Signal Notification of an Event routine specifies a? ! condition value to be signaled when the event occurs. ! 7 EXTERNAL LONG FUNCTION ppl$enab le_event_signal & ( &" LONG BY REF, &+ OPTIONAL LONG BY VALUE & )! ! PPL$FLUSH_SHARED_MEMORY !  ! Flush Shared Memory ! O ! The Flush Shared Memory routine writes (flushes) to disk the contentsQ ! of a global section that you created using the PPL$CREATE_SHARED_MEMORYJ ! routine. Only pages that have been modified are flushed to disk. ! 7 EXTERNAL LONG  FUNCTION ppl$flush_shared_memory & ( &% STRING BY DESC, &/ OPTIONAL LONG DIM() BY REF, &! LONG BY REF & ) ! PPL$FIND_OBJECT_ID ! $ ! Find Object Identification ! O ! Given the name of a spin lock, semaphore, barrier, event, work queue,O ! or shared memory zone, the Find Object Identification routine returnsM ! the identifier of the object associate d with the name you specify. ! 2 EXTERNAL LONG FUNCTION ppl$find_object_id & ( &" LONG BY REF, &$ STRING BY DESC & )# ! PPL$FIND_SYNCH_ELEMENT_ID !  ! Find ! J ! Given the name of a spin lock, semaphore, barrier, or event, theI ! Find Synchronization Element Identification routine returns the? ! identifier of the associated synchronization element.  ! 9 EXTERNAL LONG FUNCTION ppl$find_synch_element_id & ( &" LONG BY REF, &$ STRING BY DESC & ) ! PPL$GET_INDEX ! $ ! Get Index of a Participant ! P ! The Get Index of a Participant routine returns an index that is uniqueP ! within the application. A value of zero signifies the participant thatK ! formed the application. The other participants in the applic ation4 ! always return an index greater than zero. ! - EXTERNAL LONG FUNCTION ppl$get_index & ( &! LONG BY REF & ) ! PPL$INSERT_WORK_ITEM ! " ! Insert a Work Queue Item ! Z ! The Insert a Work Queue Item routine inserts a work item into the specified work ! queue. ! 4 EXTERNAL LONG FUNCTION ppl$insert_work_item & ( &" L  ONG BY REF, &$ LONG BY VALUE, &* OPTIONAL LONG BY REF, &! LONG BY REF & )! ! PPL$INCREMENT_SEMAPHORE !  ! Increment a Semaphore ! Q ! The Increment a Semaphore routine increments the value of the semaphoreL ! by 1, analogous to the signal protocol. If any other participantsN ! are blocked on a call to PPL$DECREMENT_SEMAPHORE for this semaphore,5 ! one is r emoved from the queue and awakened.G ! The semaphore must have been created by PPL$CREATE_SEMAPHORE. ! 7 EXTERNAL LONG FUNCTION ppl$increment_semaphore & ( &! LONG BY REF & ) ! PPL$INDEX_TO_PID ! . ! Convert Participant Index to VMS PID ! N ! The Convert Participant Index to VMS PID routine returns the VMS PID= ! of the process associated with the specified index. !  0 EXTERNAL LONG FUNCTION ppl$index_to_pid & ( &" LONG BY REF, &! LONG BY REF & ) ! PPL$INITIALIZE ! & ! Initialize the PPL$ Facility ! U ! The Initialize the PPL$ Facility routine informs the PPL$ facility that theN ! caller is forming or joining the parallel application. Calling thisE ! routine is optional, because PPL$ initializes itself at the' !  first call to a PPL$ routine. ! . EXTERNAL LONG FUNCTION ppl$initialize & ( &) OPTIONAL LONG BY REF & ) ! PPL$PID_TO_INDEX ! . ! Convert VMS PID to Participant Index ! S ! The Convert VMS PID to Participant Index routine returns the PPL$-defined? ! participant index of the process associated with the  ! specified VMS PID. ! 0 EXTERNAL LONG FUNCTION ppl$pid_ to_index & ( &" LONG BY REF, &! LONG BY REF & ) ! PPL$READ_BARRIER !  ! Read a Barrier ! W ! The Read a Barrier routine returns the specified barrier's current quorum andU ! the number of participants currently waiting (blocked) at the barrier. The@ ! barrier must have been created by PPL$CREATE_BARRIER. ! 0 EXTERNAL LONG FUNCTION ppl$read_barrier & ( &" LONG BY REF, &" WORD BY REF, &! WORD BY REF & ) ! PPL$READ_EVENT !  ! Read an Event State ! U ! The Read an Event State routine returns the current state of the specified  ! event.9 ! The state can be not_occurred or not_occurred. ! . EXTERNAL LONG FUNCTION ppl$read_event & ( &" LONG BY REF, &! LONG BY REF & ) ! PPL$READ_SEMAPHORE !  ! Read Semaphore Values ! B ! The Read Semaphore Values routine returns the current orG ! maximum values, or both, of the specified counting semaphore.2 ! The semaphore must have been created by  ! PPL$CREATE_SEMAPHORE. ! 2 EXTERNAL LONG FUNCTION ppl$read_semaphore & ( &" LONG BY REF, &*  OPTIONAL WORD BY REF, &! WORD BY REF & ) ! PPL$RELEASE_SPIN_LOCK !  ! Release Spin Lock ! R ! The Release Spin Lock routine relinquishes the spin lock by clearing theH ! bit representing the lock. The lock must have been created by  ! PPL$CREATE_SPIN_LOCK. ! 5 EXTERNAL LONG FUNCTION ppl$release_spin_lock & ( &! LONG BY REF & )  ! PPL$RESET_EVENT !  ! Reset an Event ! ? ! The Reset an Event routine resets an event's state to ! not_occurred. ! / EXTERNAL LONG FUNCTION ppl$reset_event & ( &! LONG BY REF & ) ! PPL$REMOVE_WORK_ITEM ! " ! Remove a Work Queue Item ! Y ! The Remove a Work Queue Item routine removes the next item in order from a work ! queu e. ! 4 EXTERNAL LONG FUNCTION ppl$remove_work_item & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! PPL$READ_SPIN_LOCK ! ! Read a Spin Lock State ! P ! The Read a Spin Lock State routine returns the current state of a spin< ! lock. The state can be not_seized or not_seized. ! 2 EXTERNAL LONG FUNCTION ppl$re ad_spin_lock & ( &" LONG BY REF, &! LONG BY REF & ) ! PPL$READ_WORK_QUEUE !  ! Read a Work Queue ! O ! The Read a Work Queue routine returns information about a work queue. ! 3 EXTERNAL LONG FUNCTION ppl$read_work_queue & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & )# ! PPL$SET_SEMAPHORE_ MAXIMUM ! ! ! Set a Semaphore Maximum ! U ! The Set a Semaphore Maximum routine dynamically sets the maximum value of a ! semaphore. ! 9 EXTERNAL LONG FUNCTION ppl$set_semaphore_maximum & ( &" LONG BY REF, &! WORD BY REF & ) ! PPL$SPAWN ! % ! Initiate Parallel Execution ! K ! The Initiate Parallel Execution routine executes code in parallelR ! with the caller by creating one or more subordinate threads of execution ! (VMS subprocesses). ! ) EXTERNAL LONG FUNCTION ppl$spawn & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &' LONG DIM() BY REF, &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! PPL$SET_QUORUM !   ! Set Barrier Quorum ! I ! The Set Barrier Quorum routine dynamically sets a value for the' ! specified barrier's quorum. ! . EXTERNAL LONG FUNCTION ppl$set_quorum & ( &" LONG BY REF, &! WORD BY REF & ) ! PPL$STOP !  ! Stop a Participant ! R ! The Stop a Participant routine terminates the execution of the specified* ! partic ipant in this application. ! ( EXTERNAL LONG FUNCTION ppl$stop & ( &! LONG BY REF & ) ! PPL$SEIZE_SPIN_LOCK !  ! Seize Spin Lock ! T ! The Seize Spin Lock routine retrieves a simple (spin) lock by waiting in aN ! spin loop until the lock is free. The lock must have been created by& ! PPL$CREATE_SPIN_LOCK./* ! 3 EXTERNAL LONG FUNCTION ppl$seize_spin_loc k & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! PPL$TERMINATE ! " ! Abort PPL$ Participation ! @ ! The Abort PPL$ Participation routine ends the caller'sN ! participation in the application prematurely---that is, at some time= ! before the caller actually completes its execution. ! - EXTERNAL LONG FUNCTION ppl$terminate & ( &)  OPTIONAL LONG BY REF & ) ! PPL$TRIGGER_EVENT !  ! Trigger an Event ! I ! The Trigger an Event routine causes the event's state to become@ ! occurred. You control whether all pending actions forL ! the event are processed (made to occur), or just one is processed.L ! A pending action can be an AST, a signal (condition), or a wakeup. ! 1 EXTERNAL LONG FUNCTION ppl$trigger_event &  ( &" LONG BY REF, &, OPTIONAL LONG BY VALUE, &! LONG BY REF & ) ! PPL$UNIQUE_NAME !  ! Produce a Unique Name ! O ! The Produce a Unique Name routine returns an application-unique name.P ! A system-unique string specific to the calling application is appended. ! to the string specified by the user.A ! The resulting name is identical for all particip ants inV ! the application, but different from those for all other applications on that ! system. ! / EXTERNAL LONG FUNCTION ppl$unique_name & ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! PPL$WAIT_AT_BARRIER ! " ! Synchronize at a Barrier ! C ! The Synchronize at a Barrier routine causes the caller to( ! wait at the specified barrier.L ! The barrier is in effect from the time the first participant calls6 ! PPL$WAIT_AT_BARRIER until each member of theK ! quorum has issued the call. At that time, the wait concludes and1 ! all are released for further execution. ! 3 EXTERNAL LONG FUNCTION ppl$wait_at_barrier & ( &! LONG BY REF & )ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.93 ! % ! FILE: PPLMSG.MSG EDIT: CMF1004 ! R ! **************************************************************  ************** ! * *) ! * COPYRIGHT (C) 1987 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT  BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ !  ! FACILITY: VAX PPL !  ! ABSTRACT: ! F ! THIS FILE CONTAINS THE DEFINITION FOR THE PPL FACILITY SPECIFIC9 ! ERROR MESSAGES. THE FACILITY CODE FOR PPL IS 481. ! % ! ENVIRONMENT: VAX/VMS USER MODE ! 5 ! AUTHOR: P. GILBER! T, CREATION DATE: 30-SEP-1986 !  ! MODIFIED BY: !  ! E01-001 ORIGINAL ! 9 ! E01-002 TO ADD THE FACILITY CODE. CMF 23-JAN-1987 ! = ! E01-003 TO CORRECT THE IDENT TO MATCH CMF 26-JAN-1987# ! THE CMS GENERATION NUMBER. ! = ! E01-004 REVAMP THE FILE TO CONFORM TO CMF 28-JAN-1987) ! RTL STANDARDS. ( PATTERNED AFTER ! LIBMSG.MSG ) ! ? ! E01-005 TO CHANGE THE MODULE NAME FROM CMF 16-FEB-1987$ ! PPL$MSG T" O PPL$MSGDEF TO BE' ! CONSISTENT WITH THE OTHER RTLS ! A ! E01-006 TO ADD PPL$_ATTUSETWO TO INDICATE CMF 16-FEB-1987) ! THAT AN ATTEMPT HAS BEEN MADE TO+ ! USE TWO BARRIERS THUS RESULTING IN ! DEAD LOCK. ! ? ! E01-007 ADD MSGS FOR BARRIERS AND EVENTS, DLR 24-JUL-87! ! PLUS OTHER MISC UPDATES.0 ! REMOVE OLD DEAD ONES BY ? *** NOTATION. ! C ! E01-008 CONFORM TO DOCUMENTATION STANDARDS. DLR 19-AUG-1987 ! 9 ! V05# 1-001 ADDED PPL$_NO_NEXT_PROC WWS 09-SEP-1988 ! @ ! V53-001 CORRECTED EVENT SIGNAL MESSAGES WWS 20-MAR-1989 ! 9 ! V53-002 ADDED THE V5.3 MESSAGES WWS 27-MAR-1989 ! A ! V57-001 ADD A SPACE TO NOONE_ENABLED TEXT PJC 22-JAN-1993 ! B ! V57-002 CHANGE REFERENCE TO PPL$INITIALIZE PJC 30-AUG-1993 ! -- ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! PPL$_ABCMNOXYZ ! O ! IN ADDITION, THE IBRARY$ STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",L ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE< ! ERROR MESSAGE, NOT COUNTING ARTICLES AND PREPSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  !  !  ! MACRO-32PROGRAMMING: !  ! THE MACROS CALL: !  ! $PPLDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE % AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;C ! THE MACROS ARE PROVIDED ONLY FOR THE COVENIENCE OF THE USER. ! - ! + ! SPECIAL NOTE: ! F ! THE MESSAGES HERE SHOULD BE RESOLVED FROM STARLET.OLB. INORDERE ! FOR THIS TO HAPPEN, SEVERAL VMS BUILD FILES NEED TO BE EDITED.D ! THIS WILL BE DONE FOR SYS 11. NOTE THAT SEVERAL OF OUT BUILD? ! PROCEDURES MAY NEED TO BE EDITED. PPLRTLBLD.COM TO COPY9 ! AND D & ELETE APPROPRIATE FILE IN APPROPRIATE PLACES. ! I ! ALSO, THE FILE PPLDEF WILL NEED TO BE CHANGED TO BE NAME PPLMSGDEF5 ! TO FOLLOW THE STANDARDS OF THE OTHER ROUTINES. ! J ! PPLRTLLNK.OPT MAY NEED TO BE EDITED TO GET RID OF UNIVERSAL SYMBOLDB ! SO THAT THERE WON'T BE EXTRA BAGAGE IN THE SHAREABLE IMAGE. !  ! -# ! ; SET LH TO 481 (DECIMAL)./ DECLARE LONG CONSTANT PPL$_FACILITY = 4812 DECLARE LONG CONSTANT PPL$_NORMAL = 31555585 ! ++ ' + ! FACILITY: PPL, RUN-TIME LIBRARY" ! EXPLANATION: ALL IS WELL.@ ! USER ACTION: ENJOY YOUR SUCCESS. ALL THINGS MUST PASS. ! --3 DECLARE LONG CONSTANT PPL$_CREATED = 31555601 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: ITEM WAS CREATED, AN ALTERNATE SUCCESS STATUS= ! INDICATING THE ITEM WAS NOT JUST SUCCESSFULLY FOUND.( ! USER ACTION: CONTINUE NORMALLY. ! --9 DECLARE LONG CONSTANT PPL$_NOONE_ENABLED = 3 ( 1555609 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYI ! 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. ! --9 DECLARE LONG CONSTANT PPL$_NOT_AVAILABLE = 31555617 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: ALTERNATE SUCCESS STATUS RETURNED WHEN USER REQUESTS: ! IMMEDIATE ) NON-BLOCKING ACCESS TO A RESOURCE WHICH ! WAS NOT AVAILABLE.( ! USER ACTION: CONTINUE NORMALLY. ! --8 DECLARE LONG CONSTANT PPL$_CREATED_SOME = 31555625 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYL ! EXPLANATION: SOME OF THE REQUESTED ITEMS WERE CREATED, BUT NOT ALL.L ! USER ACTION: IF PROCESSING CAN CONTINUE WITH FEWER ITEMS THAN THOSE+ ! REQUESTED, THEN CONTINUE NORMALLY. ! --8 DECLARE LONG CONSTANT PPL$_NO_NEXT_PROC = 31555633 *  ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY ! H ! EXPLANATION: THIS CODE IS FOR INTERNAL USE ONLY AND IS RETURNED= ! FROM THE ROUTINE, PPL$$TELL, WHEN IT IS INVOKED WITH; ! 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. ! --3 DECLARE LONG CONSTANT PPL$_DELETED = 31555641 ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY +  ! C ! EXPLANATION: THE USER REQUESTED THAT THE OBJECT BE DELETED@ ! REGARDLESS OF ITS STATE. THE DELETION WAS SUCCESSFULLY ! PERFORMED. ! & ! USER ACTION CONTINUE NORMALLY ! --? ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES???/ ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW." ! ; SET LH TO 481 (DECIMAL)O ! *** EXCQUESIZ  ! +++ ! FACILITY: PPL, RUN-TIME , LIBRARY8 ! EXPLANATION: TOO MANY CALLERS REQUIRED QUEUING.L ! USER ACTION: RECODE TO REDUCE NUMBER OF CALLERS ACCESSING RESOURCE. ! --5 DECLARE LONG CONSTANT PPL$_INCOMPEXI = 31556100 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY= ! EXPLANATION: ALL PPL OBJECTS MUST HAVE UNIQUE NAMES.B ! USER ACTION: RECODE THE CALL TO SPECIFY A DIFFERENT NAME. ! --5 DECLARE LONG CONSTANT PPL$_INSVIRMEM = 31556108 ! +++ ! FACILITY: PPL, RUN - -TIME LIBRARYH ! EXPLANATION: CALLER DOES NOT HAVE SUFFICIENT AVAILABLE SPACE TO ! COMPLETE REQUEST.I ! USER ACTION: IF YOU USE EXTENSIVE PPL SERVICES, TRY SPECIFYING A: ! LARGER VALUE TO PPL$INITIALIZE. OTHERWISE, CHECK< ! YOUR SYSTEM QUOTAS TO SEE IF AN INCREASE IS NEEDED. ! --3 DECLARE LONG CONSTANT PPL$_INVDESC = 31556116 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY, ! EXPLANATION: DESCRIPTOR IS INVALID.7 ! USER ACTION: RE. CODE TO CORRECT THE DESCRIPTOR. ! --4 DECLARE LONG CONSTANT PPL$_INVELEID = 31556124 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYB ! EXPLANATION: SPECIFIED ELEMENT ID IS NOT A LEGITIMATE ID.E ! USER ACTION: EXAMINE PROGRAM CODE - SOME MODIFICATION OF THE! ! ELEMENT ID HAS OCCURRED. ! --5 DECLARE LONG CONSTANT PPL$_INVELENAM = 31556132 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY/ ! EXPLANATION: ILLEGAL CHARACTER STRING./ / ! USER ACTION: FIX THE CHARACTER STRING. ! --5 DECLARE LONG CONSTANT PPL$_INVELETYP = 31556140 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: USER SPECIFIED AN ELEMENT WHICH CANNOT BE OPERATED ! BY THE CALLED ROUTINE.= ! USER ACTION: RECODE TO PASS THE PROPER ELEMENT TYPE. ! --5 DECLARE LONG CONSTANT PPL$_INVNUMCHI = 31556148 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY> ! EXPLANATION: USER REQUESTED CREATIO0 N OF A NUMBER < 1.= ! USER ACTION: RECODE REQUEST TO USE THE PROPER VALUE. ! --: ! *** INVQUESIZ  ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY) ! EXPLANATION: INVALID QUEUE SIZE.0 ! USER ACTION: SPECIFY A POSITIVE NUMBER. ! --5 DECLARE LONG CONSTANT PPL$_INVSEMINI = 31556156 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYG ! EXPLANATION: A SEMAPHORE INITIAL VALUE MUST BE <= ITS MAXIMUM.9 ! 1 USER ACTION: CHANGE THE SPECIFIED INITIAL VALUE. ! --5 DECLARE LONG CONSTANT PPL$_INVSEMMAX = 31556164 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: A SEMAPHORE'S MAXIMUM VALUE MUST BE POSITIVE.9 ! USER ACTION: CHANGE THE SPECIFIED MAXIMUM VALUE. ! --5 DECLARE LONG CONSTANT PPL$_LOCNOTEST = 31556172 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: YOU CANNOT RELEASE A LOCK YOU HAVE NOT BEEN GRANTED.C 2 ! USER ACTION: RECODE TO ASSURE THAT THE LOCK IS HELD BY THE) ! CALLER ATTEMPTING TO RELEASE IT. ! --3 DECLARE LONG CONSTANT PPL$_NOSECEX = 31556180 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYK ! EXPLANATION: SECTION SPECIFIED FOR FLUSH OR DELETE DOES NOT EXIST.L ! USER ACTION: RECODE TO ASSURE THAT SECTION TO DELETE/FLUSH HAS BEEN ! CREATED. ! --+ ! *** NOSHRM  ! +++ ! FACILITY: PPL, RUN-T3 IME LIBRARY. ! EXPLANATION: NO SHARED MEMORY EXISTS. ! USER ACTION: DITTO. ! --5 DECLARE LONG CONSTANT PPL$_NOSUCHELE = 31556188 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY> ! EXPLANATION: NO ELEMENT IS SPECIFIED BY THE INPUT ID.A ! USER ACTION: RECODE TO ASSURE THAT THE INPUT ID IS FOR A& ! LEGITIMATELY CREATED ELEMENT. ! --5 DECLARE LONG CONSTANT PPL$_NOSUCHLOC = 31556196 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY 4 C ! EXPLANATION: NO LOCK ELEMENT IS SPECIFIED BY THE INPUT ID.A ! USER ACTION: RECODE TO ASSURE THAT THE INPUT ID IS FOR A+ ! LEGITIMATELY CREATED LOCK ELEMENT. ! --5 DECLARE LONG CONSTANT PPL$_NOSUCHNAM = 31556204 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: INPUT NAME DOES NOT SPECIFY AN EXISTING ELEMENT.F ! USER ACTION: RECODE TO ASSURE THAT THE NAME MATCHES A CREATED ! ELEMENT. ! --5 DECLARE LONG CONST 5 ANT PPL$_WRONUMARG = 31556212 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: TOO MANY OR TOO FEW ARGUMENTS SPECIFIED IN THE CALL.> ! USER ACTION: RECODE USING PROPER NUMBER OF ARGUMENTS. ! --5 DECLARE LONG CONSTANT PPL$_ABNTERMIN = 31556220 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY+ ! EXPLANATION: ABNORMAL TERMINATION.F ! USER ACTION: AN APPLICATION PARTICIPANT HAS ENDED ABNORMALLY.; ! SOME APPLICATION-SPECIFIC REC6 OVERY MAY BE DESIRED. ! --5 DECLARE LONG CONSTANT PPL$_EXHNEVCAL = 31556228 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: AN APPLICATION PARTICIPANT TERMINATED WITHOUT( ! EXECUTING ITS PPL EXIT HANDLER.G ! USER ACTION: APPLICATION HAS BEEN ABNORMALLY TERMINATED. SOME6 ! APPLICATION-SPECIFIC RECOVERY MAY BE DESIRED. ! --2 DECLARE LONG CONSTANT PPL$_INVARG = 31556236 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY6 7 ! EXPLANATION: A SPECIFIED ARGUMENT IS INVALID.9 ! USER ACTION: RECODE TO PASS THE PROPER ARGUMENT. ! --2 DECLARE LONG CONSTANT PPL$_NOINIT = 31556244 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: PPL$INITIALIZE MUST BE CALLED BEFORE THIS ROUTINE.M ! USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER.; ! PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST9 ! CALLS, BUT NOT FOR THOSE WHICH REQUIRE THE PRIO 8 R ! CREATION OF AN ELEMENT. ! --2 DECLARE LONG CONSTANT PPL$_NONPIC = 31556252 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: PPL CANNOT MAP REQUESTED ADDRESS SPACE TO THE SAME$ ! ADDRESSES IN ALL PROCESSES.M ! USER ACTION: IF IT IS CRITICAL TO THE APPLICATION THAT THE REQUESTED= ! SPACE APPEAR AT THE SAME ADDRESSES IN ALL PROCESSES,= ! THE USER MUST TAKE STEPS TO ASSURE THAT ENOUGH SPACE? ! IS MADE AVAILABLE. T9 HIS MAY REQUIRE INCREASING SYSTEM; ! QUOTAS OR RESERVING THE REQUIRED ADDRESSES THROUGH ! LINKTIME OPERATIONS. ! --5 DECLARE LONG CONSTANT PPL$_SEMININON = 31556260 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY7 ! EXPLANATION: IMPROPER INITIAL VALUE SPECIFIED.C ! USER ACTION: RECODE TO ASSURE THAT PROPER VALUE IS PASSED. ! --2 DECLARE LONG CONSTANT PPL$_NOTIMP = 31556268 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYI ! : EXPLANATION: A CALL HAS BEEN ISSUED TO AN UNIMPLEMENTED SERVICE.4 ! USER ACTION: RECODE TO ELIMINATE THIS CALL. ! --5 DECLARE LONG CONSTANT PPL$_ATTUSETWO = 31556276 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: USER HAS ATTEMPTED TO WAIT ON 2 APPLICATION-WIDE# ! BARRIERS AT THE SAME TIME.J ! USER ACTION: RECODE TO ASSURE THAT DEADLOCK IS AVOIDED BY WAITING8 ! ON ONLY ONE APPLICATION-WIDE BARRIER AT A TIME. ! --; DE ; CLARE LONG CONSTANT PPL$_IN_BARRIER_WAIT = 31556284 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: THE BARRIER WAS ALREADY IN EFFECT AT THE TIME OF ! THIS CALL.M ! USER ACTION: RECODE TO ASSURE THAT THE BARRIER QUORUM IS ESTABLISHED7 ! BEFORE ANYONE ATTEMPTS TO WAIT ON THE BARRIER. ! --9 DECLARE LONG CONSTANT PPL$_NO_SUCH_PARTY = 31556292 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYB ! EXPLANATION: SPECIFIED PARTIC < IPANT DOES NOT EXIST IN THIS ! APPLICATION.K ! USER ACTION: RECODE TO ASSURE THAT PROPER PARTICIPANT IS SPECIFIED% ! IN THE CALL TO THIS ROUTINE. ! --5 DECLARE LONG CONSTANT PPL$_APPALREXI = 31556300 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYD ! EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO FORM AN> ! APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION8 ! ALREADY EXISTS, AND SO CANNOT BE FORMED BY THIS ! PROCESS.F = ! USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO FORM AN5 ! APPLICATION, THIS IS APPLICATION-DEPENDENT.  ! --4 DECLARE LONG CONSTANT PPL$_ELEINUSE = 31556308 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYI ! EXPLANATION: THIS PROCESS ATTEMPTED AN OPERATION WHICH MAY ONLY 7 ! 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.G ! USER > ACTION: RECODE TO FREE THE OBJECT BEFORE ATTEMPTING THIS C ! OPERATION, OR, IF APPLICABLE, SPECIFY THE OPTION TO FORCE  ! THIS OPERATION. ! --5 DECLARE LONG CONSTANT PPL$_INCOMPARG = 31556316 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYM ! EXPLANATION: THIS PROCESS SPECIFIED A SIZE, PROTECTION, OR FLAG ON A> ! CALL TO PPL$INITIALIZE WHICH IS INCOMPATIBLE WITH THE> ! EXISTING APPLICATION WHICH THIS PROCESS IS ATTEMPTING ! TO JOIN.? G ! USER ACTION: RECODE THE CALL TO OMIT THE ARGUMENTS, OR SPECIFY9 ! ARGUMENTS WHICH ARE COMPATIBLE WITH THE EXISTING ! APPLICATION. ! --5 DECLARE LONG CONSTANT PPL$_INVAPPNAM = 31556324 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY/ ! EXPLANATION: ILLEGAL CHARACTER STRING./ ! USER ACTION: FIX THE CHARACTER STRING. ! --5 DECLARE LONG CONSTANT PPL$_NOSUCHAPP = 31556332 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYM @ ! EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO JOIN AN EXISTING> ! APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION8 ! DOES NOT EXIST, AND SO CANNOT BE JOINED BY THIS ! PROCESS.F ! USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO JOIN AN5 ! APPLICATION, THIS IS APPLICATION-DEPENDENT.  ! --3 DECLARE LONG CONSTANT PPL$_BUFOVFL = 31559680 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: BUFFER COULD NOT A CONTAIN THE COMPLETE OUTPUT STRING.5 ! USER ACTION: RECODE TO PASS A LARGER BUFFER. ! --3 DECLARE LONG CONSTANT PPL$_ALTSIZE = 31559688 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY= ! EXPLANATION: PPL$INITIALIZE HAS ALREADY BEEN CALLED.M ! USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER.; ! PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST= ! CALLS. ALTERING THE INTERNAL STRUCTURE SIZE MUST BE+ ! DONE BEFORE A B NY OTHER CALL TO PPL. ! --5 DECLARE LONG CONSTANT PPL$_ELEALREXI = 31571971 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYE ! EXPLANATION: AN ELEMENT BY THIS NAME ALREADY EXISTS, AND ITS ! ID HAS BEEN RETURNED.I ! USER ACTION: CONTINUE NORMALLY IF THE NAME IS EXPECTED TO EXIST. ! --5 DECLARE LONG CONSTANT PPL$_SEMALRMAX = 31571979 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY> ! EXPLANATION: SEMAPHORE CANNOT BE INCREMENTED FURT C HER.J ! USER ACTION: RECODE TO ASSURE THAT ONLY THE PROPER MAXIMUM NUMBER8 ! OF PPL$INCREMENT_SEMAPHORE REQUESTS ARE ISSUED. ! --5 DECLARE LONG CONSTANT PPL$_INTDELPRC = 31571987 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYK ! EXPLANATION: AN APPLICATION CALL TO PPL$STOP FORCED THE TEMINATION ! OF THIS PARTICIPANT.I ! USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY,/ ! ANY ACTIONS ARE APPLICATION-DEPENDENT. ! -- D 5 DECLARE LONG CONSTANT PPL$_INTTERMIN = 31571995 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYE ! EXPLANATION: AN APPLICATION CALL TO PPL$TERMINATE FORCED THE( ! TEMINATION OF THIS PARTICIPANT.I ! USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY,/ ! ANY ACTIONS ARE APPLICATION-DEPENDENT. ! --6 DECLARE LONG CONSTANT PPL$_EXITSTATUS = 31572003 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYI ! EXPLANATION: AN APPLI E CATION PARTICIPANT EXITED WITH THIS STATUS.I ! USER ACTION: DETERMINE THE CAUSE OF THE TERMINATION BY EXAMINING ! THE STATUS CODE. ! --: DECLARE LONG CONSTANT PPL$_EVENT_OCCURRED = 31572011 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF AN EVENT FOR; ! WHICH NOTIFICATION HAS BEEN REQUESTED BY THE USER.H ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,+ ! RESPONSE IS F APPLICATION-DEPENDENT. ! --7 DECLARE LONG CONSTANT PPL$_NORMAL_EXIT = 31572019 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE NORMAL' ! PARTICIPANT TERMINATION EVENT.H ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,+ ! RESPONSE IS APPLICATION-DEPENDENT. ! --9 DECLARE LONG CONSTANT PPL$_ABNORMAL_EXIT = 31572027 ! +++ ! FACILITY: PPL, RUN-TIME LIBRAR G YH ! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE ABNORMAL' ! PARTICIPANT TERMINATION EVENT.H ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,+ ! RESPONSE IS APPLICATION-DEPENDENT. ! --5 DECLARE LONG CONSTANT PPL$_FORMEDAPP = 31572035 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY< ! EXPLANATION: THIS PROCESS FORMED A NEW APPLICATION.G ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. ! -- H 5 DECLARE LONG CONSTANT PPL$_JOINEDAPP = 31572043 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYB ! EXPLANATION: THIS PROCESS JOINED AN EXISTING APPLICATION.G ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. ! --3 DECLARE LONG CONSTANT PPL$_NOMATCH = 31572051 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: NO MATCH FOR THE SPECIFIED ELEMENT WAS FOUND.G ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. ! --ww  ! *** PREDECLARED TYPESO : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORDE* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD * %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF V< %IF %DECLARED K  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED L ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINM G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > N %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 1 ! Print Symbiont Modification (PSM) Routines !  ! 5 ! PSM$PRINT - Invoke VMS-Supplied Print Symbiont ! : ! status = PSM$PRINT ([streams], [bufsiz], [worksiz]) ! 6 ! O streams - Maximum number of streams to supportD ! bufsiz - Maximum buffer size in bytes for output operations< ! worksiz - Size in bytes of work area to be allocated ! ) EXTERNAL LONG FUNCTION PSM$PRINT & ( &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! 7 ! PSM$READ_ITEM_DX - Obtain Value of Message Items ! ; ! status = PSM$READ_ITEM_DX (request_id, P item, buffer) ! P ! request_id - Request identifier supplied by the symbiont to user routineF ! item - Item code identifying message item to be returned7 ! buffer - Buffer into which data is returned ! 0 EXTERNAL LONG FUNCTION PSM$READ_ITEM_DX & ( &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! 1 ! PSM$REPLACE - Declare User Service Routine Q ! + ! status = PSM$REPLACE (code, routine) ! B ! code - Code identifying symbiont routine to be replaced: ! routine - User routine to replace symbiont routine ! + EXTERNAL LONG FUNCTION PSM$REPLACE & ( &" LONG BY REF, &! LONG BY REF & ) ! , ! PSM$REPORT - Report Completion Status ! 2 ! status = PSM$REPORT (request_id [, status]) ! P ! request_id - Request ident ifier supplied by the symbiont to user routineJ ! status - Completion status of asynchronous operation completed ! * EXTERNAL LONG FUNCTION PSM$REPORT & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & )wwS  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED T ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINU G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > V %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:57.86 !  ! R ! **************************************************************************** ! * *DW ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993, 1994 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR X OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFY TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! FACILITY: ! PRINT SYMBIONT. !  ! ABSTRACT: ! SYMBIONT MESSAGES. !  ! ENVIRONMENT:$ ! VAX/VMS USER AND KERNEL MODE. ! 4 ! AUTHOR: G. ROBERT, CREATION DATE: 31-AUG-1982 !  ! MODIFIED BY: ! 8 ! X-4 SG047 SHZ EELA GAYATRI 27-DEC-1994 ! ADDED PSM$_INVPREFIX. ! H ! X-3 ILR003 IRIS LANGSTEIN REALMUTO 26-OCT-1993. ! CHANGED COPYRIGHT TO 1993 ! I ! X-2 ILR002 IRIS LANGSTEIN REALMUTO 27-AUG-1993& ! ADDED PSM$_LATSYM ! 2 ! 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984# ! ADD MISSING .END STATEMENT. ! 5 ! 3B-009 RRB3009 ROWLAND R. BRADLEY 24-JUL-19847 ! SEPARATE THE PSM MESSA[ GES AND THE SMB MESSAGES. ! 4 ! 3B-008 GRR3008 GREGORY R. ROBERT 29-APR-1984 ! ADDED PSM$_FLUSH ! 4 ! 3B-007 GRR3007 GREGORY R. ROBERT 23-AUG-19839 ! BUGFIXES, PAGE_SETUP_MODULES, FORM_SETUP_MODULES,B ! SHEET_FEED, SYMBIONT INITIATED PAUSE_TASK AND STOP_STREAM,1 ! HANGUP CODE, READ AND WRITE ITEM SERVICES ! 4 ! 3B-006 GRR3006 GREGORY R. ROBERT 03-AUG-1983% ! CHANGED FUNNOTSUP TO SUCCESS. ! 4 ! 3B-005 GRR3005 GREGORY R. RO\ BERT 29-JUL-1983 ! ADDED MESSAGES FOR FT1. ! 4 ! 3B-004 GRR3004 GREGORY R. ROBERT 23-JUN-1983@ ! ADDED "module not found" AND "too many levels" MESSAGES. ! 4 ! 3B-003 GRR3003 GREGORY R. ROBERT 27-MAY-1983B ! REMOVED UNUSED MESSAGES. ADDED NOMOREITEMS AND INVSTMNBR. ! 4 ! 3B-002 GRR3002 GREGORY R. ROBERT 04-APR-1983 ! ADDED PSM$_NOMOREITEMS. !  ! ** ! M ! THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES ] FORL ! MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY ! THE $MSGDEF MACRO. ! / DECLARE LONG CONSTANT PSM$_FACILITY = 2625 DECLARE LONG CONSTANT PSM$_FUNNOTSUP = 172032013 DECLARE LONG CONSTANT PSM$_PENDING = 172032091 DECLARE LONG CONSTANT PSM$_FLUSH = 172032175 DECLARE LONG CONSTANT PSM$_BUFFEROVF = 172032243 DECLARE LONG CONSTANT PSM$_NEWPAGE = 172032323 DECLARE LONG CONSTANT PSM$_SUSPEND = 172032402 DECL ^ ARE LONG CONSTANT PSM$_ESCAPE = 17203248/ DECLARE LONG CONSTANT PSM$_EOF = 172032585 DECLARE LONG CONSTANT PSM$_INVVMSOSC = 172032665 DECLARE LONG CONSTANT PSM$_MODNOTFND = 172032744 DECLARE LONG CONSTANT PSM$_NOFILEID = 172032825 DECLARE LONG CONSTANT PSM$_OSCTOOLON = 172032906 DECLARE LONG CONSTANT PSM$_TOOMANYLEV = 172032985 DECLARE LONG CONSTANT PSM$_INVITMCOD = 172033082 DECLARE LONG CONSTANT PSM$_LATSYM = 172033145 DECLARE LONG CONSTANT PSM$_INVPREFIX = 17203324ww` T ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED a ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINb G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > c %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:59.53 !  ! ? ! ? FILE: REGMSG.MSG ! ? ! ? IDENT: X-17 ! ?S ! ? * * * * * * * * * * * * * * d * * * * * * * * * * * * * * * * * * * * * * * *S ! ? *S ! ? COPYRIGHT 1996 BY *S ! ? DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *S ! ? ALL RIGHTS RESERVED *S ! ? *S ! ? THIS SOFTWARE IS e FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *S ! ? ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *S ! ? INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *S ! ? COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *S ! ? OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *S ! ? TRANSFERRED. *S ! ? f *S ! ? THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *S ! ? AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *S ! ? CORPORATION. *S ! ? *S ! ? DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *S ! g ? SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *S ! ? *S ! ? * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! ?++ ! ? FACILITY: ! ?& ! ? OPENVMS REGISTRY - SERVER ! ? ! ? ABSTRACT: ! ?8 ! ? THIS MODULE CONTAINS THE REGISTRY ERROR MESSAGES ! ? ! ? AUTHORS: ! ? ! ? ELIE COHEN ! ?h ( ! ? CREATION DATE: 25-JAN-1996 ! ? ! ? MODIFICATION HISTORY: ! ? ! ?5 ! ? X-017 PRD PAUL R. DESTEFANO 17-JAN-20018 ! ? ADDED DTRWLOCKSELF AND DTRWLOCKLOCKED MESSAGES. ! ?8 ! ? X-016 MPD0134 MATTHEW DOREMUS 16-FEB-1999C ! ? ADDED MESSAGES: CVTDATATYPE, CANTOPENINFILE, ? INVVALNAME. ! ?8 ! ? X-015 MPD0123 MATTHEW DOREMUS 14-JAN-1999@ ! ? ADDED MESSAGES: INVTLV, ACTIVE, INACTIVE, ? NOTSTARTED. ! ?5 i ! ? X-014 PRD PAUL R. DESTEFANO 06-AUG-1998@ ! ? FIX TYPOS, FIX CAPITALIZATION, REPHRASE A FEW MESSAGES. ! ? 7 ! ? X-013 PRD PAUL R. DESTEFANO 01-JUL-19980 ! ? ADD IDNOTADDED AND NORESPONSE MESSAGES. ! ?7 ! ? X-012 PRD PAUL R. DESTEFANO 29-JUN-1998I ! ? ADD /MACRO=$REGMSG TO THE .FACILITY DIRECTIVE. THIS INSURES THATJ ! ? THE OUTPUT OF A MESSAGE/SDL CONTAINS A "module $REGMSG" STATEMENTH ! ? AND THAT CONVERTING FROM .MSG TO .SDL TO j .SDI TO .H (AS DONE BYG ! ? THE BUILD OF THE [STARLET_H] FACILITY RESULTS IN A FILE CALLEDG ! ? REGMSG.H. WITHOUT THIS, THE MESSAGE GETS THE MODULE NAME FROMH ! ? THE FACILITY NAME "REG" AND APPENDS "DEF" TO IT. THE RESULT ISH ! ? A MODULE CALLED "REGDEF.H", WHICH CONFLICTS WITH ANOTHER HEADER! ! ? MODULE OF THE SAME NAME. ! ?? ! ? X-011 ELIE COHEN 14-MAR-1998! ! ? ADD NOTDELIVER MESSAGE? ! ? X-010 ELIE COHEN k 19-FEB-1998% ! ? ADD INVCREDENTIALS MESSAGE@ ! ?? X-009 ELIE COHEN 10-FEB-1998' ! ? ADD INVSECDESCRIPTOR MESSAGE? ! ? X-008 ELIE COHEN 28-JAN-1998) ! ? REWORD CONTENT OF REG$_EXQUOTA? ! ? X-007 ELIE COHEN 20-NOV-1997! ! ? ADD CANTCONVCS MESSAGE= ! ? X-006 ELIE COHEN 13-AUG-1997& ! ? MODIFY INVDATA MESSAGE TEXT= ! ? X-005 l ELIE COHEN 12-AUG-1997 ! ? CORRECT TYPOS= ! ? X-004 ELIE COHEN 23-MAY-1997$ ! ? ADD STRINGTOOLONG MESSAGE= ! ? X-003 PAT NELSON 03-APR-19970 ! ? ADD KEYNAMEEXIST. EDITED MESSAGE TEXTD ! ? X-002 KEN MATSUDA 28-MAR-1997E ! ? ADD INVDATA MESSAGE FOR INVALID VALUE ENTRIES.D ! ? X-001 ELIE COHEN 25-JAN-1995& m ! ? MODULE CREATION ! ?--0 DECLARE LONG CONSTANT REG$_FACILITY = 18627 DECLARE LONG CONSTANT REG$_KEYCHANGED = 1220608038 DECLARE LONG CONSTANT REG$_NOMOREITEMS = 122060811< DECLARE LONG CONSTANT REG$_NOMORESUBSTRING = 1220608198 DECLARE LONG CONSTANT REG$_OBJWITHLINK = 1220608278 DECLARE LONG CONSTANT REG$_REQRECEIVED = 1220608357 DECLARE LONG CONSTANT REG$_IDNOTADDED = 1220608439 DECLARE LONG CONSTANT REG$_DTRWLOCKSELF = 122060 n 8517 DECLARE LONG CONSTANT REG$_BADFILEVER = 1220612007 DECLARE LONG CONSTANT REG$_DELROOTKEY = 122061208: DECLARE LONG CONSTANT REG$_DOUBLEDEALLOC = 1220612164 DECLARE LONG CONSTANT REG$_HASLINK = 1220612245 DECLARE LONG CONSTANT REG$_KEYEXIST = 1220612327 DECLARE LONG CONSTANT REG$_VALUEEXIST = 1220612402 DECLARE LONG CONSTANT REG$_NOKEY = 1220612487 DECLARE LONG CONSTANT REG$_NOSUCHFILE = 1220612564 DECLARE LONG CONSTANT REG$_NOVALUE = 122 o 0612647 DECLARE LONG CONSTANT REG$_NOTDELIVER = 1220612728 DECLARE LONG CONSTANT REG$_CVTDATATYPE = 1220612806 DECLARE LONG CONSTANT REG$_BUFFEROVF = 1220616027 DECLARE LONG CONSTANT REG$_CANTCONVCS = 1220616108 DECLARE LONG CONSTANT REG$_CANTCONVUNI = 122061618< DECLARE LONG CONSTANT REG$_CANTOPENOUTFILE = 122061626< DECLARE LONG CONSTANT REG$_DBALREADYLOADED = 1220616349 DECLARE LONG CONSTANT REG$_DBCSMISMATCH = 122061642; DECLARE LONG CONSTAN p T REG$_DBNOTYETLOADED = 122061650: DECLARE LONG CONSTANT REG$_DBVERMISMATCH = 1220616588 DECLARE LONG CONSTANT REG$_DUPLREQUEST = 1220616669 DECLARE LONG CONSTANT REG$_DTMUTEXERROR = 1220616748 DECLARE LONG CONSTANT REG$_DTMUTEXINIT = 1220616828 DECLARE LONG CONSTANT REG$_DTMUTEXLOCK = 122061690: DECLARE LONG CONSTANT REG$_DTMUTEXLOCKED = 122061698: DECLARE LONG CONSTANT REG$_DTMUTEXUNLOCK = 1220617069 DECLARE LONG CONSTANT REG$_DTRWLOCKINIT = 12206171 q 49 DECLARE LONG CONSTANT REG$_DTRWLOCKLOCK = 122061722; DECLARE LONG CONSTANT REG$_DTRWLOCKUNLOCK = 1220617304 DECLARE LONG CONSTANT REG$_EXQUOTA = 1220617387 DECLARE LONG CONSTANT REG$_FILECREATE = 122061746: DECLARE LONG CONSTANT REG$_FILENAMEINVAL = 1220617545 DECLARE LONG CONSTANT REG$_FILEOPEN = 1220617628 DECLARE LONG CONSTANT REG$_FILEREADEOF = 1220617709 DECLARE LONG CONSTANT REG$_FNAMMISMATCH = 1220617787 DECLARE LONG CONSTANT REG$_F r SOCORRUPT = 1220617869 DECLARE LONG CONSTANT REG$_FSOFILEINDEX = 1220617946 DECLARE LONG CONSTANT REG$_FSOOFFSET = 1220618029 DECLARE LONG CONSTANT REG$_FSOSEGNUMBER = 122061810: DECLARE LONG CONSTANT REG$_FSOSEGREADERR = 1220618185 DECLARE LONG CONSTANT REG$_FTEALLOC = 1220618265 DECLARE LONG CONSTANT REG$_FTEINUSE = 1220618347 DECLARE LONG CONSTANT REG$_FTEDUPNAME = 122061842: DECLARE LONG CONSTANT REG$_FTEINSUFFINFO = 122061850; DECLARE LO s NG CONSTANT REG$_FTEALREADYOPEN = 1220618587 DECLARE LONG CONSTANT REG$_FTENOTOPEN = 1220618668 DECLARE LONG CONSTANT REG$_FTENOTEXIST = 122061874< DECLARE LONG CONSTANT REG$_FTEALREADYEXIST = 1220618828 DECLARE LONG CONSTANT REG$_HAVESUBKEYS = 122061890; DECLARE LONG CONSTANT REG$_INVCACHEACTION = 1220618984 DECLARE LONG CONSTANT REG$_INVDATA = 1220619068 DECLARE LONG CONSTANT REG$_INVDATATYPE = 1220619148 DECLARE LONG CONSTANT REG$_INVFUNCCODE = 122 t 0619225 DECLARE LONG CONSTANT REG$_INVKEYID = 1220619308 DECLARE LONG CONSTANT REG$_INVKEYFLAGS = 1220619387 DECLARE LONG CONSTANT REG$_INVKEYNAME = 1220619464 DECLARE LONG CONSTANT REG$_INVLINK = 1220619548 DECLARE LONG CONSTANT REG$_INVLINKPATH = 1220619623 DECLARE LONG CONSTANT REG$_INVLOG = 1220619705 DECLARE LONG CONSTANT REG$_INVPARAM = 1220619784 DECLARE LONG CONSTANT REG$_INVPATH = 1220619869 DECLARE LONG CONSTANT REG$_INVSECPOLICY = 12 u 2061994: DECLARE LONG CONSTANT REG$_INVVOLROOTKEY = 1220620026 DECLARE LONG CONSTANT REG$_IOREADERR = 1220620106 DECLARE LONG CONSTANT REG$_IOWRITERR = 1220620187 DECLARE LONG CONSTANT REG$_IPLTOOHIGH = 1220620266 DECLARE LONG CONSTANT REG$_KEYLOCKED = 1220620349 DECLARE LONG CONSTANT REG$_KEYNAMEEXIST = 122062042; DECLARE LONG CONSTANT REG$_LOGFILETABFULL = 1220620508 DECLARE LONG CONSTANT REG$_LTENOTEXIST = 1220620585 DECLARE LONG CONSTANT RE v G$_MOREDATA = 1220620667 DECLARE LONG CONSTANT REG$_NOTROOTKEY = 1220620749 DECLARE LONG CONSTANT REG$_NOTSUPPORTED = 1220620828 DECLARE LONG CONSTANT REG$_NOPATHFOUND = 1220620905 DECLARE LONG CONSTANT REG$_RESERVED = 1220620988 DECLARE LONG CONSTANT REG$_ROOTINSFILE = 1220621069 DECLARE LONG CONSTANT REG$_RUIDMISMATCH = 1220621143 DECLARE LONG CONSTANT REG$_SECVIO = 1220621227 DECLARE LONG CONSTANT REG$_SEGREADERR = 1220621308 DECLARE LONG w CONSTANT REG$_STRINGTRUNC = 122062138; DECLARE LONG CONSTANT REG$_SVRVERMISMATCH = 1220621468 DECLARE LONG CONSTANT REG$_SVRSHUTDOWN = 122062154; DECLARE LONG CONSTANT REG$_TOOMANYOPENKEY = 1220621626 DECLARE LONG CONSTANT REG$_UNKTHRREQ = 1220621708 DECLARE LONG CONSTANT REG$_VOLMISMATCH = 122062178: DECLARE LONG CONSTANT REG$_STRINGTOOLONG = 122062186= DECLARE LONG CONSTANT REG$_INVSECDESCRIPTOR = 1220621949 DECLARE LONG CONSTANT REG$_ACCESSDENIED x = 122062202; DECLARE LONG CONSTANT REG$_INVCREDENTIALS = 1220622103 DECLARE LONG CONSTANT REG$_INVTLV = 1220622183 DECLARE LONG CONSTANT REG$_ACTIVE = 1220622265 DECLARE LONG CONSTANT REG$_INACTIVE = 1220622347 DECLARE LONG CONSTANT REG$_NOTSTARTED = 122062242; DECLARE LONG CONSTANT REG$_CANTOPENINFILE = 1220622507 DECLARE LONG CONSTANT REG$_INVVALNAME = 122062258; DECLARE LONG CONSTANT REG$_DTRWLOCKLOCKED = 122062266< DECLARE LONG CONSTAN y T REG$_CANTCLEANVOLSEG = 1220624045 DECLARE LONG CONSTANT REG$_DBACCESS = 1220624125 DECLARE LONG CONSTANT REG$_DBCREATE = 1220624203 DECLARE LONG CONSTANT REG$_DBFIND = 1220624283 DECLARE LONG CONSTANT REG$_DBFULL = 1220624363 DECLARE LONG CONSTANT REG$_DBLOAD = 1220624448 DECLARE LONG CONSTANT REG$_FTIMISMATCH = 1220624526 DECLARE LONG CONSTANT REG$_INTERNERR = 1220624606 DECLARE LONG CONSTANT REG$_INVLOGREC = 1220624686 DECLARE LONG CONSTAN z T REG$_INVSEGNUM = 1220624766 DECLARE LONG CONSTANT REG$_IPCCONACC = 1220624846 DECLARE LONG CONSTANT REG$_IPCCONREJ = 1220624926 DECLARE LONG CONSTANT REG$_IPCDCLAST = 1220625006 DECLARE LONG CONSTANT REG$_IPCOPEASS = 1220625089 DECLARE LONG CONSTANT REG$_NOBLOCKFOUND = 1220625165 DECLARE LONG CONSTANT REG$_NOMEMORY = 1220625246 DECLARE LONG CONSTANT REG$_NOMORESEG = 1220625327 DECLARE LONG CONSTANT REG$_NORESPONSE = 1220625405 DECLARE LONG CONSTANT REG$_NOLOGNAM = 122062548ww|  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED } ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN~ G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:45.64 ! * ! .TITLE RMSMSG -RMS COMPLETION CODESP ! ***************************************************************** ********P ! * *P ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1976, 1977, 1978, 1979, *P ! * 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, *P ! * 1991,1992-1999 *P ! * COMPAQ COMPUTER CORPORATION, 2000-2002 *P ! * HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., 2003-2005 *P  ! * ALL RIGHTS RESERVED. *P ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *P ! * STATES. *P ! * *P ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *P ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *P ! * POSSESSIO N, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *P ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *P ! * DIGITAL EQUIPMENT CORPORATION. *P ! * *P ! * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *P ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *P ! * (C)(1)(II) OF DFARS 252 .227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *P ! * *P ! ************************************************************************* ! ++ ! FACILITY: RMS !  ! ABSTRACT: ! 4 ! THIS MODULE DEFINES ALL RMS COMPLETION CODES. !  ! ENVIRONMENT: ! E ! THE MESSAGE TRANSLATOR MUST BE USED TO CONVERT RMSMSG.MSG INTOC ! RMSMSG.SDL. THE SDL TRANSLATOR MUST THEN BE USED TO CO NVERT3 ! RMSMSG.SDL INTO RMSMSG.MAR (AND RMSMSG.B32). ! < ! AUTHOR: LEO F. LAVERDURE, CREATION DATE: 10-DEC-1976 !  ! MODIFIED BY: ! 7 ! X-18 ACG0724 ANDY GOLDSTEIN, 10-FEB-2009 11:272 ! ADD RMS$_IVSF MESSAGE FOR INVALID SYMLINKS ! 1 ! X-17 EMW0362 ELINOR M. WOODS 02-MAY-20054 ! ADD 2 NEW FATAL STATUSES RMS$_FOPEXTMBZ AND 9 ! RMS$_INVOP_SSIO (WITHOUT STV) FOR SSIO SUPPORT.  ! / ! X-16 SAD STUART A. DAVIDSON 5-OCT-2 004: ! ADD RMS$_ELOOP FOR SYMBOLIC LINK SUPPORT. ELOOP IS@ ! RETURNED IF MORE THAN A CERTAIN NUMBER OF SYMBOLIC LINKS. ! ARE TRAVERSED IN A SINGLE FILE LOOKUP. ! 1 ! X-15 EMW0300 ELINOR M. WOODS 03-JAN-2003< ! KP THREADING CHANGE: ADD ONE NEW FATAL ERROR STATUS? ! (RSESTK_ALLOC) WITH AN ASSOCIATED STV THAT WILL CONTAIN@ ! THE ACTUAL STATUS RETURNED BY EXE$KP_ALLOC_RSE_STACK_P2. ! 1 ! X-14 EMW0196 ELINOR M. WOODS 08-SEP-19997 ! BKT- LOCK ENHANCEMENTS: ADD ONE NEW FATAL ERROR1 ! STATUS (CRBUFOBJ) WITH AN ASSOCIATED STV. ! 1 ! X-13 EMW0195 ELINOR M. WOODS 25-AUG-19997 ! BKT-LOCK ENHANCEMENTS: ADD TWO NEW FATAL ERROR% ! STATUSES (BADGBD AND BADGBH). ! - ! X-12 WBF BURNS FISHER 18-SEP-1997? ! CHANGE NAMLESS AND NAMLRSS TO FATAL. ADD NAMLFSINV AND ! NAMLFSSIZ. ! . ! X-11 WBF BURNS FISHER 18-JULY-1997B ! INTEGRATE THE ONE HFS CHANGE INTO MAINSTREAM , AND ADD NAML ! MESSAGE ! 1 ! TAM0015 TERI A. MANSEAU 18-APR-19975 ! ADDED TWO NAML WARNING MESSAGES RMS$_NAMLESS ! AND RMS$NAMLRSS. ! 4 ! X-10 EMW0132 ELINOR M. WOODS 11-APR-1997< ! ADD NEW RMS-INTERNAL ERROR STATUS RMS$_EOFASY_SYNCH.6 ! FOR INTERNAL USE ONLY; NEVER RETURNED TO USER. ! 3 ! X-9 EMW0084 ELINOR M. WOODS 08-FEB-1996= ! PW INTEGRATION: REMOVE NEW ALTERNATE SUCCESS STATUS:. ! RMS$_OK_URECEO F. ENDED UP NOT NEEDED. ! 9 ! X-8 WDBPI1 WALTER D. BLASCHUK, JR. 19-DEC-19959 ! PATHWORKS INTEGRATION: ADD NEW ALTERNATE SUCCESS > ! STATUS: RMS$_OK_URECEOF . THIS SYMBOL SIGNIFIES THAT AN > ! END-OF-FILE MARKER WAS ENCOUNTERED AND THERE WAS DATA > ! IN THE BUFFER. THIS OCCURS WHEN THE LAST RECORD OF A ; ! SEQUENTIAL STREAM FILE DOES NOT HAVE A TERMINATING ? ! CHARACTER. THIS IS A SU CCESS STATUS AND DOES NOT HAVE ) ! A STV STATUS ASSOCIATED WITH IT.  !  ! 5 ! X-7 EMW ELINOR M. WOODS 10-AUG-1994+ ! MERGE IN OPENVMS VAX DRAGON CHANGE: ! 2 ! X-13 EMW0023 ELINOR M. WOODS 04-AUG-1994; ! RMS$_KRF CAN BE RETURNED BY $CONNECT OR $REWIND, AS: ! WELL AS $GET/$FIND. MAKE TEXT ASSOCIATED WITH KRF9 ! STATUS MORE GENERIC BY REMOVING "for $GET/$FIND." ! 6 ! X-6 EMW ELINOR M. WOODS 30-JUN-1994+ ! MERGE IN OPENVMS VAX DRAGON CHANGE: ! 4 ! X-12 EMW0026 ELINOR M. WOODS 15-JUN-19941 ! ADD ONE NEW USER-REPORTABLE STATUS: NXR 9 ! . THIS STATUS VALUE IS USED : ! AS AN STV ASSOCIATED WITH RNF STATUS (STS), AND IS: ! REPORTED FOR AN EXACT KEY MATCH OF A SECONDARY KEY: ! IF THE SECONDARY KEY ENTRY POINTS TO A NONEXISTENT< ! PRIMARY DATA RECORD IN DISK FILE. NOTE: RNF ERROR 5 ! STATUS PRE-EXISTED AS ERROR CODE WITHOUT STV. ! H ! DEE RYAN 30-SEP-1993< ! CORRECTED USE OF DIGITAL PRODUCT NAMES. ! , ! X-5 EMW ELINOR M. WOODS 28-SEP-1993' ! MERGE IN OPENVMS VAX CORAL FIX: ! 3 ! X-10 EMW0019 ELINOR M. WOODS 21-SEP-19939 ! ADD ONE NEW USER-REPORTABLE ERROR STATUS (WITH AN? ! ASSOCIATED STV): NETBTS. RELOCATE NEW IDXSEARCH STATUSB ! (SEE X-9) FROM "ERROR with STV" SECTION TO "ERROR WITHOUT :  ! STV" section. Expand "WITH STV' AND "without STV"3 ! COMMENTS TO CLARIFY DIFFERENCE BETWEEN TWO. ! 0 ! X-4 EMW0016 ELINOR M. WOODS 10-AUG-1993 ! MERGE IN CORAL FIX: ! : ! MODIFY SEVERITY OF TWO DTF ERROR CODES (DTFACC AND< ! DTFCRE) FROM FATAL TO ERROR, AS REQUESTED BY SNA/DTF ! FACILITY.  ! : ! ALSO MOVE NEW IDXSEARCH STATUS FROM ERROR WITH NO 0 ! STV GROUPING TO ERROR WITH STV GROUPING. ! 0 ! X-3 EMW0010 ELINOR M . WOODS 02-JUL-1993= ! TO SUPPORT NEW KEY-LESS-THAN FUNCTIONALITY, ADDITION < ! OF ONE USER-REPORTABLE ERROR STATUS: IDXSEARCH, AND8 ! TWO NEW RMS-INTERNAL ERROR STATUSES: LSCAN AND  ! ROOTSRCH.  ! . ! X-2 CW0019 CHRIS WHITAKER 11-NOV-1992) ! MERGE IN OPENVMS VAX V6.0 CHANGES ! + ! X-8 JM0012 JOHN MUNZER 11-NOV-1992! ! CHANGE TEXT FOR RMS$_LNE. ! + ! X-7 JM0006 JOHN MUNZER 17-APR-19923 ! ADD ?XL PARAMETER TO RMS$_ BUG TO REPORT R2. ! - ! X-1 RAB RICHARD A. BISHOP 24-JUN-1991# ! MOVED TO [STARLET] FACILITY ! ) ! ================================== ! OLD AUDIT TRAIL FOLLOWS: ! 5 ! 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-19905 ! CHANGE TEXT FOR RMS$_INCOMPSHR ERROR MESSAGE. ! 5 ! X-3 1 LSS0130 LEONARD S. SZUBOWICZ 12-OCT-1989, ! MERGE OF RMS/DDTM GENERATION X-30D2.E ! ADD GENERAL DDTM_ERR ERROR MESSAGE FOR DDTM SERVICE FAILURES;D ! STV WILL CONTAIN THE FAILING SYSTEM SERVICE CONDITION VALUE. ! 5 ! X-30 LSS0080 LEONARD S. SZUBOWICZ 06-OCT-1988C ! ADD RMS$_OK_ACT MESSAGE FOR USE BY FUTURE WORK TO $DISPLAY.4 ! THIS IS PART OF LATENT SUPPORT FOR RMS/DDTM. ! 1 ! X-29 GJA0080 GARY J. ALLISON 06-JUN-1988) ! CHANGE TEXT OF S EMANTICS MESSAGE. ! 1 ! X-28 GJA0072 GARY J. ALLISON 02-MAR-1988A ! ADD EXT_ERR, OPNOTSUP, EXTNOTFOU, AND SEMANTICS MESSAGES. ! 0 ! X-27 PMV0072 PETER M. VATNE 08-OCT-19870 ! CHANGE RMS$_NOJNLLIC TO RMS$_JNLNOTAUTH. ! 6 ! X-26 LSS0057 LEONARD S. SZUBOWICZ 15-SEP-1987D ! CHANGE TEXT FOR THE RMS$_OK_DUP STATUS SUCH THAT THE MESSAGE. ! IS APPLICABLE TO $GET AS WELL AS $PUT. ! 0 ! X-25 PMV0068 PETER M. VATNE 11-SEP-1987> ! AD D RMS$_NOJNLLIC, NO RMS JOURNALING LICENSE, FOR LMF. ! 2 ! X-24 RNM0026 RUSSELL N. MURRAY 15-AUG-1987> ! ADD RMS$_SYNCH MESSAGE FOR NOTIFICATION OF SYNCHRONOUS ! COMPLETION. ! 1 ! X-23 JEJ0479 JAMES E JOHNSON 13-AUG-1987" ! ADD RMS$_IVATRACE MESSAGE. ! 0 ! X-22 PMV0061 PETER M. VATNE 03-AUG-1987G ! CHANGE RESERVED MESSAGE RMS$_BUG_XX5 TO RMS$_BUG_RU_COMMIT_FAILC ! TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_COMMIT_FAIL. ! 6 ! X-21 LSS0042 LEONARD S. SZUBOWICZ 13-MAY-1987F ! CHANGE RESERVED MESSAGE RMS$_BUG_XX4 TO RMS$_BUG_RU_ABORT_FAILA ! TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_ABORT_FAIL ! 4 ! X-20 SAD0034 STUART A. DAVIDSON 12-MAR-1987 - ! DROP QUOTES FROM SNADTF MESSAGE TEXT. ! - ! X-19 PJH PAUL J. HOULIHAN 19-JAN-1987 ! MERGE IN 17J1. ! 0 ! X-17J1 PJH PAUL J. HOULIHAN 15-JAN-1987( ! FIX SEVERAL SMALL JNL PROBLEMS., ! ADD RMS$_ BUG_FLUSH_JNL_FAILED CODE. ! 2 ! X-18 KPS0148 KENNETH P. SIEGEL 04-DEC-1986< ! ADDED SNPPF (STATISTICS MONITORING NOT SUPPORTED FOR/ ! PROCESS PERMANENT FILES) ERROR MESSAGE. ! 0 ! X-17 PMV0025 PETER M. VATNE 24-NOV-19869 ! ADD NEW MESSAGE, RMS$_NOTSAMEJNL. THIS STATUS IS6 ! USED TO RESTRICT AI/BI WITH RU JOURNALING TO A& ! SINGLE LONG-TERM JOURNAL FILE. ! - ! X-16 DAS DAVID A. SOLOMON 18-NOV-1986F ! ADD NEW MESSAGE, RMS$_DELJNS . REMOVE RMS$_XCR (BY REPLACING IT= ! WITH A PLACEHOLDER), AS JOURNALING BITS ARE NO LONGERC ! SPECIFIED IN THE $XABJNL. SLIGHT WORDING CHANGE ON DETACHED# ! RU RECOVERY ERROR MESSAGES. ! - ! X-15 DAS DAVID A. SOLOMON 12-NOV-1986; ! FIX ERROR IN X-5/X-6: JOURNALING VARIANT NOT MERGEDC ! CORRECTLY, RESULTING IN SEVERAL JOURNALING MESSAGES NUMBERSA ! BEING DIFFERENT IN THE MAININE THAN WHAT THEY WERE ON THED ! JOURNALING VARIANT. ALSO, MOVE NEW SNADTF MESSAGES TO RE-USEC ! AVAILABLE UNUSED MESSAGE NUMBERS, INSTEAD OF GENERATING NEWC ! ONES. FINALLY, CHANGE RMS$_BUG_ABORT TO RMS$_BUG_RU_ACTIVE. ! 3 ! X-14 SAD0014 STUART A. DAVIDSON 4-NOV-1986+ ! SNADTF - FIX TYPO IN DTFACC, DTFCRE ! 3 ! X-13 SAD0014 STUART A. DAVIDSON 3-NOV-19865 ! SNADTF - FIX TYPO, ADD 2 ADDITIONAL MESSAGES. ! 1 ! X-12 JEJ0377 JAMES E JOHNSON 29-OCT-1986< ! ADD NOEXTEND ERROR CODE TO FLAG FAILED RELAT IVE FILE) ! EXTENDS DUE TO PREVIOUS FAILURES. ! 2 ! X-11 KPS0131 KENNETH P. SIEGEL 25-OCT-1986: ! ADDED SNS ERROR CODE FOR STATISTICS NOT SUPPORT ON ! NON-DISK DEVICES. ! 2 ! X-10 SAD009 STUART A. DAVIDSON 06-OCT-19867 ! ADD COMPLETION CODES FOR SNADTF (IBM DATA XFER) ! 0 ! X-9 GJA0003 GARY J. ALLISON 29-SEP-1986, ! ADD DETACHED RECOVERY ERROR MESSAGES ! / ! X-8 PMV0008 PETER M. VATNE 24-SEP-1986; ! 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-1986D ! REMOVE RMS$_RUH_FILE (USING A GENERAL RUF MESSAGE INSTEAD).= ! CHANGE RMS$_R UH TEXT TO NOT HAVE FAO PARAMETERS. ADD ! RMS$_BUG_RURECERR. ! 3 ! X-3J5 JEJ0302 JAMES E JOHNSON 4-APR-19864 ! ADD RMS$_RRF (ERROR DURING RU RECOVERY) ANDG ! RMS$_RUH/RMS$_RUH_FILE (USED TO FORM TEXT OF RU HANDLER ERRORS ! SENT TO OPCOM). ! 3 ! X-3J4 JEJ0272 JAMES E JOHNSON 11-FEB-1986, ! ADD RMS$_RUF, RMS$_BUG_ABORT CODES. ! 3 ! X-3J3 JEJ0237 JAMES E JOHNSON 16-DEC-1985 ! ADD RMS$_RUNDOWN CODE ! 3 ! X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985? ! ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE$ ! THE GENERIC ERRWRTJNL CODE. ! 0 ! X-4 JEJ0216 JAMES E JOHNSON 18-NOV-1985, ! MERGE X-3J2 INTO MAIN LINE FOR V4.4. ! 3 ! X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985? ! ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE$ ! THE GENERIC ERRWRTJNL CODE. ! 0 ! X-3 JEJ0161 JAMES E JOHNSON 9-SEP-1985' ! UPDATE RMS J OURNALING MESSAGES. ! + ! X-2 JWT0212 JIM TEAGUE 4-SEP-19859 ! ADD (WHAT IS FOR NOW) AN INTERNAL STATUS CODE TO < ! DIFFERENTIATE BETWEEN FINDING A DELETED RECORD (DEL)? ! AND FINDING IT BUT WITH A DIFFERENT KEY (KEY_MISMATCH). ! 1 ! V03-024 RAS0314 RON SCHAEFER 21-JUN-1984B ! WORK OVER THE MESSAGES ONE MORE TIME: FIX TYPO IN OK_RNF,. ! DELETE ACPEOF ERROR, DELETE WSF ERROR. ! 1 ! V03-023 RAS0282 RON SCHAEFER 28-MAR-1984. ! MINOR TEXT CHANGES AND COMMENTS ADDED. ! DELETE RMS$_COP ERROR. ! 2 ! V03-022 DAS0005 DAVID SOLOMON 19-MAR-1984= ! REMOVE RMS$_ECHO (NO LONGER NEEDED AS A RESULT OF NEW9 ! IMPLEMENTATION FOR ECHO SYS$INPUT -> SYS$OUTPUT). ! / ! V03-021 JWT0150 JIM TEAGUE 01-FEB-1984: ! ADD RMS$_IFF FOR TRYING TO WRITE-ACCESS A FILE ON < ! MAGTAPE THAT HAS NON-0 VALUE FOR ANSI BUFFER OFFSET. ! 1 ! V03-020 RAS0233 RON SCHAEFER 9-JAN-1984; !  ADD RMS$_NOVALPRS ERROR FOR $SEARCH NOT PRECEDED BY ! VALID $PARSE. ! / ! V03-019 JWT0148 JIM TEAGUE 20-DEC-19839 ! ADD A JNL XAB ERROR FOR CONFLICTING RU ATTRIBUTES ! ON $CREATE: RMS$_XCR. ! 1 ! V03-018 RAS0171 RON SCHAEFER 28-JUL-1983> ! ADD RMS$_BUSY; A STRUCTURE-LESS ERROR (R0-ONLY STATUS) ! REPLACING TEMP3. ! 2 ! V03-017 DAS0004 DAVID SOLOMON 28-JUN-1983: ! ADD RMS$_FILEPURGED; ADD RMS$_ACPEOF FOR ZALEWSKI. ! 5 ! V03-016 KPL0007 PETER LIEBERWIRTH 8-JUN-1983? ! FIX SPELLING IN JNL ERROR MESSAGES, ADD CJF ERROR WHICH& ! WILL SOON SUBSUME COP AND CQE. ! 2 ! V03-015 DAS0003 DAVID SOLOMON 18-FEB-19838 ! ADD XNF (REPLACING TEMP9), TMR (NEW), LWC (NEW). ! 5 ! V03-014 KBT0497 KEITH B. THOMPSON 18-FEB-19831 ! ADD INCOMPSHR ERROR (REUSE OF TEMP1 SLOT) ! 1 ! V03-013 RAS0120 RON SCHAEFER 2-FEB-1983; ! ADD ECHO PSEUDO-STATUS TO SUPPORT ECHO O F SYS$INPUT ! TO SYS$OUTPUT. ! 3 ! V03-012 JWH0174 JEFFRY W. HORN 24-JAN-1983 ! ADD CQE AND COP ERRORS. ! 5 ! V03-011 KPL0006 PETER LIEBERWIRTH 7-JAN-1983. ! ADD OK_RULK FOR RECOVERY UNIT SUPPORT. ! $ ! ADD REENT ERROR FOR $RENAME. ! 4 ! V03-009 JWH0153 JEFFREY W. HORN 8-DEC-1982 ! ADD NRU ERROR. ! 4 ! V03-008 JWH0152 JEFFREY W. HORN 8-DEC-1982 ! ADD JNS ERROR. ! 5 ! V03-007 MCN0002 MARIA DE L C. NASR 15-NOV-1982; ! REPLACE ORD ERROR CODE ELIMINATED BY MCN0001, SINCE' ! THE NETWORK CODE REFERENCES IT. ! 5 ! V03-006 MCN0001 MARIA DEL C. NASR 26-OCT-1982< ! PRINT KEY OF REFERENCE OR AREA IDENTIFICATION NUMBER9 ! INSTEAD OF XAB ADDRESS FOR ERRORS RETURNED DURING< ! INDEXED FILE CREATION. ALSO RENAME ALL UNUSED ERROR ! CODES TO TEMP. ! 4 ! V03-005 JWH0102 JEFFREY W. HORN 24-SEP-1982 ! ADD RUP ERROR. ! 1 ! V03-0 04 RAS0095 RON SCHAEFER 7-SEP-1982 ! ADD OVRDSKQUOTA ERROR. ! 4 ! V03-002 JWH0002 JEFFREY W. HORN 26-JUL-19820 ! CONVERT TO .MSG FORMAT. ADD RUM ERROR. ! 4 ! V03-001 JWH0001 JEFFREY W. HORN 20-JUL-1982% ! ADD JNF, JOP, AND NOJ ERRORS. ! 5 ! V02-042 KPL0005 PETER LIEBERWIRTH 4-FEB-19829 ! ADD ERROR MESSAGES RMS$_EXENQLM AND RMS$_DEADLOCK ! CORRECTLY. ! / ! V02-041 CDS0001 C D SAETHER 24-JAN-1982 ! ADD GBC AN D CRMP ERRORS. ! . ! V02-040 JAK0069 J A KRYCKA 15-JAN-1982, ! ADD SUPPORT AND NETFAIL ERROR CODES. ! . ! V02-039 JAK0068 J A KRYCKA 31-DEC-1981B ! MODIFY TEXT FOR SUP, NET, BUG_DAP, AND ENV ERROR MESSAGES. ! 3 ! 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. ! 5 ! V02-036 KPL0004 PETER LIEBERWIRTH 13-JAN-1981 D ! ADD ENQ SEVERE ERROR MESSAGE, TO INDICATE $ENQ/$DEQ FAILURE.2 ! ALSO ADD SUCCESS CODES OK_RRL, AND OK_WAT. ! . ! V02-035 REFORMAT J A KRYCKA 30-JUL-1980 !  ! --- DECLARE LONG CONSTANT RMS$_FACILITY = 1J DECLARE LONG CONSTANT RMS$V_STVSTATUS = 14 ! MOVE TO BIT 14 OF THE ! STATUS CODE IT INDICATES$ ! THAT STV CONTAINS A SECONDARY ! STATUS CODE., DECLARE LONG CONSTANT RMS$_SUC = 65537/ DECLARE LONG CONSTANT RMS$_NORMAL = 65 537 ! + !  ! SUCCESS CODES !  ! - ! BIT 16 = BIT 15 = 1. DECLARE LONG CONSTANT RMS$_STALL = 98305, ! (NOTE: USER NEVER RECEIVES THIS CODE)0 DECLARE LONG CONSTANT RMS$_PENDING = 98313/ DECLARE LONG CONSTANT RMS$_OK_DUP = 98321/ DECLARE LONG CONSTANT RMS$_OK_IDX = 98329C ! (RECORD HAS BEEN INSERTED, BUT INDEX STRUCTURE IS NO LONGER ! OPTIMAL.)/ DECLARE LONG CONSTANT RMS$_OK_RLK = 98337D ! (BECAUSE LOCKER SET RLK IN ROP FIELD WHEN RECORD WAS LOCKED.)/ DECLARE LONG CONSTANT RMS$_OK_RRL = 98345C ! (BECAUSE READER SET RRL IN ROP FIELD WHEN ACCESSING RECORD.)$ ! (THIS CODE USED TO BE OK_RRV)? ! OK_RRV ;MSG E ! (BUT IT MAY NOT BE ACCESSIBLE VIA ONE-OR-MORE SECONDARY KEYS,E ! AND NOT BY RFA ADDRESSING. FILE RE-ORGANIZATION RECOMMENDED?), DECLARE LONG CONSTANT RMS$_KFF = 98353/ DECLARE LONG CONSTANT RMS$_OK_ALK = 98361/ DECLARE LONG CONSTANT RMS$_OK_DEL = 98369/ DECLARE LONG CONSTANT RMS$_OK_RNF = 98377/ DECLARE LONG CONSTANT RMS$_OK_LIM = 98385/ DECLARE LONG CONSTANT RMS$_OK_NOP = 98393/ DECLARE LONG CONSTANT RMS$_OK_WAT = 98401= ! (BECAUSE WAT BIT IN ROP WAS SET AND RECORD WAS ALREADY ! LOCKED.)0 DECLARE LONG CONSTANT RMS$_CRE_STM = 984090 DECLARE LONG CONSTANT RMS$_OK_RULK = 98417. DECLARE LONG CONSTANT RMS$_SYNCH = 98425/ DECLARE LONG CONSTANT RMS$_OK_ACT = 984334 DECLARE LONG CONSTANT RMS$_OK_NOCURTID = 98441 ! + ! B ! SUCCESS CODES PASSED THRU FROM DRIVERS AND ACP - BIT 15 = 0 !  ! -X DECLARE LONG CONSTANT RMS$_CONTROLC = 67153 ! TERMINAL I/O ABORTED DUE TO CTRL/C1 DECLARE LONG CONSTANT RMS$_CONTROLO = 67081) ! TERMINAL I/O ABORTED DUE TO CTRL/O1 DECLARE LONG CONSTANT RMS$_CONTROLY = 67089) ! TERMINAL I/O ABORTED DUE TO CTRL/Y0 DECLARE LONG CONSTANT RMS$_CREATED = 6 7097# ! FILE WAS CREATED, NOT OPENED2 DECLARE LONG CONSTANT RMS$_SUPERSEDE = 67121/ ! CREATED FILE SUPERSEDED EXISTING VERSION4 DECLARE LONG CONSTANT RMS$_OVRDSKQUOTA = 67177$ ! DISK USAGE EXCEEDS DISK QUOTA3 DECLARE LONG CONSTANT RMS$_FILEPURGED = 67193% ! CREATE FILE CAUSED OLDEST FILE ! VERSION TO BE PURGED ! + !  ! WARNING CODES !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 0, DECLARE LONG CONSTANT RMS$_BOF = 98712, DECLARE LONG CONSTANT RMS$_RNL = 98720, DECLARE LONG CONSTANT RMS$_RTB = 98728, DECLARE LONG CONSTANT RMS$_TMO = 98736, DECLARE LONG CONSTANT RMS$_TNS = 98744, DECLARE LONG CONSTANT RMS$_BES = 98752, DECLARE LONG CONSTANT RMS$_PES = 98760 ! + ! L ! 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, DECLARE LONG CONSTANT RMS$_A CT = 98906, DECLARE LONG CONSTANT RMS$_DEL = 989142 DECLARE LONG CONSTANT RMS$_INCOMPSHR = 98922, DECLARE LONG CONSTANT RMS$_DNR = 98930, DECLARE LONG CONSTANT RMS$_EOF = 98938, DECLARE LONG CONSTANT RMS$_FEX = 98946, DECLARE LONG CONSTANT RMS$_FLK = 98954, DECLARE LONG CONSTANT RMS$_FNF = 98962, DECLARE LONG CONSTANT RMS$_PRV = 98970, DECLARE LONG CONSTANT RMS$_REX = 98978, DECLARE LONG CONSTANT RMS$_RLK = 98986, DECLARE LONG CONSTANT RMS$_RNF = 989948 ! (RECORD NEVER WAS IN FILE, OR HAS BEEN DELETED.), DECLARE LONG CONSTANT RMS$_WLK = 99002, DECLARE LONG CONSTANT RMS$_EXP = 99010, DECLARE LONG CONSTANT RMS$_NMF = 99018, DECLARE LONG CONSTANT RMS$_SUP = 99026A ! (NOTE THAT SUPPORT HAS REPLACED SUP EXCEPT WHEN RMS CANNOT7 ! MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)? ! (NOTE ALSO THAT SUP SHOULD HAVE BEEN DEFINED AS A SEVERE< ! ERROR CODE. HOWEVER, SUPPORT IS A SEVERE ERROR CODE.), DECLARE LONG CONSTANT RMS$_RSA = 99034, DECLARE LONG CONSTANT RMS$_CRC = 99042, DECLARE LONG CONSTANT RMS$_WCC = 99050, DECLARE LONG CONSTANT RMS$_IDR = 99058, DECLARE LONG CONSTANT RMS$_LWC = 990660 DECLARE LONG CONSTANT RMS$_UNUSED1 = 990741 DECLARE LONG CONSTANT RMS$_NOVALPRS = 990825 DECLARE LONG CONSTANT RMS$_KEY_MISMATCH = 99090, DECLARE LONG CONSTANT RMS$_RUH = 99098, DECLARE LONG CONSTANT RMS$_JND = 991061 DECLARE LONG CONSTANT RMS$_BADPHASE = 99114. DECLARE LONG CONSTANT RMS$_TOWDR = 99122. DECLARE LONG CONSTANT RMS$_NEXDR = 991301 DECLARE LONG CONSTANT RMS$_INVDRMSG = 991382 DECLARE LONG CONSTANT RMS$_RU_ACTIVE = 991461 DECLARE LONG CONSTANT RMS$_UNKRUFAC = 99154. DECLARE LONG CONSTANT RMS$_LIMBO = 991621 DECLARE LONG CONSTANT RMS$_IVATRACE = 991701 DECLARE LONG CONSTANT RMS$_OPNOTSUP = 991782 DECLARE LONG CONSTANT RMS$_EXTNOTFOU = 991860 DECLARE LO NG CONSTANT RMS$_EXT_ERR = 991942 DECLARE LONG CONSTANT RMS$_SEMANTICS = 99202. DECLARE LONG CONSTANT RMS$_LSCAN = 992101 DECLARE LONG CONSTANT RMS$_ROOTSRCH = 992182 DECLARE LONG CONSTANT RMS$_IDXSEARCH = 99226/ DECLARE LONG CONSTANT RMS$_NETBTS = 99234, DECLARE LONG CONSTANT RMS$_NXR = 99242< ! IF EXACT KEY MATCH ON SECONDARY KEY AND SECONDARY KEY9 ! ENTRY POINTS TO NONEXISTENT PRIMARY DATA RECORD IN ! DISK FILE.5 DECLARE LONG CONSTANT RM S$_EOFASY_SYNCH = 99250. DECLARE LONG CONSTANT RMS$_ELOOP = 99258 ! + ! ] ! ERROR CODES - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) !  ! -# ! BIT 16 = BIT 15 = BIT 14 = 1- DECLARE LONG CONSTANT RMS$_ACC = 114690- DECLARE LONG CONSTANT RMS$_CRE = 114698- DECLARE LONG CONSTANT RMS$_DAC = 114706- DECLARE LONG CONSTANT RMS$_ENT = 114714- DECLARE LONG CONSTANT RMS$_EXT = 114722- DECLARE LONG CON STANT RMS$_FND = 114730- DECLARE LONG CONSTANT RMS$_MKD = 114738- DECLARE LONG CONSTANT RMS$_DPE = 114746- DECLARE LONG CONSTANT RMS$_SPL = 114754- DECLARE LONG CONSTANT RMS$_DNF = 114762- DECLARE LONG CONSTANT RMS$_RUF = 1147704 DECLARE LONG CONSTANT RMS$_WRTJNL_AIJ = 1147784 DECLARE LONG CONSTANT RMS$_WRTJNL_BIJ = 1147864 DECLARE LONG CONSTANT RMS$_WRTJNL_ATJ = 1147944 DECLARE LONG CONSTANT RMS$_WRTJNL_RUJ = 114802- DECLARE LONG CONST ANT RMS$_RRF = 1148102 DECLARE LONG CONSTANT RMS$_DDTM_ERR = 114818 ! + ! S ! 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 = 02 DECLARE LONG CONSTANT RMS$_DTFCDDREC = 99308, DECLARE LONG CONSTANT RMS$_AID = 99316, DECLARE LONG CONSTANT RMS$_ALN = 99324, DECLARE LONG CONSTANT RMS$_ALQ = 99332, DECLARE LONG CONSTANT RMS$_ANI = 99340, DECLARE LONG CONSTANT RMS$_AOP = 99348, DECLARE LONG CONSTANT RMS$_BKS = 99356, DECLARE LONG CONSTANT RMS$_BKZ = 99364, DECLARE LONG CONSTANT RMS$_BLN = 99372, DECLARE LONG CONSTANT RMS$_BUG = 993800 DECLARE LONG CONSTANT RMS$_BUG_DDI = 993880 DECLARE LONG CONSTANT RMS$_BUG_DAP = 993966 DECLARE LONG CONSTANT RMS$_BUG_RU_ACTIVE = 994045 DECLARE LONG CONSTANT RMS$_BUG_RURECERR = 99412= DECLARE LONG CONSTANT RMS$_BUG_FLUSH_JNL_FAILED = 99420: DECLARE LONG CONSTANT RMS$_BUG_RU_ABORT_FAIL = 99428; DECLARE LONG CONSTANT RMS$_BUG_RU_COMMIT_FAIL = 994360 DECLARE LONG CONSTANT RMS$_BUG_XX6 = 994440 DECLARE LONG CONSTANT RMS$_BUG_XX7 = 994520 DECLARE LONG CONSTANT RMS$_BUG_XX8 = 99460- DECLARE LONG CONSTANT RMS$_BUSY = 99468, DECLARE LONG CONSTANT RMS$_CCR = 99476, DECLARE LONG CONSTANT RMS$_CHG = 99484, DECLARE LONG CONSTANT RMS$_CHK = 99492, DECLARE LONG CONSTANT RMS$_COD = 99500, DECLARE LONG CONSTANT RMS$_CUR = 99508, DECLARE LONG CONSTANT RMS$_DAN = 99516, DECLARE LONG CONSTANT RMS$_DEV = 99524, DECLARE LONG CONSTANT RMS$_DIR = 99532, DECLARE LONG CONSTANT RMS$_DME = 99540, DECLARE LONG CONSTANT RMS$_DNA = 99548, DECLARE LONG CONSTANT RMS$_DTP = 99556, DECLARE LONG CONSTANT RMS$_DUP = 99564, DECLARE LONG CONSTANT RMS$_DVI = 99572, DECLARE LONG CONSTANT RMS$_ESA = 99580, DECLARE LONG CONSTANT RMS$_ESS = 99588, DECLARE LONG CONSTANT RMS$_FAB = 99596, DECLARE LONG CONSTANT RMS$_FAC = 99604, DECLARE LONG CONSTANT RMS$_FLG = 99612, DECLARE LONG CONSTANT RMS$_FNA = 99620, DECLARE LONG CONSTANT RMS$_FNM = 99628, DECLARE LONG CONSTANT RMS$_FSZ = 99636, DECLARE LONG CONSTANT RMS$_FOP = 99644, DECLARE LONG CONSTANT RMS$_FUL = 99652, DECLARE LONG CONSTANT RMS$_IAL = 99660, DECLARE LONG CONSTANT RMS$_IAN = 99668, DECLARE LONG CONSTANT RMS$_IDX = 99676, DECLARE LONG CONSTANT RMS$_IFI = 99684, DECLARE LONG CONSTANT RMS$_IMX = 99692, DECLARE LONG CONSTANT RMS$_IOP = 99700, DECLARE LONG CONSTANT RMS$_IRC = 99708, DECLARE LONG CONSTANT RMS$_ISI = 99716, DECLARE LONG CONSTANT RMS$_KBF = 99724, DECLARE LONG CONSTANT RMS$_KEY = 99732, DECLARE LONG CONSTANT RMS$_KRF = 99740, DECLARE LONG CONSTANT RMS$_KSZ = 99748, DECLARE LONG CONSTANT RMS$_LAN = 997560 DECLARE LONG CONSTANT RMS$_RUNDO WN = 99764, DECLARE LONG CONSTANT RMS$_LNE = 99772/ DECLARE LONG CONSTANT RMS$_DTFCVT = 99780, DECLARE LONG CONSTANT RMS$_MRN = 99788, DECLARE LONG CONSTANT RMS$_MRS = 99796, DECLARE LONG CONSTANT RMS$_NAM = 99804, DECLARE LONG CONSTANT RMS$_NEF = 998122 DECLARE LONG CONSTANT RMS$_DTFQUASYN = 99820, DECLARE LONG CONSTANT RMS$_NOD = 99828, DECLARE LONG CONSTANT RMS$_NPK = 99836C DECLARE LONG CONSTANT RMS$_ORD = 99844 ! ? NOT USED AS OF V4, DECLARE LONG CONSTANT RMS$_ORG = 99852, DECLARE LONG CONSTANT RMS$_PBF = 99860, DECLARE LONG CONSTANT RMS$_PLG = 99868, DECLARE LONG CONSTANT RMS$_POS = 998762 DECLARE LONG CONSTANT RMS$_DTFQUAVAL = 99884, DECLARE LONG CONSTANT RMS$_QUO = 99892, DECLARE LONG CONSTANT RMS$_RAB = 99900, DECLARE LONG CONSTANT RMS$_RAC = 99908, DECLARE LONG CONSTANT RMS$_RAT = 99916, DECLARE LONG CONSTANT RMS$_RBF = 99924, DECLARE LONG CONSTANT RMS$_RFA = 9 9932, DECLARE LONG CONSTANT RMS$_RFM = 99940, DECLARE LONG CONSTANT RMS$_RHB = 99948, DECLARE LONG CONSTANT RMS$_RLF = 99956, DECLARE LONG CONSTANT RMS$_ROP = 99964, DECLARE LONG CONSTANT RMS$_RRV = 99972, DECLARE LONG CONSTANT RMS$_RVU = 99980, DECLARE LONG CONSTANT RMS$_RSS = 99988, DECLARE LONG CONSTANT RMS$_RST = 99996- DECLARE LONG CONSTANT RMS$_RSZ = 100004- DECLARE LONG CONSTANT RMS$_SEQ = 100012- DECLARE LONG CONSTANT RMS$_SHR = 100020- DECLARE LONG CONSTANT RMS$_SIZ = 100028- DECLARE LONG CONSTANT RMS$_SQO = 1000363 DECLARE LONG CONSTANT RMS$_DTFSESEST = 100044- DECLARE LONG CONSTANT RMS$_SYN = 100052- DECLARE LONG CONSTANT RMS$_TRE = 100060- DECLARE LONG CONSTANT RMS$_TYP = 100068- DECLARE LONG CONSTANT RMS$_UBF = 100076- DECLARE LONG CONSTANT RMS$_USZ = 100084- DECLARE LONG CONSTANT RMS$_VER = 100092- DECLARE LONG CONSTANT RMS$_XNF = 100100- DE CLARE LONG CONSTANT RMS$_XAB = 100108- DECLARE LONG CONSTANT RMS$_ESL = 1001163 DECLARE LONG CONSTANT RMS$_DTFSESTER = 100124- DECLARE LONG CONSTANT RMS$_ENV = 100132- DECLARE LONG CONSTANT RMS$_PLV = 100140- DECLARE LONG CONSTANT RMS$_MBC = 100148- DECLARE LONG CONSTANT RMS$_RSL = 100156- DECLARE LONG CONSTANT RMS$_WLD = 100164l DECLARE LONG CONSTANT RMS$_NET = 100172 ! (NOTE THAT NETFAIL HAS REPLACED NET EXCEPT WHEN RMS CANNOT7 ! MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)- DECLARE LONG CONSTANT RMS$_IBF = 100180- DECLARE LONG CONSTANT RMS$_REF = 100188- DECLARE LONG CONSTANT RMS$_IFL = 100196- DECLARE LONG CONSTANT RMS$_DFL = 100204- DECLARE LONG CONSTANT RMS$_KNM = 100212- DECLARE LONG CONSTANT RMS$_IBK = 100220- DECLARE LONG CONSTANT RMS$_KSI = 100228- DECLARE LONG CONSTANT RMS$_LEX = 100236- DECLARE LONG CONSTANT RMS$_SEG = 100244D DECLARE LONG CONSTANT RM S$_SNE = 100252 ! ? NOT USED AS OF V4D DECLARE LONG CONSTANT RMS$_SPE = 100260 ! ? NOT USED AS OF V4- DECLARE LONG CONSTANT RMS$_UPI = 100268- DECLARE LONG CONSTANT RMS$_ACS = 100276- DECLARE LONG CONSTANT RMS$_STR = 100284- DECLARE LONG CONSTANT RMS$_FTM = 100292- DECLARE LONG CONSTANT RMS$_GBC = 1003002 DECLARE LONG CONSTANT RMS$_DEADLOCK = 1003081 DECLARE LONG CONSTANT RMS$_EXENQLM = 100316- DECLARE LONG CONSTANT RMS$_JOP = 100324- DECLARE LONG CONSTANT RMS$_RUM = 100332- DECLARE LONG CONSTANT RMS$_JNS = 100340- DECLARE LONG CONSTANT RMS$_NRU = 100348- DECLARE LONG CONSTANT RMS$_IFF = 1003563 DECLARE LONG CONSTANT RMS$_DTFTRATBL = 1003643 DECLARE LONG CONSTANT RMS$_DTFUNSTYP = 1003723 DECLARE LONG CONSTANT RMS$_DTFVERMIS = 100380 ! + ! ! ERROR CODES - WITHOUT STV ! K ! DTFACC AND DTFCRE WERE ORIGINALLY INCLUDED IN THIS FATAL SEVERITY H ! (NO STV)  GROUPING. IN ORDER TO CHANGE THEIR SEVERITY TO ERROR H ! (NO STV) AND RETAIN THE SAME MESSAGE CODE VALUE, THE FOLLOWING G ! SHIFTS IN SEVERITY FROM FATAL TO ERROR AND THEN BACK AGAIN AREK ! DONE, WHILE RETAINING THE SAME ORIGINAL BASE ASSOCIATED WITH EACH. !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 00 DECLARE LONG CONSTANT RMS$_DTFACC = 100386 ! + ! ' ! SEVERE ERROR CODES - WITHOUT STV !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 0 2 DECLARE LONG CONSTANT RMS$_BOGUSCOL = 1003964 DECLARE LONG CONSTANT RMS$_ERRREADCOL = 1004045 DECLARE LONG CONSTANT RMS$_ERRWRITECOL = 100412- DECLARE LONG CONSTANT RMS$_SNS = 1004207 DECLARE LONG CONSTANT RMS$_NOEXTEND = 100428 ! + ! ! ERROR CODES - WITHOUT STV !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 00 DECLARE LONG CONSTANT RMS$_DTFCRE = 100434 ! + ! ' ! SEVERE ERROR CODES - WITHOUT STV !  ! -& ! B IT 16 = BIT 15 = 1, BIT 14 = 00 DECLARE LONG CONSTANT RMS$_DELJNS = 1004444 DECLARE LONG CONSTANT RMS$_NOTSAMEJNL = 100452/ DECLARE LONG CONSTANT RMS$_SNPPF = 100460. DECLARE LONG CONSTANT RMS$_NAML = 1004681 DECLARE LONG CONSTANT RMS$_NAMLESS = 1004761 DECLARE LONG CONSTANT RMS$_NAMLRSS = 1004843 DECLARE LONG CONSTANT RMS$_NAMLFSSIZ = 1004923 DECLARE LONG CONSTANT RMS$_NAMLFSINV = 1005000 DECLARE LONG CONSTANT RMS$_BADGBH = 1005080 DECL ARE LONG CONSTANT RMS$_BADGBD = 1005163 DECLARE LONG CONSTANT RMS$_FOPEXTMBZ = 1005244 DECLARE LONG CONSTANT RMS$_INVOP_SSIO = 100532. DECLARE LONG CONSTANT RMS$_IVSF = 100540 ! + ! _ ! SEVERE ERRORS - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) !  ! -# ! BIT 16 = BIT 15 = BIT 14 = 1- DECLARE LONG CONSTANT RMS$_ATR = 114892- DECLARE LONG CONSTANT RMS$_ATW = 114900- DECLARE LONG CONSTANT RMS$_CCF = 114 908- DECLARE LONG CONSTANT RMS$_CDA = 114916- DECLARE LONG CONSTANT RMS$_CHN = 114924- DECLARE LONG CONSTANT RMS$_RER = 114932- DECLARE LONG CONSTANT RMS$_RMV = 114940- DECLARE LONG CONSTANT RMS$_RPL = 114948- DECLARE LONG CONSTANT RMS$_SYS = 114956- DECLARE LONG CONSTANT RMS$_WER = 114964- DECLARE LONG CONSTANT RMS$_WPL = 114972- DECLARE LONG CONSTANT RMS$_IFA = 114980- DECLARE LONG CONSTANT RMS$_WBE = 114988- DECLARE LONG C ONSTANT RMS$_ENQ = 1149961 DECLARE LONG CONSTANT RMS$_NETFAIL = 1150041 DECLARE LONG CONSTANT RMS$_SUPPORT = 115012. DECLARE LONG CONSTANT RMS$_CRMP = 1150203 DECLARE LONG CONSTANT RMS$_DTFCFGFIL = 115028/ DECLARE LONG CONSTANT RMS$_REENT = 1150361 DECLARE LONG CONSTANT RMS$_ACC_RUJ = 115044- DECLARE LONG CONSTANT RMS$_TMR = 1150521 DECLARE LONG CONSTANT RMS$_ACC_AIJ = 1150601 DECLARE LONG CONSTANT RMS$_ACC_BIJ = 1150681 DECLARE LONG CONSTANT RMS$_ACC_ATJ = 1150763 DECLARE LONG CONSTANT RMS$_DTFDEFFIL = 1150843 DECLARE LONG CONSTANT RMS$_DTFREGFIL = 1150924 DECLARE LONG CONSTANT RMS$_JNLNOTAUTH = 1151002 DECLARE LONG CONSTANT RMS$_CRBUFOBJ = 1151086 DECLARE LONG CONSTANT RMS$_RSESTK_ALLOC = 115116ww $  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:46.01 !  !  ! VERSION: 'X-1' ! R ! ********************************************************************** ****** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! FACILITY: ! K ! MESSAGES ARE FOR THE FAL (DECNET FILE ACCESS LISTENER) FACILITY, BUT- ! ARE GENERATED ON BEHALF OF FAL BY RMS. !  ! ABSTRACT: ! L ! THIS MODULE DEFINES FAL STATUS CODE SYMBOLS AND CORRESPONDING MESSAGEK ! T EXT. NOTE THAT THIS MESSAGE FILE IS MAINTAINED BY THE RMS FACILITY,K ! NOT THE FAL FACILITY, BECAUSE RMS DOES THE TRANSLATION OF DAP STATUSO ! INTO FAL STATUS CODES WHICH ARE REPORTED AS SECONDARY STATUS INFORMATIONN ! TO THE RMS$_NETFAIL AND RMS$_SUPPORT COMPLETION CODES ON BEHALF OF FAL. !  ! ENVIRONMENT: VAX/VMS ! : ! AUTHOR: JAMES A. KRYCKA, CREATION DATE: 15-JAN-1982 !  ! MODIFIED BY: ! - ! X-1 RAB RICHARD A. BISHOP 24-JUN-1991#  ! MOVED TO [STARLET] FACILITY ! ) ! ================================== ! OLD AUDIT TRAIL FOLLOWS: ! 1 ! X-3 SAD009 STUART A. DAVIDSON 06-OCT-1986$ ! ADD STATUS CODES FOR SNADTF. ! , ! X-2 DAS DAVID A. SOLOMON 01-AUG-1986= ! REMOVE /MACRO= ON .FACILITY SO THE PROPER MACROS WILL% ! BE GENERATED IN THE SDL FILE. ! . ! V03-001 JAK0147 J A KRYCKA 09-JUL-1984B ! ADD ERROR CODES THAT CORRESPOND TO DAP MICCODES 416 TO 470@ !  (OCTAL) FOR MACCODES 4 THROUGH 7 DEFINED IN THE DAP V7.0 ! SPECIFICATION. !  ! -- ! ++H ! DEFINE FAL STATUS CODES FOR USE BY RMS AS SECONDARY STATUS CODES. !  ! LAYOUT OF MESSAGE SPACE: ! 4 ! MSG NUMBERS MSG NUMBERS MSG CODES DESCRIPTION, ! (DECIMAL) (HEXADECIMAL) (HEXADECIMAL) ! 1 ! 0 - 1023 0000 - 03FF 8000 - 9FFF UNUSED; ! 1024 - 2047 0400 - 07FF A000 - BFFF FOR RMS$_NETFAIL; ! 2048 - 4095 0800 - 0FFF C000 - FFFF FOR R MS$_SUPPORT ! --/ DECLARE LONG CONSTANT FAL$_FACILITY = 503 ! +S ! DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_NETFAIL COMPLETION< ! CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. ! M ! USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITHQ ! MACCODE = 4 THRU 7) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): ! G ! MESSAGE-CODE = (2**15 + ((MICCODE + 1024) * 8) + SEVERITY-LEVEL) ! N ! NOTE: THE FIRST THREE CHARACTERS OF THE MESSAGE IDENTIFICATION MNEMONICI ! FOR EACH MESSAGE CODE IN THIS SET INDICATES ITS ORIGIN AS FOLLOWS: ! L ! RMS --- THE CODE IS DEFINED FOR RMS-11 OR RMS-20, BUT NOT FOR RMS-32.< ! (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.: ! DAP --- ORIGIN IN THE DAP SPECIFICATION IS UNKNOWN. ! -0 DECLARE LONG CONSTANT FAL$_OFFSET_A = 1024 ! MICCODE = 0000 (OCTAL)3 DECLARE LONG CONSTANT FAL$_DAPFAIL = 330055722 DECLARE LONG CONSTANT FAL$_RMSABO = 33005580 ! MICCODE = 0011 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSAST = 330056442 DECLARE LONG CONSTANT FAL$_RMSBPA = 330056522 DECLARE LONG CONSTANT FAL$_RMSBPS = 33005660 ! MICCODE = 0026 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSCLS = 33005748 ! MICCODE = 0056 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSFID = 33005940 ! MICCODE = 0071 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSINI = 33006028 ! MICCODE = 0102 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSLBL = 330061002 DECLARE LONG CONSTANT FAL$_RMSLBY = 330061082 DECLARE LONG CONSTANT FAL$_RMSLCH = 33006116 ! MICCODE = 0106 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSLOC = 330061322 DECLARE LONG CONSTANT FAL$_RMSMAP = 33006140 ! MICCODE = 0115 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSNID = 33006188 ! MICCODE = 0117 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSOPN = 33006204 ! MICCIDE = 0124 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSPRM = 33006244 ! MICCODE = 0153 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSSTK = 33006428 ! MICCODE = 0162 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSVOL = 33006484 ! MICCODE = 0170 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSCAA = 33006532 ! MICCODE = 0231 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSBLK = 33 0067962 DECLARE LONG CONSTANT FAL$_RMSBSZ = 330068042 DECLARE LONG CONSTANT FAL$_RMSCDR = 330068122 DECLARE LONG CONSTANT FAL$_RMSCGJ = 330068202 DECLARE LONG CONSTANT FAL$_RMSCOF = 330068282 DECLARE LONG CONSTANT FAL$_RMSJFN = 330068362 DECLARE LONG CONSTANT FAL$_RMSPEF = 330068442 DECLARE LONG CONSTANT FAL$_RMSTRU = 330068522 DECLARE LONG CONSTANT FAL$_RMSUDF = 330068602 DECLARE LONG CONSTANT FAL$_RMSXCL = 330068685 DECLARE LONG CONSTANT FA L$_DAPDIRFUL = 330068762 DECLARE LONG CONSTANT FAL$_FCSHWR = 330068842 DECLARE LONG CONSTANT FAL$_FCSFHE = 330068925 DECLARE LONG CONSTANT FAL$_DAPWRTEOF = 330069002 DECLARE LONG CONSTANT FAL$_FCSONP = 330069082 DECLARE LONG CONSTANT FAL$_FCSDNA = 330069162 DECLARE LONG CONSTANT FAL$_FCSDAA = 330069242 DECLARE LONG CONSTANT FAL$_FCSDUN = 330069322 DECLARE LONG CONSTANT FAL$_FCSRSU = 330069402 DECLARE LONG CONSTANT FAL$_FCSOVR = 330069482 DE CLARE LONG CONSTANT FAL$_FCSBCC = 330069562 DECLARE LONG CONSTANT FAL$_FCSNOD = 330069642 DECLARE LONG CONSTANT FAL$_FCSIFU = 330069722 DECLARE LONG CONSTANT FAL$_FCSHFU = 330069802 DECLARE LONG CONSTANT FAL$_FCSWAC = 330069882 DECLARE LONG CONSTANT FAL$_FCSCKS = 330069962 DECLARE LONG CONSTANT FAL$_FCSWAT = 330070042 DECLARE LONG CONSTANT FAL$_FCSALN = 330070122 DECLARE LONG CONSTANT FAL$_FCSBTF = 330070202 DECLARE LONG CONSTANT FAL$_FCSILL = 3300 70282 DECLARE LONG CONSTANT FAL$_FCS2DV = 330070362 DECLARE LONG CONSTANT FAL$_FCSFEX = 330070442 DECLARE LONG CONSTANT FAL$_FCSRNM = 330070522 DECLARE LONG CONSTANT FAL$_FCSFOP = 330070602 DECLARE LONG CONSTANT FAL$_FCSVER = 330070682 DECLARE LONG CONSTANT FAL$_FCSEOV = 330070762 DECLARE LONG CONSTANT FAL$_FCSDAO = 330070842 DECLARE LONG CONSTANT FAL$_FCSBBE = 330070922 DECLARE LONG CONSTANT FAL$_FCSEOT = 330071002 DECLARE LONG CONSTANT FAL$ _FCSNBF = 330071082 DECLARE LONG CONSTANT FAL$_FCSNBK = 330071162 DECLARE LONG CONSTANT FAL$_FCSNST = 330071242 DECLARE LONG CONSTANT FAL$_FCSULK = 330071322 DECLARE LONG CONSTANT FAL$_FCSNLN = 330071402 DECLARE LONG CONSTANT FAL$_FCSSRE = 33007148 ! MICCODE = 0311 (OCTAL)5 DECLARE LONG CONSTANT FAL$_DAPQUOEXC = 33007180 ! MICCODE = 0346 (OCTAL)5 DECLARE LONG CONSTANT FAL$_DAPDIRCAF = 330074125 DECLARE LONG CONSTANT FAL$_DAPDIRCRA = 33007 4205 DECLARE LONG CONSTANT FAL$_DAPDIRPRO = 330074285 DECLARE LONG CONSTANT FAL$_DAPDIRPRA = 330074365 DECLARE LONG CONSTANT FAL$_DAPDIRNFA = 330074445 DECLARE LONG CONSTANT FAL$_DAPDIRCON = 33007452 ! MICCODE = 0416 (OCTAL)5 DECLARE LONG CONSTANT FAL$_TENFILMOD = 330077324 DECLARE LONG CONSTANT FAL$_TENDEVNA = 330077404 DECLARE LONG CONSTANT FAL$_TENDEVNF = 330077485 DECLARE LONG CONSTANT FAL$_TENPARALL = 330077565 DECLARE LONG CONST ANT FAL$_TENBNFREE = 330077643 DECLARE LONG CONSTANT FAL$_TENCSDF = 330077723 DECLARE LONG CONSTANT FAL$_TENCDDF = 330077804 DECLARE LONG CONSTANT FAL$_TENSFDNF = 330077882 DECLARE LONG CONSTANT FAL$_TENSLE = 330077965 DECLARE LONG CONSTANT FAL$_TENSFDCNT = 330078044 DECLARE LONG CONSTANT FAL$_TENNCESL = 330078125 DECLARE LONG CONSTANT FAL$_TENCUPFIL = 330078205 DECLARE LONG CONSTANT FAL$_TENNETCAP = 330078284 DECLARE LONG CONSTANT FAL$_TENTS KNA = 330078364 DECLARE LONG CONSTANT FAL$_TENNODNF = 330078445 DECLARE LONG CONSTANT FAL$_TENSFDREN = 330078525 DECLARE LONG CONSTANT FAL$_TENCDFNDR = 330078605 DECLARE LONG CONSTANT FAL$_TENJCREAD = 330078685 DECLARE LONG CONSTANT FAL$_TENRENSFD = 330078765 DECLARE LONG CONSTANT FAL$_TENDEVDWN = 330078845 DECLARE LONG CONSTANT FAL$_TENDEVRES = 330078925 DECLARE LONG CONSTANT FAL$_TENDEVMDA = 330079005 DECLARE LONG CONSTANT FAL$_TENDEVALL = 330079084 DECLARE LONG CONSTANT FAL$_TENILLDM = 330079165 DECLARE LONG CONSTANT FAL$_TENLPTPAG = 330079245 DECLARE LONG CONSTANT FAL$_TENLPTVFU = 330079325 DECLARE LONG CONSTANT FAL$_TENLPTCHR = 330079405 DECLARE LONG CONSTANT FAL$_TENLPTRAM = 330079485 DECLARE LONG CONSTANT FAL$_TENFILSPC = 33007956 ! MICCODE = 0453 (OCTAL)4 DECLARE LONG CONSTANT FAL$_TENNSNOD = 330079644 DECLARE LONG CONSTANT FAL$_TENANODI = 330079724 DECLARE LONG C ONSTANT FAL$_TENSNODI = 330079804 DECLARE LONG CONSTANT FAL$_TENNSDEV = 330079884 DECLARE LONG CONSTANT FAL$_TENADEVI = 330079964 DECLARE LONG CONSTANT FAL$_TENSDEVI = 330080044 DECLARE LONG CONSTANT FAL$_TENNSDIR = 330080124 DECLARE LONG CONSTANT FAL$_TENADIRI = 330080204 DECLARE LONG CONSTANT FAL$_TENSDIRI = 330080284 DECLARE LONG CONSTANT FAL$_TENNSFIL = 330080364 DECLARE LONG CONSTANT FAL$_TENAFILI = 330080444 DECLARE LONG CONSTANT FAL$_TENSFIL I = 330080524 DECLARE LONG CONSTANT FAL$_TENAFILR = 330080604 DECLARE LONG CONSTANT FAL$_TENSFILR = 33008068 ! MICCODE = 475 (OCTAL)5 DECLARE LONG CONSTANT FAL$_DTFFALSHT = 330081084 DECLARE LONG CONSTANT FAL$_DTFNOFIL = 330081164 DECLARE LONG CONSTANT FAL$_DTFNOREC = 330081245 DECLARE LONG CONSTANT FAL$_DTFNOTREG = 330081325 DECLARE LONG CONSTANT FAL$_DTFOPRABO = 33008140 ! MICCODE = 504 (OCTAL)4 DECLARE LONG CONSTANT FAL$_DTFRDCKP = 3300 8164 ! +S ! DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_SUPPORT COMPLETION< ! CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. ! M ! USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITHJ ! MACCODE = 2) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): ! G ! MESSAGE-CODE = (2**15 + ((MICCODE + 2048) * 8) + SEVERITY-LEVEL) ! R ! NOTE: THE INTENT IN THIS SECTION IS TO DEFINE FAL STATUS CODES ONLY FOR DAPK ! FIELDS THAT CORRESPOND DIRECTLY TO RMS CONTROL BLOCK FIELDS USED FORL ! INPUT. FOR OTHER DAP FIELDS THAT MAY BE REJECTED BY THE REMOTE FAL ASM ! BEING UNSUPPORTED, THE RMS$_SUP COMPLETION CODE IS RETURNED IN THE STSL ! FIELD OF THE FAB OR RAB WITH AN ASSOCIATED DAP CODE IN THE STV FIELD. ! -0 DECLARE LONG CONSTANT FAL$_OFFSET_B = 2048 ! MICCODE = 0222 (OCTAL)/ DECLARE LONG CONSTANT FAL$_ORG = 33014932/ DECLARE LONG CONSTANT FAL$_RFM = 33014940/ DECLARE LONG CONSTANT FAL$_RAT = 33014948/ DECLARE LONG CONSTANT FAL$_BLS = 33014956/ DECLARE LONG CONSTANT FAL$_MRS = 330149640 DECLARE LONG CONSTANT FAL$_ALQ1 = 33014972/ DECLARE LONG CONSTANT FAL$_BKS = 33014980/ DECLARE LONG CONSTANT FAL$_FSZ = 33014988/ DECLARE LONG CONSTANT FAL$_MRN = 33014996 ! MICCODE = 0234 (OCTAL)0 DECLARE LONG CONSTANT FAL$_DEQ1 = 330150120 DECLARE LONG CONSTANT FAL$_FOP1 = 33015020 ! MICCODE = 0241 (OCTAL )/ DECLARE LONG CONSTANT FAL$_LRL = 33015052 ! MICCODE = 0320 (OCTAL)3 DECLARE LONG CONSTANT FAL$_ACCFUNC = 33015428 ! MICCODE = 0323 (OCTAL)/ DECLARE LONG CONSTANT FAL$_FAC = 33015452/ DECLARE LONG CONSTANT FAL$_SHR = 33015460 ! MICCODE = 0420 (OCTAL)3 DECLARE LONG CONSTANT FAL$_CTLFUNC = 33015940 ! MICCODE = 0422 (OCTAL)/ DECLARE LONG CONSTANT FAL$_RAC = 33015956/ DECLARE LONG CONSTANT FAL$_KEY = 33015964/ DECLARE LO NG CONSTANT FAL$_KRF = 33015972/ DECLARE LONG CONSTANT FAL$_ROP = 33015980 ! MICCODE = 0520 (OCTAL)3 DECLARE LONG CONSTANT FAL$_CONFUNC = 33016452 ! MICCODE = 0720 (OCTAL)3 DECLARE LONG CONSTANT FAL$_CMPFUNC = 330174760 DECLARE LONG CONSTANT FAL$_FOP2 = 33017484 ! MICCODE = 1221 (OCTAL)/ DECLARE LONG CONSTANT FAL$_FLG = 33019020/ DECLARE LONG CONSTANT FAL$_DFL = 33019028/ DECLARE LONG CONSTANT FAL$_IFL = 33019036 ! MICCODE = 1 225 (OCTAL)/ DECLARE LONG CONSTANT FAL$_POS = 33019052/ DECLARE LONG CONSTANT FAL$_SIZ = 33019060/ DECLARE LONG CONSTANT FAL$_REF = 33019068/ DECLARE LONG CONSTANT FAL$_KNM = 33019076/ DECLARE LONG CONSTANT FAL$_NUL = 33019084/ DECLARE LONG CONSTANT FAL$_IAN = 33019092/ DECLARE LONG CONSTANT FAL$_LAN = 33019100/ DECLARE LONG CONSTANT FAL$_DAN = 33019108/ DECLARE LONG CONSTANT FAL$_DTP = 33019116 ! MICCODE = 1321 (OCTAL)/ DECL ARE LONG CONSTANT FAL$_VOL = 33019532/ DECLARE LONG CONSTANT FAL$_ALN = 33019540/ DECLARE LONG CONSTANT FAL$_AOP = 33019548/ DECLARE LONG CONSTANT FAL$_LOC = 33019556 ! MICCODE = 1326 (OCTAL)0 DECLARE LONG CONSTANT FAL$_ALQ2 = 33019572/ DECLARE LONG CONSTANT FAL$_AID = 33019580/ DECLARE LONG CONSTANT FAL$_BKZ = 330195880 DECLARE LONG CONSTANT FAL$_DEQ2 = 33019596 ! MICCODE = 1521 (OCTAL)/ DECLARE LONG CONSTANT FAL$_CDT = 33020556/ DECLARE LONG CONSTANT FAL$_RDT = 33020564/ DECLARE LONG CONSTANT FAL$_EDT = 33020572/ DECLARE LONG CONSTANT FAL$_RVN = 33020580 ! MICCODE = 1621 (OCTAL)1 DECLARE LONG CONSTANT FAL$_OWNER = 330210683 DECLARE LONG CONSTANT FAL$_PROTSYS = 330210763 DECLARE LONG CONSTANT FAL$_PROTOWN = 330210843 DECLARE LONG CONSTANT FAL$_PROTGRP = 330210923 DECLARE LONG CONSTANT FAL$_PROTWLD = 33021100ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 9 ! String characteristic flags for SYS$CVT_FILENAME ! = DECLARE LONG CONSTANT CVTFNM$M_WORD_CHARS = x'00000001'@ DECLARE LONG CONSTANT CVTFNM$M_NO_DELIMITERS = x'00000002'? DECL ARE LONG CONSTANT CVTFNM$M_FORCE_UPCASE = x'00000004'3 DECLARE LONG CONSTANT CVTFNM$S_INOUTFLAGS = 4 record INOUTFLAGS& ! characters are word-width9 ! string does/should contain no fnm delimiters. ! do upcasing (ACPQIO-to-RMS onoly)o LONG WORD_CHARS_bits ! COMMENT ADDED BY SDL - WORD_CHARS_bits contains bits WORD_CHARS through FILL1 end record INOUTFLAGS  ! + ! Control codes for SYS$CVT_FILENAME ! 6 DECLARE LONG CONSTANT CVTFNM$C_RMS_TO_ACPQIO = 16 DECLARE LONG CONSTANT CVTFNM$C_ACPQIO_TO_RMS = 26 DECLARE LONG CONSTANT CVTFNM$K_RMS_TO_ACPQIO = 16 DECLARE LONG CONSTANT CVTFNM$K_ACPQIO_TO_RMS = 2 ww ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! * ! file access block (fab) definitions ! 8 ! the fields thru ctx must not be modified due to( ! commonality between fab/rab/xab ! ; DECLARE LONG CONSTANT FAB$C_BID = 3 ! code for fab7 DECLARE LONG CONSTANT FAB$M_PPF_RAT = x'00003FC0'7 DECLARE LONG CONSTANT FAB$M_PPF_IND = x'00004000'5 DECLARE LONG CONSTANT FAB$M_PPIFI = x'00008000'3 DECLARE LONG CONSTANT FAB$M_ASY = x'00000001'3 DECLARE LONG CONSTANT FAB$M_MXV = x'00000002'3 DECLARE LONG CONSTANT FAB$M_SUP = x'00000004'3 DECLARE LONG CONSTANT FAB$M_TMP = x'00000008'3 DECLARE LONG CONSTANT FAB$M_TMD = x'00000010'3 DECLARE LONG CONSTANT FAB$M_DFW = x' 00000020'3 DECLARE LONG CONSTANT FAB$M_SQO = x'00000040'3 DECLARE LONG CONSTANT FAB$M_RWO = x'00000080'3 DECLARE LONG CONSTANT FAB$M_POS = x'00000100'3 DECLARE LONG CONSTANT FAB$M_WCK = x'00000200'3 DECLARE LONG CONSTANT FAB$M_NEF = x'00000400'3 DECLARE LONG CONSTANT FAB$M_RWC = x'00000800'3 DECLARE LONG CONSTANT FAB$M_DMO = x'00001000'3 DECLARE LONG CONSTANT FAB$M_SPL = x'00002000'3 DECLARE LONG CONSTANT FAB$M_SCF = x'00004000'3 DE CLARE LONG CONSTANT FAB$M_DLT = x'00008000'3 DECLARE LONG CONSTANT FAB$M_NFS = x'00010000'3 DECLARE LONG CONSTANT FAB$M_UFO = x'00020000'3 DECLARE LONG CONSTANT FAB$M_PPF = x'00040000'3 DECLARE LONG CONSTANT FAB$M_INP = x'00080000'3 DECLARE LONG CONSTANT FAB$M_CTG = x'00100000'3 DECLARE LONG CONSTANT FAB$M_CBT = x'00200000'7 DECLARE LONG CONSTANT FAB$M_SYNCSTS = x'00400000'3 DECLARE LONG CONSTANT FAB$M_RCK = x'00800000'3 DECLARE LONG CONST ANT FAB$M_NAM = x'01000000'3 DECLARE LONG CONSTANT FAB$M_CIF = x'02000000'3 DECLARE LONG CONSTANT FAB$M_ESC = x'08000000'3 DECLARE LONG CONSTANT FAB$M_TEF = x'10000000'3 DECLARE LONG CONSTANT FAB$M_OFP = x'20000000'3 DECLARE LONG CONSTANT FAB$M_KFO = x'40000000': DECLARE LONG CONSTANT FAB$M_EXTEND_FOP = x'80000000'3 DECLARE LONG CONSTANT FAB$M_ERL = x'00008000'3 DECLARE LONG CONSTANT FAB$M_PUT = x'00000001'3 DECLARE LONG CONSTANT FAB$M_GET = x'00000002'3 DECLARE LONG CONSTANT FAB$M_DEL = x'00000004'3 DECLARE LONG CONSTANT FAB$M_UPD = x'00000008'3 DECLARE LONG CONSTANT FAB$M_TRN = x'00000010'3 DECLARE LONG CONSTANT FAB$M_BIO = x'00000020'3 DECLARE LONG CONSTANT FAB$M_BRO = x'00000040'3 DECLARE LONG CONSTANT FAB$M_EXE = x'00000080'6 DECLARE LONG CONSTANT FAB$M_SHRPUT = x'00000001'6 DECLARE LONG CONSTANT FAB$M_SHRGET = x'00000002'6 DECLARE LONG CONSTANT FAB$M_SHRDEL = x'00000004' 6 DECLARE LONG CONSTANT FAB$M_SHRUPD = x'00000008'3 DECLARE LONG CONSTANT FAB$M_MSE = x'00000010'3 DECLARE LONG CONSTANT FAB$M_NIL = x'00000020'3 DECLARE LONG CONSTANT FAB$M_UPI = x'00000040'3 DECLARE LONG CONSTANT FAB$M_NQL = x'00000080'3 DECLARE LONG CONSTANT FAB$M_ORG = x'000000F0'9 DECLARE LONG CONSTANT FAB$C_SEQ = 0 ! sequential7 DECLARE LONG CONSTANT FAB$C_REL = 16 ! relative6 DECLARE LONG CONSTANT FAB$C_IDX = 32 ! indexed5 DECLARE LONG CONSTANT FAB$C_HSH = 48 ! hashed? DECLARE LONG CONSTANT FAB$C_SPECIAL = 64 ! special file3 DECLARE LONG CONSTANT FAB$M_FTN = x'00000001'2 DECLARE LONG CONSTANT FAB$M_CR = x'00000002'3 DECLARE LONG CONSTANT FAB$M_PRN = x'00000004'3 DECLARE LONG CONSTANT FAB$M_BLK = x'00000008'3 DECLARE LONG CONSTANT FAB$M_MSB = x'00000010'@ DECLARE LONG CONSTANT FAB$C_FIFO = 1 ! FIFO special fileM DECLARE LONG CONSTANT FAB$C_CHAR_SPECIAL = 2 !  character special fileJ DECLARE LONG CONSTANT FAB$C_BLOCK_SPECIAL = 3 ! block special fileY DECLARE LONG CONSTANT FAB$C_SYMLINK = 4 ! symbolic link special file for pre-V8.2f DECLARE LONG CONSTANT FAB$C_SYMBOLIC_LINK = 5 ! symbolic link special file for V8.2 and beyondE DECLARE LONG CONSTANT FAB$C_RFM_DFLT = 2 ! var len is defaultM DECLARE LONG CONSTANT FAB$C_UDF = 0 ! undefined (also stream binary)C DECLARE LONG CONSTANT FAB$C_FIX = 1 ! fixed len gth recordsF DECLARE LONG CONSTANT FAB$C_VAR = 2 ! variable length recordsE DECLARE LONG CONSTANT FAB$C_VFC = 3 ! variable fixed control\ DECLARE LONG CONSTANT FAB$C_STM = 4 ! RMS-11 stream (valid only for sequential org)Y DECLARE LONG CONSTANT FAB$C_STMLF = 5 ! LF stream (valid only for sequential org)Y DECLARE LONG CONSTANT FAB$C_STMCR = 6 ! CR stream (valid only for sequential org)F DECLARE LONG CONSTANT FAB$C_MAXRFM = 6 ! maximum rfm supported 7 DECLARE LONG CONSTANT FAB$M_ONLY_RU = x'00000001'2 DECLARE LONG CONSTANT FAB$M_RU = x'00000002'2 DECLARE LONG CONSTANT FAB$M_BI = x'00000004'2 DECLARE LONG CONSTANT FAB$M_AI = x'00000008'2 DECLARE LONG CONSTANT FAB$M_AT = x'00000010'8 DECLARE LONG CONSTANT FAB$M_NEVER_RU = x'00000020'< DECLARE LONG CONSTANT FAB$M_JOURNAL_FILE = x'00000040'9 DECLARE LONG CONSTANT FAB$M_SSIO_RQST = x'00000001'< DECLARE LONG CONSTANT FAB$M_SSIO_GRANTED = x'0000000 2'8 DECLARE LONG CONSTANT FAB$M_SSIO_FOC = x'00000004'6 DECLARE LONG CONSTANT FAB$M_RCF_RU = x'00000001'6 DECLARE LONG CONSTANT FAB$M_RCF_AI = x'00000002'6 DECLARE LONG CONSTANT FAB$M_RCF_BI = x'00000004'- DECLARE LONG CONSTANT FAB$S_FABDEF = 80 record FABDEF7 BYTE FAB$B_BID ! block id8 BYTE FAB$B_BLN ! block len group FAB$R_IFI_OVERLAY variant caseB WORD FAB$W_IFI ! internal file index case& group FAB$R_IFI_BITS& ! move to bit 6> ! rat value for process-permanent filesB ! indirect access to process-permanent file$ ! (i.e., restricted operations)8 ! indicates that this is PPF fileo WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through PPIFI*  end group FAB$R_IFI_BITS end variant$ end group FAB$R_IFI_OVERLAY group FAB$R_FOP_OVERLAY variant case; LONG FAB$L_FOP ! file options case& group FAB$R_FOP_BITS0 ! asynchronous operations0 ! maximize version number0 ! supersede existing file. ! create temporary file; ! create temp file marked for delete5 ! deferred write (rel and idx)/ ! sequential access only* ! rewind mt on open2 ! use next magtape position' ! write checking8 ! inhibit end of file positioning+ ! rewind mt on close? ! dismount mt on close (not implemented), ! spool fil e on close5 ! submit command file on close* ! delete sub-option6 ! non-file structured operation; ! user file open - no rms operations= ! process permanent file (pio segment): ! process-permanent file is 'input'- ! contiguous extension, ! contiguous best tryS ! Synchronous status notification f or asynchronous routines.& ! read checkingL ! use name block dvi, did, and/or fid fields for open/ ! create if non-existent4 ! reserved (was UFM bitfield)D ! 'escape' to non-standard function ($modify)V ! truncate at eof on close (write-accessed seq. disk file only)B ! output file parse (only name type sticky)I ! known file open (image activator only release 1)# ! extend FOPk LONG ASY_bits ! COMMENT ADDED BY SDL - ASY_bits contains bits ASY through EXTEND_FOP* end group FAB$R_FOP_BITS case. group FAB$R_FOP_BITS_OVERLAY' ! move to bit 161 ! Erase Regardless of Lock0 ! Fill for remaining bitst LONG FILL_10_bits ! COMMENT ADD  ED BY SDL - FILL_10_bits contains bits FILL_10 through FILL_112 end group FAB$R_FOP_BITS_OVERLAY end variant$ end group FAB$R_FOP_OVERLAY5 LONG FAB$L_STS ! status; LONG FAB$L_STV ! status valueB LONG FAB$L_ALQ ! allocation quantityJ WORD FAB$W_DEQ ! default allocation quantity group FAB$R_FAC_OVERLAY variant  case: BYTE FAB$B_FAC ! file access case& group FAB$R_FAC_BITS# ! put access# ! get access& ! delete access& ! update access( ! truncate access) ! block i/o access4 ! block and record i/o accessL ! execute access (caller must be exec or kernel mod e, ! ufo must also be set)d BYTE PUT_bits ! COMMENT ADDED BY SDL - PUT_bits contains bits PUT through EXE* end group FAB$R_FAC_BITS end variant$ end group FAB$R_FAC_OVERLAY group FAB$R_SHR_OVERLAY variant case; BYTE FAB$B_SHR ! file sharing case& group FAB$R_SHR_BITS# ! put access#  ! get access& ! delete access& ! update access6 ! multi-stream connects enabled# ! no sharingD ! user provided interlocking (allows multiple ! writers to seq. files)6 ! no query locking (file level)m BYTE SHRPUT_bits ! COMMENT ADDED BY SDL - SHRPUT_bits contains bits SHRPUT through NQL* end group FAB$R_SHR_BITS  end variant$ end group FAB$R_SHR_OVERLAY; LONG FAB$L_CTX ! user context ! -----*****D BYTE FAB$B_RTV ! retrieval window size group FAB$R_ORG_OVERLAY variant case@ BYTE FAB$B_ORG ! file organization case& group FAB$R_ORG_BITSm BYTE FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains  bits FILL_5 through ORG* end group FAB$R_ORG_BITS end variant$ end group FAB$R_ORG_OVERLAY group FAB$R_RAT_OVERLAY variant case< BYTE FAB$B_RAT ! record format case& group FAB$R_RAT_BITS- ! fortran carriage-ctl2 ! lf-record-cr carriage ctl0 ! print-file carriage ctl=  ! records don't cross block boundaries1 ! MSB formatted byte counth BYTE FTN_bits ! COMMENT ADDED BY SDL - FTN_bits contains bits FTN through FILL_0_* end group FAB$R_RAT_BITS caseC BYTE FAB$B_SPECIAL_TYPE ! type of special file end variant$ end group FAB$R_RAT_OVERLAY< BYTE FAB$B_RFM ! record format$ group FAB$R_JOURNAL_OVERLAY  variant caseV BYTE FAB$B_JOURNAL ! journaling options (from FH2$B_JOURNAL) caseV group FAB$R_JOURNAL_BITS ! note: only one of RU, ONLY_RU, NEVER_RU ! may be set at a timeA ! file is accessible only in recovery unit5 ! enable recovery unit journal4 ! enable before image journal3 ! enable after image journal3 ! enable audit trail journalB ! file is never accessible in recovery unit/ ! this is a journal filet BYTE ONLY_RU_bits ! COMMENT ADDED BY SDL - ONLY_RU_bits contains bits ONLY_RU through FILL_1_. end group FAB$R_JOURNAL_BITS end variant( end group FAB$R_JOURNAL_OVERLAYM BYTE FAB$B_RU_FACILITY ! recoverable facility id number# group FAB$R_FOPEX T_OVERLAY variant case< WORD FAB$W_FOPEXT ! FOP extension case) group FAB$R_FOPEXT_BITS. ! SSIO access requested, ! SSIO access granted, ! SSIO flush-on-close< ! MBZ - reserved to HP for future useu WORD SSIO_RQST_bits ! COMMENT ADDED BY SDL - SSIO_RQST_bits contains bits SSIO_RQST through & ! RESERVED_BITS_MBZ- end group FAB$R_FOPEXT_BITS end variant' end group FAB$R_FOPEXT_OVERLAY: LONG FAB$L_XAB ! xab address group FAB$R_NAM_OVERLAY variant case@ LONG FAB$L_NAM ! nam block address caseA LONG FAB$L_NAML ! naml block address end variant$ end group FAB$R_NAM_OVERLAYG L ONG FAB$L_FNA ! file name string addressL LONG FAB$L_DNA ! default file name string addrD BYTE FAB$B_FNS ! file name string sizeG BYTE FAB$B_DNS ! default name string sizeB WORD FAB$W_MRS ! maximum record sizeD LONG FAB$L_MRN ! maximum record numberA WORD FAB$W_BLS ! blocksize for tape: BYTE FAB$B_BKS ! bucket size@ BYTE FAB$B_FSZ ! fixed header sizeE LONG FAB$L_DEV ! device characteristicsN LONG FAB$L_SDC ! spooling device characteristicsB WORD FAB$W_GBC ! Global buffer count$ group FAB$R_ACMODES_OVERLAY variant caseA BYTE FAB$B_ACMODES ! agent access modes case*  group FAB$R_ACMODES_BITS, ! ACMODE for log nams+ ! ACMODE for channelI ! ACMODE to use for determining file accessibility; ! ACMODE for user structure probing;+ ! maximized with actual mode of caller| BYTE LNM_MODE_bits ! COMMENT ADDED BY SDL - LNM_MODE_bits contains bits LNM_MODE through CALLERS_MODE. end group FAB$R_ACMODES_BITS en  d variant( end group FAB$R_ACMODES_OVERLAYE group FAB$R_RCF_OVERLAY ! recovery control flags variant caseM BYTE FAB$B_RCF ! (only for use by RMS Recovery) case& group FAB$R_RCF_BITS/ ! recovery unit recovery- ! after image recovery. ! before image recoveryq BYTE RCF_RU_bits ! COMMEN  T ADDED BY SDL - RCF_RU_bits contains bits RCF_RU through FILL_2_* end group FAB$R_RCF_BITS end variant$ end group FAB$R_RCF_OVERLAY\ WORD FAB$W_GBC_INITIAL ! Initial Global Buffer Count declared for fileR WORD FAB$W_RESERVED_MBZ ! MBZ - reserved to HP for future use end record FABDEF A ! basealign on aggregate FABDEF operates after aggregate end< DECLARE LONG CONSTANT FAB$K_BLN = 80 ! length of fab< DECLARE LONG CONSTANT FAB$C_BLN = 80 ! length of fab ww & ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 4 ! record access block (rab) definitions ! - ! there is one rab per connected stream: ! it is used for all communications between the user3 ! and rms concerning operations  on the stream ! @ ! the fields thru ctx cannot be changed due to commonality ! with the fab ! ; DECLARE LONG CONSTANT RAB$C_BID = 1 ! code for rab7 DECLARE LONG CONSTANT RAB$M_PPF_RAT = x'00003FC0'7 DECLARE LONG CONSTANT RAB$M_PPF_IND = x'00004000'5 DECLARE LONG CONSTANT RAB$M_PPISI = x'00008000'3 DECLARE LONG CONSTANT RAB$M_ASY = x'00000001'3 DECLARE LONG CONSTANT RAB$M_TPT = x'00000002'3 DECLARE LONG CONSTANT RAB$M_REA = x'00  000004'3 DECLARE LONG CONSTANT RAB$M_RRL = x'00000008'3 DECLARE LONG CONSTANT RAB$M_UIF = x'00000010'3 DECLARE LONG CONSTANT RAB$M_MAS = x'00000020'3 DECLARE LONG CONSTANT RAB$M_FDL = x'00000040'3 DECLARE LONG CONSTANT RAB$M_REV = x'00000080'3 DECLARE LONG CONSTANT RAB$M_EOF = x'00000100'3 DECLARE LONG CONSTANT RAB$M_RAH = x'00000200'3 DECLARE LONG CONSTANT RAB$M_WBH = x'00000400'3 DECLARE LONG CONSTANT RAB$M_BIO = x'00000800'3 DECL  ARE LONG CONSTANT RAB$M_CDK = x'00001000'3 DECLARE LONG CONSTANT RAB$M_LOA = x'00002000'3 DECLARE LONG CONSTANT RAB$M_LIM = x'00004000'7 DECLARE LONG CONSTANT RAB$M_SYNCSTS = x'00008000'3 DECLARE LONG CONSTANT RAB$M_LOC = x'00010000'3 DECLARE LONG CONSTANT RAB$M_WAT = x'00020000'3 DECLARE LONG CONSTANT RAB$M_ULK = x'00040000'3 DECLARE LONG CONSTANT RAB$M_RLK = x'00080000'3 DECLARE LONG CONSTANT RAB$M_NLK = x'00100000'3 DECLARE LONG CONSTAN  T RAB$M_KGE = x'00200000'3 DECLARE LONG CONSTANT RAB$M_KGT = x'00400000'3 DECLARE LONG CONSTANT RAB$M_NXR = x'00800000'3 DECLARE LONG CONSTANT RAB$M_RNE = x'01000000'3 DECLARE LONG CONSTANT RAB$M_TMO = x'02000000'3 DECLARE LONG CONSTANT RAB$M_CVT = x'04000000'3 DECLARE LONG CONSTANT RAB$M_RNF = x'08000000'3 DECLARE LONG CONSTANT RAB$M_ETO = x'10000000'3 DECLARE LONG CONSTANT RAB$M_PTA = x'20000000'3 DECLARE LONG CONSTANT RAB$M_PMT = x'4000  0000'3 DECLARE LONG CONSTANT RAB$M_CCO = x'80000000'5 DECLARE LONG CONSTANT RAB$M_EQNXT = x'00200000'3 DECLARE LONG CONSTANT RAB$M_NXT = x'00400000'3 DECLARE LONG CONSTANT RAB$M_NQL = x'00000001'8 DECLARE LONG CONSTANT RAB$M_NODLCKWT = x'00000002'9 DECLARE LONG CONSTANT RAB$M_NODLCKBLK = x'00000004'@ DECLARE LONG CONSTANT RAB$C_SEQ = 0 ! sequential access; DECLARE LONG CONSTANT RAB$C_KEY = 1 ! keyed access9 DECLARE LONG CONSTANT RAB$C_  RFA = 2 ! rfa access\ DECLARE LONG CONSTANT RAB$C_STM = 3 ! stream access (valid only for sequential org)] DECLARE LONG CONSTANT RAB$C_MAXRAC = 2 ! Maximum RAC value currently supported by RMS- DECLARE LONG CONSTANT RAB$S_RABDEF = 68 record RABDEF7 BYTE RAB$B_BID ! block id; BYTE RAB$B_BLN ! block length group RAB$R_ISI_OVERLAY variant caseD WORD  RAB$W_ISI ! internal stream index ! (ifi in fab) case& group RAB$R_ISI_BITS& ! move to bit 6> ! rat value for process-permanent filesB ! indirect access to process-permanent file$ ! (i.e., restricted operations)H ! indicates that this is process-permanent streamo WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits  FILL_1 through PPISI* end group RAB$R_ISI_BITS end variant$ end group RAB$R_ISI_OVERLAY group RAB$R_ROP_OVERLAY variant case= LONG RAB$L_ROP ! record options case' group RAB$R_ROP_BITS00 ! asynchronous operationsC ! truncate put - allow sequential put not at2 ! eof, thus truncating file (seq. org onl y) ! 4 ! these next two should be in the byte for bits9 ! input to $find or $get, but there is no room there ! G ! lock record for read only, allow other readers7 ! read record regardless of lock ! + ! update if existent) ! mass-insert mode- ! fast record deletionK ! reverse-search - can only be set with NXT or EQNXT ! '  ! connect to eof# ! read ahead% ! write behind- ! connect for bio only9 ! check for duplicate keys on $GET3 ! use bucket fill percentageT ! compare for key limit reached on $get/$find seq. (idx only)S ! Synchronous status notification for asynchronous routines. ! & ! the following bits are input to2 ! $find or $get, (see above also REA and RRL) ! (separate byte) ! ( ! use locate mode5 ! wait if record not available) ! manual unlocking= ! allow readers for this locked record+ ! do not lock record# ! key > or =) ! key greater than0 ! get non-existent record ! 7 ! the following bits are terminal qu ! alifiers only ! (separate byte) ! % ! read no echo, ! use time-out period. ! convert to upper case' ! read no filter4 ! extended terminal operation) ! purge type ahead* ! use prompt buffer3 ! cancel control o on outputd LONG ASY_bits ! COMMENT ADDED BY SDL - ASY_bits contains bits" ASY through CCO+ end group RAB$R_ROP_BITS0 case' group RAB$R_ROP_BITS1- ! Synonyms for KGE and ! KGTq LONG FILL_6_bits ! COMMENT ADDED BY SDL - FILL_6_bits contains bits FILL_6 through FILL_3_+ end group RAB$R_ROP_BITS1 ! the following bits may be# ! input to various rab-related ! operations !  case( # group RAB$R_ROP_FIELDS) BYTE RABDEF$$_FILL_3> BYTE RAB$B_ROP1 ! various options^ BYTE RAB$B_ROP2 ! get/find options (use of this field discouraged4 ! due to REA and RRL being in a different byte)D BYTE RAB$B_ROP3 ! terminal read options ! , end group RAB$R_ROP_FIELDS end variant$ end group RAB$R_ROP_OVERLAY5 LONG RAB$L_STS $ ! status group RAB$R_STV_OVERLAY variant case; LONG RAB$L_STV ! status value case( group RAB$R_STV_FIELDS> WORD RAB$W_STV0 ! low word of stv? WORD RAB$W_STV2 ! high word of stv, end group RAB$R_STV_FIELDS end variant$ end group RAB$R_STV_OVERLAY group RAB$R_RFA_OVERLAY % variant caseG WORD RAB$W_RFA ( 1 to 3 ) ! record's file address case( group RAB$R_RFA_FIELDS$ LONG RAB$L_RFA0$ WORD RAB$W_RFA4, end group RAB$R_RFA_FIELDS end variant$ end group RAB$R_RFA_OVERLAYY WORD RABDEF$$_FILL_4 ! (reserved - rms release 1 optimizes stores7 ! to the rfa field to be a move quad, overwr & iting ! this reserved word); LONG RAB$L_CTX ! user context ! -----*****/ group RAB$R_ROP_2_OVERLAY !  variant case^ WORD RAB$W_ROP_2 ! extension to record options in traditional RAB  case) group RAB$R_ROP_2_BITS08 ! no query locking (record level)) ! no deadlock wait- ! no de ' adlock blocking8 ! reserved for future developmentg WORD NQL_bits ! COMMENT ADDED BY SDL - NQL_bits contains bits NQL through FILL_5- end group RAB$R_ROP_2_BITS0 end variant& end group RAB$R_ROP_2_OVERLAY< BYTE RAB$B_RAC ! record access> BYTE RAB$B_TMO ! time-out period? WORD RAB$W_USZ ! user buffer sizeA WORD RAB$ ( W_RSZ ! record buffer sizeB LONG RAB$L_UBF ! user buffer addressD LONG RAB$L_RBF ! record buffer addressH LONG RAB$L_RHB ! record header buffer addr group RAB$R_KBF_OVERLAY variant caseA LONG RAB$L_KBF ! key buffer address caseA LONG RAB$L_PBF ! prompt buffer addr ) end variant$ end group RAB$R_KBF_OVERLAY group RAB$R_KSZ_OVERLAY variant case> BYTE RAB$B_KSZ ! key buffer size caseA BYTE RAB$B_PSZ ! prompt buffer size end variant$ end group RAB$R_KSZ_OVERLAY? BYTE RAB$B_KRF ! key of referenceA BYTE RAB$B_MBF ! multi-buffer count@ BYTE RAB$B_ * MBC ! multi-block count group RAB$R_BKT_OVERLAY variant caseL LONG RAB$L_BKT ! bucket hash code, vbn, or rrn case` LONG RAB$L_DCT ! duplicates count on key accessed on alternate key end variant$ end group RAB$R_BKT_OVERLAYF LONG RAB$L_FAB ! related fab for connect: LONG RAB$L_XAB ! X + AB address end record RABDEF $ ! end of traditional 32-bit rabO DECLARE LONG CONSTANT RAB$K_BLN = 68 ! length of traditional 32-bit rabO DECLARE LONG CONSTANT RAB$C_BLN = 68 ! length of traditional 32-bit rab ! F ! 64-bit variant of the record access block (rab) definitions ! A ! The 64-bit rab consists of the traditional 32-bit rab A ! followed by additional cells, added mainly to provide D ! support for a 64-bit addr , ess for user buffers (UBF, RBF,  ! KBF, RHB). !  ! < DECLARE LONG CONSTANT RAB64$C_BID = 1 ! code for rab9 DECLARE LONG CONSTANT RAB64$M_PPF_RAT = x'00003FC0'9 DECLARE LONG CONSTANT RAB64$M_PPF_IND = x'00004000'7 DECLARE LONG CONSTANT RAB64$M_PPISI = x'00008000'5 DECLARE LONG CONSTANT RAB64$M_ASY = x'00000001'5 DECLARE LONG CONSTANT RAB64$M_TPT = x'00000002'5 DECLARE LONG CONSTANT RAB64$M_REA = x'00000004'5 DECLARE LONG CONST - ANT RAB64$M_RRL = x'00000008'5 DECLARE LONG CONSTANT RAB64$M_UIF = x'00000010'5 DECLARE LONG CONSTANT RAB64$M_MAS = x'00000020'5 DECLARE LONG CONSTANT RAB64$M_FDL = x'00000040'5 DECLARE LONG CONSTANT RAB64$M_REV = x'00000080'5 DECLARE LONG CONSTANT RAB64$M_EOF = x'00000100'5 DECLARE LONG CONSTANT RAB64$M_RAH = x'00000200'5 DECLARE LONG CONSTANT RAB64$M_WBH = x'00000400'5 DECLARE LONG CONSTANT RAB64$M_BIO = x'00000800'5 DECLARE LONG CONSTAN . T RAB64$M_CDK = x'00001000'5 DECLARE LONG CONSTANT RAB64$M_LOA = x'00002000'5 DECLARE LONG CONSTANT RAB64$M_LIM = x'00004000'9 DECLARE LONG CONSTANT RAB64$M_SYNCSTS = x'00008000'5 DECLARE LONG CONSTANT RAB64$M_LOC = x'00010000'5 DECLARE LONG CONSTANT RAB64$M_WAT = x'00020000'5 DECLARE LONG CONSTANT RAB64$M_ULK = x'00040000'5 DECLARE LONG CONSTANT RAB64$M_RLK = x'00080000'5 DECLARE LONG CONSTANT RAB64$M_NLK = x'00100000'5 DECLARE LONG CONST / ANT RAB64$M_KGE = x'00200000'5 DECLARE LONG CONSTANT RAB64$M_KGT = x'00400000'5 DECLARE LONG CONSTANT RAB64$M_NXR = x'00800000'5 DECLARE LONG CONSTANT RAB64$M_RNE = x'01000000'5 DECLARE LONG CONSTANT RAB64$M_TMO = x'02000000'5 DECLARE LONG CONSTANT RAB64$M_CVT = x'04000000'5 DECLARE LONG CONSTANT RAB64$M_RNF = x'08000000'5 DECLARE LONG CONSTANT RAB64$M_ETO = x'10000000'5 DECLARE LONG CONSTANT RAB64$M_PTA = x'20000000'5 DECLARE LONG CONSTAN 0 T RAB64$M_PMT = x'40000000'5 DECLARE LONG CONSTANT RAB64$M_CCO = x'80000000'7 DECLARE LONG CONSTANT RAB64$M_EQNXT = x'00200000'5 DECLARE LONG CONSTANT RAB64$M_NXT = x'00400000'5 DECLARE LONG CONSTANT RAB64$M_NQL = x'00000001': DECLARE LONG CONSTANT RAB64$M_NODLCKWT = x'00000002'; DECLARE LONG CONSTANT RAB64$M_NODLCKBLK = x'00000004'A DECLARE LONG CONSTANT RAB64$C_SEQ = 0 ! sequential access< DECLARE LONG CONSTANT RAB64$C_KEY = 1 ! keyed access1 : DECLARE LONG CONSTANT RAB64$C_RFA = 2 ! rfa access] DECLARE LONG CONSTANT RAB64$C_STM = 3 ! stream access (valid only for sequential org)_ DECLARE LONG CONSTANT RAB64$C_MAXRAC = 2 ! Maximum RAC value currently supported by RMS< DECLARE LONG CONSTANT RAB64$M_RESERVED29 = x'20000000'< DECLARE LONG CONSTANT RAB64$M_RESERVED30 = x'40000000'< DECLARE LONG CONSTANT RAB64$M_RESERVED31 = x'80000000'8 DECLARE LONG CONSTANT RAB$M_RESERVED29 = 5368709129 2 DECLARE LONG CONSTANT RAB$M_RESERVED30 = 1073741824; DECLARE LONG CONSTANT RAB$M_RESERVED31 = X"80000000"L2 DECLARE LONG CONSTANT RAB64$S_RAB64DEF = 144 record RAB64DEF7 BYTE RAB64$B_BID ! block id; BYTE RAB64$B_BLN ! block length" group RAB64$R_ISI_OVERLAY variant caseD WORD RAB64$W_ISI ! internal stream index ! (ifi in fab) case( 3 group RAB64$R_ISI_BITS& ! move to bit 6> ! rat value for process-permanent filesB ! indirect access to process-permanent file$ ! (i.e., restricted operations)H ! indicates that this is process-permanent streamo WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through PPISI, end group RAB64$R_ISI_BITS end vari4 ant& end group RAB64$R_ISI_OVERLAY" group RAB64$R_ROP_OVERLAY variant case= LONG RAB64$L_ROP ! record options case) group RAB64$R_ROP_BITS00 ! asynchronous operationsC ! truncate put - allow sequential put not at2 ! eof, thus truncating file (seq. org only) ! 4 ! these next two should be in the byte for bits9 ! input to 5 $find or $get, but there is no room there ! G ! lock record for read only, allow other readers7 ! read record regardless of lock ! + ! update if existent) ! mass-insert mode- ! fast record deletionK ! reverse-search - can only be set with NXT or EQNXT ! ' ! connect to eof# ! read ahead% 6 ! write behind- ! connect for bio only9 ! check for duplicate keys on $GET3 ! use bucket fill percentageT ! compare for key limit reached on $get/$find seq. (idx only)S ! Synchronous status notification for asynchronous routines. ! & ! the following bits are input to2 ! $find or $get, (see above also REA and RRL) ! (separate byte) ! ( 7 ! use locate mode5 ! wait if record not available) ! manual unlocking= ! allow readers for this locked record+ ! do not lock record# ! key > or =) ! key greater than0 ! get non-existent record ! 7 ! the following bits are terminal qualifiers only ! (separate byte) ! % ! read no 8 echo, ! use time-out period. ! convert to upper case' ! read no filter4 ! extended terminal operation) ! purge type ahead* ! use prompt buffer3 ! cancel control o on outputd LONG ASY_bits ! COMMENT ADDED BY SDL - ASY_bits contains bits ASY through CCO- end group RAB64$R_ROP_BITS0 c9 ase) group RAB64$R_ROP_BITS1- ! Synonyms for KGE and ! KGTq LONG FILL_6_bits ! COMMENT ADDED BY SDL - FILL_6_bits contains bits FILL_6 through FILL_4_- end group RAB64$R_ROP_BITS1 ! the following bits may be# ! input to various rab-related ! operations !  case* group RAB64$R_ROP_FIELDS+ BYTE RAB64DEF$$_FILL_3> : BYTE RAB64$B_ROP1 ! various options^ BYTE RAB64$B_ROP2 ! get/find options (use of this field discouraged4 ! due to REA and RRL being in a different byte)D BYTE RAB64$B_ROP3 ! terminal read options ! . end group RAB64$R_ROP_FIELDS end variant& end group RAB64$R_ROP_OVERLAY5 LONG RAB64$L_STS ! status" group RAB64$R_STV_OVERLAY ; variant case; LONG RAB64$L_STV ! status value case* group RAB64$R_STV_FIELDS> WORD RAB64$W_STV0 ! low word of stv? WORD RAB64$W_STV2 ! high word of stv. end group RAB64$R_STV_FIELDS end variant& end group RAB64$R_STV_OVERLAY" group RAB64$R_RFA_OVERLAY variant caseG < WORD RAB64$W_RFA ( 1 to 3 ) ! record's file address case* group RAB64$R_RFA_FIELDS& LONG RAB64$L_RFA0& WORD RAB64$W_RFA4. end group RAB64$R_RFA_FIELDS end variant& end group RAB64$R_RFA_OVERLAYY WORD RAB64DEF$$_FILL_4 ! (reserved - rms release 1 optimizes stores7 ! to the rfa field to be a move quad, overwriting ! this reserved word); L = ONG RAB64$L_CTX ! user context ! -----*****/ group RAB64$R_ROP_2_OVERLAY !  variant case^ WORD RAB64$W_ROP_2 ! extension to record options in traditional RAB  case+ group RAB64$R_ROP_2_BITS08 ! no query locking (record level)) ! no deadlock wait- ! no deadlock blocking8 ! res > erved for future developmentg WORD NQL_bits ! COMMENT ADDED BY SDL - NQL_bits contains bits NQL through FILL_5/ end group RAB64$R_ROP_2_BITS0 end variant( end group RAB64$R_ROP_2_OVERLAY< BYTE RAB64$B_RAC ! record access> BYTE RAB64$B_TMO ! time-out period? WORD RAB64$W_USZ ! user buffer sizeA WORD RAB64$W_RSZ ! record buffer ? sizeB LONG RAB64$L_UBF ! user buffer addressD LONG RAB64$L_RBF ! record buffer addressH LONG RAB64$L_RHB ! record header buffer addr" group RAB64$R_KBF_OVERLAY variant caseA LONG RAB64$L_KBF ! key buffer address caseA LONG RAB64$L_PBF ! prompt buffer addr end variant& end group RAB @ 64$R_KBF_OVERLAY" group RAB64$R_KSZ_OVERLAY variant case> BYTE RAB64$B_KSZ ! key buffer size caseA BYTE RAB64$B_PSZ ! prompt buffer size end variant& end group RAB64$R_KSZ_OVERLAY? BYTE RAB64$B_KRF ! key of referenceA BYTE RAB64$B_MBF ! multi-buffer count@ BYTE RAB64$B_MBC ! multi-b A lock count" group RAB64$R_BKT_OVERLAY variant caseL LONG RAB64$L_BKT ! bucket hash code, vbn, or rrn case` LONG RAB64$L_DCT ! duplicates count on key accessed on alternate key end variant& end group RAB64$R_BKT_OVERLAYF LONG RAB64$L_FAB ! related fab for connect: LONG RAB64$L_XAB ! XAB address( group RAB B 64$R_VERSION64_OVERLAY variant caseK LONG RAB64$L_VERSION ! 64-bit rab extension version caseK LONG RAB$L_VERSION ! 64-bit rab extension version case0 group RAB64$R_VERSION_FIELDS_1B WORD RAB64$W_VERMINOR ! minor version identB WORD RAB64$W_VERMAJOR ! major version ident4 end group RAB64$R_VERSION_FIELDS_1 C  case0 group RAB64$R_VERSION_FIELDS_2B WORD RAB$W_VERMINOR ! minor version identB WORD RAB$W_VERMAJOR ! major version ident4 end group RAB64$R_VERSION_FIELDS_2 end variant, end group RAB64$R_VERSION64_OVERLAY$ group RAB64$R_UBF64_OVERLAY variant caseL BASIC$QUADWORD RAB64$PQ_UBF ! 64-bit user buffer address D caseJ BASIC$QUADWORD RAB$PQ_UBF ! 64-bit user buffer address end variant( end group RAB64$R_UBF64_OVERLAY$ group RAB64$R_USZ64_OVERLAY variant caseH BASIC$QUADWORD RAB64$Q_USZ ! 64-bit user buffer size caseF BASIC$QUADWORD RAB$Q_USZ ! 64-bit user buffer size end variant( end group RAB64$R_USZ64_OVERLAY$ group RAB64$R_RBF64_OVEE RLAY variant caseN BASIC$QUADWORD RAB64$PQ_RBF ! 64-bit record buffer address caseL BASIC$QUADWORD RAB$PQ_RBF ! 64-bit record buffer address end variant( end group RAB64$R_RBF64_OVERLAY$ group RAB64$R_RSZ64_OVERLAY variant caseJ BASIC$QUADWORD RAB64$Q_RSZ ! 64-bit record buffer size caseH BASIC$QUADF WORD RAB$Q_RSZ ! 64-bit record buffer size end variant( end group RAB64$R_RSZ64_OVERLAY$ group RAB64$R_KBF64_OVERLAY variant caseK BASIC$QUADWORD RAB64$PQ_KBF ! 64-bit key buffer address caseI BASIC$QUADWORD RAB$PQ_KBF ! 64-bit key buffer address end variant( end group RAB64$R_KBF64_OVERLAY$ group RAB64$R_RHB64_OVERLAY variant G caseR BASIC$QUADWORD RAB64$PQ_RHB ! 64-bit record header buffer addr caseP BASIC$QUADWORD RAB$PQ_RHB ! 64-bit record header buffer addr end variant( end group RAB64$R_RHB64_OVERLAY$ group RAB64$R_CTX64_OVERLAY variant caseD BASIC$QUADWORD RAB64$Q_CTX ! 64-bit user context caseB BASIC$QUADWORD RAB$Q_CTX ! 64-bit user c H ontext end variant( end group RAB64$R_CTX64_OVERLAY+ group RAB64$R_ROPEXT_OVERLAY_RAB64 variant caseF LONG RAB64$L_ROPEXT ! extended record options caseF LONG RAB$L_ROPEXT ! extended record options case. group RAB64$R_ROPEXT_BITS0_13 ! MBZ - reserved for Digital3 ! MBZ - reserved for Digita I l3 ! MBZ - reserved for Digitalz LONG FILL_7_1_bits ! COMMENT ADDED BY SDL - FILL_7_1_bits contains bits FILL_7_1 through RESERVED312 end group RAB64$R_ROPEXT_BITS0_1 case. group RAB64$R_ROPEXT_BITS0_23 ! MBZ - reserved for Digital3 ! MBZ - reserved for Digital3 ! MBZ - reserved for Digitalz LONG FILL_7_2_bits J ! COMMENT ADDED BY SDL - FILL_7_2_bits contains bits FILL_7_2 through RESERVED312 end group RAB64$R_ROPEXT_BITS0_2 end variant/ end group RAB64$R_ROPEXT_OVERLAY_RAB64" group RAB64$R_MBF_OVERLAY variant caseJ LONG RAB64$L_MBF ! longword multi-buffer count caseJ LONG RAB$L_MBF ! longword multi-buffer count end variant& end g K roup RAB64$R_MBF_OVERLAY" group RAB64$R_MBC_OVERLAY variant caseI LONG RAB64$L_MBC ! longword multi-block count caseI LONG RAB$L_MBC ! longword multi-block count end variant& end group RAB64$R_MBC_OVERLAY) group RAB64$R_RESERVED_1_OVERLAY variant caseI LONG RAB64$L_RESERVED_1 ! MBZ - reserved for Digita L l caseI LONG RAB$L_RESERVED_1 ! MBZ - reserved for Digital end variant- end group RAB64$R_RESERVED_1_OVERLAY end record RAB64DEF ! ! end of 64-bit rab variant P DECLARE LONG CONSTANT RAB64$K_BLN64 = 144 ! length of 64-bit rab variantP DECLARE LONG CONSTANT RAB64$C_BLN64 = 144 ! length of 64-bit rab variantN DECLARE LONG CONSTANT RAB$K_BLN64 = 144 ! length of 64-bit rab variantN DECLARE LONG CONSTANT RAB$C_BLN64 = 144 ! length of 64-bit rab variantP DECLARE LONG CONSTANT RAB$K_MAXBLN = 144 ! current maximum length of rabP DECLARE LONG CONSTANT RAB$C_MAXBLN = 144 ! current maximum length of rab wwN z4 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED O ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINP G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > Q %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! name block field definitions ! 5 ! the nam block is used to communicate optional$ ! filename-related information ! A DECLARE LONG CONSTANT NAM$C_BID = 2 ! code R for nam block_ DECLARE LONG CONSTANT NAM$C_MAXRSS = 255 ! maximum resultant name string size (network)` DECLARE LONG CONSTANT NAM$C_MAXRSSLCL = 255 ! maximum resultant name string size (local)3 DECLARE LONG CONSTANT NAM$M_PWD = x'00000001'6 DECLARE LONG CONSTANT NAM$M_FILL_1 = x'00000002'6 DECLARE LONG CONSTANT NAM$M_FILL_2 = x'00000004'6 DECLARE LONG CONSTANT NAM$M_SYNCHK = x'00000008'9 DECLARE LONG CONSTANT NAM$M_NOCONCEAL = x'00000010'7 DECLAR S E LONG CONSTANT NAM$M_SLPARSE = x'00000020'8 DECLARE LONG CONSTANT NAM$M_SRCHXABS = x'00000040'? DECLARE LONG CONSTANT NAM$M_NO_SHORT_UPCASE = x'00000080'\ DECLARE LONG CONSTANT NAM$C_UFS = 0 ! Unknown file system for remote file access or/ ! not applicable for local file access orH DECLARE LONG CONSTANT NAM$C_NO_RFS = 0 ! task-to-task operation6 DECLARE LONG CONSTANT NAM$C_RMS11 = 1 ! RMS-116 DECLARE LONG CONSTANT NAM$C_RMS20 = 2 ! RMS-206 T DECLARE LONG CONSTANT NAM$C_RMS32 = 3 ! RMS-326 DECLARE LONG CONSTANT NAM$C_FCS11 = 4 ! FCS-11B DECLARE LONG CONSTANT NAM$C_RT11FS = 5 ! RT-11 file systemF DECLARE LONG CONSTANT NAM$C_TOPS20FS = 7 ! TOPS-20 file systemF DECLARE LONG CONSTANT NAM$C_TOPS10FS = 8 ! TOPS-10 file systemO DECLARE LONG CONSTANT NAM$C_RMS32S = 10 ! RMS-32 subset (e.g., VAXELAN)A DECLARE LONG CONSTANT NAM$C_CPMFS = 11 ! CP/M file systemF DECLARE LONG CONSTANT NAM$C_MS_D U OSFS = 12 ! MS/DOS file systemL DECLARE LONG CONSTANT NAM$C_ULTRIX32_FS = 13 ! Ultrix-32 file systemL DECLARE LONG CONSTANT NAM$C_ULTRIX11_FS = 14 ! Ultrix-11 file systemI DECLARE LONG CONSTANT DAP$K_SNADTF_FS = 15 ! SNADTF compatable FS ! +++++++++++++++++++++++B DECLARE LONG CONSTANT NAM$C_DVI = 16 ! length of dvi field ! +++++*****3 DECLARE LONG CONSTANT NAM$M_IFI = x'00010000'7 DECLARE LONG CONSTANT NAM$M_SRCHNMF = x'40000000'5 DECL V ARE LONG CONSTANT NAM$M_SVCTX = x'80000000'M DECLARE LONG CONSTANT NAM$K_BLN_V2 = 56 ! Version 2 name block lengthM DECLARE LONG CONSTANT NAM$C_BLN_V2 = 56 ! Version 2 name block length7 DECLARE LONG CONSTANT NAM$M_EXP_VER = x'00000001'8 DECLARE LONG CONSTANT NAM$M_EXP_TYPE = x'00000002'8 DECLARE LONG CONSTANT NAM$M_EXP_NAME = x'00000004'8 DECLARE LONG CONSTANT NAM$M_WILD_VER = x'00000008'9 DECLARE LONG CONSTANT NAM$M_WILD_TYPE = x'00000010'9 DE W CLARE LONG CONSTANT NAM$M_WILD_NAME = x'00000020'7 DECLARE LONG CONSTANT NAM$M_EXP_DIR = x'00000040'7 DECLARE LONG CONSTANT NAM$M_EXP_DEV = x'00000080'8 DECLARE LONG CONSTANT NAM$M_WILDCARD = x'00000100'; DECLARE LONG CONSTANT NAM$M_DIR_LVLS_G7 = x'00000200': DECLARE LONG CONSTANT NAM$M_WILD_SFDG7 = x'00000400'; DECLARE LONG CONSTANT NAM$M_SEARCH_LIST = x'00000800'8 DECLARE LONG CONSTANT NAM$M_CNCL_DEV = x'00001000'8 DECLARE LONG CONSTANT NAM$M_ROOT X _DIR = x'00002000'6 DECLARE LONG CONSTANT NAM$M_LOWVER = x'00004000'7 DECLARE LONG CONSTANT NAM$M_HIGHVER = x'00008000'3 DECLARE LONG CONSTANT NAM$M_PPF = x'00010000'4 DECLARE LONG CONSTANT NAM$M_NODE = x'00020000'6 DECLARE LONG CONSTANT NAM$M_QUOTED = x'00040000'7 DECLARE LONG CONSTANT NAM$M_GRP_MBR = x'00080000'8 DECLARE LONG CONSTANT NAM$M_WILD_DIR = x'00100000'8 DECLARE LONG CONSTANT NAM$M_DIR_LVLS = x'00E00000'8 DECLARE LONG CONSTANT NAM$M_ Y WILD_UFD = x'01000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD1 = x'02000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD2 = x'04000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD3 = x'08000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD4 = x'10000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD5 = x'20000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD6 = x'40000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD7 = x'80000000'8 DECLARE LONG CONSTANT NAM$M_WILD_GRP = x'01000000'8 Z DECLARE LONG CONSTANT NAM$M_WILD_MBR = x'02000000'3 DECLARE LONG CONSTANT NAM$M_DID = x'00000001'3 DECLARE LONG CONSTANT NAM$M_FID = x'00000002'7 DECLARE LONG CONSTANT NAM$M_RES_DID = x'00000004'7 DECLARE LONG CONSTANT NAM$M_RES_FID = x'00000008': DECLARE LONG CONSTANT NAM$M_RES_ESCAPE = x'00000010'; DECLARE LONG CONSTANT NAM$M_RES_UNICODE = x'00000020'- DECLARE LONG CONSTANT NAM$S_NAMDEF = 96 record NAMDEF7 BYTE NAM$B_BID [ ! block id; BYTE NAM$B_BLN ! block length ! +++++++++++++++++++++++L ! the following 3 fields must not be rearranged relative to each other ! I BYTE NAM$B_RSS ! resultant string area sizeF BYTE NAM$B_RSL ! resultant string lengthL LONG NAM$L_RSA ! resultant string area address ! ----------------------- group NAM$R_NOP_OVERLAY \ variant case; BYTE NAM$B_NOP ! Name options case& group NAM$R_NOP_BITSN ! Return password if present in nodespec string and any9 ! other task-specific data of the form /netacp_data": ! (default is to mask out password from expanded and; ! resultant name strings and to create a logical name; ! whose equivalence string is the unaltered nodespec)? ! u ] nused. (used to be undocumented ROD)? ! unused. (used to be undocumented SOD)A ! Only do syntax check on $parse operation= ! Do not conceal device/root directoryN ! Parse search list (not documented) -- used by BACKUP.M ! Fill in attached XABS on $SEARCH operations over the6 ! network (not documented) -- used by directory.- ! Don't upcase the ESAp ^ BYTE PWD_bits ! COMMENT ADDED BY SDL - PWD_bits contains bits PWD through NO_SHORT_UPCASE* end group NAM$R_NOP_BITS end variant$ end group NAM$R_NOP_OVERLAYa BYTE NAM$B_RFS ! Remote file system type (currently not documented)6 ! Note: This field is reserved for use by DigitalL ! the following 3 fields must not be rearranged relative to each other ! H BYTE NAM$B_ESS ! _ expanded string area sizeE BYTE NAM$B_ESL ! expanded string lengthK LONG NAM$L_ESA ! expanded string area address ! ----------------------- group NAM$R_RLF_OVERLAY variant caseJ LONG NAM$L_RLF ! related file nam block addr caseL LONG NAM$L_RLF_NAML ! related file naml block addr  end variant$ end gro ` up NAM$R_RLF_OVERLAY8 STRING NAM$T_DVI = 16 ! device id5 ! the location of the following fields must not8 ! be changed due to their commonality with the fib group NAM$R_FID_OVERLAY variant case9 WORD NAM$W_FID ( 1 to 3 ) ! file id case( group NAM$R_FID_FIELDS: WORD NAM$W_FID_NUM ! file number> WORD NAM$W_FID_SEQ ! seq a uence number0 group NAM$R_FID_RVN_OVERLAY variant caseH WORD NAM$W_FID_RVN ! relative volume number case5 group NAM$R_FID_RVN_FIELDSI BYTE NAM$B_FID_RVN ! alternate format RVN[ BYTE NAM$B_FID_NMX ! alternate format file number extension9 end group NAM$R_FID_Rb VN_FIELDS# end variant4 end group NAM$R_FID_RVN_OVERLAY, end group NAM$R_FID_FIELDS end variant$ end group NAM$R_FID_OVERLAY group NAM$R_DID_OVERLAY variant case> WORD NAM$W_DID ( 1 to 3 ) ! directory id case( group NAM$R_DID_FIELDS: WORD NAM$W_DID_NUM ! file number> WORD c NAM$W_DID_SEQ ! sequence number0 group NAM$R_DID_RVN_OVERLAY variant caseH WORD NAM$W_DID_RVN ! relative volume number case5 group NAM$R_DID_RVN_FIELDSI BYTE NAM$B_DID_RVN ! alternate format RVN[ BYTE NAM$B_DID_NMX ! alternate format file number extension9 d end group NAM$R_DID_RVN_FIELDS# end variant4 end group NAM$R_DID_RVN_OVERLAY, end group NAM$R_DID_FIELDS end variant$ end group NAM$R_DID_OVERLAY group NAM$R_WCC_OVERLAY variant case@ LONG NAM$L_WCC ! wild card context case& group NAM$R_WCC_BITSG ! the first word is reserved for IFI/AC e P context7 ! the first word contains an IFI= ! grow from top down, start at top bitG ! no-more-files has been encountered on a search9 ! save context across search callso LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through SVCTX* end group NAM$R_WCC_BITS end variant$ end group NAM$R_WCC_OVERLAY group N f AM$R_FNB_OVERLAY variant caseD LONG NAM$L_FNB ! file name status bits case' group NAM$R_FNB_BITS0- ! version was explicit* ! type was explicit* ! name was explicit6 ! version contained a wild card3 ! type contained a wild card3 ! name contained a wild card/ g ! directory was explicit, ! device was explicit= ! filename string included a wild card- ! (inclusive or of other wild card bits)2 ! Dir levels greater than 7? ! A subdir greater than 7 has a wildcard, ! search list present1 ! concealed device present/ ! root directory presentC ! lower numbered ve h rsion(s) of file exist(s)! ! higher " ! E ! process-permanent file referenced indirectlyC ! filename specification included a nodename? ! filename spec included a quoted stringB ! directory spec was of group-member format< ! directory spec included a wild card@ ! number of directory levels (0=ufd only)u LONG EXP_ i VER_bits ! COMMENT ADDED BY SDL - EXP_VER_bits contains bits EXP_VER through DIR_LVLS+ end group NAM$R_FNB_BITS0 case' group NAM$R_FNB_BITS1D ! separate byte for wild card directory flags1 ! ufd included a wild card2 ! sfd1 included a wild card2 ! sfd2 included a wild card2 ! sfd3 included a wild card2 ! sfd j 4 included a wild card2 ! sfd5 included a wild card2 ! sfd6 included a wild card2 ! sfd7 included a wild cards LONG FILL_4_bits ! COMMENT ADDED BY SDL - FILL_4_bits contains bits FILL_4 through WILD_SFD7+ end group NAM$R_FNB_BITS1 case' group NAM$R_FNB_BITS2I ! alternate definitions for wild_ufd and wild_sfd14 k ! group contained a wild card5 ! member contained a wild cardq LONG FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through FILL_5_+ end group NAM$R_FNB_BITS2 ! -----*****# ! (prior to 40 byte extension) ! ( ! Extend the NAM block by 40 bytes. !  end variant$ end group NAM$R_FNB_OVERLAY> BYTE NAM$B_NODE ! Nodespec length< BYTE l NAM$B_DEV ! Device length? BYTE NAM$B_DIR ! Directory length> BYTE NAM$B_NAME ! Filename length> BYTE NAM$B_TYPE ! Filetype lengthD BYTE NAM$B_VER ! Version number lengthC group NAM$R_NMC_OVERLAY ! Name characteristics variant case BYTE NAM$B_NMC case& group m NAM$R_NMC_BITS. ! Input file spec DIDed. ! Input file spec FIDed8 ! Result or Exp string spec DIDed8 ! Result or Exp string spec FIDed: ! Result or Exp string spec has "^"> ! Result or Exp string spec contains ^Ug BYTE DID_bits ! COMMENT ADDED BY SDL - DID_bits contains bits DID through FILL_3* end group NAM$R_NMC_BITS n end variant$ end group NAM$R_NMC_OVERLAYB BYTE NAMDEF$$_FILL_6 ( 1 to 1 ) ! Currently unused? LONG NAM$L_NODE ! Nodespec address= LONG NAM$L_DEV ! Device address@ LONG NAM$L_DIR ! Directory address? LONG NAM$L_NAME ! Filename address? LONG NAM$L_TYPE ! Filetype addressE LONG NAM$L_VER ! Ver o sion number addressQ WORD NAM$W_FIRST_WILD_DIR ! First wild directory in related namI WORD NAM$W_LONG_DIR_LEVELS ! Total number of directoriesB LONG NAMDEF$$_FILL_7 ( 1 to 1 ) ! Currently unused end record NAMDEF A ! basealign on aggregate NAMDEF operates after aggregate endS DECLARE LONG CONSTANT NAM$K_BLN_DIRWC = 96 ! Not documented optional lengthS DECLARE LONG CONSTANT NAM$C_BLN_DIRWC = 96 ! Not documented op p tional length@ DECLARE LONG CONSTANT NAM$K_BLN = 96 ! Name block length@ DECLARE LONG CONSTANT NAM$C_BLN = 96 ! Name block length ! Start NAML here ! + ! name block field definitions ! 8 ! The naml block is an extended version of the NAM; ! block used to communicate optional filename-related9 ! information. It differs from the NAM in that it > ! includes a default name and a file name field and that; ! these as well as the q result and expanded file names< ! have 32-bit length fields (though the top 16 bits is? ! required to be 0, limiting the length to 65535). There1 ! are also some additional flags available. ! C ! In order for RMS to recognize this block as a NAML, it must8 ! have NAML$B_BLN set to NAML$C_BLN, and must have% ! NAML$B_BID set to NAML$C_BID. ! B DECLARE LONG CONSTANT NAML$C_BID = 4 ! code for naml block ! (Same as nam)X DECLARE LONG r CONSTANT NAML$C_MAXRSS = 4095 ! maximum resultant name string size 4 DECLARE LONG CONSTANT NAML$M_PWD = x'00000001'7 DECLARE LONG CONSTANT NAML$M_FILL_1 = x'00000002'7 DECLARE LONG CONSTANT NAML$M_FILL_2 = x'00000004'7 DECLARE LONG CONSTANT NAML$M_SYNCHK = x'00000008': DECLARE LONG CONSTANT NAML$M_NOCONCEAL = x'00000010'8 DECLARE LONG CONSTANT NAML$M_SLPARSE = x'00000020'9 DECLARE LONG CONSTANT NAML$M_SRCHXABS = x'00000040'@ DECLARE LONG CONSTANT s NAML$M_NO_SHORT_UPCASE = x'00000080'\ DECLARE LONG CONSTANT NAML$C_UFS = 0 ! Unknown file system for remote file access or/ ! not applicable for local file access orI DECLARE LONG CONSTANT NAML$C_NO_RFS = 0 ! task-to-task operation7 DECLARE LONG CONSTANT NAML$C_RMS11 = 1 ! RMS-117 DECLARE LONG CONSTANT NAML$C_RMS20 = 2 ! RMS-207 DECLARE LONG CONSTANT NAML$C_RMS32 = 3 ! RMS-327 DECLARE LONG CONSTANT NAML$C_FCS11 = 4 ! FCS-11C DECLARE LOt NG CONSTANT NAML$C_RT11FS = 5 ! RT-11 file systemG DECLARE LONG CONSTANT NAML$C_TOPS20FS = 7 ! TOPS-20 file systemG DECLARE LONG CONSTANT NAML$C_TOPS10FS = 8 ! TOPS-10 file systemP DECLARE LONG CONSTANT NAML$C_RMS32S = 10 ! RMS-32 subset (e.g., VAXELAN)B DECLARE LONG CONSTANT NAML$C_CPMFS = 11 ! CP/M file systemG DECLARE LONG CONSTANT NAML$C_MS_DOSFS = 12 ! MS/DOS file systemM DECLARE LONG CONSTANT NAML$C_ULTRIX32_FS = 13 ! Ultrix-32 file systemM u DECLARE LONG CONSTANT NAML$C_ULTRIX11_FS = 14 ! Ultrix-11 file system ! +++++++++++++++++++++++C DECLARE LONG CONSTANT NAML$C_DVI = 16 ! length of dvi field ! +++++*****4 DECLARE LONG CONSTANT NAML$M_IFI = x'00010000'8 DECLARE LONG CONSTANT NAML$M_SRCHNMF = x'40000000'6 DECLARE LONG CONSTANT NAML$M_SVCTX = x'80000000'N DECLARE LONG CONSTANT NAML$K_BLN_V2 = 56 ! Version 2 name block lengthN DECLARE LONG CONSTANT NAML$C_BLN_V2 = 56 ! Version v 2 name block length8 DECLARE LONG CONSTANT NAML$M_EXP_VER = x'00000001'9 DECLARE LONG CONSTANT NAML$M_EXP_TYPE = x'00000002'9 DECLARE LONG CONSTANT NAML$M_EXP_NAME = x'00000004'9 DECLARE LONG CONSTANT NAML$M_WILD_VER = x'00000008': DECLARE LONG CONSTANT NAML$M_WILD_TYPE = x'00000010': DECLARE LONG CONSTANT NAML$M_WILD_NAME = x'00000020'8 DECLARE LONG CONSTANT NAML$M_EXP_DIR = x'00000040'8 DECLARE LONG CONSTANT NAML$M_EXP_DEV = x'00000080'9 DECL w ARE LONG CONSTANT NAML$M_WILDCARD = x'00000100'< DECLARE LONG CONSTANT NAML$M_DIR_LVLS_G7 = x'00000200'; DECLARE LONG CONSTANT NAML$M_WILD_SFDG7 = x'00000400'< DECLARE LONG CONSTANT NAML$M_SEARCH_LIST = x'00000800'9 DECLARE LONG CONSTANT NAML$M_CNCL_DEV = x'00001000'9 DECLARE LONG CONSTANT NAML$M_ROOT_DIR = x'00002000'7 DECLARE LONG CONSTANT NAML$M_LOWVER = x'00004000'8 DECLARE LONG CONSTANT NAML$M_HIGHVER = x'00008000'4 DECLARE LONG CONSTANT NAML$M x _PPF = x'00010000'5 DECLARE LONG CONSTANT NAML$M_NODE = x'00020000'7 DECLARE LONG CONSTANT NAML$M_QUOTED = x'00040000'8 DECLARE LONG CONSTANT NAML$M_GRP_MBR = x'00080000'9 DECLARE LONG CONSTANT NAML$M_WILD_DIR = x'00100000'9 DECLARE LONG CONSTANT NAML$M_DIR_LVLS = x'00E00000'9 DECLARE LONG CONSTANT NAML$M_WILD_UFD = x'01000000': DECLARE LONG CONSTANT NAML$M_WILD_SFD1 = x'02000000': DECLARE LONG CONSTANT NAML$M_WILD_SFD2 = x'04000000': DECLARE y LONG CONSTANT NAML$M_WILD_SFD3 = x'08000000': DECLARE LONG CONSTANT NAML$M_WILD_SFD4 = x'10000000': DECLARE LONG CONSTANT NAML$M_WILD_SFD5 = x'20000000': DECLARE LONG CONSTANT NAML$M_WILD_SFD6 = x'40000000': DECLARE LONG CONSTANT NAML$M_WILD_SFD7 = x'80000000'9 DECLARE LONG CONSTANT NAML$M_WILD_GRP = x'01000000'9 DECLARE LONG CONSTANT NAML$M_WILD_MBR = x'02000000'4 DECLARE LONG CONSTANT NAML$M_DID = x'00000001'4 DECLARE LONG CONSTANT NAML$M_FID = x'000 z 00002'8 DECLARE LONG CONSTANT NAML$M_RES_DID = x'00000004'8 DECLARE LONG CONSTANT NAML$M_RES_FID = x'00000008'; DECLARE LONG CONSTANT NAML$M_RES_ESCAPE = x'00000010'< DECLARE LONG CONSTANT NAML$M_RES_UNICODE = x'00000020'C DECLARE LONG CONSTANT NAML$M_LONG_RESULT_ESCAPE = x'00000001'B DECLARE LONG CONSTANT NAML$M_FILESYS_NAME_UCS2 = x'00000002'@ DECLARE LONG CONSTANT NAML$M_LONG_RESULT_DID = x'00000004'@ DECLARE LONG CONSTANT NAML$M_LONG_RESULT_FID = x { '00000008'D DECLARE LONG CONSTANT NAML$M_LONG_RESULT_UNICODE = x'00000010'; DECLARE LONG CONSTANT NAML$M_MP_IN_PATH = x'00000020'? DECLARE LONG CONSTANT NAML$M_SYMLNK_IN_PATH = x'00000040'? DECLARE LONG CONSTANT NAML$M_OBJECT_SYMLINK = x'00000080'= DECLARE LONG CONSTANT NAML$M_IS_DIRECTORY = x'00000100'@ DECLARE LONG CONSTANT NAML$M_NO_SHORT_OUTPUT = x'00000001'G DECLARE LONG CONSTANT NAML$C_CASE_LOOKUP_BLIND = 2 ! case blindO DECLARE LONG CONSTAN| T NAML$C_CASE_LOOKUP_SENSITIVE = 3 ! case sensitive= DECLARE LONG CONSTANT NAML$M_OPEN_SPECIAL = x'00000008'U DECLARE LONG CONSTANT NAML$C_SEARCH_SYMLINK_DEFAULT = 0 ! use process defaultN DECLARE LONG CONSTANT NAML$C_SEARCH_SYMLINK_NONE = 1 ! use no symlinksQ DECLARE LONG CONSTANT NAML$C_SEARCH_SYMLINK_ALL = 2 ! use symlinks alwaysb DECLARE LONG CONSTANT NAML$C_SEARCH_SYMLINK_NOELLIPS = 3 ! use symlinks except in ellipsis0 DECLARE LONG CONSTANT NAML$S } _NAMLDEF = 248 record NAMLDEF7 BYTE NAML$B_BID ! block id; BYTE NAML$B_BLN ! block length ! +++++++++++++++++++++++L ! the following 3 fields must not be rearranged relative to each other ! I BYTE NAML$B_RSS ! resultant string area sizeF BYTE NAML$B_RSL ! resultant string lengthL LONG NAML$L_RSA ! resultant string area address ~ ! -----------------------! group NAML$R_NOP_OVERLAY variant case; BYTE NAML$B_NOP ! Name options case' group NAML$R_NOP_BITSN ! Return password if present in nodespec string and any9 ! other task-specific data of the form /netacp_data": ! (default is to mask out password from expanded and; ! resultant name strings and to create a logical name; ! wh ose equivalence string is the unaltered nodespec)? ! unused. (used to be undocumented ROD)? ! unused. (used to be undocumented SOD)A ! Only do syntax check on $parse operation= ! Do not conceal device/root directoryN ! Parse search list (not documented) -- used by BACKUP.M ! Fill in attached XABS on $SEARCH operations over the6 ! network (not documente d) -- used by directory.- ! Don't upcase the ESAp BYTE PWD_bits ! COMMENT ADDED BY SDL - PWD_bits contains bits PWD through NO_SHORT_UPCASE+ end group NAML$R_NOP_BITS end variant% end group NAML$R_NOP_OVERLAYa BYTE NAML$B_RFS ! Remote file system type (currently not documented)6 ! Note: This field is reserved for use by DigitalL ! the following 3 fields must not be rearran ged relative to each other ! H BYTE NAML$B_ESS ! espanded string area sizeE BYTE NAML$B_ESL ! expanded string lengthK LONG NAML$L_ESA ! expanded string area address ! -----------------------! group NAML$R_RLF_OVERLAY variant caseJ LONG NAML$L_RLF ! related file nam block addr caseL LONG NAML$L_RLF_NA ML ! related file naml block addr  end variant% end group NAML$R_RLF_OVERLAY8 STRING NAML$T_DVI = 16 ! device id5 ! the location of the following fields must not8 ! be changed due to their commonality with the fib! group NAML$R_FID_OVERLAY variant case9 WORD NAML$W_FID ( 1 to 3 ) ! file id case) group NAML$R_FID_FIELDS: WORD NAML$W_FID_NUM ! file number> WORD NAML$W_FID_SEQ ! sequence number1 group NAML$R_FID_RVN_OVERLAY variant caseI WORD NAML$W_FID_RVN ! relative volume number case6 group NAML$R_FID_RVN_FIELDSJ BYTE NAML$B_FID_RVN ! alternate format RVN\ BYTE NAML$B_FID_NM X ! alternate format file number extension: end group NAML$R_FID_RVN_FIELDS# end variant5 end group NAML$R_FID_RVN_OVERLAY- end group NAML$R_FID_FIELDS end variant% end group NAML$R_FID_OVERLAY! group NAML$R_DID_OVERLAY variant case> WORD NAML$W_DID ( 1 to 3 ) ! directory id case) group NA ML$R_DID_FIELDS: WORD NAML$W_DID_NUM ! file number> WORD NAML$W_DID_SEQ ! sequence number1 group NAML$R_DID_RVN_OVERLAY variant caseI WORD NAML$W_DID_RVN ! relative volume number case6 group NAML$R_DID_RVN_FIELDSJ BYTE NAML$B_DID_RVN ! alternate format RVN\ BYTE NAML$B_DID_NMX ! alternate format file number extension: end group NAML$R_DID_RVN_FIELDS# end variant5 end group NAML$R_DID_RVN_OVERLAY- end group NAML$R_DID_FIELDS end variant% end group NAML$R_DID_OVERLAY! group NAML$R_WCC_OVERLAY variant case@ LONG NAML$L_WCC ! wild card context case' group NAML$R_WCC_BITSG ! the first word is reserved for IFI/ACP context7 ! the first word contains an IFI= ! grow from top down, start at top bitG ! no-more-files has been encountered on a search9 ! save context across search callso LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through SVCTX+ end group NAML$R_WCC_BITS end variant% end group NAML$R_WCC_OVERLAY! group NAML$R_FNB_OVERLAY variant caseD LONG NAML$L_FNB ! file name status bits case( group NAML$R_FNB_BITS0- ! version was explicit* ! type was explicit* ! name was explicit6 ! version contained a wild card3 ! type contained a wild card3 ! name contained a wild card/ ! directory was explicit, ! device was explicit= ! filename string included a wild card- ! (inclusive or of other wild card bits)2 ! Dir levels greater than 7? ! A subdir greater than 7 has a wildcard, ! search list present1 ! concealed device present/ ! root directory presentC ! lower numbered version(s) of file exist(s)! ! higher " ! E ! process-permanent file referenced indirectlyC ! filename specification included a nodename? ! filename spec included a quoted stringB ! directory spec was of group-member format< ! directory spec included a wild card@ ! number of directory levels (0=ufd only)u LONG EXP_VER_bits ! COMMENT ADDED BY SDL - EXP_VER_bits contains bits EXP_VER through DIR_LVLS, end group NAML$R_FNB_BITS0 case( group NAML$R_FNB_BITS1D ! separate byte for wild card directory flags1 ! ufd included a wild card2 ! sfd1 included a wild card2 ! sfd2 included a wild card2 ! sfd3 included a wild card2 ! sfd4 included a wild card2 ! sfd5 included a wild card2 ! sfd6 included a wild card2 ! sfd7 included a wild cards LONG FILL_4_bits ! COMMENT ADDED BY SDL - FILL_4_bits contains bits FILL_4 through WILD_SFD7, end group NAML$R_FNB_BITS1 case( group NAML$R_FNB_BITS2I ! alternate definitions for wild_ufd and wild_sfd14 ! group contained a wild card5 ! member contained a wild cardq LONG FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through FILL_6_, end group NAML$R_FNB_BITS2 end variant% end group NAML$R_FNB_OVERLAY> BYTE NAML$B_NODE ! Nodespec length< BYTE NAML$B_DEV ! Device length? BYTE NAML$B_DIR ! Directory length> BYTE NAML$B_NAME ! Filename length> BYTE NAML$B_TYPE ! Filetype lengthD BYTE NAML$B_VER ! Version number lengthC group NAML$R_NMC_OVERLAY ! Name characteristics variant case! BYTE NAML$B_NMC case' group NAML$R_NMC_BITS. ! Input file spec DIDed. ! Input file spec FIDed8 ! Result or Exp string spec DIDed8 ! Result or Exp string spec FIDed: ! Result or Exp string spec has "^"> ! Result or Exp string spec contains ^Ug BYTE DID_bits ! COMMENT ADDED BY SDL - DID_bits contains bits DID through FILL_3+ end group NAML $R_NMC_BITS end variant% end group NAML$R_NMC_OVERLAYB BYTE NAMLDEF$$_FILL_6 ( 1 to 1 ) ! Currently unused? LONG NAML$L_NODE ! Nodespec address= LONG NAML$L_DEV ! Device address@ LONG NAML$L_DIR ! Directory address? LONG NAML$L_NAME ! Filename address? LONG NAML$L_TYPE ! Filetype addressE LONG NAML$L_VER  ! Version number addressQ WORD NAML$W_FIRST_WILD_DIR ! First wild directory in related namI WORD NAML$W_LONG_DIR_LEVELS ! Total number of directoriesB LONG NAMLDEF$$_FILL_7 ( 1 to 1 ) ! Currently unused ! New NAML-only items:D LONG NAML$L_LONG_DEFNAME_SIZE ! Analogous to FAB$B_DNSD LONG NAML$L_LONG_DEFNAME ! Analogous to FAB$L_DNSD LONG NAML$L_LONG_FILENAME_SIZE ! Analogous to FAB$B_F NSD LONG NAML$L_LONG_FILENAME ! Analogous to FAB$L_FNSE LONG NAML$L_LONG_NODE_SIZE ! Analogous to NAM$B_NODEE LONG NAML$L_LONG_NODE ! Analogous to NAM$L_NODED LONG NAML$L_LONG_DEV_SIZE ! Analogous to NAM$B_DEVD LONG NAML$L_LONG_DEV ! Analogous to NAM$L_DEVD LONG NAML$L_LONG_DIR_SIZE ! Analogous to NAM$B_DIRD LONG NAML$L_LONG_DIR ! Analogous to NAM$L_DIRE  LONG NAML$L_LONG_NAME_SIZE ! Analogous to NAM$B_NAMEE LONG NAML$L_LONG_NAME ! Analogous to NAM$L_NAMEE LONG NAML$L_LONG_TYPE_SIZE ! Analogous to NAM$B_TYPEE LONG NAML$L_LONG_TYPE ! Analogous to NAM$L_TYPED LONG NAML$L_LONG_VER_SIZE ! Analogous to NAM$B_VERD LONG NAML$L_LONG_VER ! Analogous to NAM$L_VERS ! The following three "LONG_EXPAND" fields must be fixed relative to each otherD LONG NAML$L_LONG_EXPAND_SIZE ! Analogous to NAM$B_ESLD LONG NAML$L_LONG_EXPAND ! Analogous to NAM$L_ESAD LONG NAML$L_LONG_EXPAND_ALLOC ! Analogous to NAM$B_ESS# LONG NAML$L_RESERVED_MBZ_9S ! The following three "LONG_RESULT" fields must be fixed relative to each otherD LONG NAML$L_LONG_RESULT_SIZE ! Analogous to NAM$B_RSLD LONG NAML$L_LONG_RESULT ! Analogous to NAM$L_RSAD LONG NAML$L_LONG_RESULT _ALLOC ! Analogous to NAM$B_RSSa LONG NAML$L_RESERVED_MBZ_8 ! Reserved to Digital for future use. Must be zero.T ! The following three "FILESYS_NAME" fields must be fixed relative to each other& LONG NAML$L_FILESYS_NAME_SIZE! LONG NAML$L_FILESYS_NAME' LONG NAML$L_FILESYS_NAME_ALLOCJ group NAML$R_OUTPUT_FLAGS_OVERLAY ! Flags set or cleared by RMS variant case* LONG NAML$L_OUTPUT_FLAGS case0 group NAML$R_OUTPUT_FLAGS_BITSH ! There is an escape character in the long outputB ! The filesys name output is 2-byte Unicode< ! There is DIDding in the long output< ! There is FIDding in the long outputC ! Long Result or Exp string spec contains ^UB ! mount point encountered in directory path> ! symli nk encountered in directory pathK ! The specified object is a symlink ($OPEN, $SEARCH)M ! The specified object is a directory ($OPEN, $SEARCH)u WORD LONG_RESULT_ESCAPE_bits ! COMMENT ADDED BY SDL - LONG_RESULT_ESCAPE_bits contains bits &% ! LONG_RESULT_ESCAPE through FILL_7_4 end group NAML$R_OUTPUT_FLAGS_BITS. ! The rest of the longword also reserved. end variant. end group NAML$R_ OUTPUT_FLAGS_OVERLAYM group NAML$R_INPUT_FLAGS_OVERLAY ! Flags specified by user to RMS variant case) LONG NAML$L_INPUT_FLAGS case/ group NAML$R_INPUT_FLAGS_BITS3 ! Don't write to RSA and ESA. ! name case lookup mode? ! $OPEN a special file, rather than the 0 ! object referred to by the special file. 9 ! C ontrols whether $SEARCH follows" ! symlinks in directory pathsU ! NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF,+ ! $LIBFILDEF, $PPROPDEF, and $NAMLDEF. BYTE NO_SHORT_OUTPUT_bits ! COMMENT ADDED BY SDL - NO_SHORT_OUTPUT_bits contains bits NO_SHORT_OUTPUT & ! through FILL_8_3 end group NAML$R_INPUT_FLAGS_BITS? ! The rest of the longword also reserved and must be zero. end variant-  end group NAML$R_INPUT_FLAGS_OVERLAYa LONG NAML$L_RESERVED_MBZ_7 ! Reserved to Digital for future use. Must be zero.+ BASIC$QUADWORD NAML$Q_USER_CONTEXTa LONG NAML$L_RESERVED_MBZ_6 ! Reserved to Digital for future use. Must be zero.a LONG NAML$L_RESERVED_MBZ_5 ! Reserved to Digital for future use. Must be zero.a LONG NAML$L_RESERVED_MBZ_4 ! Reserved to Digital for future use. Must be zero.a LONG NAML $L_RESERVED_MBZ_3 ! Reserved to Digital for future use. Must be zero.a LONG NAML$L_RESERVED_MBZ_2 ! Reserved to Digital for future use. Must be zero.a LONG NAML$L_RESERVED_MBZ_1 ! Reserved to Digital for future use. Must be zero. end record NAMLDEF B ! basealign on aggregate NAMLDEF operates after aggregate endB DECLARE LONG CONSTANT NAML$K_BLN = 248 ! Name block lengthB DECLARE LONG CONSTANT NAML$C_BLN = 248 ! Name block length ww zd; ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ' ! definitions for all xabs ! $xabdef ! C ! the first four fields are shared in common between all xabs' ! and hence are defined only onceL ! (the o nly exception is that the spare word may be used by some xabs) ! - DECLARE LONG CONSTANT XAB$S_XABDEF = 20 record XABDEF: BYTE XAB$B_COD ! xab id code; BYTE XAB$B_BLN ! block length6 WORD XABDEF$$_FILL_1 ! (spare)= LONG XAB$L_NXT ! xab chain link WORD XAB$W_RVN WORD XABDEF$$_FILL_2 group XAB$R_RDT_OVERLAY variant  case* BASIC$QUADWORD XAB$Q_RDT case( group XAB$R_RDT_FIELDS$ LONG XAB$L_RDT0$ LONG XAB$L_RDT4# ! COMMON AMONG DAT AND RDT XABS, end group XAB$R_RDT_FIELDS end variant$ end group XAB$R_RDT_OVERLAY end record XABDEF . DECLARE LONG CONSTANT XAB$S_XABDEF1 = 23 record XABDEF1( BYTE XABDEF$$_FILL_3 ( 1 to 8 )P BYTE XA BDEF$$_FILL_4 ! THESE FIELDS WILL BE DEFINED LATER BYTE XABDEF$$_FILL_5 WORD XABDEF$$_FILL_6 LONG XABDEF$$_FILL_7 LONG XABDEF$$_FILL_8 WORD XABDEF$$_FILL_9H BYTE XAB$B_BKZ ! COMMON TO FHC AND ALQ XABS end record XABDEF1 S DECLARE LONG CONSTANT XAB$C_CXT_VER1 = 1 ! RMS Context Extraction version 1 ww B ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 9 ! file header characteristics xab definitions ! $xabfhcdef ! 9 ! the fields of this xab cannot be rearranged since/ ! they correspond to an on-disk structur e ! = DECLARE LONG CONSTANT XAB$C_FHC = 29 ! xabfhc id code3 DECLARE LONG CONSTANT XAB$M_FTN = x'00000001'2 DECLARE LONG CONSTANT XAB$M_CR = x'00000002'3 DECLARE LONG CONSTANT XAB$M_PRN = x'00000004'3 DECLARE LONG CONSTANT XAB$M_BLK = x'00000008'; DECLARE LONG CONSTANT XAB$M_GBC_PERCENT = x'00000001'; DECLARE LONG CONSTANT XAB$M_GBC_DEFAULT = x'00000002'0 DECLARE LONG CONSTANT XAB$S_XABFHCDEF = 44 record XABFHCDEF BYTE XABF HCDEF$$_FILL_1 BYTE XABFHCDEF$$_FILL_2 WORD XABFHCDEF$$_FILL_3T LONG XABFHCDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFI BYTE XAB$B_RFO ! record format and file org group XAB$R_FILL_9_ variant case@ BYTE XAB$B_ATR ! record attributes case& group XAB$R_FILL_10_- ! fortran carriage-ctl2 ! lf-record-cr carriage ctl0 ! print-file carriage ctl= ! records don't cross block boundariesi BYTE FTN_bits ! COMMENT ADDED BY SDL - FTN_bits contains bits FTN through FILL_11_* end group XAB$R_FILL_10_ end variant end group XAB$R_FILL_9_F WORD XAB$W_LRL ! longe st record's length group XAB$R_HBK_OVERLAY variant case? LONG XAB$L_HBK ! hi vbn allocated ! (n.b. reversed on disk?) case( group XAB$R_HBK_FIELDS$ WORD XAB$W_HBK0$ WORD XAB$W_HBK2, end group XAB$R_HBK_FIELDS end variant$ end group XAB$R_HBK_OVERLAY group XAB$R_EBK_OVERLAY variant case6 LONG XAB$L_EBK ! eof vbn ! (n.b. reversed on disk) case( group XAB$R_EBK_FIELDS$ WORD XAB$W_EBK0$ WORD XAB$W_EBK2, end group XAB$R_EBK_FIELDS end variant$ end group XAB$R_EBK_OVERLAYK WORD XAB$W_FFB ! first free byte in eof block] BYTE XABFHCDEF$$_FILL_5 ! bucket size for fhc ( n ote: field name is bkz,= ! defined above in $xabdef,since it is shared by the fhc. ! xab and has the same offset, of course) ! -----*****" ! HAVE BEEN DEFINED BY $XABDEF3 ! defined above in $xabdef, since it is shared ! by the all xab)B BYTE XAB$B_HSZ ! header size for vfc> WORD XAB$W_MRZ ! max record sizeF WORD XAB$W_DXQ ! default extend quantity" group XAB$R_GBC16_OVERL AY variant caseR WORD XAB$W_GBC ! global buffer count (original word) case5 WORD XAB$W_GBC16 ! Alias  end variant& end group XAB$R_GBC16_OVERLAY* group XAB$R_RECATTR_FLAGS_OVERLAY variant caseN BYTE XAB$B_RECATTR_FLAGS ! flags for record attribute area case0 group XAB$R_RECATTR_FL AGS_BITSM ! Interpret value in GBC32 as percent instead of countM ! RMS should set default for GBC at runtime and ignore% ! any values in GBC16 or GBC320 ! Reserved for future use BYTE GBC_PERCENT_bits ! COMMENT ADDED BY SDL - GBC_PERCENT_bits contains bits GBC_PERCENT through FILL_74 end group XAB$R_RECATTR_FLAGS_BITS end variant. end group XAB$R_RECATTR_FLA GS_OVERLAYb BYTE XABFHCDEF$$_FILL_8 ! reserved for future use (possible flags word union)] LONG XAB$L_GBC32 ! longword implementation of global buffer count^ BYTE XABFHCDEF$$_FILL_6 ( 1 to 2 ) ! spare space documented as unused in I/O REF F WORD XAB$W_VERLIMIT ! version limit for file. ! -----*****I LONG XAB$L_SBN ! starting lbn if contiguous end record XABFHCDEF D  ! basealign on aggregate XABFHCDEF operates after aggregate endB DECLARE LONG CONSTANT XAB$K_FHCLEN = 44 ! length of xabfhcB DECLARE LONG CONSTANT XAB$C_FHCLEN = 44 ! length of xabfhc ww 1J ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ( ! allocation xab definitions ! $xaballdef ! 7 ! the fields thru bkz cannot be rearranged due to" ! their commonality with fab ! = DECLARE LONG CON STANT XAB$C_ALL = 20 ! xaball id code3 DECLARE LONG CONSTANT XAB$M_HRD = x'00000001'3 DECLARE LONG CONSTANT XAB$M_ONC = x'00000002'3 DECLARE LONG CONSTANT XAB$M_CBT = x'00000020'3 DECLARE LONG CONSTANT XAB$M_CTG = x'00000080'B DECLARE LONG CONSTANT XAB$C_ANY = 0 ! any allocation o.k.@ DECLARE LONG CONSTANT XAB$C_CYL = 1 ! cylinder boundaryH DECLARE LONG CONSTANT XAB$C_LBN = 2 ! allocate at specified lbnJ DECLARE LONG CONSTANT XAB$C_VBN = 3 ! allocate near specified vbnI DECLARE LONG CONSTANT XAB$C_RFI = 4 ! allocate near related file0 DECLARE LONG CONSTANT XAB$S_XABALLDEF = 32 record XABALLDEF BYTE XABALLDEF$$_FILL_1 BYTE XABALLDEF$$_FILL_2 WORD XABALLDEF$$_FILL_3T LONG XABALLDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF group XAB$R_AOP_OVERLAY variant caseA BYTE XAB$B_AOP ! allocation options case& group XAB$R_AOP_BITS? ! fail if requested alignment impossibleA ! locate allocated space within a cylinder! ! (spares)9 ! contiguous alllocation, best try ! spare. ! contiguous allocationd BYTE HRD_bits ! COMMENT ADDED BY SDL - HRD_bits contains bits HRD through CTG* end group XAB$R_AOP_BITS end variant$ end group XAB$R_AOP_OVERLAY= BYTE XAB$B_ALN ! alignment typeQ WORD XAB$W_VOL ! relative volume no. for allocation+ ! (not applicable if aln = vbn or rfi)B LONG XAB$L_LOC ! allocation locationB LONG XAB$L_ALQ ! allocation quantityJ WORD XAB$W_DEQ ! default allocation quantity] BYTE XABALLDEF$$_FILL_7 ! bucket size for area (note: field name is bkz,= ! defined above in $xabdef,since it is shared by the fhc. ! xab and has the same offset, of course) ! -----*****" ! HAVE BEEN DEFINED BY $XABDEF= BYTE XAB$B_AID ! area id number group XAB$R_RFI_OVERLAY variant caseA WORD XAB $W_RFI ( 1 to 3 ) ! related file id case( group XAB$R_RFI_FIELDS: WORD XAB$W_RFI0 ! file number9 WORD XAB$W_RFI2 ! seq number9 WORD XAB$W_RFI4 ! rev number, end group XAB$R_RFI_FIELDS end variant$ end group XAB$R_RFI_OVERLAY6 WORD XABALLDEF$$_FILL_8 ! (spare) end record XABALLDEF D ! basealign on aggregate XABALLDEF operates after aggregate endB DECLARE LONG CONSTANT XAB$K_ALLLEN = 32 ! length of xaballB DECLARE LONG CONSTANT XAB$C_ALLLEN = 32 ! length of xaball ww Q ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ' ! date/time xab definitions ! $xabdatdef !  ! = DECLARE LONG CONSTANT XAB$C_DAT = 18 ! xabdat id codeL DECLARE LONG CONSTANT XAB$K_DATLEN_V2 = 36 !  Version 2 XABDAT lengthL DECLARE LONG CONSTANT XAB$C_DATLEN_V2 = 36 ! Version 2 XABDAT lengthF DECLARE LONG CONSTANT XAB$K_DATLEN_V54 = 44 ! length of XABDATF DECLARE LONG CONSTANT XAB$C_DATLEN_V54 = 44 ! length of XABDATo DECLARE LONG CONSTANT XAB$K_DATLEN_PRE_ACCDATES = 60 ! XABDAT length before addition of 3 access dates o DECLARE LONG CONSTANT XAB$C_DATLEN_PRE_ACCDATES = 60 ! XABDAT length before addition of 3 access dates o DECLARE LONG CONSTANT XA B$K_DATLEN_POST_ACCDATES = 84 ! XABDAT length after addition of 3 access dates o DECLARE LONG CONSTANT XAB$C_DATLEN_POST_ACCDATES = 84 ! XABDAT length after addition of 3 access dates 0 DECLARE LONG CONSTANT XAB$S_XABDATDEF = 84 record XABDATDEF BYTE XABDATDEF$$_FILL_1 BYTE XABDATDEF$$_FILL_2 WORD XABDATDEF$$_FILL_3T LONG XABDATDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AN D" ! HAVE BEEN DEFINED BY $XABDEFe WORD XABDATDEF$$_FILL_5 ! REVISION ?,DEFINED IN $XABDEF,SINCE COMMON TO DAT ? RDT4 WORD XABDATDEF$$_FILL_6 ! spareV BASIC$QUADWORD XABDATDEF$$_FILL_7 ! revision date ? time,defined in $xabdef group XAB$R_CDT_OVERLAY variant caseC BASIC$QUADWORD XAB$Q_CDT ! creation date ? time case( group XAB$R_CDT_FIELDS$  LONG XAB$L_CDT0$ LONG XAB$L_CDT4, end group XAB$R_CDT_FIELDS end variant$ end group XAB$R_CDT_OVERLAY group XAB$R_EDT_OVERLAY variant caseE BASIC$QUADWORD XAB$Q_EDT ! expiration date ? time case( group XAB$R_EDT_FIELDS$ LONG XAB$L_EDT0$ LONG XAB$L_EDT4, end group XAB$R_EDT_ FIELDS end variant$ end group XAB$R_EDT_OVERLAY group XAB$R_BDT_OVERLAY variant caseC BASIC$QUADWORD XAB$Q_BDT ! backup date and time case( group XAB$R_BDT_FIELDS$ LONG XAB$L_BDT0$ LONG XAB$L_BDT4, end group XAB$R_BDT_FIELDS end variant$ end group XAB$R_BDT_OVERLAY group XAB$R_RCD_OVERLAY  variant caseE BASIC$QUADWORD XAB$Q_RCD ! Recorded date and time case( group XAB$R_RCD_FIELDS$ LONG XAB$L_RCD0$ LONG XAB$L_RCD4, end group XAB$R_RCD_FIELDS end variant$ end group XAB$R_RCD_OVERLAY group XAB$R_EFF_OVERLAY variant caseF BASIC$QUADWORD XAB$Q_EFF ! Effective date an d time case( group XAB$R_EFF_FIELDS$ LONG XAB$L_EFF0$ LONG XAB$L_EFF4, end group XAB$R_EFF_FIELDS end variant$ end group XAB$R_EFF_OVERLAY group XAB$R_ACC_OVERLAY variant caseC BASIC$QUADWORD XAB$Q_ACC ! Access date and time case( group XAB$R_ACC_FIELDS$ LONG XAB$L_ACC0 $ LONG XAB$L_ACC4, end group XAB$R_ACC_FIELDS end variant$ end group XAB$R_ACC_OVERLAY group XAB$R_ATT_OVERLAY variant caseM BASIC$QUADWORD XAB$Q_ATT ! Attribute change date and time case( group XAB$R_ATT_FIELDS$ LONG XAB$L_ATT0$ LONG XAB$L_ATT4, end group XAB$R_ATT_FIELDS  end variant$ end group XAB$R_ATT_OVERLAY group XAB$R_MOD_OVERLAY variant caseN BASIC$QUADWORD XAB$Q_MOD ! data Modification date and time case( group XAB$R_MOD_FIELDS$ LONG XAB$L_MOD0$ LONG XAB$L_MOD4, end group XAB$R_MOD_FIELDS end variant$ end group XAB$R_MOD_OVERLAY end record XABDATDEF D ! basealign on aggregate XABDATDEF operates after aggregate endB DECLARE LONG CONSTANT XAB$K_DATLEN = 84 ! length of XABDATB DECLARE LONG CONSTANT XAB$C_DATLEN = 84 ! length of XABDAT ww X ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 0 ! revision date/time xab definitions ! $xabrdtdef ! = DECLARE LONG CONSTANT XAB$C_RDT = 30 ! xabrdt id code0 DECLARE LONG CONSTANT XAB$S_XABRDTDEF = 20 record XABRDTDEF BYTE XABRDTDEF$$_FILL_1 BYTE XABRDTDEF$$_FILL_2 WORD XABRDTDEF$$_FILL_3T LONG XABRDTDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFe WORD XABRDTDEF$$_FILL_5 ! REVISION ?,DEFINED IN $XABDEF,SINCE COMMON TO DAT ? RDT4 WORD XABRDTDEF$$_FILL_6 ! spareV BASIC$QUADWORD XABRDTDEF$$_FILL_7 ! revision date ? time,defined in $xabdef end record XABRDTDEF D ! basealign on aggregate XABRDTDEF operates after aggregate endC DECLARE LONG CONSTANT XAB$K_RDTLEN = 20 ! length of rdt xabC DECLARE LONG CONSTANT XAB$C_RDTLEN = 20 ! length of rdt xab ww%DEFINE AMEDEF WORD ! *** PREDECLARED TYPESR : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORDX* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF B: %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )  END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF  Q` ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! . ! protection xab field definitions ! $xabprodef !  ! = DECLARE LONG CONSTANT XAB$C_PRO = 19 ! xabpro id code6 DECLARE LONG CONSTANT XAB$M_NOREAD = x'0 0000001'7 DECLARE LONG CONSTANT XAB$M_NOWRITE = x'00000002'5 DECLARE LONG CONSTANT XAB$M_NOEXE = x'00000004'5 DECLARE LONG CONSTANT XAB$M_NODEL = x'00000008'/ DECLARE LONG CONSTANT XAB$S_XABPRODEF = 1 record XABPRODEF variant case) group XAB$R_XABPRODEF_BITS& ! deny read access' ! deny write access+ ! deny execution access( ! deny delete accesso BYTE NOREAD_bits ! COMMENT ADDED BY SDL - NOREAD_bits contains bits NOREAD through FILL_12_- end group XAB$R_XABPRODEF_BITS end variant end record XABPRODEF 9 DECLARE LONG CONSTANT XAB$M_PROPAGATE = x'00000001'F DECLARE LONG CONSTANT XAB$K_PROLEN_V3 = 16 ! V3a xabpro lengthF DECLARE LONG CONSTANT XAB$C_PROLEN_V3 = 16 ! V3a xabpro length1 DECLARE LONG CONSTANT XAB$S_XABPRODEF1 = 88 record XABPRODEF1  BYTE XABPRODEF$$_FILL_1 BYTE XABPRODEF$$_FILL_2 WORD XABPRODEF$$_FILL_3T LONG XABPRODEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF group XAB$R_PRO_OVERLAY variant case> WORD XAB$W_PRO ! protection mask case& group XAB$R_PRO_BITS ! system ! owner ! group ! worldd WORD SYS_bits ! COMMENT ADDED BY SDL - SYS_bits contains bits SYS through WLD* end group XAB$R_PRO_BITS end variant$ end group XAB$R_PRO_OVERLAYK BYTE XAB$B_MTACC ! Magtape access control char.% group XAB$R_PROT_OPT_OVERLAY variant caseC BYTE XAB$B_PROT_OPT ! XABPRO options field case- group XAB$R_PROT_OPT_FIELDSL ! Propagate security attributes on $ENTER and $RENAME{ BYTE PROPAGATE_bits ! COMMENT ADDED BY SDL - PROPAGATE_bits contains bits PROPAGATE through FILL_13_1 end group XAB$R_PROT_OPT_FIELDS end variant) end group XAB$R_PROT_OPT_OVERLAY group XAB$R_UIC_OVERLAY variant case7 LONG XAB$L_UIC ! uic code case( group XAB$R_UIC_FIELDS: WORD XAB$W_MBM ! member code9 WORD XAB$W_GRP ! group code, end group XAB$R_UIC_FIELDS end variant$ end group XAB$R_UIC_OVERLAYL group XAB$R_PROT_MODE_OVERLAY ! RWED/mode protection for file variant caseQ BASIC$QUADWORD X AB$Q_PROT_MODE ! eventually may be a quadword case. group XAB$R_PROT_MODE_FIELDSH BYTE XAB$B_PROT_MODE ! but currently only a byte2 end group XAB$R_PROT_MODE_FIELDS end variant* end group XAB$R_PROT_MODE_OVERLAYK LONG XAB$L_ACLBUF ! address of user's ACL bufferH WORD XAB$W_ACLSIZ ! size of user's ACL bufferJ WORD XAB$W_ACLLEN ! return length of entire ACL@ LONG XAB$L_ACLCTX ! ACL context fieldD LONG XAB$L_ACLSTS ! ACL return err status4 LONG XABPRODEF$$_FILL_10 ! spare4 LONG XABPRODEF$$_FILL_11 ! spare4 LONG XABPRODEF$$_FILL_12 ! spare4 LONG XABPRODEF$$_FILL_13 ! spare4 LONG XABPRODEF$$_FILL_14 ! spare4 LONG XABPRODEF$$_FILL_15 ! spare4 LONG XABPRODEF$$_FILL_16 ! spare4 LONG XABPRODEF$$_FILL_17 ! spare4 LONG XABPRODEF$$_FILL_18 ! spare4 LONG XABPRODEF$$_FILL_19 ! spare4 LONG XABPRODEF$$_FILL_20 ! spare4 LONG XABPRODEF$$_FILL_21 ! spare end record XABPRODEF1 E ! basealign on aggregate XABPRODEF1 operates after aggregate end? DECLARE LONG CONSTANT XAB$K_PROLEN = 88 ! xabpro length? DECLARE LONG CONSTANT XAB$C_PROLEN = 88 ! xabpro length ww j/g ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 4 ! terminal control xab field definitions ! $xabtrmdef !  ! < DECLARE LONG CONSTANT XAB$C_TRM = 31 ! XABTRM ID CODE0 DECLARE LONG CONSTANT XAB$S_XABTRMDE F = 36 record XABTRMDEF BYTE XABTRMDEF$$_FILL_1 BYTE XABTRMDEF$$_FILL_2 WORD XABTRMDEF$$_FILL_3T LONG XABTRMDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF@ LONG XAB$L_ITMLST ! item list address? WORD XAB$W_ITMLST_LEN ! item list length4 WORD XABTRMDEF$$_FILL_5 ! spare4 LONG XABTRMDEF$$_FILL_6 ! spare4 LONG XABTRMDEF$$_FILL_7 ! spare4 LONG XABTRMDEF$$_FILL_8 ! spare4 LONG XABTRMDEF$$_FILL_9 ! spare4 LONG XABTRMDEF$$_FILL_10 ! spare end record XABTRMDEF D ! basealign on aggregate XABTRMDEF operates after aggregate endX DECLARE LONG CONSTANT XAB$K_TRMLEN = 36 ! length of xab of type terminal controlX DECLARE LONG CONSTANT XAB$C_TRMLEN = 36 ! length of xab of type terminal control ww : n ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! summary xab field definitions ! $xabsumdef ! = DECLARE LONG CONSTANT XAB$C_SUM = 22 ! xabsum id code0 DECLARE LONG CONSTANT XAB$S_XABSUMDEF = 12 record XABSUMDEF BYTE XABSUMDEF$$_FILL_1 BYTE XABSUMDEF$$_FILL_2 WORD XABSUMDEF$$_FILL_3T LONG XABSUMDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFU BYTE XAB$B_NOA ! number of defined areas for index fileT BYTE XAB$B_NOK ! number of defined keys for index filea WORD XAB$W_PVN  ! prologue version number (relative and index files) end record XABSUMDEF D ! basealign on aggregate XABSUMDEF operates after aggregate end? DECLARE LONG CONSTANT XAB$K_SUMLEN = 12 ! xabsum length? DECLARE LONG CONSTANT XAB$C_SUMLEN = 12 ! xabsum length ww Jv ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 2 ! key definition xab field definitions ! $xabkeydef ! = DECLARE LONG CONSTANT XAB$C_KEY = 21 ! xabkey id code3 DECLARE LONG CONSTANT XAB$M_DUP = x'00000001 '3 DECLARE LONG CONSTANT XAB$M_CHG = x'00000002'3 DECLARE LONG CONSTANT XAB$M_NUL = x'00000004'9 DECLARE LONG CONSTANT XAB$M_IDX_NCMPR = x'00000008'9 DECLARE LONG CONSTANT XAB$M_KEY_NCMPR = x'00000040'9 DECLARE LONG CONSTANT XAB$M_DAT_NCMPR = x'00000080'5 DECLARE LONG CONSTANT XAB$C_STG = 0 ! stringN DECLARE LONG CONSTANT XAB$C_IN2 = 1 ! signed 15 bit integer (2 bytes)< DECLARE LONG CONSTANT XAB$C_BN2 = 2 ! 2 byte binaryN DECLARE LO NG CONSTANT XAB$C_IN4 = 3 ! signed 31 bit integer (4 bytes)< DECLARE LONG CONSTANT XAB$C_BN4 = 4 ! 4 byte binaryJ DECLARE LONG CONSTANT XAB$C_PAC = 5 ! packed decimal (1-16 bytes)N DECLARE LONG CONSTANT XAB$C_IN8 = 6 ! signed 63 bit integer (4 bytes)< DECLARE LONG CONSTANT XAB$C_BN8 = 7 ! 8 byte binary7 DECLARE LONG CONSTANT XAB$C_COL = 8 ! collatedK DECLARE LONG CONSTANT XAB$C_MAX_ASCEND = 8 ! maximum ascending typeA DECLARE LONG CONSTAN T XAB$C_DSTG = 32 ! descending stringF DECLARE LONG CONSTANT XAB$C_DIN2 = 33 ! " signed wordH DECLARE LONG CONSTANT XAB$C_DBN2 = 34 ! " unsigned wordJ DECLARE LONG CONSTANT XAB$C_DIN4 = 35 ! " signed longwordL DECLARE LONG CONSTANT XAB$C_DBN4 = 36 ! " unsigned longwordI DECLARE LONG CONSTANT XAB$C_DPAC = 37 ! " packed decimalJ DECLARE LONG CONSTANT XAB$C_DIN8 = 38 ! " signed quadwordL DECLAR E LONG CONSTANT XAB$C_DBN8 = 39 ! " unsigned quadwordC DECLARE LONG CONSTANT XAB$C_DCOL = 40 ! " collatedF DECLARE LONG CONSTANT XAB$C_MAXDTP = 40 ! max. legal data typeF DECLARE LONG CONSTANT XAB$K_KEYLEN_V2 = 64 ! old xabkey lengthF DECLARE LONG CONSTANT XAB$C_KEYLEN_V2 = 64 ! old xabkey length ! E DECLARE LONG CONSTANT XAB$C_PRG3 = 3 ! Prologue version threeC DECLARE LONG CONSTANT XAB$C_PRG2 = 2 ! Prologue version twoC DECLARE LONG CONSTANT XAB$C_PRG1 = 1 ! Prologue versoin oneK DECLARE LONG CONSTANT XAB$K_KEYLEN_V4 = 76 ! xabkey length until V5K DECLARE LONG CONSTANT XAB$C_KEYLEN_V4 = 76 ! xabkey length until V51 DECLARE LONG CONSTANT XAB$S_XABKEYDEF = 100 record XABKEYDEF BYTE XABKEYDEF$$_FILL_1 BYTE XABKEYDEF$$_FILL_2 WORD XABKEYDEF$$_FILL_3T LONG XABKEYDEF$$_FILL_4 ! 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 moved= ! between the two structures as efficiently as possible. ! F BYTE XAB$B_IAN ! index level area numberM BYTE XAB$B_LAN ! lowest index level area numberE B YTE XAB$B_DAN ! data level area numberC BYTE XAB$B_LVL ! level of root bucketV BYTE XAB$B_IBS ! size of index buckets in virtual blocksU BYTE XAB$B_DBS ! size of data buckets in virtual blocksD LONG XAB$L_RVB ! root bucket start vbn group XAB$R_FLG_OVERLAY variant case? BYTE XAB$B_FLG ! key option flags case' group XAB$R_FLG_BITS05 ! duplicate key values allowedF ! alt key only --key field may change on update= ! alt key only --null key value enableP ! indicate index records for given key are not compressed ! spareG ! indicates key is not compressed in data recordi BYTE DUP_bits ! COMMENT ADDED BY SDL - DUP_bits contains bits DUP through FILL_14_+ end group XAB$R_FLG_BITS0 case' group XAB$R_FLG_BITS1' ! space over dup ! spare- ! space over idx_ncmpr ! spare- ! space over key_ncmpr6 ! data record is not compresseds BYTE FILL_6_bits ! COMMENT ADDED BY SDL - FILL_6_bits contains bits FILL_6 through DAT_NCMPR+ end group XAB$R_FLG_BITS1 end variant$ end group XAB$R_FLG_OVERLAYB BYTE XAB$B_DTP ! key field data typeE BYTE XAB$B_NSG ! number of key segments@ BYTE XAB$B_NUL ! nul key characterK BYTE XAB$B_TKS ! total key field size (bytes)L BYTE XAB$B_REF ! key of reference (0=pri m key, ! 1-254 = alternate keys)Y WORD XAB$W_MRL ! minimun record length to contain key fieldM WORD XAB$W_IFL ! index bucket fill size (bytes)K WORD XAB$W_DFL ! data bucket fil size (bytes) group XAB$R_POS_OVERLAY variant caseS WORD XAB$W_POS ( 1 to 8 ) ! key field record offset positions case( group XAB$R_ POS_FIELDS8 WORD XAB$W_POS0 ! segment 08 WORD XAB$W_POS1 ! segment 18 WORD XAB$W_POS2 ! segment 28 WORD XAB$W_POS3 ! segment 38 WORD XAB$W_POS4 ! segment 48 WORD XAB$W_POS5 ! segment 58 WORD XAB$W_POS6 ! segment 68 WORD XAB$W_POS7 ! segment 7, end group XA B$R_POS_FIELDS end variant$ end group XAB$R_POS_OVERLAY group XAB$R_SIZ_OVERLAY variant caseI BYTE XAB$B_SIZ ( 1 to 8 ) ! key field segment sizes case( group XAB$R_SIZ_FIELDS8 BYTE XAB$B_SIZ0 ! segment 08 BYTE XAB$B_SIZ1 ! segment 18 BYTE XAB$B_SIZ2 ! segment 28 BYTE XAB$B_SI Z3 ! segment 38 BYTE XAB$B_SIZ4 ! segment 48 BYTE XAB$B_SIZ5 ! segment 58 BYTE XAB$B_SIZ6 ! segment 68 BYTE XAB$B_SIZ7 ! segment 7, end group XAB$R_SIZ_FIELDS end variant$ end group XAB$R_SIZ_OVERLAY4 WORD XABKEYDEF$$_FILL_11 ! spare ! K ! the positions of the above fields are dictated by the key descriptor0 ! record layout in the index file prologue. ! V LONG XAB$L_KNM ! pointer to 32 character key name bufferJ LONG XAB$L_DVB ! first data bucket start vbn% ! Additions for prologue 3 files ! group XAB$R_TYP_OVERLAY variant caseI BYTE XAB$B_TYP ( 1 to 8 ) ! key field segment types case( group XAB$R_TYP_FIELDS8 BYTE XAB$B_TYP0 ! segment 08 BYTE XAB$B_TYP1 ! segment 18 BYTE XAB$B_TYP2 ! segment 28 BYTE XAB$B_TYP3 ! segment 38 BYTE XAB$B_TYP4 ! segment 48 BYTE XAB$B_TYP5 ! segment 58 BYTE XAB$B_TYP6 ! segment 68 BYTE XAB$B_TYP7 ! segment 7, end group XAB$R_TYP_FIELDS en  d variant$ end group XAB$R_TYP_OVERLAYc BYTE XAB$B_PROLOG ! indicate prologue version desired (primary key only)4 BYTE XABKEYDEF$$_FILL_12 ! spare4 WORD XABKEYDEF$$_FILL_13 ! spareG LONG XAB$L_COLTBL ! address of collate tableD LONG XAB$L_COLSIZ ! size of collate tableD LONG XAB$L_COLNAM ! name of collate table4 LONG XABKEYDEF$$_FILL_1 4 ! spare4 LONG XABKEYDEF$$_FILL_15 ! spare4 LONG XABKEYDEF$$_FILL_16 ! spare ! -- ! ++ end record XABKEYDEF D ! basealign on aggregate XABKEYDEF operates after aggregate endG DECLARE LONG CONSTANT XAB$K_KEYLEN = 100 ! xabkey length for V5G DECLARE LONG CONSTANT XAB$C_KEYLEN = 100 ! xabkey length for V5 ww v} ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 5 ! RMS Context XAB associated with the FAB ! $xabcxfdef ! = DECLARE LONG CONSTANT XAB$C_CXF = 32 ! XABCXF id code6 DECLARE LONG CONSTANT XAB$M_CXFRST = x'0  0000001'0 DECLARE LONG CONSTANT XAB$S_XABCXFDEF = 60 record XABCXFDEF@ BYTE XABCXFDEF$$_FILL_1 ! COD - xab id codeA BYTE XABCXFDEF$$_FILL_2 ! BLN - block length6 WORD XABCXFDEF$$_FILL_3 ! (spare)C LONG XABCXFDEF$$_FILL_4 ! NXT - xab chain link( ! UP TILL NOW COMMON AMONG ALL XABS ! : ! Following in common with the CXR block, too.5 ! Do not rearrange without changing both  . ! Q LONG XAB$L_CXFSTS ! Status of the last file operation.W LONG XAB$L_CXFSTV ! Status Value of the last file operation. ! P ! Top four bits of the options longword are reserved for the XABCXR. These3 ! bits describe the version of the key buffer. ! # group XAB$R_CXFCOP_OVERLAY variant case? LONG XAB$L_CXFCOP ! Context Options. case ) group XAB$R_CXFCOP_BITSG ! Restore file state - use context blk as input.r BYTE CXFRST_bits ! COMMENT ADDED BY SDL - CXFRST_bits contains bits CXFRST through FILL_15_- end group XAB$R_CXFCOP_BITS end variant' end group XAB$R_CXFCOP_OVERLAY? LONG XAB$L_CXFBKP ! Bookkeeping bitsG WORD XAB$W_CXFIFI ! Internal File IdentifierC BYTE XAB$B_CXFVER ! prologue version numR BYTE XABCXFDEF$$_FILL_5 ! spare to longword align commonality4 LONG XABCXFDEF$$_FILL_6 ! spare ! 5 ! Up Till now in common with XABCXR, too. ! H ! The following fields correspond to those in the FAB or IFBI ! They should not be rearranged as their order is assumed forH ! purposes of moving large chunks of data rather than a byteI ! or word at a time. Note: ASSUME is used in the actual code ! I WORD XAB$W_CXFDEQ ! Default extention quantity: BYTE XAB$B_CXFFAC ! File access; BYTE XAB$B_CXFSHR ! File Sharing9 WORD XAB$W_CXFRTE ! (Not used)4 BYTE XABCXFDEF$$_FILL_7 ! spare@ BYTE XAB$B_CXFORG ! file organizationB WORD XAB$W_CXFGBC ! global buffer count? BYTE XAB$B_CXFRTV ! retrieval window BYTE XABCXFDEF$$_FILL_88 LONG XABCXFDEF$$_FILL_9 ( 1 to 4 ) ! spares end record XABCXFDEF D ! basealign on aggregate XABCXFDEF operates after aggregate endH DECLARE LONG CONSTANT XAB$K_CXFLEN = 60 ! length of xab type CXFH DECLARE LONG CONSTANT XAB$C_CXFLEN = 60 ! length of xab type CXF ww z ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 5 ! RMS Context XAB associated with the RAB ! $xabcxrdef ! = DECLARE LONG CONSTANT XAB$C_CXR = 33 ! XABCXR id code6 DECLARE LONG CONSTANT XAB$M_CXRRST = x'0  0000001'. DECLARE LONG CONSTANT XAB$C_CXB_VER1 = 1L DECLARE LONG CONSTANT XAB$C_CXRBLEN = 512 ! Length of CXRBUF (bytes)0 DECLARE LONG CONSTANT XAB$S_XABCXRDEF = 84 record XABCXRDEF@ BYTE XABCXRDEF$$_FILL_1 ! COD - xab id codeA BYTE XABCXRDEF$$_FILL_2 ! BLN - block length6 WORD XABCXRDEF$$_FILL_3 ! (spare)C LONG XABCXRDEF$$_FILL_4 ! NXT - xab chain link( ! UP TILL NOW COMMON AMONG ALL  XABS ! : ! Following in common with the CXF block, too.3 ! Do not rearrange without changing it. ! S LONG XAB$L_CXRSTS ! Status of the last record operation.Y LONG XAB$L_CXRSTV ! Status Value of the last record operation.# group XAB$R_CXRCOP_OVERLAY variant case? LONG XAB$L_CXRCOP ! Context Options. case) grou  p XAB$R_CXRCOP_BITSN ! Restore file/record state - use context blk as input.. ! Version of Key bufferq LONG CXRRST_bits ! COMMENT ADDED BY SDL - CXRRST_bits contains bits CXRRST through CXRBVER- end group XAB$R_CXRCOP_BITS end variant' end group XAB$R_CXRCOP_OVERLAY? LONG XAB$L_CXRBKP ! Bookkeeping bitsI WORD XAB$W_CXRISI ! Internal Re  cord IdentifierD BYTE XAB$B_CXRVER ! prologue version num.R BYTE XABCXRDEF$$_FILL_6 ! spare to longword align commonality4 LONG XABCXRDEF$$_FILL_7 ! spare ! 5 ! Up Till now in common with XABCXF, too. !  ! L ! The following elements are arranged such that large amounts ofM ! data can be moved at a time rather than words or bytes. Do not@ ! rearrange them without this  consideration in mind. ! L ! The following elements are stream dependent regardless of file org. ! @ BYTE XAB$B_CXRMBF ! Multibuffer count? BYTE XAB$B_CXRMBC ! Multiblock countC WORD XAB$W_CXRBFZ ! sz in byte of CXRBUF ! J ! The following elements are necessary for saving the NRP context for% ! Sequential and Relative files. ! 6 LONG XAB$L_CXRVBN ! NRP VBN  @ WORD XAB$W_CXROFF ! NRP offset in VBNC WORD XAB$W_FILL_8 ! mbz - longword align ! J ! The following elements are necessary for saving the NRP context for ! ISAM files. ! F LONG XAB$L_CXRPOS0 ! Primary Positioning RFA WORD XAB$W_CXRPOS48 WORD XABCXRDEF$$_FILL_9 ! Spare MBZF LONG XAB$L_CXRCUR0 ! Current Positioning RFA WORD XAB$W_CXRC  UR48 WORD XABCXRDEF$$_FILL_10 ! Spare MBZC LONG XAB$L_CXRSID0 ! SIDR positioning RFA WORD XAB$W_CXRSID48 WORD XABCXRDEF$$_FILL_11 ! Spare MBZ? WORD XAB$W_CXRCNT ! SIDR array countC BYTE XAB$B_CXRKREF ! Cur Key of Reference< BYTE XAB$B_CXRKLEN ! Length of keyA LONG XAB$L_CXRBUF ! address of key buf8 LONG XABCXRDEF$$_FILL_12 ( 1 to 2 ) ! Spares end record XABCXRDEF D ! basealign on aggregate XABCXRDEF operates after aggregate endH DECLARE LONG CONSTANT XAB$K_CXRLEN = 84 ! Length of XAB type CXRH DECLARE LONG CONSTANT XAB$C_CXRLEN = 84 ! Length of XAB type CXR ww ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! % ! Journal XAB definitions ! $xabjnldef ! = DECLARE LONG CONSTANT XAB$C_JNL = 34 ! xabjnl id code3 DECLARE LONG CONSTANT XAB$C_JNL_TYPE_NONE = 09 DE  CLARE LONG CONSTANT XAB$C_AI = 1 ! AI journal9 DECLARE LONG CONSTANT XAB$C_BI = 2 ! BI journal9 DECLARE LONG CONSTANT XAB$C_AT = 3 ! AT journalF DECLARE LONG CONSTANT XAB$C_RU_DEFAULT = 4 ! default RU volume@ DECLARE LONG CONSTANT XAB$M_JOURNAL_DISABLED = x'00000001'; DECLARE LONG CONSTANT XAB$M_BACKUP_DONE = x'00000002'0 DECLARE LONG CONSTANT XAB$S_XABJNLDEF = 80 record XABJNLDEF BYTE XABJNLDEF$$_FILL_1 BYTE XABJNLDEF$$_  FILL_2 WORD XABJNLDEF$$_FILL_3T LONG XABJNLDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF> BYTE XAB$B_XABJNL_TYPE ! type of $XABJNL BYTE XABJNLDEF$$_FILL_5& group XAB$R_JNL_FLAGS_OVERLAY variant caseV WORD XAB$W_JNL_FLAGS ! journal flags (from ACE$W_RMSJNL_FLAGS) case,  group XAB$R_JNL_FLAGS_BITSA ! journaling disabled by BACKUP (AI/BI/AT)5 ! Backup done since last $OPEN BYTE JOURNAL_DISABLED_bits ! COMMENT ADDED BY SDL - JOURNAL_DISABLED_bits contains bits JOURNAL_DISABLED & ! through FILL_16_0 end group XAB$R_JNL_FLAGS_BITS end variant* end group XAB$R_JNL_FLAGS_OVERLAYJ LONG XAB$L_JNL_FAB ! address of jour nal file FABT LONG XAB$L_VOLNAM_BUF ! address of journal volume name bufferQ WORD XAB$W_VOLNAM_SIZ ! size of journal volume name bufferS WORD XAB$W_VOLNAM_LEN ! return length of journal volume name` BASIC$QUADWORD XAB$Q_JNL_VERIFY_CDATE ! journal file creation date (from ACE$Q_CDATE)3 ! (to match with journal file's creation date)W LONG XAB$L_JNLIDX ! Journal stream index within journal f ileF LONG XAB$L_BACKUP_SEQNO ! Backup sequence number.W BASIC$QUADWORD XAB$Q_JNL_MOD_TIME ! Timestamp of last backup or last journal ! entry recovered. LONG XABJNLDEF$$_FILL_7 LONG XABJNLDEF$$_FILL_8 LONG XABJNLDEF$$_FILL_9! LONG XABJNLDEF$$_FILL_10! LONG XABJNLDEF$$_FILL_11! LONG XABJNLDEF$$_FILL_12! LONG XABJNLDEF$$_FILL_13! LONG XABJNLDEF$$_FILL_14 end record XABJNLDEF  D ! basealign on aggregate XABJNLDEF operates after aggregate end- DECLARE LONG CONSTANT XAB$K_JNLLEN = 80- DECLARE LONG CONSTANT XAB$C_JNLLEN = 80 ww" U%DEFINE UCHAR_FLAGS LONG%DEFINE XAB_RCF_FLAGS BYTE ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECL# ARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %E$ ND %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_F% LOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! " ! Item XAB definitions ! = DECLARE LONG CONSTANT XAB$C_ITM = 36 ! xabitm id codeT ! The following set of flags exactly mimi & c the FCHDEF flags defined in STARLET.Y ! They are here to provide an unsupported interface to the UCHAR longword maintained ! by the file system. ! N ! Note: RESERVED6 is the counterpart of FCH$x_SCRATCH. This SCRATCH bitK ! means the file is a temporary file that should only exist within theP ! context of an XQP operation. This bit should NEVER be visible to a user.L ! (It was implemented by XQP for ACP MOVEFILE subfunction. A 'scratch'L ! file is creat ' ed with the scratch bit set in the file header. This isM ! made to be the 'moved' file, then the original file is replaced by theL ! moved file, and finally everything is cleaned up. If a crash occurs,O ! the scratch file is left lying around; the scratch bit is used to signalN ! to ANALYZE/DISK/REPAIR that this header is not being used.) RMS should: ! not provide any interface to sense or set this bit. ! 9 DECLARE LONG CONSTANT XAB$M_WASCONTIG = x'00000001'8 ( DECLARE LONG CONSTANT XAB$M_NOBACKUP = x'00000002'9 DECLARE LONG CONSTANT XAB$M_WRITEBACK = x'00000004'9 DECLARE LONG CONSTANT XAB$M_READCHECK = x'00000008'9 DECLARE LONG CONSTANT XAB$M_WRITCHECK = x'00000010'7 DECLARE LONG CONSTANT XAB$M_CONTIGB = x'00000020'6 DECLARE LONG CONSTANT XAB$M_LOCKED = x'00000040'6 DECLARE LONG CONSTANT XAB$M_CONTIG = x'00000080'9 DECLARE LONG CONSTANT XAB$M_RESERVED1 = x'00000100'9 DECLARE LONG CONSTANT XAB$M_RESE ) RVED2 = x'00000200'9 DECLARE LONG CONSTANT XAB$M_RESERVED3 = x'00000400'6 DECLARE LONG CONSTANT XAB$M_BADACL = x'00000800'5 DECLARE LONG CONSTANT XAB$M_SPOOL = x'00001000'9 DECLARE LONG CONSTANT XAB$M_DIRECTORY = x'00002000'8 DECLARE LONG CONSTANT XAB$M_BADBLOCK = x'00004000'7 DECLARE LONG CONSTANT XAB$M_MARKDEL = x'00008000'8 DECLARE LONG CONSTANT XAB$M_NOCHARGE = x'00010000'5 DECLARE LONG CONSTANT XAB$M_ERASE = x'00020000'9 DECLARE LONG CON * STANT XAB$M_RESERVED4 = x'00040000'7 DECLARE LONG CONSTANT XAB$M_SHELVED = x'00080000'9 DECLARE LONG CONSTANT XAB$M_RESERVED6 = x'00100000'6 DECLARE LONG CONSTANT XAB$M_NOMOVE = x'00200000'; DECLARE LONG CONSTANT XAB$M_NOSHELVABLE = x'00400000': DECLARE LONG CONSTANT XAB$M_PRESHELVED = x'00800000'1 DECLARE LONG CONSTANT XAB$S_UCHAR_FLAGS = 3 X DECLARE LONG CONSTANT XAB$_NET_BUFFER_SIZE = 1 ! (sense) negociated buffer sizeZ DECLARE LONG CONST+ ANT XAB$_NET_BLOCK_COUNT = 2 ! (set,sense) requested block countV DECLARE LONG CONSTANT XAB$_NET_REMOTE_SYSTEM = 3 ! (sense) remote system type` DECLARE LONG CONSTANT XAB$_NET_REMOTE_FILE_SYSTEM = 4 ! (sense) remote file system type\ DECLARE LONG CONSTANT XAB$_NET_EXTPROT = 5 ! (set,sense) actual extended protection] DECLARE LONG CONSTANT XAB$_NET_SYSCAP_LOCAL = 6 ! (sense) DAP SYSCAP of local system_ DECLARE LONG CONSTANT XAB$_NET_SYSCAP_REMOTE = 7 ! (se, nse) DAP SYSCAP of remote system] DECLARE LONG CONSTANT XAB$_NET_DAPVER_LOCAL = 8 ! (sense) DAP version - local system_ DECLARE LONG CONSTANT XAB$_NET_DAPVER_REMOTE = 9 ! (sense) DAP version - remote systeme DECLARE LONG CONSTANT XAB$_NET_LINK_TIMEOUT = 10 ! (set,sense) logical link timeout (seconds)W DECLARE LONG CONSTANT XAB$_NET_DATA_CRC_ENABLE = 11 ! (set,sense) DAP level CRCe DECLARE LONG CONSTANT XAB$_NET_LINK_CACHE_ENABLE = 12 ! (set,sense) Logica - l link cache enableJ ! ,NET_DATA_COMPRESSION /* (set,sense) do data compression (FUTURE)- DECLARE LONG CONSTANT XAB$K_NET_MIN = 1. DECLARE LONG CONSTANT XAB$K_NET_MAX = 12X DECLARE LONG CONSTANT XAB$_STAT_ENABLE = 64 ! (set,sense) Read statistics enabler DECLARE LONG CONSTANT XAB$_FILE_LENGTH_HINT = 65 ! (set,sense) File length hint (set of 2 quadword fields)/ DECLARE LONG CONSTANT XAB$K_STAT_MIN = 64/ DECLARE LONG CONSTANT XAB$K_STAT_MAX = 65] . DECLARE LONG CONSTANT XAB$_UCHAR = 128 ! (sense) Read file characteristics (obsolete)R DECLARE LONG CONSTANT XAB$_UCHAR_WASCONTIG = 129 ! (sense) FCH$V_WASCONTIGT DECLARE LONG CONSTANT XAB$_UCHAR_NOBACKUP = 130 ! (set,sense) FCH$V_NOBACKUPR DECLARE LONG CONSTANT XAB$_UCHAR_WRITEBACK = 131 ! (sense) FCH$V_WRITEBACKV DECLARE LONG CONSTANT XAB$_UCHAR_READCHECK = 132 ! (set,sense) FCH$V_READCHECKX DECLARE LONG CONSTANT XAB$_UCHAR_WRITECHECK = 133 ! (set,sense) FC/ H$V_WRITECHECKR DECLARE LONG CONSTANT XAB$_UCHAR_CONTIGB = 134 ! (set,sense) FCH$V_CONTIGBP DECLARE LONG CONSTANT XAB$_UCHAR_LOCKED = 135 ! (set,sense) FCH$V_LOCKEDL DECLARE LONG CONSTANT XAB$_UCHAR_CONTIG = 136 ! (sense) FCH$V_CONTIGL DECLARE LONG CONSTANT XAB$_UCHAR_BADACL = 137 ! (sense) FCH$V_BADACLJ DECLARE LONG CONSTANT XAB$_UCHAR_SPOOL = 138 ! (sense) FCH$V_SPOOLR DECLARE LONG CONSTANT XAB$_UCHAR_DIRECTORY = 139 ! (sense) FCH$V_DIRECTORYP DE0 CLARE LONG CONSTANT XAB$_UCHAR_BADBLOCK = 140 ! (sense) FCH$V_BADBLOCKO DECLARE LONG CONSTANT XAB$_UCHAR_MARKDEL = 141 ! (sense) FCH$V_BADBLOCKP DECLARE LONG CONSTANT XAB$_UCHAR_NOCHARGE = 142 ! (sense) FCH$V_NOCHARGEN DECLARE LONG CONSTANT XAB$_UCHAR_ERASE = 143 ! (set,sense) FCH$V_ERASEP DECLARE LONG CONSTANT XAB$_UCHAR_NOMOVE = 144 ! (set,sense) FCH$V_NOMOVES DECLARE LONG CONSTANT XAB$_UCHAR_SHELVED = 145 ! (sense) FCH$V_SHELVED[ DECLARE LONG C1 ONSTANT XAB$_UCHAR_NOSHELVABLE = 146 ! (set,sense) FCH$V_NOSHELVABLET DECLARE LONG CONSTANT XAB$_UCHAR_PRESHELVED = 147 ! (sense) FCH$V_PRESHELVED1 DECLARE LONG CONSTANT XAB$K_UCHAR_MIN = 1281 DECLARE LONG CONSTANT XAB$K_UCHAR_MAX = 147d DECLARE LONG CONSTANT XAB$_STORED_SEMANTICS = 192 ! (set,sense) Stored semantics of the filed DECLARE LONG CONSTANT XAB$_ACCESS_SEMANTICS = 193 ! (set,sense) Access semantics of the filef DECLARE LONG CONSTANT XAB$_RMS_E2 XTENSION = 194 ! (set,sense) Required RMS processing extension1 DECLARE LONG CONSTANT XAB$K_XLATE_MIN = 1921 DECLARE LONG CONSTANT XAB$K_XLATE_MAX = 194f DECLARE LONG CONSTANT XAB$C_SEMANTICS_MAX_LEN = 64 ! max length for stored or access semanticsf DECLARE LONG CONSTANT XAB$K_SEMANTICS_MAX_LEN = 64 ! max length for stored or access semanticso DECLARE LONG CONSTANT XAB$_MULTIBUFFER_COUNT = 256 ! (set-only) Multibuffer count (not limited to 127) ! legal 3 only on $CONNECT} DECLARE LONG CONSTANT XAB$_NORECORD = 257 ! (set-only) Norecord suppresses update of the expiration d/t, passed in on ! on $OPEN or $CLOSEL DECLARE LONG CONSTANT XAB$_RECOVERY = 258 ! Used to indicate type of ! recovery in progress.R DECLARE LONG CONSTANT XAB$_RUJVOLNAM = 259 ! Used to control RUJ placementX DECLARE LONG CONSTANT XAB$_GBC32 = 260 ! (set/sense) GBC longword implementationX DECLARE LONG CONSTANT XAB$_LINKCOUNT = 261 4 ! (set/sense) ODS-5 (hard) link countI DECLARE LONG CONSTANT XAB$_GBCFLAGS = 262 ! (set/sense) GBC flags0 DECLARE LONG CONSTANT XAB$K_MISC_MIN = 2560 DECLARE LONG CONSTANT XAB$K_MISC_MAX = 262? DECLARE LONG CONSTANT XAB$_TID = 320 ! (set/sense) TID/ DECLARE LONG CONSTANT XAB$K_TID_MIN = 320/ DECLARE LONG CONSTANT XAB$K_TID_MAX = 320b DECLARE LONG CONSTANT XAB$_CACHING_OPTIONS = 384 ! (set,sense) VDC runtime caching optionsd DECLARE LONG CON5 STANT XAB$_CACHING_ATTRIBUTE = 385 ! (set, sense) VDC perm caching attribute; DECLARE LONG CONSTANT XAB$K_CACHING_OPTIONS_MIN = 384; DECLARE LONG CONSTANT XAB$K_CACHING_OPTIONS_MAX = 385J DECLARE LONG CONSTANT XAB$_ACCDATE = 448 ! (set,sense) access dateT DECLARE LONG CONSTANT XAB$_ATTDATE = 449 ! (set,sense) attribute change dateU DECLARE LONG CONSTANT XAB$_MODDATE = 450 ! (set,sense) data modification date0 DECLARE LONG CONSTANT XAB$K_DATE_MIN = 4480 6 DECLARE LONG CONSTANT XAB$K_DATE_MAX = 450/ DECLARE LONG CONSTANT XAB$K_SENSEMODE = 1- DECLARE LONG CONSTANT XAB$K_SETMODE = 20 DECLARE LONG CONSTANT XAB$S_XABITMDEF = 32 record XABITMDEF BYTE XABITMDEF$$_FILL_1 BYTE XABITMDEF$$_FILL_2 WORD XABITMDEF$$_FILL_3T LONG XABITMDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFG LON7 G XAB$L_ITEMLIST ! Address of the item listI ! In the user interface, item codes are arbitrary integer values, soI ! we may as well allow logical groups to have contiguous codes, with7 ! room for expansion (to allow table driven code).R BYTE XAB$B_MODE ! must be either SETMODE or SENSEMODEV BYTE XAB$B_ITM_FILL1 ( 1 to 3 ) ! Reserved space for future definitionV LONG XAB$IL_ITM_FILL2 ( 1 to 4 ) ! Reserved spa 8 ce for future definition end record XABITMDEF D ! basealign on aggregate XABITMDEF operates after aggregate end- DECLARE LONG CONSTANT XAB$K_ITMLEN = 32- DECLARE LONG CONSTANT XAB$C_ITMLEN = 32K ! Define fields and constant values for XAB$_CACHING_OPTIONS longword.3 ! These must match [STARLET]FIBDEF.SDL exactly? DECLARE LONG CONSTANT XAB$M_FILE_ATTRIBUTES = x'0000000F'= DECLARE LONG CONSTANT XAB$M_FILE_CONTENTS = x'000000F0'- DECLARE LONG 9 CONSTANT XAB$K_DEFAULT = 02 DECLARE LONG CONSTANT XAB$K_WRITETHROUGH = 11 DECLARE LONG CONSTANT XAB$K_WRITEBEHIND = 2/ DECLARE LONG CONSTANT XAB$K_NOCACHING = 3> DECLARE LONG CONSTANT XAB$M_FLUSH_ON_CLOSE = x'00000F00'+ DECLARE LONG CONSTANT XAB$K_FLUSH = 1- DECLARE LONG CONSTANT XAB$K_NOFLUSH = 2< DECLARE LONG CONSTANT XAB$M_CACHECTL_MBZ = x'FFFFF000'? DECLARE LONG CONSTANT XAB$S_XAB_CACHING_OPTIONS_FLAGS = 4& record XAB_CACHING_OPTIONS_FLA : GS{ LONG FILE_ATTRIBUTES_bits ! COMMENT ADDED BY SDL - FILE_ATTRIBUTES_bits contains bits FILE_ATTRIBUTES through & ! CACHECTL_MBZ* end record XAB_CACHING_OPTIONS_FLAGS B ! The following set of flags mimic the IFB$B_RECVRFLGS flags.9 ! They are here to provide an interface for RECOVER.6 DECLARE LONG CONSTANT XAB$M_RCF_RU = x'00000001'6 DECLARE LONG CONSTANT XAB$M_RCF_AI = x'00000002'6 DECLARE LONG CONSTANT XAB$M_RCF_BI = x'00000004'9 DECLAR ; E LONG CONSTANT XAB$M_RCF_NOPAD = x'00000008'3 DECLARE LONG CONSTANT XAB$S_XAB_RCF_FLAGS = 1 - DECLARE LONG CONSTANT XAB$K_DISABLE = 0, DECLARE LONG CONSTANT XAB$K_ENABLE = 1* DECLARE LONG CONSTANT XAB$K_RT11 = 1* DECLARE LONG CONSTANT XAB$K_RSTS = 2, DECLARE LONG CONSTANT XAB$K_RSX11S = 3, DECLARE LONG CONSTANT XAB$K_RSX11M = 4, DECLARE LONG CONSTANT XAB$K_RSX11D = 5) DECLARE LONG CONSTANT XAB$K_IAS = 6, DECLARE LONG CONSTANT XAB$K_ < VAXVMS = 7, DECLARE LONG CONSTANT XAB$K_TOPS20 = 8, DECLARE LONG CONSTANT XAB$K_TOPS10 = 9+ DECLARE LONG CONSTANT XAB$K_RTS8 = 10* DECLARE LONG CONSTANT XAB$K_OS8 = 11. DECLARE LONG CONSTANT XAB$K_RSX11MP = 12. DECLARE LONG CONSTANT XAB$K_COPOS11 = 13+ DECLARE LONG CONSTANT XAB$K_P_OS = 14- DECLARE LONG CONSTANT XAB$K_VAXELN = 15* DECLARE LONG CONSTANT XAB$K_CPM = 16- DECLARE LONG CONSTANT XAB$K_MS_DOS = 170 DECLARE LONG CONSTANT XA = B$K_ULTRIX_32 = 180 DECLARE LONG CONSTANT XAB$K_ULTRIX_11 = 19+ DECLARE LONG CONSTANT XAB$K_RMS11 = 1+ DECLARE LONG CONSTANT XAB$K_RMS20 = 2+ DECLARE LONG CONSTANT XAB$K_RMS32 = 3+ DECLARE LONG CONSTANT XAB$K_FCS11 = 4, DECLARE LONG CONSTANT XAB$K_RT11FS = 5+ DECLARE LONG CONSTANT XAB$K_NO_FS = 6. DECLARE LONG CONSTANT XAB$K_TOPS20FS = 7. DECLARE LONG CONSTANT XAB$K_TOPS10FS = 8+ DECLARE LONG CONSTANT XAB$K_OS8FS = 9- DECLARE LONG > CONSTANT XAB$K_RMS32S = 10, DECLARE LONG CONSTANT XAB$K_CPMFS = 11/ DECLARE LONG CONSTANT XAB$K_MS_DOSFS = 122 DECLARE LONG CONSTANT XAB$K_ULTRIX32_FS = 132 DECLARE LONG CONSTANT XAB$K_ULTRIX11_FS = 14: DECLARE LONG CONSTANT XAB$M_NET_NOREAD = x'00000001'; DECLARE LONG CONSTANT XAB$M_NET_NOWRITE = x'00000002'= DECLARE LONG CONSTANT XAB$M_NET_NOEXECUTE = x'00000004'< DECLARE LONG CONSTANT XAB$M_NET_NODELETE = x'00000008'< DECLARE LONG CONSTANT ? XAB$M_NET_NOAPPEND = x'00000010'? DECLARE LONG CONSTANT XAB$M_NET_NODIRECTORY = x'00000020'< DECLARE LONG CONSTANT XAB$M_NET_NOUPDATE = x'00000040'< DECLARE LONG CONSTANT XAB$M_NET_NOCHANGE = x'00000080'< DECLARE LONG CONSTANT XAB$M_NET_NOEXTEND = x'00000100'3 DECLARE LONG CONSTANT XAB$S_XABNETEXTPROT = 8 record XABNETEXTPROT group XAB$R_FILL_18_ variant case' WORD XAB$W_SYSTEM_ACC case @ & group XAB$R_FILL_19_~ WORD NET_NOREAD_bits ! COMMENT ADDED BY SDL - NET_NOREAD_bits contains bits NET_NOREAD through FILL_20_* end group XAB$R_FILL_19_ end variant! end group XAB$R_FILL_18_ WORD XAB$W_OWNER_ACC WORD XAB$W_GROUP_ACC WORD XAB$W_WORLD_ACC end record XABNETEXTPROT 2 DECLARE LONG CONSTANT XAB$S_XABNETDAPVER = 5 record XABNETDAPVER BYTE XAA B$B_VER_DAP BYTE XAB$B_VER_ECO BYTE XAB$B_VER_CUS BYTE XAB$B_VER_DSV BYTE XAB$B_VER_CSV end record XABNETDAPVER 2 DECLARE LONG CONSTANT XAB$S_XABNETCAPDEF = 7 record XABNETCAPDEFx BYTE CAP_FILALL_bits ( 7 ) ! COMMENT ADDED BY SDL - CAP_FILALL_bits contains bits CAP_FILALL through FILL_21_ end record XABNETCAPDEF 1 DECLARE LONG CONSTANT XAB$S_BUFFER_SIZE = 49 DECLARE LONG CONSTANT XAB$S_NETWORK_ B BLOCK_COUNT = 43 DECLARE LONG CONSTANT XAB$S_REMOTE_SYSTEM = 48 DECLARE LONG CONSTANT XAB$S_REMOTE_FILE_SYSTEM = 43 DECLARE LONG CONSTANT XAB$S_EXTPROT_LOCAL = 84 DECLARE LONG CONSTANT XAB$S_EXTPROT_REMOTE = 83 DECLARE LONG CONSTANT XAB$S_CAPABIL_LOCAL = 84 DECLARE LONG CONSTANT XAB$S_CAPABIL_REMOTE = 82 DECLARE LONG CONSTANT XAB$S_DAPVER_LOCAL = 53 DECLARE LONG CONSTANT XAB$S_DAPVER_REMOTE = 5/ DECLARE LONG CONSTANT XAB$S_CACHE_TMO = 42  DECLARE LONG CONSTANT XAB$S_HINT_LENGTH = 162 DECLARE LONG CONSTANT XAB$S_GBC32_LENGTH = 45 DECLARE LONG CONSTANT XAB$S_GBCFLAGS_LENGTH = 4 wwD Z ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED E ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINF G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > G %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! Recovery Unit XAB definitions ! $xabrudef ! < DECLARE LONG CONSTANT XAB$C_RU = 35 ! xabru id code6 DECLARE LONG CONSTANT XAB$M_NOJOIN = x'00000001'/ H DECLARE LONG CONSTANT XAB$S_XABRUDEF = 48 record XABRUDEF BYTE XABRUDEF$$_FILL_1 BYTE XABRUDEF$$_FILL_2 WORD XABRUDEF$$_FILL_3T LONG XABRUDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD/ ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF% group XAB$R_RU_FLAGS_OVERLAY variant case4 WORD XAB$W_RU_FLAGS ! Flags case+ I group XAB$R_RU_FLAGS_BITS6 ! Do not join any recovery unitr BYTE NOJOIN_bits ! COMMENT ADDED BY SDL - NOJOIN_bits contains bits NOJOIN through FILL_22_/ end group XAB$R_RU_FLAGS_BITS end variant) end group XAB$R_RU_FLAGS_OVERLAY WORD XABRUDEF$$_FILL_5N LONG XAB$L_RU_HANDLE ! RU handle to join (input field)N LONG XAB$L_RU_HANDLE_JOINED ! RU handle joined (output field) LONG XABRUDEF$$_FILL_7 LONG XABRUDEF$$_FILL_8 LONG XABRUDEF$$_FILL_9 LONG XABRUDEF$$_FILL_10 LONG XABRUDEF$$_FILL_11 LONG XABRUDEF$$_FILL_12 LONG XABRUDEF$$_FILL_13 end record XABRUDEF C ! basealign on aggregate XABRUDEF operates after aggregate end, DECLARE LONG CONSTANT XAB$K_RULEN = 48, DECLARE LONG CONSTANT XAB$C_RULEN = 48 wwK [ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED L ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINM G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > N %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! / ! Descriptor codes for SYS$FILESCAN ! 5 DECLARE LONG CONSTANT FSCN$M_NODE = x'00000001'7 DECLARE LONG CONSTANT FSCN$M_DEVICE = x'00000002'5 DECLARE LONG CONSTANT FSCN$M_R O OOT = x'00000004': DECLARE LONG CONSTANT FSCN$M_DIRECTORY = x'00000008'5 DECLARE LONG CONSTANT FSCN$M_NAME = x'00000010'5 DECLARE LONG CONSTANT FSCN$M_TYPE = x'00000020'8 DECLARE LONG CONSTANT FSCN$M_VERSION = x'00000040'= DECLARE LONG CONSTANT FSCN$M_NODE_PRIMARY = x'00000080'9 DECLARE LONG CONSTANT FSCN$M_NODE_ACS = x'00000100'? DECLARE LONG CONSTANT FSCN$M_NODE_SECONDARY = x'00000200'/ DECLARE LONG CONSTANT FSCN$S_FLDFLAGS = 4 record FLDP FLAGS ! Node name present ! Device name present# ! Root directory present ! Directory present ! File name present ! File type present! ! File version present) ! Primary (first) node present ! Primary ACS present# ! Secondary node present ! Fill out longword^ LONG NODE_bits ! COMMENT ADDED BY SDL - NODE_bits contains bits NODE through FILL_1 end record F Q LDFLAGS D DECLARE LONG CONSTANT FSCN$_FILESPEC = 1 ! complete filespec; DECLARE LONG CONSTANT FSCN$_NODE = 2 ! node:: field> DECLARE LONG CONSTANT FSCN$_DEVICE = 3 ! device: field< DECLARE LONG CONSTANT FSCN$_ROOT = 4 ! [root.] fieldE DECLARE LONG CONSTANT FSCN$_DIRECTORY = 5 ! [directory] field9 DECLARE LONG CONSTANT FSCN$_NAME = 6 ! name field9 DECLARE LONG CONSTANT FSCN$_TYPE = 7 ! .typ field@ DECLARE LONG CONSTANT FSCN$_VERSIO R N = 8 ! ;version fieldI DECLARE LONG CONSTANT FSCN$_NODE_PRIMARY = 9 ! primary node fieldH DECLARE LONG CONSTANT FSCN$_NODE_ACS = 10 ! acc. cont. str. fld.N DECLARE LONG CONSTANT FSCN$_NODE_SECONDARY = 11 ! secondary node field/ DECLARE LONG CONSTANT FSCN$S_ITEM_LEN = 8. DECLARE LONG CONSTANT FSCN$S_FSCNDEF = 8 record FSCNDEFA WORD FSCN$W_LENGTH ! return length word> WORD FSCN$W_ITEM_CODE ! item code value@ LONG FSCN$L_ADDR ! component address end record FSCNDEF  wwT 9 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED U ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINV G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > W %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  , DECLARE LONG CONSTANT RME$C_SETRFM = 1- DECLARE LONG CONSTANT RME$C_PPFECHO = 2, DECLARE LONG CONSTANT RME$C_SETRCF = 32 DECLARE LONG CONSTANT RME$C_KEEP_LOCK_ON = 43 DECLARE LONG CONSTANT RME$C_KEEP_LOCK_OFF = 5/ DECLARE LONG CONSTANT RME$C_RU_ACE_ON = 60 DECLARE LONG CONSTANT RME$C_RU_ACE_OFF = 71 DECLARE LONG CONSTANT RME$C_SET_RECATTR = 8wwY ʌ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED Z ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN[ G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > \ %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  $ ! SCREEN PACKAGE REQUEST TYPES D DECLARE LONG CONSTANT SCR$C_PUT_SCREEN = 0 ! SCR$PUT_SCREEN D DECLARE LONG CONSTANT SCR$C_GET_SCREEN = 1 ! SCR$GET_SCREEN D DECLARE LONG CONSTANT SCR$C_ERAS] E_PAGE = 2 ! SCR$ERASE_PAGE D DECLARE LONG CONSTANT SCR$C_ERASE_LINE = 3 ! SCR$ERASE_LINE D DECLARE LONG CONSTANT SCR$C_SET_CURSOR = 4 ! SCR$SET_CURSOR F DECLARE LONG CONSTANT SCR$C_DOWN_SCROLL = 5 ! SCR$DOWN_SCROLL F DECLARE LONG CONSTANT SCR$C_SCREEN_INFO = 6 ! SCR$SCREEN_INFO @ DECLARE LONG CONSTANT SCR$C_PUT_LINE = 7 ! SCR$PUT_LINE F DECLARE LONG CONSTANT SCR$C_MOVE_CURSOR = 8 ! SCR$MOVE_CURSOR D DECLARE LONG CONSTANT SCR$C_SET_SCROLL = 9 ! ^ SCR$SET_SCROLL C DECLARE LONG CONSTANT SCR$C_UP_SCROLL = 10 ! SCR$UP_SCROLL  ! ? ! DEFINE BIT MASKS AND VALUES FOR SCREEN ATTRIBUTES ! 4 DECLARE LONG CONSTANT SCR$M_BOLD = x'00000001'7 DECLARE LONG CONSTANT SCR$M_REVERSE = x'00000002'5 DECLARE LONG CONSTANT SCR$M_BLINK = x'00000004'9 DECLARE LONG CONSTANT SCR$M_UNDERLINE = x'00000008'< DECLARE LONG CONSTANT SCR$M_NORMAL = 0 ! no bits set , DECLARE LONG CONSTANT SCR$S_SCRDEF = 1_ record SCRDEF variant case& group SCR$R_SCRDEF_BITSh BYTE BOLD_bits ! COMMENT ADDED BY SDL - BOLD_bits contains bits BOLD through FILL_0_* end group SCR$R_SCRDEF_BITS end variant end record SCRDEF  ! < ! DEFINE FORMAT OF SCR$SCREEN_INFO RETURN BUFFER ! 6 DECLARE LONG CONSTANT SCR$M_SCREEN = x'00000001'7 DECLARE LONG CONSTANT SCR$M_ANSICRT = x'00000002'5 DECLAR ` E LONG CONSTANT SCR$M_REGIS = x'00000004'5 DECLARE LONG CONSTANT SCR$M_BLOCK = x'00000008'3 DECLARE LONG CONSTANT SCR$M_AVO = x'00000010'4 DECLARE LONG CONSTANT SCR$M_EDIT = x'00000020'6 DECLARE LONG CONSTANT SCR$M_DECCRT = x'00000040'O DECLARE LONG CONSTANT SCR$K_LENGTH = 20 ! LENGTH OF INFO RETURN BUFFER O DECLARE LONG CONSTANT SCR$C_LENGTH = 20 ! LENGTH OF INFO RETURN BUFFER . DECLARE LONG CONSTANT SCR$S_SCRDEF1 = 20 record SCRDEF1" a group SCR$R_FLAGS_OVERLAY variant case> LONG SCR$L_FLAGS ! FLAGS LONGWORD  case( group SCR$R_FLAGS_BITS< ! 1 = SCREEN ORIENTED, 0 = SCROLLING ' ! ANSI TERMINAL ( ! REGIS TERMINAL - ! BLOCK MODE TERMINAL 1 ! ADVANCED VIDEO TERMINAL 6 ! TERMINAL HAS EDIT CAPABILITY / b ! TERMINAL IS A DEC CRT q BYTE SCREEN_bits ! COMMENT ADDED BY SDL - SCREEN_bits contains bits SCREEN through FILL_1_, end group SCR$R_FLAGS_BITS end variant& end group SCR$R_FLAGS_OVERLAYB WORD SCR$W_WIDTH ! WIDTH OF EACH LINE ? WORD SCR$W_PAGESIZE ! LINES IN SCREEN H BYTE SCR$B_DEVTYPE ! DEVICE TYPE (SEE $DCDEF) = BYTE SCRDEF$$_FILL_1 ( 1 to 11 ) ! (RESERVED)  end record SCRDEF1 wwd - ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED e ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINf G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > g %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:48.38 !  ! + SECSRVMSG.MSG ! + IDENT X-7 ! ' ! MESSAGE FILE FOR SECSRV FACILITY ! / ! VAX A h ND AXP STREAMS SHOULD BE IDENTICAL. !  ! REVISION HISTORY:. ! X-7 JAH0342 JOHN A HARNEY 05-OCT-19996 ! ADD CLUSTER-WIDE INTRUSION DETECTION MESSAGES:0 ! CIACRECLUDB CREATED CLUSTER DATABASE. ! CIACRELOCDB CREATED LOCAL DATABASE7 ! CIAEXISTCLU USING EXISTING CLUSTER DATABASE5 ! CIAEXISTLOC USING EXISTING LOCAL DATABASE ! . ! X-6 JAH0298 JOHN A HARNEY 10-JUN-1998= ! REMOVE "try again later" FROM PROXYNOTACTIi VE MESSAGE. ! . ! X-5 JAH0166 JOHN A HARNEY 14-NOV-1994 ! FIX MORE MESSAGE TEXT. ! . ! X-4 JAH0166 JOHN A HARNEY 09-NOV-1994@ ! FIX MESSAGE TEXT AND SPELLING ERRORS AFTER REVIEW BY THE ! DOCUMENTATION GROUP.  ! d ! ** NOTE ** MAKE SURE WHEN YOU MODIFY THIS FILE THAT YOU ALSO MODIFY [SECSRV]SECSRVMSG_.ADA$ ! TO MATCH YOUR CHANGES HERE. ! 3 DECLARE LONG CONSTANT SECSRV$_FACILITY = 1774 ! A DECLARE LONG CONSTANT SECS j RV$_SERVERRADIOACTIVE = 116299635 ! = DECLARE LONG CONSTANT SECSRV$_SERVERRESTART = 116299643> DECLARE LONG CONSTANT SECSRV$_SERVERSHUTDOWN = 116299651< DECLARE LONG CONSTANT SECSRV$_COULDNTSTART = 116299659> DECLARE LONG CONSTANT SECSRV$_COULDNTRESTART = 116299667= DECLARE LONG CONSTANT SECSRV$_PROXYSHUTDOWN = 116299675; DECLARE LONG CONSTANT SECSRV$_CIASHUTDOWN = 116299683@ DECLARE LONG CONSTANT SECSRV$_SERVERSTARTINGUP = 116299691? DECLARE LO k NG CONSTANT SECSRV$_PROXYSTARTINGUP = 116299699= DECLARE LONG CONSTANT SECSRV$_CIASTARTINGUP = 1162997078 DECLARE LONG CONSTANT SECSRV$_INTRUDER = 1162997157 DECLARE LONG CONSTANT SECSRV$_SUSPECT = 116299723= DECLARE LONG CONSTANT SECSRV$_CREATEPROXYDB = 116299731= DECLARE LONG CONSTANT SECSRV$_PROXYMODIFIED = 116299739A DECLARE LONG CONSTANT SECSRV$_NOSCANNEDINTRUDER = 116299747? DECLARE LONG CONSTANT SECSRV$_INVALIDTERMNAME = 116299755; DECLARE l LONG CONSTANT SECSRV$_CIACRECLUDB = 116299763; DECLARE LONG CONSTANT SECSRV$_CIACRELOCDB = 116299771; DECLARE LONG CONSTANT SECSRV$_CIAEXISTCLU = 116299779; DECLARE LONG CONSTANT SECSRV$_CIAEXISTLOC = 116299787< DECLARE LONG CONSTANT SECSRV$_NORDPROXYREC = 116305632: DECLARE LONG CONSTANT SECSRV$_NOSUCHUSER = 116311634= DECLARE LONG CONSTANT SECSRV$_DUPLICATEUSER = 116311642= DECLARE LONG CONSTANT SECSRV$_INVALIDDELETE = 116311650< DECLARE LONG CON m STANT SECSRV$_UPDATEFAILED = 116311658; DECLARE LONG CONSTANT SECSRV$_NOSUCHPROXY = 116311666? DECLARE LONG CONSTANT SECSRV$_DBALREADYEXISTS = 116311674< DECLARE LONG CONSTANT SECSRV$_TOOMANYUSERS = 116311682> DECLARE LONG CONSTANT SECSRV$_BADNODENAMELEN = 116311690= DECLARE LONG CONSTANT SECSRV$_BADREMUSERLEN = 116311698? DECLARE LONG CONSTANT SECSRV$_BADLOCALUSERLEN = 116311706; DECLARE LONG CONSTANT SECSRV$_PROXYACTIVE = 116311714> DECLARE LONG C n ONSTANT SECSRV$_PROXYNOTACTIVE = 1163117229 DECLARE LONG CONSTANT SECSRV$_NOPROXYDB = 116311730J DECLARE LONG CONSTANT SECSRV$_NOSUCHINTRUDER = 116311738 ! NOMATCHF DECLARE LONG CONSTANT SECSRV$_CIADBEMPTY = 116311746 ! DBEMPTY9 DECLARE LONG CONSTANT SECSRV$_INSUFINFO = 116311754; DECLARE LONG CONSTANT SECSRV$_AUDITFAILED = 116311762< DECLARE LONG CONSTANT SECSRV$_ASSIGNFAILED = 1163117709 DECLARE LONG CONSTANT SECSRV$_QIOFAILED = 116311778< DECL o ARE LONG CONSTANT SECSRV$_DASSGNFAILED = 116311786: DECLARE LONG CONSTANT SECSRV$_BADJOBTYPE = 116311794? DECLARE LONG CONSTANT SECSRV$_SERVERNOTACTIVE = 116311802< DECLARE LONG CONSTANT SECSRV$_PROXYNOTOPEN = 116311810? DECLARE LONG CONSTANT SECSRV$_PROXYTERMINATED = 116317636= DECLARE LONG CONSTANT SECSRV$_CIATERMINATED = 116317644@ DECLARE LONG CONSTANT SECSRV$_SERVERTERMINATED = 116317652< DECLARE LONG CONSTANT SECSRV$_CREMBXFAILED = 1163176607 DE p CLARE LONG CONSTANT SECSRV$_RUNNING = 116317668: DECLARE LONG CONSTANT SECSRV$_CONSTERROR = 1163176769 DECLARE LONG CONSTANT SECSRV$_TASKERROR = 116317684@ DECLARE LONG CONSTANT SECSRV$_OUTCOMTERMINATED = 116317692C DECLARE LONG CONSTANT SECSRV$_SRVREPLYTIMEOUT = 116317700 ! # ! ADD TEMPORARY MESSAGES HERE. ! 7 DECLARE LONG CONSTANT SECSRV$_CONVERT = 116323635A DECLARE LONG CONSTANT SECSRV$_VERIFY_CONVERSION = 116323643? DECLARE LONG CONSTANT SECSRV$_CONVERT_SUCCESS = 116323651ww jL ! *** PREDECLARED TYPESV : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )G END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF D< %IF %DECLARED s  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED t ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINu G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > v %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:29.43 ! > ! SHRMSG.MSG - SYSTEM DEFINITION FILE FOR SHARED MESSAGES !  ! VERSION: 'X-13' ! P ! *****w ********************************************************************P ! * *P ! * COPYRIGHT 2003 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *P ! * *P ! * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR *P ! * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. *P ! * x *P ! * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, *P ! * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL *P ! * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD *P ! * COMMERCIAL LICENSE. *P ! * *P ! * NEITHER HP NOR ANY OF ITS SUBSIy DIARIES SHALL BE LIABLE FOR TECHNICAL *P ! * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION *P ! * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND *P ! * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS *P ! * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING *P ! * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN *P ! * ADDITIONAL WARRANTY. z *P ! * *P ! ************************************************************************* ! ++ ! 0 ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! A ! THIS FILE CONTAINS THE MDL SOURCE FOR THE SHARED MESSAGES. !  ! ENVIRONMENT: ! ! N/A !  ! -- !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976{ !  ! MODIFIED BY: ! + ! X-13 GP072104 GUY PELEG 21-JUL-2004 ! ADD SYMLINKERR. ! + ! X-12 GP011104 GUY PELEG 11-JAN-2004 ! CHANGED TEXT OF MBXDEL. ! + ! X-11 GP010604 GUY PELEG 06-JAN-20042 ! ADD NEW MESSAGE TO SUPPORT DELETE/MAILBOX. ! + ! X-10 GP022503 GUY PELEG 25-FEB-2003@ ! ADD NEW MESSAGES TO SUPPORT B2B IN DELETE,COPY AND PURGE ! / ! X-9 TMS0357 TODD SCHOELLER 19-FEB-1998) ! ADD NOFIDS -- FI | DS NOT PERMITTED. ! / ! X-8 TMS0317 TODD SCHOELLER 9-MAR-1997? ! ADD MESSAGES FOR HFS INVOLVING INABILITY FOR PROCESSINGA ! FILES WITH DIDS AND FIDS (FILDID, FILFID, AND FILDIDFID). ! / ! X-7 RG40042 RAY GUZMAN 11-JAN-1991< ! ADD A MESSAGE BADFORMAT TO INDICATE A FILE FORMAT IS ! INCOMPATIBLE. ! 1 ! X-6 SEH0021 SUSAN E. HEIMBACH 14-DEC-19897 ! ADD MESSAGE NOMEANING; TO BE USED FOR QUEMAN'S : ! START/QUEUE/MANAGER COMM} AND'S OBSOLETE QUALIFIERS.. ! ADD OPENERR AND CLOSEERR. ! 1 ! X-5 SEH0011 SUSAN E. HEIMBACH 09-DEC-1988; ! ADD MESSAGE NOTDELETED; TO BE USED BY QUEMAN DELETE ! COMMANDS. ! ' ! X-4 RJS RON SOMMER 12-OCT_1987= ! ADD MESSAGE PRDCONT. COMMON LMF MESSAGE TO BE USED BY= ! SYSTEM LAYERED PRODUCTS WHEN LICENSE CHECK HAS FAILED, ! BUT PRODUCT EXECUTION IS CONTINUING. ! / ! X-3 AEW0002 ANNE E. WARNER 08-DEC-1986< ! ~ 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. ! 5 ! V03-011 TSK0002 TAMAR KRICHEVSKY 28-MAR-1984 ! ADD NOSUCHID. ! H ! V03-010 AEW0001 ANNE E. WARNER 6-MAR-19843 ! ADD FILSPCSRCH AND NOSRCHLIST.N ! FILSPCSRCH - FILE SPECIFICATION CONTAINS A SEARCH LIST.J  ! NOSRCHLST - COMMAND DOES NOT SUPPORT SEARCH LISTS.H ! BOTH MESSAGES ORIGINALLY IN [CLIUTL.SRC]SETDIR.B32. ! 4 ! V03-009 TSK0001 TAMAR KRICHEVSKY 8-FEB-1984 ! ADD QUALMISS. ! 8 ! V03-008 SHZ0004 STEPHEN H. ZALEWSKI, 28-FEB-1983" ! CHANGED TEXT OF NOFILPURG. ! 8 ! V03-007 SHZ0003 STEPHEN H. ZALEWSKI, 11-JAN-1983> ! ADD FILNOTACC. MAKE DELINTERR AND DIRTOBUSY OBSOLETE. ! 5 ! V03-006 SBL3006 STEVEN B.  LIONEL, 19-NOV-1982 ! ADD NOFILES. ! : ! V03-005 MLJ0094 MARTIN L. JACK, 31-JUL-1982 23:18 ! ADD INVQUAVAL. ! ? ! V03-004 SHZ0002 STEPHEN H. ZALEWSKI, 23-JUL-1982 16:405 ! ADDED TOTAL, PURGED, AND FILDELETED MESSAGES. ! 2 ! V03-003 BLS0152 BENN SCHREIBER 25-MAY-1982 ! ADD PRODNOTINS MESSAGE ! / ! V03-002 GAS0068 GERRY SMITH 31-MAR-1982 ! ADD NOTRUNC MESSAGE. ! : ! V03-001 MLJ0084 MARTIN L. JACK, 28-MAR-1982 14:48/ ! CLEAN UP INITIAL CAPITALIZATION ERRORS. ! J ! THESE MESSAGE CODES SHOULD NOT BE USED DIRECTLY BY A FACILITY SINCEG ! THEY DO NOT CONTAIN A SUBSYSTEM (I.E., FACILITY) IDENTIFIER OR AM ! SEVERITY CODE. USE THE FOLLOWING FORMULA TO CALCULATE ACTUAL FACILITY ! MESSAGE CODES.4 ! FACILITY MESSAGE CODE = COMMON MESSAGE CODE + ! FACILITY ID * 65536 + ! SEVERITY CODE- DECLARE LONG CONSTANT SHR$_FACILITY = 01 DECLARE LONG CONST ANT SHR$_APPENDEDB = 40961 DECLARE LONG CONSTANT SHR$_APPENDEDR = 4104/ DECLARE LONG CONSTANT SHR$_BADBYTE = 41120 DECLARE LONG CONSTANT SHR$_BADFIELD = 4120/ DECLARE LONG CONSTANT SHR$_BADLONG = 4128/ DECLARE LONG CONSTANT SHR$_BADWORD = 4136- DECLARE LONG CONSTANT SHR$_BEGIN = 4144. DECLARE LONG CONSTANT SHR$_BEGIND = 4152. DECLARE LONG CONSTANT SHR$_BEGINT = 4160- DECLARE LONG CONSTANT SHR$_CLICB = 4168/ DECLARE LONG CONSTANT SHR$_C LOSEIN = 41760 DECLARE LONG CONSTANT SHR$_CLOSEOUT = 4184/ DECLARE LONG CONSTANT SHR$_COPIEDB = 4192/ DECLARE LONG CONSTANT SHR$_COPIEDR = 4200/ DECLARE LONG CONSTANT SHR$_CREATED = 4208- DECLARE LONG CONSTANT SHR$_ENDED = 4216. DECLARE LONG CONSTANT SHR$_ENDEDD = 4224. DECLARE LONG CONSTANT SHR$_ENDEDT = 42320 DECLARE LONG CONSTANT SHR$_NEWFILES = 4240. DECLARE LONG CONSTANT SHR$_OPENIN = 4248/ DECLARE LONG CONSTANT SHR$_OPENOUT = 4256 / DECLARE LONG CONSTANT SHR$_OVERLAY = 4264/ DECLARE LONG CONSTANT SHR$_READERR = 42720 DECLARE LONG CONSTANT SHR$_REPLACED = 42802 DECLARE LONG CONSTANT SHR$_WILDCONCAT = 42882 DECLARE LONG CONSTANT SHR$_WILDOUTVER = 42960 DECLARE LONG CONSTANT SHR$_WRITEERR = 4304- DECLARE LONG CONSTANT SHR$_ABEND = 4312. DECLARE LONG CONSTANT SHR$_ABENDD = 4320. DECLARE LONG CONSTANT SHR$_ABENDT = 43282 DECLARE LONG CONSTANT SHR$_SYSERRORPC = 4336. DECLARE LONG CONSTANT SHR$_SYNTAX = 4344/ DECLARE LONG CONSTANT SHR$_NOVALUE = 4352. DECLARE LONG CONSTANT SHR$_BADKEY = 43600 DECLARE LONG CONSTANT SHR$_BADVALUE = 43680 DECLARE LONG CONSTANT SHR$_BADDELIM = 43760 DECLARE LONG CONSTANT SHR$_BADLOGIC = 4384. DECLARE LONG CONSTANT SHR$_NOWILD = 4392, DECLARE LONG CONSTANT SHR$_TEXT = 44001 DECLARE LONG CONSTANT SHR$_IDXCONCAT = 44081 DECLARE LONG CONSTANT SHR$_RELCONCAT = 4416/ DECLARE LO NG CONSTANT SHR$_HIGHVER = 44242 DECLARE LONG CONSTANT SHR$_BADLOGICPC = 4432, DECLARE LONG CONSTANT SHR$_ATPC = 44401 DECLARE LONG CONSTANT SHR$_BADCOPIES = 4448/ DECLARE LONG CONSTANT SHR$_BADFORM = 44560 DECLARE LONG CONSTANT SHR$_BADJOBID = 44642 DECLARE LONG CONSTANT SHR$_BADJOBNAME = 4472/ DECLARE LONG CONSTANT SHR$_BADPRTY = 44800 DECLARE LONG CONSTANT SHR$_BADQNAME = 4488/ DECLARE LONG CONSTANT SHR$_BADTIME = 4496/ DECLARE LONG C ONSTANT SHR$_NOQUEUE = 4504/ DECLARE LONG CONSTANT SHR$_NOJOBID = 45121 DECLARE LONG CONSTANT SHR$_NOJOBNAME = 45200 DECLARE LONG CONSTANT SHR$_SYSERROR = 45281 DECLARE LONG CONSTANT SHR$_NOTCOPIED = 45360 DECLARE LONG CONSTANT SHR$_NOTCMPLT = 45440 DECLARE LONG CONSTANT SHR$_RMSERROR = 45521 DECLARE LONG CONSTANT SHR$_UNXPCTSTS = 45602 DECLARE LONG CONSTANT SHR$_HASHCONCAT = 45680 DECLARE LONG CONSTANT SHR$_INCOMPAT = 4576. DECLARE LONG CONSTANT SHR$_VALERR = 45841 DECLARE LONG CONSTANT SHR$_FILNOTDEL = 4592/ DECLARE LONG CONSTANT SHR$_CONFDEL = 4600/ DECLARE LONG CONSTANT SHR$_DELETED = 4608. DECLARE LONG CONSTANT SHR$_DELVER = 46160 DECLARE LONG CONSTANT SHR$_PURGEVER = 46240 DECLARE LONG CONSTANT SHR$_CLOSEDEL = 46321 DECLARE LONG CONSTANT SHR$_DIRTOOBUS = 46401 DECLARE LONG CONSTANT SHR$_NOFILPURG = 46481 DECLARE LONG CONSTANT SHR$_FILNOTPUR = 46562 DECLARE LONG C ONSTANT SHR$_SEARCHFAIL = 46641 DECLARE LONG CONSTANT SHR$_DELINTERR = 46721 DECLARE LONG CONSTANT SHR$_PARSEFAIL = 46801 DECLARE LONG CONSTANT SHR$_FILPURGED = 46880 DECLARE LONG CONSTANT SHR$_ENDABORT = 46960 DECLARE LONG CONSTANT SHR$_ENDDIAGS = 47040 DECLARE LONG CONSTANT SHR$_ENDNOOBJ = 4712. DECLARE LONG CONSTANT SHR$_HALTED = 47200 DECLARE LONG CONSTANT SHR$_NOCMDMEM = 4728. DECLARE LONG CONSTANT SHR$_QEMPTY = 4736+ DECLARE LONG CON STANT SHR$_CBT = 4744. DECLARE LONG CONSTANT SHR$_EXISTS = 47520 DECLARE LONG CONSTANT SHR$_UNLOCKED = 4760/ DECLARE LONG CONSTANT SHR$_RENAMED = 47681 DECLARE LONG CONSTANT SHR$_PROTECTED = 47761 DECLARE LONG CONSTANT SHR$_NOTLOCKED = 47840 DECLARE LONG CONSTANT SHR$_ACTIMAGE = 47921 DECLARE LONG CONSTANT SHR$_DIRNOTCRE = 48001 DECLARE LONG CONSTANT SHR$_NODESTQUE = 48081 DECLARE LONG CONSTANT SHR$_ILLDESQUE = 4816/ DECLARE LONG CONST ANT SHR$_NOTTERM = 48240 DECLARE LONG CONSTANT SHR$_CONFQUAL = 48322 DECLARE LONG CONSTANT SHR$_ILLDIRCOPY = 48401 DECLARE LONG CONSTANT SHR$_INSVIRMEM = 48482 DECLARE LONG CONSTANT SHR$_CREATEDSTM = 4856/ DECLARE LONG CONSTANT SHR$_NOTRUNC = 48642 DECLARE LONG CONSTANT SHR$_PRODNOTINS = 4872- DECLARE LONG CONSTANT SHR$_TOTAL = 4880/ DECLARE LONG CONSTANT SHR$_FILPURG = 4888. DECLARE LONG CONSTANT SHR$_FILDEL = 48961 DECLARE LONG CONSTAN T SHR$_INVQUAVAL = 4904/ DECLARE LONG CONSTANT SHR$_NOFILES = 49121 DECLARE LONG CONSTANT SHR$_FILNOTACC = 49200 DECLARE LONG CONSTANT SHR$_QUALMISS = 49282 DECLARE LONG CONSTANT SHR$_FILSPCSRCH = 49361 DECLARE LONG CONSTANT SHR$_NOSRCHLST = 49440 DECLARE LONG CONSTANT SHR$_NOSUCHID = 49520 DECLARE LONG CONSTANT SHR$_AMBIGANS = 49600 DECLARE LONG CONSTANT SHR$_INVALANS = 4968/ DECLARE LONG CONSTANT SHR$_PRDCONT = 49762 DECLARE LONG CONST ANT SHR$_NOTDELETED = 49841 DECLARE LONG CONSTANT SHR$_NOMEANING = 4992/ DECLARE LONG CONSTANT SHR$_OPENERR = 50000 DECLARE LONG CONSTANT SHR$_CLOSEERR = 50081 DECLARE LONG CONSTANT SHR$_BADFORMAT = 5016. DECLARE LONG CONSTANT SHR$_FILDID = 5024. DECLARE LONG CONSTANT SHR$_FILFID = 50321 DECLARE LONG CONSTANT SHR$_FILDIDFID = 5040. DECLARE LONG CONSTANT SHR$_NOFIDS = 50482 DECLARE LONG CONSTANT SHR$_FILPURGBYT = 50561 DECLARE LONG CONSTANT SHR$_FILDELBYT = 50640 DECLARE LONG CONSTANT SHR$_TOTALBYT = 50721 DECLARE LONG CONSTANT SHR$_COPIEDBYT = 50803 DECLARE LONG CONSTANT SHR$_APPENDEDBYT = 5088. DECLARE LONG CONSTANT SHR$_MBXDEL = 50962 DECLARE LONG CONSTANT SHR$_SYMLINKERR = 5104ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 7 ! Symbiont/Job Controller Interface (SMB) Routines !  ! D ! SMB$CHECK_FOR_MESSAGE - Check for Message from Job Controller ! ( ! status = SMB$CHECK_FOR_MESSAGE () ! 3 EXTERNAL LONG FUNCTION SMB$CHECK_FOR_MESSAGE ! 8 ! SMB$INITIALIZE - Initialize User-Written Symbiont ! J ! status = SMB$INITIALIZE (structure_level [,ast_routine] [,streams]) ! J ! structure_level - Version of the job-controller/symbiont interface6 ! ast_routine - Message-handling AST routine> ! streams - Maximum number of streams to support ! . EXTERNAL LONG FUNCTION SMB$INITIALIZE & ( &" LONG BY  REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! ? ! SMB$READ_MESSAGE - Obtain Message Sent by Job Controller ! : ! status = SMB$READ_MESSAGE (stream, buffer, request) ! + ! stream - Stream number for message6 ! buffer - Buffer into which message is written2 ! request - Code that identifies the request ! 0 EXTERNAL LONG FUNCTION SMB$READ_MESSAGE & ( &"  LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! B ! SMB$READ_MESSAGE_ITEM - Parse Next Item from Message Buffer ! J ! status = SMB$READ_MESSAGE_ITEM (message, context, item_code, buffer0 ! [, size]) ! ) ! message - Message items to read! ! context - Context value- ! item_code - Item code of message read ! buffer - Message item( ! size  - Size of message item ! 5 EXTERNAL LONG FUNCTION SMB$READ_MESSAGE_ITEM & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! : ! SMB$SEND_TO_JOBCTL - Send Message to Job Controller ! C ! status = SMB$SEND_TO_JOBCTL (stream [,request] [,accounting]9 ! [,checkpoint] [,d evice_status] [,error]) ! @ ! stream - Number of stream to which message refers@ ! request - Code identifying request being completed; ! accounting - Accounting information about a task: ! checkpoint - Checkpoint data about current task? ! device_status - Status of device served by the symbiontE ! error - Condition code returned by the requested task ! 2 EXTERNAL LONG FUNCTION SMB$SEND_TO_JOBCTL & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, && LONG DIM() BY REF & )ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.01 !  ! R ! **************************************************************************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON E QUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! FACILITY: ! SYMBIONT. !  ! ABSTRACT: ! SYMBIONT MESSAGES. ! M ! THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FORL ! MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY ! THE $MSGDEF MACRO. !  ! ENVIR ONMENT:$ ! VAX/VMS USER AND KERNEL MODE. ! > ! AUTHOR: ROWLAND R. BRADLEY, CREATION DATE: 20-JULY-1984 !  ! MODIFIED BY: ! 7 ! X-2 LMP0560 L. MARK PILANT, 27-MAR-1992 14:08< ! CHANGE THE MACRO NAME FROM $PSMMSGDEF TO $SMBMSGDEF. ! 2 ! 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 ! ADD .END. ! 5 ! 3B-009 RRB0009 ROWLAND R. BRADLEY 20-JUL-1984B ! REMOVED THESE DEFINITIONS FOR SMB AND PLACED IN A SEPARATEE ! FILE SMB MSG.MSG. THIS ACCOMPLISHES THE RENAMING OF MESSAGES A ! WITH A SEPARATE FACILITY CODE. NOW TWO TYPES OF MESSAGES; ! SMB$... AND PSM$... DEPENDING ON THE CONTEXT OF THEA ! ERROR. AUDIT TRAIL BEGINS AT HIGHER NUMBER SINCE THIS IS% ! A CONTINUATION OF PSMMSG.MSG. !  ! ** ! / DECLARE LONG CONSTANT SMB$_FACILITY = 2727 DECLARE LONG CONSTANT SMB$_NOMOREITEMS = 178585625 DECLARE LONG CONSTANT SMB$_INVSTMNBR = 178585725 DECLARE LONG CONSTANT SMB$_INVSTRLEV = 17858580ww F ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *. ! COPYRIGHT (c) 1992, 1995 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ' ! TR ANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! **************** *********************************************************** ! SMG$ADD_KEY_DEF !  ! Add Key Definition ! J ! The Add Key Definition routine adds a keypad key definition to a# ! table of key definitions. ! ! / EXTERNAL LONG FUNCTION smg$add_key_def & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &%  STRING BY DESC, &$ STRING BY DESC & ) ! SMG$ALLOW_ESCAPE ! ! Allow Escape Sequences ! N ! SMG$ALLOW_ESCAPE enables or disables SMG parsing of escape sequences0 ! which are output to a virtual display. ! 1 ! 0 EXTERNAL LONG FUNCTION smg$allow_escape & ( &" LONG BY REF, &! LONG BY REF &  )" ! SMG$BEGIN_DISPLAY_UPDATE ! + ! Begin Batching of Display Updates ! N ! The Begin Batching of Display Updates routine saves, or batches, all> ! output to a virtual display until a matching call to0 ! SMG$END_DISPLAY_UPDATE is encountered. ! ! 8 EXTERNAL LONG FUNCTION smg$begin_display_update & ( &! LONG BY REF & )% ! SMG$BEGIN_PASTEBOARD_UPDATE ! .  ! Begin Batching of Pasteboard Updates ! D ! The Begin Batching of Pasteboard Updates routine saves, orF ! batches, all output to a pasteboard until a matching call to3 ! SMG$END_PASTEBOARD_UPDATE is encountered. ! 1 ! ; EXTERNAL LONG FUNCTION smg$begin_pasteboard_update & ( &! LONG BY REF & ) ! SMG$CANCEL_INPUT !  ! Cancel Input R equest ! B ! The Cancel Input Request routine immediately cancels anyE ! read-in-progress that was issued by SMG$READ_COMPOSED_LINE,B ! SMG$READ_KEYSTROKE, SMG$READ_STRING, or SMG$READ_VERIFY. ! ! 0 EXTERNAL LONG FUNCTION smg$cancel_input & ( &! LONG BY REF & )( ! SMG$CHANGE_PBD_CHARACTERISTICS ! + ! Change Pasteboard Characteristics ! K ! The Change Pasteboard Ch aracteristics routine lets you change the7 ! characteristics associated with a pasteboard. ! > EXTERNAL LONG FUNCTION smg$change_pbd_characteristics & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$CHANGE_RENDITION  ! " ! Change Default Rendition ! K ! The Change Default Rendition routine changes the video attributes/ ! for all or part of a virtual display. ! ! 4 EXTERNAL LONG FUNCTION smg$change_rendition & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &!  LONG BY REF & ) ! SMG$CHANGE_VIEWPORT !  ! Change the Viewport ! K ! The Change the Viewport Associated with a Virtual Display routineL ! changes the size of an existing viewport in a virtual display. TheK ! text that is currently in the viewport is remapped to fit the new ! dimensions. ! 3 EXTERNAL LONG FUNCTION smg$change_viewport & ( &" LONG BY REF, & * OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )$ ! SMG$CHANGE_VIRTUAL_DISPLAY ! ! Change Virtual Display ! L ! The Change Virtual Display routine lets you change the dimensions,< ! border, and video attributes of a virtual display.1 ! : EXTERNAL LONG FUNCTION smg$change_virtual_displ ay & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )! ! SMG$CHECK_FOR_OCCLUSION !  ! Check for Occlusion ! I ! The Check for Occlusion routine checks to see whether a virtualC ! display is covered (occluded) by another virtual display. !  7 EXTERNAL LONG FUNCTION smg$check_for_occlusion & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$CONTROL_MODE !  ! Control Mode ! L ! The Control Mode routine controls the mode of the pasteboard. ThisM ! includes buffering, minimal updating, whether the screen is clearedM ! when the pasteboard is deleted, and whether tab characters are used ! for screen formatting. ! 0 EXTERNAL LONG FUNCTION smg$control_mode & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! WORD BY REF & )" ! SMG$COPY_VIRTUAL_DISPLAY ! ! Copy a Virtual Display ! J ! The Copy a Virtual Display routine creates a copy of an existingM ! virtual display and assigns to it a new virt ual display identifier. ! 8 EXTERNAL LONG FUNCTION smg$copy_virtual_display & ( &" LONG BY REF, &! LONG BY REF & ) ! SMG$CREATE_KEY_TABLE !  ! Create Key Table ! K ! The Create Key Table routine creates a table for key definitions. ! 4 EXTERNAL LONG FUNCTION smg$create_key_table & ( &! LONG BY REF & ) !  SMG$CREATE_MENU ! . ! Fill the Virtual Display with a Menu ! H ! The Fill the Virtual Display with a Menu routine displays menu ! choicesJ ! in the virtual display indicated, starting at the specified row. ! / EXTERNAL LONG FUNCTION smg$create_menu & ( &" LONG BY REF, &* STRING DIM() BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$CREATE_PASTEBOARD !  ! Create a Pasteboard ! U ! The Create Pasteboard routine creates a pasteboard and returns its assigned ! pasteboard identifier. ! 5 EXTERNAL LONG FUNCTION smg$create_pasteboard & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &"  LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! SMG$CREATE_SUBPROCESS ! , ! Create and Initialize a Subprocess ! F ! The Create and Initialize a Subprocess routine creates a DCL> ! subprocess and associates it with a virtual display. ! 5 EXTERNAL LONG FUNCTION smg$create_subprocess & ( & " LONG BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) ! SMG$CREATE_VIEWPORT ! # ! Create a Virtual Viewport ! F ! The Create a Virtual Viewport routine creates a viewport andL ! associates it with a virtual display. The location and size of the/ ! viewport are specified by the caller. ! 3 EXTERNAL LONG FUNCTION smg$cr eate_viewport & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )$ ! SMG$CREATE_VIRTUAL_DISPLAY ! " ! Create a Virtual Display ! J ! The Create Virtual Display routine creates a virtual display and ! returns& ! assigned display identifier. ! : EXTERNAL LONG FUNCTION smg$cr eate_virtual_display & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & )% ! SMG$CREATE_VIRTUAL_KEYBOARD ! ! ! Create Virtual Keyboard ! L ! The Create Virtual Keyboard routine creates a virtual keyboard and3 ! returns its assigned keyboard identifier . ! ; EXTERNAL LONG FUNCTION smg$create_virtual_keyboard & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &! BYTE BY REF & ) ! SMG$CURSOR_COLUMN ! ' ! Return Cursor Column Position ! G ! The Return Cursor Column Position routine returns the virtual ! cursor'sA !  current column position in a specified virtual display. ! 1 EXTERNAL LONG FUNCTION smg$cursor_column & ( &! LONG BY REF & ) ! SMG$CURSOR_ROW ! $ ! Return Cursor Row Position ! M ! The Return Cursor Row Position routine returns the virtual cursor's> ! current row position in a specified virtual display. ! . EXTERNAL LONG FUNCTION smg$cursor_row & ( &!  LONG BY REF & ) ! SMG$DEFINE_KEY ! & ! Perform a DEFINE/KEY Command ! J ! The Perform a DEFINE/KEY Command routine performs the DEFINE/KEY ! command you provide.- ! . EXTERNAL LONG FUNCTION smg$define_key & ( &" LONG BY REF, &$ STRING BY DESC & ) ! SMG$DELETE_CHARS !  ! Delete Characters ! G ! The Delete Characters routine deletes characters in a virtual ! display.1 ! 0 EXTERNAL LONG FUNCTION smg$delete_chars & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$DELETE_KEY_DEF !  ! Delete Key Definition ! M ! The Delete Key Definition rout ine deletes a key definition from the- ! specified table of key definitions.- ! 2 EXTERNAL LONG FUNCTION smg$delete_key_def & ( &" LONG BY REF, &% STRING BY DESC, &, OPTIONAL STRING BY DESC & ) ! SMG$DELETE_LINE !  ! Delete Line ! G ! The Delete Line routine deletes lines from a virtual display.- !  / EXTERNAL LONG FUNCTION smg$delete_line & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$DELETE_MENU ! 5 ! End Access to a Menu in the Virtual Display ! M ! The End Access to a Menu in the Virtual Display routine ends access? ! to the menu choices in the specified virtual display. ! / EXTERNAL L ONG FUNCTION smg$delete_menu & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$DELETE_PASTEBOARD !  ! Delete Pasteboard ! = ! The Delete Pasteboard routine deletes a pasteboard.- ! 5 EXTERNAL LONG FUNCTION smg$delete_pasteboard & ( &" LONG BY REF, &) OPTIONAL LONG BY REF &  ) ! SMG$DELETE_SUBPROCESS ! ! Terminate a Subprocess ! J ! The Terminate a Subprocess routine deletes a subprocess that was9 ! created with the SMG$CREATE_SUBPROCESS routine. ! 5 EXTERNAL LONG FUNCTION smg$delete_subprocess & ( &! LONG BY REF & ) ! SMG$DELETE_VIEWPORT !  ! Delete a Viewport ! K ! The Delete a Viewport routine deletes the specif ied viewport from0 ! any pasteboards to which it is pasted.- ! 3 EXTERNAL LONG FUNCTION smg$delete_viewport & ( &! LONG BY REF & )$ ! SMG$DELETE_VIRTUAL_DISPLAY ! ! Delete Virtual Display ! G ! The Delete Virtual Display routine deletes a virtual display.- ! : EXTERNAL LONG FUNCTION smg$delete_virtual_d isplay & ( &! LONG BY REF & )% ! SMG$DELETE_VIRTUAL_KEYBOARD ! ! ! Delete Virtual Keyboard ! I ! The Delete Virtual Keyboard routine deletes a virtual keyboard.- ! ; EXTERNAL LONG FUNCTION smg$delete_virtual_keyboard & ( &! LONG BY REF & ) ! SMG$DEL_TERM_TABLE !  ! Delete Terminal Table  ! J ! The Delete Terminal Table routine terminates access to a private ! TERMTABL9 ! and frees the associated virtual address space. ! 0 EXTERNAL LONG FUNCTION smg$del_term_table> EXTERNAL LONG FUNCTION smg$disable_broadcast_trapping & ( &! LONG BY REF & )' ! SMG$DISABLE_UNSOLICITED_INPUT ! # ! Disable Unsolicited Input ! H ! The Disable Unsolicited Input routine  disables the trapping of ! unsolicited input.- ! = EXTERNAL LONG FUNCTION smg$disable_unsolicited_input & ( &! LONG BY REF & ) ! SMG$DRAW_CHAR ! / ! Draw a Character in a Virtual Display ! M ! The Draw a Character in a Virtual Display routine draws a character ! at6 ! the specified position in a virtual display.1 !  - EXTERNAL LONG FUNCTION smg$draw_char & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$DRAW_LINE !  ! Draw a Line ! F ! The Draw a Line routine draws a horizontal or vertical line.- !  - EXTERNAL LONG FUNCTION smg$draw_line & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$DRAW_RECTANGLE !  ! Draw a Rectangle ! 9 ! The Draw a Rectangle routine draws a rectangle. !  2 EXTERNAL LONG FUNCTION smg$draw_rectangle & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )& ! SMG$ENABLE_UNSOLICITED_INPUT ! " ! Enable Unsolicited Input ! L ! The Enable Unsolicited Input routine detects unsolic ited input and+ ! calls an AST routine in response.- ! < EXTERNAL LONG FUNCTION smg$enable_unsolicited_input & ( &" LONG BY REF, &$ LONG BY VALUE, &+ OPTIONAL LONG BY VALUE & ) ! SMG$END_DISPLAY_UPDATE !  ! End Display Update ! K ! The End Display Update routine ends update batching for a virtual ! display. ! 6 EXTERNAL LONG FUNCTION smg$end_display_update & ( &! LONG BY REF & )# ! SMG$END_PASTEBOARD_UPDATE !  ! End Pasteboard Update ! F ! The End Pasteboard Update routine ends update batching for a ! pasteboard. ! 9 EXTERNAL LONG FUNCTION smg$end_pasteboard_update & ( &! LONG BY REF & ) ! SMG$ERASE_CHARS !  ! Erase Characters ! M ! The Erase Characters routine erases characters in a virtual display ! by% ! replacing them with blanks. ! / EXTERNAL LONG FUNCTION smg$erase_chars & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$ERASE_COLUMN ! # ! Erase Column from Display ! L ! The  Erase Column From Display routine erases the specified portionJ ! of the virtual display from the given position to the end of the ! column. ! 0 EXTERNAL LONG FUNCTION smg$erase_column & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$ERASE_DISPLAY !  ! Erase Virtual Display ! K ! The Eras e Virtual Display routine erases all or part of a virtual; ! display by replacing text characters with blanks. ! 1 EXTERNAL LONG FUNCTION smg$erase_display & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$ERASE_LINE !  ! Erase Line ! J ! The Erase Line routi ne erases all or part of a line in a virtual ! display.- ! . EXTERNAL LONG FUNCTION smg$erase_line & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$ERASE_PASTEBOARD !  ! Erase Pasteboard ! K ! The Erase Pasteboard routine erases the contents of a pasteboard. ! 4 EXTERNAL LONG FUNCTION smg$erase_pasteboard & ( &! LONG BY REF & ) ! SMG$EXECUTE_COMMAND ! ) ! Execute Command in a Subprocess ! L ! The Execute Command in a Subprocess routine executes the specifiedJ ! command in the subprocess created with the SMG$CREATE_SUBPROCESS ! routine. ! 3 EXTERNAL LONG FUNCTION smg$execute_command & ( &" LONG BY REF, &% STR ING BY DESC, &* OPTIONAL LONG BY REF, &! LONG BY REF & )! ! SMG$FIND_CURSOR_DISPLAY !  ! Find Display ! G ! The Find Display that Contains the Cursor routine returns theN ! identifier of the most recently pasted virtual display that contains ! the physical cursor.- ! 7 EXTERNAL LONG FUNCTION smg$find_cursor_display & ( &"  LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$FLUSH_BUFFER !  ! Flush Buffer ! E ! The Flush Buffer routine flushes all buffered output to the ! terminal. ! 0 EXTERNAL LONG FUNCTION smg$flush_buffer & ( &! LONG BY REF & )" ! SMG$FLUSH_DISPLAY_UPDATE !  ! Flush Display Update ! M ! The Flush Display Update routine flushes any update batching to the: ! screen and leaves the update batching in effect. ! 8 EXTERNAL LONG FUNCTION smg$flush_display_update & ( &! LONG BY REF & )# ! SMG$GET_BROADCAST_MESSAGE !  ! Get Broadcast Message ! L ! The Get Broadcast Message routine determines whether a message hasC ! been b roadcast to the pasteboard and returns the message. ! 9 EXTERNAL LONG FUNCTION smg$get_broadcast_message & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &! WORD BY REF & )) ! SMG$GET_CHAR_AT_PHYSICAL_CURSOR ! % ! Return Character at Cursor ! M ! The Return Character at Cursor routine returns the character at the+  ! current physical cursor position. ! ? EXTERNAL LONG FUNCTION smg$get_char_at_physical_cursor & ( &" LONG BY REF, &" BYTE BY REF, &* OPTIONAL BYTE BY REF, &! BYTE BY REF & ) ! SMG$GET_DISPLAY_ATTR ! ! Get Display Attributes ! N ! The Get Display Attributes routine returns the attributes associated! ! with a virtual display . ! 4 EXTERNAL LONG FUNCTION smg$get_display_attr & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )% ! SMG$GET_KEYBOARD_ATTRIBUTES ! ! ! Get Keyboard Attributes ! N ! The Get Keyboard Attributes routine gets information about a virtualF ! keyboard and leaves it in a user-supplied area: the keyboard" ! information table (KIT).- ! ; EXTERNAL LONG FUNCTION smg$get_keyboard_attributes & ( &" LONG BY REF, &! ANY BY REF, &! LONG BY REF & ) ! SMG$GET_KEY_DEF !  ! Get Key Definition ! I ! The Get Key Definition routi ne returns the key definition for a ! specified key. ! / EXTERNAL LONG FUNCTION smg$get_key_def & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! SMG$GET_NUMERIC_DATA ! # ! Get Numeric Terminal Data ! J ! The Get Nume ric Terminal Data routine accesses TERMTABLE.EXE andJ ! returns the value associated with a specified Boolean or numeric ! capability. ! 4 EXTERNAL LONG FUNCTION smg$get_numeric_data & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )' ! SMG$GET_PASTEBOARD_ATTRIBUTES ! # ! Get Pasteboard Attributes ! N ! The Get Pasteboard Attributes routine  gets pasteboard attributes and: ! stores them in the pasteboard information table. ! = EXTERNAL LONG FUNCTION smg$get_pasteboard_attributes & ( &" LONG BY REF, &! ANY BY REF, &! LONG BY REF & ) ! SMG$GET_PASTING_INFO ! $ ! Return Pasting Information ! N ! Provided that the specified virtual display is currently pasted, theN ! Return Pasting I nformation routine returns the row and column of the ! pasting. ! 4 EXTERNAL LONG FUNCTION smg$get_pasting_info & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$GET_TERM_DATA !  ! Get Terminal Data ! N ! The Get Terminal Data routine accesses TERMTABLE.EXE and r eturns theJ ! character sequence that causes a terminal to perform a specified ! operation. ! 1 EXTERNAL LONG FUNCTION smg$get_term_data & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! ANY BY REF, &. OPTIONAL LONG DIM() BY REF & ) ! SMG$GET_VIEWPORT_CHAR ! 1 ! Get Characteristic s of Display Viewport ! I ! The Get Characteristics of Display Viewport routine returns the4 ! characteristics of the specified viewport. ! 5 EXTERNAL LONG FUNCTION smg$get_viewport_char & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$HOME_CURSOR !  ! Home Cur sor ! K ! The Home Cursor routine moves the virtual cursor to the specified& ! corner of a virtual display. ! / EXTERNAL LONG FUNCTION smg$home_cursor & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$INIT_TERM_TABLE ! # ! Initialize Terminal Table ! I ! The Initialize Terminal Table routine initializes the TERMTABLEF ! database for the terminal  named, so that subsequent calls toK ! SMG$GET_TERM_DATA can extract information and command strings for ! that ! terminal. ! 3 EXTERNAL LONG FUNCTION smg$init_term_table & ( &% STRING BY DESC, &! LONG BY REF & )% ! SMG$INIT_TERM_TABLE_BY_TYPE ! 3 ! Initialize TERMTABLE by VMS Terminal Type ! K ! The Initialize TERMTABLE by VMS Terminal Type routine init ializesK ! the TERMTABLE database for the terminal named, so that subsequentH ! calls to SMG$GET_TERM_DATA can extract information and command$ ! strings for that terminal. ! ; EXTERNAL LONG FUNCTION smg$init_term_table_by_type & ( &" BYTE BY REF, &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) ! SMG$INSERT_CHARS !  ! Insert Characters ! I !  The Insert Characters routine inserts characters into a virtual ! display. ! 0 EXTERNAL LONG FUNCTION smg$insert_chars & ( &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$INSERT_LINE !  ! Insert Lin e ! K ! The Insert Line routine inserts a line into a virtual display and ! scrolls the display.- ! / EXTERNAL LONG FUNCTION smg$insert_line & ( &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &!  LONG BY REF & ) ! SMG$INVALIDATE_DISPLAY ! # ! Mark a Display as Invalid ! N ! The Mark a Display as Invalid routine marks a display as invalid and2 ! causes the entire display to be redrawn. ! 6 EXTERNAL LONG FUNCTION smg$invalidate_display & ( &! LONG BY REF & ) ! SMG$KEYCODE_TO_NAME ! . ! Translate a Key Code into a Key Name ! M ! 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. ! 3 EXTERNAL LONG FUNCTION smg$keycode_to_name & ( &" WORD BY REF, &$ STRING BY DESC & ) ! SMG$LABEL_BORDER ! ( ! Label a Virtual Display Border ! K ! The Label a Virtual Display Border routine supplies a label for a# !  virtual display's border. ! 0 EXTERNAL LONG FUNCTION smg$label_border & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$LIST_KEY_DEFS !  ! List Key Definitions ! F ! The List Key Definitions r outine returns, one at a time, theJ ! definitions (equivalence strings) associated with specified keys# ! in a specified key table. ! 1 EXTERNAL LONG FUNCTION smg$list_key_defs & ( &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & )# ! SMG$LIST_PASTEBOARD_ORDER ! $ ! Return Pasting Information ! G ! The Return Pasting Information routine returns the pasteboardM ! identifier of the pasteboard to which the specified virtual displayO ! is pasted. Optionally, the pasteboard row 1 and column 1 (origins) of1 ! the virtual displays are also returned. ! 9 EXTERNAL LONG FUNCTION smg$list_pasteboard_order & ( &" LON G BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$LIST_PASTING_ORDER ! 4 ! Return Virtual Display Pasting Information ! L ! The Return Virtual Display Pasting Information routine returns theC ! identifiers of the virtual displays pasted to a specifiedC ! pasteboard. Optionally, the pasteboard row 1 and column@ ! 1 (origins) of the virtual displays are also returned. ! 6 EXTERNAL LONG FUNCTION smg$list_pasting_order & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$LOAD_KEY_DEFS !  ! Load Key Definitions ! > ! The Load Key Definitions routine loads a file of key !  definitions; ! (DEFINE/KEY commands) into a specified key table. ! 1 EXTERNAL LONG FUNCTION smg$load_key_defs & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &! LONG BY REF & )" ! SMG$LOAD_VIRTUAL_DISPLAY ! ! Load a Virtual Display ! N ! 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. ! 8 EXTERNAL LONG FUNCTION smg$load_virtual_display & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) ! SMG$MOVE_TEXT ! 7 ! Move Text from One Virtual Display to Another ! K ! The Move Text from One Virtual Display to Another routine moves aP ! rectangle of text from one v irtual display to another virtual display.N ! Given two points in opposite corners of the rectangle, SMG$MOVE_TEXTM ! determines the desired width and height of the new virtual display. ! - EXTERNAL LONG FUNCTION smg$move_text & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &*  OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & )" ! SMG$MOVE_VIRTUAL_DISPLAY !  ! Move Virtual Display ! K ! The Move Virtual Display routine relocates a virtual display on a5 ! pasteboard and preserves the pasting order. ! 8 EXTERNAL LONG FUNCTION smg$move_virtual_display & ( &" LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$NAME_TO_KEYCODE ! . ! Translate a Key Name into a Key Code ! M ! The Translate a Key Name into a Key Code routine translates the keyE ! name of a key on the keyboard into its associated key code. ! 3 EXTERNAL LONG FUNCTION smg$name_to_keycode & ( &% STRING BY DESC, &!  WORD BY REF & )# ! SMG$PASTE_VIRTUAL_DISPLAY !  ! Paste Virtual Display ! I ! The Paste Virtual Display routine pastes a virtual display to a ! pasteboard. ! 9 EXTERNAL LONG FUNCTION smg$paste_virtual_display & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF  & )! ! SMG$POP_VIRTUAL_DISPLAY ! - ! Delete a Series of Virtual Displays ! M ! The Delete a Series of Virtual Displays routine deletes a specifiedL ! virtual display and all displays that were pasted on the specified= ! pasteboard on top of the specified virtual display. ! 7 EXTERNAL LONG FUNCTION smg$pop_virtual_display & ( &" LONG BY REF, &! LONG BY REF &  ) ! SMG$PRINT_PASTEBOARD ! . ! Print Pasteboard Using a Print Queue ! N ! The Print Pasteboard Using a Print Queue routine prints the contents8 ! of the specified pasteboard on a line printer. ! 4 EXTERNAL LONG FUNCTION smg$print_pasteboard & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &$ STRING BY DESC & ) ! SMG$PRINT_PASTEBOARD ! . ! Print Pasteboard Using a Print Queue ! N ! The Print Pasteboard Using a Print Queue routine prints the contents8 ! of the specified pasteboard on a line printer. ! - EXTERNAL LONG FUNCTION smg$put_chars & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_CHARS_HIGHWIDE ! 5 ! Write Double-Height Double-Width Characters ! H ! The Write Double-Height Double-Width Characters routine writesF ! double-height, double-width characters to a virtual display. ! 6 EXTERNAL LONG FUNCTION smg$put_chars_highwide & ( &" LONG BY REF, &%  STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_CHARS_MULTI ! 6 ! Put Text with Multiple Renditions to Display ! N ! The Put Text with Multiple Renditions to Display routine writes text ! with5 ! multiple renditions to the virtual display. ! 3 EX TERNAL LONG FUNCTION smg$put_chars_multi & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! SMG$PUT_CHARS_WIDE ! ' ! Write Double-Width Characters ! G ! The Write Double -Width Characters routine writes double-width* ! characters to a virtual display. ! 2 EXTERNAL LONG FUNCTION smg$put_chars_wide & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_HELP_TEXT ! ) ! Outp ut Help Text to the Display ! K ! The Output Help Text to the Display routine retrieves and outputsP ! the help text for the specified topic in the virtual display provided. ! 1 EXTERNAL LONG FUNCTION smg$put_help_text & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF  & ) ! SMG$PUT_LINE ! ' ! Write Line to Virtual Display ! N ! The Write Line to Virtual Display routine writes a line of text to aL ! virtual display, beginning at the current virtual cursor position. ! , EXTERNAL LONG FUNCTION smg$put_line & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_LINE_HIGHWIDE ! 3 ! Write Double-Height and Double-Width Line ! M ! The Write Double-Height and Double-Width Line routine writes a line ! of> ! text with double-height and double-width characters. ! 5 EXTERNAL LONG FUNCTION smg$put_line_highwide & ( &"  LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_LINE_MULTI ! 8 ! Write Line with Multiple Renditions to Display ! D ! The Write Line with Multiple Renditions to Display routineG ! writes lines with multiple renditions to the virtual display,; ! optionally followed by cursor movement sequences. ! 2 EXTERNAL LONG FUNCTION smg$put_line_multi & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_LINE_WID E ! ! ! Write Double-Width Line ! K ! The Write Double-Width Line routine writes a line of double-width ! text ! to a virtual display. ! 1 EXTERNAL LONG FUNCTION smg$put_line_wide & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &!  LONG BY REF & ) ! SMG$PUT_PASTEBOARD ! ) ! Output Pasteboard Using Routine ! N ! The Output Pasteboard Using Routine routine accesses the contents of ! a pasteboard. ! 2 EXTERNAL LONG FUNCTION smg$put_pasteboard & ( &" LONG BY REF, &$ LONG BY VALUE, &+ OPTIONAL ANY BY VALUE, &! LONG BY REF & ) ! SMG$PU T_STATUS_LINE ! 5 ! Output Line of Text to Hardware Status Line ! K ! The Output Line of Text to Hardware Status Line routine outputs a ! line. ! of text to the hardware status line. ! 3 EXTERNAL LONG FUNCTION smg$put_status_line & ( &" LONG BY REF, &$ STRING BY DESC & )) ! SMG$PUT_VIRTUAL_DISPLAY_ENCODED ! ) ! Write Encoded String To Display ! J ! SMG$PUT_VIRTUAL_DISPLAY_ENCODED lets you write a string that has9 ! multiple video renditions to a virtual display. ! ? EXTERNAL LONG FUNCTION smg$put_virtual_display_encoded & ( &" LONG BY REF, &" LONG BY REF, &! ANY BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF &  ) ! SMG$PUT_WITH_SCROLL !  ! Write Text and Scroll ! L ! SMG$PUT_WITH_SCROLL writes a line of text to a virtual display and+ ! scrolls the display if necessary. ! 3 EXTERNAL LONG FUNCTION smg$put_with_scroll & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LON G BY REF, &! LONG BY REF & ) ! SMG$READ_COMPOSED_LINE !  ! Read Composed Line ! J ! The Read Composed Line routine reads a line of input composed of4 ! normal keystrokes and equivalence strings. ! 6 EXTERNAL LONG FUNCTION smg$read_composed_line & ( &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRIN G BY DESC, &" WORD BY REF, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! WORD BY REF & ) ! SMG$READ_FROM_DISPLAY ! ! Read Text from Display ! Y ! The Read Text from Display routine reads a line of text from a virtual display . ! 5 EXTERNAL LONG FUNCTION smg$read_from_display & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &$ STRING BY DESC & ) ! SMG$READ_KEYSTROKE ! ! ! Read a Single Character ! K ! The Read a Single Character routine reads a keystroke and returns+ ! that keystroke's terminator  code. ! 2 EXTERNAL LONG FUNCTION smg$read_keystroke & ( &" LONG BY REF, &" WORD BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$READ_LOCATOR ! " ! Read Locator Information ! F ! The Read Locator Information routine r eads information from Q ! a DECwindows workstation terminal's locator device (such as a mouse or  ! tablet). ! 0 EXTERNAL LONG FUNCTION smg$read_locator & ( &" LONG BY REF, &" WORD BY REF, &" WORD BY REF, &" WORD BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$READ_STRING !  ! Read Str ing ! I ! The Read String routine reads a string from a virtual keyboard.- ! / EXTERNAL LONG FUNCTION smg$read_string & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! ANY BY REF, &" WORD BY RE F, &" WORD BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! SMG$READ_VERIFY ! " ! Read and Verify a String ! M ! The Read and Verify a String routine reads a sequence of characters$ ! and verifies the sequence. ! / EXTERNAL LONG FUNCTION smg$read_ver ify & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &! ANY BY REF, &" LONG BY REF, &" WORD BY REF, &"  LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! WORD BY REF & ) ! SMG$REMOVE_LINE ! . ! Remove a Line from a Virtual Display ! N ! The Remove a Line from a Virtual Display routine removes a line fromN ! a specified virtual display that was drawn with the SMG$DRAW_LINE or& ! SMG$DRAW_RECTANGLE r outines. ! / EXTERNAL LONG FUNCTION smg$remove_line & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$REPAINT_LINE ! = ! Repaint One or More Lines on the Current Pasteboard ! I ! The Repaint One or More Lines on the Current Pasteboard routine? ! repaints a series of lines on the current pasteboard. ! 0 EXTERNAL LONG FUNCTION smg$repaint_line & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$REPAINT_SCREEN ! $ ! Repaint Current Pasteboard ! G ! The Repaint Current Pasteboard routine repaints the specified ! pasteboard after$ ! non-SMG$ I/O has occurred. ! 2 EXTERNAL LONG FUNCTION sm g$repaint_screen & ( &! LONG BY REF & )% ! SMG$REPASTE_VIRTUAL_DISPLAY ! ! ! Repaste Virtual Display ! N ! The Repaste Virtual Display routine moves a virtual display to a newI ! position on the pasteboard. The pasting order is not preserved. ! ; EXTERNAL LONG FUNCTION smg$repaste_virtual_display & ( &" LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$REPLACE_INPUT_LINE !  ! Replace Input Line ! L ! The Replace Input Line routine replaces the specified lines in the2 ! recall buffer with the specified string. ! ! 6 EXTERNAL LONG FUNCTION smg$replace_input_line & ( &" LONG BY REF, &- OPTIONAL STRIN G BY DESC, &" BYTE BY REF, &! LONG BY REF & )% ! SMG$RESTORE_PHYSICAL_SCREEN ! % ! Restore Physical Pasteboard ! I ! The Restore Physical Pasteboard routine rewrites the pasteboardJ ! image as it was at the time the SMG$SAVE_PHYSICAL_SCREEN routine ! was called. ! ; EXTERNAL LONG FUNCTION smg$restore_physical_screen & ( &" LONG BY REF, &!  LONG BY REF & ) ! SMG$RETURN_CURSOR_POS ! ! Return Cursor Position ! H ! The Return Cursor Position routine returns the current virtual ! cursor2 ! position in a specified virtual display. ! 5 EXTERNAL LONG FUNCTION smg$return_cursor_pos & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$RE TURN_INPUT_LINE !  ! Return Input Line ! K ! The Return Input Line routine returns to the caller the requestedG ! line from the recall buffer. This line is retrieved either byN ! matching it with a specified string or by specifying the appropriate ! line number. ! 5 EXTERNAL LONG FUNCTION smg$return_input_line & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" BYTE BY REF, &! WORD BY REF & ) ! SMG$RING_BELL ! * ! Ring the Terminal Bell or Buzzer ! J ! The Ring the Terminal Bell or Buzzer routine sounds the terminal ! bell or buzzer. ! - EXTERNAL LONG FUNCTION smg$ring_bell & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & )" ! SMG$SAVE_PHYSICAL_SC REEN !  ! Save Physical Screen ! D ! The Save Physical Screen routine saves the contents of the ! pasteboard soJ ! that a later call to SMG$RESTORE_PHYSICAL_SCREEN can restore it. ! 8 EXTERNAL LONG FUNCTION smg$save_physical_screen & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )" ! SMG$SAVE_VIRTU AL_DISPLAY ! , ! Save the Virtual Display to a File ! N ! The Save the Virtual Display to a File routine saves the contents of ! a2 ! virtual display and stores it in a file. ! 8 EXTERNAL LONG FUNCTION smg$save_virtual_display & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & )! ! SMG$SCROLL_DISPLAY_AREA !  ! Scroll Display Area ! K ! The Sc roll Display Area routine scrolls a rectangular region of a ! virtual display. ! 7 EXTERNAL LONG FUNCTION smg$scroll_display_area & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$SCROLL_VIEWPORT ! + ! Sc roll a Display Under a Viewport ! I ! The Scroll a Display Under a Viewport routine scrolls a virtual0 ! display under its associated viewport. ! 3 EXTERNAL LONG FUNCTION smg$scroll_viewport & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$SELECT_FROM_MENU ! ( ! Make a Selection from the Menu ! N ! The Make a Selection f  rom the Menu routine lets you move between theL ! menu choices using the arrow keys and lets you make a selection by" ! pressing the return key. ! 4 EXTERNAL LONG FUNCTION smg$select_from_menu & ( &" LONG BY REF, &" LONG BY REF, &" WORD BY REF, &* OPTIONAL WORD BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, & " WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & )$ ! SMG$SET_BROADCAST_TRAPPING ! # ! Enable Broadcast Trapping ! G ! The Enable Broadcast Trapping routine enables the trapping of ! broadcast ! messages. ! : EXTERNAL LONG FUNCTION smg$set_broadcast_trapping & ( &" LONG BY REF, &,  OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! SMG$SET_CURSOR_ABS ! & ! Set Absolute Cursor Position ! N ! The Set Absolute Cursor Position routine moves the virtual cursor to6 ! the specified position in a virtual display. ! 2 EXTERNAL LONG FUNCTION smg$set_cursor_abs & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG B Y REF & ) ! SMG$SET_CURSOR_MODE !  ! Set the Cursor Mode ! ! ! The Set the Cursor ModeA ! routine turns the physical cursor on or off and selects# ! jump or smooth scrolling. ! 3 EXTERNAL LONG FUNCTION smg$set_cursor_mode & ( &" LONG BY REF, &! LONG BY REF & ) ! SMG$SET_CURSOR_REL ! 2 ! Move Cursor Relative to  Current Position ! H ! The Move Cursor Relative to Current Position routine moves the ! virtualJ ! cursor the specified number of rows and columns from the current7 ! virtual cursor position in a virtual display. ! 2 EXTERNAL LONG FUNCTION smg$set_cursor_rel & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$SET_DEFAULT_STATE  !  ! Set Default State ! G ! The Set Default State routine sets and/or returns the current ! default ! state for a key table. ! 5 EXTERNAL LONG FUNCTION smg$set_default_state & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & )' ! SMG$SET_DISPLAY_SCROLL_REGION ! ) ! Create Display Scrolling Region ! G !  The Create Display Scrolling Region routine creates a virtual ! scrolling r ! in a virtual display. ! = EXTERNAL LONG FUNCTION smg$set_display_scroll_region & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$SET_KEYPAD_MODE !  ! Set Keypad Mode ! K ! The Set Keypad Mode routine sets the terminal's numeric keypad to.  ! either numeric or applications mode. ! 3 EXTERNAL LONG FUNCTION smg$set_keypad_mode & ( &" LONG BY REF, &! LONG BY REF & )" ! SMG$SET_OUT_OF_BAND_ASTS !  ! Set Out-of-Band ASTs ! I ! The Set Out-of-Band ASTs routine either enables or disables the5 ! trapping of out-of-band control characters. ! 8 EXTERNAL LONG FUNCTION smg$set_out_of_band_asts &  ( &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &+ OPTIONAL LONG BY VALUE & )! ! SMG$SET_PHYSICAL_CURSOR ! ' ! Set Cursor on Physical Screen ! M ! The Set Cursor on Physical Screen routine moves the physical cursor6 ! to the specified position on the pasteboard. ! 7 EXTERNAL LONG FUNCTION smg$set_physical_cursor & ( &"  LONG BY REF, &" LONG BY REF, &! LONG BY REF & )& ! SMG$SET_TERM_CHARACTERISTICS ! ) ! Change Terminal Characteristics ! N ! The Change Terminal Characteristics routine changes or retrieves the: ! terminal characteristics for a given pasteboard. ! < EXTERNAL LONG FUNCTION smg$set_term_characteristics & ( &" LONG BY REF, &* ! OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$SNAPSHOT !  ! Write Snapshot ! L ! The Write Snapshot routine writes the current pasteboard buffer toO ! the file or hardcopy" terminal specified by the pasteboard identifier. ! , EXTERNAL LONG FUNCTION smg$snapshot & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & )! ! SMG$SNAPSHOT_TO_PRINTER ! # ! Write Snapshot to Printer ! M ! The Write Snapshot to Printer routine writes the current pasteboard9 ! buffer to the printer attached to the terminal. ! 7 EXTERNAL LONG FUNCTION smg$snapshot_t# o_printer & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & )% ! SMG$UNPASTE_VIRTUAL_DISPLAY ! ! Remove Virtual Display ! M ! The Remove Virtual Display routine removes a virtual display from a ! pasteboard. ! ; EXTERNAL LONG FUNCTION smg$unpaste_virtual_display & ( &" LONG BY REF, &!  LONG BY REF & )ww%  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED & ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN' G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ( %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  5 ! Definitions for RTL Screen Management Facility !  ! Input terminator codes ! ; DECLARE LONG CONSTANT SMG$K_TRM_NULL_CHAR = 0 ! NUL7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLA = 1 ! ) SOH7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLB = 2 ! STX7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLC = 3 ! ETX7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLD = 4 ! EOT7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLE = 5 ! ENQ7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLF = 6 ! ACK7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLG = 7 ! BEL6 DECLARE LONG CONSTANT SMG$K_TRM_CTRLH = 8 ! BS6 DECLARE LONG CONSTANT SMG$K_TRM_CTRLI = 9 ! HT7 DECLARE LONG CONSTANT SMG$K_TRM_ * CTRLJ = 10 ! LF7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLK = 11 ! VT7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLL = 12 ! FF7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLM = 13 ! CR7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLN = 14 ! SO7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLO = 15 ! SI8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLP = 16 ! DLE8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLQ = 17 ! DC18 DECLARE LONG CONSTANT SMG$K_TRM_CTRLR = 18 ! DC28 DECLARE LONG CON + STANT SMG$K_TRM_CTRLS = 19 ! DC38 DECLARE LONG CONSTANT SMG$K_TRM_CTRLT = 20 ! DC48 DECLARE LONG CONSTANT SMG$K_TRM_CTRLU = 21 ! NAK8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLV = 22 ! SYN8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLW = 23 ! ETB8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLX = 24 ! CAN7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLY = 25 ! EM8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLZ = 26 ! SUB9 DECLARE LONG CONSTANT SMG$K_TRM_ESCAPE = 27 ! ESC4 , DECLARE LONG CONSTANT SMG$K_TRM_FS = 28 ! FS4 DECLARE LONG CONSTANT SMG$K_TRM_GS = 29 ! GS4 DECLARE LONG CONSTANT SMG$K_TRM_RS = 30 ! RS4 DECLARE LONG CONSTANT SMG$K_TRM_US = 31 ! US7 DECLARE LONG CONSTANT SMG$K_TRM_SPACE = 32 ! SPB DECLARE LONG CONSTANT SMG$K_TRM_EXCLAMATION_POINT = 33 ! ?= DECLARE LONG CONSTANT SMG$K_TRM_DOUBLE_QUOTE = 34 ! "< DECLARE LONG CONSTANT SMG$K_TRM_NUMBER_SIGN = 35 ! #< DECLARE LONG CONSTANT SMG$K_TRM_DOLL - AR_SIGN = 36 ! $= DECLARE LONG CONSTANT SMG$K_TRM_PERCENT_SIGN = 37 ! %: DECLARE LONG CONSTANT SMG$K_TRM_AMPERSAND = 38 ! ?6 DECLARE LONG CONSTANT SMG$K_TRM_QUOTE = 39 ! '; DECLARE LONG CONSTANT SMG$K_TRM_LEFT_PAREN = 40 ! (< DECLARE LONG CONSTANT SMG$K_TRM_RIGHT_PAREN = 41 ! )9 DECLARE LONG CONSTANT SMG$K_TRM_ASTERISK = 42 ! *: DECLARE LONG CONSTANT SMG$K_TRM_PLUS_SIGN = 43 ! +; DECLARE LONG CONSTANT SMG$K_TRM_COMMA_CHAR = 44 ! ,5 . DECLARE LONG CONSTANT SMG$K_TRM_DASH = 45 ! -4 DECLARE LONG CONSTANT SMG$K_TRM_DOT = 46 ! .6 DECLARE LONG CONSTANT SMG$K_TRM_SLASH = 47 ! /5 DECLARE LONG CONSTANT SMG$K_TRM_ZERO = 48 ! 04 DECLARE LONG CONSTANT SMG$K_TRM_ONE = 49 ! 14 DECLARE LONG CONSTANT SMG$K_TRM_TWO = 50 ! 26 DECLARE LONG CONSTANT SMG$K_TRM_THREE = 51 ! 35 DECLARE LONG CONSTANT SMG$K_TRM_FOUR = 52 ! 45 DECLARE LONG CONSTANT SMG$K_TRM_FIVE = 53 ! 54 DE / CLARE LONG CONSTANT SMG$K_TRM_SIX = 54 ! 66 DECLARE LONG CONSTANT SMG$K_TRM_SEVEN = 55 ! 76 DECLARE LONG CONSTANT SMG$K_TRM_EIGHT = 56 ! 85 DECLARE LONG CONSTANT SMG$K_TRM_NINE = 57 ! 96 DECLARE LONG CONSTANT SMG$K_TRM_COLON = 58 ! :: DECLARE LONG CONSTANT SMG$K_TRM_SEMICOLON = 59 ! ;: DECLARE LONG CONSTANT SMG$K_TRM_LESS_THAN = 60 ! <6 DECLARE LONG CONSTANT SMG$K_TRM_EQUAL = 61 ! == DECLARE LONG CONSTANT SMG$K_TRM_GREATER_THAN = 62 ! 0 >> DECLARE LONG CONSTANT SMG$K_TRM_QUESTION_MARK = 63 ! ?8 DECLARE LONG CONSTANT SMG$K_TRM_AT_SIGN = 64 ! @< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_A = 65 ! A< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_B = 66 ! B< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_C = 67 ! C< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_D = 68 ! D< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_E = 69 ! E< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_F = 70 ! F< DE 1 CLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_G = 71 ! G< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_H = 72 ! H< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_I = 73 ! I< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_J = 74 ! J< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_K = 75 ! K< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_L = 76 ! L< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_M = 77 ! M< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_N = 78 ! N< DECLARE LONG 2 CONSTANT SMG$K_TRM_UPPERCASE_O = 79 ! O< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_P = 80 ! P< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_Q = 81 ! Q< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_R = 82 ! R< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_S = 83 ! S< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_T = 84 ! T< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_U = 85 ! U< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_V = 86 ! V< DECLARE LONG CONSTANT 3 SMG$K_TRM_UPPERCASE_W = 87 ! W< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_X = 88 ! X< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_Y = 89 ! Y< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_Z = 90 ! Z= DECLARE LONG CONSTANT SMG$K_TRM_LEFT_BRACKET = 91 ! [: DECLARE LONG CONSTANT SMG$K_TRM_BACKSLASH = 92 ! \> DECLARE LONG CONSTANT SMG$K_TRM_RIGHT_BRACKET = 93 ! ]6 DECLARE LONG CONSTANT SMG$K_TRM_CARET = 94 ! ^: DECLARE LONG CONSTANT SMG$K_TRM_UNDE 4 RLINE = 95 ! _= DECLARE LONG CONSTANT SMG$K_TRM_GRAVE_ACCENT = 96 ! `< DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_A = 97 ! a< DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_B = 98 ! b< DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_C = 99 ! c= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_D = 100 ! d= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_E = 101 ! e= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_F = 102 ! f= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCAS 5 E_G = 103 ! g= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_H = 104 ! h= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_I = 105 ! i= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_J = 106 ! j= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_K = 107 ! k= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_L = 108 ! l= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_M = 109 ! m= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_N = 110 ! n= DECLARE LONG CONSTANT SMG$K_TRM_LO 6 WERCASE_O = 111 ! o= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_P = 112 ! p= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_Q = 113 ! q= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_R = 114 ! r= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_S = 115 ! s= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_T = 116 ! t= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_U = 117 ! u= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_V = 118 ! v= DECLARE LONG CONSTANT SMG$K_ 7 TRM_LOWERCASE_W = 119 ! w= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_X = 120 ! x= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_Y = 121 ! y= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_Z = 122 ! zK DECLARE LONG CONSTANT SMG$K_TRM_LEFT_BRACE = 123 ! left curly brace? DECLARE LONG CONSTANT SMG$K_TRM_VERTICAL_LINE = 124 ! |M DECLARE LONG CONSTANT SMG$K_TRM_RIGHT_BRACE = 125 ! right curly brace7 DECLARE LONG CONSTANT SMG$K_TRM_TILDE = 126 ! ~: 8 DECLARE LONG CONSTANT SMG$K_TRM_DELETE = 127 ! DEL ! & ! Synonyms for control characters ! , DECLARE LONG CONSTANT SMG$K_TRM_BS = 8, DECLARE LONG CONSTANT SMG$K_TRM_HT = 9- DECLARE LONG CONSTANT SMG$K_TRM_LF = 10- DECLARE LONG CONSTANT SMG$K_TRM_VT = 11- DECLARE LONG CONSTANT SMG$K_TRM_FF = 12- DECLARE LONG CONSTANT SMG$K_TRM_CR = 13 !  ! Keypad keys ! / DECLARE LONG CONSTANT SMG$K_TRM_PF1 = 256/ DECLARE LONG CON 9 STANT SMG$K_TRM_PF2 = 257/ DECLARE LONG CONSTANT SMG$K_TRM_PF3 = 258/ DECLARE LONG CONSTANT SMG$K_TRM_PF4 = 259/ DECLARE LONG CONSTANT SMG$K_TRM_KP0 = 260/ DECLARE LONG CONSTANT SMG$K_TRM_KP1 = 261/ DECLARE LONG CONSTANT SMG$K_TRM_KP2 = 262/ DECLARE LONG CONSTANT SMG$K_TRM_KP3 = 263/ DECLARE LONG CONSTANT SMG$K_TRM_KP4 = 264/ DECLARE LONG CONSTANT SMG$K_TRM_KP5 = 265/ DECLARE LONG CONSTANT SMG$K_TRM_KP6 = 266/ DECLARE LONG CONSTANT : SMG$K_TRM_KP7 = 267/ DECLARE LONG CONSTANT SMG$K_TRM_KP8 = 268/ DECLARE LONG CONSTANT SMG$K_TRM_KP9 = 2691 DECLARE LONG CONSTANT SMG$K_TRM_ENTER = 2701 DECLARE LONG CONSTANT SMG$K_TRM_MINUS = 2711 DECLARE LONG CONSTANT SMG$K_TRM_COMMA = 2722 DECLARE LONG CONSTANT SMG$K_TRM_PERIOD = 273 !  ! Cursor positioning keys ! . DECLARE LONG CONSTANT SMG$K_TRM_UP = 2740 DECLARE LONG CONSTANT SMG$K_TRM_DOWN = 2750 DECLARE LONG CONSTANT SM; G$K_TRM_LEFT = 2761 DECLARE LONG CONSTANT SMG$K_TRM_RIGHT = 277 !  ! Function keys ! . DECLARE LONG CONSTANT SMG$K_TRM_F1 = 281. DECLARE LONG CONSTANT SMG$K_TRM_F2 = 282. DECLARE LONG CONSTANT SMG$K_TRM_F3 = 283. DECLARE LONG CONSTANT SMG$K_TRM_F4 = 284. DECLARE LONG CONSTANT SMG$K_TRM_F5 = 285. DECLARE LONG CONSTANT SMG$K_TRM_F6 = 286. DECLARE LONG CONSTANT SMG$K_TRM_F7 = 287. DECLARE LONG CONSTANT SMG$K_TRM_F8 = 288. DECLAR < E LONG CONSTANT SMG$K_TRM_F9 = 289/ DECLARE LONG CONSTANT SMG$K_TRM_F10 = 290/ DECLARE LONG CONSTANT SMG$K_TRM_F11 = 291/ DECLARE LONG CONSTANT SMG$K_TRM_F12 = 292/ DECLARE LONG CONSTANT SMG$K_TRM_F13 = 293/ DECLARE LONG CONSTANT SMG$K_TRM_F14 = 294/ DECLARE LONG CONSTANT SMG$K_TRM_F15 = 295/ DECLARE LONG CONSTANT SMG$K_TRM_F16 = 296/ DECLARE LONG CONSTANT SMG$K_TRM_F17 = 297/ DECLARE LONG CONSTANT SMG$K_TRM_F18 = 298/ DECLARE LONG C= ONSTANT SMG$K_TRM_F19 = 299/ DECLARE LONG CONSTANT SMG$K_TRM_F20 = 300 ! ! ! Synonyms for function keys ! 0 DECLARE LONG CONSTANT SMG$K_TRM_HELP = 295. DECLARE LONG CONSTANT SMG$K_TRM_DO = 296 !  ! Editing keys ! 7 DECLARE LONG CONSTANT SMG$K_TRM_E1 = 311 ! FIND> DECLARE LONG CONSTANT SMG$K_TRM_E2 = 312 ! INSERT_HERE9 DECLARE LONG CONSTANT SMG$K_TRM_E3 = 313 ! REMOVE9 DECLARE LONG CONSTANT SMG$K_TRM_E4 = 314 ! SELEC > T> DECLARE LONG CONSTANT SMG$K_TRM_E5 = 315 ! PREV_SCREEN> DECLARE LONG CONSTANT SMG$K_TRM_E6 = 316 ! NEXT_SCREEN ! ! Synonyms for editing keys ! 7 DECLARE LONG CONSTANT SMG$K_TRM_FIND = 311 ! E1> DECLARE LONG CONSTANT SMG$K_TRM_INSERT_HERE = 312 ! E29 DECLARE LONG CONSTANT SMG$K_TRM_REMOVE = 313 ! E39 DECLARE LONG CONSTANT SMG$K_TRM_SELECT = 314 ! E4> DECLARE LONG CONSTANT SMG$K_TRM_PREV_SCREEN = 315 ! E5> DECLARE LONG ? CONSTANT SMG$K_TRM_NEXT_SCREEN = 316 ! E6 !  ! Locator keys ! K DECLARE LONG CONSTANT SMG$K_TRM_FIRST_DOWN = 321 ! Left button downN DECLARE LONG CONSTANT SMG$K_TRM_SECOND_DOWN = 322 ! Middle button downL DECLARE LONG CONSTANT SMG$K_TRM_THIRD_DOWN = 323 ! Right button downN DECLARE LONG CONSTANT SMG$K_TRM_FOURTH_DOWN = 324 ! Fourth button downG DECLARE LONG CONSTANT SMG$K_TRM_FIRST_UP = 325 ! Left button upJ DECLARE LONG CONSTANT SMG$ @ K_TRM_SECOND_UP = 326 ! Middle button upH DECLARE LONG CONSTANT SMG$K_TRM_THIRD_UP = 327 ! Right button upJ DECLARE LONG CONSTANT SMG$K_TRM_FOURTH_UP = 328 ! Fourth button up !  ! Conditions ! [ DECLARE LONG CONSTANT SMG$K_TRM_CANCELLED = 508 ! I/O cancelled by SMG$CANCEL_INPUTN DECLARE LONG CONSTANT SMG$K_TRM_TIMEOUT = 509 ! Timeout period expiredJ DECLARE LONG CONSTANT SMG$K_TRM_BUFFER_FULL = 510 ! Buffer is fullJ DECLARE LONG CONSTAN A T SMG$K_TRM_UNKNOWN = 511 ! Unknown terminator ! L ! Screen Management request types - These constants are used internally/ ! by SMG$ and should not be used by users. ! 7 DECLARE LONG CONSTANT SMG$C_CHANGE_RENDITION = 103 DECLARE LONG CONSTANT SMG$C_DELETE_CHARS = 114 DECLARE LONG CONSTANT SMG$C_ERASE_DISPLAY = 121 DECLARE LONG CONSTANT SMG$C_ERASE_LINE = 132 DECLARE LONG CONSTANT SMG$C_HOME_CURSOR = 143 DECLARE LONG CONSTANT SMG$C_INSERT_C B HARS = 152 DECLARE LONG CONSTANT SMG$C_INSERT_LINE = 160 DECLARE LONG CONSTANT SMG$C_PUT_CHARS = 17/ DECLARE LONG CONSTANT SMG$C_PUT_LINE = 18: DECLARE LONG CONSTANT SMG$C_PUT_DISPLAY_ENCODED = 198 DECLARE LONG CONSTANT SMG$C_RETURN_CURSOR_POS = 206 DECLARE LONG CONSTANT SMG$C_PUT_WITH_SCROLL = 215 DECLARE LONG CONSTANT SMG$C_SET_CURSOR_ABS = 225 DECLARE LONG CONSTANT SMG$C_SET_CURSOR_REL = 232 DECLARE LONG CONSTANT SMG$C_DELETE_LINE = 242 C DECLARE LONG CONSTANT SMG$C_ERASE_CHARS = 25: DECLARE LONG CONSTANT SMG$C_SCROLL_DISPLAY_AREA = 26= DECLARE LONG CONSTANT SMG$C_CHANGE_VIRTUAL_DISPLAY = 273 DECLARE LONG CONSTANT SMG$C_LABEL_BORDER = 289 DECLARE LONG CONSTANT SMG$C_END_DISPLAY_UPDATE = 290 DECLARE LONG CONSTANT SMG$C_MOVE_TEXT = 30 !  ! Character Set Codes ! ? DECLARE LONG CONSTANT SMG$C_UNITED_KINGDOM = 0 ! Unused> DECLARE LONG CONSTANT SMG$C_ASCII = 1 ! ASCII char D setH DECLARE LONG CONSTANT SMG$C_SPEC_GRAPHICS = 2 ! Line drawing set9 DECLARE LONG CONSTANT SMG$C_ALT_CHAR = 3 ! Unused= DECLARE LONG CONSTANT SMG$C_ALT_GRAPHICS = 4 ! Unused- DECLARE LONG CONSTANT SMG$C_UNKNOWN = 52 DECLARE LONG CONSTANT SMG$C_SUPPLEMENTAL = 6/ DECLARE LONG CONSTANT SMG$C_JIS_ROMAN = 7. DECLARE LONG CONSTANT SMG$C_JIS_KANA = 8+ DECLARE LONG CONSTANT SMG$C_KANJI = 9, DECLARE LONG CONSTANT SMG$C_HANZI = 10, DECLAR E E LONG CONSTANT SMG$C_HANYU = 11- DECLARE LONG CONSTANT SMG$C_HANGUL = 12/ DECLARE LONG CONSTANT SMG$C_KS_ROMAN = 13 ! E ! The following constants define corner cursor positions used in ! SMG$HOME_CURSOR. ! U DECLARE LONG CONSTANT SMG$C_UPPER_LEFT = 0 ! Home cursor to upper left cornerU DECLARE LONG CONSTANT SMG$C_LOWER_LEFT = 1 ! Home cursor to lower left cornerW DECLARE LONG CONSTANT SMG$C_UPPER_RIGHT = 2 ! Home cursor to upper right cor F nerW DECLARE LONG CONSTANT SMG$C_LOWER_RIGHT = 3 ! Home cursor to lower right corner ! = ! The following constants define label positions used in ! SMG$LABEL_BORDER. ! H DECLARE LONG CONSTANT SMG$K_TOP = 0 ! Place label on top borderM DECLARE LONG CONSTANT SMG$K_BOTTOM = 1 ! Place label on bottom borderI DECLARE LONG CONSTANT SMG$K_LEFT = 2 ! Place label on left borderK DECLARE LONG CONSTANT SMG$K_RIGHT = 3 ! Place label on right borde G r ! 8 ! The following constants define menu types used in ! SMG$CREATE_MENU. ! D DECLARE LONG CONSTANT SMG$K_BLOCK = 0 ! Matrix of menu itemsP DECLARE LONG CONSTANT SMG$K_VERTICAL = 1 ! Vertical vector of menu itemsT DECLARE LONG CONSTANT SMG$K_HORIZONTAL = 2 ! Horizontal vector of menu items ! 7 ! Master color wheel for screen background colors.0 ! Used with SMG$CHANGE_PBD_CHARACTERISTICS. ! J DECLARE LONG CONSTANT SMG$C_COLOR_H UNKNOWN = 0 ! Unknown backgroundF DECLARE LONG CONSTANT SMG$C_COLOR_WHITE = 1 ! White backgroundF DECLARE LONG CONSTANT SMG$C_COLOR_BLACK = 2 ! Black backgroundD DECLARE LONG CONSTANT SMG$C_COLOR_BLUE = 3 ! Blue backgroundD DECLARE LONG CONSTANT SMG$C_COLOR_CYAN = 4 ! Cyan backgroundF DECLARE LONG CONSTANT SMG$C_COLOR_GREEN = 5 ! Green backgroundJ DECLARE LONG CONSTANT SMG$C_COLOR_MAGENTA = 6 ! Magenta backgroundB DECLARE LONG CONSTANT SMG$C_COLOI R_RED = 7 ! Red backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_YELLOW = 8 ! Yellow backgroundF DECLARE LONG CONSTANT SMG$C_COLOR_LIGHT = 9 ! Light backgroundE DECLARE LONG CONSTANT SMG$C_COLOR_DARK = 10 ! Dark backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER1 = 11 ! User 1 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER2 = 12 ! User 2 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER3 = 13 ! User 3 backgroundH DECLARE LONG CONSTANT SMG$C_CO J LOR_USER4 = 14 ! User 4 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER5 = 15 ! User 5 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER6 = 16 ! User 6 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER7 = 17 ! User 7 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER8 = 18 ! User 8 background ! < ! The following constants describe the type of terminal7 ! and are used with SMG$GET_PASTEBOARD_ATTRIBUTES. ! > DECLARE LONG CONSTANT SMG$K_UN K KNOWN = 0 ! Unknown type5 DECLARE LONG CONSTANT SMG$K_VT05 = 1 ! Unused5 DECLARE LONG CONSTANT SMG$K_VT52 = 2 ! Unused6 DECLARE LONG CONSTANT SMG$K_VT100 = 3 ! UnusedL DECLARE LONG CONSTANT SMG$K_VTFOREIGN = 4 ! Foreign terminal (ft1-8)B DECLARE LONG CONSTANT SMG$K_HARDCOPY = 5 ! Hardcopy deviceD DECLARE LONG CONSTANT SMG$K_VTTERMTABLE = 6 ! Video terminalS DECLARE LONG CONSTANT SMG$K_FIRST_PRIV_TYPE = 191 ! Used internally by SMG$ ! <L ! Define bits, masks, and fields for the control modes. ! F DECLARE LONG CONSTANT SMG$K_BUF_ENABLED = 0 ! Enable BufferingG DECLARE LONG CONSTANT SMG$K_MINUPD = 1 ! Enable minimal update K DECLARE LONG CONSTANT SMG$K_CLEAR_SCREEN = 2 ! Clear screen on exitH DECLARE LONG CONSTANT SMG$K_NOTABS = 3 ! Don't use physical tabsF DECLARE LONG CONSTANT SMG$K_PROTECT = 4 ! Protect against ASTsL DECLARE LONG CONSTANT SMG$K_IGNORE = 5 ! Don't output PBD M if batchedS DECLARE LONG CONSTANT SMG$K_RELEASE_PBD = 6 ! Don't touch users part of PBD; DECLARE LONG CONSTANT SMG$M_BUF_ENABLED = x'00000001'6 DECLARE LONG CONSTANT SMG$M_MINUPD = x'00000002'< DECLARE LONG CONSTANT SMG$M_CLEAR_SCREEN = x'00000004'6 DECLARE LONG CONSTANT SMG$M_NOTABS = x'00000008'7 DECLARE LONG CONSTANT SMG$M_PROTECT = x'00000010'6 DECLARE LONG CONSTANT SMG$M_IGNORE = x'00000020'; DECLARE LONG CONSTANT SMG$M_RELEASE_PBD = x'00000040 N '7 DECLARE LONG CONSTANT SMG$m_spare15 = x'FFFFFF80'2 DECLARE LONG CONSTANT SMG$S_SMGMODE_BITS = 4 record SMGMODE_BITS ! Enable buffering, ! Enable minimal update (default)! ! Clear screen on exit$ ! Don't use physical tabs! ! Protect against ASTs( ! Don't output PBD if batched* ! Don't touch users part of PBD ! extra bitst LONG BUF_ENABLED_bits ! COMMENT ADDED BY SDL - BUF_EN O ABLED_bits contains bits BUF_ENABLED through spare15 end record SMGMODE_BITS  ! ! Key definition attributes ! : DECLARE LONG CONSTANT SMG$M_KEY_NOECHO = x'00000001'= DECLARE LONG CONSTANT SMG$M_KEY_TERMINATE = x'00000002'8 DECLARE LONG CONSTANT SMG$M_KEY_LOCK = x'00000004'= DECLARE LONG CONSTANT SMG$M_KEY_PROTECTED = x'00000008'< DECLARE LONG CONSTANT SMG$M_KEY_SETSTATE = x'00000010'7 DECLARE LONG CONSTANT SMG$m_spare18 = x'FFFFFFE0' P 2 DECLARE LONG CONSTANT SMG$S_KEY_DEF_ATTR = 4 record SMG$R_KEY_DEF_ATTR ! Don't echo strings% ! This key terminates read ! Lock new state$ ! Definition is protected2 ! Definition sets a state (output only) ! extra bitsq LONG KEY_NOECHO_bits ! COMMENT ADDED BY SDL - KEY_NOECHO_bits contains bits KEY_NOECHO through spare18# end record SMG$R_KEY_DEF_ATTR  ! A ! Define bit masks Q and values for display renditions. ! 4 DECLARE LONG CONSTANT SMG$M_BOLD = x'00000001'7 DECLARE LONG CONSTANT SMG$M_REVERSE = x'00000002'5 DECLARE LONG CONSTANT SMG$M_BLINK = x'00000004'9 DECLARE LONG CONSTANT SMG$M_UNDERLINE = x'00000008'9 DECLARE LONG CONSTANT SMG$M_INVISIBLE = x'00000010'5 DECLARE LONG CONSTANT SMG$M_USER1 = x'00000100'5 DECLARE LONG CONSTANT SMG$M_USER2 = x'00000200'5 DECLARE LONG CONSTANT SMG$M_USER3 = x'00000400'5 R DECLARE LONG CONSTANT SMG$M_USER4 = x'00000800'5 DECLARE LONG CONSTANT SMG$M_USER5 = x'00001000'5 DECLARE LONG CONSTANT SMG$M_USER6 = x'00002000'5 DECLARE LONG CONSTANT SMG$M_USER7 = x'00004000'5 DECLARE LONG CONSTANT SMG$M_USER8 = x'00008000'7 DECLARE LONG CONSTANT SMG$m_spare14 = x'FFFF0000'1 DECLARE LONG CONSTANT SMG$S_SMGDEF_BITS = 4 record SMGDEF_BITS ! Bold rendition$ ! Reverse video rendition ! Blink renditiS on ! Underline rendition ! Invisible rendition$ ! internally used by SMG$ ! User rendition 1 ! User rendition 2 ! User rendition 3 ! User rendition 4 ! User rendition 5 ! User rendition 6 ! User rendition 7 ! User rendition 8 ! extra bits_ LONG BOLD_bits ! COMMENT ADDED BY SDL - BOLD_bits contains bits BOLD through spare14 end record T SMGDEF_BITS = DECLARE LONG CONSTANT SMG$M_NORMAL = 0 ! no bits set  ! 3 ! The following masks define values to be used: ! to specify a display attribute. These may be added/ ! together to specify multiple attributes. ! 6 DECLARE LONG CONSTANT SMG$M_BORDER = x'00000001': DECLARE LONG CONSTANT SMG$M_TRUNC_ICON = x'00000002'@ DECLARE LONG CONSTANT SMG$M_DISPLAY_CONTROLS = x'00000004'< DECLARE LONG CONSTANT SMG$M_USER_DISPLAY = x'00000008' U < DECLARE LONG CONSTANT SMG$M_BLOCK_BORDER = x'00000010'? DECLARE LONG CONSTANT SMG$M_PROTECT_DISPLAY = x'00000020'7 DECLARE LONG CONSTANT SMG$m_spare12 = x'FFFFFFC0'8 DECLARE LONG CONSTANT SMG$S_DISPLAY_ATTRIBUTES = 4 record DISPLAY_ATTRIBUTES ! Display is bordered$ ! Truncation icon enabled& ! Display carriage controls# ! User display for DEBUG& ! Display is block bordered) ! Protect display against V ASTs ! extra bitse LONG BORDER_bits ! COMMENT ADDED BY SDL - BORDER_bits contains bits BORDER through spare12# end record DISPLAY_ATTRIBUTES  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$CREATE_SUBPROCESS. ! 7 DECLARE LONG CONSTANT SMG$M_TRUSTED = x'00000001'8 DECLARE LONG CONSTANT SMG$M_AUTHPRIV = x'00000002'9 DECLARE LONG CONSTANT SMG$M_SUBSYSTEM = x'00000004'7 DECLARE LONG CONSTANT SM W G$m_spare20 = x'FFFFFFF8'= DECLARE LONG CONSTANT SMG$S_CREATE_SUBPROCESS_FLAGS = 4* record SMG$R_CREATE_SUBPROCESS_FLAGS- ! Set TRUSTED flag for LIB$SPAWN- ! Set AUTHPRIV flag for LIB$SPAWN- ! Set SUBSYSTEM flag for LIB$SPAWN ! extra bitsh LONG TRUSTED_bits ! COMMENT ADDED BY SDL - TRUSTED_bits contains bits TRUSTED through spare20. end record SMG$R_CREATE_SUBPROCESS_FLAGS  ! D ! The following defines bit X s used with subprocess manipulation. ! < DECLARE LONG CONSTANT SMG$M_DATA_FOLLOWS = x'00000001'8 DECLARE LONG CONSTANT SMG$M_SEND_EOF = x'00000002'8 DECLARE LONG CONSTANT SMG$M_NO_PRINT = x'00000004'7 DECLARE LONG CONSTANT SMG$m_spare11 = x'FFFFFFF8'6 DECLARE LONG CONSTANT SMG$S_SUBPROCESS_FLAGS = 4# record SMG$R_SUBPROCESS_FLAGS* ! The next call specifies data.2 ! Send an end-of-file to the subprocess1 ! Do not output command Y to the display ! extra bitsw LONG DATA_FOLLOWS_bits ! COMMENT ADDED BY SDL - DATA_FOLLOWS_bits contains bits DATA_FOLLOWS through spare11' end record SMG$R_SUBPROCESS_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$DELETE_PASTEBOARD. ! 9 DECLARE LONG CONSTANT SMG$M_ERASE_PBD = x'00000001'> DECLARE LONG CONSTANT SMG$M_IGNORE_BATCHED = x'00000002'7 DECLARE LONG CONSTANT SMG$m_spare10 = x'FFFFZ FFFC'6 DECLARE LONG CONSTANT SMG$S_DELETE_PBD_FLAGS = 4# record SMG$R_DELETE_PBD_FLAGS! ! Erase the pasteboard* ! Delete even if pbd is batched ! extra bitsn LONG ERASE_PBD_bits ! COMMENT ADDED BY SDL - ERASE_PBD_bits contains bits ERASE_PBD through spare10' end record SMG$R_DELETE_PBD_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$CREATE_PASTEBOARD. ! = DECLARE LONG C [ ONSTANT SMG$M_KEEP_CONTENTS = x'00000001'; DECLARE LONG CONSTANT SMG$M_WORKSTATION = x'00000002'6 DECLARE LONG CONSTANT SMG$m_spare9 = x'FFFFFFFC'6 DECLARE LONG CONSTANT SMG$S_CREATE_PBD_FLAGS = 4# record SMG$R_CREATE_PBD_FLAGS' ! Don't erase the pasteboard. ! Pasteboard is DECwindows terminal ! extra bitsy LONG KEEP_CONTENTS_bits ! COMMENT ADDED BY SDL - KEEP_CONTENTS_bits contains bits KEEP_CONTENTS through spare9' end \ record SMG$R_CREATE_PBD_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$READ_xxxx. ! 9 DECLARE LONG CONSTANT SMG$M_FUNC_KEYS = x'00000001'6 DECLARE LONG CONSTANT SMG$M_NOKEEP = x'00000002'8 DECLARE LONG CONSTANT SMG$M_NORECALL = x'00000004'6 DECLARE LONG CONSTANT SMG$m_spare8 = x'FFFFFFF8'0 DECLARE LONG CONSTANT SMG$S_READ_FLAGS = 4 record SMG$R_READ_FLAGS# ! Disable line-editting.. ] ! Don't save input in recall buffer/ ! Disable input recall for this call ! extra bitsm LONG FUNC_KEYS_bits ! COMMENT ADDED BY SDL - FUNC_KEYS_bits contains bits FUNC_KEYS through spare8! end record SMG$R_READ_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$SET_CURSOR_MODE. ! : DECLARE LONG CONSTANT SMG$M_CURSOR_OFF = x'00000001'9 DECLARE LONG CONSTANT SMG$M_CURSOR_ON = x'00000002'; ^ DECLARE LONG CONSTANT SMG$M_SCROLL_JUMP = x'00000004'= DECLARE LONG CONSTANT SMG$M_SCROLL_SMOOTH = x'00000008'7 DECLARE LONG CONSTANT SMG$m_spare16 = x'FFFFFFF0'6 DECLARE LONG CONSTANT SMG$S_SET_CURSOR_FLAGS = 4# record SMG$R_SET_CURSOR_FLAGS) ! Turn the physical cursor off( ! Turn the physical cursor on ! Set jump scroll ! Set smooth scroll ! extra bitsq LONG CURSOR_OFF_bits ! COMMENT ADDED BY SDL _ - CURSOR_OFF_bits contains bits CURSOR_OFF through spare16' end record SMG$R_SET_CURSOR_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$GET_DISPLAY_ATTR. ! 8 DECLARE LONG CONSTANT SMG$M_VIEWPORT = x'00000001': DECLARE LONG CONSTANT SMG$M_SUBPROCESS = x'00000002'4 DECLARE LONG CONSTANT SMG$M_MENU = x'00000004'6 DECLARE LONG CONSTANT SMG$m_spare7 = x'FFFFFFF8'7 DECLARE LONG CONSTANT SMG$S_GET_DISPLAY_FLAGS ` = 4$ record SMG$R_GET_DISPLAY_FLAGS( ! Display contains a viewport* ! Display contains a subprocess$ ! Display contains a menu ! extra bitsj LONG VIEWPORT_bits ! COMMENT ADDED BY SDL - VIEWPORT_bits contains bits VIEWPORT through spare7( end record SMG$R_GET_DISPLAY_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$PUT_CHARS. ! : DECLARE LONG CONSTANT SMG$M_ERASE_LINE = a x'00000001'< DECLARE LONG CONSTANT SMG$M_ERASE_TO_EOL = x'00000002'6 DECLARE LONG CONSTANT SMG$m_spare6 = x'FFFFFFFC'5 DECLARE LONG CONSTANT SMG$S_PUT_CHARS_FLAGS = 4" record SMG$R_PUT_CHARS_FLAGS" ! Erase the entire line- ! Erase from cursor to end of line ! extra bitsp LONG ERASE_LINE_bits ! COMMENT ADDED BY SDL - ERASE_LINE_bits contains bits ERASE_LINE through spare6& end record SMG$R_PUT_CHARS_FLAGS  ! C b ! The following defines bits used with the FLAGS parameter for ! SMG$MOVE_TEXT. ! 9 DECLARE LONG CONSTANT SMG$M_TEXT_SAVE = x'00000001'9 DECLARE LONG CONSTANT SMG$M_TEXT_ONLY = x'00000002'7 DECLARE LONG CONSTANT SMG$m_spare17 = x'FFFFFFFC'5 DECLARE LONG CONSTANT SMG$S_MOVE_TEXT_FLAGS = 4" record SMG$R_MOVE_TEXT_FLAGS- ! Don't erase text after moving it" ! Don't move attributes ! extra bitsn LONG TEXT_SAVE_bits c ! COMMENT ADDED BY SDL - TEXT_SAVE_bits contains bits TEXT_SAVE through spare17& end record SMG$R_MOVE_TEXT_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for+ ! SMG$PUT_PASTEBOARD and SMG$SNAPSHOT. ! 9 DECLARE LONG CONSTANT SMG$M_FORM_FEED = x'00000001'6 DECLARE LONG CONSTANT SMG$m_spare5 = x'FFFFFFFE'4 DECLARE LONG CONSTANT SMG$S_SNAPSHOT_FLAGS = 4! record SMG$R_SNAPSHOT_FLAGS. ! Output form feed before f d irst row ! extra bitsm LONG FORM_FEED_bits ! COMMENT ADDED BY SDL - FORM_FEED_bits contains bits FORM_FEED through spare5% end record SMG$R_SNAPSHOT_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$PUT_xxxx. ! 9 DECLARE LONG CONSTANT SMG$M_WRAP_CHAR = x'00000001'9 DECLARE LONG CONSTANT SMG$M_WRAP_WORD = x'00000002'6 DECLARE LONG CONSTANT SMG$m_spare4 = x'FFFFFFFC'4 DECLARE LONG CONSTANT e SMG$S_PUT_LINE_FLAGS = 4! record SMG$R_PUT_LINE_FLAGS1 ! Do character wrapping at end of line, ! Do word wrapping at end of line ! extra bitsm LONG WRAP_CHAR_bits ! COMMENT ADDED BY SDL - WRAP_CHAR_bits contains bits WRAP_CHAR through spare4% end record SMG$R_PUT_LINE_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$SET_KEYPAD_MODE. ! B DECLARE LONG CONSTANT SMG$M_KEYPAD_APPLI f CATION = x'00000001'> DECLARE LONG CONSTANT SMG$M_KEYPAD_NUMERIC = x'00000002'6 DECLARE LONG CONSTANT SMG$m_spare3 = x'FFFFFFFC'2 DECLARE LONG CONSTANT SMG$S_KEYPAD_MODES = 4 record SMG$R_KEYPAD_MODES ! Application keypad ! Numeric keypad ! extra bits LONG KEYPAD_APPLICATION_bits ! COMMENT ADDED BY SDL - KEYPAD_APPLICATION_bits contains bits KEYPAD_APPLICATION through & ! spare3# end record SMG$R_KEYPAD_MODES g  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$GET_PASTING_INFO. ! > DECLARE LONG CONSTANT SMG$M_DISPLAY_PASTED = x'00000001'7 DECLARE LONG CONSTANT SMG$m_spare19 = x'FFFFFFFE'8 DECLARE LONG CONSTANT SMG$S_PASTING_INFO_FLAGS = 4% record SMG$R_PASTING_INFO_FLAGS ! Display is pasted ! extra bits} LONG DISPLAY_PASTED_bits ! COMMENT ADDED BY SDL - DISPLAY_PASTED_bits contains bits DISPLAY_PASTED h through spare19) end record SMG$R_PASTING_INFO_FLAGS  ! > ! The following defines bits used with menu manipulation. ! ; DECLARE LONG CONSTANT SMG$M_REMOVE_ITEM = x'00000001'< DECLARE LONG CONSTANT SMG$M_FIXED_FORMAT = x'00000002'< DECLARE LONG CONSTANT SMG$M_DOUBLE_SPACE = x'00000004'< DECLARE LONG CONSTANT SMG$M_RETURN_IMMED = x'00000008': DECLARE LONG CONSTANT SMG$M_ERASE_MENU = x'00000010'9 DECLARE LONG CONSTANT SMG$M_WIDE_MENU = x'00 i 000020'9 DECLARE LONG CONSTANT SMG$M_WRAP_MENU = x'00000040': DECLARE LONG CONSTANT SMG$M_FULL_FIELD = x'00000080'6 DECLARE LONG CONSTANT SMG$m_spare2 = x'FFFFFF00'0 DECLARE LONG CONSTANT SMG$S_MENU_FLAGS = 4 record SMG$R_MENU_FLAGS" ! Only select item once ! Use fixed size cols# ! Double space menu rows! ! Ret on non-arrow key% ! Erase menu when deleting ! Wide menu items* ! Wrap menu i j tems top to bottom# ! Highlight entire field? ! SCROLL_BARS bitfield mask; /* Use scroll bar indicatorsA ! MARK_ITEM bitfield mask; /* Use def rend for chosen items ! extra bitss LONG REMOVE_ITEM_bits ! COMMENT ADDED BY SDL - REMOVE_ITEM_bits contains bits REMOVE_ITEM through spare2! end record SMG$R_MENU_FLAGS  ! 6 ! The following are used with SMG$PUT_LINE_xxxx, 2 ! SMG$SCROLL_DISPLAY_AREA, and SMG$DRAW_CHAR. ! 2 k DECLARE LONG CONSTANT SMG$M_UP = x'00000001'4 DECLARE LONG CONSTANT SMG$M_DOWN = x'00000002'5 DECLARE LONG CONSTANT SMG$M_RIGHT = x'00000004'4 DECLARE LONG CONSTANT SMG$M_LEFT = x'00000008'6 DECLARE LONG CONSTANT SMG$m_spare1 = x'FFFFFFF0'1 DECLARE LONG CONSTANT SMG$S_SCROLL_DIRS = 4 record SCROLL_DIRS ! Up ! Down ! Right ! Left ! extra bitsX LONG UP_bits ! COMMENT ADDED BY SDL - UP_bitsl contains bits UP through spare1 end record SCROLL_DIRS  !  ! Define data structures ! Z DECLARE LONG CONSTANT SMG$C_BAND_INFORMATION_TABLE = 12 ! Length of table in bytes ! Y DECLARE LONG CONSTANT SMG$C_PASTEBOARD_INFO_BLOCK = 36 ! Length of table in bytes ! W DECLARE LONG CONSTANT SMG$C_KEYBOARD_INFO_BLOCK = 36 ! Length of table in bytes- DECLARE LONG CONSTANT SMG$S_SMGDEF = 36 record SMGDEF variant ! ? m ! When an out-of-band AST triggers, the user's AST routine9 ! will get called. The first argument passed to his: ! routine is the address of a Band Information Table.7 ! The offsets into this table are described below.8 ! To make it easy to access from certain languages,8 ! the table is arranged so that it is convenient toA ! reference it as a longword vector as well as a byte block. !  case1 group SMG$R_BAND_INFORMATION_TABLE< n LONG SMG$L_PASTEBOARD_ID ! Pasteboard IDB LONG SMG$L_ARG ! User's AST argument/ group SMG$R_CHARACTER_OVERLAY variant caseD BYTE SMG$B_CHARACTER ! The character typed caseK LONG SMG$L_CHARACTER ! The character and 3 spaces end variant3 end group SMG$R_CHARACTER_OVERLAY5 o end group SMG$R_BAND_INFORMATION_TABLE4 ! When SMG$GET_PASTEBOARD_ATTRIBUTES is called,9 ! it returns data in a pasteboard information block.: ! The following structure is used to reference fields ! in this block.8 ! Items marked with a plus (+) will be 0 unless the0 ! device is a terminal (DEVCLASS=DC$_TERM). !  case0 group SMG$R_PASTEBOARD_INFO_BLOCKE LONG SMG$L_DEVCHAR ! Device characteristicsK p LONG SMG$L_DEVDEPEND ! Specific characteristics (1)K LONG SMG$L_DEVDEPEND2 ! Specific characteristics (2)K BYTE SMG$B_DEVCLASS ! Device class (e.g. DC$_TERM)G BYTE SMG$B_SMG_DEVTYPE ! Internal SMG device typeT BYTE SMG$B_PHY_DEVTYPE ! Physical device type (e.g. DT$_VT100)G BYTE SMG$B_ROWS ! Number of rows on device= WORD SMG$W_WIDTH q ! Terminal widthC BYTE SMG$B_COLOR ! PBD background colorD BYTE SMG$B_PARITY ! Parity attributes (+)A WORD SMG$W_SPEED ! Terminal Speed (+)G WORD SMG$W_FILL ! Fill characteristics (+)K WORD SMG$W_CURSOR_ROW ! Row where physical cursor is ! (1-origin)K WORD SMG$W_CURSOR_COL ! Col where physical cursor is ! (1-origin)D r LONG SMG$L_CURSOR_DID ! Display id of topmost! ! display that cursor is in. ! 0 if cursor is not in a ! virtual displayK LONG SMG$L_DEVDEPEND3 ! Specific characteristics (3)4 end group SMG$R_PASTEBOARD_INFO_BLOCK2 ! When SMG$GET_KEYBOARD_ATTRIBUTES is called,7 ! it returns data in a keyboard information block.: ! The following structure is used to reference fields ! in this block.8 ! Items marked wi s th a plus (+) will be 0 unless the0 ! device is a terminal (DEVCLASS=DC$_TERM). !  case. group SMG$R_KEYBOARD_INFO_BLOCKE LONG SMG$l_fill1 ! Device characteristicsK LONG SMG$l_fill2 ! Specific characteristics (1)K LONG SMG$l_fill3 ! Specific characteristics (2)K BYTE SMG$b_fill4 ! Device class (e.g. DC$_TERM)H BYTE SMG$B_RECALL_SIZE t ! Size of recall buffer (+)T BYTE SMG$b_fill5 ! Physical device type (e.g. DT$_VT100)R BYTE SMG$B_TYPEAHEAD_CHAR ! First char in typeahead buffer (+)= WORD SMG$w_fill6 ! Terminal widthX WORD SMG$W_TYPEAHEAD_COUNT ! Number of chars in typeahead buffer (+)" LONG SMG$l_fill7" LONG SMG$l_fill8" LONG SMG$l_fill9G LONG SMG$l_fill10 u ! Device characteristics 32 end group SMG$R_KEYBOARD_INFO_BLOCK end variant end record SMGDEF  ! H ! Define the out-of-band information table used when an out-of-band0 ! AST routine is called as it's own record. ! 8 DECLARE LONG CONSTANT SMG$S_OUT_OF_BAND_TABLE = 12$ record SMG$R_OUT_OF_BAND_TABLE< LONG SMG$L_PBD_ID ! Pasteboard IDB LONG SMG$L_USER_ARG ! User's AST argument! v group SMG$R_CHAR_OVERLAY variant caseB BYTE SMG$B_CHAR ! The character typed caseI LONG SMG$L_CHAR ! The character and 3 spaces end variant% end group SMG$R_CHAR_OVERLAY( end record SMG$R_OUT_OF_BAND_TABLE U DECLARE LONG CONSTANT SMG$C_OUT_OF_BAND_TABLE = 12 ! Length of table in bytes ! E ! Define the subprocess information table use w d when a subprocess0 ! AST routine is called as it's own record. ! < DECLARE LONG CONSTANT SMG$S_SUBPROCESS_INFO_TABLE = 12( record SMG$R_SUBPROCESS_INFO_TABLE9 LONG SMG$L_DISP_ID ! Display IDB LONG SMG$L_USR_ARG ! User's AST argumentI LONG SMG$L_STATUS ! Status of executed command, end record SMG$R_SUBPROCESS_INFO_TABLE Y DECLARE LONG CONSTANT SMG$C_SUBPROCESS_INFO_TABLE = 12 ! L x ength of table in bytes ! ; ! Define an information table that can be used by bothD ! SMG$GET_PASTEBOARD_ATTRIBUTES and SMG$GET_KEYBOARD_ATTRIBUTES ! as it's own record. ! ; DECLARE LONG CONSTANT SMG$S_ATTRIBUTE_INFO_BLOCK = 36' record SMG$R_ATTRIBUTE_INFO_BLOCKE LONG SMG$L_DEV_CHAR ! Device characteristicsK LONG SMG$L_DEV_DEPEND ! Specific characteristics (1)K LONG SMG$L_DEV_DEPEND2 ! Spe y cific characteristics (2)K BYTE SMG$B_DEV_CLASS ! Device class (e.g. DC$_TERM) group SMG$R_DEV_OVERLAY variant caseG BYTE SMG$B_PBD_TYPE ! Internal SMG device type caseH BYTE SMG$B_RECALL_NUM ! Size of recall buffer (+) end variant$ end group SMG$R_DEV_OVERLAYT BYTE SMG$B_DEV_TYPE ! Physical device type (e.g. DT$_VT100) z group SMG$R_ROW_OVERLAY variant caseG BYTE SMG$B_NUM_ROWS ! Number of rows on device caseQ BYTE SMG$B_TYPEAHD_CHAR ! First char in typeahead buffer (+) end variant$ end group SMG$R_ROW_OVERLAY= WORD SMG$W_NUM_COLUMNS ! Terminal width" group SMG$R_COUNT_OVERLAY variant caseV WORD SMG$W_TYPEAHD_CNT { ! Number of chars in typeahead buffer (+) case* group SMG$R_COUNT_STRUCTC BYTE SMG$B_PBD_COLOR ! PBD background colorD BYTE SMG$B_DEV_PARITY ! Parity attributes (+). end group SMG$R_COUNT_STRUCT end variant& end group SMG$R_COUNT_OVERLAYA WORD SMG$W_DEV_SPEED ! Terminal Speed (+)G WORD SMG$W_DEV_FILL ! Fill characteristics (+)K WORD SMG$W_PHYS_CURSOR_ROW ! Row where physical cursor isK WORD SMG$W_PHYS_CURSOR_COL ! Col where physical cursor isL LONG SMG$L_DISPLAY_ID ! Display containing phy cursorK LONG SMG$L_DEV_DEPEND3 ! Specific characteristics (3)+ end record SMG$R_ATTRIBUTE_INFO_BLOCK X DECLARE LONG CONSTANT SMG$C_ATTRIBUTE_INFO_BLOCK = 36 ! Length of table in bytesww} D ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ~ ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:54.06 ! % ! FILE: SMGMSG.MSG EDIT: SL1035 ! R ! ************************************************************** ************** ! * *N ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1994 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! J ! 1-035 MODIFY THE TEXT FOR SEVERAL MESSAGES TO MATCH THE HELP TEXT, ( ! WHICH IS CORRECT. SL 28-SEP-1994= ! 1-034 ADD /MACRO=$SMGMSG FOR STARLETSD. TS 7-MAY-1986< ! 1-033 CHANGE WINTRUFIT TO WINTRUNCFIT JCW 18-MAR-19864  ! 1-032 ADD SUBPROCESS MESSAGES. TS 12-DEC-19853 ! 1-031 ADD VIEWPORT MESSAGES. JCW 21-NOV-1985M ! 1-030 ADD SMG$_GETDATSTR FOR USE IN HELP TEXT DISPLAY. TS 17-OCT-1985L ! 1-029 ADD SMG$_NOTIMP - NOT IMPLEMENTED ERROR MESSAGE. JCW 2-JUL-19858 ! 1-028 ADD LINNOTFND AND EXPTOOCOM. TS 28-MAY-1985D ! 1-027 ADD DISREQ, LENNOTEQL, LENMUSONE FOR SMG$READ_VERIFY. G ! ADD FILESPEC TO TERMTABLE COMPILER ERROR MESSAGES. TS 8-JAN-1985' ! 1-001 ORIGINAL. PLL 16-MAR-1983  ! - ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! SMG$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION . !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $SMGDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. !  ! -) ! TEMPLATE FOR DOCUMENTING MESSAGES.= ! EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND# ! IS FOLLOWED BY A BLANK LINE.K ! BE SURE NOT TO USE THE  SEQUENCE "++" AFTER A "?" IN REGULAR COMMENTSB ! AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE= ! SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE' ! DOCUMENTATION BECOMES AUTOMATED. ! ++ ! FACILITY: SMG ! EXPLANATION: X ! USER ACTION: Y ! --" ! ; SET LH TO 18 (DECIMAL).. DECLARE LONG CONSTANT SMG$_FACILITY = 181 DECLARE LONG CONSTANT SMG$_NORMAL = 1212417 ! ++ ! FACILITY: SMG1 ! EXPLANATION: NORMAL SUCCESSFUL COMPLETION. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_PREDEFREP = 1212433 ! ++ ! FACILITY: SMGC ! EXPLANATION: A PREVIOUS KEY DEFINITION WAS REPLACED BY A NEW ! DEFINITION. ! USER ACTION: NONE ! -- ! +9 ! THE NEXT THREE MESSAGES ARE USED BY THE "batching"G ! 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". ! -4 DECLARE LONG CONSTANT SMG$_BATSTIPRO = 1212441 ! ++ ! FACILITY: SMG@ ! EXPLANATION: A USER TRIED TO END BATCHING (UPDATING) WITH+ ! A CALL TO SMG$END_DISPLAY_UPDATE OR0 ! SMG$END_PASTEBOARD_UPDATE. THIS DID NOT8 ! TERMINATE BATCHING BECAUSE THERE WERE MORE CALLS4 ! MADE TO BEGIN BATCHING THAN TO END BATCHING.B ! USER ACTION: NONE. SOME OUTER LEVEL ROUTINE PROBABLY STILL' ! WANTS BATCHING TO BE IN EFFECT.  ! --4 DECLARE LONG CONSTANT SMG$_BATWASOFF = 1212449 ! ++ ! FACILITY: SMG= ! EXPLANATION: A PROGRAM TRIED TO TURN OFF BATCHING WHEN! ! BATCHING WAS ALREADY OFF.A ! USER ACTION: PROBABLY NONE. CHECK THAT THERE WAS ONE CALL9 ! TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF. ! --4 DECLARE LONG CONSTANT SMG$_BATWAS_ON = 1212457 ! ++ ! FACILITY: SMG< ! EXPLANATION: A PROGRAM TRIED TO TURN ON BATCHING WHEN3 ! BATCHING WAS ALREA DY ON. THIS IS NORMAL IN ! A MODULAR ENVIRONMENT.8 ! USER ACTION: NONE. CHECK THAT THERE WAS ONE CALL9 ! TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF. ! --4 DECLARE LONG CONSTANT SMG$_PASALREXI = 1212465 ! ++ ! FACILITY: SMGE ! EXPLANATION: A USER TRIED TO CREATE A PASTEBOARD FOR A DEVICE,8 ! WHEN ONE WAS ALREADY CREATED. THIS IS NORMAL IN: ! A MODULAR ENVIRONMENT. THE EXISTING PASTEBOARD ID ! IS RETURNED.A ! USER ACTION:  NONE. MAKE SURE YOU DON'T DELETE A PASTEBOARD( ! THAT YOU ACTUALLY DIDN'T CREATE. ! --4 DECLARE LONG CONSTANT SMG$_NOT_A_TRM = 1212473 ! ++ ! FACILITY: SMGE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT7 ! THE PASTEBOARD HAS BEEN CREATED, BUT THE OUTPUT! ! DEVICE IS NOT A TERMINAL. ! USER ACTION: NONE. ! --4 DECLARE LONG CONSTANT SMG$_NO_MORMSG = 1212481 ! ++ ! FACILITY: SMGB ! EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FOUND THAT3 ! THERE WERE NO MORE MESSAGES TO BE OBTAINED. ! USER ACTION: NONE. ! --4 DECLARE LONG CONSTANT SMG$_WILUSERMS = 1212489 ! ++ ! FACILITY: SMG@ ! EXPLANATION: NORMALLY THE SCREEN IS UPDATED AT THE END OF: ! EVERY OUTPUT OPERATION. IF, HOWEVER, THE 'DEVICE'7 ! IS ACTUALLY A FILE OR AN UNKNOWN TERMINAL, THEN6 ! THIS MESSAGE IS GIVEN AT THE TIME OUTPUT WOULD% ! HAVE BEEN SENT TO THE SCREEN. ! USE R ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_NOTRMSOUT = 1212497 ! ++ ! FACILITY: SMGG ! EXPLANATION: SMG$SNAPSHOT IS USED WITH FILES AND UNKNOWN DEVICES< ! TO CAPTURE THE CONTENTS OF THE PASTEBOARD AT VARIOUS: ! TIMES. IF SMG$SNAPSHOT IS CALLED FOR A PASTEBOARD: ! ASSOCIATED WITH A VIDEO TERMINAL, THEN IT TAKES NO6 ! ACTION AND RETURNS THIS INFORMATIONAL MESSAGE. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_NO_CHADIS = 1 212505 ! ++ ! FACILITY: SMGG ! EXPLANATION: THE REQUESTED NUMBER OF COLUMNS TO CHANGE WAS ZERO,6 ! SO NOTHING IN THE VIRTUAL DISPLAY WAS CHANGED. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_PRISECMAP = 1212513 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS FOUND IN/ ! THE CALLER'S PRIVATE COPY OF TERMTABLE. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_GBLSECMAP = 1212521 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS FOUND IN= ! THE SYSTEM TERMTABLE. (REQUESTED TERMINAL DEFINITION9 ! DID NOT EXIST IN THE CALLER'S PRIVATE TERMTABLE.) ! USER ACTION: NONE ! --6 DECLARE LONG CONSTANT SMG$_WINTRUNCFIT = 1212529 ! ++ ! FACILITY: SMGI ! EXPLANATION: THE VIEWPORT SPECIFICATION WILL NOT FIT WHOLLY WITHIN< ! THE VIRTUAL DISPLAY. THE VIEWPORT HAS BEEN TRUNCATED* ! TO FIT WITHIN THE  VIRTUAL DISPLAY. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_SUBALREXI = 1212537 ! ++ ! FACILITY: SMGE ! EXPLANATION: A USER TRIED TO CREATE A SUBPROCESS FOR A VIRTUAL? ! DISPLAY, WHEN ONE WAS ALREADY CREATED. THIS IS NORMAL # ! IN A MODULAR ENVIRONMENT.  ! USER ACTION: NONE.  ! --4 DECLARE LONG CONSTANT SMG$_NONBRDMSG = 1212545 ! ++ ! FACILITY: SMGB ! EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FOUND THAT 9 ! THERE WAS A NON-BROADCAST MESSAGE TO BE OBTAINED. ! USER ACTION: NONE. ! --4 DECLARE LONG CONSTANT SMG$_FATERRLIB = 1212932 ! ++ ! FACILITY: SMG> ! EXPLANATION: AN INTERNAL ERROR HAS OCCURRED WITHIN SMG.= ! USER ACTION: CONTACT A DIGITAL SUPPORT REPRESENTATIVE. ! --1 DECLARE LONG CONSTANT SMG$_INVARG = 1212940 ! ++ ! FACILITY: SMGK ! EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE.A ! USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS. ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --1 DECLARE LONG CONSTANT SMG$_INVCOL = 1212948 ! ++ ! FACILITY: SMGJ ! EXPLANATION: AN INVALID COLUMN NUMBER WAS SPECIFIED. IT WAS EITHER8 ! LESS THAN 0 OR LARGER THAN THE NUMBER OF COLUMNS ! IN THE VIRTUAL DISPLAY.H ! USER ACTION: SPECIFY A VALID COLUMN NUMBER. COLUMNS ARE NUMBERED ! BEGINNING WITH 1. ! --4 DECLARE LONG CONSTANT SMG$_INV DIS_ID = 1212956 ! ++ ! FACILITY: SMG8 ! EXPLANATION: AN INVALID DISPLAY-ID WAS SPECIFIED.J ! USER ACTION: CHECK THAT YOU ARE PASSING THE DISPLAY ID BY REFERENCE4 ! NOT BY VALUE. ENSURE THAT THE DISPLAY ID WASB ! PREVIOUSLY SET UP BY A CALL TO SMG$CREATE_VIRTUAL_DISPLAY. ! --4 DECLARE LONG CONSTANT SMG$_INVPAS_ID = 1212964 ! ++ ! FACILITY: SMG; ! EXPLANATION: AN INVALID PASTEBOARD ID WAS SPECIFIED.M ! USER ACTION: CHECK THAT YOU ARE PAS SING THE PASTEBOARD ID BY REFERENCE; ! NOT BY VALUE. (A REFERENCE TO A 0 IS VALID, SINCE 0= ! IS A LEGAL PASTEBOARD ID.) ENSURE THAT THE PASTEBOARD* ! WAS PREVIOUSLY SET UP BY A CALL TO= ! SMG$CREATE_PASTEBOARD AND THAT THE PASTEBOARD HAS NOT ! BEEN DELETED. ! --1 DECLARE LONG CONSTANT SMG$_INVROW = 1212972 ! ++ ! FACILITY: SMGG ! EXPLANATION: AN INVALID ROW NUMBER WAS SPECIFIED. IT WAS EITHER5 ! LESS THAN 0 OR LARGER THAN THE NUM BER OF ROWS ! IN THE VIRTUAL DISPLAY.B ! USER ACTION: SPECIFY A VALID ROW NUMBER. ROWS ARE NUMBERED ! BEGINNING WITH 1. ! --4 DECLARE LONG CONSTANT SMG$_DSPIN_USE = 1212980 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOTB ! LEGAL WHILE OUTPUT TO THE VIRTUAL DISPLAY IS BEING ACTIVE.A ! FOR EXAMPLE, YOU CAN'T OUTPUT TEXT TO A DISPLAY IN AN ASTA ! ROUTINE THAT INTERRUPTED A SMG$ CALL ON THE SAME DISPL AY.M ! USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE UPDATES5 ! TO THE SAME VIRTUAL DISPLAY AT THE SAME TIME. ! --4 DECLARE LONG CONSTANT SMG$_TOOMANPAS = 1212988 ! ++ ! FACILITY: SMGB ! EXPLANATION: AN INTERNAL LIMIT ON THE NUMBER OF PASTEBOARDS5 ! THAT YOUR PROGRAM MAY HAVE HAS BEEN EXCEEDED." ! THE LIMIT IS CURRENTLY 31.* ! USER ACTION: USE FEWER PASTEBOARDS. ! --4 DECLARE LONG CONSTANT SMG$_WRONUMARG = 1212996 ! ++ ! FACILITY: SMGD ! EXPLANATION: AN SMG ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS4 ! (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) ! OR TOO MANY ARGUMENTS.= ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH' ! THE PROPER NUMBER OF ARGUMENTS. ! --4 DECLARE LONG CONSTANT SMG$_INVKBD_ID = 1213004 ! ++ ! FACILITY: SMG6 ! EXPLANATION: AN INVALID KEYBOARD ID WAS PASSED.K ! USER ACTION: CHECK THAT YOU ARE PASSING THE KEYBOARD ID BY REFERENCE5 ! NOT BY VALUE. ENSURE THAT THE KEYBOARD ID WAS' ! PREVIOUSLY SET UP BY A CALL TO $ ! SMG$CREATE_VIRTUAL_KEYBOARD. ! --4 DECLARE LONG CONSTANT SMG$_INVKTB_ID = 1213012 ! ++ ! FACILITY: SMG7 ! EXPLANATION: AN INVALID KEY TABLE ID WAS PASSED.L ! USER ACTION: CHECK THAT YOU ARE PASSING THE KEY TABLE ID BY REFERENCE6 ! NOT BY VALUE. ENSURE THAT THE KEY TABLE ID WAS' ! PREVIOUSLY SET UP BY A CALL TO  ! SMG$CREATE_KEY _TABLE. ! --4 DECLARE LONG CONSTANT SMG$_INVMAXLEN = 1213020 ! ++ ! FACILITY: SMGD ! EXPLANATION: THE MAXIMUM LENGTH SPECIFIED FOR AN INPUT STRING ! WAS TOO LONG.E ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS AN INPUT) ! STRING OF 512 CHARACTERS OR LESS. ! --4 DECLARE LONG CONSTANT SMG$_FILTOOLON = 1213028 ! ++ ! FACILITY: SMG6 ! EXPLANATION: THE LENGTH OF THE SPECIFIED STRING ! WAS TOO LONG.C ! USER AC TION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE' ! NAME OF 255 CHARACTERS OR LESS. ! --4 DECLARE LONG CONSTANT SMG$_PROTOOLON = 1213036 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS.A ! USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. ! --4 DECLARE LONG CONSTANT SMG$_NOTPASTED = 1213044 ! ++ ! FACILITY: SMGD ! EXPLANATION: AN ATTEMPT WAS MADE TO UNPASTE OR MOVE A DISPLAY8 ! THAT WAS NOT PASTED TO THE SPECIFIED PASTEBOARD.F ! USER ACTION: CHECK THAT YOU ARE REFERENCING THE CORRECT VIRTUAL6 ! DISPLAY. VERIFY THAT THE DISPLAY HAS NOT BEEN0 ! UNPASTED OR THAT YOU FORGOT TO PASTE IT. ! --4 DECLARE LONG CONSTANT SMG$_PBDIN_USE = 1213052 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOT> ! LEGAL WHILE OUTPUT TO THE PASTEBOARD IS BEING BATCHED.4 ! FOR EXAMPLE, YOU CAN'T CHANGE THE PA STEBOARD8 ! CHARACTERISTICS WHILE THE PASTEBOARD IS BATCHED.F ! USER ACTION: TURN OFF PASTEBOARD BATCHING BEFORE ATTEMPTING THE< ! OPERATION. YOU MAY TURN BATCHING ON AGAIN AFTER THE ! OPERATION. ! --4 DECLARE LONG CONSTANT SMG$_INVWIDARG = 1213060 ! ++ ! FACILITY: SMGE ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS0 ! OF THE TERMINAL, SETTING ITS WIDTH TO 0.> ! USER ACTION: CORRECT THE CODE. A WIDTH OF 0 IS ILLEGAL. ! --4 DECLARE LONG CONSTANT SMG$_INVPAGARG = 1213068 ! ++ ! FACILITY: SMGE ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS= ! OF THE TERMINAL, SETTING ITS HEIGHT (PAGE SIZE) TO 0.? ! USER ACTION: CORRECT THE CODE. A HEIGHT OF 0 IS ILLEGAL. ! --4 DECLARE LONG CONSTANT SMG$_INVCOLARG = 1213076 ! ++ ! FACILITY: SMGE ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS6 ! OF THE TERMINAL, CHANGING ITS BACK GROUND COLOR& ! TO A VALUE THAT WAS NOT LEGAL.D ! USER ACTION: CHECK THE SYMBOLIC NAME FOR THE BACKGROUND COLOR' ! DESIRED. SPECIFY IT CORRECTLY. ! --4 DECLARE LONG CONSTANT SMG$_DIALINNOT = 1213084 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE VERTICES SPECIFIED WILL RESULT IN A DIAGONAL LINE,2 ! RATHER THAN A VERTICAL OR HORIZONTAL LINE.J ! USER ACTION: RE-SPECIFY THE VERTICES SO THAT THE LINE DRAWN WILL BE ! VERTICAL OR HORIZONTAL. ! --4 DECLARE LONG CONSTANT SMG$_TABID_MIS = 1213092 ! ++ ! FACILITY: SMGI ! EXPLANATION: THE TERMTABLE INTERNAL CONSISTENCY CHECK FAILED. THE< ! ROUTINES WHICH FETCH INFORMATION FROM TERMTABLE HAVE; ! A DIFFERENT VERSION NUMBER THAN THE TERMTABLE DATA.H ! USER ACTION: PROBABLY THE ROUTINES WHICH FETCH THE DATA ARE NEWER= ! THAN YOUR TERMTABLE.EXE. RE-COMPILE TERMTABLE.TXT TO" ! UPDATE YOUR TERMTABLE.EXE. ! --4 DECLARE LONG CONSTANT SMG$ _UNDTERNAM = 1213100 ! ++ ! FACILITY: SMGF ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN< ! THE CALLER'S PRIVATE COPY OF TERMTABLE OR THE SYSTEM ! COPY OF TERMTABLE.I ! USER ACTION: IF YOU INTENDED TO USE A PRIVATE TERMINAL DEFINITION,; ! MAKE SURE THAT TERMTABLE.EXE EXISTS IN YOUR PRIVATE> ! DIRECTORY AND THAT THE LOGICAL NAME TERM$TABLOC POINTS> ! TO IT. IF YOU EXPECTED YOUR TERMINAL TO BE DEFINED IN= ! THE SYSTEM TERMT ABLE, CHECK WITH YOUR SYSTEM MANAGER. ! --4 DECLARE LONG CONSTANT SMG$_INVTERTAB = 1213108 ! ++ ! FACILITY: SMGD ! EXPLANATION: AN INVALID TERMINAL TABLE ADDRESS WAS SPECIFIED.J ! USER ACTION: CHECK THAT YOU ARE PASSING THE TERMINAL TABLE ARGUMENT> ! BY REFERENCE AND NOT BY VALUE. MAKE SURE THE TERMINAL. ! TABLE ADDRESS WAS ACQUIRED BY CALLING  ! SMG$INIT_TERM_TABLE. ! --4 DECLARE LONG CONSTANT SMG$_INVREQCOD = 1213116 ! ++ ! F ACILITY: SMGF ! EXPLANATION: DATA IS REQUESTED FROM TERMTABLE VIA REQUEST CODES< ! WHICH ARE AVAILABLE AS SYMBOLIC NAMES. THE CODE YOU " ! HAVE SPECIFIED IS INVALID.J ! USER ACTION: CHECK THE SPELLING OF THE SYMBOLIC NAME YOU ARE USING. ! --4 DECLARE LONG CONSTANT SMG$_NOTBOOCAP = 1213124 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)H ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A BOOLEAN CAPABILITY, ! NAME BUT ENCOUNTERED SOMETHING ELSE.E ! U SER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE9 ! MISSPELLED THE BOOLEAN CAPABILITY NAME OR OMITTED9 ! ANOTHER STATEMENT SUCH AS STRING OR NUMERIC WHICH3 ! WOULD HAVE TERMINATED BOOLEAN CAPABILITIES. ! --1 DECLARE LONG CONSTANT SMG$_SYNERR = 1213132 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)A ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED AN INVALID; ! SYNTAX. FOR INSTANCE, THERE MAY BE A MISPLACED OR  ! MISSING EQUALS SIGN.5 ! USER ACTION: CHECK YOUR TERMINAL DEFINITION.  ! --4 DECLARE LONG CONSTANT SMG$_UNDTERTYP = 1213140 ! ++ ! FACILITY: SMG F ! EXPLANATION: THE DEFINITION FOR THE REQUESTED TERMINAL TYPE WAS; ! NOT FOUND IN THE CALLER'S PRIVATE COPY OF TERMTABLE ! OR THE SYSTEM TERMTABLE.E ! USER ACTION: IF YOU INTENDED TO USE A PRIVATE DEFINITION, 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 DEFINITION TO EXIST IN: ! THE SYSTEM TERMTABLE, CONSULT YOUR SYSTEM MANAGER. ! --4 DECLARE LONG CONSTANT SMG$_MISTERNAM = 1213148 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: CAPABILITIES WERE NOT PRECEEDED BY THE NAME OF A ! TERMINAL.D ! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. MAKE SURE THAT; ! EACH DEFINITION STARTS WITH NAME = . ! --4 DECL ARE LONG CONSTANT SMG$_EXPTOOCOM = 1213156 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)1 ! EXPLANATION: THE SPECIFIED EXPRESSION WAS 8 ! TOO COMPLEX FOR THE TERMTABLE COMPILER TO PARSE.G ! USER ACTION: CORRECT YOUR CAPABILITY SO THAT IT IS LESS COMPLEX. ! --1 DECLARE LONG CONSTANT SMG$_ILLVAL = 1213164 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)E ! EXPLANATION: A BOOLEAN CAPABILITY WAS GIVEN A VALUE OTHER THAN ! 0 OR 1.J ! USER ACTION : CHECK YOUR TERMINAL DEFINITIONS. BOOLEAN CAPABILITIES1 ! MUST BE 0 OR 1 (OFF OR ON, RESPECTIVELY). ! --1 DECLARE LONG CONSTANT SMG$_INVEXP = 1213172 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED AN INVALID  ! ARITHMETIC EXPRESSION.C ! USER ACTION: CHECK YOUR DEFINITION. MAKE SURE THAT YOU HAVE6 ! USED ONLY VALID OPERATORS AND OPERANDS IN YOUR ! EXPRESSIONS. ! --4 DECLARE LONG CON STANT SMG$_ERRAT_LIN = 1213180 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: GENERAL INFORMATION MESSAGE INCLUDED WITH MANY: ! TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY- ! SPECIFICALLY WHERE AN ERROR OCCURRED.@ ! USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION. ! --1 DECLARE LONG CONSTANT SMG$_ERRLIN = 1213188 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: GENERAL INFORMATION MESSAGE INCLUDED WITH MANY: ! TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY3 ! SPECIFICALLY WHICH LINE CONTAINED AN ERROR.@ ! USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION. ! --4 DECLARE LONG CONSTANT SMG$_UNDTERNOP = 1213196 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN THE8 ! CALLER'S PRIVATE COPY OF TERMTABLE OR THE SYSTEM> ! TERMTABLE. THE CALLER'S PRIVATE TERMTABLE COULDN'T BE> ! BE ACCESSED, EITHE R BECAUSE IT DIDN'T EXIST OR BECAUSE$ ! RMS COULD NOT OPEN THE FILE.I ! USER ACTION: IF YOU INTENDED TO USE A DEFINITION FROM YOUR PRIVATE> ! TERMTABLE, MAKE SURE THAT TERMTABLE.EXE EXISTS IN YOUR? ! PRIVATE DIRECTORY AND THAT THE LOGICAL NAME TERM$TABLOC= ! POINTS TO IT. MAKE SURE THAT YOU HAVE READ ACCESS TO ! THE FILE. ! --4 DECLARE LONG CONSTANT SMG$_UNDTERNOS = 1213204 ! ++ ! FACILITY: SMGF ! EXPLANATION: THE REQUESTED TERMINAL D EFINITION WAS NOT FOUND IN? ! THE CALLER'S PRIVATE TERMTABLE OR THE SYSTEM TERMTABLE.- ! THE SYSTEM TERMTABLE WAS UNAVAILABLE.F ! USER ACTION: THE SYSTEM TERMTABLE SHOULD BE MAPPED AS A GLOBAL ; ! SECTION AND THEREFORE SHOULD ALWAYS BE AVAILABLE. 3 ! CONSULT YOUR SYSTEM MANAGER REGARDING THIS. ! --4 DECLARE LONG CONSTANT SMG$_MISFILSPE = 1213212 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)G ! EXPLANATION: THE REQUIRE STATEMENT NEEDS A FILE NAM E IN ORDER TO< ! LOCATE EXTERNAL DEFINITIONS WHICH SHOULD BECOME PART ! OF YOUR TERMTABLE.E ! USER ACTION: CHECK YOUR TERMTABLE.TXT. ADD A FILE NAME TO THE ! REQUIRE STATEMENT. ! --3 DECLARE LONG CONSTANT SMG$_UNRECSTA = 1213220 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)G ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED A STATEMENT THAT ! IT DOES NOT RECOGNIZE.F ! USER ACTION: CHECK YOUR DEFINITION. MAKE SURE YOU HAVE SPELLED:  ! KEYWORDS CORRECTLY AND THAT STATEMENTS APPEAR ONLY ! IN VALID SEQUENCES. ! --4 DECLARE LONG CONSTANT SMG$_FAIOPEFIL = 1213228 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: THE TERMTABLE COMPILER COULD NOT OPEN THE FILE ! SPECIFIED IN A REQUIRE.E ! USER ACTION: MAKE SURE THAT THE SPECIFIED FILE EXISTS AND THAT# ! YOU HAVE READ ACCESS TO IT. ! --2 DECLARE LONG CONSTANT SMG$_NO_ARGS = 1213236 ! ++ ! FACILITY: S MG A ! EXPLANATION: YOU REQUESTED A CAPABILITY THAT REQUIRES USER7 ! ARGUMENTS (SUCH AS A ROW AND COLUMN NUMBER) BUT ! DID NOT PROVIDE ANY.B ! USER ACTION: CHECK THE NUMBER OF ARGUMENTS REQUIRED BY THIS> ! CAPABILITY AND CORRECT YOUR CALL TO SMG$GET_TERM_DATA. ! --4 DECLARE LONG CONSTANT SMG$_NOTNUMCAP = 1213244 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)H ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A NUMERIC CAPABILITY, ! NAME BUT ENC OUNTERED SOMETHING ELSE.E ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE9 ! MISSPELLED THE NUMERIC CAPABILITY NAME OR OMITTED9 ! ANOTHER STATEMENT SUCH AS STRING OR BOOLEAN WHICH3 ! WOULD HAVE TERMINATED NUMERIC CAPABILITIES. ! --4 DECLARE LONG CONSTANT SMG$_NOTSTRCAP = 1213252 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)G ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A STRING CAPABILITY, ! NAME BUT ENCOUNTERED SOMETHING ELS E.E ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE8 ! MISSPELLED THE STRING CAPABILITY NAME OR OMITTED: ! ANOTHER STATEMENT SUCH AS BOOLEAN OR NUMERIC WHICH2 ! WOULD HAVE TERMINATED STRING CAPABILITIES. ! --4 DECLARE LONG CONSTANT SMG$_MISENDSTA = 1213260 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED AN END STATEMENT8 ! TO TERMINATE THE CURRENT TERMINAL DEFINITION AND' ! THIS E ND STATEMENT WAS MISSING.4 ! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. ! --4 DECLARE LONG CONSTANT SMG$_MISNAMREQ = 1213268 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED TERMTABLE.TXT TO9 ! BEGIN WITH A TERMINAL DEFINITION (NAME STATEMENT)6 ! OR A REQUIRE. SOMETHING ELSE WAS ENCOUNTERED./ ! USER ACTION: CHECK YOUR TERMTABLE.TXT.  ! --4 DECLARE LONG CONSTANT SMG$_ILLBATFNC = 1213276 ! ++ ! FACILITY: SMGD ! EXPLANATION: AN ATTEMPT WAS MADE TO PERFORM AN OPERATION THAT9 ! IS NOT PERMITTED WHILE A VIRTUAL DISPLAY IS BEING8 ! BATCHED (FOR EXAMPLE, PERFORMING INPUT OR MOVING ! THE VIRTUAL DISPLAY).7 ! USER ACTION: TERMINATE BATCHING FIRST BY CALLING ! SMG$END_DISPLAY_UPDATE. ! --1 DECLARE LONG CONSTANT SMG$_INVDIR = 1213284 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)A ! EXPLANATION: THE TERMTABLE COMPILER ACCEPTS O NLY A FEW FAO8 ! DIRECTIVES. IT ENCOUNTERED ONE THAT IT DOES NOT ! HANDLE.C ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. MAKE SURE THAT+ ! YOU USE ONLY VALID FAO DIRECTIVES. ! --4 DECLARE LONG CONSTANT SMG$_TRMNOTANS = 1213292 ! ++ ! FACILITY: SMG> ! EXPLANATION: A CALL TO SMG$GET_PHYSICAL_CURSOR WAS MADE5 ! SPECIFYING THAT THE TERMINAL IS TO BE QUERIED) ! TO DETERMINE WHERE THE CURSOR IS.3 ! THIS COULD NOT BE DONE BECAUSE THE TERMINAL3 ! 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. ! --4 DECLARE LONG CONSTANT SMG$_LENNOTEQL = 1213300 ! ++ ! FACILITY: SMG6 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE2 ! SPECIFYING A PICTURE STRING AND AN INITIAL4 ! STRING OF UNEQUAL LENGTH. SINCE THE INITIAL3 ! STRING IS USED AS THE DEFAULT VALUE FOR THE : ! INPUT, IT MUST MATCH THE PICTURE STRING IN LENGTH.F ! USER ACTION: MODIFY THE INITIAL STRING TO BE OF THE SAME LENGTH ! AS THE PICTURE STRING. ! --4 DECLARE LONG CONSTANT SMG$_LENMUSONE = 1213308 ! ++ ! FACILITY: SMG6 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE+ ! SPECIFYING A FILL STRING OR A CLEAR@ ! STRING OF MORE THAN ONE CHARACTER. SINCE FILL CHARACTER; ! MATCHING IS DONE ONE CHARACTER AT A TIME, ONLY ONE A ! CHARAC TER MAY BE SPECIFIED FOR THE FILL AND CLEAR STRING.K ! USER ACTION: MODIFY THE FILL AND/OR CLEAR STRING TO BE ONE CHARACTER ! LONG. ! --1 DECLARE LONG CONSTANT SMG$_DISREQ = 1213316 ! ++ ! FACILITY: SMG6 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE9 ! SPECIFYING RIGHT-JUSTIFICATION, NO DISPLAY_ID WAS9 ! SPECIFIED AND THE SCROLL_REVERSE SEQUENCE WAS NOT8 ! FOUND FOR THIS TERMINAL IN TERMTABLE.EXE. SINCE9 ! RIGHT-JUSTIFICATION RE QUIRES A CURSOR POSITIONING8 ! SEQUENCE TO WORK PROPERLY, EITHER THE DISPLAY_ID9 ! PARAMETER MUST BE SPECIFIED OR THE SCROLL_REVERSE0 ! SEQUENCE MUST BE ADDED TO TERMTABLE.EXE.G ! USER ACTION: ADD THE DISPLAY_ID PARAMETER TO THE SMG$READ_VERIFY3 ! CALL OR ADD THE SCROLL_REVERSE SEQUENCE TO  ! TERMTABLE.EXE. ! --1 DECLARE LONG CONSTANT SMG$_NOTIMP = 1213324 ! ++ ! FACILITY: SMGF ! EXPLANATION: YOU TRIED TO USE A ROUTINE THAT IS NOT IMP LEMENTED ! IN THIS VERSION OF SMG$.8 ! USER ACTION: GET THE APPROPRIATE VERSION OF SMG$. ! --6 DECLARE LONG CONSTANT SMG$_NO_WINASSOC = 1213332 ! ++ ! FACILITY: SMGG ! EXPLANATION: A VIEWPORT HAS NOT BEEN ASSOCIATED WITH THE VIRTUAL ! DISPLAY.= ! USER ACTION: CREATE A VIEWPORT ON THE VIRTUAL DISPLAY. ! --4 DECLARE LONG CONSTANT SMG$_WINEXISTS = 1213340 ! ++ ! FACILITY: SMGK ! EXPLANATION: A VIEWPORT EXISTS. THAT IS, A VIEW PORT HAS ALREADY BEEN, ! ASSOCIATED WITH THE VIRTUAL DISPLAY.H ! 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 VIEWPORT6 ! ROUTINES ON CHANGE/MOVE THE EXISTING VIEWPORT. ! --3 DECLARE LONG CONSTANT SMG$_NOSUBEXI = 1213348 ! ++ ! FACILITY: SMGI ! EXPLANATION: A SUBPROCESS DOES NOT EXIST FOR THE SPECIFIED VIRTUAL  ! DISPLAY. I ! USER ACTION: CALL SMG$CREATE_SUBPROCESS TO CREATE A SUBPROCESS FOR ! THIS VIRTUAL DISPLAY. ! --4 DECLARE LONG CONSTANT SMG$_INSQUOCRE = 1213356 ! ++ ! FACILITY: SMGG ! EXPLANATION: THE CURRENT BYTLM OR PRCLM QUOTA VALUE IS TOO SMALL ! TO CREATE A SUBPROCESS.C ! USER ACTION: INCREASE THE ACCOUNTS BYTLM AND/OR PRCLM VALUE. ! --4 DECLARE LONG CONSTANT SMG$_INPTOOLON = 1213364 ! ++ ! FACILITY: SMGJ ! EXPLA NATION: THE LENGTH OF AN INPUT STRING EXCEEDED 255 CHARACTERS.A ! USER ACTION: SHORTEN THE STRING TO 255 CHARACTERS OR LESS. ! --4 DECLARE LONG CONSTANT SMG$_KBDIN_USE = 1213372 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOTD ! LEGAL WHILE INPUT FROM THE VIRTUAL KEYBOARD IS BEING ACTIVE.B ! FOR EXAMPLE, YOU CAN'T READ TEXT FROM A KEYBOARD IN AN ASTB ! ROUTINE THAT INTERRUPTED A SMG$ CALL ON THE SAME KEYBOARD.L  ! USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE INPUTS8 ! FROM THE SAME VIRTUAL KEYBOARD AT THE SAME TIME. ! --. DECLARE LONG CONSTANT SMG$_EOF = 1213442 ! ++ ! FACILITY: SMG@ ! EXPLANATION: END OF FILE CONDITION WAS DETECTED ON INPUT.G ! USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS$ ! CONDITION AND RESPOND TO IT. ! --4 DECLARE LONG CONSTANT SMG$_KEYDEFPRO = 1213450 ! ++ ! FACILITY: SMGG ! EXP LANATION: THE SPECIFIED KEY IS ALREADY DEFINED, AND SINCE ITS9 ! DEFINITION IS PROTECTED, IT CAN NOT BE CHANGED OR ! RE-DEFINED. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_INVDEFATT = 1213458 ! ++ ! FACILITY: SMGK ! EXPLANATION: WHEN A KEY IS DEFINED, ATTRIBUTES SUCH AS NOECHO MAY BE? ! SPECIFIED WITH THE DEFINITION. AN ATTEMPT WAS MADE TO% ! SPECIFY AN UNKNOWN ATTRIBUTE.G ! USER ACTION: CHECK THE LIST OF VALID ATTRIBUTES AND CORRECT YOUR ! PROGRAM. ! --4 DECLARE LONG CONSTANT SMG$_INVKEYNAM = 1213466 ! ++ ! FACILITY: SMGG ! 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. ! --4 DECLARE LONG CONSTANT SMG$_INVSTANAM = 1213474 ! ++ ! FACILITY: SMGI ! EXPLANATION: THE SPECIFIED STATE NAME WAS LESS THAN 1 CHARACTER OR ! MORE THAN 31 CHARACT ERS.@ ! USER ACTION: CHOOSE A STATE NAME WITH 1 TO 31 CHARACTERS. ! --4 DECLARE LONG CONSTANT SMG$_LINNOTFND = 1213482 ! ++ ! FACILITY: SMG: ! EXPLANATION: THE INPUT LINE REQUESTED IN A CALL TO , ! SMG$RETURN_INPUT_LINE WAS NOT FOUND.G ! USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS$ ! CONDITION AND RESPOND TO IT. ! --4 DECLARE LONG CONSTANT SMG$_KEYNOTDEF = 1216512 ! ++ ! FACILITY: SMGH ! EXPLANATION: AN A TTEMPT WAS MADE TO PERFORM AN OPERATION, SUCH AS8 ! SMG$GET_KEY_DEF, ON A KEY WHICH WAS NOT DEFINED.E ! USER ACTION: CHECK YOUR PROGRAM TO SEE IF THIS KEY SHOULD HAVE ! BEEN DEFINED. ! --5 DECLARE LONG CONSTANT SMG$_NOMOREKEYS = 1216520 ! ++ ! FACILITY: SMGJ ! EXPLANATION: SMG$LIST_KEY_DEFS, WHEN CALLED REPEATEDLY, RETURNS ALL> ! THE KEY DEFINITIONS IN A KEY TABLE. WHEN THERE ARE NO1 ! MORE DEFINITIONS, THIS ERROR IS RETURNED.O ! USER ACTION: MODIFY YOUR PROGRAM TO EXPECT THIS CONDITION, IF NECESSARY. ! --4 DECLARE LONG CONSTANT SMG$_STRTERESC = 1216528 ! ++ ! FACILITY: SMGH ! EXPLANATION: AN SMG OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE> ! EMBEDDED IN THE OUTPUT STRING. THE OUTPUT STRING WAS 9 ! WRITTEN TO THE VIRTUAL DISPLAY BUT THE STRING WAS* ! TERMINATED AT THE ESCAPE SEQUENCE.E ! USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE: ! SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION7 ! PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST> ! LIKELY A SMG ROUTINE THAT PROVIDES THAT FUNCTIONALITY. ! --4 DECLARE LONG CONSTANT SMG$_GBLNOTCRE = 1216536 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE SYSTEM PROGRAM THAT MAPS TERMTABLE.EXE AS A GLOBAL! ! SECTION WAS UNSUCCESSFUL.K ! USER ACTION: THIS MESSAGE SHOULD BE HANDLED ONLY BY SYSTEM MANAGERS.: ! IF THERE IS ALREADY AN EXISTING GLOBAL SECTION FORA ! TERMTABLE, THE SYSTEM MUST BE REBOOTED IN ORDER TO CREATE ! A NEW GLOBAL SECTION. ! --+ ! THE FOLLOWING IS USED WITH GBLNOTCRE4 DECLARE LONG CONSTANT SMG$_DELEXIGBL = 1216544 ! ++ ! FACILITY: SMGG ! EXPLANATION: THE SYSTEM PROGRAM WHICH MAPS TERMTABLE AS A GLOBAL> ! SECTION WAS UNSUCCESSFUL. BEFORE A NEW GLOBAL SECTION9 ! CAN BE CREATED, THE PREVIOUS ONE MUST BE DELETED.E ! USER ACTION: THE SYSTEM MUST BE REBOOTED IN ORDER TO MAP A NEW , ! TERMTABLE.EXE AS THE GLOBAL SECTION. ! --4 DECLARE LONG CONSTANT SMG$_GETDATSTR = 1216552 ! ++ ! FACILITY: SMGI ! EXPLANATION: THIS MESSAGE IS SIGNALED INTERNALLY TO ALLOW THE HELP< ! OUTPUT ROUTINE THAT WAS CALLED BY LBR$OUTPUT_HELP TO? ! ACCESS THE DISPLAY_ID AND KEYBOARD_ID FOR THE SPECIFIED< ! DISPLAY. THIS MESSAGE SHOULD NEVER BE RETURNED AS A? ! STATUS FROM ANY SMG ROUTINE AND MUST NOT BE DOCUMENTED. ! USER ACTION: NONE.  ! --3 DECLARE LONG CONSTANT SMG$_OPNOTSUP = 1216560 ! ++ ! FACILITY: SMGE ! EXPLANATION: THE REQUESTED OPERATION CANNOT BE PERFORMED SINCE< ! THE TERMINAL HARDWARE DOES NOT SUPPORT THIS FEATURE.H ! USER ACTION: RUN THE APPLICATION ON A TERMINAL THAT SUPPORTS THIS ! FEATURE. ! --4 DECLARE LONG CONSTANT SMG$_HLPPMTSTR = 1216568 ! ++ ! FACILITY: SMGK ! EXPLANATION: THIS MESSAGE IS THE PROMPT STRING OUTPUT BY THE ROUTINE= ! SMG$PUT_HELP_TEXT. IT IS NOT A NORMAL ERROR MESSAGE : ! BUT RESIDES HERE TO ALLOW TRANSLATION TO LANGUAGES ! OTHER THAN ENGLISH. ! USER ACTION: NONE. ! --ww ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF: ! Terminal Capability Pointers for RTL SMG$ facility  ! * ! Boolean capabilities here - 1 - 220 ! 4 DECLARE LONG CONSTANT SMG$K_ADVANCED_VIDEO = 1. DECLARE LONG CONSTANT SMG$K_ANSI_CRT = 21 DECLARE LONG CONSTANT SMG$K_AUTO_MARGIN = 3/ DECLARE LONG CONSTANT SMG$K_BACKSPACE = 40 DECLARE LONG CONSTANT SMG$K_BLOCK_MODE = 5- DECLARE LONG CONSTANT SMG$K_DEC_CRT = 6* DECLARE LONG CONSTANT SMG$K_EDIT = 7/ DECLARE LONG CONSTANT SMG$K_EIGHT_BIT = 8- DECLARE LONG CONSTANT SMG$K_FULLDUP = 95 DECLARE LONG CONSTANT SMG$K_IGNORE_NEWLINE = 108 DECLARE LONG CONSTANT SMG$K_INSERT_MODE_NULLS = 110 DECLARE LONG CONSTANT SMG$K_LOWERCASE = 12/ DECLARE LONG CONSTANT SMG$K_NO_ERASE = 130 DECLARE LONG CONSTANT SMG$K_NO_SCROLL = 141 DECLARE LONG CONSTANT SMG$K_OVERSTRIKE = 153 DECLARE LONG CONSTANT SMG$K_PRINTER_PORT = 16, DECLARE LONG CONSTANT SMG$K_REGIS = 17, DECLARE LONG CONSTANT SMG$K_SCOPE = 185 DECLARE LONG CONSTANT SMG$K_SIXEL_GRAPHICS = 196 DECLARE LONG CONSTANT SMG$K_SOFT_CHARACTERS = 204 DECLARE LONG CONSTANT SMG$K_PHYSICAL_TABS = 212 DECLARE LONG CONSTANT SMG$K_PHYSICAL _FF = 220 DECLARE LONG CONSTANT SMG$K_UNDERLINE = 239 DECLARE LONG CONSTANT SMG$K_CURSOR_REPORT_ANSI = 240 DECLARE LONG CONSTANT SMG$K_DEC_CRT_2 = 250 DECLARE LONG CONSTANT SMG$K_DEC_CRT_3 = 269 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_COL_ROW = 27- DECLARE LONG CONSTANT SMG$K_TEXT16 = 280 DECLARE LONG CONSTANT SMG$K_DEC_CRT_4 = 290 DECLARE LONG CONSTANT SMG$K_DEC_CRT_5 = 301 DECLARE LONG CONSTANT SMG$K_ANSI_COLOR = 31 ! 6 ! Private cap abilities reserved for customer use.( ! Put them at the end of the range. ! 5 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_1 = 2115 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_2 = 2125 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_3 = 2135 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_4 = 2145 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_5 = 2155 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_6 = 2165 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_7 = 2175 DECLARE LONG CONSTAN T SMG$K_PRIVATE_BOO_8 = 2185 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_9 = 2196 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_10 = 2208 DECLARE LONG CONSTANT SMG$K_MAX_BOOLEAN_CODE = 220 ! - ! Numeric capabilities here - 221 to 440 ! / DECLARE LONG CONSTANT SMG$K_COLUMNS = 221/ DECLARE LONG CONSTANT SMG$K_CR_FILL = 222- DECLARE LONG CONSTANT SMG$K_FRAME = 223/ DECLARE LONG CONSTANT SMG$K_LF_FILL = 2246 DECLARE LONG CONSTANT SMG$K_NUMBER_FN_ KEYS = 225, DECLARE LONG CONSTANT SMG$K_ROWS = 226; DECLARE LONG CONSTANT SMG$K_VMS_TERMINAL_NUMBER = 227; DECLARE LONG CONSTANT SMG$K_WIDE_SCREEN_COLUMNS = 228 ! / ! Private capabilities for customer use. ( ! Put them at the end of the range. ! 5 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_1 = 4315 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_2 = 4325 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_3 = 4335 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_4 = 4345 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_5 = 4355 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_6 = 4365 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_7 = 4375 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_8 = 4385 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_9 = 4396 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_10 = 4408 DECLARE LONG CONSTANT SMG$K_MAX_NUMERIC_CODE = 440 ! + ! String capabilities here - 441 - 660 ! < DECLARE LONG CONSTANT SMG$K_BEGIN_AL TERNATE_CHAR = 4413 DECLARE LONG CONSTANT SMG$K_BEGIN_BLINK = 4422 DECLARE LONG CONSTANT SMG$K_BEGIN_BOLD = 4439 DECLARE LONG CONSTANT SMG$K_BEGIN_DELETE_MODE = 4449 DECLARE LONG CONSTANT SMG$K_BEGIN_INSERT_MODE = 445? DECLARE LONG CONSTANT SMG$K_BEGIN_LINE_DRAWING_CHAR = 4465 DECLARE LONG CONSTANT SMG$K_BEGIN_REVERSE = 4478 DECLARE LONG CONSTANT SMG$K_BEGIN_UNDERSCORE = 4485 DECLARE LONG CONSTANT SMG$K_BOTTOM_T_CHAR = 4491 DECLARE LONG CONST ANT SMG$K_CLEAR_TAB = 4502 DECLARE LONG CONSTANT SMG$K_CROSS_CHAR = 4513 DECLARE LONG CONSTANT SMG$K_CURSOR_DOWN = 4523 DECLARE LONG CONSTANT SMG$K_CURSOR_LEFT = 4534 DECLARE LONG CONSTANT SMG$K_CURSOR_RIGHT = 4541 DECLARE LONG CONSTANT SMG$K_CURSOR_UP = 4553 DECLARE LONG CONSTANT SMG$K_DARK_SCREEN = 4563 DECLARE LONG CONSTANT SMG$K_DELETE_CHAR = 4573 DECLARE LONG CONSTANT SMG$K_DELETE_LINE = 4589 DECLARE LONG CONSTANT SMG$K_DEVICE_ATTRIBUTE S = 459: DECLARE LONG CONSTANT SMG$K_DOUBLE_HIGH_BOTTOM = 4607 DECLARE LONG CONSTANT SMG$K_DOUBLE_HIGH_TOP = 4613 DECLARE LONG CONSTANT SMG$K_DOUBLE_WIDE = 4621 DECLARE LONG CONSTANT SMG$K_DUPLICATE = 463: DECLARE LONG CONSTANT SMG$K_END_ALTERNATE_CHAR = 4641 DECLARE LONG CONSTANT SMG$K_END_BLINK = 4650 DECLARE LONG CONSTANT SMG$K_END_BOLD = 4667 DECLARE LONG CONSTANT SMG$K_END_DELETE_MODE = 4677 DECLARE LONG CONSTANT SMG$K_END_INSERT_MODE = 468= DECLARE LONG CONSTANT SMG$K_END_LINE_DRAWING_CHAR = 4693 DECLARE LONG CONSTANT SMG$K_END_REVERSE = 4706 DECLARE LONG CONSTANT SMG$K_END_UNDERSCORE = 471< DECLARE LONG CONSTANT SMG$K_ERASE_TO_END_DISPLAY = 4729 DECLARE LONG CONSTANT SMG$K_ERASE_TO_END_LINE = 473; DECLARE LONG CONSTANT SMG$K_ERASE_WHOLE_DISPLAY = 4748 DECLARE LONG CONSTANT SMG$K_ERASE_WHOLE_LINE = 475, DECLARE LONG CONSTANT SMG$K_HOME = 4766 DECLARE LONG CONSTANT SMG$K_HORI ZONTAL_BAR = 4773 DECLARE LONG CONSTANT SMG$K_INIT_STRING = 4783 DECLARE LONG CONSTANT SMG$K_INSERT_CHAR = 4793 DECLARE LONG CONSTANT SMG$K_INSERT_LINE = 4802 DECLARE LONG CONSTANT SMG$K_INSERT_PAD = 481- DECLARE LONG CONSTANT SMG$K_KEY_0 = 482- DECLARE LONG CONSTANT SMG$K_KEY_1 = 483- DECLARE LONG CONSTANT SMG$K_KEY_2 = 484- DECLARE LONG CONSTANT SMG$K_KEY_3 = 485- DECLARE LONG CONSTANT SMG$K_KEY_4 = 486- DECLARE LONG CONSTANT SMG$K_ KEY_5 = 487- DECLARE LONG CONSTANT SMG$K_KEY_6 = 488- DECLARE LONG CONSTANT SMG$K_KEY_7 = 489- DECLARE LONG CONSTANT SMG$K_KEY_8 = 490- DECLARE LONG CONSTANT SMG$K_KEY_9 = 4915 DECLARE LONG CONSTANT SMG$K_KEY_BACKSPACE = 4921 DECLARE LONG CONSTANT SMG$K_KEY_COMMA = 4936 DECLARE LONG CONSTANT SMG$K_KEY_DOWN_ARROW = 494. DECLARE LONG CONSTANT SMG$K_KEY_E1 = 495. DECLARE LONG CONSTANT SMG$K_KEY_E2 = 496. DECLARE LONG CONSTANT SMG$K_KEY_E3 = 497. DECLARE LONG CONSTANT SMG$K_KEY_E4 = 498. DECLARE LONG CONSTANT SMG$K_KEY_E5 = 499. DECLARE LONG CONSTANT SMG$K_KEY_E6 = 5001 DECLARE LONG CONSTANT SMG$K_KEY_ENTER = 501. DECLARE LONG CONSTANT SMG$K_KEY_F1 = 502. DECLARE LONG CONSTANT SMG$K_KEY_F2 = 503. DECLARE LONG CONSTANT SMG$K_KEY_F3 = 504. DECLARE LONG CONSTANT SMG$K_KEY_F4 = 505. DECLARE LONG CONSTANT SMG$K_KEY_F5 = 506. DECLARE LONG CONSTANT SMG$K_KEY_F6 = 507. DECLARE LONG CONSTANT SMG$K_KEY_F7 = 508. DECLARE LONG CONSTANT SMG$K_KEY_F8 = 509. DECLARE LONG CONSTANT SMG$K_KEY_F9 = 510/ DECLARE LONG CONSTANT SMG$K_KEY_F10 = 511/ DECLARE LONG CONSTANT SMG$K_KEY_F11 = 512/ DECLARE LONG CONSTANT SMG$K_KEY_F12 = 513/ DECLARE LONG CONSTANT SMG$K_KEY_F13 = 514/ DECLARE LONG CONSTANT SMG$K_KEY_F14 = 515/ DECLARE LONG CONSTANT SMG$K_KEY_F15 = 516/ DECLARE LONG CONSTANT SMG$K_KEY_F16 = 517/ DECLARE LONG CONSTAN T SMG$K_KEY_F17 = 518/ DECLARE LONG CONSTANT SMG$K_KEY_F18 = 519/ DECLARE LONG CONSTANT SMG$K_KEY_F19 = 520/ DECLARE LONG CONSTANT SMG$K_KEY_F20 = 5216 DECLARE LONG CONSTANT SMG$K_KEY_LEFT_ARROW = 5221 DECLARE LONG CONSTANT SMG$K_KEY_MINUS = 5232 DECLARE LONG CONSTANT SMG$K_KEY_PERIOD = 524/ DECLARE LONG CONSTANT SMG$K_KEY_PF1 = 525/ DECLARE LONG CONSTANT SMG$K_KEY_PF2 = 526/ DECLARE LONG CONSTANT SMG$K_KEY_PF3 = 527/ DECLARE LONG CON STANT SMG$K_KEY_PF4 = 5287 DECLARE LONG CONSTANT SMG$K_KEY_RIGHT_ARROW = 5294 DECLARE LONG CONSTANT SMG$K_KEY_UP_ARROW = 5300 DECLARE LONG CONSTANT SMG$K_LABEL_F1 = 5310 DECLARE LONG CONSTANT SMG$K_LABEL_F2 = 5320 DECLARE LONG CONSTANT SMG$K_LABEL_F3 = 5330 DECLARE LONG CONSTANT SMG$K_LABEL_F4 = 5340 DECLARE LONG CONSTANT SMG$K_LABEL_F5 = 5350 DECLARE LONG CONSTANT SMG$K_LABEL_F6 = 5360 DECLARE LONG CONSTANT SMG$K_LABEL_F7 = 5370 DECLARE LO NG CONSTANT SMG$K_LABEL_F8 = 5380 DECLARE LONG CONSTANT SMG$K_LABEL_F9 = 5391 DECLARE LONG CONSTANT SMG$K_LABEL_F10 = 5401 DECLARE LONG CONSTANT SMG$K_LABEL_F11 = 5411 DECLARE LONG CONSTANT SMG$K_LABEL_F12 = 5421 DECLARE LONG CONSTANT SMG$K_LABEL_F13 = 5431 DECLARE LONG CONSTANT SMG$K_LABEL_F14 = 5441 DECLARE LONG CONSTANT SMG$K_LABEL_F15 = 5451 DECLARE LONG CONSTANT SMG$K_LABEL_F16 = 5461 DECLARE LONG CONSTANT SMG$K_LABEL_F17 = 5471 DECLARE LONG CONSTANT SMG$K_LABEL_F18 = 5481 DECLARE LONG CONSTANT SMG$K_LABEL_F19 = 5491 DECLARE LONG CONSTANT SMG$K_LABEL_F20 = 5503 DECLARE LONG CONSTANT SMG$K_LEFT_T_CHAR = 5514 DECLARE LONG CONSTANT SMG$K_LIGHT_SCREEN = 5529 DECLARE LONG CONSTANT SMG$K_LOWER_LEFT_CORNER = 553: DECLARE LONG CONSTANT SMG$K_LOWER_RIGHT_CORNER = 554, DECLARE LONG CONSTANT SMG$K_NAME = 5554 DECLARE LONG CONSTANT SMG$K_NEWLINE_CHAR = 5560 DECLARE LONG CONSTANT SMG$K_PAD_CHAR = 5576 DECLARE LONG CONSTANT SMG$K_RESTORE_CURSOR = 5584 DECLARE LONG CONSTANT SMG$K_RIGHT_T_CHAR = 5593 DECLARE LONG CONSTANT SMG$K_SAVE_CURSOR = 5606 DECLARE LONG CONSTANT SMG$K_SCROLL_FORWARD = 5616 DECLARE LONG CONSTANT SMG$K_SCROLL_REVERSE = 562@ DECLARE LONG CONSTANT SMG$K_SEL_ERASE_TO_END_DISPLAY = 563= DECLARE LONG CONSTANT SMG$K_SEL_ERASE_TO_END_LINE = 564? DECLARE LONG CONSTANT SMG$K_SEL_ERASE_WHOLE_DISPLAY = 565< DECLAR E LONG CONSTANT SMG$K_SEL_ERASE_WHOLE_LINE = 566> DECLARE LONG CONSTANT SMG$K_SET_APPLICATION_KEYPAD = 567> DECLARE LONG CONSTANT SMG$K_SET_CHAR_NOT_SEL_ERASE = 568: DECLARE LONG CONSTANT SMG$K_SET_CHAR_SEL_ERASE = 5696 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_ABS = 570: DECLARE LONG CONSTANT SMG$K_SET_NUMERIC_KEYPAD = 5719 DECLARE LONG CONSTANT SMG$K_SET_SCROLL_REGION = 572/ DECLARE LONG CONSTANT SMG$K_SET_TAB = 5733 DECLARE LONG CONSTANT SMG$K_SINGLE_H IGH = 5740 DECLARE LONG CONSTANT SMG$K_TAB_CHAR = 5752 DECLARE LONG CONSTANT SMG$K_TOP_T_CHAR = 5766 DECLARE LONG CONSTANT SMG$K_UNDERLINE_CHAR = 5779 DECLARE LONG CONSTANT SMG$K_UPPER_LEFT_CORNER = 578: DECLARE LONG CONSTANT SMG$K_UPPER_RIGHT_CORNER = 5794 DECLARE LONG CONSTANT SMG$K_VERTICAL_BAR = 5804 DECLARE LONG CONSTANT SMG$K_WIDTH_NARROW = 5812 DECLARE LONG CONSTANT SMG$K_WIDTH_WIDE = 582> DECLARE LONG CONSTANT SMG$K_CURSOR_POSITION_REPORT = 583? DECLARE LONG CONSTANT SMG$K_REQUEST_CURSOR_POSITION = 5842 DECLARE LONG CONSTANT SMG$K_CR_GRAPHIC = 5852 DECLARE LONG CONSTANT SMG$K_FF_GRAPHIC = 5862 DECLARE LONG CONSTANT SMG$K_LF_GRAPHIC = 5872 DECLARE LONG CONSTANT SMG$K_HT_GRAPHIC = 5882 DECLARE LONG CONSTANT SMG$K_VT_GRAPHIC = 5897 DECLARE LONG CONSTANT SMG$K_TRUNCATION_ICON = 5908 DECLARE LONG CONSTANT SMG$K_CURSOR_NEXT_LINE = 591= DECLARE LONG CONSTANT SMG$K_CURSOR_PRECEDING_LINE = 592- DECLARE LONG CONSTANT SMG$K_INDEX = 5935 DECLARE LONG CONSTANT SMG$K_REVERSE_INDEX = 594> DECLARE LONG CONSTANT SMG$K_BEGIN_NORMAL_RENDITION = 595; DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOWRAP_MODE = 5969 DECLARE LONG CONSTANT SMG$K_END_AUTOWRAP_MODE = 597= DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOREPEAT_MODE = 598; DECLARE LONG CONSTANT SMG$K_END_AUTOREPEAT_MODE = 599; DECLARE LONG CONSTANT SMG$K_SET_ORIGIN_RELATIVE = 600; DECLARE LONG C ONSTANT SMG$K_SET_ORIGIN_ABSOLUTE = 601< DECLARE LONG CONSTANT SMG$K_ERASE_LINE_TO_CURSOR = 6021 DECLARE LONG CONSTANT SMG$K_NEXT_LINE = 603< DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOPRINT_MODE = 604: DECLARE LONG CONSTANT SMG$K_END_AUTOPRINT_MODE = 6054 DECLARE LONG CONSTANT SMG$K_PRINT_SCREEN = 6065 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_ON = 6076 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_OFF = 608: DECLARE LONG CONSTANT SMG$K_SET_PRINTER_OUTPUT = 6099 DECLARE LONG CONSTANT SMG$K_SET_SCREEN_OUTPUT = 610? DECLARE LONG CONSTANT SMG$K_ERASE_DISPLAY_TO_CURSOR = 611> DECLARE LONG CONSTANT SMG$K_REQUEST_PRINTER_STATUS = 6125 DECLARE LONG CONSTANT SMG$K_PRINTER_READY = 6139 DECLARE LONG CONSTANT SMG$K_PRINTER_NOT_READY = 6142 DECLARE LONG CONSTANT SMG$K_NO_PRINTER = 6157 DECLARE LONG CONSTANT SMG$K_SET_JUMP_SCROLL = 6169 DECLARE LONG CONSTANT SMG$K_SET_SMOOTH_SCROLL = 6172 DECLARE LONG CONSTANT SMG$ K_ERROR_ICON = 6183 DECLARE LONG CONSTANT SMG$K_PAGE_LENGTH = 619 ! 7 ! Private capabilities reserved for customer use. ( ! Put them at the end of the range. ! 5 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_1 = 6515 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_2 = 6525 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_3 = 6535 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_4 = 6545 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_5 = 6555 DECLARE LONG CONSTANT SMG$K_PR IVATE_STR_6 = 6565 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_7 = 6575 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_8 = 6585 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_9 = 6596 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_10 = 6607 DECLARE LONG CONSTANT SMG$K_MAX_STRING_CODE = 660 ! 2 ! Second string capabilities here - 661 - 880 ! 3 DECLARE LONG CONSTANT SMG$K_BEGIN_USER1 = 6613 DECLARE LONG CONSTANT SMG$K_BEGIN_USER2 = 6623 DECLARE LONG CONSTANT SMG$K_BEGIN_USER3 = 6633 DECLARE LONG CONSTANT SMG$K_BEGIN_USER4 = 6643 DECLARE LONG CONSTANT SMG$K_BEGIN_USER5 = 6653 DECLARE LONG CONSTANT SMG$K_BEGIN_USER6 = 6663 DECLARE LONG CONSTANT SMG$K_BEGIN_USER7 = 6673 DECLARE LONG CONSTANT SMG$K_BEGIN_USER8 = 6681 DECLARE LONG CONSTANT SMG$K_END_USER1 = 6691 DECLARE LONG CONSTANT SMG$K_END_USER2 = 6701 DECLARE LONG CONSTANT SMG$K_END_USER3 = 6711 DECLARE LONG CONSTANT SMG$K_END_USER4 = 6721 DECLARE LONG CONSTANT SMG$K_END_USER5 = 6731 DECLARE LONG CONSTANT SMG$K_END_USER6 = 6741 DECLARE LONG CONSTANT SMG$K_END_USER7 = 6751 DECLARE LONG CONSTANT SMG$K_END_USER8 = 6764 DECLARE LONG CONSTANT SMG$K_BLACK_SCREEN = 6773 DECLARE LONG CONSTANT SMG$K_BLUE_SCREEN = 6783 DECLARE LONG CONSTANT SMG$K_CYAN_SCREEN = 6796 DECLARE LONG CONSTANT SMG$K_MAGENTA_SCREEN = 6804 DECLARE LONG CONSTANT SMG$K_GREEN_SCREEN = 6812 DECLARE LONG CONSTANT SMG$K_RED_SCREEN = 6824 DECLARE LONG CONSTANT SMG$K_WHITE_SCREEN = 6835 DECLARE LONG CONSTANT SMG$K_YELLOW_SCREEN = 6844 DECLARE LONG CONSTANT SMG$K_USER1_SCREEN = 6854 DECLARE LONG CONSTANT SMG$K_USER2_SCREEN = 6869 DECLARE LONG CONSTANT SMG$K_BEGIN_STATUS_LINE = 6877 DECLARE LONG CONSTANT SMG$K_END_STATUS_LINE = 6885 DECLARE LONG CONSTANT SMG$K_BEGIN_LOCATOR = 6893 DECLARE LONG CONSTANT SMG$K_END_LOCATOR = 6906 DECLARE LONG CONSTANT SMG$K_KE Y_FIRST_DOWN = 6917 DECLARE LONG CONSTANT SMG$K_KEY_SECOND_DOWN = 6926 DECLARE LONG CONSTANT SMG$K_KEY_THIRD_DOWN = 6937 DECLARE LONG CONSTANT SMG$K_KEY_FOURTH_DOWN = 6944 DECLARE LONG CONSTANT SMG$K_KEY_FIRST_UP = 6955 DECLARE LONG CONSTANT SMG$K_KEY_SECOND_UP = 6964 DECLARE LONG CONSTANT SMG$K_KEY_THIRD_UP = 6975 DECLARE LONG CONSTANT SMG$K_KEY_FOURTH_UP = 6984 DECLARE LONG CONSTANT SMG$K_USER3_SCREEN = 6994 DECLARE LONG CONSTANT SMG$K_USER4_ SCREEN = 7004 DECLARE LONG CONSTANT SMG$K_USER5_SCREEN = 7014 DECLARE LONG CONSTANT SMG$K_USER6_SCREEN = 7024 DECLARE LONG CONSTANT SMG$K_USER7_SCREEN = 7034 DECLARE LONG CONSTANT SMG$K_USER8_SCREEN = 7041 DECLARE LONG CONSTANT SMG$K_SET_ASCII = 7059 DECLARE LONG CONSTANT SMG$K_SET_SPEC_GRAPHICS = 7068 DECLARE LONG CONSTANT SMG$K_SET_SUPPLEMENTAL = 7074 DECLARE LONG CONSTANT SMG$K_SET_JIS_KANA = 7081 DECLARE LONG CONSTANT SMG$K_SET_KANJI = 7095 DECLARE LONG CONSTANT SMG$K_SET_JIS_ROMAN = 7101 DECLARE LONG CONSTANT SMG$K_SET_HANZI = 7111 DECLARE LONG CONSTANT SMG$K_SET_HANYU = 7122 DECLARE LONG CONSTANT SMG$K_SET_HANGUL = 7134 DECLARE LONG CONSTANT SMG$K_SET_KS_ROMAN = 7148 DECLARE LONG CONSTANT SMG$K_MAX_STRING2_CODE = 880ww P# ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSAC HUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! 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 *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! ******** ******************************************************************* !  ! SOR$BEGIN_MERGE  ! $ ! Initialize a Merge Operation ! M ! Initializes the merge operation by opening the input and output filesK ! and by providing the number of input files, the key specifications, ! and the merge options. ! / EXTERNAL LONG FUNCTION SOR$BEGIN_MERGE & ( &) OPTIONAL ANY BY REF, &" WORD BY REF, & " LONG BY REF, &" BYTE BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) !  ! SOR$BEGIN_SORT  !  ! Begin a Sort Operation ! M ! Initializes a sort operation by opening input and output files and by9 ! passing the key information and any sort options. ! . EXTERNAL LONG FUNCTION SOR$ BEGIN_SORT & ( &) OPTIONAL ANY BY REF, &" WORD BY REF, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" BYTE BY REF, &" BYTE BY REF, &! LONG BY REF & ) !  ! SOR$DO_MERGE  !  ! Obsolete (from VMS V3) ! * EXTERNAL LONG FUNCTION SOR$DO_M ERGE !  ! SOR$END_SORT  !  ! End a Sort Operation ! K ! Does cleanup functions, such as closing files and releasing memory. ! , EXTERNAL LONG FUNCTION SOR$END_SORT & ( &) OPTIONAL LONG BY REF & ) !  ! SOR$INIT_MERGE  !  ! Obsolete (from VMS V3) ! . EXTERNAL LONG FUNCTION SOR$INIT_MERGE & ( &* OPTIONAL BYTE BY REF, &!  ANY BY REF, &" WORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! SOR$INIT_SORT  !  ! Obsolete (from VMS V3) ! - EXTERNAL LONG FUNCTION SOR$INIT_SORT & ( &) OPTIONAL ANY BY REF, &" WORD BY REF, &" LONG BY REF, &" BYTE BY REF, &"  BYTE BY REF, &" BYTE BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) !  ! SOR$PASS_FILES  !  ! Pass File Names ! B ! Passes the names of input and output files and output file) ! characteristics to SORT or MERGE. ! . EXTERNAL LONG FUNCTION SOR$PASS_FILES & ( &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &"  BYTE BY REF, &" BYTE BY REF, &" BYTE BY REF, &" WORD BY REF, &" WORD BY REF, &" LONG BY REF, &" LONG BY REF, &" BYTE BY REF, &! LONG BY REF & ) !  ! SOR$RELEASE_REC  !  ! Pass One Record to Sort ! J ! Used with the record interface to pass one input record to SORT or !  MERGE. ! / EXTERNAL LONG FUNCTION SOR$RELEASE_REC & ( &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) !  ! SOR$RETURN_REC ! ! Return One Sorted Record ! E ! Used with the record interface to return one sorted or merged ! record to a program. ! . EXTERNAL LONG FUNCTION SOR$RETURN_REC & ( &% STRING BY DESC, &*  OPTIONAL WORD BY REF, &! LONG BY REF & ) !  ! SOR$SORT_MERGE  ! ! Sort ! ! Sorts the input records. ! . EXTERNAL LONG FUNCTION SOR$SORT_MERGE & ( &) OPTIONAL LONG BY REF & ) !  ! SOR$SPEC_FILE  ! & ! Pass a Specification File Name ! @ ! Used to pass a specification file or specification text., !  - EXTERNAL LONG FUNCTION SOR$SPEC_FILE & ( &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) !  ! SOR$STAT ! ! ! Obtain Sorting Statistics ! K ! Returns one statistic about the sort or merge operation to the user ! program. ! ( EXTERNAL LONG FUNCTION SOR$STAT & ( &" LONG BY REF, &"  LONG BY REF, &) OPTIONAL LONG BY REF & )ww 1 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:22.60 !  ! FILE: SORMSG.MSG  ! R ! ****************************************************************************   ! * *> ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MA  Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF I TS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! " ! FACILITY: VAX-11 SORT/MERGE !  ! ABSTRACT: ! G ! 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 ! 5  ! AUTHOR: P. GILBERT, CREATION DATE: 15-FEB-1982 !  ! MODIFIED BY: !  ! T03-015 ORIGINALE ! T03-018 CHANGED THE SEVERITY OF WORK_DEV FROM FATAL TO SEVERE. ! PDG 16-DEC-1982D ! T03-019 ADDED OPERFAIL, REQ_ALT AND USE_ALT. PDG 21-DEC-1982D ! T03-020 ADD NEW MESSAGES FOR ERRORS WITH COLLATING SEQUENCES. ! PDG 26-JAN-1983B ! T03-021 ADDED NEW MESSAGES FOR CDD ERRORS. PDG 11-FEB-1983/ ! T03-022 ADDED ENDDIAGS. PDG 16-MAR-19837  ! 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-1985A ! V05-001 CHANGED TEST FOR VAR_FIX TO "truncated or padded". ! BAB 4-FEB-1993? ! CORRECTED SPELLING AND PUNCTUATION ERRORS.@ ! DEE RYAN 29-SEP-19935 ! V08-014 ADDED HS_NYI. KRN 23-MAY-2008  ! -- ! L ! SOME ERROR MESSAGES WERE ISSUED BY OLD VERSIONS OF  VAX-11 SORT/MERGE,A ! BUT ARE NO LONGER BE ISSUED. THESE MUST STILL BE DEFINED. ! P ! SOME ERROR MESSAGES WILL BE USED BY THE NEW VERSION OF VAX-11 SORT/MERGE,J ! BUT ARE NOT YET ISSUED BY THE CODE. THESE ARE PREFIXED WITH A "?". ! / DECLARE LONG CONSTANT SORT$_FACILITY = 283 DECLARE LONG CONSTANT SOR$_MISS_KEY = 18677803 DECLARE LONG CONSTANT SOR$_WORK_DEV = 18677861 DECLARE LONG CONSTANT SOR$_NO_WRK = 18677942 DECLARE LONG CONSTANT SOR$_V  M_FAIL = 18678042 DECLARE LONG CONSTANT SOR$_WS_FAIL = 18678122 DECLARE LONG CONSTANT SOR$_SORT_ON = 18678202 DECLARE LONG CONSTANT SOR$_BAD_KEY = 18678282 DECLARE LONG CONSTANT SOR$_NUM_KEY = 18678362 DECLARE LONG CONSTANT SOR$_BAD_LEN = 18678441 DECLARE LONG CONSTANT SOR$_ONE_IN = 18678522 DECLARE LONG CONSTANT SOR$_IND_OVR = 18678603 DECLARE LONG CONSTANT SOR$_INCONSIS = 18678682 DECLARE LONG CONSTANT SOR$_VAR_FIX = 18678723 DECLARE LONG CONSTANT SOR$_BAD_TYPE = 18678843 DECLARE LONG CONSTANT SOR$_LRL_MISS = 18678923 DECLARE LONG CONSTANT SOR$_BAD_SPEC = 18679002 DECLARE LONG CONSTANT SOR$_BAD_LRL = 18679063 DECLARE LONG CONSTANT SOR$_BAD_FILE = 18679162 DECLARE LONG CONSTANT SOR$_BAD_ADR = 1867924. DECLARE LONG CONSTANT SOR$_MAP = 18679321 DECLARE LONG CONSTANT SOR$_EXTEND = 18679402 DECLARE LONG CONSTANT SOR$_KEY_LEN = 18679463 DECLARE LONG CONSTANT SOR$_CLEAN_UP = 1867956 4 DECLARE LONG CONSTANT SOR$_BAD_MERGE = 18679625 DECLARE LONG CONSTANT SOR$_BAD_ROUTIN = 18679724 DECLARE LONG CONSTANT SOR$_INP_FILES = 18679804 DECLARE LONG CONSTANT SOR$_BAD_ORDER = 1867984 ! % ! V3B MESSAGES ARE DEFINED BELOW ! 5 DECLARE LONG CONSTANT SOR$_DUP_OUTPUT = 18679965 DECLARE LONG CONSTANT SOR$_MISS_PARAM = 18680043 DECLARE LONG CONSTANT SOR$_END_SORT = 18680090 DECLARE LONG CONSTANT SOR$_KEYED = 18680182 DECLARE LONG CONSTANT SOR$_BAD_SRL = 18680243 DECLARE LONG CONSTANT SOR$_NODUPEXC = 18680362 DECLARE LONG CONSTANT SOR$_DELETE1 = 18680412 DECLARE LONG CONSTANT SOR$_DELETE2 = 18680492 DECLARE LONG CONSTANT SOR$_DELBOTH = 1868057. DECLARE LONG CONSTANT SOR$_NYI = 18680663 DECLARE LONG CONSTANT SOR$_RTNERROR = 18680744 DECLARE LONG CONSTANT SOR$_KEYAMBINC = 18680840 DECLARE LONG CONSTANT SOR$_OBS_0 = 18680922 DECLARE LONG CONSTANT SOR$_ROPRAND = 18680984 DECLARE LONG CONSTANT SOR$_UNDOPTION = 18681084 DECLARE LONG CONSTANT SOR$_STABLEEXC = 18681161 DECLARE LONG CONSTANT SOR$_SRTIWA = 18681241 DECLARE LONG CONSTANT SOR$_SPCOVR = 18681281 DECLARE LONG CONSTANT SOR$_SPCMIS = 18681361 DECLARE LONG CONSTANT SOR$_SPCSIS = 18681441 DECLARE LONG CONSTANT SOR$_SPCIVP = 18681561 DECLARE LONG CONSTANT SOR$_SPCIVS = 18681641 DECLARE LONG CONSTANT SOR$_SPCIVC = 18681721 DECLARE LONG CONSTANT SOR$_S PCIVF = 18681801 DECLARE LONG CONSTANT SOR$_SPCIVD = 18681881 DECLARE LONG CONSTANT SOR$_SPCIVX = 18681961 DECLARE LONG CONSTANT SOR$_SPCIVK = 18682041 DECLARE LONG CONSTANT SOR$_SPCIVI = 18682123 DECLARE LONG CONSTANT SOR$_INCNOKEY = 18682204 DECLARE LONG CONSTANT SOR$_INCNODATA = 18682282 DECLARE LONG CONSTANT SOR$_INVFOLD = 18682343 DECLARE LONG CONSTANT SOR$_OPERFAIL = 18682442 DECLARE LONG CONSTANT SOR$_REQ_ALT = 18682512 DECLARE  LONG CONSTANT SOR$_USE_ALT = 18682592 DECLARE LONG CONSTANT SOR$_COL_ADJ = 18682684 DECLARE LONG CONSTANT SOR$_COL_CMPLX = 18682763 DECLARE LONG CONSTANT SOR$_COL_CHAR = 18682842 DECLARE LONG CONSTANT SOR$_COL_PAD = 18682924 DECLARE LONG CONSTANT SOR$_COL_THREE = 18683003 DECLARE LONG CONSTANT SOR$_BADDTYPE = 18683064 DECLARE LONG CONSTANT SOR$_BADLENOFF = 18683144 DECLARE LONG CONSTANT SOR$_BADOCCURS = 18683244 DECLARE LONG CONSTANT SOR$_BADOVRL  AY = 18683304 DECLARE LONG CONSTANT SOR$_BADPROTCL = 18683403 DECLARE LONG CONSTANT SOR$_CDDERROR = 18683482 DECLARE LONG CONSTANT SOR$_ILLBASE = 18683544 DECLARE LONG CONSTANT SOR$_ILLLITERL = 18683643 DECLARE LONG CONSTANT SOR$_ILLSCALE = 18683704 DECLARE LONG CONSTANT SOR$_INCDIGITS = 18683784 DECLARE LONG CONSTANT SOR$_MISLENOFF = 18683843 DECLARE LONG CONSTANT SOR$_MULTIDIM = 18683944 DECLARE LONG CONSTANT SOR$_NOTRECORD = 18684044 DECLARE LONG CONSTANT SOR$_SIGNCOMPQ = 18684084 DECLARE LONG CONSTANT SOR$_UNSUPLEVL = 18684203 DECLARE LONG CONSTANT SOR$_ENDDIAGS = 18684272 DECLARE LONG CONSTANT SOR$_OPREPLY = 18684351 DECLARE LONG CONSTANT SOR$_CHKPNT = 18684412 DECLARE LONG CONSTANT SOR$_ODD_LEN = 18684521 DECLARE LONG CONSTANT SOR$_HS_NYI = 1868460ww PJ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  + ! Define Procedure argument data typesA ! The following encoding is used for atomic data elements:. ! Mnemonic Code DescriptionW DECLARE LONG CONSTANT DSC$K_DTYPE_Z = 0 ! Unsp  ecified. The calling program has ` DECLARE LONG CONSTANT DSC64$K_DTYPE_Z = 0 ! specified no data type/* the called2 ! procedure should assume the argument is of ! the correct type.Z DECLARE LONG CONSTANT DSC$K_DTYPE_BU = 2 ! Byte Logical. 8-bit unsigned quantity. 0 DECLARE LONG CONSTANT DSC64$K_DTYPE_BU = 2[ DECLARE LONG CONSTANT DSC$K_DTYPE_WU = 3 ! Word Logical. 16-bit unsigned quantity. 0 DECLARE LONG CONSTANT DSC64$K_DTYPE_WU = 3U DE CLARE LONG CONSTANT DSC$K_DTYPE_LU = 4 ! Longword Logical. 32-bit unsigned > DECLARE LONG CONSTANT DSC64$K_DTYPE_LU = 4 ! quantity.U DECLARE LONG CONSTANT DSC$K_DTYPE_QU = 5 ! Quadword Logical. 64-bit unsigned > DECLARE LONG CONSTANT DSC64$K_DTYPE_QU = 5 ! quantity.W DECLARE LONG CONSTANT DSC$K_DTYPE_OU = 25 ! Octaword Logical. 128-bit unsigned ? DECLARE LONG CONSTANT DSC64$K_DTYPE_OU = 25 ! quantity.\ DECLARE LONG CONSTANT DSC$K_DTYPE_B = 6 ! Byte Integer. 8-bit signed 2's-complement < DECLARE LONG CONSTANT DSC64$K_DTYPE_B = 6 ! integer.] DECLARE LONG CONSTANT DSC$K_DTYPE_W = 7 ! Word Integer. 16-bit signed 2's-complement < DECLARE LONG CONSTANT DSC64$K_DTYPE_W = 7 ! integer.R DECLARE LONG CONSTANT DSC$K_DTYPE_L = 8 ! Longword Integer. 32-bit signed K DECLARE LONG CONSTANT DSC64$K_DTYPE_L = 8 ! 2's-complement integer.R DECLARE LONG CONSTANT DSC$K_DTYPE_Q = 9 ! Quadword Integer. 64-bit signed K DECLARE LONG CONSTANT DSC64$K_DTYPE_Q = 9 ! 2's-complement integer.T DECLARE LONG CONSTANT DSC$K_DTYPE_O = 26 ! Octaword Integer. 128-bit signed L DECLARE LONG CONSTANT DSC64$K_DTYPE_O = 26 ! 2's-complement integer.g DECLARE LONG CONSTANT DSC$K_DTYPE_F = 10 ! F_floating. 32-bit F_floating quantity representing O DECLARE LONG CONSTANT DSC64$K_DTYPE_F = 10 ! a single-precision number.g DECLARE LONG CONSTANT DSC$K_DTYPE_D = 11 ! D_floating. 64-bit D_floa ting quantity representing O DECLARE LONG CONSTANT DSC64$K_DTYPE_D = 11 ! a double-precision number.g DECLARE LONG CONSTANT DSC$K_DTYPE_G = 27 ! G_floating. 64-bit G_floating quantity representing O DECLARE LONG CONSTANT DSC64$K_DTYPE_G = 27 ! a double-precision number.h DECLARE LONG CONSTANT DSC$K_DTYPE_H = 28 ! H_floating. 128-bit H_floating quantity representing R DECLARE LONG CONSTANT DSC64$K_DTYPE_H = 28 ! a quadruple-precision number.c DECLARE LO NG CONSTANT DSC$K_DTYPE_FC = 12 ! F_floating complex. Ordered pair of F_floating h DECLARE LONG CONSTANT DSC64$K_DTYPE_FC = 12 ! quantities representing a single-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.c DECLARE LONG CONSTANT DSC$K_DTYPE_DC = 13 ! D_floating complex. Ordered pair of D_floating h DECLARE LONG CONSTANT DSC64$K_DTYPE_DC = 13 ! quantities representin  g a double-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.c DECLARE LONG CONSTANT DSC$K_DTYPE_GC = 29 ! G_floating complex. Ordered pair of G_floating h DECLARE LONG CONSTANT DSC64$K_DTYPE_GC = 29 ! quantities representing a double-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary par t.c DECLARE LONG CONSTANT DSC$K_DTYPE_HC = 30 ! H_floating complex. Ordered pair of H_floating k DECLARE LONG CONSTANT DSC64$K_DTYPE_HC = 30 ! quantities representing a quadruple-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.o DECLARE LONG CONSTANT DSC$K_DTYPE_FS = 52 ! IEEE floating basic single S. 32-bit quantity representing P DECLARE LONG CONSTANT DSC64$K_DTYP E_FS = 52 ! a single-precision number.o DECLARE LONG CONSTANT DSC$K_DTYPE_FT = 53 ! IEEE floating basic double T. 64-bit quantity representing P DECLARE LONG CONSTANT DSC64$K_DTYPE_FT = 53 ! a double-precision number.v DECLARE LONG CONSTANT DSC$K_DTYPE_FSC = 54 ! IEEE floating basic single S complex. Ordered pair of S_floating i DECLARE LONG CONSTANT DSC64$K_DTYPE_FSC = 54 ! quantities representing a single-precision complex3 ! number. The lower addressed quan  tity is the7 ! real part, the higher addressed quantity is the ! imaginary part.v DECLARE LONG CONSTANT DSC$K_DTYPE_FTC = 55 ! IEEE floating basic double T complex. Ordered pair of T_floating i DECLARE LONG CONSTANT DSC64$K_DTYPE_FTC = 55 ! quantities representing a double-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.s DECLARE LONG CONSTANT DSC$K_DTYPE_FX = 5 7 ! IEEE floating basic quadruple X. 128-bit quantity representing S DECLARE LONG CONSTANT DSC64$K_DTYPE_FX = 57 ! an extended-precision number.y DECLARE LONG CONSTANT DSC$K_DTYPE_FXC = 58 ! IEEE floating basic quadruple X complex. Ordered pair of X_floating l DECLARE LONG CONSTANT DSC64$K_DTYPE_FXC = 58 ! quantities representing an extended-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.b DECLARE LONG CONSTANT DSC$K_DTYPE_CIT = 31 ! COBOL Intermediate Temporary. Floating point ` DECLARE LONG CONSTANT DSC64$K_DTYPE_CIT = 31 ! datum with an 18 digit normalized decimal4 ! fraction and a 2 digit decimal exponent. The2 ! fraction is represented as a packed decimal0 ! number. The exponent is represented as a' ! 16-bit 2's complement integer. N ! The following string types are ordinarily described by a stringJ ! ! descriptor. The data type codes below occur in those descriptors:b DECLARE LONG CONSTANT DSC$K_DTYPE_T = 14 ! Character-coded text. A single 8-bit character ] DECLARE LONG CONSTANT DSC64$K_DTYPE_T = 14 ! (atomic data type) or a sequence of 0 to3 ! 2**16-1 8-bit characters (string data type).\ DECLARE LONG CONSTANT DSC$K_DTYPE_VT = 37 ! Varying Character-coded Text Data Type. 1 DECLARE LONG CONSTANT DSC64$K_DTYPE_VT = 37T DECLARE LONG CONSTANT DSC$K_DTYPE_T2" = 38 ! 16-bit Text (Asian workstations)1 DECLARE LONG CONSTANT DSC64$K_DTYPE_T2 = 38N DECLARE LONG CONSTANT DSC$K_DTYPE_NU = 15 ! Numeric string, unsigned. 1 DECLARE LONG CONSTANT DSC64$K_DTYPE_NU = 15X DECLARE LONG CONSTANT DSC$K_DTYPE_NL = 16 ! Numeric string, left separate sign. 1 DECLARE LONG CONSTANT DSC64$K_DTYPE_NL = 16\ DECLARE LONG CONSTANT DSC$K_DTYPE_NLO = 17 ! Numeric string, left overpunched sign. 2 DECLARE LONG CONSTANT DSC64$K_DTYPE_# NLO = 17Y DECLARE LONG CONSTANT DSC$K_DTYPE_NR = 18 ! Numeric string, right separate sign. 1 DECLARE LONG CONSTANT DSC64$K_DTYPE_NR = 18] DECLARE LONG CONSTANT DSC$K_DTYPE_NRO = 19 ! Numeric string, right overpunched sign. 2 DECLARE LONG CONSTANT DSC64$K_DTYPE_NRO = 19P DECLARE LONG CONSTANT DSC$K_DTYPE_NZ = 20 ! Numeric string, zoned sign. 1 DECLARE LONG CONSTANT DSC64$K_DTYPE_NZ = 20J DECLARE LONG CONSTANT DSC$K_DTYPE_P = 21 ! Packed decimal stri $ ng. 0 DECLARE LONG CONSTANT DSC64$K_DTYPE_P = 21N DECLARE LONG CONSTANT DSC$K_DTYPE_V = 1 ! Bit. An aligned bit string. / DECLARE LONG CONSTANT DSC64$K_DTYPE_V = 1C DECLARE LONG CONSTANT DSC$K_DTYPE_VU = 34 ! Bit Unaligned. 1 DECLARE LONG CONSTANT DSC64$K_DTYPE_VU = 34E ! The following encodings are used for miscellaneous data types:N DECLARE LONG CONSTANT DSC$K_DTYPE_ZI = 22 ! Sequence of instructions. 1 DECLARE LONG CONSTANT DSC64$K_DTYPE_ZI =% 22K DECLARE LONG CONSTANT DSC$K_DTYPE_ZEM = 23 ! Procedure entry mask. 2 DECLARE LONG CONSTANT DSC64$K_DTYPE_ZEM = 23d DECLARE LONG CONSTANT DSC$K_DTYPE_DSC = 24 ! Descriptor. This data type allows a descriptor d DECLARE LONG CONSTANT DSC64$K_DTYPE_DSC = 24 ! to be an argument data type, thereby allowing( ! the use of levels of descriptors.b DECLARE LONG CONSTANT DSC$K_DTYPE_BPV = 32 ! Bound Procedure Value. A two longword entity g DECLARE LONG CONST & ANT DSC64$K_DTYPE_BPV = 32 ! in which the first longword contains the address8 ! of a procedure entry mask and the second longword8 ! contains the environment value. The environmeent1 ! value is determined in a language specific6 ! fashion when the original Bound Procedure Value1 ! is generated. When the bound procedure is4 ! invoked, the calling program loads the second6 ! longword into R1. This data type can be passed3 ! using the immediate value mecha ' nism when the5 ! environment value is not needed. In this case6 ! the argument list entry contains the address of7 ! the procedure entry mask and the second longword ! is omitted.H DECLARE LONG CONSTANT DSC$K_DTYPE_BLV = 33 ! Bound label value. 2 DECLARE LONG CONSTANT DSC64$K_DTYPE_BLV = 33L DECLARE LONG CONSTANT DSC$K_DTYPE_ADT = 35 ! Absolute Date and Time 2 DECLARE LONG CONSTANT DSC64$K_DTYPE_ADT = 35V ! K DTYPE_???,36 /* DTYPE ( code 36 is reserved for future definitionH ! The following types are used by the VAX/VMS Debug Facility: \FORL ! INTERNAL DOCUMENTATION ONLY. For details, see VAX/VMS Debug Facility ! Documentation.\R DECLARE LONG CONSTANT DSC$K_DTYPE_CAD = 178 ! Address calculation command 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_CAD = 178N DECLARE LONG CONSTANT DSC$K_DTYPE_ENT = 179 ! Entry global definition 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_ENT = 179O DECLARE ) LONG CONSTANT DSC$K_DTYPE_GBL = 180 ! Global symbol definition 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_GBL = 180N DECLARE LONG CONSTANT DSC$K_DTYPE_EPT = 181 ! Entry point to routine. 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_EPT = 181^ DECLARE LONG CONSTANT DSC$K_DTYPE_R11 = 182 ! Line number relative to R11 correlation > DECLARE LONG CONSTANT DSC64$K_DTYPE_R11 = 182 ! table.H DECLARE LONG CONSTANT DSC$K_DTYPE_FLD = 183 ! BLISS FIELD name. 3 DECLARE LO* NG CONSTANT DSC64$K_DTYPE_FLD = 183I DECLARE LONG CONSTANT DSC$K_DTYPE_PCT = 184 ! PSECT information. 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_PCT = 184[ DECLARE LONG CONSTANT DSC$K_DTYPE_DPC = 185 ! PC correlation table for FORTRAN IV+ 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_DPC = 185G DECLARE LONG CONSTANT DSC$K_DTYPE_LBL = 186 ! LITERAL or LABEL 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_LBL = 186] DECLARE LONG CONSTANT DSC$K_DTYPE_SLB = 187 ! Label in + non-assembly language modules 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_SLB = 187N DECLARE LONG CONSTANT DSC$K_DTYPE_MOD = 188 ! Beginning of new module 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_MOD = 188D DECLARE LONG CONSTANT DSC$K_DTYPE_EOM = 189 ! End of module 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_EOM = 189O DECLARE LONG CONSTANT DSC$K_DTYPE_RTN = 190 ! Beginning of new routine 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_RTN = 190E DECLARE LONG CONST , ANT DSC$K_DTYPE_EOR = 191 ! End of routine 3 DECLARE LONG CONSTANT DSC64$K_DTYPE_EOR = 191> ! The following type codes are RESERVED for future use:2 ! 37-177 RESERVED to DECA ! 192-255 RESERVED to CSS and customers ! M ! A uniform descriptor mechanism is defined for use by all proceduresM ! which conform to this standard. Descriptors are uniformly typed andM ! the mechanism is extensible. As new varietie- s of descriptor become7 ! necessary, they will be added to this catalogue. ! Note: ! H ! All fields represent unsigned quantities unless explicitly stated ! otherwise. ! " ! 32-bit Descriptor Prototype ! L ! Each class of 32-bit descriptor consists of at least 2 longwords in ! the following format: ! - ! +-------+-------+---------------+: ! | CLASS | DTYPE | LENGTH | :Descriptor- ! +-------+-------. +---------------+- ! | POINTER |- ! +-------------------------------+ ! F ! DSC$W_LENGTH A one-word field specific to the descriptorI ! <0,15:0> class/* typically a 16-bit (unsigned) length. ! < ! DSC$B_DTYPE A one-byte atomic data type code  ! <0,23:16> ! G ! DSC$B_CLASS A one-byte descriptor class code (see below) ! <0,31:24> ! G ! DSC$A_POINTER / A longword pointing to the first byte of the2 ! <1,31:0> data element described. ! " ! 64-bit Descriptor Prototype ! E ! Each class of 64-bit descriptor consists of at least 3 aligned) ! quadwords in the following format: ! - ! +-------+-------+---------------+: ! | CLASS | DTYPE | MBO (=1) | :Descriptor- ! +-------+-------+---------------+- ! | MBMO (=-1) |- ! +----------- 0 --------------------+2 ! | | : 8- ! +- LENGTH -+- ! | |- ! +-------------------------------+3 ! | | : 16- ! +- POINTER -+- ! | |- ! +-------------------------------+ ! K ! DSC64$W_MBO A one-word field which must contain the value 1. 1 ! <0,15:0>  ! < ! DSC64$B_DTYPE A one-byte atomic data type code  ! <0,23:16> ! G ! DSC64$B_CLASS A one-byte descriptor class code (see below) ! <0,31:24> ! L ! DSC$L_MBMO A longword field which must contain the value -1. ! <1,31:0> ! C ! DSC64$Q_LENGTH A quadword containing the length of the2 ! <2,63:0> data element described. ! J ! DSC64$PQ_POINTER A 2 quadword pointing to the first byte of the2 ! <4,63:0> data element described. ! ( ! Define the descriptor class codes ! > DECLARE LONG CONSTANT DSC$K_CLASS_Z = 0 ! Unspecified @ DECLARE LONG CONSTANT DSC64$K_CLASS_Z = 0 ! Unspecified L DECLARE LONG CONSTANT DSC$K_CLASS_S = 1 ! Scalar, String Descriptor N DECLARE LONG CONSTANT DSC64$K_CLASS_S = 1 ! Scalar, String Descriptor L DECLARE LONG CONSTANT DSC$K_CLASS_D = 2 ! Dynamic String3 Descriptor N DECLARE LONG CONSTANT DSC64$K_CLASS_D = 2 ! Dynamic String Descriptor N DECLARE LONG CONSTANT DSC$K_CLASS_V = 3 ! Reserved for use by Digital P DECLARE LONG CONSTANT DSC64$K_CLASS_V = 3 ! Reserved for use by Digital C DECLARE LONG CONSTANT DSC$K_CLASS_A = 4 ! Array Descriptor E DECLARE LONG CONSTANT DSC64$K_CLASS_A = 4 ! Array Descriptor G DECLARE LONG CONSTANT DSC$K_CLASS_P = 5 ! Procedure Descriptor I DECLARE LONG CONSTANT DSC64$4 K_CLASS_P = 5 ! Procedure Descriptor T DECLARE LONG CONSTANT DSC$K_CLASS_PI = 6 ! Procedure Incarnation Descriptor V DECLARE LONG CONSTANT DSC64$K_CLASS_PI = 6 ! Procedure Incarnation Descriptor N DECLARE LONG CONSTANT DSC$K_CLASS_J = 7 ! Reserved for use by Digital P DECLARE LONG CONSTANT DSC64$K_CLASS_J = 7 ! Reserved for use by Digital < DECLARE LONG CONSTANT DSC$K_CLASS_JI = 8 ! Obsolete T DECLARE LONG CONSTANT DSC$K_CLASS_SD = 9 ! Decimal Scalar 5 String Descriptor V DECLARE LONG CONSTANT DSC64$K_CLASS_SD = 9 ! Decimal Scalar String Descriptor U DECLARE LONG CONSTANT DSC$K_CLASS_NCA = 10 ! Non-contiguous Array Descriptor W DECLARE LONG CONSTANT DSC64$K_CLASS_NCA = 10 ! Non-contiguous Array Descriptor N DECLARE LONG CONSTANT DSC$K_CLASS_VS = 11 ! Varying String Descriptor P DECLARE LONG CONSTANT DSC64$K_CLASS_VS = 11 ! Varying String Descriptor U DECLARE LONG CONSTANT DSC$K_CLASS_VSA = 12 ! Varyi6 ng String Array Descriptor W DECLARE LONG CONSTANT DSC64$K_CLASS_VSA = 12 ! Varying String Array Descriptor U DECLARE LONG CONSTANT DSC$K_CLASS_UBS = 13 ! Unaligned Bit String Descriptor W DECLARE LONG CONSTANT DSC64$K_CLASS_UBS = 13 ! Unaligned Bit String Descriptor T DECLARE LONG CONSTANT DSC$K_CLASS_UBA = 14 ! Unaligned Bit Array Descriptor V DECLARE LONG CONSTANT DSC64$K_CLASS_UBA = 14 ! Unaligned Bit Array Descriptor R DECLARE LONG CONSTANT DSC$K_7 CLASS_SB = 15 ! String with Bounds Descriptor T DECLARE LONG CONSTANT DSC64$K_CLASS_SB = 15 ! String with Bounds Descriptor b DECLARE LONG CONSTANT DSC$K_CLASS_UBSB = 16 ! Unaligned Bit String with Bounds Descriptor d DECLARE LONG CONSTANT DSC64$K_CLASS_UBSB = 16 ! Unaligned Bit String with Bounds Descriptor  ! I ! The following descriptor class is FOR INTERNAL USE ONLY by the VAXK ! Common Run-Time Library and Debugger. This descriptor is not passedI ! 8 between separately compiled modules. For further information, seeD ! VAX-11 BASIC Description of Generated Code, Software Document# ! Retrieval Number JBS-79-004.R DECLARE LONG CONSTANT DSC$K_CLASS_BFA = 191 ! BASIC File Array Descriptor > ! Descriptor classes 17-190 are RESERVED to DEC. Classes9 ! 192 through 255 are RESERVED to CSS and customers. ! ) ! Array Descriptor (DSC$K_CLASS_A) ! L ! An array descriptor consists of 3 contiguous blocks. 9 The first blockN ! contains the descriptor prototype information and is part of everyN ! array descriptor. The second and third blocks are optional. If the5 ! third block is present then so is the second. ! 9 ! A complete 32-bit array descriptor has the form: ! . ! +-------+-------+---------------+; ! | 4 | DTYPE | LENGTH | :Descriptor. ! +-------+-------+---------------+. ! | POINTER : |. ! +-------+-------+---------------+K ! | DIMCT | AFLAGS|DIGITS | SCALE | Block 1 - Prototype. ! +-------+-------+---------------+. ! | ARSIZE |. ! +-------------------------------+ ! . ! +-------------------------------+. ! | A0 |. ! +-------------------------------+. ! | M1 |. ! +------------ ; -------------------+M ! | ... | Block 2 - Multipliers. ! +-------------------------------+. ! | M(n-1) |. ! +-------------------------------+. ! | Mn |. ! +-------------------------------+ ! . ! +-------------------------------+. ! | L1 |. ! +-------------------------------+. ! < | U1 |. ! +-------------------------------+H ! | ... | Block 3 - Bounds. ! +-------------------------------+. ! | Ln |. ! +-------------------------------+. ! | Un |. ! +-------------------------------+ ! ? ! Block 1 of a 64-bit array descriptor has the following: ! form. Blocks 2 and 3 have = the same form as above,: ! EXCEPT that the entries are QUADWORDS rather than ! longwords. ! . ! +-------+-------+---------------+; ! | 4 | DTYPE | MBO | :Descriptor. ! +-------+-------+---------------+. ! | MBMO |. ! +-------+-------+---------------+3 ! | | : 8. ! +- LENGTH -+. ! | > |. ! +-------------------------------+4 ! | | : 16. ! +- POINTER -+. ! | |. ! +-------------------------------+4 ! | DIMCT | AFLAGS|DIGITS | SCALE | : 24. ! +-------+-------+---------------+. ! | MBZ |. ! +-------+-------+---------------+4 ! | | ? : 32. ! +- ARSIZE -+. ! | |. ! +-------------------------------+ !  ! M ! Define descriptor fields. 32-bit versions are defined first, followed! ! by the 64-bit equivalents. ! @ ! \The following three fields are only valid for descriptor+ ! class DSC$K_CLASS_BFA (see above). \- DECLARE LONG CONSTANT DSC$S_DSCDEF = 14 record DSCDEF^ LONG DSC$A_HANDLE @ ! The address of a vector of data concerning the 6 ! current state of processing of the array. This+ ! is set to zero by the creator of the3 ! descriptor, and maintained thereafter by the- ! BASIC file array processing functions.\ LONG DSC$L_BYTEOFF ! Byte offset in the file of element 0,0,...,0 1 ! of the array. This need not be within the2 ! array, or even within the file if the array! ! does not have zero origin.Z A LONG DSC$L_LOGUNIT ! The logical unit number (BASIC channel) on . ! which the file containing the array has6 ! been opened. This is set by the creator of the5 ! descriptor before first referencing the array. ! I ! End of BASIC File Array specific descriptor fields. The remaining2 ! fields are common to all array descriptors. !  ! c WORD DSC$W_LENGTH ! A one-word field specifiec to the descriptor class; , ! B typically a 16-bit (unsigned) length. end record DSCDEF - DECLARE LONG CONSTANT DSC$S_DSCDEF1 = 8 record DSCDEF1b WORD 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)O BYTE DSC$B_DTYPE ! A one-byte atomic data type code: ! Symbols used in this filed have form: DSC$K_DTYPE_t3 ! where t is the data type mnemonic from above C * ! and agrees with methodology manual.] BYTE DSC$B_CLASS ! A one-byte descriptor class code (see above). : ! Symbols used in this field have form: DSC$K_CLASS_f7 ! where f is the argument form mnemonic from above. ! and agrees with the methodology manual.a LONG DSC$A_POINTER ! An address pointing to the first byte of the data  ! element described. end record DSCDEF1 Y DECLARE LONG CONSTANT DSC$K_Z_BLD N = 8 ! Block length in bytes for Z class descr. Y DECLARE LONG CONSTANT DSC$C_Z_BLN = 8 ! Block length in bytes for Z class descr. Y DECLARE LONG CONSTANT DSC$K_S_BLN = 8 ! Block length in bytes for S class descr. Y DECLARE LONG CONSTANT DSC$C_S_BLN = 8 ! Block length in bytes for S class descr. Y DECLARE LONG CONSTANT DSC$K_D_BLN = 8 ! Block length in bytes for D class descr. Y DECLARE LONG CONSTANT DSC$C_D_BLN = 8 ! Block length in bytes for D class deE scr. Y DECLARE LONG CONSTANT DSC$K_P_BLN = 8 ! Block length in bytes for P class descr. Y DECLARE LONG CONSTANT DSC$C_P_BLN = 8 ! Block length in bytes for P class descr. Y DECLARE LONG CONSTANT DSC$K_J_BLN = 8 ! Block length in bytes for J class descr. Y DECLARE LONG CONSTANT DSC$C_J_BLN = 8 ! Block length in bytes for J class descr. [ DECLARE LONG CONSTANT DSC$K_VS_BLN = 8 ! Block length in bytes for VS class descr. [ DECLARE LONG CONSTANT DSC$C_VS F _BLN = 8 ! Block length in bytes for VS class descr. - DECLARE LONG CONSTANT DSC$S_DSCDEF2 = 8 record DSCDEF2( BYTE DSCDEF$$_FILL_3 ( 1 to 4 )e LONG DSC$A_BASE ! Base of address relative to which the signed relative ; ! bit position, POS, is used to locate the bit string." ! (Classes UBS, UBA and UBSB) end record DSCDEF2  ! +5 ! End of common definitions for all descriptors. ! -^ DECLARE LONG CONSTAN G T DSC$K_UBS_BLN = 12 ! Block length in bytes for UBS class descr. ^ DECLARE LONG CONSTANT DSC$C_UBS_BLN = 12 ! Block length in bytes for UBS class descr. . DECLARE LONG CONSTANT DSC$S_DSCDEF3 = 12 record DSCDEF3( BYTE DSCDEF$$_FILL_4 ( 1 to 8 )U LONG DSC$L_POS ! Signed longword relative bit position , ! with respect to BASE of the first bit ! of unaligned bit string5 ! WARNING?? Do not use this symbol to reference4 ! H class UBA descriptors? The DSC$L_POS in that5 ! descriptor is at a variable location after the$ ! bounds and multiplier blocks. end record DSCDEF3  ! +4 ! *Obsolete* Varying type descriptor definition$ ! This form should not be used. ! -. DECLARE LONG CONSTANT DSC$S_DSCDEF4 = 12 record DSCDEF4( BYTE DSCDEF$$_FILL_5 ( 1 to 8 )O WORD DSC$W_MAXLEN ! An unsigned word specifying the & ! maximum length of t I he data item" ! (i.e., the space allocated)= WORD DSCDEF$$_FILL_1 ! reserved word  end record DSCDEF4  ! +# ! Array Descriptor definitions ! -\ DECLARE LONG CONSTANT DSC$K_SD_BLN = 12 ! Block length in bytes for SD class descr. \ DECLARE LONG CONSTANT DSC$C_SD_BLN = 12 ! Block length in bytes for SD class descr. . DECLARE LONG CONSTANT DSC$S_DSCDEF5 = 20 record DSCDEF5+ BYTE DSCDEF_64$$_FILL_6 ( 1 to 8 ) J ] BYTE DSC$B_SCALE ! Signed power of ten multiplier to convert the 4 ! internal form to external form. For example,1 ! if internal number is 123 and scale is +1,4 ! then the represented external number is 1230.W BYTE DSC$B_DIGITS ! If non-zero, unsigned number of decimal 1 ! digits in the external representation. If1 ! zero, the number of digits can be computed ! based on DSC$W_LENGTH.# group DSC$R_A K FLAGS_OVERLAY variant case@ BYTE DSC$B_AFLAGS ! Array flag bits.  case) group DSC$R_AFLAGS_BITS- ! reserved to Digital A ! If set, the array can be redimensioned; . ! i.e., DSC$A_A0, DSC$L_Mi, DSC$L_Li, and2 ! DSC$L_Ui may be changed. The redimensioned0 ! array cannot exceed the size allocated to% ! the array (i.e. DSC$L_ARSIZE).? L ! If set, the elements of the array are . ! stored by columns (FORTRAN)> Otherwise' ! the elements are stored by rows.D ! If set, the multiplicative coefficients in  ! Block 2 are present.C ! If set, the bounds information in Block 3  ! is present.s BYTE FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through FL_BOUNDS- end group DSC$R_AFLAGS_BITS M end variant' end group DSC$R_AFLAGS_OVERLAYD BYTE DSC$B_DIMCT ! Number of dimensions ] LONG DSC$L_ARSIZE ! Total size of array (in bytes unless DTYPE is , ! EQUL DSC$K_DTYPE_V or DSC$K_DTYPE_P).U LONG DSC$A_A0 ! Address of element A(0,0,...,0). This / ! need not be within the actual array/* it0 ! is the same as DSC$A_POINTER for 0-origin ! arrays. end record DSCDEF5 N  . DECLARE LONG CONSTANT DSC$S_DSCDEF6 = 28 record DSCDEF6) BYTE DSCDEF$$_FILL_7 ( 1 to 16 )] LONG DSC$L_V0 ! Signed bit offset of element A(0,0,...0) with $ ! respect to BASE. (Class UBA)D ! The following two fields have meaning only if the array is of4 ! class DSC$K_CLASS_NCA (Non-contiguous array).W LONG DSC$L_S1 ! Stride of the first dimension, i.e. the * ! difference between the addresO ses of2 ! successive elements of the first dimension.O LONG DSC$L_S2 ! Stride of the second dimension.  end record DSCDEF6 . DECLARE LONG CONSTANT DSC$S_DSCDEF7 = 28 record DSCDEF7) BYTE DSCDEF$$_FILL_8 ( 1 to 20 )S LONG DSC$L_M1 ! Addressing coefficient M1 = U1-L1+1 S LONG DSC$L_M2 ! Addressing coefficient M2 = U2-L2+1  end record DSCDEF7  ! +< P ! Procedure Incarnation descriptor (DSC$K_CLASS_PI) and5 ! Label Incarnation descriptor (DSC$K_CLASS_JI). ! -\ DECLARE LONG CONSTANT DSC$K_PI_BLN = 12 ! Block length in bytes for PI class descr. \ DECLARE LONG CONSTANT DSC$C_PI_BLN = 12 ! Block length in bytes for PI class descr. \ DECLARE LONG CONSTANT DSC$K_JI_BLN = 12 ! block length in bytes for JI class descr. \ DECLARE LONG CONSTANT DSC$C_JI_BLN = 12 ! block length in bytes for JI class descr. . Q DECLARE LONG CONSTANT DSC$S_DSCDEF8 = 12 record DSCDEF8( BYTE DSCDEF$$_FILL_9 ( 1 to 8 )@ LONG DSC$A_FRAME ! Address of frame  end record DSCDEF8  ! +6 ! String with Bounds descriptor (DSC$K_CLASS_SB). ! -. DECLARE LONG CONSTANT DSC$S_DSCDEF9 = 16 record DSCDEF9) BYTE DSCDEF$$_FILL_10 ( 1 to 8 )T LONG DSC$L_SB_L1 ! Signed lower bound of first dimensionT LONG DSC$L_SB_U1 R ! Signed upper bound of first dimension end record DSCDEF9  ! +F ! Unaligned Bit String with Bounds descriptor (DSC$K_CLASS_UBSB). ! -/ DECLARE LONG CONSTANT DSC$S_DSCDEF10 = 20 record DSCDEF10* BYTE DSCDEF$$_FILL_11 ( 1 to 12 )T LONG DSC$L_UBSB_L1 ! Signed lower bound of first dimensionT LONG DSC$L_UBSB_U1 ! Signed upper bound of first dimension end record DSCDEF10 S  ! K ! 64-bit versions of the descriptors defined above. These are expected ! to be quadword aligned. ! -1 DECLARE LONG CONSTANT DSC64$S_DSCDEF64 = 16 record DSCDEF64^ BYTE DSCDEF_64$$_FILL_1 ( 1 to 8 ) ! No 64-bit versions of handle/byteoff/logunitB BASIC$QUADWORD DSC64$Q_LENGTH ! 64-bit LENGTH field end record DSCDEF64 3 DECLARE LONG CONSTANT DSC64$S_DSCDEF1_64 = 24 record DSCDEF1_64Y WORD DSC64$W_ T MBO ! 32-bit LENGTH field is MBO in 64-bit descsG BYTE DSC64$B_DTYPE ! Identical to 32-bit formG BYTE DSC64$B_CLASS ! Identical to 32-bit form[ LONG DSC64$L_MBMO ! 32-bit POINTER field is MBMO in 64-bit descsE BASIC$QUADWORD DSC64$Q_MAXSTRLEN ! 64-bit MAXSTRLEN fieldC BASIC$QUADWORD DSC64$PQ_POINTER ! 64-bit pointer field end record DSCDEF1_64 c DECLARE LOU NG CONSTANT DSC64$K_Z_BLN = 24 ! Block length in bytes for 64-bit Z class descr. c DECLARE LONG CONSTANT DSC64$C_Z_BLN = 24 ! Block length in bytes for 64-bit Z class descr. c DECLARE LONG CONSTANT DSC64$K_S_BLN = 24 ! Block length in bytes for 64-bit S class descr. c DECLARE LONG CONSTANT DSC64$C_S_BLN = 24 ! Block length in bytes for 64-bit S class descr. c DECLARE LONG CONSTANT DSC64$K_D_BLN = 24 ! Block length in bytes for 64-bit D class descr. c DECLARV E LONG CONSTANT DSC64$C_D_BLN = 24 ! Block length in bytes for 64-bit D class descr. c DECLARE LONG CONSTANT DSC64$K_P_BLN = 24 ! Block length in bytes for 64-bit P class descr. c DECLARE LONG CONSTANT DSC64$C_P_BLN = 24 ! Block length in bytes for 64-bit P class descr. c DECLARE LONG CONSTANT DSC64$K_J_BLN = 24 ! Block length in bytes for 64-bit J class descr. c DECLARE LONG CONSTANT DSC64$C_J_BLN = 24 ! Block length in bytes for 64-bit J class descr. e DE W CLARE LONG CONSTANT DSC64$K_VS_BLN = 24 ! Block length in bytes for 64-bit VS class descr. e DECLARE LONG CONSTANT DSC64$C_VS_BLN = 24 ! Block length in bytes for 64-bit VS class descr. 3 DECLARE LONG CONSTANT DSC64$S_DSCDEF2_64 = 24 record DSCDEF2_64, BYTE DSCDEF_64$$_FILL_3 ( 1 to 16 )@ BASIC$QUADWORD DSC64$PQ_BASE ! 64-bit BASE field end record DSCDEF2_64  ! +5 ! End of common definitions for all descriptors. ! -g X DECLARE LONG CONSTANT DSC64$K_UBS_BLN = 32 ! Block length in bytes for 64-bit UBS class descr. g DECLARE LONG CONSTANT DSC64$C_UBS_BLN = 32 ! Block length in bytes for 64-bit UBS class descr. 3 DECLARE LONG CONSTANT DSC64$S_DSCDEF3_64 = 32 record DSCDEF3_64, BYTE DSCDEF_64$$_FILL_4 ( 1 to 24 )? BASIC$QUADWORD DSC64$Q_POS ! 64-bit POS field end record DSCDEF3_64  ! . ! 64-bit version of the array descriptor  ! e Y DECLARE LONG CONSTANT DSC64$K_SD_BLN = 32 ! Block length in bytes for 64-bit SD class descr. e DECLARE LONG CONSTANT DSC64$C_SD_BLN = 32 ! Block length in bytes for 64-bit SD class descr. 3 DECLARE LONG CONSTANT DSC64$S_DSCDEF5_64 = 48 record DSCDEF5_64, BYTE DSCDEF_64$$_FILL_6 ( 1 to 24 )F BYTE DSC64$B_SCALE ! 64-bit descriptor SCALEG BYTE DSC64$B_DIGITS ! 64-bit descriptor DIGITS/ group DSC64$R_AFLAGS_ Z OVERLAY !  variant caseG BYTE DSC64$B_AFLAGS ! 64-bit descriptor AFLAGS case+ group DSC64$R_AFLAGS_BITSs BYTE FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through FL_BOUNDS/ end group DSC64$R_AFLAGS_BITS end variant) end group DSC64$R_AFLAGS_OVERLAYF BYTE DSC64$B_DIMCT ! 64-bit descript [ or DIMCTL LONG DSC64$L_MBZ ! MBZ field for quad alignment.H BASIC$QUADWORD DSC64$Q_ARSIZE ! 64-bit descriptor ARSIZE C BASIC$QUADWORD DSC64$PQ_A0 ! 64-bit descriptor A0 end record DSCDEF5_64 3 DECLARE LONG CONSTANT DSC64$S_DSCDEF6_64 = 64 record DSCDEF6_64, BYTE DSCDEF_64$$_FILL_7 ( 1 to 40 )C BASIC$QUADWORD DSC64$Q_V0 ! 64-bit descriptor V0L BASIC$QUADWORD DSC64$Q_S1 \ ! Stride of the first dimensionO BASIC$QUADWORD DSC64$Q_S2 ! Stride of the second dimension.  end record DSCDEF6_64 3 DECLARE LONG CONSTANT DSC64$S_DSCDEF7_64 = 64 record DSCDEF7_64, BYTE DSCDEF_64$$_FILL_8 ( 1 to 48 )S BASIC$QUADWORD DSC64$Q_M1 ! Addressing coefficient M1 = U1-L1+1 S BASIC$QUADWORD DSC64$Q_M2 ! Addressing coefficient M2 = U2-L2+1  end record DSCDEF7_64 e DECLARE LONG] CONSTANT DSC64$K_PI_BLN = 32 ! Block length in bytes for 64-bit PI class descr. e DECLARE LONG CONSTANT DSC64$C_PI_BLN = 32 ! Block length in bytes for 64-bit PI class descr. e DECLARE LONG CONSTANT DSC64$K_JI_BLN = 32 ! block length in bytes for 64-bit JI class descr. e DECLARE LONG CONSTANT DSC64$C_JI_BLN = 32 ! block length in bytes for 64-bit JI class descr. 3 DECLARE LONG CONSTANT DSC64$S_DSCDEF8_64 = 32 record DSCDEF8_64, BYTE DSCDEF_64$$_FI ^ LL_9 ( 1 to 24 )@ BASIC$QUADWORD DSC64$PQ_FRAME ! Address of frame  end record DSCDEF8_64 3 DECLARE LONG CONSTANT DSC64$S_DSCDEF9_64 = 40 record DSCDEF9_64- BYTE DSCDEF_64$$_FILL_10 ( 1 to 24 )T BASIC$QUADWORD DSC64$Q_SB_L1 ! Signed lower bound of first dimensionT BASIC$QUADWORD DSC64$Q_SB_U1 ! Signed upper bound of first dimension end record DSCDEF9_64 4 DECLARE LONG CONSTANT DSC64$S_DSCDEF10_64 = 48 record DSCDEF10_64- BYTE DSCDEF_64$$_FILL_11 ( 1 to 32 )T BASIC$QUADWORD DSC64$Q_UBSB_L1 ! Signed lower bound of first dimensionT BASIC$QUADWORD DSC64$Q_UBSB_U1 ! Signed upper bound of first dimension end record DSCDEF10_64  ww` PJV ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED a ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINb G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > c %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +" ! Define SRM Hardware symbols ! -O DECLARE LONG CONSTANT SRM$K_INT_OVF_T = 1 ! Integer overflow trap code U DECLARE LONG CONSTANT SRM$K_INT_DIV_T = 2 ! Integer divide by zero trad p code P DECLARE LONG CONSTANT SRM$K_FLT_OVF_T = 3 ! Floating overflow trap code ^ DECLARE LONG CONSTANT SRM$K_FLT_DIV_T = 4 ! Floating/decimal Divide by zero trap code Q DECLARE LONG CONSTANT SRM$K_FLT_UND_T = 5 ! Floating Underflow trap code V DECLARE LONG CONSTANT SRM$K_DEC_OVF_T = 6 ! Decimal string overflow trap code I DECLARE LONG CONSTANT SRM$K_SUB_RNG_T = 7 ! Subscript range trap Q DECLARE LONG CONSTANT SRM$K_FLT_OVF_F = 8 ! Floating Overflow e fault code W DECLARE LONG CONSTANT SRM$K_FLT_DIV_F = 9 ! Floating Divide by zero fault code S DECLARE LONG CONSTANT SRM$K_FLT_UND_F = 10 ! Floating Underflow fault code ; DECLARE LONG CONSTANT SRM$M_EXC_SUM_SWC = x'00000001'; DECLARE LONG CONSTANT SRM$M_EXC_SUM_INV = x'00000002'; DECLARE LONG CONSTANT SRM$M_EXC_SUM_DZE = x'00000004'; DECLARE LONG CONSTANT SRM$M_EXC_SUM_OVF = x'00000008'; DECLARE LONG CONSTANT SRM$M_EXC_SUM_UNF = x'00000010'; f DECLARE LONG CONSTANT SRM$M_EXC_SUM_INE = x'00000020'; DECLARE LONG CONSTANT SRM$M_EXC_SUM_IOV = x'00000040') DECLARE LONG CONSTANT SRM$S_SRM = 4 record SRM$ group SRM$R_EXC_SUM_OVERLAY variant case$ LONG SRM$L_EXC_SUM case* group SRM$R_EXC_SUM_BITS LONG EXC_SUM_SWC_bits ! COMMENT ADDED BY SDL - EXC_SUM_SWC_bits contains bits EXC_SUM_SWC through fill_1.  end group SRM$R_EXC_SUM_BITS end variant( end group SRM$R_EXC_SUM_OVERLAY end record SRM wwh o| ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED i ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINj G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > k %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:30.67 !  ! E ! SSMSG.MSG - SYSTEM DEFINITION FILE FOR SYSTEM SERVICE MESSAGES !  ! VERSION: 'X-139' l ! P ! *************************************************************************P ! * *P ! * HP CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL PROPRIETARY SOFTWARE *P ! * LICENSED BY HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., AND IS NOT *P ! * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT THE *P ! * PRIOR WRITTEN PERMISSION OF HP. *P ! *m (C) 2015 COPYRIGHT HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *P ! * *P ! * VMS SOFTWARE, INC. CONFIDENTIAL. THIS SOFTWARE IS CONFIDENTIAL *P ! * PROPRIETARY SOFTWARE LICENSED BY VMS SOFTWARE, INC., AND IS NOT *P ! * AUTHORIZED TO BE USED, DUPLICATED OR DISCLOSED TO ANYONE WITHOUT *P ! * THE PRIOR WRITTEN PERMISSION OF VMS SOFTWARE, INC. *P ! * (C) 2015-2018n COPYRIGHT VMS SOFTWARE, INC. *P ! * *P ! ************************************************************************* ! ++ ! , ! FACILITY: VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! E ! THIS FILE CONTAINS THE SDL SOURCE FOR SYSTEM SERVICE MESSAGES. !  ! GUIDELINES: ! K ! WITH THE RELEASE OF HELP MESSAGE, MESSAGE DOCUMENTATION MUST EXACTLY o L ! MATCH THE MESSAGE TEXT IN THIS FILE IN ORDER FOR THE ONLINE SEARCH TOG ! SUCCEED. TO AVOID DOCUMENTING EMBARRASSING TYPOS OR GRAMMATICALJ ! ERRORS, PLEASE FORWARD YOUR NEW OR CHANGED MESSAGES TO THE MESSAGESI ! WRITER FOR A QUICK EDIT. VMS SENIOR MANAGEMENT SUPPORTS ENFORCINGI ! STANDARD MESSAGE FORMATTING CONVENTIONS, WHICH ARE INCLUDED IN THE ! FOLLOWING GUIDELINES. ! R ! O SS$ CODE NAMES SHOULD BE 15 OR FEWER CHARACTERS TO PREVENT TRUNCATION7 p ! IN MESSAGE TEXT, WHICH CAUSES GENERAL CONFUSION. ! Q ! O WORDS IN MESSAGES SHOULD NOT BEGIN WITH CAPS UNLESS THEY WOULD START5 ! WITH CAPS IN RUNNING TEXT. FOR EXAMPLE, ! / ! WRONG: / ! RIGHT:  ! K ! THIS IS NOT WELL KNOWN, BUT THE $GETMSG SYSTEM SERVICE AUTOMATICALLYL ! CONVERTS TO UPPERCASE THE INITIAL LETTER OF A MESSAGE WHEN RETRIEVINGD ! A MESSAGE IN AN ENVIRON q MENT WHERE THE FACILITY, SEVERITY, AND2 ! IDENTIFICATION FIELDS HAVE BEEN SUPPRESSED. ! / ! O ACRONYMS SHOULD BE UPPERCASE ONLY: ! % !  ! < ! O DO NOT USE PUNCTUATION AT THE END OF A MESSAGE. ! L ! O AVOID USING CONTRACTIONS IN MESSAGES. FOR EXAMPLE, USE "cannot"D ! INSTEAD OF "can't" AND "does not" INSTEAD OF "doesn't". ! K ! O "It's" IS A CONTRACTION FOR "it is". THE POSSESSIVE IS "its" r . ! L ! O USE THE WORDS "and" OR "or" INSTEAD OF A "/" WHENEVER POSSIBLE. ! 9 ! WRONG: ? ! RIGHT:  ! O ! O AVOID USING HYPHENS TO SEPARATE CLAUSES. USE A SEMICOLON INSTEAD. ! B ! WRONG: A ! RIGHT:  ! L ! O SEMICOLONS SHOULD BE USED T s O SEPARATE MAIN CLAUSES THAT ARE NOTK ! JOINED BY "and" OR "but". IN THE ABOVE EXAMPLE, IT IS GRAMMATICALLYN ! INCORRECT TO USE A COMMA IN PLACE OF THE SEMICOLON. A COMMA IS CORRECTM ! WHEN EITHER CLAUSE DOES NOT FORM A COMPLETE SENTENCE OR WHEN THE COMMA9 ! IS USED TO SEPARATE ITEMS IN A LIST. FOR EXAMPLE, ! D !  ! G ! O ABOVE ALL, KEEP THE JARGON TO A MINIMUM AND CONCENTRATE ONH ! COM t MUNICATING A MESSAGE THAT IS AS INFORMATIVE AND HELPFUL AS YOU ! CAN MAKE IT. !  ! 5 ! NOTE BENE: WHEN OBSOLETING OR ADDING MESSAGES: ! O ! O REUSE OBSOLETE MESSAGE ENTRIES WHEN POSSIBLE. THESE ARE MARKED BY+ ! A MESSAGE NAME OF OBSOLETE_. ! O ! O IF YOU MUST REMOVE A MESSAGE, DON'T SIMPLY DELETE IT. IF MESSAGESL ! COME AFTER IT, OBSOLETE IT BY CHANGING THE NAME TO OBSOLETE_.J ! LOOK FOR THE OTHER OBSOLETE MESSAGES u TO FIND OUT WHAT THE NEXT FREEL ! NUMBER IS. THIS WILL LET OTHERS KNOW THAT WHEN THEY WANT A SLOT, THEYC ! CAN REUSE SOME OBSOLETE MESSAGE INSTEAD OF ADDING A NEW ONE. ! R ! O THE 64-BIT PROJECT HAS ENABLED THE ENTIRE ALPHA VIRTUAL ADDRESS RANGEL ! (WITH THE EXCEPTION OF THE GAP) TO BE AVAILABLE. THEREFORE, MESSAGESK ! THAT DISPLAY ADDRESSES, INCLUDING PCS, MUST DISPLAY THE FULL 64-BITSL ! OF THOSE ADDRESSES. USE THE ?XH FAO DIRECTIVE FOR THIS PURPOSE. FAOHv ! (SYS$FAO ? SYS$FAOL_64 ONLY) FOR ALPHA HANDLES QUADWORD ARGUMENTSK ! BY VALUE SO YOU DO NOT HAVE TO SPECIFY THE INDIRECTION OPERATOR (@). ! -- ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! * ! X-139 DAG DOUG GORDON 25-JUL-2018 ! ADD PWDPOLICY. ! / ! X-138 MAS MARK A. STILES 10-FEB-2015 ! WE'RE BAAAAACK?* ! ADD COWBOYUP AND UPDATE COPYRIGHT. ! 8 ! X-137 ACG0722 ANDY GOLDSTE w IN, 15-OCT-2008 12:00- ! REMOVE UNUSED SS$_SYMLINKENTRY STATUS2 ! ALSO GENERALIZE TEXT OF TOOMANYVER MESSAGE ! - ! X-136 AJ ANDERS JOHANSSON 10-OCT-2008D ! ADD INVKTLIM MESSAGE, AND ADJUST THE "room left" ACCORDINGLYF ! FOR THAT SECTION. I ACTUALLY COUNTED THE MESSAGES, AND APPLIEDC ! A GREATER ADJUSTMENT TO MATCH THE DEFINED NUMBER OF MSGS IN ! THE COMMENT. ! . ! X-135 SAN SANDEEP RAMAVANA 12-JUN-20080 ! ADD A NEW SUCCESS STATUS RET x URN, LOWPREC ! H ! X-134 LSH LON HILDE 31-OCT-2004T ! TWEAK ASTFLT MESSAGE CHANGING "target PC" TO "target PC or FV". ! 1 ! X-133 MAS0823 MARK A. STILES 20-OCT-2006< ! IT'S BEEN A LONG AND FUN RIDE, VMS. THIS IS MY LAST? ! CHECKIN ON MY LAST DAY. AN APPROPRIATE REMINDER STATUSF ! FOR FUTURE NOTIFICATION. FIXUP REVISION NUMBERS TO MATCH VDE. ! H ! X-132 DOUGLAS FYFE y 29-NOV-20059 ! ADD SS$_TOOMANYPERSONA PERSONA ARRAY FULL STATUS. ! H ! X-131 KGB KENNETH G. BLAYLOCK 23-SEP-2005E ! ADD IN THE SUCCESS STATUS OF SS$_SYMLINKENTRY TOD ! INDICATE THAT THE DIRECTORY ENTRY HAS A SYMLINK ! HINT VALUE. ! / ! X-129/130 WBF BURNS FISHER 12-MAY-2005A ! ADD "reason mask" FIELD TO SS$_DEBUG_FAULT. IT SHOULD BE ! JUST LIKE ACCVIO ! H ! z X-128 KGB KENNETH G. BLAYLOCK 29-NOV-2004H ! ADD IN A NEW FILE WARNING. FILEFULL WHICH INDICATESH ! THAT THE SUPPORTED ALLOCATION FOR THE FILE IS FULL. ! 0 ! X-127 RAB0122 ROBERT A. BROOKS -SEP-20046 ! CHANGE TEXT FOR NOMODNONEPOL TO CORRELATE WITHB ! NAME CHANGE OF HBMM NONE POLICY TO NODEFAULT (NO DEFAULT).- ! ERROR NAME STAYS THE SAME, OF COURSE. ! A ! REMOVE THE WORD QIOSERVER FROM NOMOREPATHS. QIO{ SERVER ISD ! DEAD, BUT THE ERROR MESSAGE IS STILL BEING USED BY MULTIPATH> ! AND MULTIPATH-AWARE COMPONENTS ($GETDVI, FOR EXAMPLE). ! + ! X-126 RUTH GOLDENBERG 10-AUG-2004J ! ADD INFORMATIONALS FOR GEM: ARGTYPN, FPMODECTL, FPMODEPC, FPMODERC ! + ! X-125 RUTH GOLDENBERG 4-AUG-2004' ! TWEAK TEXT FOR SS$_TOOMANYLNAM. ! 1 ! X-124 MAS0800 MARK A. STILES 7-JUL-20047 ! ADD GAMEOVER MESSAGE FOR INTERSTELLAR CONQUEST. ! 2 ! X | -123 RAB0106 ROBERT A. BROOKS 26-MAY-2004 ! MORE SHADOWING MESSAGES. ! 2 ! X-122 RAB0103 ROBERT A. BROOKS 17-MAY-2004) ! MORE SHADOWING MESSAGES FOR HBMM. ! 2 ! X-121 RAB0102 ROBERT A. BROOKS 11-MAY-2004) ! MORE SHADOWING MESSAGES FOR HBMM. ! 0 ! X-120 SAD STUART A. DAVIDSON 7-MAY-20049 ! ADD SS$_QIO_FAULT FOR SPECIAL TREATMENT THAT $QIO; ! NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE.9 ! SS$_QIO_FAULT IS HANDLED BY A CA} LLER'S MODE JACT,9 ! WHERAS QIO_CROCK IS HANDLED IN THE SYSTEM SERVICE> ! DISPATCHER (WHICH IS PROBLEMATIC WITH THE IA64 CALLING ! STANDARD). ! 1 ! X-119 RAB098 ROBERT A. BROOKS 05-MAY-2004= ! ADD SEVERAL SHADOWING-RELATED MESSAGES TO REPLACE THE ! TOO-GENERIC INCSHAMEM. ! ' ! X-118 CLAIR GRANT 21-APR-2004= ! ELIMINATE "Digital" AND "DEC" FROM ERROR TEXT STRINGS ! + ! X-117 WBF BURNS FISHER 31-MAR-2004 ! ADD SS$_CA~ LLUNDEFSYM ! - ! X-116 JRC JOHN R. COVERT 12-MAR-20046 ! ADD XVALNOTVALID FOR EXTENDED LOCK VALUE BLOCK ! 1 ! X-115 RAB086 ROBERT A. BROOKS 03-FEB-2004$ ! ADD HBMMCREPOSTMRG FOR HBMM. ! - ! X-114 DJM DENNIS MATTOON 27-JAN-2004$ ! ADD SYMBOLS/MESSAGES FOR TIE ! 1 ! X-113 RAB085 ROBERT A. BROOKS 16-JAN-20048 ! ADD WLGCANTHBMM FOR HBMM, TO INDICATE THAT OLDER= ! DEVICES CAPABLE OF MSCP-BASED MINIMERGE (HSC/HSD/HSJ) !  CANNOT USE HBMM. ! 1 ! X-112 RAB084 ROBERT A. BROOKS 14-JAN-2004= ! ADD SEVERAL MESSAGES FOR HOST-BASED MINIMERGE (HBMM). ! / ! X-111 KLN3346 KAREN L. NOEL 7-SEP-20033 ! O CHANGE TAKEN_BRANCH TO USE DISPLAY PC/PS.E ! O CHANGE NEW REASON MASKS TO BYTES OR WORDS INSTEAD OF QUADS. ! 0 ! X-110 KLN3340 KAREN L. NOEL 28-AUG-2003? ! O ADD SS CODES FOR TAKEN BRANCH FAULT, IA32 TRAP, DEBUG! ! FAULT AND SYSTEM BREAK., ! O FIX SEVERI TY OF APPLICATION BREAK.= ! O FIX NATFAULT TO DISPLAY REASON MASK INSTEAD OF ISR. ! / ! X-109 KLN3299 KAREN L. NOEL 4-JUN-2003 ! ADD SS$_INSF_SHM_REG. ! / ! X-108 LC0001 LARRY CAMILLI 12-MAR-2003 ! ADD SS$_FILENOTCACHED. ! . ! X-107 PJB0044 PAUL BENOIT 02-DEC-2002 ! ADD SS$_BREAK_ARCH. ! . ! X-106 PJB0029 PAUL BENOIT 08-NOV-2002 ! ADD SS$_BREAK_APPL. ! . ! X-105 PJB0021 PAUL BENOIT 18-OCT-2002 !  ADD SS$_FLTDENORMAL. ! . ! X-104 PJB0013 PAUL BENOIT 12-SEP-2002 ! ADD SS$_NATFAULT. ! 0 ! X-103 SAD STUART A. DAVIDSON 18-JUL-2002= ! ADD TURSTCONF FOR USE WHEN AN OPERATION WOULD VIOLATE? ! THE TRUSTED ENVIRONMENT FOR PRIVILEGED IMAGE EXECUTION. ! + ! X-102 RUTH GOLDENBERG 10-MAY-2002@ ! MODIFY SS$_INCOMPAT TEXT FOR USE BY $GETJPI IN A FAILURE; ! TO GET AN UNDEFINED ITEM CODE FROM A TARGET SYSTEM. ! 1 ! X-101 DJS011203 DAVE SWEENEY 07-DEC-20019 ! ADD SS$_FORCEX FOR USE BY DCL COMMAND STOP/IMAGE. ! 2 ! X-100 EMW0253 ELINOR M. WOODS 15-OCT-20013 ! ADD SS$_EXITFORCED FOR USE BY SYS$DELPRC IN* ! SUPPORT OF NEW EXIT FUNCTIONALITY. ! 0 ! X-99 MAS0677 MARK A. STILES 24-AUG-2001; ! ADD SS$_PRESTO FOR USE BY INTERRUPT OR FORK SERVICE> ! ROUTINES WHICH HAVE KNOWLEDGE THAT THE SAVED INTERRUPT: ! OR EXCEPTION FRAME NEED NOT BE MULTIPLY PRESERVED. ! 0 ! X-98 MAS0671 MARK A. STILES 16-MAR-2001> ! ADD SS$_FISH FOR MESSAGE TRANSLATION, OR LACK THEREOF. ! & ! X-97 ABP ANU PANT 18-SEP-20008 ! ADD SS$_PATHAMBIG, SS$_INVMVIP, SS$_NOPATHAVAIL,7 ! AND SS$_NOENACURINV FOR USE BY MULTIPATH SYSTEM ! SERVICE. ! . ! X-96 JMB224 JAMES M. BLUE 7-MAR-2000@ ! ADD SS$_NOSUCHQPOOLID FOR USE BY QIOSERVER'S HANDLING OF> ! POOL DEALLOCATION. CORRECT PREVIOUS QIOSERVER MESSAGE. ! ADDS TO CONFORM WITH G UIDELINES ABOVE. ! / ! X-95 KLN2158 KAREN L. NOEL 03-MAR-2000 ! ADD BADRAD. ! . ! X-94 JMB197 JAMES M. BLUE 6-JAN-20008 ! ADD SS$_QPOOL_DEL_INIT, SS$_QPOOL_DEL_INPRG, AND= ! SS$_QPOOL_DEL_BUSY FOR USE BY QIOSERVER'S HANDLING OF ! POOL DEALLOCATION. ! . ! X-93 EMB ELLEN M. BATBOUTA 05-NOV-1999D ! ADD SS$_NOADD AND SS$_SYSTEMUIC MESSAGES FOR THE CLASS ! SCHEDULER. ! . ! X-92 JMB183 JAMES M. BLUE 23-SEP-1999; ! ADD MESSAGES FOR QIOSERVER'S QIO$CONFIGURE AND QCP. ! . ! X-91 EMB ELLEN M. BATBOUTA 12-AUG-1999? ! ADD SS$_INCLASS ERROR MESSAGE. THIS ERROR MESSAGE WILL@ ! BE RETURNED BY THE $SCHED SYSTEM SERVICE WHEN AN ATTEMPT> ! IS MADE TO CLASS SCHEDULE A PROCESS/KERNEL THREAD WHEN9 ! IT ALREADY BELONGS TO A SCHEDULING CLASS FROM THE& ! CLASS SCHEDULER DATABASE FILE. ! . ! X-90 JMB076 JAMES M. BLUE 22-MAR-19997 ! ADD SS$_NOQIOSERVER - QIOSER VER'S QIO$CONFIGURE8 ! PROCESS IS NOT AVAILABLE TO HANDLE SYS$QIOSERVER8 ! REQUESTS. ADD SS$_INVQSRFNC - THE FUNCTION CODE0 ! IN THE SYS$QIOSERVER REQUEST IS INVALID. ! H ! X-89 GP GENADY PERCHENKO 18-FEB-1999! ! ADD WRONGDRV ! / ! X-88 JAH0323 JOHN A HARNEY 10-DEC-19987 ! ADD PERSONARESERVED FOR OPERATIONS ATTEMPTED ON! ! A RESERVED PERSONA INDEX. ! - ! X-87 JRK390 JIM KAUFFMAN 11-SEP -19987 ! ADD NOCPUMATCH AND TRIM CPUSELECTED TO FIT PAGE ! - ! X-86 JRK390 JIM KAUFFMAN 9-JUL-1998 ! ADD CPUSELECTED ! 0 ! X-85 KJP-SDOS KEVIN PLAYFORD 29-JUN-1998> ! UPDATE SNAPSHOT SERVICES MESSAGES BASED ON DEVICE NAME ! CHANGE. ! . ! X-84 EMB ELLEN M. BATBOUTA 04-JUN-1998C ! ADD 2 NEW ERROR MESSAGES, NOFASTPATH AND CPUNOTAVAIL. ! H ! X-83 GP GENADY PERCHENKO 26-MAY-1998G ! FIX A TYPO IN ERROR SYMBOL. IT SGOULD BE DEVNOTCON, ! INSTEAD OF MPDEVNOTCON. ! H ! X-82 GP GENADY PERCHENKO 20-MAY-1998J ! ADD SOME MORE MULTIPATH STATUS CODES. AND RENAME SOME# ! EXISTING ONES. ! H ! X-81 GP GENADY PERCHENKO 02-APR-19988 ! ADD NEW STATUS CODES FOR MULTIPATH. ! ( ! X-80 DAVE BERNARDO 24-FEB-1998< ! AD D BADLCKTBL AND MAKE BROKEN A SUCCESS STATUS CODE., ! MAKE THE ERROR TEXT MORE MEANINGFUL. ! + ! X-79 AHM039 DREW MASON 17-FEB-1998= ! ADD MORE STATUS CODES FOR GALAXY MEMBERSHIP SERVICES. ! 4 ! 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-19989 ! ADD STATUS CODES FOR GALAXY MEMBERSHIP CALLBACKS. ! + ! X-76 NELSON PAT NELSON 14-JAN-199 8/ ! CLEANED UP INSTRUCTIONS AT TOP OF FILE. ! + ! X-75 DMB DAVE BERNARDO 07-JAN-19981 ! ADD MORE STATUS CODES FOR GALAXY LOCKING. ! ) ! X-74 HAR HAROLD READ 10-DEC-1997, ! ADD NEW STATUS CODE FOR MSCP ERRORS. ! H ! X-73 JAH0250 JOHN A HARNEY 11-NOV-1997I ! ADD SS$_NOSUCHEXT FOR IMPERSONATION SERVICES TO TELL8 ! THE USER THERE'S NO SUCH EXTENSION. ! + ! X-72 DMB DAVE BE RNARDO 27-OCT-1997, ! ADD STATUS CODES FOR GALAXY LOCKING. ! / ! X-71 KLN2008 KAREN L. NOEL 21-OCT-19976 ! ADD NEW STATUS CODES FOR GALAXY SHARED MEMORY. ! * ! X-70 HAR HAROLD READ 18-SEP-1997@ ! ADD TEN NEW ERROR MESSAGES FOR DU/TUDRIVER. ! ' ! X-69 ANDY KUEHNEL 10-SEP-1997H ! ADD SS$_SECREFOVF ERROR TO BE RETURNED IF ADDING MORE REFERENCESH ! TO A GLOBAL SECTION WOULD CAUSE THE REFERENCE COUNT TO OVERFLOW. ! 2 ! X-68 WDB:MTD20 WALTER BLASCHUK 13 AUG 1997A ! MULTIPLE TAPE DENSITY PROJECT: INSERT TWO INFORMATIONALSD ! SS$_NOTATBOT AND SS$_PREVSDENS. ALPHA AND VAX. ! 0 ! X-67 KJP-SDOS KEVIN PLAYFORD 18-JUL-1997F ! UPDATE SNAP CAPABLE DISK ERROR MESSAGES AND RESERVE SOME EXTRA ! MESSAGES. ! 0 ! X-66 KJP-SDOS KEVIN PLAYFORD 11-JUN-1997E ! ADD SS$_TOOMANYFRAGS AND SS$_TOOMANYFAMILIES FOR SNAP CAPABLE ! DISK. ! . ! X-65 IBB038 IAN BROCKBANK 4-JUN-19978 ! F11BXQP HFS LATENT SUPPORT - ADD SS$_NOTF11ODS5,& ! SS$_NOCONVJNL AND SS$_NORAD50. ! . ! X-64 BMAN BRIAN MAN 21-MAR-1997K ! NO CHANGES: CLEAN UP SOME SO DIFFS WORK BETTER BETWEEN ! THE VAX VERSION ! H ! X-63 DOUGLAS FYFE 14-FEB-1997N ! MAINLINE MERGE OF PER-THREAD SECURITY SUPPORT: (GEN 58A1)I ! ADD SS$_PERSONADELPEND TO BE RETURNED WHEN A REQUESTI ! TO DELETE A PERSONA IS PREVENTED ONLY BY OUTSTANDING, ! REFERENCES IN REFCOUNT. ! 3 ! X-62 JMP-VDC JULIAN PALMER 29-JAN-19971 ! ADD SS$_FLUSHFAIL FOR VDC LATENT SUPPORT. ! * ! CW-SD CHRIS WHITAKER 29-JAN-1997: ! ADD ADDITIONAL ERROR MESSAGES FOR SNAPSHOT-CAPABLE ! DISK. ! 2 ! X-61 NYK656 NITIN Y. KARKHANSI 21-AUG-1996< ! ADDED SS$_NOSHPTS AS PART SHARED PAGE TABLE SUPP ORT. ! . ! X-60 KLN1572 KAREN L. NOEL 6-AUG-1996? ! O ADDED SS$_RES_MEM_INCON FOR RESERVED MEMORY REGISTRY.> ! O ADDED SS$_PTE_NOT_EMPTY FOR SYSTEM PTE DEALLOCATION. ! 2 ! X-59 NYK640 NITIN Y. KARKHANIS 17-JUL-1996D ! O ADDED SYSTEM SERVICE MESSAGE FOR SHARED PAGE TABLE SECTION% ! CREATION, SS$_CREATED_SHPT.8 ! O REMOVED SS$_MRES_NOTREG, SS$_MRES_REGSMALL AND) ! SS$_MRES_REGBIG FOR KAREN NOEL. ! . ! X-58 KLN1546 KAREN L. NOEL 2-MAY-1996C ! ADDED SYSTEM SERVICE MESSAGES FOR MEMORY RESIDENT SECTIONS.? ! MRES_REGSMALL, MRES_REGBIG, MRES_NOTREG, MRES_PFNSMALL,> ! MRES_INCON, NORESERVEDMEM, RESERVEDMEMUSED, NOMEMRESID ! 1 ! X-57 JACH0010 JEREMY A. C. HITT 2-MAR-19969 ! ADDED THE FOLLOWING MESSAGES FOR ACME: NOEXTAUTH,) ! ERRMAPAUTH, AUTHFAIL AND INVUSER. ! , ! X-56 WXD BILL DAVENPORT 13-DEC-1995, ! PER-THREAD SECURITY STAGE 1 CHECKIN: ! B ! ADD NODELPER MANENT ERROR CODE TO BE RETURNED WHEN DELETIONA ! OF A PERMANENT PERSONA IS ATTEMPTED. ALSO, RENAME DETACHA ! PRIVILEGE TO IMPERSONATE. ADD LITERAL SO THAT OLD SYMBOL ! STILL GETS CREATED. ! 0 ! X-55 PKW338 PAUL K. M. WEISS 8-NOV-1995G ! ADD SS$_THREAD_UPCALL, WHICH IS USED TO COMMUNICATE FROM KERNELD ! INTERNAL SERVICES TO THE CALLER'S MODE JACKET THAT IT SHOULD ! MAKE AN UPCALL ! 8 ! X-54 JCH703B JOHN C. HALLYBURTON, JR. 10-OCT-1995D ! ADD SS$_NOBUFOBJID (ATTEMPTED USER MODE CREATE BUFFER OBJECT% ! WITHOUT A RIGHTS IDENTIFIER). ! / ! X-53 KLN1520 KAREN L. NOEL 28-SEP-1995< ! 1. FIX SEVERAL NEW SS$ CODES TO BE ERRORS INSTEAD OF ! WARNINGS.> ! 2. SHORTEN SEVERAL NEW SS$ CODE NAMES SO THEY ARE LESSD ! 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-1995 ; ! 1. CHANGE MESSAGE TEXT FOR SS$_IVPROTECT TO INCLUDE) ! INVALID GLOBAL SECTION PROTECTION2 ! 2. FIX TYPO IN SS$_OFFSET_NOTBLOCK MESSAGE ! * ! X-51 WBF BURNS FISHER 7-SEP-1995$ ! ADD SS$_EMULATE INFO MESSAGE ! 8 ! X-50 JCH703A JOHN C. HALLYBURTON, JR. 8-MAR-1995" ! ADD EXBUFOBJLM ERROR CODE. ! 2 ! X-49 NYK292 NITIN Y. KARKHANIS 28-FEB-19953 ! 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-19950 ! ADD SS$_NOMORETHREAD FOR KERNEL THREADS. ! 2 ! X-47 NYK280 NITIN Y. KARKHANIS 23-FEB-1995D ! 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-19959 ! ADD EVEN MORE SS$ CODES FOR 64-BIT GLOBAL SECTION ! SYSTEM SERVICES. ! . ! X-45 KLN1377 KAREN L. NOEL 3-FEB-1995< ! ADD ANOTHER SS$ CODE FOR 64-BIT MMG SYSTEM SERVICES. ! . ! X-43 KLN1342 KAREN L. NOEL 1-DEC-1994@ ! ADD SOME FORGOTTEN CODES FOR 64-BIT MMG SYSTEM SERVICES. ! / ! X-42 KLN1333 KAREN L. NOEL 16-NOV-1994< ! ADD NEW CODES NEEDED FOR 64-BIT MMG SYSTEM SERVICES. ! ( ! X-41 TRB TOM BENSON 02-NOV-1994E ! ADDED SS$_RESIGNAL_64 AND SS$_CONTINUE_64. THESE ARE VARIANTSA ! OF THEIR 32-BIT COUNTERPARTS T HAT TELL EXCEPTION THAT THE+ ! 64-BIT SIGNAL ARRAY SHOULD BE USED. ! 5 ! X-40 LSS0312 LEONARD S. SZUBOWICZ 20-OCT-1994B ! ADD SS$_NOT64DEVFUNC. THIS IS RETURNED BY THE $QIO SYSTEM@ ! SERVICE IF THE P1 PARAMETER HAS MORE THAN 32 SIGNIFICANT5 ! BITS AND THE DRIVER DOES NOT SUPPORT 64-BITS. ! 0 ! X-39 KLN1326 KAREN L. NOEL 18-OCT-1994 ! 64-BIT PROJECT: ! ADD SS$_ARG_GTR_32_BITS ! 8 ! X-38 JCH703 JOHN C. HALLYBURTON, JR. 5-OC T-1994; ! ERROR CODES FOR FAST-IO: BADFANDLE THRU UNSUPVOLSET ! 2 ! X-37 JFD0633 JAMES F. DUNHAM 15-SEP-1994= ! FOLD FROM X-33U3 - ADD MESSAGES TO SUPPORT SCSI-2 TCQ ! 0 ! X-36 NANCY JEAN BURKHOLDER 19 SEP 1994# ! ADD SS$_ZEROALLOCLS MESSAGE ! * ! X-35 DBK001 DAN KYLER 7-SEP-1994E ! ADD MESSAGES FOR SMFS LAYERED PRODUCT IN MME RESERVED REGION. ! FOLDED FROM X-33U1. ! 2 ! X-34 DMB002 DAVID M. BERNARDO 28-AUG-1994B ! ADD SS$_NOMULTITHREAD, SS$_MTHREADACTIVE, SS$_MAXKTHREADS,< ! SS$_NOSUCHTHREAD, SS$_NOTHREADMAN, SS$_NOSUCHUPCALL, ! SS$_TMACTIVE. ! + ! X-33 JHH-BL5 JIM HOGG 6-JUL-1994? ! ADD SS$_INSFTHREADS ? SS$_NOTSUPFS FOR F64 FILE SYSTEM. ! 2 ! X-32 RAB0191 RICHARD A. BISHOP 3-JUN-1994( ! ADD SS$_SIGNAL64 FOR MIKE HARVEY ! 4 ! X-31 SAD0308 STUART A. DAVIDSON 22-MAR-1994A ! ADD INSFP1POOL TO CLEARLY IDENTIFY INSUFFICIENT CTLPAGES. ! / ! X-30 RAB RICHARD A. BISHOP 15-MAR-1994+ ! PICK UP THE FOLLOWING CORAL CHANGE: ! 2 ! X-35 FAK004 FORREST A. KENNEY 11-JAN-1994E ! ADD NEW MESSAGE , IOC$CLONE_UCB RETURNS THISB ! WHEN WE HAVE USED UP ALL THE AVAILABLE UNITS FOR A DEVICE. ! 6 ! X-29 RWC136 RICHARD W. CRITZ, JR. 23-DEC-1993; ! ADD SS$_CONFIG_SYNTAX FOR 3PB SUPPORT. IT REPLACES ! SS$_OBSOLETE_6. ! . ! X-28 RAB RICHARD A. BISHOP 9-DEC-19 938 ! ADD IMPERSONATION MESSAGE CODES FOR STU DAVIDSON ! + ! X-27 HH1241 HAI HUANG 06-OCT-19932 ! CORRECT PARAMETERS FOR SS$_ILLEGAL_SHADOW. ! $ ! X-26 DEE RYAN 30-SEP-1993< ! CORRECTED SPELLING, PUNCTUATION, AND LEGAL ERRORS IN ! MESSAGE TEXT. ! / ! X-25 RAB RICHARD A. BISHOP 17-AUG-1993 ! PICK UP NEW VAX SYMBOL: ! - ! X-32 WXD BILL DAVENPORT 11-AUG-19937 ! ADD SS$_IVNODNAM, INVALID NODE NAME FOR DECNET. ! + ! X-24 HH1202 HAI HUANG 12-AUG-1993+ ! ADD NEW IEEE ARITHMETIC EXCEPTIONS. ! - ! X-23 HH1110 GENE LEACHE 15-JUL-1993 ! ADD SS$_NOCALLTRANS_SUP ! + ! X-22 HH1110 HAI HUANG 14-JUN-19936 ! ADD SS$_TARGET_UNWIND, SS$_TARGET_GOTO_UNWIND. ! + ! X-21 HH1101 HAI HUANG 26-MAY-1993@ ! REPLACE REASON MASK WITH I/O STATUS IN PAGE READ ERRORS. ! P ! X-20 MW MARK WATTS 25-MAY-19 93O ! ADD A NEW FILESYSTEM ERROR MESSAGE CALLED SHELFERROR, THISR ! WILL BE RETURNED THROUGH THE FILESYSTEM BY THE SHELF HANDLER. ! / ! X-19 RAB RICHARD A. BISHOP 14-MAY-1993# ! FOLD INITIAL CORAL CHANGES: ! 4 ! X-21A1A1 MME001 MICHAEL BEELER 12-OCT-19925 ! ADD MME (MEDIA MANAGEMENT EXTENSION) MESSAGES ! / ! X-18 RAB RICHARD A. BISHOP 14-APR-1993> ! FOLD OF BLADE/DELTA CLEANUP (REQUIRED SS$_FDT_COMPL TO ! CHANGE VALUE): ! 0 ! X-14U3 RAB RICHARD A. BISHOP 14-APR-19933 ! MERGE BLADE CHANGES AND RESOLVE CONTENTION: ! 4 ! X-25A1 AJM93032 ANDREW J. MOSKAL 11-MAR-1993> ! ADD NOTRANQUIL AND SMALLHEADER - MAC RELATED MESSAGES. ! - ! X-17 EHL003 GENE LEACHE 1-APR-1993 ! ADD SIG_ARGMISMATCH ! - ! X-16 EHL003 GENE LEACHE 22-MAR-19939 ! ADD SIG_INVARGTYPE, SIG_INVFLTARG, SIG_INVARGLIST ! H ! X-15 WDB:HLL004 WALTER D. BLASCHUK, JR. 06-JAN-1993; ! HLLDD PROJECT: FDT PROCESSING CHANGES.< ! ADD THE SS$_FDT_COMPL CONSTANT. THIS WILL INDICATE< ! THAT FDT PROCESSING IS COMPLETE. IT SAYS NOTHING' ! ABOUT THE PRESENCE OF AN ERROR. ! ) ! X-14 RLP017 RAY PFAU 18-DEC-1992< ! CLARIFY CPUSTOPPING TEXT. FIX TYPO IN NOTALLCANCELED ! TEXT. ! . ! X-13 RAB RICHARD A. BISHOP 20-NOV-1992E ! NEW SYMBOLS FOR PAUL HOULIHAN (SCS), PLUS MO RE BLADE CHANGES: ! ) ! PJH PAUL J. HOULIHAN 20-NOV-1992? ! ADD SCS INTERNAL STATUS. THESE ARE NEVER SEEN BY USERS. ! > ! X-24 MWD0038 MICHAEL DANIELE 20-OCT-1992 14:13A ! ADD NAMESERVCOMMERR - "Name service communications error" ! ON BEHALF OF DECNET/OSI. ! D ! X-23 DDP1354 DERRELL D. PIPER 30-SEP-1992 16:36D ! ADD MESSAGE FOR ATTEMPT TO ADD A PROTECTED SUBSYSTEM ID WITHD ! ATTRIBUTES THAT EXCEED THOSE OF ITS HO LDER (SS$_SSANOTAUTH).A ! ALSO ADD A MESSAGE FOR INVALID FILE OWNER (SS$_BADOWNER). ! D ! X-22 DDP1337 DERRELL D. PIPER 16-SEP-1992 17:55? ! UPDATE NOPRIV, EXQUOTA, AND OBJNOTLOCKED MESSAGE TEXTS. ! / ! X-12 RS00375 RICHARD SAYDE 1-SEP-1992? ! CORRECT MESSAGE TEXT FOR ALIGNMENT FAULT TRAP. REGISTER? ! INFORMATION IS NO LONGER PROVIDED, IT IS NOW A FUNCTION+ ! CODE - 0 MEANS LOAD, 1 MEANS STORE. ! * ! X-11 HH0974 HAI HU ANG 16-AUG-1992, ! CORRECT MESSAGE TEXT FOR SS$_FLTINV. ! . ! X-10 RAB RICHARD A. BISHOP 14-AUG-1992% ! PICK UP ANOTHER BLADE CHANGE: ! 2 ! X-21 JAD045 JOSEPH A. DZIEDZIC 29-JUN-19929 ! ADD "page read error across access modes" STATUS, ! SS$_PAGRDERRXM. ! - ! X-9 RAB RICHARD A. BISHOP 16-JUL-1992: ! PICK UP CHANGE FROM VAX, RESET IDENT ? AUDIT TRAIL ! 2 ! X-19 RLA095B ROBERT L. ADAMS 12-JUN-19928 ! OBSOLETE CHARGE  CODE ACCOUNTING AND REPLACE WITH5 ! MORE DESCRIPTIVE PROTECTED SUBSYSTEMS ERRORS.+ ! ADD COMMENT ON OBSOLETING MESSAGES. ! , ! X-22 EHL002 GENE LEACHE 8-JUL-1992 ! ADD SS$_ILLPOLICY ! , ! X-21 EHL001 GENE LEACHE 18-JUN-1992 ! ADD SS$_ILLPRIPOL ! 2 ! X-20 EMB0170 ELLEN M. BATBOUTA 12-JUN-19927 ! ADD 2 NEW FATAL ERROR MESSAGES, TRANSCALLER AND; ! NOCALLTRANS. THESE MESSAGES INDICATE THAT A NATIVE: ! IMAGE WAS NOT BUIL T CORRECTLY TO INTEROPERATE WITH ! TRANSLATED CODE. ! * ! X-19 HH0931 HAI HUANG 27-MAY-1992+ ! CHANGE PSL IN ERROR MESSAGES TO PS. ! . ! X-18 RAB RICHARD A. BISHOP 19-MAY-1992% ! PICK UP RECENT BLADE CHANGES: ! / ! X-17 ATP014.17 ALAN POTTER 2-APR-19928 ! CHANGE ERROR MESSAGE TEXT FOR SS$_TPDISABLED AND ! SS$_NOLOG. ! H ! X-15/16 DDP1198 DERRELL D. PIPER 24-MAR-1992 18:15A ! FIX PUNCTUATION OF MESSAGE S FOR HELP/MESSAGE AND ADD SOME2 ! POMPOUS GUIDELINES FOR FUTURE GENERATIONS. ! * ! X-17 HH0855 HAI HUANG 10-MAR-1992) ! -16 ADD STATUS FOR GENTRAP CODES. ! * ! X-15 HH0853 HAI HUANG 26-FEB-1992: ! ADD SS$_GENTRAP, SS$_GOTO_UNWIND, SS$_EXIT_UNWIND. ! 2 ! X-14 RAB0100 RICHARD A. BISHOP 30-JAN-19929 ! MERGE BLADE AND ALPHA VERSIONS OF THIS FILE. THIS9 ! IS BEING DONE SO AS TO LEAVE BLADE VALUES INTACT.7 ! WHERE CHANGES IN VALUES  ARE NECESSARY, THEY ARE ! HAPPENING TO ALPHA. ! ; ! ALSO MOVE SS$_IMGDMP (PREVIOUS BLADE CHECKIN). THIS< ! WAS WRONGLY PLACED, AND CAUSED SOME SYMBOLS TO MOVE.2 ! THEY NOW GO BACK TO THEIR ORIGINAL VALUES. ! 9 ! AS LUCK WOULD HAVE IT, THIS CHECKIN IS GENERATION# ! 14 ON BOTH MASTERPACKS..... ! / ! ======================================== ! 9 ! 30-JAN-1992: WHAT FOLLOWS IS THE BLADE AUDIT TRAIL( ! FROM 30-NOV-1990 TO 20-DE C-1991 ! / ! ======================================== ! 1 ! X-13 SJVMAJ STEPHEN J. VIVIAN 20-DEC-19910 ! ADD SS$_IMGDMP SIGNAL FOR MAJIQ SUPPORT. ! < ! X-12 CRB0711 COLIN R. BLAKE 18-DEC-1991 13:18:23.93< ! THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. ! I ! X-8A3A1A2 THE GREAT MERGER NASSER ABBASI 11-DEC-1991 ! MERGE T4 WITH BLADE_BLD6( ! COPY OF HISTORY FROM BLD6 MODULE( ! ------------------------------ --8 ! X-11 JFD0031 JAMES F. DUNHAM 8-JAN-19917 ! ADD MESSAGES TO SUPPORT ISO 9660 VOLUME MOUNTS ! 8 ! X-8A3A1A1 DOR DENNIS O. ROGERS 26-NOV-1991 12:19 ! C2 BLADE MERGE (T4): ! 1 ! 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 ! 1 ! X-8A3 CRB0030 COLIN R. BLAKE 23-OCT-1991 ! MORE C2 MERGING: ! 5 ! T-6T9 SAD0144 STUART A. DAVIDSON 18-OCT-19919 ! ADD NOOJBSRV ERROR -- OBJECT SERVER NOT RUNNING. ! 3 ! X-8A2 FAK0003 FORREST A. KENNEY 16-OCT-1991 ! MERGE LATEST C2 CHANGES. ! = ! T-9 DDP0887 DERRELL D. PIPER 4-OCT-1991 18:43& ! ADD ITEM CODE ERROR MESSAGES. ! 3 ! X-8A1 FAK00 02 FORREST A. KENNEY 20-SEP-1991@ ! MERGE C2 MESSAGES INTO MAINLINE, FIX IDENT TO AGREE WITH& ! CMS DUE TO MASTERPACK CLEANUP. ! ; ! 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. ! 5 ! LMP0544 L. MARK PILANT, 30-JUL-1991 14:454 ! 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. ! 7 ! 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. ! 3 ! T-4 SAD0116 STUART A. DAVIDSON 3-MAY-19918 ! ADD ILLRSDM (ILLEGAL RESOURCE DOMAIN OPERATION) ! 6 ! X-80T3 SAD0109 STUART A. DAVIDS ON 19-APR-1991/ ! ADD OBJECT CONTEXT NOT LOCKED MESSAGE. ! 6 ! X-80T2 SAD0109 STUART A. DAVIDSON 11-MAR-1991; ! ADD MISSED MESSAGES FOR SECURITY OBJECT MANAGEMENT ! 5 ! X-81 RLA0147 ROBERT L. ADAMS 15-FEB-19916 ! ADD SECURITY MESSAGES ADDED FOR PHOENIX WORK. ! 0 ! X-87 PMV0169 PETER M. VATNE 20-JUN-1991 ! ADD SS$_DEVNOTWS. ! + ! X-86 CW CHRIS WHITAKER 10-MAR-1991 ! ADD SS$_REMEMBER ALIAS. ! 1 ! 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-19910 ! ADD ERROR CODES FOR DECDTM V1.2 SUPPORT. ! 0 ! X-82 RG40077 RAY GUZMAN 21-FEB-1991F ! ADD 4 NEW CODES. SS$_BADCHECKSUM, SS$_INVSECDOMAIN,) ! SS$_ARBTOOBIG, AND SS$_ORBTOOBIG. ! 5 ! X-81 RKK0058 ROBERT K. KOSAKOWSKI 19-FEB-1991A ! RESERVE 20 MESSAGE CODES FOR MEDIA MANAGEMENT EXTENSIONS. ! (FOR DAN KYLER) ! . ! X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 ! MERGED EDIT X-74 ! , ! X-74 LPL0001 LEE LEAHY 12 OCT 1990= ! ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID,6 ! SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. ! / ! ======================================== ! 9 ! 30-JAN-1992: WHAT FOLLOWS IS THE ALPHA AUDIT TRAIL( ! FROM 16-JUL-1990 TO 1 8-DEC-1991 ! / ! ======================================== ! / ! X-13 RS00233 RICHARD SAYDE 18-DEC-19916 ! ADD ERROR CODES FOR ALIGNMENT FAULT REPORTING. ! . ! X-12 TNS001 TOM SCARPELLI 24-OCT-19919 ! ADD MESSAGES FROM VAX SIDE FOR NEW QUEUE MANAGER. ! 1 ! 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-1991B ! ADD MESSAGES FROM VAX SIDE FOR $FORGE_WORD SYSTEM SERVICE. ! 5 ! X-8 RWC038 RICHARD W. CRITZ, JR. 12-JUN-1991B ! CHANGE SS$_DRVEXISTS AND SS$_DEVEXISTS FROM INFORMATIONALS ! TO WARNINGS. ! ) ! X-7 HH0624 HAI HUANG 09-APR-1991; ! ADD SS$_ALTER, ALTER STACK FRAMES, FOR TIE SUPPORT. ! + ! X-K10 LPL001 LEE LEAHY 4 APR 19911 ! INCLUDED THE DEFINITIONS FROM IOWA/SIGMA. ! / ! X-46U12 LPL0001 L EE LEAHY 30 NOV 1990 ! MERGED EDIT X-74 ! - ! X-74 LPL0001 LEE LEAHY 12 OCT 1990> ! ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID,7 ! SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. ! * ! X-K9 HH0610 HAI HUANG 25-FEB-1991= ! ADD ALPHA HARDWARE EXCEPTIONS SS$_HPARITH, SS$_ALIGN. ! 1 ! X-K8 RFH002 ROBERT F. HOFFMAN 23-JAN-19919 ! ADD SS$_QIO_CROCK FOR SPECIAL TREATMENT THAT $QIO; ! NEEDS IN ORDER TO FAULT IN A PAG E IN CALLER'S MODE. ! 2 ! X-K7 MSH1062 MICHAEL S. HARVEY 13-DEC-19909 ! ADD SS$_INVARG FOR $CRMPSC AND $MPGBLSC SERVICES. ! 1 ! X-K6 RFH001 ROBERT F. HOFFMAN 11-DEC-1990< ! ADD SS$_QUEUED FOR TTDRIVER PORT (REPLACES AN UNUSED ! MESSAGE) ! 5 ! X-K5 RWC003 RICHARD W. CRITZ, JR. 1-NOV-1990 ! ADD SS$_DRVNOTVALID. ! 5 ! X-K4 RWC003 RICHARD W. CRITZ, JR. 11-OCT-1990" ! ADD $LOAD_DRIVER STATUSES. ! / ! X-K3 KLN1027 K AREN L. NOEL 25-JUL-1990 ! ADD SS$_NOT_LOADED ! . ! X-K2 WMC0K2 WAYNE CARDOZA 16-JUL-1990! ! ADD WAIT IN CALLERS MODE. ! / ! ======================================== ! : ! 30-JAN-1992: WHAT FOLLOWS IS THE COMMON AUDIT TRAIL ! UP TO 21-MAY-1990 ! / ! ======================================== ! 2 ! X-46U11 CW1024 CHRIS WHITAKER 21-MAY-1990 ! ADD SS$_VOLATILE. ! A ! X-46U10 DDP0643 DERRELL D. PIPER 28- MAR-1990 15:55 ! ADD SS$_USEGENPWD. ! 2 ! X-46U9 MAS0254 MARK A. STILES 20-FEB-1990; ! FIXUP OUT-OF-ORDER CODES. MOVE SOME NEW CODES INTO> ! UNUSED SLOTS. FIX TEXT OF INSFSPT TO BE MORE GENERIC. ! 6 ! X-46U8 CAM0109 CHRISTOPHER A. MEGA 12-FEB-1990G ! ADD BOOTREJECT WARNING STATUS - USED BY START/CPU CODE IF A CPU? ! FAILS TO BOOT BECAUSE IT IS IN THE BOOT_REJECTED STATE. ! . ! X-46U7 LBB0010 LEE BARTON 30-NOV-1989< ! ADD SS $_ARCHIVING, SS$_ARCHIVED (XQP SUPPORT OF ALM) ! : ! X-46U6 LMP0517 L. MARK PILANT, 17-OCT-1989 16:42( ! ADD PROTECTED SUBSYSTEM SUPPORT. ! / ! X-46U5 RLF RICHARD L. FRANK 16-OCT-1989< ! MODIFY INSFSPTS TO BE MORE GENERIC. ADD INSFRPGS AND ! INSFLPGS. ! 6 ! 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 F OR $CHECK_ACCESS. ! 4 ! X-46U2 PRD0503 PAUL R. DESTEFANO 25-SEP-1989= ! ADD SS$_NOSUCHFAC FOR EVENT FACILITY OBJECT SECURITY. ! 4 ! X-46U1 PRD0495 PAUL R. DESTEFANO 18-SEP-19899 ! ADD SS$_INVEVENT FATAL MESSAGE FOR $SETEVTAST AND ! $CANEVTAST. ! 1 ! X-46 SAS0203 SCOTT A. SHURTS 15-SEP-19898 ! ADD SS$_INCONOLCK FATAL MESSAGE FOR $CHANGE_ACL. ! 4 ! X-45 CAM0063 CHRISTOPHER A. MEGA 13-SEP-1989A ! ADD WARNING AND INFORMATIONA L STATUS FOR ENHANCED PRIMARYC ! CPU SWITCHING: CPUSTARTIP, CPUSTARTD, CPUSTOPPD, PRIMNOSTP.$ ! ALSO ADDED /FAO=1 TO NSTPPD. ! D ! X-44 DDP0429 DERRELL D. PIPER 11-SEP-1989 16:57< ! CHANGE THE SEVERITY OF THE NEW PASSWORD STATUS CODES ! FROM FATAL TO ERROR. ! 1 ! X-43 CBD0198 CHARLES B. DUNN 14-AUG-19896 ! ADD SS$_EFNOTSET FOR IOC$PRE_SIMREQCOM SUPPORT ! , ! X-42 RAP0491 ROD A. PAYNE 15-AUG-89? ! ADD SS$_HSTBUFACC, TO REPORT HOST BUFFER ACCESS ERRORS. ! 1 ! X-41 CJB0041 CHERYL J. BULMER 9-AUG-19896 ! ADD SS$_LOADER, TO REPORT LOADER CYCLE ERRORS. ! 0 ! X-40 MAS0238 MARK A. STILES 9-AUG-1989< ! ADD SS$_CPUCAP FOR USE WHEN A REQUESTED CPU DOES NOT: ! HAVE THE CAPABILITIES REQUIRED TO RUN THE PROCESS.* ! [FOLD FROM X-29U11 IN V5.3 STREAM] ! = ! X-39 MVI0033 MICHAEL V. ILES, 28-JUL-1989 10:08:05.45> ! ADD MESSAGE CODE NOSUCHCPB AND CHANGE TEXT FOR ACLFULL ! D ! X-38 DDP0387 DERRELL D. PIPER 25-JUL-1989 12:47> ! ADD MESSAGE CODES FOR SITE-SPECIFIC PASSWORD POLICIES. ! D ! 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. ! 1 ! X-34 JEJ0550 JAMES E JOHNSON 19-SEP-1 988? ! ADD ALRCURTID, RMALRDCL, NOSUCHPART, INVLOG, BADLOGVER,# ! LOGSTALL, LOGFULL, LOGNAME. ! , ! X-33 SSA0001 STAN AMWAY 14-SEP-19886 ! ADD NOSUSPEND ("process cannot be suspended"). ! 8 ! X-32 RJB0165 RICHARD J. BOUCHARD JR. 14-SEP-19887 ! ADD NOMOREDEV MESSAGE FOR $DEVICE_SCAN SERVICE. ! < ! X-31 ACG0559 ANDREW C. GOLDSTEIN, 31-AUG-1988 16:289 ! 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. ! D ! X-29 DDP0308 DERRELL D. PIPER 21-JUL-1988 14:020 ! ADD PWDSYNTAX, INVPWDLEN, AND PWDNOTDIF. ! 1 ! X-28 JEJ0527 JAMES E JOHNSON 27-JUN-1988= ! ADD NOSUCHTID, NOCURTID, WRONGSTATE, VETO, UNKRESULT,= ! FORGET, PREPARED, NOSUCHRM, ITEMNOTFOUND, NOMOREITEMS ! * ! X-26 HH0315 HAI HUANG 18-APR-19884 ! -27 ADD NEW STATUS COD ES FOR VECTOR SUPPORT. ! 8 ! X-25 PT00010 PANKAJ TANDON 30-DEC-1987: ! ADD ALLSTARTED,ALRDYSTRT,ALRDYSTPPD AND NSTPPD FOR( ! $START/STOP CPU ERRONEOUS CASES. ! 8 ! X-24 LMP0465 L. MARK PILANT, 28-OCT-1987 15:58A ! 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-19871 ! EXPRCLM SHOULD NOT MENTION SUBPROCESSES. ! / ! X-18 WMC0018 WAYNE CARDOZA 19-FEB-1987 ! ADD VA_IN_USE. ! 1 ! X-17 DDP0029 DERRELL D. PIPER 21-JAN-19877 ! CONVERT SS $_BADXXXCTX TO SINGLE BADCONTEXT MSG. ! 1 ! 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. ! 1 ! X-14 DDP0008 DERRELL D. PIPER 08-DEC-19867 ! ADD SS$_LASTID, SS$_NOMOREID, SS$_RLSEMPTY, AND4 ! SS$_BADJPICTX FOR JPI$_RIGHTSLIST ITEM CODE.( ! (NB: S VARIANT IS NOW OBSOLETE.) ! 0 ! 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. ! 3 ! X-8 SAS001 SCOTT A. SHURTS 02-OCT-1986; ! ADDED SS$_SRVMMAT TO INDICATE CRYPTOGRAPHIC SERVICE ! MISMATCH. ! . ! X-7 KL 0001 KEITH LOEPERE 12-JUN-1986= ! ADDED SS$_REMOVED TO INDICATE DIR ENTRY ONLY REMOVED. ! ) ! X-6 CWH5006 CW HOBBS 30-MAY-19863 ! ADD SS$_REMOTE_PROC ERROR MESSAGE FOR CWPS. ! * ! X-5H2 SJF STU FARNHAM 29-MAY-19868 ! ADD SS$_CPUNOTACT TO INDICATE THAT THE REQUESTED+ ! CPU IN AN SMP SYSTEM IS NOT ACTIVE. ! 1 ! X-5 PRD0184 PAUL R. DESTEFANO 07-NOV-19858 ! 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. ! 7 ! X-4 LMP0382 L. MARK PILANT, 6-NOV-1985 10:10D ! ADD SS$_OBJLOCKHELD TO INDICATE THAT A PROCESS ALREADY HOLDS ! THE OBJECT 'S ACL LOCK. ! 2 ! X-3 JMK0002 JOSEPH M. KRAETSCH 17-SEP-1985E ! ADD SS$_RUCONFLICT "file has active RUs by another facility".- ! REMOVE NOTMPJNL, NOPRMJNL (OBSOLETE). ! 3 ! V04-001 ROW0466 RALPH O. WEBER 11-JUN-1985? ! REPLACE SS$_SHACPYINP (A NO LONGER USED SHADOWING ERRORE ! STATUS) WITH SS$_DEVNOTSHR, "device not currently shareable".D ! SS$_DEVNOTSHR IS AN ERROR STATUE FOR USE WITH DEVICES MARKEDC ! FOR EXCLUSIVE ACCESS BY SOMEONE EL SE BY AN MSCP CONTROLLER. ! ! --- ! + ! SYSTEM STATUS CODES !  ! LAYOUT OF MESSAGE SPACE: ! 2 ! 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 CODES4 ! 384-447 C00-DFF 64 INFORMATIONAL CODES5 ! 448-511 E00-FFF 64 NONFATAL ERROR CODE SG ! 512-1023 1000-1FFF 512 SHARED MESSAGES (NOT HERE, SEE SHRMSG)B ! 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF)4 ! 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS6 ! 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORSC ! 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONSJ ! 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF)O ! 1664-1695 3400-341F 32 FATAL ERRORS (CONTINUED FROM 27FF)5 ! 1696-4031 3 420-7DFF 2334 (UNUSED)8 ! 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS !  ! - ! & ! EXPLICITLY DEFINED SUCESS CODES ! @ ! DO NOT MIX THESE CODES WITH INCREMENTAL ASSIGNMENTS BELOW ! 0 DECLARE LONG CONSTANT SYSTEM$_FACILITY = 0* DECLARE LONG CONSTANT SS$_NORMAL = 1 ! M ! NOTE THAT CONTINUE,WASCLR,WASSET,REMEMBER DO NOT HAVE ANY MESSAGE TEXTJ ! SINCE THESE CODES USE THE SAME MESSAGE NUMBER AS NORMAL AND ACCVIO,D ! T HEY CAN NEVER BE MADE TO HAVE MESSAGES ASSOCIATED WITH THEM. ! , DECLARE LONG CONSTANT SS$_CONTINUE = 1* DECLARE LONG CONSTANT SS$_WASCLR = 1* DECLARE LONG CONSTANT SS$_WASSET = 9, DECLARE LONG CONSTANT SS$_REMEMBER = 1 ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! ) ! 0-127 0-3FF 128 FATAL ERRORSB ! 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF) ! + DECLARE LONG CONSTANT SS$_ACCVIO = 12- DECLARE LONG CON STANT SS$_BADPARAM = 20, DECLARE LONG CONSTANT SS$_EXQUOTA = 28+ DECLARE LONG CONSTANT SS$_NOPRIV = 365 ! MAKE THE ABOVE ERRORS FALL INTO SHORT LITERALS* DECLARE LONG CONSTANT SS$_ABORT = 44. DECLARE LONG CONSTANT SS$_BADATTRIB = 52. DECLARE LONG CONSTANT SS$_BADESCAPE = 60. DECLARE LONG CONSTANT SS$_BADIMGHDR = 68. DECLARE LONG CONSTANT SS$_CHANINTLK = 76, DECLARE LONG CONSTANT SS$_CTRLERR = 84. DECLARE LONG CONSTANT SS$_DATACHECK = 920 DECLARE LONG CONSTANT SS$_DEVFOREIGN = 100. DECLARE LONG CONSTANT SS$_DEVMOUNT = 108/ DECLARE LONG CONSTANT SS$_DEVNOTMBX = 1161 DECLARE LONG CONSTANT SS$_DEVNOTMOUNT = 1240 DECLARE LONG CONSTANT SS$_DEVOFFLINE = 132, DECLARE LONG CONSTANT SS$_DRVERR = 140- DECLARE LONG CONSTANT SS$_DUPLNAM = 148/ DECLARE LONG CONSTANT SS$_FILACCERR = 156/ DECLARE LONG CONSTANT SS$_FILALRACC = 164/ DECLARE LONG CONSTANT SS$_FILNOTACC = 172/ DECLARE LONG CONSTANT SS$_FILNOTEXP = 180, DECLARE LONG CONSTANT SS$_FORMAT = 188- DECLARE LONG CONSTANT SS$_GPTFULL = 196- DECLARE LONG CONSTANT SS$_GSDFULL = 204/ DECLARE LONG CONSTANT SS$_LCKPAGFUL = 212/ DECLARE LONG CONSTANT SS$_ILLBLKNUM = 2201 DECLARE LONG CONSTANT SS$_ILLCNTRFUNC = 228, DECLARE LONG CONSTANT SS$_ILLEFC = 236/ DECLARE LONG CONSTANT SS$_ILLIOFUNC = 244/ DECLARE LONG CONSTANT SS$_ILLPAGCNT = 252, DECLARE LONG CONSTANT SS $_ILLSER = 2601 DECLARE LONG CONSTANT SS$_INCVOLLABEL = 268- DECLARE LONG CONSTANT SS$_INSFARG = 276- DECLARE LONG CONSTANT SS$_INSFWSL = 284- DECLARE LONG CONSTANT SS$_INSFMEM = 292. DECLARE LONG CONSTANT SS$_INSFRAME = 300, DECLARE LONG CONSTANT SS$_IVADDR = 308, DECLARE LONG CONSTANT SS$_IVCHAN = 316. DECLARE LONG CONSTANT SS$_IVDEVNAM = 324. DECLARE LONG CONSTANT SS$_IVGSDNAM = 332. DECLARE LONG CONSTANT SS$_IVLOGNAM = 340. DECL ARE LONG CONSTANT SS$_IVLOGTAB = 348. DECLARE LONG CONSTANT SS$_IVQUOTAL = 356. DECLARE LONG CONSTANT SS$_IVSECFLG = 364, DECLARE LONG CONSTANT SS$_IVSSRQ = 372. DECLARE LONG CONSTANT SS$_IVSTSFLG = 380, DECLARE LONG CONSTANT SS$_IVTIME = 388, DECLARE LONG CONSTANT SS$_LENVIO = 396/ DECLARE LONG CONSTANT SS$_LKWSETFUL = 404. DECLARE LONG CONSTANT SS$_MBTOOSML = 412, DECLARE LONG CONSTANT SS$_MEDOFL = 420, DECLARE LONG CONSTANT SS$_NODATA = 4 28. DECLARE LONG CONSTANT SS$_NOIOCHAN = 436. DECLARE LONG CONSTANT SS$_NOLOGNAM = 444. DECLARE LONG CONSTANT SS$_NONEXDRV = 4520 DECLARE LONG CONSTANT SS$_NOTFILEDEV = 4600 DECLARE LONG CONSTANT SS$_NOTINTBLSZ = 4680 DECLARE LONG CONSTANT SS$_NOTLABELMT = 476. DECLARE LONG CONSTANT SS$_NOTSQDEV = 484/ DECLARE LONG CONSTANT SS$_PAGOWNVIO = 492, DECLARE LONG CONSTANT SS$_PARITY = 5000 DECLARE LONG CONSTANT SS$_PARTESCAPE = 508, DECLARE LONG CONSTANT SS$_PFMBSY = 516- DECLARE LONG CONSTANT SS$_PSTFULL = 524/ DECLARE LONG CONSTANT SS$_RESULTOVF = 532/ DECLARE LONG CONSTANT SS$_SECTBLFUL = 5401 DECLARE LONG CONSTANT SS$_TAPEPOSLOST = 548- DECLARE LONG CONSTANT SS$_TIMEOUT = 556- DECLARE LONG CONSTANT SS$_UNASEFC = 564, DECLARE LONG CONSTANT SS$_UNSAFE = 572- DECLARE LONG CONSTANT SS$_VASFULL = 580. DECLARE LONG CONSTANT SS$_VECINUSE = 588, DECLARE LONG CONSTANT SS$_VOLI NV = 596- DECLARE LONG CONSTANT SS$_WRITLCK = 604. DECLARE LONG CONSTANT SS$_NOTAPEOP = 612/ DECLARE LONG CONSTANT SS$_IVCHNLSEC = 620+ DECLARE LONG CONSTANT SS$_NOMBX = 628- DECLARE LONG CONSTANT SS$_NOLINKS = 636/ DECLARE LONG CONSTANT SS$_NOSOLICIT = 6440 DECLARE LONG CONSTANT SS$_NOSUCHNODE = 652, DECLARE LONG CONSTANT SS$_REJECT = 6601 DECLARE LONG CONSTANT SS$_TOOMUCHDATA = 668. DECLARE LONG CONSTANT SS$_BUGCHECK = 6760 DECL ARE LONG CONSTANT SS$_FILNOTCNTG = 684. DECLARE LONG CONSTANT SS$_BADSTACK = 692, DECLARE LONG CONSTANT SS$_MCHECK = 700/ DECLARE LONG CONSTANT SS$_DEVACTIVE = 708, DECLARE LONG CONSTANT SS$_HANGUP = 716/ DECLARE LONG CONSTANT SS$_OPINCOMPL = 724. DECLARE LONG CONSTANT SS$_ILLSEQOP = 7320 DECLARE LONG CONSTANT SS$_IVSECIDCTL = 740/ DECLARE LONG CONSTANT SS$_NOTNETDEV = 748/ DECLARE LONG CONSTANT SS$_IVPROTECT = 756. DECLARE LONG CONSTANT SS$_ACPVAFUL = 764/ DECLARE LONG CONSTANT SS$_MTLBLLONG = 772/ DECLARE LONG CONSTANT SS$_BUFBYTALI = 780+ DECLARE LONG CONSTANT SS$_NOAQB = 788. DECLARE LONG CONSTANT SS$_WRONGACP = 7961 DECLARE LONG CONSTANT SS$_BUFNOTALIGN = 804/ DECLARE LONG CONSTANT SS$_DEVCMDERR = 812/ DECLARE LONG CONSTANT SS$_DEVREQERR = 820/ DECLARE LONG CONSTANT SS$_INSFBUFDP = 8280 DECLARE LONG CONSTANT SS$_INSFMAPREG = 836. DECLARE LONG CONSTANT SS$_IVBUFLEN = 844, DECLARE LONG CONSTANT SS$_IVMODE = 8520 DECLARE LONG CONSTANT SS$_MCNOTVALID = 860/ DECLARE LONG CONSTANT SS$_POWERFAIL = 8681 DECLARE LONG CONSTANT SS$_SHMGSNOTMAP = 8761 DECLARE LONG CONSTANT SS$_TOOMANYLNAM = 8840 DECLARE LONG CONSTANT SS$_SHMNOTCNCT = 8920 DECLARE LONG CONSTANT SS$_NOTCREATOR = 900/ DECLARE LONG CONSTANT SS$_INTERLOCK = 9081 DECLARE LONG CONSTANT SS$_BADQUEUEHDR = 916, DECLARE LONG CONSTANT SS$_NOSLOT = 924/ DECLARE LONG CONSTANT SS$_SUSPENDED = 9321 DECLARE LONG CONSTANT SS$_EXPORTQUOTA = 9400 DECLARE LONG CONSTANT SS$_NOSHMBLOCK = 948. DECLARE LONG CONSTANT SS$_BADQFILE = 956- DECLARE LONG CONSTANT SS$_NOQFILE = 964. DECLARE LONG CONSTANT SS$_QFACTIVE = 972. DECLARE LONG CONSTANT SS$_QFNOTACT = 9801 DECLARE LONG CONSTANT SS$_DUPDSKQUOTA = 9881 DECLARE LONG CONSTANT SS$_NODISKQUOTA = 9962 DECLARE LONG CONSTANT SS$_EXDISKQUOTA = 10041 DECLARE LONG CONSTANT SS$_IDMISMATCH = 1012, DECLARE LONG CONSTANT SS$_NOWRT = 1020 ! **************@ ! NOTE: THE ABOVE SET OF SEVERE ERROR MESSAGES IS FULL????: ! ANY ADDITIONAL SEVERE ERROR MESSAGES MUST BE ADDED* ! BELOW, IN THE RANGE HEX 2000-2800. ! **************- DECLARE LONG CONSTANT SS$_BADISD = 8196- DECLARE LONG CONSTANT SS$_RELINK = 82041 DECLARE LONG CONSTANT SS$_NOTINSTALL = 82121 DECLARE LONG CONSTANT SS$_SHARTOOBIG = 822 0- DECLARE LONG CONSTANT SS$_NOP1VA = 8228. DECLARE LONG CONSTANT SS$_MULTRMS = 8236. DECLARE LONG CONSTANT SS$_VECFULL = 8244- DECLARE LONG CONSTANT SS$_IVLVEC = 8252/ DECLARE LONG CONSTANT SS$_INSFSPTS = 82601 DECLARE LONG CONSTANT SS$_DISCONNECT = 82682 DECLARE LONG CONSTANT SS$_PRIVINSTALL = 82762 DECLARE LONG CONSTANT SS$_PROTINSTALL = 8284- DECLARE LONG CONSTANT SS$_BADVEC = 8292. DECLARE LONG CONSTANT SS$_REMRSRC = 8300/ DE CLARE LONG CONSTANT SS$_PROTOCOL = 83081 DECLARE LONG CONSTANT SS$_THIRDPARTY = 83161 DECLARE LONG CONSTANT SS$_NOSUCHUSER = 8324+ DECLARE LONG CONSTANT SS$_SHUT = 83322 DECLARE LONG CONSTANT SS$_UNREACHABLE = 8340/ DECLARE LONG CONSTANT SS$_INVLOGIN = 83480 DECLARE LONG CONSTANT SS$_NOSUCHOBJ = 8356/ DECLARE LONG CONSTANT SS$_EXCPUTIM = 8364/ DECLARE LONG CONSTANT SS$_OPRABORT = 83722 DECLARE LONG CONSTANT SS$_SHRIDMISMAT = 8380/ DECL ARE LONG CONSTANT SS$_COMMHARD = 8388- DECLARE LONG CONSTANT SS$_IVCHAR = 8396/ DECLARE LONG CONSTANT SS$_DEVINACT = 84041 DECLARE LONG CONSTANT SS$_CONNECFAIL = 84120 DECLARE LONG CONSTANT SS$_LINKABORT = 84201 DECLARE LONG CONSTANT SS$_LINKDISCON = 8428/ DECLARE LONG CONSTANT SS$_LINKEXIT = 8436/ DECLARE LONG CONSTANT SS$_PATHLOST = 8444. DECLARE LONG CONSTANT SS$_CLEARED = 8452, DECLARE LONG CONSTANT SS$_RESET = 84600 DECLARE LONG C ONSTANT SS$_UNSOLICIT = 84682 DECLARE LONG CONSTANT SS$_TOOMANYREDS = 8476/ DECLARE LONG CONSTANT SS$_IVLOCKID = 8484/ DECLARE LONG CONSTANT SS$_SUBLOCKS = 84922 DECLARE LONG CONSTANT SS$_PARNOTGRANT = 85001 DECLARE LONG CONSTANT SS$_CVTUNGRANT = 85082 DECLARE LONG CONSTANT SS$_FORCEDERROR = 8516. DECLARE LONG CONSTANT SS$_ILLSELF = 8524/ DECLARE LONG CONSTANT SS$_ILLCDTST = 85321 DECLARE LONG CONSTANT SS$_NOLISTENER = 85402 DECLARE LONG CONSTANT SS$_EXGBLPAGFIL = 8548- DECLARE LONG CONSTANT SS$_BADRCT = 85562 DECLARE LONG CONSTANT SS$_DIRNOTEMPTY = 85641 DECLARE LONG CONSTANT SS$_FORCEDEXIT = 85721 DECLARE LONG CONSTANT SS$_NOTPRINTED = 8580/ DECLARE LONG CONSTANT SS$_JBCERROR = 85880 DECLARE LONG CONSTANT SS$_NOLICENSE = 8596/ DECLARE LONG CONSTANT SS$_VCBROKEN = 8604/ DECLARE LONG CONSTANT SS$_VCCLOSED = 8612. DECLARE LONG CONSTANT SS$_INSFCDT = 86201 DECLARE LONG C ONSTANT SS$_DEVNOTDISM = 8628/ DECLARE LONG CONSTANT SS$_NOSHRIMG = 8636. DECLARE LONG CONSTANT SS$_DUPUNIT = 86440 DECLARE LONG CONSTANT SS$_BADACLCTX = 86522 DECLARE LONG CONSTANT SS$_SERIOUSEXCP = 86602 DECLARE LONG CONSTANT SS$_TEMPLATEDEV = 8668, DECLARE LONG CONSTANT SS$_IVACL = 8676/ DECLARE LONG CONSTANT SS$_NOSUCHID = 86840 DECLARE LONG CONSTANT SS$_NOLCLMEDA = 86920 DECLARE LONG CONSTANT SS$_NOREGAVIL = 87000 DECLARE LONG CONSTAN T SS$_NOREGSUIT = 87080 DECLARE LONG CONSTANT SS$_NOSUCHPGM = 87160 DECLARE LONG CONSTANT SS$_PGMLDFAIL = 87240 DECLARE LONG CONSTANT SS$_PGMSTDALN = 8732. DECLARE LONG CONSTANT SS$_IVIDENT = 8740/ DECLARE LONG CONSTANT SS$_DUPIDENT = 87480 DECLARE LONG CONSTANT SS$_INCSEGTRA = 87560 DECLARE LONG CONSTANT SS$_NODELEAVE = 87640 DECLARE LONG CONSTANT SS$_KERNELINV = 87721 DECLARE LONG CONSTANT SS$_EXLNMQUOTA = 87801 DECLARE LONG CONSTANT SS$_ PARENT_DEL = 87880 DECLARE LONG CONSTANT SS$_PARNOTSYS = 87963 DECLARE LONG CONSTANT SS$_INSSWAPSPACE = 8804. DECLARE LONG CONSTANT SS$_VOLOERR = 8812/ DECLARE LONG CONSTANT SS$_DATALATE = 88200 DECLARE LONG CONSTANT SS$_OVRMAXARG = 88280 DECLARE LONG CONSTANT SS$_SHACHASTA = 88361 DECLARE LONG CONSTANT SS$_TERMNETDEV = 8844/ DECLARE LONG CONSTANT SS$_NOLOGTAB = 88520 DECLARE LONG CONSTANT SS$_WRONGNAME = 8860/ DECLARE LONG CONSTANT SS$_ NOVOLACC = 8868/ DECLARE LONG CONSTANT SS$_NOFILACC = 88761 DECLARE LONG CONSTANT SS$_INVEXHLIST = 88843 DECLARE LONG CONSTANT SS$_NOACLSUPPORT = 88921 DECLARE LONG CONSTANT SS$_INVSECLASS = 89000 DECLARE LONG CONSTANT SS$_INCSHAMEM = 89080 DECLARE LONG CONSTANT SS$_DEVNOTSHR = 89161 DECLARE LONG CONSTANT SS$_RUCONFLICT = 8924/ DECLARE LONG CONSTANT SS$_DATALOST = 89322 DECLARE LONG CONSTANT SS$_REMOTE_PROC = 89400 DECLARE LONG CONSTAN T SS$_CPUNOTACT = 8948. DECLARE LONG CONSTANT SS$_SRVMMAT = 89560 DECLARE LONG CONSTANT SS$_EXLICENSE = 89641 DECLARE LONG CONSTANT SS$_INVLICENSE = 89724 DECLARE LONG CONSTANT SS$_LICENSE_LEVEL = 89800 DECLARE LONG CONSTANT SS$_INV_HW_ID = 89881 DECLARE LONG CONSTANT SS$_BADCONTEXT = 89961 DECLARE LONG CONSTANT SS$_TOOMUCHCTX = 90040 DECLARE LONG CONSTANT SS$_VA_IN_USE = 9012/ DECLARE LONG CONSTANT SS$_NODELETE = 90200 DECLARE LONG CONST ANT SS$_NOSUCHCPU = 9028. DECLARE LONG CONSTANT SS$_IMGVEXC = 90360 DECLARE LONG CONSTANT SS$_NOSAVPEXC = 90440 DECLARE LONG CONSTANT SS$_NOSUCHTID = 9052/ DECLARE LONG CONSTANT SS$_NOSUCHRM = 9060/ DECLARE LONG CONSTANT SS$_NOCURTID = 90681 DECLARE LONG CONSTANT SS$_WRONGSTATE = 9076+ DECLARE LONG CONSTANT SS$_VETO = 90840 DECLARE LONG CONSTANT SS$_PWDSYNTAX = 90920 DECLARE LONG CONSTANT SS$_PWDNOTDIF = 91000 DECLARE LONG CONSTANT SS$_IN VPWDLEN = 91080 DECLARE LONG CONSTANT SS$_SYSVERDIF = 91160 DECLARE LONG CONSTANT SS$_HWM_STALL = 91240 DECLARE LONG CONSTANT SS$_NOSUSPEND = 91321 DECLARE LONG CONSTANT SS$_NOSUCHPART = 9140/ DECLARE LONG CONSTANT SS$_RMALRDCL = 91480 DECLARE LONG CONSTANT SS$_ALRCURTID = 9156- DECLARE LONG CONSTANT SS$_INVLOG = 91640 DECLARE LONG CONSTANT SS$_BADLOGVER = 9172/ DECLARE LONG CONSTANT SS$_OPINPROG = 91802 DECLARE LONG CONSTANT SS$_WRONGACM ODE = 91880 DECLARE LONG CONSTANT SS$_SUBTRACED = 91960 DECLARE LONG CONSTANT SS$_ARCHIVING = 9204/ DECLARE LONG CONSTANT SS$_ARCHIVED = 92122 DECLARE LONG CONSTANT SS$_SITEPWDFAIL = 92200 DECLARE LONG CONSTANT SS$_NOSUCHCPB = 9228- DECLARE LONG CONSTANT SS$_CPUCAP = 9236- DECLARE LONG CONSTANT SS$_LOADER = 92440 DECLARE LONG CONSTANT SS$_HSTBUFACC = 92520 DECLARE LONG CONSTANT SS$_INCONOLCK = 9260/ DECLARE LONG CONSTANT SS$_INVEVENT = 926 80 DECLARE LONG CONSTANT SS$_NOSUCHFAC = 92761 DECLARE LONG CONSTANT SS$_NOCALLPRIV = 9284/ DECLARE LONG CONSTANT SS$_INSFLPGS = 9292/ DECLARE LONG CONSTANT SS$_INSFRPGS = 93000 DECLARE LONG CONSTANT SS$_BADREASON = 93080 DECLARE LONG CONSTANT SS$_NOSUCHBID = 93160 DECLARE LONG CONSTANT SS$_NOTORIGIN = 9324, DECLARE LONG CONSTANT SS$_NOLOG = 93321 DECLARE LONG CONSTANT SS$_TPDISABLED = 93402 DECLARE LONG CONSTANT SS$_BRANCHENDED = 93484 DECLARE LONG CONSTANT SS$_BRANCHSTARTED = 93563 DECLARE LONG CONSTANT SS$_NOSUCHREPORT = 9364. DECLARE LONG CONSTANT SS$_BADTIME = 93721 DECLARE LONG CONSTANT SS$_PARTJOINED = 93800 DECLARE LONG CONSTANT SS$_NOPRESUME = 93884 DECLARE LONG CONSTANT SS$_RECOVERCANCEL = 93963 DECLARE LONG CONSTANT SS$_CURTIDCHANGE = 9404/ DECLARE LONG CONSTANT SS$_NOREADER = 9412/ DECLARE LONG CONSTANT SS$_NOWRITER = 9420/ DECLARE LONG CONSTANT SS$_DEVNOTWS = 9428. DECLARE LONG CONSTANT SS$_NOCLASS = 94362 DECLARE LONG CONSTANT SS$_CONTEXTSKEW = 94441 DECLARE LONG CONSTANT SS$_BADFORGEDB = 9452/ DECLARE LONG CONSTANT SS$_NODOMAIN = 94600 DECLARE LONG CONSTANT SS$_OVRMAXAUD = 9468/ DECLARE LONG CONSTANT SS$_BADCHAIN = 94760 DECLARE LONG CONSTANT SS$_BADBUFLEN = 94840 DECLARE LONG CONSTANT SS$_BADITMCOD = 94920 DECLARE LONG CONSTANT SS$_BADBUFADR = 95000 DECLARE LONG CONSTANT SS$_BADRETLEN = 95081 DECLARE LONG CONSTANT SS$_SSINOTHELD = 95161 DECLARE LONG CONSTANT SS$_SSAMISSING = 95241 DECLARE LONG CONSTANT SS$_SSANOTAUTH = 9532/ DECLARE LONG CONSTANT SS$_BADOWNER = 95406 DECLARE LONG CONSTANT SS$_NAMESERVCOMMERR = 9548/ DECLARE LONG CONSTANT SS$_IVNODNAM = 95564 DECLARE LONG CONSTANT SS$_CONFIG_SYNTAX = 9564. DECLARE LONG CONSTANT SS$_SHELVED = 95722 DECLARE LONG CONSTANT SS$_DRVNOTVALID = 95807 DECLARE LONG CONSTANT SS$_SL ICING_DISABLED = 95882 DECLARE LONG CONSTANT SS$_NOCALLTRANS = 95962 DECLARE LONG CONSTANT SS$_TRANSCALLER = 96040 DECLARE LONG CONSTANT SS$_ILLPRIPOL = 96120 DECLARE LONG CONSTANT SS$_ILLPOLICY = 96200 DECLARE LONG CONSTANT SS$_INSFRSPID = 96282 DECLARE LONG CONSTANT SS$_INSFCREDITL = 96362 DECLARE LONG CONSTANT SS$_INSFCREDITH = 9644. DECLARE LONG CONSTANT SS$_INSFMAP = 96525 DECLARE LONG CONSTANT SS$_SIG_INVARGTYPE = 96604 DECLARE LONG C ONSTANT SS$_SIG_INVFLTARG = 96685 DECLARE LONG CONSTANT SS$_SIG_INVARGLIST = 96766 DECLARE LONG CONSTANT SS$_SIG_INVFUNCTYPE = 96846 DECLARE LONG CONSTANT SS$_SIG_ARGMISMATCH = 96921 DECLARE LONG CONSTANT SS$_NOTRANQUIL = 97006 DECLARE LONG CONSTANT SS$_NOCALLTRANS_SUP = 97082 DECLARE LONG CONSTANT SS$_DEVLISTFULL = 97161 DECLARE LONG CONSTANT SS$_INSFP1POOL = 9724/ DECLARE LONG CONSTANT SS$_SIGNAL64 = 97322 DECLARE LONG CONSTANT SS$_ZEROALLOCL S = 97401 DECLARE LONG CONSTANT SS$_QUEUE_FULL = 97483 DECLARE LONG CONSTANT SS$_DEVICE_RESET = 97561 DECLARE LONG CONSTANT SS$_ACA_ACTIVE = 97646 DECLARE LONG CONSTANT SS$_BUS_PHASE_ERROR = 97724 DECLARE LONG CONSTANT SS$_NOMULTITHREAD = 97804 DECLARE LONG CONSTANT SS$_MTHREADACTIVE = 97882 DECLARE LONG CONSTANT SS$_MAXKTHREADS = 97963 DECLARE LONG CONSTANT SS$_NOSUCHTHREAD = 98042 DECLARE LONG CONSTANT SS$_NOTHREADMAN = 98123 DECLARE LO NG CONSTANT SS$_NOSUCHUPCALL = 98200 DECLARE LONG CONSTANT SS$_BADFANDLE = 98281 DECLARE LONG CONSTANT SS$_FANDLEBUSY = 98360 DECLARE LONG CONSTANT SS$_UNALIGNED = 98440 DECLARE LONG CONSTANT SS$_BADIOSADR = 98520 DECLARE LONG CONSTANT SS$_ILLBUFOBJ = 98602 DECLARE LONG CONSTANT SS$_ILLMODIFIER = 98683 DECLARE LONG CONSTANT SS$_NOCCBBUFFOBJ = 9876. DECLARE LONG CONSTANT SS$_NORDACC = 9884/ DECLARE LONG CONSTANT SS$_NOWRTACC = 98921 DECLAR E LONG CONSTANT SS$_NOTNOCNVRT = 99002 DECLARE LONG CONSTANT SS$_UNSUPVOLSET = 99086 DECLARE LONG CONSTANT SS$_ARG_GTR_32_BITS = 99163 DECLARE LONG CONSTANT SS$_NOT64DEVFUNC = 9924. DECLARE LONG CONSTANT SS$_CHANVIO = 99326 DECLARE LONG CONSTANT SS$_GBLSEC_MISMATCH = 99400 DECLARE LONG CONSTANT SS$_ILLRELPAG = 9948/ DECLARE LONG CONSTANT SS$_IVACMODE = 9956/ DECLARE LONG CONSTANT SS$_IVREGFLG = 9964. DECLARE LONG CONSTANT SS$_IVREGID = 99720 DECLARE LONG CONSTANT SS$_IVREGPROT = 9980. DECLARE LONG CONSTANT SS$_IVVAFLG = 99885 DECLARE LONG CONSTANT SS$_LEN_NOTBLKMULT = 99966 DECLARE LONG CONSTANT SS$_LEN_NOTPAGMULT = 100046 DECLARE LONG CONSTANT SS$_NOT_PROCESS_VA = 100126 DECLARE LONG CONSTANT SS$_OFF_NOTBLKALGN = 100206 DECLARE LONG CONSTANT SS$_OFF_NOTPAGALGN = 100286 DECLARE LONG CONSTANT SS$_OFFSET_TOO_BIG = 100361 DECLARE LONG CONSTANT SS$_REGOWNVIO = 10044/ DECLARE LONG CON STANT SS$_PROTVIO = 100525 DECLARE LONG CONSTANT SS$_TOO_MANY_ARGS = 100605 DECLARE LONG CONSTANT SS$_VA_NOTPAGALGN = 100681 DECLARE LONG CONSTANT SS$_NOEXTAUTH = 100760 DECLARE LONG CONSTANT SS$_AUTHFAIL = 10084/ DECLARE LONG CONSTANT SS$_INVUSER = 100922 DECLARE LONG CONSTANT SS$_ERRMAPAUTH = 10100/ DECLARE LONG CONSTANT SS$_NORAD50 = 101080 DECLARE LONG CONSTANT SS$_BADMEDIA = 101163 DECLARE LONG CONSTANT SS$_UNRECOVRDER = 101240 DE CLARE LONG CONSTANT SS$_IVFORMAT = 101322 DECLARE LONG CONSTANT SS$_IVUNITFLAG = 10140/ DECLARE LONG CONSTANT SS$_IVPARAM = 101483 DECLARE LONG CONSTANT SS$_NOSUCHENTRY = 101563 DECLARE LONG CONSTANT SS$_ALLOCFAILED = 101643 DECLARE LONG CONSTANT SS$_SHMEM_INCON = 101720 DECLARE LONG CONSTANT SS$_IVLOCKOP = 101801 DECLARE LONG CONSTANT SS$_IVLOCKTBL = 101881 DECLARE LONG CONSTANT SS$_LOCKINUSE = 101964 DECLARE LONG CONSTANT SS$_LOCK_TIMEOUT = 102041 DECLARE LONG CONSTANT SS$_BADLCKTBL = 10212/ DECLARE LONG CONSTANT SS$_NOBREAK = 102202 DECLARE LONG CONSTANT SS$_IVPROTOCOL = 10228. DECLARE LONG CONSTANT SS$_NOWAIT = 10236 ! B ! ***** NOTE: NO ROOM FOR MORE MESSAGES IN THIS SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! > ! 128-191 400-5FF 64 HARDWARE DEFINED FATAL ERRORS ! - DECLARE LONG CONSTANT SS$_PLHLDR = 1028- DECLARE LONG CONST ANT SS$_ASTFLT = 1036, DECLARE LONG CONSTANT SS$_BREAK = 1044/ DECLARE LONG CONSTANT SS$_CMODSUPR = 1052/ DECLARE LONG CONSTANT SS$_CMODUSER = 1060- DECLARE LONG CONSTANT SS$_COMPAT = 1068- DECLARE LONG CONSTANT SS$_OPCCUS = 1076- DECLARE LONG CONSTANT SS$_OPCDEC = 1084/ DECLARE LONG CONSTANT SS$_PAGRDERR = 1092. DECLARE LONG CONSTANT SS$_RADRMOD = 1100. DECLARE LONG CONSTANT SS$_ROPRAND = 1108- DECLARE LONG CONSTANT SS$_SSFAIL = 1116 + DECLARE LONG CONSTANT SS$_TBIT = 1124, DECLARE LONG CONSTANT SS$_DEBUG = 1132E ! THE FOLLOWING CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED- DECLARE LONG CONSTANT SS$_ARTRES = 1140- DECLARE LONG CONSTANT SS$_INTOVF = 1148- DECLARE LONG CONSTANT SS$_INTDIV = 1156- DECLARE LONG CONSTANT SS$_FLTOVF = 1164- DECLARE LONG CONSTANT SS$_FLTDIV = 1172- DECLARE LONG CONSTANT SS$_FLTUND = 1180- DECLARE LONG CONSTANT SS$_DECOVF = 1188- DECLARE LONG CONSTANT SS$_SUBRNG = 1196/ DECLARE LONG CONSTANT SS$_FLTOVF_F = 1204/ DECLARE LONG CONSTANT SS$_FLTDIV_F = 1212/ DECLARE LONG CONSTANT SS$_FLTUND_F = 1220A ! THE ABOVE CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED. DECLARE LONG CONSTANT SS$_INHCHMK = 1228. DECLARE LONG CONSTANT SS$_INHCHME = 1236- DECLARE LONG CONSTANT SS$_VECDIS = 1244- DECLARE LONG CONSTANT SS$_VARITH = 1252/ DECLARE LONG CONSTANT SS$_ILLVECOP = 1260/ DECLARE LONG CONSTANT SS$_VECALIGN = 1268- DECLARE LONG CONSTANT SS$_IMGDMP = 1276. DECLARE LONG CONSTANT SS$_HPARITH = 1284, DECLARE LONG CONSTANT SS$_ALIGN = 12926 DECLARE LONG CONSTANT SS$_UNALIGN_SP_LOAD = 1300. DECLARE LONG CONSTANT SS$_GENTRAP = 1308- DECLARE LONG CONSTANT SS$_FLTINV = 1316- DECLARE LONG CONSTANT SS$_FLTINE = 1324- DECLARE LONG CONSTANT SS$_DECDIV = 1332- DECLARE LONG CONSTANT SS$_DECINV = 13400 DECLARE LONG C ONSTANT SS$_ASSERTERR = 13480 DECLARE LONG CONSTANT SS$_NULPTRERR = 1356- DECLARE LONG CONSTANT SS$_STKOVF = 13640 DECLARE LONG CONSTANT SS$_STRLENERR = 13720 DECLARE LONG CONSTANT SS$_SUBSTRERR = 1380/ DECLARE LONG CONSTANT SS$_RANGEERR = 1388. DECLARE LONG CONSTANT SS$_SUBRNG1 = 1396. DECLARE LONG CONSTANT SS$_SUBRNG2 = 1404. DECLARE LONG CONSTANT SS$_SUBRNG3 = 1412. DECLARE LONG CONSTANT SS$_SUBRNG4 = 1420. DECLARE LONG CONSTANT SS$_SUBR NG5 = 1428. DECLARE LONG CONSTANT SS$_SUBRNG6 = 1436. DECLARE LONG CONSTANT SS$_SUBRNG7 = 14441 DECLARE LONG CONSTANT SS$_PAGRDERRXM = 14525 DECLARE LONG CONSTANT SS$_ILLEGAL_SHADOW = 1460/ DECLARE LONG CONSTANT SS$_FLTINV_F = 1468/ DECLARE LONG CONSTANT SS$_FLTINE_F = 1476/ DECLARE LONG CONSTANT SS$_INTOVF_F = 1484/ DECLARE LONG CONSTANT SS$_NATFAULT = 14922 DECLARE LONG CONSTANT SS$_FLTDENORMAL = 15000 DECLARE LONG CONSTANT SS$_BREAK_ SYS = 15081 DECLARE LONG CONSTANT SS$_BREAK_ARCH = 1516 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTA ! ***** NOTE: ROOM FOR 2 MORE MESSAGES IN THIS SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! . ! 192-255 600-7FF 64 SUCCESS CODES ! 0 DECLARE LONG CONSTANT SS$_BUFFEROVF = 1537/ DECLARE LONG CONSTANT SS$_CONTROLO = 1545/ DECLARE LONG CONSTANT SS$_CONTROLY = 1553. DECLARE LO NG CONSTANT SS$_CREATED = 15610 DECLARE LONG CONSTANT SS$_MSGNOTFND = 1569- DECLARE LONG CONSTANT SS$_NOTRAN = 15770 DECLARE LONG CONSTANT SS$_SUPERSEDE = 1585- DECLARE LONG CONSTANT SS$_WASECC = 15932 DECLARE LONG CONSTANT SS$_DEVALRALLOC = 1601- DECLARE LONG CONSTANT SS$_REMOTE = 1609/ DECLARE LONG CONSTANT SS$_CONTROLC = 16172 DECLARE LONG CONSTANT SS$_NOTMODIFIED = 16250 DECLARE LONG CONSTANT SS$_RDDELDATA = 16332 DECLARE LONG CONSTAN T SS$_OVRDSKQUOTA = 16411 DECLARE LONG CONSTANT SS$_OBSOLETE_1 = 16491 DECLARE LONG CONSTANT SS$_FILEPURGED = 16571 DECLARE LONG CONSTANT SS$_NOTALLPRIV = 1665, DECLARE LONG CONSTANT SS$_SYNCH = 16730 DECLARE LONG CONSTANT SS$_CONCEALED = 1681/ DECLARE LONG CONSTANT SS$_INCOMPAT = 16890 DECLARE LONG CONSTANT SS$_DBGOPCREQ = 16972 DECLARE LONG CONSTANT SS$_ALRDYCLOSED = 17051 DECLARE LONG CONSTANT SS$_LNMCREATED = 17131 DECLARE LONG CONST ANT SS$_ACEIDMATCH = 1721/ DECLARE LONG CONSTANT SS$_DBGEVENT = 1729. DECLARE LONG CONSTANT SS$_REMOVED = 1737- DECLARE LONG CONSTANT SS$_QUEUED = 17452 DECLARE LONG CONSTANT SS$_SUBDISABLED = 1753- DECLARE LONG CONSTANT SS$_FORGET = 1761/ DECLARE LONG CONSTANT SS$_PREPARED = 17692 DECLARE LONG CONSTANT SS$_NOMOREITEMS = 1777/ DECLARE LONG CONSTANT SS$_VOLATILE = 17850 DECLARE LONG CONSTANT SS$_CLASSUPER = 17932 DECLARE LONG CONSTANT SS $_CONTINUE_64 = 18014 DECLARE LONG CONSTANT SS$_THREAD_UPCALL = 18093 DECLARE LONG CONSTANT SS$_CREATED_SHPT = 18175 DECLARE LONG CONSTANT SS$_PERSONADELPEND = 1825/ DECLARE LONG CONSTANT SS$_DEVAVAIL = 1833. DECLARE LONG CONSTANT SS$_LONGGAP = 1841- DECLARE LONG CONSTANT SS$_BROKEN = 18495 DECLARE LONG CONSTANT SS$_QPOOL_DEL_INIT = 1857/ DECLARE LONG CONSTANT SS$_UNUSED_1 = 1865. DECLARE LONG CONSTANT SS$_LOWPREC = 1873 ! B ! NEW S YMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTB ! ***** NOTE: ROOM FOR 18 MORE MESSAGES IN THIS SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! . ! 256-383 800-BFF 128 WARNING CODES ! 1 DECLARE LONG CONSTANT SS$_ACCONFLICT = 20480 DECLARE LONG CONSTANT SS$_BADCHKSUM = 20561 DECLARE LONG CONSTANT SS$_BADFILEHDR = 20642 DECLARE LONG CONSTANT SS$_BADFILENAME = 20721 DECLARE LONG CONSTANT SS$_BADFILEVER = 20802 DECLARE LONG CONSTANT SS$_BADIRECTORY = 2088- DECLARE LONG CONSTANT SS$_CANCEL = 20961 DECLARE LONG CONSTANT SS$_DATAOVERUN = 2104/ DECLARE LONG CONSTANT SS$_DEVALLOC = 21120 DECLARE LONG CONSTANT SS$_DEVASSIGN = 21201 DECLARE LONG CONSTANT SS$_DEVICEFULL = 21282 DECLARE LONG CONSTANT SS$_DEVNOTALLOC = 2136. DECLARE LONG CONSTANT SS$_DIRFULL = 21442 DECLARE LONG CONSTANT SS$_DUPFILENAME = 21520 DECLARE LONG CONSTANT SS$_ENDOFFILE = 21600 DECLARE LONG CONSTANT SS$_ENDOFTAPE = 2168/ DECLARE LONG CONSTANT SS$_TMACTIVE = 21761 DECLARE LONG CONSTANT SS$_FCPREADERR = 21842 DECLARE LONG CONSTANT SS$_FCPREWNDERR = 21921 DECLARE LONG CONSTANT SS$_FCPSPACERR = 22001 DECLARE LONG CONSTANT SS$_FCPWRITERR = 22081 DECLARE LONG CONSTANT SS$_FILELOCKED = 22161 DECLARE LONG CONSTANT SS$_FILENUMCHK = 22241 DECLARE LONG CONSTANT SS$_FILESEQCHK = 22321 DECLARE LONG CONSTANT SS$_FI LESTRUCT = 22401 DECLARE LONG CONSTANT SS$_HEADERFULL = 22482 DECLARE LONG CONSTANT SS$_IDXFILEFULL = 2256- DECLARE LONG CONSTANT SS$_MBFULL = 22640 DECLARE LONG CONSTANT SS$_NOHOMEBLK = 2272. DECLARE LONG CONSTANT SS$_NONEXPR = 2280/ DECLARE LONG CONSTANT SS$_NONLOCAL = 22880 DECLARE LONG CONSTANT SS$_NOHANDLER = 2296/ DECLARE LONG CONSTANT SS$_NOSIGNAL = 23040 DECLARE LONG CONSTANT SS$_NOSUCHDEV = 23121 DECLARE LONG CONSTANT SS$_NOSUCH FILE = 2320/ DECLARE LONG CONSTANT SS$_RESIGNAL = 2328- DECLARE LONG CONSTANT SS$_UNWIND = 23360 DECLARE LONG CONSTANT SS$_UNWINDING = 23442 DECLARE LONG CONSTANT SS$_NOMOREFILES = 23520 DECLARE LONG CONSTANT SS$_BEGOFFILE = 23602 DECLARE LONG CONSTANT SS$_BLOCKCNTERR = 23682 DECLARE LONG CONSTANT SS$_MUSTCLOSEFL = 23761 DECLARE LONG CONSTANT SS$_WAITUSRLBL = 23842 DECLARE LONG CONSTANT SS$_ILLUSRLBLRD = 23922 DECLARE LONG CONSTANT SS$_IL LUSRLBLWT = 24000 DECLARE LONG CONSTANT SS$_ILLLBLAST = 24082 DECLARE LONG CONSTANT SS$_ENDOFUSRLBL = 24160 DECLARE LONG CONSTANT SS$_NOSUCHSEC = 24240 DECLARE LONG CONSTANT SS$_CLIFRCEXT = 24320 DECLARE LONG CONSTANT SS$_FCPREPSTN = 24401 DECLARE LONG CONSTANT SS$_TOOMANYVER = 24480 DECLARE LONG CONSTANT SS$_NOTVOLSET = 24562 DECLARE LONG CONSTANT SS$_ENDOFVOLUME = 24641 DECLARE LONG CONSTANT SS$_NOMOREPROC = 2472/ DECLARE LONG CONSTANT SS $_NODEVAVL = 24800 DECLARE LONG CONSTANT SS$_NOTQUEUED = 24880 DECLARE LONG CONSTANT SS$_DGQINCOMP = 2496/ DECLARE LONG CONSTANT SS$_DIRALLOC = 2504/ DECLARE LONG CONSTANT SS$_ACLEMPTY = 2512. DECLARE LONG CONSTANT SS$_NOENTRY = 25200 DECLARE LONG CONSTANT SS$_NOMOREACE = 25281 DECLARE LONG CONSTANT SS$_RIGHTSFULL = 25362 DECLARE LONG CONSTANT SS$_VALNOTVALID = 2544. DECLARE LONG CONSTANT SS$_ACLFULL = 25521 DECLARE LONG CONSTANT SS$_NOMO RENODE = 25601 DECLARE LONG CONSTANT SS$_NOMORELOCK = 25680 DECLARE LONG CONSTANT SS$_BEGOFTAPE = 25762 DECLARE LONG CONSTANT SS$_OBJLOCKHELD = 25841 DECLARE LONG CONSTANT SS$_CPUSTARTIP = 25921 DECLARE LONG CONSTANT SS$_ALLSTARTED = 26000 DECLARE LONG CONSTANT SS$_ALRDYSTRT = 26081 DECLARE LONG CONSTANT SS$_ALRDYSTPPD = 2616- DECLARE LONG CONSTANT SS$_NSTPPD = 26240 DECLARE LONG CONSTANT SS$_UNKRESULT = 26323 DECLARE LONG CONSTANT SS$_ ITEMNOTFOUND = 26400 DECLARE LONG CONSTANT SS$_NOMOREDEV = 2648/ DECLARE LONG CONSTANT SS$_EFNOTSET = 26560 DECLARE LONG CONSTANT SS$_PRIMNOSTP = 26641 DECLARE LONG CONSTANT SS$_BOOTREJECT = 2672. DECLARE LONG CONSTANT SS$_RMTPATH = 26804 DECLARE LONG CONSTANT SS$_OBJECT_EXISTS = 26883 DECLARE LONG CONSTANT SS$_NOSUCHOBJECT = 26960 DECLARE LONG CONSTANT SS$_NOVOLDESC = 27040 DECLARE LONG CONSTANT SS$_NOPTBLDIR = 27120 DECLARE LONG CONSTAN T SS$_DRVEXISTS = 27200 DECLARE LONG CONSTANT SS$_DEVEXISTS = 27282 DECLARE LONG CONSTANT SS$_GOTO_UNWIND = 27362 DECLARE LONG CONSTANT SS$_EXIT_UNWIND = 27442 DECLARE LONG CONSTANT SS$_SMALLHEADER = 27520 DECLARE LONG CONSTANT SS$_FDT_COMPL = 27604 DECLARE LONG CONSTANT SS$_TARGET_UNWIND = 27689 DECLARE LONG CONSTANT SS$_TARGET_GOTO_UNWIND = 27762 DECLARE LONG CONSTANT SS$_RESIGNAL_64 = 27840 DECLARE LONG CONSTANT SS$_NOMOREREG = 27922 DECL ARE LONG CONSTANT SS$_PAGNOTINREG = 28000 DECLARE LONG CONSTANT SS$_REGISFULL = 28080 DECLARE LONG CONSTANT SS$_PAGTYPVIO = 28160 DECLARE LONG CONSTANT SS$_NOSUCHPAG = 28242 DECLARE LONG CONSTANT SS$_PAGNOTWRITE = 28323 DECLARE LONG CONSTANT SS$_NOMORETHREAD = 28401 DECLARE LONG CONSTANT SS$_NOTF11ODS5 = 28480 DECLARE LONG CONSTANT SS$_NOCONVJNL = 28560 DECLARE LONG CONSTANT SS$_MPDEVBUSY = 28647 DECLARE LONG CONSTANT SS$_MPDEVUSERDISABLE = 2872 1 DECLARE LONG CONSTANT SS$_NOCPUMATCH = 28804 DECLARE LONG CONSTANT SS$_NOMORECLIENTS = 28884 DECLARE LONG CONSTANT SS$_NOMOREDEVICES = 28964 DECLARE LONG CONSTANT SS$_NOMOREFILTERS = 29042 DECLARE LONG CONSTANT SS$_NOMOREPATHS = 29124 DECLARE LONG CONSTANT SS$_NOMORESERVERS = 2920+ DECLARE LONG CONSTANT SS$_FISH = 29284 DECLARE LONG CONSTANT SS$_FILENOTCACHED = 29363 DECLARE LONG CONSTANT SS$_INSF_SHM_REG = 29445 DECLARE LONG CONSTANT SS $_HBMMNOTENABLED = 29524 DECLARE LONG CONSTANT SS$_HBMMALREADYON = 2960/ DECLARE LONG CONSTANT SS$_NODEVPOL = 2968/ DECLARE LONG CONSTANT SS$_NONAMPOL = 29763 DECLARE LONG CONSTANT SS$_XVALNOTVALID = 2984/ DECLARE LONG CONSTANT SS$_FILEFULL = 2992/ DECLARE LONG CONSTANT SS$_REMINDER = 3000 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTJ ! ***** NOTE: ROOM FOR 8 MORE WARNING MESSAGES IN ABOVE SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 4 ! 384-447 C00-DFF 64 INFORMATIONAL CODES ! , DECLARE LONG CONSTANT SS$_EOTIN = 3075- DECLARE LONG CONSTANT SS$_CHAINW = 3083/ DECLARE LONG CONSTANT SS$_NOTINSEC = 3091. DECLARE LONG CONSTANT SS$_NONXPAG = 3099. DECLARE LONG CONSTANT SS$_LOGNAME = 31070 DECLARE LONG CONSTANT SS$_CPUSTARTD = 31152 DECLARE LONG CONSTANT SS$_CPUSTOPPING = 31235 DECLARE LONG CONSTANT SS$_NOTALLCANCELED  = 31312 DECLARE LONG CONSTANT SS$_NOTHINGDONE = 31391 DECLARE LONG CONSTANT SS$_EVTNOTENAB = 31470 DECLARE LONG CONSTANT SS$_NOPATHTBL = 31552 DECLARE LONG CONSTANT SS$_RESELECTION = 3163/ DECLARE LONG CONSTANT SS$_EMULATED = 3171. DECLARE LONG CONSTANT SS$_REMDONE = 31790 DECLARE LONG CONSTANT SS$_REMINPROG = 3187- DECLARE LONG CONSTANT SS$_DEVCON = 31950 DECLARE LONG CONSTANT SS$_DEVNOTCON = 32032 DECLARE LONG CONSTANT SS$_CPUSELECTED = 32116 DECLARE LONG CONSTANT SS$_QPOOL_DEL_INPRG = 3219- DECLARE LONG CONSTANT SS$_PRESTO = 32273 DECLARE LONG CONSTANT SS$_TAKEN_BRANCH = 32350 DECLARE LONG CONSTANT SS$_IA32_TRAP = 32432 DECLARE LONG CONSTANT SS$_DEBUG_FAULT = 32511 DECLARE LONG CONSTANT SS$_BREAK_APPL = 32595 DECLARE LONG CONSTANT SS$_TIE_GET_FRAMES = 32675 DECLARE LONG CONSTANT SS$_TIE_PRE_UNWIND = 32751 DECLARE LONG CONSTANT SS$_TIE_UNWIND = 32836 DECLARE LONG CON STANT SS$_TIE_GOTO_UNWIND = 32915 DECLARE LONG CONSTANT SS$_HBMMCREPOSTMRG = 32990 DECLARE LONG CONSTANT SS$_FPMODECTL = 3307/ DECLARE LONG CONSTANT SS$_FPMODEPC = 3315/ DECLARE LONG CONSTANT SS$_FPMODERC = 3323. DECLARE LONG CONSTANT SS$_ARGTYP1 = 3331. DECLARE LONG CONSTANT SS$_ARGTYP2 = 3339. DECLARE LONG CONSTANT SS$_ARGTYP3 = 3347. DECLARE LONG CONSTANT SS$_ARGTYP4 = 3355. DECLARE LONG CONSTANT SS$_ARGTYP5 = 3363. DECLARE LONG CONSTANT SS$_ARGTYP6 = 3371. DECLARE LONG CONSTANT SS$_ARGTYP7 = 3379. DECLARE LONG CONSTANT SS$_ARGTYP8 = 33871 DECLARE LONG CONSTANT SS$_DEFER_ASTS = 3395/ DECLARE LONG CONSTANT SS$_COWBOYUP = 3403 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTB ! ***** NOTE: ROOM FOR 22 MORE MESSAGES IN THIS SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 5 ! 448-511 E00-FFF 64 NONFATAL ERROR CODES ! /  DECLARE LONG CONSTANT SS$_LINEABRT = 3586/ DECLARE LONG CONSTANT SS$_DEADLOCK = 3594/ DECLARE LONG CONSTANT SS$_NOLOCKID = 3602. DECLARE LONG CONSTANT SS$_EXDEPTH = 36101 DECLARE LONG CONSTANT SS$_PARTMAPPED = 36182 DECLARE LONG CONSTANT SS$_CANCELGRANT = 3626, DECLARE LONG CONSTANT SS$_RETRY = 3634- DECLARE LONG CONSTANT SS$_BADACL = 36420 DECLARE LONG CONSTANT SS$_ACEEXISTS = 36502 DECLARE LONG CONSTANT SS$_UNSUPPORTED = 36581 DECL ARE LONG CONSTANT SS$_NORIGHTSDB = 3666/ DECLARE LONG CONSTANT SS$_LOGSTALL = 3674. DECLARE LONG CONSTANT SS$_LOGFULL = 3682/ DECLARE LONG CONSTANT SS$_PWDINDIC = 3690/ DECLARE LONG CONSTANT SS$_PWDINHIS = 3698. DECLARE LONG CONSTANT SS$_PWDWEAK = 37060 DECLARE LONG CONSTANT SS$_USEGENPWD = 37140 DECLARE LONG CONSTANT SS$_INVBUSNAM = 37222 DECLARE LONG CONSTANT SS$_INVCOMPTYPE = 37300 DECLARE LONG CONSTANT SS$_INVCOMPID = 37382 DECLARE LO NG CONSTANT SS$_INVCOMPLIST = 37461 DECLARE LONG CONSTANT SS$_NOCOMPLSTS = 37543 DECLARE LONG CONSTANT SS$_INVSECDOMAIN = 37622 DECLARE LONG CONSTANT SS$_BADCHECKSUM = 37700 DECLARE LONG CONSTANT SS$_ARBTOOBIG = 37780 DECLARE LONG CONSTANT SS$_ORBTOOBIG = 37860 DECLARE LONG CONSTANT SS$_INVAJLNAM = 37941 DECLARE LONG CONSTANT SS$_TOOMANYAJL = 38020 DECLARE LONG CONSTANT SS$_RSDMINUSE = 38101 DECLARE LONG CONSTANT SS$_RSDMNOTFOU = 38180 DE CLARE LONG CONSTANT SS$_INVUICGRP = 38262 DECLARE LONG CONSTANT SS$_RSDM_ACTIVE = 38340 DECLARE LONG CONSTANT SS$_OBJLOCKED = 3842/ DECLARE LONG CONSTANT SS$_NOTMPNAM = 38500 DECLARE LONG CONSTANT SS$_INVCLSITM = 38580 DECLARE LONG CONSTANT SS$_NOTSHRTBL = 3866. DECLARE LONG CONSTANT SS$_MMATORB = 38740 DECLARE LONG CONSTANT SS$_NOSUCHVOL = 38823 DECLARE LONG CONSTANT SS$_OBJNOTLOCKED = 3890. DECLARE LONG CONSTANT SS$_ILLRSDM = 38985 DECLAR E LONG CONSTANT SS$_NOCLASSSUPPORT = 39061 DECLARE LONG CONSTANT SS$_INVSECOPER = 39142 DECLARE LONG CONSTANT SS$_NODELJNLACT = 39222 DECLARE LONG CONSTANT SS$_INVFILFOROP = 3930/ DECLARE LONG CONSTANT SS$_NOOBJSRV = 39383 DECLARE LONG CONSTANT SS$_NOFILEACCESS = 39462 DECLARE LONG CONSTANT SS$_BADFILESIZE = 39545 DECLARE LONG CONSTANT SS$_NOTFULLYMAPPED = 39620 DECLARE LONG CONSTANT SS$_BADWINCNT = 39700 DECLARE LONG CONSTANT SS$_BADWINLBN = 39780 DECLARE LONG CONSTANT SS$_BADWINRVN = 39862 DECLARE LONG CONSTANT SS$_EXTRAWINDOW = 3994. DECLARE LONG CONSTANT SS$_REVISED = 40021 DECLARE LONG CONSTANT SS$_TIMENOTSET = 40108 DECLARE LONG CONSTANT SS$_WAIT_CALLERS_MODE = 40181 DECLARE LONG CONSTANT SS$_NOT_LOADED = 40263 DECLARE LONG CONSTANT SS$_DRV_NOUNLOAD = 4034- DECLARE LONG CONSTANT SS$_INVARG = 40420 DECLARE LONG CONSTANT SS$_QIO_CROCK = 4050, DECLARE LONG CONSTANT SS$_ALTE R = 40582 DECLARE LONG CONSTANT SS$_AFR_ENABLED = 40666 DECLARE LONG CONSTANT SS$_AFR_NOT_ENABLED = 40741 DECLARE LONG CONSTANT SS$_SHELFERROR = 40826 DECLARE LONG CONSTANT SS$_PERSONANONGRATA = 4090 ! **************B ! NOTE: THE ABOVE SET OF NONFATAL ERROR MESSAGES IS FULL????< ! ANY ADDITIONAL NONFATAL ERROR MESSAGES MUST BE ADDED* ! BELOW, IN THE RANGE HEX 2C00-33FF. ! ************** ! 2 ! MSG #S RANGE # MSGS DESCRIPTION  ! 4 ! 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS !  ! M ! NB: THESE MESSAGES MUST BE KEPT IN THE SAME ORDER AS THE PRIVILEGE BITS ! DEFINITIONS ($PRVDEF) AS THE PRIVILEGE BIT POSITION IS USED AS AN INDEX INTOB ! THESE MESSAGE CODES BY THE $CHECK_PRIVILEGE SYSTEM SERVICE. ! 2 DECLARE LONG CONSTANT SS$_NOPRIVSTRT = 102400 DECLARE LONG CONSTANT SS$_NODETACH = 102840 DECLARE LONG CONSTANT SS$_NOCMKRNL = 102440 DECLARE LONG CONSTANT SS$_ NOCMEXEC = 102520 DECLARE LONG CONSTANT SS$_NOSYSNAM = 102600 DECLARE LONG CONSTANT SS$_NOGRPNAM = 102682 DECLARE LONG CONSTANT SS$_NOALLSPOOL = 102765 DECLARE LONG CONSTANT SS$_NOIMPERSONATE = 102842 DECLARE LONG CONSTANT SS$_NODIAGNOSE = 102920 DECLARE LONG CONSTANT SS$_NOLOG_IO = 10300/ DECLARE LONG CONSTANT SS$_NOGROUP = 10308. DECLARE LONG CONSTANT SS$_NOACNT = 103160 DECLARE LONG CONSTANT SS$_NOPRMCEB = 103240 DECLARE LONG CONSTANT SS $_NOPRMMBX = 103320 DECLARE LONG CONSTANT SS$_NOPSWAPM = 103400 DECLARE LONG CONSTANT SS$_NOALTPRI = 103480 DECLARE LONG CONSTANT SS$_NOSETPRV = 103560 DECLARE LONG CONSTANT SS$_NOTMPMBX = 10364/ DECLARE LONG CONSTANT SS$_NOWORLD = 10372/ DECLARE LONG CONSTANT SS$_NOMOUNT = 10380. DECLARE LONG CONSTANT SS$_NOOPER = 103881 DECLARE LONG CONSTANT SS$_NOEXQUOTA = 103960 DECLARE LONG CONSTANT SS$_NONETMBX = 104040 DECLARE LONG CONSTANT SS$_NOVO LPRO = 104120 DECLARE LONG CONSTANT SS$_NOPHY_IO = 104200 DECLARE LONG CONSTANT SS$_NOBUGCHK = 104280 DECLARE LONG CONSTANT SS$_NOPRMGBL = 104360 DECLARE LONG CONSTANT SS$_NOSYSGBL = 104440 DECLARE LONG CONSTANT SS$_NOPFNMAP = 10452/ DECLARE LONG CONSTANT SS$_NOSHMEM = 104600 DECLARE LONG CONSTANT SS$_NOSYSPRV = 104680 DECLARE LONG CONSTANT SS$_NOBYPASS = 104760 DECLARE LONG CONSTANT SS$_NOSYSLCK = 10484/ DECLARE LONG CONSTANT SS$_NOSHARE = 104921 DECLARE LONG CONSTANT SS$_NOUPGRADE = 105003 DECLARE LONG CONSTANT SS$_NODOWNGRADE = 105080 DECLARE LONG CONSTANT SS$_NOGRPPRV = 105161 DECLARE LONG CONSTANT SS$_NOREADALL = 105240 DECLARE LONG CONSTANT SS$_NOIMPORT = 10532/ DECLARE LONG CONSTANT SS$_NOAUDIT = 105402 DECLARE LONG CONSTANT SS$_NOSECURITY = 105481 DECLARE LONG CONSTANT SS$_NOPRIVEND = 10751 ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 6 ! 1344-1375  2A00-2AFF 32 EXCEEDED QUOTA ERRORS ! 3 DECLARE LONG CONSTANT SS$_EXQUOTASTRT = 10752/ DECLARE LONG CONSTANT SS$_EXASTLM = 10756/ DECLARE LONG CONSTANT SS$_EXBIOLM = 10764/ DECLARE LONG CONSTANT SS$_EXBYTLM = 10772/ DECLARE LONG CONSTANT SS$_EXDIOLM = 10780/ DECLARE LONG CONSTANT SS$_EXFILLM = 107883 DECLARE LONG CONSTANT SS$_EXPGFLQUOTA = 10796/ DECLARE LONG CONSTANT SS$_EXPRCLM = 10804/ DECLARE LONG CONSTANT SS$_EXTQELM = 10812/  DECLARE LONG CONSTANT SS$_EXENQLM = 108202 ! SYSTEMWIDE QUOTA -- WORK FROM END OF REGION2 DECLARE LONG CONSTANT SS$_EXBUFOBJLM = 110042 DECLARE LONG CONSTANT SS$_EXQUOTAEND = 11007 ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! C ! 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONS ! 1 DECLARE LONG CONSTANT SS$_MMSFAILED = 110126 DECLARE LONG CONSTANT SS$_QPOOL_DEL_BUSY = 11020B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY B EFORE THIS COMMENT@ ! ***** NOTE: ROOM FOR 1 MORE MESSAGE IN THIS SECTION *****1 DECLARE LONG CONSTANT SS$_TOOFEWDEV = 11032/ DECLARE LONG CONSTANT SS$_AVRWAIT = 11040B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTA ! ***** NOTE: ROOM FOR 3 MORE MESSAGES IN THIS SECTION *****. DECLARE LONG CONSTANT SS$_NO_MMS = 110750 DECLARE LONG CONSTANT SS$_MMSREADY = 110833 DECLARE LONG CONSTANT SS$_MMSNOTREADY = 110913 DECLARE LONG CONSTANT SS $_SKIP_CHECKS = 110991 DECLARE LONG CONSTANT SS$_NO_NOTIFY = 111077 DECLARE LONG CONSTANT SS$_SKIP_EXPIRATION = 111150 DECLARE LONG CONSTANT SS$_NOTATBOT = 111230 DECLARE LONG CONSTANT SS$_PREVDENS = 111316 ! A NEW BASE SHOULD BE CREATED FOR INFORMATIONALSB ! ***** NOTE: ROOM FOR 0 MORE MESSAGES IN ABOVE SECTION *****. DECLARE LONG CONSTANT SS$_RDBERR = 11140/ DECLARE LONG CONSTANT SS$_MDMSERR = 111480 DECLARE LONG CONSTANT SS$_IVMEDTYP = 11156.  DECLARE LONG CONSTANT SS$_IVDENS = 11164. DECLARE LONG CONSTANT SS$_IVPOOL = 111720 DECLARE LONG CONSTANT SS$_IVEXPDAT = 111803 DECLARE LONG CONSTANT SS$_NOCONFMEDIA = 111885 DECLARE LONG CONSTANT SS$_PTE_NOT_EMPTY = 111963 DECLARE LONG CONSTANT SS$_CPUNOTAVAIL = 112042 DECLARE LONG CONSTANT SS$_NOFASTPATH = 112122 DECLARE LONG CONSTANT SS$_EXITFORCED = 11220. DECLARE LONG CONSTANT SS$_FORCEX = 11228 ! 2 ! MSG #S RANGE # MSGS  DESCRIPTION ! J ! 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF) ! 3 DECLARE LONG CONSTANT SS$_NOTASSUMING = 112667 DECLARE LONG CONSTANT SS$_ALREADYASSUMING = 11274- DECLARE LONG CONSTANT SS$_INUSE = 112824 DECLARE LONG CONSTANT SS$_USERDISABLED = 11290/ DECLARE LONG CONSTANT SS$_NOCHJIB = 112980 DECLARE LONG CONSTANT SS$_NOTSUPFS = 113063 DECLARE LONG CONSTANT SS$_INSFTHREADS = 113142 DECLARE LONG CONSTANT SS $_NOBUFOBJID = 113226 DECLARE LONG CONSTANT SS$_NODELPERMANENT = 113302 DECLARE LONG CONSTANT SS$_NOMEMRESID = 113385 DECLARE LONG CONSTANT SS$_MRES_PFNSMALL = 113462 DECLARE LONG CONSTANT SS$_MRES_INCON = 113545 DECLARE LONG CONSTANT SS$_NORESERVEDMEM = 113627 DECLARE LONG CONSTANT SS$_RESERVEDMEMUSED = 113705 DECLARE LONG CONSTANT SS$_RES_MEM_INCON = 11378/ DECLARE LONG CONSTANT SS$_NOSHPTS = 113861 DECLARE LONG CONSTANT SS$_FLUSHFAIL = 1139 44 DECLARE LONG CONSTANT SS$_NOTINSTALLED = 114025 DECLARE LONG CONSTANT SS$_POOLDEVEXISTS = 11410/ DECLARE LONG CONSTANT SS$_NOUNITS = 114180 DECLARE LONG CONSTANT SS$_NOTAPOOL = 114264 DECLARE LONG CONSTANT SS$_MISSINGUNITS = 114345 DECLARE LONG CONSTANT SS$_DISKDEVEXISTS = 114424 DECLARE LONG CONSTANT SS$_TOOMANYUNITS = 114501 DECLARE LONG CONSTANT SS$_NOTINPOOL = 114581 DECLARE LONG CONSTANT SS$_WRONGPOOL = 114660 DECLARE LONG CONST ANT SS$_ALRBOUND = 114746 DECLARE LONG CONSTANT SS$_NOTPOOLMOUNTED = 114821 DECLARE LONG CONSTANT SS$_POOLINUSE = 114901 DECLARE LONG CONSTANT SS$_DISKINUSE = 114982 DECLARE LONG CONSTANT SS$_SDDISABLED = 115062 DECLARE LONG CONSTANT SS$_UNITINPOOL = 115144 DECLARE LONG CONSTANT SS$_FAMILYTOOBIG = 115222 DECLARE LONG CONSTANT SS$_NODISKNAME = 115306 DECLARE LONG CONSTANT SS$_DISKNAMEEXISTS = 115385 DECLARE LONG CONSTANT SS$_INSUFFREESEGS = 11546 0 DECLARE LONG CONSTANT SS$_NOTBOUND = 115544 DECLARE LONG CONSTANT SS$_TOOMANYFRAGS = 115627 DECLARE LONG CONSTANT SS$_TOOMANYFAMILIES = 115703 DECLARE LONG CONSTANT SS$_DISKISBOUND = 115781 DECLARE LONG CONSTANT SS$_SNAPINFAM = 115862 DECLARE LONG CONSTANT SS$_CHKSNAPVER = 115942 DECLARE LONG CONSTANT SS$_BADSNAPVER = 116024 DECLARE LONG CONSTANT SS$_SD_RESERVED4 = 116104 DECLARE LONG CONSTANT SS$_SD_RESERVED5 = 116181 DECLARE LONG CONST ANT SS$_SECREFOVF = 11626/ DECLARE LONG CONSTANT SS$_DATAERR = 11634. DECLARE LONG CONSTANT SS$_INVPFN = 116421 DECLARE LONG CONSTANT SS$_INV_SHMEM = 116503 DECLARE LONG CONSTANT SS$_INV_SHM_CPP = 116583 DECLARE LONG CONSTANT SS$_INV_SHM_REG = 116661 DECLARE LONG CONSTANT SS$_ONEMAPPER = 116741 DECLARE LONG CONSTANT SS$_NOSUCHEXT = 116821 DECLARE LONG CONSTANT SS$_CBKEXISTS = 116901 DECLARE LONG CONSTANT SS$_NOSUCHCBK = 116982 DECLAR E LONG CONSTANT SS$_NOTAMEMBER = 117065 DECLARE LONG CONSTANT SS$_GLXSPIUNAVAIL = 117147 DECLARE LONG CONSTANT SS$_MPDEVILLCURPATH = 117225 DECLARE LONG CONSTANT SS$_MPDEVINCOMPAT = 117300 DECLARE LONG CONSTANT SS$_MPDEVNOT = 117384 DECLARE LONG CONSTANT SS$_MPDEVNOTCONF = 117467 DECLARE LONG CONSTANT SS$_PERSONARESERVED = 117540 DECLARE LONG CONSTANT SS$_WRONGDRV = 11762. DECLARE LONG CONSTANT SS$_BADRAD = 117701 DECLARE LONG CONSTANT SS$_INVQ !SRFNC = 117783 DECLARE LONG CONSTANT SS$_NOQIOSERVER = 11786/ DECLARE LONG CONSTANT SS$_INCLASS = 117942 DECLARE LONG CONSTANT SS$_INVBOOTDEV = 11802: DECLARE LONG CONSTANT SS$_CLIENT_UNAVAILABLE = 118108 DECLARE LONG CONSTANT SS$_CONFIGFILE_ERROR = 118183 DECLARE LONG CONSTANT SS$_INVDEVALLOC = 11826: DECLARE LONG CONSTANT SS$_DEVICE_UNAVAILABLE = 118343 DECLARE LONG CONSTANT SS$_INVDEVMOUNT = 118428 DECLARE LONG CONSTANT SS$_LOGGING_DISABLED " = 118504 DECLARE LONG CONSTANT SS$_NOSUCHCLIENT = 118584 DECLARE LONG CONSTANT SS$_NOSUCHDEVICE = 118664 DECLARE LONG CONSTANT SS$_NOSUCHFILTER = 118742 DECLARE LONG CONSTANT SS$_NOSUCHPATH = 118824 DECLARE LONG CONSTANT SS$_NOSUCHSERVER = 118901 DECLARE LONG CONSTANT SS$_RQSTIMOUT = 11898: DECLARE LONG CONSTANT SS$_SERVER_UNAVAILABLE = 119062 DECLARE LONG CONSTANT SS$_QSRVINTERR = 11914- DECLARE LONG CONSTANT SS$_NOADD = 119221 DECLARE LO #NG CONSTANT SS$_SYSTEMUIC = 119305 DECLARE LONG CONSTANT SS$_NOSUCHQPOOLID = 119381 DECLARE LONG CONSTANT SS$_PATHAMBIG = 11946/ DECLARE LONG CONSTANT SS$_INVMVIP = 119543 DECLARE LONG CONSTANT SS$_NOPATHAVAIL = 119623 DECLARE LONG CONSTANT SS$_NOENACURINV = 119701 DECLARE LONG CONSTANT SS$_TRUSTCONF = 119781 DECLARE LONG CONSTANT SS$_QIO_FAULT = 119864 DECLARE LONG CONSTANT SS$_HBVS_REDO_IO = 119946 DECLARE LONG CONSTANT SS$_TOOMANYPERSONA $ = 120020 DECLARE LONG CONSTANT SS$_INVKTLIM = 120101 DECLARE LONG CONSTANT SS$_PWDPOLICY = 12018 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTM ! ***** NOTE: ROOM FOR 161 MORE NONFATAL MESSAGES IN ABOVE SECTION ***** ! < ! MSG #S RANGE # MSGS DESCRIPTION ! T ! 1664-1695 3400-341F 32 FATAL ERROR CODES (CONTINUED FROM 27FF)1 DECLARE LONG CONSTANT SS$_MAXNAMPOL = 133163 DECLARE LONG CON %STANT SS$_HBMMENABLED = 133244 DECLARE LONG CONSTANT SS$_NOMODNONEPOL = 133325 DECLARE LONG CONSTANT SS$_SHADFEATNOMNT = 133406 DECLARE LONG CONSTANT SS$_NOTSUPALLNODES = 133483 DECLARE LONG CONSTANT SS$_WLGCANTHBMM = 133564 DECLARE LONG CONSTANT SS$_CALLUNDEFSYM = 133644 DECLARE LONG CONSTANT SS$_NOADDMCPYMBR = 133721 DECLARE LONG CONSTANT SS$_CANTDODDS = 133803 DECLARE LONG CONSTANT SS$_TOOMANYMBRS = 133883 DECLARE LONG CONSTANT SS$_SCBREADF &AIL = 133964 DECLARE LONG CONSTANT SS$_SCBWRITEFAIL = 134043 DECLARE LONG CONSTANT SS$_NOMEMFORWBM = 134121 DECLARE LONG CONSTANT SS$_MUSTDMTVU = 134207 DECLARE LONG CONSTANT SS$_ONLYSRCMUSTSTAY = 134287 DECLARE LONG CONSTANT SS$_NOWBMDURINGCOPY = 13436. DECLARE LONG CONSTANT SS$_WBMERR = 134442 DECLARE LONG CONSTANT SS$_BADPOLCHAR = 134526 DECLARE LONG CONSTANT SS$_HBMMVERSIONBAD = 134605 DECLARE LONG CONSTANT SS$_ANADSKSHDBBLK = 134686 ' DECLARE LONG CONSTANT SS$_HBMMBADPOLSPEC = 134766 DECLARE LONG CONSTANT SS$_NOSHADOWSERVER = 134840 DECLARE LONG CONSTANT SS$_GAMEOVER = 13492O ! N.B. DO NOT CORRECT THE GRAMMAR IN GAMEOVER, THE MESSAGE IS AS INTENDEDB ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTH ! ***** NOTE: ROOM FOR 9 MORE FATAL MESSAGES IN ABOVE SECTION ***** ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 8 ! 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS ( ! 8 ! MESSAGE CODES IN THIS BLOCK ARE GUARANTEED NOT TO< ! BE TRANSLATED BY VMS WHEN THEY ARE SEND OUT BY VMSSCS; ! OR WHEN THEY ARE RECEIVED BY VMSSCS. SCA SYSAPS ARE< ! FREE TO USE THESE CODES IN ANY SYSAP-DEPENDENT MANNER ! IN WHICH THEY CHOOSE. ! A ! THIS ADDRESS OF THIS BLOCK OF CODES MUST BE IN CONFORMANCE: ! WITH THE SCA ARCHITECTURE, I.E., MUST NOT BE MOVED. ! 0 DECLARE LONG CONSTANT SS$_SYSAPMIN = 322560 DECLARE LONG CONSTANT SS$_SYSAPMAX = 32767ww* ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED +( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN,G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > - %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  N DECLARE LONG CONSTANT ACC$K_TERMLEN = 84 ! TERMINATION MESSAGE LENGTH N DECLARE LONG CONSTANT ACC$C_TERMLEN = 84 ! TERMINATION MESSAGE LENGTH / ! AND ACCOUNTING RECORD FOR NON BATCH JOBSZ .DECLARE LONG CONSTANT ACC$K_JOB_LEN = 108 ! LENGTH OF BATCH JOB ACCOUNTING RECORD Z DECLARE LONG CONSTANT ACC$C_JOB_LEN = 108 ! LENGTH OF BATCH JOB ACCOUNTING RECORD . DECLARE LONG CONSTANT ACC$S_ACCDEF = 108 record ACCDEFA WORD ACC$W_MSGTYP ! MESSAGE TYPE CODE ] WORD ACC$W_MSGSIZ ! LENGTH OF DATA MESSAGE (VALID ONLY IN ACCLOG) A LONG ACC$L_FINALSTS ! FINAL EXIT STATUS : LONG ACC$L_PID / ! PROCESS ID Y LONG ACC$L_JOBID ! JOB IDENTIFICATION (VALID ONLY IN ACCLOG) N BASIC$QUADWORD ACC$Q_TERMTIME ! TERMINATION TIME (100NS UNITS) R STRING ACC$T_ACCOUNT = 8 ! ACCOUNT NAME STRING (BLANK FILLED) O STRING ACC$T_USERNAME = 12 ! USER NAME STRING (BLANK FILLED) D LONG ACC$L_CPUTIM ! CPUTIM IN 10MS UNITS A LONG ACC$L_PAGEFLTS ! TOTAL PAGE FAULTS0 F LONG ACC$L_PGFLPEAK ! PEAK PAGING FILE USAGE E LONG ACC$L_WSPEAK ! PEAK WORKING SET SIZE P LONG ACC$L_BIOCNT ! COUNT OF BUFFERED I/O OPERATIONS N LONG ACC$L_DIOCNT ! COUNT OF DIRECT I/O OPERATIONS H LONG ACC$L_VOLUMES ! COUNT OF VOLUMES MOUNTED H BASIC$QUADWORD ACC$Q_LOGIN ! LOGIN TIME (100NS UNITS) G LONG ACC$L_OWNER ! P 1ID OF SUBPROCESS OWNER ! ! END OF TERMINATION MESSAGEG STRING ACC$T_JOB_NAME = 8 ! JOB NAME (BLANK FILLED) C STRING ACC$T_JOB_QUE = 16 ! QUEUE NAME (.ASCIC)  end record ACCDEF U DECLARE LONG CONSTANT ACC$K_PRT_LEN = 88 ! LENGTH OF PRINT ACCOUNTING RECORD U DECLARE LONG CONSTANT ACC$C_PRT_LEN = 88 ! LENGTH OF PRINT ACCOUNTING RECORD  ! . DECLARE LONG CONSTANT ACC$S_ACCDEF1 = 88 record ACCDEF1) BYTE 2ACCDEF$$_FILL_1 ( 1 to 48 )C LONG ACC$L_PAGCNT ! SYMBIONT PAGE COUNT B LONG ACC$L_QIOCNT ! SYMBIONT QIO COUNT B LONG ACC$L_GETCNT ! SYMBIONT GET COUNT C BASIC$QUADWORD ACC$Q_QUETIME ! TIME JOB WAS QUEUED A STRING ACC$T_PRT_NAME = 8 ! NAME OF PRINT JOB C STRING ACC$T_PRT_QUE = 12 ! NAME OF PRINT QUEUE / ! DEFINE USER ACCOUNTING MESSAGE DATA AREA !  3 end record ACCDEF1 M DECLARE LONG CONSTANT ACC$K_INS_LEN = 176 ! LENGTH OF INSERT MESSAGE M DECLARE LONG CONSTANT ACC$C_INS_LEN = 176 ! LENGTH OF INSERT MESSAGE  ! A DECLARE LONG CONSTANT ACC$K_PRCTRM = 1 ! JOB TERMINATION G DECLARE LONG CONSTANT ACC$K_BATTRM = 2 ! BATCH JOB TERMINATION M DECLARE LONG CONSTANT ACC$K_INTTRM = 3 ! INTERACTIVE JOB TERMINATION S DECLARE LONG CONSTANT ACC$K_LOGTRM = 4 ! LOGIN FAILURE PROCESS TERMINATION C 4 DECLARE LONG CONSTANT ACC$K_IMGTRM = 5 ! IMAGE TERMINATION H DECLARE LONG CONSTANT ACC$K_SUBTRM = 6 ! SUBPROCESS TERMINATION N DECLARE LONG CONSTANT ACC$K_DETTRM = 7 ! DETACHED PROCESS TERMINATION M DECLARE LONG CONSTANT ACC$K_NETTRM = 8 ! NETWORK PROCESS TERMINATION  ! MISC ACCOUNTING RECORDS G DECLARE LONG CONSTANT ACC$K_PRTJOB = 16 ! PRINT JOB ACCOUNTING C DECLARE LONG CONSTANT ACC$K_INSMSG = 17 ! INSERTED MESSAGE  ! V DECLARE LONG5 CONSTANT ACC$K_INSMESG = 1 ! INSERT MESSAGE INTO ACCOUNTING FILE L DECLARE LONG CONSTANT ACC$K_NEWFILE = 2 ! CREATE A NEW ACCOUNT FILE D DECLARE LONG CONSTANT ACC$K_ENABACC = 3 ! ENABLE ACCOUNTING E DECLARE LONG CONSTANT ACC$K_DISAACC = 4 ! DISABLE ACCOUNTING N DECLARE LONG CONSTANT ACC$K_ENABSEL = 5 ! ENABLE SELECTIVE ACCOUNTING O DECLARE LONG CONSTANT ACC$K_DISASEL = 6 ! DISABLE SELECTIVE ACCOUNTING / DECLARE LONG CONSTANT ACC$S_ACCDEF2 = 176 record ACCDEF2) BYTE ACCDEF$$_FILL_2 ( 1 to 44 )R STRING ACC$T_USER_DATA = 132 ! ALLOW UP TO 132 BYTES OF USER DATA C ! ASSIGN RECORD TYPE CODES FOR RECORDS IN THE ACCOUNT LOG FILE ! " ! PROCESS ACCOUNTING RECORDS . ! DEFINE ACCOUNTING MANAGER MESSAGE CODES !  !  end record ACCDEF2  ww  ! *** PREDECLARED TYPESS : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )  END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )V END RECORD * %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF I< %IF %DECLARED 8Ì ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED 9( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN:G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ; %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! E ! Definitions for Acmode arugment to several MMG system services ! = DECLARE LONG CONSTANT ACCESS$M_LOCK_IMAGE = x'00000040'? DECLARE LONG CONSTANT ACCESS$M_LKWSET_EXACT = x'00000080' </ DECLARE LONG CONSTANT ACCESS$S_ACCESS = 8 record ACCESS_D$ group ACCESS$R_ACCESS_UNION variant cased BASIC$QUADWORD ACCESS$Q_QUAD ! Combined acmode/arch/prot argument - full 64-bits case1 group ACCESS$R_ACCESSDEF_FIELDS: BYTE ACCESS$B_MODE ! Access modeB BYTE ACCESS$B_ARCH ! Architecture 3=IA64U WORD ACCESS$W_PROT =! Page protection in architecture format9 LONG ACCESS$L_RESERVED1 ! Reserved5 end group ACCESS$R_ACCESSDEF_FIELDS case/ group ACCESS$R_ACCESSDEF_BITS; ! For $LKWSET_64 and $ULWSET_64 onlyD ! For $LKWSET[_64] and $ULWSET[_64] IA64 only% ! Alpha always performs exactr BYTE FILL1_bits ( 8 ) ! COMMENT ADDED BY SDL - FILL1_bits contains bits FILL1 t hrough FILL33 end group ACCESS$R_ACCESSDEF_BITS end variant( end group ACCESS$R_ACCESS_UNION end record ACCESS_D 6 DECLARE LONG CONSTANT ACCESS$C_IA64 = 3 ! IA64 ww? ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED @( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINAG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > B %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! 6 ! Access Control list Entry structure definitions !  ! -E DECLARE LONG CONSTANT ACE$C_KEYID = 1 ! Key identifier entry B DECLARE LONG CONSTANT ACE$C_RMSJNL_BI = 2 ! CRMS BI journalB DECLARE LONG CONSTANT ACE$C_RMSJNL_AI = 3 ! RMS AI journalB DECLARE LONG CONSTANT ACE$C_RMSJNL_AT = 4 ! RMS AT journalL DECLARE LONG CONSTANT ACE$C_AUDIT = 5 ! Security audit journal entryD DECLARE LONG CONSTANT ACE$C_ALARM = 6 ! Security alarm entryJ DECLARE LONG CONSTANT ACE$C_INFO = 7 ! General purpose informationU DECLARE LONG CONSTANT ACE$C_RMSJNL_RU_DEFAULT = 8 ! RU journal default volumeM DECLARE LONG CONSTANT ACE$C_DIRDEF =D 9 ! Directory default protectionO DECLARE LONG CONSTANT ACE$C_RMSJNL_RU = 10 ! RU journal (many per file)P DECLARE LONG CONSTANT ACE$C_SUBSYSTEM_IDS = 11 ! Protected subsystem idsG DECLARE LONG CONSTANT ACE$C_OIL = 12 ! Object Information LabelM DECLARE LONG CONSTANT ACE$C_NEW_OWNER = 13 ! Protection for owner ACEY DECLARE LONG CONSTANT ACE$C_POSIX_OWNER = 14 ! Posix UID/GID (persona) from imageP DECLARE LONG CONSTANT ACE$C_MAX_CODE = 15 ! Maximu Em ACE type code plus 1F DECLARE LONG CONSTANT ACE$C_RESERVED = 255 ! Reserved ACE typeT DECLARE LONG CONSTANT ACE$C_APPLICATION = 7 ! Alternate application ACE code? DECLARE LONG CONSTANT ACE$C_CUST = 1 ! Customer defined: DECLARE LONG CONSTANT ACE$C_CSS = 2 ! CSS defined: DECLARE LONG CONSTANT ACE$C_VMS = 3 ! VMS defined7 DECLARE LONG CONSTANT ACE$M_SUCCESS = x'00000001'7 DECLARE LONG CONSTANT ACE$M_FAILURE = x'00000002'7 DECLARE LONG CON FSTANT ACE$M_DEFAULT = x'00000100'9 DECLARE LONG CONSTANT ACE$M_PROTECTED = x'00000200'6 DECLARE LONG CONSTANT ACE$M_HIDDEN = x'00000400'; DECLARE LONG CONSTANT ACE$M_NOPROPAGATE = x'00000800'4 DECLARE LONG CONSTANT ACE$M_READ = x'00000001'5 DECLARE LONG CONSTANT ACE$M_WRITE = x'00000002'7 DECLARE LONG CONSTANT ACE$M_EXECUTE = x'00000004'6 DECLARE LONG CONSTANT ACE$M_DELETE = x'00000008'7 DECLARE LONG CONSTANT ACE$M_CONTROL = x'00000010'M DECLGARE LONG CONSTANT ACE$K_LENGTH = 8 ! Length of the overhead area M DECLARE LONG CONSTANT ACE$C_LENGTH = 8 ! Length of the overhead area [ DECLARE LONG CONSTANT ACE$C_RMS_ATTRIBUTES = 0 ! variant of ACE for file attributes[ DECLARE LONG CONSTANT ACE$K_RMS_ATTRIBUTES = 0 ! variant of ACE for file attributesO DECLARE LONG CONSTANT ACE$K_RMSATR_MINOR_V50 = 2 ! minor ID for VMS 5.0W DECLARE LONG CONSTANT ACE$K_RMSATR_MINOR_VDW = 2 ! minor ID for DECwindows V1. H0\ DECLARE LONG CONSTANT ACE$C_RMSATR_MINOR_ID = 2 ! current minor ID (obsolete symbol)5 DECLARE LONG CONSTANT ACE$K_RMSATR_MINOR_ID = 2J DECLARE LONG CONSTANT ACE$C_RMSATR_MAJOR_ID = 1 ! current major ID5 DECLARE LONG CONSTANT ACE$K_RMSATR_MAJOR_ID = 1: DECLARE LONG CONSTANT ACE$M_STATISTICS = x'00000001'9 DECLARE LONG CONSTANT ACE$M_XLATE_DEC = x'00000002'` DECLARE LONG CONSTANT ACE$S_RMSATR = 20 ! size of RMS file attributes ACE (fixed fields)d I DECLARE LONG CONSTANT ACE$S_RMSATR_V50 = 20 ! size of RMS file attributes ACE (fixed fields)d DECLARE LONG CONSTANT ACE$S_RMSATR_VDW = 20 ! size of RMS file attributes ACE (fixed fields)J ! Beyond the fixed fields, variable length information will by stored` DECLARE LONG CONSTANT ACE$_RMSATR_ORGANIZATION = 1 ! organizational extension object ID R DECLARE LONG CONSTANT ACE$_RMSATR_SEMANTICS = 2 ! file semantics object ID9 DECLARE LONG CONSTANT ACE$K_RMSATR_ORG_MJAX_LEN = 649 DECLARE LONG CONSTANT ACE$K_RMSATR_SEM_MAX_LEN = 64\ DECLARE LONG CONSTANT ACE$S_RMSJNL_RU_DEFAULT = 17 ! length of RMSJNL RU default ACE@ DECLARE LONG CONSTANT ACE$M_JOURNAL_DISABLED = x'00000001'; DECLARE LONG CONSTANT ACE$M_BACKUP_DONE = x'00000002'L DECLARE LONG CONSTANT ACE$S_RMSJNL_RU = 38 ! length of RMSJNL RU ACEO DECLARE LONG CONSTANT ACE$S_RMSJNL = 50 ! length of RMSJNL AI/BI/AT ACEN DECLARE LONG CONSTANT ACE$S_OIL_S64I64 = 32 K ! Length of Type 0 OIL ACEL DECLARE LONG CONSTANT ACE$S_OIL_S128 = 32 ! Length of Type 1 OIL ACEC DECLARE LONG CONSTANT ACE$S_OIL = 32 ! Maximum OIL ACE Size> DECLARE LONG CONSTANT ACE$M_USERNAME_VALID = x'00000001'9 DECLARE LONG CONSTANT ACE$M_UIC_VALID = x'00000002'9 DECLARE LONG CONSTANT ACE$M_UID_VALID = x'00000004'9 DECLARE LONG CONSTANT ACE$M_GID_VALID = x'00000008'@ DECLARE LONG CONSTANT ACE$M_GROUP_MODE_VALID = x'00000010'5 DECLARE LONG L CONSTANT ACE$M_OTHER = x'00000007'5 DECLARE LONG CONSTANT ACE$M_GROUP = x'00000038'4 DECLARE LONG CONSTANT ACE$M_USER = x'000001C0'7 DECLARE LONG CONSTANT ACE$M_S_IXOTH = x'00000001'7 DECLARE LONG CONSTANT ACE$M_S_IWOTH = x'00000002'7 DECLARE LONG CONSTANT ACE$M_S_IROTH = x'00000004'7 DECLARE LONG CONSTANT ACE$M_S_IXGRP = x'00000008'7 DECLARE LONG CONSTANT ACE$M_S_IWGRP = x'00000010'7 DECLARE LONG CONSTANT ACE$M_S_IRGRP = x'00000020'7 DECL MARE LONG CONSTANT ACE$M_S_IXUSR = x'00000040'7 DECLARE LONG CONSTANT ACE$M_S_IWUSR = x'00000080'7 DECLARE LONG CONSTANT ACE$M_S_IRUSR = x'00000100'7 DECLARE LONG CONSTANT ACE$M_S_ISGID = x'00000400'7 DECLARE LONG CONSTANT ACE$M_S_ISUID = x'00000800'W DECLARE LONG CONSTANT ACE$S_POSIX_OWNER_LENGTH = 60 ! Length of POSIX_OWNER ACE- DECLARE LONG CONSTANT ACE$S_ACEDEF = 60 record ACEDEFA BYTE ACE$B_SIZE ! Size of the entry N= BYTE ACE$B_TYPE ! Type of entry " group ACE$R_FLAGS_OVERLAY variant caseR WORD ACE$W_FLAGS ! Type dependent ? independent flags  caseF group ACE$R_FLAGS_INFO ! Flags for INFO type ACE) ! INFO ACE subtype{ BYTE INFO_TYPE_bits ! COMMENT ADDED BY SDL - INFO_TYPE_bits contains bits INFO_TYPE through FILL_10_, O end group ACE$R_FLAGS_INFO caseC group ACE$R_FLAGS_KEYID ! Flags for KEYID type4 ! Count of reserved longwordsx BYTE RESERVED_bits ! COMMENT ADDED BY SDL - RESERVED_bits contains bits RESERVED through FILL_11_- end group ACE$R_FLAGS_KEYID case) group ACE$R_FLAGS_BITS04 ! Audit or alarm upon success4 ! Audit ot al Parm upon failureu BYTE SUCCESS_bits ! COMMENT ADDED BY SDL - SUCCESS_bits contains bits SUCCESS through FILL_12_- end group ACE$R_FLAGS_BITS0 caseE group ACE$R_FLAGS_BITS ! Type independent flags1 ! Directory default entry & ! Protected ACE# ! Hidden ACE8 ! No propagation between versionsx WORD FILLER_1_bit Qs ! COMMENT ADDED BY SDL - FILLER_1_bits contains bits FILLER_1 through FILL_13_, end group ACE$R_FLAGS_BITS end variant& end group ACE$R_FLAGS_OVERLAYJ group ACE$R_ACE_FIELDS ! Start of ACE overlayed area variant caseN group ACE$R_KEY_AUD_TYPE ! KEY-ID and security audit types( group ACE$R_FILL_0_ variant caseG R LONG ACE$L_ACCESS ! Access rights bitmask  case. group ACE$R_FILL_1_2 ! Allowed to read 3 ! Allowed to write 5 ! Allowed to execute 4 ! Allowed to delete > ! All privileges of the owner u BYTE READ_bits ! COMMENT ADDED BY SDL - READ_b Sits contains bits READ through FILL_14_2 end group ACE$R_FILL_1_# end variant, end group ACE$R_FILL_0_, group ACE$R_KEY_OVERLAY variant caseF LONG ACE$L_KEY ! Start of the key fields case] STRING ACE$T_AUDITNAME = 16 ! Start of the security journal name# T end variant0 end group ACE$R_KEY_OVERLAY. end group ACE$R_KEY_AUD_TYPE case' group ACE$R_INFO_TYPE( group ACE$R_FILL_2_ variant caseP LONG ACE$L_INFO_FLAGS ! INFO type application flags case. group ACE$R_FILL_3_Y WORD ACE$W_APPLICATION_FLAGS U! VMS application flags word_ WORD ACE$W_APPLICATION_FACILITY ! VMS application facility code2 end group ACE$R_FILL_3_# end variant, end group ACE$R_FILL_2_* group ACE$R_INFO_DATA variant caseS STRING ACE$T_INFO_START = 1 ! Start of the information case2 V group ACE$R_RMSATR_TYPEc WORD ACE$W_RMSATR_VARIANT ! Which variant of the RMS attributes ACEX 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)K BYTE ACE$B_RMSATR_SPARE1 ! currectly unused] WORD ACE$W_RMSATR_MINOR_ID ! RMS file attributes ACE minor ID] W WORD ACE$W_RMSATR_MAJOR_ID ! RMS file attributes ACE major ID1 group ACE$R_FILL_4_( variant% casel LONG ACE$L_RMS_ATTRIBUTE_FLAGS ! RMS file attributes flags definitions% case7 group ACE$R_FILL_5_U ! Statistics monitoring enabled on this X fileG ! File semantics are DEC-local BYTE STATISTICS_bits ! COMMENT ADDED BY SDL - STATISTICS_bits contains bits STATISTICS & ! through FILL_15_; end group ACE$R_FILL_5_, end variant5 end group ACE$R_FILL_4_M ! using a {field-type, length, value} scheme. This allows extensibility" ! and compact represe Yntation. !  ! field types are:6 end group ACE$R_RMSATR_TYPE# end variant. end group ACE$R_INFO_DATA+ end group ACE$R_INFO_TYPE caseM group ACE$R_RMSJNL_TYPE ! Used for all 5 RMSJNL_xxx ACEsM STRING ACE$T_VOLNAM = 12 ! Volume name of journal fileT BYTE ACE$B_VOLNAM_LEN ! Length of volume name of journal fileO Z BYTE ACE$B_RJRVER ! RMS journal file structure levelH group ACE$R_FID_OVERLAY ! File-id of journal file variant caseA WORD ACE$W_FID ( 1 to 3 ) ! file id  case1 group ACE$R_FID_FIELDSA WORD ACE$W_FID_NUM ! file number E WORD ACE$W_FID_SEQ ! sequence number 9 [ group ACE$R_FID_RVN_OVERLAY( variant% caseR WORD ACE$W_FID_RVN ! relative volume number % case> group ACE$R_FID_RVN_FIELDSS BYTE ACE$B_FID_RVN ! alternate format RVN e BYTE ACE$B_FID_NMX ! alternate format file number e \xtension B end group ACE$R_FID_RVN_FIELDS, end variant= end group ACE$R_FID_RVN_OVERLAY5 end group ACE$R_FID_FIELDS# end variant0 end group ACE$R_FID_OVERLAY5 group ACE$R_RMSJNL_FLAGS_OVERLAY variant case2 WORD ACE$W_RMSJNL_FLAGS ] case8 group ACE$R_RMSJNL_FLAGS_BITS5 ! journaling disabled' ! (AI, BI, AT only; set by BACKUP); ! BACKUP done on this file;) ! RMS needs to write a backup marker' ! (AI, BI, AT only; set by BACKUP)z BYTE JOURNAL_DISABLED_bits ! COMMENT ADDED BY SDL - JOURNAL_DISABLED_bits contains bits &$ ! JOURNAL_DISABLED through FILL_16_< ^ end group ACE$R_RMSJNL_FLAGS_BITS# end variant9 end group ACE$R_RMSJNL_FLAGS_OVERLAYJ LONG ACE$L_JNLIDX ! journal stream index numberQ BASIC$QUADWORD ACE$Q_CDATE ! creation date/time of journalK LONG ACE$L_BACKUP_SEQNO ! BACKUP sequence number (to' ! find where to start in journal).` BASIC$QUADWORD ACE$Q_MODIFICATION_TIME ! timestamp of _ last backup or last ! journal entry recovered.- end group ACE$R_RMSJNL_TYPE case) group ACE$R_DIRDEF_TYPE< LONG ACE$L_SPARE1 ! For alignmentH LONG ACE$L_SYS_PROT ! Default system protectionG LONG ACE$L_OWN_PROT ! Default owner protectionG LONG ACE$L_GRP_PROT ! Default group protectionG LONG ACE$L_WOR_PROT ! Defau `lt world protection- end group ACE$R_DIRDEF_TYPE caseL group ACE$R_IMAGE_ID_TYPE ! Protected subsystem ACE type< LONG ACE$L_SPARE2 ! For alignmentQ BASIC$QUADWORD ACE$Q_IMAGE_IDS ! Start of the image ids (a$ ! quadword for each identifier)/ end group ACE$R_IMAGE_ID_TYPE caseG group ACE$R_OIL_TYPE ! Object Information Label< a LONG ACE$L_OIL_FLAGS ! For AlignmentE LONG ACE$L_BRAND_NAME ! OIL Type-Specific InfoD STRING ACE$R_CLASS_PROT = 1 ! OIL Class Block* end group ACE$R_OIL_TYPE/ ! - POSIX_OWNER ACE, Persona from Image -? ! Process effective persona derived from image activation.B ! Support for POSIX/COE effective UID/GID identities granted ? ! to a process if the image has this ACE and it is valid. D ! The UID b and GID are extensions to the Persona Security Block  ! (PSBDEF). ! A ! Currently, only the SUID, SGID, GID and POSIX_MODE (GROUP)B ! fields are supported. VMS_GRP_PROT is also used internally. !  caseH group ACE$R_POSIX_OWNER_TYPE ! POSIX_OWNER ACE Type ( group ACE$R_FILL_6_ variant caseG LONG ACE$L_POSIX_FLAGS ! POSIX_OWNER Flags c case. group ACE$R_FILL_7_; ! Validates Posix username 5 ! Validates Posix UIC9 ! Validates Posix User ID: ! Validates Posix Group IDQ ! Validates Posix mode for Group file protection v BYTE USERNAME_VALID_bits ! COMMENT ADDED BY SDL - USERNAME_VALID_bits contai dns bits &" ! USERNAME_VALID through FILL_17_2 end group ACE$R_FILL_7_# end variant, end group ACE$R_FILL_6_H STRING ACE$T_POSIX_USERNAME = 32 ! Posix Username( group ACE$R_FILL_8_ variant case= LONG ACE$L_POSIX_UIC ! Posix UIC case. group ACE$R_FILL_9_K e WORD ACE$W_POSIX_MEM ! Member number in UICJ WORD ACE$W_POSIX_GRP ! Group number in UIC2 end group ACE$R_FILL_9_# end variant, end group ACE$R_FILL_8_< LONG ACE$L_POSIX_UID ! Posix User ID= LONG ACE$L_POSIX_GID ! Posix Group ID3 group ACE$R_POSIX_MODE_OVERLAY variant f caseQ LONG ACE$L_POSIX_MODE ! Posix file protection (mode) case8 group ACE$R_POSIX_MODE_FIELDS4 ! Other Permissions 4 ! Group Permissions 3 ! User Permissions x WORD OTHER_bits ! COMMENT ADDED BY SDL - OTHER_bits contains bits OTHER through FILL_18_< g end group ACE$R_POSIX_MODE_FIELDS case6 group ACE$R_POSIX_MODE_BITS ! - Other Permissions -= ! Posix mode - other execute; ! Posix mode - other write: ! Posix mode - other read ! - Group Permissions -= ! Posix mode - group execute; ! Posix mode - group write: h ! Posix mode - group read ! - User Permissions -< ! Posix mode - user execute: ! Posix mode - user write9 ! Posix mode - user read1 ! Blank bit field ! - SxID Bits -B ! Posix set group ID on executionA ! Posix set user ID on execution~ WO iRD S_IXOTH_bits ! COMMENT ADDED BY SDL - S_IXOTH_bits contains bits S_IXOTH through FILL_19_: end group ACE$R_POSIX_MODE_BITS# end variant7 end group ACE$R_POSIX_MODE_OVERLAYI LONG ACE$L_VMS_GRP_PROT ! Posix to VMS Group Prot.2 end group ACE$R_POSIX_OWNER_TYPE ! End - POSIX_OWNER ACE  end variant# end group ACE$R_ACE_FIELDS end record ACEDEF   wwk杞 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED l( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINmG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > n %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  N DECLARE LONG CONSTANT ACL$K_LENGTH = 12 ! Length of the overhead area N DECLARE LONG CONSTANT ACL$C_LENGTH = 12 ! Length of the overhead area 4 DECLARE LONG CONSTANT ACL$C_FILE = 1 ! FilesB o DECLARE LONG CONSTANT ACL$C_DEVICE = 2 ! MBX, MT, TT, etc.K DECLARE LONG CONSTANT ACL$C_JOBCTL_QUEUE = 3 ! Job controller queueV DECLARE LONG CONSTANT ACL$C_COMMON_EF_CLUSTER = 4 ! Common event flag clustersP DECLARE LONG CONSTANT ACL$C_LOGICAL_NAME_TABLE = 5 ! Logical name tables9 DECLARE LONG CONSTANT ACL$C_PROCESS = 6 ! ProcessT DECLARE LONG CONSTANT ACL$C_GROUP_GLOBAL_SECTION = 7 ! Group global sectionsV DECLARE LONG CONSTANT ACL$C_SYSTEM_GLOBApL_SECTION = 8 ! System global sections? DECLARE LONG CONSTANT ACL$C_CAPABILITY = 9 ! CapabilityH DECLARE LONG CONSTANT ACL$C_EVENT_FACILITY = 10 ! Event facilityC DECLARE LONG CONSTANT ACL$C_LOCK = 11 ! Lock block/resourceC DECLARE LONG CONSTANT ACL$C_VOLUME = 12 ! Disk volume (set)E DECLARE LONG CONSTANT ACL$C_MAX_OBJECT = 13 ! max object codeH DECLARE LONG CONSTANT ACL$C_NUM_OBJECTS = 12 ! number of objectsH DECLARE LONG CONSTANT ACL$K_NUM_qOBJECTS = 12 ! number of objects ! Action codesD DECLARE LONG CONSTANT ACL$C_ADDACLENT = 1 ! Add an ACL entryG DECLARE LONG CONSTANT ACL$C_DELACLENT = 2 ! Delete an ACL entryG DECLARE LONG CONSTANT ACL$C_MODACLENT = 3 ! Modify an ACL entryG DECLARE LONG CONSTANT ACL$C_FNDACLENT = 4 ! Locate an ACL entryL DECLARE LONG CONSTANT ACL$C_FNDACETYP = 5 ! Locate specific ACE typeQ DECLARE LONG CONSTANT ACL$C_DELETEACL = 6 ! Delete ACL, leaving protecrted> DECLARE LONG CONSTANT ACL$C_READACL = 7 ! Read the ACLH DECLARE LONG CONSTANT ACL$C_ACLLENGTH = 8 ! Get the ACL's lengthC DECLARE LONG CONSTANT ACL$C_READACE = 9 ! Read a single ACEE DECLARE LONG CONSTANT ACL$C_RLOCK_ACL = 10 ! Read lock on ACLF DECLARE LONG CONSTANT ACL$C_WLOCK_ACL = 11 ! Write lock on ACLL DECLARE LONG CONSTANT ACL$C_UNLOCK_ACL = 12 ! Release exclusive lockH DECLARE LONG CONSTANT ACL$C_GRANT_ACE = 13 ! ACE granting accesssH DECLARE LONG CONSTANT ACL$C_NEXT_ACE = 14 ! Increment ACE numberG DECLARE LONG CONSTANT ACL$C_DELETE_ALL = 15 ! Delete entire ACLM DECLARE LONG CONSTANT ACL$C_RESERVED_ITEM_2 = 16 ! Reserved item codeM DECLARE LONG CONSTANT ACL$C_RESERVED_ITEM_3 = 17 ! Reserved item codeF DECLARE LONG CONSTANT ACL$S_ADDACLENT = 255 ! Add an ACL entryI DECLARE LONG CONSTANT ACL$S_DELACLENT = 255 ! Delete an ACL entryI DECLARE LONG CONSTANT ACL$S_MODACLENT = t255 ! Modify an ACL entryI DECLARE LONG CONSTANT ACL$S_FNDACLENT = 255 ! Locate an ACL entryN DECLARE LONG CONSTANT ACL$S_FNDACETYP = 255 ! Locate specific ACE typeS DECLARE LONG CONSTANT ACL$S_DELETEACL = 255 ! Delete ACL, leaving protected@ DECLARE LONG CONSTANT ACL$S_READACL = 512 ! Read the ACLH DECLARE LONG CONSTANT ACL$S_ACLLENGTH = 4 ! Get the ACL's lengthE DECLARE LONG CONSTANT ACL$S_READACE = 255 ! Read a single ACED DECLARE LONG CONuSTANT ACL$S_RLOCK_ACL = 4 ! Read lock on ACLE DECLARE LONG CONSTANT ACL$S_WLOCK_ACL = 4 ! Write lock on ACLG DECLARE LONG CONSTANT ACL$S_UNLOCK_ACL = 4 ! Remove lock on ACLI DECLARE LONG CONSTANT ACL$S_GRANT_ACE = 255 ! ACE granting accessG DECLARE LONG CONSTANT ACL$S_NEXT_ACE = 4 ! Increment ACE numberH DECLARE LONG CONSTANT ACL$S_DELETE_ALL = 255 ! Delete entire ACLN DECLARE LONG CONSTANT ACL$S_RESERVED_ITEM_2 = 255 ! Reserved item codeN DEvCLARE LONG CONSTANT ACL$S_RESERVED_ITEM_3 = 255 ! Reserved item codeU DECLARE LONG CONSTANT ACL$C_MAX_SEGMENT_SIZE = 512 ! Maximum ACL segemnt sizeU DECLARE LONG CONSTANT ACL$K_MAX_SEGMENT_SIZE = 512 ! Maximum ACL segemnt size- DECLARE LONG CONSTANT ACL$S_ACLDEF = 16 record ACLDEFV LONG ACL$L_FLINK ! Forward link to next list in the queue S LONG ACL$L_BLINK ! Back link to previous list in queue F WORD ACL$W_SIZE ! Total size of the list C BYTE ACL$B_TYPE ! Structure type code A BYTE ACLDEF$$_FILL_1 ! Spare unused byte S LONG ACL$L_LIST ! Start of the Access Control Entries  ! Object types end record ACLDEF  wwxT ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED y( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINzG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > { %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! D ! $UTCBLKDEF defines the STARLET structure for UTC based times. !  ! -0 DECLARE LONG CONSTANT UTCBLK$S_UTCBLK = 16 record UTCBLKV BASIC$QUADWORD UTCBLK$O_TIME_BLOCK ( 1 to 2 ) ! Double quad for entire time end record UTCBLK  ww}o ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ~( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + !  ! Miscellaneous constants !  ! -Z DECLARE LONG CONSTANT acme$k_maxchar_ITEM = 16383 ! Maximum length (in characters) ! of an item[ DECLARE LONG CONSTANT acme$k _maxchar_doi_name = 32 ! Maximum length (in characters) ! of a DOI name stringb DECLARE LONG CONSTANT acme$k_maxchar_principal_name = 512 ! Maximum length (in characters)" ! of a principal name stringX DECLARE LONG CONSTANT acme$k_max_num_agents = 32 ! Maximum number of ACME agents ! that can be loadedV DECLARE LONG CONSTANT acme$k_max_cred_type = 32 ! Maximum number of credential ! types supported ! + !  ! ACME agent id ! H ! An ACME agent id is a 32-bit unsigned value, encoded as follows: ! P ! Remote host address type is a 16-bit unsigned value, encoded as follows: ! * ! 3 2 2 1 1H ! 1 4 3 6 5 8 7 0I ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+I ! | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |I ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+H ! ^.............................^ ^ ^...........................^H ! | | | | |d ! | | | +---------------------------+-- Bit [14:0] = ACME number* ! | | |n ! | | +-------------------------------- Bit [15] = 0 ==> Ancillary agentm ! | |  1 ==> Registered DOI( ! | |f ! +-----------------------------+---------------------------------- Bit [31:16] = Server number !  ! -; DECLARE LONG CONSTANT acmeid$m_acme_num = x'00007FFF'A DECLARE LONG CONSTANT acmeid$m_doi_designator = x'00008000'= DECLARE LONG CONSTANT acmeid$m_server_num = x'FFFF0000'/ DECLARE LONG CONSTANT acmeid$s_acmeid = 4 record acmeid group acmeid$r_fill_20_ vari ant case; LONG acmeid$l_agent_id ! Composite id case) group acmeid$r_fill_21_* ! ACME agent number' ! Registered DOI& ! Server numberz LONG acme_num_bits ! COMMENT ADDED BY SDL - acme_num_bits contains bits acme_num through server_num- end group acmeid$r_fill_21_ end variant$ end group acmeid$r_fill_20_ end record acmeid / DECLARE LONG CONSTANT acmeid$k_length = 4 ! + ! ) ! $ACM Function Codes and Modifiers ! J ! Function code plus modifiers form a 32-bit unsigned value, encoded ! as follows: ! * ! 3 2 2 1 1H ! 1 4 3 6 5 8 7 0I ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+I ! | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |I ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+H ! ^.............................^ ^.................^ ^.........^H ! | | | | | |f ! | | | | +---------+-- Bit [5:0] = function code< ! | | | |q ! | | +-----------------+-------------- Bit [15 :06] = cross function modifiers( ! | |t ! +-----------------------------+---------------------------------- Bit [31:16] = function specific modifiers ! - !  ! Function codes !  ! Function code valuesW DECLARE LONG CONSTANT acme$_authenticate_principal = 1 ! AUTHENTICATE_PRINCIPALI DECLARE LONG CONSTANT acme$_change_password = 2 ! CHANGE_PASSWORDQ DECLARE LONG CONSTANT acme$_release_credentials = 3 ! RELE ASE_CREDENTIALS5 DECLARE LONG CONSTANT acme$_query = 4 ! QUERY5 DECLARE LONG CONSTANT acme$_event = 5 ! EVENT ! Function code valueD DECLARE LONG CONSTANT acme$_free_context = 63 ! FREE_CONTEXT ! Function code valuesZ DECLARE LONG CONSTANT acme$_fc_authenticate_principal = 1 ! AUTHENTICATE_PRINCIPALL DECLARE LONG CONSTANT acme$_fc_change_password = 2 ! CHANGE_PASSWORDT DECLARE LONG CONSTANT acme$_fc_release_credentials = 3 ! RELEASE_CREDE NTIALS8 DECLARE LONG CONSTANT acme$_fc_query = 4 ! QUERY8 DECLARE LONG CONSTANT acme$_fc_event = 5 ! EVENT ! Function code valueG DECLARE LONG CONSTANT acme$_fc_free_context = 63 ! FREE_CONTEXT; DECLARE LONG CONSTANT acmefc$m_function = x'0000003F'< DECLARE LONG CONSTANT acmefc$m_modifiers = x'FFFFFFC0'8 DECLARE LONG CONSTANT acme$m_noaudit = x'00000040'8 DECLARE LONG CONSTANT acme$m_timeout = x'00000080'7 DECLARE LONG CONSTANT acme$m_ucs2_ 4 = x'00008000'D DECLARE LONG CONSTANT acme$m_acquire_credentials = x'00010000'> DECLARE LONG CONSTANT acme$m_merge_persona = x'00020000'= DECLARE LONG CONSTANT acme$m_copy_persona = x'00040000'A DECLARE LONG CONSTANT acme$m_override_mapping = x'00080000'F DECLARE LONG CONSTANT acme$m_native_authentication = x'00100000'@ DECLARE LONG CONSTANT acme$m_noauthorization = x'00200000'E DECLARE LONG CONSTANT acme$m_foreign_policy_hints = x'00400000'B DECLARE LONG CONSTANT acme$m_default_principal = x'00800000'/ DECLARE LONG CONSTANT acmefc$s_acmefc = 4 record acmefc group acmefc$r_overlay variant ! 0 ! Overall function code/modifiers structure !  case) group acmefc$r_fill_22_ variant caseF LONG acmefc$l_fcode_struct ! Composite field case/ group acmefc$r_fill_23_ ! Function code ! Function modifiers LONG function_bits ! COMMENT ADDED BY SDL - function_bits contains bits function through modifiers3 end group acmefc$r_fill_23_ end variant- end group acmefc$r_fill_22_ ! 1 ! Modifiers applicable to all function codes !  case) group acmefc$r_fill_24_ variant  case+ LONG acme$l_gen_mod case- group acme$r_fill_25_0 ! Suppress auditing. ! Timed operationA ! Strings are in 4-byte UCS-2 format LONG gen_mod_fill_1_bits ! COMMENT ADDED BY SDL - gen_mod_fill_1_bits contains bits gen_mod_fill_1 & ! through gen_mod_fill_31 end group acme$r_fill_25_ end variant- end group acmefc$r_fill_24_ ! E ! Modifiers applicable to AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD !  case) group acmefc$r_fill_26_ variant case, LONG acme$l_auth_mod case- group acme$r_fill_27_2 ! Acquire credentials:  ! Merge with base credentials4 ! Copy base credentialsC ! Override VMS username mapping checks> ! Allow native DOI authentication8 ! Skip authorization checks@ ! Honor NOAUDIT and NOAUTHORIZATION& ! for non-native authentications9 ! Use principal name and DOI ! designator defined by the ! primary persona extensionu LONG auth_mod_fill_1_bits ! COMMENT ADDED BY SDL - auth_mod_fill_1_bits contains bits &* ! auth_mod_fill_1 through auth_mod_fill_21 end group acme$r_fill_27_ end variant- end group acmefc$r_fill_26_ end variant# end group acmefc$r_overlay end record acmefc / DECLARE LONG CONSTANT acmefc$k_length = 4 ! + !  ! $ACM Item Codes ! B  ! Item codes are 16-bit unsigned values, encoded as follows: ! ! 1( ! 5 8 7 0) ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+) ! | | | | | | | | | | | | | | | | |) ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+( ! ^ ^ ^ ^ ^( ! | | | | |< ! | | | +-----------------------+-- Bit [12:0] = item ! | | |e ! | | +---------------------------- Bit [13] = 0 ==> not subject to VTF-7  <-> UCS conversiona ! | | 1 ==> subject to VTF-7 <-> UCS conversion ! | |H ! | +------------------------------ Bit [14] = 0 ==> input itemI ! | 1 ==> output item ! |I ! +-------------------------------- Bit [15] = 0 ==> common itemP ! 1 ==> ACME specific item !  ! - ! Specialty ! Cross function- ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ! RELEASE_CREDENTIALS ! QUERY ! EVENT7 DECLARE LONG CONSTANT acmeic$M_ITEM = x'00001FFF'6 DECLARE LONG CONSTANT acmeic$m_ucs = x'00002000'9 DECLARE LONG CONSTANT acmeic$m_output = x'00004000'@ DECLARE LONG CONSTANT acmeic$m_acme_specific = x'00008000'/ DECLARE LONG CONSTANT acmeic$s_acmeic = 2 record acmeic group acmeic$r_fill_28_ variant case>  WORD acmeic$w_item_code ! Composite field case) group acmeic$r_fill_29_% ! Ranged valueF ! 0 ==> not subject to VTF-7 <-> UCS conversion0 ! 1 ==> subject to VTF-7 <-> UCS conversion) ! 0 ==> input item ! 1 ==> output item* ! 0 ==> common item ! 1 ==> ACME specific itemq WORD ITEM_bits ! COMMENT ADDED BY SDL - ITEM_bits contains bits ITEM through acme_specific- end group acmeic$r_fill_29_ end variant$ end group acmeic$r_fill_28_ end record acmeic / DECLARE LONG CONSTANT acmeic$k_length = 2 ! ? ! Input item codes not subject to VTF-7 <-> UCS conversion ! 1 DECLARE LONG CONSTANT acme$_min_spec_in = 1 ! Specialty itemsZ DECLARE LONG CONSTANT acme$_null = 1 ! Place holder item (skip entry in item list)R DECLARE LONG CONSTANT acme$_chain = 2 ! Chain to another item list segment1 DECLARE LONG CONSTANT acme$_max_spec_in = 22 DECLARE LONG CONSTANT acme$_min_gen_in = 256 ! Generic itemsZ DECLARE LONG CONSTANT acme$_access_mode = 256 ! Access mode for persona operationsR DECLARE LONG CONSTANT acme$_dialogue_support = 257 ! Dialogue capabilities[ DECLARE LONG CONSTANT acme$_context_acme_id = 258 ! ID of ACME for specific contextL DECLARE LONG CONSTANT acme$_persona_handle_in = 259 ! Target personaW DECLARE LONG CONSTANT acme$_target_doi_id = 260 ! ID of DOI for a directed callX DECLARE LONG CONSTANT acme$_timeout_interval = 261 ! Timeout interval in seconds2 DECLARE LONG CONSTANT acme$_max_gen_in = 2617 DECLARE LONG CONSTANT acme$_min_auth_pwd_in = 5123 ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD itemsS DECLARE LONG CONSTANT acme$_auth_mechanism = 512 ! Authentication mechanismI DECLARE LONG CONSTANT acme$_challenge_data = 513 ! Challenge dataA DECLARE LONG CONSTANT acme$_logon_type = 514 ! Logon typea DECLARE LONG CONSTANT acme$_new_password_flags = 515 ! New password request/control flagsS DECLARE LONG CONSTANT acme$_remote_host_address = 516 ! Remote host addressd DECLARE LONG CONSTANT acme$_remote_host_address_type = 517 ! Remote host address type/formatG DECLARE LONG CONSTANT acme$_response_data = 518 ! Response data7 DECLARE LONG CONSTANT acme$_max_ auth_pwd_in = 5187 DECLARE LONG CONSTANT acme$_min_rel_cred_in = 768 ! RELEASE_CREDENTIALS itemsd DECLARE LONG CONSTANT acme$_credentials_type = 768 ! Index associated with persona extension7 DECLARE LONG CONSTANT acme$_max_rel_cred_in = 7685 DECLARE LONG CONSTANT acme$_min_query_in = 1024 ! QUERY itemsD DECLARE LONG CONSTANT acme$_query_key_type = 1024 ! Key typeF DECLARE LONG CONSTANT acme$_query_key_value = 1025 ! Key valueb DECLARE LO NG CONSTANT acme$_query_type = 1026 ! Type of data to be returned via QUERY_DATA5 DECLARE LONG CONSTANT acme$_max_query_in = 10265 DECLARE LONG CONSTANT acme$_min_event_in = 1280 ! EVENT itemsT DECLARE LONG CONSTANT acme$_event_data_in = 1280 ! Event function input dataB DECLARE LONG CONSTANT acme$_event_type = 1281 ! Event type5 DECLARE LONG CONSTANT acme$_max_event_in = 1281 ! ; ! Input item codes subject to VTF-7 <-> UCS conversion ! 7  DECLARE LONG CONSTANT acme$_min_gen_in_ucs = 8448 ! Generic items` DECLARE LONG CONSTANT acme$_context_acme_name = 8448 ! Name of ACME for specific contextQ DECLARE LONG CONSTANT acme$_locale = 8449 ! Language specifier (location)\ DECLARE LONG CONSTANT acme$_target_doi_name = 8450 ! Name of DOI for a directed callU DECLARE LONG CONSTANT acme$_server_name_in = 8451 ! ACME relative server nameO DECLARE LONG CONSTANT acme$_service_name = 8452 ! Caller's service name7 DECLARE LONG CONSTANT acme$_max_gen_in_ucs = 8452< DECLARE LONG CONSTANT acme$_min_auth_pwd_in_ucs = 87043 ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD itemsI DECLARE LONG CONSTANT acme$_access_port = 8704 ! Access port nameP DECLARE LONG CONSTANT acme$_new_password_1 = 8705 ! New primary passwordR DECLARE LONG CONSTANT acme$_new_password_2 = 8706 ! New secondary passwordT DECLARE LONG CONSTANT acme$_new_password_system = 8707 ! New system passwordH DECLARE LONG CONSTANT acme$_password_1 = 8708 ! Primary passwordJ DECLARE LONG CONSTANT acme$_password_2 = 8709 ! Secondary passwordL DECLARE LONG CONSTANT acme$_password_system = 8710 ! System passwordM DECLARE LONG CONSTANT acme$_principal_name_in = 8711 ! Principal name[ DECLARE LONG CONSTANT acme$_remote_host_fullname = 8712 ! Remote host expanded nameN DECLARE LONG CONSTANT acme$_remote_host_name = 8713 ! Remote host nameL DECL ARE LONG CONSTANT acme$_remote_username = 8714 ! Remote username< DECLARE LONG CONSTANT acme$_max_auth_pwd_in_ucs = 8714< DECLARE LONG CONSTANT acme$_min_rel_cred_in_ucs = 8960 ! RELEASE_CREDENTIALS itemsd DECLARE LONG CONSTANT acme$_credentials_name = 8960 ! Name associated with persona extension< DECLARE LONG CONSTANT acme$_max_rel_cred_in_ucs = 8960 ! @ ! Output item codes not subject to VTF-7 <-> UCS conversion ! 6 DECLARE LONG CONSTANT acme$_ min_spec_out = 16385 ! Specialty items: DECLARE LONG CONSTANT acme$_phase_transition = 163856 DECLARE LONG CONSTANT acme$_max_spec_out = 163855 DECLARE LONG CONSTANT acme$_min_gen_out = 16640 ! Generic itemsS DECLARE LONG CONSTANT acme$_persona_handle_out = 16640 ! Persona acted upon5 DECLARE LONG CONSTANT acme$_max_gen_out = 16640: DECLARE LONG CONSTANT acme$_min_auth_pwd_out = 168963 ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD itemsa DECLARE LONG CONSTANT acme$_authenticating_doi_id = 16896 ! ID of DOI accepting principalQ DECLARE LONG CONSTANT acme$_logon_information = 16897 ! Logon informationZ DECLARE LONG CONSTANT acme$_mapping_acme_id = 16898 ! ID of ACME mapping principal: DECLARE LONG CONSTANT acme$_max_auth_pwd_out = 168987 DECLARE LONG CONSTANT acme$_min_query_out = 17408 ! QUERY itemsS DECLARE LONG CONSTANT acme$_query_data = 17408 ! Query function output data7 DECLARE LO NG CONSTANT acme$_max_query_out = 174087 DECLARE LONG CONSTANT acme$_min_event_out = 17664 ! EVENT itemsW DECLARE LONG CONSTANT acme$_event_data_out = 17664 ! Event function output data7 DECLARE LONG CONSTANT acme$_max_event_out = 17664 ! < ! Output item codes subject to VTF-7 <-> UCS conversion ! 9 DECLARE LONG CONSTANT acme$_min_gen_out_ucs = 24832 ! Generic itemsW DECLARE LONG CONSTANT acme$_server_name_out = 24832 ! ACME relative server name9 DECLARE LONG CONSTANT acme$_max_gen_out_ucs = 24832> DECLARE LONG CONSTANT acme$_min_auth_pwd_out_ucs = 250883 ! AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD itemse DECLARE LONG CONSTANT acme$_authenticating_doi_name = 25088 ! Name of DOI accepting principalX DECLARE LONG CONSTANT acme$_mapped_vms_username = 25089 ! Resultant VMS Username^ DECLARE LONG CONSTANT acme$_mapping_acme_name = 25090 ! Name of ACME mapping principalY DECLARE LONG CONSTANT acme$_principal_name_out = 25091 ! Processed principal name> DECLARE LONG CONSTANT acme$_max_auth_pwd_out_ucs = 25091 !  ! Logon (Job) Type Values ! . DECLARE LONG CONSTANT acme$k_network = 1, DECLARE LONG CONSTANT acme$k_batch = 2, DECLARE LONG CONSTANT acme$k_local = 3- DECLARE LONG CONSTANT acme$k_dialup = 4- DECLARE LONG CONSTANT acme$k_remote = 5 ! + !  ! Revision Level ! F ! Revision level is a 16-bit unsigned value, encoded as follows: ! ! 1( ! 5 8 7 0) ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+) ! | | | | | | | | | | | | | | | | |) ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+( ! ^.............^ ^.............^( ! | | | |I ! | | +-------------+-- Bit [7:0] = revision minor id ! | |I ! +-------------+------------------ Bit [15:8] = revision major id !  ! -<  DECLARE LONG CONSTANT acmerevlvl$k_minor_id_bitpos = 0< DECLARE LONG CONSTANT acmerevlvl$k_major_id_bitpos = 87 DECLARE LONG CONSTANT acmerevlvl$s_acmerevlvl = 2 record acmerevlvl$ group acmerevlvl$r_fill_30_ variant caseF WORD acmerevlvl$w_revision_level ! Composite field case- group acmerevlvl$r_fill_31_K BYTE acmerevlvl$b_minor_id ! Revision level minor idK BYTE acmerevlvl$b_major_id ! Revision level major id1 end group acmerevlvl$r_fill_31_ end variant( end group acmerevlvl$r_fill_30_ end record acmerevlvl 3 DECLARE LONG CONSTANT acmerevlvl$k_length = 2 ! + ! ! Authentication Mechanism ! P ! Authentication mechanism is a 16-bit unsigned value, encoded as follows: ! * ! 3 2 2 1 1H ! 1  4 3 6 5 8 7 0I ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+I ! | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |I ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+H ! ^.............................^ ^ ^...........................^H ! | | | | |q ! | | | +---------------------------+-- B it [14:0] = authentication mechanism* ! | | |q ! | | +-------------------------------- Bit [15] = 0 ==> standard mechanismx ! | | 1 ==> vendor specific mechanism( ! | |o ! +-----------------------------+---------------------------------- Bit [31:16] = vendor's facility code !  ! - !   ! Standard mechanism types ! I DECLARE LONG CONSTANT acmemech$k_password = 1 ! Username-PasswordT DECLARE LONG CONSTANT acmemech$k_challenge_response = 2 ! Challenge-ResponseC DECLARE LONG CONSTANT acmemech$m_mechanism_type = x'00007FFF'F DECLARE LONG CONSTANT acmemech$m_facility_specific = x'00008000'3 DECLARE LONG CONSTANT acmemech$s_acmemech = 4 record acmemech" group acmemech$r_fill_32_ variant case?  WORD acmemech$w_mechanism ! Composite field case+ group acmemech$r_fill_33_1 ! Authentication mechanism1 ! 0 ==> standard mechanism( ! 1 ==> facility specific mechanism WORD mechanism_type_bits ! COMMENT ADDED BY SDL - mechanism_type_bits contains bits mechanism_type through & ! facility_specific/ end group acmemech$r_fill_33_ end variant& end group acmemech$r_fill_32_N WORD acmemech$w_facility ! Vendor's assigned facility code end record acmemech 1 DECLARE LONG CONSTANT acmemech$k_length = 4 ! + ! ! Remote Host Address Type ! P ! Remote host address type is a 16-bit unsigned value, encoded as follows: ! * ! 3 2 2 1 1H ! 1 4 3 6 5 8 7 0I ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+I ! | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |I ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+H ! ^.............................^ ^ ^...........................^H ! | | | | |z ! | | | +---------------------------+-- Bit [14:0] = network protocol (address format)* ! |  | |p ! | | +-------------------------------- Bit [15] = 0 ==> standard protocolw ! | | 1 ==> vendor specific protocol( ! | |o ! +-----------------------------+---------------------------------- Bit [31:16] = vendor's facility code !  ! - !  ! Standard protocol types ! G DECLARE LONG CONSTANT acmehat$k_ decnet_iv = 1 ! DECnet Phase IVC DECLARE LONG CONSTANT acmehat$k_decnet_osi = 2 ! DECnet OSIH DECLARE LONG CONSTANT acmehat$k_ip_v4 = 3 ! Internet Protocol V4H DECLARE LONG CONSTANT acmehat$k_ip_v6 = 4 ! Internet Protocol V6A DECLARE LONG CONSTANT acmehat$m_protocol_type = x'00007FFF'E DECLARE LONG CONSTANT acmehat$m_facility_specific = x'00008000'1 DECLARE LONG CONSTANT acmehat$s_acmehat = 4 record acmehat! group acmehat$r_fill_34_  variant case> WORD acmehat$w_protocol ! Composite field case* group acmehat$r_fill_35_8 ! Network protocol/address format0 ! 0 ==> standard protocol' ! 1 ==> facility specific protocol WORD protocol_type_bits ! COMMENT ADDED BY SDL - protocol_type_bits contains bits protocol_type through & ! facility_specific. end group acmehat$r_fill_35_ end variant% end group acmehat$r_fill_34_N WORD acmehat$w_facility ! Vendor's assigned facility code end record acmehat 0 DECLARE LONG CONSTANT acmehat$k_length = 4 ! + ! - ! Password change request control flags !  ! -3 DECLARE LONG CONSTANT acmepwdflg$k_system = 0= DECLARE LONG CONSTANT acmepwdflg$m_system = x'00000001'7 DECLARE LONG CONSTANT acmepwdflg$k_password_1 = 1A DECLARE LONG CONSTANT acmepwdflg$m_password_1 = x'00000002'7 DECLARE LONG CONSTANT acmepwdflg$k_password_2 = 2A DECLARE LONG CONSTANT acmepwdflg$m_password_2 = x'00000004'6 DECLARE LONG CONSTANT acmepwdflg$k_max_flags = 37 DECLARE LONG CONSTANT acmepwdflg$k_specified = 31@ DECLARE LONG CONSTANT acmepwdflg$m_specified = x'80000000'B DECLARE LONG CONSTANT acmepwdflg$m_valid_flags = x'00000007'E DECLARE LONG CONSTANT acmepwdflg$m_password_flags = x'7FFFFFFF'7 DECLARE LONG CONSTANT acmepwdflg$s_acmepwdflg = 4 record acmepwdflg# group acmepwdflg$r_overlay variant case- group acmepwdflg$r_fill_36_ variant caseJ LONG acmepwdflg$l_flags_struct ! Composite field case3 group acmepwdflg$r_fill_37_= ! Request system password change8  ! Request password 1 change8 ! Request password 2 change= ! Used internally by the service( ! to indicate flags reflect caller) ! specified NEW_PASSWORD_FLAGS item" ! Caller's setting is ignoredy LONG system_bits ! COMMENT ADDED BY SDL - system_bits contains bits system through specified7 end group acmepwdflg$r_fill_37_ end variant1 end group acmepwdflg$r_fill_36_ case- ! Currently defined flags( ! Non-reserved flags~ BYTE valid_flags_bits ( 4 ) ! COMMENT ADDED BY SDL - valid_flags_bits contains bits valid_flags through & ! password_flags end variant' end group acmepwdflg$r_overlay end record acmepwdflg 3 DECLARE LONG CONSTANT acmepwdflg$k_length = 4 ! + ! & ! $ACM Item Set Message Category ! J ! Message Categories are 16-bit unsigned values, encoded as follows: ! ! 1( ! 5 8 7 0) ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+) ! | | | | | | | | | | | | | | | | |) ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+( ! ^ ^ ^ ^( ! | | | |D ! | | +-------------------------+-- Bit [13:0] = message type ! | |e ! | +------------------ ------------ Bit [14] = 0 ==> not subject to VTF-7 <-> UCS conversiona ! | = 1 ==> subject to VTF-7 <-> UCS conversion ! |I ! +-------------------------------- Bit [15] = 0 ==> common itemP ! 1 ==> ACME specific item !  ! -7 DECLARE LONG CONSTANT acmemc$m_type = x'00003FFF'6 DECLARE LONG CONSTANT acmemc$m_ucs = x'00004000'@ DECLARE LONG CONSTANT ac memc$m_acme_specific = x'00008000'/ DECLARE LONG CONSTANT acmemc$s_acmemc = 2 record acmemc group acmemc$r_fill_38_ variant case> WORD acmemc$w_msg_code ! Composite field case) group acmemc$r_fill_39_% ! Ranged valueF ! 0 ==> not subject to VTF-7 <-> UCS conversion0 ! 1 ==> subject to VTF-7 <-> UCS conversion. ! 0 ==> common category# ! 1 ==> ACME specific categoryq WORD type_bits ! COMMENT ADDED BY SDL - type_bits contains bits type through acme_specific- end group acmemc$r_fill_39_ end variant$ end group acmemc$r_fill_38_ end record acmemc / DECLARE LONG CONSTANT acmemc$k_length = 2 ! ( ! Generic output message categories ! . ! These are all subject to UCS conversion ! 8 DECLARE LONG CONST ANT acmemc$k_min_gen_msg = 16384E DECLARE LONG CONSTANT acmemc$k_general = 16384 ! General textC DECLARE LONG CONSTANT acmemc$k_header = 16385 ! Header textE DECLARE LONG CONSTANT acmemc$k_trailer = 16386 ! Trailer textM DECLARE LONG CONSTANT acmemc$k_selection = 16387 ! Acceptable choicesP DECLARE LONG CONSTANT acmemc$k_dialogue_alert = 16388 ! Alert (advisory)8 DECLARE LONG CONSTANT acmemc$k_max_gen_msg = 16388 ! 1 ! LOGINOUT related output  message categories ! . ! These are all subject to UCS conversion ! : DECLARE LONG CONSTANT acmemc$k_min_logon_msg = 16640a DECLARE LONG CONSTANT acmemc$k_system_identification = 16640 ! System identification textN DECLARE LONG CONSTANT acmemc$k_system_notices = 16641 ! System noticesQ DECLARE LONG CONSTANT acmemc$k_welcome_notices = 16642 ! Welcome notices,L DECLARE LONG CONSTANT acmemc$k_logon_notices = 16643 ! Logon noticesR DECLARE LONG  CONSTANT acmemc$k_password_notices = 16644 ! Password noticesJ DECLARE LONG CONSTANT acmemc$k_mail_notices = 16645 ! MAIL notices: DECLARE LONG CONSTANT acmemc$k_max_logon_msg = 16645 ! + ! ! ACMESB - ACM Status Block !  ! -0 DECLARE LONG CONSTANT acmesb$s_acmesb = 16 record acmesb= LONG acmesb$l_status ! Primary statusL LONG acmesb$l_secondary_status ! Auxillary (privileged) statusW acmeid acmesb$l_acme_id ! ID of ACME/DOI reporting specific statusG LONG acmesb$l_acme_status ! ACME/DOI specific status end record acmesb 0 DECLARE LONG CONSTANT acmesb$k_length = 16 ! + ! ) ! ACMECB - ACM Communications Buffer !  ! -= DECLARE LONG CONSTANT acmedlogflg$m_input = x'00000001'> DECLARE LONG CONSTANT acmedlogflg$m_noecho = x'00000002'A DECLARE LONG CONSTANT acmedlogflg$m_specified = x'80000000'C  DECLARE LONG CONSTANT acmedlogflg$m_valid_flags = x'00000003'F DECLARE LONG CONSTANT acmedlogflg$m_dialogue_flags = x'7FFFFFFF'9 DECLARE LONG CONSTANT acmedlogflg$s_acmedlogflg = 4 record acmedlogflg$ group acmedlogflg$r_overlay variant case. group acmedlogflg$r_fill_40_ variant caseK LONG acmedlogflg$l_flags_struct ! Composite field  case4 group acmedlogflg$r_fill_41_0 ! Response requiredC ! When prompting, do not echo response= ! Used internally by the service( ! to indicate flags reflect caller' ! specified DIALOGUE_SUPPORT item" ! Caller's setting is ignoredv LONG input_bits ! COMMENT ADDED BY SDL - input_bits contains bits input through specified8  end group acmedlogflg$r_fill_41_ end variant2 end group acmedlogflg$r_fill_40_ case- ! Currently defined flags( ! Non-reserved flags~ BYTE valid_flags_bits ( 4 ) ! COMMENT ADDED BY SDL - valid_flags_bits contains bits valid_flags through & ! dialogue_flags end variant( end group acmedlogflg$r_overlay end record acmedlogflg 4 DECLARE LONG CONSTANT acmedlogflg$k_length = 44 DECLARE LONG CONSTANT acmeis$s_acmeitmset = 24 record acmeitmsetH acmedlogflg acmeis$l_flags ! Item set processing flagsQ acmeic acmeis$w_item_code ! Item code reflecting the nature of& ! information provided/requested# group acmeis$r_itm_msg_ctl variant caseN WORD acmeis$w_max_length ! Maximum length of an input data caseO  acmemc acmeis$w_msg_type ! Message category for output data end variant' end group acmeis$r_itm_msg_ctlC BASIC$QUADWORD acmeis$q_data_1 ! Data 1 (prompt text)H BASIC$QUADWORD acmeis$q_data_2 ! Data 2 (default response) end record acmeitmset 0 DECLARE LONG CONSTANT acmeis$k_length = 245 DECLARE LONG CONSTANT acmecb$k_minor_id_000 = 01 DECLARE LONG CONSTANT acmecb$k_minor_id = 05 DECLARE LONG CON STANT acmecb$k_major_id_001 = 11 DECLARE LONG CONSTANT acmecb$k_major_id = 13 DECLARE LONG CONSTANT acmecb$k_revision = 2560 DECLARE LONG CONSTANT acmecb$s_acmecb = 24 record acmecbR BASIC$QUADWORD acmecb$q_context_id ! ID of associated ACM Request BlockG WORD acmecb$w_size ! Structure size, in bytesH acmerevlvl acmecb$w_revision_level ! Structure revision levelQ acmeid acmecb$l_acme_id ! ID of ACME/DOI requesting dialogueI LONG acmecb$l_item_set_count ! Number of item set entries LONG acmecb$ps_item_set ! Pointer to item set array end record acmecb 0 DECLARE LONG CONSTANT acmecb$k_length = 24 ! + ! + ! ACMELI - ACM Logon Information Block !  ! -< DECLARE LONG CONSTANT acmelgiflg$k_min_logon_flag = -1> DECLARE LONG CONSTANT acmelgiflg$k_new_mail_at_login = 0H DECLARE LONG CONSTANT acmelgiflg$m_new_mail_ at_login = x'00000001'= DECLARE LONG CONSTANT acmelgiflg$k_password_changed = 1G DECLARE LONG CONSTANT acmelgiflg$m_password_changed = x'00000002'= DECLARE LONG CONSTANT acmelgiflg$k_password_expired = 2G DECLARE LONG CONSTANT acmelgiflg$m_password_expired = x'00000004'= DECLARE LONG CONSTANT acmelgiflg$k_password_warning = 3G DECLARE LONG CONSTANT acmelgiflg$m_password_warning = x'00000008'> DECLARE LONG CONSTANT acmelgiflg$k_password2_changed = 4H  DECLARE LONG CONSTANT acmelgiflg$m_password2_changed = x'00000010'> DECLARE LONG CONSTANT acmelgiflg$k_password2_expired = 5H DECLARE LONG CONSTANT acmelgiflg$m_password2_expired = x'00000020'> DECLARE LONG CONSTANT acmelgiflg$k_password2_warning = 6H DECLARE LONG CONSTANT acmelgiflg$m_password2_warning = x'00000040'; DECLARE LONG CONSTANT acmelgiflg$k_max_logon_flag = 67 DECLARE LONG CONSTANT acmelgiflg$s_acmelgiflg = 4 record acmelgiflg$ group  acmelgiflg$r_fill_42_ variant caseC LONG acmelgiflg$l_logon_flags ! Composite field case- group acmelgiflg$r_fill_43_5 ! User had new MAIL message(s)1 ! Primary password changed: ! Primary password expired on login= ! Primary password expiration imminent3 ! Secondary password changed<  ! Secondary password expired on login? ! Secondary password expiration imminents LONG new_mail_at_login_bits ! COMMENT ADDED BY SDL - new_mail_at_login_bits contains bits &+ ! new_mail_at_login through lgi_flg_fill_11 end group acmelgiflg$r_fill_43_ end variant( end group acmelgiflg$r_fill_42_ end record acmelgiflg 3 DECLARE LONG CONSTANT acmelgiflg$k_length = 48 DECLARE LO NG CONSTANT acmelivms$k_minor_id_000 = 04 DECLARE LONG CONSTANT acmelivms$k_minor_id = 08 DECLARE LONG CONSTANT acmelivms$k_major_id_001 = 14 DECLARE LONG CONSTANT acmelivms$k_major_id = 16 DECLARE LONG CONSTANT acmelivms$k_revision = 2566 DECLARE LONG CONSTANT acmelivms$s_acmelivms = 48 record acmelivmsZ acmeid acmelivms$l_acme_id ! ID of ACME which reported logon informationZ LONG acmelivms$l_phase ! Phase during which info rmation was reportedG WORD acmelivms$w_size ! Structure size, in bytesK acmerevlvl acmelivms$w_revision_level ! Structure revision levelN LONG acmelivms$l_logfail_count ! Number of failed logon attemptsM UTCBLK acmelivms$o_logon_int ! Time of last interactive logonQ UTCBLK acmelivms$o_logon_nonint ! Time of last non-interactive logon end record acmelivms 3 DECLARE LONG CONSTANT acmelivms$k_length = 488  DECLARE LONG CONSTANT acmelidoi$k_minor_id_000 = 04 DECLARE LONG CONSTANT acmelidoi$k_minor_id = 08 DECLARE LONG CONSTANT acmelidoi$k_major_id_001 = 14 DECLARE LONG CONSTANT acmelidoi$k_major_id = 16 DECLARE LONG CONSTANT acmelidoi$k_revision = 2567 DECLARE LONG CONSTANT acmelidoi$s_acmelidoi = 112 record acmelidoiZ acmeid acmelidoi$l_acme_id ! ID of ACME which reported logon informationZ LONG acmelidoi$l_phase ! Phase during which information was reportedG WORD acmelidoi$w_size ! Structure size, in bytesK acmerevlvl acmelidoi$w_revision_level ! Structure revision levelN LONG acmelidoi$l_logfail_count ! Number of failed logon attemptsA UTCBLK acmelidoi$o_logon ! Time of last logonM UTCBLK acmelidoi$o_logon_int ! Time of last interactive logonQ UTCBLK acmelidoi$o_logon_nonint ! Time of last non-interactive logonI  UTCBLK acmelidoi$o_logfail ! Time of last logon failureU UTCBLK acmelidoi$o_logfail_int ! Time of last interactive logon failureY UTCBLK acmelidoi$o_logfail_nonint ! Time of last non-interactive logon failure end record acmelidoi 4 DECLARE LONG CONSTANT acmelidoi$k_length = 1125 DECLARE LONG CONSTANT acmeli$k_minor_id_000 = 01 DECLARE LONG CONSTANT acmeli$k_minor_id = 05 DECLARE LONG CONSTANT acmeli$k_major_id_001 = 11  DECLARE LONG CONSTANT acmeli$k_major_id = 13 DECLARE LONG CONSTANT acmeli$k_revision = 2561 DECLARE LONG CONSTANT acmeli$s_acmeli = 184 record acmeli group acmeli$r_li_doi variant case; BASIC$QUADWORD acmeli$pq_logon_info_doi641 ! Non-native (non-OpenVMS) logon information case) group acmeli$r_li_doi324 LONG acmeli$ps_logon_info_doi321 ! Non-nativ e (non-OpenVMS) logon information5 LONG acmeli$l_logon_info_doi32se ! Sign extension field- end group acmeli$r_li_doi32 end variant" end group acmeli$r_li_doiG WORD acmeli$w_size ! Structure size, in bytesH acmerevlvl acmeli$w_revision_level ! Structure revision level: acmelgiflg acmeli$l_logon_flags ! Logon flags group acmeli$r_li_vms variant  case; BASIC$QUADWORD acmeli$pq_logon_info_vms64) ! Native (OpenVMS) logon information case) group acmeli$r_li_vms324 LONG acmeli$ps_logon_info_vms32) ! Native (OpenVMS) logon information5 LONG acmeli$l_logon_info_vms32se ! Sign extension field- end group acmeli$r_li_vms32 end variant" end group acmeli$r_li_vmsQ acmelivms acmeli$r_lo gon_info_vms ! Native (OpenVMS) logon informationY acmelidoi acmeli$r_logon_info_doi ! Non-native (non-OpenVMS) logon information end record acmeli 1 DECLARE LONG CONSTANT acmeli$k_length = 184V DECLARE LONG CONSTANT acme$k_query_revision_level = 1 ! Service revision levelW DECLARE LONG CONSTANT acme$k_query_acme_count = 2 ! Number of registered agentsP DECLARE LONG CONSTANT acme$k_query_acme_id = 3 ! Specify/report agent idT DECLARE LO NG CONSTANT acme$k_query_acme_name = 4 ! Specify/reprot agent nameA DECLARE LONG CONSTANT acme$k_service_revision_001_000 = 256 !  ! Pre-$ACM definitions... ! L ! Definitions for the $AUTHENTICATE[W], $LOGON[W], and $SET_PASSWORD[W] ! system services. !  ! ! $LOGON[W] function codes. ! P DECLARE LONG CONSTANT ACME$_MAP_TO_USERNAME = 1 ! Map userid to usernameT DECLARE LONG CONSTANT ACME$_VERIFY_PASSWORD_ONLY = 2 ! Authenticate password[ DECLARE LONG CONSTANT ACME$_MAX_FUNCTION_CODE = 3 ! maximum legal function code + 1 ! D ! Item codes. Codes specific to a particular service are noted: !  ! $AU = $AUTHENTICATE[W] ! $LO = $LOGON[W] ! $SP = $SET_PASSWORD[W] ! F DECLARE LONG CONSTANT ACME$_DOMAIN = 2 ! Authentication domain8 DECLARE LONG CONSTANT ACME$_USERID = 3 ! User IDB DECLARE LONG CONSTANT ACME$_PASSWORD = 4 ! Single passwordE DECLARE LONG CONSTANT ACME$_PASSWORD_LIST = 5 ! Password listI DECLARE LONG CONSTANT ACME$_NEW_PASSWORD = 6 ! New password ($SP)[ DECLARE LONG CONSTANT ACME$_OUTPUT_VMS_USERNAME = 7 ! Mapped OpenVMS username ($LO)[ DECLARE LONG CONSTANT ACME$_NOAUTHENTICATION = 8 ! No password authentication ($SP)X DECLARE LONG CONSTANT ACME$_OVERRIDE_POLICY = 9 ! Override password policy ($SP)X DECLARE LONG CONSTANT ACME$_SYNCHRONIZE = 10 ! Set password in all domains ($SP)P DECLARE LONG CONSTANT ACME$_REASON_CODE = 11 ! ACME-specific reason codeV DECLARE LONG CONSTANT ACME$_VALIDATE_ONLY = 12 ! Validate user can login ($LO)e DECLARE LONG CONSTANT ACME$_UAF_RECORD_LOCKED = 13 ! Advisory that UAF record is locked ($LO)E DECLARE LONG CONSTANT ACME$_RESERVED_ITEM_1 = 14 ! Reserved 1E DECLARE LONG CONSTANT ACME$_RESERVED_ITEM_2 = 15 ! Reserved 2T DECLARE LONG CONSTANT ACME$_MAX_ITEM_CODE = 16 ! maximum legal item code + 1 ! !  Structures and constants. ! K DECLARE LONG CONSTANT ACME$C_MAJOR_VERSION = 1 ! Major ACME versionK DECLARE LONG CONSTANT ACME$C_MINOR_VERSION = 0 ! Minor ACME versionM DECLARE LONG CONSTANT ACME$S_MAX_DOMAIN = 256 ! Maximum domain lengthM DECLARE LONG CONSTANT ACME$S_MAX_USERID = 256 ! Maximum userid lengthQ DECLARE LONG CONSTANT ACME$S_MAX_PASSWORD = 256 ! Maximum password length ! N ! The PASSWORD_LIST item code requires a list of password items with eachN ! item specified by a PWDITM structure definition. The list is terminated ! by a longword zero. ! . DECLARE LONG CONSTANT ACME$S_PWDITM = 12 record ACME$R_PWDITM group ACME$R_PWDTRM variant caseC LONG ACME$L_TERMINATOR ! Termination longword case, group ACME$R_PWDNUM_FIELDSP WORD ACME$W_PWDNUM ! Password number (1=primary, etc.)K  WORD ACME$W_RSRVD1 ! reserved for future use, MBZ0 end group ACME$R_PWDNUM_FIELDS end variant end group ACME$R_PWDTRMR LONG ACME$A_OLDPWD ! Descriptor address for old passwordR LONG ACME$A_NEWPWD ! Descriptor address for new password end record ACME$R_PWDITM  ! : ! Maximum password number to be used in password list ! 7 DECLARE LONG CONSTANT ACME$C_MAX_PASSWORD_NUM = 8 wwо ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ! Item code biasing factors !  ! Backward-compatibility ! Not for initial call ! Contemporary supported ! $CREPRC argument items ! UAI data ! & ! ACME-sp ecific output data types ! : ! These codes are provided by the VMS ACME for return1 ! in field MAX_LENGTH of an output Item Set. ! ; ! The field MAX_LENGTH is named for its purpose within: ! 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. ! D ! These ACME-specific values are provided only where the callerC ! is one the VMS ACME knows can han dle these particular binary ! codes, i.e. LOGINOUT. ! Q ! These data types are defined exclusively to provide backward compatibilityM ! with interface methods used prior to the introduction of SYS$ACM[W] byL ! TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces.H ! They will not be provided to other clients which call SYS$ACM[W]. ! : DECLARE LONG CONSTANT acmevms$k_min_msg_type = 32768^ DECLARE LONG CONSTANT acmevms$k_old_decw_pwd_exp_1 = 32768 ! Binary expiration warning^ DECLARE LONG CONSTANT acmevms$k_old_decw_pwd_exp_2 = 32769 ! Binary expiration warninge DECLARE LONG CONSTANT acmevms$k_old_decw_pwd_quality = 32770 ! Binary password quality statusU DECLARE LONG CONSTANT acmevms$k_old_sysuaf_070 = 32771 ! Authorization Record[ DECLARE LONG CONSTANT acmevms$k_old_auth_flags = 32772 ! Password requirement flags` DECLARE LONG CONSTANT acmevms$k_old_terminal_connect = 32773 ! UIC, Username and Account: DECLARE LONG CONSTANT acmevms$k_max_msg_type = 32773 ! 0 ! ACME-specific Item Codes for the VMS ACME ! ? ! Items with these codes from the callr of SYS$ACM[W] will? ! be provided to the VMS ACME (exclusively) if they followA ! an instance of General Item Code ACME_TARGET_ACME_ID which ! specifies the VMS ACME. ! C ! 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 handlingD ! of multiple input item codes of the same value, the semantics> ! of the VMS ACME are uniform for all input item codes --> ! the value associated with the last input item prevails. !  ! ? ! Input item codes not subject to VTF-7 <-> UCS conversion !  ! . ! Backward-compatibility Input Item Codes ! L ! These codes are defined exclusively to provide backward compatibilityM ! with interface methods used prior to the introduction of SYS$ACM[W] byL ! TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces.I ! They will not be honored from other clients which call SYS$ACM[W]. ! 7 DECLARE LONG CONSTANT acmevms$_min_old_in = 32768l DECLARE LONG CONSTANT acmevms$_old_decwindows_flag = 32768 ! old DECwindows authentication mechanismi DECLARE LONG CONSTANT acmevms$_old_hashed_password_1 = 32769 ! old ARGUS authentication mechanismi DECLARE LONG CONSTANT acmevms$_old_hashed_password_2 = 32770 ! old ARGUS authentication mechanismg DECLARE LONG CONSTANT acmevms$_old_lgi_phase = 32771 ! old LGI-callout authentication mechanismh DECLARE LONG CONSTANT acmevms$_old_lgi_status = 32772 ! old LGI-callout authentication mechanism7 DECLARE LONG CONSTANT acmevms$_max_old_in = 32772 ! ! ! Solicited Input Item Codes ! H ! These codes support historic LOGINOUT behavour and in addition toH ! being retricted to LOGINOUT are not honored on initial calls fromM ! LOGINOUT. They can only be provided in response to an Input Item Set. ! = DECLARE LONG CONSTANT acmevms$_min_solicited_in = 33024f DECLARE LONG CONSTANT acmevms$_loginout_cli_flags = 33024 ! LOGINOUT received these qualifiers` DECLARE LONG CONSTANT acmevms$_old_connection_flag = 33025 ! LOGINOUT did a reconnectioni DECLARE LONG CONSTANT acmevms$_old _process_name = 33026 ! the process name after LOGINOUT $SETPRN= DECLARE LONG CONSTANT acmevms$_max_solicited_in = 33026 !  ! General Input Items ! C ! These non-converting input item codes are permanent featuresD ! of the VMS ACME, although some require particular privileges. ! D ! LOGINOUT_CREPRC_FLAGS is only honored from LOGINOUT, althoughI ! other clients can achieve the same results using other Item Codes.D ! The reason LOGINOUT_CREPRC_FLAGS exists is to minimize codingB ! changes for the transition of LOGINOUT to using SYS$ACM[W]. ! ; DECLARE LONG CONSTANT acmevms$_min_general_in = 33280m DECLARE LONG CONSTANT acmevms$_autologin_allowed_flag = 33280 ! autologin is allowed for this requestZ DECLARE LONG CONSTANT acmevms$_spare_1 = 33281 ! originally default_principal_flagc DECLARE LONG CONSTANT acmevms$_genpwd_count = 33282 ! desired number of generated passwordsh DECLARE LONG CONSTANT acmevms$_genpwd_mandatory_flag = 33283 ! generated password must be chosenf DECLARE LONG CONSTANT acmevms$_genpwd_maxlength = 33284 ! maximum length of generated passwordf DECLARE LONG CONSTANT acmevms$_genpwd_minlength = 33285 ! minimum length of generated passwordh DECLARE LONG CONSTANT acmevms$_loginout_creprc_flags = 33286 ! CTL$GL_CREPRC_FLAGS from LOGINOUTo DECLARE LONG CONSTANT acmevms$_requestor_pid = 33287 ! PID of client process (make spare after Kestrel)` DECLARE LONG CONSTANT acmevms$_preauthentication_flag = 33288 ! preauthenticated requestk DECLARE LONG CONSTANT acmevms$_uses_system_password = 33289 ! this connection uses system passwordso DECLARE LONG CONSTANT acmevms$_requestor_uic = 33290 ! UIC of client process (make spare after Kestrel)^ DECLARE LONG CONSTANT acmevms$_genpwd_algorithm = 33291 ! Password generator algorithm; DECLARE LONG CONSTANT acmevms$_max_general_in = 33291 ! ; ! Input item codes subject to VTF-7 <-> UCS conversion ! ? DECLARE LONG CONSTANT acmevms$_min_general_in_ucs = 41472f DECLARE LONG CONSTANT acmevms$_net_proxy = 41472 ! network proxy username string from LOGINOUTy DECLARE LONG CONSTANT acmevms$_requestor_username = 41473 ! Username of client process (make spare after Kestrel)a DECLARE LONG CONSTANT acmevms$_confirm_password_sys = 41474 ! Reenter New System Password` DECLARE LONG CONSTANT acmevms$_confirm_password_1 = 41 475 ! Reenter New Primary Passwordb DECLARE LONG CONSTANT acmevms$_confirm_password_2 = 41476 ! Reenter New Secondary Password? DECLARE LONG CONSTANT acmevms$_max_general_in_ucs = 41476 !  ! Output Item Codes ! @ ! While SYS$ACM does not specify semantics for the handlingE ! of multiple output item codes of the same value, the semantics? ! of the VMS ACME are uniform for all output item codes --0 ! all such codes are honored independently. !  ! @ ! Output item codes not subject to VTF-7 <-> UCS conversion !  !  ! General Output Items ! D ! These non-converting output item codes are permanent features ! of the VMS ACME. ! < DECLARE LONG CONSTANT acmevms$_min_general_out = 49664` DECLARE LONG CONSTANT acmevms$_class_days = 49664 ! primary days for the scheduler classZ DECLARE LONG CONSTANT acmevms$_class_flags = 49665 ! flags for the scheduler class[ DECLARE LONG C ONSTANT acmevms$_class_number = 49666 ! number of the scheduler classn DECLARE LONG CONSTANT acmevms$_class_primeday_limit = 49667 ! hourly quantum percentage on primary dayp DECLARE LONG CONSTANT acmevms$_class_seconday_limit = 49668 ! hourly quantum percentage on secondary day< DECLARE LONG CONSTANT acmevms$_max_general_out = 49668 ! ! CREPRC-based output items ! G ! These Output Item Codes provide information in a format suitableH ! for passing to the $CREPRC System service, freeing callers of any@ ! need to track the introduction of new VMS process quotas. ! ; DECLARE LONG CONSTANT acmevms$_min_creprc_out = 49920T DECLARE LONG CONSTANT acmevms$_creprc_baspri = 49920 ! Process base priorityS DECLARE LONG CONSTANT acmevms$_creprc_image = 49921 ! Image name (LOGINOUT)S DECLARE LONG CONSTANT acmevms$_creprc_prcnam = 49922 ! Process name (blank)P DECLARE LONG CONSTANT acmevms$_creprc_prvadr = 49923  ! Process privilegeP DECLARE LONG CONSTANT acmevms$_creprc_quota = 49924 ! Process quota listT DECLARE LONG CONSTANT acmevms$_creprc_uic = 49925 ! UIC for detached process; DECLARE LONG CONSTANT acmevms$_max_creprc_out = 49925 !  ! UAI-based output items ! D ! These codes provide the same information returned by $GETUAI,E ! but synchronized with the UAI data as used for authentication. ! B ! Correspondence between these codes and those fr om UAIDEF isE ! tested in the private part of module STARLET_WE_USE_ by arraysB ! ENSURE_UAI_NO_BIGGER_THAN_ACMEVMS_UAI and also by the array- ! ENSURE_ACMEVMS_UAI_NO_BIGGER_THAN_UAI. ! G ! The UAI_BASE constant defined below, added to normal UAI$_ codesD ! used for the $SETUAI and $GETUAI system services will produce ! the following values: ! 8 DECLARE LONG CONSTANT acmevms$_min_uai_out = 50176J DECLARE LONG CONSTANT acmevms$_uai_rtype = 50176 ! UAF record typeO DECLARE LONG CONSTANT acmevms$_uai_version = 50177 ! UAF format versiond DECLARE LONG CONSTANT acmevms$_uai_usrdatoff = 50178 ! offset of counted string of user dataF DECLARE LONG CONSTANT acmevms$_uai_username = 50179 ! username^ DECLARE LONG CONSTANT acmevms$_uai_username_tag = 50180 ! tag to differentiate recordsE DECLARE LONG CONSTANT acmevms$_uai_uic = 50181 ! user ID codeH DECLARE LONG CONSTANT acmevms$_uai_mem = 50182 ! member subfieldG DECLARE LONG CONSTANT acmevms$_uai_grp = 50183 ! group subfieldO DECLARE LONG CONSTANT acmevms$_uai_sub_id = 50184 ! user sub-identifierb DECLARE LONG CONSTANT acmevms$_uai_parent_id = 50185 ! identifier of owner of this accountI DECLARE LONG CONSTANT acmevms$_uai_account = 50186 ! account nameG DECLARE LONG CONSTANT acmevms$_uai_owner = 50187 ! owner's nameJ DECLARE LONG CONSTANT acmevms$_uai_defdev = 50188 ! default deviceM DECLARE LONG CONSTANT acmevms$_uai_defdir = 50189 ! default directoryN DECLARE LONG CONSTANT acmevms$_uai_lgicmd = 50190 ! login command fileW DECLARE LONG CONSTANT acmevms$_uai_defcli = 50191 ! default command interpreterN DECLARE LONG CONSTANT acmevms$_uai_clitables = 50192 ! user CLI tablesH DECLARE LONG CONSTANT acmevms$_uai_pwd = 50193 ! hashed passwordI DECLARE LONG CONSTANT acmevms$_uai_pwd2 = 50194 ! second passwordU DECLARE LONG CONSTANT acmevms$_uai_logfails = 50195 ! count of login failuresN DECLARE LONG CONSTANT acmevms$_uai_salt = 50196 ! random password salt\ DECLARE LONG CONSTANT acmevms$_uai_encrypt = 50197 ! primary password hash algorithm_ DECLARE LONG CONSTANT acmevms$_uai_encrypt2 = 50198 ! secondary password hash algorithmW DECLARE LONG CONSTANT acmevms$_uai_pwd_length = 50199 ! minimum password length[ DECLARE LONG CONSTANT acmevms$_uai_expiration = 50200 ! expiration date for accountS DECLARE LONG CONSTANT acmevms$_uai_pwd_lifetime = 50201 ! password lifetimeU DECLARE LONG CONSTANT acmevms$_uai_pwd_date = 50202 ! date of password changeZ DECLARE LONG CONSTANT acmevms$_uai_pwd2_date = 50203 ! date of 2nd password change_ DECLARE LONG CONSTANT acmevms$_uai_lastlogin_i = 50204 ! date of last interactive loginc DECLARE LONG CONSTANT acmevms$_uai_lastlogin_n = 50205 ! date of last non-interactive loginR DECLARE LONG CONSTANT acmevms$_uai_priv = 50206 ! process privilege vectorX DECLARE LONG CONSTANT acmevms$_uai_def_priv = 50207 ! default process privilegesU DECLARE LONG CONSTANT acmevms$_uai_min_class = 50208 ! minimum security classU DECLARE LONG CONSTANT acmevms$_uai_max_class = 50209 ! maximum security classN DECLARE LONG CONSTANT acmevms$_uai_flags = 50210 ! user flags longwordd DECLARE LONG CONSTANT acmevms$_uai_network_access_p = 50211 ! hourly network access, primaryf DECLARE LONG CONSTANT acmevms$_uai_network_access_s = 50212 ! hourly network access, secondary` DECLARE LONG CONSTANT acmevms$_uai_batch_access_p = 50213 ! hourly batch access, primaryb DECLARE LONG CONSTANT acmevms$_uai_batch_access_s = 50214 ! hourly batch access, secondary` DECLARE LONG CONSTANT acmevms$_uai_local_access_p = 50215 ! hourly local access, primaryb DECLARE LONG CONSTANT acmevms$_uai_local_access_s = 50216 ! hourly local access, secondaryb DECLARE LONG CONSTANT acmevms$_uai_dialup_access_p = 50217 ! hourly dialup access, primaryd DECLARE LONG CONSTANT acmevms$_uai_dialup_access_s = 50218 ! hourly dialup access, secondaryb DECLARE LONG CONSTANT acmevms$_uai_remote_access_p = 50219 ! hourly remote access, primaryd DECLARE LONG CONSTANT acmevms$_uai_remote_access_s = 50220 ! hourly remote access, secondary] DECLARE LONG CONSTANT acmevms$_uai_primedays = 50221 ! bits representing primary daysN DECLARE LONG CONSTANT acmevms$_uai_pri = 50222 ! base process priorityX DECLARE LONG CONSTANT acmevms$_uai_quepri = 50223 ! maximum job queuing priorityY DECLARE LONG CONSTANT acmevms$_uai_maxjobs = 50224 ! maximum jobs for UIC alloweda DECLARE LONG CONSTANT acmevms$_uai_maxacctjobs = 50225 ! maximum jobs for account alloweda DECLARE LONG CONSTANT acmevms$_uai_maxdetach = 50226 ! maximum detached processes for UICU DECLARE LONG CONSTANT acmevms$_uai_prccnt = 50227 ! subprocess creation limitM DECLARE LONG CONSTANT acmevms$_uai_biolm = 50228 ! buffered I/O limitK DECLARE LONG CONSTANT acmevms$_uai_diolm = 50229 ! direct I/O limitR DECLARE LONG CONSTANT acmevms$_uai_tqcnt = 50230 ! timer queue entry limitJ DECLARE LONG CONSTANT acmevms$_uai_astlm = 50231 ! AST queue limitH DECLARE LONG CONSTANT acmevms$_uai_enqlm = 50232 ! enqueue limitJ DECLARE LONG CONSTANT acmevms$_uai_fillm = 50233 ! open file limitO DECLARE LONG CONSTANT acmevms$_uai_shrfillm = 50234 ! shared file limitS DECLARE LONG CONSTANT acmevms$_uai_wsquota = 50235 ! working set size quotaU DECLARE LONG CONSTANT acmevms$_uai_dfwscnt = 50236 ! default working set sizeT DECLARE LONG CONSTANT acmevms$_uai_wsextent = 50237 ! working set size limitN DECLARE LONG CONSTANT acmevms$_uai_pgflquota = 50238 ! page file quotaJ DECLARE LONG CONSTANT acmevms$_uai_cputim = 50239 ! CPU time quotaX DECLARE LONG CONSTANT acmevms$_uai_bytlm = 50240 ! buffered I/O byte count limit] DECLARE LONG CONSTANT acmevms$_uai_pbytlm = 50241 ! paged buffer I/O byte count limitg DECLARE LONG CONSTANT acmevms$_uai_jtquota = 50242 ! job-wide logical name table creation quota_ DECLARE LONG CONSTANT acmevms$_uai_proxy_lim = 50243 ! number of proxies user can grantV DECLARE LONG CONSTANT acmevms$_uai_proxies = 50244 ! number of proxies granted_ DECLARE LONG CONSTANT acmevms$_uai_account_lim = 50245 ! number of sub-accounts allowed[ DECLARE LONG CONSTANT acmevms$_uai_accounts = 50246 ! number of sub-accounts in useM DECLARE LONG CONSTANT acmevms$_uai_user_data = 50247 ! user data area. ! Next two codes not supported for outputX DECLARE LONG CONSTANT acmevms$_uai_password = 50248 ! plaintext primary password[ DECLARE LONG CONSTANT acmevms$_uai_password2 = 50249 ! plaintext secondary password2 ! Previous two codes not supported for output^ DECLARE LONG CONSTANT acmevms$_uai_def_class = 50250 ! default security classificationj DECLARE LONG CONSTANT acmevms$_uai_audit_flags = 50251 ! audit flags to be used when changing data8 DECLARE LONG CONSTANT acmevms$_max_uai_out = 50251 ! < ! Output item codes subject to VTF-7 <-> UCS conversion ! @ DECLARE LONG CONSTANT acmevms$_min_general_out_ucs = 57856W DECLARE LONG CONSTANT acmevms$_class_name = 57856 ! name of the scheduler class@ DECLARE LONG CONSTANT acmevms$_max_general_out_ucs = 57856 ! + !  ! Bit mask types !  ! - ! 4 ! Flags indicating CLI qualifiers were supplied ! ; ! Most of these are passed to the VMS ACME to possibly8 ! trigger (audited) rejection of the login attempt. ! 8 DECLARE LONG CONSTANT acmevms$m_disk = x'00000001'7 DECLARE LONG CONSTANT acmevms$m_cli = x'00000002': DECLARE LONG CONSTANT acmevms$m_tables = x'00000004'; DECLARE LONG CONSTANT acmevms$m_command = x'00000008'; DECLARE LONG CONSTANT acmevms$m_connect = x'00000010'@ DECLARE LONG CONSTANT acmevms$m_new_password = x'00000020'B DECLARE LONG CONSTANT acmevms$m_local_password = x'00000040'3 DECLARE LONG CONSTANT acmevms$s_cli_flags = 4 record cli_flags ! /DISK= ! /CLI= ! /TABLES= ! /COMMAND= ! /CONNECT[=] ! /NEW_PASSWORD ! /LOCAL_PASSWORDh LONG disk _bits ! COMMENT ADDED BY SDL - disk_bits contains bits disk through cli_flags_fill_1 end record cli_flags 0 DECLARE LONG CONSTANT acmevms$k_length = 4 ! + !  ! Miscellaneous constants !  ! -. ! Authentication mechanism for TNT$SERVERX DECLARE LONG CONSTANT acmevms$k_auth_mech_argus = 13860864 ! Only for TNT$SERVERC ! Base to which UAI$_ codes can be added for use in SYS$ACM[W]I DECLARE LONG CONSTANT acmevms$k_uai_base = 50175 ! Item Code Base> ! Maximum length (in characters) of a Mapped VMS UsernameQ DECLARE LONG CONSTANT acmevms$k_maxchar_vms_username = 32 ! in characters ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +- ! ACRDEF - ACCOUNTING RECORD DEFINITIONS ! L ! **********************************************************************L ! NOTE: IF ANY FIELDS CHANGE, A NEW VERSION NUMBER MUST BE ADDED A ND *S ! "ACR$K_CURVER" EQUATED TO IT. *L ! ********************************************************************** !  ! -. ! RECORD/PACKET VERSIONS (ACR$V_VERSION) S DECLARE LONG CONSTANT ACR$K_VERSION2 = 0 ! VMS VERSION 2 ACCOUNTING FORMAT M DECLARE LONG CONSTANT ACR$K_VERSION3T = 1 ! VMS VERSION 3 FIELD TEST S DECLARE LONG CONSTANT ACR$K_VERSION3 = 2 ! VMS VERSION 3 ACCOUNTING FORMAT R DECLARE LONG  CONSTANT ACR$K_VERSION4 = 3 ! VMS VERSION 4 ACCOUNTING FORMATO DECLARE LONG CONSTANT ACR$K_CURVER = 3 ! CURRENT FORMAT VERSION NUMBER 6 DECLARE LONG CONSTANT ACR$M_PACKET = x'00000001'4 DECLARE LONG CONSTANT ACR$M_TYPE = x'000000FE'7 DECLARE LONG CONSTANT ACR$M_SUBTYPE = x'00000F00'7 DECLARE LONG CONSTANT ACR$M_VERSION = x'00007000'8 DECLARE LONG CONSTANT ACR$M_CUSTOMER = x'00008000'@ DECLARE LONG CONSTANT ACR$K_PRCDEL = 1 ! PROCESS DELETE ? DE CLARE LONG CONSTANT ACR$K_PRCPUR = 2 ! PROCESS PURGE > DECLARE LONG CONSTANT ACR$K_IMGDEL = 3 ! IMAGE DELETE = DECLARE LONG CONSTANT ACR$K_IMGPUR = 4 ! IMAGE PURGE H DECLARE LONG CONSTANT ACR$K_SYSINIT = 5 ! SYSTEM INITIALIZATION B DECLARE LONG CONSTANT ACR$K_SETTIME = 6 ! SET SYSTEM TIME K DECLARE LONG CONSTANT ACR$K_LOGFAIL = 7 ! LOGIN VALIDATION FAILURE : DECLARE LONG CONSTANT ACR$K_PRINT = 8 ! PRINT JOB B DECLARE LONG CONSTANT ACR$K_USER =  9 ! USER SUPPLIED DATA M DECLARE LONG CONSTANT ACR$K_ENABLE = 10 ! ACC. MANG. FUNCTION ENABLE O DECLARE LONG CONSTANT ACR$K_DISABLE = 11 ! ACC. MANG. FUNCTION DISABLE O DECLARE LONG CONSTANT ACR$K_ALTACM = 12 ! DECLARE ALTERNATE ACC. MANG. R DECLARE LONG CONSTANT ACR$K_FILE_FL = 13 ! ACCOUNTING FILE - FORWARD LINK S DECLARE LONG CONSTANT ACR$K_FILE_BL = 14 ! ACCOUNTING FILE - BACKWARD LINK 0 ! RECORD SUBTYPE (ACR$V_SUBTYPE) CONSTANTS J DECLARE  LONG CONSTANT ACR$K_INTERACTIVE = 1 ! INTERACTIVE PROCESS @ DECLARE LONG CONSTANT ACR$K_SUBPROCESS = 2 ! SUBPROCESS D DECLARE LONG CONSTANT ACR$K_DETACHED = 3 ! DETACHED PROCESS > DECLARE LONG CONSTANT ACR$K_BATCH = 4 ! BATCH PROCESS B DECLARE LONG CONSTANT ACR$K_NETWORK = 5 ! NETWORK PROCESS * ! PACKET TYPE (ACR$V_TYPE) CONSTANTS E DECLARE LONG CONSTANT ACR$K_ID = 1 ! IDENTIFICATION PACKET I DECLARE LONG CONSTANT ACR$K_RESOURCE = 2 ! RESOURCE USAGE PACKET E DECLARE LONG CONSTANT ACR$K_IMAGENAME = 3 ! IMAGENAME PACKET C DECLARE LONG CONSTANT ACR$K_FILENAME = 4 ! FILENAME PACKET E DECLARE LONG CONSTANT ACR$K_USER_DATA = 5 ! USER DATA PACKET , DECLARE LONG CONSTANT ACR$S_ACRDEF = 4 record ACRDEF! group ACR$R_TYPE_OVERLAY variant caseB WORD ACR$W_TYPE ! RECORD/PACKET TYPE  case' group ACR$R_TYPE_BIT S- ! RECORD(0)/PACKET(1) , ! RECORD/PACKET TYPE / ! RECORD/PACKET SUBTYPE 6 ! RECORD/PACKET VERSION NUMBER 0 ! DIGITAL(0)/CUSTOMER(1) r WORD PACKET_bits ! COMMENT ADDED BY SDL - PACKET_bits contains bits PACKET through CUSTOMER+ end group ACR$R_TYPE_BITS* ! RECORD TYPE (ACR$V_TYPE) CONSTANTS  end variant% end group ACR$R_TYPE_OVERLAYG WORD ACR$W_LENGTH ! RECORD OR PACKET LENGTH  !  ! RECORD HEADER !  end record ACRDEF G DECLARE LONG CONSTANT ACR$K_HDRLEN = 12 ! RECORD HEADER LENGTH G DECLARE LONG CONSTANT ACR$C_HDRLEN = 12 ! RECORD HEADER LENGTH  ! . DECLARE LONG CONSTANT ACR$S_ACRDEF1 = 12 record ACRDEF1( BYTE ACRDEF$$_FILL_2 ( 1 to 4 )A BASIC$QUADWORD ACR$Q_SYSTIME ! EVENT SYSTEM TIME  !  IDENTIFICATION PACKET !  end record ACRDEF1 8 DECLARE LONG CONSTANT ACR$M_FULLNAME = x'00000001'6 DECLARE LONG CONSTANT ACR$M_UIDGID = x'00000002'6 DECLARE LONG CONSTANT ACR$M_FILL_1 = x'000000FC'T DECLARE LONG CONSTANT ACR$K_IDVAR = 58 ! BEGINNING OF VARIABLE STORAGE AREA T DECLARE LONG CONSTANT ACR$C_IDVAR = 58 ! BEGINNING OF VARIABLE STORAGE AREA  ! . DECLARE LONG CONSTANT ACR$S_ACRDEF2 = 58 record ACRDEF2( BYTE ACRDEF$$ _FILL_3 ( 1 to 4 ): LONG ACR$L_PID ! PROCESS ID ? LONG ACR$L_OWNER ! OWNER PROCES ID group ACR$R_UIC_OVERLAY variant case; LONG ACR$L_UIC ! PROCESS UIC  case( group ACR$R_UIC_FIELDS: WORD ACR$W_MEM ! MEMBER UIC 9 WORD ACR$W_GRP ! GROUP UIC , end group ACR$R_UI C_FIELDS end variant$ end group ACR$R_UIC_OVERLAY< BASIC$QUADWORD ACR$Q_PRIV ! PROCESS PRIV @ BYTE ACR$B_PRI ! PROCESS PRIORITY # group ACR$R_IDFLGS_OVERLAY variant case= BYTE ACR$B_IDFLGS ! FLAGS BIT MASK case) group ACR$R_IDFLGS_BITS3 ! NOT PRESENT (0)/PRESENT(1)3 ! NOT PRESENT ( 0)/PRESENT(1)# ! SPARE BITSv BYTE FULLNAME_bits ! COMMENT ADDED BY SDL - FULLNAME_bits contains bits FULLNAME through FILL_1- end group ACR$R_IDFLGS_BITS end variant' end group ACR$R_IDFLGS_OVERLAY? WORD ACR$W_USERNAME ! USERNAME OFFSET C WORD ACR$W_ACCOUNT ! ACCOUNT NAME OFFSET @ WORD ACR$W_NODENAME ! NODE NAME OFFSET D WORD ACR$W_TERMINAL ! TERMINAL NAME OFFSET ? WORD ACR$W_JOBNAME ! JOB NAME OFFSET 6 LONG ACR$L_JOBID ! JOB ID A WORD ACR$W_QUEUE ! QUEUE NAME OFFSET C WORD ACR$W_NODEADDR ! REMOTE NODE ADDRESS @ WORD ACR$W_REMOTEID ! REMOTE ID OFFSET E WORD ACR$W_FULLADDR ! REMOTE PHASE V ADDRESSF WORD ACR$W_FULLNAME ! REMOT E PHASE V FULLNAME8 LONG ACR$L_POSIX_UID ! POSIX UID8 LONG ACR$L_POSIX_GID ! POSIX GID ! RESOURCE PACKET !  end record ACRDEF2 . DECLARE LONG CONSTANT ACR$S_ACRDEF3 = 56 record ACRDEF3( BYTE ACRDEF$$_FILL_4 ( 1 to 4 )H BASIC$QUADWORD ACR$Q_LOGIN ! PROCESS/IMAGE START TIME J LONG ACR$L_STATUS ! PROCESS/IMAGE FINAL STATUS U LONG ACR$L_IMGCNT ! IMAGE EXECUTION COUNT/SEQUENCE NUMBER F LONG ACR$L_CPUTIME ! PROCESS/IMAGE CPU TIME N LONG ACR$L_FAULTS ! PROCESS/IMAGE PAGE FAULT COUNT R LONG ACR$L_FAULTIO ! PROCESS/IMAGE PAGE FAULT I/O COUNT N LONG ACR$L_WSPEAK ! PROCESS/IMAGE WORKING SET PEAK R LONG ACR$L_PAGEFL ! PROCESS/IMAGE PEAK PAGE FILE USAGE N LONG ACR$L_DIOCNT ! PROCESS/IMAGE D IRECT I/O COUNT P LONG ACR$L_BIOCNT ! PROCESS/IMAGE BUFFERED I/O COUNT P LONG ACR$L_VOLUMES ! PROCESS/IMAGE VOLUME MOUNT COUNT L LONG ACR$L_VP_CPUTIME ! PROCESS/IMAGE VECTOR CPU TIME !  ! IMAGENAME PACKET !  end record ACRDEF3 / DECLARE LONG CONSTANT ACR$S_ACRDEF4 = 260 record ACRDEF4( BYTE ACRDEF$$_FILL_5 ( 1 to 4 )9 STRING ACR$T_IMAGENAME = 256 ! IMAGENAME  !  ! PRINT RESOURCE PACKET !  end record ACRDEF4 . DECLARE LONG CONSTANT ACR$S_ACRDEF5 = 40 record ACRDEF5( BYTE ACRDEF$$_FILL_6 ( 1 to 4 ): LONG ACR$L_PRINTSTS ! JOB STATUS C BASIC$QUADWORD ACR$Q_QUETIME ! TIME JOB WAS QUEUED B BASIC$QUADWORD ACR$Q_BEGTIME ! TIME JOB WAS BEGUN A LONG ACR$L_SYMCPUTIM ! SYMBIONT CPU TIME C LONG ACR$L_PAGECNT ! TOTAL PAGES PRINTED A LONG ACR$L_QIOCNT ! TOTAL QIOS ISSUED A LONG ACR$L_GETCNT ! TOTAL GETS ISSUED  !  ! FILENAME PACKET !  end record ACRDEF5 / DECLARE LONG CONSTANT ACR$S_ACRDEF6 = 260 record ACRDEF6( BYTE ACRDEF$$_FILL_7 ( 1 to 4 )8 STRING ACR$T_FILENAME = 256 ! FILENAME  !  ! USER DATA PACKET !  end record ACRDEF6 / DECLARE LONG CONSTANT ACR$S_ACRDEF7 = 260 record ACRDEF7( BYTE ACRDEF$$_FILL_8 ( 1 to 4 )9 STRING ACR$T_USER_DATA = 256 ! USER DATA  end record ACRDEF7  ww< %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  K DECLARE LONG CONSTANT AFR$K_USER_LENGTH = 16 ! Length of user entryK DECLARE LONG CONSTANT AFR$C_USER_LENGTH = 16 ! Length of user entryI DECLARE LONG CONSTANT AFR$K_VMS_LENGTH = 24 ! Length of VMS entryI DECLARE LONG CONSTANT AFR$C_VMS_LENGTH = 24 ! Length of VMS entryK DECLARE LONG CONSTANT AFR$K_EXTENDED_LENGTH = 296 ! Extended lengthK DECLARE LONG CONSTANT AFR$C_EXTENDED_LENGTH = 296 ! Extended length3 DECLARE LONG CONSTANT AFR$C_UNINITIALIZED = 0. DECLARE LONG CONSTANT AFR$C_BUFFERED = 1Y DECLARE LONG CONSTANT AFR$C_EXCEPTION = 2 ! Values passed to start system service. DECLARE LONG CONSTANT AFR$S_AFRDEF = 296 record AFRDEF$ group AFR$R_PC_DATA_OVERLAY variant caseI BASIC$QUADWORD AFR$Q_FAULT_PC ! PC of alignment fault case/ group AFR$R_PC_DATA_LONGWORDS* LONG AFR$L_FAULT_PC_L* LONG AFR$L_FAULT_PC_H3 end group AFR$R_PC_DATA_LONGWORDS end variant( end group AFR$R_PC_DATA_OVERLAY$ group AFR$R_VA_DATA_OVERLAY variant caseM BASIC$QUADWORD AFR$Q_FAULT_VA ! Unaligned virtual address case/ group AFR$R_VA_DATA_LONGWORDS* LONG AFR$L_FAULT_VA_L* LONG AFR$L_FAULT_VA_H3 end group AFR$R_VA_DATA_LONGWORDS end variant( end group AFR$R_VA_DATA_OVERLAY% group AFR$R_RESERVED_OVERLAY variant caseD  BASIC$QUADWORD AFR$Q_RESERVED ! Reserved for VMS case0 group AFR$R_RESERVED_LONGWORDS* LONG AFR$L_RESERVED_L* LONG AFR$L_RESERVED_H4 end group AFR$R_RESERVED_LONGWORDS end variant) end group AFR$R_RESERVED_OVERLAY9 STRING AFR$T_IMAGE_NAME = 256 ! Image name8 STRING AFR$T_USER_NAME = 16 ! User name end record AFRDEF 7 DECLARE LONG ! CONSTANT AFR$M_ENABLED = x'00000001'< DECLARE LONG CONSTANT AFR$M_TEMP_ENABLED = x'00000002'< DECLARE LONG CONSTANT AFR$M_PERM_ENABLED = x'00000004'. DECLARE LONG CONSTANT AFR$M_DISABLED = 09 DECLARE LONG CONSTANT AFR$M_USER_INFO = x'00000008'- DECLARE LONG CONSTANT AFR$S_AFREDEF = 1 record AFREDEF ! Enable bit+ ! TRUE if enabled image by image( ! TRUE if permanently enabled' ! If set, user info is savedi " BYTE ENABLED_bits ! COMMENT ADDED BY SDL - ENABLED_bits contains bits ENABLED through FILL_44_ end record AFREDEF ; DECLARE LONG CONSTANT AME$M_KERNEL_MODE = x'00000001'9 DECLARE LONG CONSTANT AME$M_EXEC_MODE = x'00000002': DECLARE LONG CONSTANT AME$M_SUPER_MODE = x'00000004'9 DECLARE LONG CONSTANT AME$M_USER_MODE = x'00000008'7 DECLARE LONG CONSTANT AME$M_USER_VA = x'00000010'9 DECLARE LONG CONSTANT AME$M_SYSTEM_VA = x'00000020'7 DECLARE #LONG CONSTANT AME$M_USER_PC = x'00000040'9 DECLARE LONG CONSTANT AME$M_SYSTEM_PC = x'00000080': DECLARE LONG CONSTANT AME$M_USER_VA_P0 = x'00000100': DECLARE LONG CONSTANT AME$M_USER_VA_P1 = x'00000200': DECLARE LONG CONSTANT AME$M_USER_VA_P2 = x'00000400'G DECLARE LONG CONSTANT AME$C_SIZE = 4 ! Length in bytes for maskG DECLARE LONG CONSTANT AME$K_SIZE = 4 ! Length in bytes for mask, DECLARE LONG CONSTANT AME$S_AMEDEF = 2  ! / ! AFLDEF $defines which region a VA lies in ! 5 DECLARE LONG CONSTANT AFL$M_P0_VA = x'00000001'5 DECLARE LONG CONSTANT AFL$M_P1_VA = x'00000002'5 DECLARE LONG CONSTANT AFL$M_P2_VA = x'00000004'7 DECLARE LONG CONSTANT AFL$M_S0S1_VA = x'00000008'5 DECLARE LONG CONSTANT AFL$M_S2_VA = x'00000010': DECLARE LONG CONSTANT AFL$M_PROCESS_VA = x'00000020'9 DECLARE LONG CONSTANT AFL$M_SYSTEM_VA = x'00000040', DECLARE LONG CONSTANT AFL$S_AFLDEF = 4G record A %FLDEF ! Alignment fault location group AFL$R_AFL_OVERLAY variant case# LONG AFL$L_VA_LOC case, group AFL$R_VA_LOC_BITDEFS/ ! Address is in P0 space/ ! Address is in P1 space/ ! Address is in P2 space5 ! Address is in S0 or S1 space/ ! Address is in S2 spaceB ! Address is in P0,P1,or P2 (process space)A ! Address is in S0,S1,or S2 (system space)o BYTE P0_VA_bits ! COMMENT ADDED BY SDL - P0_VA_bits contains bits P0_VA through FILL_46_0 end group AFL$R_VA_LOC_BITDEFS end variant$ end group AFL$R_AFL_OVERLAY end record AFLDEF  ww'֝ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED (( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN)G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > * %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +$ ! $ASSIGN FLAGS bit definitions ! -8 DECLARE LONG CONSTANT AGN$M_READONLY = x'00000001'9 DECLARE LONG CONSTANT AGN$M_WRITEONLY = x'00000002'5 DECLARE LONG CONSTANT AGN$M_CLONE += x'00000004', DECLARE LONG CONSTANT AGN$S_AGNDEF = 4 record AGNDEF variant case& group AGN$R_AGNDEF_BITSD ! Channel to be assigned to device is READ ONLY.E ! Channel to be assigned to device is WRITE ONLY.= ! Channel will be cloned by POSIX fork().s LONG READONLY_bits ! COMMENT ADDED BY SDL - READONLY_bits contains bits READONLY through FILL_0* end group AGN$R_AGNDEF_BITS end variant end record AGNDEF  ww- ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED .( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN/G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 0 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! H ! Not all of what you see here was built, shipped and/or announced.J ! So-called Whitebox (Microsoft Windows-Only) systems are not listed.F ! Various systems listed here are not supported by Op 1enVMS Alpha. ! T DECLARE LONG CONSTANT ALPHA$K_NOT_A_VAX = 1024 ! A pseudo-SMM sometimes seeni DECLARE LONG CONSTANT ALPHA$K_MIN_ALPHA = 1024 ! The smallest architecturally-permitted Alpha SMMM DECLARE LONG CONSTANT ALPHA$K_MIN_SMM = 1025 ! The smallest Alpha SMM2 DECLARE LONG CONSTANT ALPHA$K_ID_BASE = 1025K DECLARE LONG CONSTANT ALPHA$K_A7000_610 = 1025 ! DEC 7000 Model 610K DECLARE LONG CONSTANT ALPHA$K_A7000_620 = 1026 ! DEC 7000 Model 620K 2 DECLARE LONG CONSTANT ALPHA$K_A7000_630 = 1027 ! DEC 7000 Model 630K DECLARE LONG CONSTANT ALPHA$K_A7000_640 = 1028 ! DEC 7000 Model 640M DECLARE LONG CONSTANT ALPHA$K_A10000_610 = 1029 ! DEC 10000 Model 610M DECLARE LONG CONSTANT ALPHA$K_A10000_620 = 1030 ! DEC 10000 Model 620M DECLARE LONG CONSTANT ALPHA$K_A10000_630 = 1031 ! DEC 10000 Model 630M DECLARE LONG CONSTANT ALPHA$K_A10000_640 = 1032 ! DEC 10000 Model 640L DECLARE LONG CONSTANT ALPH3A$K_A3000_500W = 1033 ! DEC 3000 Model 500M DECLARE LONG CONSTANT ALPHA$K_A3000_500S = 1034 ! DEC 3000 Model 500SL DECLARE LONG CONSTANT ALPHA$K_A3000_400W = 1035 ! DEC 3000 Model 400M DECLARE LONG CONSTANT ALPHA$K_A3000_400S = 1036 ! DEC 3000 Model 400SK DECLARE LONG CONSTANT ALPHA$K_A4000_610 = 1037 ! DEC 4000 Model 610K DECLARE LONG CONSTANT ALPHA$K_A4000_620 = 1038 ! DEC 4000 Model 6204 DECLARE LONG CONSTANT ALPHA$K_A4000_810 = 10394 DECLAR4E LONG CONSTANT ALPHA$K_A4000_820 = 1040/ DECLARE LONG CONSTANT ALPHA$K_AADU = 1041K DECLARE LONG CONSTANT ALPHA$K_A3000_300 = 1042 ! DEC 3000 Model 300M DECLARE LONG CONSTANT ALPHA$K_A3000_300L = 1043 ! DEC 3000 Model 300LK DECLARE LONG CONSTANT ALPHA$K_A2000_300 = 1044 ! DEC 2000 Model 300M DECLARE LONG CONSTANT ALPHA$K_A2000_300S = 1045 ! DEC 2000 Model 300SK DECLARE LONG CONSTANT ALPHA$K_A7000_650 = 1046 ! DEC 7000 Model 650K DECLARE LONG C 5ONSTANT ALPHA$K_A7000_660 = 1047 ! DEC 7000 Model 660M DECLARE LONG CONSTANT ALPHA$K_A10000_650 = 1048 ! DEC 10000 Model 650M DECLARE LONG CONSTANT ALPHA$K_A10000_660 = 1049 ! DEC 10000 Model 6604 DECLARE LONG CONSTANT ALPHA$K_A4000_630 = 10504 DECLARE LONG CONSTANT ALPHA$K_A4000_640 = 10514 DECLARE LONG CONSTANT ALPHA$K_A4000_650 = 10524 DECLARE LONG CONSTANT ALPHA$K_A4000_660 = 10534 DECLARE LONG CONSTANT ALPHA$K_A2000_200 = 10545 DECLARE LONG6 CONSTANT ALPHA$K_A2000_200S = 1055M DECLARE LONG CONSTANT ALPHA$K_A3000_500X = 1056 ! DEC 3000 Model 500X ! Z ! The following Alpha System entries have been added to this file for REFERENCE ONLY.U ! Please note that the Alpha system model name string and System Marketing ModelV ! value (SMM) are now passed by the SRM console to the Operating System through aT ! structure called the HWRPB (hardware restart parameter block); by the DynamicW ! System Recognition 7(DSR) support that is present within all but the most ancientT ! of Alpha systems and the correspondingly ancient versions of the SRM console. ! Y ! The following symbol-naming convention was derived from the Alpha System ReferenceI ! Manual (SRM) Registry of Alpha Platforms, Systems, and Processors: ! " ! ASa1a2b1b2c1c2d1d2e1e2 ! % ! AS = Alpha SystemY ! a1a2 = Family ID (2 digit hex value), Example: 0C (TurboLaser fami8ly)p ! b1b2 = Processor Type (2 digit hex value), Example: 02 (EV4) , 05 (EV5), 06 (EV45), 07(EV56)R ! c1c2 = Member ID (2 digit hex value), Example: 04 (Rack Mount)p ! d1d2 = SRM Variant (2 digit hex value) for each Family ID/Processor Type/Member ID. Used forn ! differentiating between same platforms with different chip speed (MHz) and/or cachek ! size and/or expansion capabilities and/or AlphaSt9ation/AlphaServer variants. Inm ! specific cases, there is the potential for the CPU count to spill into this field.o ! e1e2 = Number of CPUs (2 digit hex value), Example: 0A (10 cpus), or maximum number of CPUs ! N DECLARE LONG CONSTANT ALPHA$K_AS0202020001 = 1057 ! DEC 4000 Model 710N DECLARE LONG CONSTANT ALPHA$K_AS0202020002 = 1058 ! DEC 4000 Model 720Y DECLARE LONG CONSTANT ALPHA$K_AS0902020001 = 1059 ! AlphaServer 2100 4:/200 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0902020002 = 1060 ! AlphaServer 2100 4/200 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0902020003 = 1061 ! AlphaServer 2100 4/200 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0902020004 = 1062 ! AlphaServer 2100 4/200 (4cpu)N DECLARE LONG CONSTANT ALPHA$K_AS0402040001 = 1063 ! DEC 3000 Model 800N DECLARE LONG CONSTANT ALPHA$K_AS0402060001 = 1064 ! DEC 3000 Model 600N DECLARE LONG CONSTANT ALPHA$K_AS0602010001 = 1065 ; ! DEC 2000 Model 500G DECLARE LONG CONSTANT ALPHA$K_AS0B04000001 = 1067 ! DECAXPpci33O DECLARE LONG CONSTANT ALPHA$K_AS0702020001 = 1068 ! DEC 3000 Model 300XP DECLARE LONG CONSTANT ALPHA$K_AS0702030001 = 1069 ! DEC 3000 Model 300LXN DECLARE LONG CONSTANT ALPHA$K_AS0406070001 = 1070 ! DEC 3000 Model 700N DECLARE LONG CONSTANT ALPHA$K_AS0406080001 = 1071 ! DEC 3000 Model 900K DECLARE LONG CONSTANT ALPHA$K_AS0706040001 = 1072 ! DEC 3000 seriesK <DECLARE LONG CONSTANT ALPHA$K_AS0706050001 = 1073 ! DEC 3000 seriesN DECLARE LONG CONSTANT ALPHA$K_AS0306030001 = 1074 ! DEC 7000 Model 710N DECLARE LONG CONSTANT ALPHA$K_AS0306030002 = 1075 ! DEC 7000 Model 720N DECLARE LONG CONSTANT ALPHA$K_AS0306030003 = 1076 ! DEC 7000 Model 730N DECLARE LONG CONSTANT ALPHA$K_AS0306030004 = 1077 ! DEC 7000 Model 740N DECLARE LONG CONSTANT ALPHA$K_AS0306030005 = 1078 ! DEC 7000 Model 750N DECLARE LONG CONSTANT ALPHA$=K_AS0306030006 = 1079 ! DEC 7000 Model 760R DECLARE LONG CONSTANT ALPHA$K_AS0D02010001 = 1086 ! AlphaStation 400 4/166R DECLARE LONG CONSTANT ALPHA$K_AS0D02020001 = 1087 ! AlphaStation 200 4/166R DECLARE LONG CONSTANT ALPHA$K_AS0D02030001 = 1088 ! AlphaStation 200 4/133R DECLARE LONG CONSTANT ALPHA$K_AS0F05010001 = 1089 ! AlphaStation 600 5/300R DECLARE LONG CONSTANT ALPHA$K_AS1102010001 = 1090 ! AlphaServer 1000 4/200R DECLARE LONG CONSTANT ALPHA$K_AS11>06020001 = 1091 ! AlphaServer 1000 4/233Y DECLARE LONG CONSTANT ALPHA$K_AS0C05000001 = 1093 ! AlphaServer 8200 5/300 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05000002 = 1094 ! AlphaServer 8200 5/300 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05000003 = 1095 ! AlphaServer 8200 5/300 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05000004 = 1096 ! AlphaServer 8200 5/300 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05000005 = 1097 ! AlphaServer 8200 5/300 (5cpu)Y ? DECLARE LONG CONSTANT ALPHA$K_AS0C05000006 = 1098 ! AlphaServer 8200 5/300 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010001 = 1099 ! AlphaServer 8400 5/300 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010002 = 1100 ! AlphaServer 8400 5/300 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010003 = 1101 ! AlphaServer 8400 5/300 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010004 = 1102 ! AlphaServer 8400 5/300 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010005@ = 1103 ! AlphaServer 8400 5/300 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010006 = 1104 ! AlphaServer 8400 5/300 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010007 = 1105 ! AlphaServer 8400 5/300 (7cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010008 = 1106 ! AlphaServer 8400 5/300 (8cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05010009 = 1107 ! AlphaServer 8400 5/300 (9cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0501000A = 1108 ! AlphaServer 8400 5/300 (10cpu)Z A DECLARE LONG CONSTANT ALPHA$K_AS0C0501000B = 1109 ! AlphaServer 8400 5/300 (11cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0501000C = 1110 ! AlphaServer 8400 5/300 (12cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906020001 = 1115 ! AlphaServer 2100 4/275 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906020002 = 1116 ! AlphaServer 2100 4/275 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906020003 = 1117 ! AlphaServer 2100 4/275 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906020004B = 1118 ! AlphaServer 2100 4/275 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905020001 = 1119 ! AlphaServer 2100 5/250 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905020002 = 1120 ! AlphaServer 2100 5/250 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905020003 = 1121 ! AlphaServer 2100 5/250 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905020004 = 1122 ! AlphaServer 2100 5/250 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0902010001 = 1123 ! AlphaServer 2000 4/200 (1cpu)Y C DECLARE LONG CONSTANT ALPHA$K_AS0902010002 = 1124 ! AlphaServer 2000 4/200 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0902010003 = 1125 ! AlphaServer 2000 4/200 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0902010004 = 1126 ! AlphaServer 2000 4/200 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906010001 = 1127 ! AlphaServer 2000 4/275 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906010002 = 1128 ! AlphaServer 2000 4/275 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906010003D = 1129 ! AlphaServer 2000 4/275 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906010004 = 1130 ! AlphaServer 2000 4/275 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905010001 = 1131 ! AlphaServer 2000 5/250 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905010002 = 1132 ! AlphaServer 2000 5/250 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905010003 = 1133 ! AlphaServer 2000 5/250 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905010004 = 1134 ! AlphaServer 2000 5/250 (4cpu)` E DECLARE LONG CONSTANT ALPHA$K_AS0902030001 = 1135 ! AlphaServer 2100 4/200 (1cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0902030002 = 1136 ! AlphaServer 2100 4/200 (2cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0902030003 = 1137 ! AlphaServer 2100 4/200 (3cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0902030004 = 1138 ! AlphaServer 2100 4/200 (4cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0906030001 = 1139 ! AlphaServer 2100 4/275 (1cpu) (rack)` DECLARE LONGF CONSTANT ALPHA$K_AS0906030002 = 1140 ! AlphaServer 2100 4/275 (2cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0906030003 = 1141 ! AlphaServer 2100 4/275 (3cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0906030004 = 1142 ! AlphaServer 2100 4/275 (4cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0905030001 = 1143 ! AlphaServer 2100 5/250 (1cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0905030002 = 1144 ! AlphaServer 2100 5/250 (2cpu) (rack)` DECLARE LONG CONSTANT ALPHA$GK_AS0905030003 = 1145 ! AlphaServer 2100 5/250 (3cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0905030004 = 1146 ! AlphaServer 2100 5/250 (4cpu) (rack)R DECLARE LONG CONSTANT ALPHA$K_AS0D06040001 = 1151 ! AlphaStation 200 4/233R DECLARE LONG CONSTANT ALPHA$K_AS0D06050001 = 1152 ! AlphaStation 400 4/233W DECLARE LONG CONSTANT ALPHA$K_AS0D06060001 = 1153 ! AlphaStation 400 4/266 (2M)Z DECLARE LONG CONSTANT ALPHA$K_AS0D06070001 = 1154 ! AlphaStation 400 4/266 (51H2kb)7 DECLARE LONG CONSTANT ALPHA$K_AS0D06080001 = 1155R DECLARE LONG CONSTANT ALPHA$K_AS0D02090001 = 1156 ! AlphaStation 200 4/100R DECLARE LONG CONSTANT ALPHA$K_AS0D060A0001 = 1157 ! AlphaStation 200 4/300Y DECLARE LONG CONSTANT ALPHA$K_AS0D060B0001 = 1158 ! AlphaStation 200 4/266, 512KB7 DECLARE LONG CONSTANT ALPHA$K_AS0D060C0001 = 1159R DECLARE LONG CONSTANT ALPHA$K_AS0D060D0001 = 1160 ! AlphaStation 400 4/300R DECLARE LONG CONSTANT ALPHA$K_AS0FI05020001 = 1161 ! AlphaStation 600 5/2667 DECLARE LONG CONSTANT ALPHA$K_AS1706010001 = 1167Y DECLARE LONG CONSTANT ALPHA$K_AS0906010101 = 1171 ! AlphaServer 2000 4/233 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906010102 = 1172 ! AlphaServer 2000 4/233 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906010103 = 1173 ! AlphaServer 2000 4/233 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906010104 = 1174 ! AlphaServer 2000 4/233 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_JAS0905010101 = 1175 ! AlphaServer 2000 5/300 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905010102 = 1176 ! AlphaServer 2000 5/300 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905010103 = 1177 ! AlphaServer 2000 5/300 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905010104 = 1178 ! AlphaServer 2000 5/300 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906020101 = 1179 ! AlphaServer 2100 4/233 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906020102 = 1180 ! AlphaServer 2100 4/233K (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906020103 = 1181 ! AlphaServer 2100 4/233 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0906020104 = 1182 ! AlphaServer 2100 4/233 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905020101 = 1183 ! AlphaServer 2100 5/300 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905020102 = 1184 ! AlphaServer 2100 5/300 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0905020103 = 1185 ! AlphaServer 2100 5/300 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_LAS0905020104 = 1186 ! AlphaServer 2100 5/300 (4cpu)` DECLARE LONG CONSTANT ALPHA$K_AS0906030101 = 1187 ! AlphaServer 2100 4/233 (1cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0906030102 = 1188 ! AlphaServer 2100 4/233 (2cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0906030103 = 1189 ! AlphaServer 2100 4/233 (3cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0906030104 = 1190 ! AlphaServer 2100 4/233 (4cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0905030101 = 1191 !M AlphaServer 2100 5/300 (1cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0905030102 = 1192 ! AlphaServer 2100 5/300 (2cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0905030103 = 1193 ! AlphaServer 2100 5/300 (3cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0905030104 = 1194 ! AlphaServer 2100 5/300 (4cpu) (rack)Z DECLARE LONG CONSTANT ALPHA$K_AS1806010001 = 1195 ! AlphaServer 2000A 4/233 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806010002 = 1196 ! AlphaServer 2000A 4/N233 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806010003 = 1197 ! AlphaServer 2000A 4/233 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806010004 = 1198 ! AlphaServer 2000A 4/233 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806010101 = 1199 ! AlphaServer 2000A 4/275 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806010102 = 1200 ! AlphaServer 2000A 4/275 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806010103 = 1201 ! AlphaServer 2000A 4/275 (3cpu)Z DECLARE LONG CONSTANT ALPHA$OK_AS1806010104 = 1202 ! AlphaServer 2000A 4/275 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805010001 = 1203 ! AlphaServer 2000A 5/250 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805010002 = 1204 ! AlphaServer 2000A 5/250 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805010003 = 1205 ! AlphaServer 2000A 5/250 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805010004 = 1206 ! AlphaServer 2000A 5/250 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805010101 = 1207 ! AlphaServer 2000A 5/P300 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805010102 = 1208 ! AlphaServer 2000A 5/300 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805010103 = 1209 ! AlphaServer 2000A 5/300 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805010104 = 1210 ! AlphaServer 2000A 5/300 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806020001 = 1211 ! AlphaServer 2100A 4/233 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806020002 = 1212 ! AlphaServer 2100A 4/233 (2cpu)Z DECLARE LONG CONSTANT ALPHA$QK_AS1806020003 = 1213 ! AlphaServer 2100A 4/233 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806020004 = 1214 ! AlphaServer 2100A 4/233 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806020101 = 1215 ! AlphaServer 2100A 4/275 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806020102 = 1216 ! AlphaServer 2100A 4/275 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806020103 = 1217 ! AlphaServer 2100A 4/275 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1806020104 = 1218 ! AlphaServer 2100A 4/R275 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805020001 = 1219 ! AlphaServer 2100A 5/250 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805020002 = 1220 ! AlphaServer 2100A 5/250 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805020003 = 1221 ! AlphaServer 2100A 5/250 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805020004 = 1222 ! AlphaServer 2100A 5/250 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805020101 = 1223 ! AlphaServer 2100A 5/300 (1cpu)Z DECLARE LONG CONSTANT ALPHA$SK_AS1805020102 = 1224 ! AlphaServer 2100A 5/300 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805020103 = 1225 ! AlphaServer 2100A 5/300 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1805020104 = 1226 ! AlphaServer 2100A 5/300 (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS1806030001 = 1227 ! AlphaServer 2100A 4/233 (1cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1806030002 = 1228 ! AlphaServer 2100A 4/233 (2cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1806030003 = 1229 ! AlphTaServer 2100A 4/233 (3cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1806030004 = 1230 ! AlphaServer 2100A 4/233 (4cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1806030101 = 1231 ! AlphaServer 2100A 4/275 (1cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1806030102 = 1232 ! AlphaServer 2100A 4/275 (2cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1806030103 = 1233 ! AlphaServer 2100A 4/275 (3cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1806030104 = 1234 ! AlphaServeUr 2100A 4/275 (4cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1805030001 = 1235 ! AlphaServer 2100A 5/250 (1cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1805030002 = 1236 ! AlphaServer 2100A 5/250 (2cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1805030003 = 1237 ! AlphaServer 2100A 5/250 (3cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1805030004 = 1238 ! AlphaServer 2100A 5/250 (4cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1805030101 = 1239 ! AlphaServer 2100VA 5/300 (1cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1805030102 = 1240 ! AlphaServer 2100A 5/300 (2cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1805030103 = 1241 ! AlphaServer 2100A 5/300 (3cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1805030104 = 1242 ! AlphaServer 2100A 5/300 (4cpu) (rack)E DECLARE LONG CONSTANT ALPHA$K_AS1A05010001 = 1245 ! EB164 266E DECLARE LONG CONSTANT ALPHA$K_AS1A05020001 = 1246 ! EB164 300R DECLARE LONG CONSTANT ALPHA$K_ASW0D06200001 = 1250 ! AlphaStation 205 4/133R DECLARE LONG CONSTANT ALPHA$K_AS0D06210001 = 1251 ! AlphaStation 205 4/166R DECLARE LONG CONSTANT ALPHA$K_AS0D06220001 = 1252 ! AlphaStation 205 4/200R DECLARE LONG CONSTANT ALPHA$K_AS0D06230001 = 1253 ! AlphaStation 205 4/233R DECLARE LONG CONSTANT ALPHA$K_AS0D06240001 = 1254 ! AlphaStation 205 4/266R DECLARE LONG CONSTANT ALPHA$K_AS0D06250001 = 1255 ! AlphaStation 205 4/300R DECLARE LONG CONSTANT ALPHA$K_AS0DX06260001 = 1256 ! AlphaStation 205 4/333R DECLARE LONG CONSTANT ALPHA$K_AS0D06270001 = 1257 ! AlphaStation 255 4/133R DECLARE LONG CONSTANT ALPHA$K_AS0D06280001 = 1258 ! AlphaStation 255 4/166R DECLARE LONG CONSTANT ALPHA$K_AS0D06290001 = 1259 ! AlphaStation 255 4/200R DECLARE LONG CONSTANT ALPHA$K_AS0D062A0001 = 1260 ! AlphaStation 255 4/233R DECLARE LONG CONSTANT ALPHA$K_AS0D062B0001 = 1261 ! AlphaStation 255 4/266R DECLARE LONG CONSTANT ALPHA$K_AS0D06Y2C0001 = 1262 ! AlphaStation 255 4/300R DECLARE LONG CONSTANT ALPHA$K_AS0D062D0001 = 1263 ! AlphaStation 255 4/333R DECLARE LONG CONSTANT ALPHA$K_AS1106030001 = 1264 ! AlphaServer 1000 4/266S DECLARE LONG CONSTANT ALPHA$K_AS1B06010001 = 1265 ! AlphaServer 1000A 4/266R DECLARE LONG CONSTANT ALPHA$K_AS0F05030001 = 1266 ! AlphaStation 500 5/266R DECLARE LONG CONSTANT ALPHA$K_AS0F05040001 = 1267 ! AlphaStation 500 5/300R DECLARE LONG CONSTANT ALPHA$K_AS0F05Z050001 = 1268 ! AlphaStation 500 5/333R DECLARE LONG CONSTANT ALPHA$K_AS1105040001 = 1269 ! AlphaServer 1000 5/300S DECLARE LONG CONSTANT ALPHA$K_AS1B05020001 = 1270 ! AlphaServer 1000A 5/300R DECLARE LONG CONSTANT ALPHA$K_AS0F05060001 = 1275 ! AlphaStation 600 5/333R DECLARE LONG CONSTANT ALPHA$K_AS0F05070001 = 1276 ! AlphaStation 600 5/366R DECLARE LONG CONSTANT ALPHA$K_AS0F05080001 = 1277 ! AlphaStation 600 5/400R DECLARE LONG CONSTANT ALPHA$K_AS0F05[090001 = 1278 ! AlphaStation 600 5/433R DECLARE LONG CONSTANT ALPHA$K_AS0F050A0001 = 1279 ! AlphaStation 600 5/466R DECLARE LONG CONSTANT ALPHA$K_AS0F050B0001 = 1280 ! AlphaStation 600 5/500P DECLARE LONG CONSTANT ALPHA$K_AS0F070C0001 = 1281 ! AlphaStation 500/333P DECLARE LONG CONSTANT ALPHA$K_AS0F070D0001 = 1282 ! AlphaStation 500/366P DECLARE LONG CONSTANT ALPHA$K_AS0F070E0001 = 1283 ! AlphaStation 500/400P DECLARE LONG CONSTANT ALPHA$K_AS0F070F0001 =\ 1284 ! AlphaStation 500/433P DECLARE LONG CONSTANT ALPHA$K_AS0F07100001 = 1285 ! AlphaStation 500/466P DECLARE LONG CONSTANT ALPHA$K_AS0F07110001 = 1286 ! AlphaStation 500/500Y DECLARE LONG CONSTANT ALPHA$K_AS0C05020001 = 1292 ! AlphaServer 8200 5/350 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05020002 = 1293 ! AlphaServer 8200 5/350 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05020003 = 1294 ! AlphaServer 8200 5/350 (3cpu)Y DECLARE LONG CONSTANT ALPHA$]K_AS0C05020004 = 1295 ! AlphaServer 8200 5/350 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05020005 = 1296 ! AlphaServer 8200 5/350 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05020006 = 1297 ! AlphaServer 8200 5/350 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05030001 = 1298 ! AlphaServer 8400 5/350 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05030002 = 1299 ! AlphaServer 8400 5/350 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05030003 = 1300 ! AlphaServer 8400 5/3^50 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05030004 = 1301 ! AlphaServer 8400 5/350 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05030005 = 1302 ! AlphaServer 8400 5/350 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05030006 = 1303 ! AlphaServer 8400 5/350 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05030007 = 1304 ! AlphaServer 8400 5/350 (7cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C05030008 = 1305 ! AlphaServer 8400 5/350 (8cpu)Y DECLARE LONG CONSTANT ALPHA$_K_AS0C05030009 = 1306 ! AlphaServer 8400 5/350 (9cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0503000A = 1307 ! AlphaServer 8400 5/350 (10cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0503000B = 1308 ! AlphaServer 8400 5/350 (11cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0503000C = 1309 ! AlphaServer 8400 5/350 (12cpu)Q DECLARE LONG CONSTANT ALPHA$K_AS1B07040001 = 1310 ! AlphaServer 600 5/333S DECLARE LONG CONSTANT ALPHA$K_AS1B07030001 = 1311 ! AlphaServer 1000A 5/400R ` DECLARE LONG CONSTANT ALPHA$K_AS1107050001 = 1312 ! AlphaServer 1000 5/400] DECLARE LONG CONSTANT ALPHA$K_AS1605020001 = 1313 ! AlphaServer 4100 5/266 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020002 = 1314 ! AlphaServer 4100 5/266 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020003 = 1315 ! AlphaServer 4100 5/266 0MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020004 = 1316 ! AlphaServer 4100 5/266 0MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS16a05010001 = 1317 ! AlphaServer 4100 5/266 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010002 = 1318 ! AlphaServer 4100 5/266 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010003 = 1319 ! AlphaServer 4100 5/266 0MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010004 = 1320 ! AlphaServer 4100 5/266 0MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020101 = 1321 ! AlphaServer 4100 5/300 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020102 = 1322 ! AlphaSberver 4100 5/300 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020103 = 1323 ! AlphaServer 4100 5/300 0MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020104 = 1324 ! AlphaServer 4100 5/300 0MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010101 = 1325 ! AlphaServer 4100 5/300 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010102 = 1326 ! AlphaServer 4100 5/300 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010103 = 1327 ! AlphaServer 4100 5/300 0MB (3cpuc)] DECLARE LONG CONSTANT ALPHA$K_AS1605010104 = 1328 ! AlphaServer 4100 5/300 0MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020001 = 1329 ! AlphaServer 4100 5/400 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020002 = 1330 ! AlphaServer 4100 5/400 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020003 = 1331 ! AlphaServer 4100 5/400 0MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020004 = 1332 ! AlphaServer 4100 5/400 0MB (4cpu)] DECLARE LONG CONdSTANT ALPHA$K_AS1607010001 = 1333 ! AlphaServer 4100 5/400 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010002 = 1334 ! AlphaServer 4100 5/400 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010003 = 1335 ! AlphaServer 4100 5/400 0MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010004 = 1336 ! AlphaServer 4100 5/400 0MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020201 = 1337 ! AlphaServer 4100 5/266 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020202e = 1338 ! AlphaServer 4100 5/266 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020203 = 1339 ! AlphaServer 4100 5/266 1MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020204 = 1340 ! AlphaServer 4100 5/266 1MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010201 = 1341 ! AlphaServer 4100 5/266 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010202 = 1342 ! AlphaServer 4100 5/266 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010203 = 1343 ! AlphaServer 41f00 5/266 1MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010204 = 1344 ! AlphaServer 4100 5/266 1MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020301 = 1345 ! AlphaServer 4100 5/300 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020302 = 1346 ! AlphaServer 4100 5/300 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020303 = 1347 ! AlphaServer 4100 5/300 1MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020304 = 1348 ! AlphaServer 4100 5/300 1MB (4cpu)] g DECLARE LONG CONSTANT ALPHA$K_AS1605010301 = 1349 ! AlphaServer 4100 5/300 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010302 = 1350 ! AlphaServer 4100 5/300 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010303 = 1351 ! AlphaServer 4100 5/300 1MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010304 = 1352 ! AlphaServer 4100 5/300 1MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020101 = 1353 ! AlphaServer 4100 5/400 1MB (1cpu)] DECLARE LONG CONSTANT ALhPHA$K_AS1607020102 = 1354 ! AlphaServer 4100 5/400 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020103 = 1355 ! AlphaServer 4100 5/400 1MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020104 = 1356 ! AlphaServer 4100 5/400 1MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010101 = 1357 ! AlphaServer 4100 5/400 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010102 = 1358 ! AlphaServer 4100 5/400 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010103 = 1359 i ! AlphaServer 4100 5/400 1MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010104 = 1360 ! AlphaServer 4100 5/400 1MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020401 = 1361 ! AlphaServer 4100 5/266 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020402 = 1362 ! AlphaServer 4100 5/266 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020403 = 1363 ! AlphaServer 4100 5/266 2MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020404 = 1364 ! AlphaServer 4100 5/266j 2MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010401 = 1365 ! AlphaServer 4100 5/266 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010402 = 1366 ! AlphaServer 4100 5/266 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010403 = 1367 ! AlphaServer 4100 5/266 2MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010404 = 1368 ! AlphaServer 4100 5/266 2MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020501 = 1369 ! AlphaServer 4100 5/300 2MB (1cpu)] DECLARkE LONG CONSTANT ALPHA$K_AS1605020502 = 1370 ! AlphaServer 4100 5/300 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020503 = 1371 ! AlphaServer 4100 5/300 2MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020504 = 1372 ! AlphaServer 4100 5/300 2MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010501 = 1373 ! AlphaServer 4100 5/300 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010502 = 1374 ! AlphaServer 4100 5/300 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_ASl1605010503 = 1375 ! AlphaServer 4100 5/300 2MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010504 = 1376 ! AlphaServer 4100 5/300 2MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020201 = 1377 ! AlphaServer 4100 5/400 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020202 = 1378 ! AlphaServer 4100 5/400 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020203 = 1379 ! AlphaServer 4100 5/400 2MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020204 = 1380 ! AlphmaServer 4100 5/400 2MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010201 = 1381 ! AlphaServer 4100 5/400 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010202 = 1382 ! AlphaServer 4100 5/400 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010203 = 1383 ! AlphaServer 4100 5/400 2MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010204 = 1384 ! AlphaServer 4100 5/400 2MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020601 = 1385 ! AlphaServer 4100 5/266 4MB (1cnpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020602 = 1386 ! AlphaServer 4100 5/266 4MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020603 = 1387 ! AlphaServer 4100 5/266 4MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020604 = 1388 ! AlphaServer 4100 5/266 4MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010601 = 1389 ! AlphaServer 4100 5/266 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010602 = 1390 ! AlphaServer 4100 5/266 4MB (2cpu)] DECLARE LONG CoONSTANT ALPHA$K_AS1605010603 = 1391 ! AlphaServer 4100 5/266 4MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010604 = 1392 ! AlphaServer 4100 5/266 4MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020701 = 1393 ! AlphaServer 4100 5/300 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020702 = 1394 ! AlphaServer 4100 5/300 4MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605020703 = 1395 ! AlphaServer 4100 5/300 4MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS16050207p04 = 1396 ! AlphaServer 4100 5/300 4MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010701 = 1397 ! AlphaServer 4100 5/300 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010702 = 1398 ! AlphaServer 4100 5/300 4MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010703 = 1399 ! AlphaServer 4100 5/300 4MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605010704 = 1400 ! AlphaServer 4100 5/300 4MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020301 = 1401 ! AlphaServer q4100 5/400 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020302 = 1402 ! AlphaServer 4100 5/400 4MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020303 = 1403 ! AlphaServer 4100 5/400 4MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607020304 = 1404 ! AlphaServer 4100 5/400 4MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010301 = 1405 ! AlphaServer 4100 5/400 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010302 = 1406 ! AlphaServer 4100 5/400 4MB (2cpu)] r DECLARE LONG CONSTANT ALPHA$K_AS1607010303 = 1407 ! AlphaServer 4100 5/400 4MB (3cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607010304 = 1408 ! AlphaServer 4100 5/400 4MB (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040001 = 1409 ! AlphaServer 4000 5/266 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040002 = 1410 ! AlphaServer 4000 5/266 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030001 = 1411 ! AlphaServer 4000 5/266 0MB (1cpu)] DECLARE LONG CONSTANT sALPHA$K_AS1605030002 = 1412 ! AlphaServer 4000 5/266 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040101 = 1413 ! AlphaServer 4000 5/300 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040102 = 1414 ! AlphaServer 4000 5/300 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030101 = 1415 ! AlphaServer 4000 5/300 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030102 = 1416 ! AlphaServer 4000 5/300 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607040001 = 141t7 ! AlphaServer 4000 5/400 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607040002 = 1418 ! AlphaServer 4000 5/400 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607030001 = 1419 ! AlphaServer 4000 5/400 0MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607030002 = 1420 ! AlphaServer 4000 5/400 0MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040201 = 1421 ! AlphaServer 4000 5/266 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040202 = 1422 ! AlphaServer 4000 5/2u66 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030201 = 1423 ! AlphaServer 4000 5/266 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030202 = 1424 ! AlphaServer 4000 5/266 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040301 = 1425 ! AlphaServer 4000 5/300 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040302 = 1426 ! AlphaServer 4000 5/300 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030301 = 1427 ! AlphaServer 4000 5/300 1MB (1cpu)] DECLvARE LONG CONSTANT ALPHA$K_AS1605030302 = 1428 ! AlphaServer 4000 5/300 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607040101 = 1429 ! AlphaServer 4000 5/400 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607040102 = 1430 ! AlphaServer 4000 5/400 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607030101 = 1431 ! AlphaServer 4000 5/400 1MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607030102 = 1432 ! AlphaServer 4000 5/400 1MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_wAS1605040401 = 1433 ! AlphaServer 4000 5/266 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040402 = 1434 ! AlphaServer 4000 5/266 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030401 = 1435 ! AlphaServer 4000 5/266 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030402 = 1436 ! AlphaServer 4000 5/266 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040501 = 1437 ! AlphaServer 4000 5/300 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040502 = 1438 ! AlxphaServer 4000 5/300 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030501 = 1439 ! AlphaServer 4000 5/300 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030502 = 1440 ! AlphaServer 4000 5/300 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607040201 = 1441 ! AlphaServer 4000 5/400 2MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607040202 = 1442 ! AlphaServer 4000 5/400 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607030201 = 1443 ! AlphaServer 4000 5/400 2MB (y1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607030202 = 1444 ! AlphaServer 4000 5/400 2MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040601 = 1445 ! AlphaServer 4000 5/266 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040602 = 1446 ! AlphaServer 4000 5/266 4MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030601 = 1447 ! AlphaServer 4000 5/266 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030602 = 1448 ! AlphaServer 4000 5/266 4MB (2cpu)] DECLARE LONGz CONSTANT ALPHA$K_AS1605040701 = 1449 ! AlphaServer 4000 5/300 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605040702 = 1450 ! AlphaServer 4000 5/300 4MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030701 = 1451 ! AlphaServer 4000 5/300 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1605030702 = 1452 ! AlphaServer 4000 5/300 4MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607040301 = 1453 ! AlphaServer 4000 5/400 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS160704{0302 = 1454 ! AlphaServer 4000 5/400 4MB (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607030301 = 1455 ! AlphaServer 4000 5/400 4MB (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS1607030302 = 1456 ! AlphaServer 4000 5/400 4MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060001 = 1457 ! AlphaServer 4000A 5/266 0MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060002 = 1458 ! AlphaServer 4000A 5/266 0MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050001 = 1459 ! AlphaServe|r 4000A 5/266 0MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050002 = 1460 ! AlphaServer 4000A 5/266 0MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060101 = 1461 ! AlphaServer 4000A 5/300 0MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060102 = 1462 ! AlphaServer 4000A 5/300 0MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050101 = 1463 ! AlphaServer 4000A 5/300 0MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050102 = 1464 ! AlphaServer 4000A 5/300 0MB (2cpu)^} DECLARE LONG CONSTANT ALPHA$K_AS1607060001 = 1465 ! AlphaServer 4000A 5/400 0MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607060002 = 1466 ! AlphaServer 4000A 5/400 0MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607050001 = 1467 ! AlphaServer 4000A 5/400 0MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607050002 = 1468 ! AlphaServer 4000A 5/400 0MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060201 = 1469 ! AlphaServer 4000A 5/266 1MB (1cpu)^ DECLARE LONG CONSTAN~T ALPHA$K_AS1605060202 = 1470 ! AlphaServer 4000A 5/266 1MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050201 = 1471 ! AlphaServer 4000A 5/266 1MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050202 = 1472 ! AlphaServer 4000A 5/266 1MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060301 = 1473 ! AlphaServer 4000A 5/300 1MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060302 = 1474 ! AlphaServer 4000A 5/300 1MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050301 = 1475 ! AlphaServer 4000A 5/300 1MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050302 = 1476 ! AlphaServer 4000A 5/300 1MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607060101 = 1477 ! AlphaServer 4000A 5/400 1MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607060102 = 1478 ! AlphaServer 4000A 5/400 1MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607050101 = 1479 ! AlphaServer 4000A 5/400 1MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607050102 = 1480 ! AlphaServer 4000A 5/400 1MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060401 = 1481 ! AlphaServer 4000A 5/266 2MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060402 = 1482 ! AlphaServer 4000A 5/266 2MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050401 = 1483 ! AlphaServer 4000A 5/266 2MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050402 = 1484 ! AlphaServer 4000A 5/266 2MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060501 = 1485 ! AlphaServer 4000A 5/300 2MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060502 = 1486 ! AlphaServer 4000A 5/300 2MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050501 = 1487 ! AlphaServer 4000A 5/300 2MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050502 = 1488 ! AlphaServer 4000A 5/300 2MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607060201 = 1489 ! AlphaServer 4000A 5/400 2MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607060202 = 1490 ! AlphaServer 4000A 5/400 2MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607050201 = 1491 ! AlphaServer 4000A 5/400 2MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607050202 = 1492 ! AlphaServer 4000A 5/400 2MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060601 = 1493 ! AlphaServer 4000A 5/266 4MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060602 = 1494 ! AlphaServer 4000A 5/266 4MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050601 = 1495 ! AlphaServer 4000A 5/266 4MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050602 = 1496 ! AlphaServer 4000A 5/266 4MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060701 = 1497 ! AlphaServer 4000A 5/300 4MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605060702 = 1498 ! AlphaServer 4000A 5/300 4MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050701 = 1499 ! AlphaServer 4000A 5/300 4MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1605050702 = 1500 ! AlphaServer 4000A 5/300 4MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607060301 = 1501 ! AlphaServer 4000A 5/400 4MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607060302 = 1502 ! AlphaServer 4000A 5/400 4MB (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607050301 = 1503 ! AlphaServer 4000A 5/400 4MB (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS1607050302 = 1504 ! AlphaServer 4000A 5/400 4MB (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907010001 = 1505 ! AlphaServer 2000 5/375 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907010002 = 1506 ! AlphaServer 2000 5/375 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907010003 = 1507 ! AlphaServer 2000 5/375 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907010004 = 1508 ! AlphaServer 2000 5/375 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907020001 = 1509 ! AlphaServer 2100 5/375 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907020002 = 1510 ! AlphaServer 2100 5/375 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907020003 = 1511 ! AlphaServer 2100 5/375 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907020004 = 1512 ! AlphaServer 2100 5/375 (4cpu)` DECLARE LONG CONSTANT ALPHA$K_AS0907030001 = 1513 ! AlphaServer 2100 5/375 (1cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0907030002 = 1514 ! AlphaServer 2100 5/375 (2cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0907030003 = 1515 ! AlphaServer 2100 5/375 (3cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0907030004 = 1516 ! AlphaServer 2100 5/375 (4cpu) (rack)Y DECLARE LONG CONSTANT ALPHA$K_AS0907010101 = 1517 ! AlphaServer 2000 5/400 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907010102 = 1518 ! AlphaServer 2000 5/400 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907010103 = 1519 ! AlphaServer 2000 5/400 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907010104 = 1520 ! AlphaServer 2000 5/400 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907020101 = 1521 ! AlphaServer 2100 5/400 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907020102 = 1522 ! AlphaServer 2100 5/400 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907020103 = 1523 ! AlphaServer 2100 5/400 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0907020104 = 1524 ! AlphaServer 2100 5/400 (4cpu)` DECLARE LONG CONSTANT ALPHA$K_AS0907030101 = 1525 ! AlphaServer 2100 5/400 (1cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0907030102 = 1526 ! AlphaServer 2100 5/400 (2cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0907030103 = 1527 ! AlphaServer 2100 5/400 (3cpu) (rack)` DECLARE LONG CONSTANT ALPHA$K_AS0907030104 = 1528 ! AlphaServer 2100 5/400 (4cpu) (rack)Z DECLARE LONG CONSTANT ALPHA$K_AS1807010001 = 1529 ! AlphaServer 2000A 5/375 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807010002 = 1530 ! AlphaServer 2000A 5/375 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807010003 = 1531 ! AlphaServer 2000A 5/375 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807010004 = 1532 ! AlphaServer 2000A 5/375 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807020001 = 1533 ! AlphaServer 2100A 5/375 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807020002 = 1534 ! AlphaServer 2100A 5/375 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807020003 = 1535 ! AlphaServer 2100A 5/375 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807020004 = 1536 ! AlphaServer 2100A 5/375 (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS1807030001 = 1537 ! AlphaServer 2100A 5/375 (1cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1807030002 = 1538 ! AlphaServer 2100A 5/375 (2cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1807030003 = 1539 ! AlphaServer 2100A 5/375 (3cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1807030004 = 1540 ! AlphaServer 2100A 5/375 (4cpu) (rack)Z DECLARE LONG CONSTANT ALPHA$K_AS1807010101 = 1541 ! AlphaServer 2000A 5/400 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807010102 = 1542 ! AlphaServer 2000A 5/400 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807010103 = 1543 ! AlphaServer 2000A 5/400 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807010104 = 1544 ! AlphaServer 2000A 5/400 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807020101 = 1545 ! AlphaServer 2100A 5/400 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807020102 = 1546 ! AlphaServer 2100A 5/400 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807020103 = 1547 ! AlphaServer 2100A 5/400 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS1807020104 = 1548 ! AlphaServer 2100A 5/400 (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS1807030101 = 1549 ! AlphaServer 2100A 5/400 (1cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1807030102 = 1550 ! AlphaServer 2100A 5/400 (2cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1807030103 = 1551 ! AlphaServer 2100A 5/400 (3cpu) (rack)a DECLARE LONG CONSTANT ALPHA$K_AS1807030104 = 1552 ! AlphaServer 2100A 5/400 (4cpu) (rack)Z DECLARE LONG CONSTANT ALPHA$K_AS1406030001 = 1553 ! AlphaPCI64 275, EV45 2MB CacheV DECLARE LONG CONSTANT ALPHA$K_AS1E07010001 = 1554 ! Personal Workstation 433auV DECLARE LONG CONSTANT ALPHA$K_AS1E07020001 = 1555 ! Personal Workstation 466auV DECLARE LONG CONSTANT ALPHA$K_AS1E07030001 = 1556 ! Personal Workstation 500auV DECLARE LONG CONSTANT ALPHA$K_AS1E07040001 = 1557 ! Personal Workstation 533auS DECLARE LONG CONSTANT ALPHA$K_AS1B07030101 = 1558 ! AlphaServer 1000A 5/333R DECLARE LONG CONSTANT ALPHA$K_AS1107050101 = 1559 ! AlphaServer 1000 5/333Y DECLARE LONG CONSTANT ALPHA$K_AS0C07040001 = 1560 ! AlphaServer 8200 5/440 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07040002 = 1561 ! AlphaServer 8200 5/440 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07040003 = 1562 ! AlphaServer 8200 5/440 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07040004 = 1563 ! AlphaServer 8200 5/440 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07040005 = 1564 ! AlphaServer 8200 5/440 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07040006 = 1565 ! AlphaServer 8200 5/440 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050001 = 1566 ! AlphaServer 8400 5/440 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050002 = 1567 ! AlphaServer 8400 5/440 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050003 = 1568 ! AlphaServer 8400 5/440 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050004 = 1569 ! AlphaServer 8400 5/440 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050005 = 1570 ! AlphaServer 8400 5/440 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050006 = 1571 ! AlphaServer 8400 5/440 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050007 = 1572 ! AlphaServer 8400 5/440 (7cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050008 = 1573 ! AlphaServer 8400 5/440 (8cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07050009 = 1574 ! AlphaServer 8400 5/440 (9cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0705000A = 1575 ! AlphaServer 8400 5/440 (10cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0705000B = 1576 ! AlphaServer 8400 5/440 (11cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0705000C = 1577 ! AlphaServer 8400 5/440 (12cpu)L DECLARE LONG CONSTANT ALPHA$K_AS1F05010001 = 1578 ! XXM, EV5 266 MHzS DECLARE LONG CONSTANT ALPHA$K_AS2007010001 = 1579 ! DIGITAL 21164 PICMG SBC] DECLARE LONG CONSTANT ALPHA$K_AS1B07030201 = 1580 ! AlphaServer 1000A 5/500 2MB Cache] DECLARE LONG CONSTANT ALPHA$K_AS1B07030301 = 1581 ! AlphaServer 1000A 5/500 8MB Cache\ DECLARE LONG CONSTANT ALPHA$K_AS1107050201 = 1582 ! AlphaServer 1000 5/500 2MB Cache\ DECLARE LONG CONSTANT ALPHA$K_AS1107050301 = 1583 ! AlphaServer 1000 5/500 8MB Cache[ DECLARE LONG CONSTANT ALPHA$K_AS1B07040101 = 1584 ! AlphaServer 800 5/400 2MB Cache[ DECLARE LONG CONSTANT ALPHA$K_AS1B07040201 = 1585 ! AlphaServer 800 5/500 2MB CacheU DECLARE LONG CONSTANT ALPHA$K_AS1A07060001 = 1586 ! AlphaPC 164, EV56 466 MHzU DECLARE LONG CONSTANT ALPHA$K_AS1A07070001 = 1587 ! AlphaPC 164, EV56 500 MHzP DECLARE LONG CONSTANT ALPHA$K_AS2107000001 = 1588 ! AlphaVME 5/320, EV56P DECLARE LONG CONSTANT ALPHA$K_AS2107010001 = 1589 ! AlphaVME 5/480, EV56] DECLARE LONG CONSTANT ALPHA$K_AS1B07030401 = 1590 ! AlphaStation 600A 5/500 8MB CacheZ DECLARE LONG CONSTANT ALPHA$K_AS0C0705000D = 1591 ! AlphaServer 8400 5/440 (13cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0705000E = 1592 ! AlphaServer 8400 5/440 (14cpu)Q DECLARE LONG CONSTANT ALPHA$K_AS0D06080101 = 1593 ! AlphaServer 300 4/266d DECLARE LONG CONSTANT ALPHA$K_AS1607020401 = 1594 ! AlphaServer 4100 5/466 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020402 = 1595 ! AlphaServer 4100 5/466 4MB (2cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020403 = 1596 ! AlphaServer 4100 5/466 4MB (3cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020404 = 1597 ! AlphaServer 4100 5/466 4MB (4cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607010401 = 1598 ! AlphaServer 4100 5/466 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010402 = 1599 ! AlphaServer 4100 5/466 4MB (2cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010403 = 1600 ! AlphaServer 4100 5/466 4MB (3cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010404 = 1601 ! AlphaServer 4100 5/466 4MB (4cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607020501 = 1602 ! AlphaServer 4100 5/533 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020502 = 1603 ! AlphaServer 4100 5/533 4MB (2cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020503 = 1604 ! AlphaServer 4100 5/533 4MB (3cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020504 = 1605 ! AlphaServer 4100 5/533 4MB (4cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607010501 = 1606 ! AlphaServer 4100 5/533 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010502 = 1607 ! AlphaServer 4100 5/533 4MB (2cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010503 = 1608 ! AlphaServer 4100 5/533 4MB (3cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010504 = 1609 ! AlphaServer 4100 5/533 4MB (4cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607020601 = 1610 ! AlphaServer 4100 5/533 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020602 = 1611 ! AlphaServer 4100 5/533 8MB (2cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020603 = 1612 ! AlphaServer 4100 5/533 8MB (3cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020604 = 1613 ! AlphaServer 4100 5/533 8MB (4cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607010601 = 1614 ! AlphaServer 4100 5/533 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010602 = 1615 ! AlphaServer 4100 5/533 8MB (2cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010603 = 1616 ! AlphaServer 4100 5/533 8MB (3cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010604 = 1617 ! AlphaServer 4100 5/533 8MB (4cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607020701 = 1618 ! AlphaServer 4100 5/600 8MB (1cpu) (rack)d  DECLARE LONG CONSTANT ALPHA$K_AS1607020702 = 1619 ! AlphaServer 4100 5/600 8MB (2cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020703 = 1620 ! AlphaServer 4100 5/600 8MB (3cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020704 = 1621 ! AlphaServer 4100 5/600 8MB (4cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607010701 = 1622 ! AlphaServer 4100 5/600 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010702 = 1623 ! AlphaServer 4100 5/600 8MB (2cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010703 = 1624 ! AlphaServer 4100 5/600 8MB (3cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010704 = 1625 ! AlphaServer 4100 5/600 8MB (4cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607020801 = 1626 ! AlphaServer 4100 5/666 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020802 = 1627 ! AlphaServer 4100 5/666 8MB (2cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020803 = 1628 ! AlphaServer 4100 5/666 8MB (3cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607020804 = 1629 ! AlphaServer 4100 5/666 8MB (4cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607010801 = 1630 ! AlphaServer 4100 5/666 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010802 = 1631 ! AlphaServer 4100 5/666 8MB (2cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010803 = 1632 ! AlphaServer 4100 5/666 8MB (3cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607010804 = 1633 ! AlphaServer 4100 5/666 8MB (4cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607040401 = 1634 ! AlphaServer 4000 5/466 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607040402 = 1635 ! AlphaServer 4000 5/466 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607030401 = 1636 ! AlphaServer 4000 5/466 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607030402 = 1637 ! AlphaServer 4000 5/466 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607040501 = 1638 ! AlphaServer 4000 5/533 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607040502 = 1639 ! AlphaServer 4000 5/533 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607030501 = 1640 ! AlphaServer 4000 5/533 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607030502 = 1641 ! AlphaServer 4000 5/533 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607040601 = 1642 ! AlphaServer 4000 5/533 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607040602 = 1643 ! AlphaServer 4000 5/533 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607030601 = 1644 ! AlphaServer 4000 5/533 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607030602 = 1645 ! AlphaServer 4000 5/533 8MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607040701 = 1646 ! AlphaServer 4000 5/600 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607040702 = 1647 ! AlphaServer 4000 5/600 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607030701 = 1648 ! AlphaServer 4000 5/600 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607030702 = 1649 ! AlphaServer 4000 5/600 8MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607040801 = 1650 ! AlphaServer 4000 5/666 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607040802 = 1651 ! AlphaServer 4000 5/666 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607030801 = 1652 ! AlphaServer 4000 5/666 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607030802 = 1653 ! AlphaServer 4000 5/666 8MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607060401 = 1654 ! AlphaServer 4000 5/466 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607060402 = 1655 ! AlphaServer 4000 5/466 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607050401 = 1656 ! AlphaServer 4000 5/466 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607050402 = 1657 ! AlphaServer 4000 5/466 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607060501 = 1658 ! AlphaServer 4000 5/533 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607060502 = 1659 ! AlphaServer 4000 5/533 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607050501 = 1660 ! AlphaServer 4000 5/533 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607050502 = 1661 ! AlphaServer 4000 5/533 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607060601 = 1662 ! AlphaServer 4000 5/533 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607060602 = 1663 ! AlphaServer 4000 5/533 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607050601 = 1664 ! AlphaServer 4000 5/533 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607050602 = 1665 ! AlphaServer 4000 5/533 8MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607060701 = 1666 ! AlphaServer 4000 5/600 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607060702 = 1667 ! AlphaServer 4000 5/600 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607050701 = 1668 ! AlphaServer 4000 5/600 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607050702 = 1669 ! AlphaServer 4000 5/600 8MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607060801 = 1670 ! AlphaServer 4000 5/666 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607060802 = 1671 ! AlphaServer 4000 5/666 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607050801 = 1672 ! AlphaServer 4000 5/666 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607050802 = 1673 ! AlphaServer 4000 5/666 8MB (2cpu) (pedestal)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07060001 = 1674 ! AlphaServer 8200 5/622 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07060002 = 1674 ! AlphaServer 8200 5/622 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07060003 = 1674 ! AlphaServer 8200 5/622 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07060004 = 1674 ! AlphaServer 8200 5/622 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07060005 = 1674 ! AlphaServer 8200 5/622 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07060006 = 1674 ! AlphaServer 8200 5/622 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070001 = 1680 ! AlphaServer 8400 5/622 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070002 = 1681 ! AlphaServer 8400 5/622 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070003 = 1682 ! AlphaServer 8400 5/622 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070004 = 1683 ! AlphaServer 8400 5/622 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070005 = 1684 ! AlphaServer 8400 5/622 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070006 = 1685 ! AlphaServer 8400 5/622 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070007 = 1686 ! AlphaServer 8400 5/622 (7cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070008 = 1687 ! AlphaServer 8400 5/622 (8cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07070009 = 1688 ! AlphaServer 8400 5/622 (9cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0707000A = 1689 ! AlphaServer 8400 5/622 (10cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0707000B = 1690 ! AlphaServer 8400 5/622 (11cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0707000C = 1691 ! AlphaServer 8400 5/622 (12cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0707000D = 1692 ! AlphaServer 8400 5/622 (13cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0707000E = 1693 ! AlphaServer 8400 5/622 (14cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS1A07080001 = 1694 ! AlphaPC 164LX 400, EV56 400 MHz[ DECLARE LONG CONSTANT ALPHA$K_AS1A07090001 = 1695 ! AlphaPC 164LX 466, EV56 466 MHz[ DECLARE LONG CONSTANT ALPHA$K_AS1A070A0001 = 1696 ! AlphaPC 164LX 533, EV56 533 MHz[ DECLARE LONG CONSTANT ALPHA$K_AS1A070B0001 = 1697 ! AlphaPC 164LX 600, EV56 600 MHz[ DECLARE LONG CONSTANT ALPHA$K_AS1A070C0001 = 1698 ! AlphaPC 164SX 400, EV56 400 MHz[ DECLARE LONG CONSTANT ALPHA$K_AS1A070D0001 = 1699 ! AlphaPC 164SX 466, EV56 466 MHz[ DECLARE LONG CONSTANT ALPHA$K_AS1A070E0001 = 1700 ! AlphaPC 164SX 533, EV56 533 MHz[ DECLARE LONG CONSTANT ALPHA$K_AS1A070F0001 = 1701 ! AlphaPC 164SX 600, EV56 600 MHzV DECLARE LONG CONSTANT ALPHA$K_AS1E07050001 = 1702 ! Personal Workstation 566auV DECLARE LONG CONSTANT ALPHA$K_AS1E07060001 = 1703 ! Personal Workstation 600auV DECLARE LONG CONSTANT ALPHA$K_AS1E07070001 = 1704 ! Personal Workstation 633auV DECLARE LONG CONSTANT ALPHA$K_AS1E07080001 = 1705 ! Personal Workstation 666auV DECLARE LONG CONSTANT ALPHA$K_AS1E07090001 = 1706 ! Personal Workstation 700auV DECLARE LONG CONSTANT ALPHA$K_AS1E070A0001 = 1707 ! Personal Workstation 733auV DECLARE LONG CONSTANT ALPHA$K_AS1E070B0001 = 1708 ! Personal Workstation 766auV DECLARE LONG CONSTANT ALPHA$K_AS1E070C0001 = 1709 ! Personal Workstation 800auV DECLARE LONG CONSTANT ALPHA$K_AS1E070D0001 = 1710 ! Personal Workstation 833auV  DECLARE LONG CONSTANT ALPHA$K_AS1E070E0001 = 1711 ! Personal Workstation 866auV DECLARE LONG CONSTANT ALPHA$K_AS1E070F0001 = 1712 ! Personal Workstation 900auV DECLARE LONG CONSTANT ALPHA$K_AS1E07100001 = 1713 ! Personal Workstation 933auV DECLARE LONG CONSTANT ALPHA$K_AS1E07110001 = 1714 ! Personal Workstation 966auW DECLARE LONG CONSTANT ALPHA$K_AS1E07120001 = 1715 ! Personal Workstation 1000auV DECLARE LONG CONSTANT ALPHA$K_AS1E07130001 = 1716 ! Personal Workstation 466auV DECLARE LONG CONSTANT ALPHA$K_AS1E07140001 = 1717 ! Personal Workstation 533auV DECLARE LONG CONSTANT ALPHA$K_AS1E07150001 = 1718 ! Personal Workstation 600auV DECLARE LONG CONSTANT ALPHA$K_AS1E07160001 = 1719 ! Personal Workstation 666auV DECLARE LONG CONSTANT ALPHA$K_AS1E09140001 = 1720 ! Personal Workstation 466auV DECLARE LONG CONSTANT ALPHA$K_AS1E09140101 = 1721 ! Personal Workstation 550aud DECLARE LONG CONSTANT ALPHA$K_AS1605080001 = 1722 ! AlphaServer 1200 5/300 2MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1605080002 = 1723 ! AlphaServer 1200 5/300 2MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1605070001 = 1724 ! AlphaServer 1200 5/300 2MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1605070002 = 1725 ! AlphaServer 1200 5/300 2MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607080101 = 1726 ! AlphaServer 1200 5/400 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607080102 = 1727 ! AlphaServer 1200 5/400 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607070101 = 1728 ! AlphaServer 1200 5/400 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607070102 = 1729 ! AlphaServer 1200 5/400 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607080201 = 1730 ! AlphaServer 1200 5/466 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607080202 = 1731 ! AlphaServer 1200 5/466 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607070201 = 1732 ! AlphaServer 1200 5/466 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607070202 = 1733 ! AlphaServer 1200 5/466 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607080301 = 1734 ! AlphaServer 1200 5/533 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607080302 = 1735 ! AlphaServer 1200 5/533 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607070301 = 1736 ! AlphaServer 1200 5/533 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607070302 = 1737 ! AlphaServer 1200 5/533 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607080401 = 1738 ! AlphaServer 1200 5/600 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607080402 = 1739 ! AlphaServer 1200 5/600 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607070401 = 1740 ! AlphaServer 1200 5/600 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607070402 = 1741 ! AlphaServer 1200 5/600 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607080501 = 1742 ! AlphaServer 1200 5/666 4MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607080502 = 1743 ! AlphaServer 1200 5/666 4MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607070501 = 1744 ! AlphaServer 1200 5/666 4MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607070502 = 1745 ! AlphaServer 1200 5/666 4MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607080601 = 1746 ! AlphaServer 1200 5/533 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607080602 = 1747 ! AlphaServer 1200 5/533 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607070601 = 1748 ! AlphaServer 1200 5/533 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607070602 = 1749 ! AlphaServer 1200 5/533 8MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607080701 = 1750 ! AlphaServer 1200 5/600 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607080702 = 1751 ! AlphaServer 1200 5/600 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607070701 = 1752 ! AlphaServer 1200 5/600 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607070702 = 1753 ! AlphaServer 1200 5/600 8MB (2cpu) (pedestal)d DECLARE LONG CONSTANT ALPHA$K_AS1607080801 = 1754 ! AlphaServer 1200 5/666 8MB (1cpu) (rack)d DECLARE LONG CONSTANT ALPHA$K_AS1607080802 = 1755 ! AlphaServer 1200 5/666 8MB (2cpu) (rack)h DECLARE LONG CONSTANT ALPHA$K_AS1607070801 = 1756  ! AlphaServer 1200 5/666 8MB (1cpu) (pedestal)h DECLARE LONG CONSTANT ALPHA$K_AS1607070802 = 1757 ! AlphaServer 1200 5/666 8MB (2cpu) (pedestal)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0101 = 1758 ! AlphaStation 1200 5/400 4MB (1cpu) (rack)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0102 = 1759 ! AlphaStation 1200 5/400 4MB (2cpu) (rack)i DECLARE LONG CONSTANT ALPHA$K_AS1607090101 = 1760 ! AlphaStation 1200 5/400 4MB (1cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS1607090102 = 1761 ! AlphaStation 1200 5/400 4MB (2cpu) (pedestal)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0201 = 1762 ! AlphaStation 1200 5/466 4MB (1cpu) (rack)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0202 = 1763 ! AlphaStation 1200 5/466 4MB (2cpu) (rack)i DECLARE LONG CONSTANT ALPHA$K_AS1607090201 = 1764 ! AlphaStation 1200 5/466 4MB (1cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS1607090202 = 1765 ! AlphaStation 1200 5/466 4MB (2cpu) (pedestal)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0301 = 1766 ! AlphaStation 1200 5/533 4MB (1cpu) (rack)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0302 = 1767 ! AlphaStation 1200 5/533 4MB (2cpu) (rack)i DECLARE LONG CONSTANT ALPHA$K_AS1607090301 = 1768 ! AlphaStation 1200 5/533 4MB (1cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS1607090302 = 1769 ! AlphaStation 1200 5/533 4MB (2cpu) (pedestal)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0401 = 1770 ! AlphaStation 1200 5/600 4MB (1cpu) (rack)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0402 = 1771 ! AlphaStation 1200 5/600 4MB (2cpu) (rack)i DECLARE LONG CONSTANT ALPHA$K_AS1607090401 = 1772 ! AlphaStation 1200 5/600 4MB (1cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS1607090402 = 1773 ! AlphaStation 1200 5/600 4MB (2cpu) (pedestal)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0501 = 1774 ! AlphaStation 1200 5/666 4MB (1cpu) (rack)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0502 = 1775 ! AlphaStation 1200 5/666 4MB (2cpu) (rack)i DECLARE LONG CONSTANT ALPHA$K_AS1607090501 = 1776 ! AlphaStation 1200 5/666 4MB (1cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS1607090502 = 1777 ! AlphaStation 1200 5/666 4MB (2cpu) (pedestal)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0601 = 1778 ! AlphaStation 1200 5/533 8MB (1cpu) (rack)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0602 = 1779 ! AlphaStation 1200 5/533 8MB (2cpu) (rack)i DECLARE LONG CONSTANT ALPHA$K_AS1607090601 = 1780 ! AlphaStation 1200 5/533 8MB (1cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS1607090602 = 1781 ! AlphaStation 1200 5/533 8MB (2cpu) (pedestal)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0701 = 1782 ! AlphaStation 1200 5/600 8MB (1cpu) (rack)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0702 = 1783 ! AlphaStation 1200 5/600 8MB (2cpu) (rack)i DECLARE LONG CONSTANT ALPHA$K_AS1607090701 = 1784 ! AlphaStation 1200 5/600 8MB (1cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS1607090702 = 1785 ! AlphaStation 1200 5/600 8MB (2cpu) (pedestal)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0801 = 1786 ! AlphaStation 1200 5/666 8MB (1cpu) (rack)e DECLARE LONG CONSTANT ALPHA$K_AS16070A0802 = 1787 ! AlphaStation 1200 5/666 8MB (2cpu) (rack)i DECLARE LONG CONSTANT ALPHA$K_AS1607090801 = 1788 ! AlphaStation 1200 5/666 8MB (1cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS1607090802 = 1789 ! AlphaStation 1200 5/666 8MB (2cpu) (pedestal)V DECLARE LONG CONSTANT ALPHA$K_AS1E07190001 = 1790 ! Personal Workstation 433auV DECLARE LONG CONSTANT ALPHA$K_AS1E071A0001 = 1791 ! Personal Workstation 500auV DECLARE LONG CONSTANT ALPHA$K_AS1E071B0001 = 1792 ! Personal Workstation 600auY DECLARE LONG CONSTANT ALPHA$K_AS0C07080001 = 1793 ! AlphaServer 8200 5/625 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07080002 = 1794 ! AlphaServer 8200 5/625 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07080003 = 1795 ! AlphaServer 8200 5/625 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07080004 = 1796 ! AlphaServer 8200 5/625 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07080005 = 1797 ! AlphaServer 8200 5/625 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07080006 = 1798 ! AlphaServer 8200 5/625 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090001 = 1799 ! AlphaServer 8400 5/625 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090002 = 1800 ! AlphaServer 8400 5/625 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090003 = 1801 ! AlphaServer 8400 5/625 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090004 = 1802 ! AlphaServer 8400 5/625 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090005 = 1803 ! AlphaServer 8400 5/625 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090006 = 1804 ! AlphaServer 8400 5/625 (6cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090007 = 1805 ! AlphaServer 8400 5/625 (7cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090008 = 1806 ! AlphaServer 8400 5/625 (8cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C07090009 = 1807 ! AlphaServer 8400 5/625 (9cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0709000A = 1808 ! AlphaServer 8400 5/625 (10cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0709000B = 1809 ! AlphaServer 8400 5/625 (11cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0709000C = 1810 ! AlphaServer 8400 5/625 (12cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0709000D = 1811 ! AlphaServer 8400 5/625 (13cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0709000E = 1812 ! AlphaServer 8400 5/625 (14cpu)r DECLARE LONG CONSTANT ALPHA$K_AS2208050001 = 1813 ! AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 8-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050002 = 1814 ! AlphaServer ES40 6/500 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050003 = 1815 ! AlphaServer ES40 6/500 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050004 = 1816 ! AlphaServer ES40 6/500 (4cpu)r DECLARE LONG CONSTANT ALPHA$K_AS2208050101 = 1817 ! AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 8-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050102 = 1818 ! AlphaServer ES40 6/667 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050103 = 1819 ! AlphaServer ES40 6/667 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050104 = 1820 ! AlphaServer ES40 6/667 (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS2208050201 = 1821 ! Professional Workstation XP1000 6/500b DECLARE LONG CONSTANT ALPHA$K_AS220B090001 = 1822 ! Professional Workstation XP1000 67/667V DECLARE LONG CONSTANT ALPHA$K_AS1E071C0001 = 1823 ! Personal Workstation 466auV DECLARE LONG CONSTANT ALPHA$K_AS1E071D0001 = 1824 ! Personal Workstation 533auV DECLARE LONG CONSTANT ALPHA$K_AS1E071E0001 = 1825 ! Personal Workstation 600auV DECLARE LONG CONSTANT ALPHA$K_AS1E071F0001 = 1826 ! Personal Workstation 666auV DECLARE LONG CONSTANT ALPHA$K_AS1E07200001 = 1827 ! Personal Workstation 700auV DECLARE LONG CONSTANT ALPHA$K_AS1E07210001 = 1828 ! Personal Workstation 733auV DECLARE LONG CONSTANT ALPHA$K_AS1E07220001 = 1829 ! Personal Workstation 767auV DECLARE LONG CONSTANT ALPHA$K_AS1E07230001 = 1830 ! Personal Workstation 800auV DECLARE LONG CONSTANT ALPHA$K_AS1E07240001 = 1831 ! Personal Workstation 833auV DECLARE LONG CONSTANT ALPHA$K_AS1E07250001 = 1832 ! Personal Workstation 867auV DECLARE LONG CONSTANT ALPHA$K_AS1E07260001 = 1833 ! Personal Workstation 900auV DECLARE LONG CONSTANT ALPHA$K_AS1E07270001 = 1834 ! Personal Workstation 933auV DECLARE LONG CONSTANT ALPHA$K_AS1E07280001 = 1835 ! Personal Workstation 967auW DECLARE LONG CONSTANT ALPHA$K_AS1E07290001 = 1836 ! Personal Workstation 1000auW DECLARE LONG CONSTANT ALPHA$K_AS2508010001 = 1837 ! SMARTengine Alpha 21264 SBCR DECLARE LONG CONSTANT ALPHA$K_AS2208060001 = 1838 ! AlphaServer DS20 6/500R DECLARE LONG CONSTANT ALPHA$K_AS2208070001 = 1839 ! AlphaServer DS10 6/466S DECLARE LONG CONSTANT ALPHA$K_AS2208080001 = 1840 ! AlphaServer DS20E 6/500Y DECLARE LONG CONSTANT ALPHA$K_AS0C080A0001 = 1841 ! AlphaServer GS60 6/525 (1cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C080A0002 = 1842 ! AlphaServer GS60 6/525 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C080A0003 = 1843 ! AlphaServer GS60 6/525 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C080A0004 = 1844 ! AlphaServer GS60 6/525 (4cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C080A0005 = 1845 ! AlphaServer GS60 6/525 (5cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS0C080A0006 = 1846 ! AlphaServer GS60 6/525 (6cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0001 = 1847 ! AlphaServer GS140 6/525 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0002 = 1848 ! AlphaServer GS140 6/525 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0003 = 1849 ! AlphaServer GS140 6/525 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0004 = 1850 ! AlphaServer GS140 6/525 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0005 = 1851 ! AlphaServer GS140 6/525 (5cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0006 = 1852 ! AlphaServer GS140 6/525 (6cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0007 = 1853 ! AlphaServer GS140 6/525 (7cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0008 = 1854 ! AlphaServer GS140 6/525 (8cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080B0009 = 1855 ! AlphaServer GS140 6/525 (9cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C080B000A = 1856 ! AlphaServer GS140 6/525 (10cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C080B000B = 1857 ! AlphaServer GS140 6/525 (11cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C080B000C = 1858 ! AlphaServer GS140 6/525 (12cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C080B000D = 1859 ! AlphaServer GS140 6/525 (13cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C080B000E = 1860 ! AlphaServer GS140 6/525 (14cpu)q DECLARE LONG CONSTANT ALPHA$K_AS2208050301 = 1861  ! AlphaServer ES40 6/500 (1cpu, 6-slot PCI, 8-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050302 = 1862 ! AlphaServer ES40 6/500 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050303 = 1863 ! AlphaServer ES40 6/500 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050304 = 1864 ! AlphaServer ES40 6/500 (4cpu)q DECLARE LONG CONSTANT ALPHA$K_AS2208050401 = 1865 ! AlphaServer ES40 6/667 (1cpu, 6-slot PCI, 8-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050402 = 1866 ! AlphaServer ES40 6/667 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050403 = 1867 ! AlphaServer ES40 6/667 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050404 = 1868 ! AlphaServer ES40 6/667 (4cpu)q DECLARE LONG CONSTANT ALPHA$K_AS2208050501 = 1869 ! AlphaServer ES40 6/500 (1cpu, 6-slot PCI, 4-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050502 = 1870 ! AlphaServer ES40 6/500 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050503 = 1871 ! AlphaServer ES40 6/500 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050504 = 1872 ! AlphaServer ES40 6/500 (4cpu)q DECLARE LONG CONSTANT ALPHA$K_AS2208050601 = 1873 ! AlphaServer ES40 6/667 (1cpu, 6-slot PCI, 4-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050602 = 1874 ! AlphaServer ES40 6/667 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050603 = 1875 ! AlphaServer ES40 6/667 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050604 = 1876 ! AlphaServer ES40 6/667 (4cpu)S DECLARE LONG CONSTANT ALPHA$K_AS2107040001 = 1877 ! AlphaVME 5/480A, 5/480UK DECLARE LONG CONSTANT ALPHA$K_AS2107050001 = 1878 ! AlphaVME 5/320U[ DECLARE LONG CONSTANT ALPHA$K_AS2208070101 = 1879 ! AlphaStation XP900, DS10, 6/466Z DECLARE LONG CONSTANT ALPHA$K_AS0C080C0001 = 1880 ! AlphaServer GS60e 6/525 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080C0002 = 1881 ! AlphaServer GS60e 6/525 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080C0003 = 1882 ! AlphaServer GS60e 6/525 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080C0004 = 1883 ! AlphaServer GS60e 6/525 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080C0005 = 1884 ! AlphaServer GS60e 6/525 (5cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080C0006 = 1885 ! AlphaServer GS60e 6/525 (6cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080C0007 = 1886 ! AlphaServer GS60e 6/525 (7cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C080C0008 = 1887 ! AlphaServer GS60e 6/525 (8cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0B0D0001 = 1890 ! AlphaServer GS60 67/700 (1cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0B0D0002 = 1891 ! AlphaServer GS60 67/700 (2cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0B0D0003 = 1892 ! AlphaServer GS60 67/700 (3cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0B0D0004 = 1893 ! AlphaServer GS60 67/700 (4cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0B0D0005 = 1894 ! AlphaServer GS60 67/700 (5cpu)Z DECLARE LONG CONSTANT ALPHA$K_AS0C0B0D0006 = 1895 ! AlphaServer GS60 67/700 (6cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0001 = 1896 ! AlphaServer GS140 67/700 (1cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0002 = 1897 ! AlphaServer GS140 67/700 (2cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0003 = 1898 ! AlphaServer GS140 67/700 (3cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0004 = 1899 ! AlphaServer GS140 67/700 (4cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0005 = 1900 ! AlphaServer GS140 67/700 (5cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0006 = 1901 ! AlphaServer GS140 67/700 (6cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0007 = 1902 ! AlphaServer GS140 67/700 (7cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0008 = 1903 ! AlphaServer GS140 67/700 (8cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E0009 = 1904 ! AlphaServer GS140 67/700 (9cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E000A = 1905 ! AlphaServer GS140 67/700 (10cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E000B = 1906 ! AlphaServer GS140 67/700 (11cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E000C = 1907 ! AlphaServer GS140 67/700 (12cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E000D = 1908 ! AlphaServer GS140 67/700 (13cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0E000E = 1909 ! AlphaServer GS140 67/700 (14cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0F0001 = 1910 ! AlphaServer GS60e 67/700 (1cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0F0002 = 1911 ! AlphaServer GS60e 67/700 (2cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0F0003 = 1912 ! AlphaServer GS60e 67/700 (3cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0F0004 = 1913 ! AlphaServer GS60e 67/700 (4cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0F0005 = 1914 ! AlphaServer GS60e 67/700 (5cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0F0006 = 1915 ! AlphaServer GS60e 67/700 (6cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0F0007 = 1916 ! AlphaServer GS60e 67/700 (7cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS0C0B0F0008 = 1917 ! AlphaServer GS60e 67/700 (8cpu)d DECLARE LONG CONSTANT ALPHA$K_AS2208060002 = 1920 ! AlphaServer DS20 6/500 (2cpu) (pedestal)` DECLARE LONG CONSTANT ALPHA$K_AS2208080002 = 1921 ! AlphaServer DS20 6/500 (2cpu) (rack)b DECLARE LONG CONSTANT ALPHA$K_AS220B050001 = 1822 ! Professional Workstation XP1000 67/750r DECLARE LONG CONSTANT ALPHA$K_AS2208050701 = 1923 ! AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 4-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050702 = 1924 ! AlphaServer ES40 6/500 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050703 = 1925 ! AlphaServer ES40 6/500 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050704 = 1926 ! AlphaServer ES40 6/500 (4cpu)r DECLARE LONG CONSTANT ALPHA$K_AS2208050801 = 1927 ! AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 4-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050802 = 1928 ! AlphaServer ES40 6/667 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050803 = 1929 ! AlphaServer ES40 6/667 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050804 = 1930 ! AlphaServer ES40 6/667 (4cpu)r DECLARE LONG CONSTANT ALPHA$K_AS2208050901 = 1931 ! AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 4-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050902 = 1932 ! AlphaServer ES40 6/500 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050903 = 1933 ! AlphaServer ES40 6/500 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050904 = 1934 ! AlphaServer ES40 6/500 (4cpu)r DECLARE LONG CONSTANT ALPHA$K_AS2208050A01 = 1935 ! AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 4-slot MMB)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050A02 = 1936 ! AlphaServer ES40 6/667 (2cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050A03 = 1937 ! AlphaServer ES40 6/667 (3cpu)Y DECLARE LONG CONSTANT ALPHA$K_AS2208050A04 = 1938 ! AlphaServer ES40 6/667 (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS220B080001 = 1939 ! AlphaServer DS20E 67/667 (1cpu) (rack)b DECLARE LONG CONSTANT ALPHA$K_AS220B080002 = 1940 ! AlphaServer DS20E 67/667 (2cpu) (rack)b DECLARE LONG CONSTANT ALPHA$K_AS2208080101 = 1941 ! AlphaStation DS20E 6/500 (1cpu) (rack)b DECLARE LONG CONSTANT ALPHA$K_AS2208080102 = 1942 ! AlphaStation DS20E 6/500 (2cpu) (rack)c DECLARE LONG CONSTANT ALPHA$K_AS220B080101 = 1943 ! AlphaStation DS20E 67/667 (1cpu) (rack)c DECLARE LONG CONSTANT ALPHA$K_AS220B080102 = 1944 ! AlphaStation DS20E 67/667 (2cpu) (rack)u DECLARE LONG CONSTANT ALPHA$K_AS2208050B01 = 1945 ! AlphaStation XP4000 6/500 (1cpu) (6-slot PCI, 4-slot MMB)\ DECLARE LONG CONSTANT ALPHA$K_AS2208050B02 = 1946 ! AlphaStation XP4000 6/500 (2cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS2208050B03 = 1947 ! AlphaStation XP4000 6/500 (3cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS2208050B04 = 1948 ! AlphaStation XP4000 6/500 (4cpu)t DECLARE LONG CONSTANT ALPHA$K_AS220B050101 = 1949 ! AlphaStation ES40 67/667 (1cpu) (6-slot PCI, 4-slot MMB)[ DECLARE LONG CONSTANT ALPHA$K_AS220B050102 = 1950 ! AlphaStation ES40 67/667 (2cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220B050103 = 1951 ! AlphaStation ES40 67/667 (3cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220B050104 = 1952 ! AlphaStation ES40 67/667 (4cpu)v DECLARE LONG CONSTANT ALPHA$K_AS2208050C01 = 1953 ! AlphaStation XP4000 6/500 (1cpu) (10-slot PCI, 8-slot MMB)\ DECLARE LONG CONSTANT ALPHA$K_AS2208050C02 = 1954 ! AlphaStation XP4000 6/500 (2cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS2208050C03 = 1955 ! AlphaStation XP4000 6/500 (3cpu)\ DECLARE LONG CONSTANT ALPHA$K_AS2208050C04 = 1956 ! AlphaStation XP4000 6/500 (4cpu)u DECLARE LONG CONSTANT ALPHA$K_AS220B050201 = 1957 ! AlphaStation ES40 67/667 (1cpu) (10-slot PCI, 8-slot MMB)[ DECLARE LONG CONSTANT ALPHA$K_AS220B050202 = 1958 ! AlphaStation ES40 67/667 (2cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220B050203 = 1959 ! AlphaStation ES40 67/667 (3cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220B050204 = 1960 ! AlphaStation ES40 67/667 (4cpu)S DECLARE LONG CONSTANT ALPHA$K_AS2208070201 = 1961 ! AlphaServer DS10L 6/466T DECLARE LONG CONSTANT ALPHA$K_AS220B070001 = 1962 ! AlphaServer DS10L 67/616T DECLARE LONG CONSTANT ALPHA$K_AS220B070101 = 1962 ! AlphaStation DS10 67/616c DECLARE LONG CONSTANT ALPHA$K_AS220D080001 = 1964 ! AlphaServer DS20E 68A/833 (1cpu) (rack)c DECLARE LONG CONSTANT ALPHA$K_AS220D080002 = 1965 ! AlphaServer DS20E 68A/833 (2cpu) (rack)S DECLARE LONG CONSTANT ALPHA$K_AS230B080000 = 1966 ! AlphaServer GS40 67/728S DECLARE LONG CONSTANT ALPHA$K_AS230B080100 = 1967 ! AlphaServer GS80 67/728T DECLARE LONG CONSTANT ALPHA$K_AS230B080200 = 1968 ! AlphaServer GS160 67/728T DECLARE LONG CONSTANT ALPHA$K_AS230B080300 = 1969 ! AlphaServer GS320 67/728S DECLARE LONG CONSTANT ALPHA$K_AS220B070201 = 1970 ! AlphaServer DS10 67/616` DECLARE LONG CONSTANT ALPHA$K_AS260C010001 = 1971 ! AlphaServer ES45/3B 68CB/1000 (1cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010002 = 1972 ! AlphaServer ES45/3B 68CB/1000 (2cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010003 = 1973 ! AlphaServer ES45/3B 68CB/1000 (3cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010004 = 1974 ! AlphaServer ES45/3B 68CB/1000 (4cpu)c DECLARE LONG CONSTANT ALPHA$K_AS260C010101 = 1975 ! AlphaServer ES45/2, 2B 68CB/1000 (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS260C010102 = 1976 ! AlphaServer ES45/2, 2B 68CB/1000 (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS260C010103 = 1977 ! AlphaServer ES45/2, 2B 68CB/1000 (3cpu)c DECLARE LONG CONSTANT ALPHA$K_AS260C010104 = 1978 ! AlphaServer ES45/2, 2B 68CB/1000 (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS260D020002 = 1979 ! AlphaServer TS202c 68A/933 (2cpu)] DECLARE LONG CONSTANT ALPHA$K_AS260D030001 = 1980 ! AlphaServer TS212c 68A/933 (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS260D030002 = 1981 ! AlphaServer TS212c 68A/933 (2cpu)g DECLARE LONG CONSTANT ALPHA$K_AS220D080101 = 1982 ! AlphaServer DS20E 68A/833 (1cpu) (pedestal)g DECLARE LONG CONSTANT ALPHA$K_AS220D080102 = 1983 ! AlphaServer DS20E 68A/833 (2cpu) (pedestal)i DECLARE LONG CONSTANT ALPHA$K_AS220C050001 = 1984 ! AlphaStation ES40 68/833 (1cpu) (10-slot PCI)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050002 = 1985 ! AlphaStation ES40 68/833 (2cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050003 = 1986 ! AlphaStation ES40 68/833 (3cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050004 = 1987 ! AlphaStation ES40 68/833 (4cpu)h DECLARE LONG CONSTANT ALPHA$K_AS220C050101 = 1988 ! AlphaStation ES40 68/833 (1cpu) (6-slot PCI)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050102 = 1989 ! AlphaStation ES40 68/833 (2cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050103 = 1990 ! AlphaStation ES40 68/833 (3cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050104 = 1991 ! AlphaStation ES40 68/833 (4cpu)] DECLARE LONG CONSTANT ALPHA$K_AS260C040101 = 1992 ! AlphaServer DS25 68CB/1000 (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS260C040201 = 1993 ! AlphaStation DS25 68CB/1000 (1cpu)] DECLARE LONG CONSTANT ALPHA$K_AS260C040102 = 1994 ! AlphaServer DS25 68CB/1000 (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS260C040202 = 1995 ! AlphaStation DS25 68CB/1000 (1cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010201 = 2002 ! AlphaServer ES45/1B 68CB/1000 (1cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010202 = 2003 ! AlphaServer ES45/1B 68CB/1000 (2cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010203 = 2004 ! AlphaServer ES45/1B 68CB/1000 (3cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010204 = 2005 ! AlphaServer ES45/1B 68CB/1000 (4cpu)g DECLARE LONG CONSTANT ALPHA$K_AS220D0C0002 = 2006 ! AlphaServer DS20L, API CS20, 68A/833 (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS260C020002 = 2007 ! AlphaServer TS202c 68CB/1250 (2cpu)i  DECLARE LONG CONSTANT ALPHA$K_AS220C050201 = 2008 ! AlphaStation TS40 68/833 (1cpu) (14-slot PCI)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050202 = 2009 ! AlphaStation TS40 68/833 (2cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050203 = 2010 ! AlphaStation TS40 68/833 (3cpu)[ DECLARE LONG CONSTANT ALPHA$K_AS220C050204 = 2011 ! AlphaStation TS40 68/833 (4cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010301 = 2013 ! AlphaServer ES45/3B 68CB/1250 (1cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010302 = 2014 ! AlphaServer ES45/3B 68CB/1250 (2cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010303 = 2015 ! AlphaServer ES45/3B 68CB/1250 (3cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010304 = 2016 ! AlphaServer ES45/3B 68CB/1250 (4cpu)c DECLARE LONG CONSTANT ALPHA$K_AS260C010401 = 2017 ! AlphaServer ES45/2, 2B 68CB/1250 (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS260C010402 = 2018 ! AlphaServer ES45/2, 2B 68CB/1250 (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS260C010403 = 2019 ! AlphaServer ES45/2, 2B 68CB/1250 (3cpu)c DECLARE LONG CONSTANT ALPHA$K_AS260C010404 = 2020 ! AlphaServer ES45/2, 2B 68CB/1250 (4cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010501 = 2021 ! AlphaServer ES45/1B 68CB/1250 (1cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010502 = 2022 ! AlphaServer ES45/1B 68CB/1250 (2cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010503 = 2023 ! AlphaServer ES45/1B 68CB/1250 (3cpu)` DECLARE LONG CONSTANT ALPHA$K_AS260C010504 = 2024 ! AlphaServer ES45/1B 68CB/1250 (4cpu)U DECLARE LONG CONSTANT ALPHA$K_AS270F010000 = 2025 ! AlphaServer TS212c SeriesL DECLARE LONG CONSTANT ALPHA$K_AS270F020000 = 2029 ! AlphaServer TS80L DECLARE LONG CONSTANT ALPHA$K_AS270F000104 = 2030 ! AlphaServer ES47L DECLARE LONG CONSTANT ALPHA$K_AS270F000208 = 2031 ! AlphaServer GS80] DECLARE LONG CONSTANT ALPHA$K_AS270F000008 = 2038 ! AlphaServer GS1280 (8cpu capable)^ DECLARE LONG CONSTANT ALPHA$K_AS270F000010 = 2039 ! AlphaServer GS1280 (16cpu capable)^ DECLARE LONG CONSTANT ALPHA$K_AS270F000020 = 2040 ! AlphaServer GS1280 (32cpu capable)^ DECLARE LONG CONSTANT ALPHA$K_AS270F000040 = 2041 ! AlphaServer GS1280 (64cpu capable)_ DECLARE LONG CONSTANT ALPHA$K_AS270F000080 = 2042 ! AlphaServer GS1280 (128cpu capable)V DECLARE LONG CONSTANT ALPHA$K_AS260C050001 = 2047 ! AlphaServer DS15 68CB/1000W DECLARE LONG CONSTANT ALPHA$K_AS260C050101 = 2048 ! AlphaStation DS15 68CB/1000V DECLARE LONG CONSTANT ALPHA$K_AS260C050201 = 2049 ! AlphaServer TS15 68CB/10002 DECLARE LONG CONSTANT ALPHA$K_MAX_SMM = 20514 DECLARE LONG CONSTANT ALPHA$K_MAX_MODEL = 10564 DECLARE LONG CONSTANT ALPHA$K_MAX_ALPHA = 8191 wwV ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +. ! Access Rights Mask longword definitions ! -4 DECLARE LONG CONSTANT ARM$M_READ = x'00000001'5 DECLARE LONG CONSTANT ARM$M_WRITE = x'00000002'7 DECLARE LONG CONSTANT ARM$M_EXEC UTE = x'00000004'6 DECLARE LONG CONSTANT ARM$M_DELETE = x'00000008'7 DECLARE LONG CONSTANT ARM$M_CONTROL = x'00000010'6 DECLARE LONG CONSTANT ARM$M_CREATE = x'00000004'4 DECLARE LONG CONSTANT ARM$M_LOCK = x'00000004'8 DECLARE LONG CONSTANT ARM$M_PHYSICAL = x'00000004'7 DECLARE LONG CONSTANT ARM$M_LOGICAL = x'00000008'9 DECLARE LONG CONSTANT ARM$M_ASSOCIATE = x'00000001'6 DECLARE LONG CONSTANT ARM$M_SUBMIT = x'00000002'6 DECLARE LONG CONSTANT ARM$M_MANAGE = x'00000004', DECLARE LONG CONSTANT ARM$S_ARMDEF = 4 record ARMDEF variant case# group ARM$R_FILL_47_ variant case+ LONG ARM$L_FILE_ACCESS case) group ARM$R_FILL_48_' ! Read access( ! Write access* ! Execute access) ! Delete access*  ! Control accessI ! [LOADSS]SYSACLSRV depends on this being here?k LONG READ_bits ! COMMENT ADDED BY SDL - READ_bits contains bits READ through FILL- end group ARM$R_FILL_48_ end variant' end group ARM$R_FILL_47_ case# group ARM$R_FILL_49_ variant case- LONG ARM$L_VOLUME_ACCESS  case) group ARM$R_FILL_50_2 ! Create access (volume)l BYTE V_1_bits ! COMMENT ADDED BY SDL - V_1_bits contains bits V_1 through FILL_59_- end group ARM$R_FILL_50_ end variant' end group ARM$R_FILL_49_ case# group ARM$R_FILL_51_ variant case+ LONG ARM$L_RSDM_ACCESS  case) group ARM$R_FILL_52_9 ! Lock access (resource domain)l BYTE R_1_bits ! COMMENT ADDED BY SDL - R_1_bits contains bits R_1 through FILL_60_- end group ARM$R_FILL_52_ end variant' end group ARM$R_FILL_51_ case# group ARM$R_FILL_53_ variant case- LONG ARM$L_DEVI CE_ACCESS case) group ARM$R_FILL_54_8 ! Physical I/O access (device)7 ! Logical I/O access (device)l BYTE D_1_bits ! COMMENT ADDED BY SDL - D_1_bits contains bits D_1 through FILL_61_- end group ARM$R_FILL_54_ end variant' end group ARM$R_FILL_53_ case# group ARM$R_FILL_55_ vari ant case* LONG ARM$L_CEB_ACCESS case) group ARM$R_FILL_56_C ! Associate access (common event cluster)~ BYTE ASSOCIATE_bits ! COMMENT ADDED BY SDL - ASSOCIATE_bits contains bits ASSOCIATE through FILL_62_- end group ARM$R_FILL_56_ end variant' end group ARM$R_FILL_55_ case# group ARM$R _FILL_57_ variant case, LONG ARM$L_QUEUE_ACCESS case) group ARM$R_FILL_58_1 ! Submit access (queue)1 ! Manage access (queue)l BYTE Q_1_bits ! COMMENT ADDED BY SDL - Q_1_bits contains bits Q_1 through FILL_63_- end group ARM$R_FILL_58_ end variant' end group ARM$R_FILL_57_ end variant end record ARMDEF  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! ATTRIBUTE LIST DESCRIPTION. THE ATTRIBUTE CONTROL LIST IS USED TO READ ANDR ! WRITE FILE ATTRIBUTES. IT CONSISTS OF CONCATENATED ATTRIBUTE CONTROL BLOCKS, ! TERMINATED BY A SINGLE ZERO LONGWORD.  ! Q DECLARE LONG CONSTANT ATR$C_UCHAR = 3 ! 4 BYTE USER FILE CHARACTERISTICS M DECLARE LONG CONSTANT ATR$C_RECATTR = 4 ! 32 BYTES RECORD ATTRIBUTES I DECLARE LONG CONSTANT ATR$C_FILNAM = 5 ! 6 BYTE RAD-50 FILE NAME I DECLARE LONG CONSTANT ATR$C_FILTYP = 6 ! 2 BYTE RAD-50 FILE TYPE L DECLARE LONG CONSTANT ATR$C_FILVER = 7 ! 2 BYTE BINARY FILE VERSION N DECLARE LONG CONSTANT ATR$C_EXPDAT = 8 ! 7 BYTE ASCII EXPIRATION DATE K DECLARE LONG CONSTANT ATR$C_STATBLK = 9 ! 32 BYTE STATISTICS BLOCK G DECLARE LONG CONSTANT ATR$C_HEADER = 10 ! 512 BYTE FILE HEADER H DECLARE LONG CONSTANT ATR$C_BLOCKSIZE = 11 ! MAGTAPE BLOCK SIZE E DECLARE LONG CONSTANT ATR$C_USERLABEL = 12 ! USER FILE LABEL Z DECLARE LONG CONSTANT ATR$C_ASCDATES = 13 ! REVISION COUNT THRU EXP DATE IN ASCII X DECLARE LONG CONSTANT ATR$C_ALCONTROL = 14 ! COMPATIBILITY MODE ALLOCATION DATA r DECLARE LONG CONSTANT ATR$C_ENDLBLAST = 15 !  END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK V DECLARE LONG CONSTANT ATR$C_ASCNAME = 16 ! FILE NAME, TYPE ? VERSION IN ASCII H DECLARE LONG CONSTANT ATR$C_CREDATE = 17 ! 64 BIT CREATION DATE H DECLARE LONG CONSTANT ATR$C_REVDATE = 18 ! 64 BIT REVISION DATE J DECLARE LONG CONSTANT ATR$C_EXPDATE = 19 ! 64 BIT EXPIRATION DATE F DECLARE LONG CONSTANT ATR$C_BAKDATE = 20 ! 64 BIT BACKUP DATE E DECLARE LONG CONSTANT ATR$C_UIC = 21 ! 4 BYTE FILE OWNER UIC G DECLARE LONG CONSTANT ATR$C_FPRO = 22 ! 2 BYTE FILE PROTECTION I DECLARE LONG CONSTANT ATR$C_RPRO = 23 ! 2 BYTE RECORD PROTECTION L DECLARE LONG CONSTANT ATR$C_ACLEVEL = 24 ! 1 BYTE FILE ACCESS LEVEL O DECLARE LONG CONSTANT ATR$C_SEMASK = 25 ! FILE SECURITY MASK AND LIMIT @ DECLARE LONG CONSTANT ATR$C_UIC_RO = 26 ! READ ONLY UIC R DECLARE LONG CONSTANT ATR$C_DIRSEQ = 27 ! DIRECTORY UPDATE SEQUENCE COUNT K DECLARE LONG CONSTANT ATR$C_BACKLINK = 28 ! FILE BACK LINK POINTER I DECLARE LONG CONSTANT ATR$C_JOURNAL = 29 ! JOURNAL CONTROL FLAGS U DECLARE LONG CONSTANT ATR$C_HDR1_ACC = 30 ! ANSI TAPE HEADER 1 ACCESSIBILITY  ! CHARACTERQ DECLARE LONG CONSTANT ATR$C_ADDACLENT = 31 ! ADD AN ACCESS CONTROL ENTRY T DECLARE LONG CONSTANT ATR$C_DELACLENT = 32 ! REMOVE AN ACCESS CONTROL ENTRY I DECLARE LONG CONSTANT ATR$C_MODACLENT = 33 ! MODIFY AN ACL ENTRY I DECLARE LONG CONSTANT ATR$C_FNDACLENT = 34 ! LOCATE AN ACL ENTRY Q DECLARE LONG CONSTANT ATR$C_FNDACLTYP = 35 ! FIND A SPECIFIC TYPE OF ACE Q DECLARE LONG CONSTANT ATR$C_DELETEACL = 36 ! DELETE ACL LEAVING PROTECTEDG DECLARE LONG CONSTANT ATR$C_READACL = 37 ! READ THE ENTIRE ACL Q DECLARE LONG CONSTANT ATR$C_ACLLENGTH = 38 ! RETURN THE LENGTH OF THE ACLD DECLARE LONG CONSTANT ATR$C_READACE = 39 ! READ A SINGLE ACEH DECLARE LONG CONSTANT ATR$C_RESERVED = 40 ! MODIFY RESERVED AREAX DECLARE LONG CONSTANT ATR$C_HIGHWATER = 41 ! HIGHWATER MARK (USER READ ONLY) E DECLARE LONG CONSTANT ATR$C_DUMMY_0 = 42 ! *** AVAILABLE CODET DECLARE LONG CONSTANT ATR$C_PRIVS_USED = 43 ! PRIVILEGES USED TO GAIN ACCESSX DECLARE LONG CONSTANT ATR$C_MATCHING_ACE = 44 ! ACE USED TO GAIN ACCESS (IF ANY)f DECLARE LONG CONSTANT ATR$C_ACCESS_MODE = 45 ! ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORSM DECLARE LONG CONSTANT ATR$C_FILE_SPEC = 46 ! CONVERT FID TO FILE-SPEC[ DECLARE LONG CONSTANT ATR$C_CLASS_MASK = 47 ! Non-discretionary classification maskx DECLARE LONG CONSTANT ATR$C_BUFFER_OFFSET = 48 ! For magnetic tape only length of buffer offset of block in filep DECLARE LONG CONSTANT ATR$C_RU_ACTIVE = 49 ! Recoverable facility id number (if non-zero, means file has6 ! active recovery units managed by that facility)H DECLARE LONG CONSTANT ATR$C_GRANT_ACE = 50 ! ACE granting accessH DECLARE LONG CONSTANT ATR$C_NEXT_ACE = 51 ! Increment ACE numberL DECLARE LONG CONSTANT ATR$C_DELETE_ALL = 52 ! Delete the entire ACL ` DECLARE LONG CONSTANT ATR$C_BACKUP_DONE = 53 ! Alter backup info in RMS journaling ACEs  ! ISO 9660 DescriptorsG DECLARE LONG CONSTANT ATR$C_EFFDATE = 54 ! ISO 9660 Backup DateI DECLARE LONG CONSTANT ATR$C_RCDDATE = 55 ! ISO 9660 Recorded DateA DECLARE LONG CONSTANT ATR$C_VD = 56 ! Volume Descriptor I DECLARE LONG CONSTANT ATR$C_PVD = 57 ! Primary Volume Descriptor O DECLARE LONG CONSTANT ATR$C_SVD = 58 ! Supplementary Volume Descriptor K DECLARE LONG CONSTANT ATR$C_VPD = 59 ! Volume Partition Descriptor Q DECLARE LONG CONSTANT ATR$C_VDST = 60 ! Volume Descriptor Set Terminator < DECLARE LONG CONSTANT ATR$C_BOOT = 61 ! Boot Record A DECLARE LONG CONSTANT ATR$C_PTR = 62 ! Path Table Record @ DECLARE LONG CONSTANT ATR$C_DIR = 63 ! Directory Record I DECLARE LONG CONSTANT ATR$C_XAR = 64 ! Extended Attribute Record " ! ISO 9660 Descriptors FieldsF DECLARE LONG CONSTANT ATR$C_VOLUME_ID = 65 ! Volume IdentifierD DECLARE LONG CONSTANT ATR$C_VOLUME_FLAGS = 66 ! Volume FlagsL DECLARE LONG CONSTANT ATR$C_ESCAPE_SEQUENCES = 67 ! Escape SequencesN DECLARE LONG CONSTANT ATR$C_VOLUME_SET_ID = 68 ! Volume Set IdentifierR DECLARE LONG CONSTANT ATR$C_COPYRIGHT_FID = 69 ! Copyright File IdentifierQ DECLARE LONG CONSTANT ATR$C_ABSTRACT_FID = 70 ! Abstract File Identifier [ DECLARE LONG CONSTANT ATR$C_BIBLIOGRAPHIC_FID = 71 ! Bibliographic File Identifier J DECLARE LONG CONSTANT ATR$C_CACHE_SEQ = 72 ! Cache sequence numberW DECLARE LONG CONSTANT ATR$C_FILE_SYSTEM_INFO = 73 ! File system structure levelT DECLARE LONG CONSTANT ATR$C_FILE_ATTR_CACHING_POLICY = 74 ! F64 caching onlyT DECLARE LONG CONSTANT ATR$C_FILE_DATA_CACHING_POLICY = 75 ! F64 caching onlyW DECLARE LONG CONSTANT ATR$C_CACHING_OPTIONS = 76 ! Spiralog/VDC caching optionsM DECLARE LONG CONSTANT ATR$C_POSIX_DATA = 77 ! POSIX private data areaI DECLARE LONG CONSTANT ATR$C_ACCDATE = 78 ! ODS-5 last access timeP DECLARE LONG CONSTANT ATR$C_ATTDATE = 79 ! ODS-5 last attribute mod timeR DECLARE LONG CONSTANT ATR$C_LENGTH_HINT = 80 ! ODS-5 file length hint area^ DECLARE LONG CONSTANT ATR$C_EX_RECATTR = 81 ! ODS-5 extended RMS attributes - Reserved0 ! to Digita l for future use. Must be zero.J DECLARE LONG CONSTANT ATR$C_EXTFLAGS = 82 ! PATHWORKS MS-DOS flagsK DECLARE LONG CONSTANT ATR$C_MODDATE = 83 ! ODS-5 last data mod timeL DECLARE LONG CONSTANT ATR$C_LINKCOUNT = 84 ! ODS-5 (hard) link countE DECLARE LONG CONSTANT ATR$C_SYMLINK = 85 ! ODS-5 symlink data# ! All new attributes should be# ! added here before MAX_PLUS1K DECLARE LONG CONSTANT ATR$C_MAX_PLUS1 = 86 ! Maximum code plus one / DECLARE LONG CONSTANT ATR$C_MAX_CODE = 850 DECLARE LONG CONSTANT ATR$C_FNDACETYP = 35, ! Valid values for ATR$C_CACHING_POLICY< DECLARE LONG CONSTANT ATR$C_CACHE_POLICY_WRITETHRU = 1< DECLARE LONG CONSTANT ATR$C_CACHE_POLICY_WRITEBACK = 2: DECLARE LONG CONSTANT ATR$C_CACHE_POLICY_DEFAULT = 3! ! ATTRIBUTE MAXIMUM LENGTHS Q DECLARE LONG CONSTANT ATR$S_UCHAR = 4 ! 4 BYTE USER FILE CHARACTERISTICS N DECLARE LONG CONSTANT ATR$S_RECATTR = 32 ! 32 BYTES RECORD ATT RIBUTES I DECLARE LONG CONSTANT ATR$S_FILNAM = 6 ! 6 BYTE RAD-50 FILE NAME I DECLARE LONG CONSTANT ATR$S_FILTYP = 2 ! 2 BYTE RAD-50 FILE TYPE L DECLARE LONG CONSTANT ATR$S_FILVER = 2 ! 2 BYTE BINARY FILE VERSION N DECLARE LONG CONSTANT ATR$S_EXPDAT = 7 ! 7 BYTE ASCII EXPIRATION DATE L DECLARE LONG CONSTANT ATR$S_STATBLK = 32 ! 32 BYTE STATISTICS BLOCK H DECLARE LONG CONSTANT ATR$S_HEADER = 512 ! 512 BYTE FILE HEADER G DECLARE LONG CONSTANT ATR$S_ BLOCKSIZE = 2 ! MAGTAPE BLOCK SIZE E DECLARE LONG CONSTANT ATR$S_USERLABEL = 80 ! USER FILE LABEL Z DECLARE LONG CONSTANT ATR$S_ASCDATES = 35 ! REVISION COUNT THRU EXP DATE IN ASCII X DECLARE LONG CONSTANT ATR$S_ALCONTROL = 14 ! COMPATIBILITY MODE ALLOCATION DATA q DECLARE LONG CONSTANT ATR$S_ENDLBLAST = 4 ! END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK M DECLARE LONG CONSTANT ATR$S_ASCNAME = 252 ! FILE NAME, TYPE ? VERSIONG DECLARE LO NG CONSTANT ATR$S_CREDATE = 8 ! 64 BIT CREATION DATE G DECLARE LONG CONSTANT ATR$S_REVDATE = 8 ! 64 BIT REVISION DATE I DECLARE LONG CONSTANT ATR$S_EXPDATE = 8 ! 64 BIT EXPIRATION DATE E DECLARE LONG CONSTANT ATR$S_BAKDATE = 8 ! 64 BIT BACKUP DATE E DECLARE LONG CONSTANT ATR$S_UIC = 4 ! 4 BYTE FILE OWNER UIC F DECLARE LONG CONSTANT ATR$S_FPRO = 2 ! 2 BYTE FILE PROTECTION H DECLARE LONG CONSTANT ATR$S_RPRO = 2 ! 2 BYTE RECORD PROTECTION K DE CLARE LONG CONSTANT ATR$S_ACLEVEL = 1 ! 1 BYTE FILE ACCESS LEVEL N DECLARE LONG CONSTANT ATR$S_SEMASK = 8 ! FILE SECURITY MASK AND LIMIT ? DECLARE LONG CONSTANT ATR$S_UIC_RO = 4 ! READ ONLY UIC Q DECLARE LONG CONSTANT ATR$S_DIRSEQ = 2 ! DIRECTORY UPDATE SEQUENCE COUNT J DECLARE LONG CONSTANT ATR$S_BACKLINK = 6 ! FILE BACK LINK POINTER H DECLARE LONG CONSTANT ATR$S_JOURNAL = 1 ! JOURNAL CONTROL FLAGS T DECLARE LONG CONSTANT ATR$S_HDR1_ACC = 1 ! ANSI  TAPE HEADER 1 ACCESSIBILITY  ! CHARACTERR DECLARE LONG CONSTANT ATR$S_ADDACLENT = 255 ! ADD AN ACCESS CONTROL ENTRY U DECLARE LONG CONSTANT ATR$S_DELACLENT = 255 ! REMOVE AN ACCESS CONTROL ENTRY J DECLARE LONG CONSTANT ATR$S_MODACLENT = 255 ! MODIFY AN ACL ENTRY J DECLARE LONG CONSTANT ATR$S_FNDACLENT = 255 ! LOCATE AN ACL ENTRY R DECLARE LONG CONSTANT ATR$S_FNDACLTYP = 255 ! FIND A SPECIFIC TYPE OF ACE R DECLARE LONG CONSTANT ATR$S_FNDACETYP = 255 ! FIND A SPECIFIC TYPE OF ACE R DECLARE LONG CONSTANT ATR$S_DELETEACL = 255 ! DELETE ACL LEAVING PROTECTEDH DECLARE LONG CONSTANT ATR$S_READACL = 512 ! READ THE ENTIRE ACL P DECLARE LONG CONSTANT ATR$S_ACLLENGTH = 4 ! RETURN THE LENGTH OF THE ACLE DECLARE LONG CONSTANT ATR$S_READACE = 255 ! READ A SINGLE ACEI DECLARE LONG CONSTANT ATR$S_RESERVED = 380 ! MODIFY RESERVED AREA] DECLARE LONG CONSTANT ATR$S_HIGHWATER = 4 ! FILE HIGH WATER MARK (USER READ ONLY) D DECLARE LONG CONSTANT ATR$S_DUMMY_0 = 4 ! *** AVAILABLE CODEN DECLARE LONG CONSTANT ATR$S_PRIVS_USED = 4 ! PRIVS USED TO GAIN ACCESSP DECLARE LONG CONSTANT ATR$S_MATCHING_ACE = 255 ! ACE USED TO GAIN ACCESSe DECLARE LONG CONSTANT ATR$S_ACCESS_MODE = 1 ! ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORSO DECLARE LONG CONSTANT ATR$S_FILE_SPEC = 4098 ! CONVERT FID TO FILE-SPEC[ DECLARE LONG CONSTANT ATR$S_CLASS_MASK = 20 ! Non-discretionary classification maskR DECLARE LONG CONSTANT ATR$S_BUFFER_OFFSET = 2 ! Buffer offset length fieldY DECLARE LONG CONSTANT ATR$S_RU_ACTIVE = 1 ! Recoverable facility id if RUs activeI DECLARE LONG CONSTANT ATR$S_GRANT_ACE = 255 ! ACE granting accessG DECLARE LONG CONSTANT ATR$S_NEXT_ACE = 4 ! Increment ACE numberM DECLARE LONG CONSTANT ATR$S_DELETE_ALL = 255 ! Delete the entire ACL ^ DECLARE LONG CONSTANT ATR$S_BACKUP_DONE = 1 ! Alter backup info in RMS j ournaling ACEs ! ISO 9660 DescriptorsG DECLARE LONG CONSTANT ATR$S_EFFDATE = 8 ! 64 BIT EFFECTIVE DATEG DECLARE LONG CONSTANT ATR$S_RCDDATE = 8 ! 64 BIT RECORDED DATE A DECLARE LONG CONSTANT ATR$S_VD = 7 ! Volume Descriptor K DECLARE LONG CONSTANT ATR$S_PVD = 1395 ! Primary Volume Descriptor Q DECLARE LONG CONSTANT ATR$S_SVD = 1395 ! Supplementary Volume Descriptor K DECLARE LONG CONSTANT ATR$S_VPD = 88 ! Volume Partition Descriptor P  DECLARE LONG CONSTANT ATR$S_VDST = 7 ! Volume Descriptor Set Terminator < DECLARE LONG CONSTANT ATR$S_BOOT = 71 ! Boot Record A DECLARE LONG CONSTANT ATR$S_PTR = 45 ! Path Table Record A DECLARE LONG CONSTANT ATR$S_DIR = 512 ! Directory Record J DECLARE LONG CONSTANT ATR$S_XAR = 512 ! Extended Attribute Record " ! ISO 9660 Descriptors FieldsF DECLARE LONG CONSTANT ATR$S_VOLUME_ID = 32 ! Volume IdentifierC DECLARE LONG CONSTANT ATR$S_VOLUME_FLAGS = 1 ! Volume FlagsL DECLARE LONG CONSTANT ATR$S_ESCAPE_SEQUENCES = 32 ! Escape SequencesO DECLARE LONG CONSTANT ATR$S_VOLUME_SET_ID = 128 ! Volume Set IdentifierR DECLARE LONG CONSTANT ATR$S_COPYRIGHT_FID = 37 ! Copyright File IdentifierQ DECLARE LONG CONSTANT ATR$S_ABSTRACT_FID = 37 ! Abstract File Identifier [ DECLARE LONG CONSTANT ATR$S_BIBLIOGRAPHIC_FID = 37 ! Bibliographic File Identifier I DECLARE LONG CONSTANT ATR$S_CACHE_SEQ = 8 ! Cache sequence numberV DECLARE LONG CONSTANT ATR$S_FILE_SYSTEM_INFO = 2 ! file system structure levelS DECLARE LONG CONSTANT ATR$S_FILE_ATTR_CACHING_POLICY = 1 ! F64 caching onlyS DECLARE LONG CONSTANT ATR$S_FILE_DATA_CACHING_POLICY = 1 ! F64 caching onlyF DECLARE LONG CONSTANT ATR$S_POSIX_DATA = 64 ! F64 caching onlyV DECLARE LONG CONSTANT ATR$S_CACHING_OPTIONS = 4 ! Spiralog/VDC caching optionsH DECLARE LONG CONSTANT ATR$S_ACCDATE = 8 ! ODS-5 last access timeO DECLARE LONG CONSTANT ATR$S_ATTDATE = 8 ! ODS-5 last attribute mod timeR DECLARE LONG CONSTANT ATR$S_LENGTH_HINT = 16 ! ODS-5 file length hint areaR DECLARE LONG CONSTANT ATR$S_EX_RECATTR = 8 ! ODS-5 extended RMS attributesI DECLARE LONG CONSTANT ATR$S_EXTFLAGS = 2 ! PATHWORKS MS-DOS flagsK DECLARE LONG CONSTANT ATR$S_LINKCOUNT = 2 ! ODS-5 (hard) link countJ DECLARE LONG CONSTANT ATR$S_MODDATE = 8 ! ODS-5 last data mod timeG DECLARE LONG CON STANT ATR$S_SYMLINK = 1024 ! ODS-5 symlink data, DECLARE LONG CONSTANT ATR$S_ATRDEF = 8 record ATRDEFJ WORD ATR$W_SIZE ! SIZE OF ATTRIBUTE IN BYTES C WORD ATR$W_TYPE ! ATTRIBUTE TYPE CODE I LONG ATR$L_ADDR ! ADDRESS OF ATTRIBUTE TEXT  ! ATTRIBUTE CODES  end record ATRDEF K ! Define fields and constant values for ATR$_CACHING_OPTIONS longword.3 ! These must match [STA RLET]FIBDEF.SDL exactly? DECLARE LONG CONSTANT ATR$M_FILE_ATTRIBUTES = x'0000000F'= DECLARE LONG CONSTANT ATR$M_FILE_CONTENTS = x'000000F0'- DECLARE LONG CONSTANT ATR$C_DEFAULT = 02 DECLARE LONG CONSTANT ATR$C_WRITETHROUGH = 11 DECLARE LONG CONSTANT ATR$C_WRITEBEHIND = 2/ DECLARE LONG CONSTANT ATR$C_NOCACHING = 3> DECLARE LONG CONSTANT ATR$M_FLUSH_ON_CLOSE = x'00000F00'+ DECLARE LONG CONSTANT ATR$C_FLUSH = 1- DECLARE LONG CONSTANT ATR$C_NOFL USH = 2C DECLARE LONG CONSTANT ATR$M_CACHING_OPTIONS_MBZ = x'FFFFF000'? DECLARE LONG CONSTANT ATR$S_ATR_CACHING_OPTIONS_FLAGS = 4& record ATR_CACHING_OPTIONS_FLAGS{ LONG FILE_ATTRIBUTES_bits ! COMMENT ADDED BY SDL - FILE_ATTRIBUTES_bits contains bits FILE_ATTRIBUTES through & ! CACHING_OPTIONS_MBZ* end record ATR_CACHING_OPTIONS_FLAGS G ! Define fields and constant values for ATR$_FILESYSTEM_INFO word./ ! These must match [LIB]F11DEF.SDL exactl y* DECLARE LONG CONSTANT ATR$C_ODS1 = 1* DECLARE LONG CONSTANT ATR$C_ODS2 = 2, DECLARE LONG CONSTANT ATR$C_ODS64 = 64? DECLARE LONG CONSTANT ATR$S_ATR_FILESYSTEM_INFO_FIELD = 2' record ATR_FILESYSTEM_INFO_FIELDS BYTE ATR$B_STRUCVER BYTE ATR$B_STRUCLEV+ end record ATR_FILESYSTEM_INFO_FIELDS  wwm  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +( ! BREAK Immediate value definitions !  ! - ! BASE AND OFFSET OF 1 1 DECLARE LONG CONSTANT BREAK$C_ARCH_BASE = 04 DECLARE LONG CONSTANT BREAK$C_ARCH_UNKNOWN = 03 DECL ARE LONG CONSTANT BREAK$C_ARCH_INTDIV = 13 DECLARE LONG CONSTANT BREAK$C_ARCH_INTOVR = 23 DECLARE LONG CONSTANT BREAK$C_ARCH_SUBRNG = 36 DECLARE LONG CONSTANT BREAK$C_ARCH_NULPTRERR = 45 DECLARE LONG CONSTANT BREAK$C_ARCH_BADALIGN = 53 DECLARE LONG CONSTANT BREAK$C_ARCH_DECOVF = 63 DECLARE LONG CONSTANT BREAK$C_ARCH_DECDIV = 72 DECLARE LONG CONSTANT BREAK$C_ARCH_PKDEC = 83 DECLARE LONG CONSTANT BREAK$C_ARCH_DECINV = 96 DECLARE LONG CONSTANT BREAK$C_ARCH_PKDECINV = 106 DECLARE LONG CONSTANT BREAK$C_ARCH_PPSTKOVF = 115 DECLARE LONG CONSTANT BREAK$C_ARCH_MAX = 2621436 DECLARE LONG CONSTANT BREAK$C_APPL_BASE = 262144= ! Values in this range produce a signal of SS$_BREAKAPPL5 DECLARE LONG CONSTANT BREAK$C_APPL_MAX = 5242875 DECLARE LONG CONSTANT BREAK$C_DBG_BASE = 5242888 DECLARE LONG CONSTANT BREAK$C_DBG_PAL_BPT = 524288< DECLARE LONG CONSTANT BREAK$C_DBG_INSTRUCTION = 5242895 DECLARE LONG CONSTANT BREAK$C_DBG_LINE = 5242907 DECLARE LONG CONSTANT BREAK$C_DBG_INIBRK = 524291@ ! Meanings in this range are defined by the debugger in use5 DECLARE LONG CONSTANT BREAK$C_DBG_MAX = 10485756 DECLARE LONG CONSTANT BREAK$C_SYS_BASE = 10485768 DECLARE LONG CONSTANT BREAK$C_SYS_UNUSED = 10485769 DECLARE LONG CONSTANT BREAK$C_SYS_GENTRAP = 1048577: DECLARE LONG CONSTANT BREAK$C_SYS_BUGCHECK = 10485786 DECLARE LONG CONSTANT BREAK$C_SYS_HALT = 104 85799 DECLARE LONG CONSTANT BREAK$C_SYS_CHKASTS = 10485805 DECLARE LONG CONSTANT BREAK$C_SYS_RFI = 1048581: DECLARE LONG CONSTANT BREAK$C_SYS_SWIS_LOG = 1048582> DECLARE LONG CONSTANT BREAK$C_SYS_DISABLE_UAST = 1048583: ! The remainder of codes in this range are OS-defined5 DECLARE LONG CONSTANT BREAK$C_SYS_MAX = 2097151 ww" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED #( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN$G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > % %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! 2 ! Breakthru system service input definitions. !  ! -< DECLARE LONG CONSTANT BRK$C_DEVICE = 1 ! device name< DECLARE LONG CONSTANT BRK$C_USERNAME = 2 ! user name< & DECLARE LONG CONSTANT BRK$C_ALLUSERS = 3 ! all usersF DECLARE LONG CONSTANT BRK$C_ALLTERMS = 4 ! all logged in users1 DECLARE LONG CONSTANT BRK$C_MAXSENDTYPE = 4 ! * ! Requestor ID's, DEC use only (0-31) ! J DECLARE LONG CONSTANT BRK$C_GENERAL = 0 ! GENERAL (OR UNSPECIFIED)5 DECLARE LONG CONSTANT BRK$C_PHONE = 1 ! PHONE3 DECLARE LONG CONSTANT BRK$C_MAIL = 2 ! MAIL= DECLARE LONG CONSTANT BRK$C_QUEUE = 3 ! QUEUE MANAGERB DECLARE 'LONG CONSTANT BRK$C_SHUTDOWN = 4 ! SYSTEM SHUTDOWN? DECLARE LONG CONSTANT BRK$C_URGENT = 5 ! URGENT MESSAGE> DECLARE LONG CONSTANT BRK$C_DCL = 6 ! DCL (control T)@ DECLARE LONG CONSTANT BRK$C_OPCOM = 7 ! OPERATOR MESSAGEA ! Note that only first 16 are really stored by TTDRIVER now E DECLARE LONG CONSTANT BRK$C_USER1 = 32 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER2 = 33 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER3 = 34( ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER4 = 35 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER5 = 36 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER6 = 37 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER7 = 38 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER8 = 39 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER9 = 40 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER10 = 41 ) ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER11 = 42 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER12 = 43 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER13 = 44 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER14 = 45 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER15 = 46 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER16 = 47 ! reserved to customer6 DECLARE LONG CONSTANT BRK$M_SCREEN = x'000 *00100'6 DECLARE LONG CONSTANT BRK$M_BOTTOM = x'00000200'9 DECLARE LONG CONSTANT BRK$M_NOREFRESH = x'00000400'7 DECLARE LONG CONSTANT BRK$M_CLUSTER = x'00000800'1 DECLARE LONG CONSTANT BRK$S_FLAGS_INPUT = 2@ record FLAGS_INPUT ! mimics $BRDCSTDEF% ! number of lines to erase& ! Do screen formatted write' ! "screen" message at bottom( ! Refresh an interrupted read! ! broadcast to clusteru  WORD ERASE_LINES_bits ! COMMENT ADDED BY SDL - ERASE_LINES_bits contains bits ERASE_LINES through FILL_64_ end record FLAGS_INPUT  ww¼3 ! *** PREDECLARED TYPESI C: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD * %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF D: %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )C END RECORDE* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED - % ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED .( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN/G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 0 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +/ DECLARE LONG CONSTANT CAP$K_ALL_USER = -13 DECLARE LONG CONSTANT CAP$K_ALL_USER_ADD = -12 DECLARE LONG CONSTANT CAP$K_ALL_CPU_ADD = -16 DECLARE LONG CONSTANT CAP$K_ALL_ACTIVE_CPUS 1= -15 DECLARE LONG CONSTANT CAP$K_ALL_USER_REMOVE = 04 DECLARE LONG CONSTANT CAP$K_ALL_CPU_REMOVE = 02 DECLARE LONG CONSTANT CAP$K_GET_FREE_CAP = 0 ! 2 ! Constants defining user capability numbers  ! 5 DECLARE LONG CONSTANT CAP$M_USER1 = x'00000001'5 DECLARE LONG CONSTANT CAP$M_USER2 = x'00000002'5 DECLARE LONG CONSTANT CAP$M_USER3 = x'00000004'5 DECLARE LONG CONSTANT CAP$M_USER4 = x'00000008'5 DECLARE LONG CONSTANT CAP$M_USER5 = x'00 2000010'5 DECLARE LONG CONSTANT CAP$M_USER6 = x'00000020'5 DECLARE LONG CONSTANT CAP$M_USER7 = x'00000040'5 DECLARE LONG CONSTANT CAP$M_USER8 = x'00000080'5 DECLARE LONG CONSTANT CAP$M_USER9 = x'00000100'6 DECLARE LONG CONSTANT CAP$M_USER10 = x'00000200'6 DECLARE LONG CONSTANT CAP$M_USER11 = x'00000400'6 DECLARE LONG CONSTANT CAP$M_USER12 = x'00000800'6 DECLARE LONG CONSTANT CAP$M_USER13 = x'00001000'6 DECLARE LONG CONSTANT CAP$M_USER14 = x'000 302000'6 DECLARE LONG CONSTANT CAP$M_USER15 = x'00004000'6 DECLARE LONG CONSTANT CAP$M_USER16 = x'00008000') DECLARE LONG CONSTANT CAP$S_CAP = 4 record CAP group CAP$R_FILL_65_ variant case LONG CAP$L_CAP case& group CAP$R_FILL_66_m LONG USER1_bits ! COMMENT ADDED BY SDL - USER1_bits contains bits USER1 through FILL_1* end group CAP$R_FILL_646_ end variant! end group CAP$R_FILL_65_ end record CAP  ! + ! Constants defining user CPU numbers  ! 4 DECLARE LONG CONSTANT CAP$M_CPU0 = x'00000001'4 DECLARE LONG CONSTANT CAP$M_CPU1 = x'00000002'4 DECLARE LONG CONSTANT CAP$M_CPU2 = x'00000004'4 DECLARE LONG CONSTANT CAP$M_CPU3 = x'00000008'4 DECLARE LONG CONSTANT CAP$M_CPU4 = x'00000010'4 DECLARE LONG CONSTANT CAP$M_CPU5 = x'00000020'4 DECLARE LONG CONSTAN 5T CAP$M_CPU6 = x'00000040'4 DECLARE LONG CONSTANT CAP$M_CPU7 = x'00000080'4 DECLARE LONG CONSTANT CAP$M_CPU8 = x'00000100'4 DECLARE LONG CONSTANT CAP$M_CPU9 = x'00000200'5 DECLARE LONG CONSTANT CAP$M_CPU10 = x'00000400'5 DECLARE LONG CONSTANT CAP$M_CPU11 = x'00000800'5 DECLARE LONG CONSTANT CAP$M_CPU12 = x'00001000'5 DECLARE LONG CONSTANT CAP$M_CPU13 = x'00002000'5 DECLARE LONG CONSTANT CAP$M_CPU14 = x'00004000'5 DECLARE LONG CONSTANT CAP$M_CP 6U15 = x'00008000'5 DECLARE LONG CONSTANT CAP$M_CPU16 = x'00010000'5 DECLARE LONG CONSTANT CAP$M_CPU17 = x'00020000'5 DECLARE LONG CONSTANT CAP$M_CPU18 = x'00040000'5 DECLARE LONG CONSTANT CAP$M_CPU19 = x'00080000'5 DECLARE LONG CONSTANT CAP$M_CPU20 = x'00100000'5 DECLARE LONG CONSTANT CAP$M_CPU21 = x'00200000'5 DECLARE LONG CONSTANT CAP$M_CPU22 = x'00400000'5 DECLARE LONG CONSTANT CAP$M_CPU23 = x'00800000'5 DECLARE LONG CONSTANT CAP$M_CPU2 74 = x'01000000'5 DECLARE LONG CONSTANT CAP$M_CPU25 = x'02000000'5 DECLARE LONG CONSTANT CAP$M_CPU26 = x'04000000'5 DECLARE LONG CONSTANT CAP$M_CPU27 = x'08000000'5 DECLARE LONG CONSTANT CAP$M_CPU28 = x'10000000'5 DECLARE LONG CONSTANT CAP$M_CPU29 = x'20000000'5 DECLARE LONG CONSTANT CAP$M_CPU30 = x'40000000'5 DECLARE LONG CONSTANT CAP$M_CPU31 = x'80000000'. DECLARE LONG CONSTANT CAP$S_CAP_CPUS = 4 record CAP_CPUS group CAP$R_FIL8L_67_ variant case% LONG CAP$L_CAP_CPUS case& group CAP$R_FILL_68_i LONG CPU0_bits ! COMMENT ADDED BY SDL - CPU0_bits contains bits CPU0 through CPU31* end group CAP$R_FILL_68_ end variant! end group CAP$R_FILL_67_ end record CAP_CPUS G DECLARE LONG CONSTANT CAP$M_IMPLICIT_AFFINITY_CLEAR = x'00000001'E DECLARE LONG CONSTANT CA 9P$M_IMPLICIT_AFFINITY_SET = x'00000002'E DECLARE LONG CONSTANT CAP$M_IMPLICIT_DEFAULT_ONLY = x'00000004'D DECLARE LONG CONSTANT CAP$M_IMPLICIT_ALL_THREADS = x'00000008'/ DECLARE LONG CONSTANT CAP$S_IMP_FLAGS = 1 record IMP_FLAGS group CAP$R_IMP_FLAGS* ! Shut implicit affinity off) ! Turn implicit affinity on+ ! Only system default changed< ! Change affects all kernel threads in processv BYTE IMP :LICIT_AFFINITY_CLEAR_bits ! COMMENT ADDED BY SDL - IMPLICIT_AFFINITY_CLEAR_bits contains bits &+ ! IMPLICIT_AFFINITY_CLEAR through FILL_69_" end group CAP$R_IMP_FLAGS end record IMP_FLAGS  ! M ! Note: the following flags structure must mimic that of [LIB]CPBDEF.SDL ! > DECLARE LONG CONSTANT CAP$M_FLAG_CHECK_CPU = x'00000001'> DECLARE LONG CONSTANT CAP$M_FLAG_PERMANENT = x'00000002'E DECLARE LONG CONSTANT CAP$M_FLAG_CHECK_CPU_ACTIVE = x'0000 ;0008'A DECLARE LONG CONSTANT CAP$M_FLAG_DEFAULT_ONLY = x'00000010'; DECLARE LONG CONSTANT CAP$M_ALL_THREADS = x'00000020'C DECLARE LONG CONSTANT CAP$M_PURGE_WS_IF_NEW_RAD = x'00000040'/ DECLARE LONG CONSTANT CAP$S_CAP_FLAGS = 1 record CAP_FLAGS group CAP$R_CAP_FLAGS* ! Check that process can run% ! Affect permanent mask' ! Filler to match $CPBDEF. ! Check all selected CPUs active+ ! On ly system default changed< ! Change affects all kernel threads in processB ! If the home RAD was changed, purge the working set BYTE FLAG_CHECK_CPU_bits ! COMMENT ADDED BY SDL - FLAG_CHECK_CPU_bits contains bits FLAG_CHECK_CPU through FILL_70_" end group CAP$R_CAP_FLAGS end record CAP_FLAGS  ww=)  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED >( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN?G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > @ %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +' ! Define Create Buffer Object bits ! -6 DECLARE LONG CONSTANT CBO$M_RETSVA = x'00000001'8 DECLARE LONG CONSTANT CBO$M_EXMAXLIM = x'00000002'6 DECLARE LONG CONSTANT CBO$M_SVA_32 A = x'00000004'5 DECLARE LONG CONSTANT CBO$M_NOSVA = x'00000008'9 DECLARE LONG CONSTANT CBO$M_SYSBUFOBJ = x'00000010'? DECLARE LONG CONSTANT CBO$S_CREATE_BUFFER_OBJECT_FLAG = 4' record CREATE_BUFFER_OBJECT_FLAGS2 ! (Priv) Return SVA, not PVA, of objectE ! (Priv) Bypass MAXBOBMEM check (VMS development use only)? ! Allocate SVA from S0 space, $CREATE_BUFOBJ_64 only- ! Do not allocate any system space3 ! System buffer object (no process ties)d LONG RETSVA_bits ! COMMENT ADDED BY SDL - RETSVA_bits contains bits RETSVA through filler+ end record CREATE_BUFFER_OBJECT_FLAGS  wwCl( ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED D( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINEG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > F %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! / ! CONDITION HANDLING ARGUMENT LIST OFFSETSK ! THERE ARE FOUR CONDITIONAL HANDLING STRUCTURES: THE PRIMARY ARGUMENTK ! LIST, THE SIGNAL AND MECHANISM ARRAYS AND THE ALPHA EXCEPTION RECORD3 G ! ALL ARE IDENTIFIED BY THE SAME BLOCK PREFIX. ! - DECLARE LONG CONSTANT CHF$S_CHFDEF = 12 record CHFDEFE LONG CHFDEF$$_FILL_1 ! Primary Argument CountJ LONG CHF$L_SIGARGLST ! ADDRESS OF SIGNAL ARGUMENTS L LONG CHF$L_MCHARGLST ! ADDRESS OF MECHANISM ARGUMENTS end record CHFDEF . DECLARE LONG CONSTANT CHF$S_CHFDEF1 = 12 record CHFDEF1" group CHF$R_SIG_ARGS_DESC Hvariant caseH LONG CHF$IS_SIG_ARGS ! NUMBER OF SIGNAL ARGUMENTS case: LONG CHF$L_SIG_ARGS ! obsolete def end variant& end group CHF$R_SIG_ARGS_DESC" group CHF$R_SIG_NAME_DESC variant case9 LONG CHF$IS_SIG_NAME ! SIGNAL NAME case: LONG CHF$L_SIG_NAME ! obsolete def end variant& I end group CHF$R_SIG_NAME_DESC" group CHF$R_SIG_ARG1_DESC variant caseL LONG CHF$IS_SIG_ARG1 ! FIRST SIGNAL SPECIFIC ARGUMENT case: LONG CHF$L_SIG_ARG1 ! obsolete def end variant& end group CHF$R_SIG_ARG1_DESC end record CHFDEF1 < DECLARE LONG CONSTANT CHF$M_FPREGS_VALID = x'00000001'= DECLARE LONG CONSTANT CHF$M_FPREGS2_VALID = x'00000002'/ JDECLARE LONG CONSTANT CHF$S_CHFDEF2 = 592 record CHFDEF2" group CHF$R_MCH_ARGS_DESC variant caseL LONG CHF$IS_MCH_ARGS ! NUMBER OF MECHANISM ARGUMENTS  end variant& end group CHF$R_MCH_ARGS_DESC# group CHF$R_MCH_FLAGS_DESC variant case3 LONG CHF$IS_MCH_FLAGS ! Flags case; group CHF$R_MCH_FLAGS_BITS ! Flags bits K.3 ! FP registers stored in MCH.~ BYTE FPREGS_VALID_bits ! COMMENT ADDED BY SDL - FPREGS_VALID_bits contains bits FPREGS_VALID through & ! FILL_75_0 end group CHF$R_MCH_FLAGS_BITS end variant' end group CHF$R_MCH_FLAGS_DESC# group CHF$R_MCH_FRAME_DESC variant caseO BASIC$QUADWORD CHF$PH_MCH_FRAME ! ESTABLISHER FRAME ADDRESS  end variant L' end group CHF$R_MCH_FRAME_DESC# group CHF$R_MCH_DEPTH_DESC variant caseI LONG CHF$IS_MCH_DEPTH ! FRAME DEPTH OF ESTABLISHER  case2 LONG CHF$IH_MCH_DEPTH ! temp end variant' end group CHF$R_MCH_DEPTH_DESCI LONG CHF$IS_MCH_RESVD1 ! reserved, paired with DEPTHK BASIC$QUADWORD CHF$PH_MCH_DADDR ! ESTABLISHER HANDLER DATA CELLP M BASIC$QUADWORD CHF$PH_MCH_ESF_ADDR ! ESTABLISHER EXCEPTION STACK FRAMEP BASIC$QUADWORD CHF$PH_MCH_SIG_ADDR ! ESTABLISHER EXCEPTION STACK FRAME# group CHF$R_MCH_SAVR0_DESC variant case2 BASIC$QUADWORD CHF$IH_MCH_RETVAL case& group CHF$R_FILL_71_ variant caseM BASIC$QUADWORD CHF$IH_MCH_SAVR0 ! SAVED REGISTER R0  N case, group CHF$R_FILL_72_I LONG CHF$IL_MCH_SAVR0_LOW ! LOW ORDER 32 BITSK LONG CHF$IL_MCH_SAVR0_HIGH ! HIGH ORDER 32 BITS0 end group CHF$R_FILL_72_ end variant* end group CHF$R_FILL_71_ end variant' end group CHF$R_MCH_SAVR0_DESC# group CHF$R_MCH_SAVR1_DESC variant case3 O BASIC$QUADWORD CHF$IH_MCH_RETVAL2 case& group CHF$R_FILL_73_ variant caseM BASIC$QUADWORD CHF$IH_MCH_SAVR1 ! SAVED REGISTER R1  case, group CHF$R_FILL_74_I LONG CHF$IL_MCH_SAVR1_LOW ! LOW ORDER 32 BITSK LONG CHF$IL_MCH_SAVR1_HIGH ! HIGH ORDER 32 BITS0 end group CHF$R_ PFILL_74_ end variant* end group CHF$R_FILL_73_ end variant' end group CHF$R_MCH_SAVR1_DESCE BASIC$QUADWORD CHF$PH_MCH_SIG64_ADDR ! 64-bit sig array ptr1 BASIC$QUADWORD CHF$PH_MCH_SAVF32_SAVF1271 BYTE CHF$FH_MCH_RETVAL_FLOAT ( 1 to 16 )2 BYTE CHF$FH_MCH_RETVAL2_FLOAT ( 1 to 16 )* BYTE CHF$FH_MCH_SAVF2 ( 1 to 16 )* BYTE CHF$FH_MCH_SAVF3 ( 1 to 16 )* BYTE CHF$FH_MCH_SAVF4 ( 1 Q to 16 )* BYTE CHF$FH_MCH_SAVF5 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF12 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF13 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF14 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF15 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF16 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF17 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF18 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF19 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF20 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF21 ( 1 to R 16 )+ BYTE CHF$FH_MCH_SAVF22 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF23 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF24 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF25 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF26 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF27 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF28 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF29 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF30 ( 1 to 16 )+ BYTE CHF$FH_MCH_SAVF31 ( 1 to 16 )( BASIC$QUADWORD CHF$IH_MCH_SAVSB1( BASIC$QUADWORD CHF$IH_MCH_SAVB2( BASIC$QUADWORD CHF$IH_MCH_SAVB3( BASIC$QUADWORD CHF$IH_MCH_SAVB4( BASIC$QUADWORD CHF$IH_MCH_SAVB5( BASIC$QUADWORD CHF$IH_MCH_AR_LC( BASIC$QUADWORD CHF$IH_MCH_AR_EC' BASIC$QUADWORD CHF$PH_MCH_OSSD- BASIC$QUADWORD CHF$Q_MCH_INVO_HANDLE, BASIC$QUADWORD CHF$PH_MCH_UWR_START' BASIC$QUADWORD CHF$IH_MCH_FPSR' BASIC$QUADWORD CHF$IH_MCH_FPSS end record CHFDEF2 T= DECLARE LONG CONSTANT CHF$M_CALEXT_CANCEL = x'00000001'; DECLARE LONG CONSTANT CHF$M_CALEXT_LAST = x'00000002'V DECLARE LONG CONSTANT CHF$K_CALEXT_LENGTH = 16 ! LENGTH OF CATCH-ALL DESC BLOCKV DECLARE LONG CONSTANT CHF$C_CALEXT_LENGTH = 16 ! LENGTH OF CATCH-ALL DESC BLOCK. DECLARE LONG CONSTANT CHF$S_CHFDEF3 = 16 record CHFDEF3F LONG CHF$L_CALEXT_LINK ! CATCH-ALL EXTENSION LINKL LONG CHF$L_CALEXT_ADDRESS ! ADDRESS OF CAT UCH-ALL EXTENSION& group CHF$R_CALEXT_FLAGS_DESC variant case3 LONG CHF$L_CALEXT_FLAGS ! FLAGS case= group CHF$R_CALEXT_FLAGS_BITS ! FLAGS BITS2 ! REMOVE CATCH-ALL EXTENSION0 ! LAST CATCH-ALL EXTENSION BYTE CALEXT_CANCEL_bits ! COMMENT ADDED BY SDL - CALEXT_CANCEL_bits contains bits CALEXT_CANCEL through & ! FILL_76_3 V end group CHF$R_CALEXT_FLAGS_BITS end variant* end group CHF$R_CALEXT_FLAGS_DESC6 LONG CHF$L_CALEXT_RESERVED ! RESERVED end record CHFDEF3 0 DECLARE LONG CONSTANT CHF64$S_CHFDEF6 = 24 record CHFDEF6% group CHF64$R_SIG_ARGS_UNION variant caseQ LONG CHF64$L_SIG_ARGS ! Longword including count ? options case) group CHF64$R_SIG_WORDSM W WORD CHF64$W_SIG_ARG_COUNT ! Word holding count itselfU WORD CHF64$W_SIG_MSG_OPTIONS ! Word containing message options- end group CHF64$R_SIG_WORDS end variant) end group CHF64$R_SIG_ARGS_UNIONa LONG CHF64$L_SIGNAL64 ! 64-bit array tag: overlays sig_name of 32b version; BASIC$QUADWORD CHF64$Q_SIG_NAME ! Signal valueD BASIC$QUADWORD CHF64$Q_SIG_ARG1 ! First signal argument end record CHFDEF6  wwYL/ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED Z( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN[G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > \ %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! - ! @ ! Define flags for calls to create checkpointable processes ! +? DECLARE LONG CONSTANT CHKPNT$M_AUTO_RESTART = x'00000001'8 DECLARE LONG CONSTANT CHKPNT$M_DEBUG = x'00000002' 8 DECLARE LONG CONSTANT CHKPNT$M_ASYNC = x'00000004'2 DECLARE LONG CONSTANT CHKPNT$S_CHKPNTDEF = 1 record CHKPNTDEF* ! auto-restart detached process ! merge in DEBUG- ! asynchronous checkpoint process x BYTE AUTO_RESTART_bits ! COMMENT ADDED BY SDL - AUTO_RESTART_bits contains bits AUTO_RESTART through FILL_77_ end record CHKPNTDEF  ww^7 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED _( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN`G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > a %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! N ! Item code definition for the $CHKPRO (check protection) system service. ! 7 DECLARE LONG CONSTANT CHP$_END = 0 ! list end? DECLARE LONG CONSTANT CHP$_ACCESS = 1 ! intended acces bsA DECLARE LONG CONSTANT CHP$_FLAGS = 2 ! read / write flags= DECLARE LONG CONSTANT CHP$_PRIV = 3 ! privilege maskD DECLARE LONG CONSTANT CHP$_ACMODE = 4 ! accessor access modeQ DECLARE LONG CONSTANT CHP$_ACCLASS = 5 ! accessor security classification; DECLARE LONG CONSTANT CHP$_RIGHTS = 6 ! rights listS DECLARE LONG CONSTANT CHP$_ADD_RIGHTS = 7 ! additional rights list segmentsA DECLARE LONG CONSTANT CHP$_MODE = 8 ! simple access modeEc DECLARE LONG CONSTANT CHP$_MODES = 9 ! per action access modeS DECLARE LONG CONSTANT CHP$_MIN_CLASS = 10 ! minimum security classificationS DECLARE LONG CONSTANT CHP$_MAX_CLASS = 11 ! maximum security classification@ DECLARE LONG CONSTANT CHP$_OWNER = 12 ! object owner UIC> DECLARE LONG CONSTANT CHP$_PROT = 13 ! protection maskJ DECLARE LONG CONSTANT CHP$_ACL = 14 ! access control list segmentI DECLARE LONG CONSTANT CHP$_AUDIT_NAME = 15 ! auddit names returnedI DECLARE LONG CONSTANT CHP$_ALARM_NAME = 16 ! alarm names returnedM DECLARE LONG CONSTANT CHP$_MATCHED_ACE = 17 ! address of matching ACEU DECLARE LONG CONSTANT CHP$_PRIVUSED = 18 ! address of mask of privileges used\ DECLARE LONG CONSTANT CHP$_AUDIT_LIST = 19 ! address of supplemental audit item listL DECLARE LONG CONSTANT CHP$_OBJECT_NAME = 20 ! object name descriptorS DECLARE LONG CONSTANT CHP$_OBJECT_CLASS = 21 ! object class na eme descriptor; DECLARE LONG CONSTANT CHP$_UIC = 22 ! accessor UIC\ DECLARE LONG CONSTANT CHP$_OBJECT_SPECIFIC = 23 ! object specific longword (for OSR)% ! add new item codes before hereI DECLARE LONG CONSTANT CHP$_MAX_CODE = 24 ! highest CHP$ item code. DECLARE LONG CONSTANT CHP$_ADDRIGHTS = 7. DECLARE LONG CONSTANT CHP$_MINCLASS = 10. DECLARE LONG CONSTANT CHP$_MAXCLASS = 11/ DECLARE LONG CONSTANT CHP$_AUDITNAME = 15/ DECLARE LONG CONST fANT CHP$_ALARMNAME = 160 DECLARE LONG CONSTANT CHP$_MATCHEDACE = 17* DECLARE LONG CONSTANT CHP$_CLASS = 5: DECLARE LONG CONSTANT CHP$K_MATCHED_ACE_LENGTH = 2554 DECLARE LONG CONSTANT CHP$K_ALARM_LENGTH = 7685 DECLARE LONG CONSTANT CHP$K_AUDIT_LENGTH = 15606 DECLARE LONG CONSTANT CHP$M_SYSPRV = x'00000001'6 DECLARE LONG CONSTANT CHP$M_BYPASS = x'00000002'7 DECLARE LONG CONSTANT CHP$M_UPGRADE = x'00000004'9 DECLARE LONG CONSTANT CHP$M_DOWNGRADE = gx'00000008'6 DECLARE LONG CONSTANT CHP$M_GRPPRV = x'00000010'7 DECLARE LONG CONSTANT CHP$M_READALL = x'00000020'4 DECLARE LONG CONSTANT CHP$M_OPER = x'00000040'6 DECLARE LONG CONSTANT CHP$M_GRPNAM = x'00000080'6 DECLARE LONG CONSTANT CHP$M_SYSNAM = x'00000100'5 DECLARE LONG CONSTANT CHP$M_GROUP = x'00000200'5 DECLARE LONG CONSTANT CHP$M_WORLD = x'00000400'6 DECLARE LONG CONSTANT CHP$M_PRMCEB = x'00000800'6 DECLARE LONG CONSTANT CHP$K_NUMBER_OF_ hPRIVS = 125 DECLARE LONG CONSTANT CHP$S_PRIVS_USED_BITS = 2 record PRIVS_USED_BITS( ! access via SYSPRV privilege( ! access via BYPASS privilege) ! access via UPGRADE privilege+ ! access via DOWNGRADE privilege( ! access via GRPPRV privilege) ! access via READALL privilege& ! access via OPER privilege( ! access via GRPNAM privilege( ! access via SYSNAM privilege' ! access via iGROUP privilege' ! access via WORLD privilege( ! access via PRMCEB privilegef WORD SYSPRV_bits ! COMMENT ADDED BY SDL - SYSPRV_bits contains bits SYSPRV through FILL_78_ end record PRIVS_USED_BITS 7 DECLARE LONG CONSTANT CHP$M_OBSERVE = x'00000001'5 DECLARE LONG CONSTANT CHP$M_ALTER = x'00000002'4 DECLARE LONG CONSTANT CHP$M_READ = x'00000001'5 DECLARE LONG CONSTANT CHP$M_WRITE = x'00000002': DECLARE LONG CONSTANT CHP$M_US jEREADALL = x'00000004'5 DECLARE LONG CONSTANT CHP$M_AUDIT = x'00000008'9 DECLARE LONG CONSTANT CHP$M_NOFAILAUD = x'00000010'9 DECLARE LONG CONSTANT CHP$M_NOSUCCAUD = x'00000020'6 DECLARE LONG CONSTANT CHP$M_DELETE = x'00000040'9 DECLARE LONG CONSTANT CHP$M_MANDATORY = x'00000080'5 DECLARE LONG CONSTANT CHP$M_FLUSH = x'00000100'6 DECLARE LONG CONSTANT CHP$M_CREATE = x'00000200'8 DECLARE LONG CONSTANT CHP$M_INTERNAL = x'00000400'6 DECLARE LONG C kONSTANT CHP$M_SERVER = x'00000800'/ DECLARE LONG CONSTANT CHP$S_FLAG_BITS = 2 record FLAG_BITS variant case% group CHP$R_SEVMS_DEFS3 ! non-discretionary read access4 ! non-discretionary write accessr BYTE OBSERVE_bits ! COMMENT ADDED BY SDL - OBSERVE_bits contains bits OBSERVE through FILL_79_) end group CHP$R_SEVMS_DEFS case# group CHP$R_VMS_DEF lS3 ! non-discretionary read access4 ! non-discretionary write access/ ! READALL privilege applies, ! access audit requested8 ! do not perform failed access audit< ! do not perform successful access audit8 ! perform audit as delete event type- ! perform mandatory audit8 ! force buffer flush in AUDIT_SERVER8 m ! perform audit as create event type0 ! audit on behalf of VMS TCB< ! audit originates in TCB server processi WORD READ_bits ! COMMENT ADDED BY SDL - READ_bits contains bits READ through FILL_80_' end group CHP$R_VMS_DEFS end variant end record FLAG_BITS 8 DECLARE LONG CONSTANT CHP$M_NOACCESS = x'00000001'8 DECLARE LONG CONSTANT CHP$M_REMDUPID = x'00000002'8 DECLARE LONG CONSTANT nCHP$M_INCSYSID = x'00000004'8 DECLARE LONG CONSTANT CHP$M_INCIMGID = x'00000008'7 DECLARE LONG CONSTANT CHP$M_DEFPRIV = x'00000010'8 DECLARE LONG CONSTANT CHP$M_DEFCLASS = x'00000020'3 DECLARE LONG CONSTANT CHP$S_PROFILE_FLAGS = 1 record PROFILE_FLAGS/ ! do not access UAF to build profile/ ! remove duplicate system rights IDs& ! include system rights IDs% ! include image rights IDs/ ! initialize privs from default mask/ ! initialize class from default maskl BYTE NOACCESS_bits ! COMMENT ADDED BY SDL - NOACCESS_bits contains bits NOACCESS through FILL_81_ end record PROFILE_FLAGS  wwpmA%DEFINE CIA$GENERIC_REPLY LONG ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %qIF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ r%IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL =s 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  * DECLARE LONG CONSTANT CIA$K_SCAN = 1, DECLARE LONG CONSTANT CIA$K_DELETE = 2* DECLARE LONG CONSTANT CIA$K_SHOW = 31 DECLARE LONG CONSTANT CIA$K_PERFORMANCE = 4 t6 DECLARE LONG CONSTANT CIA$K_ZERO_PERFORMANCE = 53 DECLARE LONG CONSTANT CIA$K_SCAN_EXTENDED = 65 DECLARE LONG CONSTANT CIA$K_DELETE_EXTENDED = 73 DECLARE LONG CONSTANT CIA$K_SHOW_EXTENDED = 82 DECLARE LONG CONSTANT CIA$K_MAX_CIA_CODE = 99 DECLARE LONG CONSTANT CIA$K_PERFORMANCE_LENGTH = 402 DECLARE LONG CONSTANT CIA$S_PERFORMANCE = 40 record PERFORMANCE" LONG CIA$L_TOTAL_MESSAGES$ LONG CIA$L_TOTAL_EXCEPTIONS LONG CIA$L_uSHOWS LONG CIA$L_SCANS LONG CIA$L_DELETES LONG CIA$L_PERFORMANCE LONG CIA$L_AUDITS$ LONG CIA$L_INVALID_MESSAGES LONG CIA$L_INTRUDERS LONG CIA$L_SUSPECTS end record PERFORMANCE = DECLARE LONG CONSTANT CIA$K_SOURCE_TERMINAL_LENGTH = 64? DECLARE LONG CONSTANT CIA$K_SOURCE_NODE_MAX_LENGTH = 1024= DECLARE LONG CONSTANT CIA$K_USER_SPEC_MAX_LENGTH = 1058= DECLARE LONG CONSTANT CIA$K_USER_STRING_MA vX_LENGTH = 32: DECLARE LONG CONSTANT CIA$K_PASSWORD_MAX_LENGTH = 32A DECLARE LONG CONSTANT CIA$K_SOURCE_ADDRESS_MAX_LENGTH = 1284 DECLARE LONG CONSTANT CIA$K_SCSNODE_LENGTH = 8; DECLARE LONG CONSTANT CIA$K_SCSNODE_REPLY_LENGTH = 127 DECLARE LONG CONSTANT CIA$K_USERDATA_LENGTH = 2566 DECLARE LONG CONSTANT CIA$S_CIA$GENERIC_DESC = 5 record CIA$GENERIC_DESC WORD CIA$W_DESC_LENGTH WORD CIA$W_FILL1# STRING CIA$T_DESC_DATA = 1! w end record CIA$GENERIC_DESC / DECLARE LONG CONSTANT CIAEXT$S_PACKET = 49 DECLARE LONG CONSTANT CIAEXT$S_EXTENSION_PACKET = 4 record EXTENSION_PACKET: WORD CIAEXT$W_TYPE ! packet typeT WORD CIAEXT$W_LENGTH ! packet length NOT including T/L words< STRING CIAEXT$R_VALUE = 0 ! start of data! end record EXTENSION_PACKET 3 DECLARE LONG CONSTANT CIAEXT$_USER_DATA = 1001 DECLARE LONGx CONSTANT CIAEXT$_SCSNODE = 1017 DECLARE LONG CONSTANT CIAEXT$_SCSNODE_REPLY = 1024 DECLARE LONG CONSTANT CIAEXT$_IMAGE_NAME = 1039 DECLARE LONG CONSTANT CIAEXT$_MAX_CIAEXT_CODE = 104V DECLARE LONG CONSTANT CIA$_SCSNODE_LIST = 200 ! List of nodes for which to actG DECLARE LONG CONSTANT CIA$_SCSNODE = 201 ! Single node for SCANW DECLARE LONG CONSTANT CIA$_OUTPUT_LIST = 202 ! List of nodes records occured onS DECLARE LONG CONSTANT CIA$_USER_DATA = 203y ! Opaque Data. We don't use it._ DECLARE LONG CONSTANT CIA$_USER_CRITERIAL = 204 ! Existing argument passed by item lista DECLARE LONG CONSTANT CIA$_FAILED_USERNAME = 205 ! Existing argument passsed by item listP DECLARE LONG CONSTANT CIA$_IMAGE_NAME = 206 ! Image name performing scan3 DECLARE LONG CONSTANT CIA$_MAX_CIA_ITEM = 207< DECLARE LONG CONSTANT CIA$K_IMAGE_NAME_MAX_SIZE = 40963 DECLARE LONG CONSTANT CIA$S_IMAGE_NAME = 4100 record IMAGE z_NAME WORD CIA$W_IMAGE_LENGTH WORD CIA$W_IMAGE_UNUSED) STRING CIA$T_IMAGE_STRING = 4096 end record IMAGE_NAME = DECLARE LONG CONSTANT CIA$M_IGNORE_RETURN = x'00000001': DECLARE LONG CONSTANT CIA$M_RESERVED_1 = x'000000FE'8 DECLARE LONG CONSTANT CIA$M_SUSPECTS = x'00000100'9 DECLARE LONG CONSTANT CIA$M_INTRUDERS = x'00000200'B DECLARE LONG CONSTANT CIA$M_SECONDARY_PASSWORD = x'00000400'7 DECLARE LONG CONSTANT CIA$M_NOAUDI {T = x'00000800'= DECLARE LONG CONSTANT CIA$M_REAL_USERNAME = x'00001000'9 DECLARE LONG CONSTANT CIA$M_SHOW_NODE = x'00002000'8 DECLARE LONG CONSTANT CIA$M_ITEMLIST = x'00004000'6 DECLARE LONG CONSTANT CIA$M_FILL_1 = x'FFFF8000'3 DECLARE LONG CONSTANT CIA$K_HEADER_LENGTH = 8, DECLARE LONG CONSTANT CIA$S_HEADER = 8 record HEADER LONG CIA$L_CONTEXT group CIA$R_FILL_82_ variant case) LONG | CIA$L_HEADER_FLAGS case& group CIA$R_FILL_83_ LONG IGNORE_RETURN_bits ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through & ! FILL_1* end group CIA$R_FILL_83_ end variant! end group CIA$R_FILL_82_ end record HEADER : DECLARE LONG CONSTANT CIA$K_SHOW_INPUT_LENGTH = 1062< DECLARE LONG CONSTANT CIA$K_DELETE_INPUT_LENGTH = 10621 DECLARE LONG} CONSTANT CIA$S_CONTENTS = 1062 record CONTENTS WORD CIA$W_LENGTH WORD CIA$W_UNUSED! STRING CIA$T_NAME = 1058 end record CONTENTS = DECLARE LONG CONSTANT CIA$K_SCAN_CONTENTS_LENGTH = 13866 DECLARE LONG CONSTANT CIA$S_SCAN_CONTENTS = 1386 record SCAN_CONTENTS LONG CIA$L_PARENT_ID LONG CIA$L_JOB_TYPE LONG CIA$L_LOGIN_STATUS group CIA$R_FILL_84_ variant case3 ~ STRING CIA$T_SOURCE_TERMINAL = 68 case& group CIA$R_FILL_85_2 WORD CIA$W_SOURCE_TERM_LENGTH( WORD CIA$W_UNUSED_17 STRING CIA$T_SOURCE_TERM_NAME = 64* end group CIA$R_FILL_85_ end variant! end group CIA$R_FILL_84_ group CIA$R_FILL_86_ variant case/ STRING CIA$T_SOURCE_USER = 36  case& group CIA$R_FILL_87_2 WORD CIA$W_SOURCE_USER_LENGTH( WORD CIA$W_UNUSED_27 STRING CIA$T_SOURCE_USER_NAME = 32* end group CIA$R_FILL_87_ end variant! end group CIA$R_FILL_86_ group CIA$R_FILL_88_ variant case3 STRING CIA$T_SOURCE_ADDRESS = 132 case& group CIA$R_FILL_89_2  WORD CIA$W_SOURCE_ADDR_LENGTH( WORD CIA$W_UNUSED_3; STRING CIA$T_SOURCE_ADDRESS_NAME = 128* end group CIA$R_FILL_89_ end variant! end group CIA$R_FILL_88_ WORD CIA$W_UNUSED_4 group CIA$R_FAILED_USER) WORD CIA$W_FAILED_USER_LENGTH WORD CIA$W_UNUSED_5. STRING CIA$T_FAILED_USER_NAME = 32$ end group CIA$R_FAILED_USER group CIA$R_FILL_90_ variant case3 STRING CIA$T_FAILED_PASSWORD = 36 case& group CIA$R_FILL_91_2 WORD CIA$W_FAILED_PASS_LENGTH( WORD CIA$W_UNUSED_67 STRING CIA$T_FAILED_PASS_NAME = 32* end group CIA$R_FILL_91_ end variant! end group CIA$R_FILL_90_ group CIA$R_FILL_92_ variant case/ STRING CIA$T_PARENT_USER = 36 case& group CIA$R_FILL_93_2 WORD CIA$W_PARENT_USER_LENGTH( WORD CIA$W_UNUSED_77 STRING CIA$T_PARENT_USER_NAME = 32* end group CIA$R_FILL_93_ end variant! end group CIA$R_FILL_92_ group CIA$R_FILL_94_ variant case1 STRING CIA$T_SOURCE_NODE = 1028  case& group CIA$R_FILL_95_2 WORD CIA$W_SOURCE_NODE_LENGTH( WORD CIA$W_UNUSED_89 STRING CIA$T_SOURCE_NODE_NAME = 1024* end group CIA$R_FILL_95_ end variant! end group CIA$R_FILL_94_ end record SCAN_CONTENTS 8 DECLARE LONG CONSTANT CIA$M_INTRUDER = x'00000001'7 DECLARE LONG CONSTANT CIA$M_SUSPECT = x'00000002'7 DECLARE LONG CONSTANT CIA$M_NE TWORK = x'00000004'9 DECLARE LONG CONSTANT CIA$M_TERM_USER = x'00000008'8 DECLARE LONG CONSTANT CIA$M_TERMINAL = x'00000010'8 DECLARE LONG CONSTANT CIA$M_USERNAME = x'00000020'6 DECLARE LONG CONSTANT CIA$M_FILL_2 = x'FFFFFFC0'; DECLARE LONG CONSTANT CIA$K_SHOW_OUTPUT_LENGTH = 10864 DECLARE LONG CONSTANT CIA$S_SHOW_OUTPUT = 1086 record SHOW_OUTPUT LONG CIA$L_STATUS$ LONG CIA$L_RETURNED_CONTEXT- BASIC$QUADWORD CIA$Q_EXPIRATION_TIME group CIA$R_FILL_96_ variant case" LONG CIA$L_FLAGS case& group CIA$R_FILL_97_v LONG INTRUDER_bits ! COMMENT ADDED BY SDL - INTRUDER_bits contains bits INTRUDER through FILL_2* end group CIA$R_FILL_97_ end variant! end group CIA$R_FILL_96_! LONG CIA$L_ATTEMPT_COUNT group CIA$R_FILL_98_ variant  case/ STRING CIA$T_USER_SPEC = 1062 case& group CIA$R_FILL_99_0 WORD CIA$W_USER_SPEC_LENGTH( WORD CIA$W_UNUSED_87 STRING CIA$T_USER_SPEC_NAME = 1058* end group CIA$R_FILL_99_ end variant! end group CIA$R_FILL_98_ end record SHOW_OUTPUT 4 DECLARE LONG CONSTANT CIA$S_BREAKIN_BLOCK = 16 record BREAKIN_BLOCK L ONG CIA$L_BREAK_FLAGS LONG CIA$L_BREAK_COUNT( BASIC$QUADWORD CIA$Q_BREAK_TIME end record BREAKIN_BLOCK 7 DECLARE LONG CONSTANT CIA$S_CIA$GENERIC_REPLY = 4  ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ++ ! 8 ! $CLIDEF --- COMMAND LAGUAGE INTERFACE DEFINITIONS ! D ! THIS MODULE DEFINES THE OFFSET VALUES FOR THE DATA STRUCTURESC ! USED TO COMMUNICATED COMMAND INFORMATION BETWEEN THE CL I AND? ! THE UTILITY THAT WAS REQUESTED TO PERFORM THE OPERATION. !  ! --5 DECLARE LONG CONSTANT CLI$M_DEBUG = x'00000001'6 DECLARE LONG CONSTANT CLI$M_DBGTRU = x'00000002'6 DECLARE LONG CONSTANT CLI$M_VERIFY = x'00000004'5 DECLARE LONG CONSTANT CLI$M_BATCH = x'00000008'8 DECLARE LONG CONSTANT CLI$M_INDIRECT = x'00000010'6 DECLARE LONG CONSTANT CLI$M_VFYINP = x'00000020'8 DECLARE LONG CONSTANT CLI$M_TRMVRBLV = x'00000300'7 DECLARE LONG  CONSTANT CLI$M_DBGEXCP = x'00010000'- DECLARE LONG CONSTANT CLI$S_CLIDEF = 32 record CLIDEFA LONG CLI$L_INIARGCNT ! INITIAL ARG COUNT O LONG CLI$A_PROGXFER ! PROGRAM TRANSFER VECTOR ADDRESS N LONG CLI$A_UTILSERV ! ADDRESS OF CLI UTILITY SERVICE G LONG CLI$A_IMGHDADR ! ADDRESS OF IMAGE HEADER J LONG CLI$A_IMGFILED ! ADDRESS OF IMAGE FILE DATA B LONG CL I$L_LINKFLAG ! LINK FLAG LONGWORD $ group CLI$R_CLIFLAG_OVERLAY variant caseA LONG CLI$L_CLIFLAG ! CLI FLAG LONGWORD  case* group CLI$R_CLIFLAG_BITS. ! DEBUG QUALIFIER SEEN ( ! DEBUG WAS TRUE & ! VERIFY IS ON 5 ! THIS PROCESS IS A BATCH JOB : ! INDIRECT LEVEL NOT EQUAL TO  ZERO 5 ! UTILITY SHOULD VERFIY INPUT / ! ROUND UP TO NEXT BYTE 2 ! TERMINAL VERBOSITY LEVEL / ! ROUND UP TO NEXT BYTE ? ! DEBUGGER CALLED VIA "DEBUG" EXCEPTION p LONG DEBUG_bits ! COMMENT ADDED BY SDL - DEBUG_bits contains bits DEBUG through FILL_104_. end group CLI$R_CLIFLAG_BITSI ! THE FOLLOWING ARGUMENTS ARE OPTIONAL DEPENDING ON INIARGCNT end variant( end group CLI$R_CLIFLAG_OVERLAYT LONG CLI$L_ARGLIST ! ADDRESS OF APPLICATION ARGUMENT LIST + ! (USED FOR MERGED IMAGE ARG. PASSING) ! 8 ! DEFINE CLI COMMAND INTERFACE REQUEST BLOCK !  end record CLIDEF 7 DECLARE LONG CONSTANT CLI$M_PARMREQ = x'00000001'6 DECLARE LONG CONSTANT CLI$M_ABSADR = x'00000002'6 DECLARE LONG CONSTANT CLI$M_EXPNAM = x'00000004'7 DECLARE LO NG CONSTANT CLI$M_LASTVAL = x'00000001'5 DECLARE LONG CONSTANT CLI$M_DUMMY = x'00000002'7 DECLARE LONG CONSTANT CLI$M_PARMPRS = x'00000001'9 DECLARE LONG CONSTANT CLI$M_CONCATINP = x'00000002'7 DECLARE LONG CONSTANT CLI$M_MOREINP = x'00000004'7 DECLARE LONG CONSTANT CLI$M_PARMDEF = x'00000008'8 DECLARE LONG CONSTANT CLI$M_MOREVALS = x'00000001'7 DECLARE LONG CONSTANT CLI$M_KEYVALU = x'00000002'I DECLARE LONG CONSTANT CLI$K_REQDESC = 28 ! SIZE OF THE STRUCTURE I DECLARE LONG CONSTANT CLI$C_REQDESC = 28 ! SIZE OF THE STRUCTURE  ! . DECLARE LONG CONSTANT CLI$S_CLIDEF1 = 28 record CLIDEF1# group CLI$R_FILL_3_OVERLAY variant case9 LONG CLIDEF$$_FILL_3 ! DUMMY ARG  case+ group CLI$R_FILL_3_FIELDS/ group CLI$R_RQTYPE_OVERLAY variant caseL  BYTE CLI$B_RQTYPE ! TYPE OF REQUEST BEING MADE  case2 group CLI$R_RQTYPE_BITS1 ! SUB TYPE VIELD 0 ! PRIMARY TYPYE y BYTE SUBTYP_bits ! COMMENT ADDED BY SDL - SUBTYP_bits contains bits SUBTYP through PRITYP6 end group CLI$R_RQTYPE_BITS# end variant3 end group CLI$R _RQTYPE_OVERLAY0 group CLI$R_SERVCOD_OVERLAY variant caseC WORD CLI$W_SERVCOD ! CLI SERVICE CODE  case5 group CLI$R_SERVCOD_FIELDS8 group CLI$R_RQINDX_OVERLAY( variant% caseY BYTE CLI$B_RQINDX ! OFFSET FOR VALUE KEY WORD INDEX % case] BYTE CLI$B_BITNUM ! BIT TO SET IF REQUEST IS SUCESSFUL , end variant< end group CLI$R_RQINDX_OVERLAY8 group CLI$R_RQFLGS_OVERLAY( variant% caseY BYTE CLI$B_RQFLGS ! INPUT FLAGS CONCERNING REQUEST %  case< group CLI$R_RQFLGS_BITS0A ! PARAMATER IS REQUIRED D ! ALL ADDRESS ARE ABSOLUTE F ! RETURN EXPLICIT NAMES ONLY BYTE PARMREQ_bits ! COMMENT ADDED BY SDL - PARMREQ_bits contains bits PARMREQ through & ! FILL_105_@ end group CLI$R_RQFLGS_BITS0 % case< group CLI$R_RQFLGS_BITS1> ! LAST VALUE ALLOWED J ! *** SAVE PLACE FOR ABS ADR *** BYTE LASTVAL_bits ! COMMENT ADDED BY SDL - LASTVAL_bits contains bits LASTVAL through & ! FILL_106_@ end group CLI$R_RQFLGS_BITS1, end variant<  end group CLI$R_RQFLGS_OVERLAY9 end group CLI$R_SERVCOD_FIELDS# end variant4 end group CLI$R_SERVCOD_OVERLAY/ group CLI$R_RQSTAT_OVERLAY variant caseE BYTE CLI$B_RQSTAT ! OUTPUT STATUS FLAGS  case3 group CLI$R_RQSTAT_BITS07  ! PARAMETER IS PRESENT = ! INPUT CONCATONATION EXISTS B ! ANOTHER SET OF INPUT PARAMETERS B ! PARAMETER WAS DEFAULTED PRESENT  BYTE PARMPRS_bits ! COMMENT ADDED BY SDL - PARMPRS_bits contains bits PARMPRS through FILL_107_7 end group CLI$R_RQSTAT_BITS0 case3 group CLI$R_RQSTAT_BITS1<  ! UNPROCESSED VALUES REMAIN D ! SUBSEQUENT TOKEN IS VALUE FOR KEY BYTE MOREVALS_bits ! COMMENT ADDED BY SDL - MOREVALS_bits contains bits MOREVALS through FILL_108_7 end group CLI$R_RQSTAT_BITS1# end variant3 end group CLI$R_RQSTAT_OVERLAY/ end group CLI$R_FILL_3_FIELDS end variant' end group  CLI$R_FILL_3_OVERLAYO LONG CLI$A_ERRACT ! ADDRESS OF ERROR ACTION ROUTINE # group CLI$R_RQDESC_OVERLAY variant caseN BASIC$QUADWORD CLI$Q_RQDESC ! QUADWORD REQUEST DESCRIPTOR  case+ group CLI$R_RQDESC_FIELDSK WORD CLI$W_RQSIZE ! RESULTANT SIZE OF PARAMETER H WORD CLIDEF$$_FILL_4 ! SPARE WORD IN DESCRIPTOR /  group CLI$R_RQVALU_OVERLAY variant caseS LONG CLI$L_RQVALU ! ACTUAL VALUE IN VALUE CONVERSTION  caseP LONG CLI$A_RQADDR ! ADDRESS OF RESULTANT PARAMETER # end variant3 end group CLI$R_RQVALU_OVERLAY/ end group CLI$R_RQDESC_FIELDS end variant' end group CLI$R_RQDESC_OVERLAYP  LONG CLI$A_PRSACT ! PARAMETER PRESENT ACTION ROUTINE O LONG CLI$A_ABSACT ! PARAMETER ABSENT ACTION ROUTINE E LONG CLI$A_QUALST ! ADDRESS OF QUALIFIERS F ! Define the Descriptor Used by Symbol and Logical-name Callbacks !  end record CLIDEF1 . DECLARE LONG CONSTANT CLI$S_CLIDEF2 = 36 record CLIDEF2( BYTE CLIDEF$$_FILL_8 ( 1 to 4 )K BASIC$QUADWORD CLI$Q_NAMDESC ! L ogical name or symbol name P BASIC$QUADWORD CLI$Q_VALDESC ! Equivalence name or symbol value I BASIC$QUADWORD CLI$Q_TABDESC ! Name of logical name tableC LONG CLI$L_ITMLST ! Address of item listL LONG CLI$L_ATTR ! Address of attribute longword ! ; ! Define the Descriptor Locations Used for the Old/New% ! Out-of-Band Character(s) Masks !  end record CLIDEF2 . DECLARE LONG CONSTANT CLI$S_CLIDEF3 = 12 record CLIDEF3( BYTE CLIDEF$$_FILL_9 ( 1 to 4 )C LONG CLI$L_NEW_MASK ! Enable/disable mask L LONG CLI$L_OLD_MASK ! Previous enabled values mask  ! 5 ! Define the descriptor used for ATTACH callback !  end record CLIDEF3 - DECLARE LONG CONSTANT CLI$S_CLIDEF4 = 8 record CLIDEF4) BYTE CLIDEF$$_FILL_10 ( 1 to 4 )L LONG CLI$L_PID ! P ID of "destination" process  ! 4 ! Define the descriptor used for SPAWN callback !  end record CLIDEF4 6 DECLARE LONG CONSTANT CLI$M_NOWAIT = x'00000001'8 DECLARE LONG CONSTANT CLI$M_NOCLISYM = x'00000002'8 DECLARE LONG CONSTANT CLI$M_NOLOGNAM = x'00000004'8 DECLARE LONG CONSTANT CLI$M_NOKEYPAD = x'00000008'6 DECLARE LONG CONSTANT CLI$M_NOTIFY = x'00000010'9 DECLARE LONG CONSTANT CLI$M_NOCONTROL = x'00000020'7 DECLARE LONG CONSTANT CLI$M_TRUSTED = x'00000040'8 DECLARE LONG CONSTANT CLI$M_AUTHPRIV = x'00000080'9 DECLARE LONG CONSTANT CLI$M_SUBSYSTEM = x'00000100'8 DECLARE LONG CONSTANT CLI$M_DETACHED = x'00000200'F DECLARE LONG CONSTANT CLI$K_SPAWN_VERSION = 1 ! Latest versionF DECLARE LONG CONSTANT CLI$C_SPAWN_VERSION = 1 ! Latest versionX DECLARE LONG CONSTANT CLI$K_SRVDESC = 88 ! Length of longest "service" callback X DECLARE LONG CONSTANT CLI$C_SRVDESC = 88 ! Length of longest "service" callback  ! . DECLARE LONG CONSTANT CLI$S_CLIDEF5 = 88 record CLIDEF5) BYTE CLIDEF$$_FILL_11 ( 1 to 4 )" group CLI$R_FLAGS_OVERLAY variant case> BYTE CLI$B_FLAGS ! Flags (as byte) case> WORD CLI$W_FLAGS ! Flags (as word) case( group CLI$R_FLAGS_BITS? ! Do not wait for subprocess completion ? ! Do not copy CLI symbols to subprocess A ! Do not copy logical names to subprocess ? ! Do not copy keypad state to subprocess4 ! Output notification messageC ! Do not put CR/LF in front of prompt stringC ! Allow spawn regardless of UAF CAPTIVE flag9 ! Propagate AUTHPRIV to subprocessC ! Copy protected subsystem ID s to subprocess1 ! Spawn a detached processs WORD NOWAIT_bits ! COMMENT ADDED BY SDL - NOWAIT_bits contains bits NOWAIT through FILL_109_, end group CLI$R_FLAGS_BITS end variant& end group CLI$R_FLAGS_OVERLAY9 BYTE CLIDEF$$_FILL_5 ( 1 to 2 ) ! Unused K LONG CLI$L_OUTPID ! PID of subprocess on return X LONG CLI$L_LSTSTATUS ! Address to store final subprocess status L BASIC$QUADWORD CLI$Q_CMDSTR ! Descriptor of command string L BASIC$QUADWORD CLI$Q_INPUT ! Descriptor of input filespec M BASIC$QUADWORD CLI$Q_OUTPUT ! Descriptor of output filespec Q BASIC$QUADWORD CLI$Q_PRCNAM ! Descriptor of name for subprocess R LONG CLI$L_ASTADR ! Address of termination AST routine P LONG CLI$L_ASTPRM ! Address of AST routine parameter P BYTE CLI$B_EFN ! Event flag to set on termination E BYTE CLI$B_VERSION ! Data structure version9 BYTE CLIDEF$$_FILL_6 ( 1 to 2 ) ! Unused J BASIC$QUADWORD CLI$Q_PROMPT ! Descriptor of prompt stringE BASIC$QUADWORD CLI$Q_CLI ! Descriptor of cli nameK BASIC$QUADWORD CLI$Q_TABLE ! Descriptor of cli table nameB LONG CLI$L_KT_LIMIT ! Kernel thread limit ! P ! Define the length of the longest "supervisor-mode service" request block,K ! so that programs can allocate a fixed amount of space for the block. ! 0 ! DEFINE THE PARAMETER QUALIFIER DESCRIPTOR !  end record CLIDEF5 8 DECLARE LONG CONSTANT CLI$M_ALLOCCUR = x'00000001'6 DECLARE LONG CONSTANT CLI$M_QDUSRV = x'00000002'6 DECLARE LONG CONSTANT CLI$M_QDEXPA = x'00000004'7 DECLARE LONG CONSTANT CLI$M_QUALTRU = x'00000001'7 DECLARE LONG CONSTANT CLI$M_QUALEXP = x'00000002'S DECLARE LONG CONSTANT CLI$K_QUALDEF = 20 ! SIZE OF FIXED PART OF STRUCTURE S DECLARE LONG CONSTANT CLI$C_QUALDEF = 20 ! SIZE OF FIXED PART OF STRUCTURE W DECLARE LONG CONSTANT CLI$K_QDBITS = 20 ! START OF BIT LISTS(VARIALBLE LENGTH) W DECLARE LONG CONSTANT CLI$C_QDBITS = 20 ! START OF BIT LISTS(VARIALBLE LENGTH) . DECLARE LONG CONSTANT CLI$S_CLIDEF6 = 24 record CLIDEF6G BYTE CLI$B_QDBLKSIZ  ! SIZE OF THE FINAL BLOCK I BYTE CLI$B_QDCODE ! ID CODE FOR THE QUALIFIER # group CLI$R_QDFLGS_OVERLAY variant case: BYTE CLI$B_QDFLGS ! FLAGS BYTE  case) group CLI$R_QDFLGS_BITS7 ! TAKE ACTION ON ALL OCCURANCES 6 ! USER CONTEX VALUE IS PRESENT < ! TAKE ACTION ON EXPLICIT OCCURANCES y  BYTE ALLOCCUR_bits ! COMMENT ADDED BY SDL - ALLOCCUR_bits contains bits ALLOCCUR through FILL_110_- end group CLI$R_QDFLGS_BITS end variant' end group CLI$R_QDFLGS_OVERLAY# group CLI$R_QDSTAT_OVERLAY variant case@ BYTE CLI$B_QDSTAT ! QUALIFIER STATUS  case) group CLI$R_QDSTAT_BITS+ ! QUALIFIER IS TRUE 5  ! QUALIFIER EXPLICITLY STATED v BYTE QUALTRU_bits ! COMMENT ADDED BY SDL - QUALTRU_bits contains bits QUALTRU through FILL_111_- end group CLI$R_QDSTAT_BITS end variant' end group CLI$R_QDSTAT_OVERLAY& group CLI$R_QDVALDESC_OVERLAY variant caseP BASIC$QUADWORD CLI$Q_QDVALDESC ! QUALIFIER VALUE DESCRIPTOR  case. group CLI$R_QDVALDES C_FIELDS= WORD CLI$W_QDVALSIZ ! SIZE OF VALUE : WORD CLIDEF$$_FILL_7 ! SPARE WORD G LONG CLI$A_QDVALADR ! ADDRESS OF VALUE STRING 2 end group CLI$R_QDVALDESC_FIELDS end variant* end group CLI$R_QDVALDESC_OVERLAYM LONG CLI$A_TRUACT ! QUALIFIER TRUE ACTION ROUTINE N LONG CLI$A_FLSACT ! QUALIFIER FALSE ACTION ROUTINE L LONG CL I$L_USRVAL ! OPTION USER VALUE IF PRESENT  ! 2 ! DEFINE SPACE FOR THE RESULT PARSE WORK AREA !  end record CLIDEF6 D DECLARE LONG CONSTANT CLI$K_WORKAREA = 128 ! SIZE OF HEADER D DECLARE LONG CONSTANT CLI$C_WORKAREA = 128 ! SIZE OF HEADER  ! E DECLARE LONG CONSTANT CLI$K_UTILOPR = 0 ! UTILITY OPERATIONS U DECLARE LONG CONSTANT CLI$K_INPSPEC = 1 ! REQUEST FOR AN INPUT SPECIFICATION O DECLARE LONG CONSTANT CLI$K_OUTSPEC = 2 ! AN OUTPUT FILE SPECIFICATION I DECLARE LONG CONSTANT CLI$K_PARDONE = 3 ! PARAMETER DONE REQUEST M DECLARE LONG CONSTANT CLI$K_VALCONV = 4 ! REQUEST A VALUE CONVERSION A DECLARE LONG CONSTANT CLI$K_CLINT = 5 ! CLINT OPERATIONS  ! R DECLARE LONG CONSTANT CLI$K_INITPRS = 0 ! REQUEST INITIALIZATION OF PARSE K DECLARE LONG CONSTANT CLI$K_GETCMD = 1 ! GET COMMAND BUFFER LIMITS M DECLARE LONG CONSTANT CLI$K_GETQUAL = 2 ! OPTAIN STATE OF QUALIFIERS G DECLARE LONG CONSTANT CLI$K_GETOPT = 3 ! DECODE COMMAND OPTION C DECLARE LONG CONSTANT CLI$K_GETLINE = 4 ! GET COMMAND LINE  ! O ! THE CLISERV REQUEST TYPE APPEARS HERE, INSTEAD OF WITH THE OTHER REQUESTN ! TYPES, BECAUSE IT HAS NO SUBFUNCTIONS ASSOCIATED WITH IT, AND BECAUSE AL ! DAY 1 CODING ERROR CAUSES DCL TO EXPECT THAT THIS REQUEST NUMBER WILLL ! APPEAR IN THE SUBFUNCTION BITS. THIS MEANS THAT NO UTILITY OPERATION4 ! CAN BE DEFINED WITH THE SUBFUNCTION NUMBER 5. ! Q DECLARE LONG CONSTANT CLI$K_CLISERV = 5 ! REQUEST A SERVICE FROM THE CLI  ! @ DECLARE LONG CONSTANT CLI$K_INPUT1 = 16 ! PRIMARY INPUT B DECLARE LONG CONSTANT CLI$K_INPUT2 = 17 ! SECONDARY INPUT 9 DECLARE LONG CONSTANT CLI$K_INPUT3 = 18 ! THIRD, > DECLARE LONG CONSTANT CLI$K_INPUT4 = 19 ! ETC,ETC,ETC  ! @ DECLARE LONG CONSTANT CLI$K_OUTPUT1 = 32 ! FIRST OUTPUT A DECLARE LONG CONSTANT CLI$K_OUTPUT2 = 33 ! SECOND OUTPUT ; DECLARE LONG CONSTANT CLI$K_OUTPUT3 = 34 ! THIRD,- ? DECLARE LONG CONSTANT CLI$K_OUTPUT4 = 35 ! ETC,ETC,ETC  ! M DECLARE LONG CONSTANT CLI$K_ENDPRM1 = 48 ! COMPLETED PARAMETER SET 1 M DECLARE LONG CONSTANT CLI$K_ENDPRM2 = 49 ! COMPLETED PARAMETER SET 2 M DECLARE LONG CONSTANT CLI$K_ENDPRM3 = 50 ! COMPLETED PARAMETER SET 3 M DECLARE LONG CONSTANT CLI$K_ENDPRM4 = 51 ! COMPLETED PARAMETER SET 4  ! C DECLARE LO NG CONSTANT CLI$K_NUMERVAL = 64 ! NUMBERIC VALUE @ DECLARE LONG CONSTANT CLI$K_ASCIIVAL = 65 ! ASCII VALUE A DECLARE LONG CONSTANT CLI$K_KEYWORD = 66 ! KEYWORD VALUE E DECLARE LONG CONSTANT CLI$K_KEYVAL = 67 ! KEYWORD WITH VALUE G DECLARE LONG CONSTANT CLI$K_FILSPEC = 68 ! VALUE IS A FILESPEC  ! R DECLARE LONG CONSTANT CLI$K_PRESENT = 80 ! DETERMINE IF ENTITY IS PRESENT H DECLARE LONG CONSTANT CLI$K_GETVALUE = 81 ! GET VALUE OF ENTITY S DECLARE LONG CONSTANT CLI$K_ENDPARSE = 82 ! CLEAN UP AFTER PARSING COMMAND L DECLARE LONG CONSTANT CLI$K_DCLPARSE = 83 ! PARSE USER COMMAND LINE O DECLARE LONG CONSTANT CLI$K_DISPATCH = 84 ! DISPATCH TO ACTION ROUTINE J DECLARE LONG CONSTANT CLI$K_NEXTQUAL = 85 ! PROCESS NEXT QUALIFIER ! / DECLARE LONG CONSTANT CLI$S_CLIDEF7 = 128 record CLIDEF7 variant caseJ LONG CLI$L_WORKAREA ( 1 to 32 ) ! ALLOCATE 32 LONG WORDS ' ! DEFINE CLI UTILITY REQUEST CODES ! < ! CODES ARE 8 BITS, CONSISTING OF 2 4 BIT FIELDS8 ! THE LEAST 4 BITS ARE SUBFUCTION DEFINITONS> ! AND THE MOST SIGNIFICANT 4 BITS ARE REQUEST TYPE ! ! ! DEFINE REQUEST TYPE CODES 3 ! DEFINE COMPLETE CODES FOR UTILITY OPERATIONS ! 5 ! DEFINE COMPLETE CODES FOR INPUT SPECIFICATIONS ! 6 ! DEFINE COMPLETE CODES FOR OUTPUT SPECIFICATIONS ! 9 ! DEFINE CODES FOR RESULT PARSE PARAMETER COMPLETION ! 1 ! DEFINE CODES FOR VALUE CONVERSION REQUESTS ! 3 ! DEFINE COMPLETE CODES FOR UTILITY OPERATIONS ! ( ! DEFINE SET CODE SET REQUEST BLOCK !  end variant end record CLIDEF7 - DECLARE LONG CONSTANT CLI$S_CLIDEF8 = 8 record CLIDEF8) BYTE CLIDEF$$_FILL_12 ( 1 to 4 )= LONG CLI$L_CODESET ! CODE SET VALUE end record CLIDEF8  wwS ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ' ! DEFINE CLI SERVICE REQUEST CODES ! ! DEFINE CLI SERVICE CODES @ DECLARE LONG CONSTANT CLI$K_PAUSE = 1 ! PAUSE THE IMAGE V DECLARE LONG CONSTANT CLI$K_DEFLOCAL = 2 ! DEFINE A SYMBOL IN THE LOCAL TABLE X DECLARE LONG CONSTANT CLI$K_DEFGLOBAL = 3 ! DEFINE A SYMBOL IN THE GLOBAL TABLE T DECLARE LONG CONSTANT CLI$K_CHAIN = 4 ! PASS AN IMAGE TO RUN AFTER THIS ONE W DECLARE LONG CONSTANT CLI$K_COMMAND = 5 ! PASS A COMMAND LINE TO LATER EXECUTE P DECLARE LONG CONSTANT CLI$K_CREALOG = 6 ! DEFINE A PROCESS LOGICAL NAME P DECLARE LONG CONSTANT CLI$K_DELELOG = 7 ! DELETE A PROCESS LOGICAL NAME U DECLARE LONG CONSTANT CLI$K_DISACTRLY = 8 ! DISABLE DCL CONTROL Y PROCESSING T DECLARE LONG CONSTANT CLI$K_ENABCTRLY = 9 ! ENABLE DCL CONTROL Y PROCESSING K DECLARE LONG CONSTANT CLI$K_GETSYM = 10 ! RETURN VALUE OF A SYMBOL I DECLARE LONG CONSTANT CLI$K_DELELCL = 11 ! DELETE A LOCAL SYMBOL J DECLARE LONG CONSTANT CLI$K_DELEGBL = 12 ! DELETE A GLOBAL SYMBOL T DECLARE LONG CONSTANT CLI$K_DISAOOB = 13 ! DISABLE OUT-OF-BAND CHARACTER(S) V DECLARE LONG CONSTANT CLI$K_ENABOOB = 14 ! RE-ENABLE OUT-OF-BAND CHARACTER(S) D DECLARE LONG CONSTANT CLI$K_SPAWN = 15 ! SPAWN A SUBPROCESS F DECLARE LONG CONSTANT CLI$K_ATTACH = 16 ! ATTACH TO A PROCESS j DECLARE LONG CONSTANT CLI$K_LIBDEFLOCAL = 17 ! DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOLl DECLARE LONG CONSTANT CLI$K_LIBDEFGLOBAL = 18 ! DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOL\ DECLARE LONG CONSTANT CLI$K_LIBGETSYM = 19 ! GET A SYMBOL VALUE USING LIB$GET_SYMBOL] DECLARE LONG CONSTAN T CLI$K_LIBDELELCL = 20 ! DELETE A SYMBOL USING LIB$DELETE_SYMBOLd DECLARE LONG CONSTANT CLI$K_LIBDELEGBL = 21 ! DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOLB DECLARE LONG CONSTANT CLI$K_SETCODESET = 22 ! SET CODE SET ! 9 ! Define local/global symbol flag returned by GETSYM ! A DECLARE LONG CONSTANT CLI$K_LOCAL_SYM = 1 ! Local symbol C DECLARE LONG CONSTANT CLI$K_GLOBAL_SYM = 2 ! Global symbol  ww\ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! % ! DEFINE GENERIC CODES FOR VERBS ! ! ! DEFINE VERB QENERIC CODES = DECLARE LONG CONSTANT CLI$K_VERB_ALLO = 1 ! ALLOCATE < DECLARE LONG CONSTANT CLI$K_VERB_ANAL = 2 ! ANALIZE ; DECLARE LONG CONSTANT CLI$K_VERB_ASSI = 3 ! ASSIGN : DECLARE LONG CONSTANT CLI$K_VERB_BASI = 4 ! BASIC : DECLARE LONG CONSTANT CLI$K_VERB_BLIS = 5 ! BLISS : DECLARE LONG CONSTANT CLI$K_VERB_COBO = 6 ! COBOL = DECLARE LONG CONSTANT CLI$K_VERB_CONT = 7 ! CONTINUE 9 DECLARE LONG CONSTANT CLI$K_VERB_COPY = 8 ! COPY ; DECLARE LONG CONSTANT CLI$K_VERB_CREA = 9 ! CREATE : DECLARE LONG CONSTANT CLI$K_VERB_DATA = 10 ! DATA @ DECLARE LO NG CONSTANT CLI$K_VERB_DEAL = 11 ! DEALLOCATE > DECLARE LONG CONSTANT CLI$K_VERB_DEAS = 12 ! DEASSIGN ; DECLARE LONG CONSTANT CLI$K_VERB_DEBU = 13 ! DEBUG < DECLARE LONG CONSTANT CLI$K_VERB_DEFI = 14 ! DEFINE < DECLARE LONG CONSTANT CLI$K_VERB_DELE = 15 ! DELETE = DECLARE LONG CONSTANT CLI$K_VERB_DEPO = 16 ! DEPOSIT H DECLARE LONG CONSTANT CLI$K_VERB_DIFF = 17 ! DIFFERENCE COMMAND ? DECLARE LONG CONSTANT CLI$K_VERB_DIRE = 18 ! DIRECTORY >  DECLARE LONG CONSTANT CLI$K_VERB_DISM = 19 ! DISMOUNT : DECLARE LONG CONSTANT CLI$K_VERB_EDIT = 20 ! EDIT 8 DECLARE LONG CONSTANT CLI$K_VERB_EOD = 21 ! EOD = DECLARE LONG CONSTANT CLI$K_VERB_EXAM = 22 ! EXAMINE : DECLARE LONG CONSTANT CLI$K_VERB_EXIT = 23 ! EXIT = DECLARE LONG CONSTANT CLI$K_VERB_FORT = 24 ! FORTRAN : DECLARE LONG CONSTANT CLI$K_VERB_GOTO = 25 ! GOTO : DECLARE LONG CONSTANT CLI$K_VERB_HELP = 26 ! HELP 6 DECLARE LONG  CONSTANT CLI$K_VERB_IF = 27 ! IF @ DECLARE LONG CONSTANT CLI$K_VERB_INIT = 28 ! INITIALIZE = DECLARE LONG CONSTANT CLI$K_VERB_INQU = 29 ! INQUIRE : DECLARE LONG CONSTANT CLI$K_VERB_LINK = 30 ! LINK < DECLARE LONG CONSTANT CLI$K_VERB_LOGO = 31 ! LOGOUT ; DECLARE LONG CONSTANT CLI$K_VERB_MACR = 32 ! MACRO 8 DECLARE LONG CONSTANT CLI$K_VERB_MCR = 33 ! MCR 6 DECLARE LONG CONSTANT CLI$K_VERB_ON = 34 ! ON ; DECLARE LONG CONSTANT CLI$K_VERB_P RIN = 35 ! PRINT 8 DECLARE LONG CONSTANT CLI$K_VERB_RUN = 36 ! RUN 8 DECLARE LONG CONSTANT CLI$K_VERB_SET = 37 ! SET : DECLARE LONG CONSTANT CLI$K_VERB_SHOW = 38 ! SHOW ; DECLARE LONG CONSTANT CLI$K_VERB_STAR = 39 ! START : DECLARE LONG CONSTANT CLI$K_VERB_STOP = 40 ! STOP < DECLARE LONG CONSTANT CLI$K_VERB_SUBM = 41 ! SUBMIT : DECLARE LONG CONSTANT CLI$K_VERB_TYPE = 42 ! TYPE ; DECLARE LONG CONSTANT CLI$K_VERB_MOUN = 43 ! MOUNT ;  DECLARE LONG CONSTANT CLI$K_VERB_PATC = 44 ! PATCH < DECLARE LONG CONSTANT CLI$K_VERB_REPL = 45 ! REPLAY < DECLARE LONG CONSTANT CLI$K_VERB_UNLO = 46 ! UNLOCK D DECLARE LONG CONSTANT CLI$K_VERB_APPE = 47 ! APPEND COMMAND : DECLARE LONG CONSTANT CLI$K_VERB_DUMP = 48 ! DUMP ; DECLARE LONG CONSTANT CLI$K_VERB_PURG = 49 ! PURGE < DECLARE LONG CONSTANT CLI$K_VERB_RENA = 50 ! RENAME < DECLARE LONG CONSTANT CLI$K_VERB_CANC = 51 ! CANCEL = DECLARE LONG CONSTANT CLI$K_VERB_LIBR = 52 ! LIBRARY : DECLARE LONG CONSTANT CLI$K_VERB_SORT = 53 ! SORT = DECLARE LONG CONSTANT CLI$K_VERB_REQU = 54 ! REQUEST @ DECLARE LONG CONSTANT CLI$K_VERB_SYNC = 55 ! SYNCRONIZE ; DECLARE LONG CONSTANT CLI$K_VERB_CORA = 56 ! CORAL < DECLARE LONG CONSTANT CLI$K_VERB_PASC = 57 ! PASCAL 9 DECLARE LONG CONSTANT CLI$K_VERB_PLI = 58 ! PL/1 = DECLARE LONG CONSTANT CLI$K_VERB_MESS = 59 ! MESSAGE ! ! DEFINE VERB QENERIC CODES F DECLARE LONG CONSTANT CLI$K_VERB_FORE = 255 ! FOREIGN COMMAND  ww\e ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! E ! Security classification block. Contains secrecy and integrityN ! level and categories for non-discretionary (mandatory) access controls. !  ! -U DECLARE LONG CONSTANT CLS$S_CLSDEF_TLVRNG = 4 ! Preserve previous size symbol0 DECLARE LONG CONSTANT CLS$S_CLS_TLVRNG = 4O record CLS_TLVRNG ! Range specifier field references> WORD CLS$W_RANGE_LOW ! Range low limit? WORD CLS$W_RANGE_HIGH ! Range high limit end record CLS_TLVRNG > DECLARE LONG CONSTANT CLS$K_END = 0 ! List terminatorW DECLARE LONG CONSTANT CLS$K_SC_ENUMERATE = 1 ! Secrecy category enumerated listN DECLARE LONG CONSTANT CLS$K_SC_RANGE = 2 ! Secrecy category range listJ DECLARE LONG CONSTANT CLS$K_SC_MASK = 3 ! Secrecy category bitmaskZ DECLARE LONG CONSTANT CLS$K_IC_ENUMERATE = 17 ! Integrity category enumerated listQ DECLARE LONG CONSTANT CLS$K_IC_RANGE = 18 ! Integirty category range listM DECLARE LONG CONSTANT CLS$K_IC_MASK = 19 ! Integrity category bitmask= DECLARE LONG CONSTANT CLS$K_VOID = 255 ! Voided entryR DECLARE LONG CONST ANT CLS$S_CLSDEF_TLV = 8 ! Preserve previous size symbol- DECLARE LONG CONSTANT CLS$S_CLS_TLV = 8I record CLS_TLV ! TLV entry field references variant case group CLS$R_TLV: BYTE CLS$B_TAG ! Format codeR group CLS$B_LENGTH ! Field length, intrepretation format variant ! dependent: caseO BYTE CLS $B_COUNT ! # entries in an enumerated list% ! # range pairs in a range list* ! # longwords following voided entry caseJ BYTE CLS$B_MASK_SIZE ! # longwords in a bitmask end variant( end group CLS$B_LENGTH9 group CLS$R_VALUE_SET ! Value set. variant case- group CLS$R_CATLSTTLV]  WORD CLS$W_CATLST ( 1 to 1 ) ! Vector of enumerated cat.1 end group CLS$R_CATLSTTLV case- group CLS$R_RNGLSTTLV* WORD CLS$W_RSVD[ LONG CLS$L_RNGLST ( 1 to 1 ) ! Vector of high:low word ! range pairs1 end group CLS$R_RNGLSTTLV case* group CLS$R_MSKTLV9  WORD CLS$W_BASE ! Bias valueS LONG CLS$L_MASK ( 1 to 1 ) ! <32 * MASK_SIZE> bit mask. end group CLS$R_MSKTLV case* group CLS$R_ENDTLV5 WORD CLS$W_RSVD ( 1 to 3 ). end group CLS$R_ENDTLV case+ group CLS$R_VOIDTLVO WORD CLS$W_VOID ( 1 to 1 ) ! words/  end group CLS$R_VOIDTLV end variant+ end group CLS$R_VALUE_SET" end group CLS$R_TLV end variant end record CLS_TLV L DECLARE LONG CONSTANT CLS$K_MIN_SEC_LEV = 0 ! Minimum secrecy level N DECLARE LONG CONSTANT CLS$K_MIN_INT_LEV = 0 ! Minimum integrity level N DECLARE LONG CONSTANT CLS$K_MAX_SEC_LEV = 255 ! Maximum secrecy level P DECLARE LONG CONSTANT CLS$K_MAX_INT_LEV = 255  ! Maximum integrity level O DECLARE LONG CONSTANT CLS$K_MIN_SEC_CAT = 1 ! Minimum secrecy category Q DECLARE LONG CONSTANT CLS$K_MIN_INT_CAT = 1 ! Minimum integrity category ] DECLARE LONG CONSTANT CLS$K_MAX_SEC_CAT = 65536 ! Maximum supported secrecy category _ DECLARE LONG CONSTANT CLS$K_MAX_INT_CAT = 65536 ! Maximum supported integrity category ^ DECLARE LONG CONSTANT CLS$K_MAX_SEC_CAT_S64I64 = 64 ! Maximum type 0 secrecy category ` DECLARE LONG CONSTANT CLS$K_MAX_INT_CAT_S64I64 = 64 ! Maximum type 0 integrity category ] DECLARE LONG CONSTANT CLS$K_MAX_SEC_CAT_S128 = 128 ! Maximum type 1 secrecy category b DECLARE LONG CONSTANT CLS$K_MAX_SEC_CAT_DYN_CAT = 65536 ! Maximum type 2 secrecy category d DECLARE LONG CONSTANT CLS$K_MAX_INT_CAT_DYN_CAT = 65536 ! Maximum type 2 integrity category R DECLARE LONG CONSTANT CLS$K_TYP_S64I64 = 0 ! Type 0 class block identifierP DECLARE LONG CONSTANT CLS$K_TYP_S128 = 1 ! Type 1 class block identifierS DECLARE LONG CONSTANT CLS$K_TYP_DYN_CAT = 2 ! Type 2 class blook identifierJ DECLARE LONG CONSTANT CLS$K_LENGTH_HDR = 4 ! Size of common headerT DECLARE LONG CONSTANT CLS$K_LENGTH_S64I64 = 20 ! Size of type 0 class blockR DECLARE LONG CONSTANT CLS$K_LENGTH_S128 = 20 ! Size of type 1 class blockT DECLARE LONG CONSTANT CLS$K_LENGTH_DYN_CAT = 4 ! Size of type 2 class block ! fixed portionS DECLARE LONG CONSTANT CLS$S_CLSDEF = 20 ! Preserve previous size definitionE DECLARE LONG CONSTANT CLS$K_LENGTH = 20 ! length of structure* DECLARE LONG CONSTANT CLS$S_CLS = 20 record CLS variant case% group CLS$R_SEVMS_DEFS< BYTE CLS$B_SEC_LEV ! Secrecy level> BYTE CLS$B_INT_LEV ! Integrity level? BYTE CLS$B_TYPE ! Class block type# ! Class block type identifiersO  BYTE CLS$B_TLVLST_SIZE ! Size in longwords of TLV list in ! a type 2 class block.Q group CLS$R_CLSDEF_X ! Type dependent overlays/extensions variant ! M ! Usage of the ..._S64I64 and ..._S128 symbolic name forms is preferred.O ! Previous name forms have been retained for backwards compatibility only. !  caseO group CLS$R_CLSDEF_S64I64 ! Type 0 class block fieldsY BASIC$QUADWORD CLS$Q_SEC_CAT_S64I64 ! Secrecy category mask[ BASIC$QUADWORD CLS$Q_INT_CAT_S64I64 ! Integrity category mask5 end group CLS$R_CLSDEF_S64I64 caseM group CLS$R_CLSDEF_S128 ! Type 1 class block fieldsW BASIC$OCTAWORD CLS$O_SEC_CAT_S128 ! Secrecy category mask3 end group CLS$R_CLSDEF_S128  caseP group CLS$R_CLSDEF_DYN_CAT ! Type 2 class block fieldsU LONG CLS$L_TLVLST ( 1 to 1 ) ! Tag-Length-Value_set list6 end group CLS$R_CLSDEF_DYN_CAT ! n ! The following definitions have been superseded and are being retained for backwards compatibility only.H ! Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. !  caseJ group CLS$R_CLSDEF_0 ! Type 0 class block fields BASIC$QUADWORD CLS$Q_SEC_CAT_0 ! Secrecy category mask - Usage of CLS$Q_SEC_CAT_S64I64 preferred BASIC$QUADWORD CLS$Q_INT_CAT_0 ! Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred0 end group CLS$R_CLSDEF_0 caseJ group CLS$R_CLSDEF_1 ! Type 1 class block fields| BASIC$OCTAWORD CLS$O_ SEC_CAT_1 ! Secrecy category mask - Usage of CLS$O_SEC_CAT_S128 preferred0 end group CLS$R_CLSDEF_1 end variant* end group CLS$R_CLSDEF_X) end group CLS$R_SEVMS_DEFS ! n ! The following definitions have been superseded and are being retained for backwards compatibility only.H ! Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. !  case# group CLS$R_VMS_DEFS` BYTE CLS$B_SECUR_LEV ! Security level - Usage of CLS$B_SEC_LEV preferreda BYTE CLS$B_INTEG_LEV ! Integrity level - Usage of CLS$B_INT_LEV preferred7 WORD CLS$W_FILL_1 ! Reserved BASIC$QUADWORD CLS$Q_SECUR_CAT ! Security category mask - Usage of CLS$Q_SEC_CAT_S64I64/CLS$O_SEC_CAT_S128 & ! preferredv BASIC$QUADWORD CLS$Q_INTEG_CAT ! Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred' end group CLS$R_VMS_DEFS ! P ! The CLS$S_CLSDEF definition is provided for backwards compatibility only.m ! Usage of the CLS$K_LENGTH_S64I64, CLS$K_LENGTH_S128 and CLS$K_LENGTH_DYN_CAT definitions is preferred. !  end variant end record CLS  ! J ! $CHANGE_CLASS, PARSE_CLASS, FORMAT_CLASS system service item codes ! O DECLARE LONG CONSTANT CLS$_SECSTR = 1 ! Textual secrecy/security stringH DECLARE LONG CONSTANT CLS$_INTSTR = 2 ! Textual integrity stringK DECLARE LONG CONSTANT CLS$_CLSBLK = 3 ! Simple classification blockO DECLARE LONG CONSTANT CLS$_MINCLSBLK = 4 ! Minimum classification blockO DECLARE LONG CONSTANT CLS$_MAXCLSBLK = 5 ! Maximum classification blockQ DECLARE LONG CONSTANT CLS$_WIDTH = 6 ! Width of display for $FORMAT_CLASSQ DECLARE LONG CONSTANT CLS$_TRMDSC = 7 ! Line terminator for $FORMAT_CLASSP DECLARE LONG CONSTANT CLS$_INDENT = 8 ! Line indenting for $FORMAT_CLASSP DECLARE LONG CONSTANT CLS$_OLDCLSBLK = 9 ! Previous classification blockP DECLARE LONG CONSTANT CLS$_OLDMINCLS = 10 ! Previous minimum class blockP DECLARE LONG CONSTANT CLS$_OLDMAXCLS = 11 ! Previous maximum class blockj DECLARE LONG CONSTANT CLS$_TRANQUIL = 12 ! Override tranquility checks - Usage reserved to DigitalH DECLARE LONG CONSTANT CLS$_FLAGS = 13 ! Formatting control flags) ! ADD ITEM-CODES BEFORE T HIS COMMENT2 DECLARE LONG CONSTANT CLS$_MIN_ITEM_CODE = 13 DECLARE LONG CONSTANT CLS$_MAX_ITEM_CODE = 138 DECLARE LONG CONSTANT CLS$M_COMPRESS = x'00000001'6 DECLARE LONG CONSTANT CLS$M_EXPAND = x'00000002'/ DECLARE LONG CONSTANT CLS$S_FILL_112_ = 4 record FILL_112_ variant caseJ LONG CLS$L_FLAGS ! $FORMAT_CLASS control flags case$ group CLS$R_FILL_113_5 ! Compress category range strings4 ! Expande category range stringsv BYTE COMPRESS_bits ! COMMENT ADDED BY SDL - COMPRESS_bits contains bits COMPRESS through FILL_114_( end group CLS$R_FILL_113_ end variant end record FILL_112_  wwLl ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  I DECLARE LONG CONSTANT CLUEVTHNDL$K_LENGTH = 8 ! Length of block. I DECLARE LONG CONSTANT CLUEVTHNDL$C_LENGTH = 8 ! Length of block. 7 DECLARE LONG CONSTANT cluevthndl$S_CLUEVTHNDL = 8 record CLUEVTHNDL& LONG cluevthndl$l_cluacb_addr" LONG cluevthndl$l_seq_num end record CLUEVTHNDL , DECLARE LONG CONSTANT CLUEVT$C_ADD = 1/ DECLARE LONG CONSTANT CLUEVT$C_REMOVE = 2 ww,s ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +$ ! $CREMBX FLAGS bit definitions ! -8 DECLARE LONG CONSTANT CMB$M_READONLY = x'00000001'9 DECLARE LONG CONSTANT CMB$M_WRITEONLY = x'00000002', DECLARE LONG CONSTANT CMB$S_CMBDEF = 4 record CMBDEF variant case& group CMB$R_CMBDEF_BITSE ! Channel to be assigned to mailbox is READ ONLY.F ! Channel to be assigned to mailbox is WRITE ONLY.s LONG READONLY_bits ! COMMENT ADDED BY SDL - READONLY_bits contains bits READONLY through FILL_0* end group CMB$R_CMBDEF_BITS end variant end record CMBDEF  ww  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  D DECLARE LONG CONSTANT CPUI$K_TICKS = 1 ! Get CPU's tick info ! + ! CPUI Flags Definitions  ! -7 DECLARE LONG CONSTANT CPUI$M_SEARCH = x'00000001'9 DECLARE LONG CONSTANT CPUI$M_R ESERVED = x'FFFFFFFE'1 DECLARE LONG CONSTANT CPUI$S_CPUI_FLAGS = 4 record CPUI_FLAGS# group CPUI$R_CPUIDEF_UNION variant case# LONG CPUI$L_FLAGS case0 group CPUI$R_CPUIDEF_FLAG_BITS? ! If CPU not active, search for next CPU< ! No other flags defined at this timer LONG SEARCH_bits ! COMMENT ADDED BY SDL - SEARCH_bits contain s bits SEARCH through RESERVED4 end group CPUI$R_CPUIDEF_FLAG_BITS end variant' end group CPUI$R_CPUIDEF_UNION end record CPUI_FLAGS M DECLARE LONG CONSTANT CPUI$K_KERNEL_TICKS_INDEX = 0 ! 0 - kernel modeI DECLARE LONG CONSTANT CPUI$K_EXEC_TICKS_INDEX = 1 ! 1 - exec modeK DECLARE LONG CONSTANT CPUI$K_SUPER_TICKS_INDEX = 2 ! 2 - super modeI DECLARE LONG CONSTANT CPUI$K_USER_TICKS_INDEX = 3 ! 3 - user modeH DECLARE LONG CONSTANT CPUI$K_INT_TICKS_INDEX = 4 ! 4 - interruptJ DECLARE LONG CONSTANT CPUI$K_MPSYNCH_TICKS_INDEX = 5 ! 5 - mpsynchD DECLARE LONG CONSTANT CPUI$K_IDLE_TICKS_INDEX = 6 ! 6 - idleT DECLARE LONG CONSTANT CPUI$K_TICKS_ENTRIES = 7 ! 7 - Total number of entries ww ! *** PREDECLARED TYPES S: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )E END RECORDB* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )U END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ,n ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! CARD READER STATUS BITS ! -4 DECLARE LONG CONSTANT CR$M_TMODE = x'0000000F'I DECLARE LONG CONSTANT CR$K_T026 = 0 ! 026 PUNCH CODE TRANSLATION I DECLARE LONG CONSTANT CR$K_T029 = 1 ! 029 PUNCH CODE TRANSLATION * DECLARE LONG CONSTANT CR$S_CRDEF = 1 record CRDEF variant case$ group CR$R_CRDEF_BITS' ! TRANSLATION MODE m BYTE TMODE_bits ! COMMENT ADDED BY SDL - TMODE_bits contains bits TMODE through FILL_115_( end group CR$R_CRDEF_BITS ! # ! TRANSLATION MODE DEFINITIONS !  !  end variant end record CRDEF  wwL ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! $SCHED function codesM DECLARE LONG CONSTANT CSH$_READ_ALL = 23 ! Read data on all processesM DECLARE LONG CONSTANT CSH$_READ_NEW = 24 ! Read data on new processesT DECLARE LONG CONSTAN T CSH$_SET_CLASS = 25 ! Place process(es) into class(es)* DECLARE LONG CONSTANT CSH$_RES1 = 26* DECLARE LONG CONSTANT CSH$_RES2 = 27* DECLARE LONG CONSTANT CSH$_RES3 = 28* DECLARE LONG CONSTANT CSH$_RES4 = 29N DECLARE LONG CONSTANT CSH$_SET_NEW = 30 ! Define this process as "new"G DECLARE LONG CONSTANT CSH$_SET_TIMEOUT = 31 ! Set deadman timer* DECLARE LONG CONSTANT CSH$_RES5 = 32* DECLARE LONG CONSTANT CSH$_RES6 = 33* DECLARE LONG CONSTANT CSH$_RES7 = 34* DECLARE LONG CONSTANT CSH$_RES8 = 35T DECLARE LONG CONSTANT CSH$_READ_QUANT = 36 ! Read per-class quanta remainingK DECLARE LONG CONSTANT CSH$_SET_QUANT = 37 ! Define per-class quanta* DECLARE LONG CONSTANT CSH$_RES9 = 38* DECLARE LONG CONSTANT CSH$_RESA = 39* DECLARE LONG CONSTANT CSH$_RESB = 40* DECLARE LONG CONSTANT CSH$_RESC = 41N DECLARE LONG CONSTANT CSH$_SET_ATTN_AST = 42 ! Establish attention AST* DECLARE LONG CONSTAN T CSH$_RSED = 43* DECLARE LONG CONSTANT CSH$_RESE = 44* DECLARE LONG CONSTANT CSH$_RESF = 45* DECLARE LONG CONSTANT CSH$_RES0 = 46L DECLARE LONG CONSTANT CSH$_CLEAR_ATTN_AST = 47 ! Clear attention AST4 DECLARE LONG CONSTANT CSH$_MAX_SCHED_FUNC = 48 ! AST reason maskG DECLARE LONG CONSTANT CSH$V_NEW_PROC = 1 ! Possible new process+ ! CSHC -- Class ScHeduler Class block  ! N ! Used to communicate from user to system, defining process/class m apping- DECLARE LONG CONSTANT CSHC$K_LENGTH = 8- DECLARE LONG CONSTANT CSHC$C_LENGTH = 8+ DECLARE LONG CONSTANT CSHC$S_CSHC = 8 record CSHCE LONG CSHC$L_EPID ! EPID of target processP WORD CSHC$W_CLASS ! Class number, 0-N, %X'FFFF' means% ! `Take out of class scheduling'F WORD CSHC$W_WINDFALL ! Windfall ticks to grant end record CSHC 7 ! CSHP -- Class ScHeduler data bloc k for Processes ! O ! Used to communicate from system to user, showing various characteristics ! of processes.. DECLARE LONG CONSTANT CSHP$K_LENGTH = 24. DECLARE LONG CONSTANT CSHP$C_LENGTH = 24, DECLARE LONG CONSTANT CSHP$S_CSHP = 24 record CSHP@ LONG CSHP$L_STATUS ! Copy of PCB$L_STSA WORD CSHP$W_PIX ! Process index slotJ BYTE CSHP$B_PRI ! Current priority (internal)O  BYTE CSHP$B_PRIB ! Current base priority (internal)? LONG CSHP$L_EPID ! The official PIDF STRING CSHP$T_ACCOUNT = 8 ! Account string from PCB? LONG CSHP$L_CPUTIM ! CPU time charged end record CSHP  wwl ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! 6 ! Constants defining single-transition operations ! . DECLARE LONG CONSTANT CST$K_CPU_STOP = 11 DECLARE LONG CONSTANT CST$K_CPU_MIGRATE = 2/ DECLARE LONG CONSTANT CST$K_ CPU_START = 30 DECLARE LONG CONSTANT CST$K_CPU_ASSIGN = 42 DECLARE LONG CONSTANT CST$K_CPU_DEASSIGN = 52 DECLARE LONG CONSTANT CST$K_CPU_FAILOVER = 63 DECLARE LONG CONSTANT CST$K_CPU_POWER_OFF = 72 DECLARE LONG CONSTANT CST$K_CPU_POWER_ON = 8 ! A ! Constants defining multiple operation masks. The startingA ! position of these values must be in the upper word to save. ! space for future single-operation codes ! 9 DECLARE LONG CONSTANT CS T$m_reserved1 = x'000000FF'8 DECLARE LONG CONSTANT CST$M_CPU_STOP = x'00000100'; DECLARE LONG CONSTANT CST$M_CPU_MIGRATE = x'00000200'9 DECLARE LONG CONSTANT CST$M_CPU_START = x'00000400': DECLARE LONG CONSTANT CST$M_CPU_ASSIGN = x'00000800'< DECLARE LONG CONSTANT CST$M_CPU_DEASSIGN = x'00001000'< DECLARE LONG CONSTANT CST$M_CPU_FAILOVER = x'00002000'= DECLARE LONG CONSTANT CST$M_CPU_POWER_OFF = x'00004000'< DECLARE LONG CONSTANT CST$M_CPU_POWER_ON =  x'00008000'. DECLARE LONG CONSTANT CST$S_CST_MASK = 2 record CST_MASK group CST$R_CST_MASKv WORD reserved1_bits ! COMMENT ADDED BY SDL - reserved1_bits contains bits reserved1 through CPU_POWER_ON! end group CST$R_CST_MASK end record CST_MASK  ! @ ! Constants defining target software nodes for reassignment ! 0 DECLARE LONG CONSTANT CST$K_PARTITION = -10 DECLARE LONG CONSTANT CST$K_COMMUNITY = -25 DECLARE LO NG CONSTANT CST$K_HARD_PARTITION = -3. DECLARE LONG CONSTANT CST$K_SW_ROOT = -4 ! # ! Constants defining CPU types ! 4 DECLARE LONG CONSTANT CST$K_ANY_OWNED_CPU = -15 DECLARE LONG CONSTANT CST$K_ANY_ACTIVE_CPU = -26 DECLARE LONG CONSTANT CST$K_ANY_STOPPED_CPU = -36 DECLARE LONG CONSTANT CST$K_ANY_UNOWNED_CPU = -4 ! 8 ! Constants defining flag parameter characteristics ! H DECLARE LONG CONSTANT CST$M_CPU_DEFAULT_CAPABILITIES = x'00000 001'A DECLARE LONG CONSTANT CST$M_CPU_ALLOW_ORPHANS = x'00000002'? DECLARE LONG CONSTANT CST$M_CPU_DECONFIGURE = x'00000004'/ DECLARE LONG CONSTANT CST$S_CST_FLAGS = 1 record CST_FLAGS group CST$R_CST_FLAGSx BYTE CPU_DEFAULT_CAPABILITIES_bits ! COMMENT ADDED BY SDL - CPU_DEFAULT_CAPABILITIES_bits contains bits &- ! CPU_DEFAULT_CAPABILITIES through FILL_116_" end group CST$R_CST_FLAGS end record CST_FLAGS  ww 2ä ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 2 ! DEVICE ADAPTER, CLASS, AND TYPE DEFINITIONS !  !  ! DEFINE ADAPTER TYPESO ! When adding a new adapter type, make sure a corresponding entry is addedS ! to the ADP_TBL_UP and  ADP_TBL_DWN tables in any affected [SYSLOA]ERRSUB*.MAR ! modules. ! Q ! ***************************************************************************O ! FURTHERMORE, when altering the list of AT$_ symbols, you MUST update the' ! module [MANAGE]SMIIOGEN-UTILS.C.Q ! *************************************************************************** ! DEFINE ADAPTER TYPES> DECLARE LONG CONSTANT AT$_MBA = 0 ! MASSBUS ADAPTER= DECLARE LONG CONSTANT AT$_UBA = 1 ! UNIBUS ADAPTER; DECLARE LONG CONSTANT AT$_DR = 2 ! DR32 ADAPTER@ DECLARE LONG CONSTANT AT$_MPM = 3 ! MULTI-PORT MEMORY5 DECLARE LONG CONSTANT AT$_CI = 4 ! CI BUSF DECLARE LONG CONSTANT AT$_NULL = 5 ! NULL (SOFTWARE) ADAPTERE DECLARE LONG CONSTANT AT$_BDA = 6 ! BI DISK ADAPTER(KDB50)< DECLARE LONG CONSTANT AT$_DMB32 = 7 ! DMB32 ADAPTER< DECLARE LONG CONSTANT AT$_DRB32 = 8 ! DRB32 ADAPTERB DECLARE LONG CONSTANT AT$_BVP = 9 ! BVP GENERIC ADAPTERI DECLARE LONG CONSTANT AT$_BVP_SSP = 10 ! BVP STORAGE SYSTEMS PORT< DECLARE LONG CONSTANT AT$_BVP_NIP = 11 ! BVP NI PORT= DECLARE LONG CONSTANT AT$_KA410 = 12 ! VAXstar systemC DECLARE LONG CONSTANT AT$_KA420 = 12 ! PVAX/CVAXstar system@ DECLARE LONG CONSTANT AT$_GENBI = 13 ! Generic BI device: DECLARE LONG CONSTANT AT$_NBI = 14 ! NBIB on BI.* DECLARE LONG CONSTANT AT$_DISK9 = 15( DECLARE LONG CONST ANT AT$_XBI = 16* DECLARE LONG CONSTANT AT$_TERM9 = 17* DECLARE LONG CONSTANT AT$_TAPE9 = 18* DECLARE LONG CONSTANT AT$_PRTR9 = 19* DECLARE LONG CONSTANT AT$_SFUN9 = 20* DECLARE LONG CONSTANT AT$_USER9 = 21+ DECLARE LONG CONSTANT AT$_MBUSIO = 22, DECLARE LONG CONSTANT AT$_MBUSGFX = 23* DECLARE LONG CONSTANT AT$_KA640 = 24+ DECLARE LONG CONSTANT AT$_XWATCH = 251 DECLARE LONG CONSTANT AT$_XBI_PLUS_XMI = 260 DECLARE LONG CONSTANT AT$_XB I_PLUS_BI = 27( DECLARE LONG CONSTANT AT$_XJA = 28* DECLARE LONG CONSTANT AT$_HSX50 = 29* DECLARE LONG CONSTANT AT$_KDM70 = 29' DECLARE LONG CONSTANT AT$_NI = 30) DECLARE LONG CONSTANT AT$_KA43 = 31( DECLARE LONG CONSTANT AT$_SJA = 32+ DECLARE LONG CONSTANT AT$_GENXMI = 33* DECLARE LONG CONSTANT AT$_KA440 = 34) DECLARE LONG CONSTANT AT$_KA46 = 34* DECLARE LONG CONSTANT AT$_KA520 = 35( DECLARE LONG CONSTANT AT$_XSA = 36( DECLAR E LONG CONSTANT AT$_XZA = 37- DECLARE LONG CONSTANT AT$_XZA_SCSI = 37( DECLARE LONG CONSTANT AT$_VME = 38( DECLARE LONG CONSTANT AT$_IOP = 39) DECLARE LONG CONSTANT AT$_LAMB = 40) DECLARE LONG CONSTANT AT$_KA49 = 41' DECLARE LONG CONSTANT AT$_TC = 42* DECLARE LONG CONSTANT AT$_X1303 = 43( DECLARE LONG CONSTANT AT$_XMI = 44) DECLARE LONG CONSTANT AT$_FBUS = 45+ DECLARE LONG CONSTANT AT$_COREIO = 46+ DECLARE LONG CONSTANT AT$_KA0202  = 470 DECLARE LONG CONSTANT AT$_KA0202_LBUS = 48+ DECLARE LONG CONSTANT AT$_KA0302 = 49+ DECLARE LONG CONSTANT AT$_KA0402 = 50/ DECLARE LONG CONSTANT AT$_TURBO_SCSI = 51* DECLARE LONG CONSTANT AT$_CIMNA = 52- DECLARE LONG CONSTANT AT$_XZA_DSSI = 53* DECLARE LONG CONSTANT AT$_DEMNA = 54( DECLARE LONG CONSTANT AT$_FFA = 55+ DECLARE LONG CONSTANT AT$_KA0602 = 56) DECLARE LONG CONSTANT AT$_EISA = 57. DECLARE LONG CONSTANT AT$_VTI_CO MBO = 58+ DECLARE LONG CONSTANT AT$_KA0702 = 640 DECLARE LONG CONSTANT AT$_TC_MULTI_NI = 65. DECLARE LONG CONSTANT AT$_AHA_1742A = 66+ DECLARE LONG CONSTANT AT$_KA0902 = 67( DECLARE LONG CONSTANT AT$_PCI = 68+ DECLARE LONG CONSTANT AT$_KA0802 = 696 DECLARE LONG CONSTANT AT$_MULTIFUNCTION_PCI = 70( DECLARE LONG CONSTANT AT$_ISA = 71) DECLARE LONG CONSTANT AT$_XBUS = 72+ DECLARE LONG CONSTANT AT$_KA0C05 = 73+ DECLARE LONG CONSTANT AT $_KA0E04 = 74+ DECLARE LONG CONSTANT AT$_KA0D02 = 750 DECLARE LONG CONSTANT AT$_THIRDPARTY0 = 760 DECLARE LONG CONSTANT AT$_THIRDPARTY1 = 770 DECLARE LONG CONSTANT AT$_THIRDPARTY2 = 780 DECLARE LONG CONSTANT AT$_THIRDPARTY3 = 790 DECLARE LONG CONSTANT AT$_THIRDPARTY4 = 800 DECLARE LONG CONSTANT AT$_THIRDPARTY5 = 810 DECLARE LONG CONSTANT AT$_THIRDPARTY6 = 820 DECLARE LONG CONSTANT AT$_THIRDPARTY7 = 836 DECLARE LONG CONSTANT AT$_MULTIFUNCTIO N_ISA = 84+ DECLARE LONG CONSTANT AT$_KA0F05 = 85) DECLARE LONG CONSTANT AT$_LMCP = 86) DECLARE LONG CONSTANT AT$_TIOP = 87* DECLARE LONG CONSTANT AT$_ITIOP = 88+ DECLARE LONG CONSTANT AT$_KA1102 = 89+ DECLARE LONG CONSTANT AT$_KA1504 = 90( DECLARE LONG CONSTANT AT$_HPC = 91+ DECLARE LONG CONSTANT AT$_PCMCIA = 92+ DECLARE LONG CONSTANT AT$_KA1402 = 93+ DECLARE LONG CONSTANT AT$_KA0905 = 94+ DECLARE LONG CONSTANT AT$_KA1802 = 95 + DECLARE LONG CONSTANT AT$_KA1805 = 96, DECLARE LONG CONSTANT AT$_MEMCHAN = 97+ DECLARE LONG CONSTANT AT$_KA1B02 = 98+ DECLARE LONG CONSTANT AT$_KA1B05 = 99, DECLARE LONG CONSTANT AT$_KA1A05 = 100, DECLARE LONG CONSTANT AT$_KA1605 = 101, DECLARE LONG CONSTANT AT$_MC_BUS = 102, DECLARE LONG CONSTANT AT$_KA1105 = 103, DECLARE LONG CONSTANT AT$_KA1702 = 104, DECLARE LONG CONSTANT AT$_KA1E07 = 105, DECLARE LONG CONSTANT AT$_KA2005 = 106 , DECLARE LONG CONSTANT AT$_KA2405 = 107, DECLARE LONG CONSTANT AT$_KA2208 = 108, DECLARE LONG CONSTANT AT$_KA2508 = 109, DECLARE LONG CONSTANT AT$_KA2308 = 110+ DECLARE LONG CONSTANT AT$_WFQBB = 111+ DECLARE LONG CONSTANT AT$_WFIOP = 112+ DECLARE LONG CONSTANT AT$_WFPCA = 113, DECLARE LONG CONSTANT AT$_KA2608 = 114, DECLARE LONG CONSTANT AT$_KA270F = 115) DECLARE LONG CONSTANT AT$_IO7 = 116+ DECLARE LONG CONSTANT AT$_I2000 = 1176  DECLARE LONG CONSTANT AT$_ACPI_IA64_PLTFRM = 1187 DECLARE LONG CONSTANT AT$_ACPI_IA64_CONTAIN = 1196 DECLARE LONG CONSTANT AT$_ACPI_IA64_SYSBUS = 1207 DECLARE LONG CONSTANT AT$_ACPI_IA64_BUSLESS = 1213 DECLARE LONG CONSTANT AT$_ACPI_IA64_IOC = 122* DECLARE LONG CONSTANT AT$_PCIE = 123 !  ! DEFINE DEVICE CLASSES !  ! DEFINE DEVICE CLASSES2 DECLARE LONG CONSTANT DC$_ANY = 0 ! ANY) ! NOTE: This "special" device class- ! i s only used by [SYS]SYSGETDVI.MAR for. ! item code validation. It should not be- ! used for anything else, especially for) ! device creation by driver writers?3 DECLARE LONG CONSTANT DC$_DISK = 1 ! DISK4 DECLARE LONG CONSTANT DC$_TAPE = 2 ! TAPESQ DECLARE LONG CONSTANT DC$_SCOM = 32 ! SYNCHRONOUS COMMUNICATIONS DEVICES: DECLARE LONG CONSTANT DC$_CARD = 65 ! CARD READER7 DECLARE LONG CONSTANT DC$_TERM = 66 ! TERMINAL; DECLARE LO NG CONSTANT DC$_LP = 67 ! LINE PRINTERA DECLARE LONG CONSTANT DC$_WORKSTATION = 70 ! WORKSTATIONS; DECLARE LONG CONSTANT DC$_REALTIME = 96 ! REAL-TIMEC DECLARE LONG CONSTANT DC$_DECVOICE = 97 ! DECVOICE products< DECLARE LONG CONSTANT DC$_AUDIO = 98 ! General audio< DECLARE LONG CONSTANT DC$_VIDEO = 99 ! General video= DECLARE LONG CONSTANT DC$_BUS = 128 ! BUSES, E.G, CI9 DECLARE LONG CONSTANT DC$_MAILBOX = 160 ! MAILBOXO DECLAR E LONG CONSTANT DC$_REMCSL_STORAGE = 170 ! REMOTE CONSOLE STORAGED DECLARE LONG CONSTANT DC$_MISC = 200 ! MISCELLANEOUS DEVICES !  ! DEFINE DEVICE TYPES !  !  ! DISK DEVICES ! 7 DECLARE LONG CONSTANT DT$_RK06 = 1 ! RK06 DISK7 DECLARE LONG CONSTANT DT$_RK07 = 2 ! RK07 DISK7 DECLARE LONG CONSTANT DT$_RP04 = 3 ! RP04 DISK7 DECLARE LONG CONSTANT DT$_RP05 = 4 ! RP05 DISK7 DECLARE LONG CONSTANT DT$_RP06 = 5 ! RP06 D !ISK7 DECLARE LONG CONSTANT DT$_RM03 = 6 ! RM03 DISK7 DECLARE LONG CONSTANT DT$_RP07 = 7 ! RP07 DISKG DECLARE LONG CONSTANT DT$_RP07HT = 8 ! RP07 DISK WITH HEAD/TRACK7 DECLARE LONG CONSTANT DT$_RL01 = 9 ! RL01 DISK7 DECLARE LONG CONSTANT DT$_RL02 = 10 ! RL02 DISK7 DECLARE LONG CONSTANT DT$_RX02 = 11 ! RX02 DISK7 DECLARE LONG CONSTANT DT$_RX04 = 12 ! RX04 DISK7 DECLARE LONG CONSTANT DT$_RM80 = 13 ! RM80 DISK2 DECLARE LONG C "ONSTANT DT$_TU58 = 14 ! TU587 DECLARE LONG CONSTANT DT$_RM05 = 15 ! RM05 DISK7 DECLARE LONG CONSTANT DT$_RX01 = 16 ! RX01 DISK7 DECLARE LONG CONSTANT DT$_ML11 = 17 ! ML11 disk: DECLARE LONG CONSTANT DT$_RB02 = 18 ! R02 ON RB730: DECLARE LONG CONSTANT DT$_RB80 = 19 ! R80 ON RB730K DECLARE LONG CONSTANT DT$_RA80 = 20 ! R80 ON INTELLIGENT CONTROLLERK DECLARE LONG CONSTANT DT$_RA81 = 21 ! R81 ON INTELLIGENT CONTROLLERM DECLARE LONG CONST#ANT DT$_RA60 = 22 ! PINON ON INTELLIGENT CONTROLLERH DECLARE LONG CONSTANT DT$_RZ01 = 23 ! AZTEC REMOVABLE (Old name)H DECLARE LONG CONSTANT DT$_RC25 = 23 ! AZTEC REMOVABLE (New name)D DECLARE LONG CONSTANT DT$_RZF01 = 24 ! AZTEC FIXED (Old name)D DECLARE LONG CONSTANT DT$_RCF25 = 24 ! AZTEC FIXED (New name)C DECLARE LONG CONSTANT DT$_RD51 = 25 ! RD51 FIXED DISK DRIVED DECLARE LONG CONSTANT DT$_RX50 = 26 ! RX50 FLOPPY DISK DRIVEC DECLARE LONG CON$STANT DT$_RD52 = 27 ! RD52 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RD53 = 28 ! RD53 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RD26 = 29 ! RD26 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RA82 = 30 ! RA82 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RD31 = 31 ! RD31 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RD54 = 32 ! RD54 FIXED DISK DRIVE: DECLARE LONG CONSTANT DT$_CRX50 = 33 ! Console RX503 DECLARE LONG CONSTANT DT$_RRD50 = 34 ! RR %D50? DECLARE LONG CONSTANT DT$_GENERIC_DU = 35 ! Brand X DiskA DECLARE LONG CONSTANT DT$_RX33 = 36 ! RX33 DISKETTE DRIVE2 DECLARE LONG CONSTANT DT$_RX18 = 37 ! RX18) DECLARE LONG CONSTANT DT$_RA70 = 38) DECLARE LONG CONSTANT DT$_RA90 = 39) DECLARE LONG CONSTANT DT$_RD32 = 40* DECLARE LONG CONSTANT DT$_DISK9 = 41) DECLARE LONG CONSTANT DT$_RX35 = 42) DECLARE LONG CONSTANT DT$_RF30 = 43) DECLARE LONG CONSTANT DT$_RF70 = 44) &DECLARE LONG CONSTANT DT$_RF71 = 44) DECLARE LONG CONSTANT DT$_RD33 = 45* DECLARE LONG CONSTANT DT$_ESE20 = 46) DECLARE LONG CONSTANT DT$_TU56 = 47) DECLARE LONG CONSTANT DT$_RZ22 = 48) DECLARE LONG CONSTANT DT$_RZ23 = 49) DECLARE LONG CONSTANT DT$_RZ24 = 50) DECLARE LONG CONSTANT DT$_RZ55 = 51+ DECLARE LONG CONSTANT DT$_RRD40S = 52* DECLARE LONG CONSTANT DT$_RRD40 = 53/ DECLARE LONG CONSTANT DT$_GENERIC_DK = 54) DECLARE LONG C 'ONSTANT DT$_RX23 = 55) DECLARE LONG CONSTANT DT$_RF31 = 56) DECLARE LONG CONSTANT DT$_RF72 = 57- DECLARE LONG CONSTANT DT$_RAM_DISK = 58) DECLARE LONG CONSTANT DT$_RZ25 = 59) DECLARE LONG CONSTANT DT$_RZ56 = 60) DECLARE LONG CONSTANT DT$_RZ57 = 61* DECLARE LONG CONSTANT DT$_RX23S = 62* DECLARE LONG CONSTANT DT$_RX33S = 63) DECLARE LONG CONSTANT DT$_RA92 = 64, DECLARE LONG CONSTANT DT$_SSTRIPE = 65* DECLARE LONG CONSTANT DT$_RZ23 (L = 66) DECLARE LONG CONSTANT DT$_RX26 = 67* DECLARE LONG CONSTANT DT$_RZ57I = 68) DECLARE LONG CONSTANT DT$_RZ31 = 69) DECLARE LONG CONSTANT DT$_RZ58 = 70, DECLARE LONG CONSTANT DT$_SCSI_MO = 71* DECLARE LONG CONSTANT DT$_RWZ01 = 71* DECLARE LONG CONSTANT DT$_RRD42 = 720 DECLARE LONG CONSTANT DT$_CD_LOADER_1 = 73* DECLARE LONG CONSTANT DT$_ESE25 = 74* DECLARE LONG CONSTANT DT$_RFH31 = 75* DECLARE LONG CONSTANT DT$_RFH72 = 76) )DECLARE LONG CONSTANT DT$_RF73 = 77* DECLARE LONG CONSTANT DT$_RFH73 = 78) DECLARE LONG CONSTANT DT$_RA72 = 79) DECLARE LONG CONSTANT DT$_RA71 = 80* DECLARE LONG CONSTANT DT$_RAH72 = 80) DECLARE LONG CONSTANT DT$_RF32 = 81) DECLARE LONG CONSTANT DT$_RF35 = 81* DECLARE LONG CONSTANT DT$_RFH32 = 82* DECLARE LONG CONSTANT DT$_RFH35 = 82* DECLARE LONG CONSTANT DT$_RFF31 = 83* DECLARE LONG CONSTANT DT$_RF31F = 83) DECLARE LONG CONSTANT *DT$_RZ72 = 84) DECLARE LONG CONSTANT DT$_RZ73 = 85) DECLARE LONG CONSTANT DT$_RZ35 = 86* DECLARE LONG CONSTANT DT$_RZ24L = 87* DECLARE LONG CONSTANT DT$_RZ25L = 88* DECLARE LONG CONSTANT DT$_RZ55L = 89* DECLARE LONG CONSTANT DT$_RZ56L = 90* DECLARE LONG CONSTANT DT$_RZ57L = 91) DECLARE LONG CONSTANT DT$_RA73 = 92) DECLARE LONG CONSTANT DT$_RZ26 = 93) DECLARE LONG CONSTANT DT$_RZ36 = 94) DECLARE LONG CONSTANT DT$_RZ74 = 95* +DECLARE LONG CONSTANT DT$_ESE52 = 96* DECLARE LONG CONSTANT DT$_ESE56 = 97* DECLARE LONG CONSTANT DT$_ESE58 = 98) DECLARE LONG CONSTANT DT$_RZ27 = 99* DECLARE LONG CONSTANT DT$_RZ37 = 100+ DECLARE LONG CONSTANT DT$_RZ34L = 101+ DECLARE LONG CONSTANT DT$_RZ35L = 102+ DECLARE LONG CONSTANT DT$_RZ36L = 103* DECLARE LONG CONSTANT DT$_RZ38 = 104* DECLARE LONG CONSTANT DT$_RZ75 = 105* DECLARE LONG CONSTANT DT$_RZ59 = 106* DECLARE LONG CON ,STANT DT$_RZ13 = 107* DECLARE LONG CONSTANT DT$_RZ14 = 108* DECLARE LONG CONSTANT DT$_RZ15 = 109* DECLARE LONG CONSTANT DT$_RZ16 = 110* DECLARE LONG CONSTANT DT$_RZ17 = 111* DECLARE LONG CONSTANT DT$_RZ18 = 112* DECLARE LONG CONSTANT DT$_EZ51 = 113* DECLARE LONG CONSTANT DT$_EZ52 = 114* DECLARE LONG CONSTANT DT$_EZ53 = 115* DECLARE LONG CONSTANT DT$_EZ54 = 116* DECLARE LONG CONSTANT DT$_EZ58 = 117* DECLARE LONG CONSTANT DT$_EF51 = 118* - DECLARE LONG CONSTANT DT$_EF52 = 119* DECLARE LONG CONSTANT DT$_EF53 = 120* DECLARE LONG CONSTANT DT$_EF54 = 121* DECLARE LONG CONSTANT DT$_EF58 = 122* DECLARE LONG CONSTANT DT$_RF36 = 123* DECLARE LONG CONSTANT DT$_RF37 = 124* DECLARE LONG CONSTANT DT$_RF74 = 125* DECLARE LONG CONSTANT DT$_RF75 = 126+ DECLARE LONG CONSTANT DT$_HSZ10 = 127* DECLARE LONG CONSTANT DT$_RZ28 = 1280 DECLARE LONG CONSTANT DT$_GENERIC_RX = 180A DECLARE .LONG CONSTANT DT$_FD1 = 129 ! FOREIGN DISK TYPE 1A DECLARE LONG CONSTANT DT$_FD2 = 130 ! FOREIGN DISK TYPE 2A DECLARE LONG CONSTANT DT$_FD3 = 131 ! FOREIGN DISK TYPE 3A DECLARE LONG CONSTANT DT$_FD4 = 132 ! FOREIGN DISK TYPE 4A DECLARE LONG CONSTANT DT$_FD5 = 133 ! FOREIGN DISK TYPE 5A DECLARE LONG CONSTANT DT$_FD6 = 134 ! FOREIGN DISK TYPE 6A DECLARE LONG CONSTANT DT$_FD7 = 135 ! FOREIGN DISK TYPE 7A DECLARE LONG CONSTANT DT$_FD8 = 136 /! FOREIGN DISK TYPE 8* DECLARE LONG CONSTANT DT$_RZ29 = 137+ DECLARE LONG CONSTANT DT$_RZ26L = 138+ DECLARE LONG CONSTANT DT$_RRD43 = 139+ DECLARE LONG CONSTANT DT$_RRD44 = 140+ DECLARE LONG CONSTANT DT$_HSX00 = 141+ DECLARE LONG CONSTANT DT$_HSX01 = 142+ DECLARE LONG CONSTANT DT$_RZ26B = 143+ DECLARE LONG CONSTANT DT$_RZ27B = 144+ DECLARE LONG CONSTANT DT$_RZ28B = 145+ DECLARE LONG CONSTANT DT$_RZ29B = 146+ DECLARE LONG CONST 0ANT DT$_RZ73B = 147+ DECLARE LONG CONSTANT DT$_RZ74B = 148+ DECLARE LONG CONSTANT DT$_RZ75B = 149+ DECLARE LONG CONSTANT DT$_RWZ21 = 150+ DECLARE LONG CONSTANT DT$_RZ27L = 151+ DECLARE LONG CONSTANT DT$_HSZ20 = 152+ DECLARE LONG CONSTANT DT$_HSZ40 = 153+ DECLARE LONG CONSTANT DT$_HSZ15 = 154+ DECLARE LONG CONSTANT DT$_RZ26M = 155+ DECLARE LONG CONSTANT DT$_RW504 = 156+ DECLARE LONG CONSTANT DT$_RW510 = 157+ DECLARE LONG CONST 1ANT DT$_RW514 = 158+ DECLARE LONG CONSTANT DT$_RW516 = 159+ DECLARE LONG CONSTANT DT$_RWZ52 = 160+ DECLARE LONG CONSTANT DT$_RWZ53 = 161+ DECLARE LONG CONSTANT DT$_RWZ54 = 162+ DECLARE LONG CONSTANT DT$_RWZ31 = 163* DECLARE LONG CONSTANT DT$_EZ31 = 164* DECLARE LONG CONSTANT DT$_EZ32 = 165* DECLARE LONG CONSTANT DT$_EZ33 = 166* DECLARE LONG CONSTANT DT$_EZ34 = 167* DECLARE LONG CONSTANT DT$_EZ35 = 168+ DECLARE LONG CONSTANT DT$_EZ 231L = 169+ DECLARE LONG CONSTANT DT$_EZ32L = 170+ DECLARE LONG CONSTANT DT$_EZ33L = 171+ DECLARE LONG CONSTANT DT$_RZ28L = 172+ DECLARE LONG CONSTANT DT$_RWZ51 = 173+ DECLARE LONG CONSTANT DT$_EZ56R = 174+ DECLARE LONG CONSTANT DT$_RAID0 = 175+ DECLARE LONG CONSTANT DT$_RAID5 = 1766 DECLARE LONG CONSTANT DT$_CONSOLE_CALLBACK = 177. DECLARE LONG CONSTANT DT$_FILES_64 = 178+ DECLARE LONG CONSTANT DT$_SWXCR = 1791 DECLARE LONG CON 3STANT DT$_SNAPPY_DISK = 1801 DECLARE LONG CONSTANT DT$_SNAPPY_POOL = 1811 DECLARE LONG CONSTANT DT$_USB_CB_DISK = 182 !  ! TAPE DEVICES ! : DECLARE LONG CONSTANT DT$_TE16 = 1 ! TE16 MAGTAPE: DECLARE LONG CONSTANT DT$_TU45 = 2 ! TU45 MAGTAPE: DECLARE LONG CONSTANT DT$_TU77 = 3 ! TU77 MAGTAPE: DECLARE LONG CONSTANT DT$_TS11 = 4 ! TS11 MAGTAPE: DECLARE LONG CONSTANT DT$_TU78 = 5 ! TU78 MAGTAPE: DECLARE LONG CONSTANT DT$_TA 478 = 6 ! TA78 MAGTAPE: DECLARE LONG CONSTANT DT$_TU80 = 7 ! TU80 MAGTAPE: DECLARE LONG CONSTANT DT$_TU81 = 8 ! TU81 MAGTAPE( DECLARE LONG CONSTANT DT$_TA81 = 9A DECLARE LONG CONSTANT DT$_TK50 = 10 ! TK50 CARTRIDGE TAPED DECLARE LONG CONSTANT DT$_MR_TU70 = 11 ! TU70 STC TAPE (DX20)= DECLARE LONG CONSTANT DT$_MR_TU72 = 12 ! TU72 STC TAPEA DECLARE LONG CONSTANT DT$_MW_TSU05 = 13 ! TSU05 TAPE (CSS)A DECLARE LONG CONSTANT DT$_MW_TSV05 = 14 ! 5 TSV05 TAPE (CSS)A DECLARE LONG CONSTANT DT$_TK70 = 15 ! TK70 CARTRIDGE TAPE) DECLARE LONG CONSTANT DT$_RV20 = 16) DECLARE LONG CONSTANT DT$_RV80 = 16A DECLARE LONG CONSTANT DT$_TK60 = 17 ! TK60 CARTRIDGE TAPE? DECLARE LONG CONSTANT DT$_GENERIC_TU = 18 ! Brand X Tape2 DECLARE LONG CONSTANT DT$_TA79 = 19 ! TA79* DECLARE LONG CONSTANT DT$_TAPE9 = 20) DECLARE LONG CONSTANT DT$_TA90 = 21) DECLARE LONG CONSTANT DT$_TF30 = 22) DECLAR 6E LONG CONSTANT DT$_TF85 = 22) DECLARE LONG CONSTANT DT$_TF70 = 23) DECLARE LONG CONSTANT DT$_RV60 = 24) DECLARE LONG CONSTANT DT$_TZ30 = 25) DECLARE LONG CONSTANT DT$_TM32 = 26) DECLARE LONG CONSTANT DT$_TZX0 = 27* DECLARE LONG CONSTANT DT$_TSZ05 = 27/ DECLARE LONG CONSTANT DT$_GENERIC_MK = 28* DECLARE LONG CONSTANT DT$_TK50S = 29* DECLARE LONG CONSTANT DT$_TZ30S = 30* DECLARE LONG CONSTANT DT$_TK70L = 31* DECLARE LONG CONSTANT 7DT$_TLZ04 = 32* DECLARE LONG CONSTANT DT$_TZK10 = 33* DECLARE LONG CONSTANT DT$_TSZ07 = 34* DECLARE LONG CONSTANT DT$_TSZ08 = 35* DECLARE LONG CONSTANT DT$_TA90E = 36* DECLARE LONG CONSTANT DT$_TZK11 = 37) DECLARE LONG CONSTANT DT$_TZ85 = 38) DECLARE LONG CONSTANT DT$_TZ86 = 39) DECLARE LONG CONSTANT DT$_TZ87 = 40* DECLARE LONG CONSTANT DT$_TZ857 = 41, DECLARE LONG CONSTANT DT$_EXABYTE = 422 DECLARE LONG CONSTANT DT$_TAPE_LOADER_1 = 843) DECLARE LONG CONSTANT DT$_TA91 = 44* DECLARE LONG CONSTANT DT$_TLZ06 = 45) DECLARE LONG CONSTANT DT$_TA85 = 46* DECLARE LONG CONSTANT DT$_TKZ60 = 47) DECLARE LONG CONSTANT DT$_TLZ6 = 48* DECLARE LONG CONSTANT DT$_TZ867 = 49* DECLARE LONG CONSTANT DT$_TZ877 = 50* DECLARE LONG CONSTANT DT$_TAD85 = 51) DECLARE LONG CONSTANT DT$_TF86 = 52* DECLARE LONG CONSTANT DT$_TKZ09 = 53) DECLARE LONG CONSTANT DT$_TA86 = 54) DECLARE LONG 9 CONSTANT DT$_TA87 = 55) DECLARE LONG CONSTANT DT$_TD34 = 56) DECLARE LONG CONSTANT DT$_TD44 = 57* DECLARE LONG CONSTANT DT$_HST00 = 58* DECLARE LONG CONSTANT DT$_HST01 = 59* DECLARE LONG CONSTANT DT$_TLZ07 = 60) DECLARE LONG CONSTANT DT$_TLZ7 = 61) DECLARE LONG CONSTANT DT$_TZ88 = 62* DECLARE LONG CONSTANT DT$_TZ885 = 63* DECLARE LONG CONSTANT DT$_TZ887 = 64) DECLARE LONG CONSTANT DT$_TZ89 = 65* DECLARE LONG CONSTANT DT$_TZ895 = :66* DECLARE LONG CONSTANT DT$_TZ897 = 67* DECLARE LONG CONSTANT DT$_TZ875 = 68* DECLARE LONG CONSTANT DT$_TL810 = 69* DECLARE LONG CONSTANT DT$_TL820 = 70* DECLARE LONG CONSTANT DT$_TZ865 = 71 !  ! TERMINAL DEVICE TYPES ! I ! new definitions for terminal types should be placed in $ttdef only7 ! this table remains around for compatibility only ! ! **** MATCHES $TTDEF *****@ DECLARE LONG CONSTANT DT$_TTYUNKN = 0 ! UNKNOWN TERM ;INAL3 DECLARE LONG CONSTANT DT$_VT05 = 1 ! VT05E DECLARE LONG CONSTANT DT$_FT1 = 16 ! FOREIGN TERMINAL TYPES( DECLARE LONG CONSTANT DT$_FT2 = 17( DECLARE LONG CONSTANT DT$_FT3 = 18( DECLARE LONG CONSTANT DT$_FT4 = 19( DECLARE LONG CONSTANT DT$_FT5 = 20( DECLARE LONG CONSTANT DT$_FT6 = 21( DECLARE LONG CONSTANT DT$_FT7 = 22C DECLARE LONG CONSTANT DT$_FT8 = 23 ! END OF FOREIGN TYPES+ ! RESERVE REST UP TO 32 FOR EXTENSIONS? <DECLARE LONG CONSTANT DT$_LAX = 32 ! LA TYPE TERMINAL3 DECLARE LONG CONSTANT DT$_LA36 = 32 ! LA36* DECLARE LONG CONSTANT DT$_LA120 = 338 DECLARE LONG CONSTANT DT$_VT5X = 64 ! VT5X TYPE3 DECLARE LONG CONSTANT DT$_VT52 = 64 ! VT523 DECLARE LONG CONSTANT DT$_VT55 = 65 ! VT555 DECLARE LONG CONSTANT DT$_TQ_BTS = 4 ! TQ_BTS? DECLARE LONG CONSTANT DT$_TEK401X = 10 ! TEK401X series4 DECLARE LONG CONSTANT DT$_VT100 = 96 ! VT100) =DECLARE LONG CONSTANT DT$_VK100 = 2) DECLARE LONG CONSTANT DT$_VT173 = 3) DECLARE LONG CONSTANT DT$_LA34 = 34) DECLARE LONG CONSTANT DT$_LA38 = 35) DECLARE LONG CONSTANT DT$_LA12 = 36) DECLARE LONG CONSTANT DT$_LA24 = 37* DECLARE LONG CONSTANT DT$_LA100 = 37* DECLARE LONG CONSTANT DT$_LQP02 = 38* DECLARE LONG CONSTANT DT$_VT101 = 97* DECLARE LONG CONSTANT DT$_VT102 = 98* DECLARE LONG CONSTANT DT$_VT105 = 99+ DECLARE LONG CONSTANT >DT$_VT125 = 100+ DECLARE LONG CONSTANT DT$_VT131 = 101+ DECLARE LONG CONSTANT DT$_VT132 = 102> DECLARE LONG CONSTANT DT$_DZ11 = 66 ! DZ11 CONTROLLER> DECLARE LONG CONSTANT DT$_DZ32 = 67 ! DZ32 CONTROLLERG DECLARE LONG CONSTANT DT$_DZ730 = 68 ! DZ730 (COMBO) CONTROLLER? DECLARE LONG CONSTANT DT$_DMZ32 = 69 ! DMZ32 CONTROLLER= DECLARE LONG CONSTANT DT$_DHV = 70 ! DHV CONTROLLER= DECLARE LONG CONSTANT DT$_DHU = 71 ! DHU CONTROLLERG ? DECLARE LONG CONSTANT DT$_SLU = 72 ! Onboard Serial Line Unit= DECLARE LONG CONSTANT DT$_TERM9 = 73 ! Terminal on 009< DECLARE LONG CONSTANT DT$_LAT = 74 ! LAT terminals !  ! Terminal WORKSTATIONS ! = DECLARE LONG CONSTANT DT$_VS100 = 1 ! VAXstation 100= DECLARE LONG CONSTANT DT$_VS125 = 2 ! VAXstation 125H DECLARE LONG CONSTANT DT$_VL_VS8200 = 3 ! VAXstation 8200 (Lynx)E DECLARE LONG CONSTANT DT$_VD = 4 ! VAXstation @Vir. Device/ DECLARE LONG CONSTANT DT$_DECW_OUTPUT = 5. DECLARE LONG CONSTANT DT$_DECW_INPUT = 6/ DECLARE LONG CONSTANT DT$_DECW_PSEUDO = 7 ! . ! SYNCHRONOUS COMMUNICATIONS DEVICE TYPES ! 4 DECLARE LONG CONSTANT DT$_DMC11 = 1 ! DMC114 DECLARE LONG CONSTANT DT$_DMR11 = 2 ! DMR11Q DECLARE LONG CONSTANT DT$_XK_3271 = 3 ! DUP-11 FOR 3271 PROTOCOL EMULATORC DECLARE LONG CONSTANT DT$_XJ_2780 = 4 ! DUP-11 FOR 2780 " "D DECLARE LONGA CONSTANT DT$_NW_X25 = 5 ! X25 PROTOCOL EMULATOR6 DECLARE LONG CONSTANT DT$_NV_X29 = 6 ! X29 " "C DECLARE LONG CONSTANT DT$_SB_ISB11 = 7 ! ISB-11 DEC datawayK DECLARE LONG CONSTANT DT$_MX_MUX200 = 8 ! MUX-200 PROTOCOL EMULATOR4 DECLARE LONG CONSTANT DT$_DMP11 = 9 ! DMP114 DECLARE LONG CONSTANT DT$_DMF32 = 10 ! DMF32M DECLARE LONG CONSTANT DT$_XV_3271 = 11 ! DV-11 3271 PROTOCOL EMULATORI DECLARE LONG CONSTANT DT$_CI = 12 ! CI - Computer I BnterconnectH DECLARE LONG CONSTANT DT$_NI = 13 ! NI - Network InterconnectC DECLARE LONG CONSTANT DT$_UNA11 = 14 ! UNIBUS to NI adapterC DECLARE LONG CONSTANT DT$_DEUNA = 14 ! UNIBUS to NI adapter@ DECLARE LONG CONSTANT DT$_YN_X25 = 15 ! KMS11 X.25 P. E.5 DECLARE LONG CONSTANT DT$_YO_X25 = 16 ! " " "> DECLARE LONG CONSTANT DT$_YP_ADCCP = 17 ! " ADCCP P.E.6 DECLARE LONG CONSTANT DT$_YQ_3271 = 18 ! " " "9 DECLARE LONG CONSTANT DT$_YR_D CDCMP = 19 ! " DDCMP7 DECLARE LONG CONSTANT DT$_YS_SDLC = 20 ! " SDLC9 DECLARE LONG CONSTANT DT$_UK_KTC32 = 21 ! " KTC32B DECLARE LONG CONSTANT DT$_DEQNA = 22 ! Q-BUS to NI adapter4 DECLARE LONG CONSTANT DT$_DMV11 = 23 ! DMV11G DECLARE LONG CONSTANT DT$_ES_LANCE = 24 ! SCORPIO to NI adapterC DECLARE LONG CONSTANT DT$_DELUA = 25 ! LSI version of DEUNA5 DECLARE LONG CONSTANT DT$_NQ_3271 = 26 ! DHCF> DECLARE LONG CONSTANT DT$_DMB32 = 27D ! DMB32 (BICombo)W DECLARE LONG CONSTANT DT$_YI_KMS11K = 28 ! not a product, used by field serviceG DECLARE LONG CONSTANT DT$_ET_DEBNT = 29 ! DEBNT (DEBNA grandpa)G DECLARE LONG CONSTANT DT$_ET_DEBNA = 29 ! DEBNA (BI-NI adapter)J DECLARE LONG CONSTANT DT$_SJ_DSV11 = 30 ! DSV11 Q-BUS sync adapterG DECLARE LONG CONSTANT DT$_SL_DSB32 = 31 ! DSB32 BI sync adaptor< DECLARE LONG CONSTANT DT$_ZS_DST32 = 32 ! DST32, X25M DECLARE LONG CONSTANT DT$_XQ E_DELQA = 33 ! DELQA - Q-BUS to NI adaptorG DECLARE LONG CONSTANT DT$_ET_DEBNI = 34 ! DEBNI (BI-NI adapter)K DECLARE LONG CONSTANT DT$_EZ_SGEC = 35 ! SGEC CVAX to ethernet chip- DECLARE LONG CONSTANT DT$_EX_DEMNA = 36* DECLARE LONG CONSTANT DT$_DIV32 = 37- DECLARE LONG CONSTANT DT$_XQ_DEQTA = 38* DECLARE LONG CONSTANT DT$_FT_NI = 39- DECLARE LONG CONSTANT DT$_EP_LANCE = 40* DECLARE LONG CONSTANT DT$_KWV32 = 41- DECLARE LONG CONSTANT DT$_FSM_DSF32 = 42- DECLARE LONG CONSTANT DT$_FX_DEMFA = 43T DECLARE LONG CONSTANT DT$_SF_DSF32 = 44 ! FT unit for DSF32 CIRRUS sync commQ DECLARE LONG CONSTANT DT$_SE_DUP11 = 45 ! SEDRIVER common DUP11 sync commQ DECLARE LONG CONSTANT DT$_SE_DPV11 = 46 ! SEDRIVER common DPV11 sync commD DECLARE LONG CONSTANT DT$_ZT_DSW = 47 ! Generic DSW sync comF DECLARE LONG CONSTANT DT$_FC_DEFZA = 48 ! Turbochannel to FDDII DECLARE LONG CONSTANT DT$_EC_PMAD = 49 G! Turbochannel to EthernetC DECLARE LONG CONSTANT DT$_EZ_TGEC = 50 ! TGEC ethernet chipG DECLARE LONG CONSTANT DT$_EA_DEANA = 51 ! Futurebus to EthernetJ DECLARE LONG CONSTANT DT$_EY_NITC2 = 52 ! Turbochannel to EthernetF DECLARE LONG CONSTANT DT$_ER_DE422 = 53 ! EISA bus to EthernetE DECLARE LONG CONSTANT DT$_ER_DE200 = 54 ! ISA bus to EthernetT DECLARE LONG CONSTANT DT$_EW_TULIP = 55 ! Integral PCI bus to TULIP EthernetC DECLARE LONG CONSTANHT DT$_FA_DEFAA = 56 ! Futurebus to FDDIF DECLARE LONG CONSTANT DT$_FC_DEFTA = 57 ! Turbochannel to FDDI? DECLARE LONG CONSTANT DT$_FQ_DEFQA = 58 ! Q-bus to FDDIB DECLARE LONG CONSTANT DT$_FR_DEFEA = 59 ! EISA bus to FDDIA DECLARE LONG CONSTANT DT$_FW_DEFPA = 60 ! PCI bus to FDDIL DECLARE LONG CONSTANT DT$_IC_DETRA = 61 ! Turbochannel to Token RingE DECLARE LONG CONSTANT DT$_IQ_DEQRA = 62 ! Q-bus to Token RingH DECLARE LONG CONSTANT DT$_IR_DW3I00 = 63 ! EISA bus to Token RingG DECLARE LONG CONSTANT DT$_ZR_SCC = 64 ! SCC on AXP workstationsN DECLARE LONG CONSTANT DT$_ZY_DSYT1 = 65 ! Turbo channel sync interfaceE DECLARE LONG CONSTANT DT$_ZE_DNSES = 66 ! EISA sync interfaceL DECLARE LONG CONSTANT DT$_ER_DE425 = 67 ! EISA bus to TULIP EthernetK DECLARE LONG CONSTANT DT$_EW_DE435 = 68 ! PCI bus to TULIP EthernetK DECLARE LONG CONSTANT DT$_ER_DE205 = 69 ! ISA bus to LEMAC EthernetD DECLJARE LONG CONSTANT DT$_HC_OTTO = 70 ! Turbochannel to ATME DECLARE LONG CONSTANT DT$_ZS_PBXDI = 71 ! ISA sync comms cardL DECLARE LONG CONSTANT DT$_EL_ELAN = 72 ! Emulated CSMACD LAN for ATM; DECLARE LONG CONSTANT DT$_HW_OTTO = 73 ! PCI to ATMD DECLARE LONG CONSTANT DT$_EO_3C598 = 74 ! PCMCIA to EthernetC DECLARE LONG CONSTANT DT$_IW_TC4048 = 75 ! PCI to TokenRingI DECLARE LONG CONSTANT DT$_EW_DE450 = 76 ! PCI to DC21040 EthernetI DECLARE LONGK CONSTANT DT$_EW_DE500 = 77 ! PCI to DC21140 EthernetF DECLARE LONG CONSTANT DT$_CL_CLIP = 78 ! Classical IP over ATME DECLARE LONG CONSTANT DT$_ZW_PBXDP = 79 ! PCI sync comms cardG DECLARE LONG CONSTANT DT$_HW_METEOR = 80 ! PCI-ATM ATMworks 351E DECLARE LONG CONSTANT DT$_ER_DE305 = 81 ! ISA bus to EthernetQ DECLARE LONG CONSTANT DT$_EW_DEGPA = 82 ! PCI to Gigabit Ethernet (DEGPA)L DECLARE LONG CONSTANT DT$_IW_RACORE = 83 ! PCI to TokenRing (RacorLe)H DECLARE LONG CONSTANT DT$_EB_SMLAN = 84 ! Shared Memory (Galaxy)N DECLARE LONG CONSTANT DT$_EI_82558 = 85 ! PCI to Fast Ethernet (82558)N DECLARE LONG CONSTANT DT$_EI_82559 = 86 ! PCI to Fast Ethernet (82559)D DECLARE LONG CONSTANT DT$_HW_HE622 = 87 ! PCI to ATM (HE622)D DECLARE LONG CONSTANT DT$_HW_HE155 = 88 ! PCI to ATM (HE155)S DECLARE LONG CONSTANT DT$_EW_BCM5703 = 89 ! PCI/PCIX to GBE (Broadcom 5703)S DECLARE LONG CONSTANT DT$_EW_BCM5704M = 90 ! PCI/PCIX to GBE (Broadcom 5704)I DECLARE LONG CONSTANT DT$_EW_XFRAME = 91 ! PCI/PCIX 10 GBE (S2io)S DECLARE LONG CONSTANT DT$_EW_BCM5701 = 92 ! PCI/PCIX to GBE (Broadcom 5701)G DECLARE LONG CONSTANT DT$_LL_LLAN = 93 ! Logical LAN (failover)J DECLARE LONG CONSTANT DT$_EG_ELP_FC = 94 ! Emulex LP Fibre ChannelE DECLARE LONG CONSTANT DT$_EG_Q_FC = 95 ! Qlogic Fibre ChannelG DECLARE LONG CONSTANT DT$_EI_82540 = 96 ! Intel Gigabit (8254x)5 N DECLARE LONG CONSTANT DT$_VL_VLAN = 97 ! VLANO DECLARE LONG CONSTANT DT$_EW_BCM5715 = 98 ! PCIE to GBE (Broadcom 5715)F DECLARE LONG CONSTANT DT$_EI_AVIO = 99 ! HPVM AVIO LAN Device V DECLARE LONG CONSTANT DT$_ER_BCM57711 = 100 ! PCIe 10 GBE (Broadcom 57711-LOM)R DECLARE LONG CONSTANT DT$_EW_BCM57711 = 101 ! PCIe 10 GBE (Broadcom 57711)L DECLARE LONG CONSTANT DT$_EB_BE = 102 ! PCIe 10 GBE CNA (Emulex BE3)W DECLARE LONG CONSTANT DT$_EW_BE = 103 ! PC OIe 10 GBE CNA (Emulex BE3 Tiger LOM)  ! 0 ! LINE PRINTER AND CARD READER DEVICE TYPES ! 3 DECLARE LONG CONSTANT DT$_LP11 = 1 ! LP113 DECLARE LONG CONSTANT DT$_LA11 = 2 ! LA114 DECLARE LONG CONSTANT DT$_LA180 = 3 ! LA1806 DECLARE LONG CONSTANT DT$_LC_DMF32 = 4 ! DMF326 DECLARE LONG CONSTANT DT$_LI_DMB32 = 5 ! DMB32< DECLARE LONG CONSTANT DT$_PRTR9 = 6 ! Printer on 009C DECLARE LONG CONSTANT DT$_SCSI_SCANNER_1 = 7 ! SCSI ScanPner< DECLARE LONG CONSTANT DT$_PC_PRINTER = 8 ! PC Printer? DECLARE LONG CONSTANT DT$_CR11 = 1 ! CR11 CARD READER !  ! MAILBOX DEVICE TYPES ! C DECLARE LONG CONSTANT DT$_MBX = 1 ! LOCAL MEMORY MAILBOXD DECLARE LONG CONSTANT DT$_SHRMBX = 2 ! SHARED MEMORY MAILBOX> DECLARE LONG CONSTANT DT$_NULL = 3 ! The NULL DEVICE: DECLARE LONG CONSTANT DT$_PIPE = 4 ! PIPE DEVICE ! * ! REMOTE CONSOLE STORAGE DEVICE TYPES ! F Q DECLARE LONG CONSTANT DT$_DAP_DEVICE = 1 ! DAP-ACCESSED DEVICE !  ! REALTIME DEVICE TYPES ! 5 DECLARE LONG CONSTANT DT$_LPA11 = 1 ! LPA-114 DECLARE LONG CONSTANT DT$_DR780 = 2 ! DR7804 DECLARE LONG CONSTANT DT$_DR750 = 3 ! DR7504 DECLARE LONG CONSTANT DT$_DR11W = 4 ! DR11WC DECLARE LONG CONSTANT DT$_PCL11R = 5 ! PCL11 RECEIVER (CSS)E DECLARE LONG CONSTANT DT$_PCL11T = 6 ! PCL11 TRANSMTTER (CSS)G DECLARE LONG CONSTANT DTR$_DR11C = 7 ! DR11C PARALLEL INTERFACE= DECLARE LONG CONSTANT DT$_BS_DT07 = 8 ! UNIBUS SWITCHY DECLARE LONG CONSTANT DT$_XP_PCL11B = 9 ! PCL-11B (DECNET and NONDECNET mode CSS)N DECLARE LONG CONSTANT DT$_IX_IEX11 = 10 ! IEEE-488 to UNIBUS INTERFACEN DECLARE LONG CONSTANT DT$_FP_FEPCM = 11 ! FEPCM CSS frontend processorL DECLARE LONG CONSTANT DT$_TK_FCM = 12 ! FEPCM CSS frontend processorN DECLARE LONG CONSTANT DT$_XI_DR11C = 13 ! PARALLEL INTERFACE S ON DMF-32J DECLARE LONG CONSTANT DT$_XA_DRV11WA = 14 ! DMA Parallel Interface= DECLARE LONG CONSTANT DT$_DRB32 = 15 ! DRB32 (or MFA)J DECLARE LONG CONSTANT DT$_HX_DRQ3B = 16 ! DRQ3B PARALLEL INTERFACE !  ! DECVOICE DEVICES ! J DECLARE LONG CONSTANT DT$_DECVOICE = 1 ! VQ- DECVOICE class driverN DECLARE LONG CONSTANT DT$_DTC04 = 2 ! VX DECvoice 1 M7132 port driverP DECLARE LONG CONSTANT DT$_DTC05 = 3 ! VM Decvoice III M3135 port driver TP DECLARE LONG CONSTANT DT$_DTCN5 = 4 ! VN Decvoice III M3136 port driver !  ! AUDIO DEVICES ! J DECLARE LONG CONSTANT DT$_AMD79C30A = 1 ! AMD79C30A on VLC/PMARIAH\ DECLARE LONG CONSTANT DT$_CMI8738 = 2 ! CMI8738 sound chip bearing HP Part no AD317A !  ! BUS CLASS DEVICES ! 4 DECLARE LONG CONSTANT DT$_CI780 = 1 ! CI7804 DECLARE LONG CONSTANT DT$_CI750 = 2 ! CI750D DECLARE LONG CONSTANT DT$_UQPORT = 3 ! UQPORT is generic U UDA4 DECLARE LONG CONSTANT DT$_UDA50 = 3 ! UDA505 DECLARE LONG CONSTANT DT$_UDA50A = 4 ! UDA50A> DECLARE LONG CONSTANT DT$_LESI = 5 ! Low end storage8 DECLARE LONG CONSTANT DT$_TU81P = 6 ! TU81 port8 DECLARE LONG CONSTANT DT$_RDRX = 7 ! RDRX port8 DECLARE LONG CONSTANT DT$_TK50P = 8 ! TK50 port9 DECLARE LONG CONSTANT DT$_RUX50P = 9 ! RUX50 port9 DECLARE LONG CONSTANT DT$_RC26P = 10 ! RC26P portD DECLARE LONG CONSTANT DT$_ VQDA50 = 11 ! KDA50 port (old name)9 DECLARE LONG CONSTANT DT$_KDA50 = 11 ! KDA50 portD DECLARE LONG CONSTANT DT$_BDA50 = 12 ! KDB50 port (old name)G DECLARE LONG CONSTANT DT$_KDB50 = 12 ! KDB50 port (alias BDA50): DECLARE LONG CONSTANT DT$_RRD50P = 13 ! RRD50 portD DECLARE LONG CONSTANT DT$_QDA25 = 14 ! KDA25 port (old name)9 DECLARE LONG CONSTANT DT$_KDA25 = 14 ! KDA25 port= DECLARE LONG CONSTANT DT$_BCI750 = 15 ! BI-CI750 port9 DECL WARE LONG CONSTANT DT$_BCA = 16 ! BI-CI port9 DECLARE LONG CONSTANT DT$_RQDX3 = 17 ! RQDX3 port: DECLARE LONG CONSTANT DT$_NISCA = 18 ! NI-SCA port; DECLARE LONG CONSTANT DT$_AIO = 19 ! BVP SSP port; DECLARE LONG CONSTANT DT$_KFBTA = 19 ! BVP SSP port= DECLARE LONG CONSTANT DT$_AIE = 20 ! BVP multi-port= DECLARE LONG CONSTANT DT$_DEBNT = 20 ! BVP multi-port( DECLARE LONG CONSTANT DT$_BSA = 21* DECLARE LONG CONSTANT DT$_KSB50 = 21 X8 DECLARE LONG CONSTANT DT$_TK70P = 22 ! TK70 port* DECLARE LONG CONSTANT DT$_RV20P = 23* DECLARE LONG CONSTANT DT$_RV80P = 238 DECLARE LONG CONSTANT DT$_TK60P = 24 ! TK60 port( DECLARE LONG CONSTANT DT$_SII = 25+ DECLARE LONG CONSTANT DT$_KFSQSA = 26* DECLARE LONG CONSTANT DT$_KFQSA = 26) DECLARE LONG CONSTANT DT$_SHAC = 27* DECLARE LONG CONSTANT DT$_CIXCD = 28* DECLARE LONG CONSTANT DT$_N5380 = 29* DECLARE LONG CONSTANT DT$_SCSI YI = 30* DECLARE LONG CONSTANT DT$_HSX50 = 31* DECLARE LONG CONSTANT DT$_KDM70 = 31* DECLARE LONG CONSTANT DT$_TM32P = 32* DECLARE LONG CONSTANT DT$_TK7LP = 33* DECLARE LONG CONSTANT DT$_SWIFT = 34+ DECLARE LONG CONSTANT DT$_N53C94 = 35* DECLARE LONG CONSTANT DT$_KFMSA = 360 DECLARE LONG CONSTANT DT$_SCSI_XTENDR = 371 DECLARE LONG CONSTANT DT$_FT_TRACE_RAM = 38) DECLARE LONG CONSTANT DT$_XVIB = 39- DECLARE LONG CONSTANT DT$_XZA_SCSI = Z 40- DECLARE LONG CONSTANT DT$_XZA_DSSI = 41. DECLARE LONG CONSTANT DT$_N710_SCSI = 42. DECLARE LONG CONSTANT DT$_N710_DSSI = 43- DECLARE LONG CONSTANT DT$_AHA1742A = 44- DECLARE LONG CONSTANT DT$_TZA_SCSI = 45. DECLARE LONG CONSTANT DT$_N810_SCSI = 46* DECLARE LONG CONSTANT DT$_CIPCA = 47, DECLARE LONG CONSTANT DT$_ISP1020 = 48, DECLARE LONG CONSTANT DT$_MC_SPUR = 49- DECLARE LONG CONSTANT DT$_PZA_SCSI = 50C DECLARE LONG CONSTANT [DT$_MCSCA = 51 ! MC-SCA port pmdriverC DECLARE LONG CONSTANT DT$_SMCI = 52 ! SMCI port (pbdriver)/ DECLARE LONG CONSTANT DT$_KZPCM_SCSI = 530 DECLARE LONG CONSTANT DT$_SYM896_SCSI = 54- DECLARE LONG CONSTANT DT$_FCP_SCSI = 55. DECLARE LONG CONSTANT DT$_LP7000_FC = 560 DECLARE LONG CONSTANT DT$_SYM895_SCSI = 57/ DECLARE LONG CONSTANT DT$_KZPCA_SCSI = 585 DECLARE LONG CONSTANT DT$_ADAPTEC7892_SCSI = 595 DECLARE LONG CONSTANT DT$_ADAPTEC789 \5_SCSI = 605 DECLARE LONG CONSTANT DT$_ADAPTEC7897_SCSI = 615 DECLARE LONG CONSTANT DT$_ADAPTEC7899_SCSI = 62) DECLARE LONG CONSTANT DT$_CISS = 63/ DECLARE LONG CONSTANT DT$_ISP23XX_FC = 641 DECLARE LONG CONSTANT DT$_LSI1010_SCSI = 651 DECLARE LONG CONSTANT DT$_LSI1030_SCSI = 66/ DECLARE LONG CONSTANT DT$_ISP24XX_FC = 670 DECLARE LONG CONSTANT DT$_LSI106X_SAS = 68- DECLARE LONG CONSTANT DT$_SW_ISCSI = 69. DECLARE LONG CONSTANT DT$_LP ]8000_FC = 70. DECLARE LONG CONSTANT DT$_LP9000_FC = 71. DECLARE LONG CONSTANT DT$_LP9802_FC = 72/ DECLARE LONG CONSTANT DT$_LP10000_FC = 73/ DECLARE LONG CONSTANT DT$_LP11002_FC = 74/ DECLARE LONG CONSTANT DT$_ISP243X_FC = 75. DECLARE LONG CONSTANT DT$_EP2422_FC = 76/ DECLARE LONG CONSTANT DT$_ISP253X_FC = 77( DECLARE LONG CONSTANT DT$_GSP = 78/ DECLARE LONG CONSTANT DT$_ICH10_AHCI = 79/ DECLARE LONG CONSTANT DT$_ISP266X_FC = 80 !  ! MISCELLANEOUS DEVICES ! 9 DECLARE LONG CONSTANT DT$_DN11 = 1 ! AUTODIALER> DECLARE LONG CONSTANT DT$_PV = 2 ! Pseudo keyboard) DECLARE LONG CONSTANT DT$_SFUN9 = 3) DECLARE LONG CONSTANT DT$_USER9 = 40 DECLARE LONG CONSTANT DT$_GENERIC_SCSI = 5+ DECLARE LONG CONSTANT DT$_DMA_520 = 6) DECLARE LONG CONSTANT DT$_T3270 = 7( DECLARE LONG CONSTANT DT$_IPMI = 9, DECLARE LONG CONSTANT DT$_ACPI_SE = 10 ww_N,%DEFINE DDTM$X_TRANSACTION_ID BASIC$OCTAWORD+%DEFINE DDTM$X_UTC_DATE_TIME BASIC$OCTAWORD ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECOR`D* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASICa$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART b END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! : ! Transaction Manager services structure definitions !   H DECLARE LONG CONSTANT DDTM$S_T cID = 16 ! Size of a transaction id ! % ! System services modifier flags ! 5 DECLARE LONG CONSTANT DDTM$M_SYNC = x'00000001'; DECLARE LONG CONSTANT DDTM$M_NONDEFAULT = x'00000002'8 DECLARE LONG CONSTANT DDTM$M_PROCESS = x'00000004'9 DECLARE LONG CONSTANT DDTM$M_VOLATILE = x'00000008'8 DECLARE LONG CONSTANT DDTM$M_RUNDOWN = x'00000010'7 DECLARE LONG CONSTANT DDTM$M_CANCEL = x'00000020'; DECLARE LONG CONSTANT DDTM$M_FULL_STATE = x'00000040' dA DECLARE LONG CONSTANT DDTM$M_BRANCH_UNSYNCHED = x'00000080'< DECLARE LONG CONSTANT DDTM$M_COORDINATOR = x'00000100'7 DECLARE LONG CONSTANT DDTM$M_NOWAIT = x'00000200'< DECLARE LONG CONSTANT DDTM$M_FINAL_STATE = x'00000400'5 DECLARE LONG CONSTANT DDTM$M_LATE = x'80000000', DECLARE LONG CONSTANT DDTM$S_FLAGS = 4 record DDTM$R_FLAGS) ! Synchronous status requested( ! Not the default transaction! ! Process-permanent RM e ! volatile-only state ! forget all RMs! ! Cancel GET operation# ! Full state information& ! Don't need to sync branch! ! Join Coordinating RM' ! Don't wait for termination* ! Get final transaction outcome# ! Fill out to a longword% ! Phase one branch or join\ LONG SYNC_bits ! COMMENT ADDED BY SDL - SYNC_bits contains bits SYNC through LATE end record DDTM$R_FLAGS f ! - ! Resource manager event request options ! ; DECLARE LONG CONSTANT DDTM$M_EV_PREPARE = x'00000001'9 DECLARE LONG CONSTANT DDTM$M_EV_ABORT = x'00000002': DECLARE LONG CONSTANT DDTM$M_EV_COMMIT = x'00000004'A DECLARE LONG CONSTANT DDTM$M_EV_DEFAULT_TRANS = x'00000008'? DECLARE LONG CONSTANT DDTM$M_EV_TRANS_START = x'00000010'1 DECLARE LONG CONSTANT DDTM$S_EVENT_MASK = 4 record DDTM$R_EVENT_MASK" ! Vote request required g ! Abort notificiation! ! Commit notificiation ! New default TID- ! Request transaction start events# ! Fill out to a longwordp LONG EV_PREPARE_bits ! COMMENT ADDED BY SDL - EV_PREPARE_bits contains bits EV_PREPARE through FILL_2" end record DDTM$R_EVENT_MASK  ! . ! $TRANS_EVENT system service event types ! Q DECLARE LONG CONSTANT DDTM$K_TX_PREPARE = 1 ! Prepare transaction requestM DECLARE LONG C hONSTANT DDTM$K_TX_COMMIT = 2 ! Commit transaction orderK DECLARE LONG CONSTANT DDTM$K_TX_ABORT = 3 ! Abort transaction orderU DECLARE LONG CONSTANT DDTM$K_TX_RECOVER_COMMIT = 4 ! Commit order on recoveryS DECLARE LONG CONSTANT DDTM$K_TX_RECOVER_ABORT = 5 ! Abort order on recovery ! * ! Resource manager event report types ! D DECLARE LONG CONSTANT DDTM$K_PREPARE = 1 ! Prepare operationB DECLARE LONG CONSTANT DDTM$K_COMMIT = 2 ! Commit operatiion@ DECLARE LONG CONSTANT DDTM$K_ABORT = 3 ! Abort operationL DECLARE LONG CONSTANT DDTM$K_ONE_PHASE_COMMIT = 4 ! One-phase commitP DECLARE LONG CONSTANT DDTM$K_DEFAULT_CLEARED = 5 ! Tid no longer defaultN DECLARE LONG CONSTANT DDTM$K_DEFAULT_SET = 6 ! Tid now process defaultZ DECLARE LONG CONSTANT DDTM$K_STARTED_DEFAULT = 7 ! New process default transactionX DECLARE LONG CONSTANT DDTM$K_STARTED_NONDEFAULT = 8 ! New nondefault transactionR DECLARE jLONG CONSTANT DDTM$K_RECOVER_COMMITTED = 9 ! Transaction committedO DECLARE LONG CONSTANT DDTM$K_RECOVER_ERROR = 10 ! Error during recoveryR DECLARE LONG CONSTANT DDTM$K_RECOVER_INDOUBT = 11 ! Transaction is indoubtX DECLARE LONG CONSTANT DDTM$K_RECOVER_RESOLVE = 12 ! RM resposible for resolution ! 1 ! Transaction report structure (DECdtm V1.0) ! . DECLARE LONG CONSTANT DDTM$S_ASTDEF = 56N record DDTM$R_ASTDEF ! Transaction event k AST parameter? LONG DDTM$L_ARGLEN ! Structure length= LONG DDTM$A_TID ! Transaction idE LONG DDTM$L_PART_ID ! Participant identifier> LONG DDTM$L_RM_CTX ! RM event ASTPRM= LONG DDTM$L_OPTYPE ! Operation typeI LONG DDTM$L_REASON ! Abort extended reason codeC BASIC$OCTAWORD DDTM$O_UTC_CMT_TIME ! Reserved to DigitalB BASIC l$OCTAWORD DDTM$O_UTC_LATEST ! Reserved to Digital end record DDTM$R_ASTDEF  ! # ! Transaction report structure ! 1 DECLARE LONG CONSTANT DDTM$S_REPORTDEF = 72 record DDTM$R_REPORTDEF? LONG DDTM$L_REPORT_LEN ! Structure length= LONG DDTM$A_TID_PTR ! Transaction id@ LONG DDTM$L_REPORT_ID ! Report identifier> LONG DDTM$L_RM_CONTEXT ! RM event ASTPRM@ LONG DD TM$L_EVENT_TYPE ! Event report typeI LONG DDTM$L_ABORT_REASON ! Abort extended reason codeB BASIC$OCTAWORD DDTM$O_COMMIT_TIME ! Reserved to DigitalB BASIC$OCTAWORD DDTM$O_LATEST_TIME ! Reserved to DigitalK BASIC$QUADWORD DDTM$Q_TX_CLASS ! Transaction class descriptorE BASIC$QUADWORD DDTM$Q_PART_NAME ! RM Instance descriptor! end record DDTM$R_REPORTDEF  wwnS ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED o( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINpG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > q %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! 2 ! $DELPRCSYMDEF - $DELPRC symbol definitions  !  ! -7 DECLARE LONG CONSTANT DELPRC$M_EXIT = x'00000004'9 DECLARE LONG CONSTANT DELPRC$M_NOEXIT = x'00000008'4 DECL ARE LONG CONSTANT DELPRC$S_DELPRCFLAGS = 4 record DELPRCFLAGS9 ! Access mode to start exit functionality with& ! Enable exit functionality- ! Do not enable exit functionality^ LONG MODE_bits ! COMMENT ADDED BY SDL - MODE_bits contains bits MODE through FILL_1 end record DELPRCFLAGS  wws߼ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED t( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINuG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > v %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! @ ! THE FOLLOWING BITS DEFINE THE DEVICE CHARACTERISTICS FOR ! BOTH THE UCBS AND RMS. ! 3 DECLARE LONG CONSTANT DEV$M_REC = x'00000001'3 DECLARE LONG CONSTANT DEV$M_CCL = x'000000 w02'3 DECLARE LONG CONSTANT DEV$M_TRM = x'00000004'3 DECLARE LONG CONSTANT DEV$M_DIR = x'00000008'3 DECLARE LONG CONSTANT DEV$M_SDI = x'00000010'3 DECLARE LONG CONSTANT DEV$M_SQD = x'00000020'3 DECLARE LONG CONSTANT DEV$M_SPL = x'00000040'3 DECLARE LONG CONSTANT DEV$M_OPR = x'00000080'3 DECLARE LONG CONSTANT DEV$M_RCT = x'00000100'4 DECLARE LONG CONSTANT DEV$M_QSVD = x'00000200'5 DECLARE LONG CONSTANT DEV$M_QSVBL = x'00000400'? DECLAR xE LONG CONSTANT DEV$M_MPDEV_SECONDARY = x'00000800'< DECLARE LONG CONSTANT DEV$M_MPDEV_MEMBER = x'00001000'3 DECLARE LONG CONSTANT DEV$M_NET = x'00002000'3 DECLARE LONG CONSTANT DEV$M_FOD = x'00004000'3 DECLARE LONG CONSTANT DEV$M_DUA = x'00008000'3 DECLARE LONG CONSTANT DEV$M_SHR = x'00010000'3 DECLARE LONG CONSTANT DEV$M_GEN = x'00020000'3 DECLARE LONG CONSTANT DEV$M_AVL = x'00040000'3 DECLARE LONG CONSTANT DEV$M_MNT = x'00080000'3 DECLAR yE LONG CONSTANT DEV$M_MBX = x'00100000'3 DECLARE LONG CONSTANT DEV$M_DMT = x'00200000'3 DECLARE LONG CONSTANT DEV$M_ELG = x'00400000'3 DECLARE LONG CONSTANT DEV$M_ALL = x'00800000'3 DECLARE LONG CONSTANT DEV$M_FOR = x'01000000'3 DECLARE LONG CONSTANT DEV$M_SWL = x'02000000'3 DECLARE LONG CONSTANT DEV$M_IDV = x'04000000'3 DECLARE LONG CONSTANT DEV$M_ODV = x'08000000'3 DECLARE LONG CONSTANT DEV$M_RND = x'10000000'3 DECLARE LONG CONSTANT DEV$ zM_RTM = x'20000000'3 DECLARE LONG CONSTANT DEV$M_RCK = x'40000000'3 DECLARE LONG CONSTANT DEV$M_WCK = x'80000000'3 DECLARE LONG CONSTANT DEV$M_CLU = x'00000001'3 DECLARE LONG CONSTANT DEV$M_DET = x'00000002'3 DECLARE LONG CONSTANT DEV$M_RTT = x'00000004'3 DECLARE LONG CONSTANT DEV$M_CDP = x'00000008'2 DECLARE LONG CONSTANT DEV$M_2P = x'00000010'4 DECLARE LONG CONSTANT DEV$M_MSCP = x'00000020'3 DECLARE LONG CONSTANT DEV$M_SSM = x'00000040'3 { DECLARE LONG CONSTANT DEV$M_SRV = x'00000080'3 DECLARE LONG CONSTANT DEV$M_RED = x'00000100'3 DECLARE LONG CONSTANT DEV$M_NNM = x'00000200'3 DECLARE LONG CONSTANT DEV$M_WBC = x'00000400'3 DECLARE LONG CONSTANT DEV$M_WTC = x'00000800'3 DECLARE LONG CONSTANT DEV$M_HOC = x'00001000'3 DECLARE LONG CONSTANT DEV$M_LOC = x'00002000'3 DECLARE LONG CONSTANT DEV$M_DFS = x'00004000'3 DECLARE LONG CONSTANT DEV$M_DAP = x'00008000'3 DECLARE LONG C |ONSTANT DEV$M_NLT = x'00010000'3 DECLARE LONG CONSTANT DEV$M_SEX = x'00020000'3 DECLARE LONG CONSTANT DEV$M_SHD = x'00040000'3 DECLARE LONG CONSTANT DEV$M_VRT = x'00080000'3 DECLARE LONG CONSTANT DEV$M_LDR = x'00100000'4 DECLARE LONG CONSTANT DEV$M_NOLB = x'00200000'5 DECLARE LONG CONSTANT DEV$M_NOCLU = x'00400000'4 DECLARE LONG CONSTANT DEV$M_VMEM = x'00800000'4 DECLARE LONG CONSTANT DEV$M_SCSI = x'01000000'3 DECLARE LONG CONSTANT DEV$M_WLG }= x'02000000'4 DECLARE LONG CONSTANT DEV$M_NOFE = x'04000000'6 DECLARE LONG CONSTANT DEV$M_FILL_2 = x'08000000'6 DECLARE LONG CONSTANT DEV$M_CRAMIO = x'10000000'3 DECLARE LONG CONSTANT DEV$M_DTN = x'20000000'6 DECLARE LONG CONSTANT DEV$M_FILL_3 = x'40000000'8 DECLARE LONG CONSTANT DEV$M_POOL_MBR = x'80000000', DECLARE LONG CONSTANT DEV$S_DEVDEF = 4 record DEVDEF variant case' group DEV$R_DEVDEF_BITS0- ~ ! DEVICE RECORD ORIENTED . ! CARRIAGE CONTROL DEVICE + ! DEVICE IS A TERMINAL 5 ! DEVICE IS DIRECTORY STRUCTURED < ! DEVICE IS SINGLE DIRECTORY STRUCTURED G ! SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) + ! DEVICE BEING SPOOLED , ! DEVICE IS AN OPERATOR @ ! DISK CONTAINS RCT (DEC STANDARD 166 DISK) : ! Cl ient device is served by QIOserver< ! Server device is servable by QIOserverA ! Indicates secondary unit in a multipath set8 ! Device is part of a multipath set.% ! NETWORK DEVICE @ ! FILES-ORIENTED DEVICE (I.E., DISK AND MT) , ! DEVICE IS DUAL PORTED ' ! DEVICE SHAREABLE 1 ! DEVICE IS A GENERIC DEVICE / ! DEVICE AVAILAB LE FOR USE ( ! DEVICE IS MOUNTED * ! DEVICE IS A MAILBOX 1 ! DEVICE MARKED FOR DISMOUNT 7 ! DEVICE HAS ERROR LOGGING ENABLED * ! DEVICE IS ALLOCATED L ! DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) 6 ! DEVICE IS SOFTWARE WRITE LOCKED 8 ! DEVICE CAPABLE OF PROVIDING INPUT 9 ! DEVICE CAPABLE OF PROVIDING OUTPUT 2  ! DEVICE ALLOWS RANDOM ACCESS 3 ! DEVICE IS REALTIME IN NATURE 7 ! DEVICE HAS READ CHECKING ENABLED 8 ! DEVICE HAS WRITE CHECKING ENABLED a LONG REC_bits ! COMMENT ADDED BY SDL - REC_bits contains bits REC through WCK+ end group DEV$R_DEVDEF_BITS0 case' group DEV$R_DEVDEF_BITS16 ! DEVICE IS AVAILABLE CLUSTER-WIDE1 ! DEVICE IS DETACHED TERMINAL> ! DEVICE HAS REMOTE TERMINAL UCB EXTENSION2 ! DUAL PATH DEVICE WITH 2 UCBs8 ! TWO PATHS ARE KNOWN TO THIS DEVICE? ! DEVICE ACCESSED USING MSCP (disk or tape)E ! this bit was set for Phase I (controller-based)0 ! shadowing only. This bit is not set for0 ! Phase II (host-based) shadowing; Phase II$ ! sets the SHD bit (see below).: ! DEVI CE IS SERVED VIA THE MSCP SERVER3 ! DEVICE IS redirected terminal0 ! DEVICE HAS "node$" PREFIX 8 ! DEVICE SUPPORTS WRITE-BACK CACHING; ! DEVICE SUPPORTS WRITE-THROUGH CACHING2 ! DEVICE SUPPORTS HOST CACHINGK ! DEVICE ACCESSIBLE VIA LOCAL (NON-EMULATED) CONTROLLER* ! DEVICE IS DFS-SERVED, ! DEVICE IS DAP ACCESSEDH ! DEVICE  IS NOT-LAST-TRACK (I.E. IT HAS NO BAD BLOCK% ! INFORMATION ON ITS LAST TRACK)G ! DEVICE (tape) SUPPORTS SERIOUS EXCEPTION HANDLINGC ! DEVICE IS A MEMBER OF A HOST BASED SHADOW SET9 ! DEVICE IS A SHADOW SET VIRTUAL UNIT, ! LOADER PRESENT (TAPES)C ! DEVICE IGNORES SERVER LOAD BALANCING REQUESTSA ! DEVICE WILL NEVER BE AVAILABLE CLUSTER-WIDE9 ! Virtual me mber of a constituent set- ! DEVICE IS A SCSI DEVICEN ! DEVICE HAS MSCP Based (Phase I) WRITE LOGGING CAPABILITY9 ! DEVICE DOESN'T SUPPORT FORCED ERROR@ ! Reserved for: Allocation in progress (MME)* ! Performs Mailbox I/O? ! Device has DDR Device Type Name available5 ! Unit is bound to a storage poolf LONG CLU_bits ! COMMENT ADDED BY SDL - CLU_bits contains bits CLU through POOL_MBR+ end group DEV$R_DEVDEF_BITS1 end variant end record DEVDEF  ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ++ ! DEVICE INFORMATION BLOCK DEFINITIONS ! -I DECLARE LONG CONSTANT DIB$K_LENGTH = 116 ! LENGTH OF TOTAL BUFFER I DECLARE LONG CONSTANT DIB$C_LENGTH = 116 ! LENGTH OF TOTAL BUFFER . DECLARE LONG CONSTANT DIB$S_DIBDEF = 116 record DIBDEFE LONG DIB$L_DEVCHAR ! DEVICE CHARACTERISTICS ; BYTE DIB$B_DEVCLASS ! DEVICE CLASS : BYTE DIB$B_DEVTYPE ! DEVICE TYPE A WORD DIB$W_DEVBUFSIZ ! DEVICE BUFFER SIZE & group DIB$R_DEVDEPEND_OVERLAY variant caseK LONG DIB$L_DEVDEPEND ! DEVICE DEPENDENT INFORMATION   case. group DIB$R_DEVDEPEND_FIELDSL BYTE DIB$B_SECTORS ! (DISK ONLY) SECTORS PER TRACK E BYTE DIB$B_TRACKS ! " TRACKS PER CYLINDER E WORD DIB$W_CYLINDERS ! " NUMBER OF CYLINDERS 2 end group DIB$R_DEVDEPEND_FIELDS end variant* end group DIB$R_DEVDEPEND_OVERLAYA WORD DIB$W_UNIT ! DEVICE UNIT NUMBER S WORD DIB$W_DEVNAMOFF  ! OFFSET TO DEVICE NAME COUNTED STRING R LONG DIB$L_PID ! DEVICE OWNER PROCESS IDENTIFICATION T LONG DIB$L_OWNUIC ! DEVICE OWNER USER IDENTIFICATION CODE E WORD DIB$W_VPROT ! DEVICE PROTECTION MASK A WORD DIB$W_ERRCNT ! DEVICE ERROR COUNT F LONG DIB$L_OPCNT ! DEVICE OPERATIONS COUNT T WORD DIB$W_VOLNAMOFF ! OFFSET TO VOLUME LABEL COUNTED STRING B WORD DIB$W_RECSIZ ! BLOCKED RECORD SIZE R STRING DIB$T_DEVNAME = 76 ! SPACE FOR DEVNAME AND LABEL (64+12) I LONG DIB$L_MAXBLOCK ! DISK VOLUME SIZE IN BLOCKS  end record DIBDEF  ww6 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  - DECLARE LONG CONSTANT dirent$k_name = 10 DECLARE LONG CONSTANT dirent$k_version = 2/ DECLARE LONG CONSTANT dirent$s_dirent = 4 record dirent WORD dirent$iw_size WORD dirent$iw_type end record dirent 8 DECLARE LONG CONSTANT dirent_nam$s_dirent_nam = 13 record dirent_nam WORD dirent_nam$iw_size WORD dirent_nam$iw_type) WORD dirent_nam$iw_version_limit WORD dirent_nam$IW_FILL' LONG dirent_nam$il_name_length0 STRING dirent_nam$t_name ( 1 to 1 ) = 1 end record dirent_nam - DECLARE LONG CONSTANT dirent$k_file = 12 DECLARE LONG CONSTANT dirent$k_directory = 28  DECLARE LONG CONSTANT dirent_ver$s_dirent_ver = 16 record dirent_ver WORD dirent_ver$iw_size WORD dirent_ver$iw_type# WORD dirent_ver$iw_version$ WORD dirent_ver$iw_obj_type WORD dirent_ver$IW_FILL' group dirent_ver$r_fid_overlay variant case3 WORD dirent_ver$iw_fid ( 1 to 3 ) case/ group dirent_ver$r_fid_fields/ WORD dirent_v er$iw_fid_num/ WORD dirent_ver$iw_fid_seq7 group dirent_ver$r_fid_rvn_overlay variant case5 WORD dirent_ver$iw_fid_rvn case< group dirent_ver$r_fid_rvn_fields8 BYTE dirent_ver$ib_fid_rvn8 BYTE dirent_ver$ib_fid_nmx@ end group dirent_ver$r_fid_ rvn_fields# end variant; end group dirent_ver$r_fid_rvn_overlay3 end group dirent_ver$r_fid_fields end variant+ end group dirent_ver$r_fid_overlay end record dirent_ver  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ; ! FLAG BITS FOR THE $DISMOU (DISMOUNT) SYSTEM SERVICE. ! 8 DECLARE LONG CONSTANT DMT$M_NOUNLOAD = x'00000001'4 DECLARE LONG CONSTANT DMT$M_UNIT = x'00000002'5 DECLARE LONG CONSTAN T DMT$M_ABORT = x'00000004'7 DECLARE LONG CONSTANT DMT$M_CLUSTER = x'00000008'6 DECLARE LONG CONSTANT DMT$M_UNLOAD = x'00000010': DECLARE LONG CONSTANT DMT$M_OVR_CHECKS = x'00000020': DECLARE LONG CONSTANT DMT$M_CHECK_ONLY = x'00000040'6 DECLARE LONG CONSTANT DMT$M_REMOTE = x'00000080'A DECLARE LONG CONSTANT DMT$M_MINICOPY_REQUIRED = x'00000100'A DECLARE LONG CONSTANT DMT$M_MINICOPY_OPTIONAL = x'00000200'5 DECLARE LONG CONSTANT DMT$M_FORCE = x'000004 00', DECLARE LONG CONSTANT DMT$S_DMTDEF = 2 record DMTDEF variant case& group DMT$R_DMTDEF_BITS; ! DO NOT UNLOAD (SPIN DOWN) THE VOLUME 9 ! DISMOUNT ONLY THE SPECIFIED VOLUME & ! FORCED DISMOUNT + ! CLUSTER-WIDE DISMOUNT= ! EXPLICIT UNLOAD (OVERRIDE UCB$x_UNLOAD)/ ! OVERRIDE OPEN FILE CHECKS@ ! CHECK ONLY F OR OPEN FILES - DON'T DISMOUNTM ! CURRENT DISMOUNTER IS REMOTE WITH RESPECT TO ORIGINATOR% ! BITMAP REQUIRED% ! BITMAP OPTIONAL+ ! FORCE dismount of SSMv WORD NOUNLOAD_bits ! COMMENT ADDED BY SDL - NOUNLOAD_bits contains bits NOUNLOAD through FILL_117_* end group DMT$R_DMTDEF_BITS end variant end record DMTDEF  wwr ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! " ! Get Device path information !  ! **** NOTE **** ! K ! New items must always be added at the END of the list so that- ! users will not have to rebuild . !  ! -^ DECLARE LONG CONSTANT DPS$_MP_PATHNAME = 1 ! Device path name  ! B ! *** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** !  wwE ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! DTI flag definitions !  ! Item list definitionsF DECLARE LONG CONSTANT DTI$_ENDITEM = 0 ! End of item list codeX DECLARE LONG CONSTANT DTI$_TRANSACTION_INFORMATION = 1 ! Active transaction listS DECLARE LONG CONSTANT DTI$_CURRENT_TID = 2 ! Current transaction identifierX DECLARE LONG CONSTANT DTI$_MEMBERSHIP_COUNT = 3 ! # members still in transactionU DECLARE LONG CONSTANT DTI$_BRANCH_COUNT = 4 ! # branches still in transactionA DECLARE LONG CONSTANT DTI$_ROOT_NODE_NAME = 5 ! Root nodeM DECLARE LONG CONSTANT DTI$_STARTING_TIME = 6 ! Transaction start time3 DECLARE LONG CONSTANT dti$K_MAX_ITEM_CODE = 6 ! Transaction  states* DECLARE LONG CONSTANT DTI$K_NULL = 0A DECLARE LONG CONSTANT DTI$K_STARTING = 1 ! Starting state= DECLARE LONG CONSTANT DTI$K_ACTIVE = 2 ! Active stateQ DECLARE LONG CONSTANT DTI$K_ONE_P_COMMITTING = 3 ! Committing (one-phase)C DECLARE LONG CONSTANT DTI$K_PREPARING = 4 ! Preparing stateA DECLARE LONG CONSTANT DTI$K_PREPARED = 5 ! Prepared stateE DECLARE LONG CONSTANT DTI$K_COMMITTING = 6 ! Committing stateC DECLARE LONG CONSTAN T DTI$K_COMMITTED = 7 ! Committed stateO DECLARE LONG CONSTANT DTI$K_ONE_P_COMMITTED = 8 ! Committed (one-phase)A DECLARE LONG CONSTANT DTI$K_ABORTING = 9 ! Aborting stateM DECLARE LONG CONSTANT DTI$K_ABORTED = 10 ! Aborted or forgotten stateV DECLARE LONG CONSTANT DTI$K_IN_DOUBT = 11 ! Transaction has prepared and RM is) ! coordinator; resolution must come ! from external entity ! SET item codesE DECLARE LONG CONSTANT DTI$K_ILLEGAL = 0  ! Make code 0 illegalO DECLARE LONG CONSTANT DTI$K_DELETE_TRANSACTION = 1 ! Delete transactionP DECLARE LONG CONSTANT DTI$K_DELETE_RM_NAME = 2 ! Delete resource managerO DECLARE LONG CONSTANT DTI$K_MODIFY_STATE = 3 ! Modify transaction stateO DECLARE LONG CONSTANT DTI$K_DELETE_BRANCH_NODE = 4 ! Delete branch node` DECLARE LONG CONSTANT DTI$K_SET_CURRENT_TID = 5 ! Set the current transaction identifier2 DECLARE LONG CONSTANT DTI$K_MAX_SET_CODE = 5?  DECLARE LONG CONSTANT DTI$M_SEARCH_STARTING = x'00000001'= DECLARE LONG CONSTANT DTI$M_SEARCH_ACTIVE = x'00000002'C DECLARE LONG CONSTANT DTI$M_SEARCH_1P_COMITTING = x'00000004'@ DECLARE LONG CONSTANT DTI$M_SEARCH_PREPARING = x'00000008'? DECLARE LONG CONSTANT DTI$M_SEARCH_PREPARED = x'00000010'A DECLARE LONG CONSTANT DTI$M_SEARCH_COMMITTING = x'00000020'@ DECLARE LONG CONSTANT DTI$M_SEARCH_COMMITTED = x'00000040'C DECLARE LONG CONSTANT DTI$M_SEARCH_1P_COMMITTED = x'00000080'? DECLARE LONG CONSTANT DTI$M_SEARCH_ABORTING = x'00000100'> DECLARE LONG CONSTANT DTI$M_SEARCH_ABORTED = x'00000200'E DECLARE LONG CONSTANT DTI$_ENDSEARCH = 0 ! End of search listF DECLARE LONG CONSTANT DTI$_SEARCH_AS_NODE = 1 ! Search as nodea DECLARE LONG CONSTANT DTI$_SEARCH_CURRENT_TID = 2 ! Search current transaction identifierQ DECLARE LONG CONSTANT DTI$_SEARCH_TID = 3 ! Search transaction identifierO DECLARE LONG C ONSTANT DTI$_SEARCH_RM_NAME = 4 ! Search resource managerT DECLARE LONG CONSTANT DTI$_SEARCH_BRANCH_NAME = 5 ! Search branch node namesB DECLARE LONG CONSTANT DTI$_SEARCH_STATE = 6 ! Search stateT DECLARE LONG CONSTANT DTI$_SEARCH_RESOLVED_STATE = 7 ! Search resolved state5 DECLARE LONG CONSTANT DTI$K_MAX_SEARCH_CODE = 72 DECLARE LONG CONSTANT DTI$S_DTISEARCHDEF = 2@ record DTISEARCHDEF ! Search list codes ! Starting state ! Active state ! 1P Committing state ! Preparing state ! Prepared state ! Committing state ! Committed state ! 1P Committed state ! Aborting state ! Aborted state# ! Search item list definitions WORD SEARCH_STARTING_bits ! COMMENT ADDED BY SDL - SEARCH_STARTING_bits contains bits SEARCH_STARTING through FILL_118_ end record DTISEARCHDEF 6 DECLARE LONG CON STANT DTI$M_UPDATE = x'00000001'8 DECLARE LONG CONSTANT DTI$M_LOCAL_RM = x'00000002'k DECLARE LONG CONSTANT DTI$S_TRANSACTION_INFORMATION = 84 ! length of transaction information record0 DECLARE LONG CONSTANT DTI$S_DTIRECDEF = 84Y record DTIRECDEF ! Transaction information record definitions group DTI$R_FILL_119_ variant case= WORD DTI$W_FLAGS ! Modifier flags case'  group DTI$R_FILL_120_A ! Delete resource manager from transaction< ! Participant type (1 = RM, 0 = node)s BYTE UPDATE_bits ! COMMENT ADDED BY SDL - UPDATE_bits contains bits UPDATE through FILL_121_+ end group DTI$R_FILL_120_ end variant" end group DTI$R_FILL_119_@ BYTE DTI$B_STATE ! Transaction stateI BYTE DTI$B_PART_NAME_LEN ! Length of participant name? STRING DTI$T_PART_NAME = 32 ! Participant nameA STRING DTI$T_PART_LOG_ID = 16 ! Participant log id= STRING DTI$T_TID = 16 ! Transaction IDA BASIC$OCTAWORD DTI$O_UTC_COMMIT_TIME ! UTC commit time end record DTIRECDEF  wwz ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! D ! Get Device and Volume Information Data Identifier Definitions !  ! **** NOTE **** ! K ! New items must always be added at the END of the list so that- !  users will not have to rebuild. !  ! -Z DECLARE LONG CONSTANT DVI$_DEVCHAR = 2 ! Device characteristics - VALUE - 4 bytes P DECLARE LONG CONSTANT DVI$_DEVCLASS = 4 ! Device class - VALUE - 1 byte N DECLARE LONG CONSTANT DVI$_DEVTYPE = 6 ! Device type - VALUE - 1 byte X DECLARE LONG CONSTANT DVI$_DEVBUFSIZ = 8 ! Device buffer size - VALUE - 2 bytes c DECLARE LONG CONSTANT DVI$_DEVDEPEND = 10 ! Device dependent information - VALUE - 4 bytes M  DECLARE LONG CONSTANT DVI$_UNIT = 12 ! Unit number - VALUE - 4 bytes h DECLARE LONG CONSTANT DVI$_PID = 14 ! Process identification of device owner - VALUE - 4 bytes W DECLARE LONG CONSTANT DVI$_OWNUIC = 16 ! UIC of device owner - VALUE - 4 bytes Y DECLARE LONG CONSTANT DVI$_VPROT = 18 ! Volume protection mask - VALUE - 2 bytes O DECLARE LONG CONSTANT DVI$_ERRCNT = 20 ! Error count - VALUE - 2 bytes R DECLARE LONG CONSTANT DVI$_OPCNT = 22 ! Operation count - VALUE - 4 bytes W DECLARE LONG CONSTANT DVI$_RECSIZ = 24 ! Blocked record size - VALUE - 2 bytes s DECLARE LONG CONSTANT DVI$_MAXBLOCK = 26 ! Number of logical blocks on the volume (disk) - VALUE - 4 bytes h DECLARE LONG CONSTANT DVI$_DEVDEPEND2 = 28 ! Additional device dependent data - VALUE - 4 bytes ` DECLARE LONG CONSTANT DVI$_REFCNT = 30 ! Reference count of processes - VALUE - 2 bytes Q DECLARE LONG CONSTANT DVI$_DEVNAM = 32 ! Device name - STRING - 64 bytes Q DECLARE LONG CONSTANT DVI$_VOLNAM = 34 ! Volume name - STRING - 12 bytes f DECLARE LONG CONSTANT DVI$_SECTORS = 36 ! Number of sectors per track (disk) - VALUE - 1 byte g DECLARE LONG CONSTANT DVI$_TRACKS = 38 ! Number of tracks per cylinder (disk) - VALUE - 1 byte o DECLARE LONG CONSTANT DVI$_CYLINDERS = 40 ! Number of cylinders on the volume (disk) - VALUE - 2 bytes r DECLARE LONG CONSTANT DVI$_FREEBLOCKS = 42 ! Number of free blocks on the volume (disk) - VALUE - 4 bytes \ DECLARE LONG CONSTANT DVI$_LOGVOLNAM = 44 ! Logical volume name - STRING - 64 bytes p DECLARE LONG CONSTANT DVI$_VOLNUMBER = 46 ! Number of this volume in volume set (disk) - VALUE - 4 byte j DECLARE LONG CONSTANT DVI$_VOLCOUNT = 48 ! Count of volumes in volume set (disk) - VALUE - 4 byte y DECLARE LONG CONSTANT DVI$_ROOTDEVNAM = 50 ! Device name of root volume in volume set (disk) - STRING - 64 bytes y DECLARE LONG CONSTANT DVI$_NEXTDEVNAM = 52 ! Device name of next volume in volume set (disk) - STRING - 64 bytes ^ DECLARE LONG CONSTANT DVI$_TRANSCNT = 54 ! Volume Transaction Count - VALUE - 2 bytes Q DECLARE LONG CONSTANT DVI$_MOUNTCNT = 56 ! Mount count - VALUE - 2 bytes _ DECLARE LONG CONSTANT DVI$_CLUSTER = 58 ! Volume Cluster Size (disk) - VALUE - 2 bytes d DECLARE LONG CONSTANT DVI$_MAXFILES = 60 ! Maximum Files on Volume (disk) - VALUE - 4 bytes b DECLARE LONG CONSTANT DVI$_SER IALNUM = 62 ! Volume Serial Number (disk) - VALUE - 4 bytes R DECLARE LONG CONSTANT DVI$_ACPPID = 64 ! ACP Process ID - VALUE - 4 bytes Q DECLARE LONG CONSTANT DVI$_ACPTYPE = 66 ! ACP type code - VALUE - 1 byte c DECLARE LONG CONSTANT DVI$_CONCEALED = 68 ! Device is a concealed device - BOOLEAN - 1 byte ! K ! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVCHAR LONGWORD ! F DECLARE LONG CONSTANT DVI$_REC = 70 ! DEVICE RECORD ORIENTED G DECLARE LONG CONSTANT DVI$_CCL = 72 ! CARRIAGE CONTROL DEVICE D DECLARE LONG CONSTANT DVI$_TRM = 74 ! DEVICE IS A TERMINAL N DECLARE LONG CONSTANT DVI$_DIR = 76 ! DEVICE IS DIRECTORY STRUCTURED U DECLARE LONG CONSTANT DVI$_SDI = 78 ! DEVICE IS SINGLE DIRECTORY STRUCTURED ` DECLARE LONG CONSTANT DVI$_SQD = 80 ! SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) D DECLARE LONG CONSTANT DVI$_SPL = 82 ! DEVICE BEING SPOOLED E DECLARE LONG CONSTANT DVI$_OPR = 84 ! DEVICE IS AN OPERATOR Y DECLARE LONG CONSTANT DVI$_RCT = 86 ! DISK CONTAINS RCT (DEC STANDARD 166 DISK) > DECLARE LONG CONSTANT DVI$_NET = 88 ! NETWORK DEVICE Y DECLARE LONG CONSTANT DVI$_FOD = 90 ! FILES-ORIENTED DEVICE (I.E., DISK AND MT) E DECLARE LONG CONSTANT DVI$_DUA = 92 ! DEVICE IS DUAL PORTED @ DECLARE LONG CONSTANT DVI$_SHR = 94 ! DEVICE SHAREABLE J DECLARE LONG CONSTANT DVI$_GEN = 96 ! DEVICE IS A GENERIC DEVICE H  DECLARE LONG CONSTANT DVI$_AVL = 98 ! DEVICE AVAILABLE FOR USE A DECLARE LONG CONSTANT DVI$_MNT = 100 ! DEVICE IS MOUNTED C DECLARE LONG CONSTANT DVI$_MBX = 102 ! DEVICE IS A MAILBOX J DECLARE LONG CONSTANT DVI$_DMT = 104 ! DEVICE MARKED FOR DISMOUNT P DECLARE LONG CONSTANT DVI$_ELG = 106 ! DEVICE HAS ERROR LOGGING ENABLED C DECLARE LONG CONSTANT DVI$_ALL = 108 ! DEVICE IS ALLOCATED e DECLARE LONG CONSTANT DVI$_FOR = 110 ! DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) O DECLARE LONG CONSTANT DVI$_SWL = 112 ! DEVICE IS SOFTWARE WRITE LOCKED Q DECLARE LONG CONSTANT DVI$_IDV = 114 ! DEVICE CAPABLE OF PROVIDING INPUT R DECLARE LONG CONSTANT DVI$_ODV = 116 ! DEVICE CAPABLE OF PROVIDING OUTPUT K DECLARE LONG CONSTANT DVI$_RND = 118 ! DEVICE ALLOWS RANDOM ACCESS L DECLARE LONG CONSTANT DVI$_RTM = 120 ! DEVICE IS REALTIME IN NATURE P DECLARE LONG CONSTANT DVI$_RCK = 122 ! DEVICE HAS READ CHE CKING ENABLED Q DECLARE LONG CONSTANT DVI$_WCK = 124 ! DEVICE HAS WRITE CHECKING ENABLED  ! N ! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND LONGWORD; ! * (AS DEFINED FOR TERMINALS: TTDEF IN STARDEFQZ.SDL) ! 1 DECLARE LONG CONSTANT DVI$_TT_PASSALL = 1260 DECLARE LONG CONSTANT DVI$_TT_NOECHO = 1283 DECLARE LONG CONSTANT DVI$_TT_NOTYPEAHD = 1300 DECLARE LONG CONSTANT DVI$_TT_ESCAPE = 1322 DECLARE LONG CONSTANT DVI$_TT_HOSTSY NC = 1340 DECLARE LONG CONSTANT DVI$_TT_TTSYNC = 1360 DECLARE LONG CONSTANT DVI$_TT_SCRIPT = 138/ DECLARE LONG CONSTANT DVI$_TT_LOWER = 1401 DECLARE LONG CONSTANT DVI$_TT_MECHTAB = 142. DECLARE LONG CONSTANT DVI$_TT_WRAP = 1440 DECLARE LONG CONSTANT DVI$_TT_CRFILL = 1460 DECLARE LONG CONSTANT DVI$_TT_LFFILL = 148/ DECLARE LONG CONSTANT DVI$_TT_SCOPE = 1500 DECLARE LONG CONSTANT DVI$_TT_REMOTE = 1522 DECLARE LONG CONSTANT DVI$_TT_EIGHTBIT =  1542 DECLARE LONG CONSTANT DVI$_TT_MBXDSABL = 1562 DECLARE LONG CONSTANT DVI$_TT_NOBRDCST = 1582 DECLARE LONG CONSTANT DVI$_TT_READSYNC = 1602 DECLARE LONG CONSTANT DVI$_TT_MECHFORM = 1621 DECLARE LONG CONSTANT DVI$_TT_HALFDUP = 164/ DECLARE LONG CONSTANT DVI$_TT_MODEM = 166. DECLARE LONG CONSTANT DVI$_TT_OPER = 168. DECLARE LONG CONSTANT DVI$_TT_PAGE = 170 ! O ! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND2 LONGWORD< ! * (AS DEFINED FOR TERMINALS: TT2DEF IN STARDEFQZ.SDL) ! 3 DECLARE LONG CONSTANT DVI$_TT_LOCALECHO = 1722 DECLARE LONG CONSTANT DVI$_TT_AUTOBAUD = 1740 DECLARE LONG CONSTANT DVI$_TT_HANGUP = 1763 DECLARE LONG CONSTANT DVI$_TT_MODHANGUP = 1783 DECLARE LONG CONSTANT DVI$_TT_BRDCSTMBX = 180- DECLARE LONG CONSTANT DVI$_TT_DMA = 1823 DECLARE LONG CONSTANT DVI$_TT_ALTYPEAHD = 1842 DECLARE LONG CONSTANT DVI$_TT_SETSPEED = 186X DECLARE LONG CON STANT DVI$_TT_DCL_MAILBX = 188 ! TEMP DEFINITIONS FOR DCL SPAWN 1 DECLARE LONG CONSTANT DVI$_TT_EDITING = 1900 DECLARE LONG CONSTANT DVI$_TT_INSERT = 1922 DECLARE LONG CONSTANT DVI$_TT_FALLBACK = 1940 DECLARE LONG CONSTANT DVI$_TT_DIALUP = 1960 DECLARE LONG CONSTANT DVI$_TT_SECURE = 1984 DECLARE LONG CONSTANT DVI$_TT_DISCONNECT = 2001 DECLARE LONG CONSTANT DVI$_TT_PASTHRU = 202/ DECLARE LONG CONSTANT DVI$_TT_SIXEL = 204. DECLARE LONG CONSTANT DVI$_TT_DRCS = 2061 DECLARE LONG CONSTANT DVI$_TT_PRINTER = 2084 DECLARE LONG CONSTANT DVI$_TT_APP_KEYPAD = 2100 DECLARE LONG CONSTANT DVI$_TT_SYSPWD = 2121 DECLARE LONG CONSTANT DVI$_TT_ANSICRT = 214/ DECLARE LONG CONSTANT DVI$_TT_REGIS = 216/ DECLARE LONG CONSTANT DVI$_TT_BLOCK = 218- DECLARE LONG CONSTANT DVI$_TT_AVO = 220. DECLARE LONG CONSTANT DVI$_TT_EDIT = 2220 DECLARE LONG CONSTANT DVI$_TT_DECCRT = 224 ! . ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! > DECLARE LONG CONSTANT DVI$_STS = 226 ! STATUS LONGWORDD DECLARE LONG CONSTANT DVI$_DEVSTS = 228 ! DEVICE STATUS WORDm DECLARE LONG CONSTANT DVI$_DEVCHAR2 = 230 ! Second device characteristics longword - VALUE - 4 bytes Q DECLARE LONG CONSTANT DVI$_FULLDEVNAM = 232 ! Fully qualified device nameR DECLARE LONG CONSTANT DVI$_LOCKID = 234 ! Device lock id - VALUE - 4 bytesS DECLARE LONG CONSTANT DVI$_ALLDEVNAM = 236 ! Allocat ion class + device nameF DECLARE LONG CONSTANT DVI$_VOLSETMEM = 238 ! Volume set memberF DECLARE LONG CONSTANT DVI$_DEVLOCKNAM = 240 ! Device lock name ! P ! * THE FOLLOWING CODES SUPPORT FEATURES OF DUAL-PATH AND SHADOW-SET DEVICES ! R DECLARE LONG CONSTANT DVI$_ALLOCLASS = 242 ! Allocation class of host(s) R DECLARE LONG CONSTANT DVI$_ALT_HOST_AVAIL = 244 ! Alternate host is active\ DECLARE LONG CONSTANT DVI$_ALT_HOST_NAME = 246 ! Name of host serving alternate pathO DECLARE LONG CONSTANT DVI$_ALT_HOST_TYPE = 248 ! Type of alternate hostL DECLARE LONG CONSTANT DVI$_HOST_AVAIL = 250 ! Primary host is activeS DECLARE LONG CONSTANT DVI$_HOST_COUNT = 252 ! Number of paths to the deviceZ DECLARE LONG CONSTANT DVI$_HOST_NAME = 254 ! Name of host serving the primary pathy DECLARE LONG CONSTANT DVI$_HOST_TYPE = 256 ! Type of primary host (today one of "V785", "V780", "V750" or "HS50")^ DECLARE LONG CONSTANT DVI$_REMOTE_DEVICE = 258 ! Device is not connected to local nodeX DECLARE LONG CONSTANT DVI$_SERVED_DEVICE = 260 ! Device is served to the cluster\ DECLARE LONG CONSTANT DVI$_SHDW_CATCHUP_COPYING = 262 ! Catch-up copy is in progressg DECLARE LONG CONSTANT DVI$_SHDW_MASTER = 264 ! Device is "virtual" master device for shadow setp DECLARE LONG CONSTANT DVI$_SHDW_MASTER_NAME = 266 ! Name of the "virtual" master device for a shadow setg DECLARE LONG CONSTANT DVI$_SHDW_MEMBER = 268 ! Device is one of the volumes making a shadow setW DECLARE LONG CONSTANT DVI$_SHDW_MERGE_COPYING = 270 ! Merge copy is in progressc DECLARE LONG CONSTANT DVI$_SHDW_NEXT_MBR_NAME = 272 ! Name of the next device in shadow set ! . ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! i DECLARE LONG CONSTANT DVI$_TT_PHYDEVNAM = 274 ! Terminal physical device name - STRING - 64 bytesf DECLARE LONG CONSTANT DVI$_TT_DECCRT2 = 276 ! DEC_CRT level 2 part of devdepend2 longword for  ! terminals.n DECLARE LONG CONSTANT DVI$_MEDIA_NAME = 278 ! Decoded media name from UCB$L_MEDIA_ID field (ie. RK07 )l DECLARE LONG CONSTANT DVI$_MEDIA_TYPE = 280 ! Decoded media type from UCB$L_MEDIA_ID field (ie. DM )[ DECLARE LONG CONSTANT DVI$_MEDIA_ID = 282 ! NONdecoded media id from UCB$L_MEDIA_ID ! m DECLARE LONG CONSTANT DVI$_SHDW_FAILED_MEMBER = 284 ! Member unit has been failed out from shadow sete DECLARE LONG CONSTANT DVI$_MSCP_UNIT_NUMBER = 286 ! MSCP unit number of device (internal hash8 ! value, not useful for customers or applications)d DECLARE LONG CONSTANT DVI$_DISPLAY_DEVNAM = 288 ! A displayable device name, useful for user$ ! displays but not for $ASSIGNe DECLARE LONG CONSTANT DVI$_TT_ACCPORNAM = 290 ! Name of local port on remote system. Counted4 ! string in remote native format, ie: LAT, X.29Q DECLARE LONG CONSTANT DVI$_DEVDEPEND3 = 292 ! Device dependent longword 3Q DECLARE LONG CONSTANT DVI$_TT_MULTISESSION = 294 ! Multi-session terminalK DECLARE LONG CONSTANT DVI$_TT_DECCRT3 = 296 ! VT3xx series terminal[ DECLARE LONG CONSTANT DVI$_SET_HOST_TERMINAL = 298 ! SET HOST session terminal T DECLARE LONG CONSTANT DVI$_DFS_ACCESS = 300 ! DFS client access point device^ DECLARE LONG CONSTANT DVI$_DAPDEVNAM = 302 ! DAP device name, used to store the remote3 ! name string of a device that is  accessed via1 ! the DAP protocol (without DECnet), such as ! certain console disks.K DECLARE LONG CONSTANT DVI$_TT_DECCRT4 = 304 ! VT4xx series terminalX DECLARE LONG CONSTANT DVI$_TT_CHARSET = 306 ! Terminal character set information ! O ! * The following codes are the individual bits of the TT_CHARSET longword3 ! * in the terminal UCB (as defined in TTCDEF) ! P DECLARE LONG CONSTANT DVI$_TT_CS_KANA = 308 ! Support Kana character setR  DECLARE LONG CONSTANT DVI$_TT_CS_KANJI = 310 ! Support Kanji character setR DECLARE LONG CONSTANT DVI$_TT_CS_HANZI = 312 ! Support Hanzi character setT DECLARE LONG CONSTANT DVI$_TT_CS_HANGUL = 314 ! Support Hangul character setR DECLARE LONG CONSTANT DVI$_TT_CS_HANYU = 316 ! Support Hanyu character setP DECLARE LONG CONSTANT DVI$_TT_CS_THAI = 318 ! Support Thai character set ! . ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! Q DECLARE LONG CONSTANT DVI$_DEVDEPEND4 = 320 ! Device dependent longword 4P DECLARE LONG CONSTANT DVI$_DEVICE_TYPE_NAME = 322 ! DDR Device type name[ DECLARE LONG CONSTANT DVI$_TT_ASIAN_MODE = 324 ! Asian terminal I/O characteristicsV DECLARE LONG CONSTANT DVI$_PREFERRED_CPU = 326 ! Return CPU affinity of deviceK DECLARE LONG CONSTANT DVI$_TT_DECCRT5 = 328 ! VT5xx series terminalf DECLARE LONG CONSTANT DVI$_TT_ANSI_COLOR = 330 ! Terminal supports ANSI color escape sequencesZ  DECLARE LONG CONSTANT DVI$_MT3_SUPPORTED = 332 ! Tape UCB owned by an MTD enhanced ! driver? (longword)O DECLARE LONG CONSTANT DVI$_MT3_DENSITY = 334 ! Tape density. (longword)X DECLARE LONG CONSTANT DVI$_DRIVER_IMAGE_NAME = 336 ! Driver image name -- STRINGV DECLARE LONG CONSTANT DVI$_CLIENT_DEVICE = 338 ! Client device flag -- BOOLEANY DECLARE LONG CONSTANT DVI$_FC_PORT_NAME = 340 ! Fibre Channel Port Name -- STRINGY DECLARE LONG CONSTANT DVI$_FC_NODE_NAME = 342 ! Fibre Channel Node Name -- STRING\ DECLARE LONG CONSTANT DVI$_WWID = 344 ! SCSI Fibre Channel Device (Disk, Tape, etc.)( ! World Wide Identifier -- STRINGT DECLARE LONG CONSTANT DVI$_VOLCHAR = 346 ! Volume Characteristics (16 bytes)k DECLARE LONG CONSTANT DVI$_HBVS_MASTER_MEMBER = 348 ! This device is master member of of shadow set_ DECLARE LONG CONSTANT DVI$_MULTIPATH = 350 ! this device is a member of a multipath setc DECLARE LONG CONSTANT DVI$_MPDEV_CURRENT_PATH = 352 ! the current path of the multipath setR DECLARE LONG CONSTANT DVI$_VOLSIZE = 354 ! the current logical volume sizeQ DECLARE LONG CONSTANT DVI$_EXPSIZE = 356 ! the growth limit of the volumeN DECLARE LONG CONSTANT DVI$_QLEN = 358 ! the queue length on the devicee DECLARE LONG CONSTANT DVI$_SHDW_SITE = 360 ! the shadowing site-specific value for the devicef DECLARE LONG CONSTANT DVI$_SHDW_MBR_COUNT = 362 ! the number of full members in a virtual unitd DECLARE LONG CONSTANT DVI$_SHDW_DEVICE_COUNT = 364 ! the number of members in a virtual unitX DECLARE LONG CONSTANT DVI$_SHDW_MBR_READ_COST = 366 ! the read cost for a memberi DECLARE LONG CONSTANT DVI$_SHDW_READ_SOURCE = 368 ! the name of the member from which reads occurX DECLARE LONG CONSTANT DVI$_SHDW_TIMEOUT = 370 ! the timeout value for the deviceQ DECLARE LONG CONSTANT DVI$_DVI_UNUSED_1 = 372 ! Had been shdw_start_delayP DECLARE LONG CONSTANT DVI$_SHDW_GENERATION = 374 ! the generation numberf DECLARE LONG CONSTANT DVI$_SHDW_STATUS = 376 ! the status of either the member or virtual unitb DECLARE LONG CONSTANT DVI$_SHDW_MBR_COPY_DONE = 378 ! the percent done of a copy operationi DECLARE LONG CONSTANT DVI$_SHDW_MBR_MERGE_DONE = 380 ! the percent done of a full merge operationm DECLARE LONG CONSTANT DVI$_SHDW_MINIMERGE_ENABLE = 382 ! is this virtual unit enabled for mini-merge?W DECLARE LONG CONSTANT DVI$_DVI_UNUSED_2 = 384 ! had been shdw_minimerge_capabled DECLARE LONG CONSTANT DVI$_SHDW_COPIER_NODE = 386 ! the node on which the copy is being dones DECLARE LONG CONSTANT DVI$_SHDW_MASTER_MBR = 388 ! the device that is the master member of the virtual unit DECLARE LONG CONSTANT DVI$_MPDEV_AUTO_PATH_SW_CNT = 390 ! number of times the device switched paths due to an I/O error DECLARE LONG CONSTANT DVI$_MPDEV_MAN_PATH_SW_CNT = 392 ! number of times the device switched paths due to $SET DEVICE & ! /PATH= /SWITCHR DECLARE LONG CONSTANT DVI$_WRITETHRU_CACHE_ENABLED = 394 ! vcb$v_writethruJ DECLARE LONG CONSTANT DVI$_NOCACHE_ON_VOLUME = 396 ! vcb$v_nocacheK DECLARE LONG CONSTANT DVI$_MOUNTVER_ELIGIBLE = 398 ! vcb$v_mountverF DECLARE LONG CONSTANT DVI$_ERASE_ON_DELETE = 400 ! vcb$v_eraseH DECLARE LONG CONSTANT DVI$_NOHIGHWATER = 402 ! vcb$v_nohighwaterH DECLARE LONG CONSTANT DVI$_NOSHARE_MOUNTED = 404 ! vcb$v_noshareB DECLARE LONG CONSTANT DVI$_CLUSLOCK = 406 ! vcb$v_cluslockE DECLARE LONG CONSTANT DVI$_ODS2_SUBSET0 = 408 ! vcb$v_subset0Q DECLARE LONG CONSTANT DVI$_PROT_SUBSYSTEM_ENABLED = 410 ! vcb$v_subsystem@ DECLARE LONG CONSTANT DVI$_ODS5 = 412 ! vcb$v_struc_ods5Q DECLARE LONG CONSTANT DVI$_ACCESSTIMES_RECORDED = 414 ! vcb$v_accesstimesN DECLARE LONG CONSTANT DVI$_HARDLINKS_SUPPORTED = 416 ! vcb$v_hardlinksl DECLARE LONG CONSTANT DVI$_SCSI_DEVICE_FIRMWARE_REV = 418 ! firmware revision level for SCSI devices` DECLARE LONG CONSTANT DVI$_TOTAL_PATH_COUNT = 420 ! number of configured multipath pathsc DECLARE LONG CONSTANT DVI$_AVAILABLE_PATH_COUNT = 422 ! number of working and enabled paths` DECLARE LONG CONSTANT DVI$_VOLUME_EXTEND_QUANTITY = 424 ! default volume extend quantityQ DECLARE LONG CONSTANT DVI$_MOUNT_TIME = 426 ! time the volume was mountedH DECLARE LONG CONSTANT DVI$_VOLUME_MOUNT_SYS = 428 ! vcb$v_systemI DECLARE LONG CONSTANT DVI$_VOLUME_MOUNT_GROUP = 430 ! vcb$v_group: DECLARE LONG CONSTANT DVI$_PATH_AVAILABLE = 432 ! = DECLARE LONG CONSTANT DVI$_PATH_USER_DISABLED = 434 ! S DECLARE LONG CONSTANT DVI$_PATH_NOT_RESPONDING = 436 ! sud$v_not_responding< DECLARE LONG CONSTANT DVI$_PATH_POLL_ENABLED = 438 ! G DECLARE LONG CONSTANT DVI$_MVSUPMSG = 440 ! sud$v_mvsupmsg_auto: DECLARE LONG CONSTANT DVI$_P ATH_SWITCH_TO_TIME = 442< DECLARE LONG CONSTANT DVI$_PATH_SWITCH_FROM_TIME = 4447 DECLARE LONG CONSTANT DVI$_ERROR_RESET_TIME = 4469 DECLARE LONG CONSTANT DVI$_DEVICE_MAX_IO_SIZE = 4488 DECLARE LONG CONSTANT DVI$_VOLUME_RETAIN_MAX = 4508 DECLARE LONG CONSTANT DVI$_VOLUME_RETAIN_MIN = 452_ DECLARE LONG CONSTANT DVI$_PREFERRED_CPU_BITMAP = 454 ! Bitmap indicating Fast Path CPU< DECLARE LONG CONSTANT DVI$_MAILBOX_INITIAL_QUOTA = 456; DECLARE LONG CONST ANT DVI$_MAILBOX_BUFFER_QUOTA = 4584 DECLARE LONG CONSTANT DVI$_VOLUME_WINDOW = 460= DECLARE LONG CONSTANT DVI$_VOLUME_SPOOLED_DEV_CNT = 462? DECLARE LONG CONSTANT DVI$_VOLUME_PENDING_WRITE_ERR = 4640 DECLARE LONG CONSTANT DVI$_LAN_SPEED = 4662 DECLARE LONG CONSTANT DVI$_LAN_LINK_UP = 468> DECLARE LONG CONSTANT DVI$_LAN_DEFAULT_MAC_ADDRESS = 4706 DECLARE LONG CONSTANT DVI$_LAN_MAC_ADDRESS = 4726 DECLARE LONG CONSTANT DVI$_LAN_FULL_DUPLEX = 474= DECLARE LONG CONSTANT DVI$_LAN_ALL_MULTICAST_MODE = 476; DECLARE LONG CONSTANT DVI$_LAN_PROMISCUOUS_MODE = 478? DECLARE LONG CONSTANT DVI$_LAN_JUMBO_FRAMES_ENABLED = 480: DECLARE LONG CONSTANT DVI$_LAN_AUTONEG_ENABLED = 4828 DECLARE LONG CONSTANT DVI$_LAN_PROTOCOL_TYPE = 4848 DECLARE LONG CONSTANT DVI$_LAN_PROTOCOL_NAME = 486; DECLARE LONG CONSTANT DVI$_LAN_LINK_STATE_VALID = 488: DECLARE LONG CONSTANT DVI$_FC_HBA_FIRMWARE_REV = 4904 DECLARE LONG CONSTANT DVI$_ADAPTER_IDENT = 4927 DECLARE LONG CONSTANT DVI$_MOUNTCNT_CLUSTER = 494< DECLARE LONG CONSTANT DVI$_SHDW_HBMM_RESET_COUNT = 496; DECLARE LONG CONSTANT DVI$_SHDW_HBMM_RESET_TIME = 498L DECLARE LONG CONSTANT DVI$_SPECIAL_FILES = 500 ! vcb$v_special_filesP DECLARE LONG CONSTANT DVI$_NOXFCCACHE_ON_VOLUME = 502 ! vcb$v_noxfccacheJ DECLARE LONG CONSTANT DVI$_XFC_DEPOSING = 504 ! vcb$v_xfc_deposingK DECLARE LONG CONSTANT DVI$_SSD_USAGE_REMAINING = 506 ! for SSD diskJ DECLARE LONG CONSTANT DVI$_SSD_LIFE_REMAINING = 508 ! for SSD disk ! B ! *** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** !  ! ) ! Define flag bits in the item code. ! 9 DECLARE LONG CONSTANT DVI$M_SECONDARY = x'00000001': DECLARE LONG CONSTANT DVI$M_NOREDIRECT = x'00008000', DECLARE LONG CONSTANT DVI$S_DVIDEF = 2 record DVIDEF1 ! Use secondary device characteristics ! Space for i tem codeE ! Define additional flags here, subtracting the space out of theG ! above item code. (The item code must contain all the unused bits- ! for proper validation in the service.)/ ! Don't redirect to virtual terminalq WORD SECONDARY_bits ! COMMENT ADDED BY SDL - SECONDARY_bits contains bits SECONDARY through NOREDIRECT end record DVIDEF  ! @ ! Define flag bits in the volume characteristics item code. ! ; DECLARE LONG CONSTANT DVI$M_VOL_READDIR = x'0000000F'o DECLARE LONG CONSTANT DVI$C_READDIR_NONE = 0 ! directory cannot be read (scan with repeated IO$_ACCESS)U DECLARE LONG CONSTANT DVI$C_READDIR_VIO = 1 ! read directory via IO$_READVBLKS DECLARE LONG CONSTANT DVI$C_READDIR_IO = 2 ! read directory via IO$_READDIRU DECLARE LONG CONSTANT DVI$C_READDIR_ACP = 3 ! read directory via IO$_ACPCNTRL? DECLARE LONG CONSTANT DVI$M_VOL_LENGTH_HINT = x'00000010'@ DECLARE LONG CONSTANT DVI$M_VOL_CACHING_ATTR = x'00000020'? DECLARE LONG CONSTANT DVI$M_VOL_ACCESS_DATE = x'00000040'< DECLARE LONG CONSTANT DVI$M_VOL_HARDLINK = x'00000080'@ DECLARE LONG CONSTANT DVI$M_VOL_SET_SECURITY = x'00000100'? DECLARE LONG CONSTANT DVI$M_VOL_FID_TO_NAME = x'00000200'D DECLARE LONG CONSTANT DVI$M_VOL_ODS1_STYLE_PURGE = x'00000400'C DECLARE LONG CONSTANT DVI$M_VOL_SHARED_TRUNCATE = x'00000800'A DECLARE LONG CONSTANT DVI$M_VOL_WRITE_BARRIER = x'00001000 '> DECLARE LONG CONSTANT DVI$M_VOL_DIRSEQ_QIO = x'00002000'7 DECLARE LONG CONSTANT DVI$M_VOL_EFS = x'00004000'8 DECLARE LONG CONSTANT DVI$M_VOL_UCS2 = x'00008000'@ DECLARE LONG CONSTANT DVI$M_VOL_CASE_VARIANT = x'00010000'; DECLARE LONG CONSTANT DVI$M_VOL_MODDATE = x'00020000'@ DECLARE LONG CONSTANT DVI$M_VOL_SPECIAL_FILE = x'00040000'8 DECLARE LONG CONSTANT DVI$M_VOL_SSIO = x'00080000'B DECLARE LONG CONSTANT DVI$M_VOL_LOOKUP_SPECIAL = x'00100000'0  DECLARE LONG CONSTANT DVI$S_DVIVOLDEF = 16 record DVIVOLDEF# group DVI$R_DVIVOL_OVERLAY variant case1 BYTE DVI$B_VOL_CHAR ( 1 to 16 ) case- group DVI$R_VOL_CHAR_FIELDS= ! Read/scan a directory (4 bit field):) ! file length hintU ! support 'caching attribute' (contents, atttribute, on_close)$ ! access da te! ! hardlink< ! set volume security profile supportD ! ATR$C_FILE_SPEC attribute (lib$fid_to_name)8 ! post ODS1 style purge operationK ! Support truncate when open shared (Spiralog only?)E ! Support IO$M_WRITE_BARRIER (vs IO$M_BARRIER)/ ! read/arm DIRSEQ by QIO4 ! extended file specification( ! ucs2 file names+ ! case variant namesG ! support for modification date (ATR$C_MODDATE).P ! special file support including symbolic links (SYMLINK)= ! support for shared stream I/O (SSIO)J ! support for special file detection in file lookup LONG VOL_READDIR_bits ! COMMENT ADDED BY SDL - VOL_READDIR_bits contains bits VOL_READDIR through FILL_122_1  end group DVI$R_VOL_CHAR_FIELDS end variant' end group DVI$R_DVIVOL_OVERLAY end record DVIVOLDEF  ! 4 ! Constant form of name for past compatibility. ! / DECLARE LONG CONSTANT DVI$C_SECONDARY = 1 ! C ! The following ACP type codes are formally defined in $AQBDEFA ! These synonyms are available to user programs and they areG ! guaranteed to be consistent by ASSUME's in SYSGETDVI. AdditionsD ! to the ACP type c odes in $AQBDEF should be reflected here and# ! in the ASSUMES in SYSGETDVI. ! D ! If you add ACP codes here, you must also update the ACP_TYPESB ! text translation table embedded over in [lib]liblexica.bli. ! O DECLARE LONG CONSTANT DVI$C_ACP_F11V1 = 1 ! FILES-11 STRUCTURE LEVEL 1 O DECLARE LONG CONSTANT DVI$C_ACP_F11V2 = 2 ! FILES-11 STRUCTURE LEVEL 2 : DECLARE LONG CONSTANT DVI$C_ACP_MTA = 3 ! MAGTAPE ; DECLARE LONG CONSTANT DVI$C_ACP_NET = 4 ! NETWORKS = DECLARE LONG CONSTANT DVI$C_ACP_REM = 5 ! REMOTE I/O F DECLARE LONG CONSTANT DVI$C_ACP_HBS = 6 ! HOST BASED SHADOWINGU DECLARE LONG CONSTANT DVI$C_ACP_F11V3 = 7 ! Files-11 presentation of ISO 9660X DECLARE LONG CONSTANT DVI$C_ACP_F11V4 = 8 ! Files-11 presentation of High SierraM DECLARE LONG CONSTANT DVI$C_ACP_F64 = 9 ! Files 64 support for DollarV DECLARE LONG CONSTANT DVI$C_ACP_UCX = 10 ! ACP for TCP/IP Services for OpenVMSP DECLARE LONG CONSTANT DVI$C_ACP_F11V5 = 11 ! FILES-11 STRUCTURE LEVEL 5 O DECLARE LONG CONSTANT DVI$C_ACP_F11V6 = 12 ! FILES-11 STRUCTURE LEVEL 6S DECLARE LONG CONSTANT DVI$C_ACP_HBVS = 13 ! Host Based Volume Shadowing SCP wwR1 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! . ! Device Scan Data Identifier Definitions !  ! **** NOTE **** ! F ! New items must always be added at the END of the list so that( ! users will not have to rebuild. !  ! -` DECLARE LONG CONSTANT DVS$_DEVCLASS = 1 ! Device class - VALUE - 4 bytes (only one used)^ DECLARE LONG CONSTANT DVS$_DEVTYPE = 2 ! Device type - VALUE - 4 bytes (only one used) ww6' ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )  END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )U END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  O DECLARE LONG CONSTANT EFN$C_ENF = 128 ! Event No Flag (no stored state)@ DECLARE LONG CONSTANT EFN$C_CTX = 129 ! Wait for context wwB!%DEFINE Elf64_Addr BASIC$QUADWORD %DEFINE Elf64_Off BASIC$QUADWORD%DEFINE Elf64_Half WORD%DEFINE Elf64_Word LONG%DEFINE Elf64_Sword LONG"%DEFINE Elf64_Xword BASIC$QUADWORD#%DEFINE Elf64_Sxword BASIC$QUADWORD%DEFINE Elf64_Section LONG%DEFINE Elf64_Symndx LONG%DEFINE sysver_majmin LONG ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @  %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART  END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF           / DECLARE LONG CONSTANT s_subsys_majmin = 4 record subsys_majmin WORD ver$w_minor_id WORD ver$w_major_id end record subsys_majmin / DECLARE LONG CONSTANT s_sysver_majmin = 4 ; DECLARE LONG CONSTANT lnkg_desc1$m_type = x'00000001'? DECLARE LONG CONSTANT lnkg_desc1$m_notused0 = x'00000002'9  DECLARE LONG CONSTANT lnkg_desc1$M_GP = x'00000004'? DECLARE LONG CONSTANT lnkg_desc1$m_notused1 = x'00000008'9 DECLARE LONG CONSTANT lnkg_desc1$M_R2 = x'00000030'9 DECLARE LONG CONSTANT lnkg_desc1$M_R3 = x'000000C0'9 DECLARE LONG CONSTANT lnkg_desc1$M_R4 = x'00000300'9 DECLARE LONG CONSTANT lnkg_desc1$M_R5 = x'00000C00'9 DECLARE LONG CONSTANT lnkg_desc1$M_R6 = x'00003000'9 DECLARE LONG CONSTANT lnkg_desc1$M_R7 = x'0000C000'9 DECLARE LONG CON STANT lnkg_desc1$M_R8 = x'00030000'9 DECLARE LONG CONSTANT lnkg_desc1$M_R9 = x'000C0000': DECLARE LONG CONSTANT lnkg_desc1$M_R10 = x'00300000': DECLARE LONG CONSTANT lnkg_desc1$M_R11 = x'00C00000': DECLARE LONG CONSTANT lnkg_desc1$M_R12 = x'03000000': DECLARE LONG CONSTANT lnkg_desc1$M_R13 = x'0C000000': DECLARE LONG CONSTANT lnkg_desc1$M_R14 = x'30000000': DECLARE LONG CONSTANT lnkg_desc1$M_R15 = x'C0000000': DECLARE LONG CONSTANT lnkg_desc1$M_R16 = x '00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R17 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R18 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R19 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R20 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R21 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R22 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R23 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R24 = x'00000000'9 DECLARE LONG CONSTANT lnkg_desc1$M_AI = x'00000000'@ DECLARE LONG CONSTANT lnkg_desc1$m_notused25 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R26 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R27 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R28 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R29 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R30 = x'00000000': DECLARE LONG CONSTANT lnkg_desc1$M_R31 = x'00000000'1 DECLARE LONG CONSTANT LNKG_D ESC1$K_SIZE = 81 DECLARE LONG CONSTANT LNKG_DESC1$C_SIZE = 8; DECLARE LONG CONSTANT lnkg_desc1$s_vms_lnkg_desc1 = 8 record vms_lnkg_desc1a BYTE type_bits ( 8 ) ! COMMENT ADDED BY SDL - type_bits contains bits type through R31 end record vms_lnkg_desc1  ww"['%DEFINE Elf64_vms_dni32_fmt3 Elf64_Word'%DEFINE Elf64_vms_dni32_fmt4 Elf64_Word(%DEFINE Elf64_vms_dni64_fmt3 Elf64_Xword(%DEFINE Elf64_vms_dni64_fmt4 Elf64_Xword ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN  RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART!  SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  1 DECLARE LONG CONSTANT EHDR$K_EI_NIDENT = 1 65 DECLARE LONG CONSTANT EHDR$SC_EF_VMS_COMCOD = 0> DECLARE LONG CONSTANT ehdr$m_ef_vms_comcod = x'00000003'7 DECLARE LONG CONSTANT EHDR$SC_EF_VMS_LINKAGES = 2@ DECLARE LONG CONSTANT ehdr$m_ef_vms_linkages = x'00000004': DECLARE LONG CONSTANT ehdr$m_ef_fill_1 = x'00000008'6 DECLARE LONG CONSTANT EHDR$SC_EF_IA_64_ABI64 = 4? DECLARE LONG CONSTANT ehdr$m_ef_ia_64_abi64 = x'00000010': DECLARE LONG CONSTANT EHDR$SC_EF_IA_64_REDUCEDFP = 5C DECLARE LO NG CONSTANT ehdr$m_ef_ia_64_reducedfp = x'00000020'8 DECLARE LONG CONSTANT EHDR$SC_EF_IA_64_CONS_GP = 6A DECLARE LONG CONSTANT ehdr$m_ef_ia_64_cons_gp = x'00000040'= DECLARE LONG CONSTANT EHDR$SC_EF_IA_64_NOFD_CONS_GP = 7F DECLARE LONG CONSTANT ehdr$m_ef_ia_64_nofd_cons_gp = x'00000080'9 DECLARE LONG CONSTANT EHDR$SC_EF_IA_64_ABSOLUTE = 8B DECLARE LONG CONSTANT ehdr$m_ef_ia_64_absolute = x'00000100': DECLARE LONG CONSTANT ehdr$m_ef_fill_2 = x'00FFFE00'6  DECLARE LONG CONSTANT EHDR$SC_EF_IA_64_ARCH = 24> DECLARE LONG CONSTANT ehdr$m_ef_ia_64_arch = x'FF000000'5 DECLARE LONG CONSTANT EHDR$SC_EF_IA_64_LOOS = 0> DECLARE LONG CONSTANT ehdr$m_ef_ia_64_loos = x'0000000F'; DECLARE LONG CONSTANT ehdr$m_ef_fill_1a = x'0000FFF0'6 DECLARE LONG CONSTANT EHDR$SC_EF_IA_64_HIOS = 16> DECLARE LONG CONSTANT ehdr$m_ef_ia_64_hios = x'00FF0000'4 DECLARE LONG CONSTANT ELF64_EHDR$K_E_SIZE = 644 DECLARE LONG CONSTANT ELF64_EHDR$C_E_SIZE = 64; DECLARE LONG CONSTANT ELF64_EHDR$S_VMS_OBJECT_V1 = 64: DECLARE LONG CONSTANT ELF64_EHDR$S_VMS_IMAGE_V1 = 722 DECLARE LONG CONSTANT ehdr$S_Elf64_Ehdr = 72 record Elf64_Ehdr group ehdr$r_ident variant case1 BYTE ehdr$t_e_ident ( 1 to 16 ) case$ group ehdr$r_bytes( BYTE ehdr$b_ei_mag0( BYTE ehdr$b_ei_mag1(  BYTE ehdr$b_ei_mag2( BYTE ehdr$b_ei_mag3) BYTE ehdr$b_ei_class( BYTE ehdr$b_ei_data+ BYTE ehdr$b_ei_version) BYTE ehdr$b_ei_osabi. BYTE ehdr$b_ei_abiversion2 BYTE ehdr$b_ei_pad ( 1 to 7 )( end group ehdr$r_bytes end variant end group ehdr$r_ident! Elf64_Half ehdr$w_e_type$ Elf64_Half eh dr$w_e_machine$ Elf64_Word ehdr$l_e_version# Elf64_Addr ehdr$pq_e_entry! Elf64_Off ehdr$q_e_phoff! Elf64_Off ehdr$q_e_shoff# group ehdr$r_flags_overlay variant case+ Elf64_Word ehdr$l_e_flags case* group ehdr$r_model_masks LONG ef_vms_comcod_bits ! COMMENT ADDED BY SDL - ef_vms_comcod_bits contains bits ef_vms_comcod through & ! ef_ia_64_arch . end group ehdr$r_model_masks case* group ehdr$r_os_specific LONG ef_ia_64_loos_bits ! COMMENT ADDED BY SDL - ef_ia_64_loos_bits contains bits ef_ia_64_loos through & ! ef_ia_64_hios. end group ehdr$r_os_specific end variant' end group ehdr$r_flags_overlay# Elf64_Half ehdr$w_e_ehsize& Elf64_Half ehdr$w_e_phentsize" Elf64_Half ehdr$w_e_phnum& E lf64_Half ehdr$w_e_shentsize" Elf64_Half ehdr$w_e_shnum% Elf64_Half ehdr$w_e_shstrndx, Elf64_Xword ehdr$q_e_vms_needed_cnt end record Elf64_Ehdr . DECLARE LONG CONSTANT EHDR$K_EI_MAG0 = 0. DECLARE LONG CONSTANT EHDR$K_EI_MAG1 = 1. DECLARE LONG CONSTANT EHDR$K_EI_MAG2 = 2. DECLARE LONG CONSTANT EHDR$K_EI_MAG3 = 3/ DECLARE LONG CONSTANT EHDR$K_EI_CLASS = 4. DECLARE LONG CONSTANT EHDR$K_EI_DATA = 51 DECLARE LONG CONSTANT EHDR$K_EI_VERSION = 6/ DECLARE LONG CONSTANT EHDR$K_EI_OSABI = 74 DECLARE LONG CONSTANT EHDR$K_EI_ABIVERSION = 8- DECLARE LONG CONSTANT EHDR$K_EI_PAD = 90 DECLARE LONG CONSTANT EHDR$K_ELFMAG0 = 127/ DECLARE LONG CONSTANT EHDR$K_ELFMAG1 = 69/ DECLARE LONG CONSTANT EHDR$K_ELFMAG2 = 76/ DECLARE LONG CONSTANT EHDR$K_ELFMAG3 = 703 DECLARE LONG CONSTANT EHDR$K_ELFCLASSNONE = 01 DECLARE LONG CONSTANT EHDR$K_ELFCLASS32 = 11 DECLARE LONG CONST ANT EHDR$K_ELFCLASS64 = 22 DECLARE LONG CONSTANT EHDR$K_ELFDATANONE = 02 DECLARE LONG CONSTANT EHDR$K_ELFDATA2LSB = 12 DECLARE LONG CONSTANT EHDR$K_ELFDATA2MSB = 24 DECLARE LONG CONSTANT EHDR$K_ELFOSABI_NONE = 08 DECLARE LONG CONSTANT EHDR$K_ELFOSABI_OPENVMS = 13= DECLARE LONG CONSTANT EHDR$K_ELFABIVERSION_VMS_CURR = 2< DECLARE LONG CONSTANT EHDR$K_ELFABIVERSION_VMS_OBJ = 2< DECLARE LONG CONSTANT EHDR$K_ELFABIVERSION_VMS_IMG = 2. DECLARE LONG CON STANT EHDR$K_ET_NONE = 0- DECLARE LONG CONSTANT EHDR$K_ET_REL = 1. DECLARE LONG CONSTANT EHDR$K_ET_EXEC = 2- DECLARE LONG CONSTANT EHDR$K_ET_DYN = 3. DECLARE LONG CONSTANT EHDR$K_ET_CORE = 42 DECLARE LONG CONSTANT EHDR$K_ET_LOOS = 650242 DECLARE LONG CONSTANT EHDR$K_ET_HIOS = 652794 DECLARE LONG CONSTANT EHDR$K_ET_LOPROC = 652804 DECLARE LONG CONSTANT EHDR$K_ET_HIPROC = 65535: DECLARE LONG CONSTANT EHDR$K_ET_VMS_LINK_STB = 650245 DECLARE LO NG CONSTANT EHDR$K_ET_VMS_DSF = 65025. DECLARE LONG CONSTANT EHDR$K_EM_NONE = 00 DECLARE LONG CONSTANT EHDR$K_EM_IA_64 = 504 DECLARE LONG CONSTANT IIHA$K_VMSXFER_SIZE = 484 DECLARE LONG CONSTANT IIHA$C_VMSXFER_SIZE = 488 DECLARE LONG CONSTANT iiha$s_transfer_address = 48 record transfer_address Elf64_Word iiha$l_size Elf64_Word iiha$l_spare! group iiha$r_tfr_overlay variant case6 Elf64_Addr iiha$ar_tfradr ( 1 to 5 ) case' group iiha$r_tfrnamed/ Elf64_Addr iiha$pq_tfradr1/ Elf64_Addr iiha$pq_tfradr2/ Elf64_Addr iiha$pq_tfradr3/ Elf64_Addr iiha$pq_tfradr4/ Elf64_Addr iiha$pq_tfradr5+ end group iiha$r_tfrnamed end variant% end group iiha$r_tfr_overlay! end record transfer_address +  DECLARE LONG CONSTANT IIHA$C_INIT = 1+ DECLARE LONG CONSTANT IIHA$C_MAIN = 2/ DECLARE LONG CONSTANT IIHA$C_EXE_INIT = 3. DECLARE LONG CONSTANT EHDR$K_EV_NONE = 01 DECLARE LONG CONSTANT EHDR$K_EV_CURRENT = 19 DECLARE LONG CONSTANT EHDR$K_VMS_COMCOD_SUCCESS = 09 DECLARE LONG CONSTANT EHDR$K_VMS_COMCOD_WARNING = 17 DECLARE LONG CONSTANT EHDR$K_VMS_COMCOD_ERROR = 27 DECLARE LONG CONSTANT EHDR$K_VMS_COMCOD_ABORT = 3= DECLARE LONG CONSTANT EHDR $K_EF_IA_64_MASKOS = 16711695; DECLARE LONG CONSTANT EHDR$K_EF_IA_64_ARCHVERSION = 11 DECLARE LONG CONSTANT SHDR$SC_SHF_WRITE = 0: DECLARE LONG CONSTANT shdr$m_shf_write = x'00000001'1 DECLARE LONG CONSTANT SHDR$SC_SHF_ALLOC = 1: DECLARE LONG CONSTANT shdr$m_shf_alloc = x'00000002'5 DECLARE LONG CONSTANT SHDR$SC_SHF_EXECINSTR = 2> DECLARE LONG CONSTANT shdr$m_shf_execinstr = x'00000004'B DECLARE LONG CONSTANT shdr$m_shf_f64_bitfill_1 = x'00000008'1  DECLARE LONG CONSTANT SHDR$SC_SHF_MERGE = 4: DECLARE LONG CONSTANT shdr$m_shf_merge = x'00000010'3 DECLARE LONG CONSTANT SHDR$SC_SHF_STRINGS = 5< DECLARE LONG CONSTANT shdr$m_shf_strings = x'00000020'5 DECLARE LONG CONSTANT SHDR$SC_SHF_INFO_LINK = 6> DECLARE LONG CONSTANT shdr$m_shf_info_link = x'00000040'6 DECLARE LONG CONSTANT SHDR$SC_SHF_LINK_ORDER = 7? DECLARE LONG CONSTANT shdr$m_shf_link_order = x'00000080'< DECLARE LONG CONSTANT SHDR$SC_ SHF_OS_NONCONFORMING = 8E DECLARE LONG CONSTANT shdr$m_shf_os_nonconforming = x'00000100'1 DECLARE LONG CONSTANT SHDR$SC_SHF_GROUP = 9: DECLARE LONG CONSTANT shdr$m_shf_group = x'00000200'0 DECLARE LONG CONSTANT SHDR$SC_SHF_TLS = 108 DECLARE LONG CONSTANT shdr$m_shf_tls = x'00000400'B DECLARE LONG CONSTANT shdr$m_shf_f64_bitfill_2 = x'0FFFF800'8 DECLARE LONG CONSTANT SHDR$SC_SHF_IA_64_SHORT = 28@ DECLARE LONG CONSTANT shdr$m_shf_ia_64_short = x'1000000 0': DECLARE LONG CONSTANT SHDR$SC_SHF_IA_64_NORECOV = 29B DECLARE LONG CONSTANT shdr$m_shf_ia_64_norecov = x'20000000'B DECLARE LONG CONSTANT shdr$m_shf_f64_bitfill_3 = x'C0000000'7 DECLARE LONG CONSTANT SHDR$SC_SHF_VMS_GLOBAL = 32? DECLARE LONG CONSTANT shdr$m_shf_vms_global = x'00000000'9 DECLARE LONG CONSTANT SHDR$SC_SHF_VMS_OVERLAID = 33A DECLARE LONG CONSTANT shdr$m_shf_vms_overlaid = x'00000000'7 DECLARE LONG CONSTANT SHDR$SC_SHF_VMS_SHARED = 3 4? DECLARE LONG CONSTANT shdr$m_shf_vms_shared = x'00000000'7 DECLARE LONG CONSTANT SHDR$SC_SHF_VMS_VECTOR = 35? DECLARE LONG CONSTANT shdr$m_shf_vms_vector = x'00000000'< DECLARE LONG CONSTANT SHDR$SC_SHF_VMS_ALLOC_64BIT = 36D DECLARE LONG CONSTANT shdr$m_shf_vms_alloc_64bit = x'00000000': DECLARE LONG CONSTANT SHDR$SC_SHF_VMS_PROTECTED = 37B DECLARE LONG CONSTANT shdr$m_shf_vms_protected = x'00000000'B DECLARE LONG CONSTANT shdr$m_shf_f64_bitfill_4  = x'00000000'A DECLARE LONG CONSTANT shdr$m_shf_f64_osfill_1 = x'000FFFFF'6 DECLARE LONG CONSTANT SHDR$SC_SHF_MASK_LOOS = 20> DECLARE LONG CONSTANT shdr$m_shf_mask_loos = x'0FF00000'A DECLARE LONG CONSTANT shdr$m_shf_f64_osfill_2 = x'F0000000'6 DECLARE LONG CONSTANT SHDR$SC_SHF_MASK_HIOS = 32> DECLARE LONG CONSTANT shdr$m_shf_mask_hios = x'00000000'C DECLARE LONG CONSTANT shdr$m_shf_f64_procfill_1 = x'0FFFFFFF'7 DECLARE LONG CONSTANT SHDR$SC_SHF_MASK LOPROC = 28? DECLARE LONG CONSTANT shdr$m_shf_maskloproc = x'F0000000'7 DECLARE LONG CONSTANT SHDR$SC_SHF_MASKHIPROC = 32? DECLARE LONG CONSTANT shdr$m_shf_maskhiproc = x'00000000'5 DECLARE LONG CONSTANT ELF64_SHDR$K_SH_SIZE = 645 DECLARE LONG CONSTANT ELF64_SHDR$C_SH_SIZE = 642 DECLARE LONG CONSTANT shdr$S_Elf64_Shdr = 64 record Elf64_Shdr" Elf64_Word shdr$l_sh_name" Elf64_Word shdr$l_sh_type# group shdr$r_flags_overlay  variant case- Elf64_Xword shdr$q_sh_flags case+ group shdr$r_flags64_bits{ BYTE shf_write_bits ( 8 ) ! COMMENT ADDED BY SDL - shf_write_bits contains bits shf_write through & ! shf_f64_bitfill_4/ end group shdr$r_flags64_bits case- group shdr$r_flags64_osmaskw BYTE shf_f64_osfill_1_bits ( 8 ) ! COMMENT ADDED BY SDL -  shf_f64_osfill_1_bits contains bits &) ! shf_f64_osfill_1 through shf_mask_hios1 end group shdr$r_flags64_osmask case/ group shdr$r_flags64_procmask{ BYTE shf_f64_procfill_1_bits ( 8 ) ! COMMENT ADDED BY SDL - shf_f64_procfill_1_bits contains bits &, ! shf_f64_procfill_1 through shf_maskhiproc3 end group shdr$r_flags64_procmask end variant' end group shdr$r_flags_overlay#  Elf64_Addr shdr$pq_sh_addr# Elf64_Off shdr$q_sh_offset# Elf64_Xword shdr$q_sh_size" Elf64_Word shdr$l_sh_link" Elf64_Word shdr$l_sh_info( Elf64_Xword shdr$q_sh_addralign& Elf64_Xword shdr$q_sh_entsize end record Elf64_Shdr 0 DECLARE LONG CONSTANT SHDR$K_SHN_UNDEF = 08 DECLARE LONG CONSTANT SHDR$K_SHN_LORESERVE = 652805 DECLARE LONG CONSTANT SHDR$K_SHN_LOPROC = 652805 DECLARE LONG CONSTANT SHDR$K_SHN_H IPROC = 653113 DECLARE LONG CONSTANT SHDR$K_SHN_LOOS = 653129 DECLARE LONG CONSTANT SHDR$K_SHN_VMS_SYMVEC = 653123 DECLARE LONG CONSTANT SHDR$K_SHN_HIOS = 653432 DECLARE LONG CONSTANT SHDR$K_SHN_ABS = 655215 DECLARE LONG CONSTANT SHDR$K_SHN_COMMON = 655225 DECLARE LONG CONSTANT SHDR$K_SHN_XINDEX = 655358 DECLARE LONG CONSTANT SHDR$K_SHN_HIRESERVE = 65535/ DECLARE LONG CONSTANT SHDR$K_SHT_NULL = 03 DECLARE LONG CONSTANT SHDR$K_SHT_PROGBITS = 11 DECLARE LONG CONSTANT SHDR$K_SHT_SYMTAB = 21 DECLARE LONG CONSTANT SHDR$K_SHT_STRTAB = 3/ DECLARE LONG CONSTANT SHDR$K_SHT_RELA = 4/ DECLARE LONG CONSTANT SHDR$K_SHT_HASH = 52 DECLARE LONG CONSTANT SHDR$K_SHT_DYNAMIC = 6/ DECLARE LONG CONSTANT SHDR$K_SHT_NOTE = 71 DECLARE LONG CONSTANT SHDR$K_SHT_NOBITS = 8. DECLARE LONG CONSTANT SHDR$K_SHT_REL = 91 DECLARE LONG CONSTANT SHDR$K_SHT_SHLIB = 102 DECLARE LONG CONSTANT SHDR$K_SHT_DYNSY M = 115 DECLARE LONG CONSTANT SHDR$K_SHT_UNUSED_12 = 125 DECLARE LONG CONSTANT SHDR$K_SHT_UNUSED_13 = 136 DECLARE LONG CONSTANT SHDR$K_SHT_INIT_ARRAY = 146 DECLARE LONG CONSTANT SHDR$K_SHT_FINI_ARRAY = 159 DECLARE LONG CONSTANT SHDR$K_SHT_PREINIT_ARRAY = 161 DECLARE LONG CONSTANT SHDR$K_SHT_GROUP = 178 DECLARE LONG CONSTANT SHDR$K_SHT_SYMTAB_SHNDX = 184 DECLARE LONG CONSTANT GRPSEC$M_COMDAT_FLAG = 18 DECLARE LONG CONSTANT SHDR$K_SHT_LOOS = 1610 6127368 DECLARE LONG CONSTANT SHDR$K_SHT_HIOS = 1879048191: DECLARE LONG CONSTANT SHDR$K_SHT_LOPROC = 1879048192: DECLARE LONG CONSTANT SHDR$K_SHT_HIPROC = 2147483647< DECLARE LONG CONSTANT SHDR$K_SHT_LOUSER = X"80000000"L2 DECLARE LONG CONSTANT SHDR$K_SHT_HIUSER = -1= DECLARE LONG CONSTANT SHDR$K_SHT_VMS_TRACE = 1610612736F DECLARE LONG CONSTANT SHDR$K_SHT_VMS_TIE_SIGNATURES = 1610612737= DECLARE LONG CONSTANT SHDR$K_SHT_VMS_DEBUG = 1610612738A DECLARE LONG CONSTANT SHDR$K_SHT_VMS_DEBUG_STR = 1610612739@ DECLARE LONG CONSTANT SHDR$K_SHT_VMS_LINKAGES = 1610612740E DECLARE LONG CONSTANT SHDR$K_SHT_VMS_SYMBOL_VECTOR = 1610612741= DECLARE LONG CONSTANT SHDR$K_SHT_VMS_FIXUP = 1610612742H DECLARE LONG CONSTANT SHDR$K_SHT_VMS_DISPLAY_NAME_INF = 1610612743A DECLARE LONG CONSTANT SHDR$K_SHT_IA_64_LOPSREG = 2013265920A DECLARE LONG CONSTANT SHDR$K_SHT_IA_64_HIPSREG = 2147483647= DECLARE LONG CONSTANT SHDR $K_SHT_IA_64_EXT = 1879048192@ DECLARE LONG CONSTANT SHDR$K_SHT_IA_64_UNWIND = 1879048193G DECLARE LONG CONSTANT SHDR$K_SHT_IA_64_PRIORITY_INIT = 2030043136. DECLARE LONG CONSTANT VMSSIG$$K_SIZE = 8. DECLARE LONG CONSTANT VMSSIG$$C_SIZE = 84 DECLARE LONG CONSTANT vmssig$S_VMSSigEntry = 8 record VMSSigEntry& Elf64_Word vmssig$l_se_symbol& Elf64_Word vmssig$l_se_offset end record VMSSigEntry . DECLARE LONG CONSTANT UNWIND$K_SIZE != 24. DECLARE LONG CONSTANT UNWIND$C_SIZE = 24< DECLARE LONG CONSTANT unwind$S_IA_64_Unwind_Entry = 24 record IA_64_Unwind_Entry& Elf64_Addr unwind$pq_ue_start$ Elf64_Addr unwind$pq_ue_end% Elf64_Addr unwind$pq_ue_info# end record IA_64_Unwind_Entry 5 DECLARE LONG CONSTANT ELF64_NHDR$K_NH_SIZE = 245 DECLARE LONG CONSTANT ELF64_NHDR$C_NH_SIZE = 242 DECLARE LONG CONSTANT nhdr$S_Elf64_Nhdr = 24 record Elf64_Nhdr% " Elf64_Xword nhdr$q_nh_namesz% Elf64_Xword nhdr$q_nh_descsz# Elf64_Xword nhdr$q_nh_type end record Elf64_Nhdr 5 DECLARE LONG CONSTANT ELF64_MHDR$K_MH_SIZE = 345 DECLARE LONG CONSTANT ELF64_MHDR$C_MH_SIZE = 342 DECLARE LONG CONSTANT mhdr$S_Elf64_Mhdr = 40 record Elf64_Mhdr/ BYTE mhdr$b_mh_create_date ( 1 to 17 ). BYTE mhdr$b_mh_patch_date ( 1 to 17 )$ BYTE mhdr$b_mh_name_version$ BYTE mhdr$b_fill_123_# ( 4 ) end record Elf64_Mhdr 8 DECLARE LONG CONSTANT ELF64_ORIGDYN$K_MAJOR_ID = 18 DECLARE LONG CONSTANT ELF64_ORIGDYN$K_MINOR_ID = 38 DECLARE LONG CONSTANT origdyn$S_Elf64_OrigDyn = 40 record Elf64_OrigDyn LONG origdyn$l_major_id LONG origdyn$l_minor_id3 BASIC$QUADWORD origdyn$q_manipulation_date, BASIC$QUADWORD origdyn$q_link_flags! LONG origdyn$l_elf_flags LONG origdyn$l_filler( BYTE origdyn$b_ $imgid ( 1 to 1 )' BYTE origdyn$b_fill_124_ ( 6 ) end record Elf64_OrigDyn 1 DECLARE LONG CONSTANT NHDR$K_NT_VMS_MHD = 11 DECLARE LONG CONSTANT NHDR$K_NT_VMS_LNM = 21 DECLARE LONG CONSTANT NHDR$K_NT_VMS_SRC = 33 DECLARE LONG CONSTANT NHDR$K_NT_VMS_TITLE = 42 DECLARE LONG CONSTANT NHDR$K_NT_VMS_EIDC = 54 DECLARE LONG CONSTANT NHDR$K_NT_VMS_FPMODE = 68 DECLARE LONG CONSTANT NHDR$K_NT_VMS_LINKTIME = 1016 DECLARE LONG CONSTANT NHDR$K %_NT_VMS_IMGNAM = 1025 DECLARE LONG CONSTANT NHDR$K_NT_VMS_IMGID = 1036 DECLARE LONG CONSTANT NHDR$K_NT_VMS_LINKID = 1046 DECLARE LONG CONSTANT NHDR$K_NT_VMS_IMGBID = 1056 DECLARE LONG CONSTANT NHDR$K_NT_VMS_GSTNAM = 1068 DECLARE LONG CONSTANT NHDR$K_NT_VMS_ORIG_DYN = 1079 DECLARE LONG CONSTANT NHDR$K_NT_VMS_PATCHTIME = 108> DECLARE LONG CONSTANT NHDR$K_VMS_EIDC_ERRSEV_WARNING = 0> DECLARE LONG CONSTANT NHDR$K_VMS_EIDC_ERRSEV_SUCCESS = 1< DECLARE &LONG CONSTANT NHDR$K_VMS_EIDC_ERRSEV_ERROR = 2= DECLARE LONG CONSTANT NHDR$K_VMS_EIDC_ERRSEV_SEVERE = 44 DECLARE LONG CONSTANT ELF64_SYM$K_ST_SIZE = 244 DECLARE LONG CONSTANT ELF64_SYM$C_ST_SIZE = 243 DECLARE LONG CONSTANT symtab$S_Elf64_Sym = 24 record Elf64_Sym$ Elf64_Word symtab$l_st_name BYTE symtab$b_st_info BYTE symtab$b_st_other% Elf64_Half symtab$w_st_shndx& Elf64_Addr symtab$pq_st_value% Elf64_Xword sym 'tab$q_st_size end record Elf64_Sym 2 DECLARE LONG CONSTANT SYMTAB$K_STB_LOCAL = 03 DECLARE LONG CONSTANT SYMTAB$K_STB_GLOBAL = 11 DECLARE LONG CONSTANT SYMTAB$K_STB_WEAK = 22 DECLARE LONG CONSTANT SYMTAB$K_STB_LOOS = 106 DECLARE LONG CONSTANT SYMTAB$K_STB_VMS_WEAK = 118 DECLARE LONG CONSTANT SYMTAB$K_STB_VMS_SYSTEM = 122 DECLARE LONG CONSTANT SYMTAB$K_STB_HIOS = 124 DECLARE LONG CONSTANT SYMTAB$K_STB_LOPROC = 134 DECLARE LONG CONSTAN (T SYMTAB$K_STB_HIPROC = 153 DECLARE LONG CONSTANT SYMTAB$K_STT_NOTYPE = 03 DECLARE LONG CONSTANT SYMTAB$K_STT_OBJECT = 11 DECLARE LONG CONSTANT SYMTAB$K_STT_FUNC = 24 DECLARE LONG CONSTANT SYMTAB$K_STT_SECTION = 31 DECLARE LONG CONSTANT SYMTAB$K_STT_FILE = 43 DECLARE LONG CONSTANT SYMTAB$K_STT_COMMON = 50 DECLARE LONG CONSTANT SYMTAB$K_STT_TLS = 62 DECLARE LONG CONSTANT SYMTAB$K_STT_LOOS = 102 DECLARE LONG CONSTANT SYMTAB$K_STT_HIOS = 124 ) DECLARE LONG CONSTANT SYMTAB$K_STT_LOPROC = 134 DECLARE LONG CONSTANT SYMTAB$K_STT_HIPROC = 154 DECLARE LONG CONSTANT SYMTAB$K_STV_DEFAULT = 05 DECLARE LONG CONSTANT SYMTAB$K_STV_INTERNAL = 13 DECLARE LONG CONSTANT SYMTAB$K_STV_HIDDEN = 26 DECLARE LONG CONSTANT SYMTAB$K_STV_PROTECTED = 36 DECLARE LONG CONSTANT SYMTAB$K_STV_UNIVERSAL = 3; DECLARE LONG CONSTANT SYMTAB$K_VMS_STO_VISIBILITY = 3; DECLARE LONG CONSTANT SYMTAB$K_VMS_STO_FUNC_TYPE = 48: * DECLARE LONG CONSTANT SYMTAB$K_VMS_STO_LINKAGE = 192: DECLARE LONG CONSTANT SYMTAB$K_VMS_SFT_CODE_ADDR = 09 DECLARE LONG CONSTANT SYMTAB$K_VMS_SFT_SYMV_IDX = 13 DECLARE LONG CONSTANT SYMTAB$K_VMS_SFT_FD = 28 DECLARE LONG CONSTANT SYMTAB$K_VMS_SFT_RESERVE = 37 DECLARE LONG CONSTANT SYMTAB$K_VMS_STL_IGNORE = 09 DECLARE LONG CONSTANT SYMTAB$K_VMS_STL_RESERVED = 14 DECLARE LONG CONSTANT SYMTAB$K_VMS_STL_STD = 24 DECLARE LONG CONSTANT SYMTAB$K_VMS_STL+_LNK = 36 DECLARE LONG CONSTANT ELF64_RELA64$K_R_SIZE = 246 DECLARE LONG CONSTANT ELF64_RELA64$C_R_SIZE = 244 DECLARE LONG CONSTANT rela$S_Elf64_Rela64 = 24 record Elf64_Rela64$ Elf64_Addr rela$pq_r_offset group rela$r_info_olay variant case+ Elf64_Xword rela$q_r_info case% group rela$r_symtyp- Elf64_Word rela$l_r_type, Elf64_Wor ,d rela$l_r_sym) end group rela$r_symtyp end variant# end group rela$r_info_olay% Elf64_Sxword rela$q_r_addend end record Elf64_Rela64 3 DECLARE LONG CONSTANT RELA$K_R_IA_64_NONE = 05 DECLARE LONG CONSTANT RELA$K_R_IA_64_IMM14 = 335 DECLARE LONG CONSTANT RELA$K_R_IA_64_IMM22 = 345 DECLARE LONG CONSTANT RELA$K_R_IA_64_IMM64 = 358 DECLARE LONG CONSTANT RELA$K_R_IA_64_DIR32MSB = 368 DECLARE LONG CONST -ANT RELA$K_R_IA_64_DIR32LSB = 378 DECLARE LONG CONSTANT RELA$K_R_IA_64_DIR64MSB = 388 DECLARE LONG CONSTANT RELA$K_R_IA_64_DIR64LSB = 397 DECLARE LONG CONSTANT RELA$K_R_IA_64_GPREL22 = 428 DECLARE LONG CONSTANT RELA$K_R_IA_64_GPREL64I = 43: DECLARE LONG CONSTANT RELA$K_R_IA_64_GPREL32MSB = 44: DECLARE LONG CONSTANT RELA$K_R_IA_64_GPREL32LSB = 45: DECLARE LONG CONSTANT RELA$K_R_IA_64_GPREL64MSB = 46: DECLARE LONG CONSTANT RELA$K_R_IA_64_GPREL64LSB = 477 . DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF22 = 508 DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF64I = 518 DECLARE LONG CONSTANT RELA$K_R_IA_64_PLTOFF22 = 589 DECLARE LONG CONSTANT RELA$K_R_IA_64_PLTOFF64I = 59; DECLARE LONG CONSTANT RELA$K_R_IA_64_PLTOFF64MSB = 62; DECLARE LONG CONSTANT RELA$K_R_IA_64_PLTOFF64LSB = 637 DECLARE LONG CONSTANT RELA$K_R_IA_64_FPTR64I = 679 DECLARE LONG CONSTANT RELA$K_R_IA_64_FPTR32MSB = 689 DECLARE LONG CONSTANT RE /LA$K_R_IA_64_FPTR32LSB = 699 DECLARE LONG CONSTANT RELA$K_R_IA_64_FPTR64MSB = 709 DECLARE LONG CONSTANT RELA$K_R_IA_64_FPTR64LSB = 718 DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL60B = 728 DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL21B = 738 DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL21M = 748 DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL21F = 75: DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL32MSB = 76: DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL32LSB = 77: 0 DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL64MSB = 78: DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL64LSB = 79< DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF_FPTR22 = 82= DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF_FPTR64I = 83? DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF_FPTR32MSB = 84? DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF_FPTR32LSB = 85? DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF_FPTR64MSB = 86? DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF_FPTR64LSB = 87; 1 DECLARE LONG CONSTANT RELA$K_R_IA_64_SEGREL32MSB = 92; DECLARE LONG CONSTANT RELA$K_R_IA_64_SEGREL32LSB = 93; DECLARE LONG CONSTANT RELA$K_R_IA_64_SEGREL64MSB = 94; DECLARE LONG CONSTANT RELA$K_R_IA_64_SEGREL64LSB = 95< DECLARE LONG CONSTANT RELA$K_R_IA_64_SECREL32MSB = 100< DECLARE LONG CONSTANT RELA$K_R_IA_64_SECREL32LSB = 101< DECLARE LONG CONSTANT RELA$K_R_IA_64_SECREL64MSB = 102< DECLARE LONG CONSTANT RELA$K_R_IA_64_SECREL64LSB = 1039 DECL 2ARE LONG CONSTANT RELA$K_R_IA_64_REL32MSB = 1089 DECLARE LONG CONSTANT RELA$K_R_IA_64_REL32LSB = 1099 DECLARE LONG CONSTANT RELA$K_R_IA_64_REL64MSB = 1109 DECLARE LONG CONSTANT RELA$K_R_IA_64_REL64LSB = 1119 DECLARE LONG CONSTANT RELA$K_R_IA_64_LTV32MSB = 1169 DECLARE LONG CONSTANT RELA$K_R_IA_64_LTV32LSB = 1179 DECLARE LONG CONSTANT RELA$K_R_IA_64_LTV64MSB = 1189 DECLARE LONG CONSTANT RELA$K_R_IA_64_LTV64LSB = 119: DECLARE LONG CONSTANT RELA$K_R 3_IA_64_PCREL21BI = 1218 DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL22 = 1229 DECLARE LONG CONSTANT RELA$K_R_IA_64_PCREL64I = 1238 DECLARE LONG CONSTANT RELA$K_R_IA_64_IPLTMSB = 1288 DECLARE LONG CONSTANT RELA$K_R_IA_64_IPLTLSB = 1295 DECLARE LONG CONSTANT RELA$K_R_IA_64_COPY = 1324 DECLARE LONG CONSTANT RELA$K_R_IA_64_SUB = 1339 DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF22X = 1347 DECLARE LONG CONSTANT RELA$K_R_IA_64_LDXMOV = 1358 DECLARE LONG C 4ONSTANT RELA$K_R_IA_64_TPREL14 = 1458 DECLARE LONG CONSTANT RELA$K_R_IA_64_TPREL22 = 1469 DECLARE LONG CONSTANT RELA$K_R_IA_64_TPREL64I = 147; DECLARE LONG CONSTANT RELA$K_R_IA_64_TPREL64MSB = 150; DECLARE LONG CONSTANT RELA$K_R_IA_64_TPREL64LSB = 151; DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF_TP22 = 154< DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPMOD64MSB = 166< DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPMOD64LSB = 167? DECLARE LONG CONSTANT RELA$K_R_IA_ 564_LTOFF_DTPMOD22 = 1709 DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPREL14 = 1779 DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPREL22 = 178: DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPREL64I = 179< DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPREL32MSB = 180< DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPREL32LSB = 181< DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPREL64MSB = 182< DECLARE LONG CONSTANT RELA$K_R_IA_64_DTPREL64LSB = 183? DECLARE LONG CONSTANT RELA$K_R_IA_64_LTOFF_DTP 6REL22 = 186< DECLARE LONG CONSTANT RELA$K_R_IA_64_LOOS = 18790481924 DECLARE LONG CONSTANT RELA$K_R_IA_64_HIOS = -1< DECLARE LONG CONSTANT RELA$K_R_IA_64_DIR8 = 1879048192@ DECLARE LONG CONSTANT RELA$K_R_IA_64_DIR16LSB = 1879048193D DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_CALL_SIG = 1879048194H DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_EXECLET_FUNC = 1879048195H DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_EXECLET_DATA = 1879048196@ DECLARE LONG CONSTANT RE7LA$K_R_IA_64_VMS_FIX8 = 1879048197A DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_FIX16 = 1879048198A DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_FIX32 = 1879048199A DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_FIX64 = 1879048200A DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_FIXFD = 1879048201D DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_LOAD = 1879048202C DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_ADD = 1879048203C DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_SUB = 1 8879048204C DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_MUL = 1879048205C DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_DIV = 1879048206C DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_AND = 1879048207C DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_IOR = 1879048208C DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_EOR = 1879048209C DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_ASH = 1879048210D DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_STO8 = 1879048212H 9 DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_STO16LSB = 1879048213H DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_STO32LSB = 1879048214H DECLARE LONG CONSTANT RELA$K_R_IA_64_VMS_ACC_STO64LSB = 1879048215= ! Display Name Info (dni) - aka Demangler info - entriesF ! Internally some more structures and names are used. However, a > ! developer should only use the types Elf64_vms_dni32 andH ! Elf64_vms_dni64, both contain all necessary fields. In C notation* ! all the : necesary 32 bit fields are: ! dni32$l_dni_format1 ! dni32$l_fmt1_info[i].fmt1$l_dni_demangler. ! dni32$l_fmt1_info[i].fmt1$l_dni_symbol, ! dni32$l_fmt1_info[i].fmt1$l_dni_data. ! dni32$l_fmt2_info[i].fmt2$l_dni_symbol, ! dni32$l_fmt2_info[i].fmt2$l_dni_data) ! dni32$l_fmt3.fmt3$l_dni_demangler) ! dni32$l_fmt4.fmt4$l_dni_demangler. ! dni32$l_fmt4_info[i].fmt4$l_dni_symbol, ! dni32$l_fmt4_info[i].fmt4$l_dni_data, DECLARE LONG CONSTAN;T DNI$_SUCCESS = 1T DECLARE LONG CONSTANT DNI$_NORMAL = 1 ! demangled string is in result bufferB DECLARE LONG CONSTANT DNI$_ERROR = 2 ! error in demangling6 DECLARE LONG CONSTANT DNI$_ALTERNATE_SUCCESS = 9Y DECLARE LONG CONSTANT DNI$_SAME = 9 ! demangled string identical to input string# ! Data representations (0,4,8)I DECLARE LONG CONSTANT DNI$_DATA_ULEB = 0 ! ULEBs (see DWARF spec)K DECLARE LONG CONSTANT DNI$_DATA_WORD = 4 ! ELF64_Word, VMS Lon<gwordM DECLARE LONG CONSTANT DNI$_DATA_XWORD = 8 ! ELF64_Xword, VMS Quadword ! DNI formats (1, ..., 4)) DECLARE LONG CONSTANT DNI$_FMT1 = 1) DECLARE LONG CONSTANT DNI$_FMT2 = 2) DECLARE LONG CONSTANT DNI$_FMT3 = 3) DECLARE LONG CONSTANT DNI$_FMT4 = 4 !  ! 32 bit variants ! < DECLARE LONG CONSTANT fmt1$S_Elf64_vms_dni32_fmt1 = 12! record Elf64_vms_dni32_fmt1( Elf64_Word fmt1$l_dni_demangler% Elf64_Word fmt1$l_dni=_symbol# Elf64_Word fmt1$l_dni_data% end record Elf64_vms_dni32_fmt1 ; DECLARE LONG CONSTANT fmt2$S_Elf64_vms_dni32_fmt2 = 8! record Elf64_vms_dni32_fmt2% Elf64_Word fmt2$l_dni_symbol# Elf64_Word fmt2$l_dni_data% end record Elf64_vms_dni32_fmt2 ; DECLARE LONG CONSTANT fmt3$S_Elf64_vms_dni32_fmt3 = 4 ; DECLARE LONG CONSTANT fmt4$S_Elf64_vms_dni32_fmt4 = 4 ? DECLARE LONG CONSTANT fmt4$S_Elf64_vms_dni32_fmt>4_sub = 8% record Elf64_vms_dni32_fmt4_sub% Elf64_Word fmt4$l_dni_symbol# Elf64_Word fmt4$l_dni_data) end record Elf64_vms_dni32_fmt4_sub 8 DECLARE LONG CONSTANT dni32$S_Elf64_vms_dni32 = 16 record Elf64_vms_dni32& Elf64_Word dni32$l_dni_format group dni32$r_entry32 variant case) group dni32$r_format_l1F Elf64_vms_dni32_fmt1 dni32$l_fmt1_info ( 1 to 1 )- ? end group dni32$r_format_l1 case) group dni32$r_format_l2F Elf64_vms_dni32_fmt2 dni32$l_fmt2_info ( 1 to 1 )- end group dni32$r_format_l2 case) group dni32$r_format_l36 Elf64_vms_dni32_fmt3 dni32$l_fmt3- end group dni32$r_format_l3 case) group dni32$r_format_l46 Elf64_vms_dni32_fmt4 @dni32$l_fmt4J Elf64_vms_dni32_fmt4_sub dni32$l_fmt4_info ( 1 to 1 )- end group dni32$r_format_l4 end variant" end group dni32$r_entry32 end record Elf64_vms_dni32  !  ! 64 bit variants ! < DECLARE LONG CONSTANT fmt1$S_Elf64_vms_dni64_fmt1 = 24! record Elf64_vms_dni64_fmt1) Elf64_Xword fmt1$q_dni_demangler& Elf64_Xword fmt1$q_dni_symbol$ Elf64_Xword fmt1$q_dni_data% Aend record Elf64_vms_dni64_fmt1 < DECLARE LONG CONSTANT fmt2$S_Elf64_vms_dni64_fmt2 = 16! record Elf64_vms_dni64_fmt2& Elf64_Xword fmt2$q_dni_symbol$ Elf64_Xword fmt2$q_dni_data% end record Elf64_vms_dni64_fmt2 ; DECLARE LONG CONSTANT fmt3$S_Elf64_vms_dni64_fmt3 = 8 ; DECLARE LONG CONSTANT fmt4$S_Elf64_vms_dni64_fmt4 = 8 @ DECLARE LONG CONSTANT fmt4$S_Elf64_vms_dni64_fmt4_sub = 16% record Elf64_vms_dni64_fmt4_sub& B Elf64_Xword fmt4$q_dni_symbol$ Elf64_Xword fmt4$q_dni_data) end record Elf64_vms_dni64_fmt4_sub 8 DECLARE LONG CONSTANT dni64$S_Elf64_vms_dni64 = 32 record Elf64_vms_dni64' Elf64_Xword dni64$q_dni_format group dni64$r_entry64 variant case) group dni64$r_format_q1F Elf64_vms_dni64_fmt1 dni64$q_fmt1_info ( 1 to 1 )- end group dni64$r_format_q1 C case) group dni64$r_format_q2F Elf64_vms_dni64_fmt2 dni64$q_fmt2_info ( 1 to 1 )- end group dni64$r_format_q2 case) group dni64$r_format_q36 Elf64_vms_dni64_fmt3 dni64$q_fmt3- end group dni64$r_format_q3 case) group dni64$r_format_q46 Elf64_vms_dni64_fmt4 dni64$q_fmt4J Elf64_vms_dni64_f Dmt4_sub dni64$q_fmt4_info ( 1 to 1 )- end group dni64$r_format_q4 end variant" end group dni64$r_entry64 end record Elf64_vms_dni64 , DECLARE LONG CONSTANT PHDR$SC_PF_X = 05 DECLARE LONG CONSTANT phdr$m_pf_x = x'00000001', DECLARE LONG CONSTANT PHDR$SC_PF_W = 15 DECLARE LONG CONSTANT phdr$m_pf_w = x'00000002', DECLARE LONG CONSTANT PHDR$SC_PF_R = 25 DECLARE LONG CONSTANT phdr$m_pf_r = x'00000004'> DECLAR EE LONG CONSTANT phdr$m_pf_fill_3to19 = x'000FFFF8'< DECLARE LONG CONSTANT PHDR$SC_PF_VMS_NOWRIT_RELOC = 20D DECLARE LONG CONSTANT phdr$m_pf_vms_nowrit_reloc = x'00100000'; DECLARE LONG CONSTANT PHDR$SC_PF_VMS_INITIALCODE = 21C DECLARE LONG CONSTANT phdr$m_pf_vms_initialcode = x'00200000'8 DECLARE LONG CONSTANT PHDR$SC_PF_VMS_RESIDENT = 22@ DECLARE LONG CONSTANT phdr$m_pf_vms_resident = x'00400000'6 DECLARE LONG CONSTANT PHDR$SC_PF_VMS_VECTOR = 23> DECL FARE LONG CONSTANT phdr$m_pf_vms_vector = x'00800000'7 DECLARE LONG CONSTANT PHDR$SC_PF_VMS_PROTECT = 24? DECLARE LONG CONSTANT phdr$m_pf_vms_protect = x'01000000'< DECLARE LONG CONSTANT PHDR$SC_PF_VMS_NOWRIT_FIXUP = 25D DECLARE LONG CONSTANT phdr$m_pf_vms_nowrit_fixup = x'02000000'5 DECLARE LONG CONSTANT PHDR$SC_PF_VMS_SHORT = 26= DECLARE LONG CONSTANT phdr$m_pf_vms_short = x'04000000'6 DECLARE LONG CONSTANT PHDR$SC_PF_VMS_SHARED = 27> DECLARE LONG C GONSTANT phdr$m_pf_vms_shared = x'08000000'9 DECLARE LONG CONSTANT PHDR$SC_PF_IA_64_NORECOV = 31A DECLARE LONG CONSTANT phdr$m_pf_ia_64_norecov = x'80000000'7 DECLARE LONG CONSTANT phdr$m_fill_1 = x'000FFFFF'2 DECLARE LONG CONSTANT PHDR$SC_PF_MASKOS = 20: DECLARE LONG CONSTANT phdr$m_pf_maskos = x'0FF00000'4 DECLARE LONG CONSTANT PHDR$SC_PF_MASKPROC = 28< DECLARE LONG CONSTANT phdr$m_pf_maskproc = x'F0000000'2 DECLARE LONG CONSTANT ELF64_PHDR$K_SIZE = H562 DECLARE LONG CONSTANT ELF64_PHDR$C_SIZE = 562 DECLARE LONG CONSTANT phdr$S_Elf64_Phdr = 56 record Elf64_Phdr! Elf64_Word phdr$l_p_type group phdr$r_flags variant case+ Elf64_Word phdr$l_p_flags case' group phdr$r_flagbitst LONG pf_x_bits ! COMMENT ADDED BY SDL - pf_x_bits contains bits pf_x through pf_ia_64_norecov+ end group phdr$r I_flagbits case( group phdr$r_flagmasksu LONG fill_1_bits ! COMMENT ADDED BY SDL - fill_1_bits contains bits fill_1 through pf_maskproc, end group phdr$r_flagmasks end variant end group phdr$r_flags" Elf64_Off phdr$q_p_offset# Elf64_Addr phdr$pq_p_vaddr# Elf64_Addr phdr$pq_p_paddr$ Elf64_Xword phdr$q_p_filesz# Elf64_Xword phdr$q_p_memsz# Elf64_X Jword phdr$q_p_align end record Elf64_Phdr . DECLARE LONG CONSTANT PHDR$K_PT_NULL = 0. DECLARE LONG CONSTANT PHDR$K_PT_LOAD = 11 DECLARE LONG CONSTANT PHDR$K_PT_DYNAMIC = 20 DECLARE LONG CONSTANT PHDR$K_PT_INTERP = 3. DECLARE LONG CONSTANT PHDR$K_PT_NOTE = 4/ DECLARE LONG CONSTANT PHDR$K_PT_SHLIB = 5. DECLARE LONG CONSTANT PHDR$K_PT_PHDR = 6- DECLARE LONG CONSTANT PHDR$K_PT_TLS = 77 DECLARE LONG CONSTANT PHDR$K_PT_LOOS = 1610612736K7 DECLARE LONG CONSTANT PHDR$K_PT_HIOS = 18790481919 DECLARE LONG CONSTANT PHDR$K_PT_LOPROC = 18790481929 DECLARE LONG CONSTANT PHDR$K_PT_HIPROC = 2147483647> DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_CALL_DEBUG = 0G DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_call_debug = x'00000001'< DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_NOP0BUFS = 1E DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_nop0bufs = x'00000002'; DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_P0IMAG LE = 2D DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_p0image = x'00000004'= DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_MKTHREADS = 3F DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_mkthreads = x'00000008'; DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_UPCALLS = 4D DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_upcalls = x'00000010': DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_IMGSTA = 5C DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_imgsta = x'00000020'> DECLARE LONG CONSTANT DY MNSEG$SC_DT_VMS_LF_INITIALIZE = 6G DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_initialize = x'00000040'8 DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_MAIN = 7A DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_main = x'00000080': DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_UNUSED = 8C DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_unused = x'00000100'< DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_EXE_INIT = 9E DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_exe_init = x'00000200'? DENCLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_TBK_IN_IMG = 10G DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_tbk_in_img = x'00000400'? DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_DBG_IN_IMG = 11G DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_dbg_in_img = x'00000800'? DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_TBK_IN_DSF = 12G DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_tbk_in_dsf = x'00001000'? DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_DBG_IN_DSF = 13G DECLARE LONG CONSTANT Odynseg$m_dt_vms_lf_dbg_in_dsf = x'00002000'? DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_SIGNATURES = 14G DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_signatures = x'00004000'@ DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_REL_SEG_OFF = 15H DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_rel_seg_off = x'00008000'> DECLARE LONG CONSTANT DYNSEG$SC_DT_VMS_LF_SSI_INCAP = 16F DECLARE LONG CONSTANT dynseg$m_dt_vms_lf_ssi_incap = x'00010000'. DECLARE LONG CONSTANT DYNSEG$K_SIZE = P16. DECLARE LONG CONSTANT DYNSEG$C_SIZE = 163 DECLARE LONG CONSTANT dynseg$S_Elf64_Dyn = 16 record Elf64_Dyn$ Elf64_Sxword dynseg$q_d_tag group dynseg$r_d_un variant case, Elf64_Xword dynseg$q_d_val case, Elf64_Addr dynseg$pq_d_ptr case/ group dynseg$r_d_vms_lnkflagsy LONG dt_vms_lf_call_debug_bits ! COMMENT ADDED BY SDL - Q dt_vms_lf_call_debug_bits contains bits &) ! dt_vms_lf_call_debug through fill_125_3 end group dynseg$r_d_vms_lnkflags end variant end group dynseg$r_d_un end record Elf64_Dyn 0 DECLARE LONG CONSTANT DYNSEG$K_DT_NULL = 02 DECLARE LONG CONSTANT DYNSEG$K_DT_NEEDED = 12 DECLARE LONG CONSTANT DYNSEG$K_DT_STRSZ = 10F DECLARE LONG CONSTANT DYNSEG$K_DT_IA_64_PLT_RESERVE = 18790481929 DECLARE LONG CONSTANT DYNSEG$K_DT_LOROS = 1610612749@ DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_SUBTYPE = 1610612749E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_1 = 1610612750A DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_IMGIOCNT = 1610612751E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_3 = 1610612752E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_4 = 1610612753E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_5 = 1610612754E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_6 = 1610612 S755E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_7 = 1610612756A DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_LNKFLAGS = 1610612757E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_9 = 1610612758H DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_VIR_MEM_BLK_SIZ = 1610612759F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_11 = 1610612760> DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_IDENT = 1610612761F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_13 = 1610612762F TDECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_14 = 1610612763F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_15 = 1610612764E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_NEEDED_IDENT = 1610612765F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_17 = 1610612766E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_IMG_RELA_CNT = 1610612767F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_19 = 1610612768E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_SEG_RELA_CNT = 1610612769F DEUCLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_21 = 1610612770G DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_FIXUP_RELA_CNT = 1610612771F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_23 = 1610612772E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_FIXUP_NEEDED = 1610612773F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_25 = 1610612774C DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_SYMVEC_CNT = 1610612775F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_27 = 1610612776F DECLVARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_28 = 1610612777F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_29 = 1610612778? DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_XLATED = 1610612779F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_31 = 1610612780B DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_STACKSIZE = 1610612781F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_33 = 1610612782A DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_UNWINDSZ = 1610612783F DECLARE LONG CONSTANWT DYNSEG$K_DT_VMS_DTLOOSPLUS_35 = 1610612784F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_UNWIND_CODSEG = 1610612785F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_37 = 1610612786G DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_UNWIND_INFOSEG = 1610612787F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_39 = 1610612788A DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_LINKTIME = 1610612789F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_41 = 1610612790? DECLARE LONG CONSTANT DYXNSEG$K_DT_VMS_SEG_NO = 1610612791F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_43 = 1610612792F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_SYMVEC_OFFSET = 1610612793F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_45 = 1610612794C DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_SYMVEC_SEG = 1610612795F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_47 = 1610612796F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_UNWIND_OFFSET = 1610612797F DECLARE LONG CONSTANT DYNSEG$K_DT_YVMS_DTLOOSPLUS_49 = 1610612798C DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_UNWIND_SEG = 1610612799F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_51 = 1610612800F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_STRTAB_OFFSET = 1610612801F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_53 = 1610612802F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_SYSVER_OFFSET = 1610612803F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_55 = 1610612804E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_ZIMG_RELA_OFF = 1610612805F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_57 = 1610612806E DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_SEG_RELA_OFF = 1610612807F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_59 = 1610612808G DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_FIXUP_RELA_OFF = 1610612809F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_61 = 1610612810F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_PLTGOT_OFFSET = 1610612811F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_ [DTLOOSPLUS_63 = 1610612812C DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_PLTGOT_SEG = 1610612813F DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_DTLOOSPLUS_65 = 1610612814? DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_FPMODE = 1610612815; DECLARE LONG CONSTANT DYNSEG$K_DT_VMS_SUBTYPE_CLI = 10 DECLARE LONG CONSTANT IDENTs_vms_ident = 8 record vms_ident LONG IDENTl_minor_id WORD IDENTw_major_id BYTE IDENTb_match BYTE IDENTb_unused end re \cord vms_ident 3 DECLARE LONG CONSTANT TBK$K_RECTYPE_HDR32 = 13 DECLARE LONG CONSTANT TBK$K_RECTYPE_RTN32 = 21 DECLARE LONG CONSTANT TBK$K_RECTYPE_FIL = 31 DECLARE LONG CONSTANT TBK$K_RECTYPE_LN1 = 41 DECLARE LONG CONSTANT TBK$K_RECTYPE_LN2 = 51 DECLARE LONG CONSTANT TBK$K_RECTYPE_LN4 = 61 DECLARE LONG CONSTANT TBK$K_RECTYPE_PC1 = 71 DECLARE LONG CONSTANT TBK$K_RECTYPE_PC2 = 81 DECLARE LONG CONSTANT TBK$K_RECTYPE_PC4 = 96 DECLAR ]E LONG CONSTANT TBK$K_RECTYPE_VERSION = 104 DECLARE LONG CONSTANT TBK$K_RECTYPE_HDR64 = 114 DECLARE LONG CONSTANT TBK$K_RECTYPE_RTN64 = 122 DECLARE LONG CONSTANT TBK$K_RECTYPE_PC8 = 13? DECLARE LONG CONSTANT sysver$s_system_version_array = 132! record system_version_array, ! Bit mask of valid array entriesx LONG subsystem_mask_bits ! COMMENT ADDED BY SDL - subsystem_mask_bits contains bits subsystem_mask through & ! subsystem_maskH sys ^ver_majmin sysver$r_system_ver ! Version of sys$base_imageX subsys_majmin sysver$r_subsys_ver ( 1 to 31 ) ! Version of various subsystems% end record system_version_array 0 DECLARE LONG CONSTANT SYSVER$K_LENGTH = 330 DECLARE LONG CONSTANT SYSVER$C_LENGTH = 33+ DECLARE LONG CONSTANT IMF$K_SIZE = 32+ DECLARE LONG CONSTANT IMF$C_SIZE = 322 DECLARE LONG CONSTANT imf$s_image_fixup = 32 record image_fixup' Elf64_Xword imf$q_fixup_offse_t Elf64_Word imf$l_type# Elf64_Word imf$l_fixup_seg" Elf64_Sxword imf$q_addend& Elf64_Word imf$l_symvec_index# Elf64_Word imf$l_data_type end record image_fixup + DECLARE LONG CONSTANT IMR$K_SIZE = 40+ DECLARE LONG CONSTANT IMR$C_SIZE = 401 DECLARE LONG CONSTANT imr$s_image_rela = 40 record image_rela& Elf64_Xword imr$q_rela_offset Elf64_Word imr$l_type" Elf64_Word imr$l_rela_seg" ` Elf64_Sxword imr$q_addend% Elf64_Xword imr$q_sym_offset! Elf64_Word imr$l_sym_seg Elf64_Word imr$l_fill_1 end record image_rela + DECLARE LONG CONSTANT SGR$K_SIZE = 32+ DECLARE LONG CONSTANT SGR$C_SIZE = 323 DECLARE LONG CONSTANT sgr$s_segment_rela = 32 record segment_rela& Elf64_Xword sgr$q_rela_offset Elf64_Word sgr$l_type" Elf64_Word sgr$l_rela_seg" Elf64_Sxword sgr$q_addend# garoup sgr$r_symbol_overlay variant case. Elf64_Sxword sgr$q_gp_offset case( group sgr$r_needed_sym2 Elf64_Word sgr$l_symvec_index2 Elf64_Word sgr$l_needed_index, end group sgr$r_needed_sym end variant' end group sgr$r_symbol_overlay end record segment_rela 1 DECLARE LONG CONSTANT VMS_FIXUP$K_SIZE = 241 DECLARE bLONG CONSTANT VMS_FIXUP$C_SIZE = 246 DECLARE LONG CONSTANT vms_fixup$s_vms_fixup = 24 record vms_fixup' Elf64_Addr vms_fixup$pq_offset( Elf64_Sxword vms_fixup$q_addend' Elf64_Word vms_fixup$l_symindx$ Elf64_Word vms_fixup$l_type end record vms_fixup + DECLARE LONG CONSTANT LNKG$K_SIZE = 8+ DECLARE LONG CONSTANT LNKG$C_SIZE = 8: DECLARE LONG CONSTANT lnkg$s_vms_linkages_header = 8 record vms_linkages_header c Elf64_Word lnkg$l_type% Elf64_Word lnkg$l_decl_count$ end record vms_linkages_header 3 DECLARE LONG CONSTANT LNKG_ENTRY1$K_SIZE = 123 DECLARE LONG CONSTANT LNKG_ENTRY1$C_SIZE = 12> DECLARE LONG CONSTANT lnkg_entry1$s_vms_lnkg_entry1 = 12 record vms_lnkg_entry1( Elf64_Word lnkg_entry1$l_symidx& group lnkg_entry1$r_lnkg_desc variant case4 vms_lnkg_desc1 lnkg_entry1$ps_desc d case: Elf64_Xword lnkg_entry1$q_vms_linkage_qw end variant* end group lnkg_entry1$r_lnkg_desc end record vms_lnkg_entry1 ; DECLARE LONG CONSTANT VMSLNKG$K_VMS_LINKAGE_TYPE1 = 15 DECLARE LONG CONSTANT VMSLNKG$K_REG_POL_VOL = 05 DECLARE LONG CONSTANT VMSLNKG$K_REG_POL_SCR = 15 DECLARE LONG CONSTANT VMSLNKG$K_REG_POL_OUT = 25 DECLARE LONG CONSTANT VMSLNKG$K_REG_POL_PRE = 30 DECLARE LONG CONSTANT fd$s_func_ edescr = 16 record func_descr! Elf64_Addr fd$pq_entryVA Elf64_Addr fd$pq_GPtr end record func_descr 5 DECLARE LONG CONSTANT UNWIND$K_DESC_VERSION = 1= DECLARE LONG CONSTANT unwind$m_unw_length = x'FFFFFFFF'< DECLARE LONG CONSTANT UNWIND$SC_UNW_FLAG_EHANDLER = 32D DECLARE LONG CONSTANT unwind$m_unw_flag_ehandler = x'00000000'< DECLARE LONG CONSTANT UNWIND$SC_UNW_FLAG_UHANDLER = 33D DECLARE LONG CONSTANT unwind$m_unw_flag_uhan fdler = x'00000000'F DECLARE LONG CONSTANT unwind$m_unw_flag_rsvd_43_34 = x'00000000'< DECLARE LONG CONSTANT UNWIND$SC_UNW_FLAG_VMS_OSDA = 44D DECLARE LONG CONSTANT unwind$m_unw_flag_vms_osda = x'00000000'? DECLARE LONG CONSTANT UNWIND$SC_UNW_FLAG_VMS_HANDLER = 45G DECLARE LONG CONSTANT unwind$m_unw_flag_vms_handler = x'00000000'8 DECLARE LONG CONSTANT UNWIND$SC_UNW_FLAG_MASK = 32@ DECLARE LONG CONSTANT unwind$m_unw_flag_mask = x'00000000'@ DECLARE LONG g CONSTANT unwind$m_osmask_unused = x'00000000': DECLARE LONG CONSTANT UNWIND$SC_UNW_FLAG_OSMASK = 44B DECLARE LONG CONSTANT unwind$m_unw_flag_osmask = x'00000000'B DECLARE LONG CONSTANT unwind$m_ivmsmode_unused = x'00000000'8 DECLARE LONG CONSTANT UNWIND$SC_UNW_IVMS_MODE = 44@ DECLARE LONG CONSTANT unwind$m_unw_ivms_mode = x'00000000'A DECLARE LONG CONSTANT unwind$m_version_unused = x'00000000'6 DECLARE LONG CONSTANT UNWIND$SC_UNW_VERSION = 48> DECLARE hLONG CONSTANT unwind$m_unw_version = x'00000000'2 DECLARE LONG CONSTANT UNWIND$K_DESC_SIZE = 82 DECLARE LONG CONSTANT UNWIND$C_DESC_SIZE = 87 DECLARE LONG CONSTANT unwind$s_exceptn_unwind = 8 record exceptn_unwind# group unwind$r_unwind_desc variant case/ group unwind$r_unwind_generic1 group unwind$r_unwind_length variant case9 i Elf64_Word unwind$l_unw_length case6 group unwind$r_unw_len_mask LONG unw_length_bits ! COMMENT ADDED BY SDL - unw_length_bits contains bits unw_length through & ! unw_length: end group unwind$r_unw_len_mask# end variant5 end group unwind$r_unwind_length2 Elf64_Half unwind$w_unw_flags4 E jlf64_Half unwind$w_unw_version3 end group unwind$r_unwind_generic case- group unwind$r_exc_unwnd_os variant case2 group unwind$r_unwind_flag BYTE unused_31_0_bits ( 6 ) ! COMMENT ADDED BY SDL - unused_31_0_bits contains bits unused_31_0 through & ! fill_126_6 end group unwind$r_unwind_flag case1 k group unwind$r_flags_mask BYTE mask_unused_bits ( 6 ) ! COMMENT ADDED BY SDL - mask_unused_bits contains bits mask_unused through & ! unw_flag_mask5 end group unwind$r_flags_mask case3 group unwind$r_flags_osmask BYTE osmask_unused_bits ( 6 ) ! COMMENT ADDED BY SDL - osmask_unused_bits contains bits osmask_unused & ! through unw_flag_os lmask7 end group unwind$r_flags_osmask case1 group unwind$r_flags_ivms{ BYTE ivmsmode_unused_bits ( 6 ) ! COMMENT ADDED BY SDL - ivmsmode_unused_bits contains bits &$ ! ivmsmode_unused through fill_127_5 end group unwind$r_flags_ivms case. group unwind$r_versiony BYTE version_unused_bits ( 8 ) ! COMM mENT ADDED BY SDL - version_unused_bits contains bits &% ! version_unused through unw_version2 end group unwind$r_version end variant1 end group unwind$r_exc_unwnd_os end variant' end group unwind$r_unwind_desc end record exceptn_unwind 6 DECLARE LONG CONSTANT UNWIND$K_FLAGS_UNUSED0 = 06 DECLARE LONG CONSTANT UNWIND$K_FLAGS_UNUSED1 = 18 DECLARE LONG CONSTANT UNWIND$K_FLAGS_SEMANTI nCS = 2= DECLARE LONG CONSTANT UNWIND$K_FLAGS_SEMANTICS_DATA = 31 DECLARE LONG CONSTANT UNWIND$K_ABI_UNIX = 01 DECLARE LONG CONSTANT UNWIND$K_ABI_HPUX = 10 DECLARE LONG CONSTANT UNWIND$K_ABI_WNT = 20 DECLARE LONG CONSTANT UNWIND$K_ABI_VMS = 34 DECLARE LONG CONSTANT UNWIND$K_HDR_PATTERN = 03 DECLARE LONG CONSTANT UNWIND$M_HDR_MASK = 1283 DECLARE LONG CONSTANT UNWIND$K_R1_PATTERN = 02 DECLARE LONG CONSTANT UNWIND$M_R1_MASK = 1924 DECLARE LO oNG CONSTANT UNWIND$K_R2_PATTERN = 642 DECLARE LONG CONSTANT UNWIND$M_R2_MASK = 2484 DECLARE LONG CONSTANT UNWIND$K_R3_PATTERN = 962 DECLARE LONG CONSTANT UNWIND$M_R3_MASK = 2525 DECLARE LONG CONSTANT UNWIND$K_P1_PATTERN = 1282 DECLARE LONG CONSTANT UNWIND$M_P1_MASK = 2245 DECLARE LONG CONSTANT UNWIND$K_P2_PATTERN = 1602 DECLARE LONG CONSTANT UNWIND$M_P2_MASK = 2405 DECLARE LONG CONSTANT UNWIND$K_P3_PATTERN = 1762 DECLARE LONG CONSTANT UNWIND$M_P p3_MASK = 2485 DECLARE LONG CONSTANT UNWIND$K_P4_PATTERN = 1842 DECLARE LONG CONSTANT UNWIND$M_P4_MASK = 2555 DECLARE LONG CONSTANT UNWIND$K_P5_PATTERN = 1852 DECLARE LONG CONSTANT UNWIND$M_P5_MASK = 2555 DECLARE LONG CONSTANT UNWIND$K_P6_PATTERN = 1922 DECLARE LONG CONSTANT UNWIND$M_P6_MASK = 2245 DECLARE LONG CONSTANT UNWIND$K_P7_PATTERN = 2242 DECLARE LONG CONSTANT UNWIND$M_P7_MASK = 2405 DECLARE LONG CONSTANT UNWIND$K_P8_PATTERN = 2402 q DECLARE LONG CONSTANT UNWIND$M_P8_MASK = 2555 DECLARE LONG CONSTANT UNWIND$K_P9_PATTERN = 2412 DECLARE LONG CONSTANT UNWIND$M_P9_MASK = 2556 DECLARE LONG CONSTANT UNWIND$K_P10_PATTERN = 2553 DECLARE LONG CONSTANT UNWIND$M_P10_MASK = 2555 DECLARE LONG CONSTANT UNWIND$K_B1_PATTERN = 1282 DECLARE LONG CONSTANT UNWIND$M_B1_MASK = 1925 DECLARE LONG CONSTANT UNWIND$K_B2_PATTERN = 1922 DECLARE LONG CONSTANT UNWIND$M_B2_MASK = 2245 DECLARE LONG CONST rANT UNWIND$K_B3_PATTERN = 2242 DECLARE LONG CONSTANT UNWIND$M_B3_MASK = 2555 DECLARE LONG CONSTANT UNWIND$K_B4_PATTERN = 2402 DECLARE LONG CONSTANT UNWIND$M_B4_MASK = 2475 DECLARE LONG CONSTANT UNWIND$K_X1_PATTERN = 2492 DECLARE LONG CONSTANT UNWIND$M_X1_MASK = 2555 DECLARE LONG CONSTANT UNWIND$K_X2_PATTERN = 2502 DECLARE LONG CONSTANT UNWIND$M_X2_MASK = 2555 DECLARE LONG CONSTANT UNWIND$K_X3_PATTERN = 2512 DECLARE LONG CONSTANT UNWIND$M_X3_MA SK = 2555 DECLARE LONG CONSTANT UNWIND$K_X4_PATTERN = 2522 DECLARE LONG CONSTANT UNWIND$M_X4_MASK = 2555 DECLARE LONG CONSTANT UNWIND$K_P10_ABI_UNIX = 05 DECLARE LONG CONSTANT UNWIND$K_P10_ABI_HPUX = 14 DECLARE LONG CONSTANT UNWIND$K_P10_ABI_WNT = 24 DECLARE LONG CONSTANT UNWIND$K_P10_ABI_VMS = 3 wwt" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED u( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINvG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > w %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! B ! Define erase type codes. The codes LODUMMY and HIDUMMY areD ! used as placeholders, to make the definition of the upper andF ! lower bound erase type symbols automatic. New erase ty xpe codesB ! should be added at the end of the list, but before HIDUMMY. !  ! 2 DECLARE LONG CONSTANT ERA$K_LODUMMY = 0 ! B DECLARE LONG CONSTANT ERA$K_MEMORY = 1 ! Erase main memoryF DECLARE LONG CONSTANT ERA$K_DISK = 2 ! Erase disk mass storageO DECLARE LONG CONSTANT ERA$K_TAPE = 3 ! Erase magnetic tape mass storage1 DECLARE LONG CONSTANT ERA$K_HIDUMMY = 4 ! Q DECLARE LONG CONSTANT ERA$K_MINTYPE = 1 ! Lower bound of erase type codesQ  DECLARE LONG CONSTANT ERA$K_MAXTYPE = 3 ! Upper bound of erase type codes wwz% ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED {( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN|G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > } %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! O ! Enumerate Item Codes for the various types of Environmental Sensor FRUs. ! - DECLARE LONG CONSTANT ESF$K_TEMP = 4096. DECLARE LONG CONSTANT ESF$K_POWER = 4097, DECLARE LONG CON~STANT ESF$K_FAN = 4098 ! M ! The sys$get_env_sensors system service will populate the user's bufferN ! with an array of the following structure. The dimension of the array isO ! determined by the number of sensors corresponding to the item code by a O ! run-time call to sys$get_env_sensors() with a buffer address of zero or P ! buffer size of zero. sys$get_env_sensors() will pass the dimensions back J ! to the caller so he can allocate buffers to contain the array s for O ! subsequent calls to sys$get_env_sensors() with valid buffer pointers and ! sizes.% ! See [SYS]SYS_GET_ENV_SENSORS.C ! < DECLARE LONG CONSTANT esf$m_valid_status = x'00000001'; DECLARE LONG CONSTANT esf$m_valid_value = x'00000002'= DECLARE LONG CONSTANT esf$m_feat_reserved = x'000000FC'. DECLARE LONG CONSTANT esf$s_esfitem = 32 record esfitemI BYTE esf$b_type ! CFG_NODE config type fieldL BYTE esf$ b_subtype ! CFG_NODE config subtype field9 BYTE esf$B_VALUE ! Value byte: BYTE esf$b_status ! Status byte% group esf$r_features_overlay variant caseI BYTE esf$b_features ! Features of the Sensor FRU case+ group esf$r_features_bits~ BYTE valid_status_bits ! COMMENT ADDED BY SDL - valid_status_bits contains bits valid_status through & ! feat_reserved/ end group esf$r_features_bits end variant) end group esf$r_features_overlay ! ! Pad out to next quad word ! ) BYTE esf$b_reserved_1 ( 1 to 3 ) ! F ! fru_node_id contains FRU Descriptor Node ID information to helpJ ! identify the location of the associated sensor. See "Alpha Systems N ! Configuration Tree Implementation Specification" Table 1-79 on Page 50.K ! T he byte fields in this 8-byte structure are declared in CFGDEF.H asB ! struct cfg$_cfg_node_id_fru_desc in the CFG_NODE structure. ! ) BASIC$QUADWORD esf$q_fru_node_id ! N ! fru_flags contains the Node Flags for the FRU. See "Alpha Configuration8 ! Tree Specification" Release T6.0-0023 page 7-45. . ! See also cfg$iq_node_flags in CFGDEF.H. ! ' BASIC$QUADWORD esf$q_fru_flags ! N ! console_id is a quadword that contains the offset and bit field elementsN ! to be used to access the low-level hardware status or value information ! group esf$r_cid_overlay variant caseF BASIC$QUADWORD esf$q_console_id ! Whole Console ID case( group esf$r_cid_fieldsH LONG esf$l_offset ! Offset part of Console IDJ LONG esf$L_BITFIELD ! Bitfield part of Console ID, end group esf$r_cid_fields end variant$ end group esf$r_cid_overlay end record esfitem  ww, ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  ! EVSB - Event Status BlockS ! The Event Status Block receives $EVENT service VMS and NT completion status * DECLARE LONG CONSTANT EVT$S_EVSB = 8 record EVSBD LONG EVT$L_VMS_STATUS  ! VMS completion statusC LONG EVT$L_NT_STATUS ! NT completion status end record EVSB @ DECLARE LONG CONSTANT EVSB$K_LENGTH = 8 ! Length of EVSB@ DECLARE LONG CONSTANT EVSB$C_LENGTH = 8 ! Length of EVSB ! M ! +-------------------------------------------------------------------+ ! | function codesM ! +-------------------------------------------------------------------+ ! V DECLARE LONG CONSTANT EVT$FC_REGISTER_EVENT_SOURCE = 1 ! register event sourceD DECLARE LONG CONSTANT EVT$FC_REPORT_EVENT = 2 ! report eventZ DECLARE LONG CONSTANT EVT$FC_DEREGISTER_EVENT_SOURCE = 3 ! deregister event sourceb DECLARE LONG CONSTANT EVT$FC_FUNCTION_CODE_TOO_BIG = 4 ! Always keep as last function codeC ! M ! +-------------------------------------------------------------------+ ! | item codesM ! +-------------------------------------------------------------------+ ! W DECLARE LONG CONSTANT EVT$_SERVER_NAME = 1 ! PW server name - currently ignored? DECLARE LONG CONSTANT EVT$_SOURCE = 2 ! Event source idR DECLARE LONG CONSTANT EVT$_HANDLE = 3 ! handle of registered event channelJ DECLARE LONG CONSTANT EVT$_EVENT_TYPE = 4 ! info, warning or errorF DECLARE LONG CONSTANT EVT$_EVENT_CATEGORY = 5 ! Event category: DECLARE LONG CONSTANT EVT$_EVENT_ID = 6 !  Event ID@ DECLARE LONG CONSTANT EVT$_USER_SID = 7 ! NT security IDU DECLARE LONG CONSTANT EVT$_NUMSTRINGS = 8 ! # counted strings in STRING_ARRAYE DECLARE LONG CONSTANT EVT$_DATASIZE = 9 ! # bytes in RAW_DATAL DECLARE LONG CONSTANT EVT$_STRING_ARRAY = 10 ! event log string dataL DECLARE LONG CONSTANT EVT$_RAW_DATA = 11 ! event log non-string dataY DECLARE LONG CONSTANT EVT$_ITEM_CODE_TOO_BIG = 12 ! Always keep as last item code ! E ! max l ength of SERVER_NAME string is 8 wchars, 32 bytes (4 * 8) ! 9 DECLARE LONG CONSTANT EVT$_MAX_SERVER_NAME_LEN = 32 ! P ! Values for EVT$_EVENT_TYPE. NOTE? These values must be kept in sync with6 ! the corresponding values in Microsoft's winnt.h ! D DECLARE LONG CONSTANT EVT$_SUCCESS = 0 ! MS EVENTLOG_SUCCESSE DECLARE LONG CONSTANT EVT$_ERROR = 1 ! MS EVENTLOG_ERROR_TYPEI DECLARE LONG CONSTANT EVT$_WARNING = 2 ! MS EVENTLOG_WARNING_TYPEK DECLARE LONG CONSTANT EVT$_INFO = 4 ! MS EVENTLOG_INFORMATION_TYPEP DECLARE LONG CONSTANT EVT$_AUDIT_SUCCESS = 8 ! MS EVENTLOG_AUDIT_SUCCESSQ DECLARE LONG CONSTANT EVT$_AUDIT_FAILURE = 16 ! MS EVENTLOG_AUDIT_FAILURE ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! 5 ! Switch, enable/disable device path information !  ! **** NOTE **** ! K ! New items must always be added at the END of the list so that- ! users will not have to rebuild. !  ! -J DECLARE LONG CONSTANT SDV$_MP_SWITCH_PATH = 1 ! Switch device pathJ DECLARE LONG CONSTANT SDV$_MP_ENABLE_PATH = 2 ! Enable device pathL DECLARE LONG CONSTANT SDV$_MP_DISABLE_PATH = 3 ! Disable device path ! B ! *** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** ! ww: ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +9 ! Define the version level of the FDL file structure ! -- DECLARE LONG CONSTANT FDL$C_VERSION = 2- DECLARE LONG CONSTANT FDL$K_VERSION = 2 ! +' ! FDL CALL INTERFACE CONT ROL FLAGS ! -6 DECLARE LONG CONSTANT FDL$M_SIGNAL = x'00000001': DECLARE LONG CONSTANT FDL$M_FDL_STRING = x'00000002'> DECLARE LONG CONSTANT FDL$M_DEFAULT_STRING = x'00000004'; DECLARE LONG CONSTANT FDL$M_FULL_OUTPUT = x'00000008'9 DECLARE LONG CONSTANT FDL$M_$CALLBACK = x'00000010': DECLARE LONG CONSTANT FDL$M_LONG_NAMES = x'00000020', DECLARE LONG CONSTANT FDL$S_FDLDEF = 1 record FDLDEF variant case& gro up FDL$R_FDLDEF_BITS1 ! SIGNAL ERRORS, DON'T RETURN4 ! MAIN FDL SPEC IS A CHAR STRING7 ! DEFAULT FDL SPEC IS A CHAR STRING3 ! PRODUCE A 'COMPLETE' FDL SPEC5 ! USED BY EDF ON INPUT (DEC ONLY)9 ! Allocate and use NAML for FDL$PARSEn BYTE SIGNAL_bits ! COMMENT ADDED BY SDL - SIGNAL_bits contains bits SIGNAL through FILL_0_* end group FDL$R_FDLDEF_BITS end variant end record FDLDEF  wwA ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! F ! Function descriptor offset definitions for the IA64 VMS callingD ! standard. This definition includes the offsets and fields forJ ! local, official, translated/native, and bound function desc riptors. ! 1 ! Function descriptor kind quadwords in FD ! . ! Local FD w/o translated image support 2/ ! Local FD with translated image support 4A ! Official FD w/o translated image support 2 or 3 (see note)2 ! Official FD with translated image support 3 ! Bound FD 6 ! D ! Note: the official FD w/o translated image support could be 2D ! quadwords if the linker knows it's not a universal symbol andB ! that no module exports its addr ess. Until there's a way forA ! compilers to notify the linker of this, all such FDs are 3 ! quadwords in length. ! Y DECLARE LONG CONSTANT FDSC$K_BOUND_SIZE = 48 ! Size of bound procedure descriptor/ DECLARE LONG CONSTANT FDSC$S_FDSCDEF = 48 record FDSCDEF# group FDSC$R_ENTRY_OVERLAY variant caseO BASIC$QUADWORD FDSC$Q_ENTRY ! Simple FD: Entry code address case# LONG FDSC$L_ENTRY casee BASIC$QUADWORD FDSC$Q_OTS_ENTRY ! Bound FD: Entry code address of OTS$JUMP_TO_BPV case' LONG FDSC$L_OTS_ENTRY end variant' end group FDSC$R_ENTRY_OVERLAY group FDSC$R_GP_OVERLAY variant caseH BASIC$QUADWORD FDSC$Q_GP ! Simple FD: Global pointer case LONG FDSC$L_GP case  BASIC$QUADWORD FDSC$Q_OTS_PSEUDO_GP ! Bound FD: Global pointer for OTS$JUMP_TO_BPV (ie. address of this FD) case+ LONG FDSC$L_OTS_PSEUDO_GP end variant$ end group FDSC$R_GP_OVERLAY' group FDSC$R_SIGNATURE_OVERLAY variant caseQ BASIC$QUADWORD FDSC$Q_SIGNATURE ! Signature information field case/ group FDSC$R_SIGNATURE_STRUCT,  LONG FDSC$L_SIGNATURE_L, LONG FDSC$L_SIGNATURE_H3 end group FDSC$R_SIGNATURE_STRUCT end variant+ end group FDSC$R_SIGNATURE_OVERLAY* group FDSC$R_TARGET_ENTRY_OVERLAY variant case BASIC$QUADWORD FDSC$Q_TARGET_ENTRY ! PD address of translated routine or entry code address of bound procedure case* LONG FDSC$L_TARGET_ENTRY  end variant. end group FDSC$R_TARGET_ENTRY_OVERLAY' group FDSC$R_TARGET_GP_OVERLAY variant caseX BASIC$QUADWORD FDSC$Q_TARGET_GP ! Global pointer for bound procedure case' LONG FDSC$L_TARGET_GP end variant+ end group FDSC$R_TARGET_GP_OVERLAY* group FDSC$R_TARGET_ENVIR_OVERLAY variant case{ BASIC$QUADWORD FDS C$Q_TARGET_ENVIR ! Environment value for bound procedure (uplevel-addressing pointer) case* LONG FDSC$L_TARGET_ENVIR end variant. end group FDSC$R_TARGET_ENVIR_OVERLAY end record FDSCDEF  wwXM ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  ! ---- ! 4 ! LAYOUT OF THE FILE IDENTIFICATION BLOCK (FIB) ! ! **** ! Z ! NOTE: If the size of the FIB is changed the following must be changed, ! to reflect the change: ! > ! In Module: [RMS.SRC]RMSFWADEF.SDL ! 8 ! Field: FWA$T_FIBBUF ! 3 ! Constant: FWA$C_FIBLEN ! L ! Both the field and constant must be GEQ to the size ofM ! the FIB, i.e. FIB$C_LENGTH. FIB length is currently 96. ! ! **** ! 7 DECLARE LONG CONSTANT FIB$M_NOWRITE = x'00000001'5 DECLARE LONG CONSTANT FI B$M_DLOCK = x'00000002'8 DECLARE LONG CONSTANT FIB$M_BLK_LOCK = x'00000004'; DECLARE LONG CONSTANT FIB$M_FASTRDSQNOS = x'00000008'5 DECLARE LONG CONSTANT FIB$M_SPOOL = x'00000010'7 DECLARE LONG CONSTANT FIB$M_WRITECK = x'00000020'7 DECLARE LONG CONSTANT FIB$M_SEQONLY = x'00000040'5 DECLARE LONG CONSTANT FIB$M_SEQNO = x'00000080'5 DECLARE LONG CONSTANT FIB$M_WRITE = x'00000100'6 DECLARE LONG CONSTANT FIB$M_READCK = x'00000200'6 DECLARE LONG C ONSTANT FIB$M_NOREAD = x'00000400'7 DECLARE LONG CONSTANT FIB$M_NOTRUNC = x'00000800'7 DECLARE LONG CONSTANT FIB$M_CONTROL = x'00001000'< DECLARE LONG CONSTANT FIB$M_NO_READ_DATA = x'00002000'4 DECLARE LONG CONSTANT FIB$M_SSIO = x'00004000'7 DECLARE LONG CONSTANT FIB$M_EXECUTE = x'00010000'9 DECLARE LONG CONSTANT FIB$M_PRSRV_ATR = x'00020000'7 DECLARE LONG CONSTANT FIB$M_RMSLOCK = x'00040000'9 DECLARE LONG CONSTANT FIB$M_WRITETHRU = x'00080000'6  DECLARE LONG CONSTANT FIB$M_NOLOCK = x'00100000'8 DECLARE LONG CONSTANT FIB$M_NORECORD = x'00200000'8 DECLARE LONG CONSTANT FIB$M_NOVERIFY = x'00400000': DECLARE LONG CONSTANT FIB$M_CHANGE_VOL = x'00800000'6 DECLARE LONG CONSTANT FIB$M_REWIND = x'00000008'6 DECLARE LONG CONSTANT FIB$M_CURPOS = x'00000010'6 DECLARE LONG CONSTANT FIB$M_UPDATE = x'00000040'S DECLARE LONG CONSTANT FIB$K_ACCDATA = 10 ! ABOVE DATA NECESSARY FOR ACCESS S DECLARE LONG CONSTANT FIB$C_ACCDATA = 10 ! ABOVE DATA NECESSARY FOR ACCESS Z DECLARE LONG CONSTANT FIB$K_DIRDATA = 22 ! ABOVE DATA NECESSARY FOR DIRECTORY OPS Z DECLARE LONG CONSTANT FIB$C_DIRDATA = 22 ! ABOVE DATA NECESSARY FOR DIRECTORY OPS : DECLARE LONG CONSTANT FIB$M_NAMES_8BIT = x'00000001'; DECLARE LONG CONSTANT FIB$M_NAMES_16BIT = x'00000002'? DECLARE LONG CONSTANT FIB$M_PERCENT_LITERAL = x'00000004'6 DECLARE LONG CONSTANT FIB$M_ALLVER = x'00000008'6 DECLARE LONG CONSTANT FIB$M_ALLTYP = x'00000010'6 DECLARE LONG CONSTANT FIB$M_ALLNAM = x'00000020'> DECLARE LONG CONSTANT FIB$M_CASE_SENSITIVE = x'00000040'6 DECLARE LONG CONSTANT FIB$M_SEARCH = x'00000080'4 DECLARE LONG CONSTANT FIB$M_WILD = x'00000100'6 DECLARE LONG CONSTANT FIB$M_NEWVER = x'00000200'9 DECLARE LONG CONSTANT FIB$M_SUPERSEDE = x'00000400'7 DECLARE LONG CONSTANT FIB$M_FINDFID = x'00000800'7 DECLARE LONG CONSTANT FIB$M_FINDDIR = x'00001000'<  DECLARE LONG CONSTANT FIB$M_CASE_VARIANT = x'00002000'6 DECLARE LONG CONSTANT FIB$M_LOWVER = x'00004000'7 DECLARE LONG CONSTANT FIB$M_HIGHVER = x'00008000'5 DECLARE LONG CONSTANT FIB$M_ALCON = x'00000001'6 DECLARE LONG CONSTANT FIB$M_ALCONB = x'00000002'6 DECLARE LONG CONSTANT FIB$M_FILCON = x'00000004'5 DECLARE LONG CONSTANT FIB$M_ALDEF = x'00000008'8 DECLARE LONG CONSTANT FIB$M_ALLOCATR = x'00000010'6 DECLARE LONG CONSTANT FIB$M_EXTEND = x'00000 080'5 DECLARE LONG CONSTANT FIB$M_TRUNC = x'00000100'8 DECLARE LONG CONSTANT FIB$M_NOHDREXT = x'00000200'7 DECLARE LONG CONSTANT FIB$M_MARKBAD = x'00000400'7 DECLARE LONG CONSTANT FIB$M_NOPLACE = x'00004000'8 DECLARE LONG CONSTANT FIB$M_NOCHARGE = x'00008000'\ DECLARE LONG CONSTANT FIB$K_EXTDATA = 32 ! ABOVE NECESSARY FOR BASIC FILE EXTENSION \ DECLARE LONG CONSTANT FIB$C_EXTDATA = 32 ! ABOVE NECESSARY FOR BASIC FILE EXTENSION 5 DECLARE LONG CONSTANT FIB$M_EXACT = x'00000001'5 DECLARE LONG CONSTANT FIB$M_ONCYL = x'00000002'J DECLARE LONG CONSTANT FIB$C_CYL = 1 ! CYLINDER ADDRESS SPECIFIED = DECLARE LONG CONSTANT FIB$C_LBN = 2 ! LBN SPECIFIED G DECLARE LONG CONSTANT FIB$C_VBN = 3 ! PROXIMATE VBN SPECIFIED I DECLARE LONG CONSTANT FIB$C_RFI = 4 ! RELATED FILE ID SPECIFIED V DECLARE LONG CONSTANT FIB$K_ALCDATA = 44 ! ABOVE DATA NECESSARY FOR PLACEMENT V DECLARE LONG CONSTANT FIB$C_ALCDAT A = 44 ! ABOVE DATA NECESSARY FOR PLACEMENT 7 DECLARE LONG CONSTANT FIB$M_ALT_REQ = x'00000001'; DECLARE LONG CONSTANT FIB$M_ALT_GRANTED = x'00000002'6 DECLARE LONG CONSTANT FIB$M_DIRACL = x'00000004'9 DECLARE LONG CONSTANT FIB$M_PROPAGATE = x'00000008'9 DECLARE LONG CONSTANT FIB$M_NOCOPYACL = x'00000010'; DECLARE LONG CONSTANT FIB$M_NOCOPYOWNER = x'00000020': DECLARE LONG CONSTANT FIB$M_NOCOPYPROT = x'00000040'< DECLARE LONG CONSTANT FIB$M_EXCLPR EVIOUS = x'00000080'; DECLARE LONG CONSTANT FIB$M_ALIAS_ENTRY = x'00000100'< DECLARE LONG CONSTANT FIB$M_WILDFID_FLAG = x'00000200'< DECLARE LONG CONSTANT FIB$M_DID_FILESPEC = x'00000400': DECLARE LONG CONSTANT FIB$M_IS_SPECIAL = x'00000800'= DECLARE LONG CONSTANT FIB$M_CHECK_SPECIAL = x'00001000'S DECLARE LONG CONSTANT FIB$K_MOVEFILE = 72 ! end of FIB required by MOVEFILES DECLARE LONG CONSTANT FIB$C_MOVEFILE = 72 ! end of FIB required by MOVEFILE?  DECLARE LONG CONSTANT FIB$M_FILE_ATTRIBUTES = x'0000000F'= DECLARE LONG CONSTANT FIB$M_FILE_CONTENTS = x'000000F0'K DECLARE LONG CONSTANT FIB$C_DEFAULT = 0 ! Use default caching policyN DECLARE LONG CONSTANT FIB$C_WRITETHROUGH = 1 ! Use writethrough cachingL DECLARE LONG CONSTANT FIB$C_WRITEBEHIND = 2 ! Use writebehind cachingD DECLARE LONG CONSTANT FIB$C_NOCACHING = 3 ! Do not cache file> DECLARE LONG CONSTANT FIB$M_FLUSH_ON_CLOSE = x'00000F00'U DECLARE LONG CONSTANT FIB$C_FLUSH = 1 ! Flush file from cache when file closedV DECLARE LONG CONSTANT FIB$C_NOFLUSH = 2 ! Retain file in cache when file closedC DECLARE LONG CONSTANT FIB$M_CACHING_OPTIONS_MBZ = x'FFFFF000'P DECLARE LONG CONSTANT FIB$C_ODS2 = 0 ! Name is ODS-2 legal ASCII encodedJ DECLARE LONG CONSTANT FIB$C_ISL1 = 1 ! Name is 8-bit (ISO Latin 1)D DECLARE LONG CONSTANT FIB$C_ISO_LATIN = 1 ! Synonym for ISL14 ! NOTE - Name format type 2 reserve d (was UTF8)K DECLARE LONG CONSTANT FIB$C_UCS2 = 3 ! Name is UCS-2 encoded (both)_ DECLARE LONG CONSTANT FIB$C_NAMETYPE_LEN = 96 ! Length of FIB including NAMETYPE fields- DECLARE LONG CONSTANT FIB$K_LENGTH = 96- DECLARE LONG CONSTANT FIB$C_LENGTH = 96- DECLARE LONG CONSTANT FIB$K_F64LEN = 96- DECLARE LONG CONSTANT FIB$C_F64LEN = 96- DECLARE LONG CONSTANT FIB$S_FIBDEF = 96 record FIBDEF" group FIB$R_ACCTL_OVERLAY varian t caseC LONG FIB$L_ACCTL ! ACCESS CONTROL BITS  case) group FIB$R_ACCTL_BITS0* ! NO OTHER WRITERS . ! ENABLE DEACCESS LOCK 5 ! ENABLE RMS-11 BLOCK LOCKING 5 ! READ HDRSEQ AND DATASEQ VALS- ! SPOOL FILE ON CLOSE , ! ENABLE WRITE CHECK 0 ! SEQUENTIAL ONLY ACCES S 3 ! STORE SEQNOS FOR THIS FILE& ! WRITE ACCESS + ! ENABLE READ CHECK * ! NO OTHER READERS 3 ! FILE MAY NOT BE TRUNCATED / ! CONTROL ACCESS TO FILE4 ! NO READ ACCESS TO FILE DATA7 ! File is opened for SSIO access ! SPARE ' ! THE HIGH 8 BITS CANNOT BE COPIED. ! INTO THE ACCESS MOD E WORD IN THE WINDOWE ! ACCESS FOR EXECUTE (USE EXECUTE PROTECTION) > ! PRESERVE ORIGINAL ATTRIBUTES OF FILE 6 ! OPEN WITH RMS RECORD LOCKING @ ! FORCE CACHE WRITE-THROUGH ON OPERATION 4 ! OVERRIDE ACCESS INTERLOCKS 3 ! DO NOT RECORD FILE ACCESS 8 ! Do not perform compare on move.F ! Allow Movefile move between volumes  in a set.w LONG NOWRITE_bits ! COMMENT ADDED BY SDL - NOWRITE_bits contains bits NOWRITE through CHANGE_VOL- end group FIB$R_ACCTL_BITS0 case) group FIB$R_ACCTL_BITS1% ! REWIND TAPE 9 ! CREATE AT CURRENT TAPE POSITION A ! UPDATE MODE (POSITION TO START OF FILE) q BYTE FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits  FILL_5 through FILL_1_- end group FIB$R_ACCTL_BITS1 case+ group FIB$R_ACCTL_FIELDS25 BYTE FIBDEF$$_FILL_13 ( 1 to 3 ); BYTE FIB$B_WSIZE ! WINDOW SIZE / end group FIB$R_ACCTL_FIELDS2 end variant& end group FIB$R_ACCTL_OVERLAY group FIB$R_FID_OVERLAY variant case: WORD FIB$W_FID ( 1 to 3 ) ! FI LE ID  case( group FIB$R_FID_FIELDS; WORD FIB$W_FID_NUM ! FILE NUMBER D WORD FIB$W_FID_SEQ ! FILE SEQUENCE NUMBER 0 group FIB$R_FID_RVN_OVERLAY variant caseI WORD FIB$W_FID_RVN ! RELATIVE VOLUME NUMBER  case5 group FIB$R_FID_RVN_FIELDSD  BYTE FIB$B_FID_RVN ! SHORT FORM RVN J BYTE FIB$B_FID_NMX ! EXTENDED FILE NUMBER 9 end group FIB$R_FID_RVN_FIELDS# end variant4 end group FIB$R_FID_RVN_OVERLAY, end group FIB$R_FID_FIELDS caseQ group FIB$R_FID_ISO_9660_FIELDS ! File ID fields for ISO 9660J WORD FIB$W_FID_DIRNUM ! Directory number of File-IdG  LONG FIB$L_FID_RECNUM ! Record number of File-ID5 end group FIB$R_FID_ISO_9660_FIELDS end variant$ end group FIB$R_FID_OVERLAY group FIB$R_DID_OVERLAY variant case? WORD FIB$W_DID ( 1 to 3 ) ! DIRECTORY ID  case( group FIB$R_DID_FIELDS; WORD FIB$W_DID_NUM ! FILE NUMBER D WORD FIB$W_DID_SEQ ! F ILE SEQUENCE NUMBER 0 group FIB$R_DID_RVN_OVERLAY variant caseI WORD FIB$W_DID_RVN ! RELATIVE VOLUME NUMBER  case5 group FIB$R_DID_RVN_FIELDSD BYTE FIB$B_DID_RVN ! SHORT FORM RVN J BYTE FIB$B_DID_NMX ! EXTENDED FILE NUMBER 9 end group FIB$R_DID_RVN_FIELDS#  end variant4 end group FIB$R_DID_RVN_OVERLAY, end group FIB$R_DID_FIELDS caseV group FIB$R_DID_ISO_9660_FIELDS ! Directory ID fields for ISO 9660J WORD FIB$W_DID_DIRNUM ! Directory number of File-IdG LONG FIB$L_DID_RECNUM ! Record number of File-ID5 end group FIB$R_DID_ISO_9660_FIELDS end variant$ end group FIB$R_DID _OVERLAYA LONG FIB$L_WCC ! WILD CARD CONTEXT " group FIB$R_NMCTL_OVERLAY variant caseA WORD FIB$W_NMCTL ! NAME CONTROL BITS  case( group FIB$R_NMCTL_BITS5 ! RETURN 8BIT FILENAMES (HFS)5 ! RETURN 16BIT FILENAMES (HFS)5 ! PERCENT IS LITERAL (HFS), ! MATCH ALL VERSIONS )  ! MATCH ALL TYPES ) ! MATCH ALL NAMES . ! case sensitive lookupA ! Match names in purely case blind manner.3 ! (intended for search operations; normal file5 ! access should give preference to exact match)1 ! WILD CARDS IN FILE NAME 1 ! MAXIMIZE VERSION NUMBER 1 ! SUPERSEDE EXISTING FILE , ! SEARCH FOR FI LE ID E ! SEARCH FOR DIR EXTENTION (Internal use only)/ ! the following bits are output, not input? ! A case variant of this filename exists6 ! LOWER VERSION OF FILE EXISTS 7 ! HIGHER VERSION OF FILE EXISTS } WORD NAMES_8BIT_bits ! COMMENT ADDED BY SDL - NAMES_8BIT_bits contains bits NAMES_8BIT through HIGHVER, end group FIB$R_NMCTL_BITS end varian t& end group FIB$R_NMCTL_OVERLAY" group FIB$R_EXCTL_OVERLAY variant case> WORD FIB$W_EXCTL ! EXTEND CONTROL  case( group FIB$R_EXCTL_BITS- ! ALLOCATE CONTIGUOUS 0 ! CONTIGUOUS BEST EFFORT . ! MARK FILE CONTIGUOUS 1 ! ALLOCATE DEFAULT AMOUNT B ! PLACEMENT DATA PRESENT IN ATTRI BUTE LIST * ! ENABLE EXTENSION + ! ENABLE TRUNCATION 3 ! INHIBIT EXTENSION HEADERS ) ! MARK BLOCKS BAD A ! DON'T ADD PLACEMENT POINTERS IN MOVEFILE0 ! DON'T CHARGE DISKQUOTA o WORD ALCON_bits ! COMMENT ADDED BY SDL - ALCON_bits contains bits ALCON through NOCHARGE, end group FIB$R_EXCTL_BITS end variant&  end group FIB$R_EXCTL_OVERLAY; LONG FIB$L_EXSZ ! EXTEND SIZE = LONG FIB$L_EXVBN ! EXTENSION VBN # group FIB$R_ALOPTS_OVERLAY variant caseB BYTE FIB$B_ALOPTS ! ALLOCATION OPTIONS  case) group FIB$R_ALOPTS_BITS2 ! EXACT PLACEMENT REQUIRED 8 ! PUT ALLOCATION ON ONE CYLINDER n  BYTE EXACT_bits ! COMMENT ADDED BY SDL - EXACT_bits contains bits EXACT through FILL_2_- end group FIB$R_ALOPTS_BITS end variant' end group FIB$R_ALOPTS_OVERLAYD BYTE FIB$B_ALALIGN ! ALLOCATION ALIGNMENT " group FIB$R_ALLOC_OVERLAY variant caseF WORD FIB$W_ALLOC ( 1 to 5 ) ! ALLOCATION LOCATION  case* group FIB$R_ALLOC_FIELDS0  group FIB$R_LOC_FID_OVERLAY variant caseM WORD FIB$W_LOC_FID ( 1 to 3 ) ! RELATED FILE ID  case5 group FIB$R_LOC_FID_FIELDSI WORD FIB$W_LOC_NUM ! RELATED FILE NUMBER J WORD FIB$W_LOC_SEQ ! FILE SEQUENCE NUMBER 9 group FIB$R_LOC_RVN_OVERLAY(  variant% caseG WORD FIB$W_LOC_RVN ! RELATED RVN % case> group FIB$R_LOC_RVN_FIELDSM BYTE FIB$B_LOC_RVN ! SHORT FORM RVN S BYTE FIB$B_LOC_NMX ! EXTENDED FILE NUMBER B end group FIB$R_LOC_RVN_FIELDS,  end variant= end group FIB$R_LOC_RVN_OVERLAY9 end group FIB$R_LOC_FID_FIELDS# end variant4 end group FIB$R_LOC_FID_OVERLAYP LONG FIB$L_LOC_ADDR ! LOCATION ADDRESS (VBN, LBN, CYL) . end group FIB$R_ALLOC_FIELDS end variant& end group FIB$R_ALLOC_OVERLAYM WORD FIB$W_VERLIMIT ! DIRECTORY ENTRY VERSION LIMIT A  BYTE FIB$B_AGENT_MODE ! AGENTS ACCESS MODEH BYTE FIB$B_RU_FACILITY ! RECOVERABLE-FACILITY CODED LONG FIB$L_ACLCTX ! ACL CONTEXT FOR READ O LONG FIB$L_ACL_STATUS ! RETURN STATUS FROM ACL OPERATION# group FIB$R_STATUS_OVERLAY variant caseF LONG FIB$L_STATUS ! GENERAL STATUS LONGWORD case) group FIB$R_STATUS _BITS2 ! ALTERNATE ACCESS REQUIRED1 ! ALTERNATE ACCESS GRANTED5 ! DO DIRECTORY ACL PROPAGATION7 ! DO PROPAGATION ON ENTER/MODIFY0 ! DON'T PROPAGATE THE ACL6 ! DON'T PROPAGATE THE OWNER UIC< ! DON'T PROPAGATE THE SOGW PROTECTIONF ! EXCLUDE THE PREVIOUS VERSION FROM PROPAGATIONC ! FILE ACCESSED V IA AN ALIAS DIRECTORY ENTRY* ! WILDCARD FID FLAG1 ! FILESPEC HAD BEEN DID'ED: ! Special file detected and handled0 ! Check for special filest WORD ALT_REQ_bits ! COMMENT ADDED BY SDL - ALT_REQ_bits contains bits ALT_REQ through FILL_3_- end group FIB$R_STATUS_BITS end variant' end group FIB$R_STATUS_OVERLAYD LONG FIB$L_ALT_ACCESS  ! ALTERNATE ACCESS MASK group FIB$R_FUNCDEPEND variant case& group FIB$R_MOVFILDPF LONG FIB$L_MOV_SVBN ! starting VBN (MOVEFILE)G LONG FIB$L_MOV_VBNCNT ! count of VBNs (MOVEFILE)* end group FIB$R_MOVFILDP end variant# end group FIB$R_FUNCDEPENDT WORD FIB$W_FILE_HDRSEQ_INCR ! header seq no increment for indiv fileX WORD FIB$W_DIR_HDRSEQ_INCR ! header seq no increment for directory fileR WORD FIB$W_FILE_DATASEQ_INCR ! data seq no increment for indiv fileV WORD FIB$W_DIR_DATASEQ_INCR ! data seq no increment for driectory fileM ! Define fields and constant values for FIB$L_CACHING_OPTIONS longword.3 ! These must match [STARLET]ATRDEF.SDL exactly, group FIB$R_CACHING_OPTIONS_OVERLAY variant caseN LONG FIB$L_CACHI NG_OPTIONS ! F64XQP cache control bitvector case2 group FIB$R_CACHING_OPTIONS_BITS5 ! File attributes caching field3 ! File contents caching field1 ! Flush file on close field$ ! Must be zero LONG FILE_ATTRIBUTES_bits ! COMMENT ADDED BY SDL - FILE_ATTRIBUTES_bits contains bits FILE_ATTRIBUTES & ! through CACHING_OPTIONS_MBZ6 end gr oup FIB$R_CACHING_OPTIONS_BITS end variant0 end group FIB$R_CACHING_OPTIONS_OVERLAYR group FIB$R_SD_FID_OVERLAY ! FID field for Secondary File Delete variant case; WORD FIB$W_SD_FID ( 1 to 3 ) ! FILE ID  case+ group FIB$R_SD_FID_FIELDS; WORD FIB$W_SD_FID_NUM ! FILE NUMBER D WORD FIB$W_SD_FID_SEQ ! FILE SEQUENCE NUMBER 3  group FIB$R_SD_FID_RVN_OVERLAY variant caseL WORD FIB$W_SD_FID_RVN ! RELATIVE VOLUME NUMBER  case8 group FIB$R_SD_FID_RVN_FIELDSG BYTE FIB$B_SD_FID_RVN ! SHORT FORM RVN M BYTE FIB$B_SD_FID_NMX ! EXTENDED FILE NUMBER < end group FIB$R_SD_FID_RVN_FIELDS#  end variant7 end group FIB$R_SD_FID_RVN_OVERLAY/ end group FIB$R_SD_FID_FIELDS end variant' end group FIB$R_SD_FID_OVERLAYL WORD FIB$$_RESERVED_1 ! Pad up to a longword boundaryI BYTE FIB$B_NAME_FORMAT_IN ! Inbound file name encodingN BYTE FIB$B_NAME_FORMAT_OUT ! Returned file name encoding I BYTE FIB$B_ASCNAME_FORMAT ! ASCNAME attribute encodin gV BYTE FIB$B_RESERVED_2 ! For alignment. NOTE - Must be zero.  end record FIBDEF F DECLARE LONG CONSTANT FIB$C_REWINDVOL = 1 ! REWIND VOLUME SET O DECLARE LONG CONSTANT FIB$C_POSEND = 2 ! POSITION TO END OF VOLUME SET D DECLARE LONG CONSTANT FIB$C_NEXTVOL = 3 ! FORCE NEXT VOLUME D DECLARE LONG CONSTANT FIB$C_SPACE = 4 ! SPACE MAGNETIC TAPE 2 DECLARE LONG CONSTANT FIB$C_ILLEGAL = 5 ! @ DECLARE LONG CONSTANT FIB$C_REWINDFIL = 6 ! REWIND FILE R DECLARE LONG CONSTANT FIB$C_LOCK_VOL = 7 ! LOCK VOLUME AGAINST ALLOCATION A DECLARE LONG CONSTANT FIB$C_UNLK_VOL = 8 ! UNLOCK VOLUME  ! QUOTA FILE OPERATIONSF DECLARE LONG CONSTANT FIB$C_ENA_QUOTA = 9 ! ENABLE QUOTA FILE H DECLARE LONG CONSTANT FIB$C_DSA_QUOTA = 10 ! DISABLE QUOTA FILE J DECLARE LONG CONSTANT FIB$C_ADD_QUOTA = 11 ! ADD QUOTA FILE ENTRY N DECLARE LONG CONSTANT FIB$C_EXA_QUOTA = 12 ! EXAMINE QUOTA FILE ENTRY M DECLARE LONG CONSTANT FIB$C_MOD_QUOTA = 13 ! MODIFY QUOTA FILE ENTRY M DECLARE LONG CONSTANT FIB$C_REM_QUOTA = 14 ! REMOVE QUOTA FILE ENTRY T DECLARE LONG CONSTANT FIB$C_USEREOT = 15 ! ENABLE USER END OF TAPE HANDLING C DECLARE LONG CONSTANT FIB$C_REMAP = 16 ! REMAP FILE WINDOW m DECLARE LONG CONSTANT FIB$C_CLSEREXCP = 17 ! ALLOW THE USER TO CLEAR A SERIOUS EXCP FROM A TAPE DRIVEK DECLARE LONG CONSTANT FIB$C_FLUSH_CACHE = 18 ! FLUSH SELECTED CACHEU DECLARE LONG CONSTANT FIB$C_FORCE_MV = 19 ! FORCE MOUNT VERIFICATION TO OCCURk DECLARE LONG CONSTANT FIB$C_VALIDATE_VOLUME = 20 ! VALIDATE VOLUME SET FOLLOWING SNAPSHOT FILE BOOTc DECLARE LONG CONSTANT FIB$C_VALIDATE_FILE = 21 ! VALIDATE FILE FOLLOWING SNAPSHOT FILE BOOTl DECLARE LONG CONSTANT FIB$C_UPDATE_VOL_PROFILE = 22 ! UPDATE A VOLUME'S (PERMANENT) SECURITY PROFILEj DECLARE LONG CONSTANT FIB$C_UPDATE_FIL_PROFILE = 23 ! UPDATE A FILE'S (PERMANENT) SECURITY PROFILEc DECLARE LONG CONSTANT FIB$C_CHECK_PROTECTION = 24 ! PERFORM FILE OR VOLUME PROTECTION CHECKF DECLARE LONG CONSTANT FIB$C_ADD_THREAD = 25 ! ADD A NEW THREADE DECLARE LONG CONSTANT FIB$C_REM_THREAD = 26 ! REMOVE A THREADK DECLARE LONG CONSTANT FIB$C_EXA_THREAD = 27 ! INQUIRE ABOUT THREADST DECLARE LONG CONSTANT FIB$C_CHECK_PATH = 28 ! FIND DIRSEQ VAL AND ARM BLKASTG DECLARE LONG CONSTANT FIB$C_ENA_DW = 29 ! ENABLE DEFERRED WRITEH  DECLARE LONG CONSTANT FIB$C_DSA_DW = 30 ! DISABLE DEFERRED WRITEF DECLARE LONG CONSTANT FIB$C_WRITEBACK_CACHE = 31 ! F64 cachingF DECLARE LONG CONSTANT FIB$C_WRITETHRU_CACHE = 32 ! F64 cachingU DECLARE LONG CONSTANT FIB$C_FILE_SYNCH = 33 ! VDC/Spiralog flush file to disk[ DECLARE LONG CONSTANT FIB$C_CACHING_OPTIONS = 34 ! VDC/Spiralog select caching modeb DECLARE LONG CONSTANT FIB$C_WRITE_BARRIER = 35 ! VDC/Spiralog barrier writes to this pointU DECLARE LONG CONSTANT FIB$C_VOL_FLUSH = 36 ! VDC volume flush local node only^ DECLARE LONG CONSTANT FIB$C_VOL_FLUSH_ALL = 37 ! VDC flush all volumes local node onlyo DECLARE LONG CONSTANT FIB$C_CLONE_FIL_PROFILE = 38 ! RETURN A COPY OF A FILE'S CURRENT SECURITY PROFILEK DECLARE LONG CONSTANT FIB$C_STRUC_LEVEL2 = 39 ! Set the vcb to ods2K DECLARE LONG CONSTANT FIB$C_STRUC_LEVEL5 = 40 ! Set the vcb to ods5O DECLARE LONG CONSTANT FIB$C_EXPAND_VOLUME = 41 ! Exp and the volume sizeU DECLARE LONG CONSTANT FIB$C_EXPAND_BITMAP = 42 ! Increase the BITMAP.SYS sizeH DECLARE LONG CONSTANT FIB$K_MTALEN = 28 ! LENGTH OF MTAACP DATA H DECLARE LONG CONSTANT FIB$C_MTALEN = 28 ! LENGTH OF MTAACP DATA  ! G DECLARE LONG CONSTANT FIB$C_FID_CACHE = 1 ! FLUSH THE FID CACHEM DECLARE LONG CONSTANT FIB$C_EXTENT_CACHE = 2 ! FLUSH THE EXTENT CACHEK DECLARE LONG CONSTANT FIB$C_QUOTA_CACHE = 3 ! FLUSH THE QUOTA CACHEI DE CLARE LONG CONSTANT FIB$C_BFRD_CACHE = 4 ! FLUSH THE BFRD CACHEG DECLARE LONG CONSTANT FIB$C_VBN_CACHE = 5 ! FLUSH THE VBN CACHE ! Z DECLARE LONG CONSTANT FIB$C_FLUSH_FILE_ATTRIBUTES = 1 ! Only flush file attributesV DECLARE LONG CONSTANT FIB$C_FLUSH_FILE_CONTENTS = 2 ! Only flush file contentsG DECLARE LONG CONSTANT FIB$C_FLUSH_FILE = 3 ! Flush all of file  ! 7 DECLARE LONG CONSTANT FIB$M_ALL_MEM = x'00000001'7 DECLARE LONG CONSTANT FIB$M_AL L_GRP = x'00000002'7 DECLARE LONG CONSTANT FIB$M_MOD_USE = x'00000004'8 DECLARE LONG CONSTANT FIB$M_MOD_PERM = x'00000008'8 DECLARE LONG CONSTANT FIB$M_MOD_OVER = x'00000010'. DECLARE LONG CONSTANT FIB$S_FIBDEF1 = 28 record FIBDEF1* BYTE FIBDEF$$_FILL_14 ( 1 to 22 )D WORD FIB$W_CNTRLFUNC ! ACP CONTROL FUNCTION ( ! DEFINE ACP CONTROL FUNCTION CODES ! % group FIB$R_CNTRLVAL_OVERLAY variant  caseT LONG FIB$L_CNTRLVAL ! ACP CONTROL FUNCTION VALUE PARAMETER - ! CACHE IDENTIFIER CODES FOR FLUSH_CACHE ! 4 ! Files-64 CACHE IDENTIFIER CODES FOR FILE_SYNC ! - ! CONTROL BITS FOR QUOTA FILE OPERATIONS !  case+ group FIB$R_CNTRLVAL_BITS2 ! MATCH ALL MEMBER NUMBERS 1 ! MATCH ALL GROUP NUMBERS + ! MODIFY USAGE DATA 0 ! MODIFY PERMANENT QUOTA 0 ! MODIFY OVERDRAFT LIMIT t BYTE ALL_MEM_bits ! COMMENT ADDED BY SDL - ALL_MEM_bits contains bits ALL_MEM through FILL_4_/ end group FIB$R_CNTRLVAL_BITS end variant) end group FIB$R_CNTRLVAL_OVERLAY end record FIBDEF1 D ! Add a synonym for FIB$C_FILE_SYNCH to keep naming consistency1 DECLARE LONG CONSTANT FIB$C_FILE_FLUSH = 33 wwXU ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! # ! STRUCTURE OF A FILE ID (FID) ! , DECLARE LONG CONSTANT FID$K_LENGTH = 6, DECLARE LONG CONSTANT FID$C_LENGTH = 6< DECLARE LONG CONSTANT FID$C_INDEXF = 1 ! INDEX FILE B DECLARE LONG CONSTANT FID$C_BITMAP = 2 ! STORAGE MAP FILE @ DECLARE LONG CONSTANT FID$C_BADBLK = 3 ! BAD BLOCK FILE E DECLARE LONG CONSTANT FID$C_MFD = 4 ! MASTER FILE DIRECTORY A DECLARE LONG CONSTANT FID$C_CORIMG = 5 ! CORE IMAGE FILE F DECLARE LONG CONSTANT FID$C_VOLSET = 6 ! VOLUME SET LIST FILE L DECLARE LONG CONSTANT FID$C_CONTIN = 7 ! STANRARD CONTINUATION FILE A DECLARE LONG CONSTANT FID$C_BACKUP = 8 ! BACKUP LOG FILE D DECLARE LONG CON STANT FID$C_BADLOG = 9 ! BAD BLOCK LOG FILE A DECLARE LONG CONSTANT FID$C_SECURITY = 10 ! SECURITY FILE7 DECLARE LONG CONSTANT FID$C_GPT = 11 ! GPT FILEB DECLARE LONG CONSTANT FID$C_FREFIL = 10 ! FREE SPACE FILE , DECLARE LONG CONSTANT FID$S_FIDDEF = 6 record FIDDEF group FID$R_FID_OVERLAY variant caseL WORD FID$W_FID ( 1 to 3 ) ! File Identification Number case( group FID$R_FID_FIELDS; WORD FID$W_NUM ! FILE NUMBER D WORD FID$W_SEQ ! FILE SEQUENCE NUMBER , group FID$R_RVN_OVERLAY variant caseF WORD FID$W_RVN ! RELATIVE VOLUME NUMBER  case1 group FID$R_RVN_FIELDSB BYTE FID$B_RVN ! BYTE FORM OF RVN G  BYTE FID$B_NMX ! FILE NUMBER EXTENSION & ! FILE ID'S OF THE RESERVED FILES5 end group FID$R_RVN_FIELDS# end variant0 end group FID$R_RVN_OVERLAY, end group FID$R_FID_FIELDS caseM group FID$R_ISO_9660_FIELDS ! File ID fields for ISO 9660J WORD FID$W_DIRNUM ! Directory number of File-IdG LONG FID$L_RECNUM  ! Record number of File-ID1 end group FID$R_ISO_9660_FIELDS end variant$ end group FID$R_FID_OVERLAY end record FIDDEF  ww[ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 0 ! FLAG BITS FOR THE $SETFLT SYSTEM SERVICE. ! : DECLARE LONG CONSTANT FLT$M_NO_EXECUTE = x'00000001'< DECLARE LONG CONSTANT FLT$M_EXECUTE_ONLY = x'00000002'4 DECLARE LONG CONSTANT FLT$M_PERM = x'00000004': DECLARE LONG CONSTANT FLT$M_EXECUTABLE = x'00000008', DECLARE LONG CONSTANT FLT$S_FLTDEF = 1 record FLTDEF variant case& group FLT$R_FLTDEF_BITS ! No Execute3 ! Execute Only (for future use)0 ! Permanent (for future use), ! Set page to executablez BYTE NO_EXECUTE_bits ! COMMENT ADDED BY SDL - NO_EXECUTE_bits contains bits NO_EXECUTE through FILL_5_* end group FLT$R_FLTDEF_BITS end variant end record FLTDEF  wwmb ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +- ! Define the generic quadword structure. ! -2 DECLARE LONG CONSTANT GEN64$S_GENERIC_64 = 8 record GENERIC_64E group GEN64$R_QUAD_OVERLAY ! You can treat me as...  variant caseR BASIC$QUADWORD GEN64$Q_QUADWORD ! ...a single 64-bit value, or caseO LONG GEN64$L_LONGWORD ( 1 to 2 ) ! ...two 32-bit values, or caseH WORD GEN64$W_WORD ( 1 to 4 ) ! ...four 16-bit values end variant' end group GEN64$R_QUAD_OVERLAY end record GENERIC_64 L DECLARE LONG CONSTANT GEN64$K_LENGTH = 8 ! Length of GEN64 structureL DECLARE LONG CONSTANT GEN64$C_LENGTH = 8 ! Length of GEN64 structure ww8v ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +E ! Get System Performance Information Data Identifier Definitions ! F ! The following constants define the items which can be collectedD ! with the Get System Performance Information service (GETSPI)./ ! The item numbers are defined as follows: ! ) ! 16 12 0) ! +------------------+-------------+) ! | Structure number | Item number |) ! +------------------+-------------+ ! L ! The top four bits represent the structure of the item and the last 125 ! bits represent the item within the structure.  !  ! Caution? C ! The SPIDEF in the [montor] facility contained the followingK ! instructio ns on adding new symbols. With this interface being addedN ! to STARLET, changing any item number is unacceptable. Some spare itemP ! number exist in each range; if these are ever exhausted, new ranges mustH ! be defined and support added, rather than changing item numbers. ! ! * The item numbers startO ! * at 0 and increase sequentially to the last item (even across tables).O ! * If new items are added to a table, programs MUST be relinked to allowM ! * the old definitions to change. This was done to simplify some tableN ! * lookups in the Monitor Utility. To get around this, new items can be' ! * added at the end of the list. ! *P ! * Each table has one item at the end to act as a place holder. It shouldN ! * have the same item number as the first item of the next table. TheseT ! * items are not counters in the total number of SPI items GETSPI$_TABLESIZE. ! - ! DEFINE TABLE TYPESD DECLARE LONG CONSTANT GETSPI$C_EXETYPE = 1 ! Executive cellsT DECLARE LONG CONSTANT GETSPI$C_EWSTYPE = 2 ! Executive writable storage areaK DECLARE LONG CONSTANT GETSPI$C_MONTYPE = 3 ! Monitor specific itemsO DECLARE LONG CONSTANT GETSPI$C_RMSTYPE = 4 ! Monitor RMS specific itemsF DECLARE LONG CONSTANT GETSPI$C_LISTEND = 0 ! End of table list ! U ! The following section defines items which are collected during initialization.Q ! There items include general system information, and server version number.6 ! The server version number is also defined here. ! M DECLARE LONG CONSTANT GETSPI$_initial = -1 ! Initialization item listV DECLARE LONG CONSTANT GETSPI$_data_collection = -2 ! Data collection item listL DECLARE LONG CONSTANT GETSPI$_sysinfo = -3 ! System information itemR DECLARE LONG CONSTANT GETSPI$_version_number = -4 ! Monitor version numberE DECLARE LONG CONSTANT GETSPI$_rms_file = -5 ! Parse file nameN DECLARE LONG CONSTANT GETSPI$_rms_gs = -6 ! Get global section address2 DECLARE LONG CONSTANT GETSPI$_last_type = -76 DECLARE LONG CONSTANT GETSPI$_server_version = 5 ! I ! Define bits in the PMS flags field PMS$GL_FLAGS. These are used toF ! synchronize access to some PMS field and enable other activity. ! 9 DECLARE LONG CONSTANT GETSPI$s_getspi$pms_flags = 4 record getspi$pms_flagsU group GETSPI$l_flags ! Cla ss qualifier flags for CDB (Active): ! YES => Enable disk queue length collection< ! This field must be accessed via an interlocked ! bit instruction.0 ! Fill out remainder of first byteA ! YES => Synchronize access to several PMS counters: ! used in the collection of disk queue length.< ! This field must be accessed via an interlocked8 ! bit instruction, AND MUST BE IN A SEPARATE8 ! BY TE from the disk_enable bit (required by< ! the architecture to maintain synchronization).+ ! Fill out remainder of fieldw LONG disk_enable_bits ! COMMENT ADDED BY SDL - disk_enable_bits contains bits disk_enable through filler2! end group GETSPI$l_flags! end record getspi$pms_flags  ! K ! Define two contants to handle help handle large lookaside lists. The? ! maximum number that SPISHR will count to is defined withH ! GETSPI$K_MAX_PACKET and the value returned when this threshold is/ ! reached is defined as GETSPI$K_POOL_OVF. ! 5 DECLARE LONG CONSTANT GETSPI$k_max_packet = 500; DECLARE LONG CONSTANT GETSPI$k_pool_ovf = -2147483647 ! H ! Define item identifier numbers. Each data item has an associatedJ ! value which is used to find its entry in the EXETBL. The item tableM ! is defined by the macros SPI_GENERATE_TABLE which makes multiple callsB ! to the macro SPI_ITEM_CODE defined in the SYSGETSPI module. ! T DECLARE LONG CONSTANT GETSPI$_MODES = 4096 ! All modes counters on all CPU's[ DECLARE LONG CONSTANT GETSPI$_INTERRUPT = 4097 ! time on interrupt stack -- primaryT DECLARE LONG CONSTANT GETSPI$_KERNEL = 4098 ! time in kernel mode -- primaryP DECLARE LONG CONSTANT GETSPI$_EXEC = 4099 ! time in exec mode -- primaryW DECLARE LONG CONSTANT GETSPI$_SUPER = 4100 ! time in supervisor mode -- primaryP DECLARE LONG CONSTANT GETSPI$_USER = 4101 ! time in user mode -- primaryU DECLARE LONG CONSTANT GETSPI$_COMPAT = 4102 ! time in compat. mode -- primaryh DECLARE LONG CONSTANT GETSPI$_INTERRUPT_BUSY = 4103 ! Time spent spinning on the interrupt stackb DECLARE LONG CONSTANT GETSPI$_KERNEL_BUSY = 4104 ! Time spent spinning on the lernel stackH DECLARE LONG CONSTANT GETSPI$_IDLE = 4105 ! idle time -- primaryO DECLARE LONG CONSTANT GETSPI$_CPUBUSY = 4106 ! RETIRED ITEM - RETURNS 0G DECLARE LONG CONSTANT GETSPI$_COLPG = 4107 ! collided page wait@ DECLARE LONG CONSTANT GETSPI$_MWAIT = 4108 ! memory waitI DECLARE LONG CONSTANT GETSPI$_CEF = 4109 ! common event flag wait< DECLARE LONG CONSTANT GETSPI$_PFW = 4110 ! page waitH DECLARE LONG CONSTANT GETSPI$_LEF = 4111 ! local event flag waitL DECLARE LONG CONSTANT GETSPI$_LEFO = 4112 ! lef wait out of bal. set> DECLARE LONG CONSTANT GETSPI$_HIB = 4113 ! hibernatingJ DECLARE LONG CONSTANT GETSPI$_HIBO = 4114 ! hibernating outswapped= DECLARE LONG CONSTANT GETSPI$_SUSP = 4115 ! suspendedI DECLARE LONG CONSTANT GETSPI$_SUSPO = 4116 ! suspended outswappedA DECLARE LONG CONSTANT GETSPI$_FPG = 4117 ! free page wait< DECLARE LONG CONSTANT GETSPI$_COM = 4118 ! computingI DECLARE LONG CONSTANT GETSPI$_COMO = 4119 ! computable outswapped: DECLARE LONG CONSTANT GETSPI$_CUR = 4120 ! currentO DECLARE LONG CONSTANT GETSPI$_OTHSTAT = 4121 ! RETIRED ITEM - RETURNS 0S DECLARE LONG CONSTANT GETSPI$_PROCS = 4122 ! process count for SYSTEM classS DECLARE LONG CONSTANT GETSPI$_PROC = 4123 ! collect all process informationG DECLARE LONG CONSTANT GETSPI$_FRLIST = 4124 ! size of free listL DECLARE LONG CONSTANT GETSPI$_MODLIST = 4125 ! size of modified listF DECLARE LONG CONSTANT GETSPI$_FAULTS = 4126 ! page fault count@ DECLARE LONG CONSTANT GETSPI$_PREADS = 4127 ! page readsB DECLARE LONG CONSTANT GETSPI$_PWRITES = 4128 ! page writesP DECLARE LONG CONSTANT GETSPI$_PWRITIO = 4129 ! physical page write I/O'sO DECLARE LONG CONSTANT GETSPI$_PREADIO = 4130 ! physical page read I/O'sK DECLARE LONG CONSTANT GETSPI$_GVALFLTS = 4131 ! global valid faultsV DECLARE LONG CONSTANT GETSPI$_WRTINPROG = 4132 ! faults from write in progressL DECLARE LONG CONSTANT GETSPI$_FREFLTS = 4133 ! faults from free listP DECLARE LONG CONSTANT GETSPI$_MFYFLTS = 4134 ! faults from modified listJ DECLARE LONG CONSTANT GETSPI$_DZROFLTS = 4135 ! demand zero faultsK DECLARE LONG CONSTANT GETSPI$_SYSFAULTS = 4136 ! system page faultsU DECLARE LONG CONSTANT GETSPI$_LRPCNT = 4137 ! number of LRP packets availableM DECLARE LONG CONSTANT GETSPI$_LRPINUSE = 4138 ! number of LRPs in useU DECLARE LONG CONSTANT GETSPI$_IRPCNT = 4139 ! number of IRP packets availableM DECLARE LONG CONSTANT GE TSPI$_IRPINUSE = 4140 ! number of IRPs in useU DECLARE LONG CONSTANT GETSPI$_SRPCNT = 4141 ! number of SRP packets availableM DECLARE LONG CONSTANT GETSPI$_SRPINUSE = 4142 ! number of SRPs in useV DECLARE LONG CONSTANT GETSPI$_HOLECNT = 4143 ! number of blocks in dyn. memoryC DECLARE LONG CONSTANT GETSPI$_BIGHOLE = 4144 ! largest holeF DECLARE LONG CONSTANT GETSPI$_SMALLHOLE = 4145 ! smallest hole[ DECLARE LONG CONSTANT GETSPI$_HOLESUM = 4146 ! tot al space in dyn. memory availableS DECLARE LONG CONSTANT GETSPI$_DYNINUSE = 4147 ! dynamic memory space in use[ DECLARE LONG CONSTANT GETSPI$_SMALLCNT = 4148 ! number of blocks < 32 bytes in sizeD DECLARE LONG CONSTANT GETSPI$_ISWPCNT = 4149 ! total inswapsI DECLARE LONG CONSTANT GETSPI$_DIRIO = 4150 ! count of direct I/OsK DECLARE LONG CONSTANT GETSPI$_BUFIO = 4151 ! count of buffered I/OsJ DECLARE LONG CONSTANT GETSPI$_MBREADS = 4152 ! total mailb ox readsL DECLARE LONG CONSTANT GETSPI$_MBWRITES = 4153 ! total mailbox writesO DECLARE LONG CONSTANT GETSPI$_LOGNAM = 4154 ! logical name translationsG DECLARE LONG CONSTANT GETSPI$_FCPCALLS = 4155 ! total fcp callsR DECLARE LONG CONSTANT GETSPI$_FCPREAD = 4156 ! number of disk reads by FCPT DECLARE LONG CONSTANT GETSPI$_FCPWRITE = 4157 ! number of disk writes by FCPP DECLARE LONG CONSTANT GETSPI$_FCPCACHE = 4158 ! number of FCP cache hitsO DECL ARE LONG CONSTANT GETSPI$_FCPCPU = 4159 ! number of CPU tics by FCPK DECLARE LONG CONSTANT GETSPI$_FCPHIT = 4160 ! number of window hitsQ DECLARE LONG CONSTANT GETSPI$_FCPSPLIT = 4161 ! number of split transfersQ DECLARE LONG CONSTANT GETSPI$_FCPFAULT = 4162 ! number of FCP page faultsK DECLARE LONG CONSTANT GETSPI$_ENQNEW = 4163 ! number of ENQ's (new)S DECLARE LONG CONSTANT GETSPI$_ENQCVT = 4164 ! number of ENQ's (conversions)B DECLARE LONG CONST ANT GETSPI$_DEQ = 4165 ! number of DEQ'sN DECLARE LONG CONSTANT GETSPI$_BLKAST = 4166 ! number of blocking AST'sU DECLARE LONG CONSTANT GETSPI$_ENQWAIT = 4167 ! number of ENQ's forced to waitR DECLARE LONG CONSTANT GETSPI$_ENQNOTQD = 4168 ! number of ENQ's not queuedS DECLARE LONG CONSTANT GETSPI$_DLCKSRCH = 4169 ! number of deadlock searchesP DECLARE LONG CONSTANT GETSPI$_DLCKFND = 4170 ! number of deadlocks foundC DECLARE LONG CONSTANT GETSPI$_NUMLOCKS = 4171 ! total locksE DECLARE LONG CONSTANT GETSPI$_NUMRES = 4172 ! total resourcesN DECLARE LONG CONSTANT GETSPI$_ARRLOCPK = 4173 ! arriving local packetsO DECLARE LONG CONSTANT GETSPI$_DEPLOCPK = 4174 ! departing local packetsP DECLARE LONG CONSTANT GETSPI$_ARRTRAPK = 4175 ! arriving transit packetsO DECLARE LONG CONSTANT GETSPI$_TRCNGLOS = 4176 ! transit congestion lossP DECLARE LONG CONSTANT GETSPI$_RCVBUFFL = 4177 ! receiver buffer failuresP DECLARE LONG CONSTANT GETSPI$_RESERVED1 = 4178 ! Reserved PMS location 1P DECLARE LONG CONSTANT GETSPI$_RESERVED2 = 4179 ! Reserved PMS location 2P DECLARE LONG CONSTANT GETSPI$_RESERVED3 = 4180 ! Reserved PMS location 3P DECLARE LONG CONSTANT GETSPI$_RESERVED4 = 4181 ! Reserved PMS location 4P DECLARE LONG CONSTANT GETSPI$_RESERVED5 = 4182 ! Reserved PMS location 5P DECLARE LONG CONSTANT GETSPI$_RESERVED6 = 4183 ! Reserved PMS location 6P DECLARE LONG CONSTANT GETSPI$_RESERVED7 = 4184 ! Reserved PMS location 7P DECLARE LONG CONSTANT GETSPI$_RESERVED8 = 4185 ! Reserved PMS location 8P DECLARE LONG CONSTANT GETSPI$_RESERVED9 = 4186 ! Reserved PMS location 9R DECLARE LONG CONSTANT GETSPI$_RESERVED10 = 4187 ! Reserved PMS location 10R DECLARE LONG CONSTANT GETSPI$_RESERVED11 = 4188 ! Reserved PMS location 11R DECLARE LONG CONSTANT GETSPI$_RESERVED12 = 4189 ! Reserved PMS location 12R DECLARE LONG CONSTANT GETSPI$_RESERVED13 = 4190 ! Reserved PMS location 13R DECLARE LONG CONSTANT GETSPI$_RESERVED14 = 4191 ! Reserved PMS location 14R DECLARE LONG CONSTANT GETSPI$_RESERVED15 = 4192 ! Reserved PMS location 15R DECLARE LONG CONSTANT GETSPI$_RESERVED16 = 4193 ! Reserved PMS location 16R DECLARE LONG CONSTANT GETSPI$_RESERVED17 = 4194 ! Reserved PMS location 17R DECLARE LONG CONSTANT GETSPI$_RESERVED18 = 4195 ! Reserved PMS location 18X DECLARE LONG CONSTANT GETSPI$_FID_TRIES = 4196 ! count of File Id cache attempts_ DECLARE LONG CONSTANT GETSPI$_FILHDR_TRIES = 4197 ! count of File header cache attemptsc DECLARE LONG CONSTANT GETSPI$_DIRFCB_TRIES = 4198 ! count of Directory block cache attemptsc DECLARE LONG CONSTANT GETSPI$_DIRDATA_TRIES = 4199 ! count of Directory data cache attemptsW DECLARE LONG CONSTANT GETSPI$_EXT_TRIES = 4200 ! count of Extent cache attemptsV DECLARE LONG CONSTANT GETSPI$_QUO_TRIES = 4201 ! count of Quota cache attemptse DECLARE LONG CONSTANT GETSPI$_STORAGMAP_TRIES = 4202 ! count of storage bitmap cache attemptsB DECLARE LONG CONSTANT GETSPI$_DISKS = 4203 ! all disk data DECLARE LONG CONSTANT GETSPI$_TOTAL_LOCKS = 4204 ! Total of all locking activity - NOT COLLECTED BY SPI - COMPUTED BY & ! MONITORR DECLARE LONG CONSTANT GETSPI$_ENQNEWLOC = 4205 ! new lock requests (local)T DECLARE LONG CONSTANT GETSPI$_ENQNEWIN = 4206 ! new lock requests (incoming)U DECLARE LONG CONSTANT GETSPI$_ENQNEWOUT = 4207 ! new lock requests (outgoing)Y DECLARE LONG CONSTANT GETSPI$_ENQCVTLOC = 4208 ! lock conversion requests (local)[ DECLARE LONG CONSTANT GETSPI$_ENQCVTIN = 4209 ! lock conversion requests (incoming)\ DECLARE LONG CONSTANT GETSPI$_ENQCVTOUT = 4210 ! lock conversion requests (outgoing)F DECLARE LONG CONSTANT GETSPI$_DEQLOC = 4211 ! dequeues (local)H DECLARE LONG CONSTANT GETSPI$_DEQIN = 4212 ! dequeues (incoming)I DECLARE LONG CONSTANT GETSPI$_DEQOUT = 4213 ! dequeues (outgoing)R DECLARE LONG CONSTANT GETSPI$_BLKLOC = 4214 ! blocking ASTs queued (local)T DECLARE LONG CONSTANT GETSPI$_BLKIN = 4215 ! blocking ASTs queued (incoming)U DECLARE LONG CONSTANT GETSPI$_BLKOUT = 4216 ! blocking ASTs queued (outgoing)T DECLARE LONG CONSTANT GETSPI$_DIRIN = 4217 ! directory operations (incoming)U DECLARE LONG CONSTANT GETSPI$_DIROUT = 4218 ! directory operations (outgoing)^ DECLARE LONG CONSTANT GETSPI$_DLCKMSGS = 4219 ! deadlock detection messages (in ? out)F DECLARE LONG CONSTANT GETSPI$_SCS = 4220 ! All SCS informationJ DECLARE LONG CONSTANT GETSPI$_SYSTIME = 4221 ! Current system time^ DECLARE LONG CONSTANT GETSPI$_MSCP_REQUEST = 4222 ! IO request rate to the MSCP server] DECLARE LONG CONSTANT GETSPI$_MSCP_READ = 4223 ! Read request rate to the MSCP server_ DECLARE LONG CONSTANT GETSPI$_MSCP_WRITE = 4224 ! Write request rate to the MSCP server_ DECLARE LONG CONSTANT GETSPI$_MSCP_FRAGMENT = 4225 ! Rate at which I/O's are fragmentedW DECLARE LONG CONSTANT GETSPI$_MSCP_SPLIT = 4226 ! Rate at which I/O's are splitu DECLARE LONG CONSTANT GETSPI$_MSCP_BUFWAIT = 4227 ! Rate at which incoming requests have to wait for a bufferW DECLARE LONG CONSTANT GETSPI$_MSCP_SIZE1 = 4228 ! I/O rate for sizes 1-2 blocksW DECLARE LONG CONSTANT GETSPI$_MSCP_SIZE2 = 4229 ! I/O rate for sizes 2-3 blocksW DECLARE LONG CONSTANT GETSPI$_MSCP_SIZE3 = 4230 ! I/O rate for sizes 4-7 blocksX DECLARE LONG CONSTANT GETSPI$_MSCP_SIZE4 = 4231 ! I/O rate for sizes 8-15 blocksY DECLARE LONG CONSTANT GETSPI$_MSCP_SIZE5 = 4232 ! I/O rate for sizes 16-31 blocksY DECLARE LONG CONSTANT GETSPI$_MSCP_SIZE6 = 4233 ! I/O rate for sizes 32-63 blocksZ DECLARE LONG CONSTANT GETSPI$_MSCP_SIZE7 = 4234 ! I/O rate for sizes 64-127 blocksi DECLARE LONG CONSTANT GETSPI$_MSCP_ALL = 4235 ! Dummy item to collect all MSCP server class itemsS DECLARE LONG CONSTANT GETSPI$_DDTM_STARTS = 4236 ! Local Transaction starts\ DECLARE LONG CONSTANT GETSPI$_DDTM_PREPARES = 4237 ! Local Transaction prepare event` DECLARE LONG CONSTANT GETSPI$_DDTM_ONE_PHASE = 4238 ! Transaction ONE_PHASE commit eventZ DECLARE LONG CONSTANT GETSPI$_DDTM_COMMITS = 4239 ! Local Transaction commit eventX DECLARE LONG CONSTANT GETSPI$_DDTM_ABORTS = 4240 ! Local Transaction abort eventO DECLARE LONG CONSTANT GETSPI$_DDTM_ENDS = 4241 ! Local Transaction endsN DECLARE LONG CONSTANT GETSPI$_DDTM_BRANCHS = 4242 ! Start branch eventI DECLARE LONG CONSTANT GETSPI$_DDTM_ADDS = 4243 ! Add branch eventM DECLARE LONG CONSTANT GETSPI$_DDTM_BUCKETS1 = 4244 ! TPS rate for < 1M DECLARE LONG CONSTANT GETSPI$_DDTM_BUCKETS2 = 4245 ! TPS rate for 1-2M DECLARE LONG CONSTANT GETSPI$_DDTM_BUCKETS3 = 4246 ! TPS rate for 2-3M DECLARE LONG CONSTANT GETSPI$_DDTM_BUCKETS4 = 4247 ! TPS rate for 3-4M DECLARE LONG CONSTANT GETSPI$_DDTM_BUCKETS5 = 4248 ! TPS rate for 4-5M DECLARE LONG CONSTANT GETSPI$_DDTM_BUCKETS6 = 4249 ! TPS rate for > 6i DECLARE LONG CONSTANT GETSPI$_DDTM_ALL = 4250 ! Dummy item to collect all TRANSACTION class itemsV DECLARE LONG CONSTANT GETSPI$_VECTORP = 4251 ! Vector Processor tics scheduledI DECLARE LONG CONSTANT GETSPI$_VBYTE_READ  = 4252 ! VBS bytes readM DECLARE LONG CONSTANT GETSPI$_VBYTE_WRITE = 4253 ! VBS bytes written4 DECLARE LONG CONSTANT GETSPI$_VVBS_TRAN = 42544 DECLARE LONG CONSTANT GETSPI$_VRBS_TRAN = 42553 DECLARE LONG CONSTANT GETSPI$_VDIO_SEL = 42568 DECLARE LONG CONSTANT GETSPI$_VDIOMAP_ALLOC = 42575 DECLARE LONG CONSTANT GETSPI$_VRBS_AVAIL = 42584 DECLARE LONG CONSTANT GETSPI$_VSEL_FAIL = 42594 DECLARE LONG CONSTANT GETSPI$_VVBSM_HIT = 42606 DECLARE LONG CONSTANT GETSPI$_VVBSM_CACHE = 42614 DECLARE LONG CONSTANT GETSPI$_VFLUIDBAL = 42622 DECLARE LONG CONSTANT GETSPI$_VRECOPY = 42634 DECLARE LONG CONSTANT GETSPI$_VCPUTICKS = 4264N DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE1 = 4265 ! Reserved EXE itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE2 = 4266 ! Reserved EXE itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE3 = 4267 ! Reserved EXE itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE4 = 4268 ! Reserved EXE itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE5 = 4269 ! Reserved EXE itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE6 = 4270 ! Reserved EXE itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE7 = 4271 ! Reserved EXE itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE8 = 4272 ! Reserved EXE itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE9 = 4273 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE10 = 4274 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE11 = 4275 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE12 = 4276 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE13 = 4277 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE14 = 4278 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE15 = 4279 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE16 = 4280 ! Reserved EXE itemsO DECLARE LONG C ONSTANT GETSPI$_RESERVEDEXE17 = 4281 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE18 = 4282 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE19 = 4283 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE20 = 4284 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE21 = 4285 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE22 = 4286 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI!$_RESERVEDEXE23 = 4287 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE24 = 4288 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE25 = 4289 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE26 = 4290 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE27 = 4291 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE28 = 4292 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE2"9 = 4293 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE30 = 4294 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE31 = 4295 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE32 = 4296 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE33 = 4297 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE34 = 4298 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE35 = 4299 ! R#eserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE36 = 4300 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE37 = 4301 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE38 = 4302 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE39 = 4303 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE40 = 4304 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE41 = 4305 ! Reserved EXE it$emsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE42 = 4306 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE43 = 4307 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE44 = 4308 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE45 = 4309 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE46 = 4310 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE47 = 4311 ! Reserved EXE itemsO DE%CLARE LONG CONSTANT GETSPI$_RESERVEDEXE48 = 4312 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE49 = 4313 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE50 = 4314 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE51 = 4315 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE52 = 4316 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE53 = 4317 ! Reserved EXE itemsO DECLARE LONG CON&STANT GETSPI$_RESERVEDEXE54 = 4318 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE55 = 4319 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE56 = 4320 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE57 = 4321 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE58 = 4322 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE59 = 4323 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_'RESERVEDEXE60 = 4324 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE61 = 4325 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE62 = 4326 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE63 = 4327 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE64 = 4328 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE65 = 4329 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE66 (= 4330 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE67 = 4331 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE68 = 4332 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE69 = 4333 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE70 = 4334 ! Reserved EXE itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEXE71 = 4335 ! Reserved EXE itemsQ DECLARE LONG CONSTANT GETSPI$_LASTEXE = 4336 ! Last item ) in the EXE table ! K ! These next items are located in an executive writable page in memory ! M DECLARE LONG CONSTANT GETSPI$_ACCESS = 8432 ! number of file accessesK DECLARE LONG CONSTANT GETSPI$_ALLOC = 8433 ! number of file extendsQ DECLARE LONG CONSTANT GETSPI$_FCPCREATE = 8434 ! number of file creations\ DECLARE LONG CONSTANT GETSPI$_VOLWAIT = 8435 ! # of times XQP waited for volume lockM DECLARE LONG CONSTANT GETSPI$_FCPTURN = 8436 ! n*umber of window turnsM DECLARE LONG CONSTANT GETSPI$_FCPERASE = 8437 ! number of erase callsI DECLARE LONG CONSTANT GETSPI$_OPENS = 8438 ! number of file opensQ DECLARE LONG CONSTANT GETSPI$_FIDHIT = 8439 ! count of File Id cache hitsT DECLARE LONG CONSTANT GETSPI$_FIDMISS = 8440 ! count of File Id cache missesY DECLARE LONG CONSTANT GETSPI$_FILHDR_HIT = 8441 ! count of File header cache hits] DECLARE LONG CONSTANT GETSPI$_DIRFCB_HIT = 8442 ! count +of Directory block cache hits` DECLARE LONG CONSTANT GETSPI$_DIRFCB_MISS = 8443 ! count of Directory block cache misses] DECLARE LONG CONSTANT GETSPI$_DIRDATA_HIT = 8444 ! count of Directory data cache hitsP DECLARE LONG CONSTANT GETSPI$_EXTHIT = 8445 ! count of Extent cache hitsS DECLARE LONG CONSTANT GETSPI$_EXTMISS = 8446 ! count of Extent cache missesO DECLARE LONG CONSTANT GETSPI$_QUOHIT = 8447 ! count of Quota cache hitsR DECLARE LONG CONSTANT GE,TSPI$_QUOMISS = 8448 ! count of Quota cache misses_ DECLARE LONG CONSTANT GETSPI$_STORAGMAP_HIT = 8449 ! count of storage bitmap cache hitsH DECLARE LONG CONSTANT GETSPI$_VOLLCK = 8450 ! Volume synch locksV DECLARE LONG CONSTANT GETSPI$_SYNCHLCK = 8451 ! directory and file synch locksq DECLARE LONG CONSTANT GETSPI$_SYNCHWAIT = 8452 ! # of times XQP waited for a directory or file synch lockB DECLARE LONG CONSTANT GETSPI$_ACCLCK = 8453 ! access locksp DE-CLARE LONG CONSTANT GETSPI$_XQPCACHEWAIT = 8454 ! # of times XQP had to wait for free space in a cacheN DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS1 = 8455 ! Reserved EWS itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS2 = 8456 ! Reserved EWS itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS3 = 8457 ! Reserved EWS itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS4 = 8458 ! Reserved EWS itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS5 = 8459 ! Reserved EWS itemsN. DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS6 = 8460 ! Reserved EWS itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS7 = 8461 ! Reserved EWS itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS8 = 8462 ! Reserved EWS itemsN DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS9 = 8463 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS10 = 8464 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS11 = 8465 ! Reserved EWS itemsO DECLARE LONG CON/STANT GETSPI$_RESERVEDEWS12 = 8466 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS13 = 8467 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS14 = 8468 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS15 = 8469 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS16 = 8470 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS17 = 8471 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_0RESERVEDEWS18 = 8472 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS19 = 8473 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS20 = 8474 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS21 = 8475 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS22 = 8476 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS23 = 8477 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS24 1= 8478 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS25 = 8479 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS26 = 8480 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS27 = 8481 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS28 = 8482 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS29 = 8483 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS30 = 8484 ! Res2erved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS31 = 8485 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS32 = 8486 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS33 = 8487 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS34 = 8488 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS35 = 8489 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS36 = 8490 ! Reserved EWS item3sO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS37 = 8491 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS38 = 8492 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS39 = 8493 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS40 = 8494 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS41 = 8495 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS42 = 8496 ! Reserved EWS itemsO DECL4ARE LONG CONSTANT GETSPI$_RESERVEDEWS43 = 8497 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS44 = 8498 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS45 = 8499 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS46 = 8500 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS47 = 8501 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS48 = 8502 ! Reserved EWS itemsO DECLARE LONG CONST5ANT GETSPI$_RESERVEDEWS49 = 8503 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS50 = 8504 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS51 = 8505 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS52 = 8506 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS53 = 8507 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS54 = 8508 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RE6SERVEDEWS55 = 8509 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS56 = 8510 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS57 = 8511 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS58 = 8512 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS59 = 8513 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS60 = 8514 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS61 = 78515 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS62 = 8516 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS63 = 8517 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS64 = 8518 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS65 = 8519 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS66 = 8520 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS67 = 8521 ! Reser8ved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS68 = 8522 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS69 = 8523 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS70 = 8524 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS71 = 8525 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS72 = 8526 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS73 = 8527 ! Reserved EWS items9O DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS74 = 8528 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS75 = 8529 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS76 = 8530 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS77 = 8531 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS78 = 8532 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS79 = 8533 ! Reserved EWS itemsO DECLAR:E LONG CONSTANT GETSPI$_RESERVEDEWS80 = 8534 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS81 = 8535 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS82 = 8536 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS83 = 8537 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS84 = 8538 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS85 = 8539 ! Reserved EWS itemsO DECLARE LONG CONSTAN;T GETSPI$_RESERVEDEWS86 = 8540 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS87 = 8541 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS88 = 8542 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS89 = 8543 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS90 = 8544 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS91 = 8545 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESE<RVEDEWS92 = 8546 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS93 = 8547 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS94 = 8548 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS95 = 8549 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS96 = 8550 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS97 = 8551 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS98 = 85 =52 ! Reserved EWS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS99 = 8553 ! Reserved EWS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDEWS100 = 8554 ! Reserved EWS items[ DECLARE LONG CONSTANT GETSPI$_LASTEWS = 8555 ! Last item in the exec writable table ! D ! Begin monitor specific data items. The items listed below areK ! NOT collected by the SPI as individual items. Some are NOT collected* ! at all but are computed by MONITOR. ! g DECLAR>E LONG CONSTANT GETSPI$_FIDHITPCNT = 12651 ! percentage of file id cache hits/hits+misseso DECLARE LONG CONSTANT GETSPI$_FILHDR_HITPCNT = 12652 ! percentage of file header cache hits/hits+missess DECLARE LONG CONSTANT GETSPI$_DIRFCB_HITPCNT = 12653 ! percentage of directory block cache hits/hits+missess DECLARE LONG CONSTANT GETSPI$_DIRDATA_HITPCNT = 12654 ! percentage of directory data cache hits/hits+missesf DECLARE LONG CONSTANT GETSPI$_EXTHITPCNT = 12655 ! per?centage of extent cache hits/hits+missese DECLARE LONG CONSTANT GETSPI$_QUOHITPCNT = 12656 ! percentage of quota cache hits/hits+missesr DECLARE LONG CONSTANT GETSPI$_STORAGMAP_HITPCNT = 12657 ! percentage of storage map cache hits/hits+missesM DECLARE LONG CONSTANT GETSPI$_OPCNT = 12658 ! disk io operation countM DECLARE LONG CONSTANT GETSPI$_IOQUELEN = 12659 ! disk io queue lengthW DECLARE LONG CONSTANT GETSPI$_IOAQUELEN = 12660 ! Accurate disk io queue len@gthQ DECLARE LONG CONSTANT GETSPI$_DISKRESPTIM = 12661 ! disk io response timeb DECLARE LONG CONSTANT GETSPI$_JNLIOCNT = 12662 ! journaling io operation count (for disks)V DECLARE LONG CONSTANT GETSPI$_JDNQLEN = 12663 ! jdevice normal io queue lengthU DECLARE LONG CONSTANT GETSPI$_JDWQLEN = 12664 ! jdevice wait irp queue lengthU DECLARE LONG CONSTANT GETSPI$_JDFQLEN = 12665 ! jdevice force io queue lengthL DECLARE LONG CONSTANT GETSPI$_JDEXCNT = 12666 A ! jdevice extend countA DECLARE LONG CONSTANT GETSPI$_JNLWRTSS = 12667 ! obsoleteA DECLARE LONG CONSTANT GETSPI$_JNLBUFWR = 12668 ! obsoleteU DECLARE LONG CONSTANT GETSPI$_DGSENT = 12669 ! SCS application datagrams sentY DECLARE LONG CONSTANT GETSPI$_DGRCVD = 12670 ! SCS application datagrams received] DECLARE LONG CONSTANT GETSPI$_DGDISCARD = 12671 ! SCS application datagrams discardedU DECLARE LONG CONSTANT GETSPI$_MSGSENT = 12672 ! SCS applicatBion messages sentY DECLARE LONG CONSTANT GETSPI$_MSGRCVD = 12673 ! SCS application messages receivedU DECLARE LONG CONSTANT GETSPI$_SNDATS = 12674 ! SCS block send datas initiatedW DECLARE LONG CONSTANT GETSPI$_KBYTSENT = 12675 ! SCS kbytes sent via send datasY DECLARE LONG CONSTANT GETSPI$_REQDATS = 12676 ! SCS block request datas initiated^ DECLARE LONG CONSTANT GETSPI$_KBYTREQD = 12677 ! SCS kbytes received via request datas] DECLARE LONG CONSTANT CGETSPI$_KBYTMAPD = 12678 ! SCS kbytes mapped for block transferc DECLARE LONG CONSTANT GETSPI$_QCR_CNT = 12679 ! SCS times connection queued for send creditj DECLARE LONG CONSTANT GETSPI$_QBDT_CNT = 12680 ! SCS times connection queued for buffer descriptorI DECLARE LONG CONSTANT GETSPI$_DIRLOOK = 12681 ! directory lookupsH DECLARE LONG CONSTANT GETSPI$_DIRINS = 12682 ! directory insertsH DECLARE LONG CONSTANT GETSPI$_DIRDEL = 12683 ! directory deletesO D DECLARE LONG CONSTANT GETSPI$_PACKETS = 12684 ! Ethernet packets/secondD DECLARE LONG CONSTANT GETSPI$_KBYTES = 12685 ! Kbytes/secondO DECLARE LONG CONSTANT GETSPI$_PACKETSIZE = 12686 ! Packets size (bytes)Q DECLARE LONG CONSTANT GETSPI$_MPACKETS = 12687 ! Multicast packets/secondO DECLARE LONG CONSTANT GETSPI$_MKBYTES = 12688 ! Multicast Kbytes/secondY DECLARE LONG CONSTANT GETSPI$_MPACKETSIZE = 12689 ! Multicast packet size (bytes)] DECLARE LONGE CONSTANT GETSPI$_SINGLECOLL = 12690 ! Transmit single collision detected\ DECLARE LONG CONSTANT GETSPI$_MULTICOLL = 12691 ! Transmit multi collisions detectedU DECLARE LONG CONSTANT GETSPI$_INITDEFER = 12692 ! Transmit initially deferred\ DECLARE LONG CONSTANT GETSPI$_INTERNALBUFERR = 12693 ! Receive internal buffer errorT DECLARE LONG CONSTANT GETSPI$_LOCBUFERR = 12694 ! Receive local buffer errorU DECLARE LONG CONSTANT GETSPI$_BUFFUNAVAIL = 12695 ! SystemF buffer unavailableE DECLARE LONG CONSTANT GETSPI$_FILLER = 12696 ! Dummy pad itemO DECLARE LONG CONSTANT GETSPI$_RESERVEDMON1 = 12697 ! Reserved MON itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDMON2 = 12698 ! Reserved MON itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDMON3 = 12699 ! Reserved MON itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDMON4 = 12700 ! Reserved MON itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDMON5 = 12701 ! Reserved MON itemsO G DECLARE LONG CONSTANT GETSPI$_RESERVEDMON6 = 12702 ! Reserved MON itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDMON7 = 12703 ! Reserved MON itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDMON8 = 12704 ! Reserved MON itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDMON9 = 12705 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON10 = 12706 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON11 = 12707 ! Reserved MON itemsP DECLARE LOHNG CONSTANT GETSPI$_RESERVEDMON12 = 12708 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON13 = 12709 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON14 = 12710 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON15 = 12711 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON16 = 12712 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON17 = 12713 ! Reserved MON itemsP DECLARE LONG CONSTANT GEITSPI$_RESERVEDMON18 = 12714 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON19 = 12715 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON20 = 12716 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON21 = 12717 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON22 = 12718 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON23 = 12719 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDJMON24 = 12720 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON25 = 12721 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON26 = 12722 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON27 = 12723 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON28 = 12724 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON29 = 12725 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON30 = 12726 K ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON31 = 12727 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON32 = 12728 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON33 = 12729 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON34 = 12730 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON35 = 12731 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON36 = 12732 ! Reserved MLON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON37 = 12733 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON38 = 12734 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON39 = 12735 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON40 = 12736 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON41 = 12737 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON42 = 12738 ! Reserved MON itemsP M DECLARE LONG CONSTANT GETSPI$_RESERVEDMON43 = 12739 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON44 = 12740 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON45 = 12741 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON46 = 12742 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON47 = 12743 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON48 = 12744 ! Reserved MON itemsP DECLARE LONGN CONSTANT GETSPI$_RESERVEDMON49 = 12745 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON50 = 12746 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON51 = 12747 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON52 = 12748 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON53 = 12749 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON54 = 12750 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSOPI$_RESERVEDMON55 = 12751 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON56 = 12752 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON57 = 12753 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON58 = 12754 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON59 = 12755 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON60 = 12756 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMOPN61 = 12757 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON62 = 12758 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON63 = 12759 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON64 = 12760 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON65 = 12761 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON66 = 12762 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON67 = 12763 !Q Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON68 = 12764 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON69 = 12765 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON70 = 12766 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON71 = 12767 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON72 = 12768 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON73 = 12769 ! Reserved MONR itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON74 = 12770 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON75 = 12771 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON76 = 12772 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON77 = 12773 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON78 = 12774 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON79 = 12775 ! Reserved MON itemsP SDECLARE LONG CONSTANT GETSPI$_RESERVEDMON80 = 12776 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON81 = 12777 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON82 = 12778 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON83 = 12779 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON84 = 12780 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON85 = 12781 ! Reserved MON itemsP DECLARE LONG CTONSTANT GETSPI$_RESERVEDMON86 = 12782 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON87 = 12783 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON88 = 12784 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON89 = 12785 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON90 = 12786 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON91 = 12787 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPIU$_RESERVEDMON92 = 12788 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON93 = 12789 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON94 = 12790 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON95 = 12791 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON96 = 12792 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON97 = 12793 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON9V8 = 12794 ! Reserved MON itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDMON99 = 12795 ! Reserved MON itemsQ DECLARE LONG CONSTANT GETSPI$_RESERVEDMON100 = 12796 ! Reserved MON items_ DECLARE LONG CONSTANT GETSPI$_LASTMON = 12797 ! Last item in the monitor specific table ! P ! Begin items specific to the Monitor RMS class. These items are maintainedS ! by RMS and collected from a global section with the following naming scheme:P ! _RMS$xxxxxxxxyyyyyy whereW x is the volume lock id and y is the fid of the ! file being monitored. ! ] DECLARE LONG CONSTANT GETSPI$_RMS_STATS = 16893 ! All of the following rms statisticsR DECLARE LONG CONSTANT GETSPI$_SEQGETS = 16894 ! Total # of sequential getsM DECLARE LONG CONSTANT GETSPI$_KEYGETS = 16895 ! Total # of keyed getsN DECLARE LONG CONSTANT GETSPI$_RFAGETS = 16896 ! Total # of gets by RFAX DECLARE LONG CONSTANT GETSPI$_GETBYTES = 16897 ! Total size in bytes oXf all GETSR DECLARE LONG CONSTANT GETSPI$_SEQPUTS = 16898 ! Total # of sequential putsN DECLARE LONG CONSTANT GETSPI$_KEYPUTS = 16899 ! Total # of puts by keyU DECLARE LONG CONSTANT GETSPI$_PUTBYTES = 16900 ! Total # of bytes put to fileV DECLARE LONG CONSTANT GETSPI$_UPDATES = 16901 ! Total # of updates to the file\ DECLARE LONG CONSTANT GETSPI$_UPDATEBYTES = 16902 ! Total # of bytes updated in fileR DECLARE LONG CONSTANT GETSPI$_DELETES = 16903 ! TotaYl # of deletes to fileb DECLARE LONG CONSTANT GETSPI$_TRUNCATES = 16904 ! Total # of times file has been truncatedc DECLARE LONG CONSTANT GETSPI$_TRUNCBLKS = 16905 ! Total # of blocks file has been truncatedT DECLARE LONG CONSTANT GETSPI$_SEQFINDS = 16906 ! Total # of sequential findsO DECLARE LONG CONSTANT GETSPI$_KEYFINDS = 16907 ! Total # of keyed findsM DECLARE LONG CONSTANT GETSPI$_RFAFINDS = 16908 ! Total # of RFA findsG DECLARE LONG CONSTANT GETSZPI$_READS = 16909 ! Total # of $READS[ DECLARE LONG CONSTANT GETSPI$_READBYTES = 16910 ! Total # of bytes read from $READSO DECLARE LONG CONSTANT GETSPI$_CONNECTS = 16911 ! Total connect requestsU DECLARE LONG CONSTANT GETSPI$_DISCONNECTS = 16912 ! Total disconnect requestsE DECLARE LONG CONSTANT GETSPI$_EXTENDS = 16913 ! Total extendsg DECLARE LONG CONSTANT GETSPI$_EXTBLOCKS = 16914 ! Total number of blocks file has been extendedV DECLARE LONG CON[STANT GETSPI$_FLUSHES = 16915 ! Total number of calls to flushW DECLARE LONG CONSTANT GETSPI$_REWINDS = 16916 ! Total number of calls to REWINDV DECLARE LONG CONSTANT GETSPI$_WRITES = 16917 ! Total number of calls to $WRITE[ DECLARE LONG CONSTANT GETSPI$_WRITEBYTES = 16918 ! Total bytes written using $WRITEX DECLARE LONG CONSTANT GETSPI$_FLCKENQS = 16919 ! Total number of file lock ENQ'sX DECLARE LONG CONSTANT GETSPI$_FLCKDEQS = 16920 ! Total number of file \lock DEQ's^ DECLARE LONG CONSTANT GETSPI$_FLCKCNVS = 16921 ! Total number of file lock conversionsa DECLARE LONG CONSTANT GETSPI$_LBLCKENQS = 16922 ! Total number of local buffer lock ENQ'sa DECLARE LONG CONSTANT GETSPI$_LBLCKDEQS = 16923 ! Total number of local buffer lock DEQ'sg DECLARE LONG CONSTANT GETSPI$_LBLCKCNVS = 16924 ! Total number of local buffer lock conversionsb DECLARE LONG CONSTANT GETSPI$_GBLCKENQS = 16925 ! Total number of global buffer lock] ENQ'sb DECLARE LONG CONSTANT GETSPI$_GBLCKDEQS = 16926 ! Total number of global buffer lock DEQ'sh DECLARE LONG CONSTANT GETSPI$_GBLCKCNVS = 16927 ! Total number of global buffer lock conversionsc DECLARE LONG CONSTANT GETSPI$_GSLCKENQS = 16928 ! Total number of global section lock ENQ'sc DECLARE LONG CONSTANT GETSPI$_GSLCKDEQS = 16929 ! Total number of global section lock DEQ'si DECLARE LONG CONSTANT GETSPI$_GSLCKCNVS = 16930 ! Total number of global section^ lock conversionsZ DECLARE LONG CONSTANT GETSPI$_RLCKENQS = 16931 ! Total number of record lock ENQ'sZ DECLARE LONG CONSTANT GETSPI$_RLCKDEQS = 16932 ! Total number of record lock DEQ's` DECLARE LONG CONSTANT GETSPI$_RLCKCNVS = 16933 ! Total number of record lock conversions\ DECLARE LONG CONSTANT GETSPI$_APPLCKENQS = 16934 ! Total number of append lock ENQ's\ DECLARE LONG CONSTANT GETSPI$_APPLCKDEQS = 16935 ! Total number of append lock DEQ'sb DECLARE LO_NG CONSTANT GETSPI$_APPLCKCNVS = 16936 ! Total number of append lock conversionsa DECLARE LONG CONSTANT GETSPI$_FLBLKASTS = 16937 ! Total number of file lock blocking ASTsj DECLARE LONG CONSTANT GETSPI$_LBLBLKASTS = 16938 ! Total number of local buffer lock blocking ASTsk DECLARE LONG CONSTANT GETSPI$_GBLBLKASTS = 16939 ! Total number of global buffer lock blocking ASTsk DECLARE LONG CONSTANT GETSPI$_APPBLKASTS = 16940 ! Total number of shared append lock blocking A`STsg DECLARE LONG CONSTANT GETSPI$_LCACHEHITS = 16941 ! Total cache hits on buckets in local buffersl DECLARE LONG CONSTANT GETSPI$_LCACHETRIES = 16942 ! Total cache attempts on buckets in local buffersh DECLARE LONG CONSTANT GETSPI$_GCACHEHITS = 16943 ! Total cache hits on buckets in global buffersm DECLARE LONG CONSTANT GETSPI$_GCACHETRIES = 16944 ! Total cache attempts on buckets in global bufferso DECLARE LONG CONSTANT GETSPI$_GBRDIRIOS = 16945 ! Total diarect IO's causes by global buffer cache readsp DECLARE LONG CONSTANT GETSPI$_GBWDIRIOS = 16946 ! Total direct IO's causes by global buffer cache writesn DECLARE LONG CONSTANT GETSPI$_LBRDIRIOS = 16947 ! Total direct IO's causes by local buffer cache readso DECLARE LONG CONSTANT GETSPI$_LBWDIRIOS = 16948 ! Total direct IO's causes by local buffer cache writesj DECLARE LONG CONSTANT GETSPI$_BKTSPLT = 16949 ! Total number of 2 bucket splits done for this fileo DECLbARE LONG CONSTANT GETSPI$_MBKTSPLT = 16950 ! Total number of multi-bucket splits done for this filec DECLARE LONG CONSTANT GETSPI$_RMSOPENS = 16951 ! Total number of times file has been openeda DECLARE LONG CONSTANT GETSPI$_CLOSES = 16952 ! Total number of times file has been closedV DECLARE LONG CONSTANT GETSPI$_GSBLKASTS = 16953 ! Global Section Blocking ASTSU DECLARE LONG CONSTANT GETSPI$_FLWAITS = 16954 ! File lock ENQs forced to waitX DECLARE LONG CONSTcANT GETSPI$_LBWAITS = 16955 ! Local buffer ENQs forced to waitY DECLARE LONG CONSTANT GETSPI$_GBWAITS = 16956 ! Global buffer ENQs forced to waitZ DECLARE LONG CONSTANT GETSPI$_GSWAITS = 16957 ! Global section ENQs forced to waitW DECLARE LONG CONSTANT GETSPI$_RLWAITS = 16958 ! Record lock ENQs forced to waitW DECLARE LONG CONSTANT GETSPI$_APWAITS = 16959 ! Append lock ENQs forced to waitR DECLARE LONG CONSTANT GETSPI$_TOTWAITS = 16960 ! Total ENQs forced tdo waitl DECLARE LONG CONSTANT GETSPI$_OUTBUFQUO = 16961 ! Number of times a process runs out of buffer quotag DECLARE LONG CONSTANT GETSPI$_RMSDEV1 = 16962 ! Reserved for RMS development private monitoringg DECLARE LONG CONSTANT GETSPI$_RMSDEV2 = 16963 ! Reserved for RMS development private monitoringg DECLARE LONG CONSTANT GETSPI$_RMSDEV3 = 16964 ! Reserved for RMS development private monitoringg DECLARE LONG CONSTANT GETSPI$_RMSDEV4 = 16965 ! Reserved for ReMS development private monitoringg DECLARE LONG CONSTANT GETSPI$_RMSDEV5 = 16966 ! Reserved for RMS development private monitoringg DECLARE LONG CONSTANT GETSPI$_RMSDEV6 = 16967 ! Reserved for RMS development private monitoringg DECLARE LONG CONSTANT GETSPI$_RMSDEV7 = 16968 ! Reserved for RMS development private monitoringg DECLARE LONG CONSTANT GETSPI$_RMSDEV8 = 16969 ! Reserved for RMS development private monitoringg DECLARE LONG CONSTANT GETSPI$_RMSDEV9 = f16970 ! Reserved for RMS development private monitoringh DECLARE LONG CONSTANT GETSPI$_RMSDEV10 = 16971 ! Reserved for RMS development private monitoringh DECLARE LONG CONSTANT GETSPI$_RMSDEV11 = 16972 ! Reserved for RMS development private monitoringh DECLARE LONG CONSTANT GETSPI$_RMSDEV12 = 16973 ! Reserved for RMS development private monitoringh DECLARE LONG CONSTANT GETSPI$_RMSDEV13 = 16974 ! Reserved for RMS development private monitoringh DECLARE LONG CONgSTANT GETSPI$_RMSDEV14 = 16975 ! Reserved for RMS development private monitoringh DECLARE LONG CONSTANT GETSPI$_RMSDEV15 = 16976 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT GETSPI$_XQPQIOS = 16977 ! Number of XQP operations for this file by RMSZ DECLARE LONG CONSTANT GETSPI$_LCACHEHITPCNT = 16978 ! Local RMS buffer hit percent[ DECLARE LONG CONSTANT GETSPI$_GCACHEHITPCNT = 16979 ! Global RMS buffer hit percentM DECLARE LONG CONSTANhT GETSPI$_TOTALGET = 16980 ! Total $GET call rateM DECLARE LONG CONSTANT GETSPI$_TOTALPUT = 16981 ! Total $PUT call rateO DECLARE LONG CONSTANT GETSPI$_TOTALFIND = 16982 ! Total $FIND call rateG DECLARE LONG CONSTANT GETSPI$_BYTESGET = 16983 ! Bytes per $GETG DECLARE LONG CONSTANT GETSPI$_BYTESPUT = 16984 ! Bytes per $PUTM DECLARE LONG CONSTANT GETSPI$_BYTESUPDATE = 16985 ! Bytes per $UPDATEI DECLARE LONG CONSTANT GETSPI$_BYTESREAD = 16986 ! Byteis per $READK DECLARE LONG CONSTANT GETSPI$_BYTESWRITE = 16987 ! Bytes per $WRITER DECLARE LONG CONSTANT GETSPI$_BLOCKSTRUNCATE = 16988 ! Bytes per $TRUNCATEN DECLARE LONG CONSTANT GETSPI$_BLOCKSEXTEND = 16989 ! Bytes per $EXTENDV DECLARE LONG CONSTANT GETSPI$_ACTIVE_STREAMS = 16990 ! Active connects to fileI DECLARE LONG CONSTANT GETSPI$_TOTAL_ENQS = 16991 ! Total new ENQsE DECLARE LONG CONSTANT GETSPI$_TOTAL_DEQS = 16992 ! Total DEQsP DECLARE jLONG CONSTANT GETSPI$_TOTAL_CNVS = 16993 ! Total ENQ conversionsP DECLARE LONG CONSTANT GETSPI$_TOTAL_BLKAST = 16994 ! Total blocking ASTsD DECLARE LONG CONSTANT GETSPI$_RMS_ORG = 16995 ! RMS File orgm DECLARE LONG CONSTANT GETSPI$_INTCOL_HSHTBL = 16996 ! Interlock collision on global buffer hash tablef DECLARE LONG CONSTANT GETSPI$_INTCOL_GBH = 16997 ! Interlock Collision on global buffer headerm DECLARE LONG CONSTANT GETSPI$_INTRES_SETIMR = 16998 ! Interlockk Collision resolved by call to $SETIMRm DECLARE LONG CONSTANT GETSPI$_INTNOTRES = 16999 ! Interlock collision not resolved by call to $SETIMRO DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS5 = 17000 ! Reserved RMS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS6 = 17001 ! Reserved RMS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS7 = 17002 ! Reserved RMS itemsO DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS8 = 17003 ! Reserved RMS itemsO DECLARE LONG CONSTlANT GETSPI$_RESERVEDRMS9 = 17004 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS10 = 17005 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS11 = 17006 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS12 = 17007 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS13 = 17008 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS14 = 17009 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_REmSERVEDRMS15 = 17010 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS16 = 17011 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS17 = 17012 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS18 = 17013 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS19 = 17014 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS20 = 17015 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS21 = n17016 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS22 = 17017 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS23 = 17018 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS24 = 17019 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS25 = 17020 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS26 = 17021 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS27 = 17022 ! Reseorved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS28 = 17023 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS29 = 17024 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS30 = 17025 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS31 = 17026 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS32 = 17027 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS33 = 17028 ! Reserved RMS itemspP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS34 = 17029 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS35 = 17030 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS36 = 17031 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS37 = 17032 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS38 = 17033 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS39 = 17034 ! Reserved RMS itemsP DECLARqE LONG CONSTANT GETSPI$_RESERVEDRMS40 = 17035 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS41 = 17036 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS42 = 17037 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS43 = 17038 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS44 = 17039 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS45 = 17040 ! Reserved RMS itemsP DECLARE LONG CONSTANrT GETSPI$_RESERVEDRMS46 = 17041 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS47 = 17042 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS48 = 17043 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS49 = 17044 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS50 = 17045 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS51 = 17046 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESEsRVEDRMS52 = 17047 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS53 = 17048 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS54 = 17049 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS55 = 17050 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS56 = 17051 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS57 = 17052 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS58 = 17t053 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS59 = 17054 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS60 = 17055 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS61 = 17056 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS62 = 17057 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS63 = 17058 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS64 = 17059 ! Reservued RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS65 = 17060 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS66 = 17061 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS67 = 17062 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS68 = 17063 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS69 = 17064 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS70 = 17065 ! Reserved RMS itemsPv DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS71 = 17066 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS72 = 17067 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS73 = 17068 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS74 = 17069 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS75 = 17070 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS76 = 17071 ! Reserved RMS itemsP DECLARE wLONG CONSTANT GETSPI$_RESERVEDRMS77 = 17072 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS78 = 17073 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS79 = 17074 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS80 = 17075 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS81 = 17076 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS82 = 17077 ! Reserved RMS itemsP DECLARE LONG CONSTANT xGETSPI$_RESERVEDRMS83 = 17078 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS84 = 17079 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS85 = 17080 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS86 = 17081 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS87 = 17082 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS88 = 17083 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVyEDRMS89 = 17084 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS90 = 17085 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS91 = 17086 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS92 = 17087 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS93 = 17088 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS94 = 17089 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS95 = 1709z0 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS96 = 17091 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS97 = 17092 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS98 = 17093 ! Reserved RMS itemsP DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS99 = 17094 ! Reserved RMS itemsQ DECLARE LONG CONSTANT GETSPI$_RESERVEDRMS100 = 17095 ! Reserved RMS items_ DECLARE LONG CONSTANT GETSPI$_LASTRMS = 17096 ! Last item in { the monitor specific table ! P ! Add new data items specific to MONITOR (not collected by the SPI on a per$ ! item basis) above this point. ! 3 DECLARE LONG CONSTANT GETSPI$_TABLESIZE = 712< DECLARE LONG CONSTANT GETSPI$s_getspi$scs_offsets = 56D record getspi$scs_offsets ! SCS class informationB BASIC$QUADWORD GETSPI$q_scs_nodename ! System node nameI LONG GETSPI$l_scs_dgsent ! Application datagrams sentM L|ONG GETSPI$l_scs_dgrcvd ! Application datagrams receivedN LONG GETSPI$l_scs_dgdiscard ! Application datagrams discardedH LONG GETSPI$l_scs_msgsent ! Application messages sentL LONG GETSPI$l_scs_msgrcvd ! Application messages receivedI LONG GETSPI$l_scs_snddats ! Block send datas initiatedI LONG GETSPI$l_scs_kbytsent ! Kbytes sent via send datasL LONG GETSPI$l_scs_reqdats ! Block} request datas initiatedP LONG GETSPI$l_scs_kbytreqd ! Kbytes received via request datasP LONG GETSPI$l_scs_kbytmapd ! Kbytes mapped for block transfersV LONG GETSPI$l_scs_qcr_cnt ! Times connection queued for send credit\ LONG GETSPI$l_scs_qbdt_cnt ! Times connection queued for buffer descriptor# end record getspi$scs_offsets d DECLARE LONG CONSTANT GETSPI$c_scs_minsize = 56 ! Size of one collection block for ~ scs class= DECLARE LONG CONSTANT GETSPI$s_getspi$disk_offsets = 37I record getspi$disk_offsets ! DISK class information for! ! the current revision level? WORD GETSPI$w_disk_alloclass ! Allocation class: LONG GETSPI$l_disk_devname ! Device name: WORD GETSPI$w_disk_unitnum ! Unit numberX BYTE GETSPI$b_disk_flags ! Flags byte (low bit indicates served disk; BASIC$QUADWORD GETSPI$q_disk_node name ! NodenameD BASIC$QUADWORD GETSPI$q_disk_volnamel ! Volume name (low)A LONG GETSPI$l_disk_volnameh ! Volume name (high)> LONG GETSPI$l_disk_optcnt ! Operation countG LONG GETSPI$l_disk_qcount ! Queue length accumulator$ end record getspi$disk_offsets L DECLARE LONG CONSTANT GETSPI$c_disk_minsize = 37 ! Size of one block@ DECLARE LONG CONSTANT GETSPI$s_getspi$disk_offsets_re = 36E record getspi$di sk_offsets_rev4 ! DISK class information ! for "revision level 4"? BYTE GETSPI$b_disk_alloclass_rev4 ! Allocation class: LONG GETSPI$l_disk_devname_rev4 ! Device name: WORD GETSPI$w_disk_unitnum_rev4 ! Unit numberX BYTE GETSPI$b_disk_flags_rev4 ! Flags byte (low bit indicates served disk@ BASIC$QUADWORD GETSPI$q_disk_nodename_rev4 ! NodenameI BASIC$QUADWORD GETSPI$q_disk_volnamel_rev4 ! Volume name (low)A  LONG GETSPI$l_disk_volnameh_rev4 ! Volume name (high)> LONG GETSPI$l_disk_optcnt_rev4 ! Operation countG LONG GETSPI$l_disk_qcount_rev4 ! Queue length accumulator) end record getspi$disk_offsets_rev4 Q DECLARE LONG CONSTANT GETSPI$c_disk_minsize_rev4 = 36 ! Size of one block; DECLARE LONG CONSTANT GETSPI$s_getspi$proc_class = 67I record getspi$proc_class ! PROCESSES Class Data Block; LONG GETSPI$l_proc_ipid  ! Internal PIDM LONG GETSPI$l_proc_uic ! UIC (Member is low-order word): WORD GETSPI$w_proc_state ! State valueH BYTE GETSPI$b_proc_pri ! Priority (negative value)M BASIC$OCTAWORD GETSPI$o_proc_lname ! Process name (counted string)@ LONG GETSPI$l_proc_gpgcnt ! Global page countA LONG GETSPI$l_proc_ppgcnt ! Process page count@ LONG GETSPI$l_proc_sts ! PCB  Status Vector- ! (PCB$V_RES bit clear => swapped out)? LONG GETSPI$l_proc_diocnt ! Direct I/O count? LONG GETSPI$l_proc_pageflts ! Page fault countN LONG GETSPI$l_proc_cputim ! Accumulated CPU time (in ticks)A LONG GETSPI$l_proc_biocnt ! Buffered I/O count; LONG GETSPI$l_proc_epid ! Extended PIDP LONG GETSPI$l_proc_efwm ! Event flag wait mask (for MWAITs)L LONG GETSPI$l_proc_rbstran ! Real balance slot transitions! ! Size of process data block" end record getspi$proc_class 6 DECLARE LONG CONSTANT GETSPI$c_proc_minsize = 67 ww$g ! *** PREDECLARED TYPESE : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )V END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF E: %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORDO* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  S DECLARE LONG CONSTANT glock$c_nowait = 1 ! $acquire_lock will not auto-waitN DECLARE LONG CONSTANT glock$c_nospin = 2 ! $acquire_lock will not spin_ DECLARE LONG CONSTANT glock$c_nobreak = 4 ! $acquire_lock will not break lock ownership` DECLARE LONG CONSTANT glock$c_auto_wait = 8 ! kernel mode code waints an automatic wait U DECLARE LONG CONSTANT glock$c_num_nodes = 64 ! max number of gnodes supportedW DECLARE LONG CONSTANT glcktbl$c_process = 0 ! lock region is mapped in P2 spaceV DECLARE LONG CONSTANT glcktbl$c_system = 1 ! lock region is mapped in S2 spaceR DECLARE LONG CONSTANT glcktbl$c_private = 2 ! lock region is pre-allocated8 DECL ARE LONG CONSTANT glock_hist$s_glock_hist = 12 record glock_hist LONG glock_hist$l_pc) BASIC$QUADWORD glock_hist$q_lock end record glock_hist 5 DECLARE LONG CONSTANT glock_hist$c_entries = 107 DECLARE LONG CONSTANT glock$m_owned = x'00000001'8 DECLARE LONG CONSTANT glock$m_broken = x'00000002'9 DECLARE LONG CONSTANT glock$m_waiters = x'00000004'9 DECLARE LONG CONSTANT glock$m_process = x'00000008'> DECLARE LONG CONSTANT glock$m_reserved_4_7 = x'000000F0'= DECLARE LONG CONSTANT glock$m_owner_count = x'0000FF00'6 DECLARE LONG CONSTANT glock$m_node = x'00FF0000': DECLARE LONG CONSTANT glock$m_node_seq = x'00000000'7 DECLARE LONG CONSTANT glock$m_owner = x'00000000'/ DECLARE LONG CONSTANT glock$S_GLOCK = 192 record GLOCKI LONG glock$l_flink ! Forward link (lock handle)7 LONG glock$l_spare1 ! not used@ WORD glock$w_size  ! size of structure= BYTE glock$b_type ! Structure type6 BYTE glock$b_subtype ! subtypeI BYTE glock$b_ipl ! IPL to raise to on acquireI BYTE glock$b_prev_ipl ! IPL to lower to on release; BYTE glock$b_rank ! Rank of lock7 BYTE glock$b_spare2 ! not used group glock$r_fill_6_ variant case:  BASIC$QUADWORD glock$q_lock ! the lock case' group glock$r_fill_7_* group glock$r_fill_8_ variant case) ! lock flagsr BYTE flags_bits ! COMMENT ADDED BY SDL - flags_bits contains bits flags through flags case0 group glock$r_fill_9_/ ! lock is owned: ! lock ownership is broken3 ! there are waitersB ! lock is owned in process context1 ! the unused bits| BYTE owned_bits ! COMMENT ADDED BY SDL - owned_bits contains bits owned through reserved_4_74 end group glock$r_fill_9_# end variant. end group glock$r _fill_8_+ ! nested owner count1 ! node where lock is owned- ! node sequence number, ! owner EPID or CPU # BYTE owner_count_bits ( 7 ) ! COMMENT ADDED BY SDL - owner_count_bits contains bits owner_count through owner+ end group glock$r_fill_7_ end variant" end group glock$r_fill_6_F BASIC$QUADWORD glock$q_thread_id ! thread id of lo ck ownerA BASIC$QUADWORD glock$q_waiters ! bitmask of waiters; LONG glock$l_timeout ! wait timeout8 STRING glock$t_name = 16 ! lock name7 LONG glock$l_spare4 ! not used7 LONG glock$l_spare5 ! not usedO LONG glock$l_history_idx ! next history longword to be usedM glock_hist glock$r_history ( 1 to 10 ) ! acquire - release history end record GLOCK ; DECLARE LONG CONSTANT glock$c_length = 64 ! Length ; DECLARE LONG CONSTANT glock$k_length = 64 ! Length D DECLARE LONG CONSTANT glock$c_max_length = 192 ! max length D DECLARE LONG CONSTANT glock$k_max_length = 192 ! max length < DECLARE LONG CONSTANT glock_lock$m_owned = x'00000001'= DECLARE LONG CONSTANT glock_lock$m_broken = x'00000002'> DECLARE LONG CONSTANT glock_lock$m_waiters = x'00000004'> DECLARE LONG CONSTANT glock_lock$m_process = x '00000008'C DECLARE LONG CONSTANT glock_lock$m_reserved_4_7 = x'000000F0'B DECLARE LONG CONSTANT glock_lock$m_owner_count = x'0000FF00'; DECLARE LONG CONSTANT glock_lock$m_node = x'00FF0000'? DECLARE LONG CONSTANT glock_lock$m_node_seq = x'00000000'< DECLARE LONG CONSTANT glock_lock$m_owner = x'00000000'7 DECLARE LONG CONSTANT glock_lock$s_glock_lock = 8 record glock_lock$ group glock_lock$r_fill_10_ variant case?  BASIC$QUADWORD glock_lock$q_lock ! the lock case- group glock_lock$r_fill_11_0 group glock_lock$r_fill_12_ variant case) ! lock flagsr BYTE flags_bits ! COMMENT ADDED BY SDL - flags_bits contains bits flags through flags case6 group glock_lock$r_fill_13_/  ! lock is owned: ! lock ownership is broken3 ! there are waitersB ! lock is owned in process context1 ! the unused bits| BYTE owned_bits ! COMMENT ADDED BY SDL - owned_bits contains bits owned through reserved_4_7: end group glock_lock$r_fill_13_# end variant4  end group glock_lock$r_fill_12_+ ! nested owner count1 ! node where lock is owned- ! node sequence number, ! owner EPID or CPU # BYTE owner_count_bits ( 7 ) ! COMMENT ADDED BY SDL - owner_count_bits contains bits owner_count through owner1 end group glock_lock$r_fill_11_ end variant( end group glock_lock$r_fill_10_ end reco rd glock_lock 9 DECLARE LONG CONSTANT glcktbl$m_valid = x'00000001'; DECLARE LONG CONSTANT glcktbl$m_private = x'00000002'9 DECLARE LONG CONSTANT glcktbl$m_space = x'00000004'@ DECLARE LONG CONSTANT glcktbl$m_reserved_3_7 = x'000000F8'3 DECLARE LONG CONSTANT glcktbl$S_GLCKTBL = 256 record GLCKTBLK LONG glcktbl$l_flink ! Forward link (region offset)J WORD glcktbl$w_lock_size ! size of locks for the table!  group glcktbl$r_fill_14_ variant case? BYTE glcktbl$b_flags ! lock table flags case* group glcktbl$r_fill_15_, ! lock table is valid3 ! user allocated lock memory; ! clear for process, set for system ( ! the unused bitss BYTE valid_bits ! COMMENT ADDED BY SDL - valid_bits contains bits valid t hrough reserved_3_7. end group glcktbl$r_fill_15_ end variant% end group glcktbl$r_fill_14_M BYTE glcktbl$b_accmode ! access mode of global section I BASIC$QUADWORD glcktbl$q_reg_id ! ID of shared memory regionY BASIC$QUADWORD glcktbl$q_reg_phys_size ! physical size of shared memory regionX BASIC$QUADWORD glcktbl$q_reg_virt_size ! virtual size of shared memory regionM BASIC$QUADWORD glcktbl$ q_num_locks ! number of locks in the region> LONG glcktbl$l_free_list ! free glock list> LONG glcktbl$l_used_list ! used glock listI BASIC$QUADWORD glcktbl$q_nodes ! bitmask of connected nodesK BASIC$QUADWORD glcktbl$q_glock_handle ! handle of embedded glock@ BYTE glcktbl$b_glock ( 1 to 64 ) ! embedded GLOCKH WORD glcktbl$w_ref_counts ( 1 to 64 ) ! per-node ref counters end record GLCKTBL >  DECLARE LONG CONSTANT glcktbl$c_length = 256 ! Length > DECLARE LONG CONSTANT glcktbl$k_length = 256 ! Length : DECLARE LONG CONSTANT glock_nodeb$s_glock_nodeb = 32 record glock_nodebJ BASIC$QUADWORD glock_nodeb$q_lock_handle ! lockhandle for ipintB BYTE glock_nodeb$b_spares ( 1 to 24 ) ! pad to 32 bytes end record glock_nodeb @ DECLARE LONG CONSTANT glock_nodeb$c_length = 32 ! length: DECLARE LONG CONSTANT gmdb_glock$s_gmdb_gloc k = 2576 record gmdb_glock> BASIC$QUADWORD gmdb_glock$q_nodes ! connected nodesF BASIC$QUADWORD gmdb_glock$q_max_nodes ! max nodes supported4 BASIC$QUADWORD gmdb_glock$q_flags ! flags< BASIC$QUADWORD gmdb_glock$q_handle ! lock handle [ BYTE gmdb_glock$b_lock ( 1 to 64 ) ! GLOCK for the locking portion of the GMDBY BYTE gmdb_glock$b_lcktbl ( 1 to 256 ) ! embedded GLCKTBL for locks in the GMDBb BASIC$QUADWORD gmdb_glock$q_num_tables ( 1 to 2 ) ! number of locktables in the regionsM LONG gmdb_glock$l_free_list ( 1 to 2 ) ! lists of free lock tablesM LONG gmdb_glock$l_used_list ( 1 to 2 ) ! lists of used lock tablesd BASIC$QUADWORD gmdb_glock$q_reg_handle ( 1 to 2 ) ! lock handles for locktable list locksU BYTE gmdb_glock$b_prc_lock ( 1 to 64 ) ! GLOCK for process locktable listsT BYTE gmdb_glock$b_sys_lock ( 1 to 64 ) ! GLOCK for system locktable listsF  glock_nodeb gmdb_glock$r_nodeb ( 1 to 64 ) ! per node cells end record gmdb_glock B DECLARE LONG CONSTANT gmdb_glock$c_length = 2576 ! Length  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  ? DECLARE LONG CONSTANT HW$_VAX = 1 ! VAX architectureA DECLARE LONG CONSTANT HW$_ALPHA = 2 ! Alpha architecture@ DECLARE LONG CONSTANT HW$_IA64 = 3 ! IA64 architectureB DECLARE LONG CONSTANT HW$_X86_64 = 4 ! x86_64 architecture ww8 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! Special Registers? DECLARE LONG CONSTANT IA64_REG$_IP = 1016 ! getReg only3 DECLARE LONG CONSTANT IA64_REG$_PSR_UM = 10170 DECLARE LONG CONSTANT IA64_REG$_PSR = 10192 DECLARE LONG C ONSTANT IA64_REG$_PSR_L = 1019 ! General Integer Registers6 DECLARE LONG CONSTANT IA64_REG$_GP = 1025 ! R17 DECLARE LONG CONSTANT IA64_REG$_SP = 1036 ! R127 DECLARE LONG CONSTANT IA64_REG$_TP = 1037 ! R13' ! Constants for 'hint' instruction3 DECLARE LONG CONSTANT IA64_REG$HINT_PAUSE = 03 DECLARE LONG CONSTANT IA64_REG$HINT_WAIT = 64 ! Application Registers3 DECLARE LONG CONSTANT IA64_REG$_AR_KR0 = 30723 DECLARE LONG CONSTANT IA64_R EG$_AR_KR1 = 30733 DECLARE LONG CONSTANT IA64_REG$_AR_KR2 = 30743 DECLARE LONG CONSTANT IA64_REG$_AR_KR3 = 30753 DECLARE LONG CONSTANT IA64_REG$_AR_KR4 = 30763 DECLARE LONG CONSTANT IA64_REG$_AR_KR5 = 30773 DECLARE LONG CONSTANT IA64_REG$_AR_KR6 = 30783 DECLARE LONG CONSTANT IA64_REG$_AR_KR7 = 30793 DECLARE LONG CONSTANT IA64_REG$_AR_RSC = 30883 DECLARE LONG CONSTANT IA64_REG$_AR_BSP = 30898 DECLARE LONG CONSTANT IA64_REG$_AR_BSPSTORE = 30 904 DECLARE LONG CONSTANT IA64_REG$_AR_RNAT = 30913 DECLARE LONG CONSTANT IA64_REG$_AR_FCR = 30935 DECLARE LONG CONSTANT IA64_REG$_AR_EFLAG = 30963 DECLARE LONG CONSTANT IA64_REG$_AR_CSD = 30973 DECLARE LONG CONSTANT IA64_REG$_AR_SSD = 30985 DECLARE LONG CONSTANT IA64_REG$_AR_CFLAG = 30993 DECLARE LONG CONSTANT IA64_REG$_AR_FSR = 31003 DECLARE LONG CONSTANT IA64_REG$_AR_FIR = 31013 DECLARE LONG CONSTANT IA64_REG$_AR_FDR = 31023 DECLAR E LONG CONSTANT IA64_REG$_AR_CCV = 31044 DECLARE LONG CONSTANT IA64_REG$_AR_UNAT = 31084 DECLARE LONG CONSTANT IA64_REG$_AR_FPSR = 31123 DECLARE LONG CONSTANT IA64_REG$_AR_ITC = 31163 DECLARE LONG CONSTANT IA64_REG$_AR_RUC = 31173 DECLARE LONG CONSTANT IA64_REG$_AR_PFS = 31362 DECLARE LONG CONSTANT IA64_REG$_AR_LC = 31372 DECLARE LONG CONSTANT IA64_REG$_AR_EC = 3138 ! Control Registers3 DECLARE LONG CONSTANT IA64_REG$_CR_DCR = 40963 DECL ARE LONG CONSTANT IA64_REG$_CR_ITM = 40973 DECLARE LONG CONSTANT IA64_REG$_CR_IVA = 40983 DECLARE LONG CONSTANT IA64_REG$_CR_PTA = 41044 DECLARE LONG CONSTANT IA64_REG$_CR_IPSR = 41123 DECLARE LONG CONSTANT IA64_REG$_CR_ISR = 41133 DECLARE LONG CONSTANT IA64_REG$_CR_IIP = 41153 DECLARE LONG CONSTANT IA64_REG$_CR_IFA = 41164 DECLARE LONG CONSTANT IA64_REG$_CR_ITIR = 41174 DECLARE LONG CONSTANT IA64_REG$_CR_IIPA = 41183 DECLARE LONG CONSTANT IA 64_REG$_CR_IFS = 41193 DECLARE LONG CONSTANT IA64_REG$_CR_IIM = 41203 DECLARE LONG CONSTANT IA64_REG$_CR_IHA = 4121D DECLARE LONG CONSTANT IA64_REG$_CR_IIB0 = 4122 ! getReg onlyD DECLARE LONG CONSTANT IA64_REG$_CR_IIB1 = 4123 ! getReg only3 DECLARE LONG CONSTANT IA64_REG$_CR_LID = 4160C DECLARE LONG CONSTANT IA64_REG$_CR_IVR = 4161 ! getReg only3 DECLARE LONG CONSTANT IA64_REG$_CR_TPR = 41623 DECLARE LONG CONSTANT IA64_REG$_CR_EOI = 4163D  DECLARE LONG CONSTANT IA64_REG$_CR_IRR0 = 4164 ! getReg onlyD DECLARE LONG CONSTANT IA64_REG$_CR_IRR1 = 4165 ! getReg onlyD DECLARE LONG CONSTANT IA64_REG$_CR_IRR2 = 4166 ! getReg onlyD DECLARE LONG CONSTANT IA64_REG$_CR_IRR3 = 4167 ! getReg only3 DECLARE LONG CONSTANT IA64_REG$_CR_ITV = 41683 DECLARE LONG CONSTANT IA64_REG$_CR_PMV = 41694 DECLARE LONG CONSTANT IA64_REG$_CR_CMCV = 41704 DECLARE LONG CONSTANT IA64_REG$_CR_LRR0 = 41764 DECLAR E LONG CONSTANT IA64_REG$_CR_LRR1 = 41779 ! Indirect Registers for getIndReg() and setIndReg()J DECLARE LONG CONSTANT IA64_REG$_INDR_CPUID = 9000 ! getIndReg only5 DECLARE LONG CONSTANT IA64_REG$_INDR_DBR = 90015 DECLARE LONG CONSTANT IA64_REG$_INDR_IBR = 90025 DECLARE LONG CONSTANT IA64_REG$_INDR_PKR = 90035 DECLARE LONG CONSTANT IA64_REG$_INDR_PMC = 90045 DECLARE LONG CONSTANT IA64_REG$_INDR_PMD = 90054 DECLARE LONG CONSTANT IA64_REG$_INDR_RR = 9006 wwȋ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +% ! IMAGE ACTIVATION CONTROL FLAGS ! -5 DECLARE LONG CONSTANT IAC$M_NOACT = x'00000001'8 DECLARE LONG CONSTANT IAC$M_WRITABLE = x'00000002'9 DECLARE LONG CONSTANT IAC$M_SHAREABL E = x'00000004'9 DECLARE LONG CONSTANT IAC$M_PRIVILEGE = x'00000008'5 DECLARE LONG CONSTANT IAC$M_MERGE = x'00000010'6 DECLARE LONG CONSTANT IAC$M_EXPREG = x'00000020'7 DECLARE LONG CONSTANT IAC$M_P1MERGE = x'00000040'8 DECLARE LONG CONSTANT IAC$M_PARANOID = x'00000080'7 DECLARE LONG CONSTANT IAC$M_LASTCLU = x'00000100'3 DECLARE LONG CONSTANT IAC$M_LIM = x'00000200'5 DECLARE LONG CONSTANT IAC$M_RETRY = x'00000400'8 DECLARE LONG CONSTANT IAC$ M_NOCMKRNL = x'00000800'9 DECLARE LONG CONSTANT IAC$M_SEQDEVLOD = x'00001000'7 DECLARE LONG CONSTANT IAC$M_XLINKER = x'00002000'9 DECLARE LONG CONSTANT IAC$M_KP_RESHDR = x'00004000'9 DECLARE LONG CONSTANT IAC$M_IS_RESHDR = x'00008000'9 DECLARE LONG CONSTANT IAC$M_NOTSHARED = x'00010000'9 DECLARE LONG CONSTANT IAC$M_GBLCLUSTR = x'00020000'8 DECLARE LONG CONSTANT IAC$M_SHMIDENT = x'00040000'6 DECLARE LONG CONSTANT IAC$M_NOCOPY = x'00080000'9 DE CLARE LONG CONSTANT IAC$M_P1MERG_P0 = x'00100000'9 DECLARE LONG CONSTANT IAC$M_SETVECTOR = x'00200000'9 DECLARE LONG CONSTANT IAC$M_PROTECTED = x'00400000'8 DECLARE LONG CONSTANT IAC$M_P1DIRECT = x'00800000'5 DECLARE LONG CONSTANT IAC$M_DEBUG = x'01000000'9 DECLARE LONG CONSTANT IAC$M_PERMANENT = x'02000000'7 DECLARE LONG CONSTANT IAC$M_NOTRANS = x'04000000'@ DECLARE LONG CONSTANT IAC$M_NO_SHARE_LINKAGE = x'08000000'< DECLARE LONG CONSTANT IAC$M_PA GE_PROTECT = x'10000000'Q DECLARE LONG CONSTANT IAC$C_LARGEST = 6 ! LARGEST FLAG CALLER MAY SPECIFY , DECLARE LONG CONSTANT IAC$S_IACDEF = 4 record IACDEF variant case& group IAC$R_IACDEF_BITS= ! DO NOT ACTIVATE THE IMAGE (FOR INSTALL) . ! MAKE IMAGE FILE WRITABLE = ! ACT. SHAREABLE IMAGE FOR EXECUTABLE IMG = ! ACT. SHARE. IMG FOR PRIV EXECUTABLE IMG ;  ! ACT 2ND EXECUTABLE IMG INTO ADR SPACE 7 ! MAP IMAGE INTO NEXT FREE VA SPACE = ! P1 MERGED ACTIVATION (LEGAL INPUT FLAG) * ! GO INTO PARANOIA MODE' ! LAST CLUSTER FLAG $ ! LINKABLE IMAGE , ! RETRY IMAGE ACTIVATION 8 ! SHUT OFF CMKRNL,CMEXEC-SYSVER DIFF : ! LOADING FROM SEQUENTIAL DEVICE (NET) ) ! CROSS LINKER FORMAT 0  ! MAKE IMAGE HEADER RESIDENT . ! IMAGE HEADER IS RESIDENT 7 ! DO NOT SET IS_SHARED IN KFI ENTRY : ! CURRENTLY PROCESSING GBL ISD CLUSTER : ! SHARED MEMORY IDENT USED FOR GBL SEC < ! NO PRIVATE COPY OF SECTION IN EXEC IMG : ! P1 MERGED ACTIVATION WITH P0 ADDRESS ! ! RANGE (INTERNAL FLAG ONLY); ! SIGNAL ATLERNATE ENTRY TO SET VECTORS 5  ! REQUIRE SHAREABLES BE /PROTECTED$ ! DIRECT P1 MERGE4 ! DEBUG SPECIFIED WITH ACTIVATION, ! MAKE P1 IMAGE PERMANENT9 ! DO LOOKUP ON UNTRANSLATED IMAGE NAME4 ! Activate without shared linkage< ! Protect image pages according to acmodel LONG NOACT_bits ! COMMENT ADDED BY SDL - NOACT_bits contains bits NOACT through FILL_16_* end group IAC$R_IACDEF_BITS end variant end record IACDEF  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 9 ! ICC IOSB data structure for data transfer routines ! N ! Past the 1st longword, the IOC_ICC fields vary depending on the type ofN ! request/operation. The diagram attempts to picture t hose relationshipsN ! below. Longwords 2-5 are done in columns, each column representing theA ! value of that longword for that type of request/operation. ! " ! +4 +2 +0C ! +---------------------------------------------------------+G ! L1: | Undefined | Return status code |C ! |---------------------------------------------------------|C ! |---------------------------------------------------------| ! |  | | | |C ! | RECEIVE | REPLY | TRANSCEIVE | CONNECT | ! | | | | |G ! L2: | rcv_len | replyto_handle| txrcv_len | RemStat |G ! |---------------|---------------|---------------|---------|G ! L3: | req_handle | Unused | | Unused |G ! |---------------|---------------| reply_buffer | |G ! L4: | reply_len | Unused | | |G ! |--- ------------|---------------|---------------| |G ! L5: | Unused | Unused | txreply_len | |G ! |---------------+---------------+---------------+---------| ! 2 DECLARE LONG CONSTANT IOS_ICC$S_IOS_ICC = 20 record IOS_ICC< WORD IOS_ICC$w_status ! return status7 WORD IOS_ICC$w_reserved ! reserved# group IOS_ICC$r_parameters variant case)  group IOS_ICC$r_connectH LONG IOS_ICC$l_remstat ! remote status (returned)4 LONG IOS_ICC$l_fill0 ( 1 to 3 )- end group IOS_ICC$r_connect case) group IOS_ICC$r_receiveH LONG IOS_ICC$l_rcv_len ! return len (returned)M LONG IOS_ICC$l_req_handle ! request handle (returned)L LONG IOS_ICC$l_reply_len ! reply len (returned))  LONG IOS_ICC$l_fill1- end group IOS_ICC$r_receive case' group IOS_ICC$r_replyN LONG IOS_ICC$l_replyto_handle ! request_handle (input)4 LONG IOS_ICC$l_fill2 ( 1 to 3 )+ end group IOS_ICC$r_reply case, group IOS_ICC$r_transceiveN LONG IOS_ICC$l_txrcv_len ! return length (returned)X BASIC$QUADWORD IOS_ICC$A_reply_buffer ! 64-bit bfr addr (Alpha)J LONG IOS_ICC$l_txreply_len ! reply len (input)0 end group IOS_ICC$r_transceive end variant' end group IOS_ICC$r_parameters end record IOS_ICC 2 DECLARE LONG CONSTANT ICC$C_receive_len = 16/ DECLARE LONG CONSTANT ICC$C_reply_len = 85 DECLARE LONG CONSTANT ICC$C_transceive_len = 20 !  ! Length constants ! 4 DECLARE LO NG CONSTANT ICC$C_MAX_ASSOC_LEN = 31: DECLARE LONG CONSTANT ICC$C_MAX_CONN_DATA_LEN = 1000 ! D ! Connection flag bit definitions (for connect/accept services) ! : DECLARE LONG CONSTANT ICC$M_Synch_Mode = x'00000001': DECLARE LONG CONSTANT ICC$S_ICC_CONNECTION_FLAGS = 1! record ICC_CONNECTION_FLAGS. ! Set (1) if data transfer routines( ! are allowed to return SS$_SYNCH ! to the user.r BYTE Synch_Mode_bits ! COMMENT ADDED BY SDL - Synch_Mode_bits contains bits Synch_Mode through FILL_17_% end record ICC_CONNECTION_FLAGS  ! L ! ICC event codes (first parameter) for the connect/disconnect routines ! 0 DECLARE LONG CONSTANT ICC$C_EV_CONNECT = 03 DECLARE LONG CONSTANT ICC$C_EV_DISCONNECT = 1/ DECLARE LONG CONSTANT ICC$C_min_event = 0/ DECLARE LONG CONSTANT ICC$C_max_event = 1 ! % ! Default ICC association handle ! 7 DECLARE LONG CONSTANT ICC$C_DFLT_ASSOC_HANDLE = 1 ! ! ! Default flow control value ! T DECLARE LONG CONSTANT ICC$C_DEFAULT_MAXFLOWBUFCNT = 5 ! Pending inbound msgs ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  5 DECLARE LONG CONSTANT IEEE$K_VERSION_NUMBER = 2 ! / ! IEEE Floating Point control definitions. !  ! a ! The following values are used to set the precision control and rounding control  fields via^ ! SYS$IEEE_SET_PRECISION_MODE and SYS$IEEE_SET_ROUNDING_MODE. (Note that one can not set ! precision mode on Alpha). ! \ DECLARE LONG CONSTANT IEEE$C_PM_NO_CHANGE = -1 ! No change. Just get previous valueE DECLARE LONG CONSTANT IEEE$C_PM_SINGLE = 0 ! Single PrecisionN DECLARE LONG CONSTANT IEEE$C_PM_UNUSED = 1 ! This value has no meaningE DECLARE LONG CONSTANT IEEE$C_PM_DOUBLE = 2 ! Double PrecisionW DECLARE LONG CONSTANT IEEE$C_PM_DOUBLE_EXTENDED = 3 ! Double-Extended PrecisionE DECLARE LONG CONSTANT IEEE$C_PM_MAX = 3 ! Maximum legal value\ DECLARE LONG CONSTANT IEEE$C_RM_NO_CHANGE = -1 ! No change. Just get previous valueG DECLARE LONG CONSTANT IEEE$C_RM_NEAREST = 0 ! Nearest (or even)C DECLARE LONG CONSTANT IEEE$C_RM_DOWN = 1 ! -Infinity (down)? DECLARE LONG CONSTANT IEEE$C_RM_UP = 2 ! +Infinity (up)K DECLARE LONG CONSTANT IEEE$C_RM_TRUNCATE = 3 ! Zero (truncate/chop) E DECLARE LONG CONSTANT IEEE$C_RM_MAX = 3 ! Maximum legal value ! S ! The following structure defines bits for the (software) IEEE Floating Point V ! control register on Alpha, and for the values passed to SYS$IEEE_SET_FP_CONTROLA ! on all architectures (except VAX where it does not exist). ! @ DECLARE LONG CONSTANT IEEE$M_TRAP_ENABLE_INV = x'00000002'@ DECLARE LONG CONSTANT IEEE$M_TRAP_ENABLE_DZE = x'00000004'@ DECLARE LONG CONSTANT IEEE$M_TRAP_EN ABLE_OVF = x'00000008'@ DECLARE LONG CONSTANT IEEE$M_TRAP_ENABLE_UNF = x'00000010'@ DECLARE LONG CONSTANT IEEE$M_TRAP_ENABLE_INE = x'00000020'A DECLARE LONG CONSTANT IEEE$M_TRAP_ENABLE_DNOE = x'00000040'8 DECLARE LONG CONSTANT IEEE$M_MAP_DNZ = x'00002000'8 DECLARE LONG CONSTANT IEEE$M_MAP_UMZ = x'00004000'8 DECLARE LONG CONSTANT IEEE$M_INHERIT = x'00008000'; DECLARE LONG CONSTANT IEEE$M_STATUS_INV = x'00020000'; DECLARE LONG CONSTANT IEEE$M_STATUS_DZE = x'00040000'; DECLARE LONG CONSTANT IEEE$M_STATUS_OVF = x'00080000'; DECLARE LONG CONSTANT IEEE$M_STATUS_UNF = x'00100000'; DECLARE LONG CONSTANT IEEE$M_STATUS_INE = x'00200000'; DECLARE LONG CONSTANT IEEE$M_STATUS_DNO = x'00400000'3 DECLARE LONG CONSTANT IEEE$M_PC = x'01800000'3 DECLARE LONG CONSTANT IEEE$M_RC = x'06000000'5 DECLARE LONG CONSTANT IEEE$M_WPFP = x'08000000'+ DECLARE LONG CONSTANT IEEE$S_IEEE = 8 record IEEE group IEEE$R_FILL_18_ variant case@ BASIC$QUADWORD IEEE$Q_FLAGS ! Internal flags case' group IEEE$R_FILL_19_) ! Bit 0 - reserved ! Trap enable flags* ! invalid operation' ! divide by zero! ! overflow" ! underflow ! inexact: ! denormal operand exceptio n enable! ! reserved8 ! denormal operands mapped to 0.02 ! underflows mapped to 0.0 : ! inherit FP state on thread create! ! reserved* ! invalid operation' ! divide by zero! ! overflow" ! underflow ! inexact) ! denormal operandK ! Precision, rounding, and WPFP are not currently supported on Alpha.* ! Precision control) ! Rounding control: ! Whole program floating point mode! ! reservedx LONG SPARE_0_bits ! COMMENT ADDED BY SDL - SPARE_0_bits contains bits SPARE_0 through SPARE_28_31+ end group IEEE$R_FILL_19_ end variant" end group IEEE$R_FILL_18_ end record IEEE   ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +4 ! Define the 32-bit Item List Entry 3 structure ! -, DECLARE LONG CONSTANT ILE3$S_ILE3 = 12 record ILE3H WORD ILE3$W_LENGTH ! Length of buffer in bytes>  WORD ILE3$W_CODE ! Item code value= LONG ILE3$PS_BUFADDR ! Buffer addressR LONG ILE3$PS_RETLEN_ADDR ! Address of word for returned length end record ILE3 A DECLARE LONG CONSTANT ILE3$K_LENGTH = 12 ! Length of ILE3A DECLARE LONG CONSTANT ILE3$C_LENGTH = 12 ! Length of ILE3 ! +I ! Define the 64-Bit Item List Entry B structure. This is the 64-bit7 ! counterpart of the 32-bit item list 3  structure. ! -2 DECLARE LONG CONSTANT ILEB_64$S_ILEB_64 = 32 record ILEB_64@ WORD ILEB_64$W_MBO ! Must be One field> WORD ILEB_64$W_CODE ! Item code valueF LONG ILEB_64$L_MBMO ! Must be Minus One fieldH BASIC$QUADWORD ILEB_64$Q_LENGTH ! Length of buffer in bytes= BASIC$QUADWORD ILEB_64$PQ_BUFADDR ! Buffer addressZ BASIC$QUADWORD ILEB_64$PQ_RETLEN_ADDR ! Address of quadwo rd for returned length end record ILEB_64 D DECLARE LONG CONSTANT ILEB_64$K_LENGTH = 32 ! Length of ILEBD DECLARE LONG CONSTANT ILEB_64$C_LENGTH = 32 ! Length of ILEB ! +4 ! Define the 32-bit Item List Entry 2 structure ! -+ DECLARE LONG CONSTANT ILE2$S_ILE2 = 8 record ILE2H WORD ILE2$W_LENGTH ! Length of buffer in bytes> WORD ILE2$W_CODE ! Item code value= LONG ILE2$PS_BUFADDR  ! Buffer address end record ILE2 @ DECLARE LONG CONSTANT ILE2$K_LENGTH = 8 ! Length of ILE2@ DECLARE LONG CONSTANT ILE2$C_LENGTH = 8 ! Length of ILE2 ! +I ! Define the 64-Bit Item List Entry 2 structure. This is the 64-bit7 ! counterpart of the 32-bit item list 2 structure. ! -2 DECLARE LONG CONSTANT ILEA_64$S_ILEA_64 = 24 record ILEA_64@ WORD ILEA_64$W_MBO ! Must be One field> WORD ILEA _64$W_CODE ! Item code valueF LONG ILEA_64$L_MBMO ! Must be Minus One fieldH BASIC$QUADWORD ILEA_64$Q_LENGTH ! Length of buffer in bytes= BASIC$QUADWORD ILEA_64$PQ_BUFADDR ! Buffer address end record ILEA_64 D DECLARE LONG CONSTANT ILEA_64$K_LENGTH = 24 ! Length of ILEAD DECLARE LONG CONSTANT ILEA_64$C_LENGTH = 24 ! Length of ILEA wwx ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! $ ! Object Indictment Definitions ! K ! This file is in [STARLET] to allow other outside developers call theL ! sys$indict_object call properly. Today the only group who calls th at ! object is Compaq Analyze. !  ! **** NOTE **** ! I ! New items must always be added to the END of each item list4 ! so that users will not have to relink. !  ! -O DECLARE LONG CONSTANT INDICT$_VERSION = 1 ! Request information versionJ DECLARE LONG CONSTANT INDICT$_OBJTYPE = 2 ! Indictment Object typeV DECLARE LONG CONSTANT INDICT$_HANDLE = 3 ! Indicted object or failing PFN PageL DECLARE LONG CONSTANT INDICT$_COMPONENT_ID = 4 ! Component Handle IDP DECLARE LONG CONSTANT INDICT$_COMPONENT_TYPE = 5 ! Component Handle TypeV DECLARE LONG CONSTANT INDICT$_COMPONENT_SUBTYPE = 6 ! Component Handle SubtypeF DECLARE LONG CONSTANT INDICT$_MODULE_ID = 7 ! Module Handle IdJ DECLARE LONG CONSTANT INDICT$_MODULE_TYPE = 8 ! Module Handle TypeP DECLARE LONG CONSTANT INDICT$_MODULE_SUBTYPE = 9 ! Module Handle SubtypeV DECLARE LONG CONSTANT INDICT$_URGENCY = 10 ! Urgency of the indictment requestU DECLARE LONG CONSTANT INDICT$_PROBABILITY = 11 ! Probability of correct faultY DECLARE LONG CONSTANT INDICT$_TOTALINDICTMENTS = 12 ! Total number to be indicted\ DECLARE LONG CONSTANT INDICT$_DESCRIPTION = 13 ! Readable description of the problemT DECLARE LONG CONSTANT INDICT$_REPORTHANDLE = 14 ! report_handle program name\ DECLARE LONG CONSTANT INDICT$_INITIATOR = 15 ! Who called us (e.g. Compaq Analyze).  wwǺ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! * ! Values for INIT$_DENSITY item code. ! G DECLARE LONG CONSTANT INIT$K_DENSITY_800_BPI = 1 ! 800 bpi tapeI DECLARE LONG CONSTANT INIT$K_DENSITY_1600_BPI = 2 ! 1600 bpi tapeI DECLARE LONG CONSTANT INIT$K_DENSITY_6250_BPI = 3 ! 6250 bpi tapeR DECLARE LONG CONSTANT INIT$K_DENSITY_SINGLE_DISK = 4 ! Single-density RX02Z DECLARE LONG CONSTANT INIT$K_DENSITY_DOUBLE_DISK = 5 ! RX33 or double-density RX02g DECLARE LONG CONSTANT INIT$K_DENSITY_DD_DISK = 6 ! "Double density" (lower than "High Density")P DECLARE LONG CONSTANT INIT$K_DENSITY_HD_DISK = 7 ! High density disketteX DECLARE LONG CONSTANT INIT$K_DENSITY_COMPACT = 8 ! TA90 with dat a compaction on O DECLARE LONG CONSTANT INIT$K_DENSITY_ED_DISK = 9 ! New density for RX26 ! - ! Values for INIT$_HOMEBLOCKS item code. ! Q DECLARE LONG CONSTANT INIT$K_HOMEBLOCKS_GEOMETRY = 1 ! geometry dependentJ DECLARE LONG CONSTANT INIT$K_HOMEBLOCKS_FIXED = 2 ! fixed positionK DECLARE LONG CONSTANT INIT$K_HOMEBLOCKS_CONTIGUOUS = 3 ! contiguous ! + ! Item codes for $INIT_VOL parameters. ! 8 DECLARE LONG CONSTANT INIT$S_BADBLOC KS_LBN_DEF = 8 record BADBLOCKS_LBN_DEFA LONG INIT$L_BADBLOCKS_LBN ! LBN of first blockK LONG INIT$L_BADBLOCKS_LBN_COUNT ! Count of blocks to be marked" end record BADBLOCKS_LBN_DEF 9 DECLARE LONG CONSTANT INIT$S_BADBLOCKS_SEC_DEF = 16 record BADBLOCKS_SEC_DEFD LONG INIT$L_BADBLOCKS_SECTOR ! Sector of first blockK LONG INIT$L_BADBLOCKS_SEC_COUNT ! Count of blocks to be markedC LONG INIT$L_BADBLOCKS _TRACK ! Track of first blockF LONG INIT$L_BADBLOCKS_CYLINDER ! Cylinder of first block" end record BADBLOCKS_SEC_DEF ! Define codes as constantsX DECLARE LONG CONSTANT INIT$_ACCESSED = 1 ! Number of directories in system space_ DECLARE LONG CONSTANT INIT$_BADBLOCKS_LBN = 2 ! Bad block areas by logical block numberb DECLARE LONG CONSTANT INIT$_BADBLOCKS_SEC = 3 ! Bad block areas by sector, track, cylinderM DECLARE LONG CONSTANT INIT$_CLUSTERSIZE = 4 ! Minimum allocation unitM DECLARE LONG CONSTANT INIT$_COMPACTION = 5 ! Data compaction for TA90J DECLARE LONG CONSTANT INIT$_NO_COMPACTION = 6 ! No data compaction8 DECLARE LONG CONSTANT INIT$_DENSITY = 7 ! FormatZ DECLARE LONG CONSTANT INIT$_DIRECTORIES = 8 ! Preallocated entries for directoriesF DECLARE LONG CONSTANT INIT$_ERASE = 9 ! Destroy data on volumeQ DECLARE LONG CONSTANT INIT$_NO_ERASE = 10 ! Do not destroy data on volumeU DECLARE LONG CONSTANT INIT$_EXTENSION = 11 ! Default extension size for filesM DECLARE LONG CONSTANT INIT$_FPROT = 12 ! Default protection for filesX DECLARE LONG CONSTANT INIT$_HEADERS = 13 ! Number of file headers for index fileZ DECLARE LONG CONSTANT INIT$_HIGHWATER = 14 ! Set the file highwater mark attributed DECLARE LONG CONSTANT INIT$_NO_HIGHWATER = 15 ! Do not set the file highwater mark attributeb DECLARE LONG CONSTANT INIT$_INDEX_BEGINNING = 16 ! Place index file at beginning of volumeI DECLARE LONG CONSTANT INIT$_INDEX_BLOCK = 17 ! LBN for index fileV DECLARE LONG CONSTANT INIT$_INDEX_END = 18 ! Place index file at end of volume\ DECLARE LONG CONSTANT INIT$_INDEX_MIDDLE = 19 ! Place index file at middle of volume\ DECLARE LONG CONSTANT INIT$_INTERCHANGE = 20 ! Do not write VMS-specific informationX DECLARE LONG CONSTANT INIT$_NO_INTERCHANGE = 21 ! Write VMS-specific information^ DECLARE LONG CONSTANT INIT$_LABEL_ACCESS = 22 ! Character for ANSI accessability fieldR DECLARE LONG CONSTANT INIT$_LABEL_VOLO = 23 ! Text for ANSI owner ID fieldU DECLARE LONG CONSTANT INIT$_MAXFILES = 24 ! Maximum number of files on volumeW DECLARE LONG CONSTANT INIT$_OVR_ACCESS = 25 ! Override ANSI accessability fielda DECLARE LONG CONSTANT INIT$_NO_OVR_ACCESS = 26 ! Do not override ANSI accessability fieldK DECLARE LONG CONSTANT INIT$_OVR_EXP = 27 ! Override expiration dateU DECLARE LONG CONSTANT INIT$_NO_OVR_EXP = 28 ! Do not override expiration dateP DECLARE LONG CONSTANT INIT$_OVR_VOLO = 29 ! Override ANSI owner ID fieldZ DECLARE LONG CONSTANT INIT$_NO_OVR_VOLO = 30 ! Do not override ANSI owner ID field? DECLARE LONG CONSTANT INIT$_OWNER = 31 ! UIC for volumeN DECLARE LONG CONSTANT INIT$_READCHECK = 32 ! Check all read operationsX DECLARE LONG CONSTANT INIT$_NO_READCHECK = 33 ! Do not check all read operations@ DECLARE LONG CONSTANT INIT$_SIZE = 34 ! Size of RAM diskW DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_1 = 35 ! Format in Files-11 level 1W DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_2 = 36 ! Format in Files-11 level 2g DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_2_SUB_0 = 37 ! Format in subset of Files-11 level 2I DECLARE LONG CONSTANT INIT$_USER_NAME = 38 ! User name for volumeP DECLARE LONG CONSTANT INIT$_VERIFIED = 39 ! Use bad block data on volumeV DECLARE LONG CONSTANT INIT$_NO_VERIFIED = 40 ! Ignore bad block data on volumeB DECLARE LONG CONSTANT INIT$_VPROT = 41 ! Volume protection] DECLARE LONG CONSTANT INIT$_WINDOW = 42 ! Number of mapping pointers for file windowsP DECLARE LONG CONSTANT INIT$_WRITECHECK = 43 ! Check all write operationsZ DECLARE LONG CONSTANT INIT$_NO_WRITECHECK = 44 ! Do not check all write operationsS DECLARE LONG CONSTANT INIT$_MIN_CLASS = 45 ! Minimum security classficationS DECLARE LONG CONSTANT INIT$_MAX_CLASS = 46 ! Maximum security classfication[ DECLARE LONG CONSTANT INIT$_NO_PROTECTION = 47 ! No default security classificationY DECLARE LONG CONSTANT INIT$_HOMEBLOCKS = 48 ! Homeblock placement strategy to useW DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_5 = 49 ! Format in Files-11 level 5R DECLARE LONG CONSTANT INIT$_SHADOW = 50 ! Format disks with Shadowing SCBsc DECLARE LONG CONSTANT INIT$_HARDLINKS = 51 ! Use a linkcount in creating files (ODS-5 only)d DECLARE LONG CONSTANT INIT$_ACCESS_DATES = 52 ! Use access dates for attributes (ODS-5 only), DECLARE LONG CONSTANT INIT$_SPARE = 53S DECLARE LONG CONSTANT INIT$_VOLUME_LIMIT = 54 ! Maximum logical volume sizeW DECLARE LONG CONSTANT INIT$_GPT = 55 ! Create a GUID Partition Table Structure.F DECLARE LONG CONSTANT INIT$_NO_GPT = 56 ! Do not create a GPT N DECLARE LONG CONSTANT INIT$_ERASE_ON_DELETE = 57 ! Set HM2$V_ERASE bitN DECLARE LONG CONSTANT INIT$_ERASE_ON_INIT = 58 ! Perform DSE erase nowg DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_6 = 59 ! Format in Files-11 level 6 (CFS container)D DECLARE LONG CONSTANT INIT$_LOGSIZE = 60 ! CFS log file sizec DECLARE LONG CONSTANT INIT$_SPECIAL_FILES = 61 ! Volume supports special files (ODS-5 only)a DECLARE LONG CONSTANT INIT$_NO_SPECIAL_FILES = 62 ! Volume does not support special filesf DECLARE LONG CONSTANT INIT$_LAST_INIT_ITEM = 63 ! Note add all new INIT items before this one.K DECLARE LONG CONSTANT INIT$_MAX_ITEM_CODE = 62 ! Maximum item code.U DECLARE LONG CONSTANT INIT$S_USER_NAME = 12 ! Max size of user name on volumeP DECLARE LONG CONSTANT INIT$S_DEVICE_NAME = 64 ! Max size of device namesW DECLARE LONG CONSTANT INIT$C_MIN_SECURITY_BLKCNT = 6 ! Min size of SECURITY.SYSN DECLARE LONG CONSTANT INIT$C_MIN_GPT_BLKCNT = 34 ! Min size of GPT.SYS ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +$ ! I/O FUNCTION CODE DEFINITIONS ! - ! 0 ! *** START PHYSICAL I/O FUNCTION CODES *** ! ; DECLARE LONG CONSTANT IO$_NOP = 0 ! NO OPERATION ; DECLARE LONG CONSTANT IO $_UNLOAD = 1 ! UNLOAD DRIVE @ DECLARE LONG CONSTANT IO$_LOADMCODE = 1 ! LOAD MICROCODE ? DECLARE LONG CONSTANT IO$_START_BUS = 1 ! START LAVC BUS< DECLARE LONG CONSTANT IO$_SEEK = 2 ! SEEK CYLINDER = DECLARE LONG CONSTANT IO$_SPACEFILE = 2 ! SPACE FILES G DECLARE LONG CONSTANT IO$_STARTMPROC = 2 ! START MICROPROCESSOR = DECLARE LONG CONSTANT IO$_STOP_BUS = 2 ! STOP LAVC BUS@ DECLARE LONG CONSTANT IO$_RECAL = 3 ! RECALIBRATE DRIVE ? DECLARE LONG CONSTANT IO$_DUPLEX = 3 ! ENTER DUPLEX MODE3 DECLARE LONG CONSTANT IO$_STOP = 3 ! STOP H DECLARE LONG CONSTANT IO$_DEF_COMP = 3 ! DEFINE NETWORK COMPONENT: DECLARE LONG CONSTANT IO$_DRVCLR = 4 ! DRIVE CLEAR = DECLARE LONG CONSTANT IO$_INITIALIZE = 4 ! INITIALIZE > DECLARE LONG CONSTANT IO$_MIMIC = 4 ! ENTER MIMIC MODER DECLARE LONG CONSTANT IO$_DEF_COMP_LIST = 4 ! DEFINE NETWORK COMPONENT LISTD DECLARE LONG CONSTANT IO$_FLUSH_ERROR = 4 ! FLUSH SCSI ERRORS< DECLARE LONG CONSTANT IO$_RELEASE = 5 ! RELEASE PORT F DECLARE LONG CONSTANT IO$_SETCLOCKP = 5 ! SET CLOCK (PHYSICAL) Q DECLARE LONG CONSTANT IO$_START_ANALYSIS = 5 ! START LAVC FAILURE ANALYSISL DECLARE LONG CONSTANT IO$_BIND = 5 ! BIND UNITS INTO A STORAGE POOLI DECLARE LONG CONSTANT IO$_PATH_VERIFY = 5 ! VERIFY PATH TO DEVICE @ DECLARE LONG CONSTANT IO$_OFFSET = 6 ! OFFSET READ HEADS < DECLARE LONG CONSTANT IO$_ERASETAPE = 6 ! ERASE TAPE Q DECLARE LONG CONSTANT IO$_STARTDATAP = 6 ! START DATA TRANSFER (PHYSICAL) O DECLARE LONG CONSTANT IO$_STOP_ANALYSIS = 6 ! STOP LAVC FAILURE ANALYSISN DECLARE LONG CONSTANT IO$_UNBIND = 6 ! REMOVE UNITS FROM A STORAGE POOLF DECLARE LONG CONSTANT IO$_RETCENTER = 7 ! RETURN TO CENTERLINE A DECLARE LONG CONSTANT IO$_QSTOP = 7 ! QUEUE STOP REQUEST P DECLARE LONG CONSTANT IO$_START_MONITOR = 7 ! START LAVC CHANNEL MONITOR.N DECLARE LONG CONSTANT IO$_CREDISK = 7 ! CREATE A DISK IN A STORAGE POOLA DECLARE LONG CONSTANT IO$_LOCAL_DRAIN = 7 ! DRAIN LOCAL IO@ DECLARE LONG CONSTANT IO$_PACKACK = 8 ! PACK ACKNOWLEDGE N DECLARE LONG CONSTANT IO$_STOP_MONITOR = 8 ! STOP LAVC CHANNEL MONITOR.@ DECLARE LONG CONSTANT IO$_SEARCH = 9 ! SEARCH FOR SECTOR A DECLARE LONG CONSTANT IO$_SPACERECORD = 9 ! SPACE RECORDS O DECLARE LONG CONSTANT IO$_READRCT = 9 ! READ REPLACEMENT ? CACHING TABLEP DECLARE LONG CONSTANT IO$_REMDISK = 9 ! REMOVE A DISK FROM A STORAGE POOLD DECLARE LONG CONSTANT IO$_WRITECHECK = 10 ! WRITE CHECK DATA P DECLARE LONG CONSTANT IO$_EXPORT = 10 ! EXPORT A DISK FROM A STORAGE POOLG DECLARE LONG CONSTANT IO$_WRITEPBLK = 11 ! WRITE PHYSICAL BLOCK E DECLARE LONG CONSTANT IO$_READPBLK = 12 ! READ PHYSICAL BLOCK H DECLARE LONG CONSTANT IO$_WRITEHEAD = 13 ! WRITE HEADER AND DATA @ DECLARE LONG CONSTANT IO$_RDSTATS = 13 ! READ STATISTICS C DECLARE LONG CONSTANT IO$_CRESHAD = 13 ! CREATE A SHADOW SETF DECLARE LONG CONSTANT IO$_READHEAD = 14 ! READ HEADER AND DATA H DECLARE LONG CONSTANT IO$_ADDSHAD = 14 ! ADD MEMBER TO SHADOW SETE DECLARE LONG CONSTANT IO$_WRITETRACKD = 15 ! WRITE TRACK DATA S DECLARE LONG CONSTANT IO$_COPYSHAD = 15 ! PERFORM SHADOW SET COPY OPERATIONSC DECLARE LONG CONSTANT IO$_READTRACKD = 16 ! READ TRACK DATA M DECLARE LONG CONSTANT IO$_REMSHAD = 16 ! REMOVE MEMBER FROM SHADOW SETR DECLARE LONG CONSTANT IO$_AVAILABLE = 17 ! AVAILABLE (DISK AND TAPE CLASS) E DECLARE LONG CONSTANT IO$_SETPRFPATH = 18 ! SET PREFERRED PATHD DECLARE LONG CONSTANT IO$_DISPLAY = 19 ! DISPLAY VOLUME LABELP DECLARE LONG CONSTANT IO$_REMSHADMBR = 20 ! REMOVE MEMBER FROM SHADOW SETO DECLARE LONG CONSTANT IO$_DSE = 21 ! DATA SECURITY ERASE (AND REWIND) < DECLARE LONG CONSTANT IO$_REREADN = 22 ! REREAD NEXT E DECLARE LONG CONSTANT IO$_DISK_COPY_DATA = 22 ! DISK_COPY_DATAE DECLARE LONG CONSTANT IO$_MOUNTSHAD = 23 ! CREATE A SHADOW SET@ DECLARE LONG CONSTANT IO$_REREADP = 23 ! REREAD PREVIOUS F DECLARE LONG CONSTANT IO$_WHM = 23 ! WRITE HISTORY MANAGEMENTL DECLARE LONG CONSTANT IO$_AS_SETCHAR = 23 ! ASIAN SET CHARACTERISTICS= DECLARE LONG CONSTANT IO$_WRITERET = 24 ! WRITE RETRY P DECLARE LONG CONSTANT IO$_WRITECHECKH = 24 ! WRITE CHECK HEADER AND DATA P DECLARE LONG CONSTANT IO$_AS_SENSECHAR = 24 ! ASIAN SENSE CHARACTERISTICSK DECLARE LONG CONSTANT IO$_ADDSHADMBR = 25 ! ADD MEMBER TO SHADOW SETA DECLARE LONG CONSTANT IO$_READPRESET = 25 ! READIN PRESET A DECLARE LONG CONSTANT IO$_STARTSPNDL = 25 ! START SPINDLE D DECLARE LONG CONSTANT IO$_SETCHAR = 26 ! SET CHARACTERISTICS M DECLARE LONG CONSTANT IO$_SENSECHAR = 27 ! SENSE TAPE CHARACTERISTICS B DECLARE LONG CONSTANT IO$_WRITEMARK = 28 ! WRITE TAPE MARK ; DECLARE LONG CONSTANT IO$_COPYMEM = 28 ! COPY MEMORYL DECLARE LONG CONSTANT IO$_PSXSETCHAR = 28 ! POSIX SET CHARACTERISTICSF DECLARE LONG CONSTANT IO$_WRTTMKR = 29 ! WRITE TAPE MARK RETRY : DECLARE LONG CONSTANT IO$_DIAGNOSE = 29 ! DIAGNOSE O DECLARE LONG CONSTANT IO$_SHADMV = 29 ! PREFORM MOUNT VER. ON SHADOW SETP DECLARE LONG CONSTANT IO$_PSXSENSECHAR = 29 ! POSIX SENSE CHARACTERISTICS6 DECLARE LONG CONSTANT IO$_FORMAT = 30 ! FORMAT 9 DECLARE LONG CONSTANT IO$_CLEAN = 30 ! CLEA N TAPE F DECLARE LONG CONSTANT IO$_UPSHAD = 30 ! UPDATE SHADOW SYSDEVICET DECLARE LONG CONSTANT IO$_PHYSICAL = 31 ! HIGHEST PHYSICAL I/O FUNCTION CODE  ! / ! *** START LOGICAL I/O FUNCTION CODES *** ! F DECLARE LONG CONSTANT IO$_WRITELBLK = 32 ! WRITE LOGICAL BLOCK D DECLARE LONG CONSTANT IO$_READLBLK = 33 ! READ LOGICAL BLOCK I DECLARE LONG CONSTANT IO$_REWINDOFF = 34 ! REWIND AND SET OFFLINE E DECLARE LONG CONSTANT IO$_READRCTL = 34 ! READ RCT SECTOR ZERO9 DECLARE LONG CONSTANT IO$_SETMODE = 35 ! SET MODE ; DECLARE LONG CONSTANT IO$_REWIND = 36 ! REWIND TAPE < DECLARE LONG CONSTANT IO$_SKIPFILE = 37 ! SKIP FILES A DECLARE LONG CONSTANT IO$_PSXSETMODE = 37 ! POSIX SET MODE@ DECLARE LONG CONSTANT IO$_SKIPRECORD = 38 ! SKIP RECORDS E DECLARE LONG CONSTANT IO$_PSXSENSEMODE = 38 ! POSIX SENSE MODEB DECLARE LONG CONSTANT IO$_SENSEMODE = 39 ! SENSE TAPE MODE B DECLARE LONG CONSTANT IO $_WRITEOF = 40 ! WRITE END OF FILE ] DECLARE LONG CONSTANT IO$_TTY_PORT_BUFIO = 40 ! BUFFERED I/O TERMINAL PORT FDT ROUTINEJ DECLARE LONG CONSTANT IO$_TTY_PORT = 41 ! TERMINAL PORT FDT ROUTINED DECLARE LONG CONSTANT IO$_FREECAP = 41 ! RETURN FREE CAPACITYD DECLARE LONG CONSTANT IO$_FLUSH = 42 ! FLUSH CONTROLLER CACHEA DECLARE LONG CONSTANT IO$_AS_SETMODE = 42 ! ASIAN SET MODEK DECLARE LONG CONSTANT IO$_READLCHUNK = 43 ! READ LARGE LOGICAL BLOCKE DECL ARE LONG CONSTANT IO$_AS_SENSEMODE = 43 ! ASIAN SENSE MODEM DECLARE LONG CONSTANT IO$_WRITELCHUNK = 44 ! WRITE LARGE LOGICAL BLOCKR DECLARE LONG CONSTANT IO$_LOGICAL = 47 ! HIGHEST LOGICAL I/O FUNCTION CODE  ! + ! *** START VIRTUAL I/O FUNCTION CODES ! ! NOTE: S ! Virtual IO operations to a non-file oriented device require that the processM ! has READ access priviledges for that device. Specificly, EXE$QIO callsM ! EXE$CHECK_DEVICE_ACCESS for t he following virtual IO function codes to: ! verify that the the process has read access rights:J ! READPBLK,READLBLK,READVBLK, READHEAD,READTRACKD,REREADN,REREADP,+ ! READPROMPT,TTYREADALL,TTYREADPALLF DECLARE LONG CONSTANT IO$_WRITEVBLK = 48 ! WRITE VIRTUAL BLOCK D DECLARE LONG CONSTANT IO$_READVBLK = 49 ! READ VIRTUAL BLOCK ; DECLARE LONG CONSTANT IO$_ACCESS = 50 ! ACCESS FILE H DECLARE LONG CONSTANT IO$_PSXWRITEVBLK = 50 ! POSIX WRITE VIRTUAL;  DECLARE LONG CONSTANT IO$_CREATE = 51 ! CREATE FILE ? DECLARE LONG CONSTANT IO$_DEACCESS = 52 ! DEACCESS FILE F DECLARE LONG CONSTANT IO$_PSXREADVBLK = 52 ! POSIX READ VIRTUAL; DECLARE LONG CONSTANT IO$_DELETE = 53 ! DELETE FILE ; DECLARE LONG CONSTANT IO$_MODIFY = 54 ! MODIFY FILE P DECLARE LONG CONSTANT IO$_NETCONTROL = 54 ! X25 NETWORK CONTROL FUNCTION M DECLARE LONG CONSTANT IO$_READPROMPT = 55 ! READ TERMINAL WITH PROMPT ; DECLARE LONG CONSTANT IO$_SETCLOCK = 55 ! SET CLOCK : DECLARE LONG CONSTANT IO$_AUDIO = 55 ! CD-ROM AUDIOM DECLARE LONG CONSTANT IO$_ACPCONTROL = 56 ! MISCELLANEOUS ACP CONTROL = DECLARE LONG CONSTANT IO$_STARTDATA = 56 ! START DATA K DECLARE LONG CONSTANT IO$_IOCTLV = 56 ! GENERIC UNIX IOCTL FUNCTIONS< DECLARE LONG CONSTANT IO$_MANAGE = 56 ! MANAGE DEVICE; DECLARE LONG CONSTANT IO$_MOUNT = 57 ! MOUNT VOLUME J DECLARE LONG CONSTANT IO$_TTYREADALL = 58 ! TERMINAL READ PASSALL > DECLARE LONG CONSTANT IO$_DISMOUNT = 58 ! F64 dismountP DECLARE LONG CONSTANT IO$_TTYREADPALL = 59 ! TERM READ W/PROMPT PASSALL F DECLARE LONG CONSTANT IO$_USBATTR = 59 ! USB device attributesR DECLARE LONG CONSTANT IO$_CONINTREAD = 60 ! Connect to interrupt readonly U DECLARE LONG CONSTANT IO$_CONINTWRITE = 61 ! Connect to interrupt with write G DECLARE LONG CONSTANT IO$_READDIR = 62 ! READ DIRECTORY CONTENTSM DECLARE LONG CONSTAN T IO$_VIRTUAL = 63 ! HIGHEST VIRTUAL I/O FUNCTION  ! ( ! FUNCTION MODIFIER BIT DEFINITIONS ! 4 DECLARE LONG CONSTANT IO$M_FCODE = x'0000003F'9 DECLARE LONG CONSTANT IO$M_FMODIFIERS = x'0000FFC0'7 DECLARE LONG CONSTANT IO$M_INHERLOG = x'00000800'4 DECLARE LONG CONSTANT IO$M_ERASE = x'00000400'5 DECLARE LONG CONSTANT IO$M_EXFUNC = x'00002000'8 DECLARE LONG CONSTANT IO$M_DATACHECK = x'00004000'7 DECLARE LONG CONSTANT IO$M_INHRETRY = x'00008000 '6 DECLARE LONG CONSTANT IO$M_SYNCSTS = x'00010000'7 DECLARE LONG CONSTANT IO$M_NOVCACHE = x'00020000'5 DECLARE LONG CONSTANT IO$M_BUFOBJ = x'00040000'6 DECLARE LONG CONSTANT IO$M_TRUSTED = x'00080000'9 DECLARE LONG CONSTANT IO$M_FILE_FLUSH = x'00100000'6 DECLARE LONG CONSTANT IO$M_BARRIER = x'00200000'7 DECLARE LONG CONSTANT IO$M_RAH_HINT = x'00400000'6 DECLARE LONG CONSTANT IO$M_INHSEEK = x'00001000': DECLARE LONG CONSTANT IO$M_READ_TO_EOF =  x'00200000'6 DECLARE LONG CONSTANT IO$M_REVERSE = x'00000040'5 DECLARE LONG CONSTANT IO$M_NOWAIT = x'00000080'8 DECLARE LONG CONSTANT IO$M_INHEXTGAP = x'00001000'8 DECLARE LONG CONSTANT IO$M_RETENSION = x'00002000'8 DECLARE LONG CONSTANT IO$M_ALLOWFAST = x'00004000': DECLARE LONG CONSTANT IO$M_MT3_DENSITY = x'00008000'9 DECLARE LONG CONSTANT IO$M_MSCPMODIFS = x'00000100'5 DECLARE LONG CONSTANT IO$M_SHADOW = x'00000040'5 DECLARE LONG CONSTANT IO $M_LOCATE = x'00000080': DECLARE LONG CONSTANT IO$M_MSCP_FORMAT = x'00000040'7 DECLARE LONG CONSTANT IO$M_ALLHOSTS = x'00000040'7 DECLARE LONG CONSTANT IO$M_DISSOLVE = x'00000080'8 DECLARE LONG CONSTANT IO$M_NOCLEANUP = x'00000100'7 DECLARE LONG CONSTANT IO$M_SPINDOWN = x'00000040'; DECLARE LONG CONSTANT IO$M_EST_COM_PATH = x'00000040'; DECLARE LONG CONSTANT IO$M_LCL_SRC_UNIT = x'00000080'; DECLARE LONG CONSTANT IO$M_RTN_COM_PATH = x'00000100'8  DECLARE LONG CONSTANT IO$M_DEALC_ALL = x'00000040'8 DECLARE LONG CONSTANT IO$M_DEALC_HRN = x'00000080'; DECLARE LONG CONSTANT IO$M_DEALC_ENTLOC = x'00000100'7 DECLARE LONG CONSTANT IO$M_DECR_AFC = x'00000200'7 DECLARE LONG CONSTANT IO$M_READ_ALL = x'00000400'7 DECLARE LONG CONSTANT IO$M_READ_HRN = x'00000800'9 DECLARE LONG CONSTANT IO$M_BREAK_CONN = x'00001000'7 DECLARE LONG CONSTANT IO$M_STEPOVER = x'00000040'5 DECLARE LONG CONSTANT IO$M_COPYO P = x'00000100'5 DECLARE LONG CONSTANT IO$M_EXISTS = x'00000040'2 DECLARE LONG CONSTANT IO$M_CBS = x'00000080'6 DECLARE LONG CONSTANT IO$M_BOOTING = x'00000100'; DECLARE LONG CONSTANT IO$M_REQ_MINICOPY = x'00000200'; DECLARE LONG CONSTANT IO$M_OPT_MINICOPY = x'00000400'9 DECLARE LONG CONSTANT IO$M_NOMINICOPY = x'00000800'@ DECLARE LONG CONSTANT IO$M_EXPECT_MOUNT_DONE = x'00002000'6 DECLARE LONG CONSTANT IO$M_VUEX_FC = x'00000200'8 DECLARE LONG  CONSTANT IO$M_WRITE_SCB = x'00000200'9 DECLARE LONG CONSTANT IO$M_UPD_SCBLBN = x'00002000'8 DECLARE LONG CONSTANT IO$M_FORCEPATH = x'00000040'< DECLARE LONG CONSTANT IO$M_PREFERRED_CPU = x'00000080'= DECLARE LONG CONSTANT IO$M_SYS_ASSIGNABLE = x'00000100'5 DECLARE LONG CONSTANT IO$M_COMMOD = x'00000040'9 DECLARE LONG CONSTANT IO$M_MOVETRACKD = x'00000080'9 DECLARE LONG CONSTANT IO$M_DIAGNOSTIC = x'00000100'8 DECLARE LONG CONSTANT IO$M_SKPSECINH = x '00000200'6 DECLARE LONG CONSTANT IO$M_DELDATA = x'00000040'5 DECLARE LONG CONSTANT IO$M_NOMRSP = x'00000040'3 DECLARE LONG CONSTANT IO$M_SWAP = x'00000100'7 DECLARE LONG CONSTANT IO$M_OPPOSITE = x'00000200'8 DECLARE LONG CONSTANT IO$M_CLSEREXCP = x'00000200'8 DECLARE LONG CONSTANT IO$M_CHUNKDIAG = x'00000040'2 DECLARE LONG CONSTANT IO$M_TBC = x'00000400'5 DECLARE LONG CONSTANT IO$M_ENAREP = x'00000040'5 DECLARE LONG CONSTANT IO$M_ACCESS = x'00 000040'5 DECLARE LONG CONSTANT IO$M_CREATE = x'00000080'5 DECLARE LONG CONSTANT IO$M_DELETE = x'00000100'4 DECLARE LONG CONSTANT IO$M_MOUNT = x'00000200'5 DECLARE LONG CONSTANT IO$M_DMOUNT = x'00000400'6 DECLARE LONG CONSTANT IO$M_REMOUNT = x'00000800'7 DECLARE LONG CONSTANT IO$M_MOVEFILE = x'00001000'8 DECLARE LONG CONSTANT IO$M_RWSHELVED = x'00004000'5 DECLARE LONG CONSTANT IO$M_SETDIR = x'00008000'5 DECLARE LONG CONSTANT IO$M_BINARY = x'00 000040'5 DECLARE LONG CONSTANT IO$M_PACKED = x'00000080'2 DECLARE LONG CONSTANT IO$M_NOW = x'00000040'5 DECLARE LONG CONSTANT IO$M_STREAM = x'00000080': DECLARE LONG CONSTANT IO$M_READERCHECK = x'00000100': DECLARE LONG CONSTANT IO$M_WRITERCHECK = x'00000200'7 DECLARE LONG CONSTANT IO$M_NORSWAIT = x'00000400'= DECLARE LONG CONSTANT IO$M_MB_ROOM_NOTIFY = x'00000040'7 DECLARE LONG CONSTANT IO$M_READATTN = x'00000080'6 DECLARE LONG CONSTANT IO$M _WRTATTN = x'00000100'6 DECLARE LONG CONSTANT IO$M_SETPROT = x'00000200'9 DECLARE LONG CONSTANT IO$M_READERWAIT = x'00000400'9 DECLARE LONG CONSTANT IO$M_WRITERWAIT = x'00000800'5 DECLARE LONG CONSTANT IO$M_NOECHO = x'00000040'4 DECLARE LONG CONSTANT IO$M_TIMED = x'00000080'5 DECLARE LONG CONSTANT IO$M_CVTLOW = x'00000100'6 DECLARE LONG CONSTANT IO$M_NOFILTR = x'00000200'7 DECLARE LONG CONSTANT IO$M_DSABLMBX = x'00000400'4 DECLARE LONG CONSTAN T IO$M_PURGE = x'00000800'8 DECLARE LONG CONSTANT IO$M_TRMNOECHO = x'00001000'6 DECLARE LONG CONSTANT IO$M_REFRESH = x'00002000'5 DECLARE LONG CONSTANT IO$M_ESCAPE = x'00004000'5 DECLARE LONG CONSTANT IO$M_EXTEND = x'00008000'7 DECLARE LONG CONSTANT IO$M_CANCTRLO = x'00000040'7 DECLARE LONG CONSTANT IO$M_ENABLMBX = x'00000080'7 DECLARE LONG CONSTANT IO$M_NOFORMAT = x'00000100'8 DECLARE LONG CONSTANT IO$M_BREAKTHRU = x'00000200'6 DECLARE LONG C ONSTANT IO$M_NEWLINE = x'00000400'9 DECLARE LONG CONSTANT IO$M_TYPEAHDCNT = x'00000040'4 DECLARE LONG CONSTANT IO$M_MAINT = x'00000040'7 DECLARE LONG CONSTANT IO$M_CTRLYAST = x'00000080'7 DECLARE LONG CONSTANT IO$M_CTRLCAST = x'00000100'5 DECLARE LONG CONSTANT IO$M_HANGUP = x'00000200'6 DECLARE LONG CONSTANT IO$M_OUTBAND = x'00000400'9 DECLARE LONG CONSTANT IO$M_TT_CONNECT = x'00000800'8 DECLARE LONG CONSTANT IO$M_TT_DISCON = x'00001000'9 DECL ARE LONG CONSTANT IO$M_TT_PROCESS = x'00002000'5 DECLARE LONG CONSTANT IO$M_BRDCST = x'00004000'3 DECLARE LONG CONSTANT IO$M_LOOP = x'00000080'5 DECLARE LONG CONSTANT IO$M_UNLOOP = x'00000100'7 DECLARE LONG CONSTANT IO$M_LINE_OFF = x'00000200'8 DECLARE LONG CONSTANT IO$M_SET_MODEM = x'00000400'6 DECLARE LONG CONSTANT IO$M_LINE_ON = x'00000800'7 DECLARE LONG CONSTANT IO$M_LOOP_EXT = x'00001000'9 DECLARE LONG CONSTANT IO$M_AUTXOF_ENA = x'00002000'9  DECLARE LONG CONSTANT IO$M_AUTXOF_DIS = x'00004000'6 DECLARE LONG CONSTANT IO$M_INCLUDE = x'00000800'7 DECLARE LONG CONSTANT IO$M_TT_ABORT = x'00001000'8 DECLARE LONG CONSTANT IO$M_POSIXINIT = x'00000040'8 DECLARE LONG CONSTANT IO$M_POSIXFLOW = x'00000080'8 DECLARE LONG CONSTANT IO$M_SET_POSIX = x'00000080': DECLARE LONG CONSTANT IO$M_CLEAR_POSIX = x'00000100': DECLARE LONG CONSTANT IO$M_SET_TERMIOS = x'00000200'6 DECLARE LONG CONSTANT IO$M_SET_P TC = x'00000400'8 DECLARE LONG CONSTANT IO$M_CLEAR_PTC = x'00000800'8 DECLARE LONG CONSTANT IO$M_FLUSH_TAB = x'00001000'; DECLARE LONG CONSTANT IO$M_FLUSH_OUTPUT = x'00002000'9 DECLARE LONG CONSTANT IO$M_UPDATE_PTC = x'00004000'7 DECLARE LONG CONSTANT IO$M_OUT_XOFF = x'00000100'6 DECLARE LONG CONSTANT IO$M_OUT_XON = x'00000200'6 DECLARE LONG CONSTANT IO$M_IN_XOFF = x'00000400'5 DECLARE LONG CONSTANT IO$M_IN_XON = x'00000800'9 DECLARE LONG CONST !ANT IO$M_O_NONBLOCK = x'00000040'8 DECLARE LONG CONSTANT IO$M_INTERRUPT = x'00000040'7 DECLARE LONG CONSTANT IO$M_MULTIPLE = x'00000080'6 DECLARE LONG CONSTANT IO$M_LOCKBUF = x'00000100'6 DECLARE LONG CONSTANT IO$M_NOBLOCK = x'00000200'4 DECLARE LONG CONSTANT IO$M_ABORT = x'00000100'4 DECLARE LONG CONSTANT IO$M_SYNCH = x'00000200'7 DECLARE LONG CONSTANT IO$M_RESPONSE = x'00000040'6 DECLARE LONG CONSTANT IO$M_STARTUP = x'00000040'7 DECLARE LONG C "ONSTANT IO$M_SHUTDOWN = x'00000080'6 DECLARE LONG CONSTANT IO$M_ATTNAST = x'00000100'3 DECLARE LONG CONSTANT IO$M_CTRL = x'00000200'6 DECLARE LONG CONSTANT IO$M_SET_MAC = x'00000800'9 DECLARE LONG CONSTANT IO$M_UPDATE_MAP = x'00001000'4 DECLARE LONG CONSTANT IO$M_ROUTE = x'00002000'5 DECLARE LONG CONSTANT IO$M_RD_MEM = x'00000040'7 DECLARE LONG CONSTANT IO$M_RD_MODEM = x'00000080'7 DECLARE LONG CONSTANT IO$M_RD_COUNT = x'00000100'8 DECLARE LO #NG CONSTANT IO$M_CLR_COUNT = x'00000400'8 DECLARE LONG CONSTANT IO$M_SENSE_MAC = x'00000800'7 DECLARE LONG CONSTANT IO$M_SHOW_MAP = x'00001000'9 DECLARE LONG CONSTANT IO$M_SHOW_ROUTE = x'00002000'O DECLARE LONG CONSTANT IO$K_SRRUNOUT = 0 ! Send or rcv until cnt runout N DECLARE LONG CONSTANT IO$K_PTPBSC = 8192 ! Point to point BSC control @ DECLARE LONG CONSTANT IO$K_LOOPTEST = 57344 ! Loop test 2 ! X25 driver WRITEBLK function modifier bits.3 DE $CLARE LONG CONSTANT IO$M_MORE = x'00000040'8 DECLARE LONG CONSTANT IO$M_QUALIFIED = x'00000080'7 DECLARE LONG CONSTANT IO$M_REDIRECT = x'00000040'5 DECLARE LONG CONSTANT IO$M_ACCEPT = x'00000080'5 DECLARE LONG CONSTANT IO$M_SETEVF = x'00000040'3 DECLARE LONG CONSTANT IO$M_WORD = x'00000040'6 DECLARE LONG CONSTANT IO$M_SETFNCT = x'00000200'7 DECLARE LONG CONSTANT IO$M_DATAPATH = x'00000400'4 DECLARE LONG CONSTANT IO$M_CYCLE = x'00001000'4 DECL %ARE LONG CONSTANT IO$M_RESET = x'00002000'7 DECLARE LONG CONSTANT IO$M_SETCUADR = x'00000100'7 DECLARE LONG CONSTANT IO$M_SETBSIZE = x'00000200'8 DECLARE LONG CONSTANT IO$M_SETPOOLSZ = x'00000400'8 DECLARE LONG CONSTANT IO$M_SETENQCNT = x'00000800'4 DECLARE LONG CONSTANT IO$M_CLEAR = x'00001000'5 DECLARE LONG CONSTANT IO$M_LPBEXT = x'00002000'5 DECLARE LONG CONSTANT IO$M_LPBINT = x'00004000'6 DECLARE LONG CONSTANT IO$M_READCSR = x'00008000'8 DE &CLARE LONG CONSTANT IO$M_NOCTSWAIT = x'00000040'7 DECLARE LONG CONSTANT IO$M_SLAVLOOP = x'00000080'8 DECLARE LONG CONSTANT IO$M_NODSRWAIT = x'00000100'8 DECLARE LONG CONSTANT IO$M_MAINTLOOP = x'00000200'8 DECLARE LONG CONSTANT IO$M_LASTBLOCK = x'00000400'7 DECLARE LONG CONSTANT IO$M_INTCLOCK = x'00001000'9 DECLARE LONG CONSTANT IO$M_LT_CONNECT = x'00000040'8 DECLARE LONG CONSTANT IO$M_LT_DISCON = x'00000080': DECLARE LONG CONSTANT IO$M_LT_READPORT = x ''00000100': DECLARE LONG CONSTANT IO$M_LT_MAP_PORT = x'00000200'8 DECLARE LONG CONSTANT IO$M_LT_RATING = x'00000400': DECLARE LONG CONSTANT IO$M_LT_SOL_INFO = x'00000800': DECLARE LONG CONSTANT IO$M_LT_RCV_INFO = x'00001000'9 DECLARE LONG CONSTANT IO$M_LT_SETMODE = x'00002000'; DECLARE LONG CONSTANT IO$M_LT_SENSEMODE = x'00004000'? DECLARE LONG CONSTANT IO$M_LT_QUE_CHG_NOTIF = x'00008000'< DECLARE LONG CONSTANT IO$M_LT_MAP_FILLER = x'00000001'< (DECLARE LONG CONSTANT IO$M_LT_MAP_NODNAM = x'00000002'< DECLARE LONG CONSTANT IO$M_LT_MAP_PORNAM = x'00000004'< DECLARE LONG CONSTANT IO$M_LT_MAP_SRVNAM = x'00000008'< DECLARE LONG CONSTANT IO$M_LT_MAP_LNKNAM = x'00000010'< DECLARE LONG CONSTANT IO$M_LT_MAP_NETADR = x'00000020'4 DECLARE LONG CONSTANT IO$M_FLUSH = x'00000040'< DECLARE LONG CONSTANT IO$M_WRITE_BARRIER = x'00000080'6 DECLARE LONG CONSTANT IO$M_MKFILL1 = x'00000040'> DECLARE LONG CONSTANT IO )$M_ALLOWFAST_NEVER = x'00000080'? DECLARE LONG CONSTANT IO$M_ALLOWFAST_PER_IO = x'00000100'? DECLARE LONG CONSTANT IO$M_ALLOWFAST_ALWAYS = x'00000200'2 DECLARE LONG CONSTANT IO$M_ADD = x'00000040'7 DECLARE LONG CONSTANT IO$M_IDSTRING = x'00000040'8 DECLARE LONG CONSTANT IO$M_SERIALNUM = x'00000080'? DECLARE LONG CONSTANT IO$M_BYPASS_VALID_CHK = x'00000080'* DECLARE LONG CONSTANT IO$S_IODEF = 3 record IODEF variant2 ! Basic I/O functio *n code/modifiers structure case) group IO$R_FCODE_STRUCTURE) ! Function Code Field. ! Function Modifiers Fieldn WORD FCODE_bits ! COMMENT ADDED BY SDL - FCODE_bits contains bits FCODE through FMODIFIERS- end group IO$R_FCODE_STRUCTUREF ! Function modifiers common to all drivers which do error logging case* group IO$R_ERRLOG_MODIFIERS+ ! Inhibit +error logging WORD fcode_fill_1_bits ! COMMENT ADDED BY SDL - fcode_fill_1_bits contains bits fcode_fill_1 through FILL_20_. end group IO$R_ERRLOG_MODIFIERS4 ! General disk and tape function code modifiers case- group IO$R_DISK_TAPE_MODIFIERS ! Erase data# ! IO$M_INHERLOG+ ! func<31:16> are valid5 ! Write check data after transfer) , ! Inhibit error retry4 ! the following are only valid if EXFUNC is set2 ! allow synchronous completion* ! do not use VBN cache' ! Buffer object I/O0 ! I/O from trusted component( ! Flush file to disk6 ! Insert a barrier after the write2 ! Readahead hint (used by XFC) LONG fcode_fill_2_bits ! COMMENT ADDED BY SDL - fcode_fill_2_bits -contains bits fcode_fill_2 through FILL_21_1 end group IO$R_DISK_TAPE_MODIFIERS+ ! General disk function code modifiers case( group IO$R_DISK_MODIFIERS@ ! Inhibit implied seek on physical functions WORD fcode_fill_3_bits ! COMMENT ADDED BY SDL - fcode_fill_3_bits contains bits fcode_fill_3 through FILL_22_, end group IO$R_DISK_MODIFIERS0 ! General disk READ function code modifiers . case- group IO$R_DISK_READ_MODIFIERS> ! Fill to overlay READ_TO_EOF with BARRIER4 ! the following are only valid if EXFUNC is set5 ! Reserved for Internal Use only.x LONG filler_2a_bits ! COMMENT ADDED BY SDL - filler_2a_bits contains bits filler_2a through FILL_23_1 end group IO$R_DISK_READ_MODIFIERS+ ! General tape function code modifiers case( group IO$R_TAPE_MODIF /IERS' ! Reverse operation4 ! No wait for rewind to complete8 ! Inhibit extended inter-record gap S ! Traverse the entire tape to uniformly set the tape's tension.6 ! Applies only to IO$_REWIND/REWINDOFF functions? ! Allow fast skip by filemarks when enabled8 ! Applies only to IO$_SKIPFILE/SPACEFILE functionsR ! Density Setmode and Sensemode for MTD enhanced tape driver 0s.{ WORD fcode_fill_4_bits ! COMMENT ADDED BY SDL - fcode_fill_4_bits contains bits fcode_fill_4 through & ! MT3_DENSITY, end group IO$R_TAPE_MODIFIERSI ! DU ? TU, disk ? tape class driver transfer function modifier bits case- group IO$R_DUTU_XFER_MODIFIERS. ! Use MSCP modifiers in P5 WORD fcode_fill_5_bits ! COMMENT ADDED BY SDL - fcode_fill_5_bits contains bits fcode_fill_5 through FIL 1L_24_1 end group IO$R_DUTU_XFER_MODIFIERS case, group IO$R_DU_SENSE_MODIFIERS) ! Shadowing SENSECHAR/ ! Shadowing Locate function BYTE fcode_fill_6_bits ! COMMENT ADDED BY SDL - fcode_fill_6_bits contains bits fcode_fill_6 through LOCATE0 end group IO$R_DU_SENSE_MODIFIERS case. group IO$R_DU_PACKACK_MODIFIERS2 ! PACKACK media for fo 2rmatting BYTE fcode_fill_7_bits ! COMMENT ADDED BY SDL - fcode_fill_7_bits contains bits fcode_fill_7 through FILL_25_2 end group IO$R_DU_PACKACK_MODIFIERS case, group IO$R_DU_AVAIL_MODIFIERS; ! Do available as for all class drivers) ! Dissolve shadow set= ! Normal shadow set cleanup not necessary WORD fcode_fill_8_bits ! COMMENT ADDED BY SDL - fcode_fill 3_8_bits contains bits fcode_fill_8 through FILL_26_0 end group IO$R_DU_AVAIL_MODIFIERS case. group IO$R_DU_REMSHAD_MODIFIERS. ! Spin down removed member BYTE fcode_fill_9_bits ! COMMENT ADDED BY SDL - fcode_fill_9_bits contains bits fcode_fill_9 through FILL_27_2 end group IO$R_DU_REMSHAD_MODIFIERS case* group IO$R_DU_DCD_MODIFIERS2 ! Establish Communicat 4ion Path' ! Local Source Unit/ ! Retain Communication Path~ WORD fcode_fill_11_bits ! COMMENT ADDED BY SDL - fcode_fill_11_bits contains bits fcode_fill_11 through & ! FILL_28_. end group IO$R_DU_DCD_MODIFIERS case* group IO$R_DU_WHM_MODIFIERS$ ! Deallocate All9 ! Deallocate by Host Reference Number1 ! Deallocate by Entry Locator8 5 ! Decrement Allocation Failure Count ! Read All3 ! Read by Host Reference Number& ! Break Connection~ WORD fcode_fill_12_bits ! COMMENT ADDED BY SDL - fcode_fill_12_bits contains bits fcode_fill_12 through & ! FILL_29_. end group IO$R_DU_WHM_MODIFIERS1 ! HBS driver transfer function modifier bitsC ! Make sure that IO$V_SHADOW .ne. IO$V_LOCATE .ne. IO$V_COPYOP 6case0 group IO$R_HBS_COPYSHAD_MODIFIERS& ! Stepover SCBLBN./ ! Shad Server Cpy Operation~ WORD fcode_fill_13_bits ! COMMENT ADDED BY SDL - fcode_fill_13_bits contains bits fcode_fill_13 through & ! FILL_30_4 end group IO$R_HBS_COPYSHAD_MODIFIERS case/ group IO$R_HBS_CRESHAD_MODIFIERS( ! VU already exists.1 ! Controller based shadowing.. 7 ! Creshad for system disk.' ! MINICOPY required' ! MINICOPY optional ! NOMINICOPY; ! All SSMs on command line sent to HBVS~ WORD fcode_fill_14_bits ! COMMENT ADDED BY SDL - fcode_fill_14_bits contains bits fcode_fill_14 through & ! FILL_31_3 end group IO$R_HBS_CRESHAD_MODIFIERS case, group IO$R_HBS_XFER_MODIFIERS/ ! 8 Exclude Full copy members~ WORD fcode_fill_15_bits ! COMMENT ADDED BY SDL - fcode_fill_15_bits contains bits fcode_fill_15 through & ! FILL_32_0 end group IO$R_HBS_XFER_MODIFIERS case+ group IO$R_HBS_SCB_MODIFIERS# ! Write the SCB< ! Update HVBS on new location of the SCB~ WORD fcode_fill_54_bits ! COMMENT ADDED BY SDL - fcode_fill_54_bits contains bits fcode_fill_54 thro 9ugh & ! FILL_33_/ end group IO$R_HBS_SCB_MODIFIERS6 ! Function modifier bits for Set Preferred Path.  case+ group IO$R_PRFPATH_MODIFIERS> ! No modifiers set, passes in a preferred path (DUDRIVER)8 ! Make path change happen (DUDRIVER)F ! Set Fast Path CPU affinity of port (port driver), ! system assignable port~ WORD fcode_fill_10_bits ! COMMENT ADDED BY SDL - fcode :_fill_10_bits contains bits fcode_fill_10 through & ! FILL_34_/ end group IO$R_PRFPATH_MODIFIERS( ! DR driver function modifier bits. case& group IO$R_DR_MODIFIERS( ! Diagnostic command+ ! Move track descriptor) ! Diagnostic function) ! Skip sector inhibit~ WORD fcode_fill_16_bits ! COMMENT ADDED BY SDL - fcode_fill_16_bits contains bits fcode_fill ;_16 through & ! FILL_35_* end group IO$R_DR_MODIFIERS( ! DY driver function modifier bits. case& group IO$R_DY_MODIFIERS- ! Write deleted data mark~ BYTE fcode_fill_17_bits ! COMMENT ADDED BY SDL - fcode_fill_17_bits contains bits fcode_fill_17 through & ! FILL_36_* end group IO$R_DY_MODIFIERS/ ! DD driver (TU58) function modifier bits. case& group IO$R_DD_M <ODIFIERS8 ! Do not use MRSP for this operation~ BYTE fcode_fill_18_bits ! COMMENT ADDED BY SDL - fcode_fill_18_bits contains bits fcode_fill_18 through & ! FILL_37_* end group IO$R_DD_MODIFIERS= ! Magnetic tape I/O function modifier bits for the TS11. case( group IO$R_TS11_MODIFIERS& ! Swap byte (TS11)5 ! Opposite bit for rereads (TS11)~ WORD fcode_fil =l_19_bits ! COMMENT ADDED BY SDL - fcode_fill_19_bits contains bits fcode_fill_19 through & ! FILL_38_, end group IO$R_TS11_MODIFIERS' ! TU driver function modifier bits case& group IO$R_TU_MODIFIERS7 ! Clear serious exception condition~ WORD fcode_fill_20_bits ! COMMENT ADDED BY SDL - fcode_fill_20_bits contains bits fcode_fill_20 through & ! FILL_39_* end group IO$R_TU_MODIFIERSC ! > Tape class driver segmented and large transfer modifier bits case2 group IO$R_TU_LG_TRANSFER_MODIFIERS. ! Allow diagnostic buffers. ! To be continued modifier~ WORD fcode_fill_21_bits ! COMMENT ADDED BY SDL - fcode_fill_21_bits contains bits fcode_fill_21 through & ! FILL_40_6 end group IO$R_TU_LG_TRANSFER_MODIFIERS/ ! TUDRIVER SETMODE function modifier bits. case. ? group IO$R_TU_SETMODE_MODIFIERS* ! Enable media quality~ BYTE fcode_fill_22_bits ! COMMENT ADDED BY SDL - fcode_fill_22_bits contains bits fcode_fill_22 through & ! FILL_41_2 end group IO$R_TU_SETMODE_MODIFIERS ! reporting." ! ACP function modifier bits. case' group IO$R_ACP_MODIFIERS! ! Access file! ! Create file! ! Delete file" @ ! Mount volume% ! Dismount volume$ ! Remount volume! ! Move a file% ! Used for EXFUNC* ! Access shelved files- ! Set file as a directory ! Bit 19 used for TRUSTED WORD fcode_fill_23_bits ! COMMENT ADDED BY SDL - fcode_fill_23_bits contains bits fcode_fill_23 through SETDIR+ end group IO$R_ACP_MODIFIERS6 ! CR (card read Aer) driver function modifier bits. case& group IO$R_CR_MODIFIERS! ! Binary read! ! Packed read BYTE fcode_fill_24_bits ! COMMENT ADDED BY SDL - fcode_fill_24_bits contains bits fcode_fill_24 through PACKED* end group IO$R_CR_MODIFIERS2 ! MB (mailbox) driver function modifier bits.G ! The following modifers are for the QIO READ, WRITE and SENSEMODE ! functions. case& B group IO$R_MB_MODIFIERS8 ! Do not wait for operation completeE ! Perform stream mode operation (vs. record mode)V ! Perform operation if no read channel is assigned to the mailbox.W ! Perform operation if no write channel is assigned to the mailbox.1 ! Do not allow resource waits ! Bit 13 used for EXFUNC ! Bit 19 used for TRUSTED~ WORD fcode_fill_25_bits C ! COMMENT ADDED BY SDL - fcode_fill_25_bits contains bits fcode_fill_25 through & ! FILL_42_* end group IO$R_MB_MODIFIERS7 ! More MB (mailbox) driver function modifier bits.. ! Mailbox QIO SETMODE function modifiers. case. group IO$R_MB_SETMODE_MODIFIERSO ! Notify when some (any) space in the mailbox is available.3 ! Request ast on waiting reader3 ! Request ast on waiting writer+ D ! Set volume protectionL ! Wait for a read channel to be assigned to the mailbox.M ! Wait for a write channel to be assigned to the mailbox.~ WORD fcode_fill_26_bits ! COMMENT ADDED BY SDL - fcode_fill_26_bits contains bits fcode_fill_26 through & ! FILL_43_2 end group IO$R_MB_SETMODE_MODIFIERS- ! TT driver READ function modifier bits. case+ group IO$R_TT_READ_MODIFIER ES ! Noecho ! Timed( ! Convert lower case ! No filter% ! Disable mailbox% ! Purge typeahead0 ! Terminators are not echoed0 ! Control-R interrupted read7 ! Terminate read on escape sequence5 ! Used by alternate class drivers WORD fcode_fill_27_bits ! COMMENT ADDED BY SDL - fco Fde_fill_27_bits contains bits fcode_fill_27 through EXTEND/ end group IO$R_TT_READ_MODIFIERS. ! TT driver WRITE function modifier bits. case, group IO$R_TT_WRITE_MODIFIERS& ! Cancel control O$ ! Enable mailbox* ! Do not format output# ! Broadcast I/O& ! Output a newline~ WORD fcode_fill_28_bits ! COMMENT ADDED BY SDL - fcode_fill_28_b Gits contains bits fcode_fill_28 through & ! FILL_44_0 end group IO$R_TT_WRITE_MODIFIERS2 ! TT driver SENSEMODE function modifier bits. case0 group IO$R_TT_SENSEMODE_MODIFIERS1 ! Sense typeahead information~ BYTE fcode_fill_29_bits ! COMMENT ADDED BY SDL - fcode_fill_29_bits contains bits fcode_fill_29 through & ! reserve_rd_modem4 end group IO$R_TT_SENSEMODE_MODIFIERS3 ! TT driver SETMO HDE subfunction modifier bits. case. group IO$R_TT_SETMODE_MODIFIERS0 ! Enable maint sub modifiers' ! Set control Y AST# ! Set Control C/ ! Set mode and hang up line) ! Set out of band AST2 ! Connect to detached terminal2 ! Disconnect detached terminal0 ! Define controlling process+ ! Define b Iroadcast mask~ WORD fcode_fill_30_bits ! COMMENT ADDED BY SDL - fcode_fill_30_bits contains bits fcode_fill_30 through & ! FILL_45_2 end group IO$R_TT_SETMODE_MODIFIERS9 ! TT driver MAINTIANCE subfunction submodifier bits. case, group IO$R_TT_MAINT_MODIFIERS) ! Diagnostic loopback/ ! Diagnostic reset loopback" ! Disable line. ! Diagnostic modem con Jtrol! ! Enable line2 ! Diagnostic external loopback& ! Enable auto XOFF' ! Disable auto XOFF~ WORD fcode_fill_31_bits ! COMMENT ADDED BY SDL - fcode_fill_31_bits contains bits fcode_fill_31 through & ! reserve_int_disable0 end group IO$R_TT_MAINT_MODIFIERS+ ! TT driver out-of-band modifier bits. case0 group IO$R_TT_OUTOFBAND_MODIFIERS1 K ! Include character in stream' ! Abort current I/O~ WORD fcode_fill_32_bits ! COMMENT ADDED BY SDL - fcode_fill_32_bits contains bits fcode_fill_32 through & ! FILL_46_4 end group IO$R_TT_OUTOFBAND_MODIFIERS? ! Posix terminal driver SETMODE subfunction modifier bits. case1 group IO$R_TT_PSXSETMODE_MODIFIERS8 ! Enable initialization subfunctions6 ! Enable flow co Lntrol subfunctions~ BYTE fcode_fill_33_bits ! COMMENT ADDED BY SDL - fcode_fill_33_bits contains bits fcode_fill_33 through & ! POSIXFLOW5 end group IO$R_TT_PSXSETMODE_MODIFIERS? ! Posix terminal driver INIT subfunction submodifier bits. case0 group IO$R_TT_POSIXINIT_MODIFIERS4 ! Set TT3$M_POSIX and set up PTC9 ! Clear TT3$M_POSIX (opt. delete PTC)$ ! Set up termios' M ! Set up all of PTC ! clear PTC, ! flush typeahead buffer. ! flush outstanding writes ! update PTC~ WORD fcode_fill_34_bits ! COMMENT ADDED BY SDL - fcode_fill_34_bits contains bits fcode_fill_34 through & ! FILL_47_4 end group IO$R_TT_POSIXINIT_MODIFIERS? ! Posix terminal driver FLOW subfunction submodifier bits. case0 group IO$ NR_TT_POSIXFLOW_MODIFIERS* ! Simulate output XOFF) ! Simulate output XON) ! Simulate input XOFF( ! Simulate input XON~ WORD fcode_fill_35_bits ! COMMENT ADDED BY SDL - fcode_fill_35_bits contains bits fcode_fill_35 through & ! FILL_48_4 end group IO$R_TT_POSIXFLOW_MODIFIERS9 ! Posix terminal driver READ function modifier bits. case. group IO$R_TT_PSX OREAD_MODIFIERS ! Nonblock~ BYTE fcode_fill_36_bits ! COMMENT ADDED BY SDL - fcode_fill_36_bits contains bits fcode_fill_36 through & ! FILL_49_2 end group IO$R_TT_PSXREAD_MODIFIERS= ! Network WRITE and READ VIRTUAL function modifier bits. case2 group IO$R_NET_WRITE_READ_MODIFIERS' ! Interrupt message2 ! Multiple write/read request ( ! Direct I/O req Puest2 ! Segment message w/o blocking ! Bit 13 used for EXFUNC ! Bit 19 used for TRUSTED~ WORD fcode_fill_37_bits ! COMMENT ADDED BY SDL - fcode_fill_37_bits contains bits fcode_fill_37 through & ! FILL_50_6 end group IO$R_NET_WRITE_READ_MODIFIERS6 ! Network ACCESS/DEACCESS function modifier bits. case. group IO$R_NET_ACCDEA_MODIFIERS5 ! Disconnect abort/connect reject, Q ! Synchronous disconnect~ WORD fcode_fill_38_bits ! COMMENT ADDED BY SDL - fcode_fill_38_bits contains bits fcode_fill_38 through & ! FILL_51_2 end group IO$R_NET_ACCDEA_MODIFIERS7 ! DATALINK driver WRITE subfunction modifier bits. case/ group IO$R_DLINK_WRITE_MODIFIERS8 ! Transmit this packet as a response~ BYTE fcode_fill_39_bits ! COMMENT ADDED BY SDL - fcode_fill_39_bits co Rntains bits fcode_fill_39 through & ! FILL_52_3 end group IO$R_DLINK_WRITE_MODIFIERS: ! DATALINK driver SETMODE subfunction modifier bits.  case1 group IO$R_DLINK_SETMODE_MODIFIERS$ ! Start protocol# ! Stop protocol# ! Attention AST; ! Controller (ie. not station) function( ! Set MAC parameters) ! Functional Addr Map( S ! Source Routing Ops~ WORD fcode_fill_40_bits ! COMMENT ADDED BY SDL - fcode_fill_40_bits contains bits fcode_fill_40 through & ! FILL_53_5 end group IO$R_DLINK_SETMODE_MODIFIERS; ! DATALINK driver SENSEMODE subfunction modifier bits. case3 group IO$R_DLINK_SENSEMODE_MODIFIERS( ! Read device memory' ! Read modem status# ! Read counters$ T ! Clear counters* ! Sense MAC parameters) ! Functional Addr Map( ! Source Routing Ops~ WORD fcode_fill_41_bits ! COMMENT ADDED BY SDL - fcode_fill_41_bits contains bits fcode_fill_41 through & ! FILL_54_7 end group IO$R_DLINK_SENSEMODE_MODIFIERS case- group IO$R_X25_WRITE_MODIFIERS/ ! More data follows (M-bit)7 ! Use qualified sub- Uchannel (Q-bit)~ BYTE fcode_fill_42_bits ! COMMENT ADDED BY SDL - fcode_fill_42_bits contains bits fcode_fill_42 through & ! QUALIFIED1 end group IO$R_X25_WRITE_MODIFIERS0 ! X25 driver ACCESS function modifier bits. case. group IO$R_X25_ACCESS_MODIFIERS+ ! Redirect virtual call) ! Accept virtual call BYTE fcode_fill_43_bits ! COMMENT ADDED BY SDL - fcode_fill_43_bits Vcontains bits fcode_fill_43 through ACCEPT2 end group IO$R_X25_ACCESS_MODIFIERS- ! LPA-11 driver STARTDATA modifier bits. case- group IO$R_LPA_START_MODIFIERS$ ! Set event flag~ BYTE fcode_fill_44_bits ! COMMENT ADDED BY SDL - fcode_fill_44_bits contains bits fcode_fill_44 through & ! FILL_55_1 end group IO$R_LPA_START_MODIFIERS1 ! XA (DR11-W) driver function modifier bits. Wcase& group IO$R_XA_MODIFIERSA ! Word (interrupt)/block (DMA) mode specifier ! IO$M_TIMED3 ! IO$M_ATTNAST, IO$M_DIAGNOSTIC3 ! Set "FNCT" bits in device CSR; ! Change UBA datapath (direct/buffered)< ! IO$M_INHERLOG (former def'n for RESET)3 ! Set "cycle" bit in device CSR, ! Device reset specifier~ WORD fco Xde_fill_45_bits ! COMMENT ADDED BY SDL - fcode_fill_45_bits contains bits fcode_fill_45 through & ! FILL_56_* end group IO$R_XA_MODIFIERS* ! 3271 driver function modifier bits. case+ group IO$R_IBM3271_MODIFIERS* ! Set a new CU address3 ! Set a new maximum buffer size) ! Set a new pool size- ! Set a new ENQ threshold* ! Zero status counters3 Y ! Loopback is external loopback; ! Loopback is internal loopback (DUP11)( ! Read CSRs on DUP11~ WORD fcode_fill_46_bits ! COMMENT ADDED BY SDL - fcode_fill_46_bits contains bits fcode_fill_46 through & ! READCSR/ end group IO$R_IBM3271_MODIFIERS( ! XW driver function modifier bits. case& group IO$R_XW_MODIFIERS* ! Diagnostic function * Z ! Diagnostic function 1 ! Do not wait for DSR (diag) * ! Internal maint loop , ! Last block of message % ! Internal clock ~ WORD fcode_fill_47_bits ! COMMENT ADDED BY SDL - fcode_fill_47_bits contains bits fcode_fill_47 through & ! FILL_57_* end group IO$R_XW_MODIFIERS) ! LAT driver function modifier bits. case& group IO$R_LT_MODIFIERS= [ ! Solicit connection to remote LAT device, ! Disconnect LAT session* ! Read LAT device info* ! Map application port( ! Set service rating* ! Request solicit info+ ! Setup to recive reply+ ! SETMODE on LTA device- ! SENSEMODE on LTA device& ! Queue change AST~ WORD fcode_fill_48_bits ! COMMEN \T ADDED BY SDL - fcode_fill_48_bits contains bits fcode_fill_48 through & ! LT_QUE_CHG_NOTIF* end group IO$R_LT_MODIFIERS- ! LAT item list definitions for MAP_PORT case$ group IO$R_LT_MAPITEM% ! Item 0 not used& ! Server node name& ! Server port name) ! Server service name ! Link name* ! Server Ethernet Add.~ ]BYTE LT_MAP_FILLER_bits ! COMMENT ADDED BY SDL - LT_MAP_FILLER_bits contains bits LT_MAP_FILLER through & ! FILL_58_( end group IO$R_LT_MAPITEM. ! FSDRIVER function modifiers for Dollar. case& group IO$R_FS_MODIFIERS" ! Flush writes2 ! Barrier writes to this point~ BYTE fcode_fill_49_bits ! COMMENT ADDED BY SDL - fcode_fill_49_bits contains bits fcode_fill_49 through & ! WRITE_BARRIER* ^ end group IO$R_FS_MODIFIERS. ! MKDRIVER function modifiers for SETMODE case. group IO$R_MK_SETMODE_MODIFIERSJ ! Filler to not coincide with TU modifier (for safety)3 ! Disable all skip by filemarksD ! Enable skip by filemarks with i/o fcn modifierG ! Default all IO$_SKIPFILE to use skip by filemarks~ WORD fcode_fill_50_bits ! COMMENT ADDED BY SDL - fcode __fill_50_bits contains bits fcode_fill_50 through & ! FILL_59_2 end group IO$R_MK_SETMODE_MODIFIERS@ ! Snapshot-capable disk (SD) driver function modifier bits. case& group IO$R_SD_MODIFIERS2 ! Add UNIT to an existing pool~ BYTE fcode_fill_51_bits ! COMMENT ADDED BY SDL - fcode_fill_51_bits contains bits fcode_fill_51 through & ! FILL_60_* end group IO$R_SD_MODIFIERS ! USB usbattr modif `iers case/ group IO$R_USB_USBATTR_MODIFIERSA ! Request for printer's 1284 device ID stringH ! Request for printer's serial number (if supported)~ BYTE fcode_fill_52_bits ! COMMENT ADDED BY SDL - fcode_fill_52_bits contains bits fcode_fill_52 through & ! SERIALNUM3 end group IO$R_USB_USBATTR_MODIFIERS' ! Disk-specific PACKACK modifiers  case0 group IO$R_DISK_PAC KACK_MODIFIERSQ ! Filler to coincide with MSCP_FORMAT modifier for DU PACKACKU ! Send PACKACK to driver even if UCB$M_VALID is set (LCLDSKVALID)| BYTE disk_packack_fcode_fill_bits ! COMMENT ADDED BY SDL - disk_packack_fcode_fill_bits contains bits &3 ! disk_packack_fcode_fill through BYPASS_VALID_CHK4 end group IO$R_DISK_PACKACK_MODIFIERS end variant end record IODEF  wwbλ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED c( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINdG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > e %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! Define I/O Status Area ! -A DECLARE LONG CONSTANT IOSA$K_LENGTH = 32 ! Length of IOSAA DECLARE LONG CONSTANT IOSA$C_LENGTH = 32 ! Length of IOSA@ DECLARE LONG CONSTANT fIOSA$S_IOSADEF = 32 ! Size of IOSA, DECLARE LONG CONSTANT IOSA$S_IOSA = 32 record IOSA" group IOSA$R_IOSB_OVERLAY variant case# group IOSA$R_IOSBA WORD IOSA$W_IOSB_STATUS ! Final I/O status+ group IOSA$R_DEVDEPEND variant caseM group IOSA$R_BCNT_16 ! 16-bit byte count variantI g WORD IOSA$W_IOSB_BCNT ! 16-bit byte count, group IOSA$r_l( variant% case` LONG IOSA$L_IOSB_DEV_DEPEND ! 32-bit device dependent info% caseG LONG IOSA$L_IOSB_PID ! 32-bit pid, end variant0 end group IOSA$r_l3 h end group IOSA$R_BCNT_16 caseM group IOSA$R_BCNT_32 ! 32-bit byte count variantU LONG IOSA$L_IOSB_BCNT ! 32-bit byte count (unaligned)_ WORD IOSA$W_IOSB_DEV_DEPEND_HIGH ! 16-bit device dependent info3 end group IOSA$R_BCNT_32# end variant/ end group IOSA$R_DEVDEPEND' end group IOSA$Ri_IOSB case& group IOSA$R_STATUSQ5 LONG IOSA$L_STATUS ! Status@ LONG IOSA$L_RESD ! Reserved (driver)* end group IOSA$R_STATUSQ end variant& end group IOSA$R_IOSB_OVERLAY group IOSA$R_BYTECOUNT variant case> BASIC$QUADWORD IOSA$Q_COUNT_Q ! Force size caseB BASIC$QUADWORD IOSA$IH j_COUNT ! Number of bytes end variant# end group IOSA$R_BYTECOUNT group IOSA$R_CTX variant case@ BASIC$QUADWORD IOSA$Q_CONTEXT_Q ! Force size caseH BASIC$QUADWORD IOSA$PH_CONTEXT_P ! User context area caseF BASIC$QUADWORD IOSA$IH_CONTEXT ! User context area case_ BASIC$QUADWORD IOSA$PH_UPDSEC_NOWRT_VA ! Fir kst VA not written by $UPDSEC_64 end variant end group IOSA$R_CTXC group IOSA$R_RESERVED ! Just in case we need variant caseE LONG IOSA$L_RESL ( 1 to 2 ) ! in the future some caseB BASIC$QUADWORD IOSA$Q_RESQ ! additional space caseF BASIC$QUADWORD IOSA$Q_CONTEXT_ID ! User context ID end variant" end groupl IOSA$R_RESERVED end record IOSA  ! + ! $IO_SETUP flag bits ! -8 DECLARE LONG CONSTANT FIO$M_EXPEDITE = x'00000001'; DECLARE LONG CONSTANT FIO$M_AST_NOFLOAT = x'00000002'3 DECLARE LONG CONSTANT FIO$M_CTX = x'00000004'1 DECLARE LONG CONSTANT FIO$S_SETUP_FLAGS = 4 record SETUP_FLAGS variant case( LONG FIO$L_FLAGS_LONGWORD case$ group FIO$R_FLAG_BITS3 ! Ma ke this a high-priority I/O< ! The AST routine does not use f.p. regs@ ! Completion notification done via EFN$C_CTXu BYTE EXPEDITE_bits ! COMMENT ADDED BY SDL - EXPEDITE_bits contains bits EXPEDITE through FILL_61_( end group FIO$R_FLAG_BITS end variant end record SETUP_FLAGS  wwn ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED o( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINpG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > q %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! Define I/O Status Block ! -+ DECLARE LONG CONSTANT IOSB$S_IOSB = 8 record IOSB group IOSB$R_IO_GET variant case$ group rIOSB$R_IO_64? WORD IOSB$W_STATUS ! Final I/O status+ group IOSB$R_DEVDEPEND variant caseM group IOSB$R_BCNT_16 ! 16-bit byte count variantD WORD IOSB$W_BCNT ! 16-bit byte count, group IOSB$r_l( variant% case[ LO sNG IOSB$L_DEV_DEPEND ! 32-bit device dependent info% caseB LONG IOSB$L_PID ! 32-bit pid, end variant0 end group IOSB$r_l3 end group IOSB$R_BCNT_16 caseM group IOSB$R_BCNT_32 ! 32-bit byte count variantP LONG IOSB$L_BCNT ! 32-bit byte count (unaligned)Z t WORD IOSB$W_DEV_DEPEND_HIGH ! 16-bit device dependent info3 end group IOSB$R_BCNT_32# end variant/ end group IOSB$R_DEVDEPEND( end group IOSB$R_IO_64 case% group IOSB$R_GET_64* group IOSB$r_l_status variant caseL LONG IOSB$L_GETXXI_STATUS ! Fin ual GETxxI status caseL LONG IOSB$L_REG_STATUS ! Final $Registry status# end variant. end group IOSB$r_l_status= LONG IOSB$L_RESERVED ! Reserved field) end group IOSB$R_GET_64 end variant end group IOSB$R_IO_GET end record IOSB @ DECLARE LONG CONSTANT IOSB$K_LENGTH = 8 ! Length of IOSB@ DECLARE LONG CONSTANT IOSB$C_LENGTH = 8 ! Length of IOSB wwwn ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED x( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINyG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > z %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +? ! $PERSONA_CREATE, $PERSONA_CREATE_INT itemlist item codesH ! These item codes must match the TLV item codes in [LIB]PSBDEF.SDL !  ! - ! +P ! At the time of this modules cre {ation there are four CHP$ item codes whichP ! 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 ! K ! This is to preserve backward comptibility with $CREATE_USER_PROFILE. ! -? DECLARE LONG CONSTANT ISS$_FLAGS = 1 ! 1 Persona flags; DECLARE LONG CONST|ANT ISS$_ARBFLAGS = 2 ! 2 UnusedG DECLARE LONG CONSTANT ISS$_WORKPRIV = 3 ! 3 Working privileges= DECLARE LONG CONSTANT ISS$_MODE = 4 ! 4 Access modeL DECLARE LONG CONSTANT ISS$_WORKCLASS = 5 ! 5 Working classification9 DECLARE LONG CONSTANT ISS$_RIGHTS = 6 ! 6 RightsH DECLARE LONG CONSTANT ISS$_ADD_RIGHTS = 7 ! 7 Add to the RightsP DECLARE LONG CONSTANT ISS$_ADD_AUTHRIGHTS = 8 ! 8 Add to the AuthRights= DECLARE LONG CONSTANT ISS$_USE}RNAME = 9 ! 9 Username< DECLARE LONG CONSTANT ISS$_ACCOUNT = 10 ! 10 AccountE DECLARE LONG CONSTANT ISS$_NOAUDIT = 11 ! 11 No Audit settingK DECLARE LONG CONSTANT ISS$_AUTHPRIV = 12 ! 12 Authorized privilegesJ DECLARE LONG CONSTANT ISS$_PERMPRIV = 13 ! 13 Permanent privilegesT DECLARE LONG CONSTANT ISS$_IMAGE_WORKPRIV = 14 ! 14 Image working privilegesH DECLARE LONG CONSTANT ISS$_ENABLED = 15 ! 15 Rights enabled maskI DECLARE LONG CONSTANT IS~S$_AUTHRIGHTS = 16 ! 16 Authorized rightsL DECLARE LONG CONSTANT ISS$_MINCLASS = 17 ! 17 Minimum classificationL DECLARE LONG CONSTANT ISS$_MAXCLASS = 18 ! 18 Maximum classification5 DECLARE LONG CONSTANT ISS$_UID = 19 ! 19 UIDB DECLARE LONG CONSTANT ISS$_PERSONA_ID = 20 ! 20 Persona IDE DECLARE LONG CONSTANT ISS$_PRINCIPAL = 21 ! 21 Principal Name5 DECLARE LONG CONSTANT ISS$_UIC = 22 ! 22 UICX DECLARE LONG CONSTANT ISS$_SWITCH_EXTENSION = 23 ! 23 Switch Extension directiveT DECLARE LONG CONSTANT ISS$_PRIMARY_EXTENSION = 24 ! 24 PSB Primary ExtensionV DECLARE LONG CONSTANT ISS$_EXTENSION_COUNT = 25 ! 25 Count of valid extensionsY DECLARE LONG CONSTANT ISS$_EXTENSION_ARRAY = 26 ! 26 Array of valid extension IDsW DECLARE LONG CONSTANT ISS$_RIGHTS_INDEX = 27 ! 27 Rights Chain Index - sets the% ! chain for all rights list  ! operations. W DECLARE LONG CONSTANT ISS$_INPUT_DATA = 28 ! 28 Generic buffer for IN/OUT queryD DECLARE LONG CONSTANT ISS$_POSIX_UID = 29 ! 29 POSIX User IDE DECLARE LONG CONSTANT ISS$_POSIX_GID = 30 ! 30 POSIX Group ID2 DECLARE LONG CONSTANT ISS$_MIN_ITEM_CODE = 13 DECLARE LONG CONSTANT ISS$_MAX_ITEM_CODE = 30 ! +' ! Bits within item code ISS$_FLAGS ! -> DECLARE LONG CONSTANT ISS$M_FLAG_PERMANENT = x'00000001'= DECLARE LONG CONSTANT ISS$M_FLAG_SECAUDIT = x'00000002'1 DECLARE LONG CONSTANT ISS$S_ISSFLAGSDEF = 4 record ISSFLAGSDEF variant case( group ISS$R_ISSFLAGS_BITS LONG FLAG_PERMANENT_bits ! COMMENT ADDED BY SDL - FLAG_PERMANENT_bits contains bits FLAG_PERMANENT through & ! FILL_0, end group ISS$R_ISSFLAGS_BITS end variant end record ISSFLAGSDEF ? ! Codes that represent common attributes that are normally( ! present in all persona extensions> DECLARE LONG  CONSTANT ISS$_COMMON_FLAGS = 1024 ! FlagsD DECLARE LONG CONSTANT ISS$_COMMON_USERNAME = 1025 ! UsernameB DECLARE LONG CONSTANT ISS$_COMMON_ACCOUNT = 1026 ! Account9 DECLARE LONG CONSTANT ISS$_DOMAIN = 1027 ! DomainF DECLARE LONG CONSTANT ISS$_COMMON_PRINCIPAL = 1028 ! principal+ DECLARE LONG CONSTANT ISS$_DOI = 1029D DECLARE LONG CONSTANT ISS$_EXTENSION = 1030 ! Extension nameE DECLARE LONG CONSTANT ISS$_MAKE_TLV = 1031 ! For NSA$MAKE_TLV<  DECLARE LONG CONSTANT ISS$_MIN_COMMON_ITEM_CODE = 1024< DECLARE LONG CONSTANT ISS$_MAX_COMMON_ITEM_CODE = 1031J ! Codes that represent attributes specific to each persona extension.0 ! These codes are shared by all extensions.& ! NT Persona extension item codes: DECLARE LONG CONSTANT ISS$_NT_TOKEN = 8192 ! tokenP DECLARE LONG CONSTANT ISS$_NT_SECURITY_SUBJECT = 8193 ! securtiy context0 DECLARE LONG CONSTANT ISS$_NT_FLAGS = 81948 DECLARE LONG CONSTAN T ISS$_NT_USER_REFCOUNT = 81954 DECLARE LONG CONSTANT ISS$_NT_PRINCIPAL = 8196Z DECLARE LONG CONSTANT ISS$_NT_CREDENTIALS = 8197 ! access token + security context> DECLARE LONG CONSTANT ISS$_NT_NT_OWF_PASSWORD = 8198 ! > DECLARE LONG CONSTANT ISS$_NT_LM_OWF_PASSWORD = 8199 ! ; DECLARE LONG CONSTANT ISS$_NT_UNPACK_CRED_SIZE = 82008 DECLARE LONG CONSTANT ISS$_NT_TOKEN_TOKENID = 8201A DECLARE LONG CONSTANT ISS$_NT_TOKEN_IMPERSONATELEVEL = 8202A DECLARE LONG CONSTANT ISS$_NT_TOKEN_AUTHENTICATIONID = 8203B DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERANDGROUPCOUNT = 8204? DECLARE LONG CONSTANT ISS$_NT_TOKEN_VARIABLELENGTH = 8205> DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERANDGROUPS = 8206B DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERANDGROUPS_SID = 8207= DECLARE LONG CONSTANT ISS$_NT_TOKEN_PRIMARYGROUP = 8208; DECLARE LONG CONSTANT ISS$_NT_TOKEN_PRIVILEGES = 8209< DECLARE LONG CONSTANT ISS$_NT_TOKEN_DEFAULTDACL = 82 108 DECLARE LONG CONSTANT ISS$_NT_TOKEN_UNIXUID = 82118 DECLARE LONG CONSTANT ISS$_NT_TOKEN_UNIXGID = 82128 DECLARE LONG CONSTANT ISS$_NT_TOKEN_GIDINFO = 8213= DECLARE LONG CONSTANT ISS$_NT_TOKEN_GIDINFO_GIDS = 82149 DECLARE LONG CONSTANT ISS$_NT_TOKEN_UNIXNAME = 8215; DECLARE LONG CONSTANT ISS$_NT_TOKEN_DOMAINNAME = 82169 DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERNAME = 8217? DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERSESSIONKEY = 8218= DECLARE LO NG CONSTANT ISS$_NT_TOKEN_LMSESSIONKEY = 8219= DECLARE LONG CONSTANT ISS$_NT_TOKEN_VARIABLEPART = 8220; DECLARE LONG CONSTANT ISS$_NT_TOKEN_GROUP_LIST = 8221@ DECLARE LONG CONSTANT ISS$_NT_TOKEN_PRIVILEGES_LIST = 8222= DECLARE LONG CONSTANT ISS$_NT_SECURITY_SIGNATURE = 8223: DECLARE LONG CONSTANT ISS$_NT_SECURITY_SMBUID = 8224B DECLARE LONG CONSTANT ISS$_NT_SECURITY_PROCESSAUDITID = 8225= DECLARE LONG CONSTANT ISS$_NT_SECURITY_PROCESSID = 8226; DECL ARE LONG CONSTANT ISS$_NT_SECURITY_LOGONID = 8227= DECLARE LONG CONSTANT ISS$_NT_SECURITY_LOGONTYPE = 8228@ DECLARE LONG CONSTANT ISS$_NT_SECURITY_SUBJECTFLAGS = 8229A DECLARE LONG CONSTANT ISS$_NT_SECURITY_CONTEXT_OTHER = 82308 DECLARE LONG CONSTANT ISS$_MIN_NT_ITEM_CODE = 81928 DECLARE LONG CONSTANT ISS$_MAX_NT_ITEM_CODE = 8230 ! +) ! Bits within item code ISS$_ENABLED ! -? DECLARE LONG CONSTANT ISS$M_ENABLED_PERSONA = x'00000001'A DECL ARE LONG CONSTANT ISS$M_ENABLED_SUBSYSTEM = x'00000002'= DECLARE LONG CONSTANT ISS$M_ENABLED_IMAGE = x'00000004'> DECLARE LONG CONSTANT ISS$M_ENABLED_SYSTEM = x'00000008'A DECLARE LONG CONSTANT ISS$M_ENABLED_TEMPORARY = x'00000010'3 DECLARE LONG CONSTANT ISS$S_ISSENABLEDDEF = 4 record ISSENABLEDDEF variant case* group ISS$R_ISSENABLED_BITS LONG ENABLED_PERSONA_bits ! COMMENT ADDED BY SDL - ENABLED_PERSONA_bit s contains bits ENABLED_PERSONA through & ! FILL_0. end group ISS$R_ISSENABLED_BITS end variant end record ISSENABLEDDEF  ! ARB_SUPPORT constants6 DECLARE LONG CONSTANT ISS$C_ARB_UNSPECIFIED = -1. DECLARE LONG CONSTANT ISS$C_ARB_NONE = 0/ DECLARE LONG CONSTANT ISS$C_ARB_CLEAR = 13 DECLARE LONG CONSTANT ISS$C_ARB_READ_ONLY = 2. DECLARE LONG CONSTANT ISS$C_ARB_FULL = 3Z DECLARE LONG CONSTANT ISS$C_ARB_FORCE = 4 ! Igno re multiple usermode persona check2 DECLARE LONG CONSTANT ISS$C_ARB_MAX_CODE = 42 DECLARE LONG CONSTANT ISS$C_ARB_MIN_CODE = 0 ! Reserved Persona Ids0 DECLARE LONG CONSTANT ISS$C_ID_NATURAL = 14 DECLARE LONG CONSTANT ISS$C_ID_POSIX_REAL = -27 DECLARE LONG CONSTANT ISS$C_ID_IMAGE_PERSONA = -2 ! +% ! Persona services control flags ! -9 DECLARE LONG CONSTANT ISS$M_IMP_FLAGS = x'0000007F'B DECLARE LONG CONSTANT ISS$M_ASSUME_NODEREF_OLD = x'00010000'@ DECLARE LONG CONSTANT ISS$M_ASSUME_NOREF_NEW = x'00020000'> DECLARE LONG CONSTANT ISS$M_CREATE_DEFPRIV = x'00000008'? DECLARE LONG CONSTANT ISS$M_CREATE_DEFCLASS = x'00000010'? DECLARE LONG CONSTANT ISS$M_CREATE_AUTHPRIV = x'00000020'8 DECLARE LONG CONSTANT ISS$M_NOACCESS = x'00100000'0 DECLARE LONG CONSTANT ISS$S_ISSSRVCFLG = 4 record ISSSRVCFLG variant !  ! Common flags !  case' group I SS$R_COMMON_FLAGS2 ! Previously defined IMP flags{ LONG IMP_FLAGS_bits ! COMMENT ADDED BY SDL - IMP_FLAGS_bits contains bits IMP_FLAGS through COMMON_RSVD+ end group ISS$R_COMMON_FLAGS ! # ! ASSUME service control flags !  case' group ISS$R_ASSUME_FLAGS- ! Start past common flags0 ! Do not drop a reference to# ! the old (pre-ASSUME) persona/  ! Do not add a reference to$ ! the new (post-ASSUME) persona. ! Reserved for the future.. ! Reserved for the future.~ LONG ASSUME_COMMON_bits ! COMMENT ADDED BY SDL - ASSUME_COMMON_bits contains bits ASSUME_COMMON through & ! ASSUME_FILL+ end group ISS$R_ASSUME_FLAGS ! # ! CREATE service control flags !  case' group ISS$R_CREATE_FLAGS/ ! Create p sb w/ def. privs./ ! Create psb w/ def. class.0 ! Create psb w/ auth. privs.- ! Start past common flags ! and the assume flags.- ! When set, do not access ! the SYSUAF or RIGHTSLIST. ! This is similar to ! CREATE_USER_PROFILE.. ! Reserved for the future.. ! Reserved for the future.v LONG CREATE_COMMON_RSVD_0_bits ! COMMENT ADDED B Y SDL - CREATE_COMMON_RSVD_0_bits contains bits &+ ! CREATE_COMMON_RSVD_0 through CREATE_FILL+ end group ISS$R_CREATE_FLAGS end variant end record ISSSRVCFLG  ! NT TLV version number 2 DECLARE LONG CONSTANT ISS$K_NT_VERSION_1 = 1 ww޽ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! > ! Get Job Process Information Data Identifier Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item listK ! (pre ceeding the ENDlistname item) so that users will not have ! to relink. ! -# ! Scheduler policy definitionsU DECLARE LONG CONSTANT JPI$K_DEFAULT_POLICY = 0 ! Native VMS scheduling policyK DECLARE LONG CONSTANT JPI$K_PSX_FIFO_POLICY = 1 ! POSIX fifo policyQ DECLARE LONG CONSTANT JPI$K_PSX_RR_POLICY = 2 ! POSIX round-robbin policya DECLARE LONG CONSTANT JPI$K_ALL_THREADS = X"80000000"L ! policy affectsall kernel threads ! DEFINE TABLE NU MBERS & ! STRUCTURE CODES MUST START AT 1J DECLARE LONG CONSTANT JPI$C_ADRTYPE = 1 ! ITEM IS ADDRESS OF DATA L DECLARE LONG CONSTANT JPI$C_CTLTYPE = 2 ! ITEM IS IN CONTROL REGION > DECLARE LONG CONSTANT JPI$C_PCBTYPE = 3 ! ITEM IN PCB > DECLARE LONG CONSTANT JPI$C_PHDTYPE = 4 ! ITEM IN PHD F DECLARE LONG CONSTANT JPI$C_PCBFLDTYPE = 5 ! ITEM IS BIT FIELDF DECLARE LONG CONSTANT JPI$C_PHDFLDTYPE = 6 ! ITEM IS BIT FIELDG DECLARE LONG CONSTANT JPI$C_JIBTYPE = 7 ! ITEM IN JIB (SUBTYPE): ! NOTE: The PSB replaces the ARB within this context?G DECLARE LONG CONSTANT JPI$C_PSBTYPE = 8 ! ITEM IN PSB (SUBTYPE)G DECLARE LONG CONSTANT JPI$C_KTBTYPE = 9 ! ITEM IN KTB (SUBTYPE)D DECLARE LONG CONSTANT JPI$C_MAXSTRUC = 6 ! TOTAL OF 6 TABLESK DECLARE LONG CONSTANT JPI$C_LISTEND = 0 ! DEFINE ITMLST TERMINATOR ? DECLARE LONG CONSTANT JPI$_CHAIN = -1 ! CHAIN INDICATORT DECLARE LONG CONSTANT JPI$_GETJPI_CO NTROL_FLAGS = -2 ! SPECIAL CONTROL ITEMS@ DECLARE LONG CONSTANT JPI$M_NO_TARGET_INSWAP = x'00000001'= DECLARE LONG CONSTANT JPI$M_NO_TARGET_AST = x'00000002'D DECLARE LONG CONSTANT JPI$M_IGNORE_TARGET_STATUS = x'00000004'6 DECLARE LONG CONSTANT JPI$M_THREAD = x'00000008'? DECLARE LONG CONSTANT JPI$M_NATURAL_PERSONA = x'00000010'5 DECLARE LONG CONSTANT JPI$M_FILL1 = x'00007FE0'? DECLARE LONG CONSTANT JPI$M_NEED_THREAD_CAP = x'00008000'/ DECLARE LONG  CONSTANT JPI$S_JPICTLDEF = 4 record JPICTLDEF group JPI$R_FILL_62_ variant caseA LONG JPI$L_JPICTLFLGS ! Control item flags case& group JPI$R_FILL_63_^ ! Do not inswap the target process, (do deliver ASTs if it is resident)2 ! Do not send AST to target1 ! Don't check target stateY ! Return information about each thread for multithreaded processes[ ! Select natural persona when processing security profile item codesC ! Filler so NEED_THREAD_CAP bit is in bit 15m ! NOTE: This bit is used internally by $GETJPI in cluster environments. It is not specified by the user.\ ! Indicates that target node in a cluster needs to know about kernel  ! threads WORD NO_TARGET_INSWAP_bits ! COMMENT ADDED BY S DL - NO_TARGET_INSWAP_bits contains bits NO_TARGET_INSWAP & ! through NEED_THREAD_CAP* end group JPI$R_FILL_63_ end variant! end group JPI$R_FILL_62_ end record JPICTLDEF B ! NOTE: the following constants must match values in $JIBDEF?@ DECLARE LONG CONSTANT JPI$K_OTHER = 0 ! JPI$_Mode valuesB DECLARE LONG CONSTANT JPI$K_NETWORK = 1 ! JPI$_Mode values@ DECLARE LONG CONSTANT JPI$K_BATCH = 2 ! JPI$_Mode valuesF DECLARE LONG CONSTANT JPI$K_INTERACTIVE = 3 ! JPI$_Mode valuesF DECLARE LONG CONSTANT JPI$K_DETACHED = 0 ! JPI$_JOBTYPE valuesC DECLARE LONG CONSTANT JPI$K_LOCAL = 3 ! JPI$_JOBTYPE valuesD DECLARE LONG CONSTANT JPI$K_DIALUP = 4 ! JPI$_JOBTYPE valuesD DECLARE LONG CONSTANT JPI$K_REMOTE = 5 ! JPI$_JOBTYPE values! ! (also BATCH ? INTERACTIVE)A DECLARE LONG CONSTANT JPI$M_NEW_MAIL_AT_LOGIN = x'00000001'@ DECLARE LONG CONSTANT JPI$M_PASSWORD_CHANGED = x'0 0000002'@ DECLARE LONG CONSTANT JPI$M_PASSWORD_EXPIRED = x'00000004'@ DECLARE LONG CONSTANT JPI$M_PASSWORD_WARNING = x'00000008'A DECLARE LONG CONSTANT JPI$M_PASSWORD2_CHANGED = x'00000010'A DECLARE LONG CONSTANT JPI$M_PASSWORD2_EXPIRED = x'00000020'A DECLARE LONG CONSTANT JPI$M_PASSWORD2_WARNING = x'00000040'/ DECLARE LONG CONSTANT JPI$S_JPILGIDEF = 4 record JPILGIDEF group JPI$R_FILL_64_ variant caseH  LONG JPI$L_JPILGIFLGS ! Miscellaneous LOGIN flags case& group JPI$R_FILL_65_5 ! User had new MAIL message(s)1 ! Primary password changed: ! Primary password expired on login= ! Primary password expiration imminent3 ! Secondary password changed< ! Secondary password expired on login? ! Seconda ry password expiration imminents BYTE NEW_MAIL_AT_LOGIN_bits ! COMMENT ADDED BY SDL - NEW_MAIL_AT_LOGIN_bits contains bits &% ! NEW_MAIL_AT_LOGIN through FILL_66_* end group JPI$R_FILL_65_ end variant! end group JPI$R_FILL_64_ end record JPILGIDEF U ! NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF,+ ! $LIBFILDEF, $PPROPDEF, and $NAMLDEF.\ DECLARE LONG CONSTANT JPI$K_SEARCH_SYMLINK_NONE = 1 ! JPI$_SEARCH_SYMLINK_xxx values[ DECLARE LONG CONSTANT JPI$K_SEARCH_SYMLINK_ALL = 2 ! JPI$_SEARCH_SYMLINK_xxx values` DECLARE LONG CONSTANT JPI$K_SEARCH_SYMLINK_NOELLIPS = 3 ! JPI$_SEARCH_SYMLINK_xxx values ! ITEM IDENTIFIERS FOR PCB P DECLARE LONG CONSTANT JPI$_ASTACT = 768 ! ACCESS MODES WITH ACTIVE ASTS P DECLARE LONG CONSTANT JPI$_ASTEN = 769 ! ACCESS MODES WITH ASTS ENABLED H DECLARE LONG CONSTANT JPI$_PRI = 770 ! CURRENT PROCESS PRIORITY _ DECLARE LONG CONSTANT JPI$_OWNER = 771 ! Epid of owner process, if this is a subprocess> DECLARE LONG CONSTANT JPI$_UIC = 772 ! UIC OF PROCESS > DECLARE LONG CONSTANT JPI$_STS = 773 ! PROCESS STATUS ? DECLARE LONG CONSTANT JPI$_STATE = 774 ! PROCESS STATE C DECLARE LONG CONSTANT JPI$_MEM = 775 ! MEMBER FIELD OF UIC B DECLARE LONG CONSTANT JPI$_GRP = 776 ! GROUP FIELD OF UIC F DECLARE LONG CONSTANT JPI$_PRIB = 777 ! PROCESS BASE PRIORITY J DECLARE LONG CONSTANT JPI$_APTCNT = 778 ! ACTIVE PAGE TABLE COUNT I DECLARE LONG CONSTANT JPI$_TMBU = 779 ! TERMINATION MAILBOX UNIT S DECLARE LONG CONSTANT JPI$_GPGCNT = 780 ! GLOBAL PAGE COUNT IN WORKING SET T DECLARE LONG CONSTANT JPI$_PPGCNT = 781 ! PROCESS PAGE COUNT IN WORKING SET F DECLARE LONG CONSTANT JPI$_ASTCNT = 782 ! AST COUNT REMAINING O DECLARE LONG CONSTANT JPI$_BIOCNT = 783 ! BUFFERED I/O COUNT REMAINING D DECLARE LONG CONSTANT JPI$_BIOLM = 784 ! BUFFERED I/O LIMIT X DECLARE LONG CONSTANT JPI$_BYTCNT = 785 ! BYTE COUNT REMAINING FOR BUFFERED I/O M DECLARE LONG CONSTANT JPI$_DIOCNT = 786 ! DIRECT I/O COUNT REMAINING H DECLARE LONG CONSTANT JPI$_DIOLM = 787 ! DIRECT I/O COUNT LIMIT P DECLARE LONG CONSTANT JPI$_FILCNT = 788 ! COUNT REMAINING OF OPEN FILES X DECLARE LONG CONSTANT JPI$_TQCNT = 789 ! COUNT REMAINING OF TIMER QUEUE ENTRIES E DECLARE LONG CONSTANT JPI$_EFWM = 790 ! EVENT FLAG WAIT MASK G DECLARE LONG CONSTANT JPI$_EFCS = 791 ! LOCAL EVENT FLAGS 0-31 H DECLARE LONG CONSTANT JPI$_EFCU = 792 ! LOCAL EVENT FLAGS 32-63 F DECLARE LONG CONSTANT JPI$_PID = 793 ! PROCESS IDENTIFICATION O DECLARE LONG CONSTANT JPI$_BYTLM = 794 ! BUFFERED I/0 BYTE COUNT LIMIT C DECLARE LONG CONSTANT JPI$_PRCCNT = 795 ! SUBPROCESS COUNT ? DECLARE LONG CONSTANT JPI$_PRCNAM = 796 ! PROCESS NAME H DECLARE LONG CONSTANT JPI$_TERMINAL = 797 ! LOGIN TERMINAL NAME Z DECLARE LONG CONSTANT JPI$_JOBPRCCNT = 798 ! TOTAL COUNT OF SUBPROCESSES IN A JOB J DECLARE LONG CONSTANT JPI$_ENQCNT = 799 ! ENQUEUE COUNT REMAINING E DECLARE LONG CONSTANT JPI$_ENQLM = 800 ! ENQUEUE COUNT LIMIT U DECLARE LONG CONSTANT JPI$_SWPFILLOC = 801 ! SWAP FILE BACKING STORE ADDRESS U DECLARE LONG CONSTANT JPI$_MODE = 802 ! MODE VALUE (FROM STS) - DEFINED ABOVE@ DECLARE LONG CONSTANT JPI$_JOBTYPE = 803 ! JOB TYPE CODEC DECLARE LONG CONSTANT JPI$_PROC_INDEX = 804 ! PROCESS INDEXH DECLARE LONG CONSTANT JPI$_MASTER_PID = 805 ! MASTER PROCESS PIDJ DECLARE LONG CONSTANT JPI$_RIGHTSLIST = 806 ! PSB composite rights8 DECLARE LONG CONSTANT JPI$_CPU_ID = 807 ! CPU IDN DECLARE LONG CONSTANT JPI$_STS2 = 808 ! Second process status longword\ DECLARE LONG CONSTANT JPI$_NODENAME = 809 ! Name of node on which process is running] DECLARE LONG CONSTANT JPI$_NODE_CSID = 810 ! CSID of node on which process is runningg DECLARE LONG CONSTANT JPI$_NODE_VERSION = 811 ! VMS version of node on which process is runningX DECLARE LONG CONSTANT JPI$_TT_PHYDEVNAM = 812 ! Physical device name of terminalT DECLARE LONG CONSTANT JPI$_TT_ACCPORNAM = 813 ! Access port name of terminalL DECLARE LONG CONSTANT JPI$_PROCESS_RIGHTS = 814 ! PSB persona rightsJ DECLARE LONG CONSTANT JPI$_SYSTEM_RIGHTS = 815 ! PSB system rightsW DECLARE LONG CONSTANT JPI$_IMAGE_RIGHTS = 816 ! PSB protected sub-system rightsj DECLARE LONG CONSTANT JPI$_RIGHTS_SIZE = 817 ! Approximate size (in bytes) of all PSB rights listsX DECLARE LONG CONSTANT JPI$_CLASSIFICATION = 818 ! PSB current MAC classificationH DECLARE LONG CONSTANT JPI$_SCHED_POLICY = 819 ! Scheduler policy_ DECLARE LONG CONSTANT JPI$_RMS_FILEPROT = 820 ! Process default file protection for RMSX DECLARE LONG CONSTANT JPI$_MULTITHREAD = 821 ! Kernel threads - max thread countQ DECLARE LONG CONSTANT JPI$_KT_COUNT = 822 ! Kernel threads - thread counta DECLARE LONG CONSTANT JPI$_INITIAL_THREAD_PID = 823 ! Kernel threads - initial thread PIDU DECLARE LONG CONSTANT JPI$_THREAD_INDEX = 824 ! Kernel threads - thread indexb DECLARE LONG CONSTANT JPI$_CURRENT_USERCAP_MASK = 825 ! KTB current user capabilities maskf DECLARE LONG CONSTANT JPI$_PERMANENT_USERCAP_MASK = 826 ! KTB permanent user capabilities maskZ DECLARE LONG CONSTANT JPI$_CURRENT_AFFINITY_MASK = 827 ! KTB current affinity mask^ DECLARE LONG CONSTANT JPI$_PERMANENT_AFFINITY_MASK = 828 ! KTB permanent affinity maskF DECLARE LONG CONSTANT JPI$_PERSONA_ID = 829 ! Persona (PSB) idY DECLARE LONG CONSTANT JPI$_PERSONA_AUTHPRIV = 830 ! PSB authorized privilege maskb DECLARE LONG CONSTANT JPI$_PERSONA_PERMPRIV = 831 ! PSB permanent (default) privilege mask_ DECLARE LONG CONSTANT JPI$_PERSONA_WORKPRIV = 832 ! PSB working (active) privilege maskm DECLARE LONG CONSTANT JPI$_IMAGE_WORKPRIV = 833 ! PSB installed image working (active) privilege maskp DECLARE LONG CONSTANT JPI$_PERSONA_RIGHTS_SIZE = 834 ! Approximate size (in bytes) of PSB persona rightsL DECLARE LONG CONSTANT JPI$_PERSONA_RIGHTS = 835 ! PSB persona rights DECLARE LONG CONSTANT JPI$_SUBSYSTEM_RIGHTS_SIZE = 836 ! Approximate size (in bytes) of PSB protected sub-system rights[ DECLARE LONG CONSTANT JPI$_SUBSYSTEM_RIGHTS = 837 ! PSB protected sub-system rightsx DECLARE LONG CONSTANT JPI$_INSTALL_RIGHTS_SIZE = 838 ! Approximate size (in bytes) of PSB installed image rightsT DECLARE LONG CONSTANT JPI$_INSTALL_RIGHTS = 839 ! PSB installed image rightsn DECLARE LONG CONSTANT JPI$_SYSTEM_RIGHTS_SIZE = 840 ! Approximate size (in bytes) of PSB system rightsY DECLARE LONG CONSTANT JPI$_CURRENT_CAP_MASK = 841 ! KTB current capabilities mask] DECLARE LONG CONSTANT JPI$_PERMANENT_CAP_MASK = 842 ! KTB permanent capabilities maskQ DECLARE LONG CONSTANT JPI$_SCHED_CLASS_NAME = 843 ! Scheduling class name@ DECLARE LONG CONSTANT JPI$_HOME_RAD = 844 ! KTB Home RADQ DECLARE LONG CONSTANT JPI$_POSIX_SID = 845 ! Session ID for POSIX and COEX DECLARE LONG CONSTANT JPI$_POSIX_PGID = 846 ! Process Group ID for POSIX and COE^ DECLARE LONG CONSTANT JPI$_CREATOR = 847 ! Epid of creator process (Unix-style parent)G DECLARE LONG CONSTANT JPI$_KRNLTIM = 848 ! Kernel mode cpu timeJ DECLARE LONG CONSTANT JPI$_EXECTIM = 849 ! Executive mode cpu timeK DECLARE LONG CONSTANT JPI$_SUPRTIM = 850 ! Supervisor mode cpu timeE DECLARE LONG CONSTANT JPI$_USERTIM = 851 ! User mode cpu time\ DECLARE LONG CONSTANT JPI$_ORG_BYTLM = 852 ! Original buffered I/O byte count limit c DECLARE LONG CONSTANT JPI$_DEADLOCK_WAIT = 853 ! Per-process sub-second deadlock wait value] DECLARE LONG CONSTANT JPI$_KT_LIMIT = 854 ! Per-process multiple kernel threads limit- ! ADD NEW ITEM-CODES BEFORE THIS COMMENTJ DECLARE LONG CONSTANT JPI$_LASTPCB = 855 ! MAX INDEX IN PCB TABLE ! ITEM IDENTIFIERS FOR PHD S DECLARE LONG CONSTANT JPI$_CURPRIV = 1024 ! CURRENT PROCESS PRIVILEGE MASK O DECLARE LONG CONSTANT JPI$_WSAUTH = 1025 ! AUTHORIZED WORKING SET SIZE N DECLARE LONG CONSTANT JPI$_WSQUOTA = 1026 ! QUOTA ON WORKING SET SIZE M DECLARE LONG CONSTANT JPI$_DFWSCNT = 1027 ! DEFAULT WORKING SET SIZE ` DECLARE LONG CONSTANT JPI$_FREP0VA = 1028 ! FIRST FREE VIRTUAL ADDR. AT END OF P0 SPACE X DECLARE LONG CONSTANT JPI$_FREP1VA = 1029 ! FIRST FREE ADDR. AT END OF P1 SPACE M DECLARE LONG CONSTANT JPI$_DFPFC = 1030 ! DEFAULT PAGE FAULT CLUSTER H DECLARE LONG CONSTANT JPI$_CPUTIM = 1031 ! ACCUMULATED CPU TIME C DECLARE LONG CONSTANT JPI$_PRCLM = 1032 ! SUBPROCESS QUOTA < DECLARE LONG CONSTANT JPI$_ASTLM = 1033  ! AST LIMIT J DECLARE LONG CONSTANT JPI$_PAGEFLTS = 1034 ! COUNT OF PAGE FAULTS P DECLARE LONG CONSTANT JPI$_DIRIO = 1035 ! PROCESS DIRECT I/O OPERATIONS R DECLARE LONG CONSTANT JPI$_BUFIO = 1036 ! PROCESS BUFFERED I/O OPERATIONS O DECLARE LONG CONSTANT JPI$_CPULIM = 1037 ! LIMIT ON CPUTIM FOR PROCESS N DECLARE LONG CONSTANT JPI$_PGFLQUOTA = 1038 ! MAX. VIRTUAL PAGE COUNT B DECLARE LONG CONSTANT JPI$_FILLM = 1039 ! OPEN FILE LIMIT C DECLARE LONG CONSTANT JPI$_TQLM = 1040 ! TIMER QUEUE LIMIT L DECLARE LONG CONSTANT JPI$_WSSIZE = 1041 ! CURRENT WORKING SET SIZE R DECLARE LONG CONSTANT JPI$_AUTHPRIV = 1042 ! PSB authorized privilege maskk DECLARE LONG CONSTANT JPI$_IMAGPRIV = 1043 ! PHD installed image permanent (default) privilege mask` DECLARE LONG CONSTANT JPI$_PAGFILCNT = 1044 ! Remaining paging file quota of the process[ DECLARE LONG CONSTANT JPI$_FREPTECNT = 1045 ! ROOM FOR EXPANSION OF P0 OR P1 SPACE P DECLARE LONG CONSTANT JPI$_WSEXTENT = 1046 ! EXTENT OF WORKING SET SIZE U DECLARE LONG CONSTANT JPI$_WSAUTHEXT = 1047 ! MAX EXTENT OF WORKING SET SIZE T DECLARE LONG CONSTANT JPI$_AUTHPRI = 1048 ! AUTHORIZED PRIORITY FOR $SETPRI V DECLARE LONG CONSTANT JPI$_PAGFILLOC = 1049 ! PAGE FILE BACKING STORE ADDRESS Z DECLARE LONG CONSTANT JPI$_IMAGECOUNT = 1050 ! IMAGE COUNTER (CLOCKED BY RUNDOWN) N DECLARE LONG CONSTANT JPI$_PHDFLAGS = 1051 ! PROCESS HEADER FLAGS WORDE DECLARE LONG CONSTANT JPI$_VP_CPUTIM = 1052 ! VECTOR CPU TIMEb DECLARE LONG CONSTANT JPI$_VP_CONSUMER = 1053 ! Flag -- is this process a vector consumer?Y DECLARE LONG CONSTANT JPI$_P0_FIRST_FREE_VA_64 = 1054 ! First free VA in P0 spaceY DECLARE LONG CONSTANT JPI$_P1_FIRST_FREE_VA_64 = 1055 ! First free VA in P1 spaceY DECLARE LONG CONSTANT JPI$_P2_FIRST_FREE_VA_64 = 1056 ! First free VA in P2 spaceh DECLARE LONG CONSTANT JPI$_IMAGE_AUTHPRIV = 1057 ! PHD installed image authorized privilege maskq DECLARE LONG CONSTANT JPI$_IMAGE_PERMPRIV = 1058 ! PHD installed image permanent (default) privilege mask- ! ADD NEW ITEM-CODES BEFORE THIS COMMENTP DECLARE LONG CONSTANT JPI$_LASTPHD = 1059 ! MAX INDEX IN PROCESS HEADER + ! ITEM IDENTIFIERS FOR CONTROL REGION F DECLARE LONG CONSTANT JPI$_VIRTPEAK = 512 ! PEAK VIRTUAL SIZE H DECLARE LONG CONSTANT JPI$_WSPEAK = 513 ! PEAK WORKING SET SIZE G DECLARE LONG CONSTANT JPI$_USERNAME = 514 ! PSB username stringJ DECLARE LONG CONSTANT JPI$_ACCOUNT = 515 ! PSB account name stringZ DECLARE LONG CONSTANT JPI$_PROCPRIV = 516 ! PSB permanent (default) privilege maskC DECLARE LONG CONSTANT JPI$_VOLUMES = 517 ! VOLUMES MOUNTED V DECLARE LONG CONSTANT JPI$_LOGINTIM = 518 ! TIME OF LOGIN OR PROCESS CREATION L DECLARE LONG CONSTANT JPI$_IMAGNAME = 519 ! CURRENT IMAGE FILE NAME S DECLARE LONG CONSTANT JPI$_SITESPEC = 520 ! PER-PROCESS SITE-SPECIFIC CELL P DECLARE LONG CONSTANT JPI$_MSGMASK = 521 ! PROCESS DEFAULT MESSAGE FLAGST DECLARE LONG CONSTANT JPI$_CLINAME = 522 ! COMMAND LANGUAGE INTERPRETER NAME\ DECLARE LONG CONSTANT JPI$_TABLENAME = 523 ! COMMAND LANGUAGE INTERPRETER TABLE NAMEa DECLARE LONG CONSTANT JPI$_CREPRC_FLAGS = 524 ! $CREPRC FLAGS USED TO CREATE THIS PROCESSJ DECLARE LONG CONSTANT JPI$_UAF_FLAGS = 525 ! FLAGS FROM UAF RECORD_ DECLARE LONG CONSTANT JPI$_MAXDETACH = 526 ! MAXIMUM DETACHED PROCESSES FOR SINGLE USER[ DECLARE LONG CONSTANT JPI$_MAXJOBS = 527 ! MAXIMUM ACTIVE PROCESSES FOR SINGLE USERM DECLARE LONG CONSTANT JPI$_SHRFILLM = 528 ! MAXIMUM OPEN SHARED FILES` DECLARE LONG CONSTANT JPI$_FAST_VP_SWITCH = 529 ! NUMBER OF FAST VECTOR CONTEXT SWITCHES` DECLARE LONG CONSTANT JPI$_SLOW_VP_SWITCH = 530 ! NUMBER OF SLOW VECTOR CONTEXT SWITCHESN DECLARE LONG CONSTANT JPI$_LAST_LOGIN_I = 531 ! Last interactive loginR DECLARE LONG CONSTANT JPI$_LAST_LOGIN_N = 532 ! Last non-interactive login[ DECLARE LONG CONSTANT JPI$_LOGIN_FAILURES = 533 ! Number of login failures at loginP DECLARE LONG CONSTANT JPI$_LOGIN_FLAGS = 534 ! Miscellaneous login flagsS DECLARE LONG CONSTANT JPI$_RMS_DFMBC = 535 ! RMS default: multi-block count] DECLARE LONG CONSTANT JPI$_RMS_DFMBFSDK = 536 ! " " multi-buffer count for disk (SEQ)W DECLARE LONG CONSTANT JPI$_RMS_DFMBFSMT = 537 ! " " multi-buffer count for tape^ DECLARE LONG CONSTANT JPI$_RMS_DFMBFSUR = 538 ! " " multi-buffer count for unit record\ DECLARE LONG CONSTANT JPI$_RMS_DFMBFREL = 539 ! " " multi-buffer count for REL files] DECLARE LONG CONSTANT JPI$_RMS_DFMBFIDX = 540 ! " " multi-buffer count for ISAM filesB DECLARE LONG CONSTANT JPI$_RMS_PROLOGUE = 541 ! " " prologS DECLARE LONG CONSTANT JPI$_RMS_EXTEND_SIZE = 542 ! " " file extend quantityL DECLARE LONG CONSTANT JPI$_RMS_DFNBC = 543 ! " " network block countN DECLARE LONG CONSTANT JPI$_RMS_DFLRL = 544 ! " " Heuristic default LRL] DECLARE LONG CONSTANT JPI$_RMS_HEURISTIC = 545 ! " " Heuristic enable/disable setting[ DECLARE LONG CONSTANT JPI$_PARSE_STYLE_PERM = 546 ! Parse style for life of processZ DECLARE LONG CONSTANT JPI$_PARSE_STYLE_IMAGE = 547 ! Parse style for life of imageL DECLARE LONG CONSTANT JPI$_RMSD6 = 548 ! RMS dynamic parameter RMSD6_ DECLARE LONG CONSTANT JPI$_RMS_QUERY_LOCK = 549 ! RMS QUERY_LOCK enable/disable setting` DECLARE LONG CONSTANT JPI$_CASE_LOOKUP_PERM = 550 ! Case lookup mode for life of process_ DECLARE LONG CONSTANT JPI$_CASE_LOOKUP_IMAGE = 551 ! Case lookup mode for life of image@ DECLARE LONG CONSTANT JPI$_UNITS = 552 ! Bytes or BlocksE DECLARE LONG CONSTANT JPI$_TOKEN = 553 ! Small or Large Tokenf DECLARE LONG CONSTANT JPI$_SEARCH_SYMLINK_PERM = 554 ! Symlink search mode for life of processd DECLARE LONG CONSTANT JPI$_SEARCH_SYMLINK_TEMP = 555 ! Symlink search mode for life of image- ! ADD NEW ITEM-CODES BEFORE THIS COMMENTO DECLARE LONG CONSTANT JPI$_LASTCTL = 556 ! MAX INDEX IN CONTROL REGION ) ! ITEM IDENTIFIERS FOR ADDRESS DATA W DECLARE LONG CONSTANT JPI$_EXCVEC = 256 ! ADDRESS OF "EXCEPTION VECTOR" VECTOR ] DECLARE LONG CONSTANT JPI$_FINALEXC = 257 ! ADDRESS OF LAST CHANCE EXCEPTION VECTORS - ! ADD NEW ITEM-CODES BEFORE THIS COMMENTN DECLARE LONG CONSTANT JPI$_LASTADR = 258 ! MAX INDEX IN ADDRESS TABLE " ! ITEM IDENTIFIERS FOR PCBFLD) ! ADD ITEM-CODES BEFORE THIS COMMENTQ DECLARE LONG CONSTANT JPI$_LASTPCBFLD = 1280 ! MAX INDEX IN PCBFLD TABLE " ! ITEM IDENTIFIERS FOR PHDFLD) ! ADD ITEM-CODES BEFORE THIS COMMENTQ DECLARE LONG CONSTANT JPI$_LASTPHDFLD = 1536 ! MAX INDEX IN PHDFLD TABLE  wwk  ! *** PREDECLARED TYPES  E: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORDF* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF B: %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )D END RECORDS* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! E ! Get Job Process Information "Fast" Data Identifier Definitions !  ! -8 DECLARE LONG CONSTANT JPIF$M_UASTACT = x'00000001'. DECLARE LONG CONSTANT JPIF$C_UASTACT = 0:  DECLARE LONG CONSTANT JPIF$M_RMS_DFMBC = x'00000002'0 DECLARE LONG CONSTANT JPIF$C_RMS_DFMBC = 1A DECLARE LONG CONSTANT JPIF$M_PARSE_STYLE_PERM = x'00000004'7 DECLARE LONG CONSTANT JPIF$C_PARSE_STYLE_PERM = 2B DECLARE LONG CONSTANT JPIF$M_PARSE_STYLE_IMAGE = x'00000008'8 DECLARE LONG CONSTANT JPIF$C_PARSE_STYLE_IMAGE = 3; DECLARE LONG CONSTANT JPIF$M_LOGINTIM_L = x'00000010'1 DECLARE LONG CONSTANT JPIF$C_LOGINTIM_L = 4; DECLARE LONG CONSTANT JPIF$M_LOGINTIM_H = x'00000020'1 DECLARE LONG CONSTANT JPIF$C_LOGINTIM_H = 57 DECLARE LONG CONSTANT JPIF$M_CPUTIM = x'00000040'- DECLARE LONG CONSTANT JPIF$C_CPUTIM = 6. DECLARE LONG CONSTANT JPIF$S_JPIFDEF = 8 record JPIFDEF group JPIF$R_FILL_67_ variant case1 BASIC$QUADWORD JPIF$Q_JPIFITEMS case' group JPIF$R_FILL_68_. ! User mode AST active 6  ! RMS default multi-block count. ! Permanent parse style+ ! Image parse style , ! Login time - low LW- ! Login time - high LW5 ! Process accumulated CPU timeu BYTE UASTACT_bits ! COMMENT ADDED BY SDL - UASTACT_bits contains bits UASTACT through FILL_69_+ end group JPIF$R_FILL_68_ end variant" end group JPIF$R_FILL_67_ end record JPIFDEF  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ++L ! Key Grant Block definitions: Format of records in the rights databaseI ! file. These records (1) associate identifier codes with names, and= ! (2) list the holders of all identifiers in th e system. ! --R ! WARNING : If you add attributes, you must change the following modules: ! ; ! [AUDSRV]FORMATBL.B32 - add name to id_attr_table ! Z ! Changing these modules is necessary so that auditing will reflect the new attr name !  ! E ! WARNING : If you add any fields, or change the size of theG ! NAME, the HOLDER, or the SYS_ID, be sure to update= ! the contents at the bottom of this file. ! 8 DECLARE LONG CONSTANT KGB$M_RESOURCE = x'00000001'7 DECLARE LONG CONSTANT KGB$M_DYNAMIC = x'00000002'8 DECLARE LONG CONSTANT KGB$M_NOACCESS = x'00000004'9 DECLARE LONG CONSTANT KGB$M_SUBSYSTEM = x'00000008'; DECLARE LONG CONSTANT KGB$M_IMPERSONATE = x'00000010'= DECLARE LONG CONSTANT KGB$M_HOLDER_HIDDEN = x'00000020'; DECLARE LONG CONSTANT KGB$M_NAME_HIDDEN = x'00000040'K DECLARE LONG CONSTANT KGB$K_HOLD_RECORD = 16 ! End of holder recordP  DECLARE LONG CONSTANT KGB$K_IDENT_RECORD = 48 ! End of identifier recordL DECLARE LONG CONSTANT KGB$K_LEVEL1 = 257 ! Version 1 structure levelQ DECLARE LONG CONSTANT KGB$K_MAINT_RECORD = 64 ! End of maintenance record: DECLARE LONG CONSTANT KGB$K_NUMBER_OF_ATTRIBUTES = 7- DECLARE LONG CONSTANT KGB$S_KGBDEF = 64 record KGBDEFE LONG KGB$L_IDENTIFIER ! Binary identifier code group KGB$R_FILL_70_ variant  caseH LONG KGB$L_ATTRIBUTES ! Attribute bit definitions case& group KGB$R_FILL_71_> ! Resource may be charged to identifier> ! Identifier may be enabled or disabledI ! Identifier will not be used in protection checksF ! Identifier denotes active protected subsystemA ! Identifier can be used for impersonation6  ! Holder records are restrictedG ! $IDTOASC or $ASCTOID translation is restrictedx BYTE RESOURCE_bits ! COMMENT ADDED BY SDL - RESOURCE_bits contains bits RESOURCE through FILL_72_* end group KGB$R_FILL_71_ end variant! end group KGB$R_FILL_70_@ BASIC$QUADWORD KGB$Q_HOLDER ! Holder identifierT STRING KGB$T_NAME = 32 ! Identifier name (blank filled string)C  WORD KGB$W_LEVEL ! File structure level WORD KGB$$$_FILL_1@ BASIC$QUADWORD KGB$Q_SYS_ID ! System identifierH LONG KGB$L_NEXT_ID ! Next available identifier end record KGBDEF  ! ++0 ! Define the environmental rights ID values ! --K DECLARE LONG CONSTANT KGB$K_BATCH_ID = -2147483647 ! Batch ID valueM DECLARE LONG CONSTANT KGB$K_DIALUP_ID = -2147483646 ! Dialup ID valueW DECLARE LONG CONSTANT KGB$K_INTERACTIVE_ID = -2147483645 ! Interactive ID valueK DECLARE LONG CONSTANT KGB$K_LOCAL_ID = -2147483644 ! Local ID valueO DECLARE LONG CONSTANT KGB$K_NETWORK_ID = -2147483643 ! Network ID valueM DECLARE LONG CONSTANT KGB$K_REMOTE_ID = -2147483642 ! Remote ID valueU DECLARE LONG CONSTANT KGB$K_DECWINDOWS_ID = -2147483641 ! Decwindows ID valueZ DECLARE LONG CONSTANT KGB$K_BOBUSER_ID = -2147483640 ! Buffer Object User ID valuef DECL ARE LONG CONSTANT KGB$K_MRES_USER_ID = -2147483639 ! Memory Resident Section User ID value_ DECLARE LONG CONSTANT KGB$K_SAT_ACCESS_ID = -2147483638 ! VMS$SATELLITE_ACCESS id valueb DECLARE LONG CONSTANT KGB$K_LAST_ENV_ID = -2147483637 ! NOTE: Add all new ones before this ! 4 ! Define the range of environmental identifiers ! ; DECLARE LONG CONSTANT KGB$K_BASE_ENV_ID = -21474836478 DECLARE LONG CONSTANT KGB$K_NUMBER_OF_ENV_IDS = 10 ! S ! Define th e restricted range of system identifiers as lowest id (%x800000000) ! to %x80010000. ! @ DECLARE LONG CONSTANT KGB$K_RESTRICTED_RANGE = -2147418112 ! . ! Define the various access class ranges. ! > DECLARE LONG CONSTANT KGB$K_SEC_LEVEL_BASE = -2147482648> DECLARE LONG CONSTANT KGB$K_INT_LEVEL_BASE = -2147482392A DECLARE LONG CONSTANT KGB$K_SEC_CATEGORY_BASE = -2147482136A DECLARE LONG CONSTANT KGB$K_INT_CATEGORY_BASE = -2147482072E DECL ARE LONG CONSTANT KGB$K_SEC_ACCESS_CLASS_BASE = -2147482648D DECLARE LONG CONSTANT KGB$K_SEC_ACCESS_CLASS_END = -2147482008 ! K ! Define the values for the optional $GRANTID/$REVOKID FLAGS argument. ! > DECLARE LONG CONSTANT KGB$K_PROCESS = 0 ! local rights> DECLARE LONG CONSTANT KGB$K_SYSTEM = 1 ! system rightsJ DECLARE LONG CONSTANT KGB$K_EXTENDED = 2 ! local rights (extended)R DECLARE LONG CONSTANT KGB$K_IMAGE = 3 ! image (protected subsystem) rights- DECLARE LONG CONSTANT KGB$K_MAX_SEG = 4V DECLARE LONG CONSTANT KGB$K_SUBSYSTEM = 3 ! image (protected subsystem) rightsK DECLARE LONG CONSTANT KGB$S_NAME = 32 ! Size of KGB Identifier NameL DECLARE LONG CONSTANT KGB$S_HOLDER = 8 ! Size of KGB Holder ID valueI DECLARE LONG CONSTANT KGB$S_SYS_ID = 8 ! Size of KGB System Ident ww޶ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! ) ! LPA-11 CHARACTERISTICS DEFINITIONS !  ! - ! MICROCODE TYPE VALUES H DECLARE LONG CONSTANT LA$K_MRMCODE = 1 ! MULTIREQUEST MICROCODE I DECLARE LONG CONSTANT LA$K _ADMCODE = 2 ! DEDICATED A/D MICROCODE I DECLARE LONG CONSTANT LA$K_DAMCODE = 3 ! DEDICATED D/A MICROCODE 6 DECLARE LONG CONSTANT LA$M_MCVALID = x'00000001'5 DECLARE LONG CONSTANT LA$M_CLOCKA = x'00000008'5 DECLARE LONG CONSTANT LA$M_CLOCKB = x'00000010'2 DECLARE LONG CONSTANT LA$M_AD1 = x'00000020'2 DECLARE LONG CONSTANT LA$M_AD2 = x'00000040'1 DECLARE LONG CONSTANT LA$M_DA = x'00000080'3 DECLARE LONG CONSTANT LA$M_DIO1 = x'00000100'3 DE CLARE LONG CONSTANT LA$M_DIO2 = x'00000200'3 DECLARE LONG CONSTANT LA$M_DIO3 = x'00000400'3 DECLARE LONG CONSTANT LA$M_DIO4 = x'00000800'3 DECLARE LONG CONSTANT LA$M_DIO5 = x'00001000'6 DECLARE LONG CONSTANT LA$M_BFROVRN = x'00800000'* DECLARE LONG CONSTANT LA$S_LADEF = 4 record LADEF variant case% group LA$R_LADEF_BITS0& ! MICROCODE VALID % ! MICROCODE TYPE 0 ! DEVICE CONFIGURATION BITS ! ! CLOCK RATE # ! CLOCK PRESET p LONG MCVALID_bits ! COMMENT ADDED BY SDL - MCVALID_bits contains bits MCVALID through PRESET) end group LA$R_LADEF_BITS0 case% group LA$R_LADEF_BITS19 ! SKIP OVER MICROCODE VALID AND TYPE  ! CLOCK A  ! CLOCK B  ! A/D ? 1  ! A/D ? 2   ! D/A & ! DIGITAL I/O ? 1 & ! DIGITAL I/O ? 2 & ! DIGITAL I/O ? 3 & ! DIGITAL I/O ? 4 & ! DIGITAL I/O ? 5 o WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through FILL_73_) end group LA$R_LADEF_BITS1 case% group LA$R_LADEF_BITS2/ ! (IN USER'S COMMAND TABLE) 3  ! BUFFER OVERRUN NON-FATAL BIT n LONG FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through BFROVRN) end group LA$R_LADEF_BITS2 end variant end record LADEF  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  5 DECLARE LONG CONSTANT LAT$M_ETYPE = x'0000FFFF'. DECLARE LONG CONSTANT LAT$C_ENT_NODE = 11 DECLARE LONG CONSTANT LAT$C_ENT_SERVICE = 2. DECLARE LONG CONSTANT LAT$C_ENT_LINK = 3. DECLAR E LONG CONSTANT LAT$C_ENT_PORT = 44 DECLARE LONG CONSTANT LAT$C_ENT_CONNECTION = 55 DECLARE LONG CONSTANT LAT$C_ENT_QUEUE_ENTRY = 6. DECLARE LONG CONSTANT LAT$C_MAXETYPE = 67 DECLARE LONG CONSTANT LAT$M_ESTATUS = x'0000000F'E DECLARE LONG CONSTANT LAT$C_ENTS_OLD = 0 ! Must already existN DECLARE LONG CONSTANT LAT$C_ENTS_NEW = 1 ! Must NOT exist. Create it.N DECLARE LONG CONSTANT LAT$C_ENTS_UNK = 2 ! Create if it does not existI DECLARE LONG CON STANT LAT$C_ENTS_DEL = 3 ! Must exist. Delete it.: DECLARE LONG CONSTANT LAT$M_SENSE_NEXT = x'00000001': DECLARE LONG CONSTANT LAT$M_SENSE_FULL = x'00000002'< DECLARE LONG CONSTANT LAT$M_READ_HISTORY = x'00000004', DECLARE LONG CONSTANT LAT$S_ENTITY = 3 record ENTITY` WORD ETYPE_bits ! COMMENT ADDED BY SDL - ETYPE_bits contains bits ETYPE through ETYPE group LAT$R_ESTATFLAGS variant caseq BYTE EST ATUS_bits ! COMMENT ADDED BY SDL - ESTATUS_bits contains bits ESTATUS through ESTATUS case# group LAT$R_EFLAG variant caseB BYTE LAT$B_EFLAGS ! Flags for SENSEmode case- group LAT$R_EFLAGBITS, ! Wildcard flag6 ! Full (vs. summary) flag6 ! Used for history buff er~ BYTE SENSE_NEXT_bits ! COMMENT ADDED BY SDL - SENSE_NEXT_bits contains bits SENSE_NEXT through & ! FILL_74_1 end group LAT$R_EFLAGBITS end variant' end group LAT$R_EFLAG end variant# end group LAT$R_ESTATFLAGS end record ENTITY 9 DECLARE LONG CONSTANT LAT$M_ITEMINDEX = x'00003FFF'6 DECLARE LONG CONSTANT LAT$M_STRING = x'00004000'5 DECLARE LONG CONSTANT LAT$M_CLEAR = x'00008000'M DECLARE LONG CONSTANT LAT$_ITM_STATE = 1 ! Entity (node or port) stateM DECLARE LONG CONSTANT LAT$_ITM_CIRCUIT_TIMER = 2 ! Circuit timer valueQ DECLARE LONG CONSTANT LAT$_ITM_KEEPALIVE_TIMER = 3 ! Keepalive timer valueQ DECLARE LONG CONSTANT LAT$_ITM_MULTICAST_TIMER = 4 ! Multicast timer valueN DECLARE LONG CONSTANT LAT$_ITM_NODE_LIMIT = 5 ! Maximum number of nodesS DECLARE LONG CONSTANT LAT$_ITM_RETRANSMIT_LIMIT = 6 ! Retransmit limit valueN DECLARE LONG CONSTANT LAT$_ITM_SERVER_MODE = 7 ! Enable LAT master flagV DECLARE LONG CONSTANT LAT$_ITM_OUTGOING_SES_LIMIT = 8 ! Outgoing sessions limitV DECLARE LONG CONSTANT LAT$_ITM_INCOMING_SES_LIMIT = 9 ! Incoming sessions limitN DECLARE LONG CONSTANT LAT$_ITM_CONNECTIONS = 10 ! Enable LAT slave flagS DECLARE LONG CONSTANT LAT$_ITM_DECNET_ADDRESS = 11 ! Use DECnet address flagK DECLARE LONG CONSTANT LAT$_ITM_RATING = 12 ! Static LAT rating valueS DECLARE LONG CONSTANT LAT$_ITM_RATING_TYPE = 13 ! Dynamic/static rating flagR DECLARE LONG CONSTANT LAT$_ITM_NODE_TYPE = 14 ! Local/remote node type flagS DECLARE LONG CONSTANT LAT$_ITM_NODE_STATUS = 15 ! Reachable/unreachable flagV DECLARE LONG CONSTANT LAT$_ITM_SERVICE_STATUS = 16 ! Available/unavailable flagF DECLARE LONG CONSTANT LAT$_ITM_PORT_TYPE = 17 ! Port type valueP DECLARE LONG CONSTANT LAT$_ITM_QUEUED = 18 ! Queued/nonqueued access flagY DECLARE LONG CONSTANT LAT$_ITM_DISCONNECT_REASON = 19 ! Reason for last disconnectW DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_COUNT = 20 ! Number of current sessionsL DECLARE LONG CONSTANT LAT$_ITM_SERVICE_TYPE = 21 ! Service type valueR DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SSZ = 22 ! (node) Seconds since zeroedP DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MSGR = 23 ! (node) Messages receivedS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MSGT = 24 ! (node) Messages transmittedM DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLTR = 25 ! (node) Slots receivedP DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLTT = 26 ! (node) Slots transmittedM DECLARE LONG CONSTANT LAT$_ITM_CTNOD_BYTR = 27 ! (node) Bytes receivedP DECLARE LONG CONSTANT LAT$_ITM_CTNOD_BYTT = 28 ! (node) Bytes transmittedU DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MNA = 29 ! (node) Multiple node addressesQ DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DUP = 30 ! (node) Duplicates receivedT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MRT = 31 ! (node) Messages retransmittedW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ILM = 32 ! (node) Illegal messages receivedT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ILS = 33 ! (node) Illegal slots receivedU DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLCA = 34 ! (node) Solicitations acceptedU DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLCR = 35 ! (node) Solicitations rejectedM DECLARE LONG CONSTANT LAT$_ITM_CTNOD_TER = 36 ! (node) Transmit errorsM DECLARE LONG CONSTANT LAT$_ITM_CTNOD_RES = 37 ! (node) Resource errorsP DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NTB = 38 ! (node) No transmit bufferV DECLARE LONG CONSTANT LAT$_ITM_CTNOD_TMO = 39 ! (node) Virtual circuit timeoutsT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DOB = 40 ! (node) Discarded output bytesS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LSTER = 41 ! (node) Last transmit errorT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_PROTO = 42 ! (node) Protocol error count_ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_IVM = 43 ! (protocol) Invalid message type received` DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ISM = 44 ! (protocol) Invalid start message receivedY DECLARE LONG CONSTANT LAT$_ITM_CTPRO_IVS = 45 ! (protocol) Invalid sequence numberZ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_NIZ = 46 ! (protocol) Zero node index received[ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ICI = 47 ! (protocol) Invalid server slot indexZ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_CSI = 48 ! (protocol) Circuit sequence invalid_ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_NLV = 49 ! (protocol) Circuit index no longer validY DECLARE LONG CONSTANT LAT$_ITM_CTPRO_HALT = 50 ! (protocol) Circuit forced to halt[ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_MIZ = 51 ! (protocol) Invalid master slot indexZ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_SIZ = 52 ! (protocol) Invalid slave slot indexW DECLARE LONG CONSTANT LAT$_ITM_CTPRO_CRED = 53 ! (protocol) Invalid credit field\ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_RCSM = 54 ! (protocol) Repeat master slot create` DECLARE LONG CONSTANT LAT$_ITM_CTPRO_RDSM = 55 ! (protocol) Repeat master slot disconnectU DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SSZ = 56 ! (service) Seconds since zeroedW DECLARE LONG CONSTANT LAT$_ITM_CTSRV_MCNA = 57 ! (service) Connections attemptedW DECLARE LONG CONSTANT LAT$_ITM_CTSRV_MCNC = 58 ! (service) Connections completedV DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SCNA = 59 ! (service) Connections acceptedV DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SCNR = 60 ! (service) Connections rejectedR DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SSZ = 61 ! (port) Seconds since zeroedM DECLARE LONG CONSTANT LAT$_ITM_CTPRT_RMT = 62 ! (port) Remote accessesM DECLARE LONG CONSTANT LAT$_ITM_CTPRT_BYTR = 63 ! (port) Bytes receivedP DECLARE LONG CONSTANT LAT$_ITM_CTPRT_BYTT = 64 ! (port) Bytes transmittedY DECLARE LONG CONSTANT LAT$_ITM_MAXIMUM_UNITS = 65 ! Maximum LTA device unit numberS DECLARE LONG CONSTANT LAT$_ITM_SERVICE_CLASS = 66 ! Port service class itemV DECLARE LONG CONSTANT LAT$_ITM_DISPLAY_NUMBER = 67 ! X Display Number (Binary)C DECLARE LONG CONSTANT LAT$_ITM_CPU_RATING = 68 ! CPU ratingQ DECLARE LONG CONSTANT LAT$_ITM_SERVICE_RESPONDER = 69 ! Service responderT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCBXMT = 70 ! (node) Multicast bytes xmtT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCBRCV = 71 ! (node) Multicast bytes rcvS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCMXMT = 72 ! (node) Multicast msgs xmtS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCMRCV = 73 ! (node) Multicast msgs rcvR DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SOLFAIL = 74 ! (node) Solicit failuresS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ATLOS = 75 ! (node) Attention slot lostO DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DATLOS = 76 ! (node) User data lostS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOREJ = 77 ! (node) No reject slot sentQ DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LOSCT = 78 ! (node) Node counter lostO DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LOSSAM = 79 ! (node) s.a.m. lossageT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOSAM = 80 ! (node) Couldn't send s.a.m.P DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOSTS = 81 ! (node) Lost node statusR DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOXMT = 82 ! (node) No link to send onQ DECLARE LONG CONSTANT LAT$_ITM_HISTORY = 83 ! (node) History buffer enableR DECLARE LONG CONSTANT LAT$_ITM_CTNOD_CTLERR = 84 ! (node) Controller errorsW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_CERRCOD = 85 ! (node) Last controller error\ DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ISOLA = 86 ! (node) (Incoming) solicits accepted\ DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ISOLR = 87 ! (node) (Incoming) solicits rejectedX DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_SESSIONS = 88 ! Connected session countJ DECLARE LONG CONSTANT LAT$_ITM_CONNECT_TYPE = 89 ! Connection typeZ DECLARE LONG CONSTANT LAT$_ITM_CONNECTION_SESS_LIM = 90 ! Connection session limitN DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGRCV = 91 ! (conn) msgs receivedN DECLARE LONG CONSTANT LAT$_ITM_CTCON_DUPRCV = 92 ! (conn) dup msgs rcvdJ DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGXMT = 93 ! (conn) msgs xmtdR DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGILL = 94 ! (conn) illegal msgs rcvdS DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGRXT = 95 ! (conn) msgs retransmittedO DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTILL = 96 ! (conn) ill slots rcvdO DECLARE LONG CONSTANT LAT$_ITM_CTCON_DUPNOD = 97 ! (conn) duplicate nodeS DECLARE LONG CONSTANT LAT$_ITM_CTCON_SECZER = 98 ! (conn) seconds since zeroO DECLARE LONG CONSTANT LAT$_ITM_CTCON_BYTRCV = 99 ! (conn) bytes receivedL DECLARE LONG CONSTANT LAT$_ITM_CTCON_BYTXMT = 100 ! (conn) bytes xmtdL DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTRCV = 101 ! (conn) slots rcvdS DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTXMT = 102 ! (conn) slots transmittedS DECLARE LONG CONSTANT LAT$_ITM_CTCON_SOLACP = 103 ! (conn) solicits acceptedS DECLARE LONG CONSTANT LAT$_ITM_CTCON_SOLREJ = 104 ! (conn) solicits rejectedS DECLARE LONG CONSTANT LAT$_ITM_CTCON_XERR = 105 ! (conn) last transmit errorV DECLARE LONG CONSTANT LAT$_ITM_CTCON_XERRCOD = 106 ! (conn) last xmt error codeU  DECLARE LONG CONSTANT LAT$_ITM_CTCON_ATTLOS = 107 ! (conn) attention slot lossK DECLARE LONG CONSTANT LAT$_ITM_CTCON_DATLOS = 108 ! (conn) data lossS DECLARE LONG CONSTANT LAT$_ITM_CTCON_CANTREJ = 109 ! (conn) reject slot loss_ DECLARE LONG CONSTANT LAT$_ITM_SESSION_NUMBER = 110 ! (conn) session number for subblock` DECLARE LONG CONSTANT LAT$_ITM_FORWARD_SESSION_LIMIT = 111 ! (node) forward session limit[ DECLARE LONG CONSTANT LAT$_ITM_EXTRA_DATALINK_BUFFERS = 112 ! Extra datalink buffers\ DECLARE LONG CONSTANT LAT$_ITM_TRANSMIT_BUFFERS_INUSE = 113 ! Transmit buffers in useW DECLARE LONG CONSTANT LAT$_ITM_QUE_POS_OBSOLETE = 114 ! Queue position for entry ! Obsolete - node queue and ! service queue position are ! now implemented.X DECLARE LONG CONSTANT LAT$_ITM_QUEUE_DEPTH_LIMIT = 115 ! (node) queue depth limitL DECLARE LONG CONSTANT LAT$_ITM_DEVICE_SEED = 116 ! (node) device seed_ DECLARE LONG CONSTANT LAT$_ITM_NODE_QUEUE_POSITION = 117 ! (port) minimum queue positionb DECLARE LONG CONSTANT LAT$_ITM_SERVICE_QUEUE_POSITION = 118 ! (port) maximum queue positionQ DECLARE LONG CONSTANT LAT$_ITM_DIALUP = 119 ! (port) dialup characteristicO DECLARE LONG CONSTANT LAT$_ITM_AUTOPROMPT = 120 ! (port) autoprompt charh DECLARE LONG CONSTANT LAT$_ITM_RATING_LOAD_OBSOLETE = 121 ! obsolete - portion of rating for loadM DECLARE LONG CONSTANT LAT$_ITM_CTPRT_LCL = 122 ! (port) local accessesV DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SLCA = 123 ! (port) Solicitations acceptedV DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SLCR = 124 ! (port) Solicitations rejected] DECLARE LONG CONSTANT LAT$_ITM_CTPRT_ISOLA = 125 ! (node) (Incoming) solicits accepted] DECLARE LONG CONSTANT LAT$_ITM_CTPRT_ISOLR = 126 ! (node) (Incoming) solicits rejected ! G ! This next item code is only returned (it cannot be supplied as aI ! SETMODE item). It indicates whether or not a service on the local" ! node is password protected. ! V DECLARE LONG CONSTANT LAT$_ITM_PASSWORD = 127 ! (svc) Password enabled/disabledQ DECLARE LONG CONSTANT LAT$_ITM_HI_CIRCUITS = 128 ! (node) Hi circuit countW DECLARE LONG CONSTANT LAT$_ITM_CUR_CIRCUITS = 129 ! (node) Current circuit countZ DECLARE LONG CONSTANT LAT$_ITM_MAX_CIRCUITS = 130 ! (node) Maximum virtual circuitsQ DECLARE LONG CONSTANT LAT$_ITM_HI_SESSIONS = 131 ! (node) Hi session countW DECLARE LONG CONSTANT LAT$_ITM_CUR_SESSIONS = 132 ! (node) Current session countW DECLARE LONG CONSTANT LAT$_ITM_MAX_SESSIONS = 133 ! (node) Maximum session count[ DECLARE LONG CONSTANT LAT$_ITM_HI_OUT_QUEUE = 134 ! (node) Hi outgoing queue entries] DECLARE LONG CONSTANT LAT$_ITM_CUR_OUT_QUEUE = 135 ! (node) Current outgoing q entries] DECLARE LONG CONSTANT LAT$_ITM_MAX_OUT_QUEUE = 136 ! (node) Maximum outgoing q entriesZ DECLARE LONG CONSTANT LAT$_ITM_HI_IN_QUEUE = 137 ! (node) Hi incoming queue entries\ DECLARE LONG CONSTANT LAT$_ITM_CUR_IN_QUEUE = 138 ! (node) Current incoming q entries\ DECLARE LONG CONSTANT LAT$_ITM_MAX_IN_QUEUE = 139 ! (node) Maximum incoming q entriesW DECLARE LONG CONSTANT LAT$_ITM_HI_SAMS_QUEUED = 140 ! (node) Hi unprocessed SAMs] DECLARE LONG CONSTANT LAT$_ITM_CUR_SAMS_QUEUED = 141 ! (node) Current unprocessed SAMs] DECLARE LONG CONSTANT LAT$_ITM_MAX_SAMS_QUEUED = 142 ! (node) Maximum unprocessed SAMs[ DECLARE LONG CONSTANT LAT$_ITM_HI_SOL_QUEUED = 143 ! (node) Hi unprocessed sol infosa DECLARE LONG CONSTANT LAT$_ITM_CUR_SOL_QUEUED = 144 ! (node) Current unprocessed sol infosa DECLARE LONG CONSTANT LAT$_ITM_MAX_SOL_QUEUED = 145 ! (node) Maximum unprocessed sol infosX DECLARE LONG CONSTANT LAT$_ITM_HI_AVAIL_SVCS = 146 ! (node) Hi available services^ DECLARE LONG CONSTANT LAT$_ITM_CUR_AVAIL_SVCS = 147 ! (node) Current available services^ DECLARE LONG CONSTANT LAT$_ITM_MAX_AVAIL_SVCS = 148 ! (node) Maximum available servicesV DECLARE LONG CONSTANT LAT$_ITM_HI_REACH_NODES = 149 ! (node) Hi reachable nodes\ DECLARE LONG CONSTANT LAT$_ITM_CUR_REACH_NODES = 150 ! (node) Current reachable nodes\ DECLARE LONG CONSTANT LAT$_ITM_MAX_REACH_NODES = 151 ! (node) Maximum reachable nodesR DECLARE LONG CONSTANT LAT$_ITM_HI_LCL_SVCS = 152 ! (node) Hi local servicesX DECLARE LONG CONSTANT LAT$_ITM_CUR_LCL_SVCS = 153 ! (node) Current local servicesX DECLARE LONG CONSTANT LAT$_ITM_MAX_LCL_SVCS = 154 ! (node) Maximum local servicesT DECLARE LONG CONSTANT LAT$_ITM_DISCARDED_NODES = 155 ! (node) Discarded nodes\ DECLARE LONG CONSTANT LAT$_ITM_MAX_DL_BUFFERS = 156 ! (conn) Maximum datalink buffersN DECLARE LONG CONSTANT LAT$_ITM_PRODUCT_TYPE = 157 ! (conn) Product type_ DECLARE LONG CONSTANT LAT$_ITM_REM_PRODUCT_VERSION = 158 ! (conn) Remote product versionQ DECLARE LONG CONSTANT LAT$_ITM_CTPRT_FRAMERR = 159 ! (port) Framing errorsO DECLARE LONG CONSTANT LAT$_ITM_CTPRT_PARERR = 160 ! (port) Parity errorsP DECLARE LONG CONSTANT LAT$_ITM_CTPRT_OVERRUN = 161 ! (port) Data overrunsl DECLARE LONG CONSTANT LAT$_ITM_CTPRO_INVCLASS = 162 ! (protocol) protocol error invalid service classn DECLARE LONG CONSTANT LAT$_ITM_CTPRO_EXCSTART = 163 ! (protocol) protocol error (excessive start slots)` DECLARE LONG CONSTANT LAT$_ITM_CTNOD_XSTR = 164 ! (node) Remote node too many START slots` DECLARE LONG CONSTANT LAT$_ITM_PASSWORD_FAILURES = 165 ! (service,port) Password failuresR DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ILLSAM = 166 ! (protocol) Illegal SAMsR DECLARE LONG CONSTANT LAT$_ITM_TYPEAHEAD = 167 ! (port) 1 = typeahd presentM DECLARE LONG CONSTANT LAT$_ITM_CTLAT_RMSG = 168 ! (link) LAT msgs rcvdN DECLARE LONG CONSTANT LAT$_ITM_CTLAT_RBYT = 169 ! (link) LAT bytes rcvdL DECLARE LONG CONSTANT LAT$_ITM_CTLAT_XMSG = 170 ! (link) LAT msgs xmtM DECLARE LONG CONSTANT LAT$_ITM_CTLAT_XBYT = 171 ! (link) LAT bytes xmt[ DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_RMSG = 172 ! (link) LAT multicast msgs rcvd\ DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_RBYT = 173 ! (link) LAT multicast bytes rcvdZ DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_XMSG = 174 ! (link) LAT multicast msgs xmt[ DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_XBYT = 175 ! (link) LAT multicast bytes xmtL DECLARE LONG CONSTANT LAT$_ITM_PATH_STATE = 176 ! Datalink path state[ DECLARE LONG CONSTANT LAT$_ITM_LARGE_BUFFERS = 177 ! Use of large buffers by defaulta DECLARE LONG CONSTANT LAT$_ITM_ANNOUNCEMENTS = 178 ! (node) Transmit service announcementsM DECLARE LONG CONSTANT LAT$_ITM_PORT_STATE = 179 ! (port) Current state\ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_BADUID = 180 ! (protocol) Invalid node UID event5 DECLARE LONG CONSTANT LAT$C_ITM_MAXSCALAR = 180f DECLARE LONG CONSTANT LAT$_ITM_IDENTIFICATION = 16640 ! Entity (node or service) identificationI DECLARE LONG CONSTANT LAT$_ITM_SERVICE_NAME = 16641 ! Service nameC DECLARE LONG CONSTANT LAT$_ITM_NODE_NAME = 16642 ! Node nameC DECLARE LONG CONSTANT LAT$_ITM_PORT_NAME = 16643 ! Port named DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_SERVICE_NAME = 16644 ! Port's connected service name^ DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_NODE_NAME = 16645 ! Port's connected node name^  DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_PORT_NAME = 16646 ! Port's connected port name^ DECLARE LONG CONSTANT LAT$_ITM_TARGET_SERVICE_NAME = 16647 ! Port's target service nameX DECLARE LONG CONSTANT LAT$_ITM_TARGET_NODE_NAME = 16648 ! Port's target node nameX DECLARE LONG CONSTANT LAT$_ITM_TARGET_PORT_NAME = 16649 ! Port's target port name] DECLARE LONG CONSTANT LAT$_ITM_SERVICE_GROUPS = 16650 ! Enabled service groups bitmaskW DECLARE LONG CONSTANT LAT$_ITM_U SER_GROUPS = 16651 ! Enabled user groups bitmaskC DECLARE LONG CONSTANT LAT$_ITM_LINK_NAME = 16652 ! Link nameQ DECLARE LONG CONSTANT LAT$_ITM_SERVICE_PASSWORD = 16653 ! Service passwordN DECLARE LONG CONSTANT LAT$_ITM_DEVICE_NAME = 16654 ! Link's device name_ DECLARE LONG CONSTANT LAT$_ITM_DATALINK_ADDRESS = 16655 ! 6-byte binary Ethernet address\ DECLARE LONG CONSTANT LAT$_ITM_PROTOCOL_VERSION = 16656 ! LAT protocol version stringY DECLARE LONG CONSTANT  LAT$_ITM_SVC_NODE_BLOCK = 16657 ! Subblock for SENSE SERVICEV DECLARE LONG CONSTANT LAT$_ITM_NODE_SVC_BLOCK = 16658 ! Subblock for SENSE NODE[ DECLARE LONG CONSTANT LAT$_ITM_DED_PORT_BLOCK = 16659 ! Subblock for dedicated portsN DECLARE LONG CONSTANT LAT$_ITM_COUNTERS = 16660 ! Subblock for counters\ DECLARE LONG CONSTANT LAT$_ITM_PROTOCOL_ERRORS = 16661 ! Subblock for protocol errors^ DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_LINK_NAME = 16662 ! Port's connected l ink nameW DECLARE LONG CONSTANT LAT$_ITM_HISTORY_ENTRY = 16663 ! Node history buffer entryJ DECLARE LONG CONSTANT LAT$_ITM_CONNECT_ID = 16664 ! Connect ID name[ DECLARE LONG CONSTANT LAT$_ITM_SESSION_BLOCK = 16665 ! Subblock for SENSE CONNECTIONV DECLARE LONG CONSTANT LAT$_ITM_QUEUED_ENTRY_ID = 16666 ! Queued entry ID stringY DECLARE LONG CONSTANT LAT$_ITM_LIM_PORT_BLOCK = 16667 ! subblock for limited ports^ DECLARE LONG CONSTANT LAT$_ITM_SERVICE_CLASSES = 1 6668 ! service class bitmask for nodeX DECLARE LONG CONSTANT LAT$_ITM_LAT_DEV_CTR_BLOCK = 16669 ! link LAT only countersT DECLARE LONG CONSTANT LAT$_ITM_PATH_BLOCK = 16670 ! Datalink path information7 DECLARE LONG CONSTANT LAT$C_ITM_MAXSTRING = 166700 DECLARE LONG CONSTANT LAT$S_ITEM_ENTRY = 6 record ITEM_ENTRY group LAT$R_ITM_CODE variant case% WORD LAT$W_ITEMCODE case& group LAT$R_ITM_BITSx WORD ITEMINDEX_bits ! COMMENT ADDED BY SDL - ITEMINDEX_bits contains bits ITEMINDEX through CLEAR* end group LAT$R_ITM_BITS end variant! end group LAT$R_ITM_CODE group LAT$R_ITEM_VALUE variant case1 group LAT$R_ITEM_COUNTED_STRING) BYTE LAT$B_ITEM_BCNTB STRING LAT$T_ITEM_STRING_VALUE ( 1 to 1 ) = 15  end group LAT$R_ITEM_COUNTED_STRING case. LONG LAT$L_ITEM_SCALAR_VALUE end variant# end group LAT$R_ITEM_VALUE end record ITEM_ENTRY . DECLARE LONG CONSTANT LAT$C_DISABLED = 0- DECLARE LONG CONSTANT LAT$C_ENABLED = 1) DECLARE LONG CONSTANT LAT$C_OFF = 0( DECLARE LONG CONSTANT LAT$C_ON = 1* DECLARE LONG CONSTANT LAT$C_SHUT = 20 DECLARE LONG CONSTANT LAT$M_FLUSH_DATA = 1M DECLARE LONG CONSTANT LAT$C_PT_FORWARD = 0 ! "Forward" connection portQ DECLARE LONG CONSTANT LAT$C_PT_INTERACTIVE = 1 ! Interactive incoming portH DECLARE LONG CONSTANT LAT$C_PT_APPLICATION = 2 ! Application portD DECLARE LONG CONSTANT LAT$C_PT_DEDICATED = 3 ! Dedicated port@ DECLARE LONG CONSTANT LAT$C_PT_LIMITED = 4 ! Limited portN DECLARE LONG CONSTANT LAT$C_PT_STATE_INACTIVE = 0 ! Idle, no connection] DECLARE LONG CONSTANT LAT$C_PT_STATE_CONNECTING = 1 ! Connection in progress, not doneH DECLARE LONG CONSTANT LAT$C_PT_STATE_ACTIVE = 2 ! Fully connectedY DECLARE LONG CONSTANT LAT$C_PT_STATE_DISCONNECTING = 3 ! In the disconnect process= DECLARE LONG CONSTANT LAT$C_NT_LOCAL = 0 ! My own node@ DECLARE LONG CONSTANT LAT$C_NT_REMOTE = 1 ! The other guyO DECLARE LONG CONSTANT LAT$C_ST_GENERAL = 0 ! General timesharing serviceK DECLARE LONG CONSTANT LAT$C_ST_APPLICATION = 1 ! Application serviceC DECLARE LONG CONST ANT LAT$C_ST_LIMITED = 2 ! Limited serviceD DECLARE LONG CONSTANT LAT$C_DYNAMIC = 0 ! Dynamic calculation< DECLARE LONG CONSTANT LAT$C_STATIC = 1 ! Fixed rating0 DECLARE LONG CONSTANT LAT$C_PS_WORKING = 00 DECLARE LONG CONSTANT LAT$C_PS_SUSPECT = 1/ DECLARE LONG CONSTANT LAT$C_PS_FAILED = 2K DECLARE LONG CONSTANT LAT$C_CN_UNKNOWN = 0 ! Unknown connection typeE DECLARE LONG CONSTANT LAT$C_CN_INCOMING = 1 ! Slave connectionF DECLARE LONG CONSTANT LAT$C_CN_OUTGOING = 2 ! Master connectionD DECLARE LONG CONSTANT LAT$C_UNREACHABLE = 0 ! Known not thereI DECLARE LONG CONSTANT LAT$C_UNKNOWN = 1 ! Haven't heard in a whileC DECLARE LONG CONSTANT LAT$C_REACHABLE = 2 ! I heard from himA DECLARE LONG CONSTANT LAT$C_UNAVAILABLE = 0 ! Can't get it> DECLARE LONG CONSTANT LAT$C_AVAILABLE = 1 ! It IS thereN DECLARE LONG CONSTANT LAT$C_SERVCLASS_INTERACTIVE = 1 ! SC1 = TTDRIVERR DECLARE LONG CONSTANT LAT$C_SERVCLASS_TESTSERVICE = 2 ! SC2 = TEST SERVICEP DECLARE LONG CONSTANT LAT$C_SERVCLASS_XTRANSPORT = 3 ! SC3 = X TransportF DECLARE LONG CONSTANT LAT$C_SERVCLASS_FONT = 4 ! SC4 = X Fonts0 DECLARE LONG CONSTANT LAT$S_LATSETBITS = 1 record LATSETBITS variant case& STRING LAT$T_FILLER = 0 case' STRING LAT$T_FILLER2 = 1 end variant end record LATSETBITS N DECLARE LONG CONSTANT LAT$C_RATING_VECTOR_LENGTH = 56 ! Size of vector1 DECLARE LONG CONSTANT LAT$S_RATING_VEC = 56 record RATING_VECI LONG LAT$A_CONTROL_INIT_RTN ! Address of controller initC LONG LAT$A_UNIT_INIT_RTN ! Address of init initT LONG LAT$A_RATING_INIT_RTN ! Address of initial call from LTDRIVERI LONG LAT$A_TIMER_RTN ! Routine called each secondM LONG LAT$A_CALC_RATING_RTN ! Routine that calculates ratingM LONG LAT$A_STOP_RTN ! Routine called at LAT shutdownD LONG LAT$A_SPARE1_RTN ! Expansion placeholderD LONG LAT$A_SPARE2_RTN ! Expansion placeholderD LONG LAT$A_SPARE3_RTN ! Expansion placeholderD LONG LAT$A_SPARE4_RTN ! Expansion placeholderD LONG LAT$A_SPARE5_RTN ! Expansion placeholderD LONG LAT$A_SPARE6_RTN ! Expansion placeholderD LONG LAT$A_SPARE7_RTN ! Expansion placeholderD LONG LAT$A_SPARE8_RTN ! Expansion placeholder end record RATING_VEC  wwe ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! LOCK MANAGER DEFINITIONS ! -6 DECLARE LONG CONSTANT LCK$M_VALBLK = x'00000001'7 DECLARE LONG CONSTANT LCK$M_CONVERT = x'00000002'7 DECLARE LONG CONSTANT LCK$M_NOQUEUE = x'00 000004'7 DECLARE LONG CONSTANT LCK$M_SYNCSTS = x'00000008'6 DECLARE LONG CONSTANT LCK$M_SYSTEM = x'00000010'7 DECLARE LONG CONSTANT LCK$M_NOQUOTA = x'00000020'6 DECLARE LONG CONSTANT LCK$M_CVTSYS = x'00000040'7 DECLARE LONG CONSTANT LCK$M_RECOVER = x'00000080'7 DECLARE LONG CONSTANT LCK$M_PROTECT = x'00000100'8 DECLARE LONG CONSTANT LCK$M_NODLCKWT = x'00000200'9 DECLARE LONG CONSTANT LCK$M_NODLCKBLK = x'00000400'8 DECLARE LONG CONSTANT LCK$M_ EXPEDITE = x'00000800'6 DECLARE LONG CONSTANT LCK$M_QUECVT = x'00001000'6 DECLARE LONG CONSTANT LCK$M_BYPASS = x'00002000'9 DECLARE LONG CONSTANT LCK$M_NOIOLOCK8 = x'00004000'6 DECLARE LONG CONSTANT LCK$M_NOFORK = x'00008000'7 DECLARE LONG CONSTANT LCK$M_XVALBLK = x'00010000'6 DECLARE LONG CONSTANT LCK$M_DEQALL = x'00000001'6 DECLARE LONG CONSTANT LCK$M_CANCEL = x'00000002'9 DECLARE LONG CONSTANT LCK$M_INVVALBLK = x'00000004'> DECLARE LONG CONST ANT LCK$M_RESV_NOIOLOCK8 = x'00004000'; DECLARE LONG CONSTANT LCK$M_RESV_NOFORK = x'00008000'< DECLARE LONG CONSTANT LCK$M_RESV_XVALBLK = x'00010000'6 DECLARE LONG CONSTANT LCK$K_NLMODE = 0 ! NULL A DECLARE LONG CONSTANT LCK$K_CRMODE = 1 ! CONCURRENT READ B DECLARE LONG CONSTANT LCK$K_CWMODE = 2 ! CONCURRENT WRITE @ DECLARE LONG CONSTANT LCK$K_PRMODE = 3 ! PROTECTED READ A DECLARE LONG CONSTANT LCK$K_PWMODE = 4 ! PROTECTED WRITE ; DECLARE LONG CONSTANT LCK$K_EXMODE = 5 ! EXCLUSIVE , DECLARE LONG CONSTANT LCK$S_LCKDEF = 3 record LCKDEF variant case' group LCK$R_LCKDEF_BITS0+ ! VALUE BLOCK INCLUDED ) ! CONVERSION REQUEST + ! DO NOT QUEUE REQUEST 3 ! SYNCHRONOUS STATUS REQUESTED " ! SYSTEM LOCK ( ! DON'T CHARGE QUOTA' ! CONVERT TO SYSTEM2  ! RECOVER LOCK DURING FAILOVER2 ! PROTECT LOCK DURING FAILOVER) ! NO DEADLOCK WAITING* ! NO DEADLOCK BLOCKING- ! EXPEDITE NLMODE REQUEST/ ! FORCE CONVERSION TO QUEUE- ! BYPASS WAITING REQUESTS6 ! DO NOT LOCK IOLOCK8 FOR CALLBACK< ! SAFE TO PERFORM OPERATION WITHOUT FORK0 ! LONG VALUE BLOCK INCLUDED  !! M ! IFBLKING bitfield mask; /* PERFORM CONVERSION IF BLOCKING ! o LONG VALBLK_bits ! COMMENT ADDED BY SDL - VALBLK_bits contains bits VALBLK through FILL_75_+ end group LCK$R_LCKDEF_BITS0 case' group LCK$R_LCKDEF_BITS1( ! DEQUEUE ALL LOCKS $ ! CANCEL REQUEST, ! INVALIDATE VALUE BLOCK* ! RESERVE NEXT 11 BITS6 ! DO NOT LOCK IOLOCK8 FOR CALLBACK< ! SAFE TO PERFORM OPERATION WITHOUT FORK0 ! LONG VALUE BLOCK INCLUDED o LONG DEQALL_bits ! COMMENT ADDED BY SDL - DEQALL_bits contains bits DEQALL through FILL_76_+ end group LCK$R_LCKDEF_BITS1 ! LOCK MODES  end variant end record LCKDEF  ww#f %DEFINE LDIO LONG ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF <$ %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARE%D ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %E&ND %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  / DECLARE LONG CONSTANT IO$_LD_CONTROL = 20. DECLARE LONG CONSTANT LDIO$K_CONNECT = 01 DECLARE LONG CONSTANT LDIO$K_DISCONNECT = 13 DECLARE LONG CONSTANT LDIO$K_ENABLE_TRAC 'E = 24 DECLARE LONG CONSTANT LDIO$K_DISABLE_TRACE = 30 DECLARE LONG CONSTANT LDIO$K_GET_TRACE = 42 DECLARE LONG CONSTANT LDIO$K_RESET_TRACE = 55 DECLARE LONG CONSTANT LDIO$K_GET_CONNECTION = 6/ DECLARE LONG CONSTANT LDIO$K_SET_SEED = 73 DECLARE LONG CONSTANT LDIO$K_ENABLE_WATCH = 84 DECLARE LONG CONSTANT LDIO$K_DISABLE_WATCH = 91 DECLARE LONG CONSTANT LDIO$K_GET_WATCH = 104 DECLARE LONG CONSTANT LDIO$K_RESUME_WATCH = 118 DECLARE LONG CON (STANT LDIO$K_GET_SUSPEND_LIST = 126 DECLARE LONG CONSTANT LDIO$K_ENABLE_PROTECT = 137 DECLARE LONG CONSTANT LDIO$K_DISABLE_PROTECT = 145 DECLARE LONG CONSTANT LDIO$K_SET_ALLOCLASS = 15< DECLARE LONG CONSTANT LDIO$K_GET_TRACE_PARAMETERS = 163 DECLARE LONG CONSTANT LDIO$K_GET_VERSION = 174 DECLARE LONG CONSTANT LDIO$K_GET_METADATA = 18, DECLARE LONG CONSTANT LDIO$K_LOAD = 19. DECLARE LONG CONSTANT LDIO$K_UNLOAD = 208 DECLARE LONG CONSTANT LDIO$M_R )EPLACE = x'00000100'6 DECLARE LONG CONSTANT LDIO$M_ABORT = x'00000200'8 DECLARE LONG CONSTANT LDIO$M_INQUIRE = x'00000400'7 DECLARE LONG CONSTANT LDIO$M_NOWAIT = x'00000800'6 DECLARE LONG CONSTANT LDIO$M_RESET = x'00001000'6 DECLARE LONG CONSTANT LDIO$M_SHARE = x'00002000'9 DECLARE LONG CONSTANT LDIO$M_ACCURATE = x'00004000'9 DECLARE LONG CONSTANT LDIO$M_FDTTRACE = x'00008000'4 DECLARE LONG CONSTANT LDIO$M_LBN = x'00010000'9 DECLARE LONG CONSTAN *T LDIO$M_OVERRIDE = x'00020000'5 DECLARE LONG CONSTANT LDIO$M_LOCK = x'00040000'5 DECLARE LONG CONSTANT LDIO$M_NOFE = x'00080000'5 DECLARE LONG CONSTANT LDIO$M_INIT = x'00100000': DECLARE LONG CONSTANT LDIO$M_TRACE_ALL = x'00200000'5 DECLARE LONG CONSTANT LDIO$M_KEEP = x'00400000'9 DECLARE LONG CONSTANT LDIO$M_LOADONLY = x'00800000'7 DECLARE LONG CONSTANT LDIO$M_NOLOAD = x'01000000'7 DECLARE LONG CONSTANT LDIO$M_EXTEND = x'02000000'9 DECLAR +E LONG CONSTANT LDIO$M_TRUNCATE = x'04000000'9 DECLARE LONG CONSTANT LDIO$M_ITEMLIST = x'08000000'+ DECLARE LONG CONSTANT LDIO$S_LDIO = 4 / DECLARE LONG CONSTANT LDITM$K_CHANNEL = 12 DECLARE LONG CONSTANT LDITM$K_EXTENDSIZE = 23 DECLARE LONG CONSTANT LDITM$K_EXTENDLIMIT = 32 DECLARE LONG CONSTANT LDITM$K_DEVICENAME = 4. DECLARE LONG CONSTANT LDITM$K_FILEID = 50 DECLARE LONG CONSTANT LDITM$K_STARTLBN = 6. DECLARE LONG CONSTANT LDITM$K_ENDL ,BN = 7- DECLARE LONG CONSTANT LDITM$K_FLAGS = 8. DECLARE LONG CONSTANT LDITM$K_TRACKS = 92 DECLARE LONG CONSTANT LDITM$K_CYLINDERS = 100 DECLARE LONG CONSTANT LDITM$K_SECTORS = 112 DECLARE LONG CONSTANT LDITM$K_MAXBLOCKS = 121 DECLARE LONG CONSTANT LDRSN$K_NOTSHARED = 1/ DECLARE LONG CONSTANT LDRSN$K_NOSHARE = 21 DECLARE LONG CONSTANT LDRSN$K_ALLOCLASS = 32 DECLARE LONG CONSTANT LDRSN$K_UNITNUMBER = 4. DECLARE LONG CONSTANT LDRSN$K_TRACKS - = 5/ DECLARE LONG CONSTANT LDRSN$K_SECTORS = 61 DECLARE LONG CONSTANT LDRSN$K_CYLINDERS = 70 DECLARE LONG CONSTANT LDRSN$K_MAXBLOCK = 80 DECLARE LONG CONSTANT LDRSN$K_NOLBNMAP = 91 DECLARE LONG CONSTANT LDRSN$K_STARTLBN = 103 DECLARE LONG CONSTANT LDRSN$K_DEVICENAME = 114 DECLARE LONG CONSTANT LDRSN$K_NOTREPLACED = 123 DECLARE LONG CONSTANT LDRSN$K_RANGEINUSE = 134 DECLARE LONG CONSTANT LDRSN$K_FILEIDINUSE = 142 DECLARE LONG CONSTANT LD.RSN$K_INCMPPROT = 155 DECLARE LONG CONSTANT LDRSN$K_INCMPDEVTYPE = 16/ DECLARE LONG CONSTANT LDTRC$C_LENGTH = 88/ DECLARE LONG CONSTANT LDTRC$K_LENGTH = 882 DECLARE LONG CONSTANT LDTRC$S_TRACE_ENT = 88 record TRACE_ENT LONG LDTRC$L_PID LONG LDTRC$L_LBN LONG LDTRC$L_BCNT WORD LDTRC$W_FUNC WORD LDTRC$W_RESERVED% LONG LDTRC$L_IOSB ( 1 to 2 )" group LDTRC$R_STIME_UNION variant / case3 BASIC$QUADWORD LDTRC$Q_START_TIME case) LONG LDTRC$L_START_TIME end variant& end group LDTRC$R_STIME_UNION" group LDTRC$R_ETIME_UNION variant case1 BASIC$QUADWORD LDTRC$Q_END_TIME case' LONG LDTRC$L_END_TIME end variant& end group LDTRC$R_ETIME_UNION) BASIC$QUADWORD LDTRC$Q_START_SCC' 0 BASIC$QUADWORD LDTRC$Q_END_SCC LONG LDTRC$L_STARTCPU LONG LDTRC$L_ENDCPU$ group LDTRC$R_ELAPSED_UNION variant case0 BASIC$QUADWORD LDTRC$Q_ELAPSED case& LONG LDTRC$L_ELAPSED end variant( end group LDTRC$R_ELAPSED_UNION* BASIC$QUADWORD LDTRC$Q_START_USEC( BASIC$QUADWORD LDTRC$Q_END_USEC end record TRACE_ENT 7 DECLARE LONG CON 1STANT LDWTC$M_CHARS = x'0000007F'7 DECLARE LONG CONSTANT LDWTC$M_NOLBN = x'00000001'6 DECLARE LONG CONSTANT LDWTC$M_FILE = x'00000002'; DECLARE LONG CONSTANT LDWTC$M_FILE_CHAN = x'00000004'< DECLARE LONG CONSTANT LDWTC$M_REMOVE_ALL = x'00000080'/ DECLARE LONG CONSTANT LDWTC$C_SUSPEND = 0- DECLARE LONG CONSTANT LDWTC$C_CRASH = 1- DECLARE LONG CONSTANT LDWTC$C_ERROR = 2- DECLARE LONG CONSTANT LDWTC$C_OPCOM = 3+ DECLARE LONG CONSTANT LDWTC$C_MA2X = 3/ DECLARE LONG CONSTANT LDWTC$C_LENGTH = 22/ DECLARE LONG CONSTANT LDWTC$K_LENGTH = 220 DECLARE LONG CONSTANT LDWTC$S_WATCHPT = 22 record WATCHPT LONG LDWTC$L_LBN group LDWTC$R_FILL_78_ variant case$ WORD LDWTC$W_FLAGS case( group LDWTC$R_FILL_79_) group LDWTC$R_FLAGS1 variant caser 3 BYTE CHARS_bits ! COMMENT ADDED BY SDL - CHARS_bits contains bits CHARS through CHARS case/ group LDWTC$R_FLAGS2z BYTE NOLBN_bits ! COMMENT ADDED BY SDL - NOLBN_bits contains bits NOLBN through REMOVE_ALL3 end group LDWTC$R_FLAGS2# end variant- end group LDWTC$R_FLAGS1, end group LDWTC$R_FILL_79_ 4 end variant# end group LDWTC$R_FILL_78_ WORD LDWTC$W_ACTION WORD LDWTC$W_FUNC WORD LDWTC$W_RETCODE group LDWTC$R_SBK_FCB variant case# WORD LDWTC$W_CHAN case" LONG LDWTC$A_SBK case" LONG LDWTC$A_FCB end variant" end group LDWTC$R_SBK_FCB group LDWTC$R_FIDAREA1 variant 5 case- WORD LDWTC$W_FID ( 1 to 3 ) case( group LDWTC$R_FIDAREA2) WORD LDWTC$W_FID_NUM) WORD LDWTC$W_FID_SEQ) WORD LDWTC$W_FID_RVN, end group LDWTC$R_FIDAREA2 end variant# end group LDWTC$R_FIDAREA1 end record WATCHPT 0 DECLARE LONG CONSTANT LDSUSP$C_LENGTH = 160 DECLARE LONG CONSTANT LDSUSP$K_LENGTH = 166 DECLAR E LONG CONSTANT LDSUSP$S_SUSPEND_LIST = 16 record SUSPEND_LIST LONG LDSUSP$L_PID LONG LDSUSP$L_LBN WORD LDSUSP$W_FLAGS WORD LDSUSP$W_ACTION WORD LDSUSP$W_FUNC WORD LDSUSP$W_RETCODE end record SUSPEND_LIST  ww7( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN8G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 9 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  + ! Interface definitions for LIB$*_FILE ! % ! LIB$FIND_FILE flag definitionsJ DECLARE LONG CONSTANT LIB$M_FIL_NOWILD = 1 ! No wild carding allowK DECLARE LONG CONSTANT LIB$M_FIL_MULTIPLE: = 2 ! Multiple input files' ! LIB$RENAME_FILE flag definitionsJ DECLARE LONG CONSTANT LIB$M_FIL_CUR_VER = 1 ! Current version usedH DECLARE LONG CONSTANT LIB$M_FIL_INH_SECUR = 2 ! Inherit securityH ! LIB$DELETE_FILE ? LIB$FIND_FILE ? LIB$RENAME_FILE flag definitionO DECLARE LONG CONSTANT LIB$M_FIL_LONG_NAMES = 4 ! Handle long file namesY DECLARE LONG CONSTANT LIB$M_FIL_IGNORE_ACCESS = 8 ! Ignore write access on delete^ DECLARE LONG CONSTANT LIB$M_;FIL_OPEN_SPECIAL = 16 ! Correspands to NAML$V_OPEN_SPECIALU ! NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF,+ ! $LIBFILDEF, $PPROPDEF, and $NAMLDEF.Q DECLARE LONG CONSTANT LIB$M_FIL_SYMLINK_DEFAULT = 0 ! use process defaultK DECLARE LONG CONSTANT LIB$M_FIL_SYMLINK_NONE = 32 ! use no symlinksN DECLARE LONG CONSTANT LIB$M_FIL_SYMLINK_ALL = 64 ! use symlinks always_ DECLARE LONG CONSTANT LIB$M_FIL_SYMLINK_NOELLIPS = 96 ! use symlinks except in ellipsis ww=^p. ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED >( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN?G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > @ %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  6 ! Interface definitions for LIB$FIND_IMAGE_SYMBOL ! - ! LIB$FIND_IMAGE_SYMBOL flag definitions< DECLARE LONG CONSTANT LIB$M_FIS_PARANOID = x'00000001'> DECLARE LONG CONSTANT LIB$M_FIS_NOTR AANSLOG = x'00000008'= DECLARE LONG CONSTANT LIB$M_FIS_MIXEDCASE = x'00000010'9 DECLARE LONG CONSTANT LIB$M_FIS_TV_AV = x'00000020'3 DECLARE LONG CONSTANT LIB$S_LIB$FIS_FLAGS = 1 record LIB$FIS_FLAGS. ! Force paranoid bit on for $IMGACT3 ! $IMGACT lookup on untranslated logical ! Mixed case symbols. ! Append "_TV_AV" to the image namex BYTE FIS_PARANOID_bits ! COMMENT ADDED BY SDL - FIS_PARANOID_bits contains bits FIS_PARANOID through FILL_80_ end record LIB$FIS_FLAGS  wwC.N5 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED D( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINEG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > F %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  ) ! Interface definitions for LIB$WAIT ! N ! LIB$WAIT floating-point format codes (must equal CVT$K_VAX_F,... codes)M DECLARE LONG CONSTANT LIB$K_VAX_F = 0 ! VAX F Floating point dataM G DECLARE LONG CONSTANT LIB$K_VAX_D = 1 ! VAX D Floating point dataM DECLARE LONG CONSTANT LIB$K_VAX_G = 2 ! VAX G Floating point dataM DECLARE LONG CONSTANT LIB$K_VAX_H = 3 ! VAX H Floating point dataN DECLARE LONG CONSTANT LIB$K_IEEE_S = 4 ! IEEE S Floating point dataN DECLARE LONG CONSTANT LIB$K_IEEE_T = 5 ! IEEE T Floating point data" ! LIB$WAIT option definitionsI DECLARE LONG CONSTANT LIB$K_WAKE = 0 ! WAKE option, interruptableQ DECLARE LONG CONSTANT LIB$K_NOWAKE = 1 ! NOWAKE option, non-interruptable wwI+<%DEFINE logtyp$flags LONG ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IFJ < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF K%DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1L %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! Entry type definitions ! K DECLARE LONG CONSTANT LOGTYP$C_SS_ENTRY = 0 ! Standard service entryI DECLARE LONG CONSTANT LOGTYP$C_SS_EXIT = 1 ! Standard sMervice exitL DECLARE LONG CONSTANT LOGTYP$C_PS_ENTRY = 2 ! Protected service entryJ DECLARE LONG CONSTANT LOGTYP$C_PS_EXIT = 3 ! Protected service exitC DECLARE LONG CONSTANT LOGTYP$C_STARTUP = 4 ! Startup logging= DECLARE LONG CONSTANT LOGTYP$C_STOP = 5 ! Stop loggingR DECLARE LONG CONSTANT LOGTYP$C_UNLOAD = 6 ! Stop logging and delete buffers[ DECLARE LONG CONSTANT LOGTYP$C_FILE_OPENED = 7 ! Internal file open kernel mode part/ DECLARE LONG CONSTANT LOGTYP$C_EOBUF = -17 DECLARE LONG CONSTANT LOGTYP$M_ARGS = x'00000001'7 DECLARE LONG CONSTANT LOGTYP$M_FILE = x'00000002'5 DECLARE LONG CONSTANT LOGTYP$s_logtyp$flags = 4  wwOD ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED P( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINQG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > R %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! 7 ! Get Lock Information Data Identifier Definitions !  ! **** NOTE ****H ! The LKIDEF structure is defined multiple times to accomidate C? ! J ! New items caSn not be added to the end of LKIDEF or LKIDEF_BRE ! since this require all users to re-link. GETLKI can return @ ! multiples of these structures concatenated and thus anyG ! new items returned should really be placed in a new structure. ! -] DECLARE LONG CONSTANT LKI$K_LENGTH = 24 ! LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFO] DECLARE LONG CONSTANT LKI$C_LENGTH = 24 ! LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFO] DECLARE LONG CONSTANT LKI$K_BR_LENGT TH = 56 ! LENGTH OF LIST BLOCK WITH BYTE RANGE INFO] DECLARE LONG CONSTANT LKI$C_BR_LENGTH = 56 ! LENGTH OF LIST BLOCK WITH BYTE RANGE INFO- DECLARE LONG CONSTANT LKI$S_LKIDEF = 56 record LKIDEF group LKI$R_U1 variant case? LONG LKI$L_MSTLKID ! LOCK ID ON MASTER case8 LONG LKI$L_LOCKID ! OLD SYMBOL end variant end group LKI$R_U18 LONG ULKI$L_PID ! PROCESS ID group LKI$R_U2 variant case< LONG LKI$L_MSTCSID ! CSID OF MASTER case8 LONG LKI$L_SYSID ! OLD SYMBOL end variant end group LKI$R_U2: BYTE LKI$B_RQMODE ! REQUEST MODE: BYTE LKI$B_GRMODE ! GRANTED MODE8 BYTE LKI$B_QUEUE ! LOCK QUEUE8 BYTE LKVI$$$_SPARE ! SPARE BYTE group LKI$R_U3 variant caseF LONG LKI$L_LKID ! LOCK ID ON PROCESS NODE  case8 LONG LKI$L_REMLKID ! OLD SYMBOL end variant end group LKI$R_U3 group LKI$R_U4 variant caseC LONG LKI$L_CSID ! CSID OF PROCESS NODE  case8 LONG L WKI$L_REMSYSID ! OLD SYMBOL end variant end group LKI$R_U4B BASIC$QUADWORD LKI$Q_RQSTART ! REQUEST RANGE STARTC BASIC$QUADWORD LKI$Q_RQLENGTH ! REQUEST RANGE LENGTHB BASIC$QUADWORD LKI$Q_GRSTART ! GRANTED RANGE STARTC BASIC$QUADWORD LKI$Q_GRLENGTH ! GRANTED RANGE LENGTH end record LKIDEF  ! DEFINE NAMSPACE FIELDS6 DECLARE LONG CONSTANT LKI$M_SYSNAM = x'80000000'. DECLARE LONG C XONSTANT LKI$S_NAMSPACE = 4 record NAMSPACE# group LKI$R_NAMSPACE_UNION variant case- group LKI$R_NAMSPACE_FIELDS@ WORD LKI$W_GROUP ! GROUP OF OWNER UICD BYTE LKI$B_RMOD ! ACCESS MODE OF REQUEST@ BYTE LKI$B_STATUS ! STATUS OF RESOURCE1 end group LKI$R_NAMSPACE_FIELDS case) group LKI$R_STATUS_BITS Y ! SPARE( ! SYSTEM WIDE RSBj LONG FILL_bits ! COMMENT ADDED BY SDL - FILL_bits contains bits FILL through SYSNAM- end group LKI$R_STATUS_BITS end variant' end group LKI$R_NAMSPACE_UNION end record NAMSPACE  ! DEFINE STATE FIELDS, DECLARE LONG CONSTANT LKI$S_STATEF = 3 record STATEF: BYTE LKI$B_STATE_RQMODE ! REQUEST MODE: BYTE LKI$B_ST ZATE_GRMODE ! GRANTED MODE= BYTE LKI$B_STATE_QUEUE ! LOCK STATE CODE end record STATEF 0 DECLARE LONG CONSTANT LKIUSR$K_LENGTH = 200 DECLARE LONG CONSTANT LKIUSR$C_LENGTH = 20k DECLARE LONG CONSTANT LKIUSR$K_BLOCKER_START = 20 ! OFFSET TO THE START OF THE RETURNED INFORMATION3 DECLARE LONG CONSTANT LKIUSR$S_LKIUSRDEF = 20 record LKIUSRDEFK BASIC$QUADWORD LKIUSR$Q_START ! START OF THE REQUESTED RANGEL [ BASIC$QUADWORD LKIUSR$Q_LENGTH ! LENGTH OF THE REQUESTED RANGE= BYTE LKIUSR$B_RQMODE ! REQUESTED MODE` BYTE LKIUSR$B_IGNORE_OWN ! FLAG TO IGNORE LOCKS OWNED BY THE CALLING PROCESS7 WORD LKI$$_FILL_1 ! reserved end record LKIUSRDEF 2 DECLARE LONG CONSTANT LKI$_RNG_S_RNGDEF = 32 record RNGDEFB BASIC$QUADWORD LKI$_RNG_Q_RQSTART ! REQUEST RANGE STARTD BASIC$QUADWORD LKI$_RNG_Q_RQL \ENGTH ! REQUEST RANGE LENGTHB BASIC$QUADWORD LKI$_RNG_Q_GRSTART ! GRANTED RANGE STARTD BASIC$QUADWORD LKI$_RNG_Q_GRLENGTH ! GRANTED RANGE LENGTH end record RNGDEF  ! LOCK STATE CODE VALUES9 DECLARE LONG CONSTANT LKI$C_GRANTED = 1 ! GRANTED< DECLARE LONG CONSTANT LKI$C_CONVERT = 0 ! CONVERSION: DECLARE LONG CONSTANT LKI$C_WAITING = -1 ! WAITING> DECLARE LONG CONSTANT LKI$C_RETRY = -2 ! RETRY REQUEST; DECLARE LONG CONSTANT ]LKI$C_SCSWAIT = -3 ! SCS WAITH DECLARE LONG CONSTANT LKI$C_RSPNOTQED = -4 ! RESPONSE NOT QUEUEDD DECLARE LONG CONSTANT LKI$C_RSPQUEUED = -5 ! RESPONSE QUEUEDE DECLARE LONG CONSTANT LKI$C_RSPGRANTD = -6 ! RESPONSE GRANTEDH DECLARE LONG CONSTANT LKI$C_RSPDOLOCL = -7 ! RESPONSE DO LOCALLYD DECLARE LONG CONSTANT LKI$C_RSPRESEND = -8 ! RESPONSE RESEND ! DEFINE TABLE NUMBERS & ! STRUCTURE CODES MUST START AT 1> DECLARE LONG CONSTANT LKI$C_LKBTYPE ^= 1 ! ITEM IN LKB = DECLARE LONG CONSTANT LKI$C_RSBTYPE = 2 ! ITEM IN RSBK DECLARE LONG CONSTANT LKI$C_LISTEND = 0 ! DEFINE ITMLST TERMINATOR  ! ITEM IDENTIFIERS FOR LKB9 DECLARE LONG CONSTANT LKI$_PID = 256 ! PROCESS IDC DECLARE LONG CONSTANT LKI$_STATE = 257 ! CURRENT LOCK STATEC DECLARE LONG CONSTANT LKI$_PARENT = 258 ! ID OF PARENT LOCKM DECLARE LONG CONSTANT LKI$_LCKREFCNT = 259 ! SUB-LOCK REFERENCE COUNT9 DECLARE LONG CONSTANT _LKI$_LOCKID = 260 ! LOCK IDA DECLARE LONG CONSTANT LKI$_REMLKID = 261 ! REMOTE LOCK IDM DECLARE LONG CONSTANT LKI$_MSTLKID = 262 ! LOCK ID ON RESOURCE MASTERG DECLARE LONG CONSTANT LKI$_LKID = 263 ! LOCK ID ON PROCESS NODED DECLARE LONG CONSTANT LKI$_CSID = 264 ! CSID OF PROCESS NODEL DECLARE LONG CONSTANT LKI$_BRL = 265 ! IS THE LOCK A BYTE RANGE LOCK- ! * , TSKID /* TASK ID FOR MULTITASKA DECLARE LONG CONSTANT LKI$_RANGE = 266 ! Range o `f requestJ DECLARE LONG CONSTANT LKI$_LASTLKB = 267 ! MAX INDEX IN LKB TABLE  ! ITEM IDENTIFIERS FOR RSBG DECLARE LONG CONSTANT LKI$_NAMSPACE = 512 ! RESOURCE NAME SPACE? DECLARE LONG CONSTANT LKI$_RESNAM = 513 ! RESOURCE NAMEQ DECLARE LONG CONSTANT LKI$_RSBREFCNT = 514 ! SUB-RESOURCE REFERENCE COUNT= DECLARE LONG CONSTANT LKI$_VALBLK = 515 ! VALUE BLOCKS DECLARE LONG CONSTANT LKI$_SYSTEM = 516 ! SYSTEM ID OF SYSTEM WITH RESOURCEN DECLaARE LONG CONSTANT LKI$_LCKCOUNT = 517 ! COUNT OF LOCKS ON RESOURCEZ DECLARE LONG CONSTANT LKI$_BLOCKEDBY = 518 ! LIST OF LOCKS BLOCKED BY CURRENT LOCKW DECLARE LONG CONSTANT LKI$_BLOCKING = 519 ! LIST OF LOCKS BLOCKING CURRENT LOCKN DECLARE LONG CONSTANT LKI$_LOCKS = 520 ! LIST OF ALL LOCKS ON RESOURCEV DECLARE LONG CONSTANT LKI$_CVTCOUNT = 521 ! COUNT OF LOCKS ON CONVERSION QUEUER DECLARE LONG CONSTANT LKI$_WAITCOUNT = 522 ! COUNT OF LOCKS ON WAIT QUEUE T b DECLARE LONG CONSTANT LKI$_GRANTCOUNT = 523 ! COUNT OF LOCKS ON GRANT QUEUE J DECLARE LONG CONSTANT LKI$_MSTCSID = 524 ! CSID OF RESOURCE MASTERF DECLARE LONG CONSTANT LKI$_VALBLKST = 525 ! VALUE BLOCK STATUSn DECLARE LONG CONSTANT LKI$_BLOCKEDBY_BR = 526 ! LIST OF LOCKS BLOCKED BY CURRENT LOCK WITH BYTE RANGESo DECLARE LONG CONSTANT LKI$_BLOCKING_BR = 527 ! LIST OF LOCKS BLOCKING THE CURRENT LOCK WITH BYTE RANGESj DECLARE LONG CONSTANT LKI$_LOCKS_BR = 528 c ! LIST OF LOCKS ALL LOCKS ON A RESOURCE WITH BYTE RANGESg DECLARE LONG CONSTANT LKI$_BLOCKER_BR = 529 ! LOCK THAT WILL BLOCK THE REQUESTED RANGE AND MODEG DECLARE LONG CONSTANT LKI$_XVALBLK = 530 ! EXTENDED VALUE BLOCKX DECLARE LONG CONSTANT LKI$_XVALNOTVALID = 531 ! VALIDITY OF EXTENDED VALUE BLOCKd DECLARE LONG CONSTANT LKI$_LASTRSB = 532 ! MAX INDEX IN RSB (MUST BE LAST internal use only)D DECLARE LONG CONSTANT LKISND$K_HDRLEN = 16 ! LENGTH OF HEADERD d DECLARE LONG CONSTANT LKISND$C_HDRLEN = 16 ! LENGTH OF HEADER3 DECLARE LONG CONSTANT LKISND$S_LKISNDDEF = 16 record LKISNDDEFP ! Format for local system buffer header when sending an information request ! to a remote system.B WORD LKISND$W_RETSIZE ! size of return infoB WORD LKISND$W_STATUS ! status of operation4 WORD LKISND$W_FLAGS ! flags< WORD LKISND$W_SEQNUM ! rebuild seqnm@ WORD LKISND$W_SIZE ! size of structure? BYTE LKISND$B_TYPE ! type of stucture. BYTE LKISND$B_FILL_2 ! ? BYTE LKISND$B_ITEM_LENGTH ! len of item info. BYTE LKISND$B_FILL_3 ! . WORD LKISND$W_FILL_4 !  end record LKISNDDEF  wwfnK ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED g( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINhG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > i %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! Define Lock Status Block ! -, DECLARE LONG CONSTANT LKSB$S_LKSB = 24 record LKSB5 WORD LKSB$W_STATUS ! Status7 WORD LKSB$W_RESERVED j ! ReservedB LONG LKSB$L_LKID ! Lock identificationB BYTE LKSB$B_VALBLK ( 1 to 16 ) ! Lock value block end record LKSB A DECLARE LONG CONSTANT LKSB$K_LENGTH = 24 ! Length of LKSBA DECLARE LONG CONSTANT LKSB$C_LENGTH = 24 ! Length of LKSB. DECLARE LONG CONSTANT XLKSB$S_XLKSB = 72 record XLKSB5 WORD XLKSB$W_STATUS ! Status7 WORD XLKSB$W_RESERVED ! ReservedB  LONG XLKSB$L_LKID ! Lock identificationB BYTE XLKSB$B_XVALBLK ( 1 to 64 ) ! Lock value block end record XLKSB C DECLARE LONG CONSTANT XLKSB$K_LENGTH = 72 ! Length of XLKSBC DECLARE LONG CONSTANT XLKSB$C_LENGTH = 72 ! Length of XLKSB wwl^S ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED m( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINnG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > o %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  / DECLARE LONG CONSTANT LMF$_PROD_TOKEN = 1* DECLARE LONG CONSTANT LMF$_HW_ID = 21 DECLARE LONG CONSTANT LMF$_PROD_VERSION = 3. DECLARE LONG CONSTANT LMF$_PROD_DATE = 40 DECLARE LONG CON pSTANT LMF$_CHARGE_TYPE = 51 DECLARE LONG CONSTANT LMF$_UNITS_IN_USE = 6- DECLARE LONG CONSTANT LMF$_USERNAME = 70 DECLARE LONG CONSTANT LMF$_CHECK_TOKEN = 8/ DECLARE LONG CONSTANT LMF$_CHECK_HWID = 90 DECLARE LONG CONSTANT LMF$_NO_RELEASE = 100 DECLARE LONG CONSTANT LMF$C_PRDNAMLEN = 240 DECLARE LONG CONSTANT LMF$K_PRDNAMLEN = 241 DECLARE LONG CONSTANT LMF$C_PRDUCERLEN = 241 DECLARE LONG CONSTANT LMF$K_PRDUCERLEN = 241 DECLARE LONG CONST qANT LMF$C_CONTEXTLEN = 161 DECLARE LONG CONSTANT LMF$K_CONTEXTLEN = 16/ DECLARE LONG CONSTANT LMF$C_TOKENLEN = 31/ DECLARE LONG CONSTANT LMF$K_TOKENLEN = 31/ DECLARE LONG CONSTANT LMF$C_HW_IDLEN = 31/ DECLARE LONG CONSTANT LMF$K_HW_IDLEN = 310 DECLARE LONG CONSTANT LMF$C_VERSIONLEN = 40 DECLARE LONG CONSTANT LMF$K_VERSIONLEN = 4- DECLARE LONG CONSTANT LMF$K_DATELEN = 8- DECLARE LONG CONSTANT LMF$C_DATELEN = 8? DECLARE LONG CONSTANT LM rF$M_RETURN_FAILURES = x'00000001'B DECLARE LONG CONSTANT LMF$M_BROADCAST_FAILURES = x'00000002'? DECLARE LONG CONSTANT LMF$M_OUTPUT_FAILURES = x'00000004'< DECLARE LONG CONSTANT LMF$M_KERNEL_GRANT = x'00000008'D DECLARE LONG CONSTANT LMF$M_LOOKUP_LICENSE_SPARE = x'FFFFFFF0'1 DECLARE LONG CONSTANT LMF$s_dvspm_masks = 4 record dvspm_masks& ! return status .vs. signal ! do an OPCOM ! do a PUTMSG! ! grant in kernel mode ! spare area{ LONG RETURN_FAILURES_bits ! COMMENT ADDED BY SDL - RETURN_FAILURES_bits contains bits RETURN_FAILURES through & ! LOOKUP_LICENSE_SPARE end record dvspm_masks  ww8 $MAPPINGDEF$MHDDEF$MHDEFH $MMEMSGDEF$MMIDEF$MNTDEF$MOUNDEF$MSGDEF& $MSGHLPDEF>$MT2DEFF$MT3DEF,$MTADEF1$MTDEF$MTHDEFM $NAMDEF$NCSDEFU$NETDEFZ$NSADEF( $NSAMSGDEF $NSARECDEFw $OBJRECDEFunZ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED v( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINwG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > x %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  8 DECLARE LONG CONSTANT LNM$M_NO_ALIAS = x'00000001'7 DECLARE LONG CONSTANT LNM$M_CONFINE = x'00000002'6 DECLARE LONG CONSTANT LNM$M_CRELOG = x'00000004'5 DECLARE LONG CONSTANT LNM$M_TABLE = x' y00000008'9 DECLARE LONG CONSTANT LNM$M_CONCEALED = x'00000100'8 DECLARE LONG CONSTANT LNM$M_TERMINAL = x'00000200'6 DECLARE LONG CONSTANT LNM$M_EXISTS = x'00000400'9 DECLARE LONG CONSTANT LNM$M_SHAREABLE = x'00010000'; DECLARE LONG CONSTANT LNM$M_CLUSTERWIDE = x'00020000'; DECLARE LONG CONSTANT LNM$M_DCL_REQUEST = x'00040000'9 DECLARE LONG CONSTANT LNM$M_CREATE_IF = x'01000000': DECLARE LONG CONSTANT LNM$M_CASE_BLIND = x'02000000'; DECLARE LO zNG CONSTANT LNM$M_INTERLOCKED = x'04000000'< DECLARE LONG CONSTANT LNM$M_LOCAL_ACTION = x'08000000', DECLARE LONG CONSTANT LNM$S_LNMDEF = 4 record LNMDEF* ! Logical name attributes -- bits 0-7* ! Do not allow outer mode alias( ! Do not copy into subprocess- ! Created with old $CRELOG service! ! This is a table name' ! Fill out logical name byte7 ! Logical name translation attributes -- bits 8-151 ! Do {not display result of translation5 ! Do not retranslate result of translation1 ! Translation does exist at this index& ! Fill out translation byte7 ! Logical name table characteristics -- bits 16-237 ! Logical name table is shareable (S0 space)3 ! This is a clusterwide table (or name) 5 ! Only supported as returned $TRNLNM attribute3 ! $CRELNM or $CRELNT request made by DCL' ! Reserved bit numbers 18-19 | ! Fill out table byte+ ! System service options -- bits 24-313 ! May map to existing logical name table1 ! Perform case-insensitive translationB ! Translate clusterwide name with LNM$CWLOGICALS locked5 ! A local operation on a clusterwide name 7 ! done in response to a request from another node' ! Only supported from kernel mode" ! Fill out options bytej LONG NO_ALIAS_bits ! COMMENT ADDED BY SDL - NO_AL}IAS_bits contains bits NO_ALIAS through FILL_4 end record LNMDEF p DECLARE LONG CONSTANT LNM$C_TABNAMLEN = 31 ! Maximum length of a name contained within a directory table_ DECLARE LONG CONSTANT LNM$C_NAMLENGTH = 255 ! Maximum logical name / translation lengthX DECLARE LONG CONSTANT LNM$C_MAXDEPTH = 10 ! Maximum logical name recursion depth@ DECLARE LONG CONSTANT LNM$_INDEX = 1 ! Translation indexB DECLARE LONG CONSTANT LNM$_STRING = 2 ! Translatio~n stringB DECLARE LONG CONSTANT LNM$_ATTRIBUTES = 3 ! Attribute bitsF DECLARE LONG CONSTANT LNM$_TABLE = 4 ! Logical name table nameL DECLARE LONG CONSTANT LNM$_LENGTH = 5 ! Length of translation stringC DECLARE LONG CONSTANT LNM$_ACMODE = 6 ! Access mode of nameL DECLARE LONG CONSTANT LNM$_MAX_INDEX = 7 ! Maximum translation indexN DECLARE LONG CONSTANT LNM$_PARENT = 8 ! Parent logical name table nameK DECLARE LONG CONSTANT LNM$_LNMB_ADDR = 9 !  Return LNM block address ! internal use by MTL  ! and mailbox UCBc DECLARE LONG CONSTANT LNM$_AGENT_ACMODE = 10 ! Probes to be done at a different access mode ! Define item list codesB DECLARE LONG CONSTANT LNM$_CHAIN = -1 ! Chain to next list ww5  ! *** PREDECLARED TYPES  L: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )N END RECORDV* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )  END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED b ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +/ ! LINE PRINTER CHARACTERISTICS DEFINITIONS ! -1 DECLARE LONG CONSTANT LP$M_CR = x'00000001'7 DECLARE LONG CONSTANT LP$M_MECHFORM = x'00000002'7 DECLARE LONG CONSTANT LP$M_PRI NTALL = x'00000004'4 DECLARE LONG CONSTANT LP$M_DAVFU = x'00000008'3 DECLARE LONG CONSTANT LP$M_WRAP = x'00000010'7 DECLARE LONG CONSTANT LP$M_TRUNCATE = x'00000020'2 DECLARE LONG CONSTANT LP$M_TAB = x'00000040'4 DECLARE LONG CONSTANT LP$M_LOWER = x'00000080'6 DECLARE LONG CONSTANT LP$M_PASSALL = x'00000100'7 DECLARE LONG CONSTANT LP$M_FALLBACK = x'00000200'5 DECLARE LONG CONSTANT LP$M_SIXELS = x'00000400'8 DECLARE LONG CONSTANT LP$M_BITMAPPED = x'00000800'5 DECLARE LONG CONSTANT LP$M_POLLED = x'00001000'< DECLARE LONG CONSTANT LP$M_BIDIRECTIONAL = x'00002000'5 DECLARE LONG CONSTANT LP$M_PAGE_L = x'FF000000'( DECLARE LONG CONSTANT LP$_LP11 = 1( DECLARE LONG CONSTANT LP$_LA11 = 2) DECLARE LONG CONSTANT LP$_LA180 = 3. DECLARE LONG CONSTANT LP$_PC_PRINTER = 8* DECLARE LONG CONSTANT LP$S_LPDEF = 4 record LPDEF variant case$ group LP$R_LPDEF_BITS-  ! CARRIAGE RETURN NEEDED + ! MECHANICAL FORM FEED 9 ! NON PRINTABLE CHAR. ACCEPT(DMF-32) # ! DAVFU AVAIL. & ! CHAR. WRAP MODE 7 ! TRUNCATE output at carriage width ! TAB needed- ! PRINTER HAS LOWER CASE # ! PASSALL MODE # ! FALLBACK MODE$ ! HANDLES SIXELS& ! HANDLES BIT MAPS/ ! Printer will poll device / ! Bidirectional USB printer( ! SPARE UNUSED BITS " ! PAGE LENGTH a LONG CR_bits ! COMMENT ADDED BY SDL - CR_bits contains bits CR through PAGE_L( end group LP$R_LPDEF_BITS end variant end record LPDEF ww@j ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! N ! Module $UICDEF defines the rightslist identifier space from %XA0000000; ! thru %XA3FFFFFF as being reserved for use by SEVMS. ! ) ! This space has been segmented as:  ! C ! %XA0000000 thru %XA000FFFF for MAC secrecy level identifiersF ! %XA0010000 thru %XA001FFFF for MAC secrecy category identifiersE ! %XA0020000 thru %XA002FFFF for MAC integrity level identifiersH ! %XA0030000 thru %XA003FFFF for MAC integrity category identifiers ! P ! to provide 64K identifiers within each grouping. This allows for growthI ! consistent with variable format (i.e. type DYN_CAT) class blocks. !  ! -8 DECLARE LONG CONSTANT MACID$M_ID_NUM = x'0000FFFF'= DECLARE LONG CONSTANT MACID$M_LVL_CAT_SEL = x'00010000'C DECLARE LONG CONSTANT MACID$K_LVL = 0 ! Level ID sub-groupF DECLARE LONG CONSTANT MACID$K_CAT = 1 ! Category ID sub-group= DECLARE LONG CONSTANT MACID$M_SEC_INT_SEL = x'00020000'A DECLARE LONG CONSTANT MACID$K_SEC = 0 ! Secrecy ID groupC DECLARE LONG CONSTANT MACID$K_INT = 1 ! Integrity ID group5 DECLARE LONG CONSTANT MACID$M_MBZ = x'03FC0000'9 DECLAR E LONG CONSTANT MACID$M_FMT_SEL = x'FC000000'P DECLARE LONG CONSTANT MACID$K_SEVMS_ID = 40 ! Format specifier for SEVMS) ! identifiers as defined by $UICDEF/ DECLARE LONG CONSTANT MACID$S_FILL_0_ = 4 record FILL_0_ variant case$ LONG MACID$L_MACIDDEF case$ group MACID$R_FILL_1_. ! Group relative ID number: ! Level/Category ID sub-group selector9 ! Secrecy/Integrity ID group selector2 ! Composite overlay of $UICDEF$ ! ID_TYPE + ASSIGN_CODE fieldsn LONG ID_NUM_bits ! COMMENT ADDED BY SDL - ID_NUM_bits contains bits ID_NUM through FMT_SEL( end group MACID$R_FILL_1_ end variant end record FILL_0_  wwv ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! , ! Definitions needed for callable mail. !  ! : ! NOTE: New item codes must be appended to the end of< ! each category so users will not have to relink.5 ! We allow 10 24 entries in eatch category. !  !  ! Send input codes ! 2 DECLARE LONG CONSTANT mail$_send_spare_0 = 1R DECLARE LONG CONSTANT mail$_send_foreign = 2 ! Send foreign format messageL DECLARE LONG CONSTANT mail$_send_cc_line = 3 ! CC text specificationV DECLARE LONG CONSTANT mail$_send_default_name = 4 ! Default file name for sendf DECLARE LONG CONSTANT mail$_send_default_transport = 5 ! Default transport used for addressees] DECLARE LONG CONSTANT mail$_send_error_entry = 6 ! Entry point for send error routineZ DECLARE LONG CONSTANT mail$_send_filename = 7 ! Specification of file name to sendP DECLARE LONG CONSTANT mail$_send_from_line = 8 ! From text specificationk DECLARE LONG CONSTANT mail$_send_no_default_transport = 9 ! Don't use any default transport on sendX DECLARE LONG CONSTANT mail$_send_pers_name = 10 ! Personal name text for messageH DECLARE LONG CONSTANT mail$_send_record = 11 !  Record to be sentV DECLARE LONG CONSTANT mail$_send_resultspec = 12 ! Resultant filespec bodypart^ DECLARE LONG CONSTANT mail$_send_server = 13 ! Operate in server mode (signal success)R DECLARE LONG CONSTANT mail$_send_subject = 14 ! Subject text specificationb DECLARE LONG CONSTANT mail$_send_success_entry = 15 ! Entry point for send success routineR DECLARE LONG CONSTANT mail$_send_to_line = 16 ! To line text specificationV DECLARE LONG CONSTANT mail$_send_uflags = 17 ! User flags (for header) to sendd DECLARE LONG CONSTANT mail$_send_user_data = 18 ! User specified context for action routinesY DECLARE LONG CONSTANT mail$_send_username = 19 ! Username to add to the "To" listV DECLARE LONG CONSTANT mail$_send_username_type = 20 ! Username type - TO or CCG DECLARE LONG CONSTANT mail$_send_fid = 21 ! FID of file to send_ DECLARE LONG CONSTANT mail$_send_no_pers_name = 22 ! Send message without personal name F DECLARE LONG CONSTANT mail$_send_sigfile = 23 ! Signature fileI DECLARE LONG CONSTANT mail$_send_no_sigfile = 24 ! Signature fileX DECLARE LONG CONSTANT mail$_send_parse_quotes = 25 ! Reply String Parsing Quotes !  ! Send output codes ! Y DECLARE LONG CONSTANT mail$_send_copy_reply = 26 ! Copy self reply set in profileX DECLARE LONG CONSTANT mail$_send_copy_send = 27 ! Copy self send set in profileG DECLARE LONG CONSTANT mail$_send_user = 28 ! Username of caller] DECLARE LONG CONSTANT mail$_send_copy_forward = 29 ! Copy self forward set in profilef DECLARE LONG CONSTANT mail$_send_recip_folder = 30 ! Recipient folder name to send the mail to6 DECLARE LONG CONSTANT mail$_send_out_spare3 = 316 DECLARE LONG CONSTANT mail$_send_out_spare4 = 326 DECLARE LONG CONSTANT mail$_send_out_spare5 = 334 DECLARE LONG CONSTANT mail$k_send_min_item = 15 DECLARE LONG CONSTANT mail$k_send_max_item = 3 32 DECLARE LONG CONSTANT mail$k_send_items = 33 !  ! file input codes ! 9 DECLARE LONG CONSTANT mail$_mailfile_spare_0 = 1025[ DECLARE LONG CONSTANT mail$_mailfile_default_name = 1026 ! Default filespec to openr DECLARE LONG CONSTANT mail$_mailfile_folder_routine = 1027 ! Entry point of routine to process foldernamesr DECLARE LONG CONSTANT mail$_mailfile_full_close = 1028 ! Do a PURGE, CONVERT/RECLAIM if necessary on closeL DECLARE LONG CONSTANT mail$_mailfile_name = 1029 ! File spec to openY DECLARE LONG CONSTANT mail$_mailfile_reclaim = 1030 ! Do RECLAIM on PURGE commandj DECLARE LONG CONSTANT mail$_mailfile_user_data = 1031 ! User specified context for action routinesd DECLARE LONG CONSTANT mail$_mailfile_wastebasket_name = 1032 ! New wastebasket name for fileY DECLARE LONG CONSTANT mail$_mailfile_collate_seq = 1033 ! I18N collating sequence; DECLARE LONG CONSTANT mail$_mailfile_in_spare2 = 1 034; DECLARE LONG CONSTANT mail$_mailfile_in_spare3 = 1035; DECLARE LONG CONSTANT mail$_mailfile_in_spare4 = 1036; DECLARE LONG CONSTANT mail$_mailfile_in_spare5 = 1037; DECLARE LONG CONSTANT mail$_mailfile_in_spare6 = 1038; DECLARE LONG CONSTANT mail$_mailfile_in_spare7 = 1039; DECLARE LONG CONSTANT mail$_mailfile_in_spare8 = 1040; DECLARE LONG CONSTANT mail$_mailfile_in_spare9 = 1041< DECLARE LONG CONSTANT mail$_mailfile_in_spare10 = 1042<  DECLARE LONG CONSTANT mail$_mailfile_in_spare11 = 1043< DECLARE LONG CONSTANT mail$_mailfile_in_spare12 = 1044< DECLARE LONG CONSTANT mail$_mailfile_in_spare13 = 1045< DECLARE LONG CONSTANT mail$_mailfile_in_spare14 = 1046< DECLARE LONG CONSTANT mail$_mailfile_in_spare15 = 1047< DECLARE LONG CONSTANT mail$_mailfile_in_spare16 = 1048< DECLARE LONG CONSTANT mail$_mailfile_in_spare17 = 1049< DECLARE LONG CONSTANT mail$_mailfile_in_spare18 = 1050< DECLARE LONG CONSTANT mail$_mailfile_in_spare19 = 1051< DECLARE LONG CONSTANT mail$_mailfile_in_spare20 = 1052 !  ! file output codes ! c DECLARE LONG CONSTANT mail$_mailfile_data_reclaim = 1053 ! Number of data buckets reclaimed^ DECLARE LONG CONSTANT mail$_mailfile_data_scan = 1054 ! Number of data buckets scannede DECLARE LONG CONSTANT mail$_mailfile_deleted_bytes = 1055 ! Number of free bytes in mail filee DECLARE LONG CONSTANT mail$_mailfile_index_reclaim = 1056 ! Number of index buckets reclaimede DECLARE LONG CONSTANT mail$_mailfile_mail_directory = 1057 ! Mail sub-directory specificationa DECLARE LONG CONSTANT mail$_mailfile_messages_deleted = 1058 ! Number of messages deletedT DECLARE LONG CONSTANT mail$_mailfile_resultspec = 1059 ! Resultant file spec[ DECLARE LONG CONSTANT mail$_mailfile_total_reclaim = 1060 ! Total buckets reclaimedR DECLARE LONG CONSTANT mail$_mailfile_wastebasket = 1061 ! Wast ebasket nameG DECLARE LONG CONSTANT mail$_mailfile_indexed = 1062 ! ISAM file< DECLARE LONG CONSTANT mail$_mailfile_out_spare2 = 1063< DECLARE LONG CONSTANT mail$_mailfile_out_spare3 = 1064< DECLARE LONG CONSTANT mail$_mailfile_out_spare4 = 1065< DECLARE LONG CONSTANT mail$_mailfile_out_spare5 = 1066< DECLARE LONG CONSTANT mail$_mailfile_out_spare6 = 1067< DECLARE LONG CONSTANT mail$_mailfile_out_spare7 = 1068< DECLARE LONG CONSTANT mail$_mailfile_out _spare8 = 1069< DECLARE LONG CONSTANT mail$_mailfile_out_spare9 = 1070= DECLARE LONG CONSTANT mail$_mailfile_out_spare10 = 1071= DECLARE LONG CONSTANT mail$_mailfile_out_spare11 = 1072= DECLARE LONG CONSTANT mail$_mailfile_out_spare12 = 1073= DECLARE LONG CONSTANT mail$_mailfile_out_spare13 = 1074= DECLARE LONG CONSTANT mail$_mailfile_out_spare14 = 1075= DECLARE LONG CONSTANT mail$_mailfile_out_spare15 = 1076= DECLARE LONG CONSTANT mail$_mailfile_o ut_spare16 = 1077= DECLARE LONG CONSTANT mail$_mailfile_out_spare17 = 1078= DECLARE LONG CONSTANT mail$_mailfile_out_spare18 = 1079= DECLARE LONG CONSTANT mail$_mailfile_out_spare19 = 1080= DECLARE LONG CONSTANT mail$_mailfile_out_spare20 = 1081; DECLARE LONG CONSTANT mail$k_mailfile_min_item = 1025; DECLARE LONG CONSTANT mail$k_mailfile_max_item = 10816 DECLARE LONG CONSTANT mail$k_mailfile_items = 57 !  ! message input codes ! 8 DECLARE LONG CONSTANT mail$_message_spare_0 = 2048N DECLARE LONG CONSTANT mail$_message_back = 2049 ! Get previous messageW DECLARE LONG CONSTANT mail$_message_before = 2050 ! Select messages BEFORE datei DECLARE LONG CONSTANT mail$_message_cc_substring = 2051 ! Select messages containing CC substringN DECLARE LONG CONSTANT mail$_message_continue = 2052 ! Read next record[ DECLARE LONG CONSTANT mail$_message_file_action = 2053 ! File create action routine_  DECLARE LONG CONSTANT mail$_message_folder_action = 2054 ! Folder create action routineS DECLARE LONG CONSTANT mail$_message_default_name = 2055 ! Default file nameJ DECLARE LONG CONSTANT mail$_message_delete = 2056 ! Delete messageH DECLARE LONG CONSTANT mail$_message_erase = 2057 ! Erase messageP DECLARE LONG CONSTANT mail$_message_file_ctx = 2058 ! File level contextU DECLARE LONG CONSTANT mail$_message_filename = 2059 ! File name specificationU  DECLARE LONG CONSTANT mail$_message_flags = 2060 ! Header flags specificationU DECLARE LONG CONSTANT mail$_message_folder = 2061 ! Folder name specificationm DECLARE LONG CONSTANT mail$_message_from_substring = 2062 ! Select messages containing FROM substringE DECLARE LONG CONSTANT mail$_message_id = 2063 ! ID of messageN DECLARE LONG CONSTANT mail$_message_next = 2064 ! Retrive NEXT messageU DECLARE LONG CONSTANT mail$_message_since = 2065 ! Select messages SINCE datem DECLARE LONG CONSTANT mail$_message_subj_substring = 2066 ! Select messages containing SUBJ substringi DECLARE LONG CONSTANT mail$_message_to_substring = 2067 ! Select messages containing TO substringT DECLARE LONG CONSTANT mail$_message_uflags = 2068 ! User flags specification[ DECLARE LONG CONSTANT mail$_message_auto_newmail = 2069 ! Move newmail to MAIL auto_ DECLARE LONG CONSTANT mail$_message_user_data = 2070 ! User context for action routinesk DECLARE LONG CONSTANT mail$_message_flags_mbz = 2071 ! Select messages with these flags set at zero[ DECLARE LONG CONSTANT mail$_message_min_class = 2072 ! Min access class for message[ DECLARE LONG CONSTANT mail$_message_max_class = 2073 ! Max access class for message: DECLARE LONG CONSTANT mail$_message_in_spare1 = 2074: DECLARE LONG CONSTANT mail$_message_in_spare2 = 2075: DECLARE LONG CONSTANT mail$_message_in_spare3 = 2076: DECLARE LONG  CONSTANT mail$_message_in_spare4 = 2077: DECLARE LONG CONSTANT mail$_message_in_spare5 = 2078: DECLARE LONG CONSTANT mail$_message_in_spare6 = 2079: DECLARE LONG CONSTANT mail$_message_in_spare7 = 2080: DECLARE LONG CONSTANT mail$_message_in_spare8 = 2081: DECLARE LONG CONSTANT mail$_message_in_spare9 = 2082; DECLARE LONG CONSTANT mail$_message_in_spare10 = 2083; DECLARE LONG CONSTANT mail$_message_in_spare11 = 2084; DECLARE LONG CONSTANT mail$_messag e_in_spare12 = 2085; DECLARE LONG CONSTANT mail$_message_in_spare13 = 2086; DECLARE LONG CONSTANT mail$_message_in_spare14 = 2087; DECLARE LONG CONSTANT mail$_message_in_spare15 = 2088; DECLARE LONG CONSTANT mail$_message_in_spare16 = 2089; DECLARE LONG CONSTANT mail$_message_in_spare17 = 2090; DECLARE LONG CONSTANT mail$_message_in_spare18 = 2091; DECLARE LONG CONSTANT mail$_message_in_spare19 = 2092; DECLARE LONG CONSTANT mail$_message_in_spare 20 = 2093 !  ! message output codes ! J DECLARE LONG CONSTANT mail$_message_cc = 2094 ! CC text of messageU DECLARE LONG CONSTANT mail$_message_current_id = 2095 ! ID of current messageQ DECLARE LONG CONSTANT mail$_message_date = 2096 ! Date of current messageW DECLARE LONG CONSTANT mail$_message_extid = 2097 ! Filespec of external messageU DECLARE LONG CONSTANT mail$_message_file_created = 2098 ! Mailfile created...U DECLARE LONG CONSTANT mail$_message_folder_created = 2099 ! Folder created...N DECLARE LONG CONSTANT mail$_message_from = 2100 ! From text of messageO DECLARE LONG CONSTANT mail$_message_record = 2101 ! Record from message_ DECLARE LONG CONSTANT mail$_message_record_type = 2102 ! Type of record, header or textT DECLARE LONG CONSTANT mail$_message_reply_path = 2103 ! Reply path of senderS DECLARE LONG CONSTANT mail$_message_resultspec = 2104 ! Resultant file spec] DECLARE LONG CONSTANT mail$_message_return_flags = 2105 ! Message header system flags\ DECLARE LONG CONSTANT mail$_message_return_uflags = 2106 ! Message header user flagsY DECLARE LONG CONSTANT mail$_message_selected = 2107 ! Number of messages selectedG DECLARE LONG CONSTANT mail$_message_sender = 2108 ! Sender nameU DECLARE LONG CONSTANT mail$_message_size = 2109 ! Size of the current messageX DECLARE LONG CONSTANT mail$_message_subject = 2110 ! Subject text of the messageN DECLARE LONG CONSTANT mail$_message_to = 2111 ! To text of the messageJ DECLARE LONG CONSTANT mail$_message_buffer = 2112 ! Buffer addressZ DECLARE LONG CONSTANT mail$_message_return_class = 2113 ! Class of current messageZ DECLARE LONG CONSTANT mail$_message_binary_date = 2114 ! Binary date/time quadword7 DECLARE LONG CONSTANT mail$_message_spare4 = 2115] DECLARE LONG CONSTANT mail$_message_parse_quotes = 2116 ! Reply String Parsing Q uotes7 DECLARE LONG CONSTANT mail$_message_spare6 = 21177 DECLARE LONG CONSTANT mail$_message_spare7 = 21187 DECLARE LONG CONSTANT mail$_message_spare8 = 21197 DECLARE LONG CONSTANT mail$_message_spare9 = 21208 DECLARE LONG CONSTANT mail$_message_spare10 = 21218 DECLARE LONG CONSTANT mail$_message_spare11 = 21228 DECLARE LONG CONSTANT mail$_message_spare12 = 21238 DECLARE LONG CONSTANT mail$_message_spare13 = 21248 DECLARE LONG CONSTANT mail$_ message_spare14 = 21258 DECLARE LONG CONSTANT mail$_message_spare15 = 21268 DECLARE LONG CONSTANT mail$_message_spare16 = 21278 DECLARE LONG CONSTANT mail$_message_spare17 = 21288 DECLARE LONG CONSTANT mail$_message_spare18 = 21298 DECLARE LONG CONSTANT mail$_message_spare19 = 2130 !  ! Constants returned ! G DECLARE LONG CONSTANT mail$_message_null = 2131 ! Null bodypartR DECLARE LONG CONSTANT mail$_message_header = 2132 ! Header record returnedN DECLARE LONG CONSTANT mail$_message_text = 2133 ! Text record returned8 DECLARE LONG CONSTANT mail$_message_spare20 = 2134: DECLARE LONG CONSTANT mail$k_message_min_item = 2048: DECLARE LONG CONSTANT mail$k_message_max_item = 21345 DECLARE LONG CONSTANT mail$k_message_items = 87 !  ! user input codes ! 5 DECLARE LONG CONSTANT mail$_user_spare_0 = 3072Q DECLARE LONG CONSTANT mail$_user_first = 3073 ! Retrive first user recordO DECLARE LONG CONSTANT mail$_user_next = 3074 ! Retrive next user recordV DECLARE LONG CONSTANT mail$_user_username = 3075 ! Retrive record for usernameO DECLARE LONG CONSTANT mail$_user_set_auto_purge = 3076 ! Set auto-purgeT DECLARE LONG CONSTANT mail$_user_set_no_auto_purge = 3077 ! Clear auto-purgeU DECLARE LONG CONSTANT mail$_user_set_sub_directory = 3078 ! Set sub-dir fieldZ DECLARE LONG CONSTANT mail$_user_set_no_sub_directory = 3079 ! Clear sub-dir fieldW DECLARE LONG CONSTANT mail$_user_set_forwarding = 3080 ! Set forwarding address\ DECLARE LONG CONSTANT mail$_user_set_no_forwarding = 3081 ! Clear forwarding addressU DECLARE LONG CONSTANT mail$_user_set_personal_name = 3082 ! Set personal nameZ DECLARE LONG CONSTANT mail$_user_set_no_personal_name = 3083 ! Clear personal nameM DECLARE LONG CONSTANT mail$_user_set_copy_send = 3084 ! Set copy-sendR DECLARE LONG CONSTANT mail$_user_set_no_copy_send = 3085 ! Clear copy sendO DECLARE LONG CONSTANT mail$_user_set_copy_reply = 3086 ! Set copy replyT DECLARE LONG CONSTANT mail$_user_set_no_copy_reply = 3087 ! Clear copy replyX DECLARE LONG CONSTANT mail$_user_set_new_messages = 3088 ! Set new message count[ DECLARE LONG CONSTANT mail$_user_create_if = 3089 ! Create record if does not existE DECLARE LONG CONSTANT mail$_user_set_mailplus = 3090 ! Set M+J DECLARE LONG CONSTANT mail$_user_set_no_mailplus = 3091 ! Clear M+S DECLARE LONG CONSTANT mail$_user_set_transport = 3092 ! Set transport fieldX DECLARE LONG CONSTANT mail$_user_set_no_transport = 3093 ! Clear transport fieldM DECLARE LONG CONSTANT mail$_user_set_editor = 3094 ! Set editor fieldR DECLARE LONG CONSTANT mail$_user_set_no_editor = 3095 ! Clear editor fieldK DECLARE LONG CONSTANT mail$_user_set_queue = 3096 ! Set queue fieldP DECLARE LONG CONSTANT mail$_user_set_no_queue = 3097 ! Clear queue fieldK DECLARE LONG CONSTANT mail$_user_set_user1 = 3098 ! Set user1 fieldP DECLARE LONG CONSTANT mail$_user_set_no_user1 = 3099 ! Clear user1 fieldK DECLARE LONG CONSTANT mail$_user_set_user2 = 3100 ! Set user2 fieldP DECLARE LONG CONSTANT mail$_user_set_no_user2 = 3101 ! Clear user2 fieldK DECLARE LONG CONSTANT mail$_user_set_user3 = 3102 ! Set user3 fieldP DECLARE LONG CONSTANT mail$_user_set_no_user3 = 3103 ! Clear user3 fieldI  DECLARE LONG CONSTANT mail$_user_set_form = 3104 ! Set form fieldN DECLARE LONG CONSTANT mail$_user_set_no_form = 3105 ! Clear form fieldX DECLARE LONG CONSTANT mail$_user_set_copy_forward = 3106 ! Set copy self forward] DECLARE LONG CONSTANT mail$_user_set_no_copy_forward = 3107 ! Clear copy self forwardP DECLARE LONG CONSTANT mail$_user_set_cc_prompt = 3108 ! Set CC promptingU DECLARE LONG CONSTANT mail$_user_set_no_cc_prompt = 3109 ! Clear CC promptingP DECLARE LONG CONSTANT mail$_user_set_sigfile = 3110 ! Set signature fileU DECLARE LONG CONSTANT mail$_user_set_no_sigfile = 3111 ! Clear signature file7 DECLARE LONG CONSTANT mail$_user_in_spare1 = 31127 DECLARE LONG CONSTANT mail$_user_in_spare2 = 31137 DECLARE LONG CONSTANT mail$_user_in_spare3 = 31147 DECLARE LONG CONSTANT mail$_user_in_spare4 = 31157 DECLARE LONG CONSTANT mail$_user_in_spare5 = 31167 DECLARE LONG CONSTANT mail$_user_in_sp are6 = 31177 DECLARE LONG CONSTANT mail$_user_in_spare7 = 31187 DECLARE LONG CONSTANT mail$_user_in_spare8 = 31197 DECLARE LONG CONSTANT mail$_user_in_spare9 = 31208 DECLARE LONG CONSTANT mail$_user_in_spare10 = 31218 DECLARE LONG CONSTANT mail$_user_in_spare11 = 31228 DECLARE LONG CONSTANT mail$_user_in_spare12 = 31238 DECLARE LONG CONSTANT mail$_user_in_spare13 = 31248 DECLARE LONG CONSTANT mail$_user_in_spare14 = 31258 DECLARE LONG CONSTANT mail$_user_in_spare15 = 31268 DECLARE LONG CONSTANT mail$_user_in_spare16 = 31278 DECLARE LONG CONSTANT mail$_user_in_spare17 = 31288 DECLARE LONG CONSTANT mail$_user_in_spare18 = 31298 DECLARE LONG CONSTANT mail$_user_in_spare19 = 31308 DECLARE LONG CONSTANT mail$_user_in_spare20 = 3131 !  ! Output item parameters ! C DECLARE LONG CONSTANT mail$_user_mailplus = 3132 ! M+ fieldK DECLARE LONG CONSTANT mail$_user_transport = 3133 ! Transport fieldE DECLARE LONG CONSTANT mail$_user_editor = 3134 ! Editor fieldC DECLARE LONG CONSTANT mail$_user_queue = 3135 ! Queue fieldC DECLARE LONG CONSTANT mail$_user_user1 = 3136 ! User1 fieldC DECLARE LONG CONSTANT mail$_user_user2 = 3137 ! User2 fieldC DECLARE LONG CONSTANT mail$_user_user3 = 3138 ! User3 fieldA DECLARE LONG CONSTANT mail$_user_form = 3139 ! Form fieldP DECLARE LONG CONSTANT mail$_user_copy_forward = 3140 ! Copy forward flagH DECLARE LONG CONSTANT mail$_user_sigfile = 3141 ! Signature file\ DECLARE LONG CONSTANT mail$_user_return_username = 3142 ! Username of current recordL DECLARE LONG CONSTANT mail$_user_auto_purge = 3143 ! Auto purge flagL DECLARE LONG CONSTANT mail$_user_sub_directory = 3144 ! Sub-dir specT DECLARE LONG CONSTANT mail$_user_full_directory = 3145 ! Full directory specP DECLARE LONG CONSTANT mail$_user_new_messages = 3146 ! New message countM DECLARE LONG CONSTANT mail$_user_forwarding = 3147 ! Forwarding fieldS DECLARE LONG CONSTANT mail$_user_personal_name = 3148 ! Personal name fieldJ DECLARE LONG CONSTANT mail$_user_copy_send = 3149 ! Copy send flagL DECLARE LONG CONSTANT mail$_user_copy_reply = 3150 ! Copy reply flagI DECLARE LONG CONSTANT mail$_user_captive = 3151 ! User is captiveM DECLARE LONG CONSTANT mail$_user_cc_prompt = 3152 ! CC prompting flag8 DECLARE LONG CONSTANT mail$_user _out_spare2 = 31538 DECLARE LONG CONSTANT mail$_user_out_spare3 = 31548 DECLARE LONG CONSTANT mail$_user_out_spare4 = 31558 DECLARE LONG CONSTANT mail$_user_out_spare5 = 31568 DECLARE LONG CONSTANT mail$_user_out_spare6 = 31578 DECLARE LONG CONSTANT mail$_user_out_spare7 = 31588 DECLARE LONG CONSTANT mail$_user_out_spare8 = 31598 DECLARE LONG CONSTANT mail$_user_out_spare9 = 31609 DECLARE LONG CONSTANT mail$_user_out_spare10 = 31619 DECLARE LONG C ONSTANT mail$_user_out_spare11 = 31629 DECLARE LONG CONSTANT mail$_user_out_spare12 = 31639 DECLARE LONG CONSTANT mail$_user_out_spare13 = 31649 DECLARE LONG CONSTANT mail$_user_out_spare14 = 31659 DECLARE LONG CONSTANT mail$_user_out_spare15 = 31669 DECLARE LONG CONSTANT mail$_user_out_spare16 = 31679 DECLARE LONG CONSTANT mail$_user_out_spare17 = 31689 DECLARE LONG CONSTANT mail$_user_out_spare18 = 31699 DECLARE LONG CONSTANT mail$_user_out_spa re19 = 31709 DECLARE LONG CONSTANT mail$_user_out_spare20 = 31717 DECLARE LONG CONSTANT mail$k_user_min_item = 30727 DECLARE LONG CONSTANT mail$k_user_max_item = 31713 DECLARE LONG CONSTANT mail$k_user_items = 100 !  ! Special items ! O DECLARE LONG CONSTANT mail$_noop = 4097 ! Do nothing - used for testingI DECLARE LONG CONSTANT mail$_nosignal = 4098 ! Don't signal errorsV DECLARE LONG CONSTANT mail$_noprobe = 4099 ! Don't probe t he item list buffers] DECLARE LONG CONSTANT mail$_tld_input = 4100 ! This item is a tld to be used as input\ DECLARE LONG CONSTANT mail$_tld_output = 4101 ! This item describes a buffer to fill ! / ! Username types for mail$send_add_address ! J DECLARE LONG CONSTANT mail$_to = 1 ! Address part of the TO lineJ DECLARE LONG CONSTANT mail$_cc = 2 ! Address part of the CC line, DECLARE LONG CONSTANT mail$_spare1 = 3, DECLARE LONG CONSTANT ma il$_spare2 = 4 ! 3 ! Define the flag values for mail system flags ! 7 DECLARE LONG CONSTANT MAIL$m_newmsg = x'00000001'8 DECLARE LONG CONSTANT MAIL$m_replied = x'00000002'7 DECLARE LONG CONSTANT MAIL$m_dwmail = x'00000004'7 DECLARE LONG CONSTANT MAIL$m_extmsg = x'00000008'7 DECLARE LONG CONSTANT MAIL$m_extfnf = x'00000010'8 DECLARE LONG CONSTANT MAIL$m_notrans = x'00000020'8 DECLARE LONG CONSTANT MAIL$m_extnstd = x'00000040'7 DECLARE LONG CONSTANT MAIL$m_marked = x'00000080'8 DECLARE LONG CONSTANT MAIL$m_recmode = x'00000100'/ DECLARE LONG CONSTANT MAIL$s_flagsdef = 2 record flagsdef group MAIL$r_fill_2_ variant case8 WORD MAIL$w_flags ! Flags word case& group MAIL$r_fill_3_- ! This is a new message8 ! This message has been replied to$ ! DW m ail flag5 ! Message text in external file7 ! External message file not found6 ! No translator for this message9 ! External file is not var-seq file4 ! This message has been markedB ! This message should be read in record modeq WORD newmsg_bits ! COMMENT ADDED BY SDL - newmsg_bits contains bits newmsg through FILL_4_* end group MAIL$r_fill_3_ end variant! end group MAIL$r_fill_2_ end record flagsdef  wwT ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  - DECLARE LONG CONSTANT MAPPING$K_ADD = 10 DECLARE LONG CONSTANT MAPPING$K_CREATE = 20 DECLARE LONG CONSTANT MAPPING$K_DEFINE = 30 DECLARE LONG CONSTANT MAPPING$K_DELETE = 40 DECLARE LONG  CONSTANT MAPPING$K_MODIFY = 5. DECLARE LONG CONSTANT MAPPING$K_SCAN = 60 DECLARE LONG CONSTANT MAPPING$K_LOOKUP = 75 DECLARE LONG CONSTANT MAPPING$K_PERFORMANCE = 8: DECLARE LONG CONSTANT MAPPING$K_ZERO_PERFORMANCE = 9/ DECLARE LONG CONSTANT MAPPING$K_STOP = 100 DECLARE LONG CONSTANT MAPPING$K_START = 11; DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_CODE = 12/ DECLARE LONG CONSTANT MAPPING$K_END = 1000 DECLARE LONG CONSTANT MAPPING$K_TYPE = 101 7 DECLARE LONG CONSTANT MAPPING$K_REMOTE_AREA = 1027 DECLARE LONG CONSTANT MAPPING$K_REMOTE_NAME = 1036 DECLARE LONG CONSTANT MAPPING$K_LOCAL_NAME = 1041 DECLARE LONG CONSTANT MAPPING$K_FLAGS = 1055 DECLARE LONG CONSTANT MAPPING$K_USER_DATA = 106< DECLARE LONG CONSTANT MAPPING$K_USER_DATA_LENGTH = 1077 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_MC = 1087 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_SC = 1097 DECLARE LONG CONSTANT MAPPING$K_WILDCARD _TC = 1107 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_TS = 1117 DECLARE LONG CONSTANT MAPPING$K_DEFINE_NAME = 1128 DECLARE LONG CONSTANT MAPPING$K_DEFINE_FLAGS = 1137 DECLARE LONG CONSTANT MAPPING$K_SCAN_BUFFER = 1149 DECLARE LONG CONSTANT MAPPING$K_PROPOSED_NAME = 1159 DECLARE LONG CONSTANT MAPPING$K_WC_RESOLUTION = 116= DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_ITEMS = 117= DECLARE LONG CONSTANT MAPPING$K_WC_MUST_BE_UNIQUE = 200< DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_LONGEST = 201= DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_SHORTEST = 202? DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_MOST_TERMS = 203A DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_FEWEST_TERMS = 204= DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_LEFTMOST = 205> DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_RIGHTMOST = 206: DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_WC = 207= DECLARE LONG CONSTANT MAPPING$K_ANY_TYPE = X"80000000"L< DECLARE LONG CONSTANT MAPPING$K_TCP_USER = -2147483391= DECLARE LONG CONSTANT MAPPING$K_TCP_GROUP = -2147483390= DECLARE LONG CONSTANT MAPPING$K_TCP_PROXY = -2147483389? DECLARE LONG CONSTANT MAPPING$K_DCE_MAPPING = -2147483135= DECLARE LONG CONSTANT MAPPING$K_DCE_PROXY = -2147483134C DECLARE LONG CONSTANT MAPPING$K_PATHWORKS_PROXY = -2147482879@ DECLARE LONG CONSTANT MAPPING$K_DECNET_PROXY = -2147482623D DECLARE LONG CONSTANT MAPPING$K_KERBEROS_MAPPING = -2147482367= DECLARE LONG CONSTANT MAPPING$K_PERFORMANCE_LENGTH = 56> DECLARE LONG CONSTANT MAPPING$S_MAPPING$PERFORMANCE = 56 record MAPPING$PERFORMANCE& LONG MAPPING$L_TOTAL_MESSAGES( LONG MAPPING$L_TOTAL_EXCEPTIONS LONG MAPPING$L_ADDS LONG MAPPING$L_CREATES LONG MAPPING$L_DEFINESS LONG MAPPING$L_DELETES LONG MAPPING$L_MODIFYS LONG MAPPING$L_SCANS LONG MAPPING$L_LOOKUPS# LONG MAPP ING$L_PERFORMANCE LONG MAPPING$L_STOPS LONG MAPPING$L_STARTS LONG MAPPING$L_AUDITS( LONG MAPPING$L_INVALID_MESSAGES$ end record MAPPING$PERFORMANCE @ DECLARE LONG CONSTANT MAPPING$M_LOCAL_UNIQUE = x'00000001'A DECLARE LONG CONSTANT MAPPING$M_REMOTE_UNIQUE = x'00000002'> DECLARE LONG CONSTANT MAPPING$M_DEFAULT_IN = x'00000004'? DECLARE LONG CONSTANT MAPPING$M_DEFAULT_OUT = x'00000008'A DECLARE LONG CONSTANT MAPPING$M_NO _DEFAULT_IN = x'00000010'B DECLARE LONG CONSTANT MAPPING$M_NO_DEFAULT_OUT = x'00000020': DECLARE LONG CONSTANT MAPPING$M_MODIFY = x'00000040'> DECLARE LONG CONSTANT MAPPING$M_DEFINITION = x'00000080'> DECLARE LONG CONSTANT MAPPING$M_CASE_BLIND = x'00000100'< DECLARE LONG CONSTANT MAPPING$M_WILDCARD = x'00000200'> DECLARE LONG CONSTANT MAPPING$M_FIND_LOCAL = x'00000400'? DECLARE LONG CONSTANT MAPPING$M_FIND_REMOTE = x'00000800': DECLARE LONG CONSTANT MA PPING$M_FILL_1 = x'FFFFF000'8 DECLARE LONG CONSTANT MAPPING$K_HEADER_LENGTH = 409 DECLARE LONG CONSTANT MAPPING$S_MAPPING$HEADER = 40 record MAPPING$HEADER LONG MAPPING$L_LENGTH LONG MAPPING$L_CONTEXT group MAPPING$R_FILL_7_ variant case& LONG MAPPING$L_FLAGS case) group MAPPING$R_FILL_8_ LONG LOCAL_UNIQUE_bits ! COMMENT ADDED BY SDL - LOCAL_UNIQUE_bits contains bits LOCAL_UNIQUE through FILL_1- end group MAPPING$R_FILL_8_ end variant$ end group MAPPING$R_FILL_7_ LONG MAPPING$L_TYPE! LONG MAPPING$L_WILDFLAGS! LONG MAPPING$L_WILDMULTI" LONG MAPPING$L_WILDSINGLE LONG MAPPING$L_WILDTERM LONG MAPPING$L_TERMSEP LONG MAPPING$L_UNUSED end record MAPPING$HEADER ? DECLARE LONG CONSTANT MAPPING$S_MAPPING$GENERIC_DESC1 = 5" record MAPPING$GENERIC_DESC1# WORD MAPPING$W_DESC_LENGTH WORD MAPPING$W_FILL1' STRING MAPPING$T_DESC_DATA = 1& end record MAPPING$GENERIC_DESC1  wwTň ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  + DECLARE LONG CONSTANT MME$_UNLOAD = 1* DECLARE LONG CONSTANT MME$_ALLOC = 20 DECLARE LONG CONSTANT MME$_BACKUP_FILE = 3/ DECLARE LONG CONSTANT MME$_CLOSE_READ = 40 DECLARE LONG CONSTAN T MME$_CLOSE_WRITE = 58 DECLARE LONG CONSTANT MME$_CONTINUATION_VOLUME = 6/ DECLARE LONG CONSTANT MME$_DEALLOCATE = 71 DECLARE LONG CONSTANT MME$_DEVICE_AVAIL = 83 DECLARE LONG CONSTANT MME$_DEVICE_UNAVAIL = 9. DECLARE LONG CONSTANT MME$_DISMOUNT = 105 DECLARE LONG CONSTANT MME$_DISPLAY_MESSAGE = 11. DECLARE LONG CONSTANT MME$_EOV_READ = 12/ DECLARE LONG CONSTANT MME$_EOV_WRITE = 130 DECLARE LONG CONSTANT MME$_INITIALIZE = 14+ DECLARE LO NG CONSTANT MME$_MOUNT = 153 DECLARE LONG CONSTANT MME$_MOUNT_REQUEST = 164 DECLARE LONG CONSTANT MME$_NEWVOL_REQUEST = 173 DECLARE LONG CONSTANT MME$_NOTIFY_DEVICE = 18/ DECLARE LONG CONSTANT MME$_OPCOM_ACP = 191 DECLARE LONG CONSTANT MME$_OPCOM_MOUNT = 20/ DECLARE LONG CONSTANT MME$_OPEN_READ = 210 DECLARE LONG CONSTANT MME$_OPEN_WRITE = 223 DECLARE LONG CONSTANT MME$_VOLUME_ONLINE = 230 DECLARE LONG CONSTANT MME$_BACKUP_END = 242 DE CLARE LONG CONSTANT MME$_BACKUP_START = 253 DECLARE LONG CONSTANT MME$_WRITE_REQUEST = 26/ DECLARE LONG CONSTANT MME$_MOUNT_END = 27. DECLARE LONG CONSTANT MME$_INIT_END = 280 DECLARE LONG CONSTANT MME$_NEWVOL_END = 295 DECLARE LONG CONSTANT MME$_DISMNT_PROC_DEL = 30, DECLARE LONG CONSTANT MME$S_ACMODE = 4/ DECLARE LONG CONSTANT MME$S_BLOCKSIZE = 4- DECLARE LONG CONSTANT MME$S_DENSITY = 44 DECLARE LONG CONSTANT MME$S_DEVICE_CONTEXT = 4/ DECLARE LONG CONSTANT MME$S_DMT_FLAGS = 4+ DECLARE LONG CONSTANT MME$S_ERASE = 40 DECLARE LONG CONSTANT MME$S_EXPIRATION = 8/ DECLARE LONG CONSTANT MME$S_FILESEQNO = 4/ DECLARE LONG CONSTANT MME$S_FILESECNO = 41 DECLARE LONG CONSTANT MME$S_IO_FUNCTION = 42 DECLARE LONG CONSTANT MME$S_LABEL_ACCESS = 13 DECLARE LONG CONSTANT MME$S_MOUNT_CONTEXT = 4/ DECLARE LONG CONSTANT MME$S_MNT_FLAGS = 8, DECLARE LONG CONSTANT MME$S_OBJCNT = 40 DECLAR E LONG CONSTANT MME$S_OVR_ACCESS = 4- DECLARE LONG CONSTANT MME$S_OVR_EXP = 4. DECLARE LONG CONSTANT MME$S_OVR_VOLO = 4/ DECLARE LONG CONSTANT MME$S_OWNER_UIC = 4) DECLARE LONG CONSTANT MME$S_PID = 4/ DECLARE LONG CONSTANT MME$S_RECORDSIZ = 41 DECLARE LONG CONSTANT MME$S_RESPONSEREQ = 4- DECLARE LONG CONSTANT MME$S_SETNEW1 = 4- DECLARE LONG CONSTANT MME$S_SETNEW2 = 4+ DECLARE LONG CONSTANT MME$S_VPROT = 4- DECLARE LONG CONSTANT MME$S_ FILE_ID = 6/ DECLARE LONG CONSTANT MME$S_GROUPSIZE = 40 DECLARE LONG CONSTANT MME$S_PROTECTION = 4, DECLARE LONG CONSTANT MME$S_STATUS = 45 DECLARE LONG CONSTANT MME$S_ASSIGNMENT_UNIT = 44 DECLARE LONG CONSTANT MME$S_CARTRIDGE_SIDE = 41 DECLARE LONG CONSTANT MME$S_DISPOSITION = 4/ DECLARE LONG CONSTANT MME$S_RECFORMAT = 1- ! MME action routine argument item codes+ DECLARE LONG CONSTANT MME$_ACMODE = 1. DECLARE LONG CONSTANT MME$_BLOCKSI ZE = 2, DECLARE LONG CONSTANT MME$_COMMENT = 3, DECLARE LONG CONSTANT MME$_DENSITY = 43 DECLARE LONG CONSTANT MME$_DEVICE_CONTEXT = 5. DECLARE LONG CONSTANT MME$_DMT_FLAGS = 6) DECLARE LONG CONSTANT MME$_EOF1 = 7) DECLARE LONG CONSTANT MME$_EOF2 = 8) DECLARE LONG CONSTANT MME$_EOF3 = 9* DECLARE LONG CONSTANT MME$_EOF4 = 10* DECLARE LONG CONSTANT MME$_EOV1 = 11* DECLARE LONG CONSTANT MME$_EOV2 = 12* DECLARE LONG CONSTANT MME$_EOV3 = 13* DECLARE LONG CONSTANT MME$_EOV4 = 14+ DECLARE LONG CONSTANT MME$_ERASE = 15) DECLARE LONG CONSTANT MME$_FIB = 16/ DECLARE LONG CONSTANT MME$_FILESEQNO = 17* DECLARE LONG CONSTANT MME$_HDR1 = 18* DECLARE LONG CONSTANT MME$_HDR2 = 19* DECLARE LONG CONSTANT MME$_HDR3 = 20* DECLARE LONG CONSTANT MME$_HDR4 = 211 DECLARE LONG CONSTANT MME$_IO_FUNCTION = 222 DECLARE LONG CONSTANT MME$_LABEL_ACCESS = 230 DECLARE LONG CONSTANT MME$_LABEL _VOLO = 243 DECLARE LONG CONSTANT MME$_MOUNT_CONTEXT = 25/ DECLARE LONG CONSTANT MME$_MNT_FLAGS = 26* DECLARE LONG CONSTANT MME$_MSG1 = 27* DECLARE LONG CONSTANT MME$_MSG2 = 28/ DECLARE LONG CONSTANT MME$_NEWDEVNAM = 29- DECLARE LONG CONSTANT MME$_NEWMSG1 = 30- DECLARE LONG CONSTANT MME$_NEWMSG2 = 31/ DECLARE LONG CONSTANT MME$_NEWVOLNAM = 32, DECLARE LONG CONSTANT MME$_NXTVOL = 33, DECLARE LONG CONSTANT MME$_OBJCNT = 340 DECLARE LONG CONSTANT MME$_OVR_ACCESS = 35- DECLARE LONG CONSTANT MME$_OVR_EXP = 36. DECLARE LONG CONSTANT MME$_OVR_VOLO = 37/ DECLARE LONG CONSTANT MME$_OWNER_UIC = 38/ DECLARE LONG CONSTANT MME$_PHYDEVNAM = 39) DECLARE LONG CONSTANT MME$_PID = 40. DECLARE LONG CONSTANT MME$_PREV_VOL = 41/ DECLARE LONG CONSTANT MME$_PROCESSOR = 42/ DECLARE LONG CONSTANT MME$_RECORDSIZ = 43/ DECLARE LONG CONSTANT MME$_REQDEVNAM = 441 DECLARE LONG CONSTANT MME$ _RESPONSEREQ = 45- DECLARE LONG CONSTANT MME$_SETNEW1 = 46- DECLARE LONG CONSTANT MME$_SETNEW2 = 47* DECLARE LONG CONSTANT MME$_VOL1 = 48* DECLARE LONG CONSTANT MME$_VOL2 = 49, DECLARE LONG CONSTANT MME$_VOLNAM = 50+ DECLARE LONG CONSTANT MME$_VPROT = 517 DECLARE LONG CONSTANT MME$_BACKUP_FILE_FLAGS = 522 DECLARE LONG CONSTANT MME$_BACKUP_FLAGS = 530 DECLARE LONG CONSTANT MME$_EXPIRATION = 54. DECLARE LONG CONSTANT MME$_FILENAME = 55-  DECLARE LONG CONSTANT MME$_FILE_ID = 56/ DECLARE LONG CONSTANT MME$_GROUPSIZE = 57- DECLARE LONG CONSTANT MME$_IN_SAVE = 586 DECLARE LONG CONSTANT MME$_IN_SPECIFICATION = 59/ DECLARE LONG CONSTANT MME$_IN_VOLUME = 60. DECLARE LONG CONSTANT MME$_OUT_SAVE = 610 DECLARE LONG CONSTANT MME$_PROTECTION = 62, DECLARE LONG CONSTANT MME$_STATUS = 635 DECLARE LONG CONSTANT MME$_ASSIGNMENT_UNIT = 645 DECLARE LONG CONSTANT MME$_CART_MEDIA_NAME = 654  DECLARE LONG CONSTANT MME$_CARTRIDGE_NAME = 664 DECLARE LONG CONSTANT MME$_CARTRIDGE_SIDE = 670 DECLARE LONG CONSTANT MME$_COLLECTION = 681 DECLARE LONG CONSTANT MME$_DEVICE_TYPE = 691 DECLARE LONG CONSTANT MME$_DISPOSITION = 70. DECLARE LONG CONSTANT MME$_LOCATION = 710 DECLARE LONG CONSTANT MME$_MEDIA_NAME = 720 DECLARE LONG CONSTANT MME$_LABEL_TYPE = 73- DECLARE LONG CONSTANT MME$_EXPDATE = 74- DECLARE LONG CONSTANT MME$_CREDATE = 75/  DECLARE LONG CONSTANT MME$_RECFORMAT = 76/ DECLARE LONG CONSTANT MME$_FILESECNO = 77+ DECLARE LONG CONSTANT MME$_REPLY = 785 DECLARE LONG CONSTANT MME$M_IMAGE = x'00000001'3 DECLARE LONG CONSTANT MME$M_CRC = x'00000002'6 DECLARE LONG CONSTANT MME$M_DELETE = x'00000004'= DECLARE LONG CONSTANT MME$M_IGN_INTERLOCK = x'00000008'9 DECLARE LONG CONSTANT MME$M_IGN_LABEL = x'00000010'< DECLARE LONG CONSTANT MME$M_IGN_NOBACKUP = x'00000020'; DE CLARE LONG CONSTANT MME$M_INTERCHANGE = x'00000040'6 DECLARE LONG CONSTANT MME$M_RECORD = x'00000080'6 DECLARE LONG CONSTANT MME$M_REWIND = x'00000100'6 DECLARE LONG CONSTANT MME$M_VERIFY = x'00000200'8 DECLARE LONG CONSTANT MME$M_PHYSICAL = x'00000400': DECLARE LONG CONSTANT MME$M_COMPACTION = x'00000800'2 DECLARE LONG CONSTANT MME$S_BACKUP_FLAGS = 4 record BACKUP_FLAGSN group MME$R_FLAGS_OVERLAY ! Flag mask for MME$_BACKUP_FLAGS  variant case' LONG MME$L_FLAGS_MASK case( group MME$R_FLAGS_BITSn WORD IMAGE_bits ! COMMENT ADDED BY SDL - IMAGE_bits contains bits IMAGE through FILL_9_, end group MME$R_FLAGS_BITS end variant& end group MME$R_FLAGS_OVERLAY end record BACKUP_FLAGS 9 DECLARE LONG CONSTANT MME$M_VERIF_ERR = x'00000001'8 DECLARE LONG CONSTANT MME$M_NOBACK UP = x'00000002'9 DECLARE LONG CONSTANT MME$M_FILE_OPEN = x'00000004'8 DECLARE LONG CONSTANT MME$M_ACC_CONF = x'00000008'7 DECLARE LONG CONSTANT MME$S_BACKUP_FILE_FLAGS = 4 record BACKUP_FILE_FLAGSN group MME$R_FILE_FLAGS_OVERLAY ! Flag mask for MME$_BACKUP_FLAGS variant case, LONG MME$L_FILE_FLAGS_MASK case- group MME$R_FILE_FLAGS_BITSx LONG VERIF_ERR_bits  ! COMMENT ADDED BY SDL - VERIF_ERR_bits contains bits VERIF_ERR through fill11 end group MME$R_FILE_FLAGS_BITS end variant+ end group MME$R_FILE_FLAGS_OVERLAY" end record BACKUP_FILE_FLAGS , DECLARE LONG CONSTANT MME$C_ANSI_1 = 1, DECLARE LONG CONSTANT MME$C_ANSI_2 = 2, DECLARE LONG CONSTANT MME$C_ANSI_3 = 3, DECLARE LONG CONSTANT MME$C_ANSI_4 = 4- DECLARE LONG CONSTANT MME$C_IBM_STD = 50 DECLARE LONG CONSTANT MME$C_UNLABELLED = 6* DECLARE LONG CONSTANT MME$C_ODS1 = 7* DECLARE LONG CONSTANT MME$C_ODS2 = 8 wwT ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  - DECLARE LONG CONSTANT MMI$_FACILITY = 1+ DECLARE LONG CONSTANT MMI$_MBUNIT = 2( DECLARE LONG CONSTANT MMI$_PID = 3+ DECLARE LONG CONSTANT MMI$_MBXUCB = 4+ DECLARE LONG CONSTANT MMI$_U NLOAD = 5* DECLARE LONG CONSTANT MMI$_ALLOC = 6/ DECLARE LONG CONSTANT MMI$_BACKUP_END = 70 DECLARE LONG CONSTANT MMI$_BACKUP_FILE = 81 DECLARE LONG CONSTANT MMI$_BACKUP_START = 90 DECLARE LONG CONSTANT MMI$_CLOSE_READ = 101 DECLARE LONG CONSTANT MMI$_CLOSE_WRITE = 119 DECLARE LONG CONSTANT MMI$_CONTINUATION_VOLUME = 120 DECLARE LONG CONSTANT MMI$_DEALLOCATE = 132 DECLARE LONG CONSTANT MMI$_DEVICE_AVAIL = 144 DECLARE LONG CONSTANT MMI$_D EVICE_UNAVAIL = 15. DECLARE LONG CONSTANT MMI$_DISMOUNT = 165 DECLARE LONG CONSTANT MMI$_DISPLAY_MESSAGE = 17. DECLARE LONG CONSTANT MMI$_EOV_READ = 18/ DECLARE LONG CONSTANT MMI$_EOV_WRITE = 190 DECLARE LONG CONSTANT MMI$_INITIALIZE = 20+ DECLARE LONG CONSTANT MMI$_MOUNT = 213 DECLARE LONG CONSTANT MMI$_MOUNT_REQUEST = 224 DECLARE LONG CONSTANT MMI$_NEWVOL_REQUEST = 233 DECLARE LONG CONSTANT MMI$_NOTIFY_DEVICE = 24/ DECLARE LONG CONSTAN T MMI$_OPCOM_ACP = 251 DECLARE LONG CONSTANT MMI$_OPCOM_MOUNT = 26/ DECLARE LONG CONSTANT MMI$_OPEN_READ = 270 DECLARE LONG CONSTANT MMI$_OPEN_WRITE = 283 DECLARE LONG CONSTANT MMI$_VOLUME_ONLINE = 293 DECLARE LONG CONSTANT MMI$_WRITE_REQUEST = 30/ DECLARE LONG CONSTANT MMI$_MOUNT_END = 31. DECLARE LONG CONSTANT MMI$_INIT_END = 320 DECLARE LONG CONSTANT MMI$_NEWVOL_END = 33 ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! / ! FLAG BITS FOR THE $MOUNT SYSTEM SERVICE. !  ! -7 DECLARE LONG CONSTANT MNT$M_FOREIGN = x'00000001'5 DECLARE LONG CONSTANT MNT$M_GROUP = x'00000002'8 DECLARE LO NG CONSTANT MNT$M_NOASSIST = x'00000004'7 DECLARE LONG CONSTANT MNT$M_NODISKQ = x'00000008'6 DECLARE LONG CONSTANT MNT$M_NOHDR3 = x'00000010'7 DECLARE LONG CONSTANT MNT$M_NOLABEL = x'00000020'7 DECLARE LONG CONSTANT MNT$M_NOWRITE = x'00000040': DECLARE LONG CONSTANT MNT$M_OVR_ACCESS = x'00000080'7 DECLARE LONG CONSTANT MNT$M_OVR_EXP = x'00000100'9 DECLARE LONG CONSTANT MNT$M_OVR_IDENT = x'00000200'9 DECLARE LONG CONSTANT MNT$M_OVR_SETID = x'00000400 '9 DECLARE LONG CONSTANT MNT$M_READCHECK = x'00000800'5 DECLARE LONG CONSTANT MNT$M_SHARE = x'00001000'7 DECLARE LONG CONSTANT MNT$M_MESSAGE = x'00002000'6 DECLARE LONG CONSTANT MNT$M_SYSTEM = x'00004000': DECLARE LONG CONSTANT MNT$M_WRITECHECK = x'00008000'9 DECLARE LONG CONSTANT MNT$M_WRITETHRU = x'00010000'7 DECLARE LONG CONSTANT MNT$M_NOCACHE = x'00020000'8 DECLARE LONG CONSTANT MNT$M_OVR_LOCK = x'00040000'8 DECLARE LONG CONSTANT MNT$M_NO MNTVER = x'00080000'8 DECLARE LONG CONSTANT MNT$M_NOUNLOAD = x'00100000'? DECLARE LONG CONSTANT MNT$M_TAPE_DATA_WRITE = x'00200000'6 DECLARE LONG CONSTANT MNT$M_NOCOPY = x'00400000'6 DECLARE LONG CONSTANT MNT$M_NOAUTO = x'00800000'8 DECLARE LONG CONSTANT MNT$M_INIT_ALL = x'01000000'9 DECLARE LONG CONSTANT MNT$M_INIT_CONT = x'02000000'8 DECLARE LONG CONSTANT MNT$M_OVR_VOLO = x'04000000'8 DECLARE LONG CONSTANT MNT$M_INTERCHG = x'08000000'7 DECLARE LONG CONSTANT MNT$M_CLUSTER = x'10000000'9 DECLARE LONG CONSTANT MNT$M_NOREBUILD = x'20000000': DECLARE LONG CONSTANT MNT$M_OVR_SHAMEM = x'40000000'9 DECLARE LONG CONSTANT MNT$M_MULTI_VOL = x'80000000'6 DECLARE LONG CONSTANT MNT2$M_DISKQ = x'00000001'; DECLARE LONG CONSTANT MNT2$M_COMPACTION = x'00000002'8 DECLARE LONG CONSTANT MNT2$M_INCLUDE = x'00000004'6 DECLARE LONG CONSTANT MNT2$M_PASS2 = x'00000008'9 DECLARE LONG CONSTANT MNT2$M_OVR_NOFE = x'00 000010'8 DECLARE LONG CONSTANT MNT2$M_SCRATCH = x'00000020'6 DECLARE LONG CONSTANT MNT2$M_CDROM = x'00000040'4 DECLARE LONG CONSTANT MNT2$M_XAR = x'00000080'4 DECLARE LONG CONSTANT MNT2$M_DSI = x'00000100': DECLARE LONG CONSTANT MNT2$M_SUBSYSTEM = x'00000200'= DECLARE LONG CONSTANT MNT2$M_NOCOMPACTION = x'00000400'= DECLARE LONG CONSTANT MNT2$M_OVR_SECURITY = x'00000800'C DECLARE LONG CONSTANT MNT2$M_OVR_LIMITED_SEARCH = x'00001000'5 DECLARE LO NG CONSTANT MNT2$M_POOL = x'00002000'; DECLARE LONG CONSTANT MNT2$M_WLG_ENABLE = x'00004000'< DECLARE LONG CONSTANT MNT2$M_WLG_DISABLE = x'00008000'@ DECLARE LONG CONSTANT MNT2$M_REQUIRE_MEMBERS = x'00010000'= DECLARE LONG CONSTANT MNT2$M_VERIFY_LABEL = x'00020000'; DECLARE LONG CONSTANT MNT2$M_FULL_MERGE = x'00040000'< DECLARE LONG CONSTANT MNT2$M_WRITE_FIRST = x'00080000'4 DECLARE LONG CONSTANT MNT2$M_DCD = x'00100000'6 DECLARE LONG CONSTANT MNT2$M _NODCD = x'00200000'; DECLARE LONG CONSTANT MNT2$M_LOCAL_HOST = x'00400000'7 DECLARE LONG CONSTANT MNT2$M_FACTOR = x'00800000'9 DECLARE LONG CONSTANT MNT2$M_PRIORITY = x'01000000'< DECLARE LONG CONSTANT MNT$_DEVNAM = 1 ! DEVICE NAME < DECLARE LONG CONSTANT MNT$_VOLNAM = 2 ! VOLUME NAME = DECLARE LONG CONSTANT MNT$_LOGNAM = 3 ! LOGICAL NAME ; DECLARE LONG CONSTANT MNT$_FLAGS = 4 ! MOUNT FLAGS A DECLARE LONG CONSTANT MNT$_ACCESSED = 5 ! ACCESSED VALUE B DECLARE LONG CONSTANT MNT$_PROCESSOR = 6 ! PROCESSOR NAME @ DECLARE LONG CONSTANT MNT$_VOLSET = 7 ! VOLUME SET NAME C DECLARE LONG CONSTANT MNT$_BLOCKSIZE = 8 ! BLOCKSIZE VALUE D DECLARE LONG CONSTANT MNT$_DENSITY = 9 ! TAPE DENSITY VALUE P DECLARE LONG CONSTANT MNT$_EXTENT = 10 ! NUMBER OF EXTENT CACHE ENTRIES D DECLARE LONG CONSTANT MNT$_FILEID = 11 ! FILE ID CACHE SIZE C DECLARE LONG CONSTANT MNT$_LIMIT = 12 ! EXTENT CACHE LIMIT  A DECLARE LONG CONSTANT MNT$_OWNER = 13 ! VOLUME OWNER UIC B DECLARE LONG CONSTANT MNT$_VPROT = 14 ! VOLUME PROTECTION A DECLARE LONG CONSTANT MNT$_QUOTA = 15 ! QUOTA CACHE SIZE F DECLARE LONG CONSTANT MNT$_RECORDSIZ = 16 ! RECORD SIZE VALUE C DECLARE LONG CONSTANT MNT$_WINDOW = 17 ! NUMBER OF WINDOWS K DECLARE LONG CONSTANT MNT$_EXTENSION = 18 ! DEFAULT FILE EXTENSION J DECLARE LONG CONSTANT MNT$_VISUAL_ID = 19 ! VISUAL IDENTIFICATION ?  DECLARE LONG CONSTANT MNT$_COMMENT = 20 ! USER COMMENT F DECLARE LONG CONSTANT MNT$_CLASS = 21 ! SECURITY CLASSFICATIONl DECLARE LONG CONSTANT MNT$_UNUSED2 = 22 ! SPARE (was used for now obsolete journaling-related items)M DECLARE LONG CONSTANT MNT$_ACCPTNAM = 23 ! ACCESS POINT NAME (DECdfs)H DECLARE LONG CONSTANT MNT$_SHACOPY_BUF = 24 ! SHADOW COPY BUFFERM DECLARE LONG CONSTANT MNT$_SHANAM = 25 ! SHADOW SET VIRTUAL UNIT NAMEL DECLARE LONG CONSTANT MNT$_SHAMEM = 26 ! SHADOW SET MEMBER UNIT NAME` DECLARE LONG CONSTANT MNT$_SHAMEM_MGCOPY = 27 ! SHADOW SET MEMBER UNIT NAME (MERGE COPY)] DECLARE LONG CONSTANT MNT$_SHAMEM_COPY = 28 ! SHADOW SET MEMBER UNIT NAME (FULL COPY)F DECLARE LONG CONSTANT MNT$_PRFD_PATH = 29 ! PREFERRED DSA PATHO DECLARE LONG CONSTANT MNT$_ASSIGNMENT_UNIT = 30 ! Assignment unit (MME)T DECLARE LONG CONSTANT MNT$_CART_MEDIA_NAME = 31 ! Cartridge Media Name (MME)M DECLARE LONG CONSTANT MNT$_CARTRIDGE_NAME = 32 ! Cartridge Name (MME)M DECLARE LONG CONSTANT MNT$_CARTRIDGE_SIDE = 33 ! Cartridge Side (MME)J DECLARE LONG CONSTANT MNT$_COLLECTION = 34 ! Collection name (MME)U DECLARE LONG CONSTANT MNT$_DEVICE_TYPE = 35 ! Device Selection criteria (MME)P DECLARE LONG CONSTANT MNT$_DISPOSITION = 36 ! Dismount Disposition (MME)K DECLARE LONG CONSTANT MNT$_LOCATION = 37 ! Cartridge Location (MME)E DECLARE LONG CONSTANT MNT$_MEDIA_NAME = 38 ! Media Name (MME)7 DECLARE LONG CONSTANT MNT$_UNUSED4 = 39 ! SPAREQ DECLARE LONG CONSTANT MNT$_UNDEFINED_FAT = 40 ! Undefined File AttributesM DECLARE LONG CONSTANT MNT$_UCS = 41 ! Universal Character Set stringQ DECLARE LONG CONSTANT MNT$_TAPE_EXPIRATION = 42 ! Date Tape Expires (MME)J DECLARE LONG CONSTANT MNT$_PRIORITY = 43 ! SHDRIVER merge priorityY DECLARE LONG CONSTANT MNT$_FACTOR = 44 ! SHDRIVER IO completion factor for merges@  DECLARE LONG CONSTANT MNT$_WBM_SIZE = 45 ! MINICOPY sizeF DECLARE LONG CONSTANT MNT$_DATA = 46 ! Enable data (XFC) cacheJ DECLARE LONG CONSTANT MNT$_NODATA = 47 ! Disable data (XFC) cache  ! * ! Add new item codes before this line ! N DECLARE LONG CONSTANT MNT$_LAST_ITEM_CODE = 48 ! last item code plus 1Q DECLARE LONG CONSTANT MNT$C_BASE_CARTRIDGE = 1 ! Assign a whole cartridgeN DECLARE LONG CONSTANT MNT$C_COMPOUND_CARTRIDGE = 2 ! Assign a magazine_ DECLARE LONG CONSTANT MNT$C_PREASSIGNED_SIDE = 3 ! Assign a pre-assigned cartridge sideM DECLARE LONG CONSTANT MNT$C_SIDE = 4 ! Assign a single cartridge sideF DECLARE LONG CONSTANT MNT$C_KEEP = 1 ! Keep the media assignedC DECLARE LONG CONSTANT MNT$C_RELEASE = 2 ! Release the media, DECLARE LONG CONSTANT MNT$S_MNTDEF = 8 record MNTDEF variant case& group MNT$R_MNTDEF_BITS. ! FOREIGN OP TION SELECTED , ! GROUP OPTION SELECTED / ! NOASSIST OPTION SELECTED . ! NODISKQ OPTION SELECTED - ! NOHDR3 OPTION SELECTED . ! NOLABEL OPTION SELECTED . ! NOWRITE OPTION SELECTED < ! OVERRIDE ACCESSIBLITY OPTION SELECTED 9 ! OVERRIDE EXPIRATON OPTION SELECTED , ! OVERRIDE VOLUME LABEL A ! OVERRIDE VOL UME SET IDENT OPTION SELECTIED 0 ! READCHECK OPTION SELECTED , ! SHARE OPTION SELECTED 5 ! ALLOW $MOUNT TO PRINT MESSAGES - ! SYSTEM OPTION SELECTED 1 ! WRITECHECK OPTION SELECTED 0 ! WRITETHRU OPTION SELECTED + ! TURN OFF ALL CACHING 4 ! OVERRIDE AUTOMATIC WRITE-LOCK 1 ! DISABLE MOUNT VERIFICATION 7  ! DO NOT UNLOAD VOLUME AT DISMOUNT 5 ! ENABLE WRITE-BACK CACHE ON TAPE8 ! DO NOT ALLOW SHADOW COPY OPERATIONA ! DO NOT SET THE MTAACP INTO AVR AND AVL MODEB ! INITIALIZE ALL VOLUMES IN SET BEFORE WRITINGD ! INITIALIZE CONTINUATION VOLUMES BEFORE WRITING; ! OVERRIDE VOL1 VOLUME IDENTIFIER FIELDK ! VOL FOR INTERCHG NO VMS SPECIFIC INFO WRITTEN TO TAPE8  ! CLUSTER-WIDE MOUNT OPTION SELECTED+ ! DO NOT REBUILD VOLUME< ! OVERRIDE SHADOW MEMBERSHIP RESTRICTION+ ! MULTI_VOLUME TAPE SET/ ! QUOTA EXPLICITLY SELECTED0 ! MAGTAPE DATA COMPACTION ON8 ! INCLUDE PREVIOUS SHADOWSET MEMBERS: ! PASS2 of /INCLUDE/CONFIRM PROCESSING/ ! /OVERRIDE=NO_FORCED_ERROR1 ! Scratch ta pe requested flag= ! Force mounting of a Files-11 C/D Volume5 ! Enable protection based on XARsJ ! Enable protection based on Digital System Id in XARs ! /SUBSYSTEM1 ! MAGTAPE DATA COMPACTION OFF( ! /OVERRIDE=SECURITY/ ! /OVERRIDE=LIMITIED_SEARCH> ! /POOL operation for snapshot pool member( ! /POLICY=ENABLE_WLG)  ! /POLICY=DISABLE_WLG- ! /POLICY=REQUIRE_MEMBERS# ! /VERIFY_LABEL# ! /POLICY=MERGE) ! /POLCIY=WRITE_FIRST! ! /POLICY=DCD# ! /POLICY=NODCD( ! /POLICY=LOCAL_HOST$ ! /POLICY=FACTOR& ! /POLICY=PRIORITY* ! /POLICY=MINICOPY=REQ* ! /POLICY=MINICOPY=OPT(  ! /POLICY=NOMINICOPYv BYTE FOREIGN_bits ( 8 ) ! COMMENT ADDED BY SDL - FOREIGN_bits contains bits FOREIGN through FILL_0* end group MNT$R_MNTDEF_BITS case' group MNT$R_MNT2DEF_BITS/ ! QUOTA EXPLICITLY SELECTED0 ! MAGTAPE DATA COMPACTION ON8 ! INCLUDE PREVIOUS SHADOWSET MEMBERS: ! PASS2 of /INCLUDE/CONFIRM PROCESSING/ ! /OVERRIDE=NO_FORCE D_ERROR1 ! Scratch tape requested flag= ! Force mounting of a Files-11 C/D Volume5 ! Enable protection based on XARsJ ! Enable protection based on Digital System Id in XARs ! /SUBSYSTEM1 ! MAGTAPE DATA COMPACTION OFF( ! /OVERRIDE=SECURITY/ ! /OVERRIDE=LIMITIED_SEARCH> ! /POOL operation for snapshot pool member(  ! /POLICY=ENABLE_WLG) ! /POLICY=DISABLE_WLG- ! /POLICY=REQUIRE_MEMBERS# ! /VERIFY_LABEL# ! /POLICY=MERGE) ! /POLCIY=WRITE_FIRST! ! /POLICY=DCD# ! /POLICY=NODCD( ! /POLICY=LOCAL_HOST$ ! /POLICY=FACTOR& ! /POLICY=PRIORITY& ! /POLICY=MINICOPY* ! /POLICY=MINICOPY=OPT( ! /POLICY=NOMINICOPYj LONG DISKQ_bits ! COMMENT ADDED BY SDL - DISKQ_bits contains bits DISKQ through FILL_1+ end group MNT$R_MNT2DEF_BITS ! ' ! Item codes for mount parameters. ! ! ! DEFINE CODES AS CONSTANTS  end variant end record MNTDEF  ! 0 ! Define format of the /UNDEFINED_FAT block ! 5 DECLARE LONG CONSTANT UNFAT$S_UNDEFINED_FAT = 4 record UNDEFINED_FATF WORD UNFAT$W_MRS ! FAT Maximum Record SizeD BYTE UNFAT$B_RAT ! FAT Record Attributes@ BYTE UNFAT$B_RFM ! FAT Record Format end record UNDEFINED_FAT  ww ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! ( ! SYSTEM WIDE MAILBOX MESSAGE TYPES !  ! -! ! DEFINE CODES AS CONSTANTS N DECLARE LONG CONSTANT MSG$_TRMUNSOLIC = 1 ! UNSOLICITED TERMINAL DATA O DECLARE LONG CONSTANT MSG$_CRUNSOLIC = 2 ! UNSOLICTED CARD READER DATA @ DECLARE LONG CONSTANT MSG$_DELPROC = 3 ! DELETE PROCESS I DECLARE LONG CONSTANT MSG$_SNDSMB = 4 ! SEND TO SYMBIONT MANAGER B DECLARE LONG CONSTANT MSG$_DEVOFFLIN = 5 ! DEVICE OFFLINE D DECLARE LONG CONSTANT MSG$_TRMHANGUP = 6 ! TERMINAL HANG UP @ DECLARE LONG CONSTANT MSG$_DEVONLIN = 7 ! DEVICE ONLINE Y DECLARE LONG CONSTANT MSG$_OPRQST = 8 ! OPERATOR REQUEST *** OVERLAPPED CODE *** X DECLARE LONG CONSTANT MSG$_OPREPLY = 9 ! OPERATOR REPLY *** OVERLAPPED CODE *** ) ! DEFINE SYMBIONT RESPONSE MESSAGES D DECLARE LONG CONSTANT MSG$_SMBINI = 8 ! SYMBIONT HAS INITED B DECLARE LONG CONSTANT MSG$_SMBDON = 9 ! SYMBIONT FINISHED T DECLARE LONG CONSTANT MSG$_SNDACC = 10 ! SEND MESSAGE TO ACCOUNTING MANAGER X DECLARE LONG CONSTANT MSG$_PURPROC = 11 ! PURGE PROCESS *** OVERLAPPED CODE *** W DECLARE LONG CONSTANT MSG$_DELIMAG = 12 ! DELETE IMAGE *** OVERLAPPED CODE *** V DECLARE LONG CONSTANT MSG$_PURIMAG = 13 ! PURGE IMAGE *** OVERLAPPED CODE *** Z DECLARE LONG CONSTANT MSG$_SYSFUNC = 14 ! SYSTEM FUNCTION *** OVERLAPPED CODE *** O DECLARE LONG CONSTANT MSG$_SNDJBC = 15 ! Send message to job controller\ DECLARE LONG CONSTANT MSG$_GETQUI = 16 ! Get queue information (from job controller) ! DEFINE DMC MESSAGES I DECLARE LONG CONSTANT MSG$_XM_DATAVL = 11 ! DMC UNSOLICITED DATA B DECLARE LONG CONSTANT MSG$_XM_SHUTDN = 12 ! DMC LINE DOWN H DECLARE LONG CONSTANT MSG$_XM_ATTN = 13 ! DMC ATTENTION MESSAGE ! ! SYMBIONT COMMAND MESSAGES J DECLARE LONG CONSTANT MSG$_INIOPR = 16 ! INITIATE PRINTING A FILE G DECLARE LONG CONSTANT MSG$_ABOOPR = 17 ! ABORT PRINTING A FILE I DECLARE LONG CONSTANT MSG$_SUSOPR = 18 ! PAUSE PRINTING THE FILE J DECLARE LONG CONSTANT MSG$_RESOPR = 19 ! RESUME PRINTING THE FILE O DECLARE LONG CONSTANT MSG$_DELSMB = 20 ! SYMBIONT SHOULD DELETE ITSELF L DECLARE LONG CONSTANT MSG$_REQUE = 21 ! REQUEUE A FILE FOR PRINTING  ! K DECLARE LONG CONSTANT MSG$_SMBRSP = 32 ! SYMBIONT MANAGER RESPONSE M DECLARE LONG CONSTANT MSG$_ACCRSP = 33 ! ACCOUNTING MANAGER RESPONSE  ! FILE ACP MESSAGES K DECLARE LONG CONSTANT MSG$_SCANBAD = 40 ! SCAN FILE FOR BAD BLOCKS M DECLARE LONG CONSTANT MSG$_SCANRSP = 41 ! RESPONSE FROM FILE SCANNER  ! NETWORK ATTENTION CODES E  DECLARE LONG CONSTANT MSG$_ABORT = 48 ! PARTNER ABORTED LINK B DECLARE LONG CONSTANT MSG$_CONFIRM = 49 ! CONNECT CONFIRM K DECLARE LONG CONSTANT MSG$_CONNECT = 50 ! INBOUND CONNECT INITIATE O DECLARE LONG CONSTANT MSG$_DISCON = 51 ! PARTNER DISCONNECTED - HANGUP J DECLARE LONG CONSTANT MSG$_EXIT = 52 ! PARTNER EXITED PREMATURELY V DECLARE LONG CONSTANT MSG$_INTMSG = 53 ! INTERRUPT MESSAGE - UNSOLICITED DATA N DECLARE LONG CONSTANT MSG$_PATHLOST = 54 ! NFW - PATH LOST TO PARTNER B DECLARE LONG CONSTANT MSG$_PROTOCOL = 55 ! PROTOCOL ERROR @ DECLARE LONG CONSTANT MSG$_REJECT = 56 ! CONNECT REJECT L DECLARE LONG CONSTANT MSG$_THIRDPARTY = 57 ! THIRD PARTY DISCONNECT B DECLARE LONG CONSTANT MSG$_TIMEOUT = 58 ! CONNECT TIMEOUT H DECLARE LONG CONSTANT MSG$_NETSHUT = 59 ! Network shutting down M DECLARE LONG CONSTANT MSG$_NODEACC = 60 ! Node has become accessible Q DECLARE LONG CONSTANT MSG$_NODEINACC = 61 ! Node has become inaccessible M DECLARE LONG CONSTANT MSG$_EVTAVL = 62 ! Events are available to EVL S DECLARE LONG CONSTANT MSG$_EVTRCVCHG = 63 ! Event receiver database change C DECLARE LONG CONSTANT MSG$_INCDAT = 64 ! X25 INCOMING DATA B DECLARE LONG CONSTANT MSG$_RESET = 65 ! X25 CIRCUIT RESET @ DECLARE LONG CONSTANT MSG$_LINUP = 66 ! X25 PVC LINE UP C DECLARE LONG CONSTANT MSG$_LINDWN = 67 ! X25 PVC LINE DOWN V DECLARE LONG CONSTANT MSG$_EVTXMTCHG = 68 ! Event transmitter database change # ! MOUNT VERIFICATION MESSAGES D DECLARE LONG CONSTANT MSG$_DEVOFFLINX = 80 ! DEVICE OFFLINE J DECLARE LONG CONSTANT MSG$_WRONGVOL = 81 ! WRONG VOLUME IN DEVICE Q DECLARE LONG CONSTANT MSG$_DEVWRTLCK = 82 ! DEVICE HAS BEEN WRITE LOCKED G DECLARE LONG CONSTANT MSG$_TRMBRDCST = 83 ! TERMINAL BROADCAST R DECLARE LONG CONSTANT MSG$_MVCOMPLETE = 84 ! MOUNT VERIFICATION COMPLETED O DECLARE LONG CONSTANT MSG$_MVABORTED = 85 ! MOUNT VERIFICATION ABORTED G DECLARE LONG CONSTANT MSG$_DISMOUNTED = 86 ! VOLUME DISMOUNTED Q DECLARE LONG CONSTANT MSG$_UDA50MVER = 87 ! UDA50 MICORCODE NOT UPTO REV W DECLARE LONG CONSTANT MSG$_DUPUNITNO = 88 ! MSCP CONTROLLER - DUPLICATE UNIT ? I DECLARE LONG CONSTANT MSG$_CLUMBX = 89 ! CNXMGR to OPCOM messagesU DECLARE LONG CONSTANT MSG$_TM78MVER = 90 ! TM78 Microcode not up to rev levelS DECLARE LONG CONSTANT MSG$_SHAMEMFAL = 91 ! Member failed out of shadow setF DECLARE LONG CONSTANT MSG$_SHARDUCED = 92 ! Shadow set reducedO DECLARE LONG CONSTANT MSG$_RC25MVER = 93 ! RC25 MICORCODE NOT UPTO REV O DECLARE LONG CONSTANT MSG$_RDRXMVER = 94 ! RDRX MICORCODE NOT UPTO REV O DECLARE LONG CONSTANT MSG$_TU81MVER = 95 ! TU81 MICORCODE NOT UPTO REV O DECLARE LONG CONSTANT MSG$_MAYAMVER = 96 ! MAYA MICORCODE NOT UPTO REV P DECLARE LONG CONSTANT MSG$_SHACHASTA = 97 ! Shadow set has changed stateW DECLARE LONG CONSTANT MSG$_SHACOPCOM = 98 ! Shadow copy operation has completedV DECLARE LONG CONSTANT MSG$_SHAREDZER = 99 ! Shadow set reduced to zero membersO DECLARE LONG CONSTANT MSG$_SHAPOSMEM = 100 ! Possible shadow set member] DECLARE LONG CONSTANT MSG$_SHAALLCOM = 101 ! All shadow set copy operations completedP DECLARE LONG CONSTANT MSG$_SHACOPBEG = 102 ! Shadow copy operation begunX DECLARE LONG CONSTANT MS G$_SHAWROMEM = 103 ! Shadow member contains wrong volume] DECLARE LONG CONSTANT MSG$_SHAORGMEM = 104 ! Shadow system disk missing VMB R3 memberO DECLARE LONG CONSTANT MSG$_TRMLOSE_KB = 105 ! terminal lost physical KBQ DECLARE LONG CONSTANT MSG$_TRMGAIN_KB = 106 ! terminal gained physical KBS DECLARE LONG CONSTANT MSG$_TRMSHRINK = 107 ! terminal window shrunk to iconR DECLARE LONG CONSTANT MSG$_TRMEXPAND = 108 ! terminal window icon expandedL DECLARE !LONG CONSTANT MSG$_TRMRESIZE = 109 ! terminal window resizedH DECLARE LONG CONSTANT MSG$_TRMMOVE = 110 ! terminal window movedX DECLARE LONG CONSTANT MSG$_SNDMME = 111 ! message to media management extensionsa DECLARE LONG CONSTANT MSG$_RETMME = 112 ! message returned from media management software DECLARE LONG CONSTANT MSG$_SHAADPBAD = 113 ! Shadow VMB R3 member not currently connected to original boot adapter type & ! (PA versus PU) DECLARE LONG CONSTAN"T MSG$_SHAEMUPTH = 114 ! Shadow VMB R3 member not currently connected to original boot adapter - on & ! an emulated pathy DECLARE LONG CONSTANT MSG$_SHABENODMP = 115 ! Shadow VMB R3 member not on original adapter, current type unknown { DECLARE LONG CONSTANT MSG$_SHABNODMP = 116 ! Shadow VMB R3 member not the master of set or not on PATH named to VMB DECLARE LONG CONSTANT MSG$_SHALOCDEV = 117 ! A Satellites shadow master member is now on a local device, no reboot or &# ! dumps possibled DECLARE LONG CONSTANT MSG$_SHANOBPOK = 118 ! Shadow VMB R3 member is not a member of the setd DECLARE LONG CONSTANT MSG$_SHABDMPOK = 119 ! Shadow VMB R3 member is on the original adapterv DECLARE LONG CONSTANT MSG$_BOOTDMPOK = 120 ! System dump will has been redirected to the current master membern DECLARE LONG CONSTANT MSG$_SHABDBCK = 121 ! Shadow VMB R3 member has returned to the original adapter w DECLARE LONG CONSTANT MSG$_SHANODMP = 122 $ ! Shadow master changed. Dump will NOT be written if system crashes.s DECLARE LONG CONSTANT MSG$_SHADMPOK = 123 ! Shadow master changed. Dump WILL be written if system crashes.o DECLARE LONG CONSTANT MSG$_OPCFAO = 124 ! Message contains dynamic FAO parameters to format the messageh DECLARE LONG CONSTANT MSG$_INSAMCVP = 125 ! Shadowing - not all requested bitmaps were convertedV DECLARE LONG CONSTANT MSG$_HBMMRESET = 126 ! Shadowing - HBMM bitmap was resete %DECLARE LONG CONSTANT MSG$_SHADISSOLVED = 127 ! Shadowing -- virtual unit has been vapourizede DECLARE LONG CONSTANT MSG$_SHAMEMEXPEL = 128 ! Shadowing -- a member device has been expelledu DECLARE LONG CONSTANT MSG$_SHAMEMDMT = 129 ! Shadowing -- a member device has been dismounted from shadow set& ! DEFINE MESSAGES FOR USE BY QMANO DECLARE LONG CONSTANT MSG$_QMAN_INTERNAL = 200 ! QMAN internal message * ! DEFINE MESSAGES FOR USE BY PEDRIVERK DECLARE LONG CONSTANT MSG$_PEMBX = 220 ! PEDRIVER to OPCOM messages ww' ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED (( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN)G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > * %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  9 DECLARE LONG CONSTANT MSGHLP$M_NOSORT = x'00000001'8 DECLARE LONG CONSTANT MSGHLP$M_BRIEF = x'00000002': DECLARE LONG CONSTANT MSGHLP$M_MACHINE = x'00000004'> DECLARE LONG CONSTANT MSGHLP$M_N +OSUBSTRING = x'00000008'2 DECLARE LONG CONSTANT MSGHLP$S_MSGHLPDEF = 4 record MSGHLPDEF& ! Do *NOT* sort the output 1 ! Give only the names of the messages 8 ! Return the text in machine-readable format 6 ! Match only entire words, no abreviations f BYTE NOSORT_bits ! COMMENT ADDED BY SDL - NOSORT_bits contains bits NOSORT through FILL_10_ WORD MSGHLP$w_unusedL BYTE MSGHLP$B_WORK_FILES ! How many workfiles for /SORT? end record MSGHLPDEF  ww-d ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED .( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN/G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 0 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +) ! MAGTAPE ACCESSIBILTY ROUTINE CODES ! -# ! DEFINITIONS FOR ACCESS_SPEC K DECLARE LONG CONSTANT MTA$K_NOCHAR = 0 ! ACCESS CHAR IS NOVALID H DECLARE LONG CONSTANT MTA$K_CHARVALID = 1 ! ACCESS CHAR IS VALID ! DEFINITIONS FOR TYPE I DECLARE LONG CONSTANT MTA$K_INVOL1 = 0 ! INPUT A VOL1 ACCESS CODEI DECLARE LONG CONSTANT MTA$K_INHDR1 = 1 ! INPUT A HDR1 ACCESS CODEK DECLARE LONG CONSTANT MTA$K_OUTVOL1 = 2 ! OUTPUT A VOL1 ACCESS CODEK DECLARE LONG CONSTANT MTA$K_OUTHDR1 = 3 ! OUTPUT A HDR1 ACCESS CODE ww2 ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED 3( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN4G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 5 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! MAGTAPE STATUS BITS ! -6 DECLARE LONG CONSTANT MT$M_SEREXCP = x'00000001'9 DECLARE LONG CONSTANT MT$M_ENAUTOPACK = x'00000002'8 DECLARE LONG CONSTANT MT$M_ENSEREXCP = x'00000 6004'5 DECLARE LONG CONSTANT MT$M_PARITY = x'00000008'5 DECLARE LONG CONSTANT MT$M_FORMAT = x'000000F0'6 DECLARE LONG CONSTANT MT$M_DENSITY = x'00001F00'< DECLARE LONG CONSTANT MT$M_FASTSKIP_USED = x'00002000'6 DECLARE LONG CONSTANT MT$M_LOGSOFT = x'00004000'8 DECLARE LONG CONSTANT MT$M_LOGSOFTOG = x'00008000'2 DECLARE LONG CONSTANT MT$M_BOT = x'00010000'2 DECLARE LONG CONSTANT MT$M_EOF = x'00020000'2 DECLARE LONG CONSTANT MT$M_EOT = x'00040000'2 7 DECLARE LONG CONSTANT MT$M_HWL = x'00080000'3 DECLARE LONG CONSTANT MT$M_LOST = x'00100000'7 DECLARE LONG CONSTANT MT$M_SUP_NRZI = x'00200000'5 DECLARE LONG CONSTANT MT$M_SUP_PE = x'00400000'6 DECLARE LONG CONSTANT MT$M_SUP_GCR = x'00800000'4 DECLARE LONG CONSTANT MT$M_SPEED = x'FF000000'@ DECLARE LONG CONSTANT MT$K_DEFAULT = 0 ! DEFAULT FORMAT A DECLARE LONG CONSTANT MT$K_NORMAL11 = 12 ! PDP-11 NORMAL D DECLARE LONG CONSTANT MT$K_CORDMP11 8= 13 ! PDP-11 CORE DUMP A DECLARE LONG CONSTANT MT$K_NORMAL15 = 14 ! PDP-15 NORMAL  ! ? DECLARE LONG CONSTANT MT$K_NRZI_800 = 3 ! NRZI 800 BPI = DECLARE LONG CONSTANT MT$K_PE_1600 = 4 ! PE 1600 BPI ? DECLARE LONG CONSTANT MT$K_GCR_6250 = 5 ! GCR 6250 BPI J DECLARE LONG CONSTANT MT$K_WOD_6250 = 8 ! RV80 6250 BPI EQUIVALENTN DECLARE LONG CONSTANT MT$K_SCSI_DC1 = 10 ! Data Compaction algorithm 1? DECLARE LONG CONSTANT MT$K_HPC_40K = 12 ! 9HPC 39872 BPIF DECLARE LONG CONSTANT MT$K_HPC_COMP = 13 ! HPC 39872 compacted2 DECLARE LONG CONSTANT MT$K_XPC_80K = 14 ! 3 DECLARE LONG CONSTANT MT$K_XPC_COMP = 15 ! F DECLARE LONG CONSTANT MT$K_BLK_833 = 17 ! BLOCK (TK50) 833 BPIH DECLARE LONG CONSTANT MT$K_BLK_1250 = 18 ! BLOCK (TK70) 1250 BPIH DECLARE LONG CONSTANT MT$K_BLK_10K = 19 ! BLOCK (TF85) 10625 BPID DECLARE LONG CONSTANT MT$K_BLK_20K = 20 ! BLOCK (TF86) 10626D DECLARE LONG CON :STANT MT$K_BLK_60K = 21 ! BLOCK (Tx87) 62500P DECLARE LONG CONSTANT MT$K_BLK_COMP = 22 ! BLOCK (Tx87) COMPRESSED 62501T DECLARE LONG CONSTANT MT$K_DAT_61K = 24 ! DAT CARTRIDGE 61000 BPI EQUIVALENT ! @ DECLARE LONG CONSTANT MT$K_SPEED_DEF = 0 ! DEFAULT SPEED9 DECLARE LONG CONSTANT MT$K_SPEED_25 = 25 ! 25 IPS9 DECLARE LONG CONSTANT MT$K_SPEED_75 = 75 ! 75 IPS* DECLARE LONG CONSTANT MT$S_MTDEF = 4 record MTDEF variant ca ;se$ group MT$R_MTDEF_BITS/ ! SERIOUS EXCEPTION PRESENT) ! ENABLE AUTO PACKACK3 ! ENABLE SERIOUS EXCEPTION MODE4 ! PARITY SELECT (0=ODD, 1=EVEN) ' ! RECORDING FORMAT 3 ! RECORDING DENSITY AND METHOD 9 ! IO$_SKIPFILE USED SKIP BY FILEMARKS; ! LOG SOFT (TU78) ERRORS (0=NO, 1=YES) : ! TOGGLE TO REVERSE LOGS <OFT STATE BIT + ! AT BEGINNING OF TAPE % ! AT END OF FILE % ! AT END OF TAPE 3 ! TAPE IS HARDWARE WRITELOCKED ) ! TAPE POSITION LOST 3 ! DRIVE SUPPORTS NRZI (800 BPI)2 ! DRIVE SUPPORTS PE (1600 BPI)3 ! DRIVE SUPPORTS GCR (6250 BPI) ! TAPE SPEEDo LONG SEREXCP_bits ! COMMENT ADDED BY SDL - SEREXCP_b=its contains bits SEREXCP through SPEED( end group MT$R_MTDEF_BITS ! " ! RECORDING FORMAT DEFINTIONS !  ! / ! RECORDING DENSITY AND METHOD DEFINITIONS !  ! Default 0 ! 9 Track 1 - 7 ! Optical Disk 8 - 9% ! SCSI Compaction codes 10 - 11) ! High Performance Cartridge 12 - 15 ! Block Mode 16 - 23 ! Reserved 24 - 31 !  ! Q ! DEFAULT,0 /* DEFAULT DENSITY (SAME AS ABOVE)# ! TAPE SPEED VALUE DEFINITIONS !  end variant end record MTDEF  ww? ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED @( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINAG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > B %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +, ! EXTENDED MAGTAPE CHARACTERISTICS BITS ! -8 DECLARE LONG CONSTANT MT2$M_SUP_DENS = x'0000FFFF': DECLARE LONG CONSTANT MT2$M_WBC_ENABLE = x'00010000'; DECLARE LONG CONSTANT MT2$ CM_RDC_DISABLE = x'00020000'; DECLARE LONG CONSTANT MT2$M_CACHED_DATA = x'00040000'7 DECLARE LONG CONSTANT MT2$M_CD_LOST = x'00080000'9 DECLARE LONG CONSTANT MT2$M_TAPE_MARK = x'00100000'8 DECLARE LONG CONSTANT MT2$M_COMP_SUP = x'00200000'8 DECLARE LONG CONSTANT MT2$M_COMP_ENA = x'00400000'= DECLARE LONG CONSTANT MT2$M_MT3_SUPPORTED = x'00800000'= DECLARE LONG CONSTANT MT2$M_ALLOWFAST_SUP = x'01000000'@ DECLARE LONG CONSTANT MT2$M_ALLOWFAST_ALWAYS = D x'02000000'@ DECLARE LONG CONSTANT MT2$M_ALLOWFAST_PER_IO = x'04000000'? DECLARE LONG CONSTANT MT2$M_ALLOWFAST_NEVER = x'08000000', DECLARE LONG CONSTANT MT2$S_MT2DEF = 4 record MT2DEF variant case& group MT2$R_MT2DEF_BITS) ! SUPPORTED DENSITIES3 ! WRITE-BACK CACHING IS ENABLED. ! READ CACHING IS DISABLED9 ! CLASS DRIVER DETECTED DATA IN CACHE< E ! CLASS DRIVER DETECTED CACHED DATA LOST0 ! TAPE MARK HAS BEEN WRITTEN+ ! COMPACTION supported ) ! COMPACTION enabled ? ! Driver supports Multiple Tape Densities. 0 ! SCSI Fast Search supported, ! ALWAYS use Fast Search/ ! PER_IO use of Fast Search, ! NEVER use Fast Search u LONG SUP_DENS_bits ! COMMENT ADDED BY SDL - SUP_DENS_bits contains bits SUP_DENS through FILL_11_* end group MT2$R_MT2DEF_BITS end variant end record MT2DEF  wwG ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED H( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINIG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > J %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +4 ! MAGNETIC TAPE DENSITY/COMPRESSION DEFINITIONS ! @ ! These values are used only for MTD enhanced tape drivers " ! and are not found in MTDEF. ! N DECLARE LONG CONKSTANT MT3$K_DEFAULT = 0 ! DEFAULT DENSITY/COMPRESSION B DECLARE LONG CONSTANT MT3$K_NRZI_800 = 257 ! NRZI 800 BPI @ DECLARE LONG CONSTANT MT3$K_PE_1600 = 258 ! PE 1600 BPI B DECLARE LONG CONSTANT MT3$K_GCR_6250 = 260 ! GCR 6250 BPI B DECLARE LONG CONSTANT MT3$K_TK50 = 513 ! DLT TK50: 833 BPIC DECLARE LONG CONSTANT MT3$K_TK70 = 514 ! DLT TK70: 1250 BPIG DECLARE LONG CONSTANT MT3$K_3480 = 769 ! IBM 3480 HPC 39872 BPIF DECLARE LONG CONSTANT MT3$K_L3490E = 770 ! IBM 3480: compressedG DECLARE LONG CONSTANT MT3$K_3480_COMP = 772 ! IBM 3490 density K DECLARE LONG CONSTANT MT3$K_3490E_COMP = 776 ! IBM 3490: compressedN DECLARE LONG CONSTANT MT3$K_WOD_6250 = 1025 ! RV80 6250 BPI EQUIVALENT@ DECLARE LONG CONSTANT MT3$K_DAT = 1281 ! DAT - 61000 bpiD DECLARE LONG CONSTANT MT3$K_DAT_COMP = 1282 ! DAT CompressedR ! Only the Symbols to here are understood by pre-Raven TMSCP / TUDRIVER code.d DECLARE LOMNG CONSTANT MT3$K_DENSITY_INVALID = 31 ! Indicates,, DEVDEPEND density is invalid.? DECLARE LONG CONSTANT MT3$K_8200 = 1537 ! Exa-Byte 8200? DECLARE LONG CONSTANT MT3$K_8500 = 1538 ! Exa-Byte 8500O DECLARE LONG CONSTANT MT3$K_8500_COMP = 1540 ! Exa-Byte 8500 CompressedO DECLARE LONG CONSTANT MT3$K_8200_COMP = 1544 ! Exa-Byte 8200 Compressed? DECLARE LONG CONSTANT MT3$K_8900 = 1552 ! Exa-Byte 8900O DECLARE LONG CONSTANT MT3$K_8900_COMP = 1568 ! ExaN-Byte 8900 CompressedX DECLARE LONG CONSTANT MT3$K_QIC = 1793 ! All QIC drives are drive settable only.Q DECLARE LONG CONSTANT MT3$K_TK85 = 2052 ! DLT Tx85: 10625 BPI -- Cmpt IIIQ DECLARE LONG CONSTANT MT3$K_TK86 = 2056 ! DLT Tx86: 10626 BPI -- Cmpt IIIQ DECLARE LONG CONSTANT MT3$K_TK87 = 2064 ! DLT Tx87: 62500 BPI -- Cmpt IIIU DECLARE LONG CONSTANT MT3$K_TK87_COMP = 2080 ! DLT Tx87: Compressed 62501 BPIU DECLARE LONG CONSTANT MT3$K_TK89 = 2305 ! DLOT Tx89: (Quantum 7000) -- Cmpt IVV DECLARE LONG CONSTANT MT3$K_TK89_COMP = 2306 ! DLT Tx89: Compressed -- Cmpt IVU DECLARE LONG CONSTANT MT3$K_TK88 = 2368 ! DLT Tx88: (Quantum 4000) -- Cmpt IVV DECLARE LONG CONSTANT MT3$K_TK88_COMP = 2432 ! DLT Tx88: Compressed -- Cmpt IV= DECLARE LONG CONSTANT MT3$K_DLT8000 = 3588 ! DLT8000 L DECLARE LONG CONSTANT MT3$K_DLT8000_COMP = 3592 ! DLT8000 Compressed; DECLARE LONG CONSTANT MT3$K_SDLT = 3600 ! Super DLTK P DECLARE LONG CONSTANT MT3$K_SDLT_COMP = 3616 ! Super DLT CompressedA DECLARE LONG CONSTANT MT3$K_SDLT320 = 3648 ! Super DLT320Q DECLARE LONG CONSTANT MT3$K_SDLT320_COMP = 3712 ! Super DLT320 CompressedQ DECLARE LONG CONSTANT MT3$K_AIT1 = 2561 ! Sony Advanced Intelligent Tapesa DECLARE LONG CONSTANT MT3$K_AIT1_COMP = 2562 ! Sony Advanced Intelligent Tapes Compressed6 DECLARE LONG CONSTANT MT3$K_AIT2 = 2564 ! AIT2F DECLARE LONG CONSTANT MT3$K_AIT2Q_COMP = 2568 ! AIT2 Compressed6 DECLARE LONG CONSTANT MT3$K_AIT3 = 2576 ! AIT3F DECLARE LONG CONSTANT MT3$K_AIT3_COMP = 2592 ! AIT3 Compressed6 DECLARE LONG CONSTANT MT3$K_AIT4 = 2624 ! AIT4F DECLARE LONG CONSTANT MT3$K_AIT4_COMP = 2688 ! AIT4 CompressedH DECLARE LONG CONSTANT MT3$K_DDS2 = 2817 ! Digital Data Storage 2X DECLARE LONG CONSTANT MT3$K_DDS2_COMP = 2818 ! Digital Data Storage 2 CompressedI DECLARE LONG CONSTANT MT3$K_DDS3 = 3073 ! DiRgital Data Storage 3 Z DECLARE LONG CONSTANT MT3$K_DDS3_COMP = 3074 ! Digital Data Storage 3 Compressed J DECLARE LONG CONSTANT MT3$K_DDS4 = 3329 ! Digital Data Storage 4 Z DECLARE LONG CONSTANT MT3$K_DDS4_COMP = 3330 ! Digital Data Storage 4 Compressed 8 DECLARE LONG CONSTANT MT3$K_DAT72 = 3332 ! DAT72H DECLARE LONG CONSTANT MT3$K_DAT72_COMP = 3336 ! DAT72 Compressed: DECLARE LONG CONSTANT MT3$K_DAT160 = 3344 ! DAT160J DECLARE LONG CONSTANT MTS3$K_DAT160_COMP = 3360 ! DAT160 CompressedA DECLARE LONG CONSTANT MT3$K_SDLT600 = 3585 ! Super DLT600Q DECLARE LONG CONSTANT MT3$K_SDLT600_COMP = 3586 ! Super DLT600 Compressed< DECLARE LONG CONSTANT MT3$K_LTO2 = 3841 ! Ultrium460L DECLARE LONG CONSTANT MT3$K_LTO2_COMP = 3842 ! Ultrium460 Compressed< DECLARE LONG CONSTANT MT3$K_LTO3 = 3844 ! Ultrium960L DECLARE LONG CONSTANT MT3$K_LTO3_COMP = 3848 ! Ultrium960 Compressed> DECLARE LONG CONSTANT MT3$K_LTO4 = 3856 ! Ultrium 1840N DECLARE LONG CONSTANT MT3$K_LTO4_COMP = 3872 ! Ultrium 1840 Compressed ! Compression Only codes. S ! The X%FFxx codes below are layed out so that future compression enhancments 8 ! may take advantage of multiple compression types.I DECLARE LONG CONSTANT MT3$K_NO_COMP = 65280 ! All Compression OFFA DECLARE LONG CONSTANT MT3$K_COMP = 65281 ! Compression ON ww69@! ! *** PREDECLARED TYPES M: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )$ END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )L END RECORDF* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF $< %IF %DECLARED V ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED W( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINXG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > Y %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! DECnet-VAX definitions ! -, DECLARE LONG CONSTANT NET$S_NETDEF = 4 record NETDEFA BYTE NET$B_USER_ECO ! User ECO of DECnetD BYTE NET$B_DEC_ECO  ! Digital ECO of DECnet= BYTE NET$B_DEC_VERSION ! DECnet VersionB BYTE NET$B_RESERVED ! Reserved to Digital end record NETDEF  ww[%DEFINE NSAREPLYDEF LONG ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF \ < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %D]ECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 ^ %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! L ! Define the packet header and record types used for security auditing. ! Q DECLARE LONG CONSTANT NSA$C_MSG_SERVER = 1 ! Audit server control messageN DECLAR_E LONG CONSTANT NSA$C_MSG_AUDIT = 2 ! Change in auditable eventsE DECLARE LONG CONSTANT NSA$C_MSG_BREAKIN = 3 ! Breakin attemptR DECLARE LONG CONSTANT NSA$C_MSG_INSTALL = 4 ! Change to INSTALLed databaseC DECLARE LONG CONSTANT NSA$C_MSG_LOGFAIL = 5 ! Login failureD DECLARE LONG CONSTANT NSA$C_MSG_LOGIN = 6 ! Successful loginF DECLARE LONG CONSTANT NSA$C_MSG_LOGOUT = 7 ! Successful logoutL DECLARE LONG CONSTANT NSA$C_MSG_MOUNT = 8 ! Volume mount or di`smountU DECLARE LONG CONSTANT NSA$C_MSG_NETPROXY = 9 ! Network proxy data base changeT DECLARE LONG CONSTANT NSA$C_MSG_ACCESS = 10 ! Object access *** obsolete ***@ DECLARE LONG CONSTANT NSA$C_MSG_SYSUAF = 11 ! UAF changeN DECLARE LONG CONSTANT NSA$C_MSG_RIGHTSDB = 12 ! Rights database changeR DECLARE LONG CONSTANT NSA$C_MSG_CUSTOMER = 13 ! Customer application eventH DECLARE LONG CONSTANT NSA$C_MSG_CSS = 14 ! CSS application eventG DECLARE LONG CaONSTANT NSA$C_MSG_LP = 15 ! Layered product eventE DECLARE LONG CONSTANT NSA$C_MSG_PRVAUD = 16 ! Privilege auditT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_1 = 17 ! Reserved message type codeT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_2 = 18 ! Reserved message type codeT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_3 = 19 ! Reserved message type codeT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_4 = 20 ! Reserved message type codeO DECLARE LONG CONSTANT NSA$C_MSbG_SYSTIME = 21 ! System time modificationS DECLARE LONG CONSTANT NSA$C_MSG_SYSGEN = 22 ! SYSGEN parameter modificationI DECLARE LONG CONSTANT NSA$C_MSG_OBJ_CREATE = 23 ! Object creationI DECLARE LONG CONSTANT NSA$C_MSG_OBJ_DELETE = 24 ! Object deletionK DECLARE LONG CONSTANT NSA$C_MSG_OBJ_DEACCESS = 25 ! Object deaccessG DECLARE LONG CONSTANT NSA$C_MSG_OBJ_ACCESS = 26 ! Object accessD DECLARE LONG CONSTANT NSA$C_MSG_CONNECTION = 27 ! ConnectionTc DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_5 = 28 ! Reserved Message type codeL DECLARE LONG CONSTANT NSA$C_MSG_NCP = 29 ! NCP command line auditingO DECLARE LONG CONSTANT NSA$C_MSG_PROCESS = 30 ! Process control auditing_ DECLARE LONG CONSTANT NSA$C_MSG_OBJECT_SERVICE = 31 ! Cluster visable object processingV DECLARE LONG CONSTANT NSA$C_MSG_AUTHENTICATE = 32 ! Distributed authenticationD DECLARE LONG CONSTANT NSA$C_MSG_PERSONA = 33 ! Persona eventQ d DECLARE LONG CONSTANT NSA$C_MSG_MAX_CODE = 34 ! Last type code (plus one)9 DECLARE LONG CONSTANT NSA$M_MANDATORY = x'00000001'3 DECLARE LONG CONSTANT NSA$M_ACL = x'00000002'8 DECLARE LONG CONSTANT NSA$M_INTERNAL = x'00000004'5 DECLARE LONG CONSTANT NSA$M_ALARM = x'00000008'5 DECLARE LONG CONSTANT NSA$M_AUDIT = x'00000010'7 DECLARE LONG CONSTANT NSA$M_FOREIGN = x'00000020'5 DECLARE LONG CONSTANT NSA$M_FLUSH = x'00000040'6 DECLARE LONG CONSTANT eNSA$M_SERVER = x'00000080'8 DECLARE LONG CONSTANT NSA$M_DEACCESS = x'00000100'5 DECLARE LONG CONSTANT NSA$M_SYNCH = x'00000200': DECLARE LONG CONSTANT NSA$M_IDENTIFIER = x'00000400'8 DECLARE LONG CONSTANT NSA$M_PROCPRIV = x'00000800'8 DECLARE LONG CONSTANT NSA$M_AUTHPRIV = x'00001000': DECLARE LONG CONSTANT NSA$M_NOEVTCHECK = x'00002000'9 DECLARE LONG CONSTANT NSA$M_NOFAILAUD = x'00004000'9 DECLARE LONG CONSTANT NSA$M_NOSUCCAUD = x'00008000'M DEfCLARE LONG CONSTANT NSA$C_VERSION_1 = 1 ! First version of auditingN DECLARE LONG CONSTANT NSA$C_VERSION_2 = 2 ! Second version of auditinge DECLARE LONG CONSTANT NSA$C_VERSION_3 = 3 ! Third version of auditing (support facility code)S DECLARE LONG CONSTANT NSA$C_V1_MSG_HDR_LENGTH = 12 ! For version 1 messages8 DECLARE LONG CONSTANT NSA$K_V1_MSG_HDR_LENGTH = 12U DECLARE LONG CONSTANT NSA$C_MSG_HDR_LENGTH = 20 ! For latest version messages5 DECLARE LONG g CONSTANT NSA$K_MSG_HDR_LENGTH = 200 DECLARE LONG CONSTANT NSA$S_NSAMSGDEF = 21 record NSAMSGDEF ! Define the packet header? WORD NSA$W_RECORD_TYPE ! Audit event typeB WORD NSA$W_RECORD_SUBTYPE ! Audit event subtype group NSA$R_FILL_12_ variant case= WORD NSA$W_FLAGS ! Auditing flags case& group NSA$R_FILL_13_- ! h Event must be logged/ ! Event results from ACE/ ! Event generated by TCB* ! Event is an alarm* ! Event is an audit- ! Event outside of TCB8 ! Force audit server buffer flush6 ! Override process no-audit bit0 ! Deaccess audit required7 ! Synchronous return if possible7 ! i Privilege check via identifierC ! Privilege check against process privilegesF ! Privilege check against authorized privileges+ ! Bypass event check= ! Do not audit failed privilege checksA ! Do not audit successful privilege checks| WORD MANDATORY_bits ! COMMENT ADDED BY SDL - MANDATORY_bits contains bits MANDATORY through NOSUCCAUD* end groujp NSA$R_FILL_13_ end variant! end group NSA$R_FILL_12_E WORD NSA$W_PACKET_COUNT ! Number of data packets% group NSA$R_REC_SIZE_OVERLAY variant case% WORD NSA$W_REC_SIZE caseQ WORD NSA$W_RECORD_SIZE ! Total size (header + data packets) end variant) end group NSA$R_REC_SIZE_OVERLAY4 BYTE NSA$B_SPARE_3 ! SpareO k BYTE NSA$B_VERSION ! Security auditing version number= WORD NSA$W_SPARE_4 ( 1 to 3 ) ! Spare words@ WORD NSA$W_FACILITY ! VMS facility code? BYTE NSA$R_PACKET_LIST ! Start of packets end record NSAMSGDEF # ! Server control message typesQ DECLARE LONG CONSTANT NSA$C_SRV_ADD_JOURNAL = 1 ! Add a new audit journalZ DECLARE LONG CONSTANT NSA$C_SRV_REM_JOURNAL = 2 ! Remove an exislting audit journalS DECLARE LONG CONSTANT NSA$C_SRV_FLUSH_JOURNAL = 3 ! Flush specified journalY DECLARE LONG CONSTANT NSA$C_SRV_FLUSH_ALL_JOURNALS = 4 ! Flush all audit journals[ DECLARE LONG CONSTANT NSA$C_SRV_FLUSH_INTERVAL = 5 ! Journal flushing time intervalU DECLARE LONG CONSTANT NSA$C_SRV_ARCHIVE_DEVICE = 6 ! Specify archiving deviceS DECLARE LONG CONSTANT NSA$C_SRV_ARCHIVE_ENABLE = 7 ! Archiving enable flagsU DECLARE LONG CONSTANT NSA$C_SRV_ARmCHIVE_DISABLE = 8 ! Archiving disable flags] DECLARE LONG CONSTANT NSA$C_SRV_ARCHIVE_INTERVAL = 9 ! Guaranteed archinving intervalX DECLARE LONG CONSTANT NSA$C_SRV_BADJNL_INTERVAL = 10 ! Bad journal scan intervalk DECLARE LONG CONSTANT NSA$C_SRV_BADJNL_LIMIT = 11 ! Maximum number of bad journals to keep track ofH DECLARE LONG CONSTANT NSA$C_SRV_EXIT = 12 ! Shut down the serverc DECLARE LONG CONSTANT NSA$C_SRV_CREATE_SYSTEM_LOG = 13 ! Create a new system audnit log filed DECLARE LONG CONSTANT NSA$C_SRV_AUDIT_CHANGE = 14 ! Change state of system auditing/alarmingw DECLARE LONG CONSTANT NSA$C_SRV_REDIRECT_SYSTEM_LOG = 15 ! Open the latest version of the system audit log filea DECLARE LONG CONSTANT NSA$C_SRV_REM_ENABLE = 16 ! Enable resource monitoring on a journalc DECLARE LONG CONSTANT NSA$C_SRV_REM_DISABLE = 17 ! Disable resource monitoring on a journal] DECLARE LONG CONSTANT NSA$C_SRV_REM_MONITOR_INTERVAL = 18 !o Resource monitor intervalc DECLARE LONG CONSTANT NSA$C_SRV_REM_RESUME_INTERVAL = 19 ! Resource resume monitor intervala DECLARE LONG CONSTANT NSA$C_SRV_REM_MONITOR_MODE = 20 ! Specify new resource monitor modeh DECLARE LONG CONSTANT NSA$C_SRV_REM_FINAL_ACTION = 21 ! Specify final resource exhaustion action\ DECLARE LONG CONSTANT NSA$C_SRV_REM_WARN_THRESHOLD = 22 ! Resource warning thresholdh DECLARE LONG CONSTANT NSA$C_SRV_REM_ACTION_THRESHOLD = 23 ! Resourpce exhaustion action thresholda DECLARE LONG CONSTANT NSA$C_SRV_REM_RESUME_THRESHOLD = 24 ! Resource resumption thresholdV DECLARE LONG CONSTANT NSA$C_SRV_REM_RESUME = 25 ! Force resource re-evaluation\ DECLARE LONG CONSTANT NSA$C_SRV_REM_ADD_EXCLUDE = 26 ! Add process to exclusion lista DECLARE LONG CONSTANT NSA$C_SRV_REM_DEL_EXCLUDE = 27 ! Remove process from exclusion listV DECLARE LONG CONSTANT NSA$C_SRV_LISTENER_ENABLE = 28 ! Specify listener deviceV q DECLARE LONG CONSTANT NSA$C_SRV_LISTENER_DISABLE = 29 ! Cancel listener deviced DECLARE LONG CONSTANT NSA$C_SRV_NEW_LOG = 30 ! Create new cluster-wide system audit log fileK DECLARE LONG CONSTANT NSA$C_SRV_RESTART = 31 ! Restart audit server^ DECLARE LONG CONSTANT NSA$C_SRV_LOCK_SERVER = 32 ! Lock audit server to prevent changeN DECLARE LONG CONSTANT NSA$C_SRV_RESERVED_1 = 33 ! Reserved server codeN DECLARE LONG CONSTANT NSA$C_SRV_RESERVED_2 = 34 ! Reservedr server codeN DECLARE LONG CONSTANT NSA$C_SRV_RESERVED_3 = 35 ! Reserved server codeN DECLARE LONG CONSTANT NSA$C_SRV_RESERVED_4 = 36 ! Reserved server codea DECLARE LONG CONSTANT NSA$C_SRV_FAILURE_MODE = 37 ! Change security auditing failure modeS DECLARE LONG CONSTANT NSA$C_SRV_SNAPSHOT = 38 ! System snapshot in progressW DECLARE LONG CONSTANT NSA$C_SRV_BACKLOG_TOTAL = 39 ! Flow control total backlog[ DECLARE LONG CONSTANT NSA$C_SRV_BACKLOG_PROCESS = s40 ! Flow control process backlogN DECLARE LONG CONSTANT NSA$C_SRV_INITIATE = 41 ! Initiate event loggingT DECLARE LONG CONSTANT NSA$C_SRV_RESTART_ALL = 42 ! Restart all audit serversS DECLARE LONG CONSTANT NSA$C_SRV_RESTART_OBJECT = 43 ! Restart object serverT DECLARE LONG CONSTANT NSA$C_SRV_MAX_CODE = 44 ! Last message code (plus one)0 ! Define resource exhaustion monitor modes.S DECLARE LONG CONSTANT NSA$C_REM_SPACE = 1 ! # blocks to keep free on voltumeQ DECLARE LONG CONSTANT NSA$C_REM_PERCENTAGE = 2 ! % of volume to keep freeO DECLARE LONG CONSTANT NSA$C_REM_COUNT = 3 ! # msgs to reserve space forW DECLARE LONG CONSTANT NSA$C_REM_TIME = 4 ! # secs to reserve ave. msg space for\ DECLARE LONG CONSTANT NSA$C_REM_MAX_MODE = 5 ! Last resource monitor mode (plus one)G ! Define final action to take when process buffer space exhausted.U DECLARE LONG CONSTANT NSA$C_REM_PURGE_OLD = 1 ! Purge oldest entry furom queueX DECLARE LONG CONSTANT NSA$C_REM_IGNORE_NEW = 2 ! Ignore newest (current) messageZ DECLARE LONG CONSTANT NSA$C_REM_RESTART = 3 ! Restart server - create process dumpM DECLARE LONG CONSTANT NSA$C_REM_CRASH = 4 ! Shutdown VMS (BUG_CHECK) Y DECLARE LONG CONSTANT NSA$C_REM_MAX_FINAL = 5 ! Last final action mode (plus one)9 ! Define security auditing state modification codes.4 DECLARE LONG CONSTANT NSA$C_AUDIT_DISABLED = 13 DECLARE LONG CONSTANvT NSA$C_AUDIT_ENABLED = 25 DECLARE LONG CONSTANT NSA$C_AUDIT_TERMINATE = 34 DECLARE LONG CONSTANT NSA$C_AUDIT_INITIATE = 4X DECLARE LONG CONSTANT NSA$C_SNAPSHOT_SAVE = 5 ! System snapshot save in progress\ DECLARE LONG CONSTANT NSA$C_SNAPSHOT_ABORT = 6 ! System snapshot attempt has aborted] DECLARE LONG CONSTANT NSA$C_SNAPSHOT_STARTUP = 7 ! System booted from a snapshot fileW DECLARE LONG CONSTANT NSA$C_SNAPSHOT_ACCESS = 8 ! Snapshot file access/deaccesswN DECLARE LONG CONSTANT NSA$C_AUDIT_STATE = 9 ! New state of audit flagsO DECLARE LONG CONSTANT NSA$C_ALARM_STATE = 10 ! New state of alarm flagsb DECLARE LONG CONSTANT NSA$C_AUDIT_LOG_FINAL = 11 ! Final entry in audit log (forward link)_ DECLARE LONG CONSTANT NSA$C_AUDIT_LOG_FIRST = 12 ! First entry in audit log (back link)e DECLARE LONG CONSTANT NSA$C_AUDIT_BAD_TCB_AUDIT = 13 ! An internal (TCB) audit was ill-formed5 DECLARE LONG CONSTANT NSA$C_AUDIT_ xMAX_CODE = 143 ! Define security auditing failure mode codes.S DECLARE LONG CONSTANT NSA$C_FAIL_WAIT = 1 ! Wait for resource (if possible)L DECLARE LONG CONSTANT NSA$C_FAIL_CRASH = 2 ! Crash system on failureJ DECLARE LONG CONSTANT NSA$C_FAIL_IGNORE = 3 ! Ignore failing auditT DECLARE LONG CONSTANT NSA$C_FAIL_MAX_MODE = 4 ! Last failure mode (plus one)> ! Define BREAKIN, LOGIN, LOGOUT, and LOGIN failure codes.+ DECLARE LONG CONSTANT NSA$C_BATCH = 1. y DECLARE LONG CONSTANT NSA$C_DETACHED = 2, DECLARE LONG CONSTANT NSA$C_DIALUP = 3+ DECLARE LONG CONSTANT NSA$C_LOCAL = 4- DECLARE LONG CONSTANT NSA$C_NETWORK = 5, DECLARE LONG CONSTANT NSA$C_REMOTE = 60 DECLARE LONG CONSTANT NSA$C_SUBPROCESS = 7, DECLARE LONG CONSTANT NSA$C_SERVER = 86 DECLARE LONG CONSTANT NSA$C_JOBTYPE_MAX_CODE = 9? ! Define INSTALLed file database state modification codes.1 DECLARE LONG CONSTANT NSA$C_INSTALL_ADD = 14 z DECLARE LONG CONSTANT NSA$C_INSTALL_REMOVE = 26 DECLARE LONG CONSTANT NSA$C_INSTALL_MAX_CODE = 3T ! Define INSTALLed file database state modification qualifier codes. Also, the9 ! codes used by the audit message formatting tables.; DECLARE LONG CONSTANT NSA$M_INS_SPARE_0 = x'00000001'8 DECLARE LONG CONSTANT NSA$M_INS_OPEN = x'00000002'C DECLARE LONG CONSTANT NSA$M_INS_HEADER_RESIDENT = x'00000004': DECLARE LONG CONSTANT NSA$M_INS_SHARED = x'00000008'@ { DECLARE LONG CONSTANT NSA$M_INS_EXECUTE_ONLY = x'00000010'= DECLARE LONG CONSTANT NSA$M_INS_WRITEABLE = x'00000020'> DECLARE LONG CONSTANT NSA$M_INS_PRIVILEGED = x'00000040'= DECLARE LONG CONSTANT NSA$M_INS_PROTECTED = x'00000080'; DECLARE LONG CONSTANT NSA$M_INS_NOPURGE = x'00000100'> DECLARE LONG CONSTANT NSA$M_INS_ACCOUNTING = x'00000200'> DECLARE LONG CONSTANT NSA$M_INS_AUTHORIZED = x'00000400': DECLARE LONG CONSTANT NSA$M_INS_SIGNAL = x'00000800'.| DECLARE LONG CONSTANT NSA$S_FILL_14_ = 4 record FILL_14_ variant case' LONG NSA$L_INSTALL_FLAGS case# group NSA$R_FILL_15_~ WORD INS_SPARE_0_bits ! COMMENT ADDED BY SDL - INS_SPARE_0_bits contains bits INS_SPARE_0 through FILL_16_' end group NSA$R_FILL_15_ end variant end record FILL_14_ 1 DECLARE LONG CONSTANT NSA$C_INS_SPARE_0 = 1. DECLARE LONG CON }STANT NSA$C_INS_OPEN = 29 DECLARE LONG CONSTANT NSA$C_INS_HEADER_RESIDENT = 30 DECLARE LONG CONSTANT NSA$C_INS_SHARED = 46 DECLARE LONG CONSTANT NSA$C_INS_EXECUTE_ONLY = 53 DECLARE LONG CONSTANT NSA$C_INS_WRITEABLE = 64 DECLARE LONG CONSTANT NSA$C_INS_PRIVILEGED = 73 DECLARE LONG CONSTANT NSA$C_INS_PROTECTED = 81 DECLARE LONG CONSTANT NSA$C_INS_NOPURGE = 95 DECLARE LONG CONSTANT NSA$C_INS_ACCOUNTING = 105 DECLARE LONG CONSTANT NSA$C_INS_AUTHOR ~IZED = 111 DECLARE LONG CONSTANT NSA$C_INS_SIGNAL = 123 DECLARE LONG CONSTANT NSA$C_INS_MAX_CODE = 13. ! Define volume state modification codes.2 DECLARE LONG CONSTANT NSA$C_VOL_DISMOUNT = 1/ DECLARE LONG CONSTANT NSA$C_VOL_MOUNT = 22 DECLARE LONG CONSTANT NSA$C_VOL_MAX_CODE = 38 ! Define volume state modification qualifier codes.; DECLARE LONG CONSTANT NSA$M_MNT_FOREIGN = x'00000001'9 DECLARE LONG CONSTANT NSA$M_MNT_GROUP = x'00000002'< DECLARE LONG CONSTANT NSA$M_MNT_NOASSIST = x'00000004'; DECLARE LONG CONSTANT NSA$M_MNT_NODISKQ = x'00000008': DECLARE LONG CONSTANT NSA$M_MNT_NOHDR3 = x'00000010'; DECLARE LONG CONSTANT NSA$M_MNT_NOLABEL = x'00000020'; DECLARE LONG CONSTANT NSA$M_MNT_NOWRITE = x'00000040'> DECLARE LONG CONSTANT NSA$M_MNT_OVR_ACCESS = x'00000080'; DECLARE LONG CONSTANT NSA$M_MNT_OVR_EXP = x'00000100'= DECLARE LONG CONSTANT NSA$M_MNT_OVR_IDENT = x'00000200'= DECLARE LONG CONSTANT NSA$M_MNT_OVR_SETID = x'00000400'= DECLARE LONG CONSTANT NSA$M_MNT_READCHECK = x'00000800'9 DECLARE LONG CONSTANT NSA$M_MNT_SHARE = x'00001000'; DECLARE LONG CONSTANT NSA$M_MNT_MESSAGE = x'00002000': DECLARE LONG CONSTANT NSA$M_MNT_SYSTEM = x'00004000'> DECLARE LONG CONSTANT NSA$M_MNT_WRITECHECK = x'00008000'= DECLARE LONG CONSTANT NSA$M_MNT_WRITETHRU = x'00010000'; DECLARE LONG CONSTANT NSA$M_MNT_NOCACHE = x'00020000'< DECLARE LONG C ONSTANT NSA$M_MNT_OVR_LOCK = x'00040000'< DECLARE LONG CONSTANT NSA$M_MNT_NOMNTVER = x'00080000'< DECLARE LONG CONSTANT NSA$M_MNT_NOUNLOAD = x'00100000'C DECLARE LONG CONSTANT NSA$M_MNT_TAPE_DATA_WRITE = x'00200000': DECLARE LONG CONSTANT NSA$M_MNT_NOCOPY = x'00400000': DECLARE LONG CONSTANT NSA$M_MNT_NOAUTO = x'00800000'< DECLARE LONG CONSTANT NSA$M_MNT_INIT_ALL = x'01000000'= DECLARE LONG CONSTANT NSA$M_MNT_INIT_CONT = x'02000000'< DECLARE LONG CONST ANT NSA$M_MNT_OVR_VOLO = x'04000000'< DECLARE LONG CONSTANT NSA$M_MNT_INTERCHG = x'08000000'; DECLARE LONG CONSTANT NSA$M_MNT_CLUSTER = x'10000000'= DECLARE LONG CONSTANT NSA$M_MNT_NOREBUILD = x'20000000'> DECLARE LONG CONSTANT NSA$M_MNT_OVR_SHAMEM = x'40000000'= DECLARE LONG CONSTANT NSA$M_MNT_MULTI_VOL = x'80000000'. DECLARE LONG CONSTANT NSA$S_FILL_17_ = 8 record FILL_17_ variant case/ BASIC$QUADWORD NSA$Q_MOUNT_FL AGS case# group NSA$R_FILL_18_ BYTE MNT_FOREIGN_bits ( 6 ) ! COMMENT ADDED BY SDL - MNT_FOREIGN_bits contains bits MNT_FOREIGN through FILL_19_' end group NSA$R_FILL_18_ end variant end record FILL_17_ R DECLARE LONG CONSTANT NSA$C_MNT_MAX_CODE = 47 ! # of mount bits (plus one) ! Define dismount flags.T DECLARE LONG CONSTANT NSA$C_DMT_MAX_CODE = 5 ! # of dismount bits (plus one)< DECL ARE LONG CONSTANT NSA$M_DMT_NOUNLOAD = x'00000001'8 DECLARE LONG CONSTANT NSA$M_DMT_UNIT = x'00000002'9 DECLARE LONG CONSTANT NSA$M_DMT_ABORT = x'00000004'; DECLARE LONG CONSTANT NSA$M_DMT_CLUSTER = x'00000008'. DECLARE LONG CONSTANT NSA$S_FILL_20_ = 4 record FILL_20_ variant case( LONG NSA$L_DISMOUNT_FLAGS case# group NSA$R_FILL_21_ BYTE DMT_NOUNLOAD_bits ! COMMENT ADDED BY SDL - DMT_NOUNLOAD_bits contains bits DMT_NOUNLOAD through FILL_22_' end group NSA$R_FILL_21_ end variant end record FILL_20_ < ! Define network authorization file modification codes.2 DECLARE LONG CONSTANT NSA$C_NETPROXY_ADD = 15 DECLARE LONG CONSTANT NSA$C_NETPROXY_DELETE = 25 DECLARE LONG CONSTANT NSA$C_NETPROXY_MODIFY = 32 DECLARE LONG CONSTANT NSA$C_NETPROXY_NCP = 47 DECLARE LONG CONSTANT NSA$C_NETPROXY_SHUTDOWN = 56 DE CLARE LONG CONSTANT NSA$C_NETPROXY_STARTUP = 65 DECLARE LONG CONSTANT NSA$C_NETPROXY_CREATE = 77 DECLARE LONG CONSTANT NSA$C_NETPROXY_MAX_CODE = 8! ! Define persona event codes4 DECLARE LONG CONSTANT NSA$C_PERSONA_CREATE = 14 DECLARE LONG CONSTANT NSA$C_PERSONA_DELETE = 24 DECLARE LONG CONSTANT NSA$C_PERSONA_MODIFY = 36 DECLARE LONG CONSTANT NSA$C_PERSONA_MAX_CODE = 4R ! Define object access codes. This table must parallel the object type codesQ !  defined in $ACEDEF (in STARDEFAE.SDL). Any additional objects must appearP ! in both places. These same subtype codes are shared for all of the otherD ! object message type codes (CREATE, DELETE, MODIFY, DEACCESS).1 DECLARE LONG CONSTANT NSA$C_FILE_ACCESS = 13 DECLARE LONG CONSTANT NSA$C_DEVICE_ACCESS = 22 DECLARE LONG CONSTANT NSA$C_QUEUE_ACCESS = 30 DECLARE LONG CONSTANT NSA$C_CEF_ACCESS = 40 DECLARE LONG CONSTANT NSA$C_LNM_ACCESS = 54 DECLARE LONG  CONSTANT NSA$C_PROCESS_ACCESS = 63 DECLARE LONG CONSTANT NSA$C_GRPGBL_ACCESS = 73 DECLARE LONG CONSTANT NSA$C_SYSGBL_ACCESS = 87 DECLARE LONG CONSTANT NSA$C_CAPABILITY_ACCESS = 93 DECLARE LONG CONSTANT NSA$C_EVENT_ACCESS = 102 DECLARE LONG CONSTANT NSA$C_LOCK_ACCESS = 114 DECLARE LONG CONSTANT NSA$C_VOLUME_ACCESS = 126 DECLARE LONG CONSTANT NSA$C_OBJECT_MAX_CODE = 13; ! Define system authorization file modification codes.0 DECLARE LONG CONSTAN T NSA$C_SYSUAF_ADD = 11 DECLARE LONG CONSTANT NSA$C_SYSUAF_COPY = 23 DECLARE LONG CONSTANT NSA$C_SYSUAF_DELETE = 33 DECLARE LONG CONSTANT NSA$C_SYSUAF_MODIFY = 43 DECLARE LONG CONSTANT NSA$C_SYSUAF_RENAME = 55 DECLARE LONG CONSTANT NSA$C_SYSUAF_MAX_CODE = 61 ! Define rights database modification codes.0 DECLARE LONG CONSTANT NSA$C_RDB_ADD_ID = 10 DECLARE LONG CONSTANT NSA$C_RDB_CREATE = 22 DECLARE LONG CONSTANT NSA$C_RDB_GRANT_ID = 34 DE CLARE LONG CONSTANT NSA$C_RDB_MOD_HOLDER = 40 DECLARE LONG CONSTANT NSA$C_RDB_MOD_ID = 50 DECLARE LONG CONSTANT NSA$C_RDB_REM_ID = 63 DECLARE LONG CONSTANT NSA$C_RDB_REVOKE_ID = 72 DECLARE LONG CONSTANT NSA$C_RDB_MAX_CODE = 8- ! Define enhanced privilege audit codes.T DECLARE LONG CONSTANT NSA$C_PRVAUD_SUCCESS = 1 ! Successful use of privilegeW DECLARE LONG CONSTANT NSA$C_PRVAUD_FAILURE = 2 ! Event due to privilege failure5 DECLARE LONG CONSTANT NS A$C_PRVAUD_MAX_CODE = 3& ! Define system time audit codes.M DECLARE LONG CONSTANT NSA$C_SYSTIM_SET = 1 ! Explicit setting of timeJ DECLARE LONG CONSTANT NSA$C_SYSTIM_CAL = 2 ! Calibration from todr5 DECLARE LONG CONSTANT NSA$C_SYSTIM_MAX_CODE = 3! ! Define SYSGEN audit codes.R DECLARE LONG CONSTANT NSA$C_SYSGEN_SET = 1 ! Sysgen parameter modification5 DECLARE LONG CONSTANT NSA$C_SYSGEN_MAX_CODE = 2/ ! Define the create object event subtypes.B  DECLARE LONG CONSTANT NSA$C_OBJ_CREATE = 1 ! Create object5 DECLARE LONG CONSTANT NSA$C_CREATE_MAX_CODE = 2/ ! Define the delete object event subtypes.B DECLARE LONG CONSTANT NSA$C_OBJ_DELETE = 1 ! Delete object5 DECLARE LONG CONSTANT NSA$C_DELETE_MAX_CODE = 2/ ! Define the access object event subtypes.B DECLARE LONG CONSTANT NSA$C_OBJ_ACCESS = 1 ! Access object5 DECLARE LONG CONSTANT NSA$C_ACCESS_MAX_CODE = 21 ! Define the deaccess object ev ent subtypes.F DECLARE LONG CONSTANT NSA$C_OBJ_DEACCESS = 1 ! Deaccess object7 DECLARE LONG CONSTANT NSA$C_DEACCESS_MAX_CODE = 20 ! Define connection message event subtypes.H DECLARE LONG CONSTANT NSA$C_CNX_REQUEST = 1 ! Connection requestH DECLARE LONG CONSTANT NSA$C_CNX_ACCEPT = 2 ! Connection acceptedH DECLARE LONG CONSTANT NSA$C_CNX_REJECT = 3 ! Connection rejectedP DECLARE LONG CONSTANT NSA$C_CNX_DISCONNECT = 4 ! Connection disconnectedU DECLARE LONG CONSTANT NSA$C_CNX_ABORT = 5 ! Connection aborted by third-partyW DECLARE LONG CONSTANT NSA$C_CNX_DECNET_CREATE = 6 ! DECnet logical link created\ DECLARE LONG CONSTANT NSA$C_CNX_DECNET_DELETE = 7 ! DECnet logical link disconnectedM DECLARE LONG CONSTANT NSA$C_CNX_IPC_OPEN = 8 ! IPC association openedN DECLARE LONG CONSTANT NSA$C_CNX_IPC_CLOSE = 9 ! IPC association closedW DECLARE LONG CONSTANT NSA$C_CNX_INC_REQUEST = 10 ! Incomming connection requestU DECLARE LONG CONSTANT NSA$C_CNX_INC_ACCEPT = 11 ! Connection request acceptedU DECLARE LONG CONSTANT NSA$C_CNX_INC_REJECT = 12 ! Connection request rejected^ DECLARE LONG CONSTANT NSA$C_CNX_INC_DISCONNECT = 13 ! Incoming connection disconnectedc DECLARE LONG CONSTANT NSA$C_CNX_INC_ABORT = 14 ! Incoming connection aborted by third-party3 DECLARE LONG CONSTANT NSA$C_CNX_MAX_CODE = 15H DECLARE LONG CONSTANT NSA$C_NCP_COMMAND = 1 ! NCP command is sued2 DECLARE LONG CONSTANT NSA$C_NCP_MAX_CODE = 2C DECLARE LONG CONSTANT NSA$C_PRC_CREPRC = 1 ! Create processC DECLARE LONG CONSTANT NSA$C_PRC_DELPRC = 2 ! Delete processL DECLARE LONG CONSTANT NSA$C_PRC_SCHDWK = 3 ! Schedule process wakeupJ DECLARE LONG CONSTANT NSA$C_PRC_CANWAK = 4 ! Cancel process wakeup? DECLARE LONG CONSTANT NSA$C_PRC_WAKE = 5 ! Wake processD DECLARE LONG CONSTANT NSA$C_PRC_SUSPND = 6 ! Suspend processC DECLARE LONG CONSTANT NSA$C_PRC_RESUME = 7 ! Resume processF DECLARE LONG CONSTANT NSA$C_PRC_GRANTID = 8 ! Grant identifierG DECLARE LONG CONSTANT NSA$C_PRC_REVOKID = 9 ! Revoke identifierT DECLARE LONG CONSTANT NSA$C_PRC_GETJPI = 10 ! Get job or process informationF DECLARE LONG CONSTANT NSA$C_PRC_FORCEX = 11 ! Force image exitS DECLARE LONG CONSTANT NSA$C_PRC_SIGPRC = 12 ! Signal process (undocumented)J DECLARE LONG CONSTANT NSA$C_PRC_SETPRI = 13 ! Set process priority` DECLARE LONG CONSTANT NSA$C_PRC_PRCTERM = 14 ! Detect process termination (undocumented)X DECLARE LONG CONSTANT NSA$C_PRC_CPU_CAPABILITIES = 15 ! Change in CPU capability` DECLARE LONG CONSTANT NSA$C_PRC_PROCESS_CAPABILITIES = 16 ! Change in process capabilityZ DECLARE LONG CONSTANT NSA$C_PRC_PROCESS_AFFINITY = 17 ! Change in process affinity` DECLARE LONG CONSTANT NSA$C_PRC_SET_IMPLICIT_AFFINITY = 18 ! Change in implicit affinity3 DECLARE LONG  CONSTANT NSA$C_PRC_MAX_CODE = 19W DECLARE LONG CONSTANT NSA$C_INSTANTIATE_ORB = 1 ! Create an instance of an ORB % ! the profile may, or may not, ! present in the database.I DECLARE LONG CONSTANT NSA$C_DISTRIBUTE_ORB = 2 ! ORB distribution[ DECLARE LONG CONSTANT NSA$C_OBJECT_AUDIT_CHANGE = 3 ! Change in audit/alarm vectorsS DECLARE LONG CONSTANT NSA$C_DISTRIBUTE_NOTICE = 4 ! Notify agents of change ! used for objects which! ! provide permanent storage5 DECLARE LONG CONSTANT NSA$C_OBJSRV_MAX_CODE = 57 ! Define distributed authentication subtypes here.c DECLARE LONG CONSTANT NSA$C_AUTH_NETWORK_LOGIN = 2 ! authenticated network login a DECLARE LONG CONSTANT NSA$C_AUTH_RENEW_LOGIN = 3 ! authentication credential renewal b DECLARE LONG CONSTANT NSA$C_AUTH_INIT_SEC_CTX = 4 ! initiate security context a DECLARE LONG CONSTANT NSA$C_AUTH_ACC_SEC_CTX = 5 ! accept security context f DECLARE LONG CONSTANT NSA$C_AUTH_INSTALL_DEF_CRED = 6 ! install application credential handle b DECLARE LONG CONSTANT NSA$C_AUTH_ACQUIRE_CRED = 7 ! acquire credential handle ` DECLARE LONG CONSTANT NSA$C_AUTH_GRANT_CRED = 8 ! grant credential to another process b DECLARE LONG CONSTANT NSA$C_AUTH_RELEASE_CRED = 9 ! release credential handle b DECLARE LONG CONSTANT NSA$C_AUTH_DEL_SEC_CTX = 10 ! delete security context e DECLARE LONG CONSTANT NSA$C_AUTH_PROC_CTX_TOKEN = 11 ! process context token ] DECLARE LONG CONSTANT NSA$C_AUTH_VERIFY = 12 ! verify signature C DECLARE LONG CONSTANT NSA$C_AUTH_SIGN = 13 ! sign a messageC DECLARE LONG CONSTANT NSA$C_AUTH_SEAL = 14 ! seal a messageG DECLARE LONG CONSTANT NSA$C_AUTH_UNSEAL = 15 ! unseal a messageb DECLARE LONG CONSTANT NSA$C_CA_STARTUP = 16 ! the certification authority has been startedY DECLARE LONG CONSTANT NSA$C_CA_EXIT = 17 ! the certification authority has exited[ DECLARE LONG CONSTANT NSA$C_CA_ADD_DIRECTORY = 18 ! a name directory has been addedV DECLARE LONG CONSTANT NSA$C_CA_ADD_PRINCIPAL = 19 ! a principal has been added] DECLARE LONG CONSTANT NSA$C_CA_LINK_DIRECTORY = 20 ! two directories have been linkedi DECLARE LONG CONSTANT NSA$C_CA_CHANGE_LINK = 21 ! a link between two directories has been changedz DECLARE LONG CONSTANT NSA$C_CA_CHANGE_PRINCIPAL = 22 ! a principal's keypair/password or duration has been changed` DECLARE LONG CONSTANT NSA$C_CA_REMOVE_DIRECTORY = 23 ! a name directory has been removed[ DECLARE LONG CONSTANT NSA$C_CA_REMOVE_PRINCIPAL = 24 ! a principal has been removed` DECLARE LONG CONSTANT NSA$C_CA_CERTIFICATE_DELETED = 25 ! a certificate has been deletedr DECLARE LONG CONSTANT NSA$C_CA_REVOKED_CERT_FOUND = 26 ! a revoked certificate has been read from the CSS e DECLARE LONG CONSTANT NSA$C_CA_PASSWORD_CHANGE = 27 ! the password to the CA has been changed[ DECLARE LONG CONSTANT NSA$C_CSS_OBJECT_CREATED = 28 ! a CSS object has been created[ DECLARE LONG CONSTANT NSA$C_CSS_OBJECT_DELETED = 29 ! a CSS object has been deleteda DECLARE LONG CONSTANT NSA$C_CSS_CERTIFICATE_DELETED = 30 ! a certificate has been deletedo DECLARE LONG CONSTANT NSA$C_CSS_CREDENTIAL_READ = 31 ! a principal's permanent credential has been readj DECLARE LONG CONSTANT NSA$C_CSS_CERTIFICATE_ADDED = 32 ! a certificate has been added to an object DECLARE LONG CONSTANT NSA$C_CSS_CREDENTIAL_WRITTEN = 33 ! an encrypted permanent credential has been added to an objectm DECLARE LONG CONSTANT NSA$C_CSS_USER_CHANGED_PASSWORD = 34 ! a principal has changed his/her passwordy DECLARE LONG CONSTANT NSA$C_CSS_UPDATED_SECONDARY = 35 ! a CSS secondary has been updated from the local databasew  DECLARE LONG CONSTANT NSA$C_CSS_DATABASE_UPDATED = 36 ! a secondary CSS has updated its database from a primaryc DECLARE LONG CONSTANT NSA$C_CSS_STARTED = 37 ! the CSS server has been successfully started` DECLARE LONG CONSTANT NSA$C_CSS_WINDOW_OPEN = 38 ! the CSS access window has been openedb DECLARE LONG CONSTANT NSA$C_CSS_WINDOW_CLOSED = 39 ! the CSS access window has been closedg DECLARE LONG CONSTANT NSA$C_CSS_LOCTABLE_UPDATED = 40 ! the CSS location table h as been updated4 DECLARE LONG CONSTANT NSA$C_AUTH_MAX_CODE = 41 ! Define data packet formatM DECLARE LONG CONSTANT NSA$C_PKT_ACCESS_DESIRED = 1 ! Access requestedB DECLARE LONG CONSTANT NSA$C_PKT_ACCOUNT = 2 ! Account nameK DECLARE LONG CONSTANT NSA$C_PKT_ALARM_NAME = 3 ! Alarm journal nameQ DECLARE LONG CONSTANT NSA$C_PKT_APPL_DATA = 4 ! Application supplied dataE DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_FLAGS = 5 ! Audit flagsK DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_NAME = 6 ! Audit journal nameN DECLARE LONG CONSTANT NSA$C_PKT_SYSTEM_NAME = 7 ! SCS system node nameV DECLARE LONG CONSTANT NSA$C_PKT_SYSTEM_ID = 8 ! SCS system node identificationi DECLARE LONG CONSTANT NSA$C_PKT_DEVICE_NAME = 9 ! Primary device name on which the volume residesS DECLARE LONG CONSTANT NSA$C_PKT_DISMOUNT_FLAGS = 10 ! Volume dismount flagsF DECLARE LONG CONSTANT NSA$C_PKT_HOLDER_NAME = 11 ! Holder nameK DECLARE LONG CONSTANT NSA$C_PKT_HOLDER_OWNER = 12 ! Holder owner IDR DECLARE LONG CONSTANT NSA$C_PKT_ID_ATTRIBUTES = 13 ! Identifier attributesF DECLARE LONG CONSTANT NSA$C_PKT_ID_NAME = 14 ! Identifier nameM DECLARE LONG CONSTANT NSA$C_PKT_ID_NEW_NAME = 15 ! Identifer new nameH DECLARE LONG CONSTANT NSA$C_PKT_ID_VALUE = 16 ! Identifier valueP DECLARE LONG CONSTANT NSA$C_PKT_ID_NEW_VALUE = 17 ! Identifier new value_ DECLARE LONG CONSTANT NSA$C_PKT_IDENTIFIERS_USED = 18 ! Identifiers used to gain accessZ DECLARE LONG CONSTANT NSA$C_PKT_IMAGE_NAME = 19 ! Name of the image being executedJ DECLARE LONG CONSTANT NSA$C_PKT_INSTALL_FILE = 20 ! Installed fileJ DECLARE LONG CONSTANT NSA$C_PKT_INSTALL_FLAGS = 21 ! INSTALL flagsO DECLARE LONG CONSTANT NSA$C_PKT_INSTALL_PRIVS = 22 ! INSTALL privilegesd DECLARE LONG CONSTANT NSA$C_PKT_LOGICAL_NAME = 23 ! Logical name associated with the device.M DECLARE LONG CONSTANT NSA$C_PKT_MOUNT_FLAGS = 24 ! Volume mount flagsO DECLARE LONG CONSTANT NSA$C_PKT_NEW_DATA = 25 ! Data after modificationP DECLARE LONG CONSTANT NSA$C_PKT_FILE_ID = 26 ! File identification (FID)d DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_MIN_CLASS = 27 ! Minimum object access classificationd DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_MAX_CLASS = 28 ! Maximum object access classificationL DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_NAME = 29 ! The object's nameY DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_NAME_2 = 30 ! Secondary (path) object namea DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_OWNER = 31 ! Owner identifier (UIC) of the processc DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_PROTECTION = 32 ! UIC based protection of the objectM DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_TYPE = 33 ! Object's type codeU DECLARE LONG CONSTANT NSA$C_PKT_ORIGINAL_DATA = 34 ! Data before modificationR DECLARE LONG CONSTANT NSA$C_PKT_PARENT_ID = 35 ! PID of the parent processN DECLARE LONG CONSTANT NSA$C_PKT_PARENT_NAME = 36 ! Parent process nameV DECLARE LONG CONSTANT NSA$C_PKT_PARENT_OWNER = 37 ! Parent process owner (UIC)V DECLARE LONG CONSTANT NSA$C_PKT_PARENT_USERNAME = 38 ! Parent process usernameH DECLARE LONG CONSTANT NSA$C_PKT_PASSWORD = 39 ! Breakin passwordX DECLARE LONG CONSTANT NSA$C_PKT_PRIVS_USED = 40 ! Privileges used to gain accessM DECLARE LONG CONSTANT NSA$C_PKT_PROCESS_ID = 41  ! Current process PIDP DECLARE LONG CONSTANT NSA$C_PKT_PROCESS_NAME = 42 ! Current process nameW DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_NODE_ID = 43 ! Node ID of network sourceN DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_NODENAME = 44 ! Remote nodenameN DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_USERNAME = 45 ! Remote usernameY DECLARE LONG CONSTANT NSA$C_PKT_SUBJECT_CLASS = 46 ! Process current access classP DECLARE LONG CONSTANT NSA$C_PKT_SUBJECT_OWNER = 47 ! Process owner (UIC)M DECLARE LONG CONSTANT NSA$C_PKT_FINAL_STATUS = 48 ! Completion statusM DECLARE LONG CONSTANT NSA$C_PKT_TERMINAL = 49 ! Process terminal nameS DECLARE LONG CONSTANT NSA$C_PKT_TIME_STAMP = 50 ! When the event took placeG DECLARE LONG CONSTANT NSA$C_PKT_UAF_ADD = 51 ! UAF record addedL DECLARE LONG CONSTANT NSA$C_PKT_UAF_DELETE = 52 ! UAF record removedM DECLARE LONG CONSTANT NSA$C_PKT_UAF_MODIFY = 53 ! UAF record modifiedI  DECLARE LONG CONSTANT NSA$C_PKT_UAF_COPY = 54 ! UAF record copiedM DECLARE LONG CONSTANT NSA$C_PKT_UAF_FIELDS = 55 ! UAF fields modifiedJ DECLARE LONG CONSTANT NSA$C_PKT_USERNAME = 56 ! Requestor usernameM DECLARE LONG CONSTANT NSA$C_PKT_UAF_SOURCE = 57 ! UAF source usernameL DECLARE LONG CONSTANT NSA$C_PKT_UAF_RENAME = 58 ! UAF record renamedU DECLARE LONG CONSTANT NSA$C_PKT_VOLUME_NAME = 59 ! Mount/dismount volume nameN DECLARE LONG CONSTANT NSA$C_PKT_VOLUME_SET_NAME = 60 ! Volume set nameL DECLARE LONG CONSTANT NSA$C_PKT_SERVER_ACCOUNT = 61 ! Server accountP DECLARE LONG CONSTANT NSA$C_PKT_SERVER_SYSTEM_ID = 62 ! Server system idT DECLARE LONG CONSTANT NSA$C_PKT_SERVER_SYSTEM_NAME = 63 ! Server system nameP DECLARE LONG CONSTANT NSA$C_PKT_SERVER_FINAL_STATUS = 64 ! Server statusR DECLARE LONG CONSTANT NSA$C_PKT_SERVER_IMAGE_NAME = 65 ! Server image nameP DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PARENT_ID = 66 ! Server parent id\ DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PARENT_OWNER = 67 ! Server parent owner (UIC)\ DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PARENT_NAME = 68 ! Server parent process nameR DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PROCESS_ID = 69 ! Server process idV DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PROCESS_NAME = 70 ! Server process nameY DECLARE LONG CONSTANT NSA$C_PKT_SERVER_SUBJECT_CLASS = 71 ! Server classificationV DECLARE LONG CONSTANT NSA$C_PKT_SERVER_SUBJECT_OWNER = 72 ! Server owner (UIC)N DECLARE LONG CONSTANT NSA$C_PKT_SERVER_TERMINAL = 73 ! Server terminalQ DECLARE LONG CONSTANT NSA$C_PKT_SERVER_TIME_STAMP = 74 ! Server timestampN DECLARE LONG CONSTANT NSA$C_PKT_SERVER_USERNAME = 75 ! Server usernameU DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_DISABLE = 76 ! Audit event disable maskS DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_ENABLE = 77 ! Audit event enable maskU DECLARE LONG CONSTANT NSA$C_PKT_ALARM_DISABLE = 78 ! Alarm event disable maskS DECLARE LONG CONSTANT NSA$C_PKT_ALARM_ENABLE = 79 ! Alarm event enable maskN DECLARE LONG CONSTANT NSA$C_PKT_NOP = 80 ! Nop (for static item lists)X DECLARE LONG CONSTANT NSA$C_PKT_REPLY_MAILBOX = 81 ! Message acknowledge mailbox^ DECLARE LONG CONSTANT NSA$C_PKT_DEFAULT_USERNAME = 82 ! NETPROXY default proxy accountZ DECLARE LONG CONSTANT NSA$C_PKT_LOCAL_USERNAME = 83 ! NETPROXY local proxy account` DECLARE LONG CONSTANT NSA$C_PKT_FIELD_NAME = 84 ! Name of (NEW_DATA/ORIGINAL_DATA) fieldS DECLARE LONG CONSTANT NSA$C_PKT_LISTENER_DEVICE = 85 ! Listener device nameQ DECLARE LONG CONSTANT NSA$C_PKT_FIELD_TITLE_STR = 86 ! Field title stringO DECLARE LONG CONSTANT NSA$C_PKT_FIELD_DATA_STR = 87 ! Field data stringY DECLARE LONG CONSTANT NSA$C_PKT_MESSAGE_TYPE_STR = 88 ! Event message type string[ DECLARE LONG CONSTANT NSA$C_PKT_EVENT_TYPE = 89  ! Event message type ($AUDIT_EVENT)a DECLARE LONG CONSTANT NSA$C_PKT_EVENT_SUBTYPE = 90 ! Event message subtype ($AUDIT_EVENT)[ DECLARE LONG CONSTANT NSA$C_PKT_EVENT_FACILITY = 91 ! Event facility ($AUDIT_EVENT)l DECLARE LONG CONSTANT NSA$C_PKT_DIRECTORY_ENTRY = 92 ! Directory entry associated with XQP operationM DECLARE LONG CONSTANT NSA$C_PKT_DIRECTORY_ID = 93 ! Directory file-idR ! The following three blocks of codes are obsolete with V5.4. With V5.4, oneN ! should use the NSA$W_FACILITY field for layered product and/or customerR ! audit messages. These symbols must not be reused as versions of SeVMS (and) ! fiends) depend on their existence.H DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_1 = 94 ! obsolete codes5 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_2 = 955 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_3 = 965 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_4 = 975 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_5 = 98 5 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_6 = 996 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_7 = 1006 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_8 = 101D DECLARE LONG CONSTANT NSA$C_PKT_CSS_1 = 102 ! obsolete codes1 DECLARE LONG CONSTANT NSA$C_PKT_CSS_2 = 1031 DECLARE LONG CONSTANT NSA$C_PKT_CSS_3 = 1041 DECLARE LONG CONSTANT NSA$C_PKT_CSS_4 = 1051 DECLARE LONG CONSTANT NSA$C_PKT_CSS_5 = 1061 DECLARE LONG CONSTANT NSA$C_PKT_CSS_6 = 1071 DECLARE LONG CONSTANT NSA$C_PKT_CSS_7 = 1081 DECLARE LONG CONSTANT NSA$C_PKT_CSS_8 = 109C DECLARE LONG CONSTANT NSA$C_PKT_LP_1 = 110 ! obsolete codes0 DECLARE LONG CONSTANT NSA$C_PKT_LP_2 = 1110 DECLARE LONG CONSTANT NSA$C_PKT_LP_3 = 1120 DECLARE LONG CONSTANT NSA$C_PKT_LP_4 = 1130 DECLARE LONG CONSTANT NSA$C_PKT_LP_5 = 1140 DECLARE LONG CONSTANT NSA$C_PKT_LP_6 = 1150 DECLARE LONG CONSTANT NSA$C_PKT_LP_7 = 1160 DECLARE LONG CONSTANT NSA$C_PKT_LP_8 = 117 ! End of obsolete codes.P DECLARE LONG CONSTANT NSA$C_PKT_ALARM_FAILURE = 118 ! Alarm failure modeP DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_FAILURE = 119 ! Audit failure modeJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_0 = 120 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_1 = 121 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_2 = 122 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_3 = 123 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_4 = 124 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_5 = 125 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_6 = 126 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_7 = 127 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_8 = 128 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_9 = 129 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_10 = 130 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_11 = 131 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_12 = 132 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_13 = 133 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_14 = 134 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_15 = 135 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_16 = 136 ! Reserved for SeVMSK  DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_17 = 137 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_18 = 138 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SNAPSHOT_TIME = 139 ! Snapshot time` DECLARE LONG CONSTANT NSA$C_PKT_TRANSPORT_NAME = 140 ! Transport name (IPC, DECnet, SMI)U DECLARE LONG CONSTANT NSA$C_PKT_DECNET_LINK_ID = 141 ! DECnet logical link IDU DECLARE LONG CONSTANT NSA$C_PKT_DECNET_OBJECT_NAME = 142 ! DECnet object nameY  DECLARE LONG CONSTANT NSA$C_PKT_DECNET_OBJECT_NUMBER = 143 ! DECnet object numberU DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_LINK_ID = 144 ! Remote logical link IDI DECLARE LONG CONSTANT NSA$C_PKT_COMMAND_LINE = 145 ! Command lineU DECLARE LONG CONSTANT NSA$C_PKT_ASSOCIATION_NAME = 146 ! IPC association name` DECLARE LONG CONSTANT NSA$C_PKT_REM_ASSOCIATION_NAME = 147 ! IPC remote association nameO DECLARE LONG CONSTANT NSA$C_PKT_CONNECTION_ID = 148 ! IPC connection IDO DECLARE LONG CONSTANT NSA$C_PKT_MESSAGE = 149 ! Associated message codeV DECLARE LONG CONSTANT NSA$C_PKT_MSGFILNAM = 150 ! Associated message file name[ DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_POINTER = 151 ! Object container (Directory)[ DECLARE LONG CONSTANT NSA$C_PKT_ID_NEW_ATTRIBUTES = 152 ! Identifier new attributesJ DECLARE LONG CONSTANT NSA$C_PKT_SYSTIM_NEW = 153 ! New system timeJ DECLARE LONG CONSTANT NSA$C_PKT_SYSTIM_OLD = 154 ! Old system time^ DECLARE LONG CONSTANT NSA$C_PKT_PARAMS_WRITE = 155 ! SYSGEN filename for WRITE commandf DECLARE LONG CONSTANT NSA$C_PKT_PARAMS_INUSE = 156 ! SYSGEN parameter set name for USE command[ DECLARE LONG CONSTANT NSA$C_PKT_MATCHING_ACE = 157 ! ACE granting or denying access\ DECLARE LONG CONSTANT NSA$C_PKT_SNAPSHOT_SAVE_FILNAM = 158 ! Snapshot save file nameP DECLARE LONG CONSTANT NSA$C_PKT_MAILBOX_UNIT = 159 ! Mailbox unit numberQ DECLARE LONG CONSTANT NSA$C_PKT_NEW_OWNER = 160 ! New process owner (UIC)Q DECLARE LONG CONSTANT NSA$C_PKT_NEW_PRIORITY = 161 ! New process priorityQ DECLARE LONG CONSTANT NSA$C_PKT_OLD_PRIORITY = 162 ! Old process priorityM DECLARE LONG CONSTANT NSA$C_PKT_DIAG_FUNC = 163 ! Diagnostic functionP DECLARE LONG CONSTANT NSA$C_PKT_RESOURCE_NAME = 164 ! Lock resource nameV DECLARE LONG CONSTANT NSA$C_PKT_LNM_TABLE_NAME = 165 ! Logical name table name^ DECLARE LONG CONSTANT NSA$C_PKT_LNM_PARENT_NAME = 166 ! Parent logical name table nameP DECLARE LONG CONSTANT NSA$C_PKT_EFC_NAME = 167 ! Event Flag Cluster nameb DECLARE LONG CONSTANT NSA$C_PKT_TARGET_PROCESS_CLASS = 168 ! Target process classificationT DECLARE LONG CONSTANT NSA$C_PKT_TARGET_PROCESS_ID = 169 ! Target process PIDW DECLARE LONG CONSTANT NSA$C_PKT_TARGET_PROCESS_NAME = 170 ! Target process name_ DECLARE LONG CONSTANT NSA$C_PKT_TARGET_PROCESS_OWNER = 171 ! Target process owner (UIC)O DECLARE LONG CONSTANT NSA$C_PKT_TARGET_USERNAME = 172 ! Target usernameM DECLARE LONG CONSTANT NSA$C_PKT_NEW_PRIVILEGES = 173 ! New privilegesM DECLARE LONG CONSTANT NSA$C_PKT_OLD_PRIVILEGES = 174 ! Old privilegesY DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_NODE_FULLNAME = 175 ! Remote node fullnameB DECLARE LONG CONSTANT NSA$C_PKT_UID = 176 ! UID of object G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_3 = 177 ! Unused packet G  DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_4 = 178 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_5 = 179 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_6 = 180 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_7 = 181 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_8 = 182 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_9 = 183 ! Unused packet H DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_10 = 184 ! Unused packet P DECLARE LONG CONSTANT NSA$C_PKT_PRIVS_MISSING = 185 ! Privileges missingU DECLARE LONG CONSTANT NSA$C_PKT_TARGET_DEVICE_NAME = 186 ! Target device nameP DECLARE LONG CONSTANT NSA$C_PKT_SECTION_NAME = 187 ! Global section nameT DECLARE LONG CONSTANT NSA$C_PKT_ID_VALUE_ASCII = 188 ! ID value via $IDTOASCN DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_CLASS = 189 ! Object class nameP DECLARE LONG CONSTANT NSA$C_PKT_SUPPRESS = 190 ! Suppress supplied itemsY DECLARE LONG CONSTANT NSA$C_PKT_SNAPSHOT_BOOTFILE = 191 ! Snapshot boot file namec DECLARE LONG CONSTANT NSA$C_PKT_SOURCE_PROCESS_ID = 192 ! Source process ID (impersonation)M DECLARE LONG CONSTANT NSA$C_PKT_REQUEST_NUMBER = 193 ! Request numberG DECLARE LONG CONSTANT NSA$C_PKT_ACCESS_MODE = 194 ! Access modeW DECLARE LONG CONSTANT NSA$C_PKT_SYSTEM_SERVICE_NAME = 195 ! System service name] DECLARE LONG CONSTANT NSA$C_PKT_NEW_AUTH_PRIVILEGES = 196 ! New authorized privileges] DECLARE LONG CONSTANT NSA$C_PKT_OLD_AUTH_PRIVILEGES = 197 ! Old authorized privilegesY DECLARE LONG CONSTANT NSA$C_PKT_NEW_DEF_PRIVILEGES = 198 ! New default privilegesY DECLARE LONG CONSTANT NSA$C_PKT_OLD_DEF_PRIVILEGES = 199 ! Old default privilegesM DECLARE LONG CONSTANT NSA$C_PKT_NEW_PROCESS_ID = 200 ! New process IDY DECLARE LONG CONSTANT NSA$C_PKT_NEW_PROCESS_OWNER = 201 ! New process owner (UIC)Q DECLARE LONG CONSTANT NSA$C_PKT_NEW_PROCESS_NAME = 202 ! New process nameM DECLARE LONG CONSTANT NSA$C_PKT_NEW_IMAGE_NAME = 203 ! New image nameI DECLARE LONG CONSTANT NSA$C_PKT_NEW_USERNAME = 204 ! New usernameO DECLARE LONG CONSTANT NSA$C_PKT_DEACCESS_KEY = 205 ! Deaccess audit keyW DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_RIGHTS_BLOCK = 206 ! Object Rights Blockl DECLARE LONG CONSTANT NSA$C_PKT_OBJSRV_COMPLETE = 207 ! Object service processing completion routineK DECLARE LONG CONSTANT NSA$C_PKT_TLV_ORB = 208 ! Object distributionU DECLARE LONG CONSTANT NSA$C_PKT_FILE_NAME = 209 ! File name (volume auditing)R DECLARE LONG CONSTANT NSA$C_PKT_DIRECTORY_NAME = 210 ! Directory file nameX DECLARE LONG CONSTANT NSA$C_PKT_SEQUENCE_KEY = 211 ! Sequence key (XQP auditing) ! DAS item codes.> DECLARE LONG CONSTANT NSA$C_PKT_PRINCIPAL_FULLNAME = 212; DECLARE LONG CONSTANT NSA$C_PKT_TARGET_FULLNAME = 213; DECLARE LONG CONST ANT NSA$C_PKT_SOURCE_FULLNAME = 214< DECLARE LONG CONSTANT NSA$C_PKT_DESIRED_FULLNAME = 215< DECLARE LONG CONSTANT NSA$C_PKT_CLAIMED_USERNAME = 216< DECLARE LONG CONSTANT NSA$C_PKT_CLAIMED_FULLNAME = 217< DECLARE LONG CONSTANT NSA$C_PKT_CLAIMED_NODENAME = 2184 DECLARE LONG CONSTANT NSA$C_PKT_TIME_REQ = 2194 DECLARE LONG CONSTANT NSA$C_PKT_TIME_REC = 2205 DECLARE LONG CONSTANT NSA$C_PKT_REQ_FLAGS = 2215 DECLARE LONG CONSTANT NSA$C_PKT_RET_FLAGS = 2228  DECLARE LONG CONSTANT NSA$C_PKT_LIFETIME_REQ = 2238 DECLARE LONG CONSTANT NSA$C_PKT_LIFETIME_REC = 2246 DECLARE LONG CONSTANT NSA$C_PKT_CRED_USAGE = 225: DECLARE LONG CONSTANT NSA$C_PKT_CONTEXT_HANDLE = 2265 DECLARE LONG CONSTANT NSA$C_PKT_QOP_STATE = 2276 DECLARE LONG CONSTANT NSA$C_PKT_CONF_STATE = 228= DECLARE LONG CONSTANT NSA$C_PKT_DELEG_CRED_HANDLE = 2298 DECLARE LONG CONSTANT NSA$C_PKT_MAJOR_STATUS = 2301 DECLARE LONG CONSTANT NSA$C_PKT_DA S_1 = 2311 DECLARE LONG CONSTANT NSA$C_PKT_DAS_2 = 2321 DECLARE LONG CONSTANT NSA$C_PKT_DAS_3 = 2331 DECLARE LONG CONSTANT NSA$C_PKT_DAS_4 = 2341 DECLARE LONG CONSTANT NSA$C_PKT_DAS_5 = 2351 DECLARE LONG CONSTANT NSA$C_PKT_DAS_6 = 2361 DECLARE LONG CONSTANT NSA$C_PKT_DAS_7 = 2371 DECLARE LONG CONSTANT NSA$C_PKT_DAS_8 = 2381 DECLARE LONG CONSTANT NSA$C_PKT_DAS_9 = 2392 DECLARE LONG CONSTANT NSA$C_PKT_DAS_10 = 240; DECLARE LONG CONSTAN T NSA$C_PKT_STATE_FILE_NAME = 241> DECLARE LONG CONSTANT NSA$C_PKT_DIRECTORY_FULLNAME = 242= DECLARE LONG CONSTANT NSA$C_PKT_FROM_DIR_FULLNAME = 243; DECLARE LONG CONSTANT NSA$C_PKT_TO_DIR_FULLNAME = 244; DECLARE LONG CONSTANT NSA$C_PKT_ISSUER_FULLNAME = 245< DECLARE LONG CONSTANT NSA$C_PKT_SUBJECT_FULLNAME = 2467 DECLARE LONG CONSTANT NSA$C_PKT_CERTIF_TYPE = 247> DECLARE LONG CONSTANT NSA$C_PKT_CSS_SECONDARY_NAME = 248? DECLARE LONG CONSTANT NSA$C_PKT_CSS_OBJECT_FULLNAME = 249< DECLARE LONG CONSTANT NSA$C_PKT_CSS_REQUEST_FROM = 250< DECLARE LONG CONSTANT NSA$C_PKT_CSS_PRIMARY_NAME = 251@ DECLARE LONG CONSTANT NSA$C_PKT_CERTIF_SERIAL_NUMBER = 252; DECLARE LONG CONSTANT NSA$C_PKT_WINDOW_END_TIME = 253J DECLARE LONG CONSTANT NSA$C_PKT_LOG_CLOSED = 254 ! log file closedJ DECLARE LONG CONSTANT NSA$C_PKT_LOG_OPENED = 255 ! log file openedW DECLARE LONG CONSTANT NSA$C_PKT_IDENTIFIERS_MISSING = 256 ! identifiers missing@ DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_FIELD_NAME = 257? DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_ORIG_DATA = 258> DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_NEW_DATA = 259A DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_FIELD_TITLE = 260@ DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_FIELD_DATA = 261b DECLARE LONG CONSTANT NSA$C_PKT_INSTALL_AUTHPRIVS = 262 ! installed image authorized privsK DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_FLAGS = 263 ! persona flagsG DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_UID = 264 ! persona UIDR DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_MODE = 265 ! persona creation modeQ DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_USERNAME = 266 ! persona usernameO DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_ACCOUNT = 267 ! persona accountW DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_NOAUDIT = 268 ! persona noaudit counterG DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_UIC = 269 ! persona UICY DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_AUTHPRIV = 270 ! persona authorized privsX DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_PERMPRIV = 271 ! persona permanent privsV DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_WORKPRIV = 272 ! persona working privs\ DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_ENABLED = 273 ! persona rights enabled flagsM DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_RIGHTS = 274 ! persona rights_ DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_MINCLASS = 275 ! persona minimum classification_ DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_MAXCLASS = 276 ! persona maximum classification` DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_WORKCLASS = 277 ! persona working classificationF DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_ID = 278 ! persona Id = DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_POSIX_UID = 279= DECLARE LONG CONSTANT NSA$C_PKT_PERSONA_POSIX_GID = 280< DECLARE LONG CONSTANT NSA$C_PKT_PARENT_POSIX_UID = 281< DECLARE LONG CONSTANT NSA$C_PKT_PARENT_POSIX_GID = 282E DECLARE LONG CONSTANT NSA$C_PKT_MAX_CODE = 283 ! Must be last4 DECLARE LONG CONSTANT NSA$C_PKT_HDR_LENGTH = 44 DECLARE LONG CONSTANT NSA$K_PKT_HDR_LENGTH = 4H DECLARE LONG CONSTANT NSA$_ACCESS_DESIRED = 1 ! Access requested= DECLARE LONG CONSTANT NSA$_ACCOUNT = 2 ! Account nameF DECLARE LONG CONSTANT NSA$_ALARM_NAME = 3 ! Alarm journal nameL DECLARE LONG CONSTANT NSA$_APPL_DATA = 4 ! Application supplied data@ DECLARE LONG CONSTANT NSA$_AUDIT_FLAGS = 5 ! Audit flagsF DECLARE LONG CONSTANT NSA$_AUDIT_NAME = 6 ! Audit journal nameI DECLARE LONG CONSTANT NSA$_SYSTEM_NAME = 7 ! SCS system node nameQ DECLARE LONG CONSTANT NSA$_SYSTEM_ID = 8 ! SCS system node identificationd DECLARE LONG CONSTANT NSA$_DEVICE_NAME = 9 ! Primary device name on which the volume residesN DECLARE LONG CONSTANT NSA$_DISMOUNT_FLAGS = 10 ! Volume dismount flagsA DECLARE LONG CONSTANT NSA$_HOLDER_NAME = 11 ! Holder nameF DECLARE LONG CONSTANT NSA$_HOLDER_OWNER = 12 ! Holder owner IDM DECLARE LONG CONSTANT NSA$_ID_ATTRIBUTES = 13 ! Identifier attributesA DECLARE LONG CONSTANT NSA$_ID_NAME = 14 ! Identifier nameH DECLARE LONG CONSTANT NSA$_ID_NEW_NAME = 15 ! Identifer new nameC DECLARE LONG CONSTANT NSA$_ID_VALUE = 16 ! Identifier valueK DECLARE LONG CONSTANT NSA$_ID_NEW_VALUE = 17 ! Identifier new valueZ DECLARE LONG CONSTANT NSA$_IDENTIFIERS_USED = 18 ! Identifiers used to gain accessU DECLARE LONG CONSTANT NSA$_IMAGE_NAME = 19 ! Name of the image being executedE DECLARE LONG CONSTANT NSA$_INSTALL_FILE = 20 ! Installed fileE DECLARE LONG CONSTANT NSA$_INSTALL_FLAGS = 21 ! INSTALL flagsJ DECLARE LONG CONSTANT NSA$_INSTALL_PRIVS = 22 ! INSTALL privileges_ DECLARE LONG CONSTANT NSA$_LOGICAL_NAME = 23 ! Logical name associated with the device.H DECLARE LONG CONSTANT NSA$_MOUNT_FLAGS = 24 ! Volume mount flagsJ DECLARE LONG CONSTANT NSA$_NEW_DATA = 25 ! Data after modificationK DECLARE LONG CONSTANT NSA$_FILE_ID = 26 ! File identification (FID)_ DECLARE LONG CONSTANT NSA$_OBJECT_MIN_CLASS = 27 ! Minimum object access classification_ DECLARE LONG CONSTANT NSA$_OBJECT_MAX_CLASS = 28 ! Maximum object access classificationG DECLARE LONG CONSTANT NSA$_OBJECT_NAME = 29 ! The object's nameT DECLARE LONG CONSTANT NSA$_OBJECT_NAME_2 = 30 ! Secondary (path) object name\ DECLARE LONG CONSTANT NSA$_OBJECT_OWNER = 31 ! Owner identifier (UIC) of the process^ DECLARE LONG CONSTANT NSA$_OBJECT_PROTECTION = 32 ! UIC based protection of the objectH DECLARE LONG CONSTANT NSA$_OBJECT_TYPE = 33 ! Object's type codeP DECLARE LONG CONSTANT NSA$_ORIGINAL_DATA = 34 ! Data before modificationM DECLARE LONG CONSTANT NSA$_PARENT_ID = 35 ! PID of the parent processI DECLARE LONG CONSTANT NSA$_PARENT_NAME = 36 ! Parent process nameQ DECLARE LONG CONSTANT NSA$_PARENT_OWNER = 37 ! Parent process owner (UIC)Q DECLARE LONG CONSTANT NSA$_PARENT_USERNAME = 38 ! Parent process usernameC DECLARE LONG CONSTANT NSA$_PASSWORD = 39 ! Breakin passwordS DECLARE LONG CONSTANT NSA$_PRIVS_USED = 40 ! Privileges used to gain accessH DECLARE LONG CONSTANT NSA$_PROCESS_ID = 41 ! Current process PIDK DECLARE LONG CONSTANT NSA$_PROCESS_NAME = 42 ! Current process nameR DECLARE LONG CONSTANT NSA$_REMOTE_NODE_ID = 43 ! Node ID of network sourceI DECLARE LONG CONSTANT NSA$_REMOTE_NODENAME = 44 ! Remote nodenameI DECLARE LONG CONSTANT NSA$_REMOTE_USERNAME = 45 ! Remote usernameT DECLARE LONG CONSTANT NSA$_SUBJECT_CLASS = 46 ! Process current access classK DECLARE LONG CONSTANT NSA$_SUBJECT_OWNER = 47 ! Process owner (UIC)H DECLARE LONG CONSTANT NSA$_FINAL_STATUS = 48 ! Completion statusH  DECLARE LONG CONSTANT NSA$_TERMINAL = 49 ! Process terminal nameN DECLARE LONG CONSTANT NSA$_TIME_STAMP = 50 ! When the event took placeB DECLARE LONG CONSTANT NSA$_UAF_ADD = 51 ! UAF record addedG DECLARE LONG CONSTANT NSA$_UAF_DELETE = 52 ! UAF record removedH DECLARE LONG CONSTANT NSA$_UAF_MODIFY = 53 ! UAF record modifiedD DECLARE LONG CONSTANT NSA$_UAF_COPY = 54 ! UAF record copiedH DECLARE LONG CONSTANT NSA$_UAF_FIELDS = 55 ! UAF fields modifiedE DECLARE LONG CONSTANT NSA$_USERNAME = 56 ! Requestor usernameG DECLARE LONG CONSTANT NSA$_UAF_SOURCE = 57 ! Secondary usernameG DECLARE LONG CONSTANT NSA$_UAF_RENAME = 58 ! UAF record renamedP DECLARE LONG CONSTANT NSA$_VOLUME_NAME = 59 ! Mount/dismount volume nameI DECLARE LONG CONSTANT NSA$_VOLUME_SET_NAME = 60 ! Volume set nameG DECLARE LONG CONSTANT NSA$_SERVER_ACCOUNT = 61 ! Server accountK DECLARE LONG CONSTANT NSA$_SERVER_SYSTEM_ID = 62 ! Server system idO DECLARE LONG CONSTANT NSA$_SERVER_SYSTEM_NAME = 63 ! Server system nameK DECLARE LONG CONSTANT NSA$_SERVER_FINAL_STATUS = 64 ! Server statusM DECLARE LONG CONSTANT NSA$_SERVER_IMAGE_NAME = 65 ! Server image nameK DECLARE LONG CONSTANT NSA$_SERVER_PARENT_ID = 66 ! Server parent idQ DECLARE LONG CONSTANT NSA$_SERVER_PARENT_OWNER = 67 ! Server parent ownerW DECLARE LONG CONSTANT NSA$_SERVER_PARENT_NAME = 68 ! Server parent process nameM DECLARE LONG CONSTANT NSA$_SERVER_PROCESS_ID = 69 ! Server process idQ DECLARE LONG CONSTANT NSA$_SERVER_PROCESS_NAME = 70 ! Server process nameT DECLARE LONG CONSTANT NSA$_SERVER_SUBJECT_CLASS = 71 ! Server classificationS DECLARE LONG CONSTANT NSA$_SERVER_SUBJECT_OWNER = 72 ! Server owner ('UIC')I DECLARE LONG CONSTANT NSA$_SERVER_TERMINAL = 73 ! Server terminalL DECLARE LONG CONSTANT NSA$_SERVER_TIME_STAMP = 74 ! Server timestampI DECLARE LONG CONSTANT NSA$_SERVER_USERNAME = 75 ! Server usernameP DECLARE LONG CONSTANT NSA$_AUDIT_DISABLE = 76 ! Audit event disable maskN DECLARE LONG CONSTANT NSA$_AUDIT_ENABLE = 77 ! Audit event enable maskP DECLARE LONG CONSTANT NSA$_ALARM_DISABLE = 78 ! Alarm event disable maskN DECLARE LONG CONSTANT NSA$_ALARM_ENABLE = 79 ! Alarm event enable maskJ DECLARE LONG CONSTANT NSA$_NOP = 80 ! Nop (for static item lists)S DECLARE LONG CONSTANT NSA$_REPLY_MAILBOX = 81 ! Message acknowledge mailboxY DECLARE LONG CONSTANT NSA$_DEFAULT_USERNAME = 82 ! NETPROXY proxy default accountU DECLARE LONG CONSTANT NSA$_LOCAL_USERNAME = 83 ! NETPROXY proxy local account[ DECLARE LONG CONSTANT NSA$_FIELD_NAME = 84 ! Name of (NEW_DATA/ORIGINAL_DATA) fieldN DECLARE LONG CONSTANT NSA$_LISTENER_DEVICE = 85 ! Listener device nameL DECLARE LONG CONSTANT NSA$_FIELD_TITLE_STR = 86 ! Field title stringJ DECLARE LONG CONSTANT NSA$_FIELD_DATA_STR = 87 ! Field data stringT DECLARE LONG CONSTANT NSA$_MESSAGE_TYPE_STR = 88 ! Event message type stringV DECLARE LONG CONSTANT NSA$_EVENT_TYPE = 89 ! Event message type ($AUDIT_EVENT)\ DECLARE LONG CONSTANT NSA$_EVENT_SUBTYPE = 90 ! Event message subtype ($AUDIT_EVENT)V DECLARE LONG CONSTANT NSA$_EVENT_FACILITY = 91 ! Event facility ($AUDIT_EVENT)g DECLARE LONG CONSTANT NSA$_DIRECTORY_ENTRY = 92 ! Directory entry associated with XQ P operationH DECLARE LONG CONSTANT NSA$_DIRECTORY_ID = 93 ! Directory file-idC DECLARE LONG CONSTANT NSA$_CUSTOMER_1 = 94 ! obsolete codes0 DECLARE LONG CONSTANT NSA$_CUSTOMER_2 = 950 DECLARE LONG CONSTANT NSA$_CUSTOMER_3 = 960 DECLARE LONG CONSTANT NSA$_CUSTOMER_4 = 970 DECLARE LONG CONSTANT NSA$_CUSTOMER_5 = 980 DECLARE LONG CONSTANT NSA$_CUSTOMER_6 = 991 DECLARE LONG CONSTANT NSA$_CUSTOMER_7 = 1001 DECLARE LONG CONSTANT NSA$_CUSTOMER_8 = 101? DECLARE LONG CONSTANT NSA$_CSS_1 = 102 ! obsolete codes, DECLARE LONG CONSTANT NSA$_CSS_2 = 103, DECLARE LONG CONSTANT NSA$_CSS_3 = 104, DECLARE LONG CONSTANT NSA$_CSS_4 = 105, DECLARE LONG CONSTANT NSA$_CSS_5 = 106, DECLARE LONG CONSTANT NSA$_CSS_6 = 107, DECLARE LONG CONSTANT NSA$_CSS_7 = 108, DECLARE LONG CONSTANT NSA$_CSS_8 = 109> DECLARE LONG CONSTANT NSA$_LP_1 = 110 ! obsolete codes+ DECLARE LONG CONSTANT NSA$_LP_2 = 111+  DECLARE LONG CONSTANT NSA$_LP_3 = 112+ DECLARE LONG CONSTANT NSA$_LP_4 = 113+ DECLARE LONG CONSTANT NSA$_LP_5 = 114+ DECLARE LONG CONSTANT NSA$_LP_6 = 115+ DECLARE LONG CONSTANT NSA$_LP_7 = 116+ DECLARE LONG CONSTANT NSA$_LP_8 = 117K DECLARE LONG CONSTANT NSA$_ALARM_FAILURE = 118 ! Alarm failure modeK DECLARE LONG CONSTANT NSA$_AUDIT_FAILURE = 119 ! Audit failure modeE DECLARE LONG CONSTANT NSA$_SEVMS_0 = 120 ! Reserved for SeVMSE  DECLARE LONG CONSTANT NSA$_SEVMS_1 = 121 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_2 = 122 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_3 = 123 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_4 = 124 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_5 = 125 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_6 = 126 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_7 = 127 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_8 = 128 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_9 = 129 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_10 = 130 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_11 = 131 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_12 = 132 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_13 = 133 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_14 = 134 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_15 = 135 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_16 = 136 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_17 = 137 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_18 = 138 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SNAPSHOT_TIME = 139 ! Snapshot timeU DECLARE LONG CONSTANT NSA$_TRANSPORT_NAME = 140 ! Transport name (DECwindows)P DECLARE LONG CONSTANT NSA$_DECNET_LINK_ID = 141 ! DECnet logical link IDP DECLARE LONG CONSTANT NSA$_DECNET_OBJECT_NAME = 142 ! DECnet object nameT DECLARE LONG CONSTANT NSA$_DECNET_OBJECT_NUMBER = 143 ! DECnet object numberP DECLARE LONG CONSTANT NSA$_REMOTE_LINK_ID = 144 ! Remote logical link IDD DECLARE LONG CONSTANT NSA$_COMMAND_LINE = 145 ! Command lineP DECLARE LONG CONSTANT NSA$_ASSOCIATION_NAME = 146 ! IPC association name[ DECLARE LONG CONSTANT NSA$_REM_ASSOCIATION_NAME = 147 ! IPC remote association nameJ DECLARE LONG CONSTANT NSA$_CONNECTION_ID = 148 ! IPC connection IDJ DECLARE LONG CONSTANT NSA$_MESSAGE = 149 ! Associated message codeQ DECLARE LONG CONSTANT NSA$_MSGFILNAM = 150 ! Associated message file nameV DECLARE LONG CONSTANT NSA$_OBJECT_POINTER = 151 ! Object container (Directory)V DECLARE LONG CONSTANT NSA$_ID_NEW_ATTRIBUTES = 152 ! Identifier new attributesF DECLARE LONG CONSTANT NSA$_SYSTIM_NEW = 153 ! New system time F DECLARE LONG CONSTANT NSA$_SYSTIM_OLD = 154 ! Old system time 3 DECLARE LONG CONSTANT NSA$_PARAMS_WRITE = 1553 DECLARE LONG CONSTANT NSA$_PARAMS_INUSE = 156V DECLARE LONG CONSTANT NSA$_MATCHING_ACE = 157 ! ACE granting or denying accessW DECLARE LONG CONSTANT NSA$_SNAPSHOT_SAVE_FILNAM = 158 ! Snapshot save file nameK DECLARE LONG CONSTANT NSA$_MAILBOX_UNIT = 159 ! Mailbox unit numberL DECLARE LONG CONSTANT NSA$_NEW_OWNER = 160 ! New process owner (UIC)L DECLARE LONG CONSTANT NSA$_NEW_PRIORITY = 161 ! New process priorityL DECLARE LONG CONSTANT NSA$_OLD_PRIORITY = 162 ! Old process priorityH DECLARE LONG CONSTANT NSA$_DIAG_FUNC = 163 ! Diagnostic functionK DECLARE LONG CONSTANT NSA$_RESOURCE_NAME = 164 ! Lock resource nameQ DECLARE LONG CONSTANT NSA$_LNM_TABLE_NAME = 165 ! Logical name table nameY DECLARE LONG CONSTANT NSA$_LNM_PARENT_NAME = 166 ! Parent logical name table nameK DECLARE LONG CONSTANT NSA$_EFC_NAME = 167 ! Event Flag Cluster name] DECLARE LONG CONSTANT NSA$_TARGET_PROCESS_CLASS = 168 ! Target process classificationO DECLARE LONG CONSTANT NSA$_TARGET_PROCESS_ID = 169 ! Target process PIDR DECLARE LONG CONSTANT NSA$_TARGET_PROCESS_NAME = 170 ! Target process nameZ DECLARE LONG CONSTANT NSA$_TARGET_PROCESS_OWNER = 171 ! Target process owner (UIC)J DECLARE LONG CONSTANT NSA$_TARGET_USERNAME = 172 ! Target usernameH DECLARE LONG CONSTANT NSA$_NEW_PRIVILEGES = 173 ! New privilegesH DECLARE LONG CONSTANT NSA$_OLD_PRIVILEGES = 174 ! Old privilegesT DECLARE LONG CONSTANT NSA$_REMOTE_NODE_FULLNAME = 175 ! Remote node fullname= DECLARE LONG CONSTANT NSA$_UID = 176 ! UID of object E DECLARE LONG CONSTANT NSA$_UNUSED_3 = 177 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_4 = 178 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_5 = 179 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_6 = 180 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_7 = 181 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_8 = 182 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_9 = 183 ! Unused item code F DECLARE LONG CONSTANT NSA$_UNUSED_10 = 184 ! Unused item code K DECLARE LONG CONSTANT NSA$_PRIVS_MISSING = 185 ! Privileges missingP DECLARE LONG CONSTANT NSA$_TARGET_DEVICE_NAME = 186 ! Target device nameK DECLARE LONG CONSTANT NSA$_SECTION_NAME = 187 ! Global section nameO DECLARE LONG CONSTANT NSA$_ID_VALUE_ASCII = 188 ! ID value via $IDTOASCI DECLARE LONG CONSTANT NSA$_OBJECT_CLASS = 189 ! Object class nameK DECLARE LONG CONSTANT NSA$_SUPPRESS = 190 ! Suppress supplied itemsT DECLARE LONG CONSTANT NSA$_SNAPSHOT_BOOTFILE = 191 ! Snapshot boot file name^ DECLARE LONG CONSTANT NSA$_SOURCE_PROCESS_ID = 192 ! Source process ID (impersonation)H DECLARE LONG CONSTANT NSA$_REQUEST_NUMBER = 193 ! Request numberB DECLARE LONG CONSTANT NSA$_ACCESS_MODE = 194 ! Access modeR DECLARE LONG CONSTANT NSA$_SYSTEM_SERVICE_NAME = 195 ! System service nameX DECLARE LONG CONSTANT NSA$_NEW_AUTH_PRIVILEGES = 196 ! New authorized privilegesX DECLARE LONG CONSTANT NSA$_OLD_AUTH_PRIVILEGES = 197 ! Old authorized privilegesT DECLARE LONG CONSTANT NSA$_NEW_DEF_PRIVILEGES = 198 ! New default privilegesT DECLARE LONG CONSTANT NSA$_OLD_DEF_PRIVILEGES = 199 ! Old default privilegesH DECLARE LONG CONSTANT NSA$_NEW_PROCESS_ID = 200 ! New process IDT DECLARE LONG CONSTANT NSA$_NEW_PROCESS_OWNER = 201 ! New process owner (UIC)L DECLARE LONG CONSTANT NSA$_NEW_PROCESS_NAME = 202 ! New process nameH DECLARE LONG CONSTANT NSA$_NEW_IMAGE_NAME = 203 ! New image nameD DECLARE LONG CONSTANT NSA$_NEW_USERNAME = 204 ! New usernameJ DECLARE LONG CONSTANT NSA$_DEACCESS_KEY = 205 ! Deaccess audit keyR DECLARE LONG CONSTANT NSA$_OBJECT_RIGHTS_BLOCK = 206 ! Object Rights Blockg DECLARE LONG CONSTANT NSA$_OBJSRV_COMPLETE = 207 ! Object service processing completion routineF DECLARE LONG CONSTANT NSA$_TLV_ORB = 208 ! Object distributionP DECLARE LONG CONSTANT NSA$_FILE_NAME = 209 ! File name (volume auditing)M DECLARE LONG CONSTANT NSA$_DIRECTORY_NAME = 210 ! Directory file nameS DECLARE LONG CONSTANT NSA$_SEQUENCE_KEY = 211 ! Sequence key (XQP auditing) ! DAS item codes.9 DECLARE LONG CONSTANT NSA$_PRINCIPAL_FULLNAME = 2126 DECLARE LONG CONSTANT NSA$_TARGET_FULLNAME = 2136 DECLARE LONG CONSTANT NSA$_SOURCE_FULLNAME = 2147 DECLARE LONG CONSTANT NSA$_DESIRED_FULLNAME = 2157 DECLARE LONG CONSTANT NSA$_CLAIMED_USERNAME = 2167 DECLARE LONG CONSTANT NSA$_CLAIMED_FULLNAME = 2177 DECLARE LONG CONSTANT NSA$_CLAIMED_NODENAME = 218/ DECLARE LONG CONSTANT NSA$_TIME_REQ = 219/ DECLARE LO NG CONSTANT NSA$_TIME_REC = 2200 DECLARE LONG CONSTANT NSA$_REQ_FLAGS = 2210 DECLARE LONG CONSTANT NSA$_RET_FLAGS = 2223 DECLARE LONG CONSTANT NSA$_LIFETIME_REQ = 2233 DECLARE LONG CONSTANT NSA$_LIFETIME_REC = 2241 DECLARE LONG CONSTANT NSA$_CRED_USAGE = 2255 DECLARE LONG CONSTANT NSA$_CONTEXT_HANDLE = 2260 DECLARE LONG CONSTANT NSA$_QOP_STATE = 2271 DECLARE LONG CONSTANT NSA$_CONF_STATE = 2288 DECLARE LONG CONSTANT NSA$_DELEG_CRED_HANDLE = 2 293 DECLARE LONG CONSTANT NSA$_MAJOR_STATUS = 230, DECLARE LONG CONSTANT NSA$_DAS_1 = 231, DECLARE LONG CONSTANT NSA$_DAS_2 = 232, DECLARE LONG CONSTANT NSA$_DAS_3 = 233, DECLARE LONG CONSTANT NSA$_DAS_4 = 234, DECLARE LONG CONSTANT NSA$_DAS_5 = 235, DECLARE LONG CONSTANT NSA$_DAS_6 = 236, DECLARE LONG CONSTANT NSA$_DAS_7 = 237, DECLARE LONG CONSTANT NSA$_DAS_8 = 238, DECLARE LONG CONSTANT NSA$_DAS_9 = 239- DECLARE LONG CONSTANT NSA$_D AS_10 = 2406 DECLARE LONG CONSTANT NSA$_STATE_FILE_NAME = 2419 DECLARE LONG CONSTANT NSA$_DIRECTORY_FULLNAME = 242> DECLARE LONG CONSTANT NSA$_FROM_DIRECTORY_FULLNAME = 243< DECLARE LONG CONSTANT NSA$_TO_DIRECTORY_FULLNAME = 2446 DECLARE LONG CONSTANT NSA$_ISSUER_FULLNAME = 2457 DECLARE LONG CONSTANT NSA$_SUBJECT_FULLNAME = 2462 DECLARE LONG CONSTANT NSA$_CERTIF_TYPE = 2479 DECLARE LONG CONSTANT NSA$_CSS_SECONDARY_NAME = 248: DECLARE LONG CONST ANT NSA$_CSS_OBJECT_FULLNAME = 2497 DECLARE LONG CONSTANT NSA$_CSS_REQUEST_FROM = 2507 DECLARE LONG CONSTANT NSA$_CSS_PRIMARY_NAME = 251; DECLARE LONG CONSTANT NSA$_CERTIF_SERIAL_NUMBER = 2526 DECLARE LONG CONSTANT NSA$_WINDOW_END_TIME = 253E DECLARE LONG CONSTANT NSA$_LOG_CLOSED = 254 ! log file closedE DECLARE LONG CONSTANT NSA$_LOG_OPENED = 255 ! log file openedR DECLARE LONG CONSTANT NSA$_IDENTIFIERS_MISSING = 256 ! identifiers missing; DECLARE LONG CONSTANT NSA$_SENSITIVE_FIELD_NAME = 257: DECLARE LONG CONSTANT NSA$_SENSITIVE_ORIG_DATA = 2589 DECLARE LONG CONSTANT NSA$_SENSITIVE_NEW_DATA = 259< DECLARE LONG CONSTANT NSA$_SENSITIVE_FIELD_TITLE = 260; DECLARE LONG CONSTANT NSA$_SENSITIVE_FIELD_DATA = 261] DECLARE LONG CONSTANT NSA$_INSTALL_AUTHPRIVS = 262 ! installed image authorized privsF DECLARE LONG CONSTANT NSA$_PERSONA_FLAGS = 263 ! persona flagsB DECLARE LONG CONSTANT NSA$_PERSONA_UID = 264 ! persona UIDM DECLARE LONG CONSTANT NSA$_PERSONA_MODE = 265 ! persona creation modeL DECLARE LONG CONSTANT NSA$_PERSONA_USERNAME = 266 ! persona usernameJ DECLARE LONG CONSTANT NSA$_PERSONA_ACCOUNT = 267 ! persona accountR DECLARE LONG CONSTANT NSA$_PERSONA_NOAUDIT = 268 ! persona noaudit counterB DECLARE LONG CONSTANT NSA$_PERSONA_UIC = 269 ! persona UICT DECLARE LONG CONSTANT NSA$_PERSONA_AUTHPRIV = 270 ! persona authorized privsS DECLARE LONG CONSTANT NSA$_PERSONA_PERMPRIV = 271 ! persona permanent privsQ DECLARE LONG CONSTANT NSA$_PERSONA_WORKPRIV = 272 ! persona working privsW DECLARE LONG CONSTANT NSA$_PERSONA_ENABLED = 273 ! persona rights enabled flagsH DECLARE LONG CONSTANT NSA$_PERSONA_RIGHTS = 274 ! persona rightsZ DECLARE LONG CONSTANT NSA$_PERSONA_MINCLASS = 275 ! persona minimum classificationZ DECLARE LONG CONSTANT NSA$_PERSONA_MAXCLASS = 276 ! persona maximum classifica tion[ DECLARE LONG CONSTANT NSA$_PERSONA_WORKCLASS = 277 ! persona working classification@ DECLARE LONG CONSTANT NSA$_PERSONA_ID = 278 ! persona Id8 DECLARE LONG CONSTANT NSA$_PERSONA_POSIX_UID = 2798 DECLARE LONG CONSTANT NSA$_PERSONA_POSIX_GID = 2807 DECLARE LONG CONSTANT NSA$_PARENT_POSIX_UID = 2817 DECLARE LONG CONSTANT NSA$_PARENT_POSIX_GID = 282D DECLARE LONG CONSTANT NSA$_MAX_ITM_CODE = 283 ! Must be lastV DECLARE LONG CONSTANT NSA$_CHAIN  = 65535 ! For $AUDIT_EVENT item list chaining3 DECLARE LONG CONSTANT NSA$_CLIENT_ACCOUNT = 25 DECLARE LONG CONSTANT NSA$_CLIENT_SYSTEM_ID = 87 DECLARE LONG CONSTANT NSA$_CLIENT_SYSTEM_NAME = 79 DECLARE LONG CONSTANT NSA$_CLIENT_FINAL_STATUS = 487 DECLARE LONG CONSTANT NSA$_CLIENT_IMAGE_NAME = 196 DECLARE LONG CONSTANT NSA$_CLIENT_PARENT_ID = 359 DECLARE LONG CONSTANT NSA$_CLIENT_PARENT_OWNER = 378 DECLARE LONG CONSTANT NSA$_CLIENT_PARENT_NAME = 367 DECLARE LONG CONSTANT NSA$_CLIENT_PROCESS_ID = 419 DECLARE LONG CONSTANT NSA$_CLIENT_PROCESS_NAME = 42: DECLARE LONG CONSTANT NSA$_CLIENT_SUBJECT_CLASS = 46: DECLARE LONG CONSTANT NSA$_CLIENT_SUBJECT_OWNER = 475 DECLARE LONG CONSTANT NSA$_CLIENT_TERMINAL = 497 DECLARE LONG CONSTANT NSA$_CLIENT_TIME_STAMP = 505 DECLARE LONG CONSTANT NSA$_CLIENT_USERNAME = 560 DECLARE LONG CONSTANT NSA$S_NSADATADEF = 5 record NSADATADEF? WORD NSA$ W_PACKET_SIZE ! Data packet size? WORD NSA$W_PACKET_TYPE ! Data packet typeC BYTE NSA$R_PACKET_DATA ! Start of packet data& ! Define $AUDIT_EVENT item codes. end record NSADATADEF @ ! Define flag masks for NSA$EVENT_AUDIT supplied parameter.? ! Each bit set tells NSA$EVENT_AUDIT *not* to default that5 ! corresponding packet from the current process.< DECLARE LONG CONSTANT NSA$M_ACCOUNT_NAME = x'0000000 1'9 DECLARE LONG CONSTANT NSA$M_SYSTEM_ID = x'00000002'; DECLARE LONG CONSTANT NSA$M_SYSTEM_NAME = x'00000004'< DECLARE LONG CONSTANT NSA$M_FINAL_STATUS = x'00000008': DECLARE LONG CONSTANT NSA$M_IMAGE_NAME = x'00000010'9 DECLARE LONG CONSTANT NSA$M_PARENT_ID = x'00000020'< DECLARE LONG CONSTANT NSA$M_PARENT_OWNER = x'00000040'; DECLARE LONG CONSTANT NSA$M_PARENT_NAME = x'00000080': DECLARE LONG CONSTANT NSA$M_PROCESS_ID = x'00000100'< DECLARE LONG CONSTANT NSA$M_PROCESS_NAME = x'00000200'= DECLARE LONG CONSTANT NSA$M_SUBJECT_CLASS = x'00000400'= DECLARE LONG CONSTANT NSA$M_SUBJECT_OWNER = x'00000800'8 DECLARE LONG CONSTANT NSA$M_TERMINAL = x'00001000': DECLARE LONG CONSTANT NSA$M_TIME_STAMP = x'00002000'8 DECLARE LONG CONSTANT NSA$M_USERNAME = x'00004000'? DECLARE LONG CONSTANT NSA$M_PARENT_USERNAME = x'00008000'9 DECLARE LONG CONSTANT NSA$M_POSIX_UID = x'00010000'9 DECLARE LONG CONSTANT NSA$M_POSIX_GID = x'00020000'@ DECLARE LONG CONSTANT NSA$M_PARENT_POSIX_UID = x'00040000'@ DECLARE LONG CONSTANT NSA$M_PARENT_POSIX_GID = x'00080000'. DECLARE LONG CONSTANT NSA$S_FILL_23_ = 4 record FILL_23_ variant case( LONG NSA$L_SUPPLIED_FLAGS case# group NSA$R_FILL_24_ ! account ! system id! ! system name ! status  ! image name ! parent id" ! parent owner) ! parent process name ! process id" ! process name$ ! classification# ! owner ('UIC') ! terminal ! timestamp ! username% ! parent username LONG ACCOUNT_NAME_bits ! COMMENT ADDED BY SDL - ACCOUNT_NA ME_bits contains bits ACCOUNT_NAME through FILL_25_' end group NSA$R_FILL_24_ end variant end record FILL_23_ L ! Define the format of an audit server reply message. This defines theC ! format of the message written to any supplied reply mailbox.2 DECLARE LONG CONSTANT NSA$C_REPLY_LENGTH = 42 DECLARE LONG CONSTANT NSA$K_REPLY_LENGTH = 41 DECLARE LONG CONSTANT NSA$S_NSAREPLYDEF = 4  ! U ! Define the structure of a message formating table entry. These entries defineV ! the order in which the data packets are displayed, and the manner in which they ! are formatted. ! H DECLARE LONG CONSTANT NSA$C_FMTINF_NONE = 0 ! No value to format[ DECLARE LONG CONSTANT NSA$C_FMTINF_LONG_VALUE = 1 ! Value is supplied as a longword[ DECLARE LONG CONSTANT NSA$C_FMTINF_IDENTIFIER = 2 ! Value supplied is an identifier` DECLARE LONG CONSTANT NSA$C_FMTINF_DATE = 3 ! Value supplied is address of quadword dateg DECLARE LONG CONSTANT NSA$C_FMTINF_STRING = 4 ! String size (count) and address supplied to FAOb DECLARE LONG CONSTANT NSA$C_FMTINF_CLASSIFICATION = 5 ! Vector represents a classificationU DECLARE LONG CONSTANT NSA$C_FMTINF_UID = 6 ! Value supplied is address of UID` DECLARE LONG CONSTANT NSA$C_FMTINF_RIGHTS = 7 ! Value supplied is address of rights infoT DECLARE LONG CONSTANT NSA$C_FMTINF_SPECIAL = 8 ! Special processing requiredE  DECLARE LONG CONSTANT NSA$M_FMTINF_CHECK_PREVIOUS = x'00000001'C DECLARE LONG CONSTANT NSA$M_FMTINF_NTH_NEW_LINE = x'00000002'? DECLARE LONG CONSTANT NSA$M_FMTINF_NOFORMAT = x'00000004'@ DECLARE LONG CONSTANT NSA$M_FMTINF_SENSITIVE = x'00000008'4 DECLARE LONG CONSTANT NSA$K_FMTINF_LENGTH = 284 DECLARE LONG CONSTANT NSA$C_FMTINF_LENGTH = 28% ! Define the format style codes.b DECLARE LONG CONSTANT NSA$C_FORMAT_STYLE_BRIEF = 1 ! Single line briefly formatted messageS DECLARE LONG CONSTANT NSA$C_FORMAT_STYLE_FULL = 2 ! Fully formatted messageU DECLARE LONG CONSTANT NSA$C_FORMAT_STYLE_PACKET_TYPE = 3 ! Packet type format4 ! Define classification string format constants\ DECLARE LONG CONSTANT NSA$C_FMTINF_MAX_SINGLE_SEC_STR = 3895 ! Simple secrecy string^ DECLARE LONG CONSTANT NSA$C_FMTINF_MAX_SINGLE_INT_STR = 1977 ! Simple integrity string] DECLARE LONG CONSTANT NSA$C_FMTINF_MAX_RANGE_SEC_STR = 7801 ! Compound secrecy string_ DECLARE LONG CONSTANT NSA$C_FMTINF_MAX_RANGE_INT_STR = 3963 ! Compound integrity string0 DECLARE LONG CONSTANT NSA$S_FMTTBLDEF = 28 record FMTTBLDEFT LONG NSA$L_FMTINF_PACKET_NAME ! Address of the packet name descriptorr WORD NSA$W_FMTINF_PACKET_TYPE ! Define the type of packet represented by this entry (NSA$C_PKT_xxx)T WORD NSA$W_FMTINF_OUTPUT_ORDER ! Define the order in the output bufferH LONG NSA$L_FMTI NF_FAO_CTRSTR ! Normal FAO control stringa LONG NSA$L_FMTINF_CLIENT_FAO_CTRSTR ! FAO control string for client/server combinatione LONG NSA$L_FMTINF_NTH_FAO_CTRSTR ! FAO control string for the Nth packet of the same typeE BYTE NSA$B_FMTINF_DATA_TYPE ! Type of data to format group NSA$R_FILL_26_ variant case- BYTE NSA$B_FMTINF_FMT_FLAGS case& group NSA$R_FILL _27_B ! Check adjacency with previous output item> ! Force duplicate packets to a new line3 ! Don't format the packet(s)> ! Packet contains sensitive information{ BYTE FMTINF_CHECK_PREVIOUS_bits ! COMMENT ADDED BY SDL - FMTINF_CHECK_PREVIOUS_bits contains bits &) ! FMTINF_CHECK_PREVIOUS through FILL_28_* end group NSA$R_FILL_27_ end variant! e nd group NSA$R_FILL_26_I WORD NSA$W_FMTINF_SERVER_PKT ! Associated (server) packetL WORD NSA$W_FMTINF_INDENT ! Indent for multi-line packets5 WORD NSA$W_FMTINF_SPARE_1 ! Unused end record FMTTBLDEF  ! _ ! Define the structure of the format image callout block. This block is used to determinea ! which routines should be used to format event messages and event message data packets that4 ! are unknown to the base  VMS operating system. ! 4 DECLARE LONG CONSTANT NSA$K_IMGXFR_LENGTH = 534 DECLARE LONG CONSTANT NSA$C_IMGXFR_LENGTH = 531 DECLARE LONG CONSTANT NSA$S_FMTCALLDEF = 53 record FMTCALLDEFT LONG NSA$L_IMGXFR_FLINK ! Address of next entry (must be first)Y LONG NSA$L_IMGXFR_BLINK ! Address of previous entry (must be secomd)B WORD NSA$W_IMGXFR_SIZE ! Size of entry blockF WORD NSA$W_IMGXFR_FACILITY  ! Facility code for imageI LONG NSA$L_IMGXFR_BASE_ORDER_OFFSET ! Base output order offset0 ! Start of sharable image routine addressesJ LONG NSA$A_IMGXFR_MESSAGE_INFO ! Message information routineH LONG NSA$A_IMGXFR_VALIDATE_PACKET ! Packet validation routineQ LONG NSA$A_IMGXFR_DISPLAY_INFO ! Packet display information routineL LONG NSA$A_IMGXFR_LINE_BREAK ! Line break processing routineP LONG NSA$A_IMGXFR_FORMAT_SPECIAL ! Special packet formatting routineO LONG NSA$A_IMGXFR_FORMAT_INFO ! Normal packet formatting routineC LONG NSA$A_IMGXFR_FORMAT_BRIEF ! Brief format routineL LONG NSA$A_IMGXFR_FORMAT_PACKET_TYPE ! Packet type format routineT LONG NSA$A_IMGXFR_FORMAT_EVENT_TYPE ! Message type/subtype format routine. ! End of sharable image routine addressesN STRING NSA$T_IMGXFR_IMAGE_NAME ( 1 to 1 ) = 1 ! Start of image name end record F MTCALLDEF R ! The following structure defines the common argument block passed to all theG ! various formatting routines (which actually format information).@ DECLARE LONG CONSTANT NSA$M_FMTARG_SENSITIVE = x'00000001'D DECLARE LONG CONSTANT NSA$M_FMTARG_DISPLAY_TITLE = x'00000002'E DECLARE LONG CONSTANT NSA$M_FMTARG_CHECK_PREVIOUS = x'00000001'C DECLARE LONG CONSTANT NSA$M_FMTARG_NTH_NEW_LINE = x'00000002'? DECLARE LONG CONSTANT NSA$M_FMTARG_NOFORMAT = x'00000004'4 DECLARE LONG CONSTANT NSA$K_FMTARG_LENGTH = 364 DECLARE LONG CONSTANT NSA$C_FMTARG_LENGTH = 360 DECLARE LONG CONSTANT NSA$S_FMTARGDEF = 36 record FMTARGDEF group NSA$R_FILL_29_ variant case4 BASIC$QUADWORD NSA$Q_FMTARG_BUFFER case& group NSA$R_FILL_30_I WORD NSA$W_FMTARG_BUFFER_SIZE ! Output buffer size9 WORD NSA$W_FMTARG_SPA RE_1 ! UnusedO LONG NSA$A_FMTARG_BUFFER_POINTER ! Output buffer address* end group NSA$R_FILL_30_ end variant! end group NSA$R_FILL_29_P WORD NSA$W_FMTARG_BUFFER_OFFSET ! Current position in output bufferR WORD NSA$W_FMTARG_BOL_OFFSET ! Offset to beginning of current line group NSA$R_FILL_31_ variant case8 BASIC$QUADWORD NSA$Q_FMTARG_TERMINATOR  case& group NSA$R_FILL_32_L WORD NSA$W_FMTARG_TERM_SIZE ! Size of line terminator9 WORD NSA$W_FMTARG_SPARE_2 ! UnusedO LONG NSA$A_FMTARG_TERM_TEXT ! Address of terminator text* end group NSA$R_FILL_32_ end variant! end group NSA$R_FILL_31_C WORD NSA$W_FMTARG_LINE_WIDTH ! Output display widthP WORD NSA$W_FMTARG_LINE_INDENT ! Positions to indent (when needed)K LONG NSA$A_FMTARG_OUTPUT_ROUTINE ! Address of an output routine group NSA$R_FILL_33_ variant case) LONG NSA$L_FMTARG_FLAGS case& group NSA$R_FILL_34_) group NSA$R_FILL_35_ variant case6 WORD NSA$W_FMTARG_FLAGS_LOW case/  group NSA$R_FILL_36_G ! Packet contains sensitive information/ ! Display titlez BYTE FMTARG_SENSITIVE_bits ! COMMENT ADDED BY SDL - FMTARG_SENSITIVE_bits contains bits &$ ! FMTARG_SENSITIVE through FILL_39_3 end group NSA$R_FILL_36_# end variant- end group NSA$R_FILL_35_) group NSA$R_FILL_37_  variant case7 WORD NSA$W_FMTARG_FLAGS_HIGH case/ group NSA$R_FILL_38_K ! Check adjacency with previous output itemG ! Force duplicate packets to a new line< ! Don't format the packet(s) BYTE FMTARG_CHECK_PREVIOUS_bits ! COMMENT ADDED BY SDL - FMTAR G_CHECK_PREVIOUS_bits contains bits &) ! FMTARG_CHECK_PREVIOUS through FILL_40_3 end group NSA$R_FILL_38_# end variant- end group NSA$R_FILL_37_* end group NSA$R_FILL_34_ end variant! end group NSA$R_FILL_33_@ LONG NSA$L_FMTARG_USER_CONTEXT ! User context cell end record FMTARGDEF U ! The following structure defines the transfer vector area for the form at image.Y DECLARE LONG CONSTANT NSA$C_IMGXFR_MESSAGE_INFO = 0 ! Message information routineZ DECLARE LONG CONSTANT NSA$C_IMGXFR_VALIDATE_PACKET = 1 ! Packet validation routine` DECLARE LONG CONSTANT NSA$C_IMGXFR_DISPLAY_INFO = 2 ! Packet display information routineY DECLARE LONG CONSTANT NSA$C_IMGXFR_LINE_BREAK = 3 ! Line break processing routinea DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_SPECIAL = 4 ! Special packet formatting routine] DECLARE LONG C ONSTANT NSA$C_IMGXFR_FORMAT_INFO = 5 ! Normal packet formatting routineR DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_BRIEF = 6 ! Brief format routine^ DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_PACKET_TYPE = 7 ! Packet type format routinef DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_EVENT_TYPE = 8 ! Message type/subtype format routine1 DECLARE LONG CONSTANT NSA$S_FMTXFERDEF = 72 record FMTXFERDEFQ BASIC$QUADWORD NSA$R_IMGXFR_MESSAGE_INFO ! Message information routineR BASIC$QUADWORD NSA$R_IMGXFR_VALIDATE_PACKET ! Packet validation routineX BASIC$QUADWORD NSA$R_IMGXFR_DISPLAY_INFO ! Packet display information routineQ BASIC$QUADWORD NSA$R_IMGXFR_LINE_BREAK ! Line break processing routineY BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_SPECIAL ! Special packet formatting routineU BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_INFO ! Normal packet formatting routineJ BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_BRIEF !  Brief format routineV BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_PACKET_TYPE ! Packet type format routine^ BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_EVENT_TYPE ! Message type/subtype format routineU ! The following list of constants is used to index into the transfer vector area[ ! defined above. The structure definition and constant list must parallel each other. end record FMTXFERDEF  ! N ! Define block to hold access bitname information for a particular object ! I DECLARE LONG CONSTANT NSA$K_ACCNAM_LENGTH = 139 ! Length of block5 DECLARE LONG CONSTANT NSA$C_ACCNAM_LENGTH = 1394 DECLARE LONG CONSTANT NSA$S_FMTACCNAMDEF = 139 record FMTACCNAMDEFT LONG NSA$L_ACCNAM_FLINK ! Address of next entry (must be first)Y LONG NSA$L_ACCNAM_BLINK ! Address of previous entry (must be secomd)B WORD NSA$W_ACCNAM_SIZE ! Size of entry blockX LONG NSA$L_ACCNAM_COD ES ( 1 to 32 ) ! 32 pointers to access name descriptorsP STRING NSA$T_ACCNAM_OBJECT_TYPE ( 1 to 1 ) = 1 ! Start of object name end record FMTACCNAMDEF  ! [ ! Define the format of the message information block. This block defines some general= ! characteristics of messages for a particular facility. ! 3 DECLARE LONG CONSTANT NSA$K_MSGINF_LENGTH = 83 DECLARE LONG CONSTANT NSA$C_MSGINF_LENGTH = 80 DECLARE LONG CONSTANT NSA$S_MSGINFODEF  = 8 record MSGINFODEFK LONG NSA$L_MSGINF_MAX_ORDER_OFFSET ! Maximum (output) line indexP LONG NSA$A_MSGINF_BRIEF_TITLE ! Address of brief format titleline end record MSGINFODEF  ! X ! Define the structure of a formatting table subtype entry. This entry consists ofG ! a description of the subtype as well as the name of the subtype. ! 3 DECLARE LONG CONSTANT NSA$K_SUBTBL_LENGTH = 83 DECLARE LONG CONSTANT NSA$C_SUBTBL_LEN GTH = 82 DECLARE LONG CONSTANT NSA$S_SUBFMTTBLDEF = 8 record SUBFMTTBLDEF% group NSA$R_SUBTBL_OVERLAY_3 variant caseU LONG NSA$L_SUBTBL_DESCRIPTION ! Address of the description string caseT LONG NSA$L_SUBTBL_TABLE_SIZE ! Number of entries in the subtable end variant) end group NSA$R_SUBTBL_OVERLAY_3J LONG NSA$L_SUBTBL_MNEMONIC ! Mnemonic name for t he entry end record SUBFMTTBLDEF 7 ! Define obsolete message types and subtypes here.0 DECLARE LONG CONSTANT NSA$C_MSG_NETUAF = 95 DECLARE LONG CONSTANT NSA$C_MSG_PRIV_AUDIT = 160 DECLARE LONG CONSTANT NSA$C_PRIV_AUDIT = 19 DECLARE LONG CONSTANT NSA$C_JOBCTL_QUEUE_ACCESS = 30 DECLARE LONG CONSTANT NSA$C_NETUAF_ADD = 13 DECLARE LONG CONSTANT NSA$C_NETUAF_DELETE = 23 DECLARE LONG CONSTANT NSA$C_NETUAF_MODIFY = 30 DECLARE LONG CONSTAN T NSA$C_NETUAF_NCP = 45 DECLARE LONG CONSTANT NSA$C_NETUAF_MAX_CODE = 8C ! Define obsolete packet types and item code equivalents here.4 DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_ID = 26/ DECLARE LONG CONSTANT NSA$_OBJECT_ID = 26% ! Define packet pseudonyms here.4 DECLARE LONG CONSTANT NSA$C_PKT_PRIV_MASK = 22/ DECLARE LONG CONSTANT NSA$_PRIV_MASK = 225 DECLARE LONG CONSTANT NSA$C_PKT_PRIVILEGES = 220 DECLARE LONG CONSTANT NSA$_PRIVILEGES = 22;  DECLARE LONG CONSTANT NSA$C_PKT_SNAPSHOT_FILNAM = 1586 DECLARE LONG CONSTANT NSA$_SNAPSHOT_FILNAM = 158: DECLARE LONG CONSTANT NSA$C_PKT_PERFORMANCE_NOP = 805 DECLARE LONG CONSTANT NSA$_PERFORMANCE_NOP = 80: DECLARE LONG CONSTANT NSA$C_PKT_SUPPLIED_FLAGS = 1905 DECLARE LONG CONSTANT NSA$_SUPPLIED_FLAGS = 190 ww$ ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ++ ! Security Auditing record definitions ! -N DECLARE LONG CONSTANT NSA$C_REC_MAXLENGTH = 1024 ! Maximum record sizeN DECLARE LONG CONSTANT NSA$K_REC_MAXLENGTH = 1024 ! Maximum rec ord sizeN DECLARE LONG CONSTANT NSA$S_REC_MAXLENGTH = 1024 ! Maximum record size ! +$ ! Audit record type definitions ! -@ DECLARE LONG CONSTANT NSA$K_RECTYP_FIL = 1 ! File accessB DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF = 2 ! System UAFC DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF = 3 ! Network UAFM DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB = 4 ! Login breakin detectionF DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI = 5 ! Successful loginC  DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF = 6 ! Login failure< DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO = 7 ! LogoutF DECLARE LONG CONSTANT NSA$K_RECTYP_VOL = 8 ! Volume operationsJ DECLARE LONG CONSTANT NSA$K_RECTYP_GBL = 9 ! Global section accessK DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL = 10 ! INSTALL operationsS DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS = 11 ! Rights database operationsL DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT = 12 ! SET AUDI T operations0 DECLARE LONG CONSTANT NSA$K_RECTYPNUM = 12 ! +. ! Audit record subtype and ID definitions ! - ! File accessP DECLARE LONG CONSTANT NSA$K_RECTYP_FIL_SUCC = 1 ! Successful file accessM DECLARE LONG CONSTANT NSA$K_RECTYP_FIL_FAIL = 2 ! File access failure3 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_FIL = 28 DECLARE LONG CONSTANT NSA$K_RECID_FIL_SUCC = 655379 DECLARE LONG CONSTANT NSA$K_RECID_FIL_FAIL = 131073 ! Global sectio n accessZ DECLARE LONG CONSTANT NSA$K_RECTYP_GBL_SUCC = 1 ! Successful Global section accessW DECLARE LONG CONSTANT NSA$K_RECTYP_GBL_FAIL = 2 ! Global section access failure3 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_GBL = 28 DECLARE LONG CONSTANT NSA$K_RECID_GBL_SUCC = 655459 DECLARE LONG CONSTANT NSA$K_RECID_GBL_FAIL = 131081 ! System UAFV DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_ADD = 1 ! System UAF record additionV DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_DEL = 2 ! System UAF record deletionZ DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_MOD = 3 ! System UAF record modificationT DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_COP = 4 ! System UAF record copiedU DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_REN = 5 ! System UAF record renamed6 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_SYSUAF = 5: DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_ADD = 65538; DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_DEL = 131074; DE CLARE LONG CONSTANT NSA$K_RECID_SYSUAF_MOD = 196610; DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_COP = 262146; DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_REN = 327682 ! Network UAFW DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_ADD = 1 ! Network UAF record additionW DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_DEL = 2 ! Network UAF record deletion[ DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_MOD = 3 ! Network UAF record modification6 DECLARE LONG CONSTANT NSA$K_!RECTYPNUM_NETUAF = 3: DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_ADD = 65539; DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_DEL = 131075; DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_MOD = 196611 ! Login breakin detection^ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_DIA = 1 ! Dialup interactive breakin detection] DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_LOC = 2 ! Local interactive breakin detection^ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_REM = 3 ! Remote interactive " breakin detectionS DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_NET = 4 ! Network breakin detection\ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_DET = 5 ! Detached process breakin detection4 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGB = 58 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_DIA = 655409 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_LOC = 1310769 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_REM = 1966129 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_NET = 2621489 DECLARE #LONG CONSTANT NSA$K_RECID_LOGB_DET = 327684 ! Successful loginM DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_BAT = 1 ! Batch process loginR DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_DIA = 2 ! Dialup interactive loginQ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_LOC = 3 ! Local interactive loginR DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_REM = 4 ! Remote interactive loginG DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_NET = 5 ! Network loginJ DECLARE LONG CONSTANT $NSA$K_RECTYP_LOGI_SUB = 6 ! Subprocess loginP DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_DET = 7 ! Detached process login4 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGI = 78 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_BAT = 655419 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_DIA = 1310779 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_LOC = 1966139 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_REM = 2621499 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_NET = 3276859 DECLARE LONG CONST%ANT NSA$K_RECID_LOGI_SUB = 3932219 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_DET = 458757 ! Login failureU DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_BAT = 1 ! Batch process login failureZ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_DIA = 2 ! Dialup interactive login failureY DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_LOC = 3 ! Local interactive login failureZ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_REM = 4 ! Remote interactive login failureO DECLARE LONG CONST&ANT NSA$K_RECTYP_LOGF_NET = 5 ! Network login failureR DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_SUB = 6 ! Subprocess login failureX DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_DET = 7 ! Detached process login failure4 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGF = 78 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_BAT = 655429 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_DIA = 1310789 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_LOC = 1966149 DECLARE LONG CONSTANT NSA$K_RECID_LO 'GF_REM = 2621509 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_NET = 3276869 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_SUB = 3932229 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_DET = 458758 ! LogoutN DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_BAT = 1 ! Batch process logoutS DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_DIA = 2 ! Dialup interactive logoutR DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_LOC = 3 ! Local interactive logoutS DECLARE LONG CONSTANT NSA$K_RECTYP_L(OGO_REM = 4 ! Remote interactive logoutH DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_NET = 5 ! Network logoutK DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_SUB = 6 ! Subprocess logoutQ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_DET = 7 ! Detached process logout4 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGO = 78 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_BAT = 655439 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_DIA = 1310799 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_LOC = 196 )6159 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_REM = 2621519 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_NET = 3276879 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_SUB = 3932239 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_DET = 458759 ! Volume operationsF DECLARE LONG CONSTANT NSA$K_RECTYP_VOL_MOU = 1 ! Volume mountsJ DECLARE LONG CONSTANT NSA$K_RECTYP_VOL_DMOU = 2 ! Volume dismounts3 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_VOL = 27 DECLARE LONG CONSTANT NSA$ *K_RECID_VOL_MOU = 655449 DECLARE LONG CONSTANT NSA$K_RECID_VOL_DMOU = 131080 ! INSTALL operationsJ DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL_ADD = 1 ! Add known fileM DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL_REM = 2 ! Remove known file6 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_INSTAL = 2! ! Rights database operationsR DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_CRE = 1 ! Create rights databaseJ DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_ADD = 2 ! +Add identifierM DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_REM = 3 ! Remove identifierP DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_MOD_ID = 4 ! Modify identifierW DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_MOD_HO = 5 ! Modify identifier holderN DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_GRANT = 6 ! Grant identifierO DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_REVOK = 7 ! Revoke identifier6 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_RIGHTS = 7 ! SET AUDIT ope ,rationsJ DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_ENA_AL = 1 ! Enable alarmK DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_DIS_AL = 2 ! Disable alarmL DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_ENA_JL = 3 ! Enable journalM DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_DIS_JL = 4 ! Disable journal5 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_AUDIT = 4 ! + ! SYSUAFF stuff ! -2 DECLARE LONG CONSTANT nsa$s_sysuaff_bits = 8 record sysuaff_bits - group nsa$r_fill_41_ variant caseA BASIC$QUADWORD nsa$q_sysuaff ! SYSUAFF flags: case& group nsa$r_fill_42_) ! ACCESS modified* ! ACCOUNT modified( ! ASTLM modified( ! BATCH modified( ! BIOLM modified( ! BYTLM modified& ! CLI modified, . ! CLITABLES modified* ! CPUTIME modified0 ! DEFPRIVILEGES modified) ! DEVICE modified) ! DIALUP modified( ! DIOLM modified, ! DIRECTORY modified( ! ENQLM modified- ! EXPIRATION modified( ! FILLM modified( ! FLAGS modified. ! /INTERACTIVE modified* ! JTQUOTA modified) ! LGICMD modified( ! LOCAL modified, ! MAXDETACH modified* ! MAXJOBS modified. ! MAXACCTJOBS modified* ! NETWORK modified( ! OWNER modified+ ! PASSWORD modified) ! PBYTLM modified) ! PFLAGS modifie 0d- ! P_RESTRICT modified, ! PGFLQUOTA modified( ! PRCLM modified, ! PRIMEDAYS modified+ ! PRIORITY modified- ! PRIVILEGES modified. ! PWDLIFETIME modified- ! PWDMINIMUM modified. ! QUEPRIORITY modified) ! REMOTE modified) ! SFLAGS modif 1ied- ! S_RESTRICT modified+ ! SHRFILLM modified( ! TQELM modified& ! UIC modified, ! WSDEFAULT modified+ ! WSEXTENT modified* ! WSQUOTA modifiedw BYTE access_bits ( 6 ) ! COMMENT ADDED BY SDL - access_bits contains bits access through wsquota* end group nsa$r_fill_42_ end varian2t! end group nsa$r_fill_41_ end record sysuaff_bits  ! +' ! Record header offset definitions ! -@ DECLARE LONG CONSTANT NSA$M_REC_FLAGS_PKTCON = x'00000001'4 DECLARE LONG CONSTANT NSA$C_RECHDR_LENGTH = 764 DECLARE LONG CONSTANT NSA$K_RECHDR_LENGTH = 763 DECLARE LONG CONSTANT NSA$S_NSARECHDRDEF = 76 record NSARECHDRDEF# group NSA$R_REC_ID_OVERLAY variant caseM LONG NSA$L 3_REC_ID ! Record identification longword case+ group NSA$R_REC_ID_FIELDS: WORD NSA$W_REC_TYPE ! Record type> WORD NSA$W_REC_SUBTYPE ! Record subtype/ end group NSA$R_REC_ID_FIELDS end variant' end group NSA$R_REC_ID_OVERLAYK BYTE NSA$B_REC_SEQNUM ! This records sequence numberK BYTE NSA$B_REC_SEQLAST ! Last records sequen 4ce number& group NSA$R_REC_FLAGS_OVERLAY variant case@ BYTE NSA$B_REC_FLAGS ! Record flags byte case, group NSA$R_REC_FLAGS_BITS1 ! Last packet in record is ! continued in next record BYTE REC_FLAGS_PKTCON_bits ! COMMENT ADDED BY SDL - REC_FLAGS_PKTCON_bits contains bits REC_FLAGS_PKTCON & ! through FILL_43_0 end group NSA$R_RE 5C_FLAGS_BITS end variant* end group NSA$R_REC_FLAGS_OVERLAYO BYTE NSA$B_REC_PKTNUM ! Number of data packets in recordE WORD NSA$W_REC_PKTOFF ! Offset to first packetF WORD NSA$W_REC_PKTHDRSIZ ! Data packet header size; LONG NSA$L_REC_EPID ! Extended PIDJ BASIC$QUADWORD NSA$Q_REC_TIME ! Event time (EXE$GQ_SYSTIME)@ STRING NSA$T_REC_CLUSNAM = 16 ! Cluster nod 6e name; STRING NSA$T_REC_PROCNAM = 16 ! Process name7 STRING NSA$T_REC_USERNAM = 12 ! username; STRING NSA$T_REC_ACCTNAM = 8 ! Account name end record NSARECHDRDEF  ! +# ! Data packet type definitions ! -I DECLARE LONG CONSTANT NSA$K_PKTTYP_IMGNAM = 1 ! Image name packetH DECLARE LONG CONSTANT NSA$K_PKTTYP_FACMOD = 2 ! File access modeW DECLARE LONG CONSTANT NSA$K_PKTTYP_PRIVUSED = 3 ! Privilege us7ed to access fileA DECLARE LONG CONSTANT NSA$K_PKTTYP_FILNAM = 4 ! File nameC DECLARE LONG CONSTANT NSA$K_PKTTYP_DEVNAM = 5 ! Device nameD DECLARE LONG CONSTANT NSA$K_PKTTYP_LOGNAM = 6 ! Logical nameC DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLNAM = 7 ! Volume nameH DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLSNAM = 8 ! Volume set nameB DECLARE LONG CONSTANT NSA$K_PKTTYP_NODENAM = 9 ! Node nameC DECLARE LONG CONSTANT NSA$K_PKTTYP_USERNAM = 10 ! User nam8eC DECLARE LONG CONSTANT NSA$K_PKTTYP_PASSWORD = 11 ! PasswordN DECLARE LONG CONSTANT NSA$K_PKTTYP_UIC = 12 ! User identification codeJ DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLPRO = 13 ! Volume protectionD DECLARE LONG CONSTANT NSA$K_PKTTYP_MOUFLG = 14 ! Mount flagsH DECLARE LONG CONSTANT NSA$K_PKTTYP_DMOUFLG = 15 ! Dismount flags@ DECLARE LONG CONSTANT NSA$K_PKTTYP_NODEID = 16 ! Node IDC DECLARE LONG CONSTANT NSA$K_PKTTYP_EPID = 17 ! Extended PI9DR DECLARE LONG CONSTANT NSA$K_PKTTYP_SYSUAFF = 18 ! System UAF record fieldsH DECLARE LONG CONSTANT NSA$K_PKTTYP_STATUS = 19 ! Status longwordL DECLARE LONG CONSTANT NSA$K_PKTTYP_SECNAM = 20 ! Global section nameK DECLARE LONG CONSTANT NSA$K_PKTTYP_PRIVS = 21 ! Full privilege maskF DECLARE LONG CONSTANT NSA$K_PKTTYP_INSFLG = 22 ! Install flagsH DECLARE LONG CONSTANT NSA$K_PKTTYP_IDNAME = 23 ! Identifier nameH DECLARE LONG CONSTANT NSA$K_PKTTYP_I:DVAL = 24 ! Identifier valueN DECLARE LONG CONSTANT NSA$K_PKTTYP_IDATTR = 25 ! Identifier attributesJ DECLARE LONG CONSTANT NSA$K_PKTTYP_HOLDER = 26 ! Identifier holderB DECLARE LONG CONSTANT NSA$K_PKTTYP_AUDIT = 27 ! Audit itemO DECLARE LONG CONSTANT NSA$K_PKTTYP_DEFUSERNAM = 28 ! Default proxy nameK DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDUSERNAM = 29 ! Old proxy nameY DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDDEFUNAM = 30 ! Old default local proxy name ;Q DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDNODENAM = 31 ! Old remote node name0 DECLARE LONG CONSTANT NSA$K_PKTTYPNUM = 31 ! +% ! Data packet offset definitions ! -3 DECLARE LONG CONSTANT NSA$C_PKTHDR_LENGTH = 43 DECLARE LONG CONSTANT NSA$K_PKTHDR_LENGTH = 4< DECLARE LONG CONSTANT NSA$M_PKT_INS_OPEN = x'00000002'; DECLARE LONG CONSTANT NSA$M_PKT_INS_HDR = x'00000004'= DECLARE LONG CONSTANT NSA$M_PKT_INS_SHARE = x'00000008'< DECLARE <LONG CONSTANT NSA$M_PKT_INS_EXEC = x'00000010'= DECLARE LONG CONSTANT NSA$M_PKT_INS_WRITE = x'00000020'< DECLARE LONG CONSTANT NSA$M_PKT_INS_PRIV = x'00000040'< DECLARE LONG CONSTANT NSA$M_PKT_INS_PROT = x'00000080'= DECLARE LONG CONSTANT NSA$M_PKT_INS_NOPRG = x'00000100'; DECLARE LONG CONSTANT NSA$M_PKT_INS_ACC = x'00000200'@ DECLARE LONG CONSTANT NSA$M_PKT_INS_RESIDENT = x'00000400'1 DECLARE LONG CONSTANT NSA$S_NSAPKTDEF = 448 record NSAPKTDEF? = WORD NSA$W_PKT_TYPE ! Packet data type: WORD NSA$W_PKT_SIZE ! Packet size" STRING NSA$T_PKT_DATA = 0% group NSA$R_PKT_DATA_OVERLAY variant case> STRING NSA$T_PKT_IMGNAM = 444 ! Image name case? LONG NSA$L_PKT_FACMOD ! File access mode caseL LONG NSA$L_PKT_PRIVUSED ! Privilege used to access file > case= STRING NSA$T_PKT_FILNAM = 444 ! File name caseN STRING NSA$T_PKT_DEVNAM = 64 ! Device and access port name case@ STRING NSA$T_PKT_LOGNAM = 255 ! Logical name case> STRING NSA$T_PKT_VOLNAM = 12 ! Volume name caseC STRING NSA$T_PKT_VOLSNAM = 12 ! Volume set name case< STRING NSA$T_PKT_NODEN ?AM = 6 ! Node name case= STRING NSA$T_PKT_USERNAM = 32 ! User name case= STRING NSA$T_PKT_PASSWORD = 32 ! Password case9 LONG NSA$L_PKT_UIC ! Volume UIC case@ WORD NSA$W_PKT_VOLPRO ! Volume protection case: LONG NSA$L_PKT_MOUFLG ! Mount flags case= WORD NSA$W_PKT_DMOUF @LG ! Dismount flags case= BASIC$QUADWORD NSA$Q_PKT_NODEID ! Node ID case; LONG NSA$L_PKT_EPID ! Extended PID caseO BASIC$QUADWORD NSA$Q_PKT_SYSUAFF ! System UAF record fields case> LONG NSA$L_PKT_STATUS ! Status longword caseF STRING NSA$T_PKT_SECNAM = 54 ! Global section name caseH A BASIC$QUADWORD NSA$Q_PKT_PRIVS ! Full privilege mask case& group NSA$R_FILL_44_ variant case? LONG NSA$L_PKT_INSFLG ! Install flags case, group NSA$R_FILL_45_3 ! Bit 0 must be unused$ ! /OPEN/ ! /HEADER_RESIDENT% ! /SH BARE' ! /EXECUTE% ! /WRITE) ! /PRIVILEGE) ! /PROTECTED' ! /NOPURGE* ! /ACCOUNTING( ! /RESIDENT WORD PKT_INS_FILL_bits ! COMMENT ADDED BY SDL - PKT_INS_FILL_bits contains bits PKT_INS_FILL through & ! FILL_46_0 end group NSA$R_FILL_45_ C end variant* end group NSA$R_FILL_44_ caseB STRING NSA$T_PKT_IDNAME = 32 ! Identifier name case? LONG NSA$L_PKT_IDVAL ! Identifier value caseD LONG NSA$L_PKT_IDATTR ! Identifier attributes caseG BASIC$QUADWORD NSA$Q_PKT_HOLDER ! Identifier holder caseF STRING NSA$R_PKT_AUDIT = 0 D ! Audit item (not used) caseI STRING NSA$T_PKT_DEFUSERNAM = 32 ! Default proxy name caseE STRING NSA$T_PKT_OLDUSERNAM = 32 ! Old proxy name caseS STRING NSA$T_PKT_OLDDEFUNAM = 32 ! Old default local proxy name caseJ STRING NSA$T_PKT_OLDNODENAM = 6 ! Old remote node name end variant) end group NSA$R_PKT_DATA_OVERLAY end record NSAPKTDEF  wwF:  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED G( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINHG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > I %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +O ! OPERATOR COMMUNICATIONS MESSAGE TYPES AND VALUES These are now obsolete. ! - ! OPERATOR MESSAGE TYPES C DECLARE LONG CONSTANT OPR$_TERMENABL = 1 ! ENABLE TERMINAL D DECLAR JE LONG CONSTANT OPR$_LOGINIT = 2 ! INITIALIZE THE LOG A DECLARE LONG CONSTANT OPR$_OPRQST = 3 ! OPERATOR REQUEST @ DECLARE LONG CONSTANT OPR$_OPREPLY = 4 ! OPERATOR REPLY 7 DECLARE LONG CONSTANT OPR$M_CENTRAL = x'00000001'7 DECLARE LONG CONSTANT OPR$M_PRINTER = x'00000002'5 DECLARE LONG CONSTANT OPR$M_TAPES = x'00000004'5 DECLARE LONG CONSTANT OPR$M_DISKS = x'00000008'7 DECLARE LONG CONSTANT OPR$M_DEVICES = x'00000010'5 DECLARE LONG CONSTANT KOPR$M_USER1 = x'0001FFE0'5 DECLARE LONG CONSTANT OPR$M_USER2 = x'00020000'5 DECLARE LONG CONSTANT OPR$M_USER3 = x'00040000'5 DECLARE LONG CONSTANT OPR$M_USER4 = x'00080000'5 DECLARE LONG CONSTANT OPR$M_USER5 = x'00100000'5 DECLARE LONG CONSTANT OPR$M_USER6 = x'00200000'5 DECLARE LONG CONSTANT OPR$M_USER7 = x'00400000'5 DECLARE LONG CONSTANT OPR$M_USER8 = x'00800000'5 DECLARE LONG CONSTANT OPR$M_USER9 = x'01000000'6 DECLARE LONG CONSTANT OPLR$M_USER10 = x'02000000'6 DECLARE LONG CONSTANT OPR$M_USER11 = x'04000000'6 DECLARE LONG CONSTANT OPR$M_USER12 = x'08000000', DECLARE LONG CONSTANT OPR$S_OPRDEF = 48 record OPRDEF ! Obsolete. variant case8 group OPR$R_OPRDEF_BITS ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. M ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete.r LONG CENTRAL_bits ! COMMENT ADDED BY SDL - CENTRAL_bits contains bits CENTRAL through FILL_47_* end group OPR$R_OPRDEF_BITS end variant end record OPRDEF  wwOz  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED P( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINQG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > R %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! J ! Operating System Specific Data area offset definitions for the IA64 ! VMS calling standard. !  !  ! Spill Data triple ! 4 DECLARE LONG CONSTANT OSSD$M_REG = x'0000001F' S8 DECLARE LONG CONSTANT OSSD$M_MBZ_5_7 = x'000000E0'5 DECLARE LONG CONSTANT OSSD$M_TREG = x'00007F00'7 DECLARE LONG CONSTANT OSSD$M_MBZ_15 = x'00008000'6 DECLARE LONG CONSTANT OSSD$S_OSSD_SPILL_DATA = 3 record OSSD_SPILL_DATA# group OSSD$R_SPILL_OVERLAY variant case- group OSSD$R_SPILL_STRUCT_1< ! Static general register being saved ! MBZE ! T Target register for save or zero for restore ! MBZg WORD REG_bits ! COMMENT ADDED BY SDL - REG_bits contains bits REG through MBZ_151 end group OSSD$R_SPILL_STRUCT_1 case- group OSSD$R_SPILL_STRUCT_2N BYTE OSSD$B_REG_BYTE ! Byte containing 5-bit REG fieldO BYTE OSSD$B_TREG_BYTE ! Byte containing 7-bit TREG field1 end group OSSD$R_SPI ULL_STRUCT_2 end variant' end group OSSD$R_SPILL_OVERLAYa BYTE OSSD$T_T ( 1 to 1 ) ! ULEB128 slot offset to save/restore instruction end record OSSD_SPILL_DATA  ! M ! OSSD layout for general and caller spill register information segments ! 5 DECLARE LONG CONSTANT OSSD$M_TYPE = x'00007FFF'Z DECLARE LONG CONSTANT OSSD$K_GENERAL_INFO = 1 ! General info (always one quadword)^ DECLARE LONG CONSTANT OSSD$K_CALL_VSPILL_INFO = 2 ! Caller spill info (variable length)Z DECLARE LONG CONSTANT OSSD$K_CONTEXT_INFO = 3 ! Context info (always one quadword)2 DECLARE LONG CONSTANT OSSD$M_S = x'00008000'? DECLARE LONG CONSTANT OSSD$M_EXCEPTION_MODE = x'00070000'A DECLARE LONG CONSTANT OSSD$K_EXC_MODE_SIGNAL = 0 ! SignalI DECLARE LONG CONSTANT OSSD$K_EXC_MODE_SIGNAL_ALL = 1 ! Signal allO DECLARE LONG CONSTANT OSSD$K_EXC_MODE_SIGNAL_SILENT = 2 ! Signal silentN DECLARE WLONG CONSTANT OSSD$K_EXC_MODE_FULL_IEEE = 3 ! Signal full IEEEL DECLARE LONG CONSTANT OSSD$K_EXC_MODE_CALLER = 4 ! Use caller's mode< DECLARE LONG CONSTANT OSSD$M_TARGET_INVO = x'00080000'; DECLARE LONG CONSTANT OSSD$M_BASE_FRAME = x'00100000'D DECLARE LONG CONSTANT OSSD$M_HANDLER_REINVOKABLE = x'00200000': DECLARE LONG CONSTANT OSSD$M_AST_FRAME = x'00400000'@ DECLARE LONG CONSTANT OSSD$M_EXCEPTION_FRAME = x'00800000': DECLARE LONG CONSTANT OSSD$M_TIE_FRAXME = x'01000000'@ DECLARE LONG CONSTANT OSSD$M_BOTTOM_OF_STACK = x'02000000'C DECLARE LONG CONSTANT OSSD$M_HANDLER_DATA_VALID = x'04000000'B DECLARE LONG CONSTANT OSSD$M_SS_DISPATCH_FRAME = x'08000000'? DECLARE LONG CONSTANT OSSD$M_KP_START_FRAME = x'10000000'A DECLARE LONG CONSTANT OSSD$M_FRAMELESS_HELPER = x'20000000': DECLARE LONG CONSTANT OSSD$M_MBZ_30_63 = x'00000000'[ DECLARE LONG CONSTANT OSSD$K_GENERAL_INFO_LENGTH = 8 ! Size of general data segmen Yt= DECLARE LONG CONSTANT OSSD$M_CONTEXT_TYPE = x'00FF0000'O DECLARE LONG CONSTANT OSSD$K_CTX_TYPED = 0 ! A VMS typed data structureD DECLARE LONG CONSTANT OSSD$K_CTX_CHFCTX = 1 ! A CHFCTX block; DECLARE LONG CONSTANT OSSD$M_CONTEXT_GR = x'FF000000'? DECLARE LONG CONSTANT OSSD$M_CONTEXT_OFFSET = x'00000000'= DECLARE LONG CONSTANT OSSD$M_CONTEXT_HINT = x'00000000'P DECLARE LONG CONSTANT OSSD$K_HINT_EXCEPTION = 1 ! Exception dispatcherN DECLAR ZE LONG CONSTANT OSSD$K_HINT_SS = 2 ! System Service dispatcherD DECLARE LONG CONSTANT OSSD$K_HINT_AST = 3 ! AST dispatcherI DECLARE LONG CONSTANT OSSD$K_HINT_KP_START = 4 ! KP_START frame[ DECLARE LONG CONSTANT OSSD$K_CONTEXT_INFO_LENGTH = 8 ! Size of context info segment. DECLARE LONG CONSTANT OSSD$S_OSSDDEF = 8 record OSSDDEF" group OSSD$R_DATA_OVERLAY variant case\ BASIC$QUADWORD OSSD$Q_GENERAL_ [INFO_SEGMENT ! Entire general info segment case- group OSSD$R_GENERAL_STRUCT* ! OSSD segment type, ! Continuation marker= ! Desired exception-reporting behavior: ! Invoke handler when unwind target4 ! Logical base frame of stackC ! Handler may be invoked when already active+ ! AST dispatch frame1 \ ! Exception dispatch frameD ! Frame created by Translated Image Executive< ! End of call stack (no predecessors)K ! Exception handler data field exists in unwind info6 ! System Service dispatch frame1 ! Used to tag EXE$KP_START\ ! Tags code executing in context of another routine whose IP is in B0 ! MBZs ] BYTE TYPE_bits ( 8 ) ! COMMENT ADDED BY SDL - TYPE_bits contains bits TYPE through MBZ_30_631 end group OSSD$R_GENERAL_STRUCT case- group OSSD$R_SPILL_STRUCT_3\ WORD OSSD$W_FILL_3 ! Overlays segment type and continuation markerJ WORD OSSD$W_LENGTH ! # quadwords in this segment[ OSSD_SPILL_DATA OSSD$T_SPILL_DATA ! Start of first spill data triple1 en ^d group OSSD$R_SPILL_STRUCT_3 case\ BASIC$QUADWORD OSSD$Q_CONTEXT_INFO_SEGMENT ! Entire context info segment case2 group OSSD$R_CONTEXT_INFO_STRUCT\ WORD OSSD$W_FILL_4 ! Overlays segment type and continuation marker8 ! Type of context block described? ! GR containing pointer to context block= ! Offset (in octawords) from SP, or GR< _ ! Hint as to purpose of context block ! Hints: (0 = no hint) BYTE CONTEXT_TYPE_bits ( 6 ) ! COMMENT ADDED BY SDL - CONTEXT_TYPE_bits contains bits CONTEXT_TYPE through & ! CONTEXT_HINT6 end group OSSD$R_CONTEXT_INFO_STRUCT end variant& end group OSSD$R_DATA_OVERLAY end record OSSDDEF Q ! The following macro can be used in IAS code to create a context info OSSD2 ! segment. Cut and paste to your IAS module ! 3 ! #define __CONTEXT_OSSD(type,gr,offset,hint) \4 ! .vms_ossd ((hint) << OSSD$V_CONTEXT_HINT) | \> ! (((offset) ? 0xFFFFFF) << OSSD$V_CONTEXT_OFFSET) | \) ! ((gr) << OSSD$V_CONTEXT_GR) | \? ! ((type) << OSSD$V_CONTEXT_TYPE) | OSSD$K_CONTEXT_INFO !  wwap  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED b( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINcG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > d %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +/ ! Object Security Service processing flag ! and itemcode definitions. ! -5 DECLARE LONG CONSTANT OSS$M_WLOCK = x'00000001'6 DECLARE LONG CONSTANT OSS$M_RELCTX = x'00000002'5 e DECLARE LONG CONSTANT OSS$M_LOCAL = x'00000004', DECLARE LONG CONSTANT OSS$S_OSSDEF = 1 record OSSDEF group OSS$R_FLAGS_BITS# ! Maintain Write lock ! Release context* ! update local profile only f BYTE WLOCK_bits ! COMMENT ADDED BY SDL - WLOCK_bits contains bits WLOCK through FILL_48_# end group OSS$R_FLAGS_BITS end record OSSDEF 5 DECLARE LONG CONSTANT OSS$_ACCESS_NAMES = 1 ! < f DECLARE LONG CONSTANT OSS$_ACCESS_NAMES_LENGTH = 2 ! 6 DECLARE LONG CONSTANT OSS$_ACL_ADD_ENTRY = 3 ! 9 DECLARE LONG CONSTANT OSS$_ACL_DELETE_ENTRY = 4 ! 3 DECLARE LONG CONSTANT OSS$_ACL_DELETE = 5 ! 7 DECLARE LONG CONSTANT OSS$_ACL_DELETE_ALL = 6 ! 7 DECLARE LONG CONSTANT OSS$_ACL_FIND_ENTRY = 7 ! 6 DECLARE LONG CONSTANT OSS$_ACL_FIND_NEXT = 8 ! 6 DECLARE LONG CONSTANT OSS$_ACL_FIND_TYPE = 9 ! 7 DECLARE LONG CONSTANT OSS$_ACL_GRANT_ACE = g 10 ! 4 DECLARE LONG CONSTANT OSS$_ACL_LENGTH = 11 ! : DECLARE LONG CONSTANT OSS$_ACL_MODIFY_ENTRY = 12 ! 6 DECLARE LONG CONSTANT OSS$_ACL_POSITION = 13 ! : DECLARE LONG CONSTANT OSS$_ACL_POSITION_TOP = 14 ! = DECLARE LONG CONSTANT OSS$_ACL_POSITION_BOTTOM = 15 ! 8 DECLARE LONG CONSTANT OSS$_ACL_READ_ENTRY = 16 ! 2 DECLARE LONG CONSTANT OSS$_ACL_READ = 17 ! 3 DECLARE LONG CONSTANT OSS$_MAX_CLASS = 18 ! 3 DECLARE LONG CONSTANT OSS$_MIN_C hLASS = 19 ! 5 DECLARE LONG CONSTANT OSS$_NEXT_OBJECT = 20 ! / DECLARE LONG CONSTANT OSS$_OWNER = 21 ! 4 DECLARE LONG CONSTANT OSS$_PROTECTION = 22 ! 2 DECLARE LONG CONSTANT OSS$_SYS_PROT = 23 ! 2 DECLARE LONG CONSTANT OSS$_OWN_PROT = 24 ! 2 DECLARE LONG CONSTANT OSS$_GRP_PROT = 25 ! 2 DECLARE LONG CONSTANT OSS$_WOR_PROT = 26 ! 4 DECLARE LONG CONSTANT OSS$_CLASS_NAME = 27 ! 8 DECLARE LONG CONSTANT OSS$_FIRST_TEMPLATE = 28 ! 7 DECL iARE LONG CONSTANT OSS$_NEXT_TEMPLATE = 29 ! 5 DECLARE LONG CONSTANT OSS$_OBJECT_NAME = 30 ! ; DECLARE LONG CONSTANT OSS$_ACCESS_CLASS_NAME = 31 ! 5 DECLARE LONG CONSTANT OSS$_DAMAGED_ACL = 32 ! 7 DECLARE LONG CONSTANT OSS$_IN_TRANSITION = 33 ! 7 DECLARE LONG CONSTANT OSS$_TRANQUILITY_COUNT = 34B DECLARE LONG CONSTANT OSS$_POSIX_GID = 35 ! Posix Group IDT DECLARE LONG CONSTANT OSS$_POSIX_GRP_MODE = 36 ! Posix Group Mode PermissionQ DECLARE jLONG CONSTANT OSS$_POSIX_MODE = 37 ! Posix Mode Permissions (all)T DECLARE LONG CONSTANT OSS$_POSIX_SGID = 38 ! Posix SETGID Effective Group IDS DECLARE LONG CONSTANT OSS$_POSIX_SUID = 39 ! Posix SETUID Effective User ID4 DECLARE LONG CONSTANT OSS$_ACCESS_BITNAMES = 1; DECLARE LONG CONSTANT OSS$_ACCESS_BITNAMES_LENGTH = 2/ DECLARE LONG CONSTANT OSS$_ACL_ADDACE = 3/ DECLARE LONG CONSTANT OSS$_ACL_DELACE = 4/ DECLARE LONG CONSTANT OSS$_ACL_FNDACE = 7/ DECLARE LONG CONSTANT OSS$_ACL_FNDNXT = 8/ DECLARE LONG CONSTANT OSS$_ACL_FNDTYP = 90 DECLARE LONG CONSTANT OSS$_ACL_MODACE = 121 DECLARE LONG CONSTANT OSS$_ACL_READACE = 16 wwl( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINmG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > n %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  J DECLARE LONG CONSTANT MMG$C_VAX_PAGE_SIZE = 512 ! SIZE OF VAX PAGEP DECLARE LONG CONSTANT MMG$C_ALPHA_MAX_PAGE_SIZE = 65536 ! MAX. PAGE SIZEP DECLARE LONG CONSTANT IOC$C_DISK_BLKSIZ = 512 ! ST oANDARD DISK BLOCK SIZEY DECLARE LONG CONSTANT IOC$C_CD_DVD_BLKSIZ = 2048 ! Typical CD and DVD sector size> DECLARE LONG CONSTANT IOC$M_BLOCK_BYTEMASK = x'000001FF'< DECLARE LONG CONSTANT IOC$M_BLOCK_BLKNUM = x'FFFFFE00'. DECLARE LONG CONSTANT IOC$S_BLOCKDEF = 4 record BLOCKDEF variant case) group IOC$R_BLOCKDEF_BITS0 ! BYTE VIELD " ! BLOCK NUMBER LONG BLOCK_BYTEMASK_bitsp ! COMMENT ADDED BY SDL - BLOCK_BYTEMASK_bits contains bits BLOCK_BYTEMASK through & ! BLOCK_BLKNUM- end group IOC$R_BLOCKDEF_BITS0 end variant end record BLOCKDEF ? DECLARE LONG CONSTANT IOC$M_DVDBLK_BYTEMASK = x'000007FF'= DECLARE LONG CONSTANT IOC$M_DVDBLK_BLKNUM = x'FFFFF800'/ DECLARE LONG CONSTANT IOC$S_DVDBLKDEF = 4 record DVDBLKDEF variant case* group IOC$R_DVDBLKDEF_BITS0# ! CD/DVD Vield ) ! CD/DVD Block Number LONG DVDBLK_BYTEMASK_bits ! COMMENT ADDED BY SDL - DVDBLK_BYTEMASK_bits contains bits DVDBLK_BYTEMASK through & ! DVDBLK_BLKNUM. end group IOC$R_DVDBLKDEF_BITS0 end variant end record DVDBLKDEF  wwrd&  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED s( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINtG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > u %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +3 ! PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS ! --4 DECLARE LONG CONSTANT PCC$M_CHAR = x'0000001F'8 DECLARE LONG CONSTANT PCC$M_EIGHTBIT = x'00000040'6 DECLARE LONG CONSTANT PC vC$M_SINGLE = x'00000080'7 DECLARE LONG CONSTANT PCC$M_LINECNT = x'0000007F'B DECLARE LONG CONSTANT PCC$_FTN_SINGLE = 32 ! SINGLE SPACE B DECLARE LONG CONSTANT PCC$_FTN_DOUBLE = 48 ! DOUBLE SPACE > DECLARE LONG CONSTANT PCC$_FTN_PAGE = 49 ! PAGE SPACE @ DECLARE LONG CONSTANT PCC$_FTN_OVRPRT = 43 ! OVER PRINT < DECLARE LONG CONSTANT PCC$_FTN_PROMPT = 36 ! PROMPT , DECLARE LONG CONSTANT PCC$S_PCCDEF = 4 record PCCDEF= WORD PCC$W_FORTRA wN ! FORTRAN FIELD < group PCC$R_PREFIX_OVERLAY ! PREFIX FIELD  variant case# BYTE PCC$B_PREFIX case* group PCC$R_PREFIX_BITS0o BYTE BITS0_bits ! COMMENT ADDED BY SDL - BITS0_bits contains bits BITS0 through FILL_49_. end group PCC$R_PREFIX_BITS0 case* group PCC$R_PREFIX_BITS1o BYTE BITS x1_bits ! COMMENT ADDED BY SDL - BITS1_bits contains bits BITS1 through FILL_50_. end group PCC$R_PREFIX_BITS1 end variant' end group PCC$R_PREFIX_OVERLAY$ group PCC$R_POSTFIX_OVERLAY variant case= BYTE PCC$B_POSTFIX ! POSTFIX FIELD  case+ group PCC$R_POSTFIX_BITS0) ! CHARACTER FIELD 0 ! EIGHTBIT CHARACTER SET y* ! SINGLE CHARACTER j BYTE CHAR_bits ! COMMENT ADDED BY SDL - CHAR_bits contains bits CHAR through SINGLE/ end group PCC$R_POSTFIX_BITS0 case+ group PCC$R_POSTFIX_BITS11 ! LINE COUNT FOR NEWLINES u BYTE LINECNT_bits ! COMMENT ADDED BY SDL - LINECNT_bits contains bits LINECNT through FILL_51_/ end group PCC$R_POSTFIX_BITS1 ! FORTRAN CONSTANTS  end variant( end group PCC$R_POSTFIX_OVERLAY end record PCCDEF  ww{J.  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED |( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN}G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ~ %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! Q ! Procedure descriptor offset definitions for the Alpha-32 calling standard.P ! This definition includes the offsets and fields for stack frame (SF) and 1 ! register frame (RF) procedure descr iptors. ! G DECLARE LONG CONSTANT PDSC$K_KIND_BOUND = 0 ! bound procedureE DECLARE LONG CONSTANT PDSC$K_KIND_NULL = 8 ! null procedureG DECLARE LONG CONSTANT PDSC$K_KIND_FP_STACK = 9 ! SF procedureK DECLARE LONG CONSTANT PDSC$K_KIND_FP_REGISTER = 10 ! RF procedure> DECLARE LONG CONSTANT PDSC$M_HANDLER_VALID = x'00000010'D DECLARE LONG CONSTANT PDSC$M_HANDLER_REINVOKABLE = x'00000020'C DECLARE LONG CONSTANT PDSC$M_HANDLER_DATA_VALID = x'00000040'? DECLARE LONG CONSTANT PDSC$M_BASE_REG_IS_FP = x'00000080'; DECLARE LONG CONSTANT PDSC$M_REI_RETURN = x'00000100'C DECLARE LONG CONSTANT PDSC$M_STACK_RETURN_VALUE = x'00000200'; DECLARE LONG CONSTANT PDSC$M_BASE_FRAME = x'00000400'< DECLARE LONG CONSTANT PDSC$M_TARGET_INVO = x'00000800'7 DECLARE LONG CONSTANT PDSC$M_NATIVE = x'00001000': DECLARE LONG CONSTANT PDSC$M_NO_JACKET = x'00002000': DECLARE LONG CONSTANT PDSC$M_TIE_FRAME = x'00004000'< DECLARE LONG CONSTANT PDSC$M_FUNC_RETURN = x'0000000F'? DECLARE LONG CONSTANT PDSC$M_EXCEPTION_MODE = x'00000070'B DECLARE LONG CONSTANT PDSC$K_EXC_MODE_SIGNAL = 0 ! signalJ DECLARE LONG CONSTANT PDSC$K_EXC_MODE_SIGNAL_ALL = 1 ! signal allP DECLARE LONG CONSTANT PDSC$K_EXC_MODE_SIGNAL_SILENT = 2 ! signal silentO DECLARE LONG CONSTANT PDSC$K_EXC_MODE_FULL_IEEE = 3 ! signal full ieeeM DECLARE LONG CONSTANT PDSC$K_EXC_MODE_CALLER = 4 ! use caller's modeO DECLARE LONG CONSTANT PDSC$K_NULL_SIZE = 16 ! length of NULL descriptore DECLARE LONG CONSTANT PDSC$K_BOUND_SIZE = 24 ! length of the basic bound precedure descriptorp DECLARE LONG CONSTANT PDSC$K_MIN_BOUND_SIZE = 24 ! minimum size of the basic bound procedure descriptor e DECLARE LONG CONSTANT PDSC$K_MIN_LENGTH_SF = 32 ! length of required portion of SF descriptorT DECLARE LONG CONSTANT PDSC$K_MIN_STACK_SIZE = 32 ! min size of SF descriptorT DECLARE LONG CONSTANT PDSC$K_MAX_STACK_SIZE = 48 ! max size of SF descriptore DECLARE LONG CONSTANT PDSC$K_MIN_LENGTH_RF = 24 ! length of required portion of RF descriptorW DECLARE LONG CONSTANT PDSC$K_MIN_REGISTER_SIZE = 24 ! min size of RF descriptorW DECLARE LONG CONSTANT PDSC$K_MAX_REGISTER_SIZE = 40 ! max size of RF descriptor| DECLARE LONG CONSTANT PDSC$K_BOUND_ENVIRONMENT_SIZE = 32 ! length of the bound precedure descriptor with environment/ DECLARE LONG CONSTANT PDSC$S_PDSCDEF = 48 record PDSCDEF group PDSC$R_FILL_52_ variant caseV WORD PDSC$W_FLAGS ! flags including procedure kind bitfield case' group PDSC$R_FILL_53_* ! kind of procedureS ! optional STACK_HANDLER or REG_HANDLER is present and valid9 ! exception handler is reinvokable] ! optional STACK_HANDLER_DATA or REG_HANDLER_DATA is present and valid: ! FP is also base register (vs. SP)4 ! exit from procedure via REI9 ! function value returned on stack- ! base frame indicatorA ! unwind target invo handler to be called 3 ! set to 1 for compiled code3 ! set to 1 for compiled code4 ! must be 0  for compiled code% ! must be zeron WORD KIND_bits ! COMMENT ADDED BY SDL - KIND_bits contains bits KIND through FLAGS_MBZ2+ end group PDSC$R_FILL_53_ end variant" end group PDSC$R_FILL_52_( group PDSC$R_RSA_OFFSET_OVERLAY variant case_ WORD PDSC$W_RSA_OFFSET ! offset to register save area from base (SF only) case- gr oup PDSC$R_RSA_OFFSET_REGU BYTE PDSC$B_SAVE_FP ! register number for saved FP (RF only)a BYTE PDSC$B_SAVE_RA ! register number for saved return address (RF only)1 end group PDSC$R_RSA_OFFSET_REG end variant, end group PDSC$R_RSA_OFFSET_OVERLAYY BYTE PDSC$B_ENTRY_RA ! register in which return address is passed' group PDSC$R_MORE_FLAGS_STRUCT@ ! register specifi catons for function value returnA ! the caller's desired exception reporting behavior BYTE FUNC_RETURN_bits ! COMMENT ADDED BY SDL - FUNC_RETURN_bits contains bits FUNC_RETURN through MORE_FLAGS_MBZ1+ end group PDSC$R_MORE_FLAGS_STRUCT\ WORD PDSC$W_SIGNATURE_OFFSET ! offset from procedure descriptor to signature group PDSC$R_FILL_54_ variant caseT BASIC$QUADWORD PDSC$Q_ENTRY ! address of start of procedure code case' group PDSC$R_FILL_55_Z LONG PDSC$L_ENTRY ! first longword is sign extended to quadword+ end group PDSC$R_FILL_55_ end variant" end group PDSC$R_FILL_54_/ group PDSC$R_SIZE_OVERLAY !  variant caseM LONG PDSC$L_SIZE ! size of fixed portion of stack case' group PDSC$R_FILL_56_ variant case\ BASIC$QUADWORD PDSC$Q_PROC_VALUE ! for bound procedure descriptor, case- group PDSC$R_FILL_57_[ LONG PDSC$L_PROC_VALUE ! this value is a procedure descriptor.> LONG PDSC$L_RESERVED1 ! reserved 1 end group PDSC$R_FILL_57_ end variant+  end group PDSC$R_FILL_56_ end variant& end group PDSC$R_SIZE_OVERLAY# group PDSC$R_KIND_SPECIFIC variant caseI group PDSC$R_STACK_SPECIFIC ! stack frame specific...I LONG PDSC$L_IREG_MASK ! integer register save maskJ LONG PDSC$L_FREG_MASK ! floating register save maskk BASIC$QUADWORD PDSC$Q_STACK_HANDLER ! absolute pointer to procedure descriptor (opt)^ BASIC$QUADWORD PDSC$Q_STACK_HANDLER_DATA ! data for stack handler (opt)1 end group PDSC$R_STACK_SPECIFIC caseO group PDSC$R_REGISTER_SPECIFIC ! register frame specific...i BASIC$QUADWORD PDSC$Q_REG_HANDLER ! absolute pointer to procedure descriptor (opt)V BASIC$QUADWORD PDSC$Q_REG_HANDLER_DATA ! data for handler (opt)4 end group PDSC$R_REGISTER_SPECIFIC case[ group PDSC$R_ENVIRONMENT_UNION ! Bound procedure descriptor ENVIRONMENT variant case/ LONG PDSC$L_ENVIRONMENT case9 BASIC$QUADWORD PDSC$Q_ENVIRONMENT end variant4 end group PDSC$R_ENVIRONMENT_UNION end variant' end group PDSC$R_KIND_SPECIFIC end record PDSCDEF  H DECLARE LONG CONSTANT PDSC$K_LKP_LENGTH = 16 ! Linkage pair size3 DECLARE LONG CONSTANT PDSC$S_PDSC_LKPDEF = 16? record PDSC_LKPDEF ! Linkage pair def group PDSC$R_FILL_58_ variant caseF BASIC$QUADWORD PDSC$Q_LKP_ENTRY ! Entry point addr case' group PDSC$R_FILL_59_+ LONG PDSC$PS_LKP_ENTRY+ end group PDSC$R_FILL_59_  end variant" end group PDSC$R_FILL_58_ group PDSC$R_FILL_60_ variant caseI BASIC$QUADWORD PDSC$Q_LKP_PROC_VALUE ! Proc desc addr case' group PDSC$R_FILL_61_0 LONG PDSC$PS_LKP_PROC_VALUE+ end group PDSC$R_FILL_61_ end variant" end group PDSC$R_FILL_60_ end record PDSC_LKPDEF A DECLARE LONG CONSTANT LKP$K_SI ZE = 16 ! Linkage pair size- DECLARE LONG CONSTANT LKP$S_LKPDEF = 16? record LKPDEF ! Linkage pair def? group LKP$R_ENTRY_UNION ! Entry point addr variant case, BASIC$QUADWORD LKP$Q_ENTRY case# LONG LKP$PS_ENTRY end variant$ end group LKP$R_ENTRY_UNION= group LKP$R_PROC_VALUE_UNION ! Proc desc addr vari ant case1 BASIC$QUADWORD LKP$Q_PROC_VALUE case( LONG LKP$PS_PROC_VALUE end variant) end group LKP$R_PROC_VALUE_UNION end record LKPDEF  wwZC6  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +R ! PFN memory data structure definition. This structure is used to access theP ! fields within the PFN memory map returned by $GETSYI. $GETSYI copies theK ! contents of the pool packet store d at MMG$GL_SYI_PFN_MEMORY_MAP to a ! user-supplied buffer. ! -7 DECLARE LONG CONSTANT PMM$m_console = x'00000001'7 DECLARE LONG CONSTANT PMM$m_openvms = x'00000002'9 DECLARE LONG CONSTANT PMM$m_available = x'00000004'4 DECLARE LONG CONSTANT PMM$m_base = x'00000008'= DECLARE LONG CONSTANT PMM$m_galaxy_shared = x'00000010'> DECLARE LONG CONSTANT PMM$m_undefined_5_15 = x'0000FFE0'E DECLARE LONG CONSTANT PMM$C_LENGTH = 12 ! Length of structure E DECLARE LONG CONSTANT PMM$K_LENGTH = 12 ! Length of structure* DECLARE LONG CONSTANT PMM$S_PMM = 12 record PMMF WORD PMM$W_LENGTH ! Size of a PMM structure group PMM$r_fill_62_ variant case" WORD PMM$w_flags case& group PMM$r_fill_63_( ! Used by Console( ! Used by OpenVMS1 ! Available for O ther Uses3 ! Galaxy base memory segment- ! Galaxy shared memory6 ! Undefined bits should be zero{ WORD console_bits ! COMMENT ADDED BY SDL - console_bits contains bits console through undefined_5_15* end group PMM$r_fill_63_ end variant! end group PMM$r_fill_62_H LONG PMM$l_start_pfn ! First PFN in this clusterM LONG PMM$l_pfn_count  ! Number of PFNs in this cluster end record PMM ' ! Expanded version for larger PFNs9 DECLARE LONG CONSTANT PMM64$m_console = x'00000001'9 DECLARE LONG CONSTANT PMM64$m_openvms = x'00000002'; DECLARE LONG CONSTANT PMM64$m_available = x'00000004'6 DECLARE LONG CONSTANT PMM64$m_base = x'00000008'? DECLARE LONG CONSTANT PMM64$m_galaxy_shared = x'00000010'@ DECLARE LONG CONSTANT PMM64$m_undefined_5_15 = x'0000FFE0'G DECLARE LO NG CONSTANT PMM64$C_LENGTH = 24 ! Length of structureG DECLARE LONG CONSTANT PMM64$K_LENGTH = 24 ! Length of structure. DECLARE LONG CONSTANT PMM64$S_PMM64 = 24 record PMM64F WORD PMM64$W_LENGTH ! Size of a PMM structure group PMM64$r_fill_64_ variant case$ WORD PMM64$w_flags case( group PMM64$r_fill_65_( ! Used by Console(  ! Used by OpenVMS1 ! Available for Other Uses3 ! Galaxy base memory segment- ! Galaxy shared memory6 ! Undefined bits should be zero{ WORD console_bits ! COMMENT ADDED BY SDL - console_bits contains bits console through undefined_5_15, end group PMM64$r_fill_65_ end variant# end group PMM64$r_fill_64_6 LONG PMM64$l_reserved ! paddingH BASIC$QUADWORD PMM64$q_start_pfn ! First PFN in this clusterM BASIC$QUADWORD PMM64$q_pfn_count ! Number of PFNs in this cluster end record PMM64  wwJo=  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  B ! The following definitions are passed in the ctrl parameter.K DECLARE LONG CONSTANT POSIX$C_BLOCK_FORK = 1 ! block fork executionO DECLARE LONG CONSTANT POSIX$C_UNBLOCK_FORK = 2 ! unblock fork executionE DECLARE LONG CONSTANT POSIX$C_DISABLE_FORK = 3 ! disable forkO DECLARE LONG CONSTANT POSIX$C_SETUP_CALLBACK = 4 ! setup image callbackQ DECLARE LONG CONSTANT POSIX$C_SYSTEM_CALLBACK = 5 ! setup system callback] DECLARE LONG CONSTANT POSIX$C_PROCESS_CALLBACK = 6 ! setup process permanent callbackM DECLARE LONG CONSTANT POSIX$C_CANCEL_CALLBACK = 7 ! cancel a callbackG DECLARE LONG CONSTANT POSIX$C_CONTINUE = 8 ! continue callbacksR DECLARE LONG CONSTANT POSIX$C_TEST_CALLS = 9 ! temporary value for testing1 DECLARE LONG CONSTANT POSIX$C_MAX_CNTRL = 91 DECLARE LONG CONSTANT POSIX$K_MAX_CNTRL = 9 ! K ! The following definitions are for the 'when' mask. They define when! ! callbacks are to be made. ! 8 DECLARE LONG CONSTANT POSIX$V_CALL_BEFORE_COPY = 05 DECLARE LONG CONSTANT POSIX$V_CALL_IN_CHILD = 18 DECLARE LONG CONSTANT POSIX$V_CALL_AFTER_CHILD = 27 DECLARE LONG CON STANT POSIX$V_CALL_ON_FAILURE = 3= DECLARE LONG CONSTANT POSIX$V_CALL_BEFORE_COPY_FAIL = 4: DECLARE LONG CONSTANT POSIX$V_CALL_IN_CHILD_FAIL = 5= DECLARE LONG CONSTANT POSIX$V_CALL_AFTER_CHILD_FAIL = 68 DECLARE LONG CONSTANT POSIX$M_CALL_BEFORE_COPY = 15 DECLARE LONG CONSTANT POSIX$M_CALL_IN_CHILD = 28 DECLARE LONG CONSTANT POSIX$M_CALL_AFTER_CHILD = 47 DECLARE LONG CONSTANT POSIX$M_CALL_ON_FAILURE = 8> DECLARE LONG CONSTANT POSIX$M_CALL_BEFORE_COPY_FAIL = 16; DECLARE LONG CONSTANT POSIX$M_CALL_IN_CHILD_FAIL = 32> DECLARE LONG CONSTANT POSIX$M_CALL_AFTER_CHILD_FAIL = 64 ww*tD  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! ! Power Control Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item listK ! (preceeding the ENDlistname item) so that users will not have ! to recompile. ! -1 DECLARE LONG CONSTANT POWER$C_HIGH_PERF = 01 DECLARE LONG CONSTANT POWER$C_LOW_POWER = 12 DECLARE LONG CONSTANT POWER$C_EFFICIENCY = 2R DECLARE LONG CONSTANT POWER$C_OS_CONTROL = 3 ! Only works from kernel modei DECLARE LONG CONSTANT POWER$M_OS_CONTROL_OFF = 4 ! OR with the above. Only works from kernel mode wwJL  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! 9 ! Set Process Properties Data Identifier Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item listK ! (preceeding the ENDlistname item) so that users will not have ! to relink. ! - ! Property definitionsl DECLARE LONG CONSTANT PPROP$C_PARSE_STYLE_TEMP = 0 ! Change the parse style for the life of an imageo DECLARE LONG CONSTANT PPROP$C_PARSE_STYLE_PERM = 1 ! Change the parse style for the life of the processV DECLARE LONG CONSTANT PPROP$C_HOME_RAD = 2 ! Change the home rad of the threadq DECLARE LONG CONSTANT PPROP$C_CASE_LOOKUP_TEMP = 3 ! Change the case lookup mode for the life of an imaget DECLARE LONG CONSTANT PPROP$C_CASE_LOOKUP_PERM = 4 ! Change the case lookup mode for the life of the processk DECLARE LONG CONSTANT PPROP$C_MEDDLE_ENABLE = 5 ! Record the fact of alterations to process logical ! names or symbolse DECLARE LONG CONSTANT PPROP$C_MEDDLE = 6 ! Process logical names or symbols have been alteredm DECLARE LONG CONSTANT PPROP$C_UNITS = 7 ! Change the units for the life of the process (blocks/bytes)g DECLARE LONG CONSTANT PPROP$C_SS_LOG_ENABLE = 8 ! Enable system service logging for the processi DECLARE LONG CONSTANT PPROP$C_SS_LOG_DISABLE = 9 ! Disable system service logging for the processg DECLARE LONG CONSTANT PPROP$C_SS_LOG_UNLOAD = 10 ! Stop system service logging ? delete buffersh DECLARE LONG CONSTANT PPROP$C_TOKEN = 11 ! Change the DCL token size for the life of the processm DECLARE LONG CONSTANT PPROP$C_DEADLOCK_WAIT = 12 ! Change per-process deadlock wait (in 10msec units)x DECLARE LONG CONSTANT PPROP$C_SEARCH_SYMLINK_TEMP = 13 ! Change the symlink search mode for the life of an image{ DECLARE LONG CONSTANT PPROP$C_SEARCH_SYMLINK_PERM = 14 ! Change the symlink search mode for the life of the processg DECLARE LONG CONSTANT PPROP$C_KERNEL_THREAD_LIMIT = 15 ! Change per-process kernel thread limit ! Parse style definitionsa DECLARE LONG CONSTANT PARSE_STYLE$C_ODS2 = 0 ! Values for the above properties (old name)a DECLARE LONG CONSTANT PARSE_STYLE$C_ODS5 = 1 ! Values for the above properties (old name)h DECLARE LONG CONSTANT PARSE_STYLE$C_TRADITIONAL = 0 ! Values for the above properties (new name)e DECLARE LONG CONSTANT PARSE_STYLE$C_EXTENDED = 1 ! Values for the above properties (new name) ! case lookup definitionsK DECLARE LONG CONSTANT PPROP$K_CASE_BLIND = 0 ! case blind operationS DECLARE LONG CONSTANT PPROP$K_CASE_SENSITIVE = 1 ! case sensitive operation& ! symlink search mode definitionsU ! NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF,+ ! $LIBFILDEF, $PPROPDEF, and $NAMLDEF.O DECLARE LONG CONSTANT PPROP$K_SEARCH_SYMLINK_NONE = 1 ! use no symlinksR DECLARE LONG CONSTANT PPROP$K_SEARCH_SYMLINK_ALL = 2 ! use symlinks alwaysc DECLARE LONG CONSTANT PPROP$K_SEARCH_SYMLINK_NOELLIPS = 3 ! use symlinks except in ellipsis ww:AS  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! PROCESS QUOTA LIST CODES ! -N DECLARE LONG CONSTANT PQL$_LISTEND = 0 ! LIST END CODE (MUST BE FIRST) 8 DECLARE LONG CONSTANT PQL$_ASTLM = 1 ! AST LIMIT A DECLARE LONG CONSTANT PQL$_BIOLM = 2 ! BUFFERED I/O LIMIT J DECLARE LONG CONSTANT PQL$_BYTLM = 3 ! BYTE LIMIT FOR BUFFERED I/O = DECLARE LONG CONSTANT PQL$_CPULM = 4 ! CPU TIME LIMIT ? DECLARE LONG CONSTANT PQL$_DIOLM = 5 ! DIRECT I/O LIMIT > DECLARE LONG CONSTANT PQL$_FILLM = 6 ! OPEN FILE LIMIT D DECLARE LONG CONSTANT PQL$_PGFLQUOTA = 7 ! PAGING FILE QUOTA @ DECLARE LONG CONSTANT PQL$_PRCLM = 8 ! SUB-PROCESS LIMIT F DECLARE LONG CONSTANT PQL$_TQELM = 9 ! TIMER QUEU E ENTRY LIMIT C DECLARE LONG CONSTANT PQL$_WSQUOTA = 10 ! WORKING SET QUOTA G DECLARE LONG CONSTANT PQL$_WSDEFAULT = 11 ! WORKING SET DEFAULT = DECLARE LONG CONSTANT PQL$_ENQLM = 12 ! ENQUEUE LIMIT K DECLARE LONG CONSTANT PQL$_WSEXTENT = 13 ! WORKING SET EXTENT LIMIT [ DECLARE LONG CONSTANT PQL$_JTQUOTA = 14 ! JOB-WIDE LOGICAL NAME TABLE CREATION QUOTAP DECLARE LONG CONSTANT PQL$_LENGTH = 15 ! NUMBER OF QUOTAS (MUST BE LAST)  wwv! ! *** PREDECLARED TYPES$ : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )E END RECORD"* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF I: %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORDS* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED [  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +* ! $CREPRC STATUS FLAGS AND ITEM CODES ! -7 DECLARE LONG CONSTANT PRC$M_SSRWAIT = x'00000001'7 DECLARE LONG CONSTANT PRC$M_SSFEXCU = x'00000002'6 DECLARE LONG CONSTANT PRC$M_PS WAPM = x'00000004'6 DECLARE LONG CONSTANT PRC$M_NOACNT = x'00000008'5 DECLARE LONG CONSTANT PRC$M_BATCH = x'00000010'5 DECLARE LONG CONSTANT PRC$M_HIBER = x'00000020'5 DECLARE LONG CONSTANT PRC$M_NOUAF = x'00000040'6 DECLARE LONG CONSTANT PRC$M_NETWRK = x'00000080'6 DECLARE LONG CONSTANT PRC$M_DISAWS = x'00000100'6 DECLARE LONG CONSTANT PRC$M_DETACH = x'00000200'5 DECLARE LONG CONSTANT PRC$M_INTER = x'00000400'6 DECLARE LONG CONSTANT PRC$M_IMGD MP = x'00000800'7 DECLARE LONG CONSTANT PRC$M_CLISPEC = x'00001000': DECLARE LONG CONSTANT PRC$M_NOPASSWORD = x'00002000'5 DECLARE LONG CONSTANT PRC$M_DEBUG = x'00004000'6 DECLARE LONG CONSTANT PRC$M_DBGTRU = x'00008000'9 DECLARE LONG CONSTANT PRC$M_SUBSYSTEM = x'00010000'3 DECLARE LONG CONSTANT PRC$M_TCB = x'00020000'> DECLARE LONG CONSTANT PRC$M_NO_IMAGE_PRIVS = x'00040000'> DECLARE LONG CONSTANT PRC$M_PERM_SUBSYSTEM = x'00080000'> DECLARE LO NG CONSTANT PRC$M_PARSE_EXTENDED = x'00100000'? DECLARE LONG CONSTANT PRC$M_INHERIT_PERSONA = x'00200000'8 DECLARE LONG CONSTANT PRC$M_HOME_RAD = x'00400000'> DECLARE LONG CONSTANT PRC$M_CASE_SENSITIVE = x'00800000'> DECLARE LONG CONSTANT PRC$M_SPAWN_DETACHED = x'01000000'< DECLARE LONG CONSTANT PRC$M_SSLOG_ENABLE = x'02000000'8 DECLARE LONG CONSTANT PRC$M_KT_LIMIT = x'04000000'5 DECLARE LONG CONSTANT PRC$M_LOGIN = x'00000040', DECLARE LONG CONSTANT PR C$S_PRCDEF = 4 record PRCDEF variant case& group PRC$R_PRCDEF_BITS, ! RESOURCE WAIT DISABLE 9 ! SYSTEM SERVICE FAIL EXCEPTION MODE ( ! PROCESS SWAP MODE 1 ! ACCOUNTING MESSAGE DISABLE & ! BATCH INDICATOR = ! HIBERNATE BEFORE CALLING INITIAL IMAGE C ! BYPASS LOGIN VERIFICATION FOR DETACHED PROC. (  ! NETWORK INDICATOR 1 ! DISABLE WORKING SET ADJUST & ! DETACHED PROCESS+ ! INTERACTIVE INDICATOR* ! IMAGE DUMP REQUESTED- ! PASS CLI SPECIFICATIONS< ! DON'T PROMPT FOR USERNAME AND PASSWORD$ ! /DEBUG desired& ! debugger present> ! inherit protected subsystem identifiers , ! process is part of TCB;  ! image privileges not to be propagated5 ! make subsystem rights permanent@ ! make new process have parse_style extended4 ! process gets persona of caller3 ! Home RAD specified by creator1 ! Use CASE_LOOKUP = SENSITIVE. ! Spawn a detached process3 ! Enable system service logging> ! Kernel thread limit specified by creator r LONG SSRWAIT_bits ! COMMENT ADDED BY SDL - SSRWAIT_bits contains bits SSRWAIT through FILL_66_* end group PRC$R_PRCDEF_BITS case* group PRC$R_PRCDEF_OBSOLETEC ! BYPASS LOGIN VERIFICATION FOR DETACHED PROC. o BYTE FILL_0_bits ! COMMENT ADDED BY SDL - FILL_0_bits contains bits FILL_0 through FILL_67_. end group PRC$R_PRCDEF_OBSOLETE end variant end record PRCDEF  f DECLARE LONG CONSTANT PRC$M_IMPERSONATE = 512 ! Impersonate other - synonym for DETACH - 0x200 ! + ! ; ! Create Process Item List Data Identifier Definitions !  ! **** NOTE **** ! K ! New items must always be added at the END of the list so that: ! users will not have to relink or reassemble. !  ! -Q DECLARE LONG CONSTANT PRC$_LISTEND = 0 ! End of list (must be first code)K DECLARE LONG CONSTANT PRC$_PGFLCHAR = 1 ! Page file characteristicsB DECLARE LONG CONSTANT PRC$_PGFLINDEX = 2 ! Page file indexG DECLARE LONG CONSTANT PRC$_INPUT_ATT = 3 ! SYS$INPUT attributesI DECLARE LONG CONSTANT PRC$_OUTPUT_ATT = 4 ! SYS$OUTPUT attributesG DECLARE LONG CONSTANT PRC$_ERROR_ATT = 5 ! SYS$ERROR attributesE DECLARE LONG CONSTANT PRC$_CLASS = 6 ! Process classificationQ DECLARE LONG CONSTANT PRC$_SSLOG_FLAGS = 7 ! System service logging flagsY DECLARE LONG CONSTANT PRC$_SSLOG_BUFSIZE = 8 ! System service logging buffer sizeY DECLARE LONG CONSTANT PRC$_SSLOG_BUFCNT = 9 ! System service logging buffer count wwg  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +& ! PROCESSOR REGISTER DEFINITIONS ! A ! The following IPR symbols are provided for the convenienceC ! of common Macro-32 code using the VAX MFPR/MTPR instructions? ! to operate ag ainst IPRs that exist in both architecturesE ! architectures. Even Alpha-specific Macro-32 code would benefitE ! since the compiler can calculate register live-ness around the" ! VAX MFPR/MTPR instructions. ! @ ! The assigned values for the PR$_ipr symbols match the VAXE ! IPR numbers themselves wherever possible. VAX IPR numbers thatH ! are extremely unlikely ever to be encountered are otherwise used.E ! The compiler uses the VAX values to validate the invo cation of ! MTPR/MFPR instructions. ! -F DECLARE LONG CONSTANT PR$_ESP = 1 ! Executive Stack PointerG DECLARE LONG CONSTANT PR$_SSP = 2 ! Supervisor Stack PointerA DECLARE LONG CONSTANT PR$_USP = 3 ! User Stack PointerC DECLARE LONG CONSTANT PR$_ASN = 6 ! Address Space NumberO DECLARE LONG CONSTANT PR$_ASTEN = 48 ! AST Enabled Register (MFPR only)O DECLARE LONG CONSTANT PR$_ASTSR = 49 ! AST Summary Register (MFPR only)Z  DECLARE LONG CONSTANT PR$_DATFX = 23 ! Data Alignment Trap Fixup in PALcode EnableM DECLARE LONG CONSTANT PR$_IPIR = 22 ! Interprocess Interrupt RequestG DECLARE LONG CONSTANT PR$_IPL = 18 ! Interrupt Priority LevelJ DECLARE LONG CONSTANT PR$_MCES = 38 ! Machine Check Error SummaryL DECLARE LONG CONSTANT PR$_PCBB = 16 ! Privileged Context Block BaseI DECLARE LONG CONSTANT PR$_PME = 61 ! Performance Monitor EnableF DECLARE LONG CONSTANT PR$_PRBR = 15 ! Processor Base RegisterH DECLARE LONG CONSTANT PR$_SCBB = 17 ! System Control Block BaseI DECLARE LONG CONSTANT PR$_SIRR = 20 ! Software Interrupt RequestI DECLARE LONG CONSTANT PR$_SISR = 21 ! Software Interrupt SummaryP DECLARE LONG CONSTANT PR$_TBIA = 57 ! Translation Buffer Invalidate AllX DECLARE LONG CONSTANT PR$_TBIAP = 50 ! Translation Buffer Invalidate All Process_ DECLARE LONG CONSTANT PR$_TBIS = 58 ! Translation Buffer Inva lidate Single - 32 bit VAa DECLARE LONG CONSTANT PR$_TBIS_64 = 60 ! Translation Buffer Invalidate Single - 64 bit VAo DECLARE LONG CONSTANT PR$_TBISD = 59 ! Translation Buffer Invalidate Single - 64 bit VA - D-stream onlyo DECLARE LONG CONSTANT PR$_TBISI = 47 ! Translation Buffer Invalidate Single - 64 bit VA - I-stream onlyO DECLARE LONG CONSTANT PR$_VPTB = 12 ! Virtual Page Table Base Register ! +, ! PROCESSOR REGISTER FIELD DEFINITIONS ! ->  DECLARE LONG CONSTANT PR$_SID_TYP780 = 1 ! VAX 11/780 > DECLARE LONG CONSTANT PR$_SID_TYP750 = 2 ! VAX 11/750 > DECLARE LONG CONSTANT PR$_SID_TYP730 = 3 ! VAX 11/730 = DECLARE LONG CONSTANT PR$_SID_TYP790 = 4 ! VAX 11/790B DECLARE LONG CONSTANT PR$_SID_TYP8SS = 5 ! Scorpio for nowC DECLARE LONG CONSTANT PR$_SID_TYP8NN = 6 ! Nautilus for now> DECLARE LONG CONSTANT PR$_SID_TYPUV1 = 7 ! MicroVAX I ? DECLARE LONG CONSTANT PR$_SID_TYPUV2 = 8 !  MicroVAX II : DECLARE LONG CONSTANT PR$_SID_TYP410 = 8 ! VAXstar> DECLARE LONG CONSTANT PR$_SID_TYP009 = 9 ! Virtual VAX8 DECLARE LONG CONSTANT PR$_SID_TYP420 = 10 ! PVAX< DECLARE LONG CONSTANT PR$_SID_TYP520 = 10 ! Cirrus I; DECLARE LONG CONSTANT PR$_SID_TYP650 = 10 ! Mayfair? DECLARE LONG CONSTANT PR$_SID_TYP9CC = 10 ! Calypso/XCP/ DECLARE LONG CONSTANT PR$_SID_TYP9CI = 10: DECLARE LONG CONSTANT PR$_SID_TYP60 = 10 ! Firefox@ DE CLARE LONG CONSTANT PR$_SID_TYP670 = 11 ! KA670 (Pele)7 DECLARE LONG CONSTANT PR$_SID_TYP9RR = 11 ! XRPB DECLARE LONG CONSTANT PR$_SID_TYP43 = 11 ! KA43 (RigelMAX)< DECLARE LONG CONSTANT PR$_SID_TYP9AQ = 14 ! Aquarius= DECLARE LONG CONSTANT PR$_SID_TYP8PS = 17 ! Polarstar? DECLARE LONG CONSTANT PR$_SID_TYP1202 = 18 ! Mariah/XMP< DECLARE LONG CONSTANT PR$_SID_TYP46 = 18 ! PV-Mariah/ DECLARE LONG CONSTANT PR$_SID_TYP600 = 19/ DECLARE LONG  CONSTANT PR$_SID_TYP690 = 19/ DECLARE LONG CONSTANT PR$_SID_TYP700 = 190 DECLARE LONG CONSTANT PR$_SID_TYP1302 = 19. DECLARE LONG CONSTANT PR$_SID_TYP49 = 190 DECLARE LONG CONSTANT PR$_SID_TYP1303 = 19D DECLARE LONG CONSTANT PR$_SID_TYP660 = 20 ! KA660 (Spitfire)9 DECLARE LONG CONSTANT PR$_SID_TYP440 = 20 ! PVAX28 DECLARE LONG CONSTANT PR$_SID_TYP4A = 20 ! PCVAX= DECLARE LONG CONSTANT PR$_SID_TYP550 = 20 ! Cirrus II? DECLARE LONG CONST ANT PR$_SID_TYP1701 = 23 ! Laser/NeonG DECLARE LONG CONSTANT PR$_SID_TYPMAX = 23 ! MAX LEGAL CPU TYPE ] DECLARE LONG CONSTANT PR$_SID_TYP_NOTAVAX = 128 ! Not a VAX (i.e. Alpha or some such) ! Chip CPU types? DECLARE LONG CONSTANT PR$_SID_TYPUV = 8 ! MicroVAX chip ! MicroVAX chip CPU SubtypesT DECLARE LONG CONSTANT PR$_XSID_UV_UV = 0 ! Generic MicroVAX (unused subtype)? DECLARE LONG CONSTANT PR$_XSID_UV_UV2 = 1 ! MicroVAX II; DECLARE LONG C ONSTANT PR$_XSID_UV_410 = 4 ! VAXstar< DECLARE LONG CONSTANT PR$_SID_TYPCV = 10 ! CVAX chip ! CVAX chip CPU SubtypesP DECLARE LONG CONSTANT PR$_XSID_CV_CV = 0 ! Generic CVAX (unused subtype); DECLARE LONG CONSTANT PR$_XSID_CV_650 = 1 ! Mayfair? DECLARE LONG CONSTANT PR$_XSID_CV_9CC = 2 ! Calypso/XCP: DECLARE LONG CONSTANT PR$_XSID_CV_60 = 3 ! Firefox8 DECLARE LONG CONSTANT PR$_XSID_CV_420 = 4 ! PVAX/ DECLARE LONG CONSTANT PR$_XSID_CV_9CI = 5< DECLARE LONG CONSTANT PR$_XSID_CV_520 = 7 ! CIRRUS I= DECLARE LONG CONSTANT PR$_SID_TYPRV = 11 ! Rigel chip ! Rigel chip CPU SubtypesQ DECLARE LONG CONSTANT PR$_XSID_RV_RV = 0 ! Generic Rigel (unused subtype)@ DECLARE LONG CONSTANT PR$_XSID_RV_670 = 1 ! KA670 (Pele)? DECLARE LONG CONSTANT PR$_XSID_RV_9RR = 2 ! Calypso/XRPB DECLARE LONG CONSTANT PR$_XSID_RV_43 = 4 ! KA43 (RigelMAX)C DECLARE LONG CONSTANT PR$_SID_TYPV12 = 18 ! Mariah  chip set ! Mariah chip CPU SubtypesT DECLARE LONG CONSTANT PR$_XSID_V12_V12 = 0 ! Generic Mariah (unused subtype)@ DECLARE LONG CONSTANT PR$_XSID_V12_1202 = 2 ! MARIAH/XMPH DECLARE LONG CONSTANT PR$_XSID_V12_46 = 4 ! PVAX- mariah subtype/ DECLARE LONG CONSTANT PR$_SID_TYPV13 = 190 DECLARE LONG CONSTANT PR$_XSID_V13_V13 = 00 DECLARE LONG CONSTANT PR$_XSID_V13_690 = 11 DECLARE LONG CONSTANT PR$_XSID_V13_1302 = 21 DECLARE LONG CONSTANT PR$_ XSID_V13_1303 = 3/ DECLARE LONG CONSTANT PR$_XSID_V13_49 = 40 DECLARE LONG CONSTANT PR$_XSID_V13_700 = 50 DECLARE LONG CONSTANT PR$_XSID_V13_600 = 6@ DECLARE LONG CONSTANT PR$_SID_TYPV14 = 20 ! SOC Chip SID ! SOC chip CPU subtypesC DECLARE LONG CONSTANT PR$_XSID_V14_V14 = 0 ! unused subtypeE DECLARE LONG CONSTANT PR$_XSID_V14_660 = 1 ! KA660 (Spitfire)B DECLARE LONG CONSTANT PR$_XSID_V14_440 = 4 ! PVAX2 subtypeA DECLARE LONG CONSTANT PR $_XSID_V14_4A = 5 ! PCVAX subtype> DECLARE LONG CONSTANT PR$_XSID_V14_550 = 7 ! CIRRUS IIB DECLARE LONG CONSTANT PR$_SID_TYPV17 = 23 ! NVAX+ Chip SID ! NVAX+ chip CPU subtypesC DECLARE LONG CONSTANT PR$_XSID_V17_V17 = 0 ! unused subtype@ DECLARE LONG CONSTANT PR$_XSID_V17_1701 = 1 ! Laser/Neon ! Nautilus CPU Subtypes; DECLARE LONG CONSTANT PR$_XSID_N8800 = 0 ! VAX 8800; DECLARE LONG CONSTANT PR$_XSID_N8700 = 1 ! VAX 8700F DECLARE LONG CONSTANT PR$_XSID_N2 = 2 ! Undefined Nautilus CPUF DECLARE LONG CONSTANT PR$_XSID_N3 = 3 ! Undefined Nautilus CPUF DECLARE LONG CONSTANT PR$_XSID_N4 = 4 ! Undefined Nautilus CPUF DECLARE LONG CONSTANT PR$_XSID_N5 = 5 ! Undefined Nautilus CPU; DECLARE LONG CONSTANT PR$_XSID_N8550 = 6 ! VAX 8550; DECLARE LONG CONSTANT PR$_XSID_N8500 = 7 ! VAX 8500H DECLARE LONG CONSTANT PR$_XSID_N8NNN = -1 ! Unknown Nautilus CPUI ! ---------------------------- ---------------------------------------4 DECLARE LONG CONSTANT PR$M_ASTEN = x'0000000F'8 DECLARE LONG CONSTANT PR$M_ASTEN_KEN = x'00000001'8 DECLARE LONG CONSTANT PR$M_ASTEN_EEN = x'00000002'8 DECLARE LONG CONSTANT PR$M_ASTEN_SEN = x'00000004'8 DECLARE LONG CONSTANT PR$M_ASTEN_UEN = x'00000008'H DECLARE LONG CONSTANT PR$M_ASTEN_DSBL_ALL = 0 ! Disable all ASTsI DECLARE LONG CONSTANT PR$M_ASTEN_ENBL_ALL = 255 ! Enable all ASTsI DECLARE LONG CONSTANT PR$M_ASTEN_ENBL_K = 17 ! Enable kernel ASTsL DECLARE LONG CONSTANT PR$M_ASTEN_ENBL_E = 34 ! Enable executive ASTsM DECLARE LONG CONSTANT PR$M_ASTEN_ENBL_S = 68 ! Enable supervisor ASTsH DECLARE LONG CONSTANT PR$M_ASTEN_ENBL_U = 136 ! Enable user ASTs\ DECLARE LONG CONSTANT PR$M_ASTEN_PRSRV_ALL = 15 ! Preserve all enable/disable statesU DECLARE LONG CONSTANT PR$M_ASTEN_PRSRV_K = 1 ! Preserve kernel enable/disableX DECLARE LONG CONSTANT PR$M_ASTEN_PRSRV_E = 2 ! Preserve executive enable/disableY DECLARE LONG CONSTANT PR$M_ASTEN_PRSRV_S = 4 ! Preserve supervisor enable/disableS DECLARE LONG CONSTANT PR$M_ASTEN_PRSRV_U = 8 ! Preserve user enable/disableI ! -------------------------------------------------------------------4 DECLARE LONG CONSTANT PR$M_ASTSR = x'0000000F'8 DECLARE LONG CONSTANT PR$M_ASTSR_KPD = x'00000001'8 DECLARE LONG CONSTANT PR$M_ASTSR_EPD = x'00000002'8 DECLARE LONG CONSTANT PR$M_ASTSR_SPD = x'00000004'8 DECLARE LONG CONSTANT PR$M_ASTSR_UPD = x'00000008'I DECLARE LONG CONSTANT PR$M_ASTSR_CLR_ALL = 0 ! Clear pending ASTsM DECLARE LONG CONSTANT PR$M_ASTSR_SET_ALL = 255 ! Set all ASTs pendingL DECLARE LONG CONSTANT PR$M_ASTSR_SET_K = 17 ! Set kernel AST pendingO DECLARE LONG CONSTANT PR$M_ASTSR_SET_E = 34 ! Set executive AST pendingP DECLARE LONG CONSTANT PR$M_ASTSR_SET_S = 68 ! Set supervisor AST pendingK DECLARE LONG CONSTANT PR$M_ASTSR_SET_U = 136 ! Set user AST pendingS DECLARE LONG CONSTANT PR$M_ASTSR_PRSRV_ALL = 15 ! Preserve all pending bitsN DECLARE LONG CONSTANT PR$M_ASTSR_PRSRV_K = 1 ! Preserve kernel pendingQ DECLARE LONG CONSTANT PR$M_ASTSR_PRSRV_E = 2 ! Preserve executive pendingR DECLARE LONG CONSTANT PR$M_ASTSR_PRSRV_S = 4 ! Preserve supervisor pendingL DECLARE LONG CONSTANT PR$M_ASTSR_PRSRV_U = 8 ! Preserve user pendingI ! -------------------------------------- -----------------------------6 DECLARE LONG CONSTANT PR$M_FEN_FEN = x'00000001': DECLARE LONG CONSTANT PR$M_DATFX_DATFX = x'00000001'6 DECLARE LONG CONSTANT PR$M_IPL_IPL = x'0000001F'7 DECLARE LONG CONSTANT PR$M_MCES_MCK = x'00000001'7 DECLARE LONG CONSTANT PR$M_MCES_SCE = x'00000002'7 DECLARE LONG CONSTANT PR$M_MCES_PCE = x'00000004'7 DECLARE LONG CONSTANT PR$M_MCES_DPC = x'00000008'7 DECLARE LONG CONSTANT PR$M_MCES_DSC = x'00000010'G DECLAR E LONG CONSTANT PR$V_PCBB_PA = 0 ! HWPCB Physical AddressH DECLARE LONG CONSTANT PR$S_PCBB_PA = 48 ! HWPCB Physical AddressI ! -------------------------------------------------------------------4 DECLARE LONG CONSTANT PR$M_PS_SW = x'00000003'8 DECLARE LONG CONSTANT PR$M_PS_PRVMOD = x'00000003': DECLARE LONG CONSTANT PR$M_PS_SYSSTATE = x'00000004'8 DECLARE LONG CONSTANT PR$M_PS_CURMOD = x'00000018'5 DECLARE LONG CONSTANT PR$M_PS_VMM = x'00000080'5 DE CLARE LONG CONSTANT PR$M_PS_IPL = x'00001F00': DECLARE LONG CONSTANT PR$M_PS_SP_ALIGN = x'00000000'8 DECLARE LONG CONSTANT PR$M_PS_MBZ_62 = x'00000000'8 DECLARE LONG CONSTANT PR$M_PS_MBZ_63 = x'00000000'7 DECLARE LONG CONSTANT PR$V_PS_MAX_PS_REG_BIT = 13 ! > DECLARE LONG CONSTANT PR$C_PS_KERNEL = 0 ! Kernel Mode? DECLARE LONG CONSTANT PR$C_PS_EXEC = 1 ! Executive ModeA DECLARE LONG CONSTANT PR$C_PS_SUPER = 2 ! Supervisor Mode: DECLARE LONG  CONSTANT PR$C_PS_USER = 3 ! User ModeI ! -------------------------------------------------------------------7 DECLARE LONG CONSTANT PR$M_PTBR_PFN = x'FFFFFFFF'7 DECLARE LONG CONSTANT PR$M_SCBB_PFN = x'FFFFFFFF'7 DECLARE LONG CONSTANT PR$M_SIRR_LVL = x'0000000F'; DECLARE LONG CONSTANT PR$M_SISR_SUMMARY = x'0000FFFF'7 DECLARE LONG CONSTANT PR$M_SISR_RAZ = x'00000001'7 DECLARE LONG CONSTANT PR$M_SISR_IR1 = x'00000002'7 DECLARE LONG CONSTANT PR$M_SIS R_IR2 = x'00000004'7 DECLARE LONG CONSTANT PR$M_SISR_IR3 = x'00000008'7 DECLARE LONG CONSTANT PR$M_SISR_IR4 = x'00000010'7 DECLARE LONG CONSTANT PR$M_SISR_IR5 = x'00000020'7 DECLARE LONG CONSTANT PR$M_SISR_IR6 = x'00000040'7 DECLARE LONG CONSTANT PR$M_SISR_IR7 = x'00000080'7 DECLARE LONG CONSTANT PR$M_SISR_IR8 = x'00000100'7 DECLARE LONG CONSTANT PR$M_SISR_IR9 = x'00000200'8 DECLARE LONG CONSTANT PR$M_SISR_IR10 = x'00000400'8 DECLARE LONG C ONSTANT PR$M_SISR_IR11 = x'00000800'8 DECLARE LONG CONSTANT PR$M_SISR_IR12 = x'00001000'8 DECLARE LONG CONSTANT PR$M_SISR_IR13 = x'00002000'8 DECLARE LONG CONSTANT PR$M_SISR_IR14 = x'00004000'8 DECLARE LONG CONSTANT PR$M_SISR_IR15 = x'00008000'? DECLARE LONG CONSTANT PR$M_TBCHK_VA_PRESENT = x'00000001'8 DECLARE LONG CONSTANT PR$M_IEEE_DNOD = x'00000000'7 DECLARE LONG CONSTANT PR$M_IEEE_DNZ = x'00000000'8 DECLARE LONG CONSTANT PR$M_IEEE_INVD = x'0000000 0'8 DECLARE LONG CONSTANT PR$M_IEEE_DZED = x'00000000'8 DECLARE LONG CONSTANT PR$M_IEEE_OVFD = x'00000000'7 DECLARE LONG CONSTANT PR$M_IEEE_INV = x'00000000'7 DECLARE LONG CONSTANT PR$M_IEEE_DZE = x'00000000'7 DECLARE LONG CONSTANT PR$M_IEEE_OVF = x'00000000'7 DECLARE LONG CONSTANT PR$M_IEEE_UNF = x'00000000'7 DECLARE LONG CONSTANT PR$M_IEEE_INE = x'00000000'7 DECLARE LONG CONSTANT PR$M_IEEE_IOV = x'00000000'8 DECLARE LONG CONSTANT PR$M_IEEE_ UNDZ = x'00000000'8 DECLARE LONG CONSTANT PR$M_IEEE_UNFD = x'00000000'8 DECLARE LONG CONSTANT PR$M_IEEE_INED = x'00000000'; DECLARE LONG CONSTANT PR$M_IEEE_SUMMARY = x'00000000'* DECLARE LONG CONSTANT PR$S_PRDEF = 8 record PRDEF variant caseS BASIC$QUADWORD PR$Q_QUAD_ACCESS ! Access to register as a quadword caseT LONG PR$L_LONG_ACCESS ( 1 to 2 ) ! Access to register as a quadword case$  group PR$R_PRDEF_BITS* ! SERIAL NUMBER FIELD  ! PLANT ID ! ECO LEVEL $ ! CPU TYPE CODE o LONG SID_SN_bits ! COMMENT ADDED BY SDL - SID_SN_bits contains bits SID_SN through SID_TYPE( end group PR$R_PRDEF_BITS case% group PR$R_PRDEF_XBITS, ! CPU-SPECIFIC XSID BITS' ! CPU SUBTYPE CODE  LONG FILL_XSID_BITS_bits ! COMMENT ADDED BY SDL - FILL_XSID_BITS_bits contains bits FILL_XSID_BITS through & ! XSID_TYPE) end group PR$R_PRDEF_XBITS$ ! SYSTEM ID REGISTER CPU TYPES  ! Number assignments are ! based upon the jumpers ! read by the console from ! the MPS backplane# ! ASTEN - AST Enabled Register ! O ! NOTE WELL: These bit symbols are to be used only when interfacing to theF ! ASTEN internal processor register. They are NOT to be used whenG ! interfacing to the copy of ASTEN which is stored in the HardwareG ! Privileged Context Block (HWPCB). See the HWPCB-specific symbols8 ! for how to refer to the ASTEN field in the HWPCB. !  case# group PR$R_ASTEN_DEF variant case) ! Enabled AST maskl BYTE ASTEN_bits ! COMMENT ADDED BY SDL - ASTEN_bits contains bits ASTEN through ASTEN  case* group PR$R_ASTEN_BITS. ! Kernel AST Enabled1 ! Executive AST Enabled2 ! Supervisor AST Enabled, ! User AST Enabled~ BYTE ASTEN_KEN_bits ! COMMENT ADDED BY SDL - ASTEN_KEN_bits contains bits ASTEN_KEN through FILL_68_. end group PR$R_ASTEN_BITS end variant' end group PR$R_AS TEN_DEF# ! ASTSR - AST Summary Register ! O ! NOTE WELL: These bit symbols are to be used only when interfacing to theF ! ASTSR internal processor register. They are NOT to be used whenG ! interfacing to the copy of ASTSR which is stored in the HardwareG ! Privileged Context Block (HWPCB). See the HWPCB-specific symbols8 ! for how to refer to the ASTSR field in the HWPCB. !  case# group PR$R_ASTSR_DEF variant  case1 ! AST pending summary maskl BYTE ASTSR_bits ! COMMENT ADDED BY SDL - ASTSR_bits contains bits ASTSR through ASTSR case* group PR$R_ASTSR_BITS. ! Kernel AST Pending1 ! Executive AST Pending2 ! Supervisor AST Pending, ! User AST Pending~ BYTE ASTSR_KPD_bits ! COMM ENT ADDED BY SDL - ASTSR_KPD_bits contains bits ASTSR_KPD through FILL_69_. end group PR$R_ASTSR_BITS end variant' end group PR$R_ASTSR_DEF" ! FEN - Floating Point Enable ! O ! NOTE WELL: These bit symbols are to be used only when interfacing to theD ! FEN internal processor register. They are NOT to be used whenE ! interfacing to the copy of FEN which is stored in the HardwareG ! Privileged Context Block (HWPCB). See the HWPCB-specific symbols6 ! for how to refer to the FEN field in the HWPCB. !  case- ! Floating point enabled = 1I ! -------------------------------------------------------------------( ! DATFX - Data Alignment Trap Fixup ! , ! Data Alignment Trap FixupI ! -------------------------------------------------------------------% ! IPL - Interrupt Priority Level ! + ! Interrupt Priority LevelI  ! -------------------------------------------------------------------2 ! MCES - Machine Check Error Summary Register ! n BYTE FEN_FEN_bits ! COMMENT ADDED BY SDL - FEN_FEN_bits contains bits FEN_FEN through IPL_IPL case& group PR$R_MCES_OVERLAY) ! Machine Check (W1C)4 ! System Correctable Error (W1C)7 ! Processor Correctable Error (W1C)@ ! Disable Processor Corr ectable Error report= ! Disable System Correctable Error reportu BYTE MCES_MCK_bits ! COMMENT ADDED BY SDL - MCES_MCK_bits contains bits MCES_MCK through FILL_70_* end group PR$R_MCES_OVERLAYI ! -------------------------------------------------------------------+ ! PCBB - Privileged Context Block Base !  ! PS - Processor Status ! I ! The PS is not an IPR in the sense that it isn't read/written usingG ! the M xPR operators. However, the bitfields of the PS are definedK ! here since this is the repository for bitfields of architected IPRs,1 ! hence it's convenient to define them here. ! J ! Although the 'software' field of the PS is not privileged state andG ! may be used by users as they see fit in User mode, VMS imposes aJ ! privileged interpretation on the bits when used in any of the threeG ! inner processor modes (Kernel, Executive, Supervisor). There are !  consequences of this: ! D ! 1) Should User mode code be using the software field bits, it; ! must be assumed that the User mode setting of these9 ! bits are entirely ignored by inner mode software. ! B ! 2) VMS reserves the right to redefine its privileged (inner7 ! mode) interpretation of these bits at any time. !  case' group PR$R_PS_SWDEF_BITS# ! Software Bitsl BYTE PS_SW_bits ! COMM ENT ADDED BY SDL - PS_SW_bits contains bits PS_SW through FILL_71_+ end group PR$R_PS_SWDEF_BITS case$ group PR$R_PSDEF_BITS- ! Previous Processor Mode, ! System State Indicator, ! Current Processor Mode- ! Virtual Machine Monitor. ! Interrupt Priority Level- ! Stack Pointer Alignment5 ! Reserved bit above SP alignment5 ! Reserved bit above SP alignment BYTE PS_PRVMOD_bits ( 8 ) ! COMMENT ADDED BY SDL - PS_PRVMOD_bits contains bits PS_PRVMOD through PS_MBZ_63( end group PR$R_PSDEF_BITS ! 2 ! Maximum bit number used in the PS register !  ! MODE SYMBOL DEFINITIONS ! & ! PTBR - Page Table Base Register !  case& ! PFN of current L1PTI ! ------------------------------------------------------ -------------' ! SCBB - System Control Block Base !  ! PFN of SCBI ! -------------------------------------------------------------------1 ! SIRR - Software Interrupt Request Register ! 3 ! Software Interrupt Request LevelI ! -------------------------------------------------------------------1 ! SISR - Software Interrupt Summary Register ! x BYTE PTBR_PFN_bits ( 8 ) ! COMMENT ADDED BY SDL - PTBR_PFN_bits c ontains bits PTBR_PFN through SIRR_LVL case% group PR$R_SISR_FIELDS variant case2 ! Sofware Interrupt Summary~ WORD SISR_SUMMARY_bits ! COMMENT ADDED BY SDL - SISR_SUMMARY_bits contains bits SISR_SUMMARY through & ! SISR_SUMMARY case) group PR$R_SISR_BITS( ! Read As Zero- ! Softint 1 pending-  ! Softint 2 pending- ! Softint 3 pending- ! Softint 4 pending- ! Softint 5 pending- ! Softint 6 pending- ! Softint 7 pending- ! Softint 8 pending- ! Softint 9 pending. ! Softint 10 pending. ! Softint 11 pending. !  Softint 12 pending. ! Softint 13 pending. ! Softint 14 pending. ! Softint 15 pending| WORD SISR_RAZ_bits ! COMMENT ADDED BY SDL - SISR_RAZ_bits contains bits SISR_RAZ through SISR_IR15- end group PR$R_SISR_BITS end variant) end group PR$R_SISR_FIELDSI ! -------------------------------------------------------------------' ! TBCHK -  Translation Buffer Check ! K ! This IPR may always be referenced with MFPR without causing an errorJ ! to occur (unlike VAX), but the feature provided by TBCHK may or mayQ ! not be implemented. If not, then =1 and B ! should be ignored. If TBCHK's function IS implemented, thenJ ! =0 and returns the desired data. !  case$ group PR$R_TBCHK_BITS" ! VA  in TB = 1) ! Not implemented = 1 BYTE TBCHK_VA_PRESENT_bits ( 8 ) ! COMMENT ADDED BY SDL - TBCHK_VA_PRESENT_bits contains bits TBCHK_VA_PRESENT & ! through TBCHK_NO_TBCHK( end group PR$R_TBCHK_BITSI ! -------------------------------------------------------------------- ! FPCR - Floating Point Control Register ! O ! NOTE WELL: These bit symbols are to be used only when interfacing to theN ! hardware FPCR interna l processor register. They are NOT to be used whenM ! interfacing to the software floating point control register pointed to9 ! by CTL$GQ_IEEE_FP_CONTROL/PKTA$Q_IEEE_FP_CONTROL. ! L ! The hardware FPCR should only be manipulated via the system service, 1 ! SYS$IEEE_FP_CONTROL, rather than directly. !  case# group PR$R_FPCR_BITS8 ! Denormal operand exception disable. ! Denormal operands to 0.0/  ! Invalid operation disable. ! Division by zero disable& ! Overflow disable( ! Invalid operation./ ! Division by zero occured.' ! Overflow occured.( ! Underflow occured.- ! Inexact result occured.. ! Integer overflow occured+ ! Dynamic Rounding mode' ! Underflow to zero' ! Underflow disable% ! Inexact disable7 ! Bitwise OR of FPCR exception bits~ BYTE FPCR_fill_1_bits ( 8 ) ! COMMENT ADDED BY SDL - FPCR_fill_1_bits contains bits FPCR_fill_1 through & ! IEEE_SUMMARY' end group PR$R_FPCR_BITS end variant end record PRDEF  wwy  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +# ! Protection field definitions ! -8 DECLARE LONG CONSTANT PRT$C_NA = 0 ! No Access? DECLARE LONG CONSTANT PRT$C_KR = 3 ! Kernel Read only; DECLARE LONG CONSTANT PRT$C_ KW = 2 ! Kernel Write= DECLARE LONG CONSTANT PRT$C_ER = 7 ! Exec Read only9 DECLARE LONG CONSTANT PRT$C_EW = 5 ! Exec Write> DECLARE LONG CONSTANT PRT$C_SR = 11 ! Super Read only: DECLARE LONG CONSTANT PRT$C_SW = 8 ! Super Write= DECLARE LONG CONSTANT PRT$C_UR = 15 ! User Read only9 DECLARE LONG CONSTANT PRT$C_UW = 4 ! User WriteE DECLARE LONG CONSTANT PRT$C_ERKW = 6 ! Exec Read Kernel WriteG DECLARE LONG CONSTANT PRT$C_ SRKW = 10 ! Super Read Kernel WriteD DECLARE LONG CONSTANT PRT$C_SREW = 9 ! Super Read Exec WriteF DECLARE LONG CONSTANT PRT$C_URKW = 14 ! User Read Kernel WriteD DECLARE LONG CONSTANT PRT$C_UREW = 13 ! User Read Exec WriteE DECLARE LONG CONSTANT PRT$C_URSW = 12 ! User Read Super Write; DECLARE LONG CONSTANT PRT$C_RESERVED = 1 ! Reserved ! 8 ! These protections are not VAX / Alpha compatible: ! ? DECLARE LONG CONSTANT PRT$C_KRO = 16 !  Kernel Read Only= DECLARE LONG CONSTANT PRT$C_ERO = 17 ! Exec Read Only> DECLARE LONG CONSTANT PRT$C_SRO = 18 ! Super Read Only= DECLARE LONG CONSTANT PRT$C_URO = 19 ! User Read OnlyD DECLARE LONG CONSTANT PRT$C_KWX = 20 ! Kernel Write+Execute B DECLARE LONG CONSTANT PRT$C_EWX = 21 ! Exec Write+Execute C DECLARE LONG CONSTANT PRT$C_SWX = 22 ! Super Write+Execute B DECLARE LONG CONSTANT PRT$C_UWX = 23 ! User Write+Execute K DECLARE LONG CONSTANT PRT$C_KPX = 24 ! Kernel promote, execute onlyI DECLARE LONG CONSTANT PRT$C_EPX = 25 ! Exec promote, execute onlyJ DECLARE LONG CONSTANT PRT$C_SPX = 26 ! Super promote, execute only@ DECLARE LONG CONSTANT PRT$C_UX = 27 ! User execute only ww Jˁ  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >   %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ! PRIVILEGE BIT DEFINITIONS ! 6 DECLARE LONG CONSTANT PRV$M_CMKRNL = x'00000001'6 DECLARE LONG CONSTANT PRV$M_CMEXEC = x'00000002'6 DECLARE LONG CONSTANT PRV$M_SYSNAM = x'00000004' 6 DECLARE LONG CONSTANT PRV$M_GRPNAM = x'00000008'8 DECLARE LONG CONSTANT PRV$M_ALLSPOOL = x'00000010'; DECLARE LONG CONSTANT PRV$M_IMPERSONATE = x'00000020'8 DECLARE LONG CONSTANT PRV$M_DIAGNOSE = x'00000040'6 DECLARE LONG CONSTANT PRV$M_LOG_IO = x'00000080'5 DECLARE LONG CONSTANT PRV$M_GROUP = x'00000100'6 DECLARE LONG CONSTANT PRV$M_NOACNT = x'00000200'6 DECLARE LONG CONSTANT PRV$M_PRMCEB = x'00000400'6 DECLARE LONG CONSTANT PRV$M_PRMMBX = x'0 0000800'6 DECLARE LONG CONSTANT PRV$M_PSWAPM = x'00001000'6 DECLARE LONG CONSTANT PRV$M_SETPRI = x'00002000'6 DECLARE LONG CONSTANT PRV$M_SETPRV = x'00004000'6 DECLARE LONG CONSTANT PRV$M_TMPMBX = x'00008000'5 DECLARE LONG CONSTANT PRV$M_WORLD = x'00010000'5 DECLARE LONG CONSTANT PRV$M_MOUNT = x'00020000'4 DECLARE LONG CONSTANT PRV$M_OPER = x'00040000'7 DECLARE LONG CONSTANT PRV$M_EXQUOTA = x'00080000'6 DECLARE LONG CONSTANT PRV$M_NETMBX = x'001 00000'6 DECLARE LONG CONSTANT PRV$M_VOLPRO = x'00200000'6 DECLARE LONG CONSTANT PRV$M_PHY_IO = x'00400000'6 DECLARE LONG CONSTANT PRV$M_BUGCHK = x'00800000'6 DECLARE LONG CONSTANT PRV$M_PRMGBL = x'01000000'6 DECLARE LONG CONSTANT PRV$M_SYSGBL = x'02000000'6 DECLARE LONG CONSTANT PRV$M_PFNMAP = x'04000000'5 DECLARE LONG CONSTANT PRV$M_SHMEM = x'08000000'6 DECLARE LONG CONSTANT PRV$M_SYSPRV = x'10000000'6 DECLARE LONG CONSTANT PRV$M_BYPASS = x'20000 000'6 DECLARE LONG CONSTANT PRV$M_SYSLCK = x'40000000'5 DECLARE LONG CONSTANT PRV$M_SHARE = x'80000000'7 DECLARE LONG CONSTANT PRV$M_UPGRADE = x'00000000'9 DECLARE LONG CONSTANT PRV$M_DOWNGRADE = x'00000000'6 DECLARE LONG CONSTANT PRV$M_GRPPRV = x'00000000'7 DECLARE LONG CONSTANT PRV$M_READALL = x'00000000'6 DECLARE LONG CONSTANT PRV$M_IMPORT = x'00000000'5 DECLARE LONG CONSTANT PRV$M_AUDIT = x'00000000'8 DECLARE LONG CONSTANT PRV$M_SECURITY =  x'00000000'Z DECLARE LONG CONSTANT PRV$K_NUMBER_OF_PRIVS = 39 ! Total number of privilege bits.4 DECLARE LONG CONSTANT PRV$M_ACNT = x'00000200'6 DECLARE LONG CONSTANT PRV$M_ALTPRI = x'00002000'6 DECLARE LONG CONSTANT PRV$M_DETACH = x'00000020', DECLARE LONG CONSTANT PRV$S_PRVDEF = 8 record PRVDEF variant case' group PRV$R_PRVDEF_BITS00 ! MAY CHANGE MODE TO KERNEL . ! MAY CHANGE MODE TO EXEC > ! MAY INSERT IN SYSTEM LOGICAL NAME TABLE = ! MAY INSERT IN GROUP LOGICAL NAME TABLE 2 ! MAY ALLOCATE SPOOLED DEVICE < ! Replacement name for DETACH (synonyms)+ ! MAY DIAGNOSE DEVICES ) ! MAY DO LOGICAL I/O ? ! MAY AFFECT OTHER PROCESSES IN SAME GROUP 6 ! MAY SUPPRESS ACCOUNTING MESSAGE A ! MAY CREATE PERMANENT  COMMON EVENT CLUSTERS 3 ! MAY CREATE PERMANENT MAILBOX 3 ! MAY CHANGE PROCESS SWAP MODE 1 ! MAY SET ANY PRIORITY VALUE / ! MAY SET ANY PRIVILEGE BIT3 ! MAY CREATE TEMPORARY MAILBOX > ! MAY AFFECT OTHER PROCESSES IN THE WORLD 6 ! MAY EXECUTE MOUNT ACP FUNCTIONS ) ! OPERATOR PRIVILEGE ( ! MAY EXCEED QUOTAS 0  ! MAY CREATE NETWORK DEVICE 5 ! MAY OVERRIDE VOLUME PROTECTION * ! MAY DO PHYSICAL I/O ; ! MAY MAKE BUG CHECK ERROR LOG ENTRIES ; ! MAY CREATE PERMANENT GLOBAL SECTIONS = ! MAY CREATE SYSTEM WIDE GLOBAL SECTIONS 0 ! MAY MAP TO SECTION BY PFN ? ! MAY ALLOCATE STRUCTURES IN SHARED MEMORY ; ! ELIGIBLE FOR SYSTEM PROTECTION FIELD 6  ! MAY BYPASS UIC BASED PROTECTION 3 ! MAY CREATE SYSTEM WIDE LOCKS = ! MAY ASSIGN CHANNEL TO NON-SHARED DEVICE2 ! May upgrade object integrity2 ! May downgrade object secrecyJ ! May access group objects via system protection field) ! May read any objectA ! May set classification for unlabeled objectC ! May direct audit t o system security audit log4 ! May perform security functions5 ! XXXXXX bitfield mask; /* Reserved for SEVMSs BYTE CMKRNL_bits ( 8 ) ! COMMENT ADDED BY SDL - CMKRNL_bits contains bits CMKRNL through FILL_1+ end group PRV$R_PRVDEF_BITS0 case' group PRV$R_PRVDEF_BITS1@ ! MAY SUPPRESS ACCOUNTING MESSAGES (NOACNT) 9 ! MAY SET ANY PRIORITY VALE (SETPRI) o  WORD FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through FILL_72_+ end group PRV$R_PRVDEF_BITS1 case' group PRV$R_PRVDEF_BITS2E LONG PRV$L_L1_BITS ! Bits in first longwordF LONG PRV$L_L2_BITS ! Bits in second longword+ end group PRV$R_PRVDEF_BITS2 case' group PRV$R_PRVDEF_BITS38 ! Offset to obsolete DETACH bitf ield4 ! MAY CREATE DETACHED PROCESSES o BYTE fill_4_bits ! COMMENT ADDED BY SDL - fill_4_bits contains bits fill_4 through FILL_73_+ end group PRV$R_PRVDEF_BITS3 end variant end record PRVDEF 6 DECLARE LONG CONSTANT PRV$M_SORTED = x'00000001'5 DECLARE LONG CONSTANT PRV$M_BRIEF = x'00000002'6 DECLARE LONG CONSTANT PRV$M_FILLED = x'00000004'1 DECLARE LONG CONSTANT PRV$S_PRVDSP_BITS = 1 record  PRVDSP_BITS ! sort privilege list) ! display only privilege names% ! display names in columnsf BYTE SORTED_bits ! COMMENT ADDED BY SDL - SORTED_bits contains bits SORTED through FILL_74_ end record PRVDSP_BITS b DECLARE LONG CONSTANT PRV$K_PRVMASK_WORKING = 0 ! Working (Temporary) privs to be modifiedZ DECLARE LONG CONSTANT PRV$K_PRVMASK_PERMANENT = 1 ! Permanent privs to be modifiedV DECLARE LONG CONSTANT PRV$K_PRVMASK_IMAGE = 2 ! Image privs to be modified wwV  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  ) DECLARE LONG CONSTANT PRX$K_ADD = 1, DECLARE LONG CONSTANT PRX$K_DELETE = 2* DECLARE LONG CONSTANT PRX$K_SHOW = 3, DECLARE LONG CONSTANT PRX$K_VERIFY = 41 DECLARE LONG CONSTANT PRX$K_PE RFORMANCE = 56 DECLARE LONG CONSTANT PRX$K_ZERO_PERFORMANCE = 6, DECLARE LONG CONSTANT PRX$K_CREATE = 7* DECLARE LONG CONSTANT PRX$K_STOP = 8+ DECLARE LONG CONSTANT PRX$K_START = 95 DECLARE LONG CONSTANT PRX$K_MAX_PROXY_CODE = 109 DECLARE LONG CONSTANT PRX$K_PERFORMANCE_LENGTH = 486 DECLARE LONG CONSTANT PRX$S_PRX$PERFORMANCE = 48 record PRX$PERFORMANCE" LONG PRX$L_TOTAL_MESSAGES$ LONG PRX$L_TOTAL_EXCEPTIONS LONG PRX$L_SH OWS LONG PRX$L_ADDS LONG PRX$L_DELETES LONG PRX$L_VERIFYS LONG PRX$L_PERFORMANCE LONG PRX$L_CREATES LONG PRX$L_STOPS LONG PRX$L_STARTS LONG PRX$L_AUDITS$ LONG PRX$L_INVALID_MESSAGES end record PRX$PERFORMANCE = DECLARE LONG CONSTANT PRX$M_IGNORE_RETURN = x'00000001'= DECLARE LONG CONSTANT PRX$M_BYPASS_EXPAND = x'00000002'9 DECLARE LONG CONSTANT PRX$M_RESERVE_1 = x'000000FC'7 ! DECLARE LONG CONSTANT PRX$M_DEFAULT = x'00000100'5 DECLARE LONG CONSTANT PRX$M_EXACT = x'00000200'> DECLARE LONG CONSTANT PRX$M_DELETE_ALLOWED = x'00000400'6 DECLARE LONG CONSTANT PRX$M_FILL_1 = x'FFFFF800'3 DECLARE LONG CONSTANT PRX$K_HEADER_LENGTH = 80 DECLARE LONG CONSTANT PRX$S_PRX$HEADER = 8 record PRX$HEADER LONG PRX$L_CONTEXT group PRX$R_FILL_77_ variant case" LONG PRX$L_FLAGS" case& group PRX$R_FILL_78_ LONG IGNORE_RETURN_bits ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through & ! FILL_1* end group PRX$R_FILL_78_ end variant! end group PRX$R_FILL_77_ end record PRX$HEADER 7 DECLARE LONG CONSTANT PRX$S_PRX$GENERIC_DESC1 = 5 record PRX$GENERIC_DESC1 WORD PRX$W_DESC_LENGTH WORD PRX$W_FILL1# # STRING PRX$T_DESC_DATA = 1" end record PRX$GENERIC_DESC1 7 DECLARE LONG CONSTANT PRX$K_USER_NAME_LENGTH = 32@ DECLARE LONG CONSTANT PRX$K_REMOTE_NODE_NAME_LENGTH = 10246 DECLARE LONG CONSTANT PRX$K_MAX_LOCAL_USERS = 167 DECLARE LONG CONSTANT PRX$K_LOCAL_USER_ENTRY = 36- DECLARE LONG CONSTANT PRX$S_DATA = 1100 record DATA_D% WORD PRX$W_LOCAL_USER_LENGTH WORD PRX$W_UNUSED_3* STRING PRX$T_LOCAL_USER_NAME = 32& W $ORD PRX$W_REMOTE_USER_LENGTH WORD PRX$W_UNUSED_4+ STRING PRX$T_REMOTE_USER_NAME = 32& WORD PRX$W_REMOTE_NODE_LENGTH WORD PRX$W_UNUSED_5- STRING PRX$T_REMOTE_NODE_NAME = 1024 end record DATA_D 4 DECLARE LONG CONSTANT PRX$K_DATA_LENGTH = 11004 DECLARE LONG CONSTANT PRX$S_BUFSIZ_SUMMARY = 8 record BUFSIZ_SUMMARY@ WORD PRX$W_BUFSIZ_USER ! proxy user length@ WORD PRX$W_BUFSIZ_NODE ! % proxy node lengthD WORD PRX$W_BUFSIZ_LOCAL_COUNT ! number of local usersE WORD PRX$W_BUFSIZ_DEF_USER ! length of default user end record BUFSIZ_SUMMARY 2 DECLARE LONG CONSTANT PRX$K_MAX_REPLY = 16922 DECLARE LONG CONSTANT PRX$S_REPLY_UNION = 88 record REPLY_UNION variant case( group PRX$R_GENERIC_REPLY@ LONG PRX$L_REPLY_STATUS ! status of request, end group PRX$R &_GENERIC_REPLY case' group PRX$R_VERIFY_REPLY? LONG PRX$L_UNUSED_6 ! space for STATUSH WORD PRX$W_VALID_USER ! length of proxy user_name% WORD PRX$W_UNUSED_7M STRING PRX$T_VALID_USER ( 1 to 32 ) = 1 ! proxy usernname+ end group PRX$R_VERIFY_REPLY case% group PRX$R_SHOW_REPLY? LONG PRX$L_UNUSED_8 ! space for STATUS?' LONG PRX$L_SHOW_CONTEXT ! returned contextJ WORD PRX$W_SHOW_DEF_USER ! length of default user_name% WORD PRX$W_UNUSED_8R STRING PRX$T_SHOW_DEF_USER ( 1 to 32 ) = 1 ! default user_nameI WORD PRX$W_SHOW_REM_USER ! length of remote user_name% WORD PRX$W_UNUSED_9Q STRING PRX$T_SHOW_REM_USER ( 1 to 32 ) = 1 ! remote user_nameK WORD PRX$W_SHOW_LOCAL_ COUNT ! count of local user_namesP WORD PRX$W_SHOW_LOCAL_SIZE ! size of local user_name (bytes)K group PRX$R_SHOW_LOCAL_DATA ! start of local user_names) LONG PRX$L_UNUSED_101 end group PRX$R_SHOW_LOCAL_DATA) end group PRX$R_SHOW_REPLY end variant end record REPLY_UNION 3 DECLARE LONG CONSTANT PRX$K_MAX_LENGTH = 1108 ww)m  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED *( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN+G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > , %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! ) ! Process_Scan item code definitions !  ! - ! Item code definitions, DECLARE LONG CONSTANT pscan$_BEGIN = 0H DECLARE LONG CONSTANT pscan$_ACCOUNT = 1 ! Match on -account nameO DECLARE LONG CONSTANT pscan$_AUTHPRI = 2 ! Match on authorized priorityI DECLARE LONG CONSTANT pscan$_CURPRIV = 3 ! Match on current privsA DECLARE LONG CONSTANT pscan$_GRP = 4 ! Match on GRP fieldN DECLARE LONG CONSTANT pscan$_HW_MODEL = 5 ! Match on system's HW_MODELL DECLARE LONG CONSTANT pscan$_HW_NAME = 6 ! Match on system's HW_NAMER DECLARE LONG CONSTANT pscan$_JOBPRCCNT = 7 ! Match on job subprocess countQ DECLARE LONG CONST.ANT pscan$_JOBTYPE = 8 ! Match on job origin type fieldT DECLARE LONG CONSTANT pscan$_MASTER_PID = 9 ! Match on PID of master processB DECLARE LONG CONSTANT pscan$_MEM = 10 ! Match on MEM fieldF DECLARE LONG CONSTANT pscan$_MODE = 11 ! Match on process modeM DECLARE LONG CONSTANT pscan$_NODE_CSID = 12 ! Match on system's CSID O DECLARE LONG CONSTANT pscan$_NODENAME = 13 ! Match on system's nodenameG DECLARE LONG CONSTANT pscan$_OWNER = 14 ! Match on/ PID of ownerL DECLARE LONG CONSTANT pscan$_PRCCNT = 15 ! Match on subprocess countH DECLARE LONG CONSTANT pscan$_PRCNAM = 16 ! Match on process nameI DECLARE LONG CONSTANT pscan$_PRI = 17 ! Match on current priorityG DECLARE LONG CONSTANT pscan$_PRIB = 18 ! Match on base priorityH DECLARE LONG CONSTANT pscan$_STATE = 19 ! Match on process stateG DECLARE LONG CONSTANT pscan$_STS = 20 ! Match on process statusK DECLARE LONG CONSTANT pscan$_TERMI0NAL = 21 ! Match on terminal nameB DECLARE LONG CONSTANT pscan$_UIC = 22 ! Match on UIC fieldF DECLARE LONG CONSTANT pscan$_USERNAME = 23 ! Match on usernameR DECLARE LONG CONSTANT pscan$_GETJPI_BUFFER_SIZE = 24 ! Buffer for blockingM DECLARE LONG CONSTANT pscan$_PSCAN_CONTROL_FLAGS = 25 ! Control FlagsT DECLARE LONG CONSTANT pscan$_KT_COUNT = 26 ! Current count of kernel threadsX DECLARE LONG CONSTANT pscan$_MULTITHREAD = 27 ! Maximum number of kern 1el threadsg DECLARE LONG CONSTANT pscan$_SCHED_CLASS_NAME = 28 ! Match on name of process' scheduling class+ DECLARE LONG CONSTANT pscan$_END = 29. DECLARE LONG CONSTANT pscan$k_type = 1298 DECLARE LONG CONSTANT PSCAN$M_THREAD = x'00000001'3 DECLARE LONG CONSTANT PSCAN$S_PSCANCTLDEF = 4 record PSCANCTLDEF group PSCAN$R_FILL_79_ variant caseB LONG PSCAN$L_PSCANCTLFLGS ! Control item flags 2 case( group PSCAN$R_FILL_80_Y ! Return information about each thread for multithreaded processesr BYTE THREAD_bits ! COMMENT ADDED BY SDL - THREAD_bits contains bits THREAD through FILL_81_, end group PSCAN$R_FILL_80_ end variant# end group PSCAN$R_FILL_79_ end record PSCANCTLDEF 4 DECLARE LONG CONSTANT pscan$M_OR = x'00000001'9 DECLARE LONG CONSTANT pscan$M_BIT_ALL 3= x'00000002'9 DECLARE LONG CONSTANT pscan$M_BIT_ANY = x'00000004'5 DECLARE LONG CONSTANT pscan$M_GEQ = x'00000008'5 DECLARE LONG CONSTANT pscan$M_GTR = x'00000010'5 DECLARE LONG CONSTANT pscan$M_LEQ = x'00000020'5 DECLARE LONG CONSTANT pscan$M_LSS = x'00000040'> DECLARE LONG CONSTANT pscan$M_PREFIX_MATCH = x'00000080': DECLARE LONG CONSTANT pscan$M_WILDCARD = x'00000100'< DECLARE LONG CONSTANT pscan$M_CASE_BLIND = x'00000200'5 DECLARE LONG C 4ONSTANT pscan$M_EQL = x'00000400'5 DECLARE LONG CONSTANT pscan$M_NEQ = x'00000800'; DECLARE LONG CONSTANT pscan$s_item_specific_flags = 2 record item_specific_flags ! Logical OR of items$ ! All bits set in pattern# ! Any bit set in pattern' ! Match on leading substring ! Wildcard pattern( ! Ignore case of text stringsZ WORD OR_bits ! COMMENT ADDED BY SDL - OR_bits contains bits OR through fill_82_$ end record item_specific_flags  ww6( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN7G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 8 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! N ! Signature block offset definitions for the Alpha/IA64 calling standard. ! > DECLARE LONG CONSTANT PSIG$K_FR_I64 = 0 ! 64 bit in R0' ! or - No function result providede DECLAR9E LONG CONSTANT PSIG$K_FR_D64 = 1 ! 32 bit low in R0, 32 bit high in r1 - sign extendedL DECLARE LONG CONSTANT PSIG$K_FR_I32 = 2 ! 32 bit sign extended in R0G DECLARE LONG CONSTANT PSIG$K_FR_U32 = 3 ! 32 bit unsigned in R0A DECLARE LONG CONSTANT PSIG$K_FR_FF = 4 ! F floating in F0A DECLARE LONG CONSTANT PSIG$K_FR_FD = 5 ! D floating in F0A DECLARE LONG CONSTANT PSIG$K_FR_FG = 6 ! G floating in F0A DECLARE LONG CONSTANT PSIG$K_FR_FS = 7 ! S floatin :g in F0A DECLARE LONG CONSTANT PSIG$K_FR_FT = 8 ! T floating in F0R DECLARE LONG CONSTANT PSIG$K_FR_FFC = 11 ! F floating complex in F0 and F1R DECLARE LONG CONSTANT PSIG$K_FR_FDC = 12 ! D floating complex in F0 and F1R DECLARE LONG CONSTANT PSIG$K_FR_FGC = 13 ! G floating complex in F0 and F1R DECLARE LONG CONSTANT PSIG$K_FR_FSC = 14 ! S floating complex in F0 and F1R DECLARE LONG CONSTANT PSIG$K_FR_FTC = 15 ! T floating complex in F0 and F1 ! 5 ; DECLARE LONG CONSTANT PSIG$M_CTRL = x'00000007'2 DECLARE LONG CONSTANT PSIG$M_X = x'000000F8'< DECLARE LONG CONSTANT PSIG$M_FUNC_RETURN = x'00000F00'= DECLARE LONG CONSTANT PSIG$M_REG_ARG_INFO = x'00000000'9 DECLARE LONG CONSTANT PSIG$M_SU_VLIST = x'00004000'D DECLARE LONG CONSTANT PSIG$K_MIN_LENGTH = 8 ! Minimum lengthE DECLARE LONG CONSTANT PSIG$K_MAX_LENGTH = 72 ! Maximum length@ DECLARE LONG CONSTANT PSIG$K_MIN_SIZE = 8 ! Minimum sizeA < DECLARE LONG CONSTANT PSIG$K_MAX_SIZE = 72 ! Maximum size. DECLARE LONG CONSTANT PSIG$S_PSIGDEF = 8 record PSIGDEF* ! or - First parameter mechanism used( ! First quadword of signature block ! + group PSIG$R_REGISTER_INFO_OVERLAY variant case' group PSIG$R_FILL_83_ variant case; BASIC$QUADWORD PSIG$Q_REGISTER_INFO case=- group PSIG$R_FILL_84_8 ! Control information field5 ! Not used. Must be zeroA ! Function return signature encoding3 ! Entire summary fieldq WORD CTRL_bits ! COMMENT ADDED BY SDL - CTRL_bits contains bits CTRL through SUMMARYC BYTE PSIG$B_ARG_COUNT ! Argument countD ! Reg >ister argument signature encodingsM ! Minimum length for memory argument information BYTE REG_ARG_INFO_bits ( 5 ) ! COMMENT ADDED BY SDL - REG_ARG_INFO_bits contains bits REG_ARG_INFO & ! through MEMORY_ARG_INFO1 end group PSIG$R_FILL_84_ end variant+ end group PSIG$R_FILL_83_ ! J ! Summary bits which are contained in the high bits of the first word !  ? case' group PSIG$R_FILL_85_ variant case: BASIC$QUADWORD PSIG$Q_SUMMARY_INFO case- group PSIG$R_FILL_86_G ! summary of arguments 9 through arg_count? ! VAX style argument list expectedp WORD FILL_bits ! COMMENT ADDED BY SDL - FILL_bits contains bits FILL through UNUSED @1 end group PSIG$R_FILL_86_ end variant+ end group PSIG$R_FILL_85_ end variant/ end group PSIG$R_REGISTER_INFO_OVERLAY end record PSIGDEF 8 DECLARE LONG CONSTANT RASE$M_SIG_ENC = x'0000000F'= DECLARE LONG CONSTANT RASE$K_RA_I64 = 0 ! (obsolete) K DECLARE LONG CONSTANT RASE$K_RA_NOARG = 0 ! Argument is not present= DECLARE LONG CONSTANT RASE$K_RA_Q = 1 ! 64 bit in RxxMA DECLARE LONG CONSTANT RASE$K_RA_I32 = 2 ! 32 bit sign extended in RxxH DECLARE LONG CONSTANT RASE$K_RA_U32 = 3 ! 32 bit unsigned in RxxI DECLARE LONG CONSTANT RASE$K_RA_FF = 4 ! F floating passed in FxxI DECLARE LONG CONSTANT RASE$K_RA_FD = 5 ! D floating passed in FxxI DECLARE LONG CONSTANT RASE$K_RA_FG = 6 ! G floating passed in FxxI DECLARE LONG CONSTANT RASE$K_RA_FS = 7 ! S floating passed in FxxI DECLARE LONG CONSTANT RASE$K_RA_FT = 8 ! B T floating passed in Fxx. DECLARE LONG CONSTANT RASE$S_RASEDEF = 1 record RASEDEF, ! per register signature encodingi BYTE SIG_ENC_bits ! COMMENT ADDED BY SDL - SIG_ENC_bits contains bits SIG_ENC through FILL_87_ end record RASEDEF < DECLARE LONG CONSTANT MASE$K_MA_I64 = 0 ! (obsolete)? DECLARE LONG CONSTANT MASE$K_MA_Q = 0 ! 64 bit argumentH DECLARE LONG CONSTANT MASE$K_MA_I32 = 2 ! 32 bit signed argument. DECLARE LONG C CONSTANT MASE$S_MASEDEF = 1 record MASEDEF3 ! per memory location signature encodingi BYTE SIG_ENC_bits ! COMMENT ADDED BY SDL - SIG_ENC_bits contains bits SIG_ENC through FILL_88_ end record MASEDEF  ! U ! Argument Information structure definition for the Alpha/IA64 calling standard. ! @ DECLARE LONG CONSTANT AI$K_AR_I64 = 0 ! Integer argumentC DECLARE LONG CONSTANT AI$K_AR_FF = 1 ! VAX F float argumentC DECLARE LONG CDONSTANT AI$K_AR_FD = 2 ! VAX D float argumentC DECLARE LONG CONSTANT AI$K_AR_FG = 3 ! VAX G float argumentD DECLARE LONG CONSTANT AI$K_AR_FS = 4 ! IEEE S float argumentD DECLARE LONG CONSTANT AI$K_AR_FT = 5 ! IEEE T float argumentG DECLARE LONG CONSTANT AI$K_AR_RESERVED_6 = 6 ! Reserved value 6G DECLARE LONG CONSTANT AI$K_AR_RESERVED_7 = 7 ! Reserved value 7; DECLARE LONG CONSTANT AI$M_ARG_REG_INFO = x'00000700'? DECLARE LONG CONSTANT AI$K_AI_ SIZE = 8 ! Minimum lengthF DECLARE LONG CONSTANT AI$K_REGNO = 25 ! The AI register number* DECLARE LONG CONSTANT AI$S_AIDEF = 8 record AIDEF BYTE AI$B_ARG_COUNT4 ! per arg type info for up to 8 arguments ! must be zero~ BYTE ARG_REG_INFO_bits ( 7 ) ! COMMENT ADDED BY SDL - ARG_REG_INFO_bits contains bits ARG_REG_INFO through ARG_MBZ2 end record AIDEF  wwFK  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED G( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINHG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > I %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +; ! PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS ! 5 ! This definition file provides PSL$xxxx symbols: ! strictly for the purpose of providing compatibility9 ! for code bein Jg ported from VAX which refers to the9 ! fields of the PSL. Only those fields that exist in& ! both architectures are defined. ! 8 ! The preferred approach for code that DOES NOT run9 ! on VAX is to use the symbols defined by the $PRDEF ! macro instead. ! -6 DECLARE LONG CONSTANT PSL$M_PRVMOD = x'00000003'6 DECLARE LONG CONSTANT PSL$M_CURMOD = x'00000018'3 DECLARE LONG CONSTANT PSL$M_IPL = x'00001F00'5 DECLARE LONG CONSTANT PSL$V_MAX_PS K_REG_BIT = 13 ! < DECLARE LONG CONSTANT PSL$C_KERNEL = 0 ! Kernel Mode= DECLARE LONG CONSTANT PSL$C_EXEC = 1 ! Executive Mode@ DECLARE LONG CONSTANT PSL$C_SUPER = 2 ! Supervisor Mode 8 DECLARE LONG CONSTANT PSL$C_USER = 3 ! User Mode, DECLARE LONG CONSTANT PSL$S_PSLDEF = 2 record PSLDEF variant case& group PSL$R_PSLDEF_BITS- ! Previous Processor Mode, ! Current Processor Mode. ! Interrupt Priority Levelo WORD PRVMOD_bits ! COMMENT ADDED BY SDL - PRVMOD_bits contains bits PRVMOD through FILL_89_* end group PSL$R_PSLDEF_BITS ! 2 ! Maximum bit number used in the PS register !  ! MODE SYMBOL DEFINITIONS !  end variant end record PSLDEF  ww1$PSIGDEFE$PSLDEFR  $PSMMSGDEFM$PTDDEF$QSRVDEFT$QUIDEF $RABDEFF$RBLDDEF$REGDEF_ $REGMSGS $RMEDEF$RMIDEF{ $RMSDEF $RNHBLKDEF$RSDMDEF $S2DGBDEF$SBKDEFX $SCRDEF$SDBDEF#$SDDEF$SDFDEFN  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED O( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINPG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > Q %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! @ ! Pseudo terminal driver notification AST type definitions. ! ! N.B.H ! These definitions are in a specific order and must not be changed: ! without matching changes to F RTUCBDEF, and FTDRIVER. !  ! -L DECLARE LONG CONSTANT PTD$C_SEND_XON = 0 ! Enable or disable XON ASTN DECLARE LONG CONSTANT PTD$C_SEND_BELL = 1 ! Enable or disable BELL ASTN DECLARE LONG CONSTANT PTD$C_SEND_XOFF = 2 ! Enable or disable XOFF ASTW DECLARE LONG CONSTANT PTD$C_STOP_OUTPUT = 3 ! Enable or disable stop output AST[ DECLARE LONG CONSTANT PTD$C_RESUME_OUTPUT = 4 ! Enable or disable resume output ASTc DECLARE LONG CONSTANT PTD$C_CHAR_CHASNGED = 5 ! Enable or disable characteristics change ASTY DECLARE LONG CONSTANT PTD$C_ABORT_OUTPUT = 6 ! Enable or disable abort output ASTU DECLARE LONG CONSTANT PTD$C_START_READ = 7 ! Enable or disable start read ASTW DECLARE LONG CONSTANT PTD$C_MIDDLE_READ = 8 ! Enable or disable middle read ASTQ DECLARE LONG CONSTANT PTD$C_END_READ = 9 ! Enable or disable end read ASTG DECLARE LONG CONSTANT PTD$C_ENABLE_READ = 10 ! Enable read ASTsI DECLARE LONG CONSTANT PTD$C_DISABLE_READ = 11 ! Disable read ASTs1 DECLARE LONG CONSTANT PTD$C_MAX_EVENTS = 12wwUp  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED V( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINWG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > X %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ; ! Get Queue Information Service ($GETQUI) definitions. ! Y ! NOTE: New items must always be added at the end so users will not have to relink. ! L ! NOTE: Update [VMSLIB.SRC]QUITA YBLE.MAR to reflect changes in $QUIDEF. !  !  ! Function codes ! U DECLARE LONG CONSTANT QUI$_CANCEL_OPERATION = 1 ! Cancel a wildcard operation` DECLARE LONG CONSTANT QUI$_DISPLAY_CHARACTERISTIC = 2 ! Return characteristic attributesL DECLARE LONG CONSTANT QUI$_DISPLAY_FILE = 3 ! Return file attributesL DECLARE LONG CONSTANT QUI$_DISPLAY_FORM = 4 ! Return form attributesJ DECLARE LONG CONSTANT QUI$_DISPLAY_JOB = 5 ! Return job attributesNZ DECLARE LONG CONSTANT QUI$_DISPLAY_QUEUE = 6 ! Return queue attributesZ DECLARE LONG CONSTANT QUI$_TRANSLATE_QUEUE = 7 ! Validate and translate queue name DECLARE LONG CONSTANT QUI$_DISPLAY_ENTRY = 8 ! Return entry (job) attributes (without first having to establish queue & ! context)x DECLARE LONG CONSTANT QUI$_DISPLAY_QMAN = 9 ! Reserved for Digital (used by job control to get qman information)Y DECLARE LONG CONSTANT QUI$_DISPLAY_MANAGER = 10 ! Return que [ue manager attributesO DECLARE LONG CONSTANT QUI$K_MIN_FUNC = 1 ! Minimum GETQUI function codeP DECLARE LONG CONSTANT QUI$K_MAX_FUNC = 10 ! Maximum GETQUI function code !  ! Item codes ! S DECLARE LONG CONSTANT QUI$_ACCOUNT_NAME = 1 ! Job: Submitter's account nameD DECLARE LONG CONSTANT QUI$_AFTER_TIME = 2 ! Job: /AFTER=timeW DECLARE LONG CONSTANT QUI$_ASSIGNED_QUEUE_NAME = 3 ! Queue: ASSIGN/QUEUE targetN DECLARE LONG CONSTANT QUI$_BAS\E_PRIORITY = 4 ! Queue: /BASE_PRIORITY=nQ DECLARE LONG CONSTANT QUI$_CHARACTERISTIC_NAME = 5 ! Characteristic: NameU DECLARE LONG CONSTANT QUI$_CHARACTERISTIC_NUMBER = 6 ! Characteristic: Number] DECLARE LONG CONSTANT QUI$_CHARACTERISTICS = 7 ! Job, queue: /CHARACTERISTICS=(c,...)M DECLARE LONG CONSTANT QUI$_CHECKPOINT_DATA = 8 ! Job: Checkpoint dataA DECLARE LONG CONSTANT QUI$_CLI = 9 ! Job: /CLI=filenamee DECLARE LONG CONSTANT QUI$_COMPLETED_BLO]CKS = 10 ! Job: Completed blocks including checkpointQ DECLARE LONG CONSTANT QUI$_CONDITION_VECTOR = 11 ! Job: Completion statusJ DECLARE LONG CONSTANT QUI$_CPU_DEFAULT = 12 ! Queue: /CPUDEFAULT=tM DECLARE LONG CONSTANT QUI$_CPU_LIMIT = 13 ! Job, queue: /CPUMAXIMUM=tG DECLARE LONG CONSTANT QUI$_DEVICE_NAME = 14 ! Queue: /ON=deviceH DECLARE LONG CONSTANT QUI$_ENTRY_NUMBER = 15 ! Job: Entry numberE DECLARE LONG CONSTANT QUI$_FILE_COPIES = 16 ! File: ^/COPIES=np DECLARE LONG CONSTANT QUI$_FILE_COPIES_CHKPT = 17 ! File: File copies checkpoint (for internal use only)Y ! (note this item code is intentionally not documented and reserved for Digital use)V DECLARE LONG CONSTANT QUI$_FILE_COPIES_DONE = 18 ! File: File copies completedN DECLARE LONG CONSTANT QUI$_FILE_FLAGS = 19 ! File: Boolean informationV DECLARE LONG CONSTANT QUI$_FILE_SETUP_MODULES = 20 ! File: /SETUP=(module,...)Z DECLARE LONG CONSTANT QUI$__FILE_SPECIFICATION = 21 ! File: Full file specificationN DECLARE LONG CONSTANT QUI$_FILE_STATUS = 22 ! File: Status informationH DECLARE LONG CONSTANT QUI$_FIRST_PAGE = 23 ! File: /PAGES=(n,"")T DECLARE LONG CONSTANT QUI$_FORM_DESCRIPTION = 24 ! Form: /DESCRIPTION=stringN DECLARE LONG CONSTANT QUI$_FORM_FLAGS = 25 ! Form: Boolean informationE DECLARE LONG CONSTANT QUI$_FORM_LENGTH = 26 ! Form: /LENGTH=nS DECLARE LONG CONSTANT QUI$_FORM_MARGIN_BOTTOM = `27 ! Form: /MARGIN=BOTTOM=nO DECLARE LONG CONSTANT QUI$_FORM_MARGIN_LEFT = 28 ! Form: /MARGIN=LEFT=nQ DECLARE LONG CONSTANT QUI$_FORM_MARGIN_RIGHT = 29 ! Form: /MARGIN=RIGHT=nM DECLARE LONG CONSTANT QUI$_FORM_MARGIN_TOP = 30 ! Form: /MARGIN=TOP=nO DECLARE LONG CONSTANT QUI$_FORM_NAME = 31 ! Form, job, queue: Form nameB DECLARE LONG CONSTANT QUI$_FORM_NUMBER = 32 ! Form: NumberV DECLARE LONG CONSTANT QUI$_FORM_SETUP_MODULES = 33 ! Form: /SETUP=(modaule,...)L DECLARE LONG CONSTANT QUI$_FORM_STOCK = 34 ! Form: /STOCK=stock-nameC DECLARE LONG CONSTANT QUI$_FORM_WIDTH = 35 ! Form: /WIDTH=nY DECLARE LONG CONSTANT QUI$_GENERIC_TARGET = 36 ! Queue: /GENERIC=(queue-name,...)\ DECLARE LONG CONSTANT QUI$_INTERVENING_BLOCKS = 37 ! Job: Intervening pending blocksX DECLARE LONG CONSTANT QUI$_INTERVENING_JOBS = 38 ! Job: Intervening pending jobsF DECLARE LONG CONSTANT QUI$_JOB_COPIES = 39 ! Job: /JOB_COUNT=nmb DECLARE LONG CONSTANT QUI$_JOB_COPIES_CHKPT = 40 ! Job: Job copies checkpoint (for internal use only)Y ! (note this item code is intentionally not documented and reserved for Digital use)S DECLARE LONG CONSTANT QUI$_JOB_COPIES_DONE = 41 ! Job: Job copies completedL DECLARE LONG CONSTANT QUI$_JOB_FLAGS = 42 ! Job: Boolean informationG DECLARE LONG CONSTANT QUI$_JOB_LIMIT = 43 ! Queue: /JOB_LIMIT=n< DECLARE LONG CONSTANT QUI$_JOB_NAME = 44 ! Job: Name_ c DECLARE LONG CONSTANT QUI$_JOB_RESET_MODULES = 45 ! Queue: /SEPARATE=RESET=(module,...)K DECLARE LONG CONSTANT QUI$_JOB_SIZE = 46 ! Job: Total blocks in jobP DECLARE LONG CONSTANT QUI$_JOB_SIZE_MAXIMUM = 47 ! Queue: /BLOCK_LIMIT=nU DECLARE LONG CONSTANT QUI$_JOB_SIZE_MINIMUM = 48 ! Queue: /BLOCK_LIMIT=(n,"")L DECLARE LONG CONSTANT QUI$_JOB_STATUS = 49 ! Job: Status informationB DECLARE LONG CONSTANT QUI$_LAST_PAGE = 50 ! File: /PAGES=nb DECLARE LOdNG CONSTANT QUI$_LIBRARY_SPECIFICATION = 51 ! Queue: /LIBRARY=file-specificationL DECLARE LONG CONSTANT QUI$_LOG_QUEUE = 52 ! Job: /PRINTER=queue-name] DECLARE LONG CONSTANT QUI$_LOG_SPECIFICATION = 53 ! Job: /LOG_FILE=file-specification@ DECLARE LONG CONSTANT QUI$_NOTE = 54 ! Job: /NOTE=stringP DECLARE LONG CONSTANT QUI$_OPERATOR_REQUEST = 55 ! Job: /OPERATOR=stringE DECLARE LONG CONSTANT QUI$_OWNER_UIC = 56 ! Queue: /OWNER=uic[ DECLARE LONG CONSTANT eQUI$_PAGE_SETUP_MODULES = 57 ! Form: /PAGE_SETUP=(module,...)L DECLARE LONG CONSTANT QUI$_PARAMETER_1 = 58 ! Job: /PARAMETER=string1 DECLARE LONG CONSTANT QUI$_PARAMETER_2 = 591 DECLARE LONG CONSTANT QUI$_PARAMETER_3 = 601 DECLARE LONG CONSTANT QUI$_PARAMETER_4 = 611 DECLARE LONG CONSTANT QUI$_PARAMETER_5 = 621 DECLARE LONG CONSTANT QUI$_PARAMETER_6 = 631 DECLARE LONG CONSTANT QUI$_PARAMETER_7 = 641 DECLARE LONG CONSTANT QUI$_PARAMETER_8 = 65fC DECLARE LONG CONSTANT QUI$_PRIORITY = 66 ! Job: /PRIORITY=nN DECLARE LONG CONSTANT QUI$_PROCESSOR = 67 ! Queue: /PROCESSOR=filenameL DECLARE LONG CONSTANT QUI$_PROTECTION = 68 ! Queue: /PROTECTION=maskP DECLARE LONG CONSTANT QUI$_QUEUE_FLAGS = 69 ! Queue: Boolean informationK DECLARE LONG CONSTANT QUI$_QUEUE_NAME = 70 ! Job, queue: Queue nameP DECLARE LONG CONSTANT QUI$_QUEUE_STATUS = 71 ! Queue: Status informationq DECLARE LONG CONSTANT QUI$_RgEFUSAL_REASON = 72 ! Job: Reason symbiont refused job (for internal use only)Y ! (note this item code is intentionally not documented and reserved for Digital use)n DECLARE LONG CONSTANT QUI$_REQUEUE_PRIORITY = 73 ! Job: Priority after requeue (for internal use only)Y ! (note this item code is intentionally not documented and reserved for Digital use)U DECLARE LONG CONSTANT QUI$_REQUEUE_QUEUE_NAME = 74 ! Job: Queue after requeueH DECLARE LONG CONSTANT QUI$_SCSNODEh_NAME = 75 ! Queue: /ON=node::N DECLARE LONG CONSTANT QUI$_SEARCH_FLAGS = 76 ! Flags to control searchP DECLARE LONG CONSTANT QUI$_SEARCH_NAME = 77 ! Object name to search for S DECLARE LONG CONSTANT QUI$_SEARCH_NUMBER = 78 ! Object number to search forN DECLARE LONG CONSTANT QUI$_SUBMISSION_TIME = 79 ! Job: Submission timeC DECLARE LONG CONSTANT QUI$_UIC = 80 ! Job: Submitter's UICL DECLARE LONG CONSTANT QUI$_USERNAME = 81 ! Job: Submitter's usernaimeL DECLARE LONG CONSTANT QUI$_WSDEFAULT = 82 ! Job, queue: /WSDEFAULT=nJ DECLARE LONG CONSTANT QUI$_WSEXTENT = 83 ! Job, queue: /WSEXTENT=nH DECLARE LONG CONSTANT QUI$_WSQUOTA = 84 ! Job, queue: /WSQUOTA=nQ DECLARE LONG CONSTANT QUI$_RAD = 85 ! RAD assigned to queue or batch jobg DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_86 = 86 ! Reserved for Digital use (name may change)w DECLARE LONG CONSTANT QUI$_JOB_CONTROL_GQC = 87 ! Reserved for Digital (Use jto send GQC to job control process)c DECLARE LONG CONSTANT QUI$_SEARCH_USERNAME = 88 ! Username of owner of job to modify searchV DECLARE LONG CONSTANT QUI$_DEFAULT_FORM_NAME = 89 ! Default form name on queueZ DECLARE LONG CONSTANT QUI$_DEFAULT_FORM_NUMBER = 90 ! Default form number on queueY DECLARE LONG CONSTANT QUI$_DEFAULT_FORM_STOCK = 91 ! Stock name for default form B DECLARE LONG CONSTANT QUI$_JOB_PID = 92 ! Pid of batch jobf DECLARE LONG CONSTANkT QUI$_FILE_IDENTIFICATION = 93 ! File identification (From RMS NAM block)m DECLARE LONG CONSTANT QUI$_PENDING_JOB_BLOCK_COUNT = 94 ! Total number of blocks for all pending jobs~ DECLARE LONG CONSTANT QUI$_JOB_RETENTION_TIME = 95 ! The amount of time the job should be retained (may be delta or & ! absolute)b DECLARE LONG CONSTANT QUI$_JOB_COMPLETION_TIME = 96 ! The time the job completed executions DECLARE LONG CONSTANT QUI$_JOB_COMPLETION_QUEUE = 97 ! The name ofl the queue the job completed execution ong DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_98 = 98 ! Reserved for Digital use (name may change)g DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_99 = 99 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_100 = 100 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_101 = 101 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RmESERVED_OUTPUT_102 = 102 ! Reserved for Digital use (name may change)Y DECLARE LONG CONSTANT QUI$_SEARCH_BATCH_EPID = 103 ! Batch job EPID to search forQ DECLARE LONG CONSTANT QUI$_SEARCH_JOB_NAME = 104 ! Job name to search forh DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_105 = 105 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_106 = 106 ! Reserved for Digital use (name may change)` DECLARE LONG CONSTANT QUI$_EXECUTING_JnOB_COUNT = 107 ! Number of jobs that are executingS DECLARE LONG CONSTANT QUI$_HOLDING_JOB_COUNT = 108 ! Number of holding jobsl DECLARE LONG CONSTANT QUI$_TIMED_RELEASE_JOB_COUNT = 109 ! Number of jobs specified with /AFTER_TIMEl DECLARE LONG CONSTANT QUI$_PENDING_JOB_REASON = 110 ! Secondary status describing why job is pendingE DECLARE LONG CONSTANT QUI$_ORB = 111 ! ORB data in TLV formatY ! (note this item code is intentionally not documented and reserved foor Digital use)P DECLARE LONG CONSTANT QUI$_QUEUE_DESCRIPTION = 112 ! Queue: /DESCRIPTIONn DECLARE LONG CONSTANT QUI$_SYMBIONT_FLAGS = 113 ! Symbiont options (requests) passed to job controllerY ! (note this item code is intentionally not documented and reserved for Digital use)p DECLARE LONG CONSTANT QUI$_JOB_ACCESS_CLASS = 114 ! Job access class information (for internal use only)Y ! (note this item code is intentionally not documented and reserved for Digital usep) DECLARE LONG CONSTANT QUI$_ORB_LOCK_KEY = 115 ! Key value for locking of in-memory ORB data structure (for internal use & ! only)Y ! (note this item code is intentionally not documented and reserved for Digital use)z DECLARE LONG CONSTANT QUI$_CHECKPOINT_FREQUENCY = 116 ! Number of pages in interval at which symbiont takes chkptsS DECLARE LONG CONSTANT QUI$_PENDING_JOB_COUNT = 117 ! Number of pending jobsU DECLARE LONG CONSTANT QUI$_RETAINED_JOB_COUNT = 118 q ! Number of retained jobs DECLARE LONG CONSTANT QUI$_RESTART_QUEUE_NAME = 119 ! Name of queue into which a job would be restarted, if appropriateK DECLARE LONG CONSTANT QUI$_FILE_COUNT = 120 ! Count of files in job} DECLARE LONG CONSTANT QUI$_ATTRIBUTES = 121 ! Keywds and values of extens attribs associated with queue, job, or file DECLARE LONG CONSTANT QUI$_ATTRIBUTES_SIZE = 122 ! Length of list of extens attribs associated with queue, job, or filec DECLrARE LONG CONSTANT QUI$_QUEUE_SUPPORT = 123 ! Queue Support Images defined on this queuen DECLARE LONG CONSTANT QUI$_QUEUE_ATTRIBUTES = 124 ! Valid keywords for operations that alter the queue} DECLARE LONG CONSTANT QUI$_QUEUE_ATTRIBUTES_SIZE = 125 ! Length of list of keywords for queue-oriented extens attribsq DECLARE LONG CONSTANT QUI$_JOB_ATTRIBUTES = 126 ! Valid keywords for operations that create or alter jobsy DECLARE LONG CONSTANT QUI$_JOB_ATTRIBUTES_SIZE = 127s ! Length of list of keywords for job-oriented extens attribsn DECLARE LONG CONSTANT QUI$_FILE_ATTRIBUTES = 128 ! Valid keywords for file submissions or alter_file's{ DECLARE LONG CONSTANT QUI$_FILE_ATTRIBUTES_SIZE = 129 ! Length of list of keywords for file-oriented extens attribs DECLARE LONG CONSTANT QUI$_AUTOSTART_ON = 130 ! Node(s) (and for print queues, device(s)) on which queue can be auto & ! startedM DECLARE LONG CONSTANT QUI$_AGENT_PROFILE = 131 ! Secturity informationJ DECLARE LONG CONSTANT QUI$_MANAGER_NAME = 132 ! Queue manager named DECLARE LONG CONSTANT QUI$_MANAGER_STATUS = 133 ! Queue manager state and status informationi DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_134 = 134 ! Reserved for Digital use (name may change)o DECLARE LONG CONSTANT QUI$_MANAGER_NODES = 135 ! Preferred node listed specified on start queue managere DECLARE LONG CONSTANT QUI$_MANAGER_AUTOSTART = 136 ! List of nodes that are auutostart enabledz DECLARE LONG CONSTANT QUI$_QUEUE_DIRECTORY = 137 ! Directory specification provided when queue manager was startedi DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_138 = 138 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_139 = 139 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_140 = 140 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVEvD_OUTPUT_141 = 141 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_142 = 142 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_143 = 143 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_144 = 144 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_145 = 145 ! Reserved for Digital use (name may change)i wDECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_146 = 146 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_147 = 147 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_148 = 148 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_149 = 149 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_150 = 150 ! Reserved for Digixtal use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_151 = 151 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_152 = 152 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_153 = 153 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_154 = 154 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPyUT_155 = 155 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_156 = 156 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_157 = 157 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_158 = 158 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_159 = 159 ! Reserved for Digital use (name may change)h DECLARzE LONG CONSTANT QUI$_RESERVED_INPUT_160 = 160 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_161 = 161 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_162 = 162 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_163 = 163 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_164 = 164 ! Reserved for Digital use (name m {ay change)h DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_165 = 165 ! Reserved for Digital use (name may change)K DECLARE LONG CONSTANT QUI$K_MIN_ITEM = 1 ! Minimum GETQUI item codeM DECLARE LONG CONSTANT QUI$K_MAX_ITEM = 165 ! Maximum GETQUI item codeR DECLARE LONG CONSTANT QUI$_CHARGE_CODE = 1 ! synonym for QUI$_ACCOUNT_NAME ! ) ! Subfields of FILE_FLAGS item code. ! : DECLARE LONG CONSTANT QUI$M_FILE_BURST = x'00000001'> DECLARE LONG CONSTAN |T QUI$M_FILE_BURST_EXP = x'00000002'; DECLARE LONG CONSTANT QUI$M_FILE_DELETE = x'00000004'A DECLARE LONG CONSTANT QUI$M_FILE_DOUBLE_SPACE = x'00000008'9 DECLARE LONG CONSTANT QUI$M_FILE_FLAG = x'00000010'= DECLARE LONG CONSTANT QUI$M_FILE_FLAG_EXP = x'00000020'< DECLARE LONG CONSTANT QUI$M_FILE_TRAILER = x'00000040'@ DECLARE LONG CONSTANT QUI$M_FILE_TRAILER_EXP = x'00000080'@ DECLARE LONG CONSTANT QUI$M_FILE_PAGE_HEADER = x'00000100'= DECLARE LONG C }ONSTANT QUI$M_FILE_PAGINATE = x'00000200'< DECLARE LONG CONSTANT QUI$M_FILE_PASSALL = x'00000400'A DECLARE LONG CONSTANT QUI$M_FILE_PAGINATE_EXP = x'00000800'B DECLARE LONG CONSTANT QUI$M_FILE_DELETE_ALWAYS = x'00001000'0 DECLARE LONG CONSTANT QUI$S_FILE_FLAGS = 4 record FILE_FLAGS ! /BURST? ! /[NO]BURST explicit (intentionally not documented) ! /DELETE ! /SPACE ! /FLAG> ! /[NO]FLAG explicit (int~entionally not documented) ! /TRAILERA ! /[NO]TRAILER explicit (intentionally not documented) ! /HEADER ! /FEED ! /PASSALL> ! /[NO]FEED explicit (intentionally not documented) ! /DELETE_ALWAYSp LONG FILE_BURST_bits ! COMMENT ADDED BY SDL - FILE_BURST_bits contains bits FILE_BURST through filler end record FILE_FLAGS  ! * ! Subfields of FILE_STATUS item code. ! A DECLARE LONG CONSTANT QUI$M_FILE_CHECKPOINTED = x'00000001'> DECLARE LONG CONSTANT QUI$M_FILE_EXECUTING = x'00000002'1 DECLARE LONG CONSTANT QUI$S_FILE_STATUS = 4 record FILE_STATUS ! File checkpointed% ! File currently executing LONG FILE_CHECKPOINTED_bits ! COMMENT ADDED BY SDL - FILE_CHECKPOINTED_bits contains bits FILE_CHECKPOINTED through & ! filler end record FILE_STATUS  ! ) ! Subfields of FORM_FLAGS item code. ! ?  DECLARE LONG CONSTANT QUI$M_FORM_SHEET_FEED = x'00000001'= DECLARE LONG CONSTANT QUI$M_FORM_TRUNCATE = x'00000002'9 DECLARE LONG CONSTANT QUI$M_FORM_WRAP = x'00000004'0 DECLARE LONG CONSTANT QUI$S_FORM_FLAGS = 4 record FORM_FLAGS ! /SHEET_FEED ! /TRUNCATE ! /WRAP LONG FORM_SHEET_FEED_bits ! COMMENT ADDED BY SDL - FORM_SHEET_FEED_bits contains bits FORM_SHEET_FEED through filler end record FORM_FLAGS  ! ( ! Subfields of JOB_FLAGS item code. ! = DECLARE LONG CONSTANT QUI$M_JOB_CPU_LIMIT = x'00000001'> DECLARE LONG CONSTANT QUI$M_JOB_FILE_BURST = x'00000002'B DECLARE LONG CONSTANT QUI$M_JOB_FILE_BURST_ONE = x'00000004'B DECLARE LONG CONSTANT QUI$M_JOB_FILE_BURST_EXP = x'00000008'= DECLARE LONG CONSTANT QUI$M_JOB_FILE_FLAG = x'00000010'A DECLARE LONG CONSTANT QUI$M_JOB_FILE_FLAG_ONE = x'00000020'A DECLARE LONG CONSTANT QUI$M_JOB_FILE_FLAG_EXP = x' 00000040'@ DECLARE LONG CONSTANT QUI$M_JOB_FILE_TRAILER = x'00000080'D DECLARE LONG CONSTANT QUI$M_JOB_FILE_TRAILER_ONE = x'00000100'D DECLARE LONG CONSTANT QUI$M_JOB_FILE_TRAILER_EXP = x'00000200'> DECLARE LONG CONSTANT QUI$M_JOB_LOG_DELETE = x'00000400'< DECLARE LONG CONSTANT QUI$M_JOB_LOG_NULL = x'00000800'= DECLARE LONG CONSTANT QUI$M_JOB_LOG_SPOOL = x'00001000'= DECLARE LONG CONSTANT QUI$M_JOB_LOWERCASE = x'00002000': DECLARE LONG CONSTANT QUI$M_ JOB_NOTIFY = x'00004000'; DECLARE LONG CONSTANT QUI$M_JOB_RESTART = x'00008000'= DECLARE LONG CONSTANT QUI$M_JOB_WSDEFAULT = x'00010000'< DECLARE LONG CONSTANT QUI$M_JOB_WSEXTENT = x'00020000'; DECLARE LONG CONSTANT QUI$M_JOB_WSQUOTA = x'00040000'A DECLARE LONG CONSTANT QUI$M_JOB_FILE_PAGINATE = x'00080000'E DECLARE LONG CONSTANT QUI$M_JOB_FILE_PAGINATE_EXP = x'00100000'= DECLARE LONG CONSTANT QUI$M_JOB_RETENTION = x'00200000'C DECLARE LONG CONSTANT QUI$M_JOB_ERROR_RETENTION = x'00400000'7 DECLARE LONG CONSTANT QUI$M_JOB_RAD = x'00800000'/ DECLARE LONG CONSTANT QUI$S_JOB_FLAGS = 4 record JOB_FLAGS ! /CPUTIME explicit ! /BURST=ALL ! /BURST=ONE? ! /[NO]BURST explicit (intentionally not documented) ! /FLAG=ALL ! /FLAG=ONE> ! /[NO]FLAG explicit (intentionally not documented) ! /TRAILER=ALL ! /TRAILER=ONEA !  /[NO]TRAILER explicit (intentionally not documented) ! /NOKEEP ! /NOLOG_FILE ! /PRINTER ! /LOWERCASE ! /NOTIFY ! /RESTART ! /WSDEFAULT explicit ! /WSEXTENT explicit ! /WSQUOTA explicit ! /FEED> ! /[NO]FEED explicit (intentionally not documented) ! /RETAIN=ALWAYS ! /RETAIN=ERROR ! /RAD explicity LONG JOB_CPU_LIMIT_bits !  COMMENT ADDED BY SDL - JOB_CPU_LIMIT_bits contains bits JOB_CPU_LIMIT through filler end record JOB_FLAGS  ! ) ! Subfields of JOB_STATUS item code. ! < DECLARE LONG CONSTANT QUI$M_JOB_ABORTING = x'00000001'= DECLARE LONG CONSTANT QUI$M_JOB_EXECUTING = x'00000002'; DECLARE LONG CONSTANT QUI$M_JOB_HOLDING = x'00000004'@ DECLARE LONG CONSTANT QUI$M_JOB_INACCESSIBLE = x'00000008'; DECLARE LONG CONSTANT QUI$M_JOB_REFUSED = x'00000010'; DE CLARE LONG CONSTANT QUI$M_JOB_REQUEUE = x'00000020'> DECLARE LONG CONSTANT QUI$M_JOB_RESTARTING = x'00000040'< DECLARE LONG CONSTANT QUI$M_JOB_RETAINED = x'00000080'< DECLARE LONG CONSTANT QUI$M_JOB_STARTING = x'00000100'A DECLARE LONG CONSTANT QUI$M_JOB_TIMED_RELEASE = x'00000200'= DECLARE LONG CONSTANT QUI$M_JOB_SUSPENDED = x'00000400'; DECLARE LONG CONSTANT QUI$M_JOB_PENDING = x'00000800'= DECLARE LONG CONSTANT QUI$M_JOB_UNDEFINED = x'00001000'; DECLARE LONG CONSTANT QUI$M_JOB_STALLED = x'00002000'> DECLARE LONG CONSTANT QUI$M_JOB_INCOMPLETE = x'00004000'> DECLARE LONG CONSTANT QUI$M_JOB_COMPLETING = x'00008000'0 DECLARE LONG CONSTANT QUI$S_JOB_STATUS = 4 record JOB_STATUS ! Job is aborting ! Job is executing% ! Job is holding for /HOLD ! Job is inaccessible( ! Job was refused by symbiontH ! Job will requeue after abort (intentionally not documen ted)O ! Job started execution at least once (intentionally not documented)( ! Job was retained by /RETAIN ! Job is starting& ! Job is holding for /AFTER3 ! Job is suspended by STOP/QUEUE commandN ! Job is pending (see QUI$_JOB_PENDING_REASON for more information)E ! Job does not yet exist in db or is being removed from db) ! Current job on stalled queueR ! Job was processed by the symbiont but furth er processing is necessary. ! Job has been completely processedv LONG JOB_ABORTING_bits ! COMMENT ADDED BY SDL - JOB_ABORTING_bits contains bits JOB_ABORTING through filler end record JOB_STATUS l DECLARE LONG CONSTANT QUI$V_JOB_TIMED = 9 ! Synonym for QUI$V_JOB_TIMED_RELEASE for V4 compatibilityn DECLARE LONG CONSTANT QUI$M_JOB_TIMED = 512 ! 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 resides, or to the set of & ! executionM ! queues that is the target of the generic queue in which a job resides. ! B DECLARE LONG CONSTANT QUI$M_PEND_CHAR_MISMATCH = x'00000001'A DECLARE LONG CONSTANT QUI$M_PEND_JOB_SIZE_MAX = x'00000002'A DECLARE LONG CONSTANT QUI$M_PEND_JOB_SIZE_MIN = x'00000004'G DECLARE LONG CONSTANT QUI$M_PEND_LOWERCASE_MISMATCH = x'000000 08'> DECLARE LONG CONSTANT QUI$M_PEND_NO_ACCESS = x'00000010'? DECLARE LONG CONSTANT QUI$M_PEND_QUEUE_BUSY = x'00000020'@ DECLARE LONG CONSTANT QUI$M_PEND_QUEUE_STATE = x'00000040'C DECLARE LONG CONSTANT QUI$M_PEND_STOCK_MISMATCH = x'00000080'8 DECLARE LONG CONSTANT QUI$S_PENDING_JOB_REASON = 4 record PENDING_JOB_REASOND ! Queue's characteristics do not match job's requirementsU ! Print job's block size is too large to execute on queue (print job only)U ! Print job's block size is too small to execute on queue (print job only)[ ! Queue's lowercase attribute does not match job's requirements (print job only)/ ! User does not have access to queue\ ! Job is ready to execute but must wait until other jobs ahead of it in the queueU ! complete execution (this is a normal state that requires no user intervention)Z ! Queue state prevents job from executing (see QUI$_QUEUE_STATUS for more info)P ! Stock type of mounted form on output execution queue does not matchM ! stock stock type required by form associated with job (print job only) LONG PEND_CHAR_MISMATCH_bits ! COMMENT ADDED BY SDL - PEND_CHAR_MISMATCH_bits contains bits PEND_CHAR_MISMATCH through & ! filler# end record PENDING_JOB_REASON  ! * ! Subfields of QUEUE_FLAGS item code. ! ; DECLARE LONG CONSTANT QUI$M_QUEUE_BATCH = x'00000001'A DECLARE LONG CONSTANT QUI$M_QUEUE_CPU_DEFAULT = x'00000002'? DECLARE LONG CONSTANT QUI$M_QUEUE_CPU_LIMIT = x'00000004'@ DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_BURST = x'00000008'D DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_BURST_ONE = x'00000010'? DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_FLAG = x'00000020'C DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_FLAG_ONE = x'00000040'B DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_TRAILER = x'00000080'F DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_TRA ILER_ONE = x'00000100'= DECLARE LONG CONSTANT QUI$M_QUEUE_GENERIC = x'00000200'G DECLARE LONG CONSTANT QUI$M_QUEUE_GENERIC_SELECTION = x'00000400'? DECLARE LONG CONSTANT QUI$M_QUEUE_JOB_BURST = x'00000800'> DECLARE LONG CONSTANT QUI$M_QUEUE_JOB_FLAG = x'00001000'D DECLARE LONG CONSTANT QUI$M_QUEUE_JOB_SIZE_SCHED = x'00002000'A DECLARE LONG CONSTANT QUI$M_QUEUE_JOB_TRAILER = x'00004000'@ DECLARE LONG CONSTANT QUI$M_QUEUE_RETAIN_ALL = x'00008000'B DECLARE LONG CONSTANT QUI$M_QUEUE_RETAIN_ERROR = x'00010000': DECLARE LONG CONSTANT QUI$M_QUEUE_SWAP = x'00020000'> DECLARE LONG CONSTANT QUI$M_QUEUE_TERMINAL = x'00040000'? DECLARE LONG CONSTANT QUI$M_QUEUE_WSDEFAULT = x'00080000'> DECLARE LONG CONSTANT QUI$M_QUEUE_WSEXTENT = x'00100000'= DECLARE LONG CONSTANT QUI$M_QUEUE_WSQUOTA = x'00200000'C DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_PAGINATE = x'00400000'E DECLARE LONG CONSTANT QUI$M_QUEUE_RECORD_BLOCKING = x' 00800000'= DECLARE LONG CONSTANT QUI$M_QUEUE_PRINTER = x'01000000'C DECLARE LONG CONSTANT QUI$M_QUEUE_ACL_SPECIFIED = x'02000000'I DECLARE LONG CONSTANT QUI$M_QUEUE_NOTIFY_ON_INTERRUPT = x'04000000'E DECLARE LONG CONSTANT QUI$M_QUEUE_CHECKPOINT_FREQ = x'08000000'? DECLARE LONG CONSTANT QUI$M_QUEUE_AUTOSTART = x'10000000'E DECLARE LONG CONSTANT QUI$M_SECURITY_INACCESSIBLE = x'20000000'C DECLARE LONG CONSTANT QUI$M_QUEUE_NO_INITIAL_FF = x'40000000'9  DECLARE LONG CONSTANT QUI$M_QUEUE_RAD = x'80000000'1 DECLARE LONG CONSTANT QUI$S_QUEUE_FLAGS = 4 record QUEUE_FLAGS ! /BATCH" ! /CPUDEFAULT specified" ! /CPUMAXIMUM specified ! /DEFAULT=BURST=ALL ! /DEFAULT=BURST=ONE ! /DEFAULT=FLAG=ALL ! /DEFAULT=FLAG=ONE! ! /DEFAULT=TRAILER=ALL! ! /DEFAULT=TRAILER=ONE ! /GENERIC ! /ENABLE_GENERIC ! /SEPARATE=BURST ! /SEPARATE=FLAG  ! /SCHEDULE=SIZE ! /SEPARATE=TRAILER ! /RETAIN=ALL ! /RETAIN=ERROR ! /NODISABLE_SWAPPINGJ ! /DEVICE=TERMINAL or terminal device type reported by symbiont! ! /WSDEFAULT specified ! /WSEXTENT specified ! /WSQUOTA specified ! /DEFAULT=FEED ! /RECORD_BLOCKINGH ! /DEVICE=PRINTER or printer device type reported by symbiont-  ! ACL has been specified for queue! ! /NOTIFY=INTERRUPTION, ! /CHECKPOINT_FREQUENCY specified$ ! /AUTOSTART_ON specifiedC ! Requestor does not have access to security information ! /NO_INITIAL_FF  ! /RAD specifiedv LONG QUEUE_BATCH_bits ! COMMENT ADDED BY SDL - QUEUE_BATCH_bits contains bits QUEUE_BATCH through QUEUE_RAD end record QUEUE_FLAGS  ! + ! Subfields of QUEUE_STATUS item code.  ! > DECLARE LONG CONSTANT QUI$M_QUEUE_ALIGNING = x'00000001': DECLARE LONG CONSTANT QUI$M_QUEUE_IDLE = x'00000002'? DECLARE LONG CONSTANT QUI$M_QUEUE_LOWERCASE = x'00000004'F DECLARE LONG CONSTANT QUI$M_QUEUE_OPERATOR_REQUEST = x'00000008'< DECLARE LONG CONSTANT QUI$M_QUEUE_PAUSED = x'00000010'= DECLARE LONG CONSTANT QUI$M_QUEUE_PAUSING = x'00000020'< DECLARE LONG CONSTANT QUI$M_QUEUE_REMOTE = x'00000040'? DECLARE LONG CONSTANT QUI$M_QUEUE_RESETTIN G = x'00000080'> DECLARE LONG CONSTANT QUI$M_QUEUE_RESUMING = x'00000100'< DECLARE LONG CONSTANT QUI$M_QUEUE_SERVER = x'00000200'= DECLARE LONG CONSTANT QUI$M_QUEUE_STALLED = x'00000400'> DECLARE LONG CONSTANT QUI$M_QUEUE_STARTING = x'00000800'= DECLARE LONG CONSTANT QUI$M_QUEUE_STOPPED = x'00001000'> DECLARE LONG CONSTANT QUI$M_QUEUE_STOPPING = x'00002000'A DECLARE LONG CONSTANT QUI$M_QUEUE_UNAVAILABLE = x'00004000'< DECLARE LONG CONSTANT QUI$M_QUEU E_CLOSED = x'00008000': DECLARE LONG CONSTANT QUI$M_QUEUE_BUSY = x'00010000'? DECLARE LONG CONSTANT QUI$M_QUEUE_UNDEFINED = x'00020000'? DECLARE LONG CONSTANT QUI$M_QUEUE_AVAILABLE = x'00040000'> DECLARE LONG CONSTANT QUI$M_QUEUE_DISABLED = x'00080000'H DECLARE LONG CONSTANT QUI$M_QUEUE_AUTOSTART_INACTIVE = x'00100000'B DECLARE LONG CONSTANT QUI$M_QUEUE_STOP_PENDING = x'00200000'2 DECLARE LONG CONSTANT QUI$S_QUEUE_STATUS = 4 record QUEUE_STATUS  ! Queue is aligningO ! Queue is idle: no jobs executing and none available for execution ! Lowercase deviceD ! Queue is doing /OPERATOR (intentionally not documented) ! Queue is paused ! Queue is pausing ! Remote device; ! Incomplete remote request to reset (OBSOLETE)0 ! Queue is resuming from paused stateL ! /DEVICE=SERVER or reported to be a served queue by the symbiont ! D evice is stalled ! Queue is starting ! Queue is stopped ! Queue is stopping" ! Device is unavailable ! Queue is closedJ ! Queue is executing as many jobs as it is capable of executingG ! Queue does not yet exist in db or is being removed from dbV ! At least one job is executing, but the queue is capable of executing moreO ! Queue is not able to accept or process jobs; its QSIs are inactive/  ! AUTOSTART queue explicitly stoppedP ! Queue will be stopped when work currently in progress has completed| LONG QUEUE_ALIGNING_bits ! COMMENT ADDED BY SDL - QUEUE_ALIGNING_bits contains bits QUEUE_ALIGNING through filler end record QUEUE_STATUS  ! + ! Subfields of SEARCH_FLAGS item code. ! ? DECLARE LONG CONSTANT QUI$M_SEARCH_ALL_JOBS = x'00000001'? DECLARE LONG CONSTANT QUI$M_SEARCH_WILDCARD = x'00000002'< DECLARE LONG CON STANT QUI$M_SEARCH_BATCH = x'00000004'? DECLARE LONG CONSTANT QUI$M_SEARCH_SYMBIONT = x'00000008'? DECLARE LONG CONSTANT QUI$M_SEARCH_THIS_JOB = x'00000010'> DECLARE LONG CONSTANT QUI$M_SEARCH_PRINTER = x'00000020'= DECLARE LONG CONSTANT QUI$M_SEARCH_SERVER = x'00000040'? DECLARE LONG CONSTANT QUI$M_SEARCH_TERMINAL = x'00000080'> DECLARE LONG CONSTANT QUI$M_SEARCH_GENERIC = x'00000100'E DECLARE LONG CONSTANT QUI$M_SEARCH_GENERIC_TARGET = x'00000200'C  DECLARE LONG CONSTANT QUI$M_SEARCH_PENDING_JOBS = x'00000400'E DECLARE LONG CONSTANT QUI$M_SEARCH_EXECUTING_JOBS = x'00000800'I DECLARE LONG CONSTANT QUI$M_SEARCH_TIMED_RELEASE_JOBS = x'00001000'C DECLARE LONG CONSTANT QUI$M_SEARCH_HOLDING_JOBS = x'00002000'D DECLARE LONG CONSTANT QUI$M_SEARCH_RETAINED_JOBS = x'00004000'E DECLARE LONG CONSTANT QUI$M_SEARCH_FREEZE_CONTEXT = x'00008000'@ DECLARE LONG CONSTANT QUI$M_SEARCH_OPEN_JOBS = x'00010000'D DECLARE LONG CONSTANT QUI$M_SEARCH_RESERVED_BIT1 = x'00020000'D DECLARE LONG CONSTANT QUI$M_SEARCH_RESERVED_BIT2 = x'00040000'2 DECLARE LONG CONSTANT QUI$S_SEARCH_FLAGS = 4 record SEARCH_FLAGSK ! Select all jobs (else only those with same username as caller)' ! Force a wildcard operation ! Select batch queues[ ! Select symbiont (output) queues (note that QUI$V_SEARCH_SYMBIONT is equivalentW ! to setting QUI$V_SEARCH_PRINTER, QUI$V_SEARCH _SERVER, and QUI$V_SEARCH_TERMINAL)A ! Select only caller's batch job (forcing new context)" ! Select printer queues! ! Select server queues# ! Select terminal queues" ! Select generic queuesZ ! Select generic target queues after selecting generic queue (for internal use)Q ! (note this option is NOT supported; it is intentionally not documented and ! reserved for Digital use)% ! Select only pending jobs'  ! Select only executing jobs+ ! Select only timed release jobs% ! Select only holding jobs& ! Select only retained jobsW ! Do not advance wildcard context to next object in list at end of operation" ! Select only open jobs ! Reserved to Compaq ! Reserved to Compaq LONG SEARCH_ALL_JOBS_bits ! COMMENT ADDED BY SDL - SEARCH_ALL_JOBS_bits contains bits SEARCH_ALL_JOBS through filler end record S EARCH_FLAGS  ! - ! Subfields of SYMBIONT_FLAGS item code. ! Y ! Note: this item code is intentionally not documented and reserved for Digital use. ! < DECLARE LONG CONSTANT QUI$M_SYM_NOTIFIES = x'00000001'A DECLARE LONG CONSTANT QUI$M_SYM_REQUESTS_OPER = x'00000002'? DECLARE LONG CONSTANT QUI$M_SYM_COPIES_FILE = x'00000004'> DECLARE LONG CONSTANT QUI$M_SYM_COPIES_JOB = x'00000008'E DECLARE LONG CONSTANT QUI$M_SYM_ACCEPTS_ALL_FORMS = x'00 000010'E DECLARE LONG CONSTANT QUI$M_SYM_NO_JOB_CHECKPOINT = x'00000020'4 DECLARE LONG CONSTANT QUI$S_SYMBIONT_FLAGS = 4 record SYMBIONT_FLAGS2 ! Symbiont notifies for job completions1 ! Symbiont generates operator messages4 ! Symbiont generates multiple file copies3 ! Symbiont generates multiple job copies. ! Symbiont processes all form types3 ! Always reprocess full job on a restartv LONG SYM_NOTIFIES _bits ! COMMENT ADDED BY SDL - SYM_NOTIFIES_bits contains bits SYM_NOTIFIES through filler end record SYMBIONT_FLAGS  ! - ! Subfields of MANAGER_STATUS item code. ! E DECLARE LONG CONSTANT QUI$M_MANAGER_START_PENDING = x'00000001'@ DECLARE LONG CONSTANT QUI$M_MANAGER_STARTING = x'00000002'? DECLARE LONG CONSTANT QUI$M_MANAGER_RUNNING = x'00000004'@ DECLARE LONG CONSTANT QUI$M_MANAGER_FAILOVER = x'00000008'@ DECLARE LONG CONSTANT QUI$M_MANA GER_STOPPING = x'00000010'? DECLARE LONG CONSTANT QUI$M_MANAGER_STOPPED = x'00000020'4 DECLARE LONG CONSTANT QUI$S_MANAGER_STATUS = 4 record MANAGER_STATUS> ! Queue manager will start when a node is available& ! Queue manager is starting- ! Queue manager is processing workH ! Queue manager is failing over to pick up new startup values+ ! Queue manager is shutting down% ! Queue manager is stoppedo LONG MANAGER_START_PENDING_bits ! COMMENT ADDED BY SDL - MANAGER_START_PENDING_bits contains bits &' ! MANAGER_START_PENDING through filler end record MANAGER_STATUS  ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! B ! QIOserver Control and Information ($QIOSERVER) definitions. ! Y ! NOTE: New items must always be added at the end so users will not have to relink. !  !  ! Function codes ! V DECLARE LONG CONSTANT QSRV$_CANCEL_OPERATION = 1 ! Cancel a wildcard operationh DECLARE LONG CONSTANT QSRV$_COMMIT_VOLATILE = 2 ! Commit the volatile configuration to permanentV DECLARE LONG CONSTANT QSRV$_SET_CLIENT = 3 ! Set client configuration controlsV DECLARE LONG CONSTANT QSRV$_SET_DEVICE = 4 ! Set device configuration controlsA DECLARE LONG CONSTANT QSRV$_SET_LOGGING = 5 ! Set loggingV DECLARE LONG CONSTANT QSRV$_SET_SERVER = 6 ! Set server configuration controlsT DECLARE LONG CONSTANT QSRV$_SET_SERVICE = 7 ! Set client-server path serviced DECLARE LONG CONSTANT QSRV$_SHOW_CLIENT = 8 ! Show client configuration and operational dataO DECLARE LONG CONSTANT QSRV$_SHOW_DEVICE = 9 ! Show device configurationD DECLARE LONG CONSTANT QSRV$_SHOW_LOGGING = 10 ! Show logginge DECLARE LONG CONSTANT QSRV$_SHOW_SERVER = 11 ! Show server configuration and operational dataW DECLARE LONG CONSTANT QSRV$_ SHOW_SERVICE = 12 ! Show client-server path serviceS DECLARE LONG CONSTANT QSRV$K_MIN_FUNC = 1 ! Minimum QIOSERVER function codeT DECLARE LONG CONSTANT QSRV$K_MAX_FUNC = 12 ! Maximum QIOSERVER function code !  ! Item codes ! W ! Item codes are limited to a byte value for use with the context block validation ! U DECLARE LONG CONSTANT QSRV$_ADD_FILTER = 1 ! Add message event filter 3 tuple[ DECLARE LONG CONSTANT QSRV$_ADD_POOL = 2 ! Add a block of memory for server I/O useV DECLARE LONG CONSTANT QSRV$_AUTO_ADD_NPP = 3 ! T/F auto add NPP for server I/OW DECLARE LONG CONSTANT QSRV$_CLEAR_FILTERS = 4 ! Clear all message event filtersZ DECLARE LONG CONSTANT QSRV$_CLIENT_NAME = 5 ! Client SCSNODE name - SYSGEN SCSNODEf DECLARE LONG CONSTANT QSRV$_CLIENT_SCSSYSTEMID = 6 ! Client SCS system id - SYSGEN SCSSYSTEMIDT DECLARE LONG CONSTANT QSRV$_DEFAULT_PRIORITY = 7 ! The default path priorityZ DECLARE LONG CONSTANT QSRV$_DELETE_POOL_BLOCK = 8 ! Remove an allocated pool blockF DECLARE LONG CONSTANT QSRV$_DEVICE_NAME = 9 ! Full device nameM DECLARE LONG CONSTANT QSRV$_FLAGS = 10 ! System service control flagsW DECLARE LONG CONSTANT QSRV$_KCC_COUNTERS = 11 ! KClient connection counter dataS DECLARE LONG CONSTANT QSRV$_KCD_COUNTERS = 12 ! KClient device counter dataQ DECLARE LONG CONSTANT QSRV$_KCR_COUNTERS = 13 ! KClient root counter dataW DECLARE LONG CONSTANT QSRV$_KSC_COUNTERS = 14 ! KServer connection counter dataS DECLARE LONG CONSTANT QSRV$_KSD_COUNTERS = 15 ! KServer device counter dataQ DECLARE LONG CONSTANT QSRV$_KSR_COUNTERS = 16 ! KServer root counter dataa DECLARE LONG CONSTANT QSRV$_KSR_FUNCTION_HISTOGRAM = 17 ! KServer function code histogramh DECLARE LONG CONSTANT QSRV$_KSR_IO_BUFFER_HISTOGRAM = 18 ! KServer histogram of I/O buffer sizesV DECLARE LONG CONSTANT QSRV$_LIST_FILTERS = 19 ! List all message event filtersZ DECLARE LONG CONSTANT QSRV$_LIST_POOL_BLOCKS = 20 ! Display server I/O pool blocks] DECLARE LONG CONSTANT QSRV$_LIST_POOL_STATS = 21 ! Display server I/O pool statisticsA DECLARE LONG CONSTANT QSRV$_LOG_MODE = 22 ! Logging modesH DECLARE LONG CONSTANT QSRV$_LOG_NODE = 23 ! Logging SCSNODE nameK DECLARE LONG CONSTANT QSRV$_LOG_RESTART = 24 ! Restart data loggingh DECLARE LONG CONSTANT QSRV$_NBR_ALTERNATE_PATHS = 25 ! Number of client resident alternate pathsW DECLARE LONG CONSTANT QSRV$_NBR_CLIENTS = 26 ! Number of clients seen by server` DECLARE LONG CONSTANT QSRV$_NBR_CLIENT_THREADS = 27 ! Number of client configure threadsL DECLARE LONG CONSTANT QSRV$_NBR_CREDITS = 28 ! Number of SCS credits[ DECLARE LONG CONSTANT QSRV$_NBR_DEVICES = 29 ! Number of devices seen and available^ DECLARE LONG CONSTANT QSRV$_NBR_FILTERS = 30 ! Number of message event filters in listd  DECLARE LONG CONSTANT QSRV$_NBR_IO_FRAGMENTS = 31 ! Max number of I/O fragments per transferW DECLARE LONG CONSTANT QSRV$_NBR_SERVERS = 32 ! Number of servers seen by client` DECLARE LONG CONSTANT QSRV$_NBR_SERVER_THREADS = 33 ! Number of server configure threads@ DECLARE LONG CONSTANT QSRV$_PATH_STATE = 34 ! Path state\ DECLARE LONG CONSTANT QSRV$_POOL_WAIT_TMO = 35 ! Number of seconds KServer Pool hold\ DECLARE LONG CONSTANT QSRV$_QSLUN_AUTO = 36 ! T/F KClient to get QSLUN automatically_ DECLARE LONG CONSTANT QSRV$_QSRV_COMPONENT = 37 ! Component of the QIOserver sub-system\ DECLARE LONG CONSTANT QSRV$_REMOVE_FILTER = 38 ! Remove message event filter 3 tuple^ DECLARE LONG CONSTANT QSRV$_SEARCH_NAME = 39 ! Node or device name for wildcard searchh DECLARE LONG CONSTANT QSRV$_SEQUENTIAL_ORDER = 40 ! T/F Order IRPs by sequence #, def - priority\ DECLARE LONG CONSTANT QSRV$_SERVER_NAME = 41 ! Server SCS node name - SYSGEN SCSNODEg DECLARE LONG CONSTANT QSRV$_SERVER_SCSSYSTEMID = 42 ! Server SCS system id - SYSGEN SCSSYSTEMIDS DECLARE LONG CONSTANT QSRV$_SERVICE_STATE = 43 ! Device serve/noserve stateW DECLARE LONG CONSTANT QSRV$_UCC_COUNTERS = 44 ! UClient connection counter dataQ DECLARE LONG CONSTANT QSRV$_UCR_COUNTERS = 45 ! UClient root counter dataW DECLARE LONG CONSTANT QSRV$_USC_COUNTERS = 46 ! UServer connection counter dataQ DECLARE LONG CONSTANT QSRV$_ USR_COUNTERS = 47 ! UServer root counter dataP DECLARE LONG CONSTANT QSRV$K_MIN_ITEM = 1 ! Minimum documented item codeQ DECLARE LONG CONSTANT QSRV$K_MAX_ITEM = 47 ! Maximum documented item code ! S ! The following structure defines the bit masks for the QSRV$_FLAGS item code. ! : DECLARE LONG CONSTANT QSRV$M_PERMANENT = x'00000001'9 DECLARE LONG CONSTANT QSRV$M_VOLATILE = x'00000002'4 DECLARE LONG CONSTANT QSRV$M_ADD = x'00000004'> DECLARE LONG CONSTANT QSRV$M_CLIENT_CONFIG = x'00010000'> DECLARE LONG CONSTANT QSRV$M_SERVER_CONFIG = x'00020000'> DECLARE LONG CONSTANT QSRV$M_CLIENT_SEARCH = x'00040000'> DECLARE LONG CONSTANT QSRV$M_DEVICE_SEARCH = x'00080000'> DECLARE LONG CONSTANT QSRV$M_SERVER_SEARCH = x'00100000'< DECLARE LONG CONSTANT QSRV$M_SEARCH_DONE = x'00200000'> DECLARE LONG CONSTANT QSRV$M_CTX_ALLOCATED = x'00400000'1 DECLARE LONG CONSTANT QSRV$S_QSRV_FLAGS = 4 record QSRV_FLAG S variant case LONG QSRV$L_FLAGS case% group QSRV$R_FLAG_BITS3 ! Applies to permanent database2 ! Applies to volatile database@ ! Allow volatile database structure creation@ ! The following flags are reserved for Compaq internal use.2 ! Use the client configuration2 ! Use the server configuration0 ! Search nam e is for clients0 ! Search name is for devices0 ! Search name is for servers$ ! Search is done. ! Allocated context block w LONG PERMANENT_bits ! COMMENT ADDED BY SDL - PERMANENT_bits contains bits PERMANENT through filler2) end group QSRV$R_FLAG_BITS end variant end record QSRV_FLAGS 3 DECLARE LONG CONSTANT QSRV_FLAGS$C_LENGTH = 43 DECLARE LONG CONST ANT QSRV_FLAGS$K_LENGTH = 4 ! V ! The following structure defines the bit masks for the QSRV$_LOG_MODE item code. ! @ DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV_UCLOG = x'00010000'@ DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV_USLOG = x'00020000'@ DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV_KCLOG = x'00040000'@ DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV_KSLOG = x'00080000'> DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV_MSG = x'00100000'> DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV _EVT = x'00200000'> DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV_CNT = x'00400000'> DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV_HST = x'00800000'> DECLARE LONG CONSTANT QSRV_LOG$M_ACTIV_VBS = x'01000000'3 DECLARE LONG CONSTANT QSRV_LOG$S_QSRV_LOG = 4 record QSRV_LOG variant case$ LONG QSRV_LOG$L_FLAGS case$ group QSRV_LOG$R_BITS2 ! Reserved Compaq internal use- ! Turn on Ucli ent logging- ! Turn on Userver logging- ! Turn on Kclient logging- ! Turn on Kserver logging- ! Turn on message logging+ ! Turn on event logging- ! Turn on counter logging/ ! Turn on histogram logging3 ! Turn on QIO$CONFIGURE verbose2 ! Reserved Compaq internal useq LONG filler1_bits ! COMMENT AD DED BY SDL - filler1_bits contains bits filler1 through filler2( end group QSRV_LOG$R_BITS end variant end record QSRV_LOG 1 DECLARE LONG CONSTANT QSRV_LOG$C_LENGTH = 41 DECLARE LONG CONSTANT QSRV_LOG$K_LENGTH = 4 ! ! ! Message logging type codes ! ? DECLARE LONG CONSTANT QSRV$K_MSG_SCS = 1 ! SCS messages? DECLARE LONG CONSTANT QSRV$K_MSG_QSP = 2 ! QSP messages\ DECLARE LONG CONSTANT QSRV$K_MSG_ICC_CONN = 3 ! ICC messages - connection managementT DECLARE LONG CONSTANT QSRV$K_MSG_ICC_DATA = 4 ! ICC messages - data transfer^ DECLARE LONG CONSTANT QSRV$K_MIN_MSG = 1 ! Minimum documented message filter type code^ DECLARE LONG CONSTANT QSRV$K_MAX_MSG = 4 ! Minimum documented message filter type code ! N ! The following structure defines the data required to specify or receiveF ! a logging data filter tuple. Associated with QSRV$_ADD_FILTER,= ! QSV$_LIST_FILTERS, an d QSRV$_REMOVE_FILTER item codes. ! : DECLARE LONG CONSTANT QSRV_FILTER$S_QSRV_FILTER = 84 record QSRV_FILTERB STRING QSRV_FILTER$t_node = 16 ! Message source nodeB LONG QSRV_FILTER$l_type ! Message source typeD STRING QSRV_FILTER$t_device = 64 ! Message source device end record QSRV_FILTER 5 DECLARE LONG CONSTANT QSRV_FILTER$C_LENGTH = 845 DECLARE LONG CONSTANT QSRV_FILTER$K_LENGTH = 84 ! @ ! The fol lowing structure is used to receive histogram dataJ ! with QSRV$_KSR_FUNCTION_HISTOGRAM and QSRV$_KSR_IO_BUFFER_HISTOGRAM ! item codes. ! I ! The bucket_count is within the range 1 to 64. data[1] to data[64]D ! will hold the in range histogram data. data[0] will hold theF ! underflow data and data[65] will hold the overflow data. ThisK ! structure is for reporting predefined histograms via item code. TheI ! low value is in bucket_base and the high value is bucket_base plus ! bucket_range. ! A DECLARE LONG CONSTANT QSRV_HISTOGRAM$S_QSRV_HISTOGRAM = 552 record QSRV_HISTOGRAME LONG QSRV_HISTOGRAM$L_BUCKET_COUNT ! Number of buckets - 2, BYTE QSRV_HISTOGRAM$B_FILL_0_ ( 3 )C BASIC$QUADWORD QSRV_HISTOGRAM$Q_BUCKET_BASE ! Base valueE BASIC$QUADWORD QSRV_HISTOGRAM$Q_BUCKET_RANGE ! Value rangeL BASIC$QUADWORD QSRV_HISTOGRAM$Q_DATA ( 1 to 66 ) ! Histogram data end record Q SRV_HISTOGRAM : DECLARE LONG CONSTANT QSRV_HISTOGRAM$C_UNDERFLOW = 0: DECLARE LONG CONSTANT QSRV_HISTOGRAM$C_OVERFLOW = 659 DECLARE LONG CONSTANT QSRV_HISTOGRAM$C_LENGTH = 5529 DECLARE LONG CONSTANT QSRV_HISTOGRAM$K_LENGTH = 552 ! O ! The following structure is used for the IOSB declaration. The IOSB is aP ! 2 longword structure which is initialized to zero by the QIOSERVER systemR ! service as part of request initialization. The first longword wi ll receiveO ! the final condition code for the request as determined by QIO$CONFIGURE. ! 5 DECLARE LONG CONSTANT QSRV_IOSB$S_QSRV_IOSB = 8 record QSRV_IOSBE LONG QSRV_IOSB$l_pri_status ! Primary request statusG LONG QSRV_IOSB$l_sec_status ! Secondary request status end record QSRV_IOSB 2 DECLARE LONG CONSTANT QSRV_IOSB$C_LENGTH = 82 DECLARE LONG CONSTANT QSRV_IOSB$K_LENGTH = 8 ! S ! The following structure d efines the bit masks for the QSRV$_DEFAULT_PRIORITY' ! and QSRV$_PATH_STATE item codes. ! P ! For the QSRV$_DEFAULT_PRIORITY item code only the priority mask is valid. ! P ! For the QSRV$_PATH_STATE item code an array of two of these structures isQ ! used. The first entry contains a mask of the associated bits in the valueN ! component (second entry) which are valid for the operation during a SETI ! function. Only the value component is filled for a SHOW fu nction. ! > DECLARE LONG CONSTANT QSRV_PATH$M_PRIORITY = x'000000FF'B DECLARE LONG CONSTANT QSRV_PATH$M_LOCAL2SERVER = x'04000000'< DECLARE LONG CONSTANT QSRV_PATH$M_QVALID = x'08000000'; DECLARE LONG CONSTANT QSRV_PATH$M_VALID = x'10000000'< DECLARE LONG CONSTANT QSRV_PATH$M_SERVED = x'20000000'? DECLARE LONG CONSTANT QSRV_PATH$M_EXCLUSIVE = x'40000000'= DECLARE LONG CONSTANT QSRV_PATH$M_CURRENT = x'80000000'= DECLARE LONG CONSTANT QSRV_PATH$m_ filler2 = x'03FFFFFF'B DECLARE LONG CONSTANT QSRV_PATH$M_USEABLE_PATH = x'3C000000'= DECLARE LONG CONSTANT QSRV_PATH$m_filler3 = x'C0000000'5 DECLARE LONG CONSTANT QSRV_PATH$S_QSRV_PATH = 4 record QSRV_PATH variant case9 LONG QSRV_PATH$L_PATH_STATE ! Path state case0 group QSRV_PATH$R_PATH_STATE_BITS# ! Path priority3 ! Device is local to the server)  ! Path QSLUN is valid# ! Path is valid$ ! Path is served& ! Path exclusivity3 ! This path is the current patht LONG PRIORITY_bits ! COMMENT ADDED BY SDL - PRIORITY_bits contains bits PRIORITY through CURRENT4 end group QSRV_PATH$R_PATH_STATE_BITS case2 group QSRV_PATH$R_PATH_USEABLE_BITS6 ! Mask for Qvalid,valid,and servedq  LONG filler2_bits ! COMMENT ADDED BY SDL - filler2_bits contains bits filler2 through filler36 end group QSRV_PATH$R_PATH_USEABLE_BITS end variant end record QSRV_PATH 2 DECLARE LONG CONSTANT QSRV_PATH$C_LENGTH = 42 DECLARE LONG CONSTANT QSRV_PATH$K_LENGTH = 4 ! L ! The following structure defines bit masks for the QSRV$_ADD_POOL itemF ! code and a structure for the QSRV$_DELETE_POOL_BLOCK item code. ! : DECLARE LO NG CONSTANT QSRV_POOL$M_SIZE = x'7FFFFFFF'9 DECLARE LONG CONSTANT QSRV_POOL$M_NPP = x'80000000'5 DECLARE LONG CONSTANT QSRV_POOL$S_QSRV_POOL = 4 record QSRV_POOL variant caseI LONG QSRV_POOL$L_BLOCK_ID ! ID of pool block to delete case? group QSRV_POOL$R_ADD_BLOCK_BITS ! Add to pool% ! Number of bytes- ! From non-paged pool andd LONG SIZE_bits ! COMMENT ADDED BY SDL - SIZE_bits contains bits SIZE through NPP3 end group QSRV_POOL$R_ADD_BLOCK_BITS ! from S2 space if not set case= LONG QSRV_POOL$L_MODIFY ! Change to pool end variant end record QSRV_POOL 2 DECLARE LONG CONSTANT QSRV_POOL$C_LENGTH = 42 DECLARE LONG CONSTANT QSRV_POOL$K_LENGTH = 4 ! M ! The following structure defines the data for the QSRV$_LIST_POOL_STATS ! item code. ! 6 DECLARE LONG CONSTANT QSRV_PLST$S_QSRV_PLST = 56 record QSRV_PLST/ group QSRV_PLST$R_POOL_STAT ( 1 to 2 )M LONG QSRV_PLST$L_TOT_SIZE ! Total number of bytes for typeL LONG QSRV_PLST$L_FREE_SIZE ! Amount of free space in bytesI LONG QSRV_PLST$L_NBR_BLOCKs ! Number of active additionsH LONG QSRV_PLST$L_NBR_FRAGMENTS ! Total number of fragmentsP LONG QSRV_PLST$L_MAX_FRAG_SIZE ! Size in bytes of largest fragmentK LONG QSRV_PLST$L_NPP_ADD_REQS ! Count of requests to add NPPE LONG QSRV_PLST$L_MAX_NPP_ADD_REQ ! Max NPP request size( end group QSRV_PLST$R_POOL_STAT end record QSRV_PLST  ! K ! The following constants may be used to reference the pool statistics ! data defined previously. ! @ DECLARE LONG CONSTANT QSRV_PLST$K_S2 = 0 ! S2 Space poolB DECLARE LONG CONSTANT QSRV_PLST$K_NPP = 1 ! Non-paged pool3  DECLARE LONG CONSTANT QSRV_PLST$C_LENGTH = 563 DECLARE LONG CONSTANT QSRV_PLST$K_LENGTH = 56 ! N ! The following structure defines the data for the QSRV$_LIST_POOL_BLOCKS ! item code. ! ; DECLARE LONG CONSTANT QSRV_PLBLK$M_SIZE = x'7FFFFFFF': DECLARE LONG CONSTANT QSRV_PLBLK$M_NPP = x'80000000'8 DECLARE LONG CONSTANT QSRV_PLBLK$S_QSRV_PLBLK = 20 record QSRV_PLBLK? LONG QSRV_PLBLK$L_BLOCK_ID ! Block identifier& g roup QSRV_PLBLK$R_BLOCK_DESC variant case3 LONG QSRV_PLBLK$L_BLOCK_SIZE_TYPE case2 group QSRV_PLBLK$R_BLOCK_ST_BITS1 ! Number of bytes in block3 ! From non-paged pool if setg LONG SIZE_bits ! COMMENT ADDED BY SDL - SIZE_bits contains bits SIZE through NPP6 end group QSRV_PLBLK$R_BLOCK_ST_BITS end variant* e nd group QSRV_PLBLK$R_BLOCK_DESCL LONG QSRV_PLBLK$L_FREE_SIZE ! Amount of free space in bytesH LONG QSRV_PLBLK$L_NBR_FRAGMENTS ! Total number of fragmentsP LONG QSRV_PLBLK$L_MAX_FRAG_SIZE ! Size in bytes of largest fragment end record QSRV_PLBLK 4 DECLARE LONG CONSTANT QSRV_PLBLK$C_LENGTH = 204 DECLARE LONG CONSTANT QSRV_PLBLK$K_LENGTH = 20 ! J ! The following structure defines the data for the QSRV$_KCR_COUNTERS> ! ite m code. It will receive QIOServer Client root data. ! 6 DECLARE LONG CONSTANT QSRV_KCRC$S_QSRV_KCRC = 40 record QSRV_KCRCK LONG QSRV_KCRC$L_DRIVERS ! Number of drivers configuredK LONG QSRV_KCRC$L_DEVICES ! Number of devices configuredR LONG QSRV_KCRC$L_ACT_SERVER_CONNS ! Number of active server connectionsP LONG QSRV_KCRC$L_TOT_SERVERS_SEEN ! Total number of servers ever seenW BASIC$QUADWORD QSRV_KCRC$Q_CYCLES _PER_SEC ! Number of cycle ticks per secondX BASIC$QUADWORD QSRV_KCRC$Q_TOT_SIO_TICS ! Accumulated CPU time per simple I/OA BASIC$QUADWORD QSRV_KCRC$Q_TOT_SIO ! Total simple I/Os end record QSRV_KCRC 3 DECLARE LONG CONSTANT QSRV_KCRC$C_LENGTH = 403 DECLARE LONG CONSTANT QSRV_KCRC$K_LENGTH = 40 ! J ! The following structure defines the data for the QSRV$_KCC_COUNTERSJ ! item code. It will receive QIOServer Client connection event data.  ! F ! QSRV_KCRC$L_SERVERS indicates the number of active connections. ! 6 DECLARE LONG CONSTANT QSRV_KCCC$S_QSRV_KCCC = 64 record QSRV_KCCC] BASIC$QUADWORD QSRV_KCCC$Q_SCSSYSTEMID ! SCSSYSTEMID of server for this connectionZ BASIC$QUADWORD QSRV_KCCC$Q_IO_COUNT ! Overall I/O operations on this connectione BASIC$QUADWORD QSRV_KCCC$Q_COMPLEX_COUNT ! Total complex I/O operations on this connectione BASIC$QUADWORD QSRV_KCCC$Q_CONTROL_COUNT ! Total control I/O operations on this connectionj BASIC$QUADWORD QSRV_KCCC$Q_NBR_CONN ! Number of times a connection has been made to this serverI BASIC$QUADWORD QSRV_KCCC$Q_CONN_TIME ! Time of last connectionk BASIC$QUADWORD QSRV_KCCC$Q_NBR_DEVICES ! Number of devices using this connection as current pathf LONG QSRV_KCCC$L_OPS_STALLED ! Total operations stalled in Kclient for this connection` WORD QSRV_KCCC$W_CREDIT_WAIT ! S CS credit waits for this connection from the CDTE WORD QSRV_KCCC$w_reserved_1 ! Reserved for alignment end record QSRV_KCCC 3 DECLARE LONG CONSTANT QSRV_KCCC$C_LENGTH = 643 DECLARE LONG CONSTANT QSRV_KCCC$K_LENGTH = 64 ! J ! The following structure defines the data for the QSRV$_KCD_COUNTERS@ ! item code. It will receive QIOServer Client device data. ! ; ! QSRV_KCRC$L_DEVICES indicates the number of devices. ! 6 DECLARE LONG CONSTANT QSRV_KCDC$S_QSRV_KCDC = 64 record QSRV_KCDC' group QSRV_KCDC$r_name_overlay variant caseL STRING QSRV_KCDC$T_NAME = 16 ! Device name in ASCIC form case. group QSRV_KCDC$r_name_ascic. group QSRV_KCDC$R_FILL_1_ variant case4 BYTE QSRV_KCDC$B_NAME_LEN case4  group QSRV_KCDC$R_FILL_2_M BYTE QSRV_KCDC$IB_NAME_LEN ! Character count8 end group QSRV_KCDC$R_FILL_2_# end variant2 end group QSRV_KCDC$R_FILL_1_K STRING QSRV_KCDC$T_NAME_STR = 15 ! Character string2 end group QSRV_KCDC$r_name_ascic end variant+ end group QSRV_KCDC$r_name_overlayV BASIC$QUADWORD QSRV_KCDC$Q_IO_COUNT ! Overall I/O operations to this devicea BASIC$QUADWORD QSRV_KCDC$Q_COMPLEX_COUNT ! Total complex I/O operations to this devicea BASIC$QUADWORD QSRV_KCDC$Q_CONTROL_COUNT ! Total control I/O operations to this deviceG BASIC$QUADWORD QSRV_KCDC$Q_RT_TIME ! Overall round-trip time[ LONG QSRV_KCDC$L_OPS_IN_SERVER ! Current operations in server for this deviceb LONG QSRV_KCDC$L_OPS_STALLED ! Total operations stalled in Kclient  for this deviceU LONG QSRV_KCDC$L_PATHS ! Total paths configured for this device" LONG QSRV_KCDC$l_reserved end record QSRV_KCDC 3 DECLARE LONG CONSTANT QSRV_KCDC$C_LENGTH = 643 DECLARE LONG CONSTANT QSRV_KCDC$K_LENGTH = 64 ! J ! The following structure defines the data for the QSRV$_KSR_COUNTERS> ! item code. It will receive QIOServer Server root data. ! 6 DECLARE LONG CONSTANT QSRV_KSRC$S_QSRV_KSRC = 88 record QSRV_KSRCK LONG QSRV_KSRC$L_DEVICES ! Number of devices configuredX LONG QSRV_KSRC$L_ACT_CLIENT_CONNS ! Number of active connections with clientsP LONG QSRV_KSRC$L_TOT_CLIENTS_SEEN ! Total number of clients ever seen' BYTE QSRV_KSRC$B_FILL_3_ ( 3 )W BASIC$QUADWORD QSRV_KSRC$Q_CYCLES_PER_SEC ! Number of cycle ticks per secondP BASIC$QUADWORD QSRV_KSRC$Q_PEAK_BUFFER ! Peak buffer pool usage in KB` BASIC$QUADWORD QSRV_KSRC$Q_BUFFER_WAIT ! Number of times I/Os waited for buffer spaceS BASIC$QUADWORD QSRV_KSRC$Q_FRAGMENTS ! Number of I/O fragments performedS BASIC$QUADWORD QSRV_KSRC$Q_FRAG_IO ! Number of I/O operations fragmented] BASIC$QUADWORD QSRV_KSRC$Q_QSMQE_EXP ! Number of times Kserver expanded QSMQE listV BASIC$QUADWORD QSRV_KSRC$Q_PEAK_QSMQE ! Max number of QSMQEs ever allocatedX BASIC$QUADWORD QSRV_KSRC$Q_TOT_SIO_TICS ! Accumulated CPU time per si mple I/OL BASIC$QUADWORD QSRV_KSRC$Q_TOT_SIO ! Total simple I/O operations  end record QSRV_KSRC 3 DECLARE LONG CONSTANT QSRV_KSRC$C_LENGTH = 883 DECLARE LONG CONSTANT QSRV_KSRC$K_LENGTH = 88 ! J ! The following structure defines the data for the QSRV$_KSC_COUNTERSJ ! item code. It will receive QIOServer Server connection event data. ! ? ! QSRV_KSRC$L_CLIENTS indicates the number of connections. ! 6 DECLARE LONG CONSTANT QSRV_KSCC$S_QSRV_KSCC = 64 record QSRV_KSCC] BASIC$QUADWORD QSRV_KSCC$Q_SCSSYSTEMID ! SCSSYSTEMID of client for this connectionZ BASIC$QUADWORD QSRV_KSCC$Q_IO_COUNT ! Overall I/O operations on this connectione BASIC$QUADWORD QSRV_KSCC$Q_COMPLEX_COUNT ! Total complex I/O operations on this connectione BASIC$QUADWORD QSRV_KSCC$Q_CONTROL_COUNT ! Total control I/O operations on this connectionj BASIC$QUADWORD QSRV_KSCC$Q_NBR_CONN ! Number of times  a connection has been made to this clientI BASIC$QUADWORD QSRV_KSCC$Q_CONN_TIME ! Time of last connectionc BASIC$QUADWORD QSRV_KSCC$Q_BAD_MSGS ! Number of bad messages received on this connectionS WORD QSRV_KSCC$W_CREDIT_WAIT ! SCS credit waits for this connectionQ WORD QSRV_KSCC$W_BDLT_WAIT ! SCS BDLT waits for this connection" LONG QSRV_KSCC$l_reserved end record QSRV_KSCC 3 DECLARE LONG CONSTANT QSRV_KSCC$C_LENGTH = 643 DECLARE LONG CONSTANT QSRV_KSCC$K_LENGTH = 64 ! J ! The following structure defines the data for the QSRV$_KSD_COUNTERS@ ! item code. It will receive QIOServer server device data. ! ; ! QSRV_KSRC$L_DEVICES indicates the number of devices. ! 6 DECLARE LONG CONSTANT QSRV_KSDC$S_QSRV_KSDC = 56 record QSRV_KSDC' group QSRV_KSDC$r_name_overlay variant caseL STRING QSRV_KSDC$T_NAME = 16 ! Device name in ASCIC form case. group QSRV_KSDC$r_name_ascic. group QSRV_KSDC$R_FILL_4_ variant case4 BYTE QSRV_KSDC$B_NAME_LEN case4 group QSRV_KSDC$R_FILL_5_M BYTE QSRV_KSDC$IB_NAME_LEN ! Character count8 end group QSRV_KSDC$R_FILL_5_#  end variant2 end group QSRV_KSDC$R_FILL_4_K STRING QSRV_KSDC$T_NAME_STR = 15 ! Character string2 end group QSRV_KSDC$r_name_ascic end variant+ end group QSRV_KSDC$r_name_overlayV BASIC$QUADWORD QSRV_KSDC$Q_IO_COUNT ! Overall I/O operations to this devicea BASIC$QUADWORD QSRV_KSDC$Q_COMPLEX_COUNT ! Total complex I/O operations to this devicea BASIC$QUADWORD QSRV_KSDC$Q_CONTROL_ COUNT ! Total control I/O operations to this devicem BASIC$QUADWORD QSRV_KSDC$Q_SIO_DEV_TIME ! Total time spent in the device for simple I/O operationsb LONG QSRV_KSDC$L_QUEUE_LENGTH ! Number of operations in the device now from KserverK LONG QSRV_KSDC$L_OPS_STALLED ! Number of operations stalled end record QSRV_KSDC 3 DECLARE LONG CONSTANT QSRV_KSDC$C_LENGTH = 563 DECLARE LONG CONSTANT QSRV_KSDC$K_LENGTH = 56 ! J ! The  following structure defines the data for the QSRV$_UCR_COUNTERSB ! item code. It will receive QIO$CONFIGURE Client root data. ! 6 DECLARE LONG CONSTANT QSRV_UCRC$S_QSRV_UCRC = 40 record QSRV_UCRCK LONG QSRV_UCRC$L_DEVICES ! Number of configured devicesO LONG QSRV_UCRC$L_PATHS ! Total number of configured pathsQ LONG QSRV_UCRC$L_SERVERS ! Total number of configured serversP LONG QSRV_UCRC$L_PK_DC_THREADS  ! Peak device configuration threadsF LONG QSRV_UCRC$L_PK_SRV_THREAD ! Peak servers per thread' BYTE QSRV_UCRC$B_FILL_6_ ( 3 )U BASIC$QUADWORD QSRV_UCRC$Q_SYSMGT_RQSTS ! Total system management requestsO BASIC$QUADWORD QSRV_UCRC$Q_UBUF_WAITS ! Total waits for Ubuf/Uapibuf end record QSRV_UCRC 3 DECLARE LONG CONSTANT QSRV_UCRC$C_LENGTH = 403 DECLARE LONG CONSTANT QSRV_UCRC$K_LENGTH = 40 ! J ! The following structure  defines the data for the QSRV$_UCC_COUNTERSN ! item code. It will receive QIO$CONFIGURE Client connection event data. ! ? ! QSRV_UCRC$L_SERVERS indicates the number of connections. ! L ! Note that Uclient does not maintain an active connection to a server;K ! it establishes a connection only when Uclient wants something. TheseE ! counters count all events since Uclient discovered the server. ! 6 DECLARE LONG CONSTANT QSRV_UCCC$S_QSRV_UCCC = 40 record QSRV_UCCCN BASIC$QUADWORD QSRV_UCCC$Q_SCSSYSTEMID ! SCSSYSTEMID of this server^ BASIC$QUADWORD QSRV_UCCC$Q_CONNECTIONS ! Number of ICC connections made to a serverM BASIC$QUADWORD QSRV_UCCC$Q_CONN_TIME ! Time of last ICC connectionP BASIC$QUADWORD QSRV_UCCC$Q_DC_MSGS ! Number of device config messagesX BASIC$QUADWORD QSRV_UCCC$Q_CM_MSGS ! Number of connection management messages end record QSRV_UCCC 3 DECLARE LONG CONSTAN T QSRV_UCCC$C_LENGTH = 403 DECLARE LONG CONSTANT QSRV_UCCC$K_LENGTH = 40 ! J ! The following structure defines the data for the QSRV$_USR_COUNTERSB ! item code. It will receive QIO$CONFIGURE Server root data. ! 6 DECLARE LONG CONSTANT QSRV_USRC$S_QSRV_USRC = 32 record QSRV_USRCK LONG QSRV_USRC$L_DEVICES ! Number of configured devicesQ LONG QSRV_USRC$L_CLIENTS ! Total number of configured serversP LONG QSRV_USR C$L_PK_DC_THREADS ! Peak device configuration threadsF LONG QSRV_USRC$L_PK_CLT_THREAD ! Peak clients per threadU BASIC$QUADWORD QSRV_USRC$Q_SYSMGT_RQSTS ! Total system management requestsO BASIC$QUADWORD QSRV_USRC$Q_UBUF_WAITS ! Total waits for Ubuf/Uapibuf end record QSRV_USRC 3 DECLARE LONG CONSTANT QSRV_USRC$C_LENGTH = 323 DECLARE LONG CONSTANT QSRV_USRC$K_LENGTH = 32 ! J ! The following structure defines the data for th e QSRV$_USC_COUNTERSN ! item code. It will receive QIO$CONFIGURE Server connection event data. ! ? ! QSRV_USRC$L_CLIENTS indicates the number of connections. ! Q ! These counters count all events since Userver was connected to the client. ! 6 DECLARE LONG CONSTANT QSRV_USCC$S_QSRV_USCC = 40 record QSRV_USCCN BASIC$QUADWORD QSRV_USCC$Q_SCSSYSTEMID ! SCSSYSTEMID of this client^ BASIC$QUADWORD QSRV_USCC$Q_CONNECTIONS ! Number of ICC conn ections made to a clientM BASIC$QUADWORD QSRV_USCC$Q_CONN_TIME ! Time of last ICC connectionP BASIC$QUADWORD QSRV_USCC$Q_DC_MSGS ! Number of device config messagesX BASIC$QUADWORD QSRV_USCC$Q_CM_MSGS ! Number of connection management messages end record QSRV_USCC 3 DECLARE LONG CONSTANT QSRV_USCC$C_LENGTH = 403 DECLARE LONG CONSTANT QSRV_USCC$K_LENGTH = 40 ! C ! QIOserver Counters Buffer. This defines the buffer header,G ! and contains a union of all the various counter types included. !  ! I ! The following structure defines the data for the common portion ofC ! each of the counter item codes and forms the root structure. ! H DECLARE LONG CONSTANT QSRV_COUNTERS$M_RESERVED_FLAGS = x'0000FFFF'? DECLARE LONG CONSTANT QSRV_COUNTERS$S_QSRV_CNTR_ROOT = 24 record QSRV_CNTR_ROOTI LONG QSRV_COUNTERS$L_KC_VERS ! KClient version identifierI LONG QSRV_COUNT ERS$L_KS_VERS ! KServer version identifierj WORD QSRV_COUNTERS$W_COUNTERS_TYPE ! Counter type -- value matches the system service item code` group QSRV_COUNTERS$R_FLAGS_OVERLAY ! Flags -- passed from QIO$CONFIGURE to requestor variant case, WORD QSRV_COUNTERS$W_FLAGS case2 group QSRV_COUNTERS$R_FLAGS_BITS3 ! No flags currently defined WORD RESE RVED_FLAGS_bits ! COMMENT ADDED BY SDL - RESERVED_FLAGS_bits contains bits RESERVED_FLAGS through & ! RESERVED_FLAGS6 end group QSRV_COUNTERS$R_FLAGS_BITS end variant0 end group QSRV_COUNTERS$R_FLAGS_OVERLAYn LONG QSRV_COUNTERS$L_SIZE ! Size in bytes of counters structure returned from QIO$CONFIGUREW BASIC$QUADWORD QSRV_COUNTERS$Q_TIME ! System Time when the counters obtained end record QSRV_CNTR_ROOT 8 DE CLARE LONG CONSTANT QSRV_CNTR_ROOT$C_LENGTH = 248 DECLARE LONG CONSTANT QSRV_CNTR_ROOT$K_LENGTH = 24@ ! Note changes to this structure will need to be matched in ! [LIB]QSMQEDEF> DECLARE LONG CONSTANT QSRV_COUNTERS$K_KCROOT_LENGTH = 64> DECLARE LONG CONSTANT QSRV_COUNTERS$K_KCCONN_LENGTH = 88= DECLARE LONG CONSTANT QSRV_COUNTERS$K_KCDEV_LENGTH = 88? DECLARE LONG CONSTANT QSRV_COUNTERS$K_KSROOT_LENGTH = 112> DECLARE LONG CONSTANT QSRV_COUNTERS$K_KSCONN_L ENGTH = 88= DECLARE LONG CONSTANT QSRV_COUNTERS$K_KSDEV_LENGTH = 80> DECLARE LONG CONSTANT QSRV_COUNTERS$K_UCROOT_LENGTH = 64> DECLARE LONG CONSTANT QSRV_COUNTERS$K_UCCONN_LENGTH = 64> DECLARE LONG CONSTANT QSRV_COUNTERS$K_USROOT_LENGTH = 56> DECLARE LONG CONSTANT QSRV_COUNTERS$K_USCONN_LENGTH = 64? DECLARE LONG CONSTANT QSRV_COUNTERS$S_QSRV_COUNTERS = 112 record QSRV_COUNTERS4 QSRV_CNTR_ROOT QSRV_COUNTERS$R_QSRVCNTRROOT? group QSRV_COUNTE RS$R_COUNTERS_BODY ! Counters union variant caseL QSRV_KCRC QSRV_COUNTERS$R_KCROOT ! Kclient root counters caseR QSRV_KCCC QSRV_COUNTERS$R_KCCONN ! Kclient connection counters caseM QSRV_KCDC QSRV_COUNTERS$R_KCDEV ! Kclient device counters caseL QSRV_KSRC QSRV_COUNTERS$R_KSROOT ! Kserver root counters caseR  QSRV_KSCC QSRV_COUNTERS$R_KSCONN ! Kserver connection counters caseM QSRV_KSDC QSRV_COUNTERS$R_KSDEV ! Kserver device counters caseL QSRV_UCRC QSRV_COUNTERS$R_UCROOT ! Uclient root counters caseR QSRV_UCCC QSRV_COUNTERS$R_UCCONN ! Uclient connection counters caseL QSRV_USRC QSRV_COUNTERS$R_USROOT ! Userver root counters caseR QSRV_USCC QSRV_COUNTERS$R_USCONN ! Userver connection counters end variant0 end group QSRV_COUNTERS$R_COUNTERS_BODY end record QSRV_COUNTERS 8 DECLARE LONG CONSTANT QSRV_COUNTERS$C_LENGTH = 1128 DECLARE LONG CONSTANT QSRV_COUNTERS$K_LENGTH = 112 ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +E ! Get System Performance Information Data Identifier Definitions ! F ! The following constants define the items which can be collectedD ! with the Get System Performance Information service (GETRMI)./ ! The item numbers are defined as follows: ! ) ! 16 12 0) ! +------------------+-------------+) ! | Structure number | Item number |) ! +------------------+-------------+ ! L ! The top four bits represent the structure of the item and the last 125 ! bits represent the item within the structure.  !  ! ****** Caution? = ! ****** This file is no longer intended to be modified. ! ******H ! The following had been guidelines for adding symbols to RMIDEF. @ ! This interface is now defined in [STARLET]GETSYIDEF.SDL.M ! Therefore, changing any item number is unacceptable. Some spare itemP ! number exist in each range; if these are ever exhausted, new ranges mustH ! be defined and support added, rather than changing item numbers. ! K ! As any enhancements are mode to $GETRMI, changes should be made to M ! STARLET, and modules should be changed t o use the new GETRMI$ symbols ! to replace RMI$ symbols. ! ! * The item numbers startO ! * at 0 and increase sequentially to the last item (even across tables).O ! * If new items are added to a table, programs MUST be relinked to allowM ! * the old definitions to change. This was done to simplify some tableN ! * lookups in the Monitor Utility. To get around this, new items can be' ! * added at the end of the list. ! *P ! * Each table  has one item at the end to act as a place holder. It shouldN ! * have the same item number as the first item of the next table. TheseT ! * items are not counters in the total number of RMI items GETRMI$_TABLESIZE. ! - ! DEFINE TABLE TYPESA DECLARE LONG CONSTANT RMI$C_EXETYPE = 1 ! Executive cellsQ DECLARE LONG CONSTANT RMI$C_EWSTYPE = 2 ! Executive writable storage areaH DECLARE LONG CONSTANT RMI$C_MONTYPE = 3 ! Monitor specific itemsL DECLARE LONG CONSTANT RMI$C_RMSTYPE = 4 ! Monitor RMS specific itemsK DECLARE LONG CONSTANT RMI$C_EX2TYPE = 5 ! Ececutive cells extensionC DECLARE LONG CONSTANT RMI$C_LISTEND = 0 ! End of table list ! U ! The following section defines items which are collected during initialization.Q ! There items include general system information, and server version number.6 ! The server version number is also defined here. ! J DECLARE LONG CONSTANT RMI$_initial = -1 ! Initialization item listS DECLARE LONG CONSTANT RMI$_data_collection = -2 ! Data collection item listI DECLARE LONG CONSTANT RMI$_sysinfo = -3 ! System information itemO DECLARE LONG CONSTANT RMI$_version_number = -4 ! Monitor version numberB DECLARE LONG CONSTANT RMI$_rms_file = -5 ! Parse file nameK DECLARE LONG CONSTANT RMI$_rms_gs = -6 ! Get global section address/ DECLARE LONG CONSTANT RMI$_last_type = -73 DECLARE LONG CONSTANT RMI$_server_ version = 5 ! I ! Define bits in the PMS flags field PMS$GL_FLAGS. These are used toF ! synchronize access to some PMS field and enable other activity. ! 3 DECLARE LONG CONSTANT RMI$s_rmi$pms_flags = 4 record rmi$pms_flagsU group RMI$l_flags ! Class qualifier flags for CDB (Active): ! YES => Enable disk queue length collection< ! This field must be accessed via an interlocked ! bit instruction.0  ! Fill out remainder of first byteA ! YES => Synchronize access to several PMS counters: ! used in the collection of disk queue length.< ! This field must be accessed via an interlocked8 ! bit instruction, AND MUST BE IN A SEPARATE8 ! BYTE from the disk_enable bit (required by< ! the architecture to maintain synchronization).+ ! Fill out remainder of fieldw LONG disk_enable_bits ! COMMENT ADDED BY SDL - disk_enable_bits contains bits disk_enable through filler2 end group RMI$l_flags end record rmi$pms_flags  ! K ! Define two contants to handle help handle large lookaside lists. The? ! maximum number that RMISHR will count to is defined withE ! RMI$K_MAX_PACKET and the value returned when this threshold is, ! reached is defined as RMI$K_POOL_OVF. ! 2 DECLARE LONG CONSTANT RMI$k_max_packet = 5008 DECLARE LONG CONSTANT RM I$k_pool_ovf = -2147483647 ! H ! Define item identifier numbers. Each data item has an associatedJ ! value which is used to find its entry in the EXETBL. The item tableM ! is defined by the macros RMI_GENERATE_TABLE which makes multiple callsB ! to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. ! Q DECLARE LONG CONSTANT RMI$_MODES = 4096 ! All modes counters on all CPU'sX DECLARE LONG CONSTANT RMI$_INTERRUPT = 4097 ! time on interrupt stack -- primaryQ DECLARE LONG CONSTANT RMI$_KERNEL = 4098 ! time in kernel mode -- primaryM DECLARE LONG CONSTANT RMI$_EXEC = 4099 ! time in exec mode -- primaryT DECLARE LONG CONSTANT RMI$_SUPER = 4100 ! time in supervisor mode -- primaryM DECLARE LONG CONSTANT RMI$_USER = 4101 ! time in user mode -- primaryR DECLARE LONG CONSTANT RMI$_COMPAT = 4102 ! time in compat. mode -- primarye DECLARE LONG CONSTANT RMI$_INTERRUPT_BUSY = 4103 ! Time spent RMInning on the interrupt stack_ DECLARE LONG CONSTANT RMI$_KERNEL_BUSY = 4104 ! Time spent RMInning on the lernel stackE DECLARE LONG CONSTANT RMI$_IDLE = 4105 ! idle time -- primaryL DECLARE LONG CONSTANT RMI$_CPUBUSY = 4106 ! RETIRED ITEM - RETURNS 0D DECLARE LONG CONSTANT RMI$_COLPG = 4107 ! collided page wait= DECLARE LONG CONSTANT RMI$_MWAIT = 4108 ! memory waitF DECLARE LONG CONSTANT RMI$_CEF = 4109 ! common event flag wait9 DECLARE LONG CONSTANT RMI$_PFW = 4110 ! page waitE DECLARE LONG CONSTANT RMI$_LEF = 4111 ! local event flag waitI DECLARE LONG CONSTANT RMI$_LEFO = 4112 ! lef wait out of bal. set; DECLARE LONG CONSTANT RMI$_HIB = 4113 ! hibernatingG DECLARE LONG CONSTANT RMI$_HIBO = 4114 ! hibernating outswapped: DECLARE LONG CONSTANT RMI$_SUSP = 4115 ! suspendedF DECLARE LONG CONSTANT RMI$_SUSPO = 4116 ! suspended outswapped> DECLARE LONG CONSTANT RMI$_FPG = 4117 ! free page wa it9 DECLARE LONG CONSTANT RMI$_COM = 4118 ! computingF DECLARE LONG CONSTANT RMI$_COMO = 4119 ! computable outswapped7 DECLARE LONG CONSTANT RMI$_CUR = 4120 ! currentL DECLARE LONG CONSTANT RMI$_OTHSTAT = 4121 ! RETIRED ITEM - RETURNS 0P DECLARE LONG CONSTANT RMI$_PROCS = 4122 ! process count for SYSTEM classP DECLARE LONG CONSTANT RMI$_PROC = 4123 ! collect all process informationD DECLARE LONG CONSTANT RMI$_FRLIST = 4124 ! size of free listI DECLARE LONG CONSTANT RMI$_MODLIST = 4125 ! size of modified listC DECLARE LONG CONSTANT RMI$_FAULTS = 4126 ! page fault count= DECLARE LONG CONSTANT RMI$_PREADS = 4127 ! page reads? DECLARE LONG CONSTANT RMI$_PWRITES = 4128 ! page writesM DECLARE LONG CONSTANT RMI$_PWRITIO = 4129 ! physical page write I/O'sL DECLARE LONG CONSTANT RMI$_PREADIO = 4130 ! physical page read I/O'sH DECLARE LONG CONSTANT RMI$_GVALFLTS = 4131 ! global valid faultsS DECLARE LONG CONSTANT RMI$_WRTINPROG = 4132 ! faults from write in progressI DECLARE LONG CONSTANT RMI$_FREFLTS = 4133 ! faults from free listM DECLARE LONG CONSTANT RMI$_MFYFLTS = 4134 ! faults from modified listG DECLARE LONG CONSTANT RMI$_DZROFLTS = 4135 ! demand zero faultsH DECLARE LONG CONSTANT RMI$_SYSFAULTS = 4136 ! system page faultsR DECLARE LONG CONSTANT RMI$_LRPCNT = 4137 ! number of LRP packets availableJ DECLARE LONG CONSTANT RMI$_LRPINUSE = 4138 ! number of LRPs in useR DECLARE LONG CONSTANT RMI$_IRPCNT = 4139 ! number of IRP packets availableJ DECLARE LONG CONSTANT RMI$_IRPINUSE = 4140 ! number of IRPs in useR DECLARE LONG CONSTANT RMI$_SRPCNT = 4141 ! number of SRP packets availableJ DECLARE LONG CONSTANT RMI$_SRPINUSE = 4142 ! number of SRPs in useS DECLARE LONG CONSTANT RMI$_HOLECNT = 4143 ! number of blocks in dyn. memory@ DECLARE LONG CONSTANT RMI$_BIGHOLE = 4144 ! largest holeC DECLARE LONG CONSTANT RMI$_SMALLHOLE = 4145 ! smallest holeX DECLARE LONG CONSTANT RMI$_HOLESUM = 4146 ! total space in dyn. memory availableP DECLARE LONG CONSTANT RMI$_DYNINUSE = 4147 ! dynamic memory space in useX DECLARE LONG CONSTANT RMI$_SMALLCNT = 4148 ! number of blocks < 32 bytes in sizeA DECLARE LONG CONSTANT RMI$_ISWPCNT = 4149 ! total inswapsF DECLARE LONG CONSTANT RMI$_DIRIO = 4150 ! count of direct I/OsH DECLARE LONG CONSTANT RMI$_BUFIO = 4151 ! count of buffered I/OsG DECLARE LONG CONSTANT RMI$_MBREADS = 4152 ! total mailbox readsI DECLARE LONG CONSTANT RMI$_MBWRITES = 4153 ! total mailbox writesL DECLARE LONG CONSTANT RMI$_LOGNAM = 4154 ! logical name translationsD DECLARE LONG CONSTANT RMI$_FCPCALLS = 4155 ! total fcp callsO DECLARE LONG CONSTANT RMI$_FCPREAD = 4156 ! number of disk reads by FCPQ DECLARE LONG CONSTANT RMI$_FCPWRITE = 4157 ! number of disk writes by FCPM DECLARE LONG CONSTANT RMI$_FCPCACHE = 4158 ! number of FCP cache hitsL DECLARE LONG CONSTANT RMI$_FCPCPU = 4159 ! number of CPU tics by FCPH DECLARE LONG CONSTANT RMI$_FCPHIT = 4160 ! number of window hitsN DECLARE LONG CONSTANT RMI$_FCPSPLIT = 4161 ! number of split transfersN DECLARE LONG CONSTANT RMI$_FCPFAULT = 4162 ! number of FCP page faultsH DECLARE LONG CONSTANT RMI$_ENQNEW = 4163 ! number of ENQ's (new)P DECLARE LONG CONSTANT RM I$_ENQCVT = 4164 ! number of ENQ's (conversions)? DECLARE LONG CONSTANT RMI$_DEQ = 4165 ! number of DEQ'sK DECLARE LONG CONSTANT RMI$_BLKAST = 4166 ! number of blocking AST'sR DECLARE LONG CONSTANT RMI$_ENQWAIT = 4167 ! number of ENQ's forced to waitO DECLARE LONG CONSTANT RMI$_ENQNOTQD = 4168 ! number of ENQ's not queuedP DECLARE LONG CONSTANT RMI$_DLCKSRCH = 4169 ! number of deadlock searchesM DECLARE LONG CONSTANT RMI$_DLCKFND = 4170 ! number of  deadlocks found@ DECLARE LONG CONSTANT RMI$_NUMLOCKS = 4171 ! total locksB DECLARE LONG CONSTANT RMI$_NUMRES = 4172 ! total resourcesK DECLARE LONG CONSTANT RMI$_ARRLOCPK = 4173 ! arriving local packetsL DECLARE LONG CONSTANT RMI$_DEPLOCPK = 4174 ! departing local packetsM DECLARE LONG CONSTANT RMI$_ARRTRAPK = 4175 ! arriving transit packetsL DECLARE LONG CONSTANT RMI$_TRCNGLOS = 4176 ! transit congestion lossM DECLARE LONG CONSTANT RMI$_RCVBUFF L = 4177 ! receiver buffer failuresM DECLARE LONG CONSTANT RMI$_RESERVED1 = 4178 ! Reserved PMS location 1M DECLARE LONG CONSTANT RMI$_RESERVED2 = 4179 ! Reserved PMS location 2M DECLARE LONG CONSTANT RMI$_RESERVED3 = 4180 ! Reserved PMS location 3M DECLARE LONG CONSTANT RMI$_RESERVED4 = 4181 ! Reserved PMS location 4M DECLARE LONG CONSTANT RMI$_RESERVED5 = 4182 ! Reserved PMS location 5M DECLARE LONG CONSTANT RMI$_RESERVED6 = 4183 ! Reserved PMS  location 6M DECLARE LONG CONSTANT RMI$_RESERVED7 = 4184 ! Reserved PMS location 7M DECLARE LONG CONSTANT RMI$_RESERVED8 = 4185 ! Reserved PMS location 8M DECLARE LONG CONSTANT RMI$_RESERVED9 = 4186 ! Reserved PMS location 9O DECLARE LONG CONSTANT RMI$_RESERVED10 = 4187 ! Reserved PMS location 10O DECLARE LONG CONSTANT RMI$_RESERVED11 = 4188 ! Reserved PMS location 11O DECLARE LONG CONSTANT RMI$_RESERVED12 = 4189 ! Reserved PMS location 12O  DECLARE LONG CONSTANT RMI$_RESERVED13 = 4190 ! Reserved PMS location 13O DECLARE LONG CONSTANT RMI$_RESERVED14 = 4191 ! Reserved PMS location 14O DECLARE LONG CONSTANT RMI$_RESERVED15 = 4192 ! Reserved PMS location 15O DECLARE LONG CONSTANT RMI$_RESERVED16 = 4193 ! Reserved PMS location 16O DECLARE LONG CONSTANT RMI$_RESERVED17 = 4194 ! Reserved PMS location 17O DECLARE LONG CONSTANT RMI$_RESERVED18 = 4195 ! Reserved PMS location 18U DECLARE LONG CONSTANT RMI$_FID_TRIES = 4196 ! count of File Id cache attempts\ DECLARE LONG CONSTANT RMI$_FILHDR_TRIES = 4197 ! count of File header cache attempts` DECLARE LONG CONSTANT RMI$_DIRFCB_TRIES = 4198 ! count of Directory block cache attempts` DECLARE LONG CONSTANT RMI$_DIRDATA_TRIES = 4199 ! count of Directory data cache attemptsT DECLARE LONG CONSTANT RMI$_EXT_TRIES = 4200 ! count of Extent cache attemptsS DECLARE LONG CONSTANT RMI$_QUO_TRIES = 4201 ! count of Quota cache attemptsb DECLARE LONG CONSTANT RMI$_STORAGMAP_TRIES = 4202 ! count of storage bitmap cache attempts? DECLARE LONG CONSTANT RMI$_DISKS = 4203 ! all disk data DECLARE LONG CONSTANT RMI$_TOTAL_LOCKS = 4204 ! Total of all locking activity - NOT COLLECTED BY RMI - COMPUTED BY MONITORO DECLARE LONG CONSTANT RMI$_ENQNEWLOC = 4205 ! new lock requests (local)Q DECLARE LONG CONSTANT RMI$_ENQNEWIN = 4206 ! new lock requests (incoming)R DECLARE LONG CONSTANT RMI$_ENQNEWOUT = 4207 ! new lock requests (outgoing)V DECLARE LONG CONSTANT RMI$_ENQCVTLOC = 4208 ! lock conversion requests (local)X DECLARE LONG CONSTANT RMI$_ENQCVTIN = 4209 ! lock conversion requests (incoming)Y DECLARE LONG CONSTANT RMI$_ENQCVTOUT = 4210 ! lock conversion requests (outgoing)C DECLARE LONG CONSTANT RMI$_DEQLOC = 4211 ! dequeues (local)E DECLARE LONG CONSTANT RMI$_DEQIN = 4212 ! dequeues (incoming)F DECLARE LONG CONSTANT RMI$_DEQOUT = 4213 ! dequeues (outgoing)O DECLARE LONG CONSTANT RMI$_BLKLOC = 4214 ! blocking ASTs queued (local)Q DECLARE LONG CONSTANT RMI$_BLKIN = 4215 ! blocking ASTs queued (incoming)R DECLARE LONG CONSTANT RMI$_BLKOUT = 4216 ! blocking ASTs queued (outgoing)Q DECLARE LONG CONSTANT RMI$_DIRIN = 4217 ! directory operations (incoming)R DECLARE LONG CONSTANT RMI$_DIROUT = 4218 ! directory operations (outgoing)[ DECLARE LONG CONSTANT RMI$_DLCKMSGS = 4219 ! deadlock detection messages (in ? out)C DECLARE LONG CONSTANT RMI$_SCS = 4220 ! All SCS informationG DECLARE LONG CONSTANT RMI$_SYSTIME = 4221 ! Current system time[ DECLARE LONG CONSTANT RMI$_MSCP_REQUEST = 4222 ! IO request rate to the MSCP serverZ DECLARE LONG CONSTANT RMI$_MSCP_READ = 4223 ! Read request rate to the MSCP server\ DECLARE LONG CONSTANT RMI$_MSCP_WRITE = 4224 ! Write request rate to the MSCP server\ DECLARE LONG CONSTANT RMI$_MSCP_FRAGMENT = 4225 ! Rate at which I/O's are fragmentedT DECLARE LONG CONSTANT RMI$_MSCP_SPLIT = 4226 ! Rate at which I/O's are splitr DECLARE LONG CONSTANT RMI$_MSCP_BUFWAIT = 4227 ! Rate at which incoming requests have to wait for a bufferT DECLARE LONG CONSTANT RMI$_MSCP_SIZE1 = 4228 ! I/O rate for sizes 1-2 blocksT DECLARE LONG CONSTANT RMI$_MSCP_SIZE2 = 4229 ! I/O rate for sizes 2-3 blocksT DECLARE LONG CONSTANT RMI$_MSCP_SIZE3 = 4230 ! I/O rate for sizes 4-7 blocksU DECLARE LONG CONSTANT RMI$_MSCP_SIZE4 = 4231 ! I/O rate for sizes 8-15 blocksV DECLARE LONG CONSTANT RMI$_MSCP_SIZE5 = 4232 ! I/O rate for sizes 16-31 blocksV DECLARE LONG CONSTANT RMI$_MSCP_SIZE6 = 4233 ! I/O rate for sizes 32-63 blocksW DECLARE LONG CONSTANT RMI$_MSCP_SIZE7 = 4234 ! I/O rate for sizes 64-127 blocksf DECLARE LONG CONSTANT RMI$_MSCP_ALL = 4235 ! Dummy item to collect all MSCP server class itemsP DECLARE LONG CONSTANT RMI$_DDTM_STARTS = 4236 ! Local Transaction startsY DECLARE LONG CONSTANT RMI$_DDTM_PREPARES = 4237 ! Local Transaction prepare event] DECLARE LONG CONSTANT RMI$_DDTM_ONE_PHASE = 4238 ! Transaction ONE_PHASE commit eventv DECLARE LONG CONSTANT RMI$_DDTM_COMMITS = 4239 ! Local Transaction commit event (sum of phase 1 and 2 commits)U DECLARE LONG CONSTANT RMI$_DDTM_ABORTS = 4240 ! Local Transaction abort eventL DECLARE LONG CONSTANT RMI$_DDTM_ENDS = 4241 ! Local Transaction endsK DECLARE LONG CONSTANT RMI$_DDTM_BRANCHS = 4242 ! Start branch eventF DECLARE LONG CONSTANT RMI$_DDTM_ADDS = 4243 ! Add branch eventJ DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS1 = 4244 ! TPS rate for < 1J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS2 = 4245 ! TPS rate for 1-2J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS3 = 4246 ! TPS rate for 2-3J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS4 = 4247 ! TPS rate for 3-4J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS5 = 4248 ! TPS rate for 4-5J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS6 = 4249 ! TPS rate for > 6f DECLARE LONG CONSTANT RMI$_DDTM_ALL = 4250 ! Dummy item to collect all TRANSACTION class itemsS DECLARE LONG CONSTANT RMI$_VECTORP = 4251 ! Vector Processor tics scheduledF DECLARE LONG CONSTANT RMI$_VBYTE_READ = 4252 ! VBS bytes readJ DECLARE LONG CONSTANT RMI$_VBYTE_WRITE = 4253 ! VBS bytes written1 DECLARE LONG CONSTANT RMI$_VVBS_TRAN = 4254 1 DECLARE LONG CONSTANT RMI$_VRBS_TRAN = 42550 DECLARE LONG CONSTANT RMI$_VDIO_SEL = 42565 DECLARE LONG CONSTANT RMI$_VDIOMAP_ALLOC = 42572 DECLARE LONG CONSTANT RMI$_VRBS_AVAIL = 42581 DECLARE LONG CONSTANT RMI$_VSEL_FAIL = 42591 DECLARE LONG CONSTANT RMI$_VVBSM_HIT = 42603 DECLARE LONG CONSTANT RMI$_VVBSM_CACHE = 42611 DECLARE LONG CONSTANT RMI$_VFLUIDBAL = 4262/ DECLARE LONG CONSTANT RMI$_VRECOPY = 42631 DECLARE LONG CONSTANT RMI$_VCPUTICKS = 4264 DECLARE LONG CONSTANT RMI$_MSCP_EVERYTHING = 4265 ! All MSCP server class items including the NEW items not in MSCP_ALL Y DECLARE LONG CONSTANT RMI$_TMSCP_EVERYTHING = 4266 ! All TMSCP server class itemsa DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_ACKRCV = 4267 ! # of 2 PHASE commit ack msg rcvda DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_ACKSNT = 4268 ! # of 2 PHASE commit ack msg sentd DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_CANRCV = 4269 ! # of 2 PHASE commit cancel msg rcvdd DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_CANSNT = 4270 ! # of 2 PHASE commit cancel msg sentc DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_RDYRCV = 4271 ! # of 2 PHASE commit ready msg rcvdc DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_RDYSNT = 4272 ! # of 2 PHASE commit ready msg sente DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_REQRCV = 4273 ! # of 2 PHASE commit request msg rcvde DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_REQSNT = 4274 ! # of 2 PHASE commit request msg sent` DECLARE LONG CONSTANT RMI$_DDTM_TWOPHASE_COMMITS = 4275 ! Total # of phase 2 transitionsQ DECLARE LONG CONSTANT RMI$_DDTM_DECLARES = 4276 ! Total # of $DECLARE_RMsK DECLARE LONG CONSTANT RMI$_DDTM_JOINS = 4277 ! Total # of $JOIN_RMsO DECLARE LONG CONSTANT RMI$_DDTM_FORGETS = 4278 ! Total # of $FORGET_RMsO DECLARE LONG CONSTANT RMI$_DDTM_SEQNO = 4279 ! Total # of XCBs created X DECLARE LONG CONSTANT RMI$_DDTM_LOG_COMMITS = 4280 ! # of Commit records writtenZ DECLARE LONG CONSTANT RMI$_DDTM_LOG_PREPARES = 4281 ! # of Prepare records writtenX DECLARE LONG CONSTANT RMI$_DDTM_LOG_FORGETS = 4282 ! # of Forget records writtenS DECLARE LONG CONSTANT RMI$_DDTM_WRITES_STARTED = 4283 ! # of Writes startedQ DECLARE LONG CONSTANT RMI$_DDTM_WRITES_FORKED = 4284 ! # of forked writesY DECLARE LONG CONSTANT RMI$_DDTM_BAD_TYPECODE = 4285 ! # of bad msg typecodes rcvdR DECLARE LONG CONSTANT RMI$_DDTM_BAD_LINKS = 4286 ! # of bad msg links rcvdP DECLARE LONG CONSTANT RMI$_DDTM_FOR_UNLINKS = 4287 ! # of forced unlinksS DECLARE LONG CONSTANT RMI$_DDTM_VOL_UNLINKS = 4288 ! # of voluntary unlinksZ DECLARE LONG CONSTANT RMI$_DDTM_DISC_COMP = 4289 ! # of disconnect complete eventsV DECLARE LONG CONSTANT RMI$_DDTM_BAD_PARTS = 4290 ! # of invalid part ids foundh DECLARE LONG CONSTANT RMI$_LCKMGR_CPU = 4291 ! The ID of the cpu on which the lock manager runs.^ DECLARE LONG CONSTANT RMI$_LCKMGR_PID = 4292 ! Process ID of the lock manager process.t DECLARE LONG CONSTANT RMI$_LCKMGR_REQCNT = 4293 ! Accumulated count of requests handled by the lock manager.y DECLARE LONG CONSTANT RMI$_LCKMGR_REQTIME = 4294 ! Accumulated time spent by the lock manager servicing requests.s DECLARE LONG CONSTANT RMI$_LCKMGR_SPINCNT = 4295 ! The number of times the lock manager entered a spinloop.t DECLARE LONG CONSTANT RMI$_LCKMGR_SPINTIME = 4296 ! Spin time in cycles, the lock manager spent in spinloop.U DECLARE LONG CONSTANT RMI$_LOCK_MAX = 4297 ! The length of the Lock ID Table.d DECLARE LONG CONSTANT RMI$_LPZ_PAKSIZ = 4298 ! Its the lock manager's pool zone packet size.q DECLARE LONG CONSTANT RMI$_LPZ_PAGCNT = 4299 ! Number of pages currently in the lock manager's pool zone.w DECLARE LONG CONSTANT RMI$_LPZ_MAXPAG = 4300 ! Its the maximum number of pages in the lock manager's p ool zone.} DECLARE LONG CONSTANT RMI$_LPZ_FREEPGCNT = 4301 ! The number of free pages currently in the lock manager's pool zone.i DECLARE LONG CONSTANT RMI$_LPZ_HITS = 4302 ! The number of hits for the lock manager's pool zone.m DECLARE LONG CONSTANT RMI$_LPZ_MISSES = 4303 ! The number of misses for the lock manager's pool zone.p DECLARE LONG CONSTANT RMI$_LPZ_EXPCNT = 4304 ! The number of expansions of the lock manager's pool zone.z DECLARE LONG CONSTANT RMI$!_LPZ_ALLOCF = 4305 ! The number of failed allocations from the lock manager's pool zone.~ DECLARE LONG CONSTANT RMI$_LPZ_ALLOC2 = 4306 ! The number of allocations from other than the first page of the lock & ! manager's pool zone.t DECLARE LONG CONSTANT RMI$_LPZ_EMPTY = 4307 ! Its the number of empty pages in the lock manager's pool zone.k DECLARE LONG CONSTANT RMI$_RML_ACQUIRE = 4308 ! System-wide count of lock trees moved to this node. DECLARE LONG CONSTANT RMI$"_RML_BETTER = 4309 ! Count of lock trees moved from this node to a cluster node with a higher &$ ! value for SYSGEN param LOCKDIRWT.| DECLARE LONG CONSTANT RMI$_RML_MORE_ACT = 4310 ! Count of lock trees moved from this node due to a higher locking &+ ! activity on another node in the cluster.h DECLARE LONG CONSTANT RMI$_RML_MSGRCV = 4311 ! Count of remaster messages received by this node.g DECLARE LONG CONSTANT RMI$_RML_MSGSENT = 4312 ! Count of remaster messages sent fr#om this node.y DECLARE LONG CONSTANT RMI$_RML_NOQUOTA = 4313 ! Count of remaster operations which failed due to a lack of quota.v DECLARE LONG CONSTANT RMI$_RML_NOTAKER = 4314 ! Count of remaster operations which were proposed and declined.m DECLARE LONG CONSTANT RMI$_RML_OPCNT = 4315 ! Count of remaster operations which have been completed.t DECLARE LONG CONSTANT RMI$_RML_RBLDMSGRCV = 4316 ! Count of remaster rebuild messages received by this node.s DECLARE LO$NG CONSTANT RMI$_RML_RBLDMSGSENT = 4317 ! Count of remaster rebuild messages sent from this node. DECLARE LONG CONSTANT RMI$_RML_SINGLE = 4318 ! Count of lock trees moved from this node to another cluster node which is &1 ! the only node with locks remaining on the tree` DECLARE LONG CONSTANT RMI$_RML_UNLOAD = 4319 ! Count of lock trees moved from this node.K DECLARE LONG CONSTANT RMI$_RESERVEDEXE1 = 4320 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDE%XE2 = 4321 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE3 = 4322 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE4 = 4323 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE5 = 4324 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE6 = 4325 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE7 = 4326 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE8 = 4327 ! Reserved EXE itemsK & DECLARE LONG CONSTANT RMI$_RESERVEDEXE9 = 4328 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE10 = 4329 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE11 = 4330 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE12 = 4331 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE13 = 4332 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE14 = 4333 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVE 'DEXE15 = 4334 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE16 = 4335 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_LASTEXE = 4336 ! Last item in the EXE table ! K ! These next items are located in an executive writable page in memory ! J DECLARE LONG CONSTANT RMI$_ACCESS = 8432 ! number of file accessesH DECLARE LONG CONSTANT RMI$_ALLOC = 8433 ! number of file extendsN DECLARE LONG CONSTANT RMI$_FCPCREATE = 8434 ! number of fi(le creationsY DECLARE LONG CONSTANT RMI$_VOLWAIT = 8435 ! # of times XQP waited for volume lockJ DECLARE LONG CONSTANT RMI$_FCPTURN = 8436 ! number of window turnsJ DECLARE LONG CONSTANT RMI$_FCPERASE = 8437 ! number of erase callsF DECLARE LONG CONSTANT RMI$_OPENS = 8438 ! number of file opensN DECLARE LONG CONSTANT RMI$_FIDHIT = 8439 ! count of File Id cache hitsQ DECLARE LONG CONSTANT RMI$_FIDMISS = 8440 ! count of File Id cache missesV DECLAR)E LONG CONSTANT RMI$_FILHDR_HIT = 8441 ! count of File header cache hitsZ DECLARE LONG CONSTANT RMI$_DIRFCB_HIT = 8442 ! count of Directory block cache hits] DECLARE LONG CONSTANT RMI$_DIRFCB_MISS = 8443 ! count of Directory block cache missesZ DECLARE LONG CONSTANT RMI$_DIRDATA_HIT = 8444 ! count of Directory data cache hitsM DECLARE LONG CONSTANT RMI$_EXTHIT = 8445 ! count of Extent cache hitsP DECLARE LONG CONSTANT RMI$_EXTMISS = 8446 ! count of Extent ca*che missesL DECLARE LONG CONSTANT RMI$_QUOHIT = 8447 ! count of Quota cache hitsO DECLARE LONG CONSTANT RMI$_QUOMISS = 8448 ! count of Quota cache misses\ DECLARE LONG CONSTANT RMI$_STORAGMAP_HIT = 8449 ! count of storage bitmap cache hitsE DECLARE LONG CONSTANT RMI$_VOLLCK = 8450 ! Volume synch locksS DECLARE LONG CONSTANT RMI$_SYNCHLCK = 8451 ! directory and file synch locksn DECLARE LONG CONSTANT RMI$_SYNCHWAIT = 8452 ! # of times XQP waited for a +directory or file synch lock? DECLARE LONG CONSTANT RMI$_ACCLCK = 8453 ! access locksm DECLARE LONG CONSTANT RMI$_XQPCACHEWAIT = 8454 ! # of times XQP had to wait for free space in a cache] DECLARE LONG CONSTANT RMI$_DIRDATA_MISS = 8455 ! count of Directory data cache missesY DECLARE LONG CONSTANT RMI$_FILHDR_MISS = 8456 ! count of File header cache misses_ DECLARE LONG CONSTANT RMI$_STORAGMAP_MISS = 8457 ! count of storage bitmap cache missesK DECLAR,E LONG CONSTANT RMI$_RESERVEDEWS1 = 8458 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS2 = 8459 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS3 = 8460 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS4 = 8461 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS5 = 8462 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS6 = 8463 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS7 = 84-64 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS8 = 8465 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS9 = 8466 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS10 = 8467 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS11 = 8468 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS12 = 8469 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS13 = 8470 ! Reserved EWS itemsL DECL.ARE LONG CONSTANT RMI$_RESERVEDEWS14 = 8471 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS15 = 8472 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS16 = 8473 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS17 = 8474 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS18 = 8475 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS19 = 8476 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS20 =/ 8477 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS21 = 8478 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS22 = 8479 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS23 = 8480 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS24 = 8481 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS25 = 8482 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS26 = 8483 ! Reserved EWS itemsL DE0CLARE LONG CONSTANT RMI$_RESERVEDEWS27 = 8484 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS28 = 8485 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS29 = 8486 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS30 = 8487 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS31 = 8488 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS32 = 8489 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS331 = 8490 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS34 = 8491 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS35 = 8492 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS36 = 8493 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS37 = 8494 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS38 = 8495 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS39 = 8496 ! Reserved EWS itemsL 2DECLARE LONG CONSTANT RMI$_RESERVEDEWS40 = 8497 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS41 = 8498 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS42 = 8499 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS43 = 8500 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS44 = 8501 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS45 = 8502 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS346 = 8503 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS47 = 8504 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS48 = 8505 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS49 = 8506 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS50 = 8507 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS51 = 8508 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS52 = 8509 ! Reserved EWS itemsL 4 DECLARE LONG CONSTANT RMI$_RESERVEDEWS53 = 8510 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS54 = 8511 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS55 = 8512 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS56 = 8513 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS57 = 8514 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS58 = 8515 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDE5WS59 = 8516 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS60 = 8517 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS61 = 8518 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS62 = 8519 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS63 = 8520 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS64 = 8521 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS65 = 8522 ! Reserved EWS itemsL 6 DECLARE LONG CONSTANT RMI$_RESERVEDEWS66 = 8523 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS67 = 8524 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS68 = 8525 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS69 = 8526 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS70 = 8527 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS71 = 8528 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVE7DEWS72 = 8529 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS73 = 8530 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS74 = 8531 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS75 = 8532 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS76 = 8533 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS77 = 8534 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS78 = 8535 ! Reserved EWS itemsL8 DECLARE LONG CONSTANT RMI$_RESERVEDEWS79 = 8536 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS80 = 8537 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS81 = 8538 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS82 = 8539 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS83 = 8540 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS84 = 8541 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESER9VEDEWS85 = 8542 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS86 = 8543 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS87 = 8544 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS88 = 8545 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS89 = 8546 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS90 = 8547 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS91 = 8548 ! Reserved EWS items:L DECLARE LONG CONSTANT RMI$_RESERVEDEWS92 = 8549 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS93 = 8550 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS94 = 8551 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS95 = 8552 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS96 = 8553 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS97 = 8554 ! Reserved EWS itemsX DECLARE LONG CONSTANT RMI$_LAS ;TEWS = 8555 ! Last item in the exec writable table ! D ! Begin monitor specific data items. The items listed below areK ! NOT collected by the RMI as individual items. Some are NOT collected* ! at all but are computed by MONITOR. ! d DECLARE LONG CONSTANT RMI$_FIDHITPCNT = 12651 ! percentage of file id cache hits/hits+missesl DECLARE LONG CONSTANT RMI$_FILHDR_HITPCNT = 12652 ! percentage of file header cache hits/hits+missesp DECLARE LONG CONSTANT RMI$<_DIRFCB_HITPCNT = 12653 ! percentage of directory block cache hits/hits+missesp DECLARE LONG CONSTANT RMI$_DIRDATA_HITPCNT = 12654 ! percentage of directory data cache hits/hits+missesc DECLARE LONG CONSTANT RMI$_EXTHITPCNT = 12655 ! percentage of extent cache hits/hits+missesb DECLARE LONG CONSTANT RMI$_QUOHITPCNT = 12656 ! percentage of quota cache hits/hits+misseso DECLARE LONG CONSTANT RMI$_STORAGMAP_HITPCNT = 12657 ! percentage of storage map cache hits/hits+mis=sesJ DECLARE LONG CONSTANT RMI$_OPCNT = 12658 ! disk io operation countJ DECLARE LONG CONSTANT RMI$_IOQUELEN = 12659 ! disk io queue lengthT DECLARE LONG CONSTANT RMI$_IOAQUELEN = 12660 ! Accurate disk io queue lengthN DECLARE LONG CONSTANT RMI$_DISKRESPTIM = 12661 ! disk io response time_ DECLARE LONG CONSTANT RMI$_JNLIOCNT = 12662 ! journaling io operation count (for disks)S DECLARE LONG CONSTANT RMI$_JDNQLEN = 12663 ! jdevice normal io queue length>R DECLARE LONG CONSTANT RMI$_JDWQLEN = 12664 ! jdevice wait irp queue lengthR DECLARE LONG CONSTANT RMI$_JDFQLEN = 12665 ! jdevice force io queue lengthI DECLARE LONG CONSTANT RMI$_JDEXCNT = 12666 ! jdevice extend count> DECLARE LONG CONSTANT RMI$_JNLWRTSS = 12667 ! obsolete> DECLARE LONG CONSTANT RMI$_JNLBUFWR = 12668 ! obsoleteR DECLARE LONG CONSTANT RMI$_DGSENT = 12669 ! SCS application datagrams sentV DECLARE LONG CONSTANT RMI$_DGRCVD = 12670 ? ! SCS application datagrams receivedZ DECLARE LONG CONSTANT RMI$_DGDISCARD = 12671 ! SCS application datagrams discardedR DECLARE LONG CONSTANT RMI$_MSGSENT = 12672 ! SCS application messages sentV DECLARE LONG CONSTANT RMI$_MSGRCVD = 12673 ! SCS application messages receivedR DECLARE LONG CONSTANT RMI$_SNDATS = 12674 ! SCS block send datas initiatedT DECLARE LONG CONSTANT RMI$_KBYTSENT = 12675 ! SCS kbytes sent via send datasV DECLARE LONG CONSTANT RMI$@_REQDATS = 12676 ! SCS block request datas initiated[ DECLARE LONG CONSTANT RMI$_KBYTREQD = 12677 ! SCS kbytes received via request datasZ DECLARE LONG CONSTANT RMI$_KBYTMAPD = 12678 ! SCS kbytes mapped for block transfer` DECLARE LONG CONSTANT RMI$_QCR_CNT = 12679 ! SCS times connection queued for send creditg DECLARE LONG CONSTANT RMI$_QBDT_CNT = 12680 ! SCS times connection queued for buffer descriptorF DECLARE LONG CONSTANT RMI$_DIRLOOK = 12681 ! directoAry lookupsE DECLARE LONG CONSTANT RMI$_DIRINS = 12682 ! directory insertsE DECLARE LONG CONSTANT RMI$_DIRDEL = 12683 ! directory deletesL DECLARE LONG CONSTANT RMI$_PACKETS = 12684 ! Ethernet packets/secondA DECLARE LONG CONSTANT RMI$_KBYTES = 12685 ! Kbytes/secondL DECLARE LONG CONSTANT RMI$_PACKETSIZE = 12686 ! Packets size (bytes)N DECLARE LONG CONSTANT RMI$_MPACKETS = 12687 ! Multicast packets/secondL DECLARE LONG CONSTANT RMI$_MKBYTES = 126B88 ! Multicast Kbytes/secondV DECLARE LONG CONSTANT RMI$_MPACKETSIZE = 12689 ! Multicast packet size (bytes)Z DECLARE LONG CONSTANT RMI$_SINGLECOLL = 12690 ! Transmit single collision detectedY DECLARE LONG CONSTANT RMI$_MULTICOLL = 12691 ! Transmit multi collisions detectedR DECLARE LONG CONSTANT RMI$_INITDEFER = 12692 ! Transmit initially deferredY DECLARE LONG CONSTANT RMI$_INTERNALBUFERR = 12693 ! Receive internal buffer errorQ DECLARE LONG CONSTANCT RMI$_LOCBUFERR = 12694 ! Receive local buffer errorR DECLARE LONG CONSTANT RMI$_BUFFUNAVAIL = 12695 ! System buffer unavailableB DECLARE LONG CONSTANT RMI$_FILLER = 12696 ! Dummy pad itemL DECLARE LONG CONSTANT RMI$_RESERVEDMON1 = 12697 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON2 = 12698 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON3 = 12699 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON4 = 12700 ! ReseDrved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON5 = 12701 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON6 = 12702 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON7 = 12703 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON8 = 12704 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON9 = 12705 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON10 = 12706 ! Reserved MON itemsM DECLARE LONG CEONSTANT RMI$_RESERVEDMON11 = 12707 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON12 = 12708 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON13 = 12709 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON14 = 12710 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON15 = 12711 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON16 = 12712 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON17F = 12713 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON18 = 12714 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON19 = 12715 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON20 = 12716 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON21 = 12717 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON22 = 12718 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON23 = 12719 ! Reserved MON GitemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON24 = 12720 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON25 = 12721 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON26 = 12722 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON27 = 12723 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON28 = 12724 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON29 = 12725 ! Reserved MON itemsM DECLARE LONGH CONSTANT RMI$_RESERVEDMON30 = 12726 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON31 = 12727 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON32 = 12728 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON33 = 12729 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON34 = 12730 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON35 = 12731 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMONI36 = 12732 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON37 = 12733 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON38 = 12734 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON39 = 12735 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON40 = 12736 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON41 = 12737 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON42 = 12738 ! Reserved MOJN itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON43 = 12739 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON44 = 12740 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON45 = 12741 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON46 = 12742 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON47 = 12743 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON48 = 12744 ! Reserved MON itemsM DECLARE LOKNG CONSTANT RMI$_RESERVEDMON49 = 12745 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON50 = 12746 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON51 = 12747 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON52 = 12748 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON53 = 12749 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON54 = 12750 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMLON55 = 12751 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON56 = 12752 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON57 = 12753 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON58 = 12754 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON59 = 12755 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON60 = 12756 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON61 = 12757 ! Reserved MMON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON62 = 12758 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON63 = 12759 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON64 = 12760 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON65 = 12761 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON66 = 12762 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON67 = 12763 ! Reserved MON itemsM DECLARE NLONG CONSTANT RMI$_RESERVEDMON68 = 12764 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON69 = 12765 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON70 = 12766 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON71 = 12767 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON72 = 12768 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON73 = 12769 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEODMON74 = 12770 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON75 = 12771 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON76 = 12772 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON77 = 12773 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON78 = 12774 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON79 = 12775 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON80 = 12776 ! ReservePd MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON81 = 12777 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON82 = 12778 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON83 = 12779 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON84 = 12780 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON85 = 12781 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON86 = 12782 ! Reserved MON itemsM DECLARQE LONG CONSTANT RMI$_RESERVEDMON87 = 12783 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON88 = 12784 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON89 = 12785 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON90 = 12786 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON91 = 12787 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON92 = 12788 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERRVEDMON93 = 12789 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON94 = 12790 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON95 = 12791 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON96 = 12792 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON97 = 12793 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON98 = 12794 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON99 = 12795 ! Reser Sved MON itemsN DECLARE LONG CONSTANT RMI$_RESERVEDMON100 = 12796 ! Reserved MON items\ DECLARE LONG CONSTANT RMI$_LASTMON = 12797 ! Last item in the monitor specific table ! P ! Begin items specific to the Monitor RMS class. These items are maintainedS ! by RMS and collected from a global section with the following naming scheme:P ! _RMS$xxxxxxxxyyyyyy where x is the volume lock id and y is the fid of the ! file being monitored. ! Z DECLARE LONG CTONSTANT RMI$_RMS_STATS = 16893 ! All of the following rms statisticsO DECLARE LONG CONSTANT RMI$_SEQGETS = 16894 ! Total # of sequential getsJ DECLARE LONG CONSTANT RMI$_KEYGETS = 16895 ! Total # of keyed getsK DECLARE LONG CONSTANT RMI$_RFAGETS = 16896 ! Total # of gets by RFAU DECLARE LONG CONSTANT RMI$_GETBYTES = 16897 ! Total size in bytes of all GETSO DECLARE LONG CONSTANT RMI$_SEQPUTS = 16898 ! Total # of sequential putsK DECLARE LONG CONSTANT URMI$_KEYPUTS = 16899 ! Total # of puts by keyR DECLARE LONG CONSTANT RMI$_PUTBYTES = 16900 ! Total # of bytes put to fileS DECLARE LONG CONSTANT RMI$_UPDATES = 16901 ! Total # of updates to the fileY DECLARE LONG CONSTANT RMI$_UPDATEBYTES = 16902 ! Total # of bytes updated in fileO DECLARE LONG CONSTANT RMI$_DELETES = 16903 ! Total # of deletes to file_ DECLARE LONG CONSTANT RMI$_TRUNCATES = 16904 ! Total # of times file has been truncated` DECLARE VLONG CONSTANT RMI$_TRUNCBLKS = 16905 ! Total # of blocks file has been truncatedQ DECLARE LONG CONSTANT RMI$_SEQFINDS = 16906 ! Total # of sequential findsL DECLARE LONG CONSTANT RMI$_KEYFINDS = 16907 ! Total # of keyed findsJ DECLARE LONG CONSTANT RMI$_RFAFINDS = 16908 ! Total # of RFA findsD DECLARE LONG CONSTANT RMI$_READS = 16909 ! Total # of $READSX DECLARE LONG CONSTANT RMI$_READBYTES = 16910 ! Total # of bytes read from $READSL DECLARE LONG CONSTWANT RMI$_CONNECTS = 16911 ! Total connect requestsR DECLARE LONG CONSTANT RMI$_DISCONNECTS = 16912 ! Total disconnect requestsB DECLARE LONG CONSTANT RMI$_EXTENDS = 16913 ! Total extendsd DECLARE LONG CONSTANT RMI$_EXTBLOCKS = 16914 ! Total number of blocks file has been extendedS DECLARE LONG CONSTANT RMI$_FLUSHES = 16915 ! Total number of calls to flushT DECLARE LONG CONSTANT RMI$_REWINDS = 16916 ! Total number of calls to REWINDS DECLARE LONG CONSTANXT RMI$_WRITES = 16917 ! Total number of calls to $WRITEX DECLARE LONG CONSTANT RMI$_WRITEBYTES = 16918 ! Total bytes written using $WRITEU DECLARE LONG CONSTANT RMI$_FLCKENQS = 16919 ! Total number of file lock ENQ'sU DECLARE LONG CONSTANT RMI$_FLCKDEQS = 16920 ! Total number of file lock DEQ's[ DECLARE LONG CONSTANT RMI$_FLCKCNVS = 16921 ! Total number of file lock conversions^ DECLARE LONG CONSTANT RMI$_LBLCKENQS = 16922 ! Total number of local buffer loYck ENQ's^ DECLARE LONG CONSTANT RMI$_LBLCKDEQS = 16923 ! Total number of local buffer lock DEQ'sd DECLARE LONG CONSTANT RMI$_LBLCKCNVS = 16924 ! Total number of local buffer lock conversions_ DECLARE LONG CONSTANT RMI$_GBLCKENQS = 16925 ! Total number of global buffer lock ENQ's_ DECLARE LONG CONSTANT RMI$_GBLCKDEQS = 16926 ! Total number of global buffer lock DEQ'se DECLARE LONG CONSTANT RMI$_GBLCKCNVS = 16927 ! Total number of global buffer lock conversionsZ` DECLARE LONG CONSTANT RMI$_GSLCKENQS = 16928 ! Total number of global section lock ENQ's` DECLARE LONG CONSTANT RMI$_GSLCKDEQS = 16929 ! Total number of global section lock DEQ'sf DECLARE LONG CONSTANT RMI$_GSLCKCNVS = 16930 ! Total number of global section lock conversionsW DECLARE LONG CONSTANT RMI$_RLCKENQS = 16931 ! Total number of record lock ENQ'sW DECLARE LONG CONSTANT RMI$_RLCKDEQS = 16932 ! Total number of record lock DEQ's] DECLARE LONG CONST[ANT RMI$_RLCKCNVS = 16933 ! Total number of record lock conversionsY DECLARE LONG CONSTANT RMI$_APPLCKENQS = 16934 ! Total number of append lock ENQ'sY DECLARE LONG CONSTANT RMI$_APPLCKDEQS = 16935 ! Total number of append lock DEQ's_ DECLARE LONG CONSTANT RMI$_APPLCKCNVS = 16936 ! Total number of append lock conversions^ DECLARE LONG CONSTANT RMI$_FLBLKASTS = 16937 ! Total number of file lock blocking ASTsg DECLARE LONG CONSTANT RMI$_LBLBLKASTS = 16938 ! \Total number of local buffer lock blocking ASTsh DECLARE LONG CONSTANT RMI$_GBLBLKASTS = 16939 ! Total number of global buffer lock blocking ASTsh DECLARE LONG CONSTANT RMI$_APPBLKASTS = 16940 ! Total number of shared append lock blocking ASTsd DECLARE LONG CONSTANT RMI$_LCACHEHITS = 16941 ! Total cache hits on buckets in local buffersi DECLARE LONG CONSTANT RMI$_LCACHETRIES = 16942 ! Total cache attempts on buckets in local bufferse DECLARE LONG CONSTANT RMI$_G]CACHEHITS = 16943 ! Total cache hits on buckets in global buffersj DECLARE LONG CONSTANT RMI$_GCACHETRIES = 16944 ! Total cache attempts on buckets in global buffersl DECLARE LONG CONSTANT RMI$_GBRDIRIOS = 16945 ! Total direct IO's causes by global buffer cache readsm DECLARE LONG CONSTANT RMI$_GBWDIRIOS = 16946 ! Total direct IO's causes by global buffer cache writesk DECLARE LONG CONSTANT RMI$_LBRDIRIOS = 16947 ! Total direct IO's causes by local buffer cache read^sl DECLARE LONG CONSTANT RMI$_LBWDIRIOS = 16948 ! Total direct IO's causes by local buffer cache writesg DECLARE LONG CONSTANT RMI$_BKTSPLT = 16949 ! Total number of 2 bucket splits done for this filel DECLARE LONG CONSTANT RMI$_MBKTSPLT = 16950 ! Total number of multi-bucket splits done for this file` DECLARE LONG CONSTANT RMI$_RMSOPENS = 16951 ! Total number of times file has been opened^ DECLARE LONG CONSTANT RMI$_CLOSES = 16952 ! Total number of times file_ has been closedS DECLARE LONG CONSTANT RMI$_GSBLKASTS = 16953 ! Global Section Blocking ASTSR DECLARE LONG CONSTANT RMI$_FLWAITS = 16954 ! File lock ENQs forced to waitU DECLARE LONG CONSTANT RMI$_LBWAITS = 16955 ! Local buffer ENQs forced to waitV DECLARE LONG CONSTANT RMI$_GBWAITS = 16956 ! Global buffer ENQs forced to waitW DECLARE LONG CONSTANT RMI$_GSWAITS = 16957 ! Global section ENQs forced to waitT DECLARE LONG CONSTANT RMI$_RLWAITS = 16958 ! ` Record lock ENQs forced to waitT DECLARE LONG CONSTANT RMI$_APWAITS = 16959 ! Append lock ENQs forced to waitO DECLARE LONG CONSTANT RMI$_TOTWAITS = 16960 ! Total ENQs forced to waiti DECLARE LONG CONSTANT RMI$_OUTBUFQUO = 16961 ! Number of times a process runs out of buffer quotad DECLARE LONG CONSTANT RMI$_RMSDEV1 = 16962 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV2 = 16963 ! Reserved for RMS development private moniatoringd DECLARE LONG CONSTANT RMI$_RMSDEV3 = 16964 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV4 = 16965 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV5 = 16966 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV6 = 16967 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV7 = 16968 ! Reserved for RMS development private bmonitoringd DECLARE LONG CONSTANT RMI$_RMSDEV8 = 16969 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV9 = 16970 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV10 = 16971 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV11 = 16972 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV12 = 16973 ! Reserved for RMS developmentc private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV13 = 16974 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV14 = 16975 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV15 = 16976 ! Reserved for RMS development private monitoringb DECLARE LONG CONSTANT RMI$_XQPQIOS = 16977 ! Number of XQP operations for this file by RMSW DECLARE LONG CONSTANT RMI$_LCACHEHITPCNT = 16978 ! Local RMS bufdfer hit percentX DECLARE LONG CONSTANT RMI$_GCACHEHITPCNT = 16979 ! Global RMS buffer hit percentJ DECLARE LONG CONSTANT RMI$_TOTALGET = 16980 ! Total $GET call rateJ DECLARE LONG CONSTANT RMI$_TOTALPUT = 16981 ! Total $PUT call rateL DECLARE LONG CONSTANT RMI$_TOTALFIND = 16982 ! Total $FIND call rateD DECLARE LONG CONSTANT RMI$_BYTESGET = 16983 ! Bytes per $GETD DECLARE LONG CONSTANT RMI$_BYTESPUT = 16984 ! Bytes per $PUTJ DECLARE LONG CONSTANT eRMI$_BYTESUPDATE = 16985 ! Bytes per $UPDATEF DECLARE LONG CONSTANT RMI$_BYTESREAD = 16986 ! Bytes per $READH DECLARE LONG CONSTANT RMI$_BYTESWRITE = 16987 ! Bytes per $WRITEO DECLARE LONG CONSTANT RMI$_BLOCKSTRUNCATE = 16988 ! Bytes per $TRUNCATEK DECLARE LONG CONSTANT RMI$_BLOCKSEXTEND = 16989 ! Bytes per $EXTENDS DECLARE LONG CONSTANT RMI$_ACTIVE_STREAMS = 16990 ! Active connects to fileF DECLARE LONG CONSTANT RMI$_TOTAL_ENQS = 16991 ! Total new fENQsB DECLARE LONG CONSTANT RMI$_TOTAL_DEQS = 16992 ! Total DEQsM DECLARE LONG CONSTANT RMI$_TOTAL_CNVS = 16993 ! Total ENQ conversionsM DECLARE LONG CONSTANT RMI$_TOTAL_BLKAST = 16994 ! Total blocking ASTsA DECLARE LONG CONSTANT RMI$_RMS_ORG = 16995 ! RMS File orgi DECLARE LONG CONSTANT RMI$_INTCOL_GBHSH = 16996 ! Interlock collision on global buffer hash tablec DECLARE LONG CONSTANT RMI$_INTCOL_GBH = 16997 ! Interlock Collision on global buffer heagderd DECLARE LONG CONSTANT RMI$_INTRNDWN_GBHSH = 16998 ! Interlock still held at rundown on GBHSH` DECLARE LONG CONSTANT RMI$_INTRNDWN_GBH = 16999 ! Interlock still held at rundown on GBHL DECLARE LONG CONSTANT RMI$_RESERVEDRMS5 = 17000 ! Reserved RMS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDRMS6 = 17001 ! Reserved RMS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDRMS7 = 17002 ! Reserved RMS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDRMS8 = 17003 ! Reservedh RMS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDRMS9 = 17004 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS10 = 17005 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS11 = 17006 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS12 = 17007 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS13 = 17008 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS14 = 17009 ! Reserved RMS itemsM DECLARE LOiNG CONSTANT RMI$_RESERVEDRMS15 = 17010 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS16 = 17011 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS17 = 17012 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS18 = 17013 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS19 = 17014 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS20 = 17015 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRjMS21 = 17016 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS22 = 17017 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS23 = 17018 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS24 = 17019 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS25 = 17020 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS26 = 17021 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS27 = 17022 ! Reserved kRMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS28 = 17023 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS29 = 17024 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS30 = 17025 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS31 = 17026 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS32 = 17027 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS33 = 17028 ! Reserved RMS itemsM DECLARE lLONG CONSTANT RMI$_RESERVEDRMS34 = 17029 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS35 = 17030 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS36 = 17031 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS37 = 17032 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS38 = 17033 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS39 = 17034 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEmDRMS40 = 17035 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS41 = 17036 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS42 = 17037 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS43 = 17038 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS44 = 17039 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS45 = 17040 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS46 = 17041 ! Reservend RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS47 = 17042 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS48 = 17043 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS49 = 17044 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS50 = 17045 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS51 = 17046 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS52 = 17047 ! Reserved RMS itemsM DECLARoE LONG CONSTANT RMI$_RESERVEDRMS53 = 17048 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS54 = 17049 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS55 = 17050 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS56 = 17051 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS57 = 17052 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS58 = 17053 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERpVEDRMS59 = 17054 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS60 = 17055 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS61 = 17056 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS62 = 17057 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS63 = 17058 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS64 = 17059 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS65 = 17060 ! Reserqved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS66 = 17061 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS67 = 17062 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS68 = 17063 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS69 = 17064 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS70 = 17065 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS71 = 17066 ! Reserved RMS itemsM DECLrARE LONG CONSTANT RMI$_RESERVEDRMS72 = 17067 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS73 = 17068 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS74 = 17069 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS75 = 17070 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS76 = 17071 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS77 = 17072 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESsERVEDRMS78 = 17073 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS79 = 17074 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS80 = 17075 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS81 = 17076 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS82 = 17077 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS83 = 17078 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS84 = 17079 ! Resterved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS85 = 17080 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS86 = 17081 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS87 = 17082 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS88 = 17083 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS89 = 17084 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS90 = 17085 ! Reserved RMS itemsM DEuCLARE LONG CONSTANT RMI$_RESERVEDRMS91 = 17086 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS92 = 17087 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS93 = 17088 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS94 = 17089 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS95 = 17090 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS96 = 17091 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RvESERVEDRMS97 = 17092 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS98 = 17093 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS99 = 17094 ! Reserved RMS itemsN DECLARE LONG CONSTANT RMI$_RESERVEDRMS100 = 17095 ! Reserved RMS items\ DECLARE LONG CONSTANT RMI$_LASTRMS = 17096 ! Last item in the monitor specific table% ! EX2TABLE : Extended EXE table H ! Define item identifier numbers. Each data item has an associatedJ ! valuew which is used to find its entry in the EXETBL. The item tableM ! is defined by the macros RMI_GENERATE_TABLE which makes multiple callsB ! to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. ! A DECLARE LONG CONSTANT RMI$_CPUID = 21192 ! Primary cpu idK DECLARE LONG CONSTANT RMI$_CPUCOMPAT = 21193 ! time in compat. modeN DECLARE LONG CONSTANT RMI$_CPUINTSTK = 21194 ! time on interrupt stackP DECLARE LONG CONSTANT RMI$_CPUMPSYNCH = 21195 ! timex spent in synch modeK DECLARE LONG CONSTANT RMI$_CPUKERNEL = 21196 ! time in kernel mode F DECLARE LONG CONSTANT RMI$_CPUEXEC = 21197 ! time in exec modeM DECLARE LONG CONSTANT RMI$_CPUSUPER = 21198 ! time in supervisor modeF DECLARE LONG CONSTANT RMI$_CPUUSER = 21199 ! time in user mode> DECLARE LONG CONSTANT RMI$_CPUIDLE = 21200 ! idle timeq DECLARE LONG CONSTANT RMI$_PROCCNTMAX = 21201 ! Maximum number of concurrent processes seen by the systeme y DECLARE LONG CONSTANT RMI$_PROCBATCNT = 21202 ! Total number of batch processes in the systemk DECLARE LONG CONSTANT RMI$_PROCINTCNT = 21203 ! Total number of interactive processes in the systemg DECLARE LONG CONSTANT RMI$_PROCNETCNT = 21204 ! Total number of network processes in the system| DECLARE LONG CONSTANT RMI$_PROCSWITCHCNT = 21205 ! Total count of switches from the then-currently executing processg DECLARE LONG CONSTANT RMI$_PROCBALSETCNT = 21206 ! Totzal number of processe in the balance set.h DECLARE LONG CONSTANT RMI$_PROCLOADCNT = 21207 ! Total count of process context load operations.N DECLARE LONG CONSTANT RMI$_BADFLTS = 21208 ! Number of bad_list faultsU DECLARE LONG CONSTANT RMI$_EXEFAULTS = 21209 ! Number of execute page faults.n DECLARE LONG CONSTANT RMI$_HDRINSWAPS = 21210 ! Count of system wide process header inswap operations.p DECLARE LONG CONSTANT RMI$_HDROUTSWAPS = 21211 ! Count of system wid{e process header outswap operations. DECLARE LONG CONSTANT RMI$_IOPAGCNT = 21212 ! Count of pages in transit to disk from the modified page list (system wide & ! ).i DECLARE LONG CONSTANT RMI$_ISWPCNTPG = 21213 ! Accumulated system wide count of pages in-swapped.q DECLARE LONG CONSTANT RMI$_OSWPCNT = 21214 ! Accumulated system wide count of process owtswap operations.i DECLARE LONG CONSTANT RMI$_OSWPCNTPG = 21215 ! Accumulated system-wide count of pages out-swap|pedY DECLARE LONG CONSTANT RMI$_RDFAULTS = 21216 ! Count of fault-on-read page faults.j DECLARE LONG CONSTANT RMI$_TRANSFLTS = 21217 ! Accumulated system-wide count of transition faults.[ DECLARE LONG CONSTANT RMI$_WRTFAULTS = 21218 ! Count of fault-on-write page faults.i DECLARE LONG CONSTANT RMI$_USERPAGES = 21219 ! Number of pages available for use by applications.d DECLARE LONG CONSTANT RMI$_VMSPAGES = 21220 ! Number of pages actually allocated to OpenVM}S.W DECLARE LONG CONSTANT RMI$_LOGNAMCRE = 21221 ! Count of logical name creations.W DECLARE LONG CONSTANT RMI$_LOGNAMDEL = 21222 ! Count of logical name deletions.g DECLARE LONG CONSTANT RMI$_LOGNAMFAIL = 21223 ! Count of logical name translations that failed._ DECLARE LONG CONSTANT RMI$_LOGNAMTBLCRE = 21224 ! Count of logical name tables created.w DECLARE LONG CONSTANT RMI$_TTREADCNT = 21225 ! Accumulated system wide count of characters read from terminals~.k DECLARE LONG CONSTANT RMI$_TTREADS = 21226 ! Accumulated system wide count of reads from terminals.y DECLARE LONG CONSTANT RMI$_TTWRITECNT = 21227 ! Accumulated system wide count of characters written to terminals.k DECLARE LONG CONSTANT RMI$_TTWRITES = 21228 ! Accumulated system wide count of writes to terminals.q DECLARE LONG CONSTANT RMI$_BUFOBJPAG = 21229 ! Count of buffer object physical pages currently allocated.~ DECLARE LONG CONSTANT RMI$_BUFOBJPAGPEAK = 21230 ! Maximum number of buffer object physical pages currently allocated.{ DECLARE LONG CONSTANT RMI$_BUFOBJPAGS01 = 21231 ! Number of buffer object pages currently allocated in S0/S1 space.{ DECLARE LONG CONSTANT RMI$_BUFOBJPAGS2 = 21232 ! Max number of buffer object pages currently allocated in S2 space.n DECLARE LONG CONSTANT RMI$_BUFOBJPAGMAXS01 = 21233 ! Max number of buffer object pages in S0/S1 space.w DECLARE LONG CONSTANT RMI$_BUFOBJPAGMAXS2 = 21234  ! Maximum number of buffer object physical pages in S2 space. DECLARE LONG CONSTANT RMI$_BUFOBJPAGPEAKS01 = 21235 ! Max number of buffer object pages currently allocated in S0/S1 & ! space. DECLARE LONG CONSTANT RMI$_BUFOBJPAGPEAKS2 = 21236 ! Maximum number of buffer object physical pages currently allocated & ! in S2 space.x DECLARE LONG CONSTANT RMI$_BUFOBJPGLTMAXS01 = 21237 ! Number of available buffer object pagelets in S0/S1 space.t DECLARE LONG CONSTANT RMI$_BUFOBJPGLTMAXS2 = 21238 ! Number of available buffer object pagelets in S2 space.l DECLARE LONG CONSTANT RMI$_DLCK_INCMPLT = 21239 ! System-wide count of incomplete deadlock searches.s DECLARE LONG CONSTANT RMI$_DLCKMSGS_IN = 21240 ! System-wide count of incoming deadlock detection messages.w DECLARE LONG CONSTANT RMI$_DLCKMSGS_OUT = 21241 ! System-wide count of of outgoing deadlock detection messages.N DECLARE LONG CONSTANT RMI$_TQETOTAL = 21242 ! Count of timer requests.o DECLARE LONG CONSTANT RMI$_TQESYSUB = 21243 ! Count of timer requests made by OpenVMS operating system. DECLARE LONG CONSTANT RMI$_TQEUSRTIMR = 21244 ! Count of timer requests made by application programs through $SETIMR & ! system service. DECLARE LONG CONSTANT RMI$_TQEUSRWAKE = 21245 ! Count of timer requests made by application programs through $SCHDWK & ! system service. DECLARE LONG CONSTANT RMI$_CWPSBYTESIN = 21246 ! Count of Cluster-wide process services "CWPS" message bytes received by & ! the system.i DECLARE LONG CONSTANT RMI$_CWPSBYTESOUT = 21247 ! Count of CWPS message bytes sent by the system.n DECLARE LONG CONSTANT RMI$_CWPSJPISIN = 21248 ! Count of CWPS $GETJPI requests received by the system.k DECLARE LONG CONSTANT RMI$_CWPSJPISOUT = 21249 ! Count of CWPS $GETJPI requests sent by the system.f DECLARE LONG CONSTANT RMI$_CWPSMSGSIN = 21250 ! Count of CWPS messages received by the system.c DECLARE LONG CONSTANT RMI$_CWPSMSGSOUT = 21251 ! Count of CWPS messages sent by the system.o DECLARE LONG CONSTANT RMI$_CWPSPCNTRLIN = 21252 ! Count of CWPS PCNTRL requests received by the system.l DECLARE LONG CONSTANT RMI$_CWPSPCNTRLOUT = 21253 ! Count of CWPS PCNTRL requests sent by the system.t DECLARE LONG CONSTANT RMI$_CWPSRSRCIN = 21254 ! Count of CWPS resource-fail messages received by the system.q DECLARE LONG CONSTANT RMI$_CWPSRSRCOUT = 21255 ! Count of CWPS resource-fail messages sent by the system.Q DECLARE LONG CONSTANT RMI$_CHME = 21256 ! Count of $CMEXEC service calls.Q DECLARE LONG CONSTANT RMI$_CHMK = 21257 ! Count of $CMKRNL service calls.j DECLARE LONG CONSTANT RMI$_MCHKERRS = 21258 ! Count of machine checks since the system was booted.h DECLARE LONG CONSTANT RMI$_MEMERRS = 21259 ! Count of memory errors since the system was booted. DECLARE LONG CONSTANT RMI$_RESMASK = 21260 ! A bit mask summarizing the system resources for which processes in the MWAIT & ! state are currently waiting.I DECLARE LONG CONSTANT RMI$_CACHE_STATE = 21261 ! Cache stats bitse DECLARE LONG CONSTANT RMI$_CACHE_MEMORY = 21262 ! Pages of memory currently held by the cacher DECLARE LONG CONSTANT RMI$_CACHE_FREE = 21263 ! Pages of memory held by the cache but not currently in useF DECLARE LONG CONSTANT RMI$_CACHE_READ_HITS = 21264 ! Read hits^ DECLARE LONG CONSTANT RMI$_CACHE_VIRT_READS = 21265 ! Virtual reads to cacheable files` DECLARE LONG CONSTANT RMI$_CACHE_VIRT_WRITES = 21266 ! Virtual writes to cacheable files_ DECLARE LONG CONSTANT RMI$_CACHE_R_ARND_MOD = 21267 ! Read arounds due to modifier bits` DECLARE LONG CONSTANT RMI$_CACHE_R_ARND_SIZ = 21268 ! Read arounds due to size too large` DECLARE LONG CONSTANT RMI$_CACHE_W_ARND_MOD = 21269 ! Write arounds due to modifier bitsa DECLARE LONG CONSTANT RMI$_CACHE_W_ARND_SIZ = 21270 ! Write arounds due to size too largeR DECLARE LONG CONSTANT RMI$_CACHE_LIMBO_LEN = 21271 ! Length of limbo queueW DECLARE LONG CONSTANT RMI$_CACHE_MIN_SIZE = 21272 ! Minimum cache size in Pages_ DECLARE LONG CONSTANT RMI$_CACHE_MAX_SIZE = 21273 ! Current maximum cache size in Pages DECLARE LONG CONSTANT RMI$_CACHE_MAX_LIMIT = 21274 ! Maximum ever cache size in Pages (limited by boot-time VA allocation)W DECLARE LONG CONSTANT RMI$_CACHE_MAX_IO_SIZE = 21275 ! Value of VCC_MAX_IO_SIZES DECLARE LONG CONSTANT RMI$_CACHE_MAX_LOCKS = 21276 ! Value of VCC_MAX_LOCKSS DECLARE LONG CONSTANT RMI$_CACHE_READAHEAD = 21277 ! Value of VCC_READAHEADW DECLARE LONG CONSTANT RMI$_CACHE_WRITEBEHIND = 21278 ! Value of VCC_WRITEBEHINDV DECLARE LONG CONSTANT RMI$_CACHE_WRITEDELAY = 21279 ! Value of VCC_WRITE_DELAYc DECLARE LONG CONSTANT RMI$_CACHE_VOLS_FXFC_MODE = 21280 ! Count of volumes in Full XFC modem DECLARE LONG CONSTANT RMI$_CACHE_VOLS_RXFC_MODE = 21281 ! Count of volumes in VIOC compatability modec DECLARE LONG CONSTANT RMI$_CACHE_VOLS_NC_MODE = 21282 ! Count of volumes in No Caching moden DECLARE LONG CONSTANT RMI$_CACHE_VOLS_PNC_MODE = 21283 ! Count of volumes in Permanent No Caching modeR DECLARE LONG CONSTANT RMI$_CACHE_OPEN_FILES = 21284 ! Number of open filesi DECLARE LONG CONSTANT RMI$_CACHE_UNSYNCHED_IOS = 21285 ! Number of physical/logical unsynched IOs_ DECLARE LONG CONSTANT RMI$_CACHE_DELAYED_WRITES = 21286 ! Number of write-behind writes] DECLARE LONG CONSTANT RMI$_CACHE_LOST_WRITES = 21287 ! Writes lost due to disk errorse DECLARE LONG CONSTANT RMI$_CACHE_FULL_BARRIERS = 21288 ! Number of full barriers in dep graphk DECLARE LONG CONSTANT RMI$_CACHE_PARTIAL_BARRIERS = 21289 ! Number of partial barriers in dep graphf DECLARE LONG CONSTANT RMI$_CACHE_READS_AROUND = 21290 ! Total number of reads around the cacheh  DECLARE LONG CONSTANT RMI$_CACHE_WRITES_AROUND = 21291 ! Total number of writes around the cacheh DECLARE LONG CONSTANT RMI$_CACHE_CURRENT_LOCKS = 21292 ! Number of locks currently held by cachem DECLARE LONG CONSTANT RMI$_CACHE_BARRIER_COUNT = 21293 ! Number of barrier calls made since boot-timej DECLARE LONG CONSTANT RMI$_CACHE_SUPER_WRITES = 21294 ! Number of writes that supersede dirty dataw DECLARE LONG CONSTANT RMI$_CACHE_NON_PAGED_POOL = 21295 ! Amount of non-paged pool cuurrently held by the cachej DECLARE LONG CONSTANT RMI$_CACHE_EVERYTHING = 21296 ! Dummy item to collect everything about cache` DECLARE LONG CONSTANT RMI$_GBP_CURMAP = 21297 ! Count of global pages currently mapped. i DECLARE LONG CONSTANT RMI$_GBP_CURMAP_GRP = 21298 ! Count of group global pages currently mapped.u DECLARE LONG CONSTANT RMI$_GBP_CURMAP_GRPWRT = 21299 ! Count of writable group global pages currently mapped.j DECLARE LONG CONSTANT RMI$_GBP_CURMAP_SYS = 21300 ! Count of system global pages currently mapped.z DECLARE LONG CONSTANT RMI$_GBP_CURMAP_SYSWRT = 21301 ! Count of writable system global pages currently mapped. k DECLARE LONG CONSTANT RMI$_GBP_MAXMAP = 21302 ! Maximum count of global pages simultaneouly mapped.b DECLARE LONG CONSTANT RMI$_GBS_CURMAP = 21303 ! Count of global sections currently mapped.l DECLARE LONG CONSTANT RMI$_GBS_CURMAP_GRP = 21304 ! Count of group global sections currently mapped.x DECLARE LONG CONSTANT RMI$_GBS_CURMAP_GRPWRT = 21305 ! Count of writable group global sections currently mapped.m DECLARE LONG CONSTANT RMI$_GBS_CURMAP_SYS = 21306 ! Count of system global sections currently mapped.y DECLARE LONG CONSTANT RMI$_GBS_CURMAP_SYSWRT = 21307 ! Count of writable system global sections currently mapped.n DECLARE LONG CONSTANT RMI$_GBS_MAXMAP = 21308 ! Maximum count of global sections simutaneously mapped.h DECLARE LONG CONSTANT RMI$_GBS_NOREF = 21309 ! Count of global sections not mapped to a process.s DECLARE LONG CONSTANT RMI$_NP_POOL_ALLOC = 21310 ! Accumulated count of non-paged pool allocation requests.u DECLARE LONG CONSTANT RMI$_NP_POOL_ALLOCF = 21311 ! Count of unsuccessful non-paged pool allocation requests.j DECLARE LONG CONSTANT RMI$_NP_POOL_EXP = 21312 ! Count of successful expansions on non-paged pool.r DECLARE LONG CONSTANT RMI$_NP_POOL_EXPF = 21313 ! Count of unsuccessful attempts to expand non-paged pool.c DECLARE LONG CONSTANT RMI$_PG_POOL_ALLOC = 21314 ! Count of paged pool allocation requests.q DECLARE LONG CONSTANT RMI$_PG_POOL_ALLOCF = 21315 ! Count of unsuccessful paged pool allocation requests.n DECLARE LONG CONSTANT RMI$_PG_POOL_EXPF = 21316 ! Count of unsuccessful attempts to expand paged pool.x DECLARE LONG CONSTANT RMI$_SMP_CURMAP = 21317 ! Count of global pages currently mapped for galaxy shared memory. DECLARE LONG CONSTANT RMI$_SMP_CURMAP_GRP = 21318 ! Count of group global pages currently mapped for galaxy shared memory. DECLARE LONG CONSTANT RMI$_SMP_CURMAP_GRPWRT = 21319 ! Count of writable group global pages currently mapped for galaxy & ! shared memory.~ DECLARE LONG CONSTANT RMI$_SMP_CURMAP_SYS = 21320 ! Count of system global pages currently mapped for galaxy shared & ! memory. DECLARE LONG CONSTANT RMI$_SMP_CURMAP_SYSWRT = 21321 ! Count of writable system global pages currently mapped for galaxy & ! shared memory.{ DECLARE LONG CONSTANT RMI$_SMS_CURMAP = 21322 ! Count of global sections currently mapped for galaxy shared memory. DECLARE LONG CONSTANT RMI$_SMS_CURMAP_GRP = 21323 ! Count of group global sections currently mapped for galaxy shared & ! memory.~ DECLARE LONG CONSTANT RMI$_SMS_CURMAP_GRPWRT = 21324 ! Count of writable group global sections currently mapped for & ! galaxy shared memory. DECLARE LONG CONSTANT RMI$_SMS_CURMAP_SYS = 21325 ! Count of system global sections currently mapped for galaxy shared & ! memory. DECLARE LONG CONSTANT RMI$_SMS_CURMAP_SYSWRT = 21326 ! Count of writable system global sections currently mapped for & ! galaxy shared memory. DECLARE LONG CONSTANT RMI$_SMS_NOREF = 21327 ! Current count of global sections for galaxy shared memory which are not & ! mapped to a process.M DECLARE LONG CONSTANT RMI$_RESERVEDEXT1 = 21328 ! Reserved EXE items L DECLARE LONG CONSTANT RMI$_RESERVEDEXT2 = 21329 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXT3 = 21330 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXT4 = 21331 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXT5 = 21332 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXT6 = 21333 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXT7 = 21334 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXT8 = 21335 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXT9 = 21336 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT10 = 21337 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT11 = 21338 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT12 = 21339 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT13 = 21340 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT14 = 21341 !  Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT15 = 21342 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT16 = 21343 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT17 = 21344 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT18 = 21345 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT19 = 21346 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT20 = 21347 ! Reserved EXE itemsM  DECLARE LONG CONSTANT RMI$_RESERVEDEXT21 = 21348 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT22 = 21349 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT23 = 21350 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT24 = 21351 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT25 = 21352 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT26 = 21353 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT27 = 21354 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT28 = 21355 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT29 = 21356 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT30 = 21357 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT31 = 21358 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT32 = 21359 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT33 = 21360 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT34 = 21361 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT35 = 21362 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT36 = 21363 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT37 = 21364 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT38 = 21365 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT39 = 21366 ! Reserved EXE itemsM  DECLARE LONG CONSTANT RMI$_RESERVEDEXT40 = 21367 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT41 = 21368 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT42 = 21369 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT43 = 21370 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT44 = 21371 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT45 = 21372 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT46 = 21373 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT47 = 21374 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT48 = 21375 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT49 = 21376 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT50 = 21377 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT51 = 21378 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT52 = 21379 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT53 = 21380 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT54 = 21381 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT55 = 21382 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT56 = 21383 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT57 = 21384 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT58 = 21385 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT59 = 21386 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT60 = 21387 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT61 = 21388 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT62 = 21389 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT63 = 21390 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT64 = 21391 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT65 = 21392 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT66 = 21393 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT67 = 21394 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT68 = 21395 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT69 = 21396 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT70 = 21397 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT71 = 21398 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT72 = 21399 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT73 = 21400 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT74 = 21401 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT75 = 21402 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT76 = 21403 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT77 = 21404 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT78 = 21405 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT79 = 21406 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT80 = 21407 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT81 = 21408 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT82 = 21409 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT83 = 21410 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT84 = 21411 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT85 = 21412 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT86 = 21413 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT87 = 21414 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT88 = 21415 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT89 = 21416 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT90 = 21417 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT91 = 21418 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT92 = 21419 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT93 = 21420 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT94 = 21421 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT95 = 21422 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT96 = 21423 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT97 = 21424 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT98 = 21425 ! Reserved EXE itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEXT99 = 21426 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT100 = 21427 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT101 = 21428 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT102 = 21429 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT103 = 21430 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT104 = 21431 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT105 = 21432 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT106 = 21433 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT107 = 21434 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT108 = 21435 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT109 = 21436 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT110 = 21437 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT111 = 21438 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT112 = 21439 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT113 = 21440 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT114 = 21441 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT115 = 21442 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT116 = 21443 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT117 = 21444 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT118 = 21445 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT119 = 21446 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT120 = 21447 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT121 = 21448 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT122 = 21449 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT123 = 21450 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT124 = 21451 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT125 = 21452 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT126 = 21453 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT127 = 21454 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT128 = 21455 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT129 = 21456 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT130 = 21457 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT131 = 21458 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT132 = 21459 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT133 = 21460 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT134 = 21461 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT135 = 21462 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT136 = 21463 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT137 = 21464 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT138 = 21465 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT139 = 21466 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT140 = 21467 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT141 = 21468 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT142 = 21469 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT143 = 21470 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT144 = 21471 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT145 = 21472 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT146 = 21473 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT147 = 21474 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT148 = 21475 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT149 = 21476 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT150 = 21477 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT151 = 21478 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT152 = 21479 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT153 = 21480 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT154 = 21481 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT155 = 21482 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT156 = 21483 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT157 = 21484 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT158 = 21485 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT159 = 21486 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT160 = 21487 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT161 = 21488 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT162 = 21489 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT163 = 21490 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT164 = 21491 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT165 = 21492 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT166 = 21493 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT167 = 21494 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT168 = 21495 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT169 = 21496 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT170 = 21497 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT171 = 21498 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT172 = 21499 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT173 = 21500 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT174 = 21501 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT175 = 21502 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT176 = 21503 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT177 = 21504 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT178 = 21505 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT179 = 21506 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT180 = 21507 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT181 = 21508 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT182 = 21509 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT183 = 21510 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT184 = 21511 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT185 = 21512 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT186 = 21513 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT187 = 21514 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT188 = 21515 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT189 = 21516 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT190 = 21517 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT191 = 21518 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT192 = 21519 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT193 = 21520 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT194 = 21521 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT195 = 21522 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT196 = 21523 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT197 = 21524 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT198 = 21525 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT199 = 21526 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT200 = 21527 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT201 = 21528 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT202 = 21529 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT203 = 21530 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT204 = 21531 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT205 = 21532 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT206 = 21533 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT207 = 21534 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT208 = 21535 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT209 = 21536 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT210 = 21537 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT211 = 21538 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT212 = 21539 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT213 = 21540 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT214 = 21541 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT215 = 21542 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT216 = 21543 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT217 = 21544 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT218 = 21545 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT219 = 21546 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT220 = 21547 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT221 = 21548 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT222 = 21549 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT223 = 21550 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT224 = 21551 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT225 = 21552 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT226 = 21553 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT227 = 21554 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT228 = 21555 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT229 = 21556 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT230 = 21557 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT231 = 21558 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT232 = 21559 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT233 = 21560 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT234 = 21561 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT235 = 21562 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT236 = 21563 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT237 = 21564 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT238 = 21565 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT239 = 21566 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT240 = 21567 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT241 = 21568 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT242 = 21569 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT243 = 21570 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT244 = 21571 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT245 = 21572 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT246 = 21573 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT247 = 21574 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT248 = 21575 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT249 = 21576 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT250 = 21577 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT251 = 21578 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT252 = 21579 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT253 = 21580 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT254 = 21581 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT255 = 21582 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT256 = 21583 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT257 = 21584 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT258 = 21585 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT259 = 21586 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT260 = 21587 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT261 = 21588 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT262 = 21589 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT263 = 21590 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT264 = 21591 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT265 = 21592 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT266 = 21593 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT267 = 21594 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT268 = 21595 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT269 = 21596 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT270 = 21597 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT271 = 21598 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT272 = 21599 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT273 = 21600 ! Reserved EXE itemsN  DECLARE LONG CONSTANT RMI$_RESERVEDEXT274 = 21601 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT275 = 21602 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT276 = 21603 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT277 = 21604 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT278 = 21605 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT279 = 21606 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT280 = 21607 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT281 = 21608 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT282 = 21609 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT283 = 21610 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT284 = 21611 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT285 = 21612 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT286 = 21613  ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT287 = 21614 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT288 = 21615 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT289 = 21616 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT290 = 21617 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT291 = 21618 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT292 = 21619 ! Reserved EXE itemsN  DECLARE LONG CONSTANT RMI$_RESERVEDEXT293 = 21620 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT294 = 21621 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT295 = 21622 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT296 = 21623 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT297 = 21624 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT298 = 21625 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT299 = 21626 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_RESERVEDEXT300 = 21627 ! Reserved EXE itemsY DECLARE LONG CONSTANT RMI$_LASTEX2 = 21628 ! Last item in the exec writable table ! P ! Add new data items specific to MONITOR (not collected by the RMI on a per$ ! item basis) above this point. ! 1 DECLARE LONG CONSTANT RMI$_tablesize = 1148 ! * ! End of MONITOR specific data items. ! 6 DECLARE LONG CONSTANT RMI$s_rmi$scs_offsets = 56D record rmi$scs_offsets ! SCS class information? BASIC$QUADWORD RMI$q_scs_nodename ! System node nameI LONG RMI$l_scs_dgsent ! Application datagrams sentM LONG RMI$l_scs_dgrcvd ! Application datagrams receivedN LONG RMI$l_scs_dgdiscard ! Application datagrams discardedH LONG RMI$l_scs_msgsent ! Application messages sentL LONG RMI$l_scs_msgrcvd  ! Application messages receivedI LONG RMI$l_scs_snddats ! Block send datas initiatedI LONG RMI$l_scs_kbytsent ! Kbytes sent via send datasL LONG RMI$l_scs_reqdats ! Block request datas initiatedP LONG RMI$l_scs_kbytreqd ! Kbytes received via request datasP LONG RMI$l_scs_kbytmapd ! Kbytes mapped for block transfersV LONG RMI$l_scs_qcr_cnt ! Times connection queued f or send credit\ LONG RMI$l_scs_qbdt_cnt ! Times connection queued for buffer descriptor end record rmi$scs_offsets a DECLARE LONG CONSTANT RMI$c_scs_minsize = 56 ! Size of one collection block for scs class7 DECLARE LONG CONSTANT RMI$s_rmi$disk_offsets = 37I record rmi$disk_offsets ! DISK class information for ! current revision level? WORD RMI$w_disk_alloclass ! Allocation class: LONG RMI$l_disk_devname ! Device name: WORD RMI$w_disk_unitnum ! Unit numberX BYTE RMI$b_disk_flags ! Flags byte (low bit indicates served disk8 BASIC$QUADWORD RMI$q_disk_nodename ! NodenameA BASIC$QUADWORD RMI$q_disk_volnamel ! Volume name (low)A LONG RMI$l_disk_volnameh ! Volume name (high)> LONG RMI$l_disk_optcnt ! Operation countG LONG RMI$l_disk_qcount ! Queue length ac cumulator! end record rmi$disk_offsets I DECLARE LONG CONSTANT RMI$c_disk_minsize = 37 ! Size of one block< DECLARE LONG CONSTANT RMI$s_rmi$disk_offsets_rev4 = 36E record rmi$disk_offsets_rev4 ! DISK class information ! for "revision level 4"? BYTE RMI$b_disk_alloclass_rev4 ! Allocation class: LONG RMI$l_disk_devname_rev4 ! Device name: WORD RMI$w_disk_unitnum_rev4 ! Unit numberX BYTE RMI$b_disk _flags_rev4 ! Flags byte (low bit indicates served disk= BASIC$QUADWORD RMI$q_disk_nodename_rev4 ! NodenameF BASIC$QUADWORD RMI$q_disk_volnamel_rev4 ! Volume name (low)A LONG RMI$l_disk_volnameh_rev4 ! Volume name (high)> LONG RMI$l_disk_optcnt_rev4 ! Operation countG LONG RMI$l_disk_qcount_rev4 ! Queue length accumulator& end record rmi$disk_offsets_rev4 N DECLARE LONG CONSTANT RMI$c_disk_minsize_rev4 = 36 ! Size of one block5 DECLARE LONG CONSTANT RMI$s_rmi$proc_class = 67I record rmi$proc_class ! PROCESSES Class Data Block; LONG RMI$l_proc_ipid ! Internal PIDM LONG RMI$l_proc_uic ! UIC (Member is low-order word): WORD RMI$w_proc_state ! State valueH BYTE RMI$b_proc_pri ! Priority (negative value)L BASIC$OCTAWORD RMI$o_proc_lname ! Process name (counted s tring)@ LONG RMI$l_proc_gpgcnt ! Global page countA LONG RMI$l_proc_ppgcnt ! Process page count@ LONG RMI$l_proc_sts ! PCB Status Vector- ! (PCB$V_RES bit clear => swapped out)? LONG RMI$l_proc_diocnt ! Direct I/O count? LONG RMI$l_proc_pageflts ! Page fault countN LONG RMI$l_proc_cputim ! Accumulated CPU time (in ticks)A LONG RMI$l_proc_biocnt ! Buffered I/O count; LONG RMI$l_proc_epid ! Extended PIDP LONG RMI$l_proc_efwm ! Event flag wait mask (for MWAITs)L LONG RMI$l_proc_rbstran ! Real balance slot transitions! ! Size of process data block end record rmi$proc_class 3 DECLARE LONG CONSTANT RMI$c_proc_minsize = 67 ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! N ! +===================================================================+ ! |? ! | REG - Registry system service ($REGISTRY) definition ! |M ! +============================= ======================================+ ! M ! +-------------------------------------------------------------------+ ! | Function codesM ! +-------------------------------------------------------------------+ ! [ DECLARE LONG CONSTANT REG$FC_CLOSE_KEY = 1 ! Releases the resources for a given keyu DECLARE LONG CONSTANT REG$FC_CREATE_KEY = 2 ! Either creates a specified key or opens it if it already exists_ DECLARE LONG CONSTANT REG$FC_DELETE_KEY = 3 ! Removes a specified key from the registryd DECLARE LONG CONSTANT REG$FC_DELETE_VALUE = 4 ! Deletes the specified value from a given keyX DECLARE LONG CONSTANT REG$FC_ENUM_KEY = 5 ! Retrieves information about a subkeyY DECLARE LONG CONSTANT REG$FC_ENUM_VALUE = 6 ! Retrieves information about a valuei DECLARE LONG CONSTANT REG$FC_FLUSH_KEY = 7 ! Write all the information of a specified key to diskk DECLARE LONG CONSTANT REG$FC_LOAD_KEY = 8 ! Create a subkey and store information from a given file` DECLARE LONG CONSTANT REG$FC_MODIFY_KEY = 9 ! Modifies information about a specified keyz DECLARE LONG CONSTANT REG$FC_MODIFY_TREE_KEY = 10 ! Modifies information about a specified key and all its subkeys DECLARE LONG CONSTANT REG$FC_NOTIFY_CHANGE_KEY_VALUE = 11 ! Notifies the calling process when a specified key has changedJ DECLARE LONG CONSTANT REG$FC_OPEN_KEY = 12 ! Opens a specified keya DECLARE LONG CONSTANT REG$FC_QUERY_KEY = 13 ! Retrieves information about a specified keye DECLARE LONG CONSTANT REG$FC_QUERY_VALUE = 14 ! Retrieves information about a specified value DECLARE LONG CONSTANT REG$FC_REPLACE_KEY = 15 ! Replaces a key and all its subkeys with information in a specified file\ DECLARE LONG CONSTANT REG$FC_RESTORE_KEY = 16 ! Restores a key from a specified filed DECLARE LONG CONSTANT REG$FC_SAVE_KEY = 17 ! Saves a key and its subkeys to a specified filer DECLARE LONG CONSTANT REG$FC_SEARCH_TREE_DATA = 18 ! Scan a key and its subkeys for a given data componenti DECLARE LONG CONSTANT REG$FC_SEARCH_TREE_KEY = 19 ! Scan a key and its subkeys for a given subkeyj DECLARE LONG CONSTANT REG$FC_SEARCH_TREE_VALUE = 20 ! Scan a key and its subkeys for a given valueL DECLARE LONG CONSTANT REG$FC_SET_VALUE = 21 ! Sets value infornation[ DECLARE LONG CONSTANT REG$FC_UNLOAD_KEY = 22 ! Removes a key tree form the registry] DECLARE LONG CONSTANT REG$FC_GET_KEY_SECURITY = 23 ! Retrieves a key security profileX DECLARE LONG CONSTANT REG$FC_SET_KEY_SECURITY = 24 ! Sets a key security profile] DECLARE LONG CONSTANT REG$FC_GET_PERFORMANCE = 25 ! Retrieves performance informationS DECLARE LONG CONSTANT REG$FC_GET_FILE_INFO = 26 ! Retrieves file statisticsd DECLARE LONG CONSTANT REG$FC_GET_FILE_UPDATE = 27 ! Retrieves segment allocation informationY DECLARE LONG CONSTANT REG$FC_CREATE_DA TABASE = 28 ! Creates the registry databaseb DECLARE LONG CONSTANT REG$FC_MAKE_SNAPSHOT = 29 ! Take a snpashot of the Registry databaseQ DECLARE LONG CONSTANT REG$FC_ARCHIVE = 30 ! Archive the registry database< DECLARE LONG CONSTANT REG$FC_LAST = 31 ! Always last ! M ! +-------------------------------------------------------------------+ ! | Item Code ModifiersM ! +-------------------------------------------------------------------+ ! T  DECLARE LONG CONSTANT REG$M_UNICODE_STRING = 8192 ! 0x2000 string is Unicode ! M ! +-------------------------------------------------------------------+ ! | Item CodesM ! +-------------------------------------------------------------------+ ! M DECLARE LONG CONSTANT REG$_TERMINATOR = 0 ! network packet terminatorK DECLARE LONG CONSTANT REG$_SEPARATOR = 1 ! item code list seperatorF DECLARE LONG CONSTANT REG$_SECPROFILE = 514 ! security profileR DECLARE LONG CONSTANT REG$_REQUEST = 515 ! TLV of item code TLVs (request)> DECLARE LONG CONSTANT REG$_ACMODE = 1284 ! access modeZ DECLARE LONG CONSTANT REG$_ACTIONCODE = 1285 ! action code for performance ? spaceS DECLARE LONG CONSTANT REG$_CACHEACTION = 1286 ! cache action (thru/behind )] DECLARE LONG CONSTANT REG$_CANCELNOTIFICATION = 519 ! Cancel notify key change notify? DECLARE LONG CONSTANT REG$_CLASSNAME = 264 ! class nameR DECLARE LONG CONSTANT REG$_CLASSNAMEMAX = 1289 ! longest class name length^ DECLARE LONG CONSTANT REG$_CLASSNAMESIZE = 1290 ! destination's class name buffer size@ DECLARE LONG CONSTANT REG$_DATAFLAGS = 1547 ! data flags> DECLARE LONG CONSTANT REG$_DATATYPE = 1292 ! data typeT DECLARE LONG CONSTANT REG$_DISPOSITION = 1293 ! createnewkey/openexistingkeyF DECLARE LONG CONSTANT REG$_FILEINFODATA = 526 ! File info dataO DECLARE LONG CONSTANT REG$_FILELOAD = 1807 !  OpenVMS file name to load N DECLARE LONG CONSTANT REG$_FILESAVE = 1808 ! OpenVMS file name to saveJ DECLARE LONG CONSTANT REG$_FILEUPDATEDATA = 529 ! File update dataM DECLARE LONG CONSTANT REG$_FLAGOPCODE = 1298 ! how data flags is usedN DECLARE LONG CONSTANT REG$_FLAGSUBKEY = 1299 ! report (sub)key changesQ DECLARE LONG CONSTANT REG$_KEYID = 1300 ! input key id in longword format^ DECLARE LONG CONSTANT REG$_KEYID_INTERNAL = 533 ! internal key id in UID/FSO/LH format> DECLARE LONG CONSTANT REG$_KEYFLAGS = 1302 ! KEY flagsE DECLARE LONG CONSTANT REG$_KEYPATH = 279 ! Path to key objectV DECLARE LONG CONSTANT REG$_KEYRESULT = 1304 ! output key id in longword formatb DECLARE LONG CONSTANT REG$_KEYRESULT_INTERNAL = 537 ! internal key id in UID/FSO/LH formatO DECLARE LONG CONSTANT REG$_LASTWRITE = 1562 ! time key was last writtenR DECLARE LONG CONSTANT REG$_LINKCOUNT = 1307 ! Count of links refer to itemO DECLARE LONG CONSTANT REG$_LINKPATH = 284 ! key path a key is linked to\ DECLARE LONG CONSTANT REG$_LINKPATHSIZE = 1309 ! destination's link path buffer sizeQ DECLARE LONG CONSTANT REG$_LINKTYPE = 1310 ! Link type (logical/physical)M DECLARE LONG CONSTANT REG$_LOCK = 1311 ! what lock on open/create keyR DECLARE LONG CONSTANT REG$_NEWNAME = 288 ! new name of a key create/renameV DECLARE LONG CONSTANT REG$_NOTIFYFILTER = 1313 ! which key changes to reportedY DECLARE LONG CONSTANT REG$_PATHBUFFER = 546 ! set of paths separated by null byteK DECLARE LONG CONSTANT REG$_PERFORMANCEDATA = 547 ! Performance dataJ DECLARE LONG CONSTANT REG$_REQLENGTH = 1316 ! required buffer size\ DECLARE LONG CONSTANT REG$_RETURNSTATUS = 1317 ! return status for a given operationS DECLARE LONG CONSTANT REG$_SECACCESS = 1318 ! security access for a new key_ DECLARE LONG CONSTANT REG$_SECONDSTATUS = 1319 ! secondary status for a given operation_ DECLARE LONG CONSTANT REG$_SECURITYPOLICY = 1320 ! Security policy to enforce for a key` DECLARE LONG CONSTANT REG$_SEGMENTNUMBER = 1321 ! Segment Number for locating space info^ DECLARE LONG CONSTANT REG$_SNAPSHOTDESTINATION = 1834 ! Snapshot destination directoryZ DECLARE LONG CONSTANT REG$_SNAPSHOTVERSIONS = 1323 ! Snapshot versions to maintainW DECLARE LONG CONSTANT REG$_SUBKEYINDEX = 1324 ! Index of the subkey to retrieveF  DECLARE LONG CONSTANT REG$_SUBKEYNAME = 301 ! name of a subkey] DECLARE LONG CONSTANT REG$_SUBKEYNAMEMAX = 1326 ! longest subkey name for a given key` DECLARE LONG CONSTANT REG$_SUBKEYNAMESIZE = 1327 ! destination's subkey name buffer sizeZ DECLARE LONG CONSTANT REG$_SUBKEYSNUMBER = 1328 ! Number of subkeys in a given keyW DECLARE LONG CONSTANT REG$_SECURITYINFORMATION = 1329 ! NT Security informationT DECLARE LONG CONSTANT REG$_SECURITYDESCRIPTOR = 562 ! NT Security descriptorU DECLARE LONG CONSTANT REG$_VALUEINDEX = 1331 ! index of the value to retrieveI DECLARE LONG CONSTANT REG$_VALUEDATA = 564 ! value data component[ DECLARE LONG CONSTANT REG$_VALUEDATAMAX = 1333 ! longest value data for a given key^ DECLARE LONG CONSTANT REG$_VALUEDATASIZE = 1334 ! destination's value data buffer sizeR DECLARE LONG CONSTANT REG$_VALUENAME = 311 ! specifies the name of a value[ DECLARE LONG CONSTANT REG$_VALUENAMEMAX = 1336 ! longest value name for a given key^ DECLARE LONG CONSTANT REG$_VALUENAMESIZE = 1337 ! destination's value name buffer sizeW DECLARE LONG CONSTANT REG$_VALUENUMBER = 1338 ! number of values in a given keyW DECLARE LONG CONSTANT REG$_VOLATILE = 1339 ! Identifies volatility of an objectY DECLARE LONG CONSTANT REG$_WILDASTERISK = 316 ! char to replace asterisk wildcardW DECLARE LONG CONSTANT REG$_WILDPERCENT = 317 ! char to replace percent wildcardW DECLARE LONG CONSTANT REG$_WILDPERIODS = 318 ! char to replace periods wildcardA DECLARE LONG CONSTANT REG$_INSTRUMENTFILE = 575 ! unknown@ DECLARE LONG CONSTANT REG$_INSTRUMENTKEY = 576 ! unknownA DECLARE LONG CONSTANT REG$_INSTRUMENTDATA = 577 ! unknownX DECLARE LONG CONSTANT REG$_FILENAME = 1858 ! file requested for space monitoringD DECLARE LONG CONSTANT REG$_COUNTER = 1347 ! a counter index [ DECLARE LONG CONSTANT REG$_SECDESCRIPTORLEN = 1348 ! Length of security descriptor g DECLARE LONG CONSTANT REG$_SECDESCLEN_INTERNAL = 1349 ! Internal length of security descriptor g DECLARE LONG CONSTANT REG$_VALUEDATASIZE_INTERNAL = 1350 ! Internal dest value data buffer sizeY DECLARE LONG CONSTANT REG$_SAMDESIRED = 1351 ! SamDesired - for AS ? Bristol onlya DECLARE LONG CONSTANT REG$_DATABASE_VERSION = 1352 ! Database version for Create Database: DECLARE LONG CONSTANT REG$_LAST = 73 ! Always lastC ! M ! +-------------------------------------------------------------------+ ! | Item Code ValuesM ! +-------------------------------------------------------------------+ ! G DECLARE LONG CONSTANT REG$K_NONE = 0 ! The item is not volatile^ DECLARE LONG CONSTANT REG$K_CLUSTER = 1 ! The item is removed when the cluster reboots\ DECLARE LONG CONSTANT REG$K_SYSTEM = 2 ! The item is removed when the system rebootsj DECLARE LONG CONSTANT REG$K_PROCESS = 3 ! The item is removed when the creating process terminatesf DECLARE LONG CONSTANT REG$K_IMAGE = 4 ! The item is removes when the creating image terminates DECLARE LONG CONSTANT REG$K_WRITEBEHIND = 5 ! The information on the given object can be written to disk at a later time{ DECLARE LONG CONSTANT REG$K_WRITETHRU = 6 ! The information on the given object must be written to disk immediatelyH DECLARE LONG CONSTANT REG$K_CREATENEWKEY = 7 ! Created a new keyP DECLARE LONG CONSTANT REG$K_OPENEXISTINGKEY = 8 ! Opened an existing keyg DECLARE LONG CONSTANT REG$K_POLICY_OPENVMS = 9 ! Access is required to all keys in the key pathq DECLARE LONG CONSTANT REG$K_POLICY_NT_40 = 10 ! Access is required to the first key and the requested key3 DECLARE LONG CONSTANT REG$K_INTERNAL = 11 ! H DECLARE LONG CONSTANT REG$K_HARDLINK = 12 ! Hard (physical) linkO DECLARE LONG CONSTANT REG$K_SYMBOLICLINK = 13 ! Symbolic (logical) link= DECLARE LONG CONSTANT REG$K_BINARY = 14 ! Binary data@ DECLARE LONG CONSTANT REG$K_DWORD = 15 ! A 32 bit numberb DECLARE LONG CONSTANT REG$K_DWLITTLEENDIAN = 16 ! A 32 bit number in little endian format Z DECLARE LONG CONSTANT REG$K_DWBIGENDIAN = 17 ! A 32 bit number in bi endian formatx DECLARE LONG CONSTANT REG$K_EXPAND_SZ = 18 ! A string of ISO-1 Latin characters containing environment variablesG DECLARE LONG CONSTANT REG$K_LINK = 19 ! A link to another value\ DECLARE LONG CONSTANT REG$K_MULTI_SZ = 20 ! A concatenated array of REG$K_SZ strings@ DECLARE LONG CONSTANT REG$K_QWORD = 21 ! A 64 bit numberU DECLARE LONG CONSTANT REG$K_RESOURCELIST = 22 ! A device driver resource listG DECLARE LONG CONSTANT REG$K_SZ = 23 ! A null terminated string5 DECLARE LONG CONSTANT REG$K_START_FILE = 24 ! 5 DECLARE LONG CONSTANT REG$K_START_PERF = 2 5 ! 4 DECLARE LONG CONSTANT REG$K_STOP_FILE = 26 ! 4 DECLARE LONG CONSTANT REG$K_STOP_PERF = 27 ! 4 DECLARE LONG CONSTANT REG$K_ZERO_FILE = 28 ! 4 DECLARE LONG CONSTANT REG$K_ZERO_PERF = 29 ! 8 DECLARE LONG CONSTANT REG$K_SHOW_CTR_FILE = 30 ! 8 DECLARE LONG CONSTANT REG$K_SHOW_CTR_PERF = 31 ! 4 DECLARE LONG CONSTANT REG$K_SHOW_FILE = 32 ! D DECLARE LONG CONSTANT REG$K_NORMAL = 33 ! String size <= 8KB DECLARE LONG CONSTANT REG$K_LARGE = 34 ! String size > 8K5 DECLARE LONG CONSTANT REG$K_EXACTMATCH = 35 ! 2 DECLARE LONG CONSTANT REG$K_INCLUDE = 36 ! 2 DECLARE LONG CONSTANT REG$K_EXCLUDE = 37 ! . DECLARE LONG CONSTANT REG$K_ANY = 38 ! 1 DECLARE LONG CONSTANT REG$K_NOTANY = 39 !  ! M ! +-------------------------------------------------------------------+! ! | Function Code ModifiersM ! +-------------------------------------------------------------------+ ! 2 DE CLARE LONG CONSTANT REG$M_FC = x'000003FF'> DECLARE LONG CONSTANT REG$M_CASE_SENSITIVE = x'00000400'A DECLARE LONG CONSTANT REG$M_DISABLE_WILDCARDS = x'00000800'< DECLARE LONG CONSTANT REG$M_IGNORE_LINKS = x'00001000'3 DECLARE LONG CONSTANT REG$M_NOW = x'00002000'6 DECLARE LONG CONSTANT REG$M_NOWAIT = x'00004000'> DECLARE LONG CONSTANT REG$M_UNICODE_VALUES = x'00008000'6 DECLARE LONG CONSTANT REG$M_BYPASS = x'00010000'8 DECLARE LONG CONSTANT REG$M_INTE RNAL = x'00020000', DECLARE LONG CONSTANT REG$S_REGDEF = 3 record REGDEF variant case' group REG$R_FC_MODIFIERSU ! Indicates that the case sensitivity of keys be uses for matches` ! Indicates that wildcards characters should be traited as normal charactersJ ! Indicates that symbolic links should not be followeda ! Indicates whether or not an operation should be written to disk immediatelyT ! Indicates that operation should be aborted rather than stalled> ! Indicates that data is an UNICODE string2 ! Indicates internal operationb LONG FC_bits ! COMMENT ADDED BY SDL - FC_bits contains bits FC through FILL_7_+ end group REG$R_FC_MODIFIERS end variant end record REGDEF  ! M ! +----------------------------------------------------------------- --+! ! | Key Change Notify FlagsM ! +-------------------------------------------------------------------+ ! : DECLARE LONG CONSTANT REG$M_CHANGENAME = x'00000001'@ DECLARE LONG CONSTANT REG$M_CHANGEATTRIBUTES = x'00000002'= DECLARE LONG CONSTANT REG$M_CHANGELASTSET = x'00000004'> DECLARE LONG CONSTANT REG$M_CHANGESECURITY = x'00000008'2 DECLARE LONG CONSTANT REG$S_KEYCHANGEDEF = 1 record KEYCHANGEDEF variant case*  group REG$R_KEYCHANGE_FLAGSW ! A key name change, includes creation and deletion of its subkeys.8 ! Attribute change of key or subkeys> ! Last write time change of key or subkeysB ! Security descriptor change of key or subkeysz BYTE CHANGENAME_bits ! COMMENT ADDED BY SDL - CHANGENAME_bits contains bits CHANGENAME through FILL_8_. end group REG$R_KEYCHANGE_FLAGS end var iant end record KEYCHANGEDEF  ! M ! +-------------------------------------------------------------------+ ! | Security access MaskM ! +-------------------------------------------------------------------+ ! 9 DECLARE LONG CONSTANT REG$M_ALLACCESS = x'00000001': DECLARE LONG CONSTANT REG$M_CREATELINK = x'00000002'< DECLARE LONG CONSTANT REG$M_CREATESUBKEY = x'00000004'; DECLARE LONG CONSTANT REG$M_ENUMSUBKEYS = x'00000008'7 DECL ARE LONG CONSTANT REG$M_EXECUTE = x'00000010'6 DECLARE LONG CONSTANT REG$M_NOTIFY = x'00000020': DECLARE LONG CONSTANT REG$M_QUERYVALUE = x'00000040'4 DECLARE LONG CONSTANT REG$M_READ = x'00000080'8 DECLARE LONG CONSTANT REG$M_SETVALUE = x'00000100'5 DECLARE LONG CONSTANT REG$M_WRITE = x'00000200'< DECLARE LONG CONSTANT REG$M_DELETEACCESS = x'00000400'; DECLARE LONG CONSTANT REG$M_READCONTROL = x'00000800'8 DECLARE LONG CONSTANT REG$M_WRITEDAC = x'000 01000': DECLARE LONG CONSTANT REG$M_WRITEOWNER = x'00002000'; DECLARE LONG CONSTANT REG$M_SYNCHRONIZE = x'00004000'D DECLARE LONG CONSTANT REG$M_ACCESSSYSTEMSECURITY = x'00008000'> DECLARE LONG CONSTANT REG$M_MAXIMUMALLOWED = x'00010000': DECLARE LONG CONSTANT REG$M_GENERICALL = x'00020000'> DECLARE LONG CONSTANT REG$M_GENERICEXECUTE = x'00040000'< DECLARE LONG CONSTANT REG$M_GENERICWRITE = x'00080000'; DECLARE LONG CONSTANT REG$M_GENERICREAD = x'00100000'2 DECLARE LONG CONSTANT REG$S_SECACCESSDEF = 3 record SECACCESSDEF variant case) group REG$R_SECACCESS_MASK ! NT equivalent$ ! KEY_ALL_ACCESS% ! KEY_CREATE_LINK( ! KEY_CREATE_SUB_KEY, ! KEY_ENUMERATE_SUB_KEYS! ! KEY_EXECUTE ! KEY_NOTIFY% ! KEY_QUERY_VALUET ! READ_CONTROL|KEY_QUE RY_VALUE|KEY_ENUMERATE_SUB_KEYS|KEY_NOTIFY# ! KEY_SET_VALUEC ! READ_CONTROL|KEY_SET_VALUE|KEY_CREATE_SUB_KEY# ! DELETE_ACCESS" ! READ_CONTROL ! WRITE_DAC! ! WRITE_OWNER! ! SYNCHRONIZE, ! ACCESS_SYSTEM_SECURITY% ! MAXIMUM_ALLOWED! ! GENERIC_ALL% ! GENERIC_EXECUTE#  ! GENERIC_WRITE" ! GENERIC_READw LONG ALLACCESS_bits ! COMMENT ADDED BY SDL - ALLACCESS_bits contains bits ALLACCESS through FILL_9_- end group REG$R_SECACCESS_MASK end variant end record SECACCESSDEF  ! M ! +-------------------------------------------------------------------+ ! | HKEY DefinitionsM ! +-------------------------------------------------------------------+ ! > DECLARE LONG CONSTANT REG$_HKEY_NONE = 0 ! %x00000000 Q DECLARE LONG CONSTANT REG$_HKEY_CLASSES_ROOT = X"80000000"L ! %x80000000 P DECLARE LONG CONSTANT REG$_HKEY_CURRENT_USER = -2147483647 ! %x80000001 R DECLARE LONG CONSTANT REG$_HKEY_LOCAL_MACHINE = -2147483646 ! %x80000002 J DECLARE LONG CONSTANT REG$_HKEY_USERS = -2147483645 ! %x80000003 S DECLARE LONG CONSTANT REG$_HKEY_PERFORMANCE_DATA = -2147483644 ! %x80000004< DECLARE LONG CONSTANT REG$_HKEY_LAST_ROOT_KEY = 5 !  ww  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  F DECLARE LONG CONSTANT rnhblk$k_LENGTH = 20 ! length of overheadF DECLARE LONG CONSTANT rnhblk$c_LENGTH = 20 ! length of overhead3 DECLARE LONG CONSTANT RNHBLK$S_RNHBLKDEF = 20 record RNHBL KDEF: LONG RNHBLK$L_FLNK ! forward link= LONG RNHBLK$L_HANDLER ! handler address6 LONG RNHBLK$L_FILL_1 ! reserved< LONG RNHBLK$L_ARGCNT ! argument countG LONG RNHBLK$L_EVENT ! address of the event code end record RNHBLKDEF  ww/" ! *** PREDECLARED TYPES  M: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORDS* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORDI* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED c  ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  M DECLARE LONG CONSTANT RSDM$_JOIN_SYSTEM = 1 ! System RD Join functionW DECLARE LONG CONSTANT RSDM$_JOIN_DEFAULT = 2 ! Process default RD Join functionL DECLARE LONG CONSTANT RSDM$_JOIN_DOMAIN = 3 ! Other RD Join functionA DECLARE LONG CONSTANT RSDM$_LEAVE = 4 ! Leave RD function5 DECLARE LONG CONSTANT RSDM$K_SYSTEM_RSDM_ID = 1 ! System RSDM_ID6 DECLARE LONG CONSTANT RSDM$K_PROCESS_RSDM_ID = 2 ! Process RSDM_ID ! + ! RSDM$ bitfields  ! -5 DECLARE LONG CONSTANT RSDM$M_READ = x'00000001'6 DECLARE LONG CONSTANT RSDM$M_WRITE = x'00000002'5 DECLARE LONG CONSTANT RSDM$M_LOCK = x'00000004'/ DECLARE LONG CONSTANT RSDM$S_RSDMBITS = 4 record RSDMBITS variant case$ group RSDM$R_FILL_10_ variant case, LONG RSDM$L_MISC_ACCESS case* group RSDM$R_FILL_11_' ! Read access( ! Write access' ! Lock accesso BYTE READ_bits ! COMMENT ADDED BY SDL - READ_bits contains bits READ thr ough FILL_12_. end group RSDM$R_FILL_11_ end variant( end group RSDM$R_FILL_10_ end variant end record RSDMBITS  ww! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >   %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! L ! Statistics block. This block is used to report various data regarding. ! an open file to the requesting program. !  ! - ! O ! The first two longwords are presented i n inverted form for compatibility, ! with the old RSX-11 statistics block. ! - DECLARE LONG CONSTANT SBK$K_LENGTH = 32- DECLARE LONG CONSTANT SBK$C_LENGTH = 32- DECLARE LONG CONSTANT SBK$S_SBKDEF = 32 record SBKDEF" group SBK$R_STLBN_OVERLAY variant caseJ LONG SBK$L_STLBN ! starting LBN if contiguous  case* group SBK$R_STLBN_FIELDS? WORD SB K$W_STLBNH ! high order word > WORD SBK$W_STLBNL ! low order word . end group SBK$R_STLBN_FIELDS end variant& end group SBK$R_STLBN_OVERLAY% group SBK$R_FILESIZE_OVERLAY variant case9 LONG SBK$L_FILESIZE ! file size  case- group SBK$R_FILESIZE_FIELDS? WORD SBK$W_FILESIZH ! high order word >  WORD SBK$W_FILESIZL ! low order word  ! < ! The following two fields are for RSX-11 compatibility ! 1 end group SBK$R_FILESIZE_FIELDS end variant) end group SBK$R_FILESIZE_OVERLAYH BYTE SBK$B_ACNT ! low byte of access count F BYTE SBK$B_LCNT ! low byte of lock count M LONG SBK$L_FCB ! address of file control block 5 WORD SBKDEF$$_FIL L_1 ! spare < WORD SBK$W_ACNT ! access count L WORD SBK$W_LCNT ! lock count (against writers) < WORD SBK$W_WCNT ! writer count C WORD SBK$W_TCNT ! truncate lock count R LONG SBK$L_READS ! count of reads executed on channel S LONG SBK$L_WRITES ! count of writes executed on channel  end record SBKDEF   ww@ ! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  X DECLARE LONG CONSTANT S2DGB$K_OP_XCDB32 = 1 ! Diagnose opcode for 32-bit buffersX DECLARE LONG CONSTANT S2DGB$K_OP_XCDB64 = 2 ! Diagnose opcode for 64-bit buffers6 DECLARE LONG CONSTANT S2DGB$M_ READ = x'00000001': DECLARE LONG CONSTANT S2DGB$M_DISCPRIV = x'00000002'= DECLARE LONG CONSTANT S2DGB$M_SYNCHRONOUS = x'00000004'; DECLARE LONG CONSTANT S2DGB$M_OBSOLETE1 = x'00000008'< DECLARE LONG CONSTANT S2DGB$M_TAGGED_REQ = x'00000010'5 DECLARE LONG CONSTANT S2DGB$M_TAG = x'000000E0'T DECLARE LONG CONSTANT S2DGB$K_TAG_POSITION = 5 ! Bit offset of TAG bitfield C DECLARE LONG CONSTANT S2DGB$K_SIMPLE = 0 ! Simple queue tagE DECLARE LONG CONSTANT S2DGB$K_ORDERED = 1 ! Ordered queue tagK DECLARE LONG CONSTANT S2DGB$K_EXPRESS = 2 ! Head of Queue queue tag; DECLARE LONG CONSTANT S2DGB$M_AUTOSENSE = x'00000100'9 DECLARE LONG CONSTANT S2DGB$M_EXT_LUN = x'00000200'a DECLARE LONG CONSTANT S2DGB$K_XCDB32_LENGTH = 60 ! Diagnose buffer length, 32-bit buffersa DECLARE LONG CONSTANT S2DGB$K_XCDB64_LENGTH = 60 ! Diagnose buffer length, 64-bit buffersQ DECLARE LONG CONSTANT S2DGB$K_XCDB_MIN_LENGTH = 60 !  Minimum s2gdb lengthV DECLARE LONG CONSTANT S2DGB$K_EXT_XCDB_MIN_LENGTH = 68 ! Length w/external LUN. DECLARE LONG CONSTANT S2DGB$S_S2DGB = 72 record S2DGB> LONG S2DGB$L_OPCODE ! Diagnose opcode$ group S2DGB$R_FLAGS_OVERLAY variant case( group S2DGB$R_FILL_13_ variant case* LONG S2DGB$L_FLAGS case.  group S2DGB$R_FILL_14_- ! Read operation; ! DiscPriv val in Identigy msg: ! Synchronous xfers permitted( ! (Ignored)& ! Use TCQ3 ! Queue tag value type4 ! Return Autosense data: ! Use externally-supplied LUNr WORD READ_bits ! COMMENT ADDED BY SDL - READ_bits contains bits READ through FILL_15_2 end group S2DGB$R_FILL_14_ end variant, end group S2DGB$R_FILL_13_ end variant( end group S2DGB$R_FLAGS_OVERLAY( group S2DGB$R_REMAINING_OVERLAY variant case, group S2DGB$R_LAYOUT_32BIT0 ! Fields in this structure are valid if and1 ! only if s2dgb$l_opcode = S2DGB$K_OP_XCDB32K  LONG S2DGB$L_32CDBADDR ! 32-bit addr of Cmd Desc BlkE LONG S2DGB$L_32CDBLEN ! Length of CDB in bytesX LONG S2DGB$L_32DATADDR ! 32-bit addr of DATAIN or DATAOUT addressZ LONG S2DGB$L_32DATLEN ! Length of DATAIN or DATAOUT buffer in bytesL LONG S2DGB$L_32PADCNT ! Number of pad bytes required.M LONG S2DGB$L_32PHSTMO ! Phase timeout value in secondsR  LONG S2DGB$L_32DSCTMO ! Disconnect timeout value in secondsQ LONG S2DGB$L_32SENSEADDR ! 32-bit addr of Autosense bufferT LONG S2DGB$L_32SENSELEN ! Length of Autosense buffer in bytes> LONG S2DGB$L_RESERVED1 ! Reserved field> LONG S2DGB$L_RESERVED2 ! Reserved field> LONG S2DGB$L_RESERVED3 ! Reserved field> LONG S2DGB$L_RESERVED4 ! Reserved field0  end group S2DGB$R_LAYOUT_32BIT case, group S2DGB$R_LAYOUT_64BIT0 ! Fields in this structure are valid if and1 ! only if s2dgb$l_opcode = S2DGB$K_OP_XCDB64V BASIC$QUADWORD S2DGB$PQ_64CDBADDR ! 64-bit addr of Cmd Desc Blkc BASIC$QUADWORD S2DGB$PQ_64DATADDR ! 64-bit addr of DATAIN or DATAOUT address\ BASIC$QUADWORD S2DGB$PQ_64SENSEADDR ! 64-bit addr of Autosense bufferE  LONG S2DGB$L_64CDBLEN ! Length of CDB in bytesZ LONG S2DGB$L_64DATLEN ! Length of DATAIN or DATAOUT buffer in bytesT LONG S2DGB$L_64SENSELEN ! Length of Autosense buffer in bytesL LONG S2DGB$L_64PADCNT ! Number of pad bytes required.M LONG S2DGB$L_64PHSTMO ! Phase timeout value in secondsR LONG S2DGB$L_64DSCTMO ! Disconnect timeout value in seconds? LONG S2DG B$L_RESERVED_1 ! Reserved field0 end group S2DGB$R_LAYOUT_64BIT end variant, end group S2DGB$R_REMAINING_OVERLAY; BASIC$QUADWORD S2DGB$Q_EXT_LUN ! External LUN$ BYTE S2DGB$B_FILL_16_ ( 3 ) end record S2DGB  ww@G! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ! %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! SDB Function Codes !  ! - ! BASE AND OFFSET OF 1 1 DECLARE LONG CONSTANT SDB$C_MODE_KERNEL = 0/ DECLARE LONG CONSTANT SDB$C_MODE_EXEC = 10 DECLARE LONG CONSTANT "SDB$C_MODE_SUPER = 2/ DECLARE LONG CONSTANT SDB$C_MODE_USER = 31 DECLARE LONG CONSTANT SDB$M_MODE_KERNEL = 1/ DECLARE LONG CONSTANT SDB$M_MODE_EXEC = 20 DECLARE LONG CONSTANT SDB$M_MODE_SUPER = 4/ DECLARE LONG CONSTANT SDB$M_MODE_USER = 83 DECLARE LONG CONSTANT SDB$C_FUNC_GET_DSDB = 04 DECLARE LONG CONSTANT SDB$C_FUNC_FREE_DSDB = 13 DECLARE LONG CONSTANT SDB$C_FUNC_GET_ISDB = 24 DECLARE LONG CONSTANT SDB$C_FUNC_FREE_ISDB = 32 DECLARE LONG CONSTANT SDB$C_FUNC_SET_SDB = 4/ DECLARE LONG CONSTANT SDB$M_ACC_WRITE = 1. DECLARE LONG CONSTANT SDB$M_ACC_READ = 2/ DECLARE LONG CONSTANT SDB$V_ACC_WRITE = 0. DECLARE LONG CONSTANT SDB$V_ACC_READ = 1 ww$!! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED %( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN&G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ' %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! " ! item codes for sd$xxx calls ! U DECLARE LONG CONSTANT SD$_MAJOR_ID = 1 ! longword (major ODS version number)U DECLARE LONG CONSTANT SD$_MINOR_ID = 2 ! longword (minor ODS versio(n number)P DECLARE LONG CONSTANT SD$_POOL_ID = 3 ! UID (16 bytes) (Pool identifier)a DECLARE LONG CONSTANT SD$_CREATION_DATE = 4 ! Date/time (8 bytes) (Date pool was created)q DECLARE LONG CONSTANT SD$_MODIFIED_DATE = 5 ! Date/time (8 bytes) (Date pool membership was last changed)a DECLARE LONG CONSTANT SD$_SEGMENT_SIZE = 6 ! longword (Size of segment in pool # blocks)_ DECLARE LONG CONSTANT SD$_MAX_UNITS = 7 ! longword (Maximum # members allowed in pool))b DECLARE LONG CONSTANT SD$_UNIT_COUNT = 8 ! longword (Number of members currently in pool)K DECLARE LONG CONSTANT SD$_POOL_OPTIONS = 9 ! longword (Pool flags)\ DECLARE LONG CONSTANT SD$_UNIT_ID = 10 ! UID (16 bytes) (Identifier of storage unit)T DECLARE LONG CONSTANT SD$_UNIT_NUMBER = 11 ! longword (Storage unit number)T DECLARE LONG CONSTANT SD$_UNIT_OPTIONS = 12 ! longword (Storage unit flags)^ DECLARE LONG CONSTANT SD$_SEQUENCE_NUMBER = 13 ! lon*gword (Homeblock sequence number)b DECLARE LONG CONSTANT SD$_HIGHEST_UNIT = 14 ! longword (Number of highest member in pool)` DECLARE LONG CONSTANT SD$_LOWEST_UNIT = 15 ! longword (Number of lowest member in pool)^ DECLARE LONG CONSTANT SD$_TOTAL_SEGMENTS = 16 ! longword (Total # of segment in pool)c DECLARE LONG CONSTANT SD$_FREE_SEGMENTS = 17 ! longword (Total # of free segments in pool)e DECLARE LONG CONSTANT SD$_MAX_FAMILY = 18 ! longword (Maximum # o+f families allowed in pool)[ DECLARE LONG CONSTANT SD$_MAX_DISK = 19 ! longword (Maximum # members in a family)\ DECLARE LONG CONSTANT SD$_META_LBN = 20 ! longword (Start of SD metadata on member)\ DECLARE LONG CONSTANT SD$_META_SIZE = 21 ! longword (Size of SD metadata on member)[ DECLARE LONG CONSTANT SD$_DATA_LBN = 22 ! longword (Start of pool space on member)[ DECLARE LONG CONSTANT SD$_DATA_SIZE = 23 ! longword (Size of pool space on member)[ ,DECLARE LONG CONSTANT SD$_POOL_DEVICE = 24 ! character string (Name of pool device)_ DECLARE LONG CONSTANT SD$_FAMILY_NUMBER = 25 ! longword (Familiy number of a SnapDisk)e DECLARE LONG CONSTANT SD$_MEMBER_NUMBER = 26 ! longword (Number within family of a SnapDisk)Z DECLARE LONG CONSTANT SD$_DISK_NAME = 27 ! character string (Name of SnapDisk)^ DECLARE LONG CONSTANT SD$_DISK_CAPACITY = 28 ! longword (Size/capacity of a SnapDisk)s DECLARE LONG CONSTANT -SD$_DELSPACE = 29 ! longword (# segments that can be recovered by deleting SnapDisk)n DECLARE LONG CONSTANT SD$_DISK_DEVICE = 30 ! character string (Name of device as bound to OpenVMS)s DECLARE LONG CONSTANT SD$_BACKUP_DATE = 31 ! Date/time (8 bytes) (Date that recorded snap was last created)\ DECLARE LONG CONSTANT SD$_READS = 32 ! longword (Number of read received from user)_ DECLARE LONG CONSTANT SD$_WRITES = 33 ! longword (Number of writes received from us.er)f DECLARE LONG CONSTANT SD$_SPLIT_READS = 34 ! longword (Number of reads that were split by SD)h DECLARE LONG CONSTANT SD$_SPLIT_WRITES = 35 ! longword (Number of writes that were split by SD)h DECLARE LONG CONSTANT SD$_DISK_READS = 36 ! longword (Number of reads to underlying pool units)j DECLARE LONG CONSTANT SD$_DISK_WRITES = 37 ! longword (Number of writes to underlying pool units)a DECLARE LONG CONSTANT SD$_COPY_OUTS = 38 ! longword (Number of copy/-on-write operations)q DECLARE LONG CONSTANT SD$_CONVERT_CANCELS = 39 ! longword (Number of cancelled lock requests)x DECLARE LONG CONSTANT SD$_POOL_FULL_STALLS = 40 ! longword (NUmber of requests stalled by pool full)8 DECLARE LONG CONSTANT SD$_SPARE1 = 41 ! longword8 DECLARE LONG CONSTANT SD$_SPARE2 = 42 ! longword8 DECLARE LONG CONSTANT SD$_SPARE3 = 43 ! longword8 DECLARE LONG CONSTANT SD$_SPARE4 = 44 ! longword8 DECLAR0E LONG CONSTANT SD$_SPARE5 = 45 ! longword8 DECLARE LONG CONSTANT SD$_SPARE6 = 46 ! longword8 DECLARE LONG CONSTANT SD$_SPARE7 = 47 ! longword8 DECLARE LONG CONSTANT SD$_SPARE8 = 48 ! longwordX DECLARE LONG CONSTANT SD$_COPY_STATS = 49 ! Array of SD$K_COPYCOUNTERS longwordsq DECLARE LONG CONSTANT SD$_DEV_LOCKID = 50 ! longword (LockId of device name consistancy lock)n DECLARE LONG CONSTANT SD$_UID_LOCKID = 51 ! longword (LockId1 of UID name consistancy lock)2 DECLARE LONG CONSTANT SD$K_COPYCOUNTERS = 24 ! ) ! options and flags for RTL routines ! 3 DECLARE LONG CONSTANT SD$M_CONTAINER_DISK = 13 DECLARE LONG CONSTANT SD$M_CONVERTED_DISK = 2 ! 1 ! Function codes for cluster-server requests ! 2 DECLARE LONG CONSTANT SD$K_CLU_BIND_POOL = 12 DECLARE LONG CONSTANT SD$K_CLU_BIND_DISK = 2/ DECLARE LONG CONSTANT SD$K_CLU_UNBIND = 3 ! I ! Define structures2 used by QIO interface to SD management functions ! ! ++ ! Device list ! 9 ! This structure is used to pass information between: ! the runtime library, the FDT routines and the start ! I/O routines ! --/ DECLARE LONG CONSTANT sd$S_SDDEVLIST = 88 record SDDEVLISTI LONG sd$l_start_lbn ! Starting LBN of data spaceA LONG sd$l_lbn_count ! Size of data spaceL LONG sd$l_meta_lbn 3 ! Location of SnapDisk metadataD LONG sd$l_meta_count ! Size of metadata area? LONG sd$ps_ucb ! UCB of pool unitD LONG sd$l_name_length ! Length of device name= STRING sd$t_name ( 1 to 64 ) = 1 ! Device name end record SDDEVLIST  ! A ! SD Parameter list - This is used to pass Snapshot Services= ! parameters/characteristics between the runtime library ! and the I/O 4 functions ! 4 DECLARE LONG CONSTANT sd$m_stall = x'00000001'8 DECLARE LONG CONSTANT sd$m_redundant = x'00000002'5 DECLARE LONG CONSTANT sd$m_record = x'00000004'6 DECLARE LONG CONSTANT sd$m_cluster = x'00000008'6 DECLARE LONG CONSTANT sd$m_partial = x'00000010'0 DECLARE LONG CONSTANT sd$S_SDPARAMLIST = 8 record SDPARAMLIST group sd$r_size_overlay variant caseM LONG sd$l_segment_size ! Segme 5nt size for copy-on-write caseH LONG sd$l_disk_size ! Disk size for create/disk end variant$ end group sd$r_size_overlay! group sd$r_flags_overlay variant caseB LONG sd$l_flags ! Miscellaneous flags case' group sd$r_flags_bits0 ! Stall/Fail on pool full= ! Use redundancy for SnapDisk met6adata6 ! Record snapshot creation time2 ! Operation is cluster-wide- ! Partial bind on poolo BYTE stall_bits ! COMMENT ADDED BY SDL - stall_bits contains bits stall through fill_17_+ end group sd$r_flags_bits end variant% end group sd$r_flags_overlay end record SDPARAMLIST  ! 5 ! IOCTL function codes - miscellaneous functions ! - DE 7CLARE LONG CONSTANT SD$K_GET_DISK = 1. DECLARE LONG CONSTANT SD$K_GET_STATS = 2- DECLARE LONG CONSTANT SD$K_GET_UNIT = 3. DECLARE LONG CONSTANT SD$K_POOL_DISK = 4. DECLARE LONG CONSTANT SD$K_POOL_INFO = 5. DECLARE LONG CONSTANT SD$K_POOL_UNIT = 6- DECLARE LONG CONSTANT SD$K_CLU_TEST = 72 DECLARE LONG CONSTANT SD$K_STORE_LOCKIDS = 85 DECLARE LONG CONSTANT SD$K_RETRIEVE_LOCKIDS = 99 DECLARE LONG CONSTANT SD$K_RETRIEVE_MEMBERLIST = 105 DECL8ARE LONG CONSTANT SD$K_SET_TRACE_LEVEL = 115 DECLARE LONG CONSTANT SD$K_GET_TRACE_LEVEL = 12 ! 9 ! Define Snapshot Services runtime library functions !  !  ! ++ !  ! ROUTINE: ! * ! sd$add_units POOL_DEVICE, UNIT_LIST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine7 ! Add additional storage units to an existing pool@ ! This function takes care of all the creation of container4 ! files etc. for the 9storage units being added. !  ! FORMAL PARAMETERS: ! 7 ! POOL_DEVICE (IN) : Name of device to add members; ! UNIT_LIST (IN) : Item List 3 containing Device listR ! FLAGS (IN) : Indicates temporary or permanent pool member !  !  ! PRE-CONDITIONS: ! = ! The set of devices must be mounted as Files-11 devices !  ! POST-CONDITIONS: ! B ! The new storage units are added as new members to the pool.I : ! All current and new members are stamped with a new membership list !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! , EXTERNAL LONG FUNCTION sd$add_units & ( &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! > ! sd$bind_disk DISK_DEVICE, POOL_DEVICE, DISK_NAME, FLAGS !  ! FUNCTIONAL DE;SCRIPTION:  !  ! Runtime library routine= ! Export a SnappyDisk from the pool as an OpenVMS device !  ! FORMAL PARAMETERS: ! 7 ! DISK_DEVICE (IN) : Name of disk device to create4 ! POOL_DEVICE (IN) : Name of pool device to use9 ! DISK_NAME (IN) : Name of disk to export from pool0 ! FLAGS (IN) : Optional flags SD$M_CLUSTER !  ! PRE-CONDITIONS: !  ! The pool must be bound.2 ! The SnappyDisk name must exist in the pool.<O ! The SnappyDisk must not be bound to a device on another computer in the  ! cluster.K ! Another SnappyDisk must not be bound to the specified device on any  ! computer in the cluster. !  ! POST-CONDITIONS: ! 5 ! The SnappyDisk is exposed as an OpenVMS device !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! , EXTERNAL LONG FUNCTION sd$bind_disk & ( &% STRING BY DESC, &=% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! 1 ! sd$bind_pool POOL_DEVICE, UNIT_LIST, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine9 ! 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, driv>er loading. !  ! FORMAL PARAMETERS: ! 2 ! POOL_DEVICE (IN) : Name of device to createC ! UNIT_LIST (IN) : Itemlist3 containing list of storage units0 ! FLAGS (IN) : Optional flags SD$M_CLUSTER !  ! PRE-CONDITIONS: ! = ! The storage units must be mounted as Files-11 devices.I ! The storage units must have been previously used to create a pool.J ! The list of storage units must not include storage units in another ! pool.I ! ? The list of storage units must not include a SnappyDisk bound to a ! device. !  ! POST-CONDITIONS: ! C ! A pool is rebound and exported as the specified pool_device. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! , EXTERNAL LONG FUNCTION sd$bind_pool & ( &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) !  ! ++ @ !  ! ROUTINE: ! ; ! sd$create_disk POOL_DEVICE, DISK_NAME, DISK_CAPACITY !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine$ ! Create a SnappyDisk in a pool !  ! FORMAL PARAMETERS: ! 4 ! POOL_DEVICE (IN) : Name of pool device to use5 ! DISK_NAME (IN) : Name of SnappyDisk to createB ! DISK_CAPACITY (IN) : Size in blocks of SnappyDisk to create !  ! PRE-CONDITIONS: !  ! The pool must be bound.A> ! The SnappyDisk name must not already exist in the pool.N ! 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 !  ! -- ! . EXTERNAL LONG FUNCTION sd$create_disk & ( &% STRING BY DESC, &% STRING BY DESCB, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! 7 ! sd$create_pool UNIT_LIST, SEGMENT_SIZE, FLAGS !  ! FUNCTIONAL DESCRIPTION:  ! 1 ! Create a pool from a set of storage units.@ ! This function takes care of all the creation of containerD ! files and driver loading that needs to be done before calling ! the IO$_BIND function. !  ! FORMAL PARAMETERS: ! E ! UNIT_LIST (IN C) : Item list 3 containing list of storage units< ! SEGMENT_SIZE (IN) : Size of segments in pool (blocks)9 ! FLAGS (IN) : Optional flags SD$M_STALL, SD$M_FAIL !  ! PRE-CONDITIONS: ! M ! The storage units must be initialised and mounted as Files-11 devices.J ! The list of storage units must not include storage units in another ! pool.I ! The list of storage units must not include a SnappyDisk bound to a ! device. !  ! POST-CONDITIONSD: ! 2 ! A new pool is created on the storage units.C ! The storage units are stamped as belonging to the same pool. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! . EXTERNAL LONG FUNCTION sd$create_pool & ( &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! @ ! sd$create_snap POOL_DEVICEE, DISK_DEVICE, DISK_NAME, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine. ! Create a snap of an existing SnappyDisk !  ! FORMAL PARAMETERS: ! 4 ! POOL_DEVICE (IN) : Name of pool device to useC ! DISK_DEVICE (IN) : Name of SnappyDisk device to use as basis ! for snap5 ! DISK_NAME (IN) : Name of SnappyDisk to create9 ! FLAGS (IN) : Should we record time snap was taken8 ! for incremental backup pFurposes, SD$M_RECORD !  ! PRE-CONDITIONS: !  ! The pool must be bound; ! The original SnappyDisk must be exported as a device !  ! POST-CONDITIONS: ! N ! A new SnappyDisk is created in the pool. That SnappyDisk will be a snap8 ! of the original SnappyDisk specified in the call. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! . EXTERNAL LONG FUNCTION sd$create_snap & ( &% G STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! , ! sd$delete_disk POOL_DEVICE, DISK_NAME !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine$ ! Delete a SnapDisk from a pool !  ! FORMAL PARAMETERS: ! 4 ! POOL_DEVICE (IN) : Name of pool device to use5 ! DISK_NAME (IN) : NHame of SnappyDisk to delete !  ! PRE-CONDITIONS: !  ! The pool must be bound1 ! The SnappyDisk name must exist in the poolO ! 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 !  ! -- ! . EXTERNAL LONG FUNCTION sd$delete_disk & ( &% STRIING BY DESC, &$ STRING BY DESC & ) !  ! ++ !  ! ROUTINE: ! - ! sd$remove_units POOL_DEVICE, UNIT_LIST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine$ ! Removes members from a pool. F ! If the members are successfully removed, the metadata files are ! removed from the devices. !  ! FORMAL PARAMETERS: ! : ! POOL_DEVICE (IN) : Name of device to remove membersE J ! UNIT_LIST (IN) : Item list 3 containing list of storage units !  ! PRE-CONDITIONS: ! D ! The list of storage units must be part of the specified pool.L ! The pool must contain enough free space to allow data on the outgoingE ! storage units to be copied to other storage units in the pool.I ! The list of storage units must not be the complete set of units in ! the pool. !  ! POST-CONDITIONS: ! : ! The remaining members are updatedK with the new pool ! membership list. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! / EXTERNAL LONG FUNCTION sd$remove_units & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! & ! sd$unbind VIRTUAL_DEVICE, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine! ! Unbind a pool or SnapDiskL. !  ! FORMAL PARAMETERS: ! 5 ! VIRTUAL_DEVICE (IN) : Name of device to unbind0 ! FLAGS (IN) : Optional flags SD$M_CLUSTER !  ! PRE-CONDITIONS: ! O ! The pool or SnappyDisk must be bound to the device on the local computer !  ! POST-CONDITIONS: ! 8 ! The pool or SnappyDisk is unbound from the device !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! ) EXTERNAL LONG FUNCTION sd$unbind M& ( &% STRING BY DESC, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! & ! sd$get_disk DISK_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine. ! Get information about an exported disk.< ! The information is returned using a standard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero terminated !  ! ValidN 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: ! 3 ! DISK_DEVICE (IN) : Name of SnappyDisk device. ! ITMLST (IN): Address of items to return !  ! PRE-CONDITIONS: ! - ! The device must be a SnappyDisk device !  ! POST-CONDITOIONS: ! , ! The information requested is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Member info returned- ! SS$_ACCVIO - Parameters not accessible8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - one or more buffer lengths are invalid6 ! SS$_IVDEVNAM - ucb is not that of a pool member9 ! SS$_NOTBOUND - the member is not bound into a pool5 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- ! P+ EXTERNAL LONG FUNCTION sd$get_disk & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! ' ! sd$get_pool POOL_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine ! Get pool-wide information< ! The information is returned using a standard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero teQrminated !  ! 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_DERVICE (IN) : Name of storage pool0 ! 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 returned8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - One or more buffer lengths are invalid5 ! SS$_SDDISABLED S - Snap-capable disk not loaded ! -- ! + EXTERNAL LONG FUNCTION sd$get_pool & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! 2 ! sd$get_pool_begin POOL_DEVICE, POOL_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine5 ! Routine to setup context to read SnapDisk pool% ! parameters from a pool device. !  T! FORMAL PARAMETERS: ! 6 ! POOL_DEVICE (IN) : Name of pool device to query7 ! POOL_CONTEXT (IN) : Address of context to return !  ! PRE-CONDITIONS: ! ! ! The pool device must exist !  ! POST-CONDITIONS: ! D ! A context is setup to allow sd$get_pool and sd$get_pooldevice2 ! to be called to return the pool parameters. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! 1 EXTERNAL LONG FUNCTION Usd$get_pool_begin & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! - ! sd$get_pool_disk POOL_CONTEXT, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routineM ! Routine to return the information for the next SnappyDisk in the pool. !  ! For example: ! ; ! status = sd$get_pool_begin(raw_device, context) ! wVhile (success(status))5 ! 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: ! 2 ! POOL_CONTEXT (IN) : Address of pool context. ! ITMLST (IWN): Address of items to return !  ! PRE-CONDITIONS: ! > ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: ! " ! The next member is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned+ ! SS$_NOMOREDEV - No more diks in pool ! -- ! 0 EXTERNAL LONG FUNCTION sd$get_pool_disk & ( &" LONG BY REF, &! LONG BY REF & X ) !  ! ++ !  ! ROUTINE: ! $ ! sd$get_pool_end POOL_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine7 ! Routine to tidy up the context associated with a ! sd$get_pool_begin. !  ! FORMAL PARAMETERS: ! 7 ! POOL_CONTEXT (IN) : Address of context to delete !  ! PRE-CONDITIONS: ! > ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONSY: !  ! The context is deleted !  ! RETURN VALUE: !  ! SS$_NORMAL !  ! -- ! / EXTERNAL LONG FUNCTION sd$get_pool_end & ( &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! 0 ! sd$get_pool_unit POOL_CONTEXT, NEXT_UNIT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routineC ! Routine to return the next member device making up the pool.@Z ! This routine is designed to be called in a loop to return* ! all the members making up the pool. ! For example: ! ; ! status = sd$get_pool_begin(raw_device, context) ! while (success(status)): ! status = sd$get_pool_unit(context, unit_device)$ ! status = sd$get_pool_end !  ! FORMAL PARAMETERS: ! - ! POOL_CONTEXT (IN) : Address of context: ! NEXT_UNIT (OUT) : Address of descriptor to return !  ! PRE-CON[DITIONS: ! > ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: ! " ! The next member is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned& ! SS$_NOMOREDEV - No more devices% ! SS$_BADPARAM - Invalid context5 ! SS$_SDDISABLED - Snap-capable disk not loaded !  ! -- ! 0 EXTERNAL LONG FUNCTION sd$get_pool_unit & ( &" LONG BY REF, &\$ STRING BY DESC & ) !  ! ++ !  ! ROUTINE: ! 1 ! sd$get_raw_begin UNIT_DEVICE, UNIT_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine7 ! Routine to setup context to read SnappyDisk poolB ! parameters from a raw (mounted but not bound) storage unit. !  ! FORMAL PARAMETERS: ! 7 ! UNIT_DEVICE (IN) : Name of storage unit to query7 ! UNIT_CONTEXT (IN) : Address] of context to return !  ! PRE-CONDITIONS: ! 6 ! The member device must be mounted but not bound !  ! POST-CONDITIONS: ! H ! A context is setup to allow sd$get_raw_info and sd$get_unitdeviceC ! to be called to return pool parameters stored on the member. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! 0 EXTERNAL LONG FUNCTION sd$get_raw_begin & ( &% STRING BY DESC, &!^ LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! # ! sd$get_raw_end UNIT_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine7 ! Routine to tidy up the context associated with a ! sd$get_raw_begin. !  ! FORMAL PARAMETERS: ! - ! UNIT_CONTEXT (IN) : Address of context !  ! PRE-CONDITIONS: ! = ! A context must have been started with sd$get_raw_begin_ !  ! POST-CONDITIONS: !  ! The context is deleted !  ! RETURN VALUE: !  ! SS$_NORMAL !  ! -- ! . EXTERNAL LONG FUNCTION sd$get_raw_end & ( &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! / ! sd$get_raw_next UNIT_CONTEXT, NEXT_UNIT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routineC ! Routine to return the next member d`evice making up the pool.@ ! This routine is designed to be called in a loop to return8 ! all the members in the pool making up the device. ! For example: ! : ! status = sd$get_raw_begin(raw_device, context) ! while (success(status))9 ! status = sd$get_raw_next(context, unit_device)# ! status = sd$get_raw_end !  ! FORMAL PARAMETERS: ! - ! UNIT_CONTEXT (IN) : Address of context9 ! NEXT_UNIT(OUT) : Address of descraiptor to return !  ! PRE-CONDITIONS: ! = ! A context must have been started with sd$get_raw_begin !  ! POST-CONDITIONS: ! " ! The next member is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned& ! SS$_NOMOREDEV - No more devices !  ! -- ! / EXTERNAL LONG FUNCTION sd$get_raw_next & ( &" LONG BY REF, &$ STRING BY DESC & )b !  ! ++ !  ! ROUTINE: ! , ! sd$get_raw_info UNIT_CONTEXT, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine& ! Get information from the member< ! The information is returned using a standard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_CREATION_DATE ! SD$_HIGHEST_UNIT ! SD$_LOWEST_UNIT ! SD$_MAJOR_IcD ! SD$_MAX_DISK ! SD$_MAX_FAMILY ! SD$_MAX_UNITS ! SD$_MINOR_ID ! SD$_MODIFIED_DATE ! SD$_POOL_ID ! SD$_POOL_OPTIONS ! SD$_SEGMENT_SIZE ! SD$_SEQUENCE_NUMBER ! SD$_UNIT_COUNT ! SD$_UNIT_ID ! SD$_UNIT_NUMBER ! SD$_UNIT_OPTIONS !  ! FORMAL PARAMETERS: ! - ! UNIT_CONTEXT (IN) : Address of context/ ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! = ! A cdontext must have been started with sd$get_raw_begin !  ! POST-CONDITIONS: ! , ! The information requested is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - One or more buffer lengths are invalid ! -- ! / EXTERNAL LONG FUNCTION sd$get_raw_info & ( &" LONG BY REF, &! LONG BY REF e& ) !  ! ++ !  ! ROUTINE: ! ( ! sd$get_stats POOL_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine; ! Get monitor-type runtime statistics on a system-wide ! or per-pool basis. ! @ ! If POOL_DEVICE is NULL, this call returns the system-wide= ! statistics otherwise it returns the statistics for the ! specified pool. ! < ! The information is returned using a stanfdard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_COPY_OUTS ! SD$_DISK_READS ! SD$_DISK_WRITES ! SD$_READS ! SD$_SPLIT_READS ! SD$_SPLIT_WRITES ! SD$_WRITES !  ! FORMAL PARAMETERS: ! * ! POOL_DEVICE(IN) : Pool device name/ ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! 8 ! The SnappyDisk driverg must be loaded and enabled.J ! 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 accessible8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - one or more buffer lengths are invalid1 ! SS$_IVDEVNAM - Device is noht a pool device* ! SS$_NOSUCHDEV - No such pool device5 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- ! , EXTERNAL LONG FUNCTION sd$get_stats & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! & ! sd$get_unit UNIT_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine* ! Get information about a pool imember< ! The information is returned using a standard OpenVMS ! itemlist mechanism.2 ! 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) : Najme of storage unit/ ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! 8 ! The storage unit must exist on the local computer !  ! POST-CONDITIONS: ! , ! The information requested is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Member info returned- ! SS$_ACCVIO - Parameters not accessible8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - one or more buffer lengths are inv alid6 ! SS$_IVDEVNAM - ucb is not that of a pool member9 ! SS$_NOTBOUND - the member is not bound into a pool5 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- ! + EXTERNAL LONG FUNCTION sd$get_unit & ( &% STRING BY DESC, &! LONG BY REF & ) wwl+! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED m( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINnG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > o %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +, ! PROCESS OR GLOBAL SECTION DEFINITIONS ! - ! M ! ***** L_VBN, L_WINDOW, and L_PFC must be the same offset values as the3 ! ***** equivalently named offsets in $PFLDEF. ! 3 p DECLARE LONG CONSTANT SEC$M_GBL = x'00000001'3 DECLARE LONG CONSTANT SEC$M_CRF = x'00000002'4 DECLARE LONG CONSTANT SEC$M_DZRO = x'00000004'3 DECLARE LONG CONSTANT SEC$M_WRT = x'00000008'5 DECLARE LONG CONSTANT SEC$M_SHMGS = x'00000010'6 DECLARE LONG CONSTANT SEC$M_ARGS64 = x'00000020'6 DECLARE LONG CONSTANT SEC$M_WRTMOD = x'000000C0'4 DECLARE LONG CONSTANT SEC$M_AMOD = x'00000300'8 DECLARE LONG CONSTANT SEC$M_UNCACHED = x'00000400'> DECL qARE LONG CONSTANT SEC$M_READ_ONLY_SHPT = x'00000800': DECLARE LONG CONSTANT SEC$M_SHARED_PTS = x'00001000'4 DECLARE LONG CONSTANT SEC$M_MRES = x'00002000'4 DECLARE LONG CONSTANT SEC$M_PERM = x'00004000'6 DECLARE LONG CONSTANT SEC$M_SYSGBL = x'00008000'6 DECLARE LONG CONSTANT SEC$M_PFNMAP = x'00010000'6 DECLARE LONG CONSTANT SEC$M_EXPREG = x'00020000'7 DECLARE LONG CONSTANT SEC$M_PROTECT = x'00040000'6 DECLARE LONG CONSTANT SEC$M_PAGFIL = x'00080000'7 r DECLARE LONG CONSTANT SEC$M_EXECUTE = x'00100000'9 DECLARE LONG CONSTANT SEC$M_NOPROTCHK = x'00200000': DECLARE LONG CONSTANT SEC$M_NO_OVERMAP = x'00400000'6 DECLARE LONG CONSTANT SEC$M_INPROG = x'00800000'8 DECLARE LONG CONSTANT SEC$M_PARANOID = x'01000000'8 DECLARE LONG CONSTANT SEC$M_GRANHINT = x'02000000': DECLARE LONG CONSTANT SEC$M_MRES_ALLOC = x'04000000'8 DECLARE LONG CONSTANT SEC$M_RAD_HINT = x'08000000': DECLARE LONG CONSTANT SEC$M_INCONM sMGST = x'10000000'- DECLARE LONG CONSTANT SEC$S_SECDEF = 48 record SECDEF group SEC$R_GSD_OVERLAY variant caseP LONG SEC$L_GSD ! GLOBAL SECTION DESCRIPTOR ADDRESS  case_ LONG SEC$L_CCB ! CHANNEL CONTROL BLOCK ADDRESS IF PROCESS SECTION  end variant$ end group SEC$R_GSD_OVERLAYI LONG SEC$L_SECXFL ! SECTION INDEX FORWARD LINK t J LONG SEC$L_SECXBL ! SECTION INDEX BACKWARD LINK F LONG SEC$L_PFC ! PFC - Page Fault Cluster& group SEC$R_MRES_FILE_OVERLAY variant case] BASIC$QUADWORD SEC$Q_MRES_REFCNT ! REFERENCE COUNT FOR MRES/SHMGS SECTIONS case) group SEC$R_FILE_FIELDSI group SEC$R_VBN_OVERLAY ! BASE VIRTUAL BLOCK NUMBER variant u case) LONG SEC$L_VBN case3 BASIC$QUADWORD SEC$Q_VBN# end variant0 end group SEC$R_VBN_OVERLAYC LONG SEC$L_WINDOW ! WINDOW CONTROL BLOCK - end group SEC$R_FILE_FIELDS end variant* end group SEC$R_MRES_FILE_OVERLAY !  ! ***** NOTE *****F ! All flags in sec$l_flags mustv be kept in sync with flags in the7 ! SECFLG structure defined further in this module. ! **************** ! " group SEC$R_FLAGS_OVERLAY variant caseP LONG SEC$L_FLAGS ! VARIOUS CONTROL FLAGS IN LOW WORD case( group SEC$R_FLAGS_BITS( ! GLOBAL SECTION + ! COPY ON REFERENCE % ! DEMAND ZERO " ! w WRITABLE 5 ! SHARED MEMORY GLOBAL SECTION2 ! Arguments passed as quads7 ! WRITE ACCESS MODE FOR SECTION 0 ! ACCESS MODE OF SECTION 4 ! PFN-map I/O space uncached.A ! Shared page tables map section read-only7 ! Section is a shared PT section0 ! MEMORY RESIDENT SECTION+ ! PERMANENT SECTION = x ! 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL  ! O ! ***** THE FOLLOWING FLAGS ARE INDICATORS FOR PRIVATE AND GLOBAL SECTIONO ! ***** SYSTEM SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS LONGWORD  ! ***** FIELD. ! / ! MAP TO SPECIFIC PFN'S ; ! MAP INTO FIRST FREE ADDRESS SPACE : ! CHECK WRITE ACCESS MODE (WRTMOD) D ! GLOBAL SECTION HAS PAGE FILE BACKING STORE 1 y ! CHECK FOR EXECUTE ACCESS1 ! INHIBIT PROTECTION CHECK5 ! DON'T OVERMAP ADDRESS SPACE 5 ! Section creation in progress. ! Go into paranoia mode2 ! Allow enhanced GH regionsE ! Allocate memory resident pages during create9 ! Allocate pages based on RAD hintQ ! Possible INCONMMGST workaround (s zaved in flags longword)i LONG GBL_bits ! COMMENT ADDED BY SDL - GBL_bits contains bits GBL through FILL_18_, end group SEC$R_FLAGS_BITS end variant& end group SEC$R_FLAGS_OVERLAYk LONG SEC$L_REFCNT ! COUNT OF PTE'S REFERENCING THIS SECTION (unless MRES/SHMGS)  ! [ ! UNIT_CNT contains the number of pagelets (512 byte units) in the section, except fore ! PFN-mapped sections. In that case, UNIT_C{NT contains the number of PFNs mapped by the section. ! J LONG SEC$L_VPX ! Starting virtual page indexU group SEC$R_UNIT_CNT_OVERLAY ! Number of pagelets/PFNs in the section variant case% LONG SEC$L_UNIT_CNT case/ BASIC$QUADWORD SEC$Q_UNIT_CNT end variant) end group SEC$R_UNIT_CNT_OVERLAY end record SECDEF  ! 8 ! ***** | NOTE THAT NUMBER OF LONG WORDS MUST BE EVEN ! C DECLARE LONG CONSTANT SEC$K_LENGTH = 48 ! SIZE OF PSTE/GSTE C DECLARE LONG CONSTANT SEC$C_LENGTH = 48 ! SIZE OF PSTE/GSTE  !  ! ***** NOTE *****L ! All flags in the SECFLG structure must be kept in sync with flags in 3 ! sec$l_flags defined in the SECDEF structure. ! **************** ! 6 DECLARE LONG CONSTANT SECFLG$M_GBL = x'00000001'6 DECLARE LONG CONSTANT SECFLG$M_CRF = x'00000002'7 } DECLARE LONG CONSTANT SECFLG$M_DZRO = x'00000004'6 DECLARE LONG CONSTANT SECFLG$M_WRT = x'00000008'8 DECLARE LONG CONSTANT SECFLG$M_SHMGS = x'00000010'9 DECLARE LONG CONSTANT SECFLG$M_ARGS64 = x'00000020'9 DECLARE LONG CONSTANT SECFLG$M_WRTMOD = x'000000C0'7 DECLARE LONG CONSTANT SECFLG$M_AMOD = x'00000300'; DECLARE LONG CONSTANT SECFLG$M_UNCACHED = x'00000400'A DECLARE LONG CONSTANT SECFLG$M_READ_ONLY_SHPT = x'00000800'= DECLARE LONG CONSTAN ~T SECFLG$M_SHARED_PTS = x'00001000'7 DECLARE LONG CONSTANT SECFLG$M_MRES = x'00002000'7 DECLARE LONG CONSTANT SECFLG$M_PERM = x'00004000'9 DECLARE LONG CONSTANT SECFLG$M_SYSGBL = x'00008000'9 DECLARE LONG CONSTANT SECFLG$M_PFNMAP = x'00010000'9 DECLARE LONG CONSTANT SECFLG$M_EXPREG = x'00020000': DECLARE LONG CONSTANT SECFLG$M_PROTECT = x'00040000'9 DECLARE LONG CONSTANT SECFLG$M_PAGFIL = x'00080000': DECLARE LONG CONSTANT SECFLG$M_EXECUTE = x'001 00000'< DECLARE LONG CONSTANT SECFLG$M_NOPROTCHK = x'00200000'= DECLARE LONG CONSTANT SECFLG$M_NO_OVERMAP = x'00400000'9 DECLARE LONG CONSTANT SECFLG$M_INPROG = x'00800000'; DECLARE LONG CONSTANT SECFLG$M_PARANOID = x'01000000'; DECLARE LONG CONSTANT SECFLG$M_GRANHINT = x'02000000'= DECLARE LONG CONSTANT SECFLG$M_MRES_ALLOC = x'04000000'; DECLARE LONG CONSTANT SECFLG$M_RAD_HINT = x'08000000'5 DECLARE LONG CONSTANT SECFLG$S_SECDEF_FLAGS = 4 record SECDEF_FLAGS% group SECFLG$R_FLAGS_OVERLAY variant caseR WORD SECFLG$W_SAVED_FLAGS ! FLAGS SAVED IN SECTION TABLE ENTRY caseP LONG SECFLG$L_FLAGS ! VARIOUS CONTROL FLAGS IN LOW WORD case+ group SECFLG$R_FLAGS_BITS( ! GLOBAL SECTION + ! COPY ON REFERENCE % ! DEMAND ZERO "  ! WRITABLE 5 ! SHARED MEMORY GLOBAL SECTION2 ! Arguments passed as quads7 ! WRITE ACCESS MODE FOR SECTION 0 ! ACCESS MODE OF SECTION 4 ! PFN-map I/O space uncached.A ! Shared page tables map section read-only7 ! Section is a shared PT section0 ! MEMORY RESIDENT SECTION+ ! PERMANENT SECTI ON = ! 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL  ! O ! ***** THE FOLLOWING FLAGS ARE INDICATORS FOR PRIVATE AND GLOBAL SECTIONO ! ***** SYSTEM SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS LONGWORD  ! ***** FIELD. ! / ! MAP TO SPECIFIC PFN'S ; ! MAP INTO FIRST FREE ADDRESS SPACE : ! CHECK WRITE ACCESS MODE (WRTMOD) D ! GLOBAL SECTION HAS PAGE FILE BACKING STORE 1 ! CHECK FOR EXECUTE ACCESS1 ! INHIBIT PROTECTION CHECK5 ! DON'T OVERMAP ADDRESS SPACE 5 ! Section creation in progress. ! Go into paranoia mode2 ! Allow enhanced GH regionsE ! Allocate memory resident pages during create9 ! Allocate pages based on RAD hinti LONG GBL_bits ! COMMENT ADD ED BY SDL - GBL_bits contains bits GBL through FILL_19_/ end group SECFLG$R_FLAGS_BITS end variant) end group SECFLG$R_FLAGS_OVERLAY end record SECDEF_FLAGS R DECLARE LONG CONSTANT SEC$K_MATALL = 0 ! MATCH ALWAYS, USE GLOBAL SECTION Q DECLARE LONG CONSTANT SEC$K_MATEQU = 1 ! MATCH IF ISD$L_IDENT EQU GBL ID Q DECLARE LONG CONSTANT SEC$K_MATLEQ = 2 ! MATCH IF ISD$L_IDENT LEQ GBL ID . DECLARE LONG CONSTANT SEC$S_SECDEF1 = 26 record SECDEF1) BYTE SECDEF$$_FILL_6 ( 1 to 25 )E BYTE SEC$B_AMOD ! ACCESS MODE OF SECTION  ! +! ! MATCH CONTROL VIELD VALUES ! - ! BASE OF ZERO , INCR 1  end record SECDEF1  ! ' ! Definitions for $GETSECI service ! B DECLARE LONG CONSTANT SECI$_CHAIN = 1 ! Chained item blockG DECLARE LONG CONSTANT SECI$_GSMODE = 2 ! Access mode of section7 DECLARE LONG CONSTANT SECI$_GSFL AGS = 3 ! FlagsD DECLARE LONG CONSTANT SECI$_GSNAME = 4 ! Global section nameF DECLARE LONG CONSTANT SECI$_GSIDENT = 5 ! Global section identG DECLARE LONG CONSTANT SECI$_GSRELPAG = 6 ! Relative page number ! B ! Definitions for $UPDEC(W) AND $UPDSEC_64(W) system services ! ? DECLARE LONG CONSTANT UPDFLG$M_WRT_MODIFIED = x'00000001'5 DECLARE LONG CONSTANT UPDFLG$S_UPDSEC_FLAGS = 4 record UPDSEC_FLAGS% group UPDFLG$R_FLAGS_OVERLA Y variant case5 LONG UPDFLG$L_FLAGS ! Flags  case+ group UPDFLG$R_FLAGS_BITS5 ! Write pages only if modified~ BYTE WRT_MODIFIED_bits ! COMMENT ADDED BY SDL - WRT_MODIFIED_bits contains bits WRT_MODIFIED through & ! FILL_20_/ end group UPDFLG$R_FLAGS_BITS end variant) end group UPDFLG$R_FLAGS_OVERLAY end record UPDSEC_FLAGS  ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +: ! Define the global section identification structure. ! -: DECLARE LONG CONSTANT SECID$M_MINOR_ID = x'00FFFFFF': DECLARE LONG CONSTANT SECID$M_MAJOR_ID = x'FF000000'- DECLARE LO NG CONSTANT SECID$S_SECID = 8 record SECIDP LONG SECID$L_MATCH ! Match control value, see secdef.h group SECID$R_FILL_21_ variant case= LONG SECID$L_VERSION ! Version number case( group SECID$R_FILL_22_5 ! Minor ID of version number5 ! Minor ID of version numberx LONG MINOR_ID_bits ! COMMENT AD DED BY SDL - MINOR_ID_bits contains bits MINOR_ID through MAJOR_ID, end group SECID$R_FILL_22_ end variant# end group SECID$R_FILL_21_ end record SECID B DECLARE LONG CONSTANT SECID$K_LENGTH = 8 ! Length of SECIDB DECLARE LONG CONSTANT SECID$C_LENGTH = 8 ! Length of SECID wwVG! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  / DECLARE LONG CONSTANT SECSRV$K_SERVER = 1, DECLARE LONG CONSTANT SECSRV$K_CIA = 2. DECLARE LONG CONSTANT SECSRV$K_PROXY = 30 DECLARE LONG CONSTANT SECSRV$K_MAPPING = 41 DECLARE LONG CON STANT SECSRV$K_SHUTDOWN = 14 DECLARE LONG CONSTANT SECSRV$K_PERFORMANCE = 29 DECLARE LONG CONSTANT SECSRV$K_ZERO_PERFORMANCE = 30 DECLARE LONG CONSTANT SECSRV$K_RESTART = 42 DECLARE LONG CONSTANT SECSRV$K_ADD_PROXY = 05 DECLARE LONG CONSTANT SECSRV$K_DELETE_PROXY = 13 DECLARE LONG CONSTANT SECSRV$K_SHOW_PROXY = 25 DECLARE LONG CONSTANT SECSRV$K_VERIFY_PROXY = 35 DECLARE LONG CONSTANT SECSRV$K_CREATE_PROXY = 47 DECLARE LONG CONSTANT SECSRV$K_S CAN_INTRUSION = 59 DECLARE LONG CONSTANT SECSRV$K_DELETE_INTRUSION = 67 DECLARE LONG CONSTANT SECSRV$K_SHOW_INTRUSION = 74 DECLARE LONG CONSTANT SECSRV$K_STOP_SERVER = 87 DECLARE LONG CONSTANT SECSRV$K_RESTART_SERVER = 95 DECLARE LONG CONSTANT SECSRV$K_ADD_MAPPING = 108 DECLARE LONG CONSTANT SECSRV$K_CREATE_MAPPING = 118 DECLARE LONG CONSTANT SECSRV$K_DEFINE_MAPPING = 128 DECLARE LONG CONSTANT SECSRV$K_DELETE_MAPPING = 138 DECLARE LONG CONSTAN T SECSRV$K_MODIFY_MAPPING = 146 DECLARE LONG CONSTANT SECSRV$K_SCAN_MAPPING = 158 DECLARE LONG CONSTANT SECSRV$K_LOOKUP_MAPPING = 165 DECLARE LONG CONSTANT SECSRV$K_MAX_SERVICE = 172 DECLARE LONG CONSTANT SECSRV$K_MAXMSG = 81927 DECLARE LONG CONSTANT SECSRV$K_MAX_MESSAGE = 8192= DECLARE LONG CONSTANT SECSRV$K_REPLY_CONTEXT_LENGTH = 4@ DECLARE LONG CONSTANT SECSRV$M_IGNORE_RETURN = x'00000001'9 DECLARE LONG CONSTANT SECSRV$M_FILL_1 = x'FFFFFFFE'7  DECLARE LONG CONSTANT SECSRV$K_HEADER_LENGTH = 927 DECLARE LONG CONSTANT SECSRV$S_SECSRV$HEADER = 92 record SECSRV$HEADER# LONG SECSRV$L_MESSAGE_TYPE& LONG SECSRV$L_MESSAGE_SUBTYPE" LONG SECSRV$L_CALLERS_PID% LONG SECSRV$L_RETURN_MAILBOX group SECSRV$R_FILL_25_ variant case% LONG SECSRV$L_FLAGS case) group SECSRV$R_FILL_26_ LONG IG NORE_RETURN_bits ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through & ! FILL_1- end group SECSRV$R_FILL_26_ end variant$ end group SECSRV$R_FILL_25_ group SECSRV$R_USERNAME' WORD SECSRV$W_USERNAME_SIZE WORD SECSRV$W_FILL_20 STRING SECSRV$T_USERNAME_STRING = 32$ end group SECSRV$R_USERNAME group SECSRV$R_TERMINAL' BYTE SECSRV$B_TERMINAL_SIZE.  STRING SECSRV$T_TERMINAL_NAME = 15$ end group SECSRV$R_TERMINAL$ group SECSRV$R_PROCESS_NAME% BYTE SECSRV$B_PRCNAM_SIZE, STRING SECSRV$T_PRCNAM_NAME = 15( end group SECSRV$R_PROCESS_NAME& LONG SECSRV$L_MESSAGE_CONTEXT end record SECSRV$HEADER 7 DECLARE LONG CONSTANT SECSRV$CLIENT = -17627873277 DECLARE LONG CONSTANT SECSRV$OBJECT = -1762787326> DECLARE LONG CONSTANT SECSRV$COMMUNICATION = -1762787325 wwT! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! < ! Send to Job Controller Service ($SNDJBC) definitions. ! Y ! NOTE: New items must always be added at the end so users will not have to relink. !  !  ! Function codes ! O DECLARE LONG CONSTANT SJC$_ABORT_JOB = 1 ! Abort current job in a queueK DECLARE LONG CONSTANT SJC$_ADD_FILE = 2 ! Add a file to an open jobL DECLARE LONG CONSTANT SJC$_ALTER_JOB = 3 ! Alter parameters of a jobP DECLARE LONG CONSTANT SJC$_ALTER_QUEUE = 4 ! Alter parameters of a queueb DECLARE LONG CONSTANT SJC$_ASSIGN_QUEUE = 5 ! Assign a logical queue to an execution queue_ DECLARE LONG CONSTANT SJC$_BATCH_CHECKPOINT = 6 ! Establish a checkpoint in a batch jobM DECLARE LONG CONSTANT SJC$_BATCH_SERVICE = 7 ! LOGINOUT communicationR DECLARE LONG CONSTANT SJC$_CLOSE_DELETE = 8 ! Close and delete an open jobP DECLARE LONG CONSTANT SJC$_CLOSE_JOB = 9 ! Close and enqueue an open jobG DECLARE LONG CONSTANT SJC$_CREATE_JOB = 10 ! Create an open jobE DECLARE LONG CONSTANT SJC$_CREATE_QUEUE = 11 ! Create a queueQ DECLARE LONG CONSTANT SJC$_DEASSIGN_QUEUE = 12 ! Deassign a logical queueb DECLARE LONG CONSTANT SJC$_DEFINE_CHARACTERISTIC = 13 ! Create a characteristic definitionN DECLARE LONG CONSTANT SJC$_DEFINE_FORM = 14 ! Create a form definitionb DECLARE LONG CONSTANT SJC$_DELETE_CHARACTERISTIC = 15 ! Delete a characteristic definitionN DECLARE LONG CONSTANT SJC$_DELETE_FORM = 16 ! Delete a form definitionA DECLARE LONG CONSTANT SJC$_DELETE_JOB = 17 ! Delete a jobE DECLARE LONG CONSTANT SJC$_DELETE_QUEUE = 18 ! Delete a queueW DECLARE LONG CONSTANT SJC$_ENTER_FILE = 19 ! Enter a single file job in a queue^ DECLARE LONG CONSTANT SJC$_MERGE_QUEUE = 20 ! Requeue all jobs in one queue to anotherU DECLARE LONG CONSTANT SJC$_PAUSE_QUEUE = 21 ! Suspend processing from a queueC DECLARE LONG CONSTANT SJC$_RESET_QUEUE = 22 ! Reset a queueS DECLARE LONG CONSTANT SJC$_START_ACCOUNTING = 23 ! Start accounting managerT DECLARE LONG CONSTANT SJC$_START_QUEUE = 24 ! Start processing from a queue \ DECLARE LONG CONSTANT SJC$_START_QUEUE_MANAGER = 25 ! Start system job queue managerQ DECLARE LONG CONSTANT SJC$_STOP_ACCOUNTING = 26 ! Stop accounting managerQ DECLARE LONG CONSTANT SJC$_STOP_QUEUE = 27 ! Stop processing from a queueZ DECLARE LONG CONSTANT SJC$_STOP_QUEUE_MANAGER = 28 ! Stop system job queue managerY DECLARE LONG CONSTANT SJC$_SYNCHRONIZE_JOB = 29 ! Synchronize with job completionW DECLARE LONG CONSTANT SJC$_WRITE_ACCOUNTING = 30 ! Write user accounting recordr DECLARE LONG CONSTANT SJC$_CONTROL_DIAGNOSTICS = 31 ! Control diagnostic functions (for internal use only)] ! (note this function code is intentionally not documented and reserved for Digital use)~ DECLARE LONG CONSTANT SJC$_DELETE_QUEUE_MANAGER = 32 ! Remove all references to specified qmgr from shared master filea DECLARE LONG CONSTANT SJC$_ALTER_FILE = 33 ! Modify the processing of a file within a jobq DECLARE LONG CONSTANT SJC$_STOP_ALL_QUEUES_ON_NODE = 34 ! Stop all batch/print job processing on the nodeb DECLARE LONG CONSTANT SJC$_DISABLE_QUEUE = 35 ! Cause all QSIs on the queue to be inactive[ DECLARE LONG CONSTANT SJC$_ENABLE_QUEUE = 36 ! Allow disabled queue to be restartedV DECLARE LONG CONSTANT SJC$_SYMBIONT_SERVICE = 37 ! Symbiont-Qman communicationR DECLARE LONG CONSTANT SJC$_JOBCTL_SERVICE = 38 ! Jobctl-Qman communication DECLARE LONG CONSTANT SJC$_ENABLE_AUTOSTART = 39 ! Start all AUTOSTART queues on node and allow queues to fail over to & ! nodes DECLARE LONG CONSTANT SJC$_DISABLE_AUTOSTART = 40 ! Prevent AUTOSTART queues from failing over to this nodek DECLARE LONG CONSTANT SJC$_SHUTDOWN_NODE = 41 ! Perform orderly shutdown of queuing system on node. DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_42 = 42 ! Reserved for Digital use (name may change) Reserved by security see & ! [qman]tables.reqe DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_43 = 43 ! Reserved for Digital use (name may change)e DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_44 = 44 ! Reserved for Digital use (name may change)e DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_45 = 45 ! Reserved for Digital use (name may change)e DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_46 = 46 ! Reserved for Digital use (name may change)e DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_47 = 47 ! Reserved for Digital use (name may change)e DECLARE LONG CONSTANT SJC$_RESERVE D_FUNC_48 = 48 ! Reserved for Digital use (name may change)e DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_49 = 49 ! Reserved for Digital use (name may change)e DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_50 = 50 ! Reserved for Digital use (name may change)O DECLARE LONG CONSTANT SJC$K_MIN_FUNC = 1 ! Minimum SNDJBC function codeP DECLARE LONG CONSTANT SJC$K_MAX_FUNC = 50 ! Maximum SNDJBC function code !  ! Item codes ! S DECLARE LONG CONSTANT SJC$_ACCOUNTING_MESSAGE = 1 ! User accounting messageY DECLARE LONG CONSTANT SJC$_ACCOUNTING_TYPES = 2 ! Mask of accounting record typesC DECLARE LONG CONSTANT SJC$_AFTER_TIME = 3 ! Hold until time2 DECLARE LONG CONSTANT SJC$_NO_AFTER_TIME = 4K DECLARE LONG CONSTANT SJC$_ALIGNMENT_MASK = 5 ! Mask alignment dataR DECLARE LONG CONSTANT SJC$_ALIGNMENT_PAGES = 6 ! Number of alignment pagesR DECLARE LONG CONSTANT SJC$_BASE_PRIORITY = 7 ! Batch process base priority: DECLARE LONG CONSTANT SJC$_BATCH = 8 ! Batch queue- DECLARE LONG CONSTANT SJC$_NO_BATCH = 9k DECLARE LONG CONSTANT SJC$_BATCH_INPUT = 10 ! LOGINOUT communication (Retired, see SERVICE_INPUT) DECLARE LONG CONSTANT SJC$_BATCH_OUTPUT = 11 ! For use by LOGINOUT (for internal use only) (Retired, see SERVICE_OUTPUT)Y ! (note this item code is intentionally not documented and reserved for Digital use)T DECLARE LONG CONSTANT SJC$_CHARACTERISTIC_NAME = 12  ! Printer characteristic; DECLARE LONG CONSTANT SJC$_CHARACTERISTIC_NUMBER = 138 DECLARE LONG CONSTANT SJC$_NO_CHARACTERISTICS = 14Q DECLARE LONG CONSTANT SJC$_CHECKPOINT_DATA = 15 ! Batch checkpoint string8 DECLARE LONG CONSTANT SJC$_NO_CHECKPOINT_DATA = 16@ DECLARE LONG CONSTANT SJC$_CLI = 17 ! Batch process CLI, DECLARE LONG CONSTANT SJC$_NO_CLI = 18L DECLARE LONG CONSTANT SJC$_CPU_DEFAULT = 19 ! Default CPU time limit4 DECLARE LONG CONSTANT SJC$_NO_CPU_DEFAULT = 20J DECLARE LONG CONSTANT SJC$_CPU_LIMIT = 21 ! Maximum CPU time limit2 DECLARE LONG CONSTANT SJC$_NO_CPU_LIMIT = 22Q DECLARE LONG CONSTANT SJC$_CREATE_START = 23 ! Start queue after creationR DECLARE LONG CONSTANT SJC$_DELETE_FILE = 24 ! Delete file after processing4 DECLARE LONG CONSTANT SJC$_NO_DELETE_FILE = 25R DECLARE LONG CONSTANT SJC$_DESTINATION_QUEUE = 26 ! Destination queue nameH DECLARE LONG CONSTANT SJC$_DEVICE_NAME  = 27 ! Output device nameJ DECLARE LONG CONSTANT SJC$_DOUBLE_SPACE = 28 ! Double space output5 DECLARE LONG CONSTANT SJC$_NO_DOUBLE_SPACE = 29G DECLARE LONG CONSTANT SJC$_ENTRY_NUMBER = 30 ! Job entry number9 DECLARE LONG CONSTANT SJC$_ENTRY_NUMBER_OUTPUT = 31J DECLARE LONG CONSTANT SJC$_FILE_BURST = 32 ! Print file burst page4 DECLARE LONG CONSTANT SJC$_FILE_BURST_ONE = 333 DECLARE LONG CONSTANT SJC$_NO_FILE_BURST = 34L DECLARE LONG CONSTANT SJC$_FILE_COPIES = 35 ! Print n copies of fileH DECLARE LONG CONSTANT SJC$_FILE_FLAG = 36 ! Print file flag page3 DECLARE LONG CONSTANT SJC$_FILE_FLAG_ONE = 372 DECLARE LONG CONSTANT SJC$_NO_FILE_FLAG = 38S DECLARE LONG CONSTANT SJC$_FILE_IDENTIFICATION = 39 ! DVI, FID, DID of file\ DECLARE LONG CONSTANT SJC$_FILE_SETUP_MODULES = 40 ! Device control modules for file; DECLARE LONG CONSTANT SJC$_NO_FILE_SETUP_MODULES = 41W DECLARE LONG CONSTANT SJC$_FILE_SPECIFICATION = 42 ! File specification of fileN DECLARE LONG CONSTANT SJC$_FILE_TRAILER = 43 ! Print file trailer page6 DECLARE LONG CONSTANT SJC$_FILE_TRAILER_ONE = 445 DECLARE LONG CONSTANT SJC$_NO_FILE_TRAILER = 45I DECLARE LONG CONSTANT SJC$_FIRST_PAGE = 46 ! Starting page number3 DECLARE LONG CONSTANT SJC$_NO_FIRST_PAGE = 47V DECLARE LONG CONSTANT SJC$_FORM_DESCRIPTION = 48 ! Textual description of formJ DECLARE LONG CONSTANT SJC$_FORM_LENGTH = 49 ! Form length in linesX DECLARE LONG CONSTANT SJC$_FORM_MARGIN_BOTTOM = 50 ! Form bottom margin in linesY DECLARE LONG CONSTANT SJC$_FORM_MARGIN_LEFT = 51 ! Form left margin in characters[ DECLARE LONG CONSTANT SJC$_FORM_MARGIN_RIGHT = 52 ! Form right margin in charactersR DECLARE LONG CONSTANT SJC$_FORM_MARGIN_TOP = 53 ! Form top margin in lines@ DECLARE LONG CONSTANT SJC$_FORM_NAME = 54 ! Printer form1 DECLARE LONG CONSTANT SJC$_FORM_NUMBER = 55\ DECLARE LONG CONSTANT SJC$_FORM_SETUP_MODULES = 56 ! Device control modules for form; DECLARE LONG CONSTANT SJC$_NO_FORM_SETUP_MODULES = 57K DECLARE LONG CONSTANT SJC$_FORM_SHEET_FEED = 58 ! Form is sheet fed8 DECLARE LONG CONSTANT SJC$_NO_FORM_SHEET_FEED = 59H DECLARE LONG CONSTANT SJC$_FORM_STOCK = 60 ! Stock name for formK DECLARE LONG CONSTANT SJC$_FORM_TRUNCATE = 61 ! Truncate long lines6 DECLARE LONG CONSTANT SJC$_NO_FORM_TRUNCATE = 62M DECLARE LONG CONSTANT SJC$_FORM_WIDTH = 63 ! Form width in charactersC DECLARE LONG CONSTANT SJC$_FORM_WRAP = 64 ! Wrap long lines2 DECLARE LONG CONSTANT SJC$_NO_FORM_WRAP = 65P DECLARE LONG CONSTANT SJC$_GENERIC_QUEUE = 66 ! Queue is a generic queue6 DECLARE LONG CONSTANT SJC$_NO_GENERIC_QUEUE = 67b DECLARE LONG CONSTANT SJC$_GENERIC_SELECTION = 68 ! Queue can take work from generic queue: DECLARE LONG CONSTANT SJC$_NO_GENERIC_SELECTION = 69c  DECLARE LONG CONSTANT SJC$_GENERIC_TARGET = 70 ! Possible execution queue for generic queue@ DECLARE LONG CONSTANT SJC$_HOLD = 71 ! Place job on hold- DECLARE LONG CONSTANT SJC$_NO_HOLD = 72H DECLARE LONG CONSTANT SJC$_JOB_BURST = 73 ! Print job burst page2 DECLARE LONG CONSTANT SJC$_NO_JOB_BURST = 74Q DECLARE LONG CONSTANT SJC$_JOB_COPIES = 75 ! Print n copies of entire jobF DECLARE LONG CONSTANT SJC$_JOB_FLAG = 76 ! Print job flag page1 DECLARE LONG CONSTANT SJC$_NO_JOB_FLAG = 77M DECLARE LONG CONSTANT SJC$_JOB_LIMIT = 78 ! Number of concurrent jobsJ DECLARE LONG CONSTANT SJC$_JOB_NAME = 79 ! Identifying name of job_ DECLARE LONG CONSTANT SJC$_JOB_RESET_MODULES = 80 ! Device control modules between jobs: DECLARE LONG CONSTANT SJC$_NO_JOB_RESET_MODULES = 81Z DECLARE LONG CONSTANT SJC$_JOB_SIZE_MAXIMUM = 82 ! Largest job accepted by printer9 DECLARE LONG CONSTANT SJC$_NO_JOB_SIZE_MAXIMUM = 83[ DECLARE LONG CONSTANT SJC$_JOB_SIZE_MINIMUM = 84 ! Smallest job accepted by printer9 DECLARE LONG CONSTANT SJC$_NO_JOB_SIZE_MINIMUM = 85] DECLARE LONG CONSTANT SJC$_JOB_SIZE_SCHEDULING = 86 ! Schedule printer queues by size< DECLARE LONG CONSTANT SJC$_NO_JOB_SIZE_SCHEDULING = 87\ DECLARE LONG CONSTANT SJC$_JOB_STATUS_OUTPUT = 88 ! Status message for submitted jobL DECLARE LONG CONSTANT SJC$_JOB_TRAILER = 89 ! Print job trailer page4 DECLARE LONG CONSTANT SJC$_NO_JOB_TRAILER = 90F DECLARE LONG CONSTANT SJC$_LAST_PAGE = 91 ! Ending page number2 DECLARE LONG CONSTANT SJC$_NO_LAST_PAGE = 92b DECLARE LONG CONSTANT SJC$_LIBRARY_SPECIFICATION = 93 ! Filename of device control library> DECLARE LONG CONSTANT SJC$_NO_LIBRARY_SPECIFICATION = 94D DECLARE LONG CONSTANT SJC$_LOG_DELETE = 95 ! Delete log file3 DECLARE LONG CONSTANT SJC$_NO_LOG_DELETE = 96J DECLARE LONG CONSTANT SJC$_LOG_QUEUE = 97 ! Log file's print queueZ DECLARE LONG CONSTANT SJC$_LOG_SPECIFICATION = 98 ! File specification of log file: DECLARE LONG CONSTANT SJC$_NO_LOG_SPECIFICATION = 99C DECLARE LONG CONSTANT SJC$_LOG_SPOOL = 100 ! Print log file3 DECLARE LONG CONSTANT SJC$_NO_LOG_SPOOL = 101O DECLARE LONG CONSTANT SJC$_LOWERCASE = 102 ! Print on lowercase printer3 DECLARE LONG CONSTANT SJC$_NO_LOWERCASE = 103Q DECLARE LONG CONSTANT SJC$_NEW_VERSION = 104 ! Create new version of fileF DECLARE LONG CONSTANT SJC$_NEXT_JOB = 105 ! Resume at next jobC DECLARE LONG CONSTANT SJC$_NOTE = 106 ! Flag page note text. DECLARE LONG CONSTANT SJC$_NO_NOTE = 107O DECLARE LONG CONSTANT SJC$_NOTIFY = 108 ! Notify user on job completion_ DECLARE LONG CONSTANT SJC$_NO_NOTIFY = 109 ! Don't notify user on completion (for jobs); ! Don't notify user on interruption (for print queues)Q DECLARE LONG CONSTANT SJC$_OPERATOR_REQUEST = 110 ! Operator service text: DECLARE LONG CONSTANT SJC$_NO_OPERATOR_REQUEST = 111D DECLARE LONG CONSTANT SJC$_OWNER_UIC = 112 ! Queue owner UICI DECLARE LONG CONSTANT SJC$_PAGE_HEADER = 113 ! Print page headers5 DECLARE LONG CONSTANT SJC$_NO_PAGE_HEADER = 114b DECLARE LONG CONSTANT SJC$_PAGE_SETUP_MODULES = 115 ! Device control modules for form page< DECLARE LONG CONSTANT SJC$_NO_PAGE_SETUP_MODULES = 116X DECLARE LONG CONSTANT SJC$_PAGINATE = 117 ! Paginate outpu t with free form feeds2 DECLARE LONG CONSTANT SJC$_NO_PAGINATE = 118K DECLARE LONG CONSTANT SJC$_PARAMETER_1 = 119 ! Batch job parameters2 DECLARE LONG CONSTANT SJC$_PARAMETER_2 = 1202 DECLARE LONG CONSTANT SJC$_PARAMETER_3 = 1212 DECLARE LONG CONSTANT SJC$_PARAMETER_4 = 1222 DECLARE LONG CONSTANT SJC$_PARAMETER_5 = 1232 DECLARE LONG CONSTANT SJC$_PARAMETER_6 = 1242 DECLARE LONG CONSTANT SJC$_PARAMETER_7 = 1252 DECLARE LONG CONSTANT SJC$_PARAMET ER_8 = 1264 DECLARE LONG CONSTANT SJC$_NO_PARAMETERS = 127E DECLARE LONG CONSTANT SJC$_PASSALL = 128 ! Print file passall1 DECLARE LONG CONSTANT SJC$_NO_PASSALL = 129K DECLARE LONG CONSTANT SJC$_PRIORITY = 130 ! Job scheduling priorityO DECLARE LONG CONSTANT SJC$_PROCESSOR = 131 ! Filename of symbiont image3 DECLARE LONG CONSTANT SJC$_NO_PROCESSOR = 132K DECLARE LONG CONSTANT SJC$_PROTECTION = 133 ! Queue protection maskJ DECLARE LONG CONSTANT SJC$_QUEUE = 134 ! Queue on which to operated DECLARE LONG CONSTANT SJC$_QUEUE_FILE_SPECIFICATION = 135 ! File specification of queue file[ DECLARE LONG CONSTANT SJC$_RELATIVE_PAGE = 136 ! Resume after forward or back space> DECLARE LONG CONSTANT SJC$_REQUEUE = 137 ! Requeue jobB DECLARE LONG CONSTANT SJC$_RESTART = 138 ! Job can restart1 DECLARE LONG CONSTANT SJC$_NO_RESTART = 139P DECLARE LONG CONSTANT SJC$_RETAIN_ALL_JOBS = 140 ! Retain complete d jobs8 DECLARE LONG CONSTANT SJC$_RETAIN_ERROR_JOBS = 1415 DECLARE LONG CONSTANT SJC$_NO_RETAIN_JOBS = 142S DECLARE LONG CONSTANT SJC$_SCSNODE_NAME = 143 ! Node name of execution nodeT DECLARE LONG CONSTANT SJC$_SEARCH_STRING = 144 ! Resume after finding stringD DECLARE LONG CONSTANT SJC$_SWAP = 145 ! Swap batch processes. DECLARE LONG CONSTANT SJC$_NO_SWAP = 146W DECLARE LONG CONSTANT SJC$_TERMINAL = 147 ! Queue is a (generic) terminal queue2  DECLARE LONG CONSTANT SJC$_NO_TERMINAL = 148L DECLARE LONG CONSTANT SJC$_TOP_OF_FILE = 149 ! Resume at top of filex DECLARE LONG CONSTANT SJC$_USER_IDENTIFICATION = 150 ! Proxy user identification (not supported and is obsolete)Y ! (note this item code is intentionally not documented and reserved for Digital use)H DECLARE LONG CONSTANT SJC$_WSDEFAULT = 151 ! Working set default3 DECLARE LONG CONSTANT SJC$_NO_WSDEFAULT = 152F DECLARE LONG CONSTANT SJC$_WSEXTENT = 153 ! Working set extent2 DECLARE LONG CONSTANT SJC$_NO_WSEXTENT = 154D DECLARE LONG CONSTANT SJC$_WSQUOTA = 155 ! Working set quota1 DECLARE LONG CONSTANT SJC$_NO_WSQUOTA = 156f DECLARE LONG CONSTANT SJC$_ACCOUNT_NAME = 157 ! Proxy account name (requires CMKRNL privilege)T DECLARE LONG CONSTANT SJC$_UIC = 158 ! Proxy UIC (requires CMKRNL privilege)^ DECLARE LONG CONSTANT SJC$_USERNAME = 159 ! Proxy username (requires CMKRNL privilege)X DECLARE LONG CONSTANT SJC$_BUFFER_COUNT = 160 ! Multibuffer count for queue fileh DECLARE LONG CONSTANT SJC$_EXTEND_QUANTITY = 161 ! Allocation and extend quantity for queue filed DECLARE LONG CONSTANT SJC$_RECORD_BLOCKING = 162 ! Symbiont record blocking of output stream9 DECLARE LONG CONSTANT SJC$_NO_RECORD_BLOCKING = 163 DECLARE LONG CONSTANT SJC$_QUEMAN_RESTART = 164 ! qualifier on SJC$_START_QUEUE_MANAGER, restart queue manager after an & ! abort8 DECLARE LONG CONSTANT SJC$_NO_QUEMAN_RESTART = 165T DECLARE LONG CONSTANT SJC$_DEFAULT_FORM_NAME = 166 ! Default queue form nameX DECLARE LONG CONSTANT SJC$_DEFAULT_FORM_NUMBER = 167 ! Default queue form number~ DECLARE LONG CONSTANT SJC$_SECURITY_CLASSIFICATION = 168 ! Used by SeVMS to specify security classification of the jobY ! (note this item code is intentionally not documented and reserved for Digital use)M DECLARE LONG CONSTANT SJC$_QUEUE_SUPPORT = 169 ! Queue Support Images DECLARE LONG CONSTANT SJC$_JOB_COMPLETION_STATUS = 170 ! Status of completed job - this buffer is used instead of IOSB & ! when specified DECLARE LONG CONSTANT SJC$_DIAGNOSTIC_BUFFER_OUTPUT = 171 ! Job controller's in-memory diagnostic buffer (for internal & ! use only)Y ! (note this item code is intentionally not documented and reserved for Digital use)W DECLARE LONG CONSTANT SJC$_OPEN_QUEUE = 172 ! Open queue - allow job submission` DECLARE LONG CONSTANT SJC$_CLOSE_QUEUE = 173 ! Close queue - do not allow job submission> DECLARE LONG CONSTANT SJC$_SERVER = 174 ! Server queue@ DECLARE LONG CONSTANT SJC$_PRINTER = 175 ! Printer queuer DECLARE LONG CONSTANT SJC$_UPDATE_ORB = 176 ! Update ORB information in queue file (for internal use only)Y ! (note this item code is intentionally not documented and reserved for Digital use)] DECLARE LONG CONSTANT SJC$_NO_QUEUE_DESCRIPTION = 177 ! No queue description suppliedE DECLARE LONG CONSTANT SJC$_JOB_RETAIN = 178 ! Retain this jobT DECLARE LONG CONSTANT SJC$_JOB_ERROR_RETAIN = 179 ! Retain this job on error_ DECLARE LONG CONSTANT SJC$_JOB_DEFAULT_RETAIN = 180 ! Use queue's job retention settingo DECLARE LONG CONSTANT SJC$_NOTIFY_ON_INTERRUPT = 181 ! Notify users if their print jobs are interrupted\ DECLARE LONG CONSTANT SJC$_NO_RAD = 182 ! Reserved for Digital use (name may change)r DECLARE LONG CONSTANT SJC$_ACCEPT_ALL_ATTRIBUTES = 183 ! Inhibits queue manager validation of QSI keywordsl DECLARE LONG CONSTANT SJC$_DIAGNOSTIC_FLAGS = 184 ! Diagnostic flags bitmask (for internal use only)Y ! (note this item code is intentionally not documented and reserved for Digital use)N DECLARE LONG CONSTANT SJC$_QUEUE_DESCRIPTION = 185 ! Queue descriptionz DECLARE LONG CONSTANT SJC$_CHECKPOINT_FREQUENCY = 186 ! Symbiont takes checkpoint at intervals of this many pages ~ DECLARE LONG CONSTANT SJC$_DISPLAY_USERNAME = 187 ! Used by DQS to pass a username to the remote system (symbol not & ! renamed)Y ! (note this item code is intentionally not documented and reserved for Digital use)V DECLARE LONG CONSTANT SJC$_FILE_NUMBER = 188 ! File sequence number within jobt DECLARE LONG CONSTANT SJC$_FILE_ATTRIBUTE = 189 ! "Keyword = (optional) value" for extensible attrib on filer DECLARE LONG CONSTANT SJC$_JOB_ATTRIBUTE = 190 ! "Keyword = (optional) value" for extensible attrib on jobv DECLARE LONG CONSTANT SJC$_QUEUE_ATTRIBUTE = 191 ! "Keyword = (optional) value" for extensible attrib on queuem DECLARE LONG CONSTANT SJC$_REMOVE_ATTRIBUTE = 192 ! Remove extensible attribs for queue, job, or fileS DECLARE LONG CONSTANT SJC$_QUEUE_MANAGER_NAME = 193 ! Queue manager process| DECLARE LONG CONSTANT SJC$_QUEUE_MANAGER_NODES = 194 ! Failover list of nodes on which queue manager process may run DECLARE LONG CONSTANT SJC$_AUTOSTART_ON = 195 ! Node(s) (and for print queues, device(s)) on which queue can be auto & ! startedl DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_196 = 196 ! Reserved for Digital use (name may change) &7 ! SJC$_RESERVED_OUTPUT_196 to SJC$_RESERVED_OUTPUT_199 DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_197 = 197 ! Reserved for Digital use (name may change) reserved by security & ! group.n DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_198 = 198 ! Reserved for Digital use (name may change) see. DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_199 = 199 ! Reserved for Digital use (name may change) [QMAN]Tables.reqe DECLARE LONG CONSTANT SJC$_SET_CONDITION_VECTOR = 200 ! QSI can alter job's completion statusc DECLARE LONG CONSTANT SJC$_NOTIFY_MESSAGE = 201 ! QSI Check Job can replace job completion  ! message sent to users DECLARE LONG CONSTANT SJC$_DEFINE_FILE_ATTRIBUTES = 202 ! Legal keywds for file submissions or alter_file'sr DECLARE LONG CONSTANT SJC$_DEFINE_JOB_ATTRIBUTES = 203 ! Legal keywds in oper'ns that create or alter jobst DECLARE LONG CONSTANT SJC$_DEFINE_QUEUE_ATTRIBUTES = 204 ! Legal keywords in operations that alter the queueM DECLARE LONG CONSTANT SJC$_AGENT_PROFILE = 205 ! Security information~ DECLARE LONG CONSTANT SJC$_ADD_QUEUE_MANAGER = 206 ! Boolean item code telling sjc_start_queue_manager to add a new & ! database DECLARE LONG CONSTANT SJC$_OUTSTANDING_JOBS = 207 ! Boolean item code telling queue manager to not delete outstanding & ! open jobs DECLARE LONG CONSTANT SJC$_NO_INITIAL_FF = 208 ! To suppress initial form feed when the queue is started with INIT or & ! START cmd7 DECLARE LONG CONSTANT SJC$_NO_NO_INITIAL_FF = 209r DECLARE LONG CONSTANT SJC$_DELETE_FILE_ALWAYS = 210 ! delete file even if the job completes with a failure< DECLARE LONG CONSTANT SJC$_NO_DELETE_FILE_ALWAYS = 211j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_212 = 212 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_213 = 213 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_214 = 214 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_215 = 215 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_216 = 216 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_217 = 217 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_218 = 218 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_219 = 219 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_220 = 220 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_221 = 221  ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_222 = 222 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_223 = 223 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_224 = 224 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_225 = 225 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_226 = 226 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_227 = 227 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_228 = 228 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_229 = 229 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_230 = 230 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_231 = 231 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_232 = 232 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_233 = 233 ! Reserved for Digital use (name may change)j DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_234 = 234 ! Reserved for Digital use (name may change)r DECLARE LONG CONSTANT SJC$_JOB_RETAIN_TIME = 235 ! The time the job should be retained (delta or absolute)o DECLARE LONG CONSTANT SJC$_MANAGER_ATTRIBUTE = 236 ! Any application specific queue manager attributes.M DECLARE LONG CONSTANT SJC$_RAD = 237 ! RAD on which to run batch job. DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_238 = 238 ! Reserved for Digital use (name may change) items RESERVED_INPUT_238 t DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_239 = 239 ! Reserved for Digital use (name may change) to DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_240 = 240 ! Reserved for Digital use (name may change) SJC$_RESERVED_INPUT_241 DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_241 = 241 ! Reserved for Digital use (name may change) reserved by security & ! (see [QMAN]tables.reqi DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_242 = 242 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_243 = 243 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_244 = 244 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_245 = 245 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_246 = 246 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_247 = 247 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_248 = 248 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_249 = 249 ! Reserved for Digital use (name may change)h DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_250 = 250 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_251 = 251 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_252 = 252 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_253 = 253 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_254 = 254 ! Reserved for Digital use (name may change)i DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_255 = 255 ! Reserved for Digital use (name may change)K DECLARE LONG CONSTANT SJC$K_MIN_ITEM = 1 ! Minimum SNDJBC item codeM DECLARE LONG CONSTANT SJC$K_MAX_ITEM = 255 ! Maximum SNDJBC item codeT DECLARE LONG CONSTANT SJC$_CHARGE_CODE = 157 ! synonym for SJC$_ACCOUNT_NAMEJ DE CLARE LONG CONSTANT SJC$_RESERVED_INPUT_187 = 187 ! for DQS only6 DECLARE LONG CONSTANT SJC$_QUEUE_DIRECTORY = 1359 ! Disk ? directory for non-shared job queue database3 DECLARE LONG CONSTANT SJC$_SERVICE_INPUT = 104 DECLARE LONG CONSTANT SJC$_SERVICE_OUTPUT = 11[ ! SERVICE item codes are used for communications with LOGINOUT, symbionts, and jobctl. ! ^ ! Subfields of ACCOUNTING_TYPES item code. These definitions must track EXE$GL_ACMFLAGS. ! < DE CLARE LONG CONSTANT SJC$M_ACCT_PROCESS = x'00000001': DECLARE LONG CONSTANT SJC$M_ACCT_IMAGE = x'00000002'@ DECLARE LONG CONSTANT SJC$M_ACCT_INTERACTIVE = x'00000004'B DECLARE LONG CONSTANT SJC$M_ACCT_LOGIN_FAILURE = x'00000008'? DECLARE LONG CONSTANT SJC$M_ACCT_SUBPROCESS = x'00000010'= DECLARE LONG CONSTANT SJC$M_ACCT_DETACHED = x'00000020': DECLARE LONG CONSTANT SJC$M_ACCT_BATCH = x'00000040'< DECLARE LONG CONSTANT SJC$M_ACCT_NETWORK = x'00000080': DECLARE LONG CONSTANT SJC$M_ACCT_PRINT = x'00000100'< DECLARE LONG CONSTANT SJC$M_ACCT_MESSAGE = x'00000200'= DECLARE LONG CONSTANT SJC$M_ACCT_ACM_FUNC = x'00000400'< DECLARE LONG CONSTANT SJC$M_ACCT_ACM_SYS = x'00000800'< DECLARE LONG CONSTANT SJC$M_ACCT_CCAENAB = x'00001000'< DECLARE LONG CONSTANT SJC$M_ACCT_CCVENAB = x'00002000'6 DECLARE LONG CONSTANT SJC$S_ACCOUNTING_TYPES = 4 record ACCOUNTING_TYPES ! Process termination ! Image termination" ! Interactive processes ! Login failures ! Subprocesses ! Detached processes ! Batch processes ! Network processes" ! Print job termination ! User messages ! Acm function ! System function# ! Charge code accounting# ! Charge code validation{ LONG ACCT_PROCESS_bits ! COMMENT ADDED BY SDL - ACCT_PROCESS_bits contains bits ACCT_PROCESS through ACCT_UNUSED! end record ACCOUNTING_TYPES  ! / ! Subfields of DIAGNOSTIC_FLAGS item code. ! < DECLARE LONG CONSTANT SJC$M_DIAG_COPY_QF = x'00000001'> DECLARE LONG CONSTANT SJC$M_DIAG_CREATE_MF = x'00000002'= DECLARE LONG CONSTANT SJC$M_DIAG_CLOSE_MF = x'00000004'< DECLARE LONG CONSTANT SJC$M_DIAG_OPEN_MF = x'00000008'@ DECLARE LONG CONSTANT SJC$M_DIAG_CLEAR_FLAGS = x'00000010'B DECLARE LONG CONSTANT SJC$M_DIAG_LOG_ALL_TRANS = x'0 0000020'A DECLARE LONG CONSTANT SJC$M_DIAG_JOURNAL_PUTS = x'00000040'E DECLARE LONG CONSTANT SJC$M_DIAG_DUMP_DIAG_BUFFER = x'00000080'E DECLARE LONG CONSTANT SJC$M_DIAG_INIT_DIAG_BUFFER = x'00000100'6 DECLARE LONG CONSTANT SJC$S_DIAGNOSTIC_FLAGS = 4 record DIAGNOSTIC_FLAGS( ! Make copy of the queue file= ! Create new monitor log file and begin monitoring7 ! Stop monitoring and close monitor log fileA ! Open existing monitor log file and resume monitoring? ! Clear monitoring flags in queue file header recordG ! Log read-only transactions in addition to basic monitoringO ! Journal queue file $PUT operations in addition to basic monitoring; ! Return contents of diagnostic buffer to callerF ! Initialize diagnostic buffer and zero cumulative counters{ LONG DIAG_COPY_QF_bits ! COMMENT ADDED BY SDL - DIAG_COPY_QF_bits contains bits DIAG_COPY_QF through DIAG_UNUSED! end record DIAGNOSTIC_FLAGS  ww]! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! , ! DEFINE SYMBIONT MANAGER REQUEST CODES ! & ! SYMBIONT MANAGER REQUEST CODES E DECLARE LONG CONSTANT SMR$K_INITIAL = 0 ! INITIALIZE A QUEUE B DECLARE LONG CONSTANT SMR$K_DELETE = 1 ! DELETE THE QUEUE L DECLARE LONG CONSTANT SMR$K_START = 2 ! ACTIVATE OR RESUME PRINTING M DECLARE LONG CONSTANT SMR$K_PAUSE = 3 ! SUSPEND PRINTING FOR A WHILE W DECLARE LONG CONSTANT SMR$K_MERGE = 4 ! MOVE FILES FORM ONE QUEUE INTO ANOTHER V DECLARE LONG CONSTANT SMR$K_REDIRECT = 5 ! ASSIGNMENT OF ONE QUEUE TO ANOTHER T DECLARE LONG CONSTANT SMR$K_JUSTIFY = 6 ! JUSTIFY PRINT FORMS(IE: ISSUE FF) I DECLARE LONG CONSTANT SMR$K_STOP = 7 ! DISABLE FURTHER DE-QUEING F DECLARE LONG CONSTANT SMR$K_ENTER = 8 ! ADD A FILE TO A QUEUE D DECLARE LONG CONSTANT SMR$K_CREJOB = 9 ! CREATE A PRINT JOB M DECLARE LONG CONSTANT SMR$K_ADDFIL = 10 ! ADD A FILE TO EXISTING JOB A DECLARE LONG CONSTANT SMR$K_CLSJOB = 11 ! CLOSE OPEN JOB H DECLARE LONG CONSTANT SMR$K_RMVJOB = 12 ! REMOVE JOB FROM QUEUE P DECLARE LONG CONSTANT SMR$K_ALTER = 13 ! CHANGE A FILES CHARACTERISTICS O DECLARE LONG CONSTANT SMR$K_ABORT = 14 ! ABORT CURRENT JOB, START NEXT N DECLARE LONG CONSTANT SMR$K_RELEASE = 15 ! RELEASE JOB FROM HOLD LIST N DECLARE LONG CONSTANT SMR$K_DETINIT = 16 ! DETACHED JOB HAS INITIATED O DECLARE LONG CONSTANT SMR$K_SYNCJOB = 17 ! SYNCRONIZE WITH A BATCH JOB R DECLARE LONG CONSTANT SMR$K_ASKQNAM = 18 ! GET NAME OF QUEUE FOR LOG FILE  ! < ! ASSIGN SYMBIONT MANAGER PRINT JOB/RECORD OPTION CODES !  !  ! JOB FILE OPTIONS P DECLARE LONG CONSTANT SMO$K_DELETE = 1 ! DELETE THE FILE AFTER PRINTING F DECLARE LONG CONSTANT SMO$K_BRSTPAG = 2 ! CREATE A BURST PAGE G DECLARE LONG CONSTANT SMO$K_NOBRSTPAG = 3 ! INHIBIT BURST PAGE D DECLARE LONG CONSTANT SMO$K_FLAGPAG = 4 ! PRINT A FLAG PAGE H DECLARE LONG CONSTANT SMO$K_NOFLAGPAG = 5 ! INHIBIT A FLAG PAGE O DECLARE LONG CONSTANT SMO$K_PAGHDR = 6 ! PRINT FILENAME AS PAGE HEADER J DECLARE LONG CONSTANT SMO$K_DOUBLE = 7 ! DOUBLE SPACE THE LISTING N  DECLARE LONG CONSTANT SMO$K_NOFEED = 8 ! INHIBIT FORM FEED GENERATION M DECLARE LONG CONSTANT SMO$K_PAGCNT = 9 ! SPECIFY PAGE COUNT TO PRINT L DECLARE LONG CONSTANT SMO$K_COPIES = 10 ! NUMBER OF COPIES TO PRINT = DECLARE LONG CONSTANT SMO$K_FILESIZ = 11 ! FILE SIZE E DECLARE LONG CONSTANT SMO$K_DESTQUE = 12 ! DESTINATION QUEUE  ! OPTIONS FOR CREATE JOB N DECLARE LONG CONSTANT SMO$K_RLSTIM = 32 ! TIME TO HOLD UNTIL QUEUEING = DECLARE LONG CONSTANT SMO$K_HOLD = 33 ! HOLD THE JOB Y DECLARE LONG CONSTANT SMO$K_JOBPRI = 34 ! SPECIFY PRINT JOB/DETACHED JOB PRIOITY R DECLARE LONG CONSTANT SMO$K_JOBCOPY = 35 ! NUMBER OF COPIES OF ENTIRE JOB S DECLARE LONG CONSTANT SMO$K_FORMTYPE = 36 ! FORM TYPE TO USED WHEN PRINTED O DECLARE LONG CONSTANT SMO$K_LOWER = 37 ! UPPER/LOWER CASE PRINTER ONLY H DECLARE LONG CONSTANT SMO$K_PARAMS = 38 ! SUPPLY JOB PARAMETERS L DECLARE LONG CONSTANT SMO$K_JOBNAME = 39 ! SUPPLY A NAME TO THE JOB M DECLARE LONG CONSTANT SMO$K_NOLOWER = 40 ! CLEAR LOWER CASE REQUIRED A DECLARE LONG CONSTANT SMO$K_CPULIM = 41 ! CPU TIME LIMIT E DECLARE LONG CONSTANT SMO$K_NOCPULM = 42 ! NO CPU TIME LIMIT E DECLARE LONG CONSTANT SMO$K_WSQUOTA = 43 ! WORKING SET QUOTA H DECLARE LONG CONSTANT SMO$K_NOWSQUO = 44 ! NO WORKING SET QUOTA G DECLARE LONG CONSTANT SMO$K_WSDEFLT = 45 ! WORKING SET DEFAULT J DECLARE LONG CONSTANT SMO$K_NOWSDFT = 46 ! NO WORKING SET DEFAULT P DECLARE LONG CONSTANT SMO$K_DQCHAR = 47 ! CHAR. TO BE USED WHEN PRINTED B DECLARE LONG CONSTANT SMO$K_LOGFNAM = 48 ! LOG FILE SPEC. K DECLARE LONG CONSTANT SMO$K_LOGQNAM = 49 ! QUEUE NAME FOR LOG FILE A DECLARE LONG CONSTANT SMO$K_KEEPLOG = 50 ! KEEP LOG FILE H DECLARE LONG CONSTANT SMO$K_NOSPOOL = 51 ! DON'T SPOOL LOG FILE E DECLARE LONG CONSTANT SMO$K_NOKEEPLOG = 52 ! DELETE LOG FILE K DECLARE LONG CONSTANT SMO$K_NOLOG = 53 ! CREATE LOG ON NULL DEVICE L DECLARE LONG CONSTANT SMO$K_NOTIFY = 54 ! NOTIFY WHEN JOB COMPLETES = DECLARE LONG CONSTANT SMO$K_NONOTFY = 55 ! NO NOTIFY = DECLARE LONG CONSTANT SMO$K_WSEXTNT = 56 ! WS EXTENT B DECLARE LONG CONSTANT SMO$K_NOWSEXTNT = 57 ! NO WS EXTENT ) ! OPTIONS FOR INIT OR START A QUEUE S DECLARE LONG CONSTANT SMO$K_CURFORM = 64 ! CURRENT FORMS MOUNTED ON DEVICE I DECLARE LONG CONSTANT SMO$K_GENPRT = 65 ! ALLOW GENERIC PRINTING N DECLARE LONG CONSTANT SMO$K_NOGENPRT = 66 ! DISALLOW GENERIC PRINTING T DECLARE LONG CONSTANT SMO$K_DETJOB = 67 ! QUEUE IS FOR DETACHED JOB QUEUING P DECLARE LONG CONSTANT SMO$K_GENDEV = 68 ! QUEUE IS GENERIC DEVICE QUEUE I DECLARE LONG CONSTANT SMO$K_NOGENDEV = 69 ! NOT A GENERIC DEVICE S DECLARE LONG CONSTANT SMO$K_DEFBRST = 70 ! QUEUE HAS BURST PAGE BY DEFAULT K DECLARE LONG CONSTANT SMO$K_NODEFBRST = 71 ! NO DEFAULT BURST PAGE R DECLARE LONG CONSTANT SMO$K_DEFFLAG = 72 ! QUEUE HAS FLAG PAGE BY DEFAULT E DECLARE LONG CONSTANT SMO$K_NODEFFLAG = 73 ! NO DEFAULT FLAG G DECLARE LONG CONSTANT SMO$K_TRMDEV = 74 ! DEVICE IS A TERMINAL M DECLARE LONG CONSTANT SMO$K_NOTRMDEV = 75 ! DEVICE IS NOT A TERMINAL K DECLARE LONG CONSTANT SMO$K_JOBLIM = 76 ! JOB LIMIT FOR BATCH JOBS G DECLARE LONG CONSTANT SMO$K_INIPRI = 77 ! JOB INITIAL PRIORITY B DECLARE LONG CONSTANT SMO$K_DISWAP = 78 ! DISABLE SWAPING E DECLARE LONG CONSTANT SMO$K_MCPULM = 79 ! MAX CPU TIME LIMIT J DECLARE LONG CONSTANT SMO$K_NOMCPULM = 80 ! NO MAX CPU TIME LIMIT I DECLARE LONG CONSTANT SMO$K_DCPULM = 81 ! DEFAULT CPU TIME LIMIT N DECLARE LONG CONSTANT SMO$K_NODCPULM = 82 ! NO DEFAULT CPU TIME LIMIT D DECLARE LONG CONSTANT SMO$K_WSQUTA = 83 ! WORKING SET QUOTA I DECLARE LONG CONSTANT SMO$K_NOWSQUTA = 84 ! NO WORKING SET QUOTA F DECLARE LONG CONSTANT SMO$K_WSDFLT = 85 ! WORKING SET DEFAULT K DECLARE LONG CONSTANT SMO$K_NOWSDFLT = 86 ! NO WORKING SET DEFAULT P DECLARE LONG CONSTANT SMO$K_CURDQCHAR = 87 ! CURRENT CHAR. OF THE QUEUE K DECLARE LONG CONSTANT SMO$K_SMBNAME = 88 ! SYMBIONT NAME FOR QUEUE = DECLARE LONG CONSTANT SMO$K_WSXTANT = 89 ! WS EXTENT A DECLARE LONG CONSTANT SMO$K_NOWSXTNT = 90 ! NO WS EXTENT D DECLARE LONG CONSTANT SMO$K_NODISWAP = 91 ! ENABLE SWAPPING  ! OPTIONS FOR RESTART X DECLARE LONG CONSTANT SMO$K_NEXTJOB = 96 ! RESTART AT END BEGINNING OF NEXT JOB O DECLARE LONG CONSTANT SMO$K_TOPOFILE = 97 ! RESTART JOB AT TOP-OF-FILE N DECLARE LONG CONSTANT SMO$K_SPCCNT = 98 ! SPECIFY PAGES TO SPACE OVER  ! OPTIONS FOR ABORT E DECLARE LONG CONSTANT SMO$K_REQUEUE = 112 ! REQUEUE THE FILE R DECLARE LONG CONSTANT SMO$K_REQDEST = 113 ! SPECIFY NEW QUEUE DESTINATION P DECLARE LONG CONSTANT SMO$K_REQPRIO = 114 ! SPECIFY PRIORITY ON REQUEUE  wwc!%DEFINE SNAPEVTCODE WORD ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF  < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1  %END %IF > %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  " ! 1 ORIGIN and INCREMENTS of 1r DECLARE LONG CONSTANT SNAPEVT$_SNAPSHOT = 1 ! a system snapshot is pending in a non-VAXcluster environmentm DECLARE LONG CONSTANT SNAPEVT$_CLUPEND = 2 ! a system snapshot is pending in a VAXcluster environment DECLARE LONG CONSTANT SNAPEVT$_RESTART = 3 ! the system has just booted from a snapshot into a non-VAXcluster environment DECLARE LONG CONSTANT SNAPEVT$_CLU_RESTART = 4 ! the system has just booted from a snapshot into a VAXcluster environmenti DECLARE LONG CONSTANT SNAPEVT$_ABORT = 5 ! a fatal error occurred during the taking of a snapshot} DECLARE LONG CONSTANT SNAPEVT$_CLUEXIT = 6 ! the sys tem is resynchronizing after a loss of communications with the & ! remainder ! of the clusterP DECLARE LONG CONSTANT SNAPEVT$_ROLLOUT = 7 ! a system rollout is pendingV DECLARE LONG CONSTANT SNAPEVT$_ROLLIN = 8 ! a system rollin has been completed2 DECLARE LONG CONSTANT SNAPEVT$C_SNAPSHOT = 11 DECLARE LONG CONSTANT SNAPEVT$C_RESTART = 3/ DECLARE LONG CONSTANT SNAPEVT$C_ABORT = 55 DECLARE LONG CONSTANT SNAPEVT$S_SNAPEVTCODE = 2  wwvVj! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +, ! File access modes for open and create ! -= DECLARE LONG CONSTANT SSIO$M_O_RDONLY = 0 ! Read-only> DECLARE LONG CONSTANT SSIO$M_O_WRONLY = 1 ! Write-only@ DECLARE LONG CON STANT SSIO$M_O_RDWR = 2 ! Read and writeO DECLARE LONG CONSTANT SSIO$M_O_ACCMODE = 3 ! Mask for access mode field ! +< ! File status flags for open, create, and setfl (fcntl) ! -L DECLARE LONG CONSTANT SSIO$M_O_APPEND = 8 ! All writes append to EOF ! +# ! File open and create options ! -U DECLARE LONG CONSTANT SSIO$M_O_CREAT = 512 ! Create file if it does not existC DECLARE LONG CONSTANT SSIO$M_O_TRUNC = 1024 ! Truncate filen  DECLARE LONG CONSTANT SSIO$M_O_EXCL = 2048 ! If O_CREAT and O_EXCL both set, open fails if file existsh DECLARE LONG CONSTANT SSIO$M_O_NOCTTY = 4096 ! If TTY dev, not to be controlling TTY for process ! +" ! Positioning (lseek) options ! -P DECLARE LONG CONSTANT SSIO$C_SEEK_SET = 0 ! Set offset to value providedW DECLARE LONG CONSTANT SSIO$C_SEEK_CUR = 1 ! Offset relative to current positionR DECLARE LONG CONSTANT SSIO$C_SEEK_END = 2 ! Offset relative to current EOF ! +! ! Other miscellaneous values ! -j DECLARE LONG CONSTANT SSIO$C_SSIZE_MAX = 2147483647 ! Largest read/write size (in bytes) permitted ww  $XABCXFDEF  $XABCXRDEF  $XABDATDEF $XABDEF  $XABFHCDEF!  $XABITMDEF $XABJNLDEF  $XABKEYDEF  $XABPRODEF6 q! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  3 DECLARE LONG CONSTANT STENV$K_AUTO_ACTION = 10 DECLARE LONG CONSTANT STENV$K_BOOT_DEV = 23 DECLARE LONG CONSTANT STENV$K_BOOTDEF_DEV = 32 DECLARE LONG CONSTANT STENV$K_BOOTED_DEV = 41 DECLARE LONG CONSTANT STENV$K_BOOT_FILE = 53 DECLARE LONG CONSTANT STENV$K_BOOTED_FILE = 64 DECLARE LONG CONSTANT STENV$K_BOOT_OSFLAGS = 76 DECLARE LONG CONSTANT STENV$K_BOOTED_OSFLAGS = 82 DECLARE LONG CONSTANT STENV$K_BOOT_RESET = 91 DECLARE LONG CONSTANT STENV$K_DUMP_DEV = 105 DECLARE LONG CONSTANT STENV$K_ENABLE_AUDIT = 110 DECLARE LONG CONSTANT STENV$K_LICENSE = 121 DECLARE LONG CONSTANT STENV$K_CHAR_SET = 131 DECLARE LONG CONSTANT STENV$K_LANGUAGE = 140 DECLARE LONG CONSTANT STENV$K_TTY_DEV = 150 DECLARE LONG CONSTANT STENV$K_SYSROOT = 160 DECLARE LONG CONSTANT STENV$K_BTFLAGS = 172 DECLARE LONG CONSTANT STENV$K_FRU_EEROM = 184 DECLARE LONG CONSTANT STENVDEF$S_ItemType = 24 record ItemType" LONG STENVDEF$L_ITEM_CODE LONG STENVDEF$L_BUF_LEN+ BASIC$QUADWORD STENVDEF$Q_BUF_ADDR+ BASIC$QUADWORD STENVDEF$Q_RET_ADDR end record ItemType  ! E ! The following are operation codes for the FRU_EEROM item code. ! 5 DECLARE LONG CONSTANT STENVDEF$_K_FREE_FORM = 04 DECLARE LONG CONSTANT STENVDEF$_K_SDD_LOG = 25 ww3 " ! *** PREDECLARED TYPES I: %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )D END RECORDS* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )T END RECORDE* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF !< %IF %DECLARED x! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! @ ! MACROS TO DEFINE SYSTEM SERVICE FAILURE AND STATUS CODES. !  !  ! $STRUCT SS ! 5 ! THIS STRUCTURE IS NOW CONTAINED IN 'SSMSG.MDL' ! +6 ! Define 32-b it VAX-11 error code longword fieldsI ! Changed to agree with Handbook - TNH 26-OCT-77 - CHANGE M 1 to P 1F ! Changed to agree with new status value W. H. Brown 18-NOV-1977 ! -8 DECLARE LONG CONSTANT STS$M_SEVERITY = x'00000007'7 DECLARE LONG CONSTANT STS$M_COND_ID = x'0FFFFFF8'7 DECLARE LONG CONSTANT STS$M_CONTROL = x'F0000000'7 DECLARE LONG CONSTANT STS$M_SUCCESS = x'00000001'6 DECLARE LONG CONSTANT STS$M_MSG_NO = x'0000FFF8'4 DECLARE LONG CON STANT STS$M_CODE = x'00007FF8'6 DECLARE LONG CONSTANT STS$M_FAC_SP = x'00008000'8 DECLARE LONG CONSTANT STS$M_CUST_DEF = x'08000000'9 DECLARE LONG CONSTANT STS$M_INHIB_MSG = x'10000000'6 DECLARE LONG CONSTANT STS$M_FAC_NO = x'0FFF0000': DECLARE LONG CONSTANT STS$K_WARNING = 0 ! WARNING H DECLARE LONG CONSTANT STS$K_SUCCESS = 1 ! SUCCESSFUL COMPLETION 6 DECLARE LONG CONSTANT STS$K_ERROR = 2 ! ERROR ; DECLARE LONG CONSTANT STS$K_INFO = 3 ! INFORMA TION > DECLARE LONG CONSTANT STS$K_SEVERE = 4 ! SEVERE ERROR , DECLARE LONG CONSTANT STS$S_STSDEF = 4 record STSDEF variant case' group STS$R_STSDEF_BITS0$ ! severity code # ! condition id # ! control bits t LONG SEVERITY_bits ! COMMENT ADDED BY SDL - SEVERITY_bits contains bits SEVERITY through CONTROL+ end group STS$R_STSDEF_BITS0  case' group STS$R_STSDEF_BITS1 ! Success * ! skip severity field % ! Message number p WORD SUCCESS_bits ! COMMENT ADDED BY SDL - SUCCESS_bits contains bits SUCCESS through MSG_NO+ end group STS$R_STSDEF_BITS1 case' group STS$R_STSDEF_BITS2* ! Skip severity field  ! code - ! 1 if facility specific C ! 1 if sub-system is customer (or CSS) defined 9 ! 1 if message should not be printed , ! reserved control bits m LONG FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through FILL_4+ end group STS$R_STSDEF_BITS2 case' group STS$R_STSDEF_BITS30 ! Skip message nubmer field * ! Facility is 12 bits # ! Control bits m LONG FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through FILL_6+ end group STS$R_STSDEF_BITS3 ! + ! Define severity codes ! - end variant end record STSDEF  ww&! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +9 ! Get System Information Data Identifier Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item listJ ! (preceding the E NDlistname item) so that users will not have ! to relink. ! - ! DEFINE TABLE TYPES A DECLARE LONG CONSTANT SYI$C_EXETYPE = 1 ! Executive cells@ DECLARE LONG CONSTANT SYI$C_FLDTYPE = 2 ! Sub-field dataE DECLARE LONG CONSTANT SYI$C_RSDTYPE = 3 ! Reduced system data= ! The following item-codes are for executive data cells.; ! Processor registers are a special case of this type.; ! Some EXE-type cells have frequently used sub-fields,A  ! which have item-codes in the FLD section. (after this one)F DECLARE LONG CONSTANT SYI$_VERSION = 4096 ! VMS version numberB DECLARE LONG CONSTANT SYI$_SID = 4097 ! System ID registerV DECLARE LONG CONSTANT SYI$_PFCDEFAULT = 4098 ! Default page fault cluster size[ DECLARE LONG CONSTANT SYI$_PAGTBLPFC = 4099 ! Default page table page fault clusterW DECLARE LONG CONSTANT SYI$_SYSPFC = 4100 ! Page fault cluster for system pagingc DECLARE LONG CONSTANT SYI$_KFILSTCNT = 4101 ! (Obsolete, to be deleted in a future release)L DECLARE LONG CONSTANT SYI$_GBLSECTIONS = 4102 ! Global section countF DECLARE LONG CONSTANT SYI$_GBLPAGES = 4103 ! Global page countV DECLARE LONG CONSTANT SYI$_GBLPAGFIL = 4104 ! Global page page file page limitO DECLARE LONG CONSTANT SYI$_MAXPROCESSCNT = 4105 ! Maximum process countF DECLARE LONG CONSTANT SYI$_PIXSCAN = 4106 ! Process scan countM DECLARE LONG CONSTANT SYI$_PROCSECTCNT = 4107 ! Process section countM DECLARE LONG CONSTANT SYI$_MINWSCNT = 4108 ! Minimum working set sizeL DECLARE LONG CONSTANT SYI$_PAGFILCNT = 4109 ! Number of paging filesJ DECLARE LONG CONSTANT SYI$_SWPFILCNT = 4110 ! Number of swap filesM DECLARE LONG CONSTANT SYI$_SYSMWCNT = 4111 ! System working set countL DECLARE LONG CONSTANT SYI$_INTSTKPAGES = 4112 ! Interrupt stack size^ DECLARE LONG CONSTANT SYI$_DLCKEXTRASTK = 4113 ! Extra int stack for deadlock searchesG DECLARE LONG CONSTANT SYI$_BALSETCNT = 4114 ! Balance set countI DECLARE LONG CONSTANT SYI$_IRPCOUNT = 4115 ! Count of I/O packetsT DECLARE LONG CONSTANT SYI$_IRPCOUNTV = 4116 ! Limit of extension of IRP listQ DECLARE LONG CONSTANT SYI$_WSMAX = 4117 ! Max size of process working setK DECLARE LONG CONSTANT SYI$_NPAGEDYN = 4118 ! Non-paged dynamic poolP DECLARE LONG CONSTANT SYI$_NPAGEVIR = 4119 ! Limit of extension of aboveF  DECLARE LONG CONSTANT SYI$_PAGEDYN = 4120 ! Paged dynamic poolQ DECLARE LONG CONSTANT SYI$_VIRTUALPAGECNT = 4121 ! Max virtual page countJ DECLARE LONG CONSTANT SYI$_SPTREQ = 4122 ! Requested SPT extensionN DECLARE LONG CONSTANT SYI$_EXUSRSTK = 4123 ! Extra user stack providedT DECLARE LONG CONSTANT SYI$_LRPCOUNT = 4124 ! Number of large request packetsT DECLARE LONG CONSTANT SYI$_LRPCOUNTV = 4125 ! Limit of extension of LRP listP DECLARE LONG CONSTANT SYI$_LRPSIZE = 4126 ! Size of large request packetM DECLARE LONG CONSTANT SYI$_LRPMIN = 4127 ! Min alloc request for LRPsT DECLARE LONG CONSTANT SYI$_SRPCOUNT = 4128 ! Number of small request packetsT DECLARE LONG CONSTANT SYI$_SRPCOUNTV = 4129 ! Limit of extension of SRP listP DECLARE LONG CONSTANT SYI$_SRPSIZE = 4130 ! Size of small request packetM DECLARE LONG CONSTANT SYI$_SRPMIN = 4131 ! Min alloc request for SRPsW DECLARE LONG CONSTANT SYI$_CHANNELCNT = 4132 ! Number of permanent I/O channelsF DECLARE LONG CONSTANT SYI$_PIOPAGES = 4133 ! Process I/O pagesP DECLARE LONG CONSTANT SYI$_CTLPAGES = 4134 ! Control region impure pagesW DECLARE LONG CONSTANT SYI$_CTLIMGLIM = 4135 ! Limit on use of proc alloc regionT DECLARE LONG CONSTANT SYI$_IMGIOCNT = 4136 ! Default image I/O address spaceC DECLARE LONG CONSTANT SYI$_QUANTUM = 4137 ! Process quantumT DECLARE LONG CONSTANT SYI$_MPW_WRTCLUSTER = 4138 ! Page write cluster factorU DECLARE LONG CONSTANT SYI$_MPW_HILIMIT = 4139 ! Modified page list high limitT DECLARE LONG CONSTANT SYI$_MPW_LOLIMIT = 4140 ! Modified page list low limitV DECLARE LONG CONSTANT SYI$_MPW_PRIO = 4141 ! Modified page writer I/O priorityI DECLARE LONG CONSTANT SYI$_SWP_PRIO = 4142 ! Swapper I/O priority[ DECLARE LONG CONSTANT SYI$_MPW_THRESH = 4143 ! Modified page writer lower threshold^ DECLARE LONG CONSTANT SYI$_MPW_WAITLIMIT = 4144 ! Modified page writer busy wait limitW DECLARE LONG CONSTANT SYI$_TBSKIPWSL = 4145 ! Max number WSlist entries to skipN DECLARE LONG CONSTANT SYI$_PHYSICALPAGES = 4146 ! Memory size in pagesR DECLARE LONG CONSTANT SYI$_PFRATL = 4147 ! Page fault rate lower thresholdQ DECLARE LONG CONSTANT SYI$_PFRATH = 4148 ! Page fault rate high thresholdY DECLARE LONG CONSTANT SYI$_PFRATL_SYS = 4149 ! PFRATL for the system working setG DECLARE LONG CONSTANT SYI$_WSINC = 4150 ! Working set incrementG DECLARE LONG CONSTANT SYI$_WSDEC = 4151 ! Working set decrementF DECLARE LONG CONSTANT SYI$_AWSMIN = 4152 ! Working set minimumT DECLARE LONG CONSTANT SYI$_AWSTIME = 4153 ! Working set measurement intervalK DECLARE LONG CONSTANT SYI$_SWPRATE = 4154 ! Swap rate control (max)\ DECLARE LONG CONSTANT SYI$_SWPOUTPGCNT = 4155 ! Desired proc page cnt for an outswap\ DECLARE LONG CONSTANT SYI$_SWPALLOCINC = 4156 ! Swap file allocation increment valueC DECLARE LONG CONSTANT SYI$_IOTA = 4157 ! I/O time allowanceZ DECLARE LONG CONSTANT SYI$_LONGWAIT = 4158 ! When HIB or LEF proc becomes longwaitC DECLARE LONG CONSTANT SYI$_SWPFAIL = 4159 ! Swap fail countW DECLARE LONG CONSTANT SYI$_VMSD1 = 4160 ! Reserved to VMS development (DYNAMIC)3 DECLARE LONG CONSTANT SYI$_VMSD2 = 4161 ! "3 DECLARE LONG CONSTANT SYI$_VMSD3 = 4162 ! "3 DECLARE LONG CONSTANT SY I$_VMSD4 = 4163 ! "U DECLARE LONG CONSTANT SYI$_VMS5 = 4164 ! Reserved to VMS development (STATIC)2 DECLARE LONG CONSTANT SYI$_VMS6 = 4165 ! "2 DECLARE LONG CONSTANT SYI$_VMS7 = 4166 ! "2 DECLARE LONG CONSTANT SYI$_VMS8 = 4167 ! "O DECLARE LONG CONSTANT SYI$_USERD1 = 4168 ! Reserved for users (DYNAMIC)4 DECLARE LONG CONSTANT SYI$_USERD2 = 4169 ! "M DECLARE LONG CONSTANT SYI$_USER3 = 4170 ! Reserved for users (STATIC)3 DECLARE LONG CON STANT SYI$_USER4 = 4171 ! "Y DECLARE LONG CONSTANT SYI$_EXTRACPU = 4172 ! Extra CPU time allowed on expirationU DECLARE LONG CONSTANT SYI$_MAXSYSGROUP = 4173 ! Max group code for system UICT DECLARE LONG CONSTANT SYI$_MVTIMEOUT = 4174 ! Timeout for mount verificationV DECLARE LONG CONSTANT SYI$_MAXBUF = 4175 ! Maximum allowable buffered I/O size^ DECLARE LONG CONSTANT SYI$_DEFMBXBUFQUO = 4176 ! Def buffer quota for mailbox creation] DECLARE LONG CONST!ANT SYI$_DEFMBXMXMSG = 4177 ! Def max msg size for mailbox creationU DECLARE LONG CONSTANT SYI$_DEFMBXNUMMSG = 4178 ! Def number of messages for "L DECLARE LONG CONSTANT SYI$_FREELIM = 4179 ! Desired free list lengthL DECLARE LONG CONSTANT SYI$_FREEGOAL = 4180 ! Target free list lengthY DECLARE LONG CONSTANT SYI$_GROWLIM = 4181 ! Free > growlim to grow proc > wsquotaF DECLARE LONG CONSTANT SYI$_BORROWLIM = 4182 ! Same as above???P DECLARE LONG CONSTAN"T SYI$_LOCKRETRY = 4183 ! Multi-CPU lock retry countH DECLARE LONG CONSTANT SYI$_XFMAXRATE = 4184 ! Max DR32 data rateV DECLARE LONG CONSTANT SYI$_LAMAPREGS = 4185 ! Number of UBA map regs for LPA11] DECLARE LONG CONSTANT SYI$_REALTIME_SPTS = 4186 ! SPT entries for CONINTERR processesZ DECLARE LONG CONSTANT SYI$_CLISYMTBL = 4187 ! Number of pages for CLI symbol tableK DECLARE LONG CONSTANT SYI$_LOCKIDTBL = 4188 ! Size of lock ID tableR DECLARE LONG CON#STANT SYI$_RESHASHTBL = 4189 ! Size of resource hash table[ DECLARE LONG CONSTANT SYI$_DEADLOCK_WAIT = 4190 ! Deadlock detection timeout periodZ DECLARE LONG CONSTANT SYI$_SCSBUFFCNT = 4191 ! SCS buffer descriptor table entries[ DECLARE LONG CONSTANT SYI$_SCSCONNCNT = 4192 ! SCS connect descriptor table entries\ DECLARE LONG CONSTANT SYI$_SCSRESPCNT = 4193 ! SCS response descriptor table entriesN DECLARE LONG CONSTANT SYI$_SCSMAXDG = 4194 ! SCS maximum datag$ram sizeT DECLARE LONG CONSTANT SYI$_SCSMAXMSG = 4195 ! SCS max sequenced message sizeP DECLARE LONG CONSTANT SYI$_SCSFLOWCUSH = 4196 ! SCS flow control cushionO DECLARE LONG CONSTANT SYI$_SCSSYSTEMID = 4197 ! SCS system ID (48 bits)K DECLARE LONG CONSTANT SYI$_SCSSYSTEMIDH = 4198 ! High bits of aboveH DECLARE LONG CONSTANT SYI$_SCSNODE = 4199 ! SCS system node nameW DECLARE LONG CONSTANT SYI$_PRCPOLINTERVAL = 4201 ! SCA process polling intervalQ % DECLARE LONG CONSTANT SYI$_PASTIMOUT = 4202 ! CI port START/STACK timeout\ DECLARE LONG CONSTANT SYI$_PASTDGBUF = 4203 ! CI port DG buffers for START handshakeP DECLARE LONG CONSTANT SYI$_PANUMPOLL = 4204 ! Number of CI ports to pollU DECLARE LONG CONSTANT SYI$_PAPOLLINTERVAL = 4205 ! Time between CI port pollsY DECLARE LONG CONSTANT SYI$_PAPOOLINTERVAL = 4206 ! Time between SYSAPs pool check] DECLARE LONG CONSTANT SYI$_TIMEPROMPTWAIT = 4207 ! Time prompt& timeout (when booting)\ DECLARE LONG CONSTANT SYI$_UDABURSTRATE = 4208 ! Max number of longwords per NPR - 1` DECLARE LONG CONSTANT SYI$_LNMSHASHTBL = 4209 ! Size of system space log name hash tableO DECLARE LONG CONSTANT SYI$_LNMPHASHTBL = 4210 ! Size of process space "Z DECLARE LONG CONSTANT SYI$_TTY_SCANDELTA = 4211 ! Delta time for dialup timer scanN DECLARE LONG CONSTANT SYI$_TTY_DIALTYPE = 4212 ! Flags for dialup typeM DECLARE LONG CONSTANT SYI$_T'TY_SPEED = 4213 ! Terminal default: speedH DECLARE LONG CONSTANT SYI$_TTY_RSPEED = 4214 ! " " receive speedA DECLARE LONG CONSTANT SYI$_TTY_PARITY = 4215 ! " " parityB DECLARE LONG CONSTANT SYI$_TTY_BUF = 4216 ! " " line widthK DECLARE LONG CONSTANT SYI$_TTY_DEFCHAR = 4217 ! " " characteristicsZ DECLARE LONG CONSTANT SYI$_TTY_DEFCHAR2 = 4218 ! " " characteristics, 2nd longwordQ DECLARE LONG CONSTANT SYI$_TTY_TYPAHDSZ = 4219 ! Size of typeahead buffe(rQ DECLARE LONG CONSTANT SYI$_TTY_ALTYPAHD = 4220 ! Alternate typeahead sizeQ DECLARE LONG CONSTANT SYI$_TTY_ALTALARM = 4221 ! Alt typeahead alarm size@ DECLARE LONG CONSTANT SYI$_TTY_DMASIZE = 4222 ! Dma sizeV DECLARE LONG CONSTANT SYI$_TTY_PROT = 4223 ! Default terminal alloc protectionL DECLARE LONG CONSTANT SYI$_TTY_OWNER = 4224 ! Default terminal owner\ DECLARE LONG CONSTANT SYI$_TTY_CLASSNAME = 4225 ! Default terminal class name prefixW DE)CLARE LONG CONSTANT SYI$_TTY_SILOTIME = 4226 ! Default silo timeout for DMF32U DECLARE LONG CONSTANT SYI$_TTY_DEFPORT = 4227 ! DEFAULT PORT ACTION PARAMETERT DECLARE LONG CONSTANT SYI$_RMS_DFMBC = 4228 ! RMS default: multi-block count^ DECLARE LONG CONSTANT SYI$_RMS_DFMBFSDK = 4229 ! " " multi-buffer count for disk (SEQ)X DECLARE LONG CONSTANT SYI$_RMS_DFMBFSMT = 4230 ! " " multi-buffer count for tape_ DECLARE LONG CONSTANT SYI$_RMS_DFMBFSUR = 4231 ! " " mul*ti-buffer count for unit record] DECLARE LONG CONSTANT SYI$_RMS_DFMBFREL = 4232 ! " " multi-buffer count for REL files^ DECLARE LONG CONSTANT SYI$_RMS_DFMBFIDX = 4233 ! " " multi-buffer count for ISAM files[ DECLARE LONG CONSTANT SYI$_RMS_CONPOLICY = 4234 ! " " Default RMS Contention PolicyC DECLARE LONG CONSTANT SYI$_RMS_PROLOGUE = 4235 ! " " prologT DECLARE LONG CONSTANT SYI$_RMS_EXTEND_SIZE = 4236 ! " " file extend quantityL DECLARE LONG CONSTANT SY+I$_RMS_FILEPROT = 4237 ! " " file protectionD DECLARE LONG CONSTANT SYI$_PQL_DASTLM = 4238 ! Def AST limit< DECLARE LONG CONSTANT SYI$_PQL_MASTLM = 4239 ! Min "M DECLARE LONG CONSTANT SYI$_PQL_DBIOLM = 4240 ! Def buffered I/O limit< DECLARE LONG CONSTANT SYI$_PQL_MBIOLM = 4241 ! Min "X DECLARE LONG CONSTANT SYI$_PQL_DBYTLM = 4242 ! Def buffered I/O byte count limit< DECLARE LONG CONSTANT SYI$_PQL_MBYTLM = 4243 ! Min "I DECLARE LONG CONSTANT SYI$,_PQL_DCPULM = 4244 ! Def CPU time limit< DECLARE LONG CONSTANT SYI$_PQL_MCPULM = 4245 ! Min "K DECLARE LONG CONSTANT SYI$_PQL_DDIOLM = 4246 ! Def direct I/O limit< DECLARE LONG CONSTANT SYI$_PQL_MDIOLM = 4247 ! Min "J DECLARE LONG CONSTANT SYI$_PQL_DFILLM = 4248 ! Def open file limit< DECLARE LONG CONSTANT SYI$_PQL_MFILLM = 4249 ! Min "P DECLARE LONG CONSTANT SYI$_PQL_DPGFLQUOTA = 4250 ! Def paging file quota@ DECLARE LONG CONSTANT SYI$_PQL_MPG-FLQUOTA = 4251 ! Min "L DECLARE LONG CONSTANT SYI$_PQL_DPRCLM = 4252 ! Def sub-process limit< DECLARE LONG CONSTANT SYI$_PQL_MPRCLM = 4253 ! Min "R DECLARE LONG CONSTANT SYI$_PQL_DTQELM = 4254 ! Def timer queue entry limit< DECLARE LONG CONSTANT SYI$_PQL_MTQELM = 4255 ! Min "W DECLARE LONG CONSTANT SYI$_PQL_DWSDEFAULT = 4256 ! Def working set default size@ DECLARE LONG CONSTANT SYI$_PQL_MWSDEFAULT = 4257 ! Min "N DECLARE LONG CONSTANT SYI$_PQL_D.WSQUOTA = 4258 ! Def working set quota> DECLARE LONG CONSTANT SYI$_PQL_MWSQUOTA = 4259 ! Min "P DECLARE LONG CONSTANT SYI$_PQL_DWSEXTENT = 4260 ! Def working set extent? DECLARE LONG CONSTANT SYI$_PQL_MWSEXTENT = 4261 ! Min "H DECLARE LONG CONSTANT SYI$_PQL_DENQLM = 4262 ! Def enqueue limit< DECLARE LONG CONSTANT SYI$_PQL_MENQLM = 4263 ! Min "Y DECLARE LONG CONSTANT SYI$_ACP_MAPCACHE = 4264 ! Number of blocks in bitmap cache^ DECLARE LONG CONST/ANT SYI$_ACP_HDRCACHE = 4265 ! Number of blocks in file header cache\ DECLARE LONG CONSTANT SYI$_ACP_DIRCACHE = 4266 ! Number of blocks in directory cacheG DECLARE LONG CONSTANT SYI$_ACP_WORKSET = 4267 ! ACP working setZ DECLARE LONG CONSTANT SYI$_ACP_FIDCACHE = 4268 ! Number of cached index file slotsV DECLARE LONG CONSTANT SYI$_ACP_EXTCACHE = 4269 ! Number of cached disk extentsV DECLARE LONG CONSTANT SYI$_ACP_EXTLIMIT = 4270 ! Max fraction of disk to cache0^ DECLARE LONG CONSTANT SYI$_ACP_QUOCACHE = 4271 ! Number of file quota entries to cacheX DECLARE LONG CONSTANT SYI$_ACP_SYSACC = 4272 ! Default access for system volumesY DECLARE LONG CONSTANT SYI$_ACP_MAXREAD = 4273 ! Max number of direct blks to read] DECLARE LONG CONSTANT SYI$_ACP_WINDOW = 4274 ! Default window size for system volumesY DECLARE LONG CONSTANT SYI$_ACP_WRITEBACK = 4275 ! Deferred cache writeback enableT DECLARE LONG CONSTANT SYI$_ACP_D1ATACHECK = 4276 ! ACP datacheck enable flagsJ DECLARE LONG CONSTANT SYI$_ACP_BASEPRIO = 4277 ! ACP base priorityG DECLARE LONG CONSTANT SYI$_ACP_SWAPFLGS = 4278 ! ACP swap flagsW DECLARE LONG CONSTANT SYI$_DEFPRI = 4279 ! Default priority for Job InitiationsN DECLARE LONG CONSTANT SYI$_IJOBLIM = 4280 ! Limit for interactive jobsH DECLARE LONG CONSTANT SYI$_BJOBLIM = 4281 ! Limit for batch jobsJ DECLARE LONG CONSTANT SYI$_NJOBLIM = 4282 ! Limit for ne2twork jobsR DECLARE LONG CONSTANT SYI$_RJOBLIM = 4283 ! Limit for remote terminal jobsT DECLARE LONG CONSTANT SYI$_QUORUM = 4284 ! Connection manager cluster QUORUM[ DECLARE LONG CONSTANT SYI$_VOTES = 4285 ! Connection manager VOTES from this system_ DECLARE LONG CONSTANT SYI$_RECNXINTERVAL = 4286 ! Connection manager reconnect interval[ DECLARE LONG CONSTANT SYI$_BOOTTIME = 4287 ! 64-bit abs. system time at system bootX DECLARE LONG CONSTANT SYI$_LOCKI3DTBL_MAX = 4288 ! Maximum size of lock ID table.M DECLARE LONG CONSTANT SYI$_TAILORED = 4289 ! Is this system tailored?Y DECLARE LONG CONSTANT SYI$_STARTUP_P1 = 4290 ! Parameters for passing informationS DECLARE LONG CONSTANT SYI$_STARTUP_P2 = 4291 ! to system startup procedure.2 DECLARE LONG CONSTANT SYI$_STARTUP_P3 = 42922 DECLARE LONG CONSTANT SYI$_STARTUP_P4 = 42932 DECLARE LONG CONSTANT SYI$_STARTUP_P5 = 42942 DECLARE LONG CONSTANT SYI$_STARTUP4_P6 = 42952 DECLARE LONG CONSTANT SYI$_STARTUP_P7 = 42962 DECLARE LONG CONSTANT SYI$_STARTUP_P8 = 4297Z DECLARE LONG CONSTANT SYI$_CLUSTER_NODES = 4298 ! total number of nodes in clusterU DECLARE LONG CONSTANT SYI$_CLUSTER_VOTES = 4299 ! " " " votes " "S DECLARE LONG CONSTANT SYI$_CLUSTER_QUORUM = 4300 ! " quorum in clusterL DECLARE LONG CONSTANT SYI$_CLUSTER_FSYSID = 4301 ! founding systemidK DECLARE LONG CONSTANT SYI$_CLUSTER_FTIME5 = 4302 ! founding boottimeT DECLARE LONG CONSTANT SYI$_CLUSTER_MEMBER = 4303 ! true if in a live clusterV DECLARE LONG CONSTANT SYI$_NODE_CSID = 4304 ! cluster system id of target nodeK DECLARE LONG CONSTANT SYI$_NODE_VOTES = 4305 ! votes of target nodeJ DECLARE LONG CONSTANT SYI$_NODE_QUORUM = 4306 ! quorum of " "L DECLARE LONG CONSTANT SYI$_NODE_SYSTEMID = 4307 ! systemid of " "T DECLARE LONG CONSTANT SYI$_NODE_SWINCARN = 4308 ! S/W incarn6ation of " "L DECLARE LONG CONSTANT SYI$_NODE_SWTYPE = 4309 ! S/W type of " "L DECLARE LONG CONSTANT SYI$_NODE_SWVERS = 4310 ! S/W version of " "L DECLARE LONG CONSTANT SYI$_NODE_HWTYPE = 4311 ! H/W type of " "L DECLARE LONG CONSTANT SYI$_NODE_HWVERS = 4312 ! H/W version of " "K DECLARE LONG CONSTANT SYI$_NODENAME = 4313 ! SCS nodename of " "L DECLARE LONG CONSTANT SYI$_ARCHFLAG = 4314 ! Flags used by uVAX codeW DECLARE LONG C7ONSTANT SYI$_SCS_EXISTS = 4315 ! Flag to indicate presence of SCS] DECLARE LONG CONSTANT SYI$_DISK_QUORUM = 4316 ! Cluster quorum device name (in ASCII)X DECLARE LONG CONSTANT SYI$_XSID = 4317 ! Extended System Identification RegisterI DECLARE LONG CONSTANT SYI$_PAMAXPORT = 4320 ! Max PA port to pollZ DECLARE LONG CONSTANT SYI$_PASANITY = 4321 ! PA sanity timer enable/disable switchJ DECLARE LONG CONSTANT SYI$_DEFQUEPRI = 4322 ! Default Que PriorityF 8DECLARE LONG CONSTANT SYI$_MAXQUEPRI = 4323 ! Max Que PriorityM DECLARE LONG CONSTANT SYI$_QDSKINTERVAL = 4324 ! Disk Quorum IntervalF DECLARE LONG CONSTANT SYI$_ALLOCLASS = 4325 ! Allocation classK DECLARE LONG CONSTANT SYI$_LGI_RETRY_LIM = 4326 ! Login retry limitM DECLARE LONG CONSTANT SYI$_LGI_RETRY_TMO = 4327 ! Login retry timeoutK DECLARE LONG CONSTANT SYI$_LGI_BRK_LIM = 4328 ! Login failure limitM DECLARE LONG CONSTANT SYI$_LGI_BRK_TMO = 4329 9 ! Login suspect timeoutQ DECLARE LONG CONSTANT SYI$_LGI_HID_TIM = 4330 ! Login evasive action timeV DECLARE LONG CONSTANT SYI$_LGI_PWD_TMO = 4331 ! System password drop dead timek DECLARE LONG CONSTANT SYI$_PQL_DJTQUOTA = 4332 ! Default Job-wide Logical Name Table Creation Quotak DECLARE LONG CONSTANT SYI$_PQL_MJTQUOTA = 4333 ! Minimum Job-wide Logical Name Table Creation QuotaO DECLARE LONG CONSTANT SYI$_VAXCLUSTER = 4334 ! VAXcluster participationZ : DECLARE LONG CONSTANT SYI$_LOCKDIRWT = 4335 ! Lock manager directory system weightO DECLARE LONG CONSTANT SYI$_QDSKVOTES = 4336 ! Votes held by quorum disk] DECLARE LONG CONSTANT SYI$_DORMANTWAIT = 4337 ! When low pri COM proc becomes dormantN DECLARE LONG CONSTANT SYI$_PAGEFILE_PAGE = 4338 ! Total pagefile pagesN DECLARE LONG CONSTANT SYI$_SWAPFILE_PAGE = 4339 ! Total swapfile pagesM DECLARE LONG CONSTANT SYI$_PAGEFILE_FREE = 4340 ! Free pagefile pagesM; DECLARE LONG CONSTANT SYI$_SWAPFILE_FREE = 4341 ! Free swapfile pages\ DECLARE LONG CONSTANT SYI$_TTY_TIMEOUT = 4342 ! Seconds for virtual terminal timeoutW DECLARE LONG CONSTANT SYI$_TTY_AUTOCHAR = 4343 ! autobaud recognition characterS DECLARE LONG CONSTANT SYI$_PANOPOLL = 4344 ! Disable/enable CI port pollingN DECLARE LONG CONSTANT SYI$_PE1 = 4345 ! Reserved TO PEDRIVER (DYNAMIC)1 DECLARE LONG CONSTANT SYI$_PE2 = 4346 ! "1 DECLARE LONG CONST<ANT SYI$_PE3 = 4347 ! "1 DECLARE LONG CONSTANT SYI$_PE4 = 4348 ! "M DECLARE LONG CONSTANT SYI$_PE5 = 4349 ! Reserved TO PEDRIVER (STATIC)1 DECLARE LONG CONSTANT SYI$_PE6 = 4350 ! "Q DECLARE LONG CONSTANT SYI$_RMS_GBLBUFQUO = 4351 ! RMS global buffer quotaM DECLARE LONG CONSTANT SYI$_RMS_DFNBC = 4352 ! " " network block countc DECLARE LONG CONSTANT SYI$_ACP_DINDXCACHE = 4353 ! File system directory index cache blocksl DECLARE LONG CONSTANT =SYI$_MAXATTACHPRI = 4354 ! Maximum scheduling prio for ASMP attached processorY DECLARE LONG CONSTANT SYI$_SMP_CPUS = 4355 ! Number of CPUs to boot in SMP system] DECLARE LONG CONSTANT SYI$_SMP_CPUSH = 4356 ! Hi Number of CPUs to boot in SMP systemO DECLARE LONG CONSTANT SYI$_FALLBACK_MODE = 4357 ! Cluster fallback modef DECLARE LONG CONSTANT SYI$_MPW_LOWAITLIMIT = 4358 ! Modified page writer lower busy wait limite DECLARE LONG CONSTANT SYI$_MPW_IOLIMIT = 435>9 ! Modified page writer max concurrent I/O countO DECLARE LONG CONSTANT SYI$_S0_PAGING = 4360 ! System space paging flags[ DECLARE LONG CONSTANT SYI$_HW_MODEL = 4361 ! System model number (from SB$B_HWVERS)^ DECLARE LONG CONSTANT SYI$_HW_NAME = 4362 ! System model name from #/name trans. table` DECLARE LONG CONSTANT SYI$_SCH_CTLFLAGS = 4363 ! CPU scheduling control flags (obsolete)U DECLARE LONG CONSTANT SYI$_NODE_EVOTES = 4364 ! Votes expected by target n?ode^ DECLARE LONG CONSTANT SYI$_CLUSTER_EVOTES = 4365 ! Number of expected votes in clusterX DECLARE LONG CONSTANT SYI$_MULTIPROCESSING = 4366 ! Multiprocessor participationR DECLARE LONG CONSTANT SYI$_FREE_GBLPAGES = 4367 ! Total, free global pagesa DECLARE LONG CONSTANT SYI$_CONTIG_GBLPAGES = 4368 ! Maximum, contiguous free global pagesU DECLARE LONG CONSTANT SYI$_FREE_GBLSECTS = 4369 ! Total, free global sectionsI DECLARE LONG CONSTANT SYI$_EXPECTED_@VOTES = 4370 ! Expected votesS DECLARE LONG CONSTANT SYI$_PU_OPTIONS = 4371 ! Select PUDRIVER load optionsW DECLARE LONG CONSTANT SYI$_WPTTE_SIZE = 4372 ! # Watchpoint Trace Table EntriesT DECLARE LONG CONSTANT SYI$_WPRE_SIZE = 4373 ! Watchpoint Restore Entry size [ DECLARE LONG CONSTANT SYI$_SMP_SANITY_CNT = 4374 ! # SMP Sanity events bef. timeoutc DECLARE LONG CONSTANT SYI$_SMP_TICK_CNT = 4375 ! Clock ticks between SMP sanity time cyclesf DECLARE ALONG CONSTANT SYI$_QBUS_MULT_INTR = 4376 ! uVAX/QBUS multi-level interrupt enable flagT DECLARE LONG CONSTANT SYI$_SYSTEM_RIGHTS = 4377 ! System rights list segmentT DECLARE LONG CONSTANT SYI$_SMP_SPINWAIT = 4378 ! SMP normal busywait timeoutU DECLARE LONG CONSTANT SYI$_SMP_LNGSPINWAIT = 4379 ! SMP LONG busywait timeoutW DECLARE LONG CONSTANT SYI$_TIME_CONTROL = 4380 ! Time-related control functionsW DECLARE LONG CONSTANT SYI$_AVAILCPU_CNT = 4381 ! Number ofB CPUs in this machineW DECLARE LONG CONSTANT SYI$_ACTIVECPU_CNT = 4382 ! Number of CPUs up and runningS DECLARE LONG CONSTANT SYI$_MSCP_LOAD = 4386 ! Load MSCP server at boot timeJ DECLARE LONG CONSTANT SYI$_MSCP_SERVE_ALL = 4387 ! Serve all disksU DECLARE LONG CONSTANT SYI$_POOLCHECK = 4388 ! Pool debugging in MEMORYALC.MARU DECLARE LONG CONSTANT SYI$_TAPE_MVTIMEOUT = 4389 ! Magtape mount verificationX DECLARE LONG CONSTANT SYI$_PSEUDOLOA = 4390 ! CPseudoloa image size for tape boot[ DECLARE LONG CONSTANT SYI$_MINCLASSPRI = 4391 ! Min. priority for class scheduling [ DECLARE LONG CONSTANT SYI$_MAXCLASSPRI = 4392 ! Max. priority for class scheduling d DECLARE LONG CONSTANT SYI$_MINPRPRI = 4393 ! Min. priority for preemptive-resume scheduling r DECLARE LONG CONSTANT SYI$_AUTOCONFIG_ALGO = 4394 ! Selects which algorithmn SYSGEN uses to autoconfigure._ DECLARE LONG CONSTANT SYI$_ERRORLOGBUFFERS = 4395 ! NumbDer of buffers for error logging DECLARE LONG CONSTANT SYI$_JOBCTLD = 4396 ! Dynamic SYSGEN flag to handle job controller diagnostics and Rolling upgrade.b DECLARE LONG CONSTANT SYI$_WINDOW_SYSTEM = 4397 ! Default windowing system for workstation\ DECLARE LONG CONSTANT SYI$_MSCP_BUFFER = 4398 ! Pages allocated to server local poolb DECLARE LONG CONSTANT SYI$_MSCP_CREDITS = 4399 ! Number of send credits extended by serveri DECLARE LONG CONSTANT SYI$_BREAKPOINTS =E 4400 ! Mask of INI$BRK callers in exec used in this bootr DECLARE LONG CONSTANT SYI$_CLOCK_INTERVAL = 4401 ! Time (in usec) between interval timer clock interrupts| DECLARE LONG CONSTANT SYI$_DUMPSTYLE = 4402 ! Mask specifying desired format of dump file (full dump or subset dump)N DECLARE LONG CONSTANT SYI$_NISCS_PORT_SERV = 4403 ! Port services flagV DECLARE LONG CONSTANT SYI$_RSRVPAGCNT = 4404 ! No. of pagefile pages to escrowN DECLARE LONG CONSTANT SYI$_VFECTOR_PROC = 4405 ! Load vector processingG DECLARE LONG CONSTANT SYI$_VECTOR_MARGIN = 4406 ! Vector marginM DECLARE LONG CONSTANT SYI$_AFFINITY_SKIP = 4407 ! Affinity skip countM DECLARE LONG CONSTANT SYI$_AFFINITY_TIME = 4408 ! Affinity queue timeX DECLARE LONG CONSTANT SYI$_VECTOR_EMULATOR = 4409 ! Vector emulator present flagM DECLARE LONG CONSTANT SYI$_VP_MASK = 4410 ! Mask of vector processorsQ DECLARE LONG CONSTANT SYI$_VP_NUMBER = 4411 ! NuGmber of vector processors_ DECLARE LONG CONSTANT SYI$_USED_GBLPAGCNT = 4412 ! Current count of global pages in use_ DECLARE LONG CONSTANT SYI$_USED_GBLPAGMAX = 4413 ! Maximum count of global pages in usec DECLARE LONG CONSTANT SYI$_USED_GBLSECTCNT = 4414 ! Current count of global sections in usec DECLARE LONG CONSTANT SYI$_USED_GBLSECTMAX = 4415 ! Maximum count of global sections in useS DECLARE LONG CONSTANT SYI$_ERLBUFFERPAGES = 4416 ! Pages in each ERL BHufferP DECLARE LONG CONSTANT SYI$_TAPE_ALLOCLASS = 4417 ! Tape Allocation classY DECLARE LONG CONSTANT SYI$_PFRATH_SYS = 4418 ! PFRATH for the system working setX DECLARE LONG CONSTANT SYI$_WSINC_SYS = 4419 ! WSINC for the system working setX DECLARE LONG CONSTANT SYI$_WSDEC_SYS = 4420 ! WSDEC for the system working setY DECLARE LONG CONSTANT SYI$_AWSMIN_SYS = 4421 ! AWSMIN for the system working setZ DECLARE LONG CONSTANT SYI$_AWSTIME_SYS = 4422 I ! AWSTIME for the system working setA DECLARE LONG CONSTANT SYI$_BOOT_STYLE = 4423 ! Boot StyleP DECLARE LONG CONSTANT SYI$_FT_FLAGS = 4424 ! Fault Tolerance Flags fieldD DECLARE LONG CONSTANT SYI$_SHADOWING = 4425 ! Shadowing modeW DECLARE LONG CONSTANT SYI$_SHADOW_SYS_DISK = 4426 ! Volume shadowed system disk\ DECLARE LONG CONSTANT SYI$_SHADOW_SYS_UNIT = 4427 ! Shadowed system disk unit number[ DECLARE LONG CONSTANT SYI$_SHADOW_MAX_COPY = 4428 ! MaJx shadow copy threads allowedO DECLARE LONG CONSTANT SYI$_TIMVCFAIL = 4429 ! Time to detect VC failureW DECLARE LONG CONSTANT SYI$_PRIORITY_OFFSET = 4431 ! Priority gap for preemptionL DECLARE LONG CONSTANT SYI$_VCC_FLAGS = 4432 ! VBN static cache flagsM DECLARE LONG CONSTANT SYI$_VCC_MAXSIZE = 4437 ! Max size of VBN cacheZ DECLARE LONG CONSTANT SYI$_MMG_CTLFLAGS = 4441 ! Bit mask to control A/T mem mgmt.s DECLARE LONG CONSTANT SYI$_NISCS_MAX_PKTSZ = 4K443 ! Maximum number of bytes allocated for all NISCS packetsu DECLARE LONG CONSTANT SYI$_NISCS_LAN_OVRHD = 4444 ! Bytes in NISCS packets reserved for other uses (eg DESNC)V DECLARE LONG CONSTANT SYI$_DECNET_VERSION = 4445 ! Version of DECnet installedZ DECLARE LONG CONSTANT SYI$_TMSCP_LOAD = 4446 ! Load TMSCP tape server at boot timea DECLARE LONG CONSTANT SYI$_LGI_CALLOUTS = 4447 ! Number of LOGINOUT local policy calloutse DECLARE LONG CONSTANT SYI$_NET_CALLLOUTS = 4448 ! Number of DECNET Login local policy calloutsg DECLARE LONG CONSTANT SYI$_IEEE_ADDRESS = 4449 ! 48 bit IEEE unique address - low order 32 bitsi DECLARE LONG CONSTANT SYI$_IEEE_ADDRESSH = 4450 ! 48 bit IEEE unique address - high order 16 bitsb DECLARE LONG CONSTANT SYI$_SHADOW_MBR_TMO = 4451 ! Timeout interval for HBS shadow membersO DECLARE LONG CONSTANT SYI$_PAGE_SIZE = 4452 ! Memory page size in bytesG DECLARE LONG CONSTANT SYI$_ARCH_TYPE = 4M453 ! Architecture typeG DECLARE LONG CONSTANT SYI$_ARCH_NAME = 4454 ! Architecture nameQ DECLARE LONG CONSTANT SYI$_CRD_CONTROL = 4455 ! CRD scrub/replace controlY DECLARE LONG CONSTANT SYI$_SECURITY_POLICY = 4456 ! C2/B1 security policy bitmaskF DECLARE LONG CONSTANT SYI$_DNVOSI1 = 4457 ! DECnet/OSI for VMSO DECLARE LONG CONSTANT SYI$_MEMSIZE = 4459 ! System memory size in pagesM DECLARE LONG CONSTANT SYI$_KSTACKPAGES = 4460 ! Pages in Kernel StNackY DECLARE LONG CONSTANT SYI$_PHYSICAL_MEMORY = 4461 ! Max of physical memory to useY DECLARE LONG CONSTANT SYI$_XQP_ALLOC_BLKS = 4462 ! Flag - can XQP allocate blocksO DECLARE LONG CONSTANT SYI$_ZERO_LIST_HI = 4463 ! Zeroed list high limitV DECLARE LONG CONSTANT SYI$_CPUTYPE = 4464 ! CPU type of Primary CPU from HWRPBJ DECLARE LONG CONSTANT SYI$_SYSTYPE = 4465 ! System type from HWRPB[ DECLARE LONG CONSTANT SYI$_ITB_ENTRIES = 4466 ! Number of codeO huge page TBs to useZ DECLARE LONG CONSTANT SYI$_GH_RSRVPGCNT = 4467 ! pages reserved in code huge page X DECLARE LONG CONSTANT SYI$_DEF_PRIO_MIN = 4468 ! MIN priority for default policyX DECLARE LONG CONSTANT SYI$_DEF_PRIO_MAX = 4469 ! MAX priority for default policy_ DECLARE LONG CONSTANT SYI$_PSXFIFO_PRIO_MIN = 4470 ! MIN priority for POSIX FIFO policy_ DECLARE LONG CONSTANT SYI$_PSXFIFO_PRIO_MAX = 4471 ! MAX priority for POSIX FIFO policyc DECLARE PLONG CONSTANT SYI$_PSXRR_PRIO_MIN = 4472 ! MIN priority for POSIX Rnd-Robbin policyc DECLARE LONG CONSTANT SYI$_PSXRR_PRIO_MAX = 4473 ! MAX priority for POSIX Rnd-Robbin policyS DECLARE LONG CONSTANT SYI$_XQPCTLD1 = 4474 ! Reserved for XQP use (dynamic)H DECLARE LONG CONSTANT SYI$_XQPCTL2 = 4475 ! Reserved for XQP use[ DECLARE LONG CONSTANT SYI$_CPUCONF = 4477 ! CPU Configuration bitmask: 0 through 31n DECLARE LONG CONSTANT SYI$_DECNET_FULLNAME = 4478 ! DEQCnet/OSI fullname (or DECnet Phase IV node name)P DECLARE LONG CONSTANT SYI$_XQPCTLD3 = 4479 ! F11BXQP Specific parameters5 DECLARE LONG CONSTANT SYI$_XQPCTL4 = 4480 ! |6 DECLARE LONG CONSTANT SYI$_XQPCTLD5 = 4481 ! |5 DECLARE LONG CONSTANT SYI$_XQPCTL6 = 4482 ! |6 DECLARE LONG CONSTANT SYI$_XQPCTLD7 = 4483 ! |5 DECLARE LONG CONSTANT SYI$_XQPCTL8 = 4484 ! vd DECLARE LONG CONSTANT SYI$_DBGTK_SCRATCH = 4485 ! HLL System debugger scratch memory rRequestN DECLARE LONG CONSTANT SYI$_PALCODE_VERSION = 4486 ! Version of PALcodeW DECLARE LONG CONSTANT SYI$_CONSOLE_VERSION = 4487 ! Version of Console firmwareY DECLARE LONG CONSTANT SYI$_GH_EXEC_CODE = 4488 ! Pages in the execlet code regionY DECLARE LONG CONSTANT SYI$_GH_EXEC_DATA = 4489 ! Pages in the execlet data regiond DECLARE LONG CONSTANT SYI$_GH_RES_CODE = 4490 ! Pages in the resident image S0S1 code region_ DECLARE LONG CONSTANT SYI$_GH_RES_DASTA = 4491 ! Pages in the resident image data regionU DECLARE LONG CONSTANT SYI$_IMGREG_PAGES = 4492 ! Pages in the P1 image-region DECLARE LONG CONSTANT SYI$_SHADOW_SYS_TMO = 4493 ! Timeout interval for HBS system disk- new and after - shadow membersy DECLARE LONG CONSTANT SYI$_SHADOW_SYS_WAIT = 4494 ! Timeout interval for HBS system disk- exists - shadow membersa DECLARE LONG CONSTANT SYI$_SHADOW_ENABLE = 4495 ! Member removed at reboot from HBVS set.e DETCLARE LONG CONSTANT SYI$_SHADOW_SITE_O = 4496 ! OBSOLETE default site for shadow set (text)b DECLARE LONG CONSTANT SYI$_SYSTEM_CHECK = 4497 ! load/enable system problem isolation codeK DECLARE LONG CONSTANT SYI$_PFN_COLOR_COUNT = 4498 ! PFN Color Count\ DECLARE LONG CONSTANT SYI$_REAL_CPUTYPE = 4499 ! Actual CPU type of Primary CPU fromT DECLARE LONG CONSTANT SYI$_SCSICLUSTER_P1 = 4500 ! Reserved for SCSI ClusterT DECLARE LONG CONSTANT SYI$_SCSICLUSTER_P2 = 45U01 ! Reserved for SCSI ClusterT DECLARE LONG CONSTANT SYI$_SCSICLUSTER_P3 = 4502 ! Reserved for SCSI ClusterT DECLARE LONG CONSTANT SYI$_SCSICLUSTER_P4 = 4503 ! Reserved for SCSI Clusterz DECLARE LONG CONSTANT SYI$_FILE_CACHE = 4504 ! Percentage of physical memory reserved for Dollar file system cacheK DECLARE LONG CONSTANT SYI$_TMSCP_SERVE_ALL = 4505 ! Serve all tapesQ DECLARE LONG CONSTANT SYI$_DR_UNIT_BASE = 4506 ! unit base for DR devices_ DECLARE VLONG CONSTANT SYI$_MC_SERVICES_P0 = 4507 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYI$_MC_SERVICES_P1 = 4508 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYI$_MC_SERVICES_P2 = 4509 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYI$_MC_SERVICES_P3 = 4510 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYI$_MC_SERVICES_P4 = 4511 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYWI$_MC_SERVICES_P5 = 4512 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYI$_MC_SERVICES_P6 = 4513 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYI$_MC_SERVICES_P7 = 4514 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYI$_MC_SERVICES_P8 = 4515 ! Reserved for MEmory Channel Services_ DECLARE LONG CONSTANT SYI$_MC_SERVICES_P9 = 4516 ! Reserved for MEmory Channel ServicesO DECLARE LONG CONSTANT SYI$_S2_SIZE = 451X7 ! Size in Mbytes for S2 spaceZ DECLARE LONG CONSTANT SYI$_PROCESS_SPACE_LIMIT = 4518 ! Highest process private VAG DECLARE LONG CONSTANT SYI$_PT_BASE = 4519 ! Base VA of PT_spacei DECLARE LONG CONSTANT SYI$_SHARED_VA_PTES = 4520 ! Boundary between process and system space PTEsW DECLARE LONG CONSTANT SYI$_MULTITHREAD = 4521 ! per process kernel thread limitn DECLARE LONG CONSTANT SYI$_CWCREPRC_ENABLE = 4522 ! Allow remote process creation by unprivileged Yuserk DECLARE LONG CONSTANT SYI$_MAXBOBMEM = 4523 ! Maximum physical memory for buffer objects (pagelets)N DECLARE LONG CONSTANT SYI$_FAST_PATH = 4524 ! Fast Path enable/disablet DECLARE LONG CONSTANT SYI$_IO_PREFER_CPUS = 4525 ! Bit mask of CPUs available to be Fast Path preferred CPUsU DECLARE LONG CONSTANT SYI$_ACTIVE_CPU_MASK = 4526 ! Currently active CPU maskW DECLARE LONG CONSTANT SYI$_AVAIL_CPU_MASK = 4527 ! Mask of existing system CPUsX DECLARE ZLONG CONSTANT SYI$_PRIMARY_CPUID = 4528 ! CPUID of the primary processorS DECLARE LONG CONSTANT SYI$_MAX_CPUS = 4529 ! Maximum allowed CPUs in systemU DECLARE LONG CONSTANT SYI$_CPUCAP_MASK = 4530 ! Array of CPU capability maskst DECLARE LONG CONSTANT SYI$_FILE_CACHE_MIN = 4531 ! Min # of pages of cache reserved for Spiralog file systemt DECLARE LONG CONSTANT SYI$_FILE_CACHE_MAX = 4532 ! Max # of pages of cache reserved for Spiralog file systemT DECLARE LONG C[ONSTANT SYI$_F64CTL1 = 4533 ! Reserved to Spiralog file system7 DECLARE LONG CONSTANT SYI$_F64CTL2 = 4534 ! |8 DECLARE LONG CONSTANT SYI$_F64CTLD3 = 4535 ! |8 DECLARE LONG CONSTANT SYI$_F64CTLD4 = 4536 ! Vg DECLARE LONG CONSTANT SYI$_DISABLE_UPCALLS = 4537 ! Bitmask to disable specific threads upcallsO DECLARE LONG CONSTANT SYI$_DEVICE_NAMING = 4538 ! DEVICE_NAMING bitmaskP DECLARE LONG CONSTANT SYI$_AVAIL_PAGES = 4539 ! Available physical pag\esO DECLARE LONG CONSTANT SYI$_PROC_SLOTS = 4540 ! Process slot informationN DECLARE LONG CONSTANT SYI$_BAL_SLOTS = 4541 ! Balance slot informationQ DECLARE LONG CONSTANT SYI$_NPAGED_POOL = 4542 ! Nonpaged pool informationM DECLARE LONG CONSTANT SYI$_PAGED_POOL = 4543 ! Paged pool informationJ DECLARE LONG CONSTANT SYI$_MAIN_MEMORY = 4544 ! Memory information` DECLARE LONG CONSTANT SYI$_ARB_SUPPORT = 4545 ! Level of security backward compatibility ] ! ifsymbol PFNBITS_32;U DECLARE LONG CONSTANT SYI$_MAX_PFN = 4546 ! Returns contents of MMG$GL_MAXPFNX DECLARE LONG CONSTANT SYI$_PFN_MEMORY_MAP = 4547 ! Returns a physical memory map ! end_ifsymbol;` DECLARE LONG CONSTANT SYI$_PMD_COUNT = 4548 ! Returns count of phys. mem. desc. in HWRPBT DECLARE LONG CONSTANT SYI$_MSCP_CMD_TMO = 4549 ! VMS-MSCP server timer valueH DECLARE LONG CONSTANT SYI$_LAN_FLAGS = 4550 ! LAN specific flagsS DECLARE LONG CON^STANT SYI$_RMS_DFLRL = 4551 ! RMS default max record length_ DECLARE LONG CONSTANT SYI$_RMS_HEURISTIC = 4552 ! RMS file attribute heuristic ctr flagr DECLARE LONG CONSTANT SYI$_NPAG_INTERVAL = 4553 ! nonpaged pool gentle reclamation interval (# of seconds)\ DECLARE LONG CONSTANT SYI$_NPAG_GENTLE = 4554 ! gentle reclamation refill percentaged DECLARE LONG CONSTANT SYI$_NPAG_AGGRESSIVE = 4555 ! aggressive reclamation refill percentageY DECLARE LONG CONSTANT SYI$__NPAG_BAP_MIN = 4556 ! Min Size of Bus Addressable PoolY DECLARE LONG CONSTANT SYI$_NPAG_BAP_MAX = 4557 ! Max Size of Bus Addressable PoolK DECLARE LONG CONSTANT SYI$_NPAG_BAP_MAX_PA = 4558 ! max. PA for BAPN DECLARE LONG CONSTANT SYI$_NPAG_RING_SIZE = 4559 ! size of ring bufferP DECLARE LONG CONSTANT SYI$_CLUSTER_CREDITS = 4560 ! cluster send credits: DECLARE LONG CONSTANT SYI$_PTES_PER_PAGE = 4561 ! Y DECLARE LONG CONSTANT SYI$_TEMPERATURE_VECTOR = `4562 ! 16-byte temperature vectorM DECLARE LONG CONSTANT SYI$_POWER_VECTOR = 4563 ! 16-byte power vectorI DECLARE LONG CONSTANT SYI$_FAN_VECTOR = 4564 ! 16-byte fan vectorQ DECLARE LONG CONSTANT SYI$_THERMAL_VECTOR = 4565 ! 16-byte thermal vectore DECLARE LONG CONSTANT SYI$_MAXBOBS0S1 = 4566 ! Maximum buffer object S0S1 VA space (pagelets)a DECLARE LONG CONSTANT SYI$_MAXBOBS2 = 4567 ! Maximum buffer object S2 VA space (pagelets)P DECLARE LONG CONSTaANT SYI$_VCC_MAX_CACHE = 4568 ! Maximum VDC Cache SizeW DECLARE LONG CONSTANT SYI$_VCC_MAX_IO_SIZE = 4569 ! Maximum Cached VDC I/O SizeY DECLARE LONG CONSTANT SYI$_VCC_MAX_LOCKS = 4570 ! Maximum number of locks for VDCV DECLARE LONG CONSTANT SYI$_VCC_READAHEAD = 4571 ! VDC Readahead caching on/offZ DECLARE LONG CONSTANT SYI$_VCC_WRITEBEHIND = 4572 ! VDC Writebehind caching on/offW DECLARE LONG CONSTANT SYI$_VCC_WRITE_DELAY = 4573 ! VDC Writebehind write delabyf DECLARE LONG CONSTANT SYI$_SD_ALLOCLASS = 4574 ! Snapshot-capable disk device allocation classV DECLARE LONG CONSTANT SYI$_GALAXY = 4575 ! Node should participate in a GalaxyK DECLARE LONG CONSTANT SYI$_NPAG_BAP_MIN_PA = 4576 ! min. PA for BAPt DECLARE LONG CONSTANT SYI$_BAP_MIN_REQ_SZ = 4577 ! Bus addressable pool (BAP) minimum size requested (bytes)t DECLARE LONG CONSTANT SYI$_BAP_MAX_REQ_SZ = 4578 ! Bus addressable pool (BAP) maximum size requested (bytecs)w DECLARE LONG CONSTANT SYI$_BAP_MIN_PA_REG = 4579 ! Bus addressable pool (BAP) minimum PA registered (megabytes)w DECLARE LONG CONSTANT SYI$_BAP_MAX_PA_REG = 4580 ! Bus addressable pool (BAP) maximum PA registered (megabytes)Z DECLARE LONG CONSTANT SYI$_GALAXY_ID = 4581 ! 16-byte unique ID of Galaxy platformW DECLARE LONG CONSTANT SYI$_RMSD6 = 4582 ! Reserved to RMS development (dynamic)m DECLARE LONG CONSTANT SYI$_MPDEV_ENABLE_O = 4583 ! OBSOLETE Multipatdh I/O switching control parameter~ DECLARE LONG CONSTANT SYI$_MPDEV_REMOTE_O = 4584 ! OBSOLETE Multipath I/O switching control parameter for remote pathsX DECLARE LONG CONSTANT SYI$_RMSD1 = 4585 ! Reserved to RMS development (dynamic) X DECLARE LONG CONSTANT SYI$_GALAXY_MEMBER = 4586 ! Flag - Are we a Galaxy member?_ DECLARE LONG CONSTANT SYI$_GALAXY_PLATFORM = 4587 ! Flag - Are we on a Galaxy platform?L DECLARE LONG CONSTANT SYI$_PARTITION_ID = 4588 ! Galaxy ePartition IDL DECLARE LONG CONSTANT SYI$_COMMUNITY_ID = 4589 ! Galaxy Community IDW DECLARE LONG CONSTANT SYI$_GLX_INST_TMO = 4590 ! Galaxy heartbeat timeout valueA DECLARE LONG CONSTANT SYI$_SMCI_FLAGS = 4591 ! SMCI FlagsH DECLARE LONG CONSTANT SYI$_SMCI_PORTS = 4592 ! SMCI Port bitmaskQ DECLARE LONG CONSTANT SYI$_SERVED_IO = 4593 ! QIOserver control parameterR DECLARE LONG CONSTANT SYI$_GLX_SW_VERSION = 4594 ! Galaxy software versionY DECLARE fLONG CONSTANT SYI$_GLX_MAX_MEMBERS = 4595 ! maximum node_id this platformT DECLARE LONG CONSTANT SYI$_GLX_INCARNATION = 4596 ! galaxy incarnation countX DECLARE LONG CONSTANT SYI$_GLX_FORMATION = 4597 ! galaxy creation time (systime)O DECLARE LONG CONSTANT SYI$_GLX_TERMINATION = 4598 ! systime galaxy diedK DECLARE LONG CONSTANT SYI$_GLX_MBR_NAME = 4599 ! galaxy member nameI DECLARE LONG CONSTANT SYI$_GLX_MBR_MEMBER = 4600 ! galaxy member ` DECLARE LOgNG CONSTANT SYI$_GLX_MBR_INCARNATION = 4601 ! galaxy member incarnation numberR DECLARE LONG CONSTANT SYI$_GLX_MBR_JOINED = 4602 ! galaxy member join timeg DECLARE LONG CONSTANT SYI$_MPDEV_LCRETRIES = 4603 ! Multipath Switching - local connect retriesS DECLARE LONG CONSTANT SYI$_MPDEV_D1 = 4604 ! Multipath Switching - dynamic J DECLARE LONG CONSTANT SYI$_CLUSTER_NTIME = 4605 ! Cluster New time` DECLARE LONG CONSTANT SYI$_CLUSTER_NTIME_REF = 4606 ! Cluster Nehw time - local reference_ DECLARE LONG CONSTANT SYI$_MPDEV_POLLER_O = 4607 ! OBSOLETE Multipath poller parameter Y DECLARE LONG CONSTANT SYI$_CPU_FAILOVER = 4608 ! Array of CPU failover partitionsp DECLARE LONG CONSTANT SYI$_POTENTIAL_CPU_MASK = 4609 ! Mask of CPUs that are compatible on this instancew DECLARE LONG CONSTANT SYI$_POTENTIALCPU_CNT = 4610 ! Number of CPUs that could potentially run on this instanceW DECLARE LONG CONSTANT SYI$_CPU_AUTOSTART = 4611 i ! Array of CPU autostart statesX DECLARE LONG CONSTANT SYI$_FAST_PATH_PORTS = 4614 ! New Fastpath implementationsf DECLARE LONG CONSTANT SYI$_GLX_SHM_REG = 4615 ! Number of Galaxy shared memory regions in GMDB` DECLARE LONG CONSTANT SYI$_RAD_SUPPORT = 4616 ! Switch to turn RAD (aka NUMA) support onk DECLARE LONG CONSTANT SYI$_NPAGECALC = 4617 ! Tell VMS to calculate default npagedyn and vir valuesW DECLARE LONG CONSTANT SYI$_WBM_MSG_INT = 4618 ! write bitmapj msg check intervalR DECLARE LONG CONSTANT SYI$_WBM_MSG_UPPER = 4619 ! upper threshold for msgsR DECLARE LONG CONSTANT SYI$_WBM_MSG_LOWER = 4620 ! lower threshold for msgsj DECLARE LONG CONSTANT SYI$_HP_ACTIVE_CPU_CNT = 4621 ! number of active CPUs in this hard partitiont DECLARE LONG CONSTANT SYI$_HP_ACTIVE_SP_CNT = 4622 ! number of active soft partitions in this hard partitionx DECLARE LONG CONSTANT SYI$_HP_CONFIG_SP_CNT = 4623 ! number of configured soft parktitions in this hard partitionn DECLARE LONG CONSTANT SYI$_HP_CONFIG_SBB_CNT = 4624 ! number of configured SBBs in this hard partitionu DECLARE LONG CONSTANT SYI$_SHADOW_MAX_UNIT = 4625 ! maximum number of dsa devices which can exist on the nodek DECLARE LONG CONSTANT SYI$_WBM_OPCOM_LVL = 4626 ! opcom mode for write bitmap information messages a DECLARE LONG CONSTANT SYI$_AUTO_DLIGHT_SAV = 4627 ! automatic daylight saving SYSGEN flag` DECLARE LONG CONSTANT SYI$l_RAD_MAX_RADS = 4628 ! maximum number of RADs on this platform] DECLARE LONG CONSTANT SYI$_RAD_CPUS = 4629 ! potential CPUs per RAD for this instance` DECLARE LONG CONSTANT SYI$_RAD_MEMSIZE = 4630 ! private memory per RAD for this instanceY DECLARE LONG CONSTANT SYI$_RAD_SHMEMSIZE = 4631 ! number of shared memory per RAD` DECLARE LONG CONSTANT SYI$_GALAXY_SHMEMSIZE = 4632 ! number of shared memory pages totalg DECLARE LONG CONSTANT SYI$_NPAGERAD = 4633 ! Howm much of NPAGEDYN is in other than the base RADc DECLARE LONG CONSTANT SYI$_SERIAL_NUMBER = 4634 ! System Serial Number - may be virtualizedT DECLARE LONG CONSTANT SYI$_MPDEV_D2 = 4636 ! Multipath Switching - dynamic R DECLARE LONG CONSTANT SYI$_MPDEV_D3 = 4637 ! Multipath Switching - dynamicR DECLARE LONG CONSTANT SYI$_MPDEV_D4 = 4638 ! Multipath Switching - dynamicg DECLARE LONG CONSTANT SYI$_MPDEV_AFB_INTVL = 4639 ! Multipath Auto fail back Interval - dynanmicJ DECLARE LONG CONSTANT SYI$_MPW_STACKPAGES = 4640 ! MPW Stack Pagesp DECLARE LONG CONSTANT SYI$_PRESENT_CPU_MASK = 4641 ! Mask of CPUs that are present in the hard partitionp DECLARE LONG CONSTANT SYI$_PRESENTCPU_CNT = 4642 ! Number of CPUs that are present in the hard partitions DECLARE LONG CONSTANT SYI$_POWERED_CPU_MASK = 4643 ! Mask of CPUs that are powered up in the hard partitions DECLARE LONG CONSTANT SYI$_POWEREDCPU_CNT = 4644 ! Number of CPUs thato are powered up in the hard partitionT DECLARE LONG CONSTANT SYI$_RMSD7 = 4645 ! RMS readahead hint feature for XFC[ DECLARE LONG CONSTANT SYI$_RMS_SEQFILE_WBH = 4646 ! RMS default writebehind featureJ DECLARE LONG CONSTANT SYI$_DCL_CTLFLAGS = 4647 ! DCL Control Flagsm DECLARE LONG CONSTANT SYI$_DELPRC_EXIT = 4648 ! System-wide EXIT behavior for direct calls to $DELPRC^ DECLARE LONG CONSTANT SYI$_PHYMEM_CONFIG = 4649 ! Dynamic memory configuration controlM p DECLARE LONG CONSTANT SYI$_KTK_D1 = 4650 ! Dynamic kernel tuning knobM DECLARE LONG CONSTANT SYI$_KTK_D2 = 4651 ! Dynamic kernel tuning knobM DECLARE LONG CONSTANT SYI$_KTK_D3 = 4652 ! Dynamic kernel tuning knobM DECLARE LONG CONSTANT SYI$_KTK_D4 = 4653 ! Dynamic kernel tuning knobM DECLARE LONG CONSTANT SYI$_KTK_D5 = 4654 ! Dynamic kernel tuning knobM DECLARE LONG CONSTANT SYI$_KTK_D6 = 4655 ! Dynamic kernel tuning knobM DECLARE LONG CONSTANT qSYI$_KTK_D7 = 4656 ! Dynamic kernel tuning knobM DECLARE LONG CONSTANT SYI$_KTK_D8 = 4657 ! Dynamic kernel tuning knobM DECLARE LONG CONSTANT SYI$_KTK_D9 = 4658 ! Dynamic kernel tuning knobN DECLARE LONG CONSTANT SYI$_KTK_D10 = 4659 ! Dynamic kernel tuning knobN DECLARE LONG CONSTANT SYI$_KTK_D11 = 4660 ! Dynamic kernel tuning knobN DECLARE LONG CONSTANT SYI$_KTK_D12 = 4661 ! Dynamic kernel tuning knobg DECLARE LONG CONSTANT SYI$_MIN_CPU_FEATURE_MASK r= 4662 ! AMASK value of all CPUs ANDed togetherW DECLARE LONG CONSTANT SYI$_FIBRE_SCSI_RSV1 = 4663 ! reserved for Fibre SCSI useD DECLARE LONG CONSTANT SYI$_DEFUID = 4664 ! default POSIX UIDD DECLARE LONG CONSTANT SYI$_DEFGID = 4665 ! default POSIX GIDg DECLARE LONG CONSTANT SYI$_MVSUPMSG_INTVL = 4666 ! Quiet mountver suppression interval -dynamicd DECLARE LONG CONSTANT SYI$_MVSUPMSG_NUM = 4667 ! Quiet mountver suppression number -dynamicL DECLARE LOsNG CONSTANT SYI$_SHADOW_SITE_ID = 4668 ! Shadow Site valueX DECLARE LONG CONSTANT SYI$_RMSD2 = 4669 ! Reserved to RMS development (dynamic) X DECLARE LONG CONSTANT SYI$_RMSD3 = 4670 ! Reserved to RMS development (dynamic) X DECLARE LONG CONSTANT SYI$_RMSD4 = 4671 ! Reserved to RMS development (dynamic) X DECLARE LONG CONSTANT SYI$_RMSD5 = 4672 ! Reserved to RMS development (dynamic) M DECLARE LONG CONSTANT SYI$_TESTING123 = 4673 ! Reserved for debuggingM t DECLARE LONG CONSTANT SYI$_VCC_PAGESIZE = 4674 ! Reserved for XFC useI DECLARE LONG CONSTANT SYI$_VCC_RSVD = 4675 ! Reserved for XFC use[ DECLARE LONG CONSTANT SYI$_RSVD_IO_1 = 4676 ! Reserved for debug/future enhancement[ DECLARE LONG CONSTANT SYI$_RSVD_IO_2 = 4677 ! Reserved for debug/future enhancement\ DECLARE LONG CONSTANT SYI$_RSVD_CLU_1 = 4678 ! Reserved for debug/future enhancement\ DECLARE LONG CONSTANT SYI$_RSVD_CLU_2 = 4679 ! Reserved for debuug/future enhancement] DECLARE LONG CONSTANT SYI$_RSVD_EXEC_1 = 4680 ! Reserved for debug/future enhancement] DECLARE LONG CONSTANT SYI$_RSVD_EXEC_2 = 4681 ! Reserved for debug/future enhancement^ DECLARE LONG CONSTANT SYI$_RSVD_SECUR_1 = 4682 ! Reserved for debug/future enhancement^ DECLARE LONG CONSTANT SYI$_RSVD_SECUR_2 = 4683 ! Reserved for debug/future enhancement\ DECLARE LONG CONSTANT SYI$_RSVD_LAN_1 = 4684 ! Reserved for debug/future enhancement\ vDECLARE LONG CONSTANT SYI$_RSVD_LAN_2 = 4685 ! Reserved for debug/future enhancementf DECLARE LONG CONSTANT SYI$_SHADOW_REC_DLY = 4686 ! Time to wait after crash before merge startE DECLARE LONG CONSTANT SYI$_SHADOW_D1 = 4687 ! Shadowing spareE DECLARE LONG CONSTANT SYI$_SHADOW_D2 = 4688 ! Shadowing spareE DECLARE LONG CONSTANT SYI$_SHADOW_D3 = 4689 ! Shadowing spareE DECLARE LONG CONSTANT SYI$_SHADOW_D4 = 4690 ! Shadowing spareE DECLARE LONG CONSTANwT SYI$_SHADOW_D5 = 4691 ! Shadowing spareI DECLARE LONG CONSTANT SYI$_WBM_D1 = 4692 ! Write Bit Map for HBMMW DECLARE LONG CONSTANT SYI$_TTY_DEFCHAR3 = 4693 ! Terminal characteristics, 3nd * ! longword only lower 16 attributes ( ! upper 16 bits are Asian VMS bitsO DECLARE LONG CONSTANT SYI$_VHPT_SIZE = 4694 ! Size of VHPT on IA64 onlye DECLARE LONG CONSTANT SYI$_SHADOW_HBMM_RTC = 4696 ! HBMM Reset Threshold Check Timer IntervalT DECLARE LONG CONxSTANT SYI$_FCLAN_FRAME = 4697 ! Fibre Channel LAN frame sizeX DECLARE LONG CONSTANT SYI$_MAX_PFN_64 = 4698 ! Returns contents of MMG$GQ_MAXPFNb DECLARE LONG CONSTANT SYI$_PFN_MEMORY_MAP_64 = 4699 ! Returns a 64 bit physical memory mapU DECLARE LONG CONSTANT SYI$_CPU_SOCKETS = 4700 ! Returns number of cpu socketsf DECLARE LONG CONSTANT SYI$_ERLBUFFERPAG_S2 = 4701 ! Number of pagelets per S2 error log bufferZ DECLARE LONG CONSTANT SYI$_ERRORLOGBUFF_S2 = 4702 ! yNumber of S2 error log buffersf DECLARE LONG CONSTANT SYI$_SHADOW_PSM_RDLY = 4703 ! Shadowing Per Served Member Recovery Delayw DECLARE LONG CONSTANT SYI$_SYSTEM_UUID = 4704 ! Returns the system UUID on Itanium systems - may be virtualizedc DECLARE LONG CONSTANT SYI$_PLATF_SPT_D1 = 4705 ! Reserved to VMS platform support (dynamic)< DECLARE LONG CONSTANT SYI$_PLATF_SPT_D2 = 4706 ! " < DECLARE LONG CONSTANT SYI$_PLATF_SPT_D3 = 4707 ! " < DECLARE LONG CONzSTANT SYI$_PLATF_SPT_D4 = 4708 ! " a DECLARE LONG CONSTANT SYI$_PLATF_SPT_1 = 4709 ! Reserved to VMS platform support (static)9 DECLARE LONG CONSTANT SYI$_PLATF_SPT_2 = 4710 ! "; DECLARE LONG CONSTANT SYI$_PLATF_SPT_3 = 4711 ! " ; DECLARE LONG CONSTANT SYI$_PLATF_SPT_4 = 4712 ! " P DECLARE LONG CONSTANT SYI$_SWIS_LOG = 4713 ! Knob to change the swis logh DECLARE LONG CONSTANT SYI$_EXECSTACKPAGES = 4714 ! Number of pages for RMS EXEC ASB or RSE s{tackg DECLARE LONG CONSTANT SYI$_GB_CACHEALLMAX = 4715 ! RMS global buffer cache whole file criterionk DECLARE LONG CONSTANT SYI$_GB_DEFPERCENT = 4716 ! RMS global buffer cache default percent criterionn DECLARE LONG CONSTANT SYI$_CPU_THREADING = 4717 ! Knob to change how we deal with CPU hardware threadsY DECLARE LONG CONSTANT SYI$_CPU_POWER_MGMT = 4718 ! Control Power Managment on IPFl DECLARE LONG CONSTANT SYI$_CPU_POWER_THRSH = 4719 ! Idle Threshold neces|sary to use Power Managementz DECLARE LONG CONSTANT SYI$_SMP_CPU_BITMAP = 4720 ! (1024-bit) Map of CPUs eligible for participation in SMP systemo DECLARE LONG CONSTANT SYI$_IO_PRCPU_BITMAP = 4721 ! (1024-bit) Map of CPUs for fast path I/O processingI DECLARE LONG CONSTANT SYI$_LOCKRMWT = 4722 ! Lock Remaster WeightH DECLARE LONG CONSTANT SYI$_SAS_NAMING = 4723 ! SAS Device NamingM DECLARE LONG CONSTANT SYI$_ACTIVE_CPU_BITMAP = 4724 ! CBB bitmap dataF DE}CLARE LONG CONSTANT SYI$_AVAIL_CPU_BITMAP = 4725 ! of CPUsM DECLARE LONG CONSTANT SYI$_POTENTIAL_CPU_BITMAP = 4726 ! in variousG DECLARE LONG CONSTANT SYI$_POWERED_CPU_BITMAP = 4727 ! statesD DECLARE LONG CONSTANT SYI$_PRESENT_CPU_BITMAP = 4728 ! ...I DECLARE LONG CONSTANT SYI$_COMPLEX_ID = 4729 ! Complex Profile IDM DECLARE LONG CONSTANT SYI$_COMPLEX_NAME = 4730 ! Complex Profile NameM DECLARE LONG CONSTANT SYI$_HP_ID = 4731 ! Hard Partiti~on ID (nPar ID)S DECLARE LONG CONSTANT SYI$_HP_NAME = 4732 ! Hard Partition Name (nPar Name)R DECLARE LONG CONSTANT SYI$_CELLULAR_PLATFORM = 4733 ! System is cell-basedF DECLARE LONG CONSTANT SYI$_BOOT_DEVICE = 4734 ! sys$ar_bootucb_ DECLARE LONG CONSTANT SYI$_HP_CORE_CNT = 4735 ! Count of unique cores in hard partitionx DECLARE LONG CONSTANT SYI$_ACTIVE_CORE_CNT = 4736 ! Count of cores in hard partition with at least one active LPq DECLARE LONG CONSTANT SYI$_SSIO_SYNC_INTVL = 4737 ! Interval at which dirty shared stream I/O buffers are0 ! written to disk by process doing sync()l DECLARE LONG CONSTANT SYI$_SCH_SOFT_OFFLD = 4738 ! Bitmap of CPUs sometimes excluded from schedulingb DECLARE LONG CONSTANT SYI$_SCH_HARD_OFFLD = 4739 ! Bitmap of CPUs excluded from schedulingy DECLARE LONG CONSTANT SYI$_SCHED_FLAGS = 4740 ! Reserved cell for sched noodling, replaces parameter SCH_CTLFLAGSe DECLARE LONG CONSTANT SYI$_GH_RES_CODE_S2 = 4741 ! Pages in the resident image S2 code region\ DECLARE LONG CONSTANT SYI$_GRAPHICS_CONSOLE = 4742 ! 1 if Graphics Console, 0 if nota DECLARE LONG CONSTANT SYI$_TCPIP_LOAD = 4743 ! 1 Enables load TCPIP Services at boot timef DECLARE LONG CONSTANT SYI$_NISCS_UDP_PORT = 4744 ! UDP Port number for cluster communications.o DECLARE LONG CONSTANT SYI$_PHYS_SERIAL_NUMBER = 4745 ! Physical System Serial Number on Itanium systemsd DECLARE LONG CONSTANT SYI$_PHYS_SYSTEM_UUID = 4746 ! Physical system UUID on Itanium systemse DECLARE LONG CONSTANT SYI$_PAGED_LAL_SIZE = 4747 ! Pagedyn Lookaside list maximum packet sizeg DECLARE LONG CONSTANT SYI$_RMS_PATH_TMO = 4748 ! Lifetime for symlink entries in RMS path cachee DECLARE LONG CONSTANT SYI$_NISCS_UDP_PKTSZ = 4749 ! udp packet size for cluster communicationO ! ADD 'EXE' (LONGWORD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ********O ! DO NOT ADD 'FLD' (FIELD) ITEMS HERE???? ADD THEM BEFORE 'LASTFLD' ******? DECLARE LONG CONSTANT SYI$_LASTEXE = 4750 ! LAST INDEX ? ! The following item-codes are for 'sub-field data' items.= ! There usually exists another item-code to retrieve the? ! whole parent cell (longword) - in the EXE section above.8 DECLARE LONG CONSTANT SYI$_CPU = 8192 ! CPU typeL DECLARE LONG CONSTANT SYI$_BUGREBOOT = 8193 ! Bugcheck reboot enableR DECLARE LONG CONSTANT SYI$_CRDENABLE = 8194 ! Memory error checking enableH DECLARE LONG CONSTANT SYI$_DUMPBUG = 8195 ! Bugcheck dump enableT DECLARE LONG CONSTANT SYI$_BUGCHECKFATAL = 8196 ! All bugchecks become fatalT DECLARE LONG CONSTANT SYI$_ACP_MULTIPLE = 8197 ! New ACP for each disk classS DECLARE LONG CONSTANT SYI$_NOAUTOCONFIG = 8198 ! Auto configuration inhibitJ DECLARE LONG CONSTANT SYI$_NOCLOCK = 8199 ! Interval timer inhibitR DECLARE LONG CONSTANT SYI$_NOCLUSTER = 8200 ! Page read clustering inhibitR DECLARE LONG CONSTANT SYI$_POOLPAGING = 8201 ! Enable paging of paged poolS DECLARE LONG CONSTANT SYI$_SBIERRENABLE = 8202 ! SBI error detection enableV DECLARE LONG CONSTANT SYI$_SETTIME = 8203 ! Force entry of time at system bootN DECLARE LONG CONSTANT SYI$_ACP_SHARE = 8204 ! Enable sharing of F11ACPR DECLARE LONG CONSTANT SYI$_SYSPAGING = 8205 ! Enable paging of system code\ DECLARE LONG CONSTANT SYI$_UAFALTERNATE = 8206 ! Select alternate authorization file[ DECLARE LONG CONSTANT SYI$_WRITABLESYS = 8207 ! Leave system writable for debuggingX DECLARE LONG CONSTANT SYI$_RESALLOC = 8208 ! Enable resource allocation checking[ DECLARE LONG CONSTANT SYI$_SSINHIBIT = 8209 ! Inhibit system services for processesT DECLARE LONG CONSTANT SYI$_CONCEAL_DEVICES = 8210 ! Enable concealed devicesS DECLARE LONG CONSTANT SYI$_SAVEDUMP = 8211 ! Save dump if it's in page file[ DECLARE LONG CONSTANT SYI$_MOUNTMSG = 8212 ! Enable oper notification of vol mountsZ DECLARE LONG CONSTANT SYI$_DISMOUMSG = 8213 ! Enable oper notification of vol dismV DECLARE LONG CONSTANT SYI$_LOADERAPT = 8214 ! Load alt erase pattern generatorX DECLARE LONG CONSTANT SYI$_LOADCHKPRT = 8215 ! Load alt protection check routineP DECLARE LONG CONSTANT SYI$_XCPU = 8216 ! CPU subtype (Extended SID info)O DECLARE LONG CONSTANT SYI$_CJFLOAD = 8217 ! Load common journaling codeX DECLARE LONG CONSTANT SYI$_CJFSYSRUJ = 8218 ! Load recovery unit journaling codeI DECLARE LONG CONSTANT SYI$_NODE_AREA = 8219 ! System ID node areaM DECLARE LONG CONSTANT SYI$_NODE_NUMBER = 8220 ! System ID node numberS DECLARE LONG CONSTANT SYI$_CLASS_PROT = 8221 ! Non-discretionary check flage DECLARE LONG CONSTANT SYI$_CHARACTER_EMULATED = 8222 ! Character string instructions emulateda DECLARE LONG CONSTANT SYI$_DECIMAL_EMULATED = 8223 ! Decimal string instructions emulated] DECLARE LONG CONSTANT SYI$_D_FLOAT_EMULATED = 8224 ! D floating instructions emulated] DECLARE LONG CONSTANT SYI$_F_FLOAT_EMULATED = 8225 ! F floating instructions emulated] DECLARE LONG CONSTANT SYI$_G_FLOAT_EMULATED = 8226 ! G floating instructions emulated] DECLARE LONG CONSTANT SYI$_H_FLOAT_EMULATED = 8227 ! H floating instructions emulatedb DECLARE LONG CONSTANT SYI$_LOADMTACCESS = 8228 ! Load installation specific access routineD  DECLARE LONG CONSTANT SYI$_ACP_XQP_RES = 8229 ! Resident XQPj DECLARE LONG CONSTANT SYI$_WRITESYSPARAMS = 8230 ! Write active parameters to the system .PAR file[ DECLARE LONG CONSTANT SYI$_LGI_BRK_TERM = 8231 ! Use term name in breakin detection[ DECLARE LONG CONSTANT SYI$_LGI_BRK_DISUSER = 8232 ! Disable user account on breakin^ DECLARE LONG CONSTANT SYI$_ACP_REBLDSYSD = 8233 ! Rebuild system disk when mounting itS DECLARE LONG CONSTANT SYI$_WS_OPA0 = 8234 ! Workstation using QVSS for OPA0U DECLARE LONG CONSTANT SYI$_NOPGFLSWP = 8235 ! Inhibit swapping into pagefilesc DECLARE LONG CONSTANT SYI$_LOAD_SYS_IMAGES = 8237 ! Control of how system images are loaded\ DECLARE LONG CONSTANT SYI$_NISCS_CONV_BOOT = 8238 ! Allow remote conversational bootW DECLARE LONG CONSTANT SYI$_NISCS_LOAD_PEA0 = 8239 ! Load NI-SCS driver for PEA0^ DECLARE LONG CONSTANT SYI$_SA_APP = 8240 ! Booting stand-alone application (SA-BACKUP)^ DECLARE LONG CONSTANT SYI$_LOAD_PWD_POLICY = 8241 ! Load site-specific password policyS DECLARE LONG CONSTANT SYI$_FT_ACTIVE = 8242 ! CIRRUS system is fully activeX DECLARE LONG CONSTANT SYI$_WLKSYSDSK = 8244 ! Booting with write locked sys diskg DECLARE LONG CONSTANT SYI$_DBGTK_LOADED = 8245 ! Remote system debugger target kernel is loaded_ DECLARE LONG CONSTANT SYI$_DAY_OVERRIDE = 8246 ! UAF day classifications are overriddenZ DECLARE LONG CONSTANT SYI$_DAY_SECONDARY = 8247 ! UAF day override is to SecondaryO DECLARE LONG CONSTANT SYI$_CWLOGICALS = 8248 ! State of CAP_CWLOGICALS N DECLARE LONG CONSTANT SYI$_POWEROFF = 8249 ! Enable software power-offb DECLARE LONG CONSTANT SYI$_MPDEV_ENABLE = 8250 ! Multipath I/O switching control parameters DECLARE LONG CONSTANT SYI$_MPDEV_REMOTE = 8251 ! Multipath I/O switching control parameter for remote pathsT DECLARE LONG CONSTANT SYI$_MPDEV_POLLER = 8252 ! Multipath poller parameter I DECLARE LONG CONSTANT SYI$_LCKMGR_MODE = 8253 ! Lock Manager ModeM DECLARE LONG CONSTANT SYI$_LCKMGR_RSVD = 8254 ! Lock Manager ReservedL DECLARE LONG CONSTANT SYI$_LCKMGR_CPUID = 8255 ! Lock Manager CPU IDY DECLARE LONG CONSTANT SYI$_PERSISTENT_RES = 8256 ! Fibre SCSI Reservation SupportX DECLARE LONG CONSTANT SYI$_SYSSER_LOGGING = 8257 ! Enable system service logging_ DECLARE LONG CONSTANT SYI$_SCSI_ERROR_POLL = 8258 ! Enable polling to flush SCSI errors] DECLARE LONG CONSTANT SYI$_SSI_ENABLE = 8259 ! Enable system service intercept on I64 DECLARE LONG CONSTANT SYI$_VIRTUAL_MACHINE = 8260 ! True if we're running on a VMS guest under HPVM -- useful on I64 & ! only. d DECLARE LONG CONSTANT SYI$_NISCS_USE_LAN = 8261 ! True enables cluster comm. use of 802 LAN.` DECLARE LONG CONSTANT SYI$_NISCS_USE_UDP = 8262 ! True enables cluster comm. use of UDP.O ! ADD 'FLD' (FIELD) ITEM-CODE S *ONLY* JUST BEFORE THIS COMMENT ***********O ! DO NOT ADD 'EXE' (LONGWORD) ITEMS HERE???? ADD THEM BEFORE 'LASTEXE' ***? DECLARE LONG CONSTANT SYI$_LASTFLD = 8263 ! LAST INDEX @ ! ) equals SYI$C_FLDTYPE@12 increment 1 prefix SYI tag $;R ! **************************************************************************** ! *F ! * THE FOLLOWING DEFINITIONS EXIST FOR COMPATIBILITY WITH THE 1ST< ! * IMPLEMENTATION OF SYS$GETSYI. DO NOT CHANGE THEM???= ! * ADD NEW GETSYI ITEM-CODES ONLY TO THE PREVIOUS LISTS. ! *R ! ****************************************************************************G DECLARE LONG CONSTANT SYI$C_SFWTYPE = 1 ! SYSTEM SOFTWARE ITEM @ DECLARE LONG CONSTANT SYI$C_HDWTYPE = 2 ! HARDWARE ITEM D DECLARE LONG CONSTANT SYI$C_LISTEND = 0 ! ITMLST TERMINATOR & ! IDENTIFIER FOR SYSTEM SOFTWARE I DECLARE LONG CONSTANT SYI$_OLDVERSION = 256 ! VMS VERSION NUMBER > DECLARE LONG CONSTANT SYI$_LASTSFW = 257 ! LAST INDEX J ! *******************************************************************J ! ********************* BEGIN TEMP FIX ******************************J ! ********************* BEGIN TEMP FIX ******************************J ! *******************************************************************? ! ) equals SYI$C_SFWTYPE@8 increment 1 prefix SYI tag $;J ! *******************************************************************J ! ********************** END TEMP FIX *******************************J ! ********************** END TEMP FIX *******************************J ! *******************************************************************$ ! IDENTIFIER FOR HARDWARE TYPE ; DECLARE LONG CONSTANT SYI$_OLDCPU = 512 ! CPU TYPE E DECLARE LONG CONSTANT SYI$_OLDSID = 513 ! SYSTEM ID REGISTER > DECLARE LONG CONSTANT SYI$_LASTHDW = 514 ! LAST INDEX A ! ) equals SYI$C_HDWTYPE@8 increment 1 prefix SYI tag $;I ! Define constant for the length of environmental vector item codes J ! (POWER_VECTOR, TEMPERATURE_VECTOR, THERMAL_VECTOR, and FAN_VECTOR).8 DECLARE LONG CONSTANT SYI$K_ENV_VECTOR_LENGTH = 16F ! Define status code for each element in the environmental vector7 DECLARE LONG CONSTANT SYI$K_ENV_STATUS_FAILED = 03 DECLARE LONG CONSTANT SYI$K_ENV_STATUS_OK = 1> DECLARE LONG CONSTANT SYI$K_ENV_STATUS_NOT_PRESENT = 255: DECLARE LONG CONSTANT SYI$K_ENV_STATUS_UNKNOWN = 2 541 ! Define the SYI$_ARCH_TYPE return constantsK DECLARE LONG CONSTANT SYI$K_ARCH_OTHER = 0 ! Unknown SYI$_ARCH_TYPEC DECLARE LONG CONSTANT SYI$K_ARCH_VAX = 1 ! VAX ArchitectureG DECLARE LONG CONSTANT SYI$K_ARCH_ALPHA = 2 ! Alpha ArchitectureL DECLARE LONG CONSTANT SYI$K_ARCH_IA64 = 3 ! IA-64 (IPF) ArchitectureI DECLARE LONG CONSTANT SYI$K_ARCH_X86_64 = 4 ! x86_64 Architecture wwL! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Z DECLARE LONG CONSTANT SYSEVT$C_ALL_EVENTS = 1 ! Valid for $Clear_system_event onlyd DECLARE LONG CONSTANT SYSEVT$C_ADD_GALAXY_MEMBER = 2 ! One or more instances have joined the ! Galaxy communit yb DECLARE LONG CONSTANT SYSEVT$C_DEL_GALAXY_MEMBER = 3 ! One or more instances have left the ! Galaxy community_ DECLARE LONG CONSTANT SYSEVT$C_ADD_ACTIVE_CPU = 4 ! One or more CPUs have become active ! within this VMS instance` DECLARE LONG CONSTANT SYSEVT$C_DEL_ACTIVE_CPU = 5 ! One or more CPU have become inactive` DECLARE LONG CONSTANT SYSEVT$C_ADD_CONFIG_CPU = 6 ! One or more CPUs are now part of the' ! configure set for this instance.d DECLARE LONG CONSTANT SYSEVT$C_DEL_CONFIG_CPU = 7 ! One or more CPUS have left this instancei DECLARE LONG CONSTANT SYSEVT$C_CONFIG_TREE = 8 ! An update has occurred to the Galaxy config treef DECLARE LONG CONSTANT SYSEVT$C_FASTPATH_CPUS = 9 ! A modification has been made to the system ! ! parameter, IO_PREFER_CPUS.Q DECLARE LONG CONSTANT SYSEVT$C_TDF_CHANGE = 10 ! time differential changeL DECLARE LONG CONSTANT SYSEVT$C_CPU_POWER = 11 ! CPU power transition[ DECLARE LONG CONSTANT SYSEVT$C_INDICTMENT = 12 ! Component Indictment was performed` DECLARE LONG CONSTANT SYSEVT$C_CPU_DEALLOCATE = 13 ! CPU deallocated from running systemL DECLARE LONG CONSTANT SYSEVT$C_MAX_EVENT = 14 ! maximum event numberI DECLARE LONG CONSTANT SYSEVT$C_NUM_EVENTS = 13 ! Number of events4 DECLARE LONG CONSTANT SYSEVT$K_NUM_EVENTS = 13R DECLARE LONG CONSTANT SYSEVT$M_NOTIFY_ONCE = 0 ! indicate one shot requesto DECLARE LONG CONSTANT SYSEVT$M_REPEAT_NOTIFY = 1 ! Bit 0 represents whether the event notification is ao DECLARE LONG CONSTANT SYSEVT$V_REPEAT_NOTIFY = 0 ! one shot deal or should be a repeating notification. wwx! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  5 DECLARE LONG CONSTANT TBK$s_tbk_api_param = 152 record tbk_api_paramO WORD TBK$W_LENGTH ! Input, structure length, by valueB BYTE TBK$B_TYPE ! Input, must be zero.O BYTE TBK$B_VERSION ! Input, version of this structure.B LONG TBK$L_RESERVEDA ! Input, must be zero.G BASIC$QUADWORD TBK$Q_FAULTING_PC ! Input, pc value, by valueL BASIC$QUADWORD TBK$Q_FAULTING_FP ! Input, frame pointer, by valueI BASIC$QUADWORD TBK$PQ_FILENAME_DESC ! Output, string descriptorO BASIC$QUADWORD TBK$PQ_LIBRARY_MODULE_DESC ! Output, string descriptors BASIC$QUADWORD TBK$PQ_RECORD_NUMBER ! Output, record number within filename or within text library moduleS BASIC$QUADWORD TBK$PQ_IMAGE_DESC ! Output, string descriptor, image nameT BASIC$QUADWORD TBK$PQ_MODULE_DESC ! Output, string descriptor, module nameV BASIC$QUADWORD TBK$PQ_ROUTINE_DESC ! Output, string descriptor, routine nameU BASIC$QUADWORD TBK$PQ_LISTING_LINENO ! Output, compiler listing line number_ BASIC$QUADWORD TBK$PQ_REL_PC ! Output, relative pc within module or within image| BASIC$QUADWORD TBK$PQ_IMAGE_BASE_ADDR ! Output, base address of the image which contains the pc value object code, ! by reference BASIC$QUADWORD TBK$PQ_MODULE_BASE_ADDR ! Output, base address of the module, which contains the pc value object code, ! by referenceH ! Input, address of a routine, which provides malloc() functionality) BASIC$QUADWORD TBK$PQ_MALLOC_RTNF ! Input, address of a routine, which provides free() funct ionality' BASIC$QUADWORD TBK$PQ_FREE_RTNR ! Input, address of a quadword, specifying options to be provided by this call. BASIC$QUADWORD TBK$PQ_SYMBOLIZE_FLAGS< BASIC$QUADWORD TBK$Q_RESERVED0 ! Reserved by HP< BASIC$QUADWORD TBK$Q_RESERVED1 ! Reserved by HP< BASIC$QUADWORD TBK$Q_RESERVED2 ! Reserved by HP end record tbk_api_param . DECLARE LONG CONSTANT tbk$k_length = 152. DECLARE LONG CONSTANT tbk$c_length = 152-  DECLARE LONG CONSTANT tbk$k_version = 1 ! B ! ************************************************************ ! SYMBOLIZE_FLAGS options> ! The following may be applied to the quadword pointed to$ ! by the SYMBOLIZE_FLAGS field. ! 7 ! EXCEPTION_IS_FAULT values affect line number and% ! record number calculation.V ! On an API entry, when an exception has occurred in a frame, select the value 1.\ ! 0=> (Default) Program Adjusts the PC value to  correctly determine the line numberO ! 1=> Program Uses the supplied PC value to determine the line number  ! 0 ! ENTRY_TYPE values which affect processing2 ! 0=> TRACE was entered via the API ENTRYG ! 1=> TRACE was entered via the TRACEBACK exception processing ! B ! ************************************************************B DECLARE LONG CONSTANT TBK$M_EXCEPTION_IS_FAULT = x'00000001': DECLARE LONG CONSTANT TBK$M_ENTRY_TYPE = x'00000000'9 DECLARE LONG CONSTANT TBK$s_tbk_symbolize_flags = 8 record tbk_symbolize_flags BYTE EXCEPTION_IS_FAULT_bits ( 8 ) ! COMMENT ADDED BY SDL - EXCEPTION_IS_FAULT_bits contains bits EXCEPTION_IS_FAULT & ! through FILLER2$ end record tbk_symbolize_flags  wwv}! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! Thread Environment Block Definitions ! 6 DECLARE LONG CONSTANT TEB$M_ASTACT = x'00000001'5 DECLARE LONG CONSTANT TEB$M_ASTEN = x'00000002'+ DECLARE LONG CONSTANT TEB$S_TEB = 18 4 record TEBA BASIC$QUADWORD TEB$PQ_FLINK ! Forward queue linkB BASIC$QUADWORD TEB$PQ_BLINK ! Backward queue linkD WORD TEB$W_SIZE ! Size of TEB, in bytesE BYTE TEB$B_VERSION ! Version number for TEBJ BYTE TEB$B_TYPE ! Structure type code for TEBH BYTE TEB$b_reserved_2 ( 1 to 4 ) ! Reserved to DECthreadsE BASIC$QUADWORD TEB$Q_SEQUENCE ! Thread sequence numberN BASIC$QUADWORD TEB$q_reserved_3 ( 1 to 2 ) ! Reserved to DECthreadsP BASIC$QUADWORD TEB$PQ_PER_KT_AREA ! Address of per kernel thread areaT BASIC$QUADWORD TEB$PQ_STACK_BASE ! Address of first usable byte in stackV BASIC$QUADWORD TEB$PQ_STACK_RESERVE ! Address of first byte in reserve areaT BASIC$QUADWORD TEB$PQ_STACK_YELLOW ! Address of first byte in yellow areaR BASIC$QUADWORD TEB$PQ_STACK_GUARD ! Address of first byte  in guard area` BASIC$QUADWORD TEB$Q_STACK_SIZE ! Total stack allocation (green+reserve+yellow+red)T BASIC$QUADWORD TEB$PQ_TSD_VALUES ! Address of thread-specific data arrayS LONG TEB$L_TSD_COUNT ! Count of thread-specific data values; LONG TEB$L_CANCEL_FLAGS ! cancel flagsL LONG TEB$L_CANCEL_COUNT ! CMA alert scope nesting count group TEB$R_FILL_27_ variant case;  LONG TEB$L_THREAD_FLAGS ! thread flags case& group TEB$R_FILL_28_7 ! there's a user mode AST active2 ! use mode ASTs are enabledr BYTE ASTACT_bits ! COMMENT ADDED BY SDL - ASTACT_bits contains bits ASTACT through FILL_29_* end group TEB$R_FILL_28_ end variant! end group TEB$R_FILL_27_E LONG TEB$L_THD_ERRNO ! Per-thread errno valueE LONG TEB$l_reserved_4 ! Reserved to DECthreadsH BASIC$QUADWORD TEB$PQ_STACK_HIWATER ! Lowest known SP address@ LONG TEB$L_HOME_RAD ! Thread's home RADM LONG TEB$L_RAD_SAFE ! Scratch: written by Tru64 UNIXG BASIC$QUADWORD TEB$PQ_REG_STACK_BASE ! Current regstack baseP BASIC$QUADWORD TEB$PQ_REG_STACK_YELLOW ! Current regstack yellow zoneN BASIC$QUADWORD TEB$PQ_REG_STACK _GUARD ! Current regstack guard zoneB BASIC$QUADWORD TEB$PQ_REG_STACK_SIZE ! Size of regstackF BASIC$QUADWORD TEB$PQ_REG_STACK_HIWATER ! Highest known bsp end record TEB A DECLARE LONG CONSTANT TEB$K_LENGTH = 184 ! Length of TEB A DECLARE LONG CONSTANT TEB$C_LENGTH = 184 ! Length of TEB V DECLARE LONG CONSTANT TEB$C_TSD_KEY_SSPI = 1 ! TSD key value reserved for SSPI ww! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! T ! TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE,8 ! AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. ! G DECLARE LONG CONSTANT TPA$K_COUNT0 = 8 ! ZERO LE VEL VALUE IS 8 6 DECLARE LONG CONSTANT TPA$M_BLANKS = x'00000001'6 DECLARE LONG CONSTANT TPA$M_ABBREV = x'00000002'6 DECLARE LONG CONSTANT TPA$M_ABBRFM = x'00000004'5 DECLARE LONG CONSTANT TPA$M_AMBIG = x'00010000'X DECLARE LONG CONSTANT TPA$K_LENGTH0 = 36 ! LENGTH OF ZERO LEVEL PARAMETER BLOCK X DECLARE LONG CONSTANT TPA$C_LENGTH0 = 36 ! LENGTH OF ZERO LEVEL PARAMETER BLOCK - DECLARE LONG CONSTANT TPA$S_TPADEF = 36 record TPADEFT LONG TPA$L_COUNT ! ARGUMENT COUNT (NUMBER OF LONGWORDS) $ group TPA$R_OPTIONS_OVERLAY variant case@ LONG TPA$L_OPTIONS ! OPTIONS LONGWORD  case* group TPA$R_OPTIONS_BITS< ! PROCESS BLANKS AND TABS EXPLICITLY 4 ! ALLOW MINIMAL ABBREVIATION 8 ! ALLOW FIRST MATCH ABBREVIATION 9 ! AMBIGUOUS KEYWORD AT THIS STATE r LONG BLANKS_bits ! COMMENT ADDED BY SDL - BLANKS_bits contains bits BLANKS through FILL_30_. end group TPA$R_OPTIONS_BITS case, group TPA$R_OPTIONS_FIELDS4 BYTE TPADEF$$_FILL_2 ( 1 to 3 )P BYTE TPA$B_MCOUNT ! MINIMUM ABBREVIATION ON KEYWORDS 0 end group TPA$R_OPTIONS_FIELDS end variant( end group TPA$R_OPTIONS_OVERLAYQ  LONG TPA$L_STRINGCNT ! BYTE COUNT OF STRING BEING PARSED N LONG TPA$L_STRINGPTR ! ADDRESS OF STRING BEING PARSED T LONG TPA$L_TOKENCNT ! BYTE COUNT OF CURRENT MATCHING TOKEN I LONG TPA$L_TOKENPTR ! ADDRESS OF MATCHING TOKEN # group TPA$R_NUMBER_OVERLAY variant case+ group TPA$R_NUMBER_STRUCT- group TPA$R_CHAR_OVERLAY  variant caseT LONG TPA$L_CHAR ! ASCII CODE OF SINGLE CHARACTER TOKEN  caseM BYTE TPA$B_CHAR ! BYTE FORM OF SINGLE CHAR CELL # end variant1 end group TPA$R_CHAR_OVERLAYN LONG TPA$L_NUMBER ! NUMERIC VALUE OF NUMERIC TOKEN / end group TPA$R_NUMBER_STRUCT caseX  BASIC$QUADWORD TPA$Q_NUMBER ! 64-bit NUMERIC VALUE OF NUMERIC TOKEN  end variant' end group TPA$R_NUMBER_OVERLAYS LONG TPA$L_PARAM ! PARAMETER LONGWORD FROM STATE TABLE  end record TPADEF  ! T ! TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE,8 ! AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. ! K DECLARE LONG CONSTANT TPA64$K_COUNT0 = -1 ! ZERO LEVEL VALUE IS -1 8 DECLARE LONG CONSTANT TPA64$M_BLANKS = x'00000001'8 DECLARE LONG CONSTANT TPA64$M_ABBREV = x'00000002'8 DECLARE LONG CONSTANT TPA64$M_ABBRFM = x'00000004'7 DECLARE LONG CONSTANT TPA64$M_AMBIG = x'00010000'Z DECLARE LONG CONSTANT TPA64$K_LENGTH0 = 80 ! LENGTH OF ZERO LEVEL PARAMETER BLOCK Z DECLARE LONG CONSTANT TPA64$C_LENGTH0 = 80 ! LENGTH OF ZERO LEVEL PARAMETER BLOCK 1 DECLARE LONG CONSTANT TPA64$S_TPA64DEF = 80 record TPA64DEFT LONG TPA64$ L_COUNT ! ARGUMENT COUNT (NUMBER OF LONGWORDS) & group TPA64$R_OPTIONS_OVERLAY variant case@ LONG TPA64$L_OPTIONS ! OPTIONS LONGWORD  case, group TPA64$R_OPTIONS_BITS< ! PROCESS BLANKS AND TABS EXPLICITLY 4 ! ALLOW MINIMAL ABBREVIATION 8 ! ALLOW FIRST MATCH ABBREVIATION 9 ! AMBIGUOUS KEYWORD AT TH IS STATE r LONG BLANKS_bits ! COMMENT ADDED BY SDL - BLANKS_bits contains bits BLANKS through FILL_31_0 end group TPA64$R_OPTIONS_BITS case. group TPA64$R_OPTIONS_FIELDS6 BYTE TPA64DEF$$_FILL_2 ( 1 to 3 )P BYTE TPA64$B_MCOUNT ! MINIMUM ABBREVIATION ON KEYWORDS 2 end group TPA64$R_OPTIONS_FIELDS end variant* end group TPA64$R_OPTIONS_OVERLAYZ BASIC$QUADWORD TPA64$Q_STRINGDESC ! DSC64 first quadword of string being parsedQ BASIC$QUADWORD TPA64$Q_STRINGCNT ! BYTE COUNT OF STRING BEING PARSED N BASIC$QUADWORD TPA64$Q_STRINGPTR ! ADDRESS OF STRING BEING PARSED ^ BASIC$QUADWORD TPA64$Q_TOKENDESC ! DSC64 first quadword OF CURRENT MATCHING TOKEN T BASIC$QUADWORD TPA64$Q_TOKENCNT ! BYTE COUNT OF CURRENT MATCHING TOKEN I BASIC$QUADWORD TPA64$Q_TOKENPTR ! ADDRESS OF MATCHING  TOKEN # group TPA64$R_CHAR_OVERLAY variant caseW BASIC$QUADWORD TPA64$Q_CHAR ! ASCII CODE OF SINGLE CHARACTER TOKEN  caseM BYTE TPA64$B_CHAR ! BYTE FORM OF SINGLE CHAR CELL  end variant' end group TPA64$R_CHAR_OVERLAYN BASIC$QUADWORD TPA64$Q_NUMBER ! NUMERIC VALUE OF NUMERIC TOKEN S BASIC$QUADWORD TPA64$Q_PARAM ! PARAMETER LONGWORD FROM STATE TABLE  end record TPA64DEF  ww6! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  ) ! Item list codes for TPU$INITIALIZE] DECLARE LONG CONSTANT TPU$_CHAIN = -1 ! Chain entry - Matches other VMS CHAIN entriesS DECLARE LONG CONSTANT TPU$_ENDLIST = 0 ! End of list [*** Must be zero ***]Q DECLARE LONG CONSTANT TPU$_OPTIONS = 1 ! Command line options (see below); DECLARE LONG CONSTANT TPU$_FILENAME = 6 ! File nameH DECLARE LONG CONSTANT TPU$_OTHER_FILENAMES = 7 ! more filenames A DECLARE LONG CONSTANT TPU$_FILEIO = 14 ! File I/O routineD DECLARE LONG CONSTANT TPU$_CALLUSER = 15 ! CALL_USER routineI DECLARE LONG CONSTANT TPU$_JOURNALFILE = 16 ! /JOURNAL= file nameI DECLARE LONG CONSTANT TPU$_SECTIONFILE = 19 ! /SECTION= file nameG DECLARE LONG CONSTANT TPU$_OUTPUTFILE = 20 ! /OUTPUT= file nameI DECLARE LONG CONSTANT TPU$_COMMANDFILE = 21 ! /COMMAND= file nameV DECLARE LONG CONSTANT TPU$_DISPLAYFILE = 22 ! /DISPLAY= keyword -or- file nameG DECLARE LONG CONSTANT TPU$_CTRL_C_ROUTINE = 23 ! CTRL/C routineI DECLARE LONG CONSTANT TPU$_FREEITEMLIST = 24 ! Free the item listE DECLARE LONG CONSTANT TPU$_DEBUGFILE = 25 ! /DEBUG= file nameG DECLARE LONG CONSTANT TPU$_FILE_PARSE = 26 ! FILE_PARSE routineI DECLARE LONG CONSTANT TPU$_FILE_SEARCH = 27 ! FILE_SEARCH routineO DECLARE LONG CONSTANT TPU$_TERMINAL_INPUT = 28 ! Terminal input routineT DECLARE LONG CONSTANT TPU$_KANJI_DICFILE = 29 ! /KANJI_DICTIONARY= file nameU DECLARE LONG CONSTANT TPU$_TEXT_LANGUAGE = 30 ! /TEXT_LANGUAGE= language nameK DECLARE LONG CONSTANT TPU$_DEFAULTSFILE = 31 ! /DEFAULTS= file name^ DECLARE LONG CONSTANT TPU$_PARENT_WIDGET = 32 ! DECwindows widget to use as our parentI DECLARE LONG CONSTANT TPU$_EXTENSION = 33 ! Extension Table EntryI DECLARE LONG CONSTANT TPU$_GET_DEFAULT = 34 ! GET_DEFAULT routineI DECLARE LONG CONSTANT TPU$_SET_DEFAULT = 35 ! SET_DEFAULT routineC DECLARE LONG CONSTANT TPU$_WORKFILE = 36 ! /WORK= file name\ DECLARE LONG CONSTANT TPU$_APPLICATION_CONTEXT = 37 ! Decwindows application contextY DECLARE LONG CONSTANT TPU$_CHARACTERSET = 38 ! /CHARACTER_SET= character set nameN DECLARE LONG CONSTANT TPU$_LANGUAGE = 257 ! LSE's /LANGUAGE= file nameP DECLARE LONG CONSTANT TPU$_ENVFILE = 258 ! LSE's /ENVIRONMENT= file nameO DECLARE LONG CONSTANT TPU$_INIT_FILE = 259 ! /INITIALIZATION= file nameK DECLARE LONG CONSTANT TPU$_START_LINE = 260 ! /START_POSITION= lineP DECLARE LONG CONSTANT TPU$_START_CHAR = 261 ! /START_POSITION= character] DECLARE LONG CONSTANT TPU$_SYSTEM_ENVFILE = 262 ! LSE's /SYSTEM_ENVIROMENT = file name# ! Item list codes for file I/OL DECLARE LONG CONSTANT TPU$_ACCESS = 4 ! File access type (see below)? DECLARE LONG CONSTANT TPU$_FLUSH = 5 ! Flush after Puts; DECLARE LONG CONSTANT TPU$_FILESIZE = 7 ! File sizeF DECLARE LONG CONSTANT TPU$_RECORD_ATTR = 8 ! Record attributesB DECLARE LONG CONSTANT TPU$_RECORD_FORM = 9 ! Record formatN DECLARE LONG CONSTANT TPU$_MAXIMIZE_VER = 10 ! Maximize version numberG DECLARE LONG CONSTANT TPU$_DEFAULTFILE = 17 ! Default file nameG DECLARE LONG CONSTANT TPU$_RELATEDFILE = 18 ! Related file nameW DECLARE LONG CONSTANT TPU$_FILE_RECOVERABLE = 19 ! File available upon recovery` DECLARE LONG CONSTANT TPU$_TRN_TPT = 20 ! File will allow truncates - journal files onlyI DECLARE LONG CONSTANT TPU$_CREATE_TIME = 257 ! Creation date/time> DECLARE LONG CONSTANT TPU$_EOF_BLOCK = 258 ! EOF blockF DECLARE LONG CONSTANT TPU$_EOF_FFB = 259 ! EOF fir st free byte ! TPU$_OPTIONS flags7 DECLARE LONG CONSTANT TPU$M_RECOVER = x'00000001'7 DECLARE LONG CONSTANT TPU$M_JOURNAL = x'00000002'4 DECLARE LONG CONSTANT TPU$M_READ = x'00000004'7 DECLARE LONG CONSTANT TPU$M_SECTION = x'00000008'6 DECLARE LONG CONSTANT TPU$M_OUTPUT = x'00000010'7 DECLARE LONG CONSTANT TPU$M_COMMAND = x'00000020'7 DECLARE LONG CONSTANT TPU$M_DISPLAY = x'00000040'6 DECLARE LONG CONSTANT TPU$M_CREATE = x'00000080'8 DE CLARE LONG CONSTANT TPU$M_STARTPOS = x'00000100'> DECLARE LONG CONSTANT TPU$M_COMMAND_DFLTED = x'00000200'5 DECLARE LONG CONSTANT TPU$M_DEBUG = x'00000400'; DECLARE LONG CONSTANT TPU$M_NOKANJI_DIC = x'00000800'= DECLARE LONG CONSTANT TPU$M_TEXT_LANGUAGE = x'00001000'8 DECLARE LONG CONSTANT TPU$M_DEFAULTS = x'00002000': DECLARE LONG CONSTANT TPU$M_NODEFAULTS = x'00004000'; DECLARE LONG CONSTANT TPU$M_ENVIRONMENT = x'00010000'4 DECLARE LONG CONSTANT TP U$M_INIT = x'00020000': DECLARE LONG CONSTANT TPU$M_SYSTEM_ENV = x'00040000'< DECLARE LONG CONSTANT TPU$M_CURRENT_FILE = x'00080000'5 DECLARE LONG CONSTANT TPU$M_WRITE = x'00100000'6 DECLARE LONG CONSTANT TPU$M_MODIFY = x'00200000'8 DECLARE LONG CONSTANT TPU$M_NOMODIFY = x'00400000'5 DECLARE LONG CONSTANT TPU$M_NOMAP = x'00800000'4 DECLARE LONG CONSTANT TPU$M_WORK = x'01000000'< DECLARE LONG CONSTANT TPU$M_SEC_LNM_MODE = x'02000000'7 DECLARE LONG CONSTANT TPU$M_CHARSET = x'04000000'. DECLARE LONG CONSTANT TPU$S_FILL_32_ = 4 record FILL_32_ variant case! LONG TPU$L_OPTIONS case# group TPU$R_FILL_33_ ! /RECOVER ! /JOURNAL ! /READ_ONLY ! /SECTION ! /OUTPUT ! /COMMAND ! /DISPLAY ! /CREATE%  ! /START_POSITION( ! /COMMAND defaulted ! /DEBUG' ! /KANJI_DICTIONARY$ ! /TEXT_LANGUAGE( ! Explicit /DEFAULTS* ! Explicit /NODEFAULTS( ! LSE's /ENVIRONMENT% ! /INITIALIZATION/ ! LSE's /SYSTEM_ENVIRONMENT) ! LSE's /CURRENT_FILE ! /WRITE& ! Explicit  /MODIFY( ! Explicit /NOMODFIY5 ! Don't map top DECwindows widget ! /WORK/ ! Section logical name mode$ ! /CHARACTER_SETp LONG RECOVER_bits ! COMMENT ADDED BY SDL - RECOVER_bits contains bits RECOVER through bit_31' end group TPU$R_FILL_33_ end variant end record FILL_32_ # ! Access codes for TPU$_ACCESSH DECLARE LONG CONSTANT TPU$K_INPUT = 0 ! Open file for input onlyJ DECLARE LONG CONSTANT TPU$K_OUTPUT = 1 ! Open file for output onlyR DECLARE LONG CONSTANT TPU$K_IO = 2 ! Open file for both input and outputT DECLARE LONG CONSTANT TPU$K_OUTPUT_DDIF = 3 ! Open file for DDIF output only ! Codes for file I/O: DECLARE LONG CONSTANT TPU$K_OPEN = 0 ! Open a file< DECLARE LONG CONSTANT TPU$K_CLOSE = 1 ! Close a fileN DECLARE LONG CONSTANT TPU$K_CLOSE_DELETE = 2 ! Close and d elete a fileE DECLARE LONG CONSTANT TPU$K_PUT = 3 ! Put a record to a fileG DECLARE LONG CONSTANT TPU$K_GET = 4 ! Get a record from a file@ DECLARE LONG CONSTANT TPU$K_REWIND = 5 ! Rewind the file, ! FILE_PARSE and FILE_SEARCH item flags4 DECLARE LONG CONSTANT TPU$M_NODE = x'00000001'3 DECLARE LONG CONSTANT TPU$M_DEV = x'00000002'3 DECLARE LONG CONSTANT TPU$M_DIR = x'00000004'4 DECLARE LONG CONSTANT TPU$M_NAME = x'00000008'4 DECLARE LONG CONSTANT TPU$M_TYPE = x'00000010'3 DECLARE LONG CONSTANT TPU$M_VER = x'00000020'4 DECLARE LONG CONSTANT TPU$M_HEAD = x'00000040'4 DECLARE LONG CONSTANT TPU$M_TAIL = x'00000080'7 DECLARE LONG CONSTANT TPU$M_REPARSE = x'00010000'. DECLARE LONG CONSTANT TPU$S_FILL_34_ = 4 record FILL_34_ variant case$ LONG TPU$L_ITEM_FLAGS case# group TPU$R_FILL_35_! ! Return node#  ! Return device& ! Return directory! ! Return name! ! Return type$ ! Return version7 ! Return head (Ultrix node+dev+dir)8 ! Return tail (Ultrix name+type+ver)0 ! Reparse (FILE_SEARCH only)i LONG NODE_bits ! COMMENT ADDED BY SDL - NODE_bits contains bits NODE through FILL_36_' end group TPU$R_FILL_35_ end v ariant end record FILL_34_  ! Codes for terminal inputT DECLARE LONG CONSTANT TPU$K_INITIALIZE_INPUT = 0 ! Initialize terminal inputO DECLARE LONG CONSTANT TPU$K_TYPEAHEAD_COUNT = 1 ! Fetch typeahead countX DECLARE LONG CONSTANT TPU$K_CANCEL_INPUT = 2 ! Cancel outstanding terminal inputP DECLARE LONG CONSTANT TPU$K_READ_CHARACTER = 3 ! Read a single characterQ DECLARE LONG CONSTANT TPU$K_READ_STRING = 4 ! Read a string of charactersN DECLARE LONG CONSTANT TPU$K_READ_LINE = 5 ! Read a line with promptingR DECLARE LONG CONSTANT TPU$K_TERMINATE_INPUT = 6 ! Terminate terminal inputa DECLARE LONG CONSTANT TPU$K_READ_TYPEAHEAD_NOECHO = 7 ! Read the typeahead and don't echo ! TPU$CLEANUP flags> DECLARE LONG CONSTANT TPU$M_DELETE_JOURNAL = x'00000001'< DECLARE LONG CONSTANT TPU$M_DELETE_EXITH = x'00000002'> DECLARE LONG CONSTANT TPU$M_DELETE_BUFFERS = x'00000004'> DECLARE LONG CONSTANT TPU$ M_DELETE_WINDOWS = x'00000008'< DECLARE LONG CONSTANT TPU$M_DELETE_CACHE = x'00000010'; DECLARE LONG CONSTANT TPU$M_PRUNE_CACHE = x'00000020'< DECLARE LONG CONSTANT TPU$M_EXECUTE_FILE = x'00000040'< DECLARE LONG CONSTANT TPU$M_EXECUTE_PROC = x'00000080'> DECLARE LONG CONSTANT TPU$M_DELETE_CONTEXT = x'00000100'> DECLARE LONG CONSTANT TPU$M_RESET_TERMINAL = x'00000200'> DECLARE LONG CONSTANT TPU$M_KILL_PROCESSES = x'00000400'= DECLARE LONG CONSTANT TPU$M_CLOSE_SECTION = x'00000800'= DECLARE LONG CONSTANT TPU$M_DELETE_OTHERS = x'00001000'9 DECLARE LONG CONSTANT TPU$M_LAST_TIME = x'00002000'? DECLARE LONG CONSTANT TPU$M_CLOSE_KANJI_DIC = x'00004000'. DECLARE LONG CONSTANT TPU$S_FILL_37_ = 4 record FILL_37_ variant case! LONG TPU$L_CLEANUP case# group TPU$R_FILL_38_$ ! Delete journal) ! Delete exit handler$  ! Delete buffers$ ! Delete windows# ! Delete caches" ! Purge caches- ! Re-execute command file3 ! Re-execute TPU$INIT_PROCEDURE( ! Delete all context* ! Reset terminal state) ! Delete subprocesses( ! Close section file* ! Delete miscellaneous ! Last call& ! Close dictionary WORD DELETE_JOURNAL_bits ! COMMENT ADDED BY SDL - DELETE_JOURNAL_bits contains bits DELETE_JOURNAL through & ! FILL_39_' end group TPU$R_FILL_38_ end variant end record FILL_37_  ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! 2 ! Define symbols for the item list QIO format !  ! Item list type codes. DECLARE LONG CONSTANT TRM$_MODIFIERS = 0- DECLARE LONG CONSTANT TRM$_EDITMODE = 1, DECLARE LONG CON STANT TRM$_TIMEOUT = 2) DECLARE LONG CONSTANT TRM$_TERM = 3+ DECLARE LONG CONSTANT TRM$_PROMPT = 4- DECLARE LONG CONSTANT TRM$_INISTRNG = 5- DECLARE LONG CONSTANT TRM$_PICSTRNG = 6, DECLARE LONG CONSTANT TRM$_FILLCHR = 7. DECLARE LONG CONSTANT TRM$_INIOFFSET = 8. DECLARE LONG CONSTANT TRM$_ALTECHSTR = 9/ DECLARE LONG CONSTANT TRM$_ESCTRMOVR = 10K DECLARE LONG CONSTANT TRM$_LASTITM = 11 ! must remain the last item/ DECLARE LONG CONSTAN T TRM$_RESERVE12 = 12/ DECLARE LONG CONSTANT TRM$_RESERVE13 = 13/ DECLARE LONG CONSTANT TRM$_RESERVE14 = 14/ DECLARE LONG CONSTANT TRM$_RESERVE15 = 15/ DECLARE LONG CONSTANT TRM$_RESERVE16 = 16/ DECLARE LONG CONSTANT TRM$_RESERVE17 = 17/ DECLARE LONG CONSTANT TRM$_RESERVE18 = 18/ DECLARE LONG CONSTANT TRM$_RESERVE19 = 19/ DECLARE LONG CONSTANT TRM$_RESERVE20 = 20/ DECLARE LONG CONSTANT TRM$_RESERVE21 = 21/ DECLARE LONG CONSTANT TRM$ _RESERVE22 = 22/ DECLARE LONG CONSTANT TRM$_RESERVE23 = 23/ DECLARE LONG CONSTANT TRM$_RESERVE24 = 24/ DECLARE LONG CONSTANT TRM$_RESERVE25 = 25/ DECLARE LONG CONSTANT TRM$_RESERVE26 = 26/ DECLARE LONG CONSTANT TRM$_RESERVE27 = 27/ DECLARE LONG CONSTANT TRM$_RESERVE28 = 28/ DECLARE LONG CONSTANT TRM$_RESERVE29 = 29/ DECLARE LONG CONSTANT TRM$_RESERVE30 = 30O DECLARE LONG CONSTANT TRM$_RECLINE = 31 ! Reserved for exclusive use by, !  Japanese input method; this code MUST, ! remain in the invalid item code range !  ! Editmode type codes ! 0 DECLARE LONG CONSTANT TRM$K_EM_DEFAULT = 01 DECLARE LONG CONSTANT TRM$K_EM_RDVERIFY = 19 DECLARE LONG CONSTANT TRM$M_TM_NOECHO = x'00000040'8 DECLARE LONG CONSTANT TRM$M_TM_TIMED = x'00000080'9 DECLARE LONG CONSTANT TRM$M_TM_CVTLOW = x'00000100': DECLARE LONG CONSTANT TRM$M_TM_NOFILTR = x'00000200'; DECLARE LONG CONSTANT TRM$M_TM _DSABLMBX = x'00000400'8 DECLARE LONG CONSTANT TRM$M_TM_PURGE = x'00000800'< DECLARE LONG CONSTANT TRM$M_TM_TRMNOECHO = x'00001000': DECLARE LONG CONSTANT TRM$M_TM_REFRESH = x'00002000'9 DECLARE LONG CONSTANT TRM$M_TM_ESCAPE = x'00004000'9 DECLARE LONG CONSTANT TRM$M_TM_NOEDIT = x'00008000'; DECLARE LONG CONSTANT TRM$M_TM_NORECALL = x'00010000'9 DECLARE LONG CONSTANT TRM$M_TM_R_JUST = x'00020000'; DECLARE LONG CONSTANT TRM$M_TM_AUTO_TAB = x'00040000 '9 DECLARE LONG CONSTANT TRM$M_TM_ARROWS = x'00080000'= DECLARE LONG CONSTANT TRM$M_TM_TERM_ARROW = x'00100000'; DECLARE LONG CONSTANT TRM$M_TM_TERM_DEL = x'00200000'9 DECLARE LONG CONSTANT TRM$M_TM_TOGGLE = x'00400000'; DECLARE LONG CONSTANT TRM$M_TM_OTHERWAY = x'00800000': DECLARE LONG CONSTANT TRM$M_TM_NOCLEAR = x'01000000'8 DECLARE LONG CONSTANT TRM$M_CV_UPPER = x'00000001'8 DECLARE LONG CONSTANT TRM$M_CV_LOWER = x'00000002': DECLARE LONG  CONSTANT TRM$M_CV_NUMERIC = x'00000004': DECLARE LONG CONSTANT TRM$M_CV_NUMPUNC = x'00000008'< DECLARE LONG CONSTANT TRM$M_CV_PRINTABLE = x'00000010'6 DECLARE LONG CONSTANT TRM$M_CV_ANY = x'00000020'= DECLARE LONG CONSTANT TRM$M_ST_FIELD_FULL = x'00000001'; DECLARE LONG CONSTANT TRM$M_ST_OTHERWAY = x'00000002', DECLARE LONG CONSTANT TRM$S_TRMDEF = 4 record TRMDEF variant case' group TRM$R_TRMDEF_BITS0#  ! FUNCTION CODE  ! NOECHO  ! TIMED ( ! CONVERT LOWER CASE  ! NO FILTER % ! DISABLE MAILBOX % ! PURGE TYPEAHEAD 0 ! TERMINATORS ARE NOT ECHOED 1 ! Control-R interrupted read n7 ! TERMINATE READ ON ESCAPE SEQUENCE - ! DISABLE ADVANCED EDITINGC ! Disable the recall feature of advance d editing( ! Right justification# ! Auto tab field4 ! enable left ? right arrow keys/ ! pass arrows as terminator. ! pass as terminator4 ! allow insert/overstrike toggle> ! overstrike R-justify or insert L-justifyH ! don't replace fill with clear after first non-fillo LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_b its contains bits FILL_1 through FILL_40_+ end group TRM$R_TRMDEF_BITS0 caseB group TRM$R_TRMDEF_BITS1 ! picture string mask ! upper case ! lower case# ! numeric (0-9)1 ! numeric punctuation (+ - .)) ! printable character# ! any characteru BYTE CV_UPPER_bits ! COMMENT ADDED BY SDL - CV_UPPER_bits contains bit s CV_UPPER through FILL_41_+ end group TRM$R_TRMDEF_BITS1 case' group TRM$R_TRMDEF_BITS2J ! field full condition IOSB+7 contains index to cursorE ! left-justify insert OR right-justify overstrike~ BYTE ST_FIELD_FULL_bits ! COMMENT ADDED BY SDL - ST_FIELD_FULL_bits contains bits ST_FIELD_FULL through & ! FILL_42_+ end group TRM$R_TRMDEF_BITS2 end variant end record TRMDEF  wwr! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! & ! DEFINE TERMINAL SPECIAL SYMBOLS ! , DECLARE LONG CONSTANT TT$C_BAUD_50 = 1, DECLARE LONG CONSTANT TT$C_BAUD_75 = 2- DECLARE LONG CONSTANT TT$C_BAUD_110 = 3- DECLARE LONG C ONSTANT TT$C_BAUD_134 = 4- DECLARE LONG CONSTANT TT$C_BAUD_150 = 5- DECLARE LONG CONSTANT TT$C_BAUD_300 = 6- DECLARE LONG CONSTANT TT$C_BAUD_600 = 7. DECLARE LONG CONSTANT TT$C_BAUD_1200 = 8. DECLARE LONG CONSTANT TT$C_BAUD_1800 = 9/ DECLARE LONG CONSTANT TT$C_BAUD_2000 = 10/ DECLARE LONG CONSTANT TT$C_BAUD_2400 = 11/ DECLARE LONG CONSTANT TT$C_BAUD_3600 = 12/ DECLARE LONG CONSTANT TT$C_BAUD_4800 = 13/ DECLARE LONG CONSTANT TT$C_BAUD_ 7200 = 14/ DECLARE LONG CONSTANT TT$C_BAUD_9600 = 150 DECLARE LONG CONSTANT TT$C_BAUD_19200 = 160 DECLARE LONG CONSTANT TT$C_BAUD_38400 = 170 DECLARE LONG CONSTANT TT$C_BAUD_57600 = 180 DECLARE LONG CONSTANT TT$C_BAUD_76800 = 191 DECLARE LONG CONSTANT TT$C_BAUD_115200 = 20 ! *** MATCHES DCDEF MACRO + DECLARE LONG CONSTANT TT$_UNKNOWN = 04 DECLARE LONG CONSTANT TT$_VT05 = 1 ! VT05 A DECLARE LONG CONSTANT TT$_VK100 = 2 ! strange ter minals ) DECLARE LONG CONSTANT TT$_VT173 = 3* DECLARE LONG CONSTANT TT$_TQ_BTS = 4, DECLARE LONG CONSTANT TT$_TEK401X = 10F DECLARE LONG CONSTANT TT$_FT1 = 16 ! FOREIGN TERMINAL TYPES H DECLARE LONG CONSTANT TT$_FT2 = 17 ! new support also includesC DECLARE LONG CONSTANT TT$_FT3 = 18 ! the negative numbers( DECLARE LONG CONSTANT TT$_FT4 = 19( DECLARE LONG CONSTANT TT$_FT5 = 20( DECLARE LONG CONSTANT TT$_FT6 = 21( DECLARE LONG C ONSTANT TT$_FT7 = 22D DECLARE LONG CONSTANT TT$_FT8 = 23 ! END OF FOREIGN TYPES + ! RESERVE REST UP TO 32 FOR EXTENSIONS( DECLARE LONG CONSTANT TT$_LAX = 32) DECLARE LONG CONSTANT TT$_LA36 = 32* DECLARE LONG CONSTANT TT$_LA120 = 33) DECLARE LONG CONSTANT TT$_LA34 = 34) DECLARE LONG CONSTANT TT$_LA38 = 35) DECLARE LONG CONSTANT TT$_LA12 = 36* DECLARE LONG CONSTANT TT$_LA100 = 37) DECLARE LONG CONSTANT TT$_LA24 = 37* DECLARE LONG  CONSTANT TT$_LQP02 = 38) DECLARE LONG CONSTANT TT$_LA84 = 39* DECLARE LONG CONSTANT TT$_LA210 = 40) DECLARE LONG CONSTANT TT$_LN03 = 41* DECLARE LONG CONSTANT TT$_LN01K = 42) DECLARE LONG CONSTANT TT$_LA80 = 43) DECLARE LONG CONSTANT TT$_VT5X = 64) DECLARE LONG CONSTANT TT$_VT52 = 64) DECLARE LONG CONSTANT TT$_VT55 = 655 DECLARE LONG CONSTANT TT$_VT100 = 96 ! VT100 * DECLARE LONG CONSTANT TT$_VT101 = 97* DECLARE LONG CONSTANT TT$_VT102 = 98* DECLARE LONG CONSTANT TT$_VT105 = 99+ DECLARE LONG CONSTANT TT$_VT125 = 100+ DECLARE LONG CONSTANT TT$_VT131 = 101+ DECLARE LONG CONSTANT TT$_VT132 = 102* DECLARE LONG CONSTANT TT$_VT80 = 1032 DECLARE LONG CONSTANT TT$_VT200_Series = 1100 DECLARE LONG CONSTANT TT$_Pro_Series = 1112 DECLARE LONG CONSTANT TT$_VT300_Series = 1122 DECLARE LONG CONSTANT TT$_VT400_Series = 1132 DECLARE LONG CONSTANT TT$_VT500_Series = 114E !  from 128 on is reserved for foreign terminals and must not be $ ! used for terminal definitions6 DECLARE LONG CONSTANT TT$M_PASSALL = x'00000001'5 DECLARE LONG CONSTANT TT$M_NOECHO = x'00000002'8 DECLARE LONG CONSTANT TT$M_NOTYPEAHD = x'00000004'5 DECLARE LONG CONSTANT TT$M_ESCAPE = x'00000008'7 DECLARE LONG CONSTANT TT$M_HOSTSYNC = x'00000010'5 DECLARE LONG CONSTANT TT$M_TTSYNC = x'00000020'5 DECLARE LONG CONSTANT TT$M_SCRIPT = x'00000040'4 DECLARE LONG CONSTANT TT$M_LOWER = x'00000080'6 DECLARE LONG CONSTANT TT$M_MECHTAB = x'00000100'3 DECLARE LONG CONSTANT TT$M_WRAP = x'00000200'5 DECLARE LONG CONSTANT TT$M_CRFILL = x'00000400'5 DECLARE LONG CONSTANT TT$M_LFFILL = x'00000800'4 DECLARE LONG CONSTANT TT$M_SCOPE = x'00001000'5 DECLARE LONG CONSTANT TT$M_REMOTE = x'00002000'7 DECLARE LONG CONSTANT TT$M_RESERVED = x'00004000'7 DECLARE LONG CONSTANT TT$M_EIGHTBIT = x'00008000'7 DECL ARE LONG CONSTANT TT$M_MBXDSABL = x'00010000'7 DECLARE LONG CONSTANT TT$M_NOBRDCST = x'00020000'7 DECLARE LONG CONSTANT TT$M_READSYNC = x'00040000'7 DECLARE LONG CONSTANT TT$M_MECHFORM = x'00080000'6 DECLARE LONG CONSTANT TT$M_HALFDUP = x'00100000'4 DECLARE LONG CONSTANT TT$M_MODEM = x'00200000'3 DECLARE LONG CONSTANT TT$M_OPER = x'00400000'3 DECLARE LONG CONSTANT TT$M_PAGE = x'FF000000'7 DECLARE LONG CONSTANT TT$M_ALTFRAME = x'00000010'6 DE CLARE LONG CONSTANT TT$M_ALTRPAR = x'00000020'5 DECLARE LONG CONSTANT TT$M_PARITY = x'00000040'2 DECLARE LONG CONSTANT TT$M_ODD = x'00000080'6 DECLARE LONG CONSTANT TT$M_TWOSTOP = x'00000100'8 DECLARE LONG CONSTANT TT$M_DISPARERR = x'00000200'8 DECLARE LONG CONSTANT TT$M_ALTDISPAR = x'00000400'4 DECLARE LONG CONSTANT TT$M_BREAK = x'00000800'5 DECLARE LONG CONSTANT TT$M_DS_DTR = x'00000002'7 DECLARE LONG CONSTANT TT$M_DS_SECTX = x'00000008'5 DECL ARE LONG CONSTANT TT$M_DS_RTS = x'00000010'8 DECLARE LONG CONSTANT TT$M_DS_SECREC = x'00000008'5 DECLARE LONG CONSTANT TT$M_DS_CTS = x'00000010'9 DECLARE LONG CONSTANT TT$M_DS_CARRIER = x'00000020'6 DECLARE LONG CONSTANT TT$M_DS_RING = x'00000040'5 DECLARE LONG CONSTANT TT$M_DS_DSR = x'00000080'* DECLARE LONG CONSTANT TT$S_TTDEF = 4 record TTDEF variant case% group TT$R_TTDEF_BITS0n LONG PASSALL_bit s ! COMMENT ADDED BY SDL - PASSALL_bits contains bits PASSALL through PAGE) end group TT$R_TTDEF_BITS0 case% group TT$R_TTDEF_BITS1o WORD FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through FILL_43_) end group TT$R_TTDEF_BITS1 case% group TT$R_TTDEF_BITS2* ! OUTPUT MODEM CONTROL o BYTE FILL_3_bits ! COMMENT ADDED BY SDL - FILL _3_bits contains bits FILL_3 through FILL_44_) end group TT$R_TTDEF_BITS2 case% group TT$R_TTDEF_BITS3m BYTE FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through DS_DSR) end group TT$R_TTDEF_BITS3 end variant end record TTDEF  wwv $SYSEVTDEF$TBKDEF$TEBDEFa$TIRDEF$TPADEF$TPUDEF$TRMDEF$TT2DEF$TT3DEF $TTCDEF$TTDEF $TTYDPORTDEF $UAF070DEF3$UAIDEFL$UICDEFX$UIDDEFb$USGDEFj$USRIDEFw $UTCBLKDEFo$VADEF$VAXDEF $VA_RANGEDEF $WBEMIDEF$WWIDDEF  $XABALLDEF! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  9 DECLARE LONG CONSTANT TT2$M_LOCALECHO = x'00000001'8 DECLARE LONG CONSTANT TT2$M_AUTOBAUD = x'00000002'6 DECLARE LONG CONSTANT TT2$M_HANGUP = x'00000004'9 DECLARE LONG CONSTANT TT2$M_MODHANGU P = x'00000008'9 DECLARE LONG CONSTANT TT2$M_BRDCSTMBX = x'00000010'3 DECLARE LONG CONSTANT TT2$M_XON = x'00000020'3 DECLARE LONG CONSTANT TT2$M_DMA = x'00000040'9 DECLARE LONG CONSTANT TT2$M_ALTYPEAHD = x'00000080'8 DECLARE LONG CONSTANT TT2$M_SETSPEED = x'00000100': DECLARE LONG CONSTANT TT2$M_DCL_MAILBX = x'00000200'7 DECLARE LONG CONSTANT TT2$M_DECCRT4 = x'00000400'8 DECLARE LONG CONSTANT TT2$M_COMMSYNC = x'00000800'7 DECLARE LONG CONSTAN T TT2$M_EDITING = x'00001000'6 DECLARE LONG CONSTANT TT2$M_INSERT = x'00002000'8 DECLARE LONG CONSTANT TT2$M_FALLBACK = x'00004000'6 DECLARE LONG CONSTANT TT2$M_DIALUP = x'00008000'6 DECLARE LONG CONSTANT TT2$M_SECURE = x'00010000': DECLARE LONG CONSTANT TT2$M_DISCONNECT = x'00020000'7 DECLARE LONG CONSTANT TT2$M_PASTHRU = x'00040000'6 DECLARE LONG CONSTANT TT2$M_SYSPWD = x'00080000'5 DECLARE LONG CONSTANT TT2$M_SIXEL = x'00100000'4 DECLARE LONG  CONSTANT TT2$M_DRCS = x'00200000'7 DECLARE LONG CONSTANT TT2$M_PRINTER = x'00400000': DECLARE LONG CONSTANT TT2$M_APP_KEYPAD = x'00800000'7 DECLARE LONG CONSTANT TT2$M_ANSICRT = x'01000000'5 DECLARE LONG CONSTANT TT2$M_REGIS = x'02000000'5 DECLARE LONG CONSTANT TT2$M_BLOCK = x'04000000'3 DECLARE LONG CONSTANT TT2$M_AVO = x'08000000'4 DECLARE LONG CONSTANT TT2$M_EDIT = x'10000000'6 DECLARE LONG CONSTANT TT2$M_DECCRT = x'20000000'7 DECLARE LONG  CONSTANT TT2$M_DECCRT2 = x'40000000'7 DECLARE LONG CONSTANT TT2$M_DECCRT3 = x'80000000', DECLARE LONG CONSTANT TT2$S_TT2DEF = 4 record TT2DEF variant case& group TT2$R_TT2DEF_BITS5 ! TEMP DEFINITIONS FOR DCL SPAWN > ! Level 4 terminals (was OUTBAND-obsolete)/ ! (was DCL_CTRLC-obsolete) - ! enable advanced editing2 ! INPUT EDITING INSTER DEF AULT0 ! USE MULTINATIONAL FALLBACK5 ! TERMINAL IS CONNECTED TO DIALUP- ! RECOGNIZE SECURE SERVER2 ! TERMINAL CAN BE DISCONNECTED. ! passall with flowcontrol. ! System password required% ! SIXEL SUPPORTED, ! PRINTER PORT AVAILABLE2 ! Keypad in applicationis mode1 ! ANSI, REGIS, BLOCK and AVO 5 ! must be contiguous for SCRPKG. $ ! DECCRT level 2$ ! DECCRT level 3w LONG LOCALECHO_bits ! COMMENT ADDED BY SDL - LOCALECHO_bits contains bits LOCALECHO through DECCRT3* end group TT2$R_TT2DEF_BITS end variant end record TT2DEF  ww|! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  5 DECLARE LONG CONSTANT TT3$M_POSIX = x'00000001': DECLARE LONG CONSTANT TT3$M_ANSI_COLOR = x'00000002'7 DECLARE LONG CONSTANT TT3$M_DECCRT5 = x'00000004'8 DECLARE LONG CONSTANT TT3$M_RTS_FLOW = x'00000008'2 DECLARE LONG CONSTANT TT3$M_BS = x'00000010', DECLARE LONG CONSTANT TT3$S_TT3DEF = 4 record TT3DEF variant case& group TT3$R_TT3DEF_BITSo LONG POSIX_bits ! COMMENT ADDED BY SDL - POSIX_bits contains bits POSIX through AS_RESERVED* end group TT3$R_TT3DEF_BITS end variant end record TT3DEF  ww ! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  8 DECLARE LONG CONSTANT TTC$M_RESERVED = x'000000FF'4 DECLARE LONG CONSTANT TTC$M_KANA = x'00000100'5 DECLARE LONG CONSTANT TTC$M_KANJI = x'00000200'5 DECLARE LONG CONSTANT TTC$M_HANZI = x'00000400'6 DECLARE LONG CONSTANT TTC$M_HANGUL = x'00000800'5 DECLARE LONG CONSTANT TTC$M_HANYU = x'00001000'4 DECLARE LONG CONSTANT TTC$M_THAI = x'00002000', DECLARE LONG CONSTANT TTC$S_TTCDEF = 2 record TTCDEF variant case& group TTC$R_TTCDEF_BITS, ! First byte is reserved ! Katakana ! Kanji ! Hanzi ! Hangul ! Hanyu ! Thaiu WORD RESERVED_bits ! COMMENT ADDED BY SDL - RESERVED_bits contains bits RESERVED through FILL_45_* end group TTC$R_TTCDEF_BITS end variant end record TTCDEF  wwL8! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  ; DECLARE LONG CONSTANT TTY$M_NO_AUTO_XON = x'00000001'8 DECLARE LONG CONSTANT TTY$M_RESERVED = x'000000FE'< DECLARE LONG CONSTANT TTY$M_PARITY_ERROR = x'00000100'B DECLARE LONG CONSTANT TTY$M_ USE_WINDOW_CONSOLE = x'00000200'D DECLARE LONG CONSTANT TTY$M_LOAD_INPUT_EXTENSION = x'00000400'C DECLARE LONG CONSTANT TTY$M_IA64_POLLED_CONSOLE = x'00000800'C DECLARE LONG CONSTANT TTY$M_IA64_CONSOLE_NOTIME = x'00001000'1 DECLARE LONG CONSTANT TTY$S_TTYDPORTDEF = 2 record TTYDPORTDEF variant case+ group TTY$R_TTYDPORTDEF_BITS0 ! Disable automatic Xon/Xoff. ! Next 7 bits are reserved- ! Drop parity error chars$ ! Console option$ ! Console option8 ! IA64 flag to force console to poll< ! IA64 console disable output timer flag~ WORD NO_AUTO_XON_bits ! COMMENT ADDED BY SDL - NO_AUTO_XON_bits contains bits NO_AUTO_XON through FILL_46_/ end group TTY$R_TTYDPORTDEF_BITS end variant end record TTYDPORTDEF  wwu! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ++% ! User authorization file formatA ! Note: With the exception of the username and account name,A ! all strings are blank padded counted strings. Username and0 ! account name are uncounted, blank padded. ! --H DECLARE LONG CONSTANT UAF070$C_USER_ID = 1 ! main user ID recordB DECLARE LONG CONSTANT UAF070$C_VERSION1 = 1 ! this versionP DECLARE LONG CONSTANT UAF070$C_KEYED_PART = 52 ! ISAM keys come this far^ DECLARE LONG CONSTANT UAF070$C_MAX_PWD_LENGTH = 32 ! maximum plaintext password length^ DECLARE LONG CONSTANT UAF070$K_MAX_PWD_LENGTH = 32 ! maximum plaintext password lengthM DECLARE LONG CONSTANT UAF070$C_AD_II = 0 ! AUTODIN-II 32 bit crc codeU DECLARE LONG CONSTANT UAF070$C_PURDY = 1 ! Purdy polynomial over salted input` DECLARE LONG CONSTANT UAF070$C_PURDY_V = 2 ! Purdy polynomial + variable length usernameX DECLARE LONG CONSTANT UAF070$C_PURDY_S = 3 ! PURDY_V folded into password length[ DECLARE LONG CONSTANT UAF070$K_CURRENT_ALGORITHM = 3 ! current DEC algorithm number[ DECLARE LONG CONSTANT UAF070$C_CURRENT_ALGORITHM = 3 ! current DEC algorithm number= DECLARE LONG CONSTANT UAF070$C_PREFERED_ALGORITHM = 127= DECLARE LONG CONSTANT UAF070$K_PREFERED_ALGORITHM = 127i DECLARE LONG CONSTANT UAF070$C_PREFERRED_ALGORITHM = 127 ! preferred hash algorithm - use currenti DECLARE LONG CONSTANT UAF070$K_PREFERRED_ALGORITHM = 127 ! preferred hash algorithm - use currentY DECLARE LONG CONSTANT UAF070$C_CUST_ALGORITHM = 128 ! customer algorithm divisionY DECLARE LONG CONSTANT UAF070$K_CUST_ALGORITHM = 128 ! customer algorithm divisionL  DECLARE LONG CONSTANT UAF070$K_FIXED = 644 ! length of fixed portionL DECLARE LONG CONSTANT UAF070$C_FIXED = 644 ! length of fixed portion2 DECLARE LONG CONSTANT UAF070$K_LENGTH = 14122 DECLARE LONG CONSTANT UAF070$C_LENGTH = 1412e DECLARE LONG CONSTANT UAF070$S_UAF070DEF = 1412 ! Old size name, synonym for UAF070$S_UAF0702 DECLARE LONG CONSTANT UAF070$S_UAF070 = 1412 record UAF070A BYTE UAF070$B_RTYPE ! UAF070 record typeD ! BYTE UAF070$B_VERSION ! UAF070 format versionT WORD UAF070$W_USRDATOFF ! offset of counted string of user data group UAF070$R_FILL_47_ variant case< STRING UAF070$T_USERNAME = 32 ! username case) group UAF070$R_FILL_48_0 STRING UAF070$T_FILL_0 = 31V STRING UAF070$T_USERNAME_TAG = 1 ! tag to differentiate records- " end group UAF070$R_FILL_48_ end variant$ end group UAF070$R_FILL_47_ group UAF070$R_FILL_49_ variant case; LONG UAF070$L_UIC ! user ID code case) group UAF070$R_FILL_50_> WORD UAF070$W_MEM ! member subfield= WORD UAF070$W_GRP ! group subfield- end group UAF070$R_FILL_50_ end va #riant$ end group UAF070$R_FILL_49_B LONG UAF070$L_SUB_ID ! user sub-identifierR BASIC$QUADWORD UAF070$Q_PARENT_ID ! identifier of owner of this account; STRING UAF070$T_ACCOUNT = 32 ! account name; STRING UAF070$T_OWNER = 32 ! owner's name= STRING UAF070$T_DEFDEV = 32 ! default device@ STRING UAF070$T_DEFDIR = 64 ! default directoryA STRING UAF070$T_LGICMD = 64 ! login c $ommand fileJ STRING UAF070$T_DEFCLI = 32 ! default command interpreter> STRING UAF070$T_CLITABLES = 32 ! user CLI tables group UAF070$R_FILL_51_ variant caseA BASIC$QUADWORD UAF070$Q_PWD ! hashed password case) group UAF070$R_FILL_52_> LONG UAF070$L_PWD ! 32 bit subfield- end group UAF070$R_FILL_52_ end variant$ % end group UAF070$R_FILL_51_> BASIC$QUADWORD UAF070$Q_PWD2 ! second passwordF WORD UAF070$W_LOGFAILS ! count of login failuresC WORD UAF070$W_SALT ! random password saltN BYTE UAF070$B_ENCRYPT ! primary password hash algorithm# ! known hash algorithm indicesP BYTE UAF070$B_ENCRYPT2 ! secondary password hash algorithmF BYTE UAF070$B_PWD_LENGTH ! minimum password &length) BYTE UAF070$$$_FILL_1 ( 1 to 1 )K BASIC$QUADWORD UAF070$Q_EXPIRATION ! expiration date for accountC BASIC$QUADWORD UAF070$Q_PWD_LIFETIME ! password lifetimeF BASIC$QUADWORD UAF070$Q_PWD_DATE ! date of password changeJ BASIC$QUADWORD UAF070$Q_PWD2_DATE ! date of 2nd password changeO BASIC$QUADWORD UAF070$Q_LASTLOGIN_I ! date of last interactive loginS BASIC$QUADWORD UAF070$Q_LASTLOGIN_N ! date of last non-interactiv 'e loginG BASIC$QUADWORD UAF070$Q_PRIV ! process privilege vectorI BASIC$QUADWORD UAF070$Q_DEF_PRIV ! default process privilegesE group UAF070$R_MIN_CLASS ! minimum security class, BYTE UAF070$B_FILL_2 ( 1 to 20 )% end group UAF070$R_MIN_CLASSE group UAF070$R_MAX_CLASS ! maximum security class, BYTE UAF070$B_FILL_3 ( 1 to 20 )% end group UAF070$R_MAX_CLASS group UAF070$R_FILL_5 (3_ variant caseB LONG UAF070$L_FLAGS ! user flags longword case) group UAF070$R_FILL_54_* ! no user control-y4 ! only allow user default CLI5 ! disable SET PASSWORD command> ! restricted account (pre-V5.2 CAPTIVE)- ! no interactive login- ! skip welcome message. ) ! skip new mail message. ! disable mail delivery4 ! passwords must be generated- ! password has expired1 ! 2nd password has expired* ! audit all actions1 ! skip last login messages. ! inhibit reconnections( ! auto-login only7 ! disable forced password change7 *! captive account (no overrides); ! disable arbitrary image activation; ! disable password dictionary search8 ! disable password history search8 ! default classification is validu LONG DISCTLY_bits ! COMMENT ADDED BY SDL - DISCTLY_bits contains bits DISCTLY through FILL_57_- end group UAF070$R_FILL_54_ end variant$ end group UAF070$R_FILL_53_+U BYTE UAF070$B_NETWORK_ACCESS_P ( 1 to 3 ) ! hourly network access, primaryW BYTE UAF070$B_NETWORK_ACCESS_S ( 1 to 3 ) ! hourly network access, secondaryQ BYTE UAF070$B_BATCH_ACCESS_P ( 1 to 3 ) ! hourly batch access, primaryS BYTE UAF070$B_BATCH_ACCESS_S ( 1 to 3 ) ! hourly batch access, secondaryQ BYTE UAF070$B_LOCAL_ACCESS_P ( 1 to 3 ) ! hourly local access, primaryS BYTE UAF070$B_LOCAL_ACCESS_S ( 1 to 3 ) ! hourly local access ,, secondaryS BYTE UAF070$B_DIALUP_ACCESS_P ( 1 to 3 ) ! hourly dialup access, primaryU BYTE UAF070$B_DIALUP_ACCESS_S ( 1 to 3 ) ! hourly dialup access, secondaryS BYTE UAF070$B_REMOTE_ACCESS_P ( 1 to 3 ) ! hourly remote access, primaryU BYTE UAF070$B_REMOTE_ACCESS_S ( 1 to 3 ) ! hourly remote access, secondaryO BYTE UAF070$$$_FILL_4 ( 1 to 12 ) ! space for 2 more access types group UAF070$R_FILL_55_ variant - caseM BYTE UAF070$B_PRIMEDAYS ! bits representing primary days case) group UAF070$R_FILL_56_> ! bit clear means this is a primary day9 ! bit set means this is an off dayr BYTE MONDAY_bits ! COMMENT ADDED BY SDL - MONDAY_bits contains bits MONDAY through FILL_58_- end group UAF070$R_FILL_56_ end variant$ end group UAF070$R_FI .LL_55_) BYTE UAF070$$$_FILL_5 ( 1 to 1 )D BYTE UAF070$B_PRI ! base process priorityK BYTE UAF070$B_QUEPRI ! maximum job queuing priorityK WORD UAF070$W_MAXJOBS ! maximum jobs for UIC allowed ! 0 means no limitO WORD UAF070$W_MAXACCTJOBS ! maximum jobs for account allowed ! 0 means no limitQ WORD UAF070$W_MAXDETACH ! maximum detached processes for UIC ! 0 m /eans no limitH WORD UAF070$W_PRCCNT ! subprocess creation limitA WORD UAF070$W_BIOLM ! buffered I/O limit? WORD UAF070$W_DIOLM ! direct I/O limitF WORD UAF070$W_TQCNT ! timer queue entry limit> WORD UAF070$W_ASTLM ! AST queue limit< WORD UAF070$W_ENQLM ! enqueue limit> WORD UAF070$W_FILLM ! open file limit@ WORD UAF0700$W_SHRFILLM ! shared file limitE LONG UAF070$L_WSQUOTA ! working set size quotaG LONG UAF070$L_DFWSCNT ! default working set sizeE LONG UAF070$L_WSEXTENT ! working set size limit> LONG UAF070$L_PGFLQUOTA ! page file quota= LONG UAF070$L_CPUTIM ! CPU time quotaL LONG UAF070$L_BYTLM ! buffered I/O byte count limitP LONG UAF070$L_PBYTLM 1 ! paged buffer I/O byte count limitY LONG UAF070$L_JTQUOTA ! job-wide logical name table creation quotaO WORD UAF070$W_PROXY_LIM ! number of proxies user can grantH WORD UAF070$W_PROXIES ! number of proxies grantedM WORD UAF070$W_ACCOUNT_LIM ! number of sub-accounts allowedL WORD UAF070$W_ACCOUNTS ! number of sub-accounts in useE group UAF070$R_DEF_CLASS ! default security class, BYTE UAF070$B_FILL_6 ( 1 to 20 )% end group UAF070$R_DEF_CLASS= BYTE UAF070$$$_FILL_99 ( 1 to 44 ) ! spare spaceF BYTE UAF070$$$_FILL_100 ( 1 to 768 ) ! user-extensible area end record UAF070  ww=UAF070DEF LO! EVMSBUILD $UAIDEF <{! EVMSBUILD $UICDEF ,! EVMSBUILD $UIDDEF " EVMSBUILD $USGDEF!b " EVMSBUILD $USRIDEFy" EVMSBUILD $VADEF%/" EVMSBUILD $VA_RANGEDEF 5" EVMSBUILD $VAXDEF"]=" EVMSBUILD $WBEMIDEF!D" EVMSBUILD $WWIDDEFK" EVMSBUILD $XADEF"R" EVMSBUILD $XKSTSDEF"<#Y" EVMSBUILD $XKDEVDEFl`" EV4<(! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED 5( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN6G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 7 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! E ! Get User Authorization Information Data Identifier Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item list4 ! 8 so that users will not have to relink. !  ! -> DECLARE LONG CONSTANT UAI$_RTYPE = 1 ! UAF record typeC DECLARE LONG CONSTANT UAI$_VERSION = 2 ! UAF format versionX DECLARE LONG CONSTANT UAI$_USRDATOFF = 3 ! offset of counted string of user data: DECLARE LONG CONSTANT UAI$_USERNAME = 4 ! usernameR DECLARE LONG CONSTANT UAI$_USERNAME_TAG = 5 ! tag to differentiate records; DECLARE LONG CONSTANT UAI$_UIC = 6 ! user ID code> DECLARE 9LONG CONSTANT UAI$_MEM = 7 ! member subfield= DECLARE LONG CONSTANT UAI$_GRP = 8 ! group subfieldC DECLARE LONG CONSTANT UAI$_SUB_ID = 9 ! user sub-identifierW DECLARE LONG CONSTANT UAI$_PARENT_ID = 10 ! identifier of owner of this account> DECLARE LONG CONSTANT UAI$_ACCOUNT = 11 ! account name< DECLARE LONG CONSTANT UAI$_OWNER = 12 ! owner's name? DECLARE LONG CONSTANT UAI$_DEFDEV = 13 ! default deviceB DECLARE LONG CONSTANT UAI$_DEFDIR := 14 ! default directoryC DECLARE LONG CONSTANT UAI$_LGICMD = 15 ! login command fileL DECLARE LONG CONSTANT UAI$_DEFCLI = 16 ! default command interpreterC DECLARE LONG CONSTANT UAI$_CLITABLES = 17 ! user CLI tables> DECLARE LONG CONSTANT UAI$_PWD = 18 ! hashed password> DECLARE LONG CONSTANT UAI$_PWD2 = 19 ! second passwordJ DECLARE LONG CONSTANT UAI$_LOGFAILS = 20 ! count of login failuresC DECLARE LONG CONSTANT UAI$_SALT = 21 ! random pa;ssword saltQ DECLARE LONG CONSTANT UAI$_ENCRYPT = 22 ! primary password hash algorithmT DECLARE LONG CONSTANT UAI$_ENCRYPT2 = 23 ! secondary password hash algorithmL DECLARE LONG CONSTANT UAI$_PWD_LENGTH = 24 ! minimum password lengthP DECLARE LONG CONSTANT UAI$_EXPIRATION = 25 ! expiration date for accountH DECLARE LONG CONSTANT UAI$_PWD_LIFETIME = 26 ! password lifetimeJ DECLARE LONG CONSTANT UAI$_PWD_DATE = 27 ! date of password changeO DECLAR<E LONG CONSTANT UAI$_PWD2_DATE = 28 ! date of 2nd password changeT DECLARE LONG CONSTANT UAI$_LASTLOGIN_I = 29 ! date of last interactive loginX DECLARE LONG CONSTANT UAI$_LASTLOGIN_N = 30 ! date of last non-interactive loginG DECLARE LONG CONSTANT UAI$_PRIV = 31 ! process privilege vectorM DECLARE LONG CONSTANT UAI$_DEF_PRIV = 32 ! default process privilegesJ DECLARE LONG CONSTANT UAI$_MIN_CLASS = 33 ! minimum security classJ DECLARE LONG CONSTANT UA=I$_MAX_CLASS = 34 ! maximum security classC DECLARE LONG CONSTANT UAI$_FLAGS = 35 ! user flags longwordY DECLARE LONG CONSTANT UAI$_NETWORK_ACCESS_P = 36 ! hourly network access, primary[ DECLARE LONG CONSTANT UAI$_NETWORK_ACCESS_S = 37 ! hourly network access, secondaryU DECLARE LONG CONSTANT UAI$_BATCH_ACCESS_P = 38 ! hourly batch access, primaryW DECLARE LONG CONSTANT UAI$_BATCH_ACCESS_S = 39 ! hourly batch access, secondaryU DECLARE LONG CONSTAN>T UAI$_LOCAL_ACCESS_P = 40 ! hourly local access, primaryW DECLARE LONG CONSTANT UAI$_LOCAL_ACCESS_S = 41 ! hourly local access, secondaryW DECLARE LONG CONSTANT UAI$_DIALUP_ACCESS_P = 42 ! hourly dialup access, primaryY DECLARE LONG CONSTANT UAI$_DIALUP_ACCESS_S = 43 ! hourly dialup access, secondaryW DECLARE LONG CONSTANT UAI$_REMOTE_ACCESS_P = 44 ! hourly remote access, primaryY DECLARE LONG CONSTANT UAI$_REMOTE_ACCESS_S = 45 ! hourly remote access, se?condaryR DECLARE LONG CONSTANT UAI$_PRIMEDAYS = 46 ! bits representing primary daysD DECLARE LONG CONSTANT UAI$_PRI = 47 ! base process priorityM DECLARE LONG CONSTANT UAI$_QUEPRI = 48 ! maximum job queuing priorityN DECLARE LONG CONSTANT UAI$_MAXJOBS = 49 ! maximum jobs for UIC allowedV DECLARE LONG CONSTANT UAI$_MAXACCTJOBS = 50 ! maximum jobs for account allowedV DECLARE LONG CONSTANT UAI$_MAXDETACH = 51 ! maximum detached processes for UICJ @DECLARE LONG CONSTANT UAI$_PRCCNT = 52 ! subprocess creation limitB DECLARE LONG CONSTANT UAI$_BIOLM = 53 ! buffered I/O limit@ DECLARE LONG CONSTANT UAI$_DIOLM = 54 ! direct I/O limitG DECLARE LONG CONSTANT UAI$_TQCNT = 55 ! timer queue entry limit? DECLARE LONG CONSTANT UAI$_ASTLM = 56 ! AST queue limit= DECLARE LONG CONSTANT UAI$_ENQLM = 57 ! enqueue limit? DECLARE LONG CONSTANT UAI$_FILLM = 58 ! open file limitD DECLARE LONG CONSTANT UAI$A_SHRFILLM = 59 ! shared file limitH DECLARE LONG CONSTANT UAI$_WSQUOTA = 60 ! working set size quotaJ DECLARE LONG CONSTANT UAI$_DFWSCNT = 61 ! default working set sizeI DECLARE LONG CONSTANT UAI$_WSEXTENT = 62 ! working set size limitC DECLARE LONG CONSTANT UAI$_PGFLQUOTA = 63 ! page file quota? DECLARE LONG CONSTANT UAI$_CPUTIM = 64 ! CPU time quotaM DECLARE LONG CONSTANT UAI$_BYTLM = 65 ! buffered I/O byte count limitR DECLARE LONG CONSTANBT UAI$_PBYTLM = 66 ! paged buffer I/O byte count limit\ DECLARE LONG CONSTANT UAI$_JTQUOTA = 67 ! job-wide logical name table creation quotaT DECLARE LONG CONSTANT UAI$_PROXY_LIM = 68 ! number of proxies user can grantK DECLARE LONG CONSTANT UAI$_PROXIES = 69 ! number of proxies grantedT DECLARE LONG CONSTANT UAI$_ACCOUNT_LIM = 70 ! number of sub-accounts allowedP DECLARE LONG CONSTANT UAI$_ACCOUNTS = 71 ! number of sub-accounts in useB DECLARE LONG CONCSTANT UAI$_USER_DATA = 72 ! user data areaM DECLARE LONG CONSTANT UAI$_PASSWORD = 73 ! plaintext primary passwordP DECLARE LONG CONSTANT UAI$_PASSWORD2 = 74 ! plaintext secondary passwordS DECLARE LONG CONSTANT UAI$_DEF_CLASS = 75 ! default security classification_ DECLARE LONG CONSTANT UAI$_AUDIT_FLAGS = 76 ! passed from $SETUAI to UAF$SECURITY_AUDIT) ! ADD ITEM-CODES BEFORE THIS COMMENTS DECLARE LONG CONSTANT UAI$_MAX_ITEM_CODE = 77 ! maximum legal Ditem code + 1= ! Add UAI$_DEFCHARGE_CODE as an alias for UAI$_ACCOUNT.W DECLARE LONG CONSTANT UAI$_DEFCHARGE_CODE = 11 ! default charge code (=account)3 ! Define the various password hash algorithms.J DECLARE LONG CONSTANT UAI$C_AD_II = 0 ! AUTODIN-II 32 bit crc codeR DECLARE LONG CONSTANT UAI$C_PURDY = 1 ! Purdy polynomial over salted input] DECLARE LONG CONSTANT UAI$C_PURDY_V = 2 ! Purdy polynomial + variable length usernameU DECLARE LONG CONSTANET UAI$C_PURDY_S = 3 ! PURDY_V folded into password length: DECLARE LONG CONSTANT UAI$C_PREFERED_ALGORITHM = 127f DECLARE LONG CONSTANT UAI$C_PREFERRED_ALGORITHM = 127 ! preferred hash algorithm - use currentV DECLARE LONG CONSTANT UAI$C_CUST_ALGORITHM = 128 ! customer algorithm divisionT DECLARE LONG CONSTANT UAI$C_MAX_PWD_LENGTH = 32 ! maximum plaintext password4 ! Define the flags for the user flags longword.7 DECLARE LONG CONSTANT UAI$M_DISCTLY = x'000000 F01'6 DECLARE LONG CONSTANT UAI$M_DEFCLI = x'00000002'7 DECLARE LONG CONSTANT UAI$M_LOCKPWD = x'00000004': DECLARE LONG CONSTANT UAI$M_RESTRICTED = x'00000008'7 DECLARE LONG CONSTANT UAI$M_DISACNT = x'00000010'9 DECLARE LONG CONSTANT UAI$M_DISWELCOM = x'00000020'7 DECLARE LONG CONSTANT UAI$M_DISMAIL = x'00000040'6 DECLARE LONG CONSTANT UAI$M_NOMAIL = x'00000080'6 DECLARE LONG CONSTANT UAI$M_GENPWD = x'00000100'; DECLARE LONG CONSTANT UAI$M_PWD_ GEXPIRED = x'00000200'< DECLARE LONG CONSTANT UAI$M_PWD2_EXPIRED = x'00000400'5 DECLARE LONG CONSTANT UAI$M_AUDIT = x'00000800'9 DECLARE LONG CONSTANT UAI$M_DISREPORT = x'00001000'< DECLARE LONG CONSTANT UAI$M_DISRECONNECT = x'00002000'9 DECLARE LONG CONSTANT UAI$M_AUTOLOGIN = x'00004000'C DECLARE LONG CONSTANT UAI$M_DISFORCE_PWD_CHANGE = x'00008000'7 DECLARE LONG CONSTANT UAI$M_CAPTIVE = x'00010000'8 DECLARE LONG CONSTANT UAI$M_DISIMAGE = x'0002000 H0'9 DECLARE LONG CONSTANT UAI$M_DISPWDDIC = x'00040000'9 DECLARE LONG CONSTANT UAI$M_DISPWDHIS = x'00080000'9 DECLARE LONG CONSTANT UAI$M_DEFCLSVAL = x'00100000'7 DECLARE LONG CONSTANT UAI$M_EXTAUTH = x'00200000': DECLARE LONG CONSTANT UAI$M_MIGRATEPWD = x'00400000'7 DECLARE LONG CONSTANT UAI$M_VMSAUTH = x'00800000'; DECLARE LONG CONSTANT UAI$M_DISPWDSYNCH = x'01000000'6 DECLARE LONG CONSTANT UAI$M_PWDMIX = x'02000000'+ DECLARE LONG CONSTANT IUAI$S_FLAGS = 4B record FLAGS ! user flags longword ! no user control-y( ! only allow user default CLI) ! disable SET PASSWORD command2 ! restricted account (pre-V5.2 CAPTIVE)! ! no interactive login! ! skip welcome message" ! skip new mail message" ! disable mail delivery( ! passwords must be generated! ! password has expired% ! 2nd password ha Js expired ! audit all actions% ! skip last login messages" ! inhibit reconnections ! auto-login only+ ! disable forced password change+ ! captive account (no overrides)/ ! disable arbitrary image activation/ ! disable password dictionary filter, ! disable password history search, ! default classification is valid, ! external authentication enabled- ! migrate UAF p Kwd to external auth' ! VMS alternative is allowed% ! no ACME password sharing( ! enable mixed-case passwordsi LONG DISCTLY_bits ! COMMENT ADDED BY SDL - DISCTLY_bits contains bits DISCTLY through FILL_59_ end record FLAGS 2 ! Define the flags representing primary days./ DECLARE LONG CONSTANT UAI$S_PRIMEDAYS = 1M record PRIMEDAYS ! bits representing primary days2 ! bit clear means this is a primary day- ! bit set means this is an off dayf BYTE MONDAY_bits ! COMMENT ADDED BY SDL - MONDAY_bits contains bits MONDAY through FILL_60_ end record PRIMEDAYS  wwM<{! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED N( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINOG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > P %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! G ! Format of UIC - user identification code. May be either two partA ! group / member identifier, or a single uniform identifier. ! 7 ! The binary layout of the id space is as f Qollows: !  ! ---------- Bit --------+ ! 31 30 29 28 27 26 DescriptionH ! === === === === === === ======================================== ! 7 ! 0 0 - - - - UIC form (group/member)& ! 0 1 - - - - Unused/ ! 1 0 - - - - Identifier form6 ! 1 0 0 0 - - System identifiersA ! 1 0 0 1 - - Facility-specific identifiersD ! 1 0 1 0 - - Arbitrary assignme Rnt 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 ! -O DECLARE LONG CONSTANT UIC$K_MAX_UIC = 1073741823 ! Highest possible UICS DECLARE LONG CONSTANT UIC$K_WILD_MEMBER = 65535 ! Code for wild card memberQ DECLARE LONG CSONSTANT UIC$K_WILD_GROUP = 16383 ! Code for wild card groupD DECLARE LONG CONSTANT UIC$K_UIC_FORMAT = 0 ! UIC format codeB DECLARE LONG CONSTANT UIC$K_ID_FORMAT = 2 ! ID format codeF DECLARE LONG CONSTANT UIC$K_TYPE_SYSTEM = 8 ! system ID or UICJ DECLARE LONG CONSTANT UIC$K_TYPE_FACILITY = 9 ! facility ID or UICT DECLARE LONG CONSTANT UIC$K_TYPE_ARBITRARY = 10 ! arbitrary assignment spaceU DECLARE LONG CONSTANT UIC$K_FIRST_ID = -2147418112 ! First gen Teral identifierS DECLARE LONG CONSTANT UIC$K_LAST_ID = -1879048193 ! Last general identifierJ DECLARE LONG CONSTANT UIC$K_MATCH_ALL = -1 ! Match all identifiersV DECLARE LONG CONSTANT UIC$K_ASSIGN_SEVMS = 0 ! SEVMS block of identifier space, DECLARE LONG CONSTANT UIC$S_UICDEF = 4 record UICDEF variant case# group UIC$R_FILL_61_ variant case< LONG UIC$L_UIC U! Full longword case) group UIC$R_FILL_62_< WORD UIC$W_MEM ! Member number; WORD UIC$W_GRP ! Group number- end group UIC$R_FILL_62_ end variant' end group UIC$R_FILL_61_ caseD group UIC$R_UIC_FORM ! Group / member format# ! Member number" ! Group number! V ! Format codem LONG MEMBER_bits ! COMMENT ADDED BY SDL - MEMBER_bits contains bits MEMBER through FORMAT' end group UIC$R_UIC_FORM caseH group UIC$R_ID_FORM ! General identifier format ! ID code ! ID type q LONG ID_CODE_bits ! COMMENT ADDED BY SDL - ID_CODE_bits contains bits ID_CODE through ID_TYPE& end group UIC$R_ID_FORM case WI group UIC$R_FAC_ID_FORM ! Facility identifier format ! ID code# ! Facility code, ! space for ID type code| LONG FAC_ID_CODE_bits ! COMMENT ADDED BY SDL - FAC_ID_CODE_bits contains bits FAC_ID_CODE through FILL_1* end group UIC$R_FAC_ID_FORM caseL group UIC$R_ARBITRARY_ID_FORM ! Arbitrary assignment format ! ID code% ! Assignment code, ! space for ID type code| LONG ARB_ID_CODE_bits ! COMMENT ADDED BY SDL - ARB_ID_CODE_bits contains bits ARB_ID_CODE through FILL_20 end group UIC$R_ARBITRARY_ID_FORM end variant end record UICDEF  wwY! ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED Z( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN[G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > \ %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  R DECLARE LONG CONSTANT UID$K_ArchVersion = 1 ! Current architecture versionB DECLARE LONG CONSTANT UID$K_Apollo1 = 0 ! UID format types- DECLARE LONG CONSTANT UID$K_Apollo2 = 1- DECLARE LO ]NG CONSTANT UID$K_Digital = 2/ DECLARE LONG CONSTANT UID$K_Microsoft = 3H DECLARE LONG CONSTANT UID$K_LENGTH = 16 ! Total structure length- DECLARE LONG CONSTANT UID$S_UIDDEF = 16 record UIDDEF group UID$r_fill_63_ variant caseJ BASIC$QUADWORD UID$q_timeAndVersion ! Time and version case& group UID$r_fill_64_H LONG UID$l_timeLow ! Low order 32 bits o ^f timeK WORD UID$w_timeMid ! Middle order 16 bits of time) group UID$r_fill_65_ variant caseY WORD UID$w_timeHiAndVersion ! High order 12 bits of time and case/ group UID$r_fill_66_ ! 4 bits of version< ! High order 12 bits of time3 ! 4 bits of version _z WORD timeHi_bits ! COMMENT ADDED BY SDL - timeHi_bits contains bits timeHi through Version3 end group UID$r_fill_66_# end variant- end group UID$r_fill_65_* end group UID$r_fill_64_ end variant! end group UID$r_fill_63_ group UID$r_fill_67_ variant caseP WORD UID$w_clockSeqAndReserved ! Clock ` sequence and reserved case& group UID$r_fill_68_) group UID$r_fill_69_ variant casec BYTE UID$b_clockSeqHiAndReserved ! High order 6 bits of clock sequence case/ group UID$r_fill_70_ ! and 2 reserved bitsE ! High order 6 bits of clock sequence4 a ! 2 bits of reserved BYTE clockSeqHi_bits ! COMMENT ADDED BY SDL - clockSeqHi_bits contains bits clockSeqHi through & ! Reserved3 end group UID$r_fill_70_# end variant- end group UID$r_fill_69_R BYTE UID$b_clockSeqLow ! Low order 8 bits of clock sequence* end group UID$r_fill_68_ end variant! end group UID$r_fill_67_  group UID$r_fill_71_ variant case, BYTE UID$b_node ( 1 to 6 ) case& group UID$r_fill_72_P WORD UID$w_nodeHi ! High order 16 bits of node numberO LONG UID$l_nodeLow ! Low order 32 bits of node number* end group UID$r_fill_72_ end variant! end group UID$r_fill_71_ end record UIDDEF  wwc " ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED d( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINeG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > f %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +M ! Disk usage accounting file produced by ANALYZE/DISK_STRUCTURE utility. ! -F DECLARE LONG CONSTANT USG$K_IDENT = 1 ! Identification record ; DECLARE LONG CONSTANT USG$K_FILE = 2 g! File record L DECLARE LONG CONSTANT USG$K_IDENT_LEN = 61 ! Length of IDENT record L DECLARE LONG CONSTANT USG$C_IDENT_LEN = 61 ! Length of IDENT record - DECLARE LONG CONSTANT USG$S_USGDEF = 61 record USGDEF; BYTE USG$B_TYPE ! Record type B LONG USG$L_SERIALNUM ! Pack serial number ? STRING USG$T_STRUCNAME = 12 ! Volume set name ; STRING USG$T_VOLNAME = 12 ! Volume name A h STRING USG$T_OWNERNAME = 12 ! Volume owner name B STRING USG$T_FORMAT = 12 ! Volume format type + ! *** Preceding same as home block ***G BASIC$QUADWORD USG$Q_TIME ! Time usage file created  end record USGDEF S DECLARE LONG CONSTANT USG$K_FILE_LEN = 423 ! Maximum length of FILE record S DECLARE LONG CONSTANT USG$C_FILE_LEN = 423 ! Maximum length of FILE record / DECLARE LONG CONSTANT USG$S_USGDEF1 = 423 i record USGDEF1 BYTE USGDEF$$_FILL_1& group USG$R_FILEOWNER_OVERLAY variant case> LONG USG$L_FILEOWNER ! File owner UIC  case. group USG$R_FILEOWNER_FIELDSA WORD USG$W_UICMEMBER ! UIC member number @ WORD USG$W_UICGROUP ! UIC group number 2 end group USG$R_FILEOWNER_FIELDS end variant* end group USG $R_FILEOWNER_OVERLAYS LONG USG$L_ALLOCATED ! Blocks allocated, including headers ; LONG USG$L_USED ! Blocks used J WORD USG$W_DIR_LEN ! Length of directory string U WORD USG$W_SPEC_LEN ! Length of complete file specification L STRING USG$T_FILESPEC = 406 ! File spec "[dir]nam.typ;ver"  end record USGDEF1  wwk; " ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED l( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINmG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > n %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ! ! User image bit definitions !  ! ; DECLARE LONG CONSTANT USRI$M_DBG_MAPPED = x'00000001'. DECLARE LONG CONSTANT USRI$S_USRIDEF = 1 record USRIDEF variant case% group USRI$R_USRI_BITS, ! Debugger is now mapped{ BYTE DBG_MAPPED_bits ! COMMENT ADDED BY SDL - DBG_MAPPED_bits contains bits DBG_MAPPED through FILL_73_) end group USRI$R_USRI_BITS end variant end record USRIDEF  wwp R" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED q( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINrG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > s %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! + ! VIRTUAL ADDRESS VIELDS ! -1 DECLARE LONG CONSTANT VA$M_P1 = x'40000000'5 DECLARE LONG CONSTANT VA$M_SYSTEM = x'80000000'@ DECLARE LONG CONSTANT VA$M_BYTES_PER_PAGELET = x'0 t00001FF'> DECLARE LONG CONSTANT VA$M_BYTE_IN_PAGELET = x'000001FF'2 DECLARE LONG CONSTANT VA$M_VRN = x'00000000'H DECLARE LONG CONSTANT VA$C_VRN_SYSTEM = 7 ! VRN for system spaceO DECLARE LONG CONSTANT VA$C_REGION_COUNT = 8 ! Number of virtual regions3 DECLARE LONG CONSTANT VA$M_VRNX = x'00000000'K DECLARE LONG CONSTANT VA$C_VRNX_SYSTEM = 15 ! VRNX for system spaceU DECLARE LONG CONSTANT VA$C_VRNX_COUNT = 16 ! Number of virtual address spaces* u DECLARE LONG CONSTANT VA$S_VADEF = 83 DECLARE LONG CONSTANT VA$C_PAGELET_SIZE = 5127 DECLARE LONG CONSTANT VA$C_PAGELET_SHIFT_SIZE = 9' DECLARE LONG CONSTANT VA$S_VA = 8 record VA group VA$R_VADEF_UNION variant case* BASIC$QUADWORD VA$Q_QUAD case( group VA$R_VADEF_BITS0! ! P1 SPACE % ! SYSTEM SPACE p LONG FILL_1 v_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through SYSTEM, end group VA$R_VADEF_BITS0 case( group VA$R_VADEF_BITS2) ! BYTES PER PAGELETs WORD BYTES_PER_PAGELET_bits ! COMMENT ADDED BY SDL - BYTES_PER_PAGELET_bits contains bits &% ! BYTES_PER_PAGELET through FILL_74_, end group VA$R_VADEF_BITS2 case( group VA$R_VADEF_BITS35 w ! BYTE IN PAGELET (common name) WORD BYTE_IN_PAGELET_bits ! COMMENT ADDED BY SDL - BYTE_IN_PAGELET_bits contains bits BYTE_IN_PAGELET & ! through FILL_75_, end group VA$R_VADEF_BITS3 case( group VA$R_VADEF_BITS4. ! Virtual Region Numbers BYTE FILL_4_bits ( 8 ) ! COMMENT ADDED BY SDL - FILL_4_bits contains bits FILL_4 through VRN, end grxoup VA$R_VADEF_BITS4 case( group VA$R_VADEF_BITS5/ ! Virtual Address Space t BYTE FILL_6_bits ( 8 ) ! COMMENT ADDED BY SDL - FILL_6_bits contains bits FILL_6 through VRNX, end group VA$R_VADEF_BITS5 end variant# end group VA$R_VADEF_UNION end record VA  ! +# ! Process permanent region ids ! -R DECLARE LONG CONSTANT VA$C_P0 = 0 ! Region id y for 32-bit program regionK DECLARE LONG CONSTANT VA$C_P1 = 1 ! Region id for control regionS DECLARE LONG CONSTANT VA$C_P2 = 2 ! Region id for 64-bit program region 6 DECLARE LONG CONSTANT VA$M_DESCEND = x'00000001'7 DECLARE LONG CONSTANT VA$M_P0_SPACE = x'00000002'7 DECLARE LONG CONSTANT VA$M_P1_SPACE = x'00000004'8 DECLARE LONG CONSTANT VA$M_PERMANENT = x'00000008'? DECLARE LONG CONSTANT VA$M_EXPAND_ON_ACCVIO = x'00000010'9 DECLARE LONG z CONSTANT VA$M_SHARED_PTS = x'00000040'9 DECLARE LONG CONSTANT VA$M_OWNER_MODE = x'0000000F': DECLARE LONG CONSTANT VA$M_CREATE_MODE = x'000000F0'3 DECLARE LONG CONSTANT VA$C_REGSUM_LENGTH = 400 DECLARE LONG CONSTANT VA$_REGSUM_BY_ID = 00 DECLARE LONG CONSTANT VA$_REGSUM_BY_VA = 15 DECLARE LONG CONSTANT VA$_NEXT_REGSUM_BY_VA = 2 ! +9 DECLARE LONG CONSTANT VA$C_REGION_UCREATE_UOWN = 519 DECLARE LONG CONSTANT VA$C_REGION_UCREATE_SOWN = 509 { DECLARE LONG CONSTANT VA$C_REGION_UCREATE_EOWN = 499 DECLARE LONG CONSTANT VA$C_REGION_UCREATE_KOWN = 489 DECLARE LONG CONSTANT VA$C_REGION_SCREATE_SOWN = 349 DECLARE LONG CONSTANT VA$C_REGION_SCREATE_EOWN = 339 DECLARE LONG CONSTANT VA$C_REGION_SCREATE_KOWN = 329 DECLARE LONG CONSTANT VA$C_REGION_ECREATE_EOWN = 179 DECLARE LONG CONSTANT VA$C_REGION_ECREATE_KOWN = 168 DECLARE LONG CONSTANT VA$C_REGION_KCREATE_KOWN = 0, DECLARE LONG CONSTANT VA$S|_REGSUM = 40 record REGSUM; BASIC$QUADWORD VA$Q_REGION_ID ! Id of region! group VA$R_FLAGS_OVERLAY variant case= LONG VA$L_FLAGS ! FLAGS longword case' group VA$R_FLAGS_BITS- ! Region is descending. ! Region is in P0 space. ! Region is in P1 space, ! Region is permanent7 } ! Expand within region on accvio8 ! Don't replicate this bit in the ! public interface.5 ! Region is a shared PT regionu BYTE DESCEND_bits ! COMMENT ADDED BY SDL - DESCEND_bits contains bits DESCEND through FILL_76_+ end group VA$R_FLAGS_BITS end variant% end group VA$R_FLAGS_OVERLAY group VA$R_REGION_PROT variant case- ~ LONG VA$L_REGION_PROTECTION case* group VA$R_REGION_FIELDS* ! Region owner mode+ ! Region create mode BYTE OWNER_MODE_bits ! COMMENT ADDED BY SDL - OWNER_MODE_bits contains bits OWNER_MODE through CREATE_MODE. end group VA$R_REGION_FIELDS end variant# end group VA$R_REGION_PROT" group VA$R_START_VA_UNION variant  caseL BASIC$QUADWORD VA$PQ_START_VA ! Lowest address in region caseN LONG VA$PS_START_VA ! Lowest address in 32-bit region end variant& end group VA$R_START_VA_UNION% group VA$R_REGION_SIZE_UNION variant caseD BASIC$QUADWORD VA$Q_REGION_SIZE ! Size of region caseD LONG VA$L_REGION_SIZE ! Size of 32-bit region end variant) end group VA$R_REGION_SIZE_UNION! group VA$R_FREE_VA_UNION variant caseP BASIC$QUADWORD VA$PQ_FIRST_FREE_VA ! First free VA in region caseM LONG VA$PS_FIRST_FREE_VA ! First free VA in 32-bit region end variant% end group VA$R_FREE_VA_UNION" ! Region protection encodings ! - end record REGSUM  ! + ! VA flags  ! -9 DECLARE LONG CONSTANT VA$M_NO_OVERMAP = x'00000001'- DECLARE LONG CONSTANT VA$S_VA_FLAGS = 1 record VA_FLAGS0 ! Do not overmap while creating pagesr BYTE NO_OVERMAP_bits ! COMMENT ADDED BY SDL - NO_OVERMAP_bits contains bits NO_OVERMAP through FILL_77_ end record VA_FLAGS  ! + ! SETSTK_64 flags  ! -> DECLARE LONG CONSTANT VA$M_SETSTK_REGISTER = x'00000001'1 DECLARE LONG CONSTANT VA$S_SETSTK_FLAGS = 1  record SETSTK_FLAGS& ! Set register stack limits BYTE SETSTK_REGISTER_bits ! COMMENT ADDED BY SDL - SETSTK_REGISTER_bits contains bits SETSTK_REGISTER through FILL_78_ end record SETSTK_FLAGS  ww( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +9 ! Define the 32-bit virtual address range structure. ! -3 DECLARE LONG CONSTANT VA_RANGE$S_VA_RANGE = 8 record VA_RANGEG LONG VA_RANGE$PS_START_VA ! Starting virtual addressL LONG VA_RANGE$PS_END_VA ! Ending (last) virtual address end record VA_RANGE R DECLARE LONG CONSTANT VA_RANGE$K_LENGTH = 8 ! Length of VA_RANGE structureR DECLARE LONG CONSTANT VA_RANGE$C_LENGTH = 8 ! Length of VA_RANGE structure wwG5" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  * DECLARE LONG CONSTANT VAX$C_V780 = 1* DECLARE LONG CONSTANT VAX$K_V780 = 1* DECLARE LONG CONSTANT VAX$C_V782 = 2* DECLARE LONG CONSTANT VAX$K_V782 = 2* DECLARE LONG CONSTANT VAX$C_V750 =  3* DECLARE LONG CONSTANT VAX$K_V750 = 3* DECLARE LONG CONSTANT VAX$C_V730 = 4* DECLARE LONG CONSTANT VAX$K_V730 = 4* DECLARE LONG CONSTANT VAX$C_V785 = 5* DECLARE LONG CONSTANT VAX$K_V785 = 5* DECLARE LONG CONSTANT VAX$C_VUV1 = 6* DECLARE LONG CONSTANT VAX$K_VUV1 = 6* DECLARE LONG CONSTANT VAX$C_VWS1 = 7* DECLARE LONG CONSTANT VAX$K_VWS1 = 7* DECLARE LONG CONSTANT VAX$C_VUV2 = 8* DECLARE LONG CONSTANT VAX$K_VUV2 = 8* DECLARE LONG  CONSTANT VAX$C_VWS2 = 9* DECLARE LONG CONSTANT VAX$K_VWS2 = 9+ DECLARE LONG CONSTANT VAX$C_VWSD = 10+ DECLARE LONG CONSTANT VAX$K_VWSD = 10, DECLARE LONG CONSTANT VAX$C_V8600 = 11, DECLARE LONG CONSTANT VAX$K_V8600 = 11, DECLARE LONG CONSTANT VAX$C_V8650 = 12, DECLARE LONG CONSTANT VAX$K_V8650 = 12, DECLARE LONG CONSTANT VAX$C_V8200 = 13, DECLARE LONG CONSTANT VAX$K_V8200 = 13, DECLARE LONG CONSTANT VAX$C_V8300 = 14, DECLARE LONG CON STANT VAX$K_V8300 = 14, DECLARE LONG CONSTANT VAX$C_V8530 = 15, DECLARE LONG CONSTANT VAX$K_V8530 = 15, DECLARE LONG CONSTANT VAX$C_V8550 = 16, DECLARE LONG CONSTANT VAX$K_V8550 = 16, DECLARE LONG CONSTANT VAX$C_V8700 = 17, DECLARE LONG CONSTANT VAX$K_V8700 = 17, DECLARE LONG CONSTANT VAX$C_V8800 = 18, DECLARE LONG CONSTANT VAX$K_V8800 = 18. DECLARE LONG CONSTANT VAX$C_VWS2000 = 19. DECLARE LONG CONSTANT VAX$K_VWS2000 = 19. DECLARE LONG  CONSTANT VAX$C_VUV2000 = 20. DECLARE LONG CONSTANT VAX$K_VUV2000 = 20/ DECLARE LONG CONSTANT VAX$C_VWSD2000 = 21/ DECLARE LONG CONSTANT VAX$K_VWSD2000 = 21+ DECLARE LONG CONSTANT VAX$C_V009 = 22+ DECLARE LONG CONSTANT VAX$K_V009 = 22, DECLARE LONG CONSTANT VAX$C_V8250 = 23, DECLARE LONG CONSTANT VAX$K_V8250 = 23, DECLARE LONG CONSTANT VAX$C_V8350 = 24, DECLARE LONG CONSTANT VAX$K_V8350 = 24, DECLARE LONG CONSTANT VAX$C_V3600 = 25, DECLARE LONG CONSTANT VAX$K_V3600 = 25- DECLARE LONG CONSTANT VAX$C_V3600W = 26- DECLARE LONG CONSTANT VAX$K_V3600W = 26- DECLARE LONG CONSTANT VAX$C_V3600D = 27- DECLARE LONG CONSTANT VAX$K_V3600D = 27+ DECLARE LONG CONSTANT VAX$K_V9CC = 28+ DECLARE LONG CONSTANT VAX$C_V9CC = 28. DECLARE LONG CONSTANT VAX$K_V6210_T = 28. DECLARE LONG CONSTANT VAX$C_V6210_T = 28, DECLARE LONG CONSTANT VAX$K_V6210 = 28, DECLARE LONG CONSTANT VAX$C_V6210 = 28, DECLARE LONG CONSTANT VAX$C_V3520 = 29, DECLARE LONG CONSTANT VAX$K_V3520 = 29- DECLARE LONG CONSTANT VAX$C_V3520L = 30- DECLARE LONG CONSTANT VAX$K_V3520L = 30+ DECLARE LONG CONSTANT VAX$K_V8PS = 31+ DECLARE LONG CONSTANT VAX$C_V8PS = 31, DECLARE LONG CONSTANT VAX$K_V8840 = 31, DECLARE LONG CONSTANT VAX$C_V8840 = 31+ DECLARE LONG CONSTANT VAX$K_V9RR = 32+ DECLARE LONG CONSTANT VAX$C_V9RR = 32- DECLARE LONG CONSTANT VAX$K_VU V2_S = 33- DECLARE LONG CONSTANT VAX$C_VUV2_S = 33- DECLARE LONG CONSTANT VAX$K_VUV2_J = 34- DECLARE LONG CONSTANT VAX$C_VUV2_J = 34- DECLARE LONG CONSTANT VAX$K_VWS2_T = 35- DECLARE LONG CONSTANT VAX$C_VWS2_T = 35- DECLARE LONG CONSTANT VAX$K_VWS2_J = 36- DECLARE LONG CONSTANT VAX$C_VWS2_J = 36- DECLARE LONG CONSTANT VAX$K_VWSD_T = 37- DECLARE LONG CONSTANT VAX$C_VWSD_T = 37- DECLARE LONG CONSTANT VAX$K_VWSD_J = 38- DECLARE LONG CONSTANT VAX$C_VWSD_J = 380 DECLARE LONG CONSTANT VAX$K_VUV2000_S = 390 DECLARE LONG CONSTANT VAX$C_VUV2000_S = 390 DECLARE LONG CONSTANT VAX$K_VUV2000_J = 400 DECLARE LONG CONSTANT VAX$C_VUV2000_J = 400 DECLARE LONG CONSTANT VAX$K_VWS2000_T = 410 DECLARE LONG CONSTANT VAX$C_VWS2000_T = 410 DECLARE LONG CONSTANT VAX$K_VWS2000_J = 420 DECLARE LONG CONSTANT VAX$C_VWS2000_J = 421 DECLARE LONG CONSTANT VAX$K_VWSD2000_T = 431 DECLARE LONG C ONSTANT VAX$C_VWSD2000_T = 431 DECLARE LONG CONSTANT VAX$K_VWSD2000_J = 441 DECLARE LONG CONSTANT VAX$C_VWSD2000_J = 44. DECLARE LONG CONSTANT VAX$K_V3600_S = 45. DECLARE LONG CONSTANT VAX$C_V3600_S = 45. DECLARE LONG CONSTANT VAX$K_V3600_J = 46. DECLARE LONG CONSTANT VAX$C_V3600_J = 46/ DECLARE LONG CONSTANT VAX$K_V3600W_T = 47/ DECLARE LONG CONSTANT VAX$C_V3600W_T = 47/ DECLARE LONG CONSTANT VAX$K_V3600W_J = 48/ DECLARE LONG CONSTANT VAX$C_V3600W_J = 48/ DECLARE LONG CONSTANT VAX$K_V3600D_T = 49/ DECLARE LONG CONSTANT VAX$C_V3600D_T = 49/ DECLARE LONG CONSTANT VAX$K_V3600D_J = 50/ DECLARE LONG CONSTANT VAX$C_V3600D_J = 50. DECLARE LONG CONSTANT VAX$K_V3520_S = 51. DECLARE LONG CONSTANT VAX$C_V3520_S = 51. DECLARE LONG CONSTANT VAX$K_V3520_J = 52. DECLARE LONG CONSTANT VAX$C_V3520_J = 52/ DECLARE LONG CONSTANT VAX$K_V3520L_T = 53/ DECLARE LONG CONSTANT VAX$C_V3520L_T  = 53/ DECLARE LONG CONSTANT VAX$K_V3520L_J = 54/ DECLARE LONG CONSTANT VAX$C_V3520L_J = 54- DECLARE LONG CONSTANT VAX$K_V8250L = 55- DECLARE LONG CONSTANT VAX$C_V8250L = 55/ DECLARE LONG CONSTANT VAX$K_V8250L_J = 56/ DECLARE LONG CONSTANT VAX$C_V8250L_J = 56* DECLARE LONG CONSTANT VAX$K_VCV = 57* DECLARE LONG CONSTANT VAX$C_VCV = 57, DECLARE LONG CONSTANT VAX$K_VCVWS = 58, DECLARE LONG CONSTANT VAX$C_VCVWS = 58- DECLARE LONG CON STANT VAX$K_VCVWSD = 59- DECLARE LONG CONSTANT VAX$C_VCVWSD = 59, DECLARE LONG CONSTANT VAX$K_VCV_S = 60, DECLARE LONG CONSTANT VAX$C_VCV_S = 60, DECLARE LONG CONSTANT VAX$K_VCV_J = 61, DECLARE LONG CONSTANT VAX$C_VCV_J = 61. DECLARE LONG CONSTANT VAX$K_VCVWS_T = 62. DECLARE LONG CONSTANT VAX$C_VCVWS_T = 62. DECLARE LONG CONSTANT VAX$K_VCVWS_J = 63. DECLARE LONG CONSTANT VAX$C_VCVWS_J = 63/ DECLARE LONG CONSTANT VAX$K_VCVWSD_T = 64/ DECLARE LONG CONSTANT VAX$C_VCVWSD_T = 64/ DECLARE LONG CONSTANT VAX$K_VCVWSD_J = 65/ DECLARE LONG CONSTANT VAX$C_VCVWSD_J = 65, DECLARE LONG CONSTANT VAX$C_V8500 = 66, DECLARE LONG CONSTANT VAX$K_V8500 = 66, DECLARE LONG CONSTANT VAX$K_V8370 = 67, DECLARE LONG CONSTANT VAX$C_V8370 = 67- DECLARE LONG CONSTANT VAX$K_V8650P = 68- DECLARE LONG CONSTANT VAX$C_V8650P = 68. DECLARE LONG CONSTANT VAX$K_V6220_T = 69. DECLARE LONG CONSTANT VAX$C_ V6220_T = 69, DECLARE LONG CONSTANT VAX$K_V6220 = 69, DECLARE LONG CONSTANT VAX$C_V6220 = 69. DECLARE LONG CONSTANT VAX$K_V6230_T = 70. DECLARE LONG CONSTANT VAX$C_V6230_T = 70, DECLARE LONG CONSTANT VAX$K_V6230 = 70, DECLARE LONG CONSTANT VAX$C_V6230 = 70. DECLARE LONG CONSTANT VAX$K_V6240_T = 71. DECLARE LONG CONSTANT VAX$C_V6240_T = 71, DECLARE LONG CONSTANT VAX$K_V6240 = 71, DECLARE LONG CONSTANT VAX$C_V6240 = 71. DECLARE LONG CONST ANT VAX$K_V6250_T = 72. DECLARE LONG CONSTANT VAX$C_V6250_T = 72, DECLARE LONG CONSTANT VAX$K_V6250 = 72, DECLARE LONG CONSTANT VAX$C_V6250 = 72. DECLARE LONG CONSTANT VAX$K_V6260_T = 73. DECLARE LONG CONSTANT VAX$C_V6260_T = 73, DECLARE LONG CONSTANT VAX$K_V6260 = 73, DECLARE LONG CONSTANT VAX$C_V6260 = 73. DECLARE LONG CONSTANT VAX$K_V6270_T = 74. DECLARE LONG CONSTANT VAX$C_V6270_T = 74, DECLARE LONG CONSTANT VAX$K_V6270 = 74, DECLAR E LONG CONSTANT VAX$C_V6270 = 74. DECLARE LONG CONSTANT VAX$K_V6280_T = 75. DECLARE LONG CONSTANT VAX$C_V6280_T = 75, DECLARE LONG CONSTANT VAX$K_V6280 = 75, DECLARE LONG CONSTANT VAX$C_V6280 = 75. DECLARE LONG CONSTANT VAX$K_V6310_T = 76. DECLARE LONG CONSTANT VAX$C_V6310_T = 76, DECLARE LONG CONSTANT VAX$K_V6215 = 76, DECLARE LONG CONSTANT VAX$C_V6215 = 76. DECLARE LONG CONSTANT VAX$K_V6320_T = 77. DECLARE LONG CONSTANT VAX$C_V6320_T = 77,  DECLARE LONG CONSTANT VAX$K_V6225 = 77, DECLARE LONG CONSTANT VAX$C_V6225 = 77. DECLARE LONG CONSTANT VAX$K_V6330_T = 78. DECLARE LONG CONSTANT VAX$C_V6330_T = 78, DECLARE LONG CONSTANT VAX$K_V6235 = 78, DECLARE LONG CONSTANT VAX$C_V6235 = 78. DECLARE LONG CONSTANT VAX$K_V6340_T = 79. DECLARE LONG CONSTANT VAX$C_V6340_T = 79, DECLARE LONG CONSTANT VAX$K_V6245 = 79, DECLARE LONG CONSTANT VAX$C_V6245 = 79. DECLARE LONG CONSTANT VAX$K_V635 0_T = 80. DECLARE LONG CONSTANT VAX$C_V6350_T = 80, DECLARE LONG CONSTANT VAX$K_V6255 = 80, DECLARE LONG CONSTANT VAX$C_V6255 = 80. DECLARE LONG CONSTANT VAX$K_V6360_T = 81. DECLARE LONG CONSTANT VAX$C_V6360_T = 81, DECLARE LONG CONSTANT VAX$K_V6265 = 81, DECLARE LONG CONSTANT VAX$C_V6265 = 81. DECLARE LONG CONSTANT VAX$K_V6370_T = 82. DECLARE LONG CONSTANT VAX$C_V6370_T = 82, DECLARE LONG CONSTANT VAX$K_V6275 = 82, DECLARE LONG CONSTAN T VAX$C_V6275 = 82. DECLARE LONG CONSTANT VAX$K_V6380_T = 83. DECLARE LONG CONSTANT VAX$C_V6380_T = 83, DECLARE LONG CONSTANT VAX$K_V6285 = 83, DECLARE LONG CONSTANT VAX$C_V6285 = 83, DECLARE LONG CONSTANT VAX$K_V8810 = 84, DECLARE LONG CONSTANT VAX$C_V8810 = 84, DECLARE LONG CONSTANT VAX$K_V8820 = 85, DECLARE LONG CONSTANT VAX$C_V8820 = 85, DECLARE LONG CONSTANT VAX$K_V8830 = 86, DECLARE LONG CONSTANT VAX$C_V8830 = 86, DECLARE LONG CON STANT VAX$C_V3400 = 87, DECLARE LONG CONSTANT VAX$K_V3400 = 87- DECLARE LONG CONSTANT VAX$C_V3400W = 88- DECLARE LONG CONSTANT VAX$K_V3400W = 88- DECLARE LONG CONSTANT VAX$C_V3400D = 89- DECLARE LONG CONSTANT VAX$K_V3400D = 89. DECLARE LONG CONSTANT VAX$K_V3400_S = 90. DECLARE LONG CONSTANT VAX$C_V3400_S = 90. DECLARE LONG CONSTANT VAX$K_V3400_J = 91. DECLARE LONG CONSTANT VAX$C_V3400_J = 91/ DECLARE LONG CONSTANT VAX$K_V3400W_T = 92/  DECLARE LONG CONSTANT VAX$C_V3400W_T = 92/ DECLARE LONG CONSTANT VAX$K_V3400W_J = 93/ DECLARE LONG CONSTANT VAX$C_V3400W_J = 93/ DECLARE LONG CONSTANT VAX$K_V3400D_T = 94/ DECLARE LONG CONSTANT VAX$C_V3400D_T = 94/ DECLARE LONG CONSTANT VAX$K_V3400D_J = 95/ DECLARE LONG CONSTANT VAX$C_V3400D_J = 950 DECLARE LONG CONSTANT VAX$K_VUV2000_O = 960 DECLARE LONG CONSTANT VAX$C_VUV2000_O = 960 DECLARE LONG CONSTANT VAX$K_VWS2000_O = 970 DE CLARE LONG CONSTANT VAX$C_VWS2000_O = 971 DECLARE LONG CONSTANT VAX$K_VWSD2000_O = 981 DECLARE LONG CONSTANT VAX$C_VWSD2000_O = 98/ DECLARE LONG CONSTANT VAX$C_VWSK2000 = 99/ DECLARE LONG CONSTANT VAX$K_VWSK2000 = 99/ DECLARE LONG CONSTANT VAX$K_V6210_S = 100/ DECLARE LONG CONSTANT VAX$C_V6210_S = 100/ DECLARE LONG CONSTANT VAX$K_V6220_S = 101/ DECLARE LONG CONSTANT VAX$C_V6220_S = 101/ DECLARE LONG CONSTANT VAX$K_V6230_S = 102/ DECL ARE LONG CONSTANT VAX$C_V6230_S = 102/ DECLARE LONG CONSTANT VAX$K_V6240_S = 103/ DECLARE LONG CONSTANT VAX$C_V6240_S = 103/ DECLARE LONG CONSTANT VAX$K_V6250_S = 104/ DECLARE LONG CONSTANT VAX$C_V6250_S = 104/ DECLARE LONG CONSTANT VAX$K_V6260_S = 105/ DECLARE LONG CONSTANT VAX$C_V6260_S = 105/ DECLARE LONG CONSTANT VAX$K_V6270_S = 106/ DECLARE LONG CONSTANT VAX$C_V6270_S = 106/ DECLARE LONG CONSTANT VAX$K_V6280_S = 107/ DECLARE LO NG CONSTANT VAX$C_V6280_S = 107/ DECLARE LONG CONSTANT VAX$K_V6310_S = 108/ DECLARE LONG CONSTANT VAX$C_V6310_S = 108/ DECLARE LONG CONSTANT VAX$K_V6215_S = 108/ DECLARE LONG CONSTANT VAX$C_V6215_S = 108/ DECLARE LONG CONSTANT VAX$K_V6320_S = 109/ DECLARE LONG CONSTANT VAX$C_V6320_S = 109/ DECLARE LONG CONSTANT VAX$K_V6225_S = 109/ DECLARE LONG CONSTANT VAX$C_V6225_S = 109/ DECLARE LONG CONSTANT VAX$K_V6330_S = 110/ DECLARE LONG CON STANT VAX$C_V6330_S = 110/ DECLARE LONG CONSTANT VAX$K_V6235_S = 110/ DECLARE LONG CONSTANT VAX$C_V6235_S = 110/ DECLARE LONG CONSTANT VAX$K_V6340_S = 111/ DECLARE LONG CONSTANT VAX$C_V6340_S = 111/ DECLARE LONG CONSTANT VAX$K_V6245_S = 111/ DECLARE LONG CONSTANT VAX$C_V6245_S = 111/ DECLARE LONG CONSTANT VAX$K_V6350_S = 112/ DECLARE LONG CONSTANT VAX$C_V6350_S = 112/ DECLARE LONG CONSTANT VAX$K_V6255_S = 112/ DECLARE LONG CONSTANT VAX$C_V6255_S = 112/ DECLARE LONG CONSTANT VAX$K_V6360_S = 113/ DECLARE LONG CONSTANT VAX$C_V6360_S = 113/ DECLARE LONG CONSTANT VAX$K_V6265_S = 113/ DECLARE LONG CONSTANT VAX$C_V6265_S = 113/ DECLARE LONG CONSTANT VAX$K_V6370_S = 114/ DECLARE LONG CONSTANT VAX$C_V6370_S = 114/ DECLARE LONG CONSTANT VAX$K_V6275_S = 114/ DECLARE LONG CONSTANT VAX$C_V6275_S = 114/ DECLARE LONG CONSTANT VAX$K_V6380_S = 115/ DECLARE LONG CONSTANT VAX$C_ V6380_S = 115/ DECLARE LONG CONSTANT VAX$K_V6285_S = 115/ DECLARE LONG CONSTANT VAX$C_V6285_S = 115/ DECLARE LONG CONSTANT VAX$K_V6200_J = 116/ DECLARE LONG CONSTANT VAX$C_V6200_J = 116/ DECLARE LONG CONSTANT VAX$K_V6300_J = 117/ DECLARE LONG CONSTANT VAX$C_V6300_J = 117/ DECLARE LONG CONSTANT VAX$K_V6205_J = 117/ DECLARE LONG CONSTANT VAX$C_V6205_J = 117- DECLARE LONG CONSTANT VAX$C_V3900 = 118- DECLARE LONG CONSTANT VAX$K_V3900 = 118/ DECLARE LONG CONSTANT VAX$K_V3900_S = 119/ DECLARE LONG CONSTANT VAX$C_V3900_S = 119. DECLARE LONG CONSTANT VAX$C_V3900D = 120. DECLARE LONG CONSTANT VAX$K_V3900D = 1200 DECLARE LONG CONSTANT VAX$K_V3900D_T = 1210 DECLARE LONG CONSTANT VAX$C_V3900D_T = 121/ DECLARE LONG CONSTANT VAX$K_V3900_J = 122/ DECLARE LONG CONSTANT VAX$C_V3900_J = 1220 DECLARE LONG CONSTANT VAX$K_V3900D_J = 1230 DECLARE LONG CONSTANT VAX$C_V3900D_J = 123.  DECLARE LONG CONSTANT VAX$C_V2000A = 124. DECLARE LONG CONSTANT VAX$K_V2000A = 1240 DECLARE LONG CONSTANT VAX$K_V2000A_S = 1250 DECLARE LONG CONSTANT VAX$C_V2000A_S = 125/ DECLARE LONG CONSTANT VAX$C_V2000AW = 126/ DECLARE LONG CONSTANT VAX$K_V2000AW = 126/ DECLARE LONG CONSTANT VAX$C_V2000AD = 127/ DECLARE LONG CONSTANT VAX$K_V2000AD = 1271 DECLARE LONG CONSTANT VAX$K_V2000AW_T = 1281 DECLARE LONG CONSTANT VAX$C_V2000AW_T = 1281 DECL ARE LONG CONSTANT VAX$K_V2000AD_T = 1291 DECLARE LONG CONSTANT VAX$C_V2000AD_T = 1290 DECLARE LONG CONSTANT VAX$K_V2000A_J = 1300 DECLARE LONG CONSTANT VAX$C_V2000A_J = 1301 DECLARE LONG CONSTANT VAX$K_V2000AW_J = 1311 DECLARE LONG CONSTANT VAX$C_V2000AW_J = 1311 DECLARE LONG CONSTANT VAX$K_V2000AD_J = 1321 DECLARE LONG CONSTANT VAX$C_V2000AD_J = 132- DECLARE LONG CONSTANT VAX$C_V3540 = 133- DECLARE LONG CONSTANT VAX$K_V3540 = 133/ DE CLARE LONG CONSTANT VAX$K_V3540_S = 134/ DECLARE LONG CONSTANT VAX$C_V3540_S = 134. DECLARE LONG CONSTANT VAX$C_V3540L = 135. DECLARE LONG CONSTANT VAX$K_V3540L = 1350 DECLARE LONG CONSTANT VAX$K_V3540L_T = 1360 DECLARE LONG CONSTANT VAX$C_V3540L_T = 136- DECLARE LONG CONSTANT VAX$C_V3560 = 137- DECLARE LONG CONSTANT VAX$K_V3560 = 137/ DECLARE LONG CONSTANT VAX$K_V3560_S = 138/ DECLARE LONG CONSTANT VAX$C_V3560_S = 138. DECLARE LONG CON STANT VAX$C_V3560L = 139. DECLARE LONG CONSTANT VAX$K_V3560L = 1390 DECLARE LONG CONSTANT VAX$K_V3560L_T = 1400 DECLARE LONG CONSTANT VAX$C_V3560L_T = 140- DECLARE LONG CONSTANT VAX$C_V3580 = 141- DECLARE LONG CONSTANT VAX$K_V3580 = 141/ DECLARE LONG CONSTANT VAX$K_V3580_S = 142/ DECLARE LONG CONSTANT VAX$C_V3580_S = 142. DECLARE LONG CONSTANT VAX$C_V3580L = 143. DECLARE LONG CONSTANT VAX$K_V3580L = 1430 DECLARE LONG CONSTANT VAX$K_V3580L _T = 1440 DECLARE LONG CONSTANT VAX$C_V3580L_T = 144- DECLARE LONG CONSTANT VAX$C_V35A0 = 145- DECLARE LONG CONSTANT VAX$K_V35A0 = 145/ DECLARE LONG CONSTANT VAX$K_V35A0_S = 146/ DECLARE LONG CONSTANT VAX$C_V35A0_S = 146+ DECLARE LONG CONSTANT VAX$K_VPV = 147+ DECLARE LONG CONSTANT VAX$C_VPV = 147- DECLARE LONG CONSTANT VAX$K_VPVWS = 148- DECLARE LONG CONSTANT VAX$C_VPVWS = 148. DECLARE LONG CONSTANT VAX$K_VPVWSD = 149. DECLARE LONG CONSTANT VAX$C_VPVWSD = 149- DECLARE LONG CONSTANT VAX$K_VPV_S = 150- DECLARE LONG CONSTANT VAX$C_VPV_S = 150- DECLARE LONG CONSTANT VAX$K_VPV_J = 151- DECLARE LONG CONSTANT VAX$C_VPV_J = 151/ DECLARE LONG CONSTANT VAX$K_VPVWS_T = 152/ DECLARE LONG CONSTANT VAX$C_VPVWS_T = 152/ DECLARE LONG CONSTANT VAX$K_VPVWS_J = 153/ DECLARE LONG CONSTANT VAX$C_VPVWS_J = 1530 DECLARE LONG CONSTANT VAX$K_VPVWSD_T = 1540 DECLARE LONG CONSTANT VA X$C_VPVWSD_T = 1540 DECLARE LONG CONSTANT VAX$K_VPVWSD_J = 1550 DECLARE LONG CONSTANT VAX$C_VPVWSD_J = 155+ DECLARE LONG CONSTANT VAX$K_VTM = 156+ DECLARE LONG CONSTANT VAX$C_VTM = 156- DECLARE LONG CONSTANT VAX$K_VTM_S = 157- DECLARE LONG CONSTANT VAX$C_VTM_S = 157- DECLARE LONG CONSTANT VAX$K_VTM_J = 158- DECLARE LONG CONSTANT VAX$C_VTM_J = 1580 DECLARE LONG CONSTANT VAX$K_V9RR10_T = 1590 DECLARE LONG CONSTANT VAX$C_V9RR10_T = 1590  DECLARE LONG CONSTANT VAX$K_V9RR20_T = 1600 DECLARE LONG CONSTANT VAX$C_V9RR20_T = 1600 DECLARE LONG CONSTANT VAX$K_V9RR30_T = 1610 DECLARE LONG CONSTANT VAX$C_V9RR30_T = 1610 DECLARE LONG CONSTANT VAX$K_V9RR40_T = 1620 DECLARE LONG CONSTANT VAX$C_V9RR40_T = 1620 DECLARE LONG CONSTANT VAX$K_V9RR50_T = 1630 DECLARE LONG CONSTANT VAX$C_V9RR50_T = 1630 DECLARE LONG CONSTANT VAX$K_V9RR60_T = 1640 DECLARE LONG CONSTANT VAX$C_V9RR60_T = 1640 DE CLARE LONG CONSTANT VAX$K_V9RR70_T = 1650 DECLARE LONG CONSTANT VAX$C_V9RR70_T = 1650 DECLARE LONG CONSTANT VAX$K_V9RR80_T = 1660 DECLARE LONG CONSTANT VAX$C_V9RR80_T = 1660 DECLARE LONG CONSTANT VAX$K_V9RR10_S = 1670 DECLARE LONG CONSTANT VAX$C_V9RR10_S = 1670 DECLARE LONG CONSTANT VAX$K_V9RR20_S = 1680 DECLARE LONG CONSTANT VAX$C_V9RR20_S = 1680 DECLARE LONG CONSTANT VAX$K_V9RR30_S = 1690 DECLARE LONG CONSTANT VAX$C_V9RR30_S = 1690 DECLARE LONG CONSTANT VAX$K_V9RR40_S = 1700 DECLARE LONG CONSTANT VAX$C_V9RR40_S = 1700 DECLARE LONG CONSTANT VAX$K_V9RR50_S = 1710 DECLARE LONG CONSTANT VAX$C_V9RR50_S = 1710 DECLARE LONG CONSTANT VAX$K_V9RR60_S = 1720 DECLARE LONG CONSTANT VAX$C_V9RR60_S = 1720 DECLARE LONG CONSTANT VAX$K_V9RR70_S = 1730 DECLARE LONG CONSTANT VAX$C_V9RR70_S = 1730 DECLARE LONG CONSTANT VAX$K_V9RR80_S = 1740 DECLARE LONG CONSTANT VAX$C_V9RR80_S = 1740 DECLARE LONG C ONSTANT VAX$K_V9RR10_J = 1750 DECLARE LONG CONSTANT VAX$C_V9RR10_J = 175. DECLARE LONG CONSTANT VAX$K_V9AR10 = 176. DECLARE LONG CONSTANT VAX$C_V9AR10 = 176. DECLARE LONG CONSTANT VAX$K_V9AR20 = 177. DECLARE LONG CONSTANT VAX$C_V9AR20 = 177. DECLARE LONG CONSTANT VAX$K_V9AQ10 = 178. DECLARE LONG CONSTANT VAX$C_V9AQ10 = 178. DECLARE LONG CONSTANT VAX$K_V9AQ20 = 179. DECLARE LONG CONSTANT VAX$C_V9AQ20 = 179. DECLARE LONG CONSTANT VAX$K_V9AQ30 =  180. DECLARE LONG CONSTANT VAX$C_V9AQ30 = 180. DECLARE LONG CONSTANT VAX$K_V9AQ40 = 181. DECLARE LONG CONSTANT VAX$C_V9AQ40 = 1810 DECLARE LONG CONSTANT VAX$K_V6305E_T = 1820 DECLARE LONG CONSTANT VAX$C_V6305E_T = 1820 DECLARE LONG CONSTANT VAX$K_V6305E_S = 1830 DECLARE LONG CONSTANT VAX$C_V6305E_S = 1830 DECLARE LONG CONSTANT VAX$K_V6305E_J = 1840 DECLARE LONG CONSTANT VAX$C_V6305E_J = 1840 DECLARE LONG CONSTANT VAX$K_V1202_1T = 1850 DECLARE LONG CONSTANT VAX$C_V1202_1T = 1850 DECLARE LONG CONSTANT VAX$K_V1202_2T = 1860 DECLARE LONG CONSTANT VAX$C_V1202_2T = 1860 DECLARE LONG CONSTANT VAX$K_V1202_3T = 1870 DECLARE LONG CONSTANT VAX$C_V1202_3T = 1870 DECLARE LONG CONSTANT VAX$K_V1202_4T = 1880 DECLARE LONG CONSTANT VAX$C_V1202_4T = 1880 DECLARE LONG CONSTANT VAX$K_V1202_5T = 1890 DECLARE LONG CONSTANT VAX$C_V1202_5T = 1890 DECLARE LONG CONSTANT VAX$K_V1202_6T = 1900 DECLAR E LONG CONSTANT VAX$C_V1202_6T = 1900 DECLARE LONG CONSTANT VAX$K_V1202_7T = 1910 DECLARE LONG CONSTANT VAX$C_V1202_7T = 1910 DECLARE LONG CONSTANT VAX$K_V1202_8T = 1920 DECLARE LONG CONSTANT VAX$C_V1202_8T = 1920 DECLARE LONG CONSTANT VAX$K_V1202_1S = 1930 DECLARE LONG CONSTANT VAX$C_V1202_1S = 1930 DECLARE LONG CONSTANT VAX$K_V1202_2S = 1940 DECLARE LONG CONSTANT VAX$C_V1202_2S = 1940 DECLARE LONG CONSTANT VAX$K_V1202_3S = 1950 DECLARE LONG  CONSTANT VAX$C_V1202_3S = 1950 DECLARE LONG CONSTANT VAX$K_V1202_4S = 1960 DECLARE LONG CONSTANT VAX$C_V1202_4S = 1960 DECLARE LONG CONSTANT VAX$K_V1202_5S = 1970 DECLARE LONG CONSTANT VAX$C_V1202_5S = 1970 DECLARE LONG CONSTANT VAX$K_V1202_6S = 1980 DECLARE LONG CONSTANT VAX$C_V1202_6S = 1980 DECLARE LONG CONSTANT VAX$K_V1202_7S = 1990 DECLARE LONG CONSTANT VAX$C_V1202_7S = 1990 DECLARE LONG CONSTANT VAX$K_V1202_8S = 2000 DECLARE LONG CONST ANT VAX$C_V1202_8S = 2000 DECLARE LONG CONSTANT VAX$K_V1202_1J = 2010 DECLARE LONG CONSTANT VAX$C_V1202_1J = 201/ DECLARE LONG CONSTANT VAX$K_VPV2M_S = 202/ DECLARE LONG CONSTANT VAX$C_VPV2M_S = 202/ DECLARE LONG CONSTANT VAX$K_VPV2M_T = 203/ DECLARE LONG CONSTANT VAX$C_VPV2M_T = 203/ DECLARE LONG CONSTANT VAX$K_VPV2M_J = 204/ DECLARE LONG CONSTANT VAX$C_VPV2M_J = 204/ DECLARE LONG CONSTANT VAX$K_VPV2C_S = 205/ DECLARE LONG CONSTANT VA X$C_VPV2C_S = 205/ DECLARE LONG CONSTANT VAX$K_VPV2C_T = 206/ DECLARE LONG CONSTANT VAX$C_VPV2C_T = 206/ DECLARE LONG CONSTANT VAX$K_VPV2C_J = 207/ DECLARE LONG CONSTANT VAX$C_VPV2C_J = 207. DECLARE LONG CONSTANT VAX$K_VPV2_S = 208. DECLARE LONG CONSTANT VAX$C_VPV2_S = 208. DECLARE LONG CONSTANT VAX$K_VPV2_T = 209. DECLARE LONG CONSTANT VAX$C_VPV2_T = 209. DECLARE LONG CONSTANT VAX$K_VPV2_J = 210. DECLARE LONG CONSTANT VAX$C_VPV2_J = 210 - DECLARE LONG CONSTANT VAX$K_V4500 = 211- DECLARE LONG CONSTANT VAX$C_V4500 = 211, DECLARE LONG CONSTANT VAX$C_V670 = 211, DECLARE LONG CONSTANT VAX$K_V670 = 211/ DECLARE LONG CONSTANT VAX$K_V4500_S = 212/ DECLARE LONG CONSTANT VAX$C_V4500_S = 212. DECLARE LONG CONSTANT VAX$K_V670_S = 212. DECLARE LONG CONSTANT VAX$C_V670_S = 212/ DECLARE LONG CONSTANT VAX$K_V4500_J = 213/ DECLARE LONG CONSTANT VAX$C_V4500_J = 213. DECLARE LONG C ONSTANT VAX$K_V670_J = 213. DECLARE LONG CONSTANT VAX$C_V670_J = 213. DECLARE LONG CONSTANT VAX$K_V520FT = 214. DECLARE LONG CONSTANT VAX$C_V520FT = 2140 DECLARE LONG CONSTANT VAX$K_VRMAXM_S = 2150 DECLARE LONG CONSTANT VAX$C_VRMAXM_S = 2150 DECLARE LONG CONSTANT VAX$K_VRMAXM_T = 2160 DECLARE LONG CONSTANT VAX$C_VRMAXM_T = 2160 DECLARE LONG CONSTANT VAX$K_VRMAXM_J = 2170 DECLARE LONG CONSTANT VAX$C_VRMAXM_J = 2170 DECLARE LONG CONSTANT VAX$K_ VRMAXS_S = 2180 DECLARE LONG CONSTANT VAX$C_VRMAXS_S = 2180 DECLARE LONG CONSTANT VAX$K_VRMAXS_T = 2190 DECLARE LONG CONSTANT VAX$C_VRMAXS_T = 2190 DECLARE LONG CONSTANT VAX$K_VRMAXS_J = 2200 DECLARE LONG CONSTANT VAX$C_VRMAXS_J = 220/ DECLARE LONG CONSTANT VAX$K_VRMAX_S = 221/ DECLARE LONG CONSTANT VAX$C_VRMAX_S = 221/ DECLARE LONG CONSTANT VAX$K_VRMAX_T = 222/ DECLARE LONG CONSTANT VAX$C_VRMAX_T = 222/ DECLARE LONG CONSTANT VAX$K_VRMAX_ J = 223/ DECLARE LONG CONSTANT VAX$C_VRMAX_J = 2230 DECLARE LONG CONSTANT VAX$K_VRMAXD_S = 2240 DECLARE LONG CONSTANT VAX$C_VRMAXD_S = 2240 DECLARE LONG CONSTANT VAX$K_VRMAXD_T = 2250 DECLARE LONG CONSTANT VAX$C_VRMAXD_T = 2250 DECLARE LONG CONSTANT VAX$K_VRMAXD_J = 2260 DECLARE LONG CONSTANT VAX$C_VRMAXD_J = 226/ DECLARE LONG CONSTANT VAX$K_VPV0S_S = 227/ DECLARE LONG CONSTANT VAX$C_VPV0S_S = 227/ DECLARE LONG CONSTANT VAX$K_VPV0S_T = 22 8/ DECLARE LONG CONSTANT VAX$C_VPV0S_T = 228/ DECLARE LONG CONSTANT VAX$K_VPV0S_J = 229/ DECLARE LONG CONSTANT VAX$C_VPV0S_J = 229/ DECLARE LONG CONSTANT VAX$K_VPV1S_S = 230/ DECLARE LONG CONSTANT VAX$C_VPV1S_S = 230/ DECLARE LONG CONSTANT VAX$K_VPV1S_T = 231/ DECLARE LONG CONSTANT VAX$C_VPV1S_T = 231/ DECLARE LONG CONSTANT VAX$K_VPV1S_J = 232/ DECLARE LONG CONSTANT VAX$C_VPV1S_J = 232/ DECLARE LONG CONSTANT VAX$K_VPV2S_S = 233/  DECLARE LONG CONSTANT VAX$C_VPV2S_S = 233/ DECLARE LONG CONSTANT VAX$K_VPV2S_T = 234/ DECLARE LONG CONSTANT VAX$C_VPV2S_T = 234/ DECLARE LONG CONSTANT VAX$K_VPV2S_J = 235/ DECLARE LONG CONSTANT VAX$C_VPV2S_J = 2350 DECLARE LONG CONSTANT VAX$K_VKA46M_S = 2360 DECLARE LONG CONSTANT VAX$C_VKA46M_S = 2360 DECLARE LONG CONSTANT VAX$K_VKA46M_T = 2370 DECLARE LONG CONSTANT VAX$C_VKA46M_T = 2370 DECLARE LONG CONSTANT VAX$K_VKA46M_J = 2380 DE CLARE LONG CONSTANT VAX$C_VKA46M_J = 2380 DECLARE LONG CONSTANT VAX$K_VKA46C_S = 2390 DECLARE LONG CONSTANT VAX$C_VKA46C_S = 2390 DECLARE LONG CONSTANT VAX$K_VKA46C_T = 2400 DECLARE LONG CONSTANT VAX$C_VKA46C_T = 2400 DECLARE LONG CONSTANT VAX$K_VKA46C_J = 2410 DECLARE LONG CONSTANT VAX$C_VKA46C_J = 2410 DECLARE LONG CONSTANT VAX$K_VKA46S_S = 2420 DECLARE LONG CONSTANT VAX$C_VKA46S_S = 2420 DECLARE LONG CONSTANT VAX$K_VKA46S_T = 2430 DECLARE LONG CONSTANT VAX$C_VKA46S_T = 2430 DECLARE LONG CONSTANT VAX$K_VKA46S_J = 2440 DECLARE LONG CONSTANT VAX$C_VKA46S_J = 244/ DECLARE LONG CONSTANT VAX$K_VKA46_S = 245/ DECLARE LONG CONSTANT VAX$C_VKA46_S = 245/ DECLARE LONG CONSTANT VAX$K_VKA46_T = 246/ DECLARE LONG CONSTANT VAX$C_VKA46_T = 246/ DECLARE LONG CONSTANT VAX$K_VKA46_J = 247/ DECLARE LONG CONSTANT VAX$C_VKA46_J = 247, DECLARE LONG CONSTANT VAX$C_V660 = 248, DECLARE LONG CONST ANT VAX$K_V660 = 248. DECLARE LONG CONSTANT VAX$K_V660_S = 249. DECLARE LONG CONSTANT VAX$C_V660_S = 249. DECLARE LONG CONSTANT VAX$K_V660_J = 250. DECLARE LONG CONSTANT VAX$C_V660_J = 250- DECLARE LONG CONSTANT VAX$C_V3820 = 251- DECLARE LONG CONSTANT VAX$K_V3820 = 251. DECLARE LONG CONSTANT VAX$C_V3820L = 252. DECLARE LONG CONSTANT VAX$K_V3820L = 252/ DECLARE LONG CONSTANT VAX$K_V3820_S = 253/ DECLARE LONG CONSTANT VAX$C_V3820_S = 253/  DECLARE LONG CONSTANT VAX$K_V3820_J = 254/ DECLARE LONG CONSTANT VAX$C_V3820_J = 2540 DECLARE LONG CONSTANT VAX$K_V3820L_T = 2550 DECLARE LONG CONSTANT VAX$C_V3820L_T = 2550 DECLARE LONG CONSTANT VAX$K_V3820L_J = 2560 DECLARE LONG CONSTANT VAX$C_V3820L_J = 256- DECLARE LONG CONSTANT VAX$C_V3840 = 257- DECLARE LONG CONSTANT VAX$K_V3840 = 257/ DECLARE LONG CONSTANT VAX$K_V3840_S = 258/ DECLARE LONG CONSTANT VAX$C_V3840_S = 258. DECL ARE LONG CONSTANT VAX$C_V3840L = 259. DECLARE LONG CONSTANT VAX$K_V3840L = 2590 DECLARE LONG CONSTANT VAX$K_V3840L_T = 2600 DECLARE LONG CONSTANT VAX$C_V3840L_T = 260- DECLARE LONG CONSTANT VAX$C_V3860 = 261- DECLARE LONG CONSTANT VAX$K_V3860 = 261/ DECLARE LONG CONSTANT VAX$K_V3860_S = 262/ DECLARE LONG CONSTANT VAX$C_V3860_S = 262. DECLARE LONG CONSTANT VAX$C_V3860L = 263. DECLARE LONG CONSTANT VAX$K_V3860L = 2630 DECLARE LONG CONSTANT VAX$K_V3860L_T = 2640 DECLARE LONG CONSTANT VAX$C_V3860L_T = 264- DECLARE LONG CONSTANT VAX$C_V3880 = 265- DECLARE LONG CONSTANT VAX$K_V3880 = 265/ DECLARE LONG CONSTANT VAX$K_V3880_S = 266/ DECLARE LONG CONSTANT VAX$C_V3880_S = 266. DECLARE LONG CONSTANT VAX$C_V3880L = 267. DECLARE LONG CONSTANT VAX$K_V3880L = 2670 DECLARE LONG CONSTANT VAX$K_V3880L_T = 2680 DECLARE LONG CONSTANT VAX$C_V3880L_T = 268- DECLARE LONG CONSTANT VAX$C_V38A0 = 269- DECLARE LONG CONSTANT VAX$K_V38A0 = 269/ DECLARE LONG CONSTANT VAX$K_V38A0_S = 270/ DECLARE LONG CONSTANT VAX$C_V38A0_S = 270- DECLARE LONG CONSTANT VAX$C_VPV1A = 271- DECLARE LONG CONSTANT VAX$K_VPV1A = 271. DECLARE LONG CONSTANT VAX$C_VPV1AW = 272. DECLARE LONG CONSTANT VAX$K_VPV1AW = 272. DECLARE LONG CONSTANT VAX$C_VPV1AD = 273. DECLARE LONG CONSTANT VAX$K_VPV1AD = 273/ DECLARE LONG CONSTANT VAX$C_VPV1A_S = 274/ DECLARE LONG CONSTANT VAX$K_VPV1A_S = 274/ DECLARE LONG CONSTANT VAX$K_VPV1A_J = 275/ DECLARE LONG CONSTANT VAX$C_VPV1A_J = 2750 DECLARE LONG CONSTANT VAX$K_VPV1AW_T = 2760 DECLARE LONG CONSTANT VAX$C_VPV1AW_T = 2760 DECLARE LONG CONSTANT VAX$K_VPV1AW_J = 2770 DECLARE LONG CONSTANT VAX$C_VPV1AW_J = 2770 DECLARE LONG CONSTANT VAX$K_VPV1AD_T = 2780 DECLARE LONG CONSTANT VAX$C_VPV1AD_T = 2780 DECLARE LONG CONSTANT VAX$K_VPV1AD_J = 2790 DECLARE LONG C ONSTANT VAX$C_VPV1AD_J = 279. DECLARE LONG CONSTANT VAX$K_VPV1AS = 280. DECLARE LONG CONSTANT VAX$C_VPV1AS = 2800 DECLARE LONG CONSTANT VAX$K_VPV1AS_T = 2810 DECLARE LONG CONSTANT VAX$C_VPV1AS_T = 2810 DECLARE LONG CONSTANT VAX$K_VPV1AS_J = 2820 DECLARE LONG CONSTANT VAX$C_VPV1AS_J = 282, DECLARE LONG CONSTANT VAX$C_V690 = 283, DECLARE LONG CONSTANT VAX$K_V690 = 283. DECLARE LONG CONSTANT VAX$K_V690_S = 284. DECLARE LONG CONSTANT VAX$C_V690_S  = 284. DECLARE LONG CONSTANT VAX$K_V690_J = 285. DECLARE LONG CONSTANT VAX$C_V690_J = 285, DECLARE LONG CONSTANT VAX$C_V680 = 286, DECLARE LONG CONSTANT VAX$K_V680 = 286. DECLARE LONG CONSTANT VAX$K_V680_S = 287. DECLARE LONG CONSTANT VAX$C_V680_S = 287. DECLARE LONG CONSTANT VAX$K_V680_J = 288. DECLARE LONG CONSTANT VAX$C_V680_J = 2880 DECLARE LONG CONSTANT VAX$K_V520FT_S = 2890 DECLARE LONG CONSTANT VAX$C_V520FT_S = 2890 DECLARE LONG  CONSTANT VAX$K_VFT110_T = 2900 DECLARE LONG CONSTANT VAX$C_VFT110_T = 2900 DECLARE LONG CONSTANT VAX$K_VFT110_S = 2910 DECLARE LONG CONSTANT VAX$C_VFT110_S = 2910 DECLARE LONG CONSTANT VAX$K_VFT210_T = 2920 DECLARE LONG CONSTANT VAX$C_VFT210_T = 2920 DECLARE LONG CONSTANT VAX$K_VFT210_S = 2930 DECLARE LONG CONSTANT VAX$C_VFT210_S = 2930 DECLARE LONG CONSTANT VAX$K_V1302_1T = 2940 DECLARE LONG CONSTANT VAX$C_V1302_1T = 2940 DECLARE LONG CONST ANT VAX$K_V1302_2T = 2950 DECLARE LONG CONSTANT VAX$C_V1302_2T = 2950 DECLARE LONG CONSTANT VAX$K_V1302_3T = 2960 DECLARE LONG CONSTANT VAX$C_V1302_3T = 2960 DECLARE LONG CONSTANT VAX$K_V1302_4T = 2970 DECLARE LONG CONSTANT VAX$C_V1302_4T = 2970 DECLARE LONG CONSTANT VAX$K_V1302_5T = 2980 DECLARE LONG CONSTANT VAX$C_V1302_5T = 2980 DECLARE LONG CONSTANT VAX$K_V1302_6T = 2990 DECLARE LONG CONSTANT VAX$C_V1302_6T = 2990 DECLARE LONG CONSTANT VA X$K_V1302_7T = 3000 DECLARE LONG CONSTANT VAX$C_V1302_7T = 3000 DECLARE LONG CONSTANT VAX$K_V1302_8T = 3010 DECLARE LONG CONSTANT VAX$C_V1302_8T = 3010 DECLARE LONG CONSTANT VAX$K_V1302_1S = 3020 DECLARE LONG CONSTANT VAX$C_V1302_1S = 3020 DECLARE LONG CONSTANT VAX$K_V1302_2S = 3030 DECLARE LONG CONSTANT VAX$C_V1302_2S = 3030 DECLARE LONG CONSTANT VAX$K_V1302_3S = 3040 DECLARE LONG CONSTANT VAX$C_V1302_3S = 3040 DECLARE LONG CONSTANT VAX$K_V1 302_4S = 3050 DECLARE LONG CONSTANT VAX$C_V1302_4S = 3050 DECLARE LONG CONSTANT VAX$K_V1302_5S = 3060 DECLARE LONG CONSTANT VAX$C_V1302_5S = 3060 DECLARE LONG CONSTANT VAX$K_V1302_6S = 3070 DECLARE LONG CONSTANT VAX$C_V1302_6S = 3070 DECLARE LONG CONSTANT VAX$K_V1302_7S = 3080 DECLARE LONG CONSTANT VAX$C_V1302_7S = 3080 DECLARE LONG CONSTANT VAX$K_V1302_8S = 3090 DECLARE LONG CONSTANT VAX$C_V1302_8S = 3090 DECLARE LONG CONSTANT VAX$K_V1302_1J  = 3100 DECLARE LONG CONSTANT VAX$C_V1302_1J = 3100 DECLARE LONG CONSTANT VAX$K_V9AQII10 = 3110 DECLARE LONG CONSTANT VAX$C_V9AQII10 = 3110 DECLARE LONG CONSTANT VAX$K_V9AQII20 = 3120 DECLARE LONG CONSTANT VAX$C_V9AQII20 = 3120 DECLARE LONG CONSTANT VAX$K_V9AQII30 = 3130 DECLARE LONG CONSTANT VAX$C_V9AQII30 = 3130 DECLARE LONG CONSTANT VAX$K_V9AQII40 = 3140 DECLARE LONG CONSTANT VAX$C_V9AQII40 = 3140 DECLARE LONG CONSTANT VAX$K_V9ARII10 = 315 0 DECLARE LONG CONSTANT VAX$C_V9ARII10 = 3150 DECLARE LONG CONSTANT VAX$K_V9ARII20 = 3160 DECLARE LONG CONSTANT VAX$C_V9ARII20 = 3161 DECLARE LONG CONSTANT VAX$K_V9AQIII10 = 3171 DECLARE LONG CONSTANT VAX$C_V9AQIII10 = 3171 DECLARE LONG CONSTANT VAX$K_V9AQIII20 = 3181 DECLARE LONG CONSTANT VAX$C_V9AQIII20 = 3181 DECLARE LONG CONSTANT VAX$K_V9AQIII30 = 3191 DECLARE LONG CONSTANT VAX$C_V9AQIII30 = 3191 DECLARE LONG CONSTANT VAX$K_V9AQIII4 0 = 3201 DECLARE LONG CONSTANT VAX$C_V9AQIII40 = 3201 DECLARE LONG CONSTANT VAX$K_V9ARIII10 = 3211 DECLARE LONG CONSTANT VAX$C_V9ARIII10 = 3211 DECLARE LONG CONSTANT VAX$K_V9ARIII20 = 3221 DECLARE LONG CONSTANT VAX$C_V9ARIII20 = 3220 DECLARE LONG CONSTANT VAX$K_VFT410_T = 3230 DECLARE LONG CONSTANT VAX$C_VFT410_T = 3230 DECLARE LONG CONSTANT VAX$K_VFT410_S = 3240 DECLARE LONG CONSTANT VAX$C_VFT410_S = 3240 DECLARE LONG CONSTANT VAX$K_VF T510_T = 3250 DECLARE LONG CONSTANT VAX$C_VFT510_T = 3250 DECLARE LONG CONSTANT VAX$K_VFT510_S = 3260 DECLARE LONG CONSTANT VAX$C_VFT510_S = 3260 DECLARE LONG CONSTANT VAX$K_VFT610_T = 3270 DECLARE LONG CONSTANT VAX$C_VFT610_T = 3270 DECLARE LONG CONSTANT VAX$K_VFT610_S = 3280 DECLARE LONG CONSTANT VAX$C_VFT610_S = 3280 DECLARE LONG CONSTANT VAX$K_VFT612_T = 3290 DECLARE LONG CONSTANT VAX$C_VFT612_T = 3290 DECLARE LONG CONSTANT VAX$K_VFT612_S  = 3300 DECLARE LONG CONSTANT VAX$C_VFT612_S = 3300 DECLARE LONG CONSTANT VAX$K_VFT710_T = 3310 DECLARE LONG CONSTANT VAX$C_VFT710_T = 3310 DECLARE LONG CONSTANT VAX$K_VFT710_S = 3320 DECLARE LONG CONSTANT VAX$C_VFT710_S = 3320 DECLARE LONG CONSTANT VAX$K_VFT712_T = 3330 DECLARE LONG CONSTANT VAX$C_VFT712_T = 3330 DECLARE LONG CONSTANT VAX$K_VFT712_S = 3340 DECLARE LONG CONSTANT VAX$C_VFT712_S = 334/ DECLARE LONG CONSTANT VAX$K_VKA48_T = 335 / DECLARE LONG CONSTANT VAX$C_VKA48_T = 335/ DECLARE LONG CONSTANT VAX$K_VKA48_S = 336/ DECLARE LONG CONSTANT VAX$C_VKA48_S = 336/ DECLARE LONG CONSTANT VAX$K_VKA48_J = 337/ DECLARE LONG CONSTANT VAX$C_VKA48_J = 3370 DECLARE LONG CONSTANT VAX$K_VKA48W_T = 3380 DECLARE LONG CONSTANT VAX$C_VKA48W_T = 3380 DECLARE LONG CONSTANT VAX$K_VKA48W_S = 3390 DECLARE LONG CONSTANT VAX$C_VKA48W_S = 3390 DECLARE LONG CONSTANT VAX$K_VKA48W_J = 3400  DECLARE LONG CONSTANT VAX$C_VKA48W_J = 3400 DECLARE LONG CONSTANT VAX$K_V9AR10_S = 3410 DECLARE LONG CONSTANT VAX$C_V9AR10_S = 3410 DECLARE LONG CONSTANT VAX$K_V9AR20_S = 3420 DECLARE LONG CONSTANT VAX$C_V9AR20_S = 3420 DECLARE LONG CONSTANT VAX$K_V9AQ10_S = 3430 DECLARE LONG CONSTANT VAX$C_V9AQ10_S = 3430 DECLARE LONG CONSTANT VAX$K_V9AQ20_S = 3440 DECLARE LONG CONSTANT VAX$C_V9AQ20_S = 3440 DECLARE LONG CONSTANT VAX$K_V9AQ30_S = 3450 DECL ARE LONG CONSTANT VAX$C_V9AQ30_S = 3450 DECLARE LONG CONSTANT VAX$K_V9AQ40_S = 3460 DECLARE LONG CONSTANT VAX$C_V9AQ40_S = 3462 DECLARE LONG CONSTANT VAX$K_V9ARII10_S = 3472 DECLARE LONG CONSTANT VAX$C_V9ARII10_S = 3472 DECLARE LONG CONSTANT VAX$K_V9ARII20_S = 3482 DECLARE LONG CONSTANT VAX$C_V9ARII20_S = 3482 DECLARE LONG CONSTANT VAX$K_V9AQII10_S = 3492 DECLARE LONG CONSTANT VAX$C_V9AQII10_S = 3492 DECLARE LONG CONSTANT VAX$K_V9AQII20_S = 3502  DECLARE LONG CONSTANT VAX$C_V9AQII20_S = 3502 DECLARE LONG CONSTANT VAX$K_V9AQII30_S = 3512 DECLARE LONG CONSTANT VAX$C_V9AQII30_S = 3512 DECLARE LONG CONSTANT VAX$K_V9AQII40_S = 3522 DECLARE LONG CONSTANT VAX$C_V9AQII40_S = 3523 DECLARE LONG CONSTANT VAX$K_V9ARIII10_S = 3533 DECLARE LONG CONSTANT VAX$C_V9ARIII10_S = 3533 DECLARE LONG CONSTANT VAX$K_V9ARIII20_S = 3543 DECLARE LONG CONSTANT VAX$C_V9ARIII20_S = 3543 DECLARE LONG CONSTANT VAX$ K_V9AQIII10_S = 3553 DECLARE LONG CONSTANT VAX$C_V9AQIII10_S = 3553 DECLARE LONG CONSTANT VAX$K_V9AQIII20_S = 3563 DECLARE LONG CONSTANT VAX$C_V9AQIII20_S = 3563 DECLARE LONG CONSTANT VAX$K_V9AQIII30_S = 3573 DECLARE LONG CONSTANT VAX$C_V9AQIII30_S = 3573 DECLARE LONG CONSTANT VAX$K_V9AQIII40_S = 3583 DECLARE LONG CONSTANT VAX$C_V9AQIII40_S = 3580 DECLARE LONG CONSTANT VAX$K_V1701_1T = 3590 DECLARE LONG CONSTANT VAX$C_V1701_1T = 3590 DECLARE LONG CONSTANT VAX$K_V1701_2T = 3600 DECLARE LONG CONSTANT VAX$C_V1701_2T = 3600 DECLARE LONG CONSTANT VAX$K_V1701_3T = 3610 DECLARE LONG CONSTANT VAX$C_V1701_3T = 3610 DECLARE LONG CONSTANT VAX$K_V1701_4T = 3620 DECLARE LONG CONSTANT VAX$C_V1701_4T = 3620 DECLARE LONG CONSTANT VAX$K_V1701_5T = 3630 DECLARE LONG CONSTANT VAX$C_V1701_5T = 3630 DECLARE LONG CONSTANT VAX$K_V1701_6T = 3640 DECLARE LONG CONSTANT VAX$C_V1701_6T = 3640 DECLAR E LONG CONSTANT VAX$K_V1701_7T = 3650 DECLARE LONG CONSTANT VAX$C_V1701_7T = 3650 DECLARE LONG CONSTANT VAX$K_V1701_8T = 3660 DECLARE LONG CONSTANT VAX$C_V1701_8T = 3660 DECLARE LONG CONSTANT VAX$K_V1701_1S = 3670 DECLARE LONG CONSTANT VAX$C_V1701_1S = 3670 DECLARE LONG CONSTANT VAX$K_V1701_2S = 3680 DECLARE LONG CONSTANT VAX$C_V1701_2S = 3680 DECLARE LONG CONSTANT VAX$K_V1701_3S = 3690 DECLARE LONG CONSTANT VAX$C_V1701_3S = 3690 DECLARE LONG  CONSTANT VAX$K_V1701_4S = 3700 DECLARE LONG CONSTANT VAX$C_V1701_4S = 3700 DECLARE LONG CONSTANT VAX$K_V1701_5S = 3710 DECLARE LONG CONSTANT VAX$C_V1701_5S = 3710 DECLARE LONG CONSTANT VAX$K_V1701_6S = 3720 DECLARE LONG CONSTANT VAX$C_V1701_6S = 3720 DECLARE LONG CONSTANT VAX$K_V1701_7S = 3730 DECLARE LONG CONSTANT VAX$C_V1701_7S = 3730 DECLARE LONG CONSTANT VAX$K_V1701_8S = 3740 DECLARE LONG CONSTANT VAX$C_V1701_8S = 3740 DECLARE LONG CONST ANT VAX$K_V1701_1J = 3750 DECLARE LONG CONSTANT VAX$C_V1701_1J = 3750 DECLARE LONG CONSTANT VAX$K_VKA49C_S = 3760 DECLARE LONG CONSTANT VAX$C_VKA49C_S = 3760 DECLARE LONG CONSTANT VAX$K_VKA49C_T = 3770 DECLARE LONG CONSTANT VAX$C_VKA49C_T = 3770 DECLARE LONG CONSTANT VAX$K_VKA49C_J = 3780 DECLARE LONG CONSTANT VAX$C_VKA49C_J = 3780 DECLARE LONG CONSTANT VAX$K_VKA49S_S = 3790 DECLARE LONG CONSTANT VAX$C_VKA49S_S = 3790 DECLARE LONG CONSTANT VA X$K_VKA49S_T = 3800 DECLARE LONG CONSTANT VAX$C_VKA49S_T = 3800 DECLARE LONG CONSTANT VAX$K_VKA49S_J = 3810 DECLARE LONG CONSTANT VAX$C_VKA49S_J = 381- DECLARE LONG CONSTANT VAX$C_VKA50 = 382- DECLARE LONG CONSTANT VAX$K_VKA50 = 382/ DECLARE LONG CONSTANT VAX$K_VKA50_S = 383/ DECLARE LONG CONSTANT VAX$C_VKA50_S = 383/ DECLARE LONG CONSTANT VAX$K_VKA50_J = 384/ DECLARE LONG CONSTANT VAX$C_VKA50_J = 384- DECLARE LONG CONSTANT VAX$C_VKA51 = 385- DECLARE LONG CONSTANT VAX$K_VKA51 = 385/ DECLARE LONG CONSTANT VAX$K_VKA51_S = 386/ DECLARE LONG CONSTANT VAX$C_VKA51_S = 386/ DECLARE LONG CONSTANT VAX$K_VKA51_J = 387/ DECLARE LONG CONSTANT VAX$C_VKA51_J = 387- DECLARE LONG CONSTANT VAX$C_VKA52 = 388- DECLARE LONG CONSTANT VAX$K_VKA52 = 388/ DECLARE LONG CONSTANT VAX$K_VKA52_S = 389/ DECLARE LONG CONSTANT VAX$C_VKA52_S = 389/ DECLARE LONG CONSTANT VAX$K_VKA52_J = 390/  DECLARE LONG CONSTANT VAX$C_VKA52_J = 390- DECLARE LONG CONSTANT VAX$C_VKA53 = 391- DECLARE LONG CONSTANT VAX$K_VKA53 = 391/ DECLARE LONG CONSTANT VAX$K_VKA53_S = 392/ DECLARE LONG CONSTANT VAX$C_VKA53_S = 392/ DECLARE LONG CONSTANT VAX$K_VKA53_J = 393/ DECLARE LONG CONSTANT VAX$C_VKA53_J = 393. DECLARE LONG CONSTANT VAX$C_VKA675 = 394. DECLARE LONG CONSTANT VAX$K_VKA675 = 3940 DECLARE LONG CONSTANT VAX$K_VKA675_S = 3950 DECLARE LONG  CONSTANT VAX$C_VKA675_S = 3950 DECLARE LONG CONSTANT VAX$K_VKA675_J = 3960 DECLARE LONG CONSTANT VAX$C_VKA675_J = 3960 DECLARE LONG CONSTANT VAX$K_V1703_1T = 3970 DECLARE LONG CONSTANT VAX$C_V1703_1T = 3970 DECLARE LONG CONSTANT VAX$K_V1703_2T = 3980 DECLARE LONG CONSTANT VAX$C_V1703_2T = 3980 DECLARE LONG CONSTANT VAX$K_V1703_3T = 3990 DECLARE LONG CONSTANT VAX$C_V1703_3T = 3990 DECLARE LONG CONSTANT VAX$K_V1703_4T = 4000 DECLARE LONG CONST ANT VAX$C_V1703_4T = 4000 DECLARE LONG CONSTANT VAX$K_V1703_5T = 4010 DECLARE LONG CONSTANT VAX$C_V1703_5T = 4010 DECLARE LONG CONSTANT VAX$K_V1703_6T = 4020 DECLARE LONG CONSTANT VAX$C_V1703_6T = 4020 DECLARE LONG CONSTANT VAX$K_V1703_7T = 4030 DECLARE LONG CONSTANT VAX$C_V1703_7T = 4030 DECLARE LONG CONSTANT VAX$K_V1703_8T = 4040 DECLARE LONG CONSTANT VAX$C_V1703_8T = 4040 DECLARE LONG CONSTANT VAX$K_V1703_1S = 4050 DECLARE LONG CONSTANT VA X$C_V1703_1S = 4050 DECLARE LONG CONSTANT VAX$K_V1703_2S = 4060 DECLARE LONG CONSTANT VAX$C_V1703_2S = 4060 DECLARE LONG CONSTANT VAX$K_V1703_3S = 4070 DECLARE LONG CONSTANT VAX$C_V1703_3S = 4070 DECLARE LONG CONSTANT VAX$K_V1703_4S = 4080 DECLARE LONG CONSTANT VAX$C_V1703_4S = 4080 DECLARE LONG CONSTANT VAX$K_V1703_5S = 4090 DECLARE LONG CONSTANT VAX$C_V1703_5S = 4090 DECLARE LONG CONSTANT VAX$K_V1703_6S = 4100 DECLARE LONG CONSTANT VAX$C_V1 703_6S = 4100 DECLARE LONG CONSTANT VAX$K_V1703_7S = 4110 DECLARE LONG CONSTANT VAX$C_V1703_7S = 4110 DECLARE LONG CONSTANT VAX$K_V1703_8S = 4120 DECLARE LONG CONSTANT VAX$C_V1703_8S = 4120 DECLARE LONG CONSTANT VAX$K_V1703_1J = 4130 DECLARE LONG CONSTANT VAX$C_V1703_1J = 4130 DECLARE LONG CONSTANT VAX$K_VPCVAX_T = 4140 DECLARE LONG CONSTANT VAX$C_VPCVAX_T = 4140 DECLARE LONG CONSTANT VAX$K_VPCVAX_J = 4150 DECLARE LONG CONSTANT VAX$C_VPCVAX_J  = 4150 DECLARE LONG CONSTANT VAX$K_V1704_1T = 4160 DECLARE LONG CONSTANT VAX$C_V1704_1T = 4160 DECLARE LONG CONSTANT VAX$K_V1704_2T = 4170 DECLARE LONG CONSTANT VAX$C_V1704_2T = 4170 DECLARE LONG CONSTANT VAX$K_V1704_3T = 4180 DECLARE LONG CONSTANT VAX$C_V1704_3T = 4180 DECLARE LONG CONSTANT VAX$K_V1704_4T = 4190 DECLARE LONG CONSTANT VAX$C_V1704_4T = 4190 DECLARE LONG CONSTANT VAX$K_V1704_5T = 4200 DECLARE LONG CONSTANT VAX$C_V1704_5T = 420 0 DECLARE LONG CONSTANT VAX$K_V1704_6T = 4210 DECLARE LONG CONSTANT VAX$C_V1704_6T = 4210 DECLARE LONG CONSTANT VAX$K_V1704_7T = 4220 DECLARE LONG CONSTANT VAX$C_V1704_7T = 4220 DECLARE LONG CONSTANT VAX$K_V1704_8T = 4230 DECLARE LONG CONSTANT VAX$C_V1704_8T = 4230 DECLARE LONG CONSTANT VAX$K_V1704_1S = 4240 DECLARE LONG CONSTANT VAX$C_V1704_1S = 4240 DECLARE LONG CONSTANT VAX$K_V1704_2S = 4250 DECLARE LONG CONSTANT VAX$C_V1704_2S = 4250  DECLARE LONG CONSTANT VAX$K_V1704_3S = 4260 DECLARE LONG CONSTANT VAX$C_V1704_3S = 4260 DECLARE LONG CONSTANT VAX$K_V1704_4S = 4270 DECLARE LONG CONSTANT VAX$C_V1704_4S = 4270 DECLARE LONG CONSTANT VAX$K_V1704_5S = 4280 DECLARE LONG CONSTANT VAX$C_V1704_5S = 4280 DECLARE LONG CONSTANT VAX$K_V1704_6S = 4290 DECLARE LONG CONSTANT VAX$C_V1704_6S = 4290 DECLARE LONG CONSTANT VAX$K_V1704_7S = 4300 DECLARE LONG CONSTANT VAX$C_V1704_7S = 4300 DECL ARE LONG CONSTANT VAX$K_V1704_8S = 4310 DECLARE LONG CONSTANT VAX$C_V1704_8S = 4310 DECLARE LONG CONSTANT VAX$K_V1704_1J = 4320 DECLARE LONG CONSTANT VAX$C_V1704_1J = 4320 DECLARE LONG CONSTANT VAX$K_V1705_1T = 4330 DECLARE LONG CONSTANT VAX$C_V1705_1T = 4330 DECLARE LONG CONSTANT VAX$K_V1705_2T = 4340 DECLARE LONG CONSTANT VAX$C_V1705_2T = 4340 DECLARE LONG CONSTANT VAX$K_V1705_3T = 4350 DECLARE LONG CONSTANT VAX$C_V1705_3T = 4350 DECLARE LO NG CONSTANT VAX$K_V1705_4T = 4360 DECLARE LONG CONSTANT VAX$C_V1705_4T = 4360 DECLARE LONG CONSTANT VAX$K_V1705_5T = 4370 DECLARE LONG CONSTANT VAX$C_V1705_5T = 4370 DECLARE LONG CONSTANT VAX$K_V1705_6T = 4380 DECLARE LONG CONSTANT VAX$C_V1705_6T = 4380 DECLARE LONG CONSTANT VAX$K_V1705_7T = 4390 DECLARE LONG CONSTANT VAX$C_V1705_7T = 4390 DECLARE LONG CONSTANT VAX$K_V1705_8T = 4400 DECLARE LONG CONSTANT VAX$C_V1705_8T = 4400 DECLARE LONG CON STANT VAX$K_V1705_1S = 4410 DECLARE LONG CONSTANT VAX$C_V1705_1S = 4410 DECLARE LONG CONSTANT VAX$K_V1705_2S = 4420 DECLARE LONG CONSTANT VAX$C_V1705_2S = 4420 DECLARE LONG CONSTANT VAX$K_V1705_3S = 4430 DECLARE LONG CONSTANT VAX$C_V1705_3S = 4430 DECLARE LONG CONSTANT VAX$K_V1705_4S = 4440 DECLARE LONG CONSTANT VAX$C_V1705_4S = 4440 DECLARE LONG CONSTANT VAX$K_V1705_5S = 4450 DECLARE LONG CONSTANT VAX$C_V1705_5S = 4450 DECLARE LONG CONSTANT VAX$K_V1705_6S = 4460 DECLARE LONG CONSTANT VAX$C_V1705_6S = 4460 DECLARE LONG CONSTANT VAX$K_V1705_7S = 4470 DECLARE LONG CONSTANT VAX$C_V1705_7S = 4470 DECLARE LONG CONSTANT VAX$K_V1705_8S = 4480 DECLARE LONG CONSTANT VAX$C_V1705_8S = 4480 DECLARE LONG CONSTANT VAX$K_V1705_1J = 4490 DECLARE LONG CONSTANT VAX$C_V1705_1J = 449. DECLARE LONG CONSTANT VAX$C_VKA676 = 450. DECLARE LONG CONSTANT VAX$K_VKA676 = 4500 DECLARE LONG CONSTANT VAX$K_VKA6 76_S = 4510 DECLARE LONG CONSTANT VAX$C_VKA676_S = 4510 DECLARE LONG CONSTANT VAX$K_VKA676_J = 4520 DECLARE LONG CONSTANT VAX$C_VKA676_J = 452. DECLARE LONG CONSTANT VAX$C_VKA681 = 453. DECLARE LONG CONSTANT VAX$K_VKA681 = 4530 DECLARE LONG CONSTANT VAX$K_VKA681_S = 4540 DECLARE LONG CONSTANT VAX$C_VKA681_S = 4540 DECLARE LONG CONSTANT VAX$K_VKA681_J = 4550 DECLARE LONG CONSTANT VAX$C_VKA681_J = 455. DECLARE LONG CONSTANT VAX$C_VKA691 = 456.  DECLARE LONG CONSTANT VAX$K_VKA691 = 4560 DECLARE LONG CONSTANT VAX$K_VKA691_S = 4570 DECLARE LONG CONSTANT VAX$C_VKA691_S = 4570 DECLARE LONG CONSTANT VAX$K_VKA691_J = 4580 DECLARE LONG CONSTANT VAX$C_VKA691_J = 458. DECLARE LONG CONSTANT VAX$C_VKA692 = 459. DECLARE LONG CONSTANT VAX$K_VKA692 = 4590 DECLARE LONG CONSTANT VAX$K_VKA692_S = 4600 DECLARE LONG CONSTANT VAX$C_VKA692_S = 4600 DECLARE LONG CONSTANT VAX$K_VKA692_J = 4610 DECLAR E LONG CONSTANT VAX$C_VKA692_J = 461. DECLARE LONG CONSTANT VAX$C_VKA600 = 462. DECLARE LONG CONSTANT VAX$K_VKA600 = 4620 DECLARE LONG CONSTANT VAX$K_VKA600_S = 4630 DECLARE LONG CONSTANT VAX$C_VKA600_S = 4630 DECLARE LONG CONSTANT VAX$K_VKA600_J = 4640 DECLARE LONG CONSTANT VAX$C_VKA600_J = 464. DECLARE LONG CONSTANT VAX$C_VKA605 = 465. DECLARE LONG CONSTANT VAX$K_VKA605 = 4650 DECLARE LONG CONSTANT VAX$K_VKA605_S = 4660 DECLARE LONG CONSTAN T VAX$C_VKA605_S = 4660 DECLARE LONG CONSTANT VAX$K_VKA605_J = 4670 DECLARE LONG CONSTANT VAX$C_VKA605_J = 467. DECLARE LONG CONSTANT VAX$C_VKA52A = 468. DECLARE LONG CONSTANT VAX$K_VKA52A = 4680 DECLARE LONG CONSTANT VAX$K_VKA52A_S = 4690 DECLARE LONG CONSTANT VAX$C_VKA52A_S = 4690 DECLARE LONG CONSTANT VAX$K_VKA52A_J = 4700 DECLARE LONG CONSTANT VAX$C_VKA52A_J = 4700 DECLARE LONG CONSTANT VAX$K_VFT810_T = 4710 DECLARE LONG CONSTANT VAX$C_VF T810_T = 4710 DECLARE LONG CONSTANT VAX$K_VFT810_S = 4720 DECLARE LONG CONSTANT VAX$C_VFT810_S = 4720 DECLARE LONG CONSTANT VAX$K_VFT812_T = 4730 DECLARE LONG CONSTANT VAX$C_VFT812_T = 4730 DECLARE LONG CONSTANT VAX$K_VFT812_S = 4740 DECLARE LONG CONSTANT VAX$C_VFT812_S = 4741 DECLARE LONG CONSTANT VAX$K_VKA49AC_S = 4751 DECLARE LONG CONSTANT VAX$C_VKA49AC_S = 4751 DECLARE LONG CONSTANT VAX$K_VKA49AC_T = 4761 DECLARE LONG CONSTANT VAX$C_VK A49AC_T = 4761 DECLARE LONG CONSTANT VAX$K_VKA49AC_J = 4771 DECLARE LONG CONSTANT VAX$C_VKA49AC_J = 4771 DECLARE LONG CONSTANT VAX$K_VKA49AS_S = 4781 DECLARE LONG CONSTANT VAX$C_VKA49AS_S = 4781 DECLARE LONG CONSTANT VAX$K_VKA49AS_T = 4791 DECLARE LONG CONSTANT VAX$C_VKA49AS_T = 4791 DECLARE LONG CONSTANT VAX$K_VKA49AS_J = 4801 DECLARE LONG CONSTANT VAX$C_VKA49AS_J = 4801 DECLARE LONG CONSTANT VAX$K_VKA49BC_S = 4811 DECLARE LONG CON STANT VAX$C_VKA49BC_S = 4811 DECLARE LONG CONSTANT VAX$K_VKA49BC_T = 4821 DECLARE LONG CONSTANT VAX$C_VKA49BC_T = 4821 DECLARE LONG CONSTANT VAX$K_VKA49BC_J = 4831 DECLARE LONG CONSTANT VAX$C_VKA49BC_J = 4831 DECLARE LONG CONSTANT VAX$K_VKA49BS_S = 4841 DECLARE LONG CONSTANT VAX$C_VKA49BS_S = 4841 DECLARE LONG CONSTANT VAX$K_VKA49BS_T = 4851 DECLARE LONG CONSTANT VAX$C_VKA49BS_T = 4851 DECLARE LONG CONSTANT VAX$K_VKA49BS_J = 4861 DE CLARE LONG CONSTANT VAX$C_VKA49BS_J = 486- DECLARE LONG CONSTANT VAX$C_VKA54 = 487- DECLARE LONG CONSTANT VAX$K_VKA54 = 487/ DECLARE LONG CONSTANT VAX$K_VKA54_S = 488/ DECLARE LONG CONSTANT VAX$C_VKA54_S = 488/ DECLARE LONG CONSTANT VAX$K_VKA54_J = 489/ DECLARE LONG CONSTANT VAX$C_VKA54_J = 489- DECLARE LONG CONSTANT VAX$C_VKA55 = 490- DECLARE LONG CONSTANT VAX$K_VKA55 = 490/ DECLARE LONG CONSTANT VAX$K_VKA55_S = 491/ DECLARE LONG C ONSTANT VAX$C_VKA55_S = 491/ DECLARE LONG CONSTANT VAX$K_VKA55_J = 492/ DECLARE LONG CONSTANT VAX$C_VKA55_J = 492- DECLARE LONG CONSTANT VAX$C_VKA56 = 493- DECLARE LONG CONSTANT VAX$K_VKA56 = 493/ DECLARE LONG CONSTANT VAX$K_VKA56_S = 494/ DECLARE LONG CONSTANT VAX$C_VKA56_S = 494/ DECLARE LONG CONSTANT VAX$K_VKA56_J = 495/ DECLARE LONG CONSTANT VAX$C_VKA56_J = 495. DECLARE LONG CONSTANT VAX$C_VKA694 = 496. DECLARE LONG CONSTANT VAX$ K_VKA694 = 4960 DECLARE LONG CONSTANT VAX$K_VKA694_S = 4970 DECLARE LONG CONSTANT VAX$C_VKA694_S = 4970 DECLARE LONG CONSTANT VAX$K_VKA694_J = 4980 DECLARE LONG CONSTANT VAX$C_VKA694_J = 4980 DECLARE LONG CONSTANT VAX$K_v1706_1T = 4990 DECLARE LONG CONSTANT VAX$C_v1706_1T = 4990 DECLARE LONG CONSTANT VAX$K_v1706_2T = 5000 DECLARE LONG CONSTANT VAX$C_v1706_2T = 5000 DECLARE LONG CONSTANT VAX$K_v1706_3T = 5010 DECLARE LONG CONSTANT VAX$C_v1706_ 3T = 5010 DECLARE LONG CONSTANT VAX$K_v1706_4T = 5020 DECLARE LONG CONSTANT VAX$C_v1706_4T = 5020 DECLARE LONG CONSTANT VAX$K_v1706_5T = 5030 DECLARE LONG CONSTANT VAX$C_v1706_5T = 5030 DECLARE LONG CONSTANT VAX$K_v1706_6T = 5040 DECLARE LONG CONSTANT VAX$C_v1706_6T = 5040 DECLARE LONG CONSTANT VAX$K_v1706_7T = 5050 DECLARE LONG CONSTANT VAX$C_v1706_7T = 5050 DECLARE LONG CONSTANT VAX$K_v1706_8T = 5060 DECLARE LONG CONSTANT VAX$C_v1706_8T = 5 060 DECLARE LONG CONSTANT VAX$K_v1706_1S = 5070 DECLARE LONG CONSTANT VAX$C_v1706_1S = 5070 DECLARE LONG CONSTANT VAX$K_v1706_2S = 5080 DECLARE LONG CONSTANT VAX$C_v1706_2S = 5080 DECLARE LONG CONSTANT VAX$K_v1706_3S = 5090 DECLARE LONG CONSTANT VAX$C_v1706_3S = 5090 DECLARE LONG CONSTANT VAX$K_v1706_4S = 5100 DECLARE LONG CONSTANT VAX$C_v1706_4S = 5100 DECLARE LONG CONSTANT VAX$K_v1706_5S = 5110 DECLARE LONG CONSTANT VAX$C_v1706_5S = 5110  DECLARE LONG CONSTANT VAX$K_v1706_6S = 5120 DECLARE LONG CONSTANT VAX$C_v1706_6S = 5120 DECLARE LONG CONSTANT VAX$K_v1706_7S = 5130 DECLARE LONG CONSTANT VAX$C_v1706_7S = 5130 DECLARE LONG CONSTANT VAX$K_v1706_8S = 5140 DECLARE LONG CONSTANT VAX$C_v1706_8S = 5140 DECLARE LONG CONSTANT VAX$K_v1706_1J = 5150 DECLARE LONG CONSTANT VAX$C_v1706_1J = 5150 DECLARE LONG CONSTANT VAX$K_v1707_1T = 5160 DECLARE LONG CONSTANT VAX$C_v1707_1T = 5160 DE CLARE LONG CONSTANT VAX$K_v1707_2T = 5170 DECLARE LONG CONSTANT VAX$C_v1707_2T = 5170 DECLARE LONG CONSTANT VAX$K_v1707_3T = 5180 DECLARE LONG CONSTANT VAX$C_v1707_3T = 5180 DECLARE LONG CONSTANT VAX$K_v1707_4T = 5190 DECLARE LONG CONSTANT VAX$C_v1707_4T = 5190 DECLARE LONG CONSTANT VAX$K_v1707_5T = 5200 DECLARE LONG CONSTANT VAX$C_v1707_5T = 5200 DECLARE LONG CONSTANT VAX$K_v1707_6T = 5210 DECLARE LONG CONSTANT VAX$C_v1707_6T = 5210 DECLARE LONG CONSTANT VAX$K_v1707_7T = 5220 DECLARE LONG CONSTANT VAX$C_v1707_7T = 5220 DECLARE LONG CONSTANT VAX$K_v1707_8T = 5230 DECLARE LONG CONSTANT VAX$C_v1707_8T = 5230 DECLARE LONG CONSTANT VAX$K_v1707_1S = 5240 DECLARE LONG CONSTANT VAX$C_v1707_1S = 5240 DECLARE LONG CONSTANT VAX$K_v1707_2S = 5250 DECLARE LONG CONSTANT VAX$C_v1707_2S = 5250 DECLARE LONG CONSTANT VAX$K_v1707_3S = 5260 DECLARE LONG CONSTANT VAX$C_v1707_3S = 5260 DECLARE LONG C ONSTANT VAX$K_v1707_4S = 5270 DECLARE LONG CONSTANT VAX$C_v1707_4S = 5270 DECLARE LONG CONSTANT VAX$K_v1707_5S = 5280 DECLARE LONG CONSTANT VAX$C_v1707_5S = 5280 DECLARE LONG CONSTANT VAX$K_v1707_6S = 5290 DECLARE LONG CONSTANT VAX$C_v1707_6S = 5290 DECLARE LONG CONSTANT VAX$K_v1707_7S = 5300 DECLARE LONG CONSTANT VAX$C_v1707_7S = 5300 DECLARE LONG CONSTANT VAX$K_v1707_8S = 5310 DECLARE LONG CONSTANT VAX$C_v1707_8S = 5310 DECLARE LONG CONSTAN T VAX$K_v1707_1J = 5320 DECLARE LONG CONSTANT VAX$C_v1707_1J = 532- DECLARE LONG CONSTANT VAX$C_VKA57 = 533- DECLARE LONG CONSTANT VAX$K_VKA57 = 533/ DECLARE LONG CONSTANT VAX$K_VKA57_S = 534/ DECLARE LONG CONSTANT VAX$C_VKA57_S = 534/ DECLARE LONG CONSTANT VAX$K_VKA57_J = 535/ DECLARE LONG CONSTANT VAX$C_VKA57_J = 535- DECLARE LONG CONSTANT VAX$C_VKA58 = 536- DECLARE LONG CONSTANT VAX$K_VKA58 = 536/ DECLARE LONG CONSTANT VAX$K_VKA58_ S = 537/ DECLARE LONG CONSTANT VAX$C_VKA58_S = 537/ DECLARE LONG CONSTANT VAX$K_VKA58_J = 538/ DECLARE LONG CONSTANT VAX$C_VKA58_J = 538- DECLARE LONG CONSTANT VAX$C_VKA59 = 539- DECLARE LONG CONSTANT VAX$K_VKA59 = 539/ DECLARE LONG CONSTANT VAX$K_VKA59_S = 540/ DECLARE LONG CONSTANT VAX$C_VKA59_S = 540/ DECLARE LONG CONSTANT VAX$K_VKA59_J = 541/ DECLARE LONG CONSTANT VAX$C_VKA59_J = 5411 DECLARE LONG CONSTANT VAX$C_MAX_MODEL = 5411 DECLARE LONG CONSTANT VAX$K_MAX_MODEL = 541 ww6=" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! +) ! SYS$GET_WBEM_INFO item code values ! - DECLARE LONG CONSTANT WBEMI$_SPU_COUNT = 1 ! Count, 64-bit integer, of "schedulable processing units" (SPU id, aka VMS & ! CPUID) DECLARE LONG CONSTANT WBEMI$_SPU_LID_MAPPING = 2 ! Vector of WBEMI_LID_MAP, with LID and SPU_ID pairings, with SPU_COUNT & ! entriesk DECLARE LONG CONSTANT WBEMI$_SPU_FREQUENCY = 3 ! SPU cycle frequency, 64-bit integer, param1=SPU ido DECLARE LONG CONSTANT WBEMI$_SYS_HT_CAPABLE = 4 ! Is system Hyperthreads capable? (0/1, 64-bit integer)z DECLARE LONG CONSTANT WBEMI$_SYS_HT_ENABLED = 5 ! Are system Hyperthreads currently enabled? (0/1, 64-bit integer) DECLARE LONG CONSTANT WBEMI$_SMBIOS_TABLE_TYPE = 6 ! Get SMBIOS table entries by type, param1=SMBIOS table type, raw & ! binary data DECLARE LONG CONSTANT WBEMI$_DIMM_COUNT = 7 ! Number of DIMMs on the system, 64-bit integer, count of ACPI DIMM objectsg DECLARE LONG CONSTANT WBEMI$_DIMM_LOC = 8 ! DIMM location, ASCII string from ACPI, param1=DIMM#l DECLARE LONG CONSTANT WBEMI$_DIMM_UID = 9 ! DIMM serial number, ASCII string from ACPI, param1=DIMM#l DECLARE LONG CONSTANT WBEMI$_DIMM_PART = 10 ! DIMM part number, ASCII string from ACPI, param1=DIMM#g DECLARE LONG CONSTANT WBEMI$_DIMM_SIZE = 11 ! DIMM size, 64-bit integer from ACPI, param1=DIMM#k DECLARE LONG CONSTANT WBEMI$_DIMM_STATUS = 12 ! DIMM status, 64-bit integer from ACPI, param1=DIMM# DECLARE LONG CONSTANT WBEMI$_CELL_COUNT = 13 ! Number of cells in the system, 64-bit integer, count of ACPI cell objectsh DECLARE LONG CONSTANT WBEMI$_CELL_LOC = 14 ! Cell location, ASCII string from ACPI, param1=cell#e DECLARE LONG CONSTANT WBEMI$_CELL_UID = 15 ! Cell UID, 64-bit integer from ACPI, param1=cell#~ DECLARE LONG CONSTANT WBEMI$_PHYS_CPU_COUNT = 16 ! Number of physical CPUs, 64-bit integer, count of ACPI processor & ! objectsh DECLARE LONG CONSTANT WBEMI$_PHYS_CPU_ID = 17 ! Vector of 64-bit ACPI ProcIDs for PHYS_CPU_COUNT| DECLARE LONG CONSTANT WBEMI$_PHYS_LID_MAPPING = 18 ! Vector of WBEMI_LID_MAP, with LID and PROC_ID pairings, with & ! PHYS_CPU_COUNT entriesq DECLARE LONG CONSTANT WBEMI$_PHYS_CPU_LOC = 19 ! CPU chip location, ASCII string from ACPI, param1=ProcIDv DECLARE LONG CONSTANT WBEMI$_PHYS_CPU_SLOT_NUM = 20 ! CPU slot number, 64-bit integer from ACPI, param1=ProcIDt DECLARE LONG CONSTANT WBEMI$_PHYS_CPU_SERIAL = 21 ! CPU serial number, ASCII string from ACPI, param1=ProcIDo DECLARE LONG CONSTANT WBEMI$_PHYS_CPU_STATUS = 22 ! CPU status, 64-bit integer from ACPI, param1=ProcIDq DECLARE LONG CONSTANT WBEMI$_CORES_PER_SOCKET = 23 ! Number of cores per processor socket, 64-bit integerq DECLARE LONG CONSTANT WBEMI$_THREADS_PER_CORE = 24 ! Number of threads per processor core, 64-bit integer{ DECLARE LONG CONSTANT WBEMI$_THREADS_CORE_MAX = 25 ! Number of potential threads per processor core, 64-bit integerm DECLARE LONG CONSTANT WBEMI$_PHYS_CPU_UID_INT = 26 ! CPU UID, 64-bit integer from ACPI, param1=ProcIDa DECLARE LONG CONSTANT WBEMI$K_MAX_ITEM = 26 ! Maximum currently supported item code value ! + ! WBEMI_LID_MAP Structure ! O ! Data returned by SYS$GET_WBEM_INFO WBEMI$_SPU_LID_MAPPING is a vector ofU ! WBEMI_LID_MAP structures, pairing a LID to its associated VMS cpuid in SPU_ID.@ ! The total number of these pairings is given by SPU_COUNT. ! P ! Data returned by SYS$GET_WBEM_INFO WBEMI$_PHYS_LID_MAPPING is a vector ofN ! WBEMI_LID_MAP structures, pairing a LID to its associate ACPI PROC_ID. E ! The total number of these pairings is given by PHYS_CPU_COUNT. ! S ! The caller should not infer any significance to the order of the pairings inR ! this vector. For example, one should not assume that the 5th instance of a T ! LID and PROC_ID pairing corresponds to VMS CPUID 5. Instead, one needs to useS ! both the LID/SPU_ID and LID/PROC_ID pairings to determine the SPU_ID/PROC_ID ! associations.  ! -> DECLARE LONG CONSTANT WBEMI_LID_MAP$S_WBEMI_LID_ MAP = 16 record WBEMI_LID_MAPE BASIC$QUADWORD WBEMI_LID_MAP$Q_LID ! LID for the processor) group WBEMI_LID_MAP$R_ID_OVERLAY variant caseJ LONG WBEMI_LID_MAP$L_ID ! Generic ID field, can be... caseb LONG WBEMI_LID_MAP$L_SPU_ID ! VMS CPUID (aka SPU IS) associated with the LID caseY LONG WBEMI_LID_MAP$L_PROC_ID ! ACPI PROC_ID associated with the LID end variant- end group WBEMI_LID_MAP$R_ID_OVERLAY$ LONG WBEMI_LID_MAP$L_FILLER end record WBEMI_LID_MAP  ww D" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! S ! Longword header prefixed to the World-Wide Identifier used in fibre channel.S ! A WWID can be in any one of the eleven formats specified here. At this timeQ ! though, only seven of these f ormats (WWID types 1-4, 9-11) are implemented ! in OpenVMS. ! P ! Note that this is a common header, used by OpenVMS, Digital UNIX, and theR ! Console. Any changes to this structure should be made in cooperation with  ! these other groups. ! ? DECLARE LONG CONSTANT WWIDHDR$M_WWID_LENGTH = x'000FFFFF'> DECLARE LONG CONSTANT WWIDHDR$M_ASCII_DATA = x'00100000'= DECLARE LONG CONSTANT WWIDHDR$M_WWID_TYPE = x'FF000000'Y DECLARE LONG CONSTANT WWIDHDR$K_IEEE_REGEXT = 1 ! 1: Page83, ID type 3, NAA 0110V DECLARE LONG CONSTANT WWIDHDR$K_IEEE_REG = 2 ! 2: Page83, ID type 3, NAA 0101S DECLARE LONG CONSTANT WWIDHDR$K_PG83TY1_VID = 3 ! 3: PID+Page83, ID type 1Z DECLARE LONG CONSTANT WWIDHDR$K_PG80_SERIALNO = 4 ! 4: VID+PID+Ser_No from Page80a DECLARE LONG CONSTANT WWIDHDR$K_INQ_SERIALNO = 5 ! 5: VID+PID+Ser_No from std. inq. dataU DECLARE LONG CONSTANT WWIDHDR$K_TGT_IDENT = 6 ! 6: VID+PID+Persistent_Tgt_IDO DECLARE LONG CONSTANT WWIDHDR$K_BTL = 7 ! 7: VID+PID+Bus_No+Tgt_ID+LUNV DECLARE LONG CONSTANT WWIDHDR$K_DEC_UNIQUE = 8 ! 8: HSZ-specific serial no's.` DECLARE LONG CONSTANT WWIDHDR$K_HSZ_THISOTHER = 9 ! 9: THIS/OTHER ser. no. (older HSZs)Z DECLARE LONG CONSTANT WWIDHDR$K_IEEE48_VEXT = 10 ! 10: Page83, ID type 3, NAA 0010Z DECLARE LONG CONSTANT WWIDHDR$K_IEEE48_0EXT = 11 ! 11: Page83, ID type 3, NAA 0001O DECLARE LONG CONSTANT WWIDHDR$K_IEEE_EUI64  = 12 ! 12: Page83, ID type 2L DECLARE LONG CONSTANT WWIDHDR$K_ISCSI_NAME = 13 ! 13: X-4 iSCSI Name1 DECLARE LONG CONSTANT WWIDHDR$S_WWIDHDR = 4 record WWIDHDR& group WWIDHDR$R_HEADER_FIELDS# ! Length of WWID data' ! Data is in ASCII format ! Reserved ! WWID format typey LONG WWID_LENGTH_bits ! COMMENT ADDED BY SDL - WWID_LENGTH_bits contains bits WWID_LENGTH through WWID_TYPE* end group WWIDHDR$R_HEADER_FIELDS end record WWIDHDR  !  ! World-Wide Identifier ! O ! Includes the 4-byte header defined above and the body of the WWID. The M ! largest WWID is currently the type that includes Vendor ID (8 bytes), O ! Product ID (16 bytes), and Serial Number (up to 251 bytes). Rounding upE ! to the nearest quadword boundary, this comes out to 276 bytes. ! - DECLARE LONG CONSTANT WWID$S_WWID = 280 record WWID  WWIDHDR WWID$R_HEADER& BYTE WWID$B_DATA ( 1 to 276 ) end record WWID / DECLARE LONG CONSTANT WWID$K_LENGTH = 280 !  ! Serial Number WWID ! M ! This is the WWID that gets put together from both standard and Page 80S ! inquiry data. The Product ID and Vendor ID come from standard inquiry data.R ! The Serial Number comes from Vital Product Data Page 80. The Header is the* ! standard WWID header defined above. ! 3 DECLARE LO NG CONSTANT SN_WWID$S_SN_WWID = 280 record SN_WWID! WWIDHDR SN_WWID$R_HEADER, BYTE SN_WWID$B_VENDOR_ID ( 1 to 8 ). BYTE SN_WWID$B_PRODUCT_ID ( 1 to 16 ). BYTE SN_WWID$B_SERIAL_NO ( 1 to 252 ) end record SN_WWID 2 DECLARE LONG CONSTANT SN_WWID$K_LENGTH = 280 ! L ! The longest WWID is one that is made from the device's serial number,! ! product ID, and vendor ID.C ! 4 8 16 < = 252T ! +------+------------+-------------------+-----------------------------------+T ! |Header| Vendor | Product | Serial Number |T ! +------+------------+-------------------+-----------------------------------+ ! ? ! Maximum WWID length comes out to 4+8+16+252 = 280 bytes. ! 3 DECLARE LONG CONSTANT WWID$K_MAX_LENGTH = 280 !  ! WWID Table Entry ! N ! The WWID table is created during boot by EXEC_INIT and is used by both Q ! EXEC_INIT and, later on in the boot, STACONFIG. The table stores informa-S ! tion about all devices that have been registered by the user at the console. ! 3 DECLARE LONG CONSTANT WWIDENT$S_WWIDENT = 128 record WWIDENT LONG WWIDENT$L_UNIT_NO LONG WWIDENT$L_DNP LONG WWIDENT$L_WWIDLEN group WWIDENT$R_WWID$ WWIDHDR WWIDENT$R_HEADER. BYTE WWIDENT$B_FCWWID ( 1 to 112 )! end group  WWIDENT$R_WWID end record WWIDENT 2 DECLARE LONG CONSTANT WWIDENT$K_LENGTH = 128Y DECLARE LONG CONSTANT WWIDTBL$K_MAX_ENTRIES = 1000 ! Max. entries in a WWID Table ! N ! This structure points to a Fibre Channel adapter ID. This WWID differsN ! from the other WWIDs in this file in that it is obtained directly from R ! the adapter rather than the SCSI Device Identification page. Consequently,J ! there is no header, vendor, and product information a ssociated withP ! this 64 bit identifier. The format of this 64 bit WWID is an IEEE 48 bitK ! address with additional information as defined in the FC-PH. But weR ! don't really care about the FC-PH format since all we want to do is displayR ! the 64 bits using the asci hex format of XXXX-XXXX-XXXX-XXXX, which is the ? ! widely accepted format used to display this information. ! 4 DECLARE LONG CONSTANT FC_WWIDS_FC_WWID_64B = 8 record FC_WWID_64B&  BYTE FC_WWIDB_NAME ( 1 to 8 ) end record FC_WWID_64B  wwK" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! += ! DR11-W DEFINITIONS FOR DEVICE SPECIFIC CHARACTERISTICS% ! - 7 DECLARE LONG CONSTANT XA$M_DATAPATH = x'00000001'3 DECLARE LONG CONSTANT XA$M_LINK = x'00000002'* DECLARE LONG CONSTANT XA$S_XADEF = 1 record XADEF variant case$ group XA$R_XADEF_BITS, ! USE BUFFERED DATAPATH / ! INTERPROCESSOR LINK MODE u BYTE DATAPATH_bits ! COMMENT ADDED BY SDL - DATAPATH_bits contains bits DATAPATH through FILL_79_( end group XA$R_XADEF_BITS end variant end record XADEF  ww|lR" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > ! %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! G ! DEFINITIONS FOR 3271 LINE STATUS BLOCK (RETURNED BY IO$_RDSTATS) ! R DECLARE LONG CONSTANT XKSTS$K_LSTR = 0 ! OFFSET OF BEGINNING OF DATA AREA R DECLARE LONG CONSTANT XKSTS$C_LSTR = " 0 ! OFFSET OF BEGINNING OF DATA AREA 5 DECLARE LONG CONSTANT XKSTS$M_ACT = x'00000001'5 DECLARE LONG CONSTANT XKSTS$M_DGN = x'00000002'R DECLARE LONG CONSTANT XKSTS$K_DSTR = 45 ! LENGTH OF THE LINE STATUS BLOCK R DECLARE LONG CONSTANT XKSTS$C_DSTR = 45 ! LENGTH OF THE LINE STATUS BLOCK 1 DECLARE LONG CONSTANT XKSTS$S_XKSTSDEF = 45 record XKSTSDEFQ BYTE XKSTS$B_CUAD ! CONTROL UNIT ADDRESS (HEX EBCDIC) # group XKSTS$R_L #STS_OVERLAY variant case; WORD XKSTS$W_LSTS ! LINE STATUS  case) group XKSTS$R_LSTS_BITSD ! IF SET, LINE IS 'ON' (ACTIVE IN 3271 MODE) D ! IF SET, LINE IS EXECUTING A DIAGNOSTIC QIO i BYTE ACT_bits ! COMMENT ADDED BY SDL - ACT_bits contains bits ACT through FILL_80_- end group XKSTS$R_LSTS_BITS end variant$' end group XKSTS$R_LSTS_OVERLAY9 BYTE XKSTS$B_PLSZ ! POOL SIZE U WORD XKSTS$W_BSIZ ! MAXIMUM BLOCK TO BE RECEIVED FROM IBM = BYTE XKSTS$B_ECNT ! ENQ THRESHOLD J WORD XKSTS$W_TNAK ! NUMBER OF NAKS TRANSMITTED G WORD XKSTS$W_RNAK ! NUMBER OF NAKS RECEIVED C WORD XKSTS$W_TENQ ! NUMBER OF ENQS SENT G WORD XKSTS$W_RENQ % ! NUMBER OF ENQS RECEIVED J WORD XKSTS$W_TRVI ! NUMBER OF RVIS TRANSMITTED G WORD XKSTS$W_RRVI ! NUMBER OF RVIS RECEIVED W WORD XKSTS$W_RCNV ! NUMBER OF CONVERSATIONAL MODE RESPONSES  ! RECEIVEDQ WORD XKSTS$W_CHAI ! NUMBER OF CHAINED WRITES RECEIVED P WORD XKSTS$W_GPOL ! NUMBER OF GENERAL POLLS RECEIVED O WORD XKSTS$W_XACK & ! NUMBER OF INVALID ACKS RECEIVED Q WORD XKSTS$W_HABO ! NUMBER OF HOST ABORTS ENCOUNTERED S WORD XKSTS$W_DABO ! NUMBER OF DRIVER ABORTS ENCOUNTERED O WORD XKSTS$W_RTIM ! NUMBER OF ACK RESPONSE TIMEOUTS Q WORD XKSTS$W_DISC ! NUMBER OF DISCONNECTS ENCOUNTERED V WORD XKSTS$W_HARD ! NUMBER OF HARDWARE FAILURES (INCLUDING ! DISCONNECTS) ENCOUNTEREDL  WORD XKSTS$W_TBLK ! NUMBER OF BLOCKS TRANSMITTED I WORD XKSTS$W_RBLK ! NUMBER OF BLOCKS RECEIVED J WORD XKSTS$W_HABX ! NUMBER OF DUBIOUS ACK OUTS K WORD XKSTS$W_IEOT ! NUMBER OF EOTS IMPLYING ACK  end record XKSTSDEF  ww(<#Y" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED )( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN*G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > + %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   !  ! 3271 DEVICE STATUS BLOCK ! P ! THE DRIVER RETURNS N COPIES OF THIS BLOCK FOLLOWING THE LINE STATUS BLOCKQ ! IN THE USER'S BUFFER, WHERE N IS THE NUMBER OF ACTIVE DEVICES ON THE LINE. , ! R DECLARE LONG CONSTANT XKDEV$K_SIZE = 15 ! SIZE OF THE DEVICE STATUS BLOCK R DECLARE LONG CONSTANT XKDEV$C_SIZE = 15 ! SIZE OF THE DEVICE STATUS BLOCK 1 DECLARE LONG CONSTANT XKDEV$S_XKDEVDEF = 15 record XKDEVDEFP BYTE XKDEV$B_DUEB ! DEVICE ADDRESS (DU - HEX EBCDIC) T LONG XKDEV$L_DPID ! PROCESS ID OF PROCESS OWNING THIS DU L WORD XKDEV$W_TBLK ! NUMBER OF BLOCKS TRANSMITTED I  WORD XKDEV$W_RBLK ! NUMBER OF BLOCKS RECEIVED Q WORD XKDEV$W_SPOL ! NUMBER OF SPECIFIC POLLS RECEIVED R WORD XKDEV$W_ASEL ! NUMBER OF ADDRESS SELECTS RECEIVED N WORD XKDEV$W_CREJ ! NUMBER OF COMMAND REJECTS SENT  end record XKDEVDEF  ww.\`" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED /( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN0G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 1 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! DEFINITIONS FOR STATUS, CHARACTERISTICS AND ERRORS FOR DMC-11/DMR-11/DMP-11 ! - DECLARE LONG CONSTANT XMDEV$S_XMDEV = 8 record XMDEV; BYTE XMDEV$B_P1_CLASS ! D 2evice Class: BYTE XMDEV$B_P1_TYPE ! Device typeC WORD XMDEV$W_P1_MMS ! Maximum message sizeC BYTE XMDEV$B_P1_CHAR ! Unit characteristics: BYTE XMDEV$B_P1_STS ! Unit Status< BYTE XMDEV$B_P1_ESUM ! Error SummaryD BYTE XMDEV$B_P1_TPI ! Transmit Pipeline no. end record XMDEV 6 DECLARE LONG CONSTANT XM$M_CHR_MOP = x'00000001'8 DECLARE 3LONG CONSTANT XM$M_CHR_LOOPB = x'00000002'8 DECLARE LONG CONSTANT XM$M_CHR_HDPLX = x'00000004'8 DECLARE LONG CONSTANT XM$M_CHR_SLAVE = x'00000008'6 DECLARE LONG CONSTANT XM$M_CHR_MBX = x'00000010'6 DECLARE LONG CONSTANT XM$M_CHR_DMC = x'00000020'7 DECLARE LONG CONSTANT XM$M_CHR_CTRL = x'00000040'7 DECLARE LONG CONSTANT XM$M_CHR_TRIB = x'00000080'7 DECLARE LONG CONSTANT XM$M_STS_DCHK = x'00000100'7 DECLARE LONG CONSTANT XM$M_STS_TIMO = x'00000200'7 4 DECLARE LONG CONSTANT XM$M_STS_ORUN = x'00000400'9 DECLARE LONG CONSTANT XM$M_STS_ACTIVE = x'00000800': DECLARE LONG CONSTANT XM$M_STS_BUFFAIL = x'00001000': DECLARE LONG CONSTANT XM$M_STS_RUNNING = x'00002000'7 DECLARE LONG CONSTANT XM$M_STS_DISC = x'00004000'8 DECLARE LONG CONSTANT XM$M_ERR_FATAL = x'00010000'8 DECLARE LONG CONSTANT XM$M_ERR_MAINT = x'00080000'7 DECLARE LONG CONSTANT XM$M_ERR_LOST = x'00100000'9 DECLARE LONG CONSTANT XM$M_ERR_T 5HRESH = x'00200000'7 DECLARE LONG CONSTANT XM$M_ERR_TRIB = x'00400000'8 DECLARE LONG CONSTANT XM$M_ERR_START = x'00800000'9 DECLARE LONG CONSTANT XM$M_MDM_RTSHLD = x'00000001'9 DECLARE LONG CONSTANT XM$M_MDM_STNDBY = x'00000002'9 DECLARE LONG CONSTANT XM$M_MDM_MAINT2 = x'00000004'9 DECLARE LONG CONSTANT XM$M_MDM_MAINT1 = x'00000008'7 DECLARE LONG CONSTANT XM$M_MDM_FREQ = x'00000020'6 DECLARE LONG CONSTANT XM$M_MDM_RDY = x'00000040'7 DECLARE 6LONG CONSTANT XM$M_MDM_POLL = x'00000080'7 DECLARE LONG CONSTANT XM$M_MDM_SELM = x'00000100'6 DECLARE LONG CONSTANT XM$M_MDM_INT = x'00000800'6 DECLARE LONG CONSTANT XM$M_MDM_V35 = x'00001000'8 DECLARE LONG CONSTANT XM$M_MDM_RS232 = x'00004000'8 DECLARE LONG CONSTANT XM$M_MDM_RS422 = x'00008000': DECLARE LONG CONSTANT XM$M_MDM_CARRDET = x'00000001': DECLARE LONG CONSTANT XM$M_MDM_MSTNDBY = x'00000002'6 DECLARE LONG CONSTANT XM$M_MDM_CTS = x'00000004'6 7 DECLARE LONG CONSTANT XM$M_MDM_DSR = x'00000008'6 DECLARE LONG CONSTANT XM$M_MDM_HDX = x'00000010'6 DECLARE LONG CONSTANT XM$M_MDM_RTS = x'00000020'6 DECLARE LONG CONSTANT XM$M_MDM_DTR = x'00000040'7 DECLARE LONG CONSTANT XM$M_MDM_RING = x'00000080'9 DECLARE LONG CONSTANT XM$M_MDM_CHRMOD = x'00000100'9 DECLARE LONG CONSTANT XM$M_MDM_MCLOCK = x'00000200': DECLARE LONG CONSTANT XM$M_MDM_MODTEST = x'00000400': DECLARE LONG CONSTANT XM$M_MDM_SIGQUAL8 = x'00004000': DECLARE LONG CONSTANT XM$M_MDM_SIGRATE = x'00008000'* DECLARE LONG CONSTANT XM$S_XMDEF = 3 record XMDEF variant case% group XM$R_XMDEF_BITS0 ! MOP MODE ! LOOP BACK " ! HALF DUPLEX 0 ! HALF DUPLEX SLAVE STATION ) ! MAILBOX IS ENABLED 0 ! DMC-11 COMPATABILITY MODE & ! CONTROL STATION ( 9 ! TRIBUTARY STATION ) ! DATA CHECK OCCURED & ! TIMEOUT OCCURED , ! DATA OVER RUN OCCURED " ! ACTIVE UNIT 8 ! BUFFER ALLOCATION FAILURE OCCURED ' ! PROTOCOL RUNNING . ! LINE DISCONNECT OCCURED  ! SPARE % ! HARDWARE ERROR 3 ! DDCMP MAINT MESSAGE RECEIVED @ ! DATA L :OST BECAUSE OF BUFFER SIZE MISMATCH ' ! THRESHOLD ERRORS / ! TRIBUTARY MALFUNCTIONING 3 ! DDCMP START MESSAGE RECEIVED s LONG CHR_MOP_bits ! COMMENT ADDED BY SDL - CHR_MOP_bits contains bits CHR_MOP through ERR_START) end group XM$R_XMDEF_BITS0 case% group XM$R_XMDEF_BITS1 ! RTS HOLD % ! SELECT STANDBY ) ! MAINTE;NANCE MODE 2 ) ! MAINTENANCE MODE 1 " ! HALF-DUPLEX ' ! SELECT FREQUENCY * ! DATA TERMINAL READY 0 ! SELECT POLLING MODEM MODE 7 ! MODEM INTERFACE PROGRAM SELECTED  ! UNUSED % ! INTEGRAL MODEM  ! V.35  ! UNUSED ( ! RS-232-C OR RS423  ! RS-422 | < WORD MDM_RTSHLD_bits ! COMMENT ADDED BY SDL - MDM_RTSHLD_bits contains bits MDM_RTSHLD through MDM_RS422) end group XM$R_XMDEF_BITS1 case% group XM$R_XMDEF_BITS2% ! CARRIER DETECT $ ! MODEM STANDBY $ ! CLEAR TO SEND % ! DATA SET READY " ! HALF-DUPLEX & ! REQUEST TO SEND * ! DATA TERMINAL READY   ! RING 5 ! CHARACTER OR BIT PROTOCOL MODE ( ! MAINTENANCE CLOCK & ! MODEM TEST MODE  ! UNUSED % ! SIGNAL QUALITY " ! SIGNAL RATE WORD MDM_CARRDET_bits ! COMMENT ADDED BY SDL - MDM_CARRDET_bits contains bits MDM_CARRDET through MDM_SIGRATE) end group XM$R_XMDEF_BITS2 end variant end record XMDEF  wwMSBUILD $XMDEFl>h" EVMSBUILD $XWDEF ⴲ" EVMSBUILD STARLET%M" EVMSBUILD STR$ROUTINES " EVMSBUILD $STRDEF%R0" EVMSBUILD TBK$ROUTINES%m" EVMSBUILD TPU$ROUTINES&" EVMSBUILD UTIL$ROUTINES?\h" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED @( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINAG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > B %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! ++ ! 4 ! XWDEF - System definitions for software DDCMP !  ! --6 DECLARE LONG CONSTANT XW$M_CHA_FDX = x'00000001'6 DECLARE LONG CONSTANT XW$M_CHA_XPR = x'00000002'6 DECLARE CLONG CONSTANT XW$M_CHA_DSR = x'00000004'7 DECLARE LONG CONSTANT XW$M_FAT_STAT = x'000003FF'8 DECLARE LONG CONSTANT XW$M_INFO_STAT = x'0000FC00'2 DECLARE LONG CONSTANT XW$M_EOT = x'00000001'5 DECLARE LONG CONSTANT XW$M_DATACK = x'00000002'4 DECLARE LONG CONSTANT XW$M_NODSR = x'00000004'5 DECLARE LONG CONSTANT XW$M_DISCON = x'00000008'8 DECLARE LONG CONSTANT XW$M_TRABINTMO = x'00000010'8 DECLARE LONG CONSTANT XW$M_PIPE_MARK = x'00000020'7 DECLARE DLONG CONSTANT XW$M_BADCHAIN = x'00000040'5 DECLARE LONG CONSTANT XW$M_ILLMOD = x'00000080'2 DECLARE LONG CONSTANT XW$M_RVI = x'00000400'5 DECLARE LONG CONSTANT XW$M_CONACK = x'00000800'2 DECLARE LONG CONSTANT XW$M_XPR = x'00001000'5 DECLARE LONG CONSTANT XW$M_ETXEND = x'00002000'4 DECLARE LONG CONSTANT XW$M_PUNCH = x'00010000'6 DECLARE LONG CONSTANT XW$M_HOR_FOR = x'00020000'4 DECLARE LONG CONSTANT XW$M_IOMOD = x'0000E000'* DECLARE LONG CONSTANET XW$S_XWDEF = 3 record XWDEF variant case% group XW$R_XWDEF_BITS0' ! Full duplex line # ! Transparency ) ! Data Set Ready set r BYTE CHA_FDX_bits ! COMMENT ADDED BY SDL - CHA_FDX_bits contains bits CHA_FDX through FILL_81_) end group XW$R_XWDEF_BITS0 !  ! Device dependent status !  case% group XW$R_XWDEF_BITS14 F ! Beginning of fatal stat flags 4 ! Start of informational status v WORD FAT_STAT_bits ! COMMENT ADDED BY SDL - FAT_STAT_bits contains bits FAT_STAT through INFO_STAT) end group XW$R_XWDEF_BITS1 ! @ ! Bit definitions for fatal and informational status fields !  case% group XW$R_XWDEF_BITS2# ! EOT received / ! Retry threshold exceeded ) G ! Line not connected 1 ! Disconnect (DLE, EOT) rcvd . ! Binary transmit timeout 3 ! Aborted because of pipe mark & ! Bad record list + ! Illegal QIO modifier , ! Buffer ACKed with RVI 4 ! Buffer ACKed with conver resp 4 ! Buffer rcvd with transparency 0 ! Rcvd block ended with ETX ) ! Punc Hh select found 3 ! Horizontal forms record rcvd f LONG EOT_bits ! COMMENT ADDED BY SDL - EOT_bits contains bits EOT through FILL_82_) end group XW$R_XWDEF_BITS2 ! . ! Read/Write function modifier definition !  case% group XW$R_XWDEF_BITS3/ ! I/O modifier field start l WORD FILL_3_bits ! COMMENT ADDED BY SDL - FILL_3_bits contains bits FILL_3 through IOMOD)  end group XW$R_XWDEF_BITS3 end variant end record XWDEF wwJ2" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED K( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATINLG_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > M %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! . ! SYSTEM SERVICE ENTRY POINT DESCRIPTIONS !  !  ! $ACM[W] ! 3 ! Authentication and Credentials Management ! 5 ! $ACM[W] [efn], func, [contxt], itmlst, acmsb, N ! [astadr], [astprm] ! A ! efn = number of event flag to set at service completion% ! (read only, passed by value)= ! func = function code and modifiers specifying action ! to be performed% ! (read only, passed by value)@ ! contxt = context longword, used to maintain service state ! across iterative calls& ! (modify, passed by reference)( ! itmlst = list of item descriptors) ! (read only, passed by reference) O! acmsb = ACM status block* ! (write only, passed by reference)? ! astadr = procedure value for AST routine to be called at ! service completion, ! (execute only, passed by reference)D ! astprm = value to be passed as an argument to the AST routine ! (passed by value) ! ' EXTERNAL LONG FUNCTION SYS$ACM & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &! P ANY BY REF, &! ANY BY REF, &" LONG BY REF, &-! BASIC$QUADWORD BY VALUE & )( EXTERNAL LONG FUNCTION SYS$ACMW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &! ANY BY REF, &! ANY BY REF, &" LONG BY REF, &-! BASIC$QUADWORD BY VALUE & Q ) !  ! $ADD_HOLDER ! 2 ! Add Holder Record To The Rights Database ! ' ! $ADD_HOLDER id, holder, [attrib] ! 0 ! id = identifier longword to associate the ! holder record with9 ! holder = address of the holder identifier quadword: ! attrib = attributes longword to grant to the holder. EXTERNAL LONG FUNCTION SYS$ADD_HOLDER & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &#R LONG BY VALUE & ) !  ! $ADD_IDENT ! / ! Add Identifier To The Rights Database ! / ! $ADD_IDENT name, [id], [attrib], [resid] ! 6 ! name = address of the identifier name character ! string descriptor8 ! id = identifier longword to associate with 'name'3 ! attrib = attributes longword to grant to the ! identifier; ! resid = address of a longword to return the assigned ! identiSfier ! - EXTERNAL LONG FUNCTION SYS$ADD_IDENT & ( &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) !  ! $ADD_MAPPING ! 0 ! Add Mapping record to Mapping database ! ! $ADD_MAPPING initmlst ! N ! initmlst = address of a list of item descriptors for the operation ! / EXTERNAL LONG FUNCTIONT SYS$ADD_MAPPING & ( & ANY BY REF & ) !  ! $ADD_PROXY !  ! Add proxy record ! ? ! $ADD_PROXY rem_node, rem_user, local_user, [flags] ! ; ! rem_node in address of remote node descriptor; ! rem_user in address of remote user descriptor: ! local_user in address of local user descriptor+ ! flags in proxy service flags ! - EXTERNAL LONG FUNCTIONU SYS$ADD_PROXY & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! $ADJSTK ! ) ! Adjust Outer Mode Stack Pointer ! . ! $ADJSTK [acmode] ,[adjust] ,newadr ! B ! acmode = access mode for which to adjust stack pointer3 ! adjust = 16-bit signed adjustment value? ! newadr = addreVss of longword to store updated value ! * EXTERNAL LONG FUNCTION SYS$ADJSTK & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &! LONG BY REF & ) !  ! $ADJWSL ! " ! Adjust Working Set Limit ! & ! $ADJWSL [pagcnt] ,[wsetlm] ! J ! pagcnt = number of pages to add to working set (if positive).J ! Number of pages to subtract from worWking set (if ! negative).J ! wsetlm = address of longword to receive new working set limit,J ! or current working set limit if pagcnt not specified. ! * EXTERNAL LONG FUNCTION SYS$ADJWSL & ( &$ LONG BY VALUE, &! LONG BY REF & ) !  ! $ALLOC !  ! Allocate Device ! @ ! $ALLOC devnam ,[phylen] ,[phybuf] ,[acmode] ,[flags] ! J X ! devnam = address of device name or logical name string ! descriptorG ! phylen = address of word to receive length of physical name? ! phybuf = address of physical name buffer descriptorA ! acmode = access mode associated with allocated device& ! flags = options flags longword ! ) EXTERNAL LONG FUNCTION SYS$ALLOC & ( &% STRING BY DESC, &" WORD BY REF, &%Y STRING BY DESC, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $ASCEFC ! - ! Associate Common Event Flag Cluster ! . ! $ASCEFC efn ,name ,[prot] ,[perm] ! J ! efn = number of any event flag in the cluster with which to ! associate? ! name = address of the text name string descriptor9 ! prot = protection indicator for the clZuster7 ! 0 -> default, any process in group* ! 1 -> only owner's UIC( ! perm = permanent indicator+ ! 0 -> temporary cluster+ ! 1 -> permanent cluster ! * EXTERNAL LONG FUNCTION SYS$ASCEFC & ( &$ LONG BY VALUE, &% STRING BY DESC, &$ BYTE BY VALUE, &# BYTE BY VALUE & ) !  ! $A [SCTIM ! - ! Convert Binary Time to ASCII String ! 9 ! $ASCTIM [timlen] ,timbuf ,[timadr] ,[cvtflg] ! J ! timlen = address of a word to receive the number of characters5 ! inserted into the output buffer.J ! timbuf = address of a character string descriptor describing> ! the buffer to receive the converted time.J ! timadr = address of the quadword containing the 64-bit time toD ! \ be converted to ASCII. If 0, use current time.) ! cvtflg = conversion indicator3 ! 0 -> return full date and time4 ! 1 -> return converted time only ! * EXTERNAL LONG FUNCTION SYS$ASCTIM & ( &" WORD BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &# BYTE BY VALUE & ) !  ! $ASCTOID ! ( ! Ascii To] Identifier Conversion ! $ ! $ASCTOID name, [id], [attrib] ! 6 ! name = address of the identifier name character+ ! string descriptor to be converted5 ! id = address to return the identifier longword9 ! attrib = address to return the attributes longword ! + EXTERNAL LONG FUNCTION SYS$ASCTOID & ( &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! ^ ! $ASCUTC ! 8 ! Convert Binary UTC time into ASCII time string ! 3 ! $ASCUTC [timlen], timbuf, [utcadr], [cvtflg] ! 5 ! timlen = Length (in bytes) of the ASCII string2 ! returned by $ASCUTC. The timelen argument9 ! is the address of a word containing this length.B ! timbuf = Buffer into which $ASCUTC writes the ASCII string.: ! The timbuf argument is the address of a character6 ! string descriptor pointing to the bufer. The _8 ! buffer length specified in the timbuf argument,: ! together rwith the cvtflg argument, controls what! ! information is returned.A ! utcadr = Time value that $ASCUTC is to convert. The utcadr< ! argument is the address of this 128-bit time value.7 ! Relative times are not permitted. If utcadr is< ! not specified ( ie 0 ), $ASCUTC returns the current ! date and time.C ! cvtflg = Conversion indicator specifying which date and time> `! fields $ASCUTC should return. The cvtflg argument is; ! a longword value, which is interpreted as Boolean.= ! The value 1 specifies that ASCUTC should return onlyB ! the hour,minute,second, and hundreths of a second fields.A ! The default value 0 specifies that $ASCUTC should return! ! the full date and time. ! * EXTERNAL LONG FUNCTION SYS$ASCUTC & ( &" WORD BY REF, &% STRING BY DESC, &,a BASIC$OCTAWORD BY REF, &# BYTE BY VALUE & ) !  ! $ASSIGN !  ! Assign I/O Channel ! > ! $ASSIGN devnam ,chan ,[acmode] ,[mbxnam], [flags] ! J ! devnam = address of device name or logical name string ! descriptorG ! chan = address of word to receive channel number assigned8 ! acmode = access mode associated with channelJ ! mbxnam b = address of mailbox logical name string descriptor, if3 ! mailbox associated with deviceF ! flags = optional channel flags longword for specifying options" ! for the $ASSIGN operation ! * EXTERNAL LONG FUNCTION SYS$ASSIGN & ( &% STRING BY DESC, &" WORD BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &+ OPTIONAL LONG BY VALUE & c ) !  ! $AUDIT_EVENT ! ' ! Audit Security Relevant Event ! P ! $AUDIT_EVENT(W) [efn], [flags], itmlst, [audsts], [astadr], [astprm] ! 6 ! efn = number of event flag to set on completion ! # ! flags = input flags longword ! 3 ! itmlst = address of list of item descriptors ! F ! audsts = address of longword to receive final completion status ! 1 ! astadr = address of AST completion routine ! = ! astprdm = unsigned longword to be passed to AST routine ! / EXTERNAL LONG FUNCTION SYS$AUDIT_EVENT & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )0 EXTERNAL LONG FUNCTION SYS$AUDIT_EVENTW & ( &$ LONG BY VALUE, &$ e LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $BINTIM ! - ! Convert ASCII String to Binary Time ! # ! $BINTIM timbuf ,timadr ! G ! timbuf = address of string descriptor for ASCII time stringJ ! timadr = address of quadword to receive 64-bit binary time ! valuef ! B ! 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 ! * EXTERNAL LONG FUNCTION SYS$BINTIM & ( &% STRING BY DESC, &+ BASIC$QUADWORD BY REF & ) !  ! $BINUTC ! 3 ! Convert ASCII UTC time to a binary format ! # g! $BINUTC timbuf, utcadr ! A ! timbuf = Buffer that holds the ASCII time to be converted.7 ! The timbuf argument specifies the address of a8 ! character string descriptor pointing to the VMS7 ! time string. The VMS time string specifies the3 ! absolute time to be converted by $BINUTC.; ! utcadr = Time value that $BINUTC has converted. The< ! utcadr argument is the address of the utc_date_time, ! which receives the converted time.h ! * EXTERNAL LONG FUNCTION SYS$BINUTC & ( &% STRING BY DESC, &+ BASIC$OCTAWORD BY REF & ) !  ! $BRDCST !  ! Broadcast ! % ! $BRDCST msgbuf ,[devnam] ! B ! msgbuf = address of message buffer string descriptorJ ! devnam = terminal device name string descriptor. If 0, sendJ ! message to all terminals. If first word iinJ ! descriptor is 0, send message to all allocated! ! terminals. ! * EXTERNAL LONG FUNCTION SYS$BRDCST & ( &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $BRKTHRU ! % ! Write to terminal breakthru ! B ! $BRKTHRU [efn] ,msgbuf, [sendto], [sndtyp], [iosb],8 j ! ($BRKTHRUW) [carcon], [flags], [reqid], [timout], ! [astadr], [astprm] ! 6 ! efn = event flag to be set at completion ! 8 ! msgbuf = address of message buffer descriptor ! 6 ! sendto = address of send address descriptor ! , ! sndtyp = value to describe sendto ! : ! iosb = address of a quadword I/O status block ! $ ! carcon = carriage control ! , ! flags = flags to modify broadcast k ! / ! reqid = broadcast class requestor id ! , ! timout = address of timeout value ! 8 ! astadr = address of entry mask of AST routine ! D ! astprm = value to be passed to AST routine as an argument !  ! + EXTERNAL LONG FUNCTION SYS$BRKTHRU & ( &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &, l BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ), EXTERNAL LONG FUNCTION SYS$BRKTHRUW & ( &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &, m BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $CANCEL !  ! Cancel I/O on Channel !  ! $CANCEL chan ! I ! chan = number of the channel on which I/O is to be canceled ! * EXTERNAL LONG FUNCTIONn SYS$CANCEL & ( &# WORD BY VALUE & ) !  ! $CANCEL_SELECTIVE ! ) ! Selective Cancel I/O on Channel ! 8 ! $CANCEL_SELECTIVE chan, [iosblst], [lenlst] ! J ! chan = number of the channel on which I/O is to be canceled: ! iosblst = address of a vector of IOSB pointersH ! lenlst = number of entries in the vector pointed by iosblst ! 4 EXTERNAL LONG FUNCTION SYS$oCANCEL_SELECTIVE & ( &$ WORD BY VALUE, &! ANY BY REF, &# LONG BY VALUE & ) ! $CANEVTAST ! % ! Cancel an Event AST Routine ! P ! $CANEVTAST [evtnam], [evtadr], [evtfac], [acmode], [flags], [reqid] ! ,[evtid] ! 7 ! evtnam = address of descriptor of event name ! > ! evtadr = address of entry mask of event AST routine ! 2 ! p evtfac = address of event facility code ! 4 ! acmode = access mode of event declaration ! - ! flags = address of optional flags ! @ ! reqid = user provided identification of this request ! 9 ! evtid = unique identification of this request ! - EXTERNAL LONG FUNCTION SYS$CANEVTAST & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ q LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $CANEXH !  ! Cancel Exit Handler !  ! $CANEXH [desblk] ! J ! desblk = address of exit control block describing exit handler6 ! to be deleted. If 0, delete all. ! * EXTERNAL LONG FUNCTION SYS$CANEXH & ( & ANY BY REF & r ) !  ! $CANTIM !  ! Cancel Timer Request ! ' ! $CANTIM [reqidt] ,[acmode] ! J ! reqidt = request identification for request to be canceled.1 ! If 0, all requests canceled.; ! acmode = access mode of requests to be canceled ! * EXTERNAL LONG FUNCTION SYS$CANTIM & ( &$ LONG BY VALUE, &# LONG BY VALUE & ) !  s ! $CANWAK !  ! Cancel Wakeup ! ' ! $CANWAK [pidadr] ,[prcnam] ! J ! pidadr = address of process identification of process for5 ! which wakeups are to be canceled> ! prcnam = address of process name string descriptor ! * EXTERNAL LONG FUNCTION SYS$CANWAK & ( &" LONG BY REF, &$ STRING BY DESC & ) ! $CHANGE_ACL ! ' ! t Set or modify an object's ACL ! , ! $CHANGE_ACL [chan], objtyp, [objnam]," ! itmlst, [acmode], [iosb],& ! [contxt] , [routin], [orbadr] ! = ! chan = number of a channel assigned to the object or: ! 0 if object is specified by the objnam parameter ! . ! objtyp = address of an object type code ! & ! objnam = address of object name ! 5 ! itmlst = address of a list of item descriptors ! ? ! acmode = address of a byte ucontaining the access mode in. ! which the arguments will be validated ! 6 ! iosb = address of a quadword I/O status block ! B ! 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 ! . EXTERNAL LONG FUNCTION SYS$CHANGE_ACL & ( &$ v WORD BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &" LONG BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ). ! $CHANGE_CLASS objtyp, [objnam], itmlst ! [acmode], [orbadr] ! ( ! Modify an objects access class ! 2 ! objtyp = addresws of an object type code ! 8 ! objnam = address of an object name descriptor ! 9 ! itmlst = address of a list of item descriptors ! C ! acmode = address of a byte containing the access mode in- ! which the arguments will be validated ! D ! orbadr = address of routine to be executed in kernel mode !  ! 0 EXTERNAL LONG FUNCTION SYS$CHANGE_CLASS & ( &" LONG BY REF, &% SxTRING BY DESC, &! ANY BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! $CHECK_ACCESS ! F ! $CHECK_ACCESS [objtyp], [objnam], [usrnam], itmlst, [contxt],' ! [clsnam], [objpro], [usrpro] ! ( ! Check User Access to an Object ! 2 ! objtyp = address of an object type code ! 8 ! objnam = address of an object name descriptor ! 5 ! usrnam = address yof a user name descriptor ! 9 ! itmlst = address of a list of item descriptors ! 7 ! contxt = address of longword for UAI context ! ; ! clsnam = address of object class name descriptor ! L ! objpro = address of object profile descriptor(ORB TLV or channel) ! @ ! usrpro = address of user profile descriptor (ARB TLV) ! 0 EXTERNAL LONG FUNCTION SYS$CHECK_ACCESS & ( &" LONG BY REF, &%z STRING BY DESC, &% STRING BY DESC, &! ANY BY REF, &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! $CHECK_FEN ! ; ! Check if floating point enabled for current image ! - EXTERNAL LONG FUNCTION SYS$CHECK_FEN & ( &) OPTIONAL LONG BY REF & { ) ! $CHECK_PRIVILEGE[W] ! A ! Check for process privilege and perform security audit. ! g ! $CHECK_PRIVILEGE[W] [efn] ,prvadr ,[altprv] ,[flags] ,[itmlst] ,[audsts] ,[astadr] ,[astprm] ! J ! efn = event flag to set on asynchronous service completionO ! prvadr = address of quadword privilege mask or longword identifierC ! altprv = address of quadword privilege mask to check against# ! flags = control flags; | ! itmlst = address of a list of item descriptorsA ! audsts = longword to receive final completion statusJ ! astadr = address of AST routine to call on service completion5 ! astprm = longword to pass to AST routine ! 3 EXTERNAL LONG FUNCTION SYS$CHECK_PRIVILEGE & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! } ANY BY REF, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )4 EXTERNAL LONG FUNCTION SYS$CHECK_PRIVILEGEW & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &" LONG BY REF, &# LONG BY ~VALUE & ) !  ! $CHKPRO !  ! Check Access Protection ! . ! $CHKPRO itmlst, [objpro], [usrpro] ! 5 ! itmlst = address of a list of item descriptorsB ! objpro = address of object handle descriptor (ORB TLV)@ ! usrpro = address of user handle descriptor (ARB TLV) ! * EXTERNAL LONG FUNCTION SYS$CHKPRO & ( &! ANY BY REF, &$ LONG BY VALUE, &#  LONG BY VALUE & ) ! $CLEAR_SYSTEM_EVENT ! ) ! Clear System Event Notification ! : ! $CLEAR_SYSTEM_EVENT [handle], [acmode], [event] ! % ! handle = address of handle ! & ! acmode = access mode of AST ! 2 ! event = code indicating type of event ! 6 EXTERNAL LONG FUNCTION SYS$CLEAR_SYSTEM_EVENT & ( &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $CLEAR_UNWIND_TABLE ! / ! Clears unwind table (UT) information. ! ' ! $CLEAR_UNWIND_TABLE code_base_va ! V ! code_base_va = process virtual address of the start of a registered code region ! 6 EXTERNAL LONG FUNCTION SYS$CLEAR_UNWIND_TABLE & ( &-! BASIC$QUADWORD BY VALUE & ) ! $CLRCLUEVT ! * ! Clear Cluster Event Notification ! 1 ! $CLRCLUEVT [handle], [acmode], [event] ! % ! handle = address of handle ! & ! acmode = access mode of AST ! 2 ! event = code indicating type of event ! - EXTERNAL LONG FUNCTION SYS$CLRCLUEVT & ( &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $CLREF !  ! Clear Event Flag !  !  $CLREF efn ! 7 ! efn = number of event flag to be cleared ! ) EXTERNAL LONG FUNCTION SYS$CLREF & ( &# LONG BY VALUE & ) !  ! $CLOSE !  ! Close File ! $ ! $CLOSE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$CLOSE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $CMEXEC ! " ! Change to Executive Mode ! % ! $CMEXEC routin ,[arglst] ! J ! routin = address of the routine to be executed in executive ! modeJ ! arglst = address of argument list to be supplied to the !  routine ! * EXTERNAL LONG FUNCTION SYS$CMEXEC & ( &" LONG BY REF, & ANY BY REF & ) !  ! $CMEXEC_64 ! > ! Change to Executive Mode with Quadword Argument List ! . ! $CMEXEC_64 routin_64 ,[arglst_64] ! M ! routin_64 = address of the routine to be executed in executive ! modeV ! arglst_64 = address of quadword argument list  to be supplied to the ! routine ! - EXTERNAL LONG FUNCTION SYS$CMEXEC_64 & ( &" LONG BY REF, &+ BASIC$QUADWORD BY REF & ) ! $CMKRNL !  ! Change to Kernel Mode ! $ ! $CMKRNL routin ,[arglst] ! D ! routin = address of routine to be executed in kernel mode ! F ! arglst = address of argument list to be supplied to routine ! * EXTERNAL LONG FUNCTION SYS$CMKRNL & ( &" LONG BY REF, & ANY BY REF & ) ! $CMKRNL_64 ! ; ! Change to Kernel Mode with Quadword Argument List ! - ! $CMKRNL_64 routin_64 ,[arglst_64] ! G ! routin_64 = address of routine to be executed in kernel mode ! R ! arglst_64 = address of quadword argument list to be supplied to routine ! - EXTERNAL LONG FUNCTION SYS$CMKRNL_64 & ( &" LONG BY REF, &+ BASIC$QUADWORD BY REF & ) !  ! $CONNECT !  ! Connect File ! & ! $CONNECT rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! + EXTERNAL LONG FUNCTION SYS$CONNECT & ( &!  ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $CNTREG ! ) ! Contract Program/Control Region ! 8 ! $CNTREG pagcnt ,[retadr] ,[acmode] ,[region] ! D ! pagcnt = number of pages to be deleted from end of region ! I ! retadr = address of 2-longword array to receive virtualA ! 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 ! * EXTERNAL LONG FUNCTION SYS$CNTREG & ( &$ LONG BY VALUE, &' LONG DIM() BY REF, &$ LONG BY VALUE, &# BYTE BY VALUE & ) !  ! $CPU_CAPABILITIES ! & ! Modify CPU user capabilities ! U  ! $CPU_CAPABILITIES cpu_id,[select_mask],[modify_mask],[prev_mask],[flags] ! C ! cpu_id = CPUID number of processor to be affected by changesE ! select_mask = address of bitmask indicating which capabilities6 ! are to be involved in the specified operation> ! modify_mask = address of bitmask indicating final state6 ! of those capabilities specified in select_mask> ! prev_mask = address of user quadword that will hold the6 ! previous states of the individual capabilities= ! flags = address of behavioral flags for this operation ! 4 EXTERNAL LONG FUNCTION SYS$CPU_CAPABILITIES & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) !  ! $CPU_TRANSITION ! $CPU_TRANSITIONW !  ! CPU State Transi tions ! T ! $CPU_TRANSITION tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprmU ! $CPU_TRANSITIONW tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprmS ! Inputs: tran_code - Transition code of operation to be initiatedF ! cpu_id - CPU ID of processor to affected@ ! nodename - ASCII descriptor name equivalent to node ID7 ! node_id - Galactic node IDT ! flags  - Quadword pointer to longword behavioral flagsT ! efn - Event flag number for completion notificationU ! iosb - IOSB block address for completion notificationP ! astadr - Address of AST routine name on completionT ! astprm - AST parameter to be passed back on completion? ! timout - Timeout count in seconds ! 2 EXTERNAL LONG FUNCTION SYS$CPU_TRANSITION & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )3 EXTERNAL LONG FUNCTION SYS$CPU_TRANSITIONW &  ( &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $CREATE !  ! Create File ! % ! $CREATE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$CREATE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $CREATE_MAPPING ! ( ! Create Mapping record database !  ! $CREATE_MAPPING ! 0 EXTERNAL LONG FUNCTION SYS$CREATE_MAPPING !  ! $CREATE_PROXY !  ! Create proxy database !  ! $CREATE_PROXY !  ! . EXTERNAL LONG FUNCTION SYS$CREATE_PROXY !  ! $CREATE_UID ! ' ! Create a Universal Identifier !  ! $CREATE_UID UID ! > ! UID = address of the 16 byte buffer to receive the UID. ! . EXTERNAL LONG FUNCTION SYS$CREATE_UID & ( &+  BASIC$OCTAWORD BY REF & ) ! $CREATE_BUFOBJ ! " ! Create I/O Buffer Object ! L ! $CREATE_BUFOBJ inadr ,[retadr] ,[acmode] ,[flags] ,buffer_handle ! P ! inadr = address of 2-longword array containing starting and endingP ! virtual addresses of existing VA to include in buffer object ! I ! retadr = address of 2-longword array to receive addresses: ! actually included in the buffer object ! 9 ! acmode = access mode of owner of buffer object ! ( ! flags = request option flags ! " ! Bit Meaning (if set) ! H ! 0 Return system virtual address of buffer object in RETADR( ! (Caller must be in kernel mode) ! I ! buffer_handle = address of a quadword to receive the buffer handle1 ! that identifies the created buffer object ! 1 EXTERNAL LONG FUNCTION SYS$CREATE_BUFOBJ &  ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, && LONG DIM() BY REF & ) ! $CREATE_BUFOBJ_64 ! " ! Create I/O Buffer Object ! d ! $CREATE_BUFOBJ_64 start_va_64, length_64, acmode, flags, return_va_64, return_length_64, ! buffer_handle_64 ! U ! start_va_64 = Starting address of existing addres s to include in buffer object ! K ! length_64 = Byte length of addresses to include in buffer object ! 9 ! acmode = access mode of owner of buffer object ! ( ! flags = request option flags ! * ! Flag Meaning (if specified) ! Z ! CBO_M_RETSVA Return system virtual address of buffer object in return_va_64( ! (Caller must be in kernel mode)O ! CBO_M_SVA_32 Create buffer object window in 32-bit (S0/S1) system space ! : ! return_va_64 = Address of buffer object created ! : ! return_length_64 = Length of buffer object created ! L ! buffer_handle_64 = address of a quadword to receive the buffer handle1 ! that identifies the created buffer object ! 4 EXTERNAL LONG FUNCTION SYS$CREATE_BUFOBJ_64 & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $CREATE_GFILE ! 3 ! Create Permanent Global Disk File Section ! ] ! $CREATE_GFILE gsdnam_64, ident_64, file_offset_64, length_64, chan, acmode, flags,( ! return_length_64[, fault_cluster] ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! U ! ident_64 = Address of quadword containing version id and match control ! > ! file_offset_64 = Byte offset into file to start section ! 7 ! length_64 = Byte length of section to create ! B ! chan = Number of channel on which file is accessed ! 1 ! acmode = Access mode for section ! . ! flags = Section characteristics ! # ! Flag Meaning ! 5 ! SEC$M_CRF Copy-on-reference section1 ! SEC$M_SYSGBL System global section. ! SEC$M_WRT Read/write section ! 4 ! return_length_64 = Length of section created ! > ! fault_cluster = Page fault cluster size in bytes ! 0 EXTERNAL LONG FUNCTION SYS$CREATE_GFILE & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &.!  BASIC$QUADWORD BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &+ OPTIONAL LONG BY VALUE & ) ! $CREATE_GDZRO ! 5 ! Create Permanent Global Demand Zero Section ! k ! $CREATE_GDZRO gsdnam_64, ident_64, prot, length_64, acmode, flags[[, reserved_length], rad_mask] ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! R ! ident_64 = Address of quadword containing version id and match control ! & ! prot = Protection mask ! 7 ! length_64 = Byte length of section to create ! 1 ! acmode = Access mode for section ! . ! flags = Section characteristics ! # ! Flag Meaning ! 1 ! SEC$M_SYSGBL System global sect ion ! ] ! SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from ! N ! reserved_length_64 = Length of memory reserved for this global section ! [ ! rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory0 EXTERNAL LONG FUNCTION SYS$CREATE_GDZRO & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &.!  BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &4 OPTIONAL BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $CREATE_GPFILE ! 3 ! Create Permanent Global Page File Section ! M ! $CREATE_GPFILE gsdnam_64, ident_64, prot, length_64, acmode, flags ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! R ! ident_64 = Address of quadword containing version id and match control ! & ! prot = Protection mask ! 7 ! length_64 = Byte length of section to create ! 1 ! acmode = Access mode for section ! . ! flags = Section characteristics ! # ! Flag Meaning ! 1 ! SEC$M_SYSGBL System global section ! 1 EXTERNAL LONG FUNCTION SYS$CREATE_GPFILE & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $CREATE_GPFN ! 4 ! Create Permanent Global Page Frame Section ! W ! $CREATE_GPFN gsdnam_64, ident_64, prot, start_pfn, page_count, acmode, flags ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! U ! ident_64 = Address of quadword containing version id and match control ! & ! prot = Protection mask ! = ! start_pfn = Page frame number of first page in section ! 4 ! page_count = Number of page frames in section ! 1 ! acmode = Access mode for section ! . ! flags = Section characteristics ! # ! Flag  Meaning ! > ! SEC$M_ARGS64 All arguments are passed as 64-bits1 ! SEC$M_SYSGBL System global section ! / EXTERNAL LONG FUNCTION SYS$CREATE_GPFN & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $CREATE_RDB ! $ ! Create The Rights Database !  ! $CREATE_RDB [sysid] ! 8 ! sysid = address of the quadword system identifier, ! to store in the maintenance record ! . EXTERNAL LONG FUNCTION SYS$CREATE_RDB & ( &+ BASIC$QUADWORD BY REF & ) ! $CREATE_REGION_64 ! ' ! Create Virtual Address Region ! ^ ! $CREATE_REGION_64 length_64, region_prot, flags, return_region_id_64, return_va_64,& ! return_length_64[, start_va_64] ! 6 ! length_64 = Byte length of region to create ! . ! region_prot = Protection on region ! - ! flags = Region characteristics ! K ! return_region_id_64 = Region id associated with newly created region ! 8 ! return_va_64 = Starting address of region created ! 3 ! return_length_64 = Length of region created ! 7  ! start_va_64 = Starting address to create region4 EXTERNAL LONG FUNCTION SYS$CREATE_REGION_64 & ( &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ OPTIONAL LONG BY VALUE & ) !  ! $CREATE_USER_PROFILE ! ) ! Create a user security profile. ! U ! $CREATE_USER_PROFILE [usrnam], [itmlst], [flags], usrpro, usrprolen, [context] ! O ! usrnam = address of username descriptor (optional with CHP$M_NOACCESS)& ! itmlst = address of item list ! flags = flags longwordP ! usrpro = address of buffer to receive user profile (opaque byte string)G ! usrprolen = address of longword to receive user profile length< ! contxt = address of longword to receive UAI context ! 7 EXTERNAL LONG FUNCTION SYS$CREATE_USER_PROFILE & ( &% STRING BY DESC, &! ANY BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &! LONG BY REF & ) ! $CRELNM !  ! Create Logical Name ! @ ! $CRELNM [attr], tabnam, lognam, [acmode], [itemlist] ! 4 ! attr = address of logical name attributes !  ! Attribute MeaningE ! LNM$M_CONFINE Logical name not to be copied into sub-process6 ! LNM$M_NO_ALIAS Logical name can not be aliased6 ! LNM$M_CRELOG Logical name created using $CRELOG ! C ! tabnam = address of logical name table string descriptor ! = ! lognam = address of logical name string descriptor ! ; ! acmode = address of access mode for logical name ! 9 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$CRELNM & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" BYTE BY REF, & ANY BY REF & ) ! $CRELNT ! # ! Create Logical Name Table ! 8 ! $CRELNT [attr], [resnam], [reslen], [quota],< ! [promsk], [tabnam], [acmode], [partab], [uic] ! : ! attr = address of logical name table attributes ! D ! resnam = address of descriptor of a buffer to receive the ! created table's name ! H ! reslen = address of word to recieve length of created table's ! name ! F ! quota = address of quota associated with logical name table ! . ! promsk = address of protection mask ! R ! tabnam = address of descriptor of logical name table name to be created ! E  ! partab = address of name of table parent string descriptor ! ; ! acmode = address of access mode for logical name ! E ! uic = owner of table created in response to remote request ! * EXTERNAL LONG FUNCTION SYS$CRELNT & ( &" LONG BY REF, &% STRING BY DESC, &" WORD BY REF, &" LONG BY REF, &" WORD BY REF, &% STRING BY DESC, &% STRING BY DESC, &" BYTE BY REF, &) OPTIONAL LONG BY REF & ) ! $CRELOG !  ! Create Logical Name ! 6 ! $CRELOG [tblflg] ,lognam ,eqlnam ,[acmode] ! - ! tblflg = logical name table number? ! 0 -> system (default) 1 -> group 2 -> process ! = ! lognam = address of logical name string descriptor ! A ! eqlnam = address of equivalence name string descriptor ! E ! acmode = access mode for logical name (process table only) ! * EXTERNAL LONG FUNCTION SYS$CRELOG & ( &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) ! $CREMBX ! + ! Create Mailbox and Assign Channel ! ] ! $CREMBX [prmflg] ,chan ,[maxmsg] ,[bufquo] ,[promsk] ,[acmode] ,[lognam], [flags] ! " ! prmflg = permanent flag6 ! 0 -> temporary (default) 1 -> permanent ! 6 ! chan = address of word to receive channel ! = ! maxmsg = maximum message size that may be received ! G ! bufquo = number of bytes that can be used to buffer messages ! # ! promsk = protection mask ! 2 ! acmode = access mode of created mailbox ! I ! lognam = address of logical name string descriptor for mailbox ! N ! flags = optional flags for mailbox creation and channel assignment ! * EXTERNAL LONG FUNCTION SYS$CREMBX & ( &$ BYTE BY VALUE, &" WORD BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &+ OPTIONAL LONG BY VALUE &  ) ! $CREPRC !  ! Create Process ! K ! $CREPRC [pidadr] ,[image] ,[input] ,[output] ,[error] ,[prvadr]M ! ,[quota] ,[prcnam] ,[baspri] ,[uic] ,[mbxunt] ,[stsflg] ,[itmlst] * ! ,[node], [home_rad]. [lt_limit] ! G ! 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 ! 6 ! prvadr = address of quadword privilege list ! ) ! quota = address of quota list ! A ! prcnam = address of string descriptor for process name ! ( ! baspri = base priority (0-31) ! H ! uic = user identification code. If 0, create a subprocess ! 8 ! mbxunt = mailbox unit for termination message ! - ! stsflg = status and mode flag bits !  ! Bit Meaning ! / ! 0 disable resource wait mode< ! 1 enable system service failure exception mode( ! 2 inhibit process swapping0 ! 3 disable accounting messages" ! 4 batch process7 ! 5 cause created process to hibernateA ! 6 allow login without authorization file check8 !  7 process is a network connect object4 ! 22 start process on specified home rad7 ! 26 set kernel thread limit for the process ! 9 ! itmlst = address of a list of item descriptors ! @ ! node = address of string descriptor for SCS node name ! I ! home_rad = RAD to start process on, if bit 22 in stsflg is set ! T ! kt_limit = kernel thread limit of the process, if bit 26 in stsflg is set* EXTERNAL LONG FUNCTION SYS$CREPRC & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &! ANY BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! $CRETVA ! & ! Create Virtual Address Space ! - ! $CRETVA inadr ,[retadr] ,[acmode] ! I ! inadr = address of 2-longword array containing starting andA ! ending virtual address of pages to be created ! I ! retadr = address of a 2-longword array to receive starting andD ! ending virtual address of pages actually created ! I ! acmode = access mode for the new pages (protection isD ! read/write for acmode and more privileged modes) ! * EXTERNAL LONG FUNCTION SYS$CRETVA & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $CRETVA_64 ! & !  Create Virtual Address Space ! j ! $CRETVA_64 region_id_64, start_va_64, length_64, acmode, flags, return_va_64, return_length_64 ! [, page_prot] ! 4 ! region_id_64 = Address of quadword region id ! @ ! start_va_64 = Starting address of address space to create ! 9 ! length_64 = Byte length of addresses to create ! L ! acmode = access mode for the new pages (protection isG ! read/write for acmode and more privileged modes) ! - ! flags = Address space creation flags ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! 5 ! page_prot = desired page protection (optional) ! - EXTERNAL LONG FUNCTION SYS$CRETVA_64 & ( &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$  LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ OPTIONAL LONG BY VALUE & ) ! $CRMPSC ! ! Create and Map Section ! K ! $CRMPSC [inadr] ,[retadr] ,[acmode] ,[flags] ,[gsdnam] ,[ident]E ! ,[relpag] ,[chan] ,[pagcnt] ,[vbn] ,[prot] ,[pfc] ! I ! inadr = address of 2-longword array containing starting andD ! ending virtual addresses of space to map section ! I ! retadr = address of 2-longword array to receive addresses# ! actually mapped ! 1 ! acmode = access mode of owner of pages ! + ! flags = section characteristics ! ! ! Flag Meaning ! ( ! SEC$M_GBL Global section3 ! SEC$M_CRF Copy-on-reference section+ ! SEC$M_DZRO Demand zero pages4 ! SEC$M_EXPREG Find first available space+ ! SEC$M_PERM Permanent section5 ! SEC$M_PFNMAP Physical page frame section/ ! SEC$M_SYSGBL System global section, ! SEC$M_WRT Read/write section ! D ! gsdnam = address of global section name string descriptor ! O ! ident = address of quadword containing version id and match control ! 7 ! relpag = relative page number within section ! ? ! chan = number of channel on which file is accessed ! . ! pagcnt = number of pages in section ! I ! vbn = virtual block number of beginning of section orF ! physical page frame number of beginning of section ! # ! prot = protection mask ! + ! pfc = page fault cluster size ! * EXTERNAL LONG FUNCTION SYS$CRMPSC & ( &' LONG DIM() BY REF, &'  LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $CRMPSC_FILE_64 ! 2 ! Create and Map Private Disk File Section ! Y ! $CRMPSC_FILE_64 region_id_64, file_offset_64, length_64, chan, acmode, flags,' ! return_va_64, return_length_646 ! [, fault_cluster[, start_va_64[, page_prot]]] ! 4 ! region_id_64 = Address of quadword region id ! > ! file_offset_64 = Byte offset into file to start section ! 9 ! length_64 = Byte length of addresses to create ! B ! chan = number of channel on which file is accessed ! 9 !  acmode = access mode for the new pages ! . ! flags = section characteristics ! # ! Flag Meaning ! 5 ! SEC$M_CRF Copy-on-reference section- ! SEC$M_DZRO Demand zero pages6 ! SEC$M_EXPREG Find first available space? ! SEC$M_NO_OVERMAP Do not overmap existing address space. ! SEC$M_WRT Read/write section ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! > ! fault_cluster = Page fault cluster size in bytes ! @ ! start_va_64 = Starting address of address space to create ! 5 ! page_prot = Desired page protection (optional) ! 2 EXTERNAL LONG FUNCTION SYS$CRMPSC_FILE_64 & ( &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$  WORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $CRMPSC_GFILE_64 ! 1 ! Create and Map Global Disk File Section ! a ! $CRMPSC_GFILE_64 gsdnam_64, ident_64, file_offset_64, length _64, chan, region_id_64, J ! section_offset_64, acmode, flags, return_va_64, return_length_64H ! [, fault_cluster[, start_va_64[, map_length_64[, page_prot]]]] ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! R ! ident_64 = Address of quadword containing version id and match control ! > ! file_offset_64 = Byte offset into file to start section ! 7 ! length_64 = Byte length of section to create ! B ! chan = number of channel on which file is accessed ! 4 ! region_id_64 = Address of quadword region id ! O ! section_offset_64 = Relative byte within global section to start mapping ! 9 ! acmode = access mode for the new pages ! . ! flags = section characteristics ! # ! Flag Meaning ! 5 ! SEC$M_CRF Copy-on-reference section6 ! SEC$M_E XPREG Find first available space? ! SEC$M_NO_OVERMAP Do not overmap existing address space- ! SEC$M_PERM Permanent section1 ! SEC$M_SYSGBL System global section. ! SEC$M_WRT Read/write section ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! > ! fault_cluster = Page fault cluster size in bytes ! @ ! start_va_64 = Starting address of address space to create ! = ! map_length_64 = Byte length of address space to map ! 3 EXTERNAL LONG FUNCTION SYS$CRMPSC_GFILE_64 & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ WORD BY VALUE, &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &$  LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &-! BASIC$QUADWORD BY VALUE & ) ! $CRMPSC_GDZRO_64 ! 3 ! Create and Map Global Demand Zero Section ! c ! $CRMPSC_GDZRO_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64,8 ! acmode, flags, return_va_64, return_length_64 Y ! [, start_va_64[, map_length_64[, reserved_length_64[, rad_mask[, page_prot]]]]] ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! R ! ident_64 = Address of quadword containing version id and match control ! & ! prot = Protection mask ! 7 ! length_64 = Byte length of section to create ! 4 ! region_id_64 = Address of quadword region id ! O ! section_offset_64 = Relative byte within global section to start mapping ! 9 ! acmode = access mode for the new pages ! . ! flags = section characteristics ! # ! Flag Meaning ! 6 ! SEC$M_EXPREG Find first available space? ! SEC$M_NO_OVERMAP Do not overmap existing address space- ! SEC$M_PERM Permanent section1 ! SEC$M_SYSGBL System global section] ! SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! @ ! start_va_64 = Starting address of address space to create ! = ! map_length_64 = Byte length of address space to map ! N ! reserved_length_64 = Length of memory reserved for this global section ! [ ! rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory ! 3 EXTERNAL LONG FUNCTION SYS$CRMPSC_GDZRO_64 & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &,  BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $CRMPSC_GPFILE_64 ! 1 ! Create and Map Global Page File Section ! d ! $CRMPSC_GPFILE_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64,8 ! acmode, flags, return_va_64, return_length_648 ! [, start_va_64[, map_length_64[, page_prot]]] ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! R ! ident_64 = Address of quadword containing version id and match control ! & ! prot = Protection mask ! 7 ! length_64 = Byte length of section to create ! 4 ! region_id_64 = Address of quadword region id ! O ! section_offset_64 = Relative byte within global section to start mapping ! 9 ! acmode = access mode for the new pages ! . ! flags = section characteristics ! # ! Flag Meaning ! 6 ! SEC$M_EXPREG Find first available space? ! SEC$M_NO_OVERMAP Do not overmap existing address space- ! SEC$M_PERM Permanent section1 ! SEC$M_SYSGBL System global section ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! @ ! start_va_64 = Starting address of address space to create ! = ! map_length_64 = Byte length of address space to map ! 4 EXTERNAL LONG FUNCTION SYS$CRMPSC_GPFILE_64 & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &,  BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &-! BASIC$QUADWORD BY VALUE & ) ! $CRMPSC_GPFN_64 ! 2 ! Create and Map Global Page Frame Section ! j ! $CRMPSC_GPFN_64 gsdnam_64, ident_6 4, prot, start_pfn, page_count, region_id_64, relative_page,6 ! acmode, flags, return_va_64, return_length_647 ! [, start_va_64[, map_page_count[, page_prot]]] ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! T ! ident_64 = Address of quadword containing version id and match control ! & ! prot = Protection mask ! = ! start_pfn = Page frame number of first page in section ! 4 ! page_count = Number of page frames in section ! 4 ! region_id_64 = Address of quadword region id ! L ! relative_page = Relative page within global section to start mapping ! ; ! acmode = Access mode of owner of mapped pages ! G ! flags = Flags overriding default section characteristics ! $ ! Flag Meaning ! > ! SEC$M_ARGS64 All arguments are passed as 64-bits7 ! SEC$M_EXPREG Find first available space? ! SEC$M_NO_OVERMAP Do not overmap existing address space2 ! SEC$M_SYSGBL System global section; ! SEC$M_WRT Read/write mapping of section ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! @ ! start_va_64 = Starting address of address space to create ! 6 ! map_page_count = Number of page frames to map ! 5 !  page_prot = Desired page protection (optional) ! 2 EXTERNAL LONG FUNCTION SYS$CRMPSC_GPFN_64 & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &# LONG BY VALUE & ) ! $CRMPSC_PFN_64 ! 3 ! Create and Map Private Page Frame Section ! N ! $CRMPSC_PFN_64 region_id_64, start_pfn, page_count, acmode, flags,- ! return_va_64, return_length_64+ ! [, start_va_64[, page_prot]] ! 4 ! region_id_64 = Address of quadword region id ! = ! start_pfn = Page frame number of first page in section ! 4 ! page_count = Number of page frames in section ! 9 ! acmode = access mode for the new pages ! . ! flags = section characteristics ! # ! Flag Meaning ! 9 ! SEC$M_ARGS64 All arguments are passed as 64-bits6 ! SEC$M_EXPREG Find first available space7 ! SEC$M_GRANHINT Set granularity hints on pages? ! SEC$M_NO_OVERMAP Do not overmap existing address space. ! SEC$M_WRT Read/write section ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! @ ! start_va_64 = Starting address of address space to create ! 5 ! page_prot = Desired page protection (optional) ! 1 EXTERNAL LONG FUNCTION SYS$CRMPSC_PFN_64 & ( &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! $DACEFC ! 0 ! Disassociate Common Event Flag Cluster !  ! $DACEFC efn ! ; ! efn = number of any event flag in the cluster ! * EXTERNAL LONG FUNCTION SYS$DACEFC & ( &# LONG BY VALUE & ) ! $DALLOC !  ! Deallocate Device ! & ! $DALLOC [devnam] ,[acmode] ! L ! devnam = address of device name descriptor. If 0, deallocate all ! 6 ! acmode = access mode associated with device ! * EXTERNAL LONG FUNCTION SYS$DALLOC & ( &% STRING BY DESC, &# LONG BY VALUE & ) ! $DASSGN !  ! Deassign I/O Channel !  ! $DASSGN chan ! 6 ! chan = number of channel to be deassigned ! * EXTERNAL LONG FUNCTION SYS$DASSGN & ( &# WORD BY VALUE & ) ! $DCLAST !  ! Declare AST ! . ! $DCLAST astadr ,[astprm] ,[acmode] ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine ! C ! acmode = access mode for which the AST is to be declared ! * EXTERNAL LONG FUNCTION SYS$DCLAST & ( &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $DCLCMH ! ; ! Declare Change Mode or Compatibility Mode Handler ! , ! $DCLCMH addres ,[prvhnd] ,[type] ! & ! addres = address of handler ! K ! prvhnd = address of longword to receive previous handler address ! * ! type = handler type indicatorN ! 0 -> change mode (current mode) 1 -> compatibility mode ! * EXTERNAL LONG FUNCTION SYS$DCLCMH & ( &" LONG BY REF, &" LONG BY REF, &#  BYTE BY VALUE & ) ! $DCLEVT !  ! Declare an Event ! @ ! $DCLEVT evtnam, [rcvacl], [evtfac], [acmode], [flags]> ! ,[evtdata], [nullarg], [nullarg], [nullarg], [nullarg] ! 8 ! evtnam = address of descriptor of event name ! 1 ! rcvacl = address of descriptor of ACL ! 3 ! evtfac = address of event facility code ! 5 ! acmode = access mode of event declaration ! # ! flags = optional flags ! A ! evtdata = address of descriptor of optional event data ! * EXTERNAL LONG FUNCTION SYS$DCLEVT & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $DCLEXH !  ! Declare Exit Handler !  ! $DCLEXH desblk ! = ! desblk = address of exit control block containing: ! - ! +-------------------------------+- ! | forward link |- ! +-------------------------------+- ! | exit handler address |- ! +-------------------------------+- ! | argument count |- ! +-------------------------------+- ! | address to store reason |- ! +-------------------------------+- ! | additional arguments |- ! +-- for exit handler, --+- ! | if any |- ! +-------------------------------+ ! * EXTERNAL LONG FUNCTION SYS$DCLEXH & ( & ANY BY REF & ) !  ! $DEFINE_MAPPING ! = ! Define Mapping record types in the Mapping database ! 0 ! $DEFINE_MAPPING initmlst [,outitmlst] ! N ! initmlst = address of a list of item descriptors for the operationL ! outitmlst = address of a list of item descriptors for information ! from the operation ! 2 EXTERNAL LONG FUNCTION SYS$DEFINE_MAPPING & ( &! ANY BY REF, & ANY BY REF & ) !  ! $DELETE !  ! Delete Record ! % ! $DELETE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$DELETE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $DELETE_BITMAP !  ! Delete a Write Bitmap ! # ! $DELETE_BITMAP handle ! 1 EXTERNAL LONG FUNCTION SYS$DELETE_BITMAP & ( &# LONG BY VALUE & ) !  ! $DELETE_INTRUSION ! ! ! Delete intrusion record ! 6 ! $DELETE_INTRUSION user_criteria, [flags] ! ? ! user_criteria in address of user criteria descriptor- ! flags in intrusion service flags  ! 4 EXTERNAL LONG FUNCTION SYS$DELETE_INTRUSION & ( &% STRING BY DESC, &# LONG BY VALUE & ) !  ! $DELETE_MAPPING ! 5 ! Delete Mapping record from Mapping database ! # ! $DELETE_MAPPING initmlst ! N ! initmlst = address of a list of item descriptors for the operation ! 2 EXTERNAL LONG FUNCTION SYS$DELETE_MAPPING & ( &  ANY BY REF & ) !  ! $DELETE_PROXY !  ! Delete proxy record ! B ! $DELETE_PROXY rem_node, rem_user, local_user, [flags] ! ; ! rem_node in address of remote node descriptor; ! rem_user in address of remote user descriptor: ! local_user in address of local user descriptor+ ! flags in proxy service flags ! 0 EXTERNAL LONG FUNCTION SYS$DELETE_PROXY & ( &%  STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) ! $DELLNM ! * ! Delete Logical Name and/or Table ! 0 ! $DELLNM [tabnam], [lognam], [acmode] ! K ! tabnam = address of descriptor of logical name table name string ! @ ! lognam = address of descriptor of logical name string ! ; ! acmode = address of access mode for logical name ! * EXTERNAL LONG FUNCTION SYS$DELLNM & ( &% STRING BY DESC, &% STRING BY DESC, &! BYTE BY REF & ) ! $DELLOG !  ! Delete Logical Name ! 0 ! $DELLOG [tblflg] ,[lognam] ,[acmode] ! - ! tblflg = logical name table number= ! 0 -> system 1 -> group 2 -> process ! E ! lognam = address of logical name string descriptor. If 0,$ ! delete all names ! D ! acmode = access mode of logical name (process table only) ! * EXTERNAL LONG FUNCTION SYS$DELLOG & ( &$ LONG BY VALUE, &% STRING BY DESC, &# LONG BY VALUE & ) ! $DELMBX !  ! Delete Mailbox !  ! $DELMBX chan ! : ! chan = channel number assigned to the mailbox ! * EXTERNAL LONG FUNCTION SYS$DELMBX & ( &# WORD BY VALUE & ) ! $DELPRC !  ! Delete Process ! / ! $DELPRC [pidadr] ,[prcnam] ,[flags] ! N ! pidadr = address of longword containing id of process to be deleted ! O ! prcnam = address of string descriptor for process name to be deleted ! C ! flags = optional flags longword for specifying options  ! * EXTERNAL LONG FUNCTION SYS$DELPRC & ( &" LONG BY REF, &% STRING BY DESC, &+ OPTIONAL LONG BY VALUE & ) ! $DELTVA ! & ! Delete Virtual Address Space ! - ! $DELTVA inadr ,[retadr] ,[acmode] ! I ! inadr = address of 2-longword array containing starting and? ! ending virtual addresses of pages to delete ! I ! retadr = address of 2-longword array to receive starting and> ! ending addresses of pages actually deleted ! > ! acmode = access mode for which service is performed ! * EXTERNAL LONG FUNCTION SYS$DELTVA & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $DELTVA_64 ! & ! Delete Virtual Address Space ! c ! $DELTVA_64 region_id_64, start_va_64, length_64, acmode, return_va_64, return_length_64 ! 4 ! region_id_64 = Address of quadword region id ! @ ! start_va_64 = Starting address of address space to delete ! 9 ! length_64 = Byte length of addresses to delete ! D ! acmode = access mode for which service is performed ! : ! return_va_64 = Address of address space deleted ! : ! return_length_64 = Length of address space deleted ! -  EXTERNAL LONG FUNCTION SYS$DELTVA_64 & ( &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $DELETE_BUFOBJ ! " ! Delete I/O Buffer Object ! ( ! $DELETE_BUFOBJ buffer_handle ! L ! buffer_handle = address of a quadword that contains the buffer handle3 ! identifying the buffer object to be deleted ! 1 EXTERNAL LONG FUNCTION SYS$DELETE_BUFOBJ & ( && LONG DIM() BY REF & ) ! $DELETE_REGION_64 ! ' ! Delete Virtual Address Region ! R ! $DELETE_REGION_64 region_id_64, acmode, return_va_64, return_length_64 ! 4 ! region_id_64 = Address of quadword region id ! D ! acmode = Access mode for which service is performed ! : ! return_va_64 = Address of address space deleted ! : ! return_length_64 = Length of address space deleted ! 4 EXTERNAL LONG FUNCTION SYS$DELETE_REGION_64 & ( &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $DEQ !  ! Dequeue Lock ! 4  ! $DEQ [lkid] ,[valblk] ,[acmode] ,[flags] ! 6 ! lkid = lock ID of the lock to be dequeued ! 3 ! valblk = address of the lock value block ! ; ! acmode = access mode of the locks to be dequeued ! # ! flags = optional flags. ! % ! LCK$M_DEQALL ! ' EXTERNAL LONG FUNCTION SYS$DEQ & ( &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $DEVICE_SCAN !  ! Wildcard device scan ! S ! $DEVICE_SCAN return_devnam, retlen, [search_devnam], [itmlst], [contxt] ! O ! return_devnam = address of descriptor of returned device name buffer ! J ! retlen = address to store length of device name returned ! F ! search_devnam = address of descriptor of search device name ! @ ! itmlst = address of a list of item descriptors ! A ! contxt = address of quadword context structures !  ! / EXTERNAL LONG FUNCTION SYS$DEVICE_SCAN & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &! ANY BY REF, &+ BASIC$QUADWORD BY REF & ) ! $DGBLSC !  ! Delete Global Section ! , !  $DGBLSC [flags] ,gsdnam ,[ident] ! # ! flags = type of sectionI ! 0 -> group section SEC$M_SYSGBL -> system section ! D ! gsdnam = address of global section name string descriptor& ! (32-bit or 64-bit descriptor) ! O ! ident = address of quadword containing version id and match control ! * EXTERNAL LONG FUNCTION SYS$DGBLSC & ( &$ LONG BY VALUE, &% STRING BY DESC, &+ BASIC$QUADWORD BY REF & ) ! $DIAGNOSE3 ! System Service for Diagnostics Programmers ! 0 ! $DIAGNOSE function, P2, [cpu_id, [flags]] ! / ! function = DIAG$SETAFF or DIAG$_ACTVCPUS ! 6 ! P2 = enable flag if function is DIAG$SETAFF, or5 ! address to return actvcpus in if function ! is DIAG$_ACTVCPUS ! - ! cpu_id = CPU number to set affinity to ! : ! flags = masks governing the checking to do, whether= ! affinity is set for image or process duration,/ ! whether to set affinity to primary cpu. ! , EXTERNAL LONG FUNCTION SYS$DIAGNOSE & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $DISABLE_VP_USE ! - ! Disable Use of the Vector Processor ! 0 ! $DISABLE_VP_USE flags ,[curflg] ,[prvflg] ! C ! flags = mask of facility(ies) that disabled vector use ! A ! curflg = address of longword to receive current flags ! B ! prvflg = address of longword to receive previous flags ! 2 EXTERNAL LONG FUNCTION SYS$DISABLE_VP_USE & ( &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) !  ! $DISABLE_VP_USE_INT ! < ! Disable Use of the Vector Processor, internal form ! 4 ! $DISABLE_VP_USE_INT flags ,[curflg] ,[prvflg] ! C ! flags = mask of facility(ies) that disabled vector use ! A ! curflg = address of longword to receive current flags ! B ! prvflg = address of longword to receive previous flags ! 6 EXTERNAL LONG FUNCTION SYS$DISABLE_VP_USE_INT & ( &$ LONG BY VALUE, &"  LONG BY REF, &! LONG BY REF & ) !  ! $DISCONNECT ! " ! Disconnect Record Stream ! ) ! $DISCONNECT rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! . EXTERNAL LONG FUNCTION SYS$DISCONNECT & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $DISMOU !  ! Dismount Volume ! . ! $DISMOU [devnam], [flags], [itmlst] ! E ! devnam = optional address of device name string descriptor ! L ! flags = 32-bit status mask selecting options for the dismountL ! The symbols for the flags are defined by the $DMTDEF ! macro. ! & ! Flag Meaning ! ; ! DMT$M_NOUNLOAD Do not unload the volume. ! G ! DMT$M_UNIT Dismount the specified device, rather= ! than the entire volume set. ! C ! itmlst = optional address of a list of item identifiers  ! * EXTERNAL LONG FUNCTION SYS$DISMOU & ( &% STRING BY DESC, &$ LONG BY VALUE, &) OPTIONAL LONG BY REF & ) !  ! $DISPLAY !  ! Display File ! & ! $DISPLAY fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! + EXTERNAL LONG FUNCTION SYS$DISPLAY & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $DIS PLAY_PROXY !  ! Display proxy record ! U ! $DISPLAY_PROXY rem_node, rem_user, buffer_sizes, proxy_node, proxy_user,= ! default_user, local_users, [flags], [context] ! 4 ! rem_node in address of remote node descriptor4 ! rem_user in address of remote user descriptorY ! buffer_sizes out address of array of words to receive output string lengthsN ! proxy_node out address of descriptor to receive matching proxy nodeN !  proxy_user out address of descriptor to receive matching proxy userL ! default_user out address of descriptor to receive default userL ! local_users out address of array of blocks to receive local users$ ! flags in proxy service flags< ! context in out address of optional longword context ! 1 EXTERNAL LONG FUNCTION SYS$DISPLAY_PROXY & ( &% STRING BY DESC, &% STRING BY DESC, &'  WORD DIM() BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! $DLCEFC ! * ! Delete Common Event Flag Cluster !  ! $DLCEFC name ! = ! name = address of cluster name string descriptor ! * EXTERNAL LONG FUNCTION SYS$DLCEFC &  ( &$ STRING BY DESC & ) ! $DNS ! " ! DNS Clerk system service ! D ! $DNS [efn], func , itmlst, [dnsb] ,[astadr] ,[astprm] ! ($DNSW) ! = ! efn = number of event flag to set on completion ! C ! func = function code specifying action to be performed ! 9 ! itmlst = address of a list of item descriptors ! I ! dnsb = address of quadword I/O status block to receive final% ! completion status ! 8 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as argument ! ' EXTERNAL LONG FUNCTION SYS$DNS & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION SYS$DNSW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! ! $EMAA ! - ! Call Entity Management Assist Agent ! ! $EMAA ! ( EXTERNAL LONG FUNCTION SYS$EMAA & ( &%  STRING BY DESC, &! LONG BY REF & ) !  ! $ENABLE_VP_USE ! , ! Enable Use of the Vector Processor ! / ! $ENABLE_VP_USE flags ,[curflg] ,[prvflg] ! C ! flags = mask of facility(ies) that disabled vector use ! A ! curflg = address of longword to receive current flags ! B ! prvflg = address of longword to receive previous flags ! 1 EXTERNAL LONG FUNCTION SYS$ENABLE_VP_USE & ( &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) !  ! $ENABLE_VP_USE_INT ! ; ! Enable Use of the Vector Processor, internal form ! 3 ! $ENABLE_VP_USE_INT flags ,[curflg] ,[prvflg] ! C ! flags = mask of facility(ies) that disabled vector use ! A ! curflg = address of longword to receive current flags ! B !  prvflg = address of longword to receive previous flags ! 5 EXTERNAL LONG FUNCTION SYS$ENABLE_VP_USE_INT & ( &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) ! $ENQ !  ! Enqueue Lock Request ! C ! $ENQ [efn] ,lkmode ,lksb ,[flags] ,[resnam] ,[parid]F ! ($ENQW) ,[astadr] ,[astprm] ,[blkast] ,[acmode], [rsdm_id] ! ,[range] ,[priority]  ! 6 ! efn = event flag to be set at completion ! < ! lkmode = type of lock mode requested. Modes are: ! + ! LCK$K_NLMODE null lock1 ! LCK$K_CRMODE concurrent read2 ! LCK$K_CWMODE concurrent write0 ! LCK$K_PRMODE protected read1 ! LCK$K_PWMODE protected write0 ! LCK$K_EXMODE exclusive lock ! Q ! lksb = address of the lock status block or extended lock status block ! N ! 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 ! E ! resnam = address of string descriptor of the resource name( ! (32-bit or 64-bit descriptor) ! . ! parid = lock ID of the parent lock ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine ! A ! blkast = address of entry mask of blocking AST routine ! > ! acmode = Access mode to be associated with the lock ! 4 ! rsdm_id = address of resource domain id ! ? ! range = optional range to be locked within resource ! 2 ! priority = optional priority of request ! ' EXTERNAL LONG FUNCTION SYS$ENQ &  ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &* OPTIONAL LONG BY REF, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION SYS$ENQW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &*  OPTIONAL LONG BY REF, &# LONG BY VALUE & ) !  ! $ENTER !  ! Enter File ! $ ! $ENTER fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$ENTER & ( &! ANY BY REF, &* OPTIONAL LON G BY REF, &! LONG BY REF & ) ! $ERAPAT ! , ! Generate a security erase pattern. ! $ ! $ERAPAT type, [count], patadr ! $ ! type = type of security erase ! 7 ! count = iteration count (seed for erase pattern) ! < ! patadr = address of longword to receive erase pattern ! * EXTERNAL LONG FUNCTION SYS$ERAPAT & ( &$ LONG BY VALUE, &$ LONG BY  VALUE, &! LONG BY REF & ) ! $ERASE !  ! Erase File ! $ ! $ERASE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$ERASE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG B Y REF & ) !  ! $EVDPOSTEVENT !  ! Post Event to EVD !  ! $EVDPOSTEVENT EVENT ! 0 EXTERNAL LONG FUNCTION SYS$EVDPOSTEVENT & ( &$ STRING BY DESC & ) ! $EXIT !  ! Exit image !  ! $EXIT [code] ! . ! code = longword completion status ! ( EXTERNAL LONG FUNCTION SYS$EXIT & ( &# LONG BY  VALUE & ) ! $EXPREG ! ' ! Expand Program/Control Region ! 8 ! $EXPREG pagcnt ,[retadr] ,[acmode] ,[region] ! E ! pagcnt = number of pages to add to end of specified region ! I ! retadr = address of 2-longword array to receive virtual: ! addresses of starting and ending pages ! 0 ! acmode = access mode of the new pages ! $ ! region = region indicatorH !   0 -> program (P0) region 1 -> control (P1) region ! * EXTERNAL LONG FUNCTION SYS$EXPREG & ( &$ LONG BY VALUE, &' LONG DIM() BY REF, &$ LONG BY VALUE, &# BYTE BY VALUE & ) ! $EXPREG_64 ! * ! Expand Addresses Within a Region ! [ ! EXPREG_64 region_id_64, length_64, acmode, flags, return_va_64, return_length_64 ! [, page_prot] ! 4 ! region_id_64 = Address of quadword region id ! / ! length_64 = Byte length of addresses ! L ! acmode = access mode for the new pages (protection isG ! read/write for acmode and more privileged modes) ! - ! flags = Address space creation flags ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! 5 ! page_prot = Desired page protection (optional) ! - EXTERNAL LONG FUNCTION SYS$EXPREG_64 & ( &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ OPTIONAL LONG BY VALUE & ) !  ! $EXTEND !  ! Extend File ! % ! $EXTEND fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$EXTEND & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $FAO ! ! Formatted ASCII Output ! ? ! $FAO ctrstr ,[outlen] ,outbuf ,[p1] ,[p2]...[pn] ! C ! ctrstr = address of string descriptor for control string( ! (32-bit or 64-bit descriptor) ! C ! outlen = address of word in which to store output length ! > ! outbuf = address of output buffer string descriptor( ! (32-bit or 64-bit descriptor) ! 7 ! p1... = variable number of arguments to FAO ! ' EXTERNAL LONG FUNCTION SYS$FAO & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, & ANY BY REF & ) ! $FAOL ! 4 ! Formatted ASCII Output With List Parameter ! 4 ! $FAOL ctrstr ,[outlen] ,outbuf ,prmlst ! C ! ctrstr = address of string descriptor for control string( ! (32-bit or 64-bit descriptor) ! C ! outlen = address of word to receive output string length ! > ! outbuf = address of output buffer string descriptor( ! (32-bit or 64-bit descriptor) ! < ! prmlst = address of a list of longword parameters ! ( EXTERNAL LONG FUNCTION SYS$FAOL & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, & ANY BY REF & ) ! $FAOL_64 ! = ! Formatted ASCII Output With Quadword List Parameter ! C ! $FAOL_64 ctrstr_64 ,[outlen_64] ,outbuf_64 ,prmlst_64 ! F ! ctrstr_64 = address of string descriptor for control string( ! (32-bit or 64-bit descriptor) ! F ! outlen_64 = address of word to receive output string length ! A ! outbuf_64 = address of output buffer string descriptor( ! (32-bit or 64-bit descriptor) ! ? ! prmlst_64 = address of a list of quadword parameters ! + EXTERNAL LONG FUNCTION SYS$FAOL_64 &  ( &$ LONG BY VALUE, &" WORD BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $FILES_64 ! ' ! Call the Files-64 file system ! = ! $FILES_64 [efn] ,func ,fsb ,[astadr] ,[astprm] ! = ! efn = number of event flag to set on completion ! C ! func = function code specifying action to be performed ! 0 ! fsb = address of File System Block ! 8 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as argument ! , EXTERNAL LONG FUNCTION SYS$FILES_64 & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $FILESCAN ! 9 ! Scan a string and identify a file specification ! J ! $FILESCAN srcstr, [valuelst], [fldflags] [,auxout] [,retlen] ! A ! srcstr = address of string descriptor for source string8 ! valuelst = address of a list of item descriptors9 ! fldflags = address of a longword to receive flagsA ! auxout = address of string descriptor for output stringD ! retlen = address to store length of returned output string ! , EXTERNAL LONG FUNCTION SYS$FILESCAN &  ( &% STRING BY DESC, &! ANY BY REF, &" LONG BY REF, &% STRING BY DESC, &! WORD BY REF & ) ! ! $FIND !  ! Find Record in File ! # ! $FIND rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine  ! ( EXTERNAL LONG FUNCTION SYS$FIND & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $FIND_HELD ! ) ! Find Identifiers Held By Holder ! 2 ! $FIND_HELD holder, [id], [attrib], [contxt] ! @ ! holder = address of a quadword which specifies the holder# ! id of the records to find5 ! id = address to return the identifier longword@ ! attrib = address to return the holder attributes longwordB ! contxt = address of a longword containing the record stream9 ! context. initially should be zero, value output9 ! on first call, value input on subsequent calls. ! - EXTERNAL LONG FUNCTION SYS$FIND_HELD & ( &, BASIC$QUADWORD BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) !  ! $FIND_HOLDER ! # ! Find Holder Of Identifier ! 4 ! $FIND_HOLDER id, [holder], [attrib], [contxt] ! 4 ! id = identifier longword whose holder records ! are to be found8 ! holder = address to return the holder id quadword9 ! attrib = address to return the attributes longwordB ! contxt = address of a longword containing the record stream9 ! context. initially should be zero, value output9 ! on first call, value input on subsequent calls. ! / EXTERNAL LONG FUNCTION SYS$FIND_HOLDER & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &! LONG BY REF & ) !  ! $FINISH_RDB !  ! Clean up RMS Stream !  ! $FINISH_RDB contxt ! B ! contxt = address of a longword containing the record stream ! context. ! . EXTERNAL LONG FUNCTION SYS$FINISH_RDB & ( &! LONG BY REF & ) ! $FORCEX !  ! Force Exit ! . ! $FORCEX [pidadr] ,[prcnam] ,[code] ! I ! pidadr = address of process id of process to be forced to exit ! I ! prcnam = address of process name descriptor for forced process ! ? ! code = longword completion status for exit service ! * EXTERNAL LONG FUNCTION SYS$FORCEX &  ( &" LONG BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! $FORGE_WORD !  ! Forge random word. ! T ! $FORGE_WORD [minlen], [maxlen], [mindata], [flags], [retdata], outlen, outstr ! - ! minlen minimum word length to return- ! maxlen maximum word length to return? ! mindata minimum amount of data to return (in decibits)" ! flags miscellaneous flagsI ! retdata longword to receive actual amount of information in word7 ! outlen word to receive length of returned word1 ! outstr address of buffer to receive word ! . EXTERNAL LONG FUNCTION SYS$FORGE_WORD & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &" WORD BY REF, &$   STRING BY DESC & ) !  ! $FORMAT_ACL ! - ! Format an Access Control list Entry ! 7 ! $FORMAT_ACL acl-entry, [acl-length], acl-string,5 ! [line-width], [term-desc], [line-indent],! ! [bit-names], [routin] ! < ! 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 ! < !! acl-string = address of a descriptor of a buffer into2 ! which the output string is to be stored ! 5 ! line-width = address of the maximum line width ! (0 = infinite) ! ? ! term_desc = address of a character descriptor containing5 ! a character string to be inserted whenever9 ! the line segment length exceeds the line-width ! ? ! line-indent = address of the number of columns to indent" ! the output line segment "! B ! bit-names = address of a access bit name table (32 entries) ! A ! routin = address of routine to be executed in kernel mode ! . EXTERNAL LONG FUNCTION SYS$FORMAT_ACL & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &! ANY BY REF, &! # LONG BY REF & ) ! 7 ! $FORMAT_AUDIT fmttyp, audmsg, [outlen], outbuf,. ! [width], [trmdsc], [routin], [fmtflg] ! 0 ! Format security auditing event message !  ! fmttyp = format type ! 1 ! audmsg = address of the message to format ! E ! outlen = address of a word to receive length of output string ! ? ! outbuf = Address of a descriptor of a buffer to receive& ! the formatted event message ! $> ! width = address of a word containing the display width ! < ! trmdsc = address of a descriptor containing the line" ! terminator character(s) ! - ! routin = address of an output routine ! % ! fmtflg = format control flags0 EXTERNAL LONG FUNCTION SYS$FORMAT_AUDIT & ( &$ LONG BY VALUE, &! ANY BY REF, &" WORD BY REF, &% STRING BY DESC, &" % WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & )& ! $FORMAT_CLASS itmlst, [routin] ! % ! Format access class strings ! 9 ! itmlst = address of a list of item descriptors ! D ! routin = address of routine to be executed in kernel mode !  ! 0 EXTERNAL LONG FUNCTION SYS$FORMAT_CLASS & ( &! ANY BY R&EF, &! LONG BY REF & ) ! ! $FREE !  ! Free Record ! # ! $FREE rab, [err], [suc] ! ! rab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ( EXTERNAL LONG FUNCTION SYS$FREE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! L'ONG BY REF & ) !  ! $FREE_USER_CAPABILITY ! . ! Release a global user capability bit ! @ ! $FREE_USER_CAPABILITY [cap_num],[prev_mask],[flags] ! I ! cap_num = address of cell with requested cap number to release> ! prev_mask = address of user quadword that will hold the8 ! previous state of the reserved capabilities cell= ! flags = address of behavioral flags for this operation ! 8 EXTERNAL LONG FUNC(TION SYS$FREE_USER_CAPABILITY & ( &" LONG BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) !  ! $FLUSH !  ! Flush Record ! $ ! $FLUSH rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNC)TION SYS$FLUSH & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $GET_BITMAP_INFO ! . ! GET Information about a Write Bitmap ! H ! $GET_BITMAP_INFO handle, chan, devnam, name, index, itmlst ! 3 EXTERNAL LONG FUNCTION SYS$GET_BITMAP_INFO & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &% * STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &! LONG BY REF & ) !  ! $GET_BITMAP_INFOW ! 7 ! GET Information about a Write Bitmap and Wait ! K ! $GET_BITMAP_INFOW devnam, name, index, handle, itmlst, status ! 4 EXTERNAL LONG FUNCTION SYS$GET_BITMAP_INFOW & ( &% STRING BY DESC, &% STRING + BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) !  ! $GET_CPU_INFO ! % ! GET Information about a CPU ! K ! $GET_CPU_INFO func, flags, cpu_id, buffer, length, ret_length ! 0 EXTERNAL LONG FUNCTION SYS$GET_CPU_INFO & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" , LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) ! $GET_REGION_INFO ! 6 ! Get Information About Virtual Address Region ! Q ! $GET_REGION_INFO function, region_id_64, start_va_64, ,buffer_length,* ! buffer_address_64, return_length_64 ! ! function = Function code !  ! Code Meaning4 ! VA$_REGSUM_BY_ID Region summary,- by ID4 ! VA$_REGSUM_BY_VA Region summary, by VA: ! VA$_NEXT_REGSUM_BY_VA Next region summary, by VA ! @ ! region_id_64 = Address of quadword region id to use with ! VA$_REGSUM_BY_ID ! A ! start_va_64 = Virtual address to use with VA$_REGSUM_BY_VA ! - ! buffer_length = Length of user buffer ! 9 ! buffer_address_64 = Address of user REGSUM buffer ! @ ! return_length_64 = Length of data written to user buffer ! .3 EXTERNAL LONG FUNCTION SYS$GET_REGION_INFO & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) ! $GET_SECURITY ! $ ! Get Object Securty Profile ! ] ! $GET_SECURITY [clsnam], [objnam], [objhan], [flags]/, [itmlst], [context], [acmode] ! 0 EXTERNAL LONG FUNCTION SYS$GET_SECURITY & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &! LONG BY REF & ) ! ! $GET !  ! Get Record from File ! " ! $GET rab, [err], [suc] ! 0 ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ' EXTERNAL LONG FUNCTION SYS$GET & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $GET_ARITH_EXCEPTION ! : ! Get AXP arithmetic exception context information ! 7 ! $GET_ARITH_E1XCEPTION sigarg, mcharg, buffer ! = ! sigarg = address of signal array of the exception ! ; ! mcharg = address of mechanism array of the exception ! 7 ! buffer = address of buffer to return information ! 7 EXTERNAL LONG FUNCTION SYS$GET_ARITH_EXCEPTION & ( &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! $GETCHN ! % ! Get I/O Channe2l Information ! @ ! $GETCHN chan ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] ! > ! chan = number of a channel assigned to the device ! G ! prilen = address of word to receive length of primary buffer ! 8 ! pribuf = address of primary buffer descriptor ! I ! scdlen = address of word to receive length of secondary buffer ! : ! scdbuf = address of secondary buffer descriptor ! * EXTERNAL LONG FUNCTION SYS$GE3TCHN & ( &$ WORD BY VALUE, &" WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &$ STRING BY DESC & ) ! $GETDEV ! $ ! Get I/O Device Information ! C ! $GETDEV devnam ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] ! E ! devnam = address of device name or logical name descriptor ! G ! prilen = address of word to rec4eive length of primary buffer ! 8 ! pribuf = address of primary buffer descriptor ! I ! scdlen = address of word to receive length of secondary buffer ! : ! scdbuf = address of secondary buffer descriptor ! * EXTERNAL LONG FUNCTION SYS$GETDEV & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &$ STRING BY DE5SC & ) !  ! $GETDTI ! 1 ! Get Distributed Transaction Information ! K ! $GETDTI [efn], [flags], iosb, [astadr], [astprm], [log_id], context,# ! ($GETDTIW) search, itmlst ! , ! efn = event flag to set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block; ! astadr = address of the entry mask of an AST routine1 ! astprm = value to be passed to AST routine, ! log_id = ad 6dress of log id for TM log3 ! context = address of longword search context: ! search = address of a list of search criteria items5 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$GETDTI & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY RE7F, &" LONG BY REF, &! ANY BY REF, & ANY BY REF & )+ EXTERNAL LONG FUNCTION SYS$GETDTIW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &! ANY BY REF, 8& ANY BY REF & ) ! $GETDVI ! ' ! Get Device/Volume Information ! E ! $GETDVI [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr]> ! ($GETDVIW) ,[astprm] ,[nullarg], [pathname] ! 6 ! efn = event flag to be set at completion ! A ! chan = number of a channel assigned to the device orD ! 0 if device is specified by the devnam parameter ! E ! devnam = 9address of device name or logical name descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine !  ! nullarg = zilch ! @ ! pathname = optional address of a path name descriptor !  ! * EXTERNAL LONG FUNCTION SYS$GETDVI & ( &:$ LONG BY VALUE, &$ WORD BY VALUE, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, OPTIONAL STRING BY DESC & )+ EXTERNAL LONG FUNCTION SYS$GETDVIW & ( &$ LONG BY VALUE, &$ ; WORD BY VALUE, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, OPTIONAL STRING BY DESC & ) ! $GETEVI !  ! Get Event Information ! % ! $GETEVI itmlst ,[nullarg] ! 9 ! itmlst = address of a list of item descriptors <! * EXTERNAL LONG FUNCTION SYS$GETEVI & ( &! ANY BY REF, &# LONG BY VALUE & ) ! $GETJPI ! % ! Get Job/Process Information ! H ! $GETJPI [efn] ,[pidadr] ,[prcnam] ,itmlst ,[iosb], [astadr], ! ($GETJPIW) [astprm] ! 6 ! efn = event flag to be set at completion ! 5 ! pidadr = address of process identification ! = ! prcnam = address =of process name string descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! D ! astprm = value to be passed to AST routine as an argument !  ! * EXTERNAL LONG FUNCTION SYS$GETJPI & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, >&! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETJPIW & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VA?LUE & ) ! $GETJPI_FAST ! = ! Get Job/Process Information For The Current Process !  ! $GETJPI_FAST ! = ! item_mask = Mask of current process info requested ! " ! flags = MBZ for now !  ! return_buffer = ! = Address of buffer to return array of longword info ! ! return_buffer_length 2 ! = Length of return buffer array in bytes  !  ! / EXTERNAL LONG FUNCTI@ON SYS$GETJPI_FAST & ( &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) ! $GETLKI !  ! Get Lock Information ! G ! $GETLKI [efn] ,lkidadr ,itmlst ,[iosb], [astadr], [astprm]," ! ($GETLKIW) [reserved] ! 6 ! efn = event flag to be set at completion ! 3 ! lkidadr = address of lockA identification ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! D ! astprm = value to be passed to AST routine as an argument ! ( ! reserved = reserved parameter !  ! * EXTERNAL LONG FUNCTION SYS$GETLKI & ( &$ LONG BY VALUE, &" LONG BY REF, &! B ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETLKIW & ( &$ LONG BY VALUE, &" LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# C LONG BY VALUE & ) ! $GETMSG !  ! Get Message ! < ! $GETMSG msgid ,msglen ,bufadr ,[flags] ,[outadr] ! = ! msgid = identification of message to be retrieved ! I ! msglen = address of a word to receive length of string ! returned ! I ! bufadr = address of buffer descriptor of buffer to receive ! string ! F ! flags = flag bits for messDage content (macro default = 15) ! # ! Bit Value/Meaning ! # ! 0 1 Include text* ! 0 Do not include text) ! 1 1 Include identifier0 ! 0 Do not include identifier' ! 2 1 Include severity. ! 0 Do not include severity( ! 3 1 Include component/ ! 0 Do not include component ! L ! outadr = address of 4-byte array to receiEve the following values: ! ! Byte Contents !  ! 0 Reserved' ! 1 Count of FAO arguments ! 2 User value ! 3 Reserved ! * EXTERNAL LONG FUNCTION SYS$GETMSG & ( &$ LONG BY VALUE, &" WORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, && BYTE DIM() BY REF & ) ! $GETPTI F ! $ ! Get Page Table Information ! = ! $GETPTI [inadr],[retadr],[acmode],[mask],[pagcnt] ! ? ! inadr = address of two longwords containing starting/ ! and ending virtual address to operate on ! @ ! retadr = address of two longwords into which starting: ! and ending address of pages operated on is returned ! D ! acmode = access mode against which ownership is checked ! = ! mask = mask of page table informatiGon control bits ! & ! pagcnt = minimum page count !  ! * EXTERNAL LONG FUNCTION SYS$GETPTI & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $GETQUI !  ! Get Queue Information ! 6 ! $GETQUI [efn], func, [context], [itmlst],/ ! ($GETQUIW) H [iosb], [astadr], [astprm] ! @ ! efn = event flag to be set when request completes= ! func = code specifying function to be performedF ! context = address of a longword containing a context numberL ! itmlst = address of a list of item descriptors for the operationS ! iosb = address of a quadword status block to receive the final statusR ! astadr = address of an ast routine to be called when request completes) ! astprm I = 32-bit ast parameter ! * EXTERNAL LONG FUNCTION SYS$GETQUI & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETQUIW & ( &$ LONG BY VALUE, &$ J WORD BY VALUE, &" LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $GETRMI ! * ! Get Resource Monitor Information ! S ! $GETRMI [efn] ,[nullarg] ,[nullarg] ,itmlst ,[iosb] ,[astadr] ,[astprm] ! 6 ! efn = event flag to be set at completion ! 9 ! itmlst = address of a list ofK item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine ! & ! nullarg = reserved argument !  ! * EXTERNAL LONG FUNCTION SYS$GETRMI & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, L BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $GETSYI ! % ! Get System-Wide Information ! I ! $GETSYI [efn] ,[csidadr],[nodename],itmlst ,[iosb] ,[astadr], ! ($GETSYIW) [astprm] ! 6 ! efn = event flag to be set at completion ! = ! csidadr = address of cluster system identification ! < ! nodename = address of node name string deMscriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine !  ! J ! The second and third arguments in the $GETSYI argument list are6 ! not used; they are reserved for future use. ! * EXTERNAL LONG FUNCTION SYS$GETSYI & ( &$ N LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETSYIW & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, O BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $GETTIM !  ! Get Time ! # ! $GETTIM timadr, [flags] ! N ! timadr = address of a quadword to receive 64-bit current time valuev ! flags = optional flags to modify the type of time returned (initially Smithsonian time or time-since-boot)* EXTERNAL LONG FUNCTION SYS$GETTIM & ( &, P BASIC$QUADWORD BY REF, &+ OPTIONAL LONG BY VALUE & ) ! # ! Get Time (High Precision) !  ! $GETTIM_PREC timadr ! N ! timadr = address of a quadword to receive 64-bit current time value ! / EXTERNAL LONG FUNCTION SYS$GETTIM_PREC & ( &+ BASIC$QUADWORD BY REF & ) !  ! $GET_USER_CAPABILITY ! . ! Reserve a global user capability bit Q ! Z ! $GET_USER_CAPABILITY [cap_num],[select_num],[select_mask],[prev_mask],[flags] ! > ! cap_num = address of cell with requested cap number= ! select_num = address of cell with selected cap numberC ! select_mask = address of bitmask indicating which capability" ! bit selected by operation> ! prev_mask = address of user quadword that will hold the8 ! previous state of the reserved capabilities cell= ! flags = address of behavioral flagsR for this operation ! 7 EXTERNAL LONG FUNCTION SYS$GET_USER_CAPABILITY & ( &" LONG BY REF, &" LONG BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $GETUTC !  ! Get UTC Time !  ! $GETUTC utcadr ! R ! utcadr = address of a utc_date_time to receive 128-bit current UTSC time ! value ! * EXTERNAL LONG FUNCTION SYS$GETUTC & ( &+ BASIC$OCTAWORD BY REF & ) ! $GETUAI ! , ! Get User Authorization Information ! E ! $GETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] ! ,[astprm] ! 6 ! efn = event flag to be set at completion ! A ! contxt = address of a context longword (UAF IFI ? ISI) ! 3 ! usrnam = adTdress of user name descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine !  ! * EXTERNAL LONG FUNCTION SYS$GETUAI & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! U ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $GET_WBEM_INFO ! 9 ! Get system information needed by WBEM providers ! @ ! $GET_WBEM_INFO itm_code, itm_param1, itm_param_buf, ( ! buf_addr, buf_len, ret_len_addr ! C ! itm_code = Item code value, defined by $WBEMIDEF, wbemidef.h ! > ! itm_param1 = Item code dependent inpu Vt parameter value.; ! If zero item code dependent parameters required, ! must be zero.6 ! If exactly one longword parameter required, ! parameter value. 7 ! If more than one parameter required, size in. ! bytes of the item parameter buffer. ! D ! itm_param_buf = Address of item parameter buffer. Size of the5 ! buffer, in bytes, is given by the value of ! itm_param1.6 ! If the specified item code does not r Wequire5 ! more than a single parameter, this address ! must be zero. ! @ ! buf_addr = Address of buffer into which data is returned.= ! Size of the buffer, in bytes, is given by buf_len. ! 5 ! buf_len = Size of the output buffer in bytes. ! A ! ret_len_addr = Address of a 32-bit longword into which the6 ! value of the number of bytes that have been6 ! written into the output buffer is returned.: ! The caller shouXld not assume that the remaining7 ! bytes in the output buffer have been zeroed. ! 1 EXTERNAL LONG FUNCTION SYS$GET_WBEM_INFO & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) ! Alpha ! $GOTO_UNWIND_64 ! # ! General Unwind Call Stack Y! > ! $GOTO_UNWIND_64 [target_invo_64], [target_pc_64], " ! [newretval], [newretval2] ! J ! target_invo_64 = address of longword (Alpha) or quadword (IPF) : ! containing the invocation handle (frame pointer on/ ! Alpha) to unwind call stack ! J ! target_pc_64 = address of quadword that contains the PC to be 1 ! given control when the unwind is complete ! J ! newretval = address of a location that contains the vZalue to be; ! placed in the saved R0 field of the mechanism array ! K ! newretval2 = address of a location that contains the value to be; ! placed in the saved R1 field of the mechanism array !  ! 2 EXTERNAL LONG FUNCTION SYS$GOTO_UNWIND_64 & ( &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & [ ) !  ! $GRANTID ! % ! Grant Identifier to Process ! E ! $GRANTID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] ! 3 ! pidadr = address of PID of affected process= ! prcnam = address of string descriptor of process name> ! id = address of quadword identifier and attributes@ ! name = address of string descriptor of identifier name= ! prvatr = address to store attributes of superseded id1 ! segment = optional \segment index, by value ! + EXTERNAL LONG FUNCTION SYS$GRANTID & ( &" LONG BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $GRANT_LICENSE ! A ! Grant authorization to execute licensed software product. ! : ! $GRANT_LICENSE prdnam ,prduc ]er [,contxt] [,itmlst] ! ? ! prdnam = address of descriptor for software product nameA ! prducer = address of descriptor for software producer name8 ! contxt = address of context buffer (4 longwords)5 ! itmlst = address of a list of item descriptors ! 1 EXTERNAL LONG FUNCTION SYS$GRANT_LICENSE & ( &% STRING BY DESC, &% STRING BY DESC, &' LONG DIM() BY REF, & ANY ^BY REF & ) ! $HASH_PASSWORD ! A ! Encrypt a user password to produce a quadword hash value. ! 4 ! $HASH_PASSWORD pwd, alg, [salt], usrnam, hash ! 9 ! pwd = address of descriptor for plaintext password& ! alg = algorithm to use for hash2 ! salt = salt value for use by hash algorithm1 ! usrnam = address of descriptor of username4 ! hash = address of output quadword hash buffer ! 1 EXTERNAL LONG FUNCTION SYS$HASH_PAS_SWORD & ( &% STRING BY DESC, &$ BYTE BY VALUE, &$ WORD BY VALUE, &% STRING BY DESC, &+ BASIC$QUADWORD BY REF & ) ! $HIBER !  ! Hibernate !  ! $HIBER_S ! ' EXTERNAL LONG FUNCTION SYS$HIBER !  ! $IDTOASC ! ( ! Identifier To Ascii Conversion ! C ! $IDTOASC id, [namlen], [nambuf], [resid `], [attrib], [contxt] ! 6 ! id = identifier longword to convert, or zero to, ! find all identifiers (wildcarding)< ! namlen = address of a word to store the length of the ! identifier name= ! nambuf = address of a character string descriptor that< ! describes the buffer to return the identifier name; ! resid = address of a longword to return the id found ! while wildcarding9 ! attrib = address to return the attributes longwordB a! contxt = address of a longword containing the record stream9 ! context. initially should be zero, value output9 ! on first call, value input on subsequent calls. ! + EXTERNAL LONG FUNCTION SYS$IDTOASC & ( &$ LONG BY VALUE, &" WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! b ! $IEEE_SET_FP_CONTROL ! 2 ! Set IEEE floating point control register ! 8 ! $IEEE_SET_FP_CONTROL [clrmsk], [setmsk], [prvmsk] ! 3 ! clrmsk = address of a quadword mask to clear1 ! setmsk = address of a quadword mask to set> ! prvmsk = address of a quadword to return previous value ! 7 EXTERNAL LONG FUNCTION SYS$IEEE_SET_FP_CONTROL & ( &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REcF, &+ BASIC$QUADWORD BY REF & ) ! $IMGACT !  ! Image Activation ! 9 ! $IMGACT name,[dflnam],hdrbuf,[imgctl],[inadr],# ! [retadr], [ident], [acmode] !  ! < ! name = address of descriptor for file name string ! 3 ! dflnam = descriptor for file name string ! : ! hdrbuf = address of 512 byte buffer to write in ! 2 ! imgctl = image activation control flags ! Ad ! inadr = address of quadword specifying virtual address ! range to be mapped ! B ! retadr = address of quadword specifying virtual address ! range actually mapped ! B ! ident = address of quadword holding image section match ! control and identifier ! D ! acmode = access mode to be the owner of the created pages ! * EXTERNAL LONG FUNCTION SYS$IMGACT & ( &% STRING BY DESC, &e% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &' LONG DIM() BY REF, &' LONG DIM() BY REF, &, BASIC$QUADWORD BY REF, &# LONG BY VALUE & ) ! $IMGFIX ! % ! Image Address Fixup Service !  ! $IMGFIX ! ( EXTERNAL LONG FUNCTION SYS$IMGFIX ! $INIT_VOL !  ! Initialize Volume f ! - ! $INIT_VOL devnam, volnam, [itmlst] ! ? ! devnam = device name containing volume to initialize ! 6 ! volnam = name to initialize the volume with ! H ! itmlst = address of item code list for initialization options ! , EXTERNAL LONG FUNCTION SYS$INIT_VOL & ( &% STRING BY DESC, &% STRING BY DESC, & ANY BY REF & ) ! $IO_CLEANUP g! ) ! Cleanup a previously set-up I/O !  ! $IO_CLEANUP fandle ! " ! fandle = fandle to clean up ! . EXTERNAL LONG FUNCTION SYS$IO_CLEANUP & ( &-! BASIC$QUADWORD BY VALUE & ) ! $IO_FASTPATH ! % ! I/O Fastpath system service ! = ! $IO_FASTPATH efn, cpu_mask, func, iosb, astadr, astprm !  ! efn = event flag number ! ; ! cpu_mask = either -1 wildcard or poinhter to longword ! containing CPU mask3 ! FP$K_BALANCE_PORTS = balance fastpath ports ! % ! func = fastpath function code ! * ! iosb = address of I/O status block ! 2 ! astadr = address of AST completion routine ! & ! astprm = AST routine parameter ! / EXTERNAL LONG FUNCTION SYS$IO_FASTPATH & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, i BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &+ OPTIONAL LONG BY VALUE & )0 EXTERNAL LONG FUNCTION SYS$IO_FASTPATHW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &+ OPjTIONAL LONG BY VALUE & ) ! $IO_PERFORM ! 1 ! Transfer data between device and buffer ! @ ! $IO_PERFORM fandle, chan, iosadr, bufadr, buflen, devdata ! ($IO_PERFORMW) ! . ! fandle = fandle from previous $IO_SETUP ! $ ! chan = standard I/O channel !  ! iosadr = IOSA address ! 0 ! bufadr = address of data buffer (64 bits) ! / ! buflen = length of data buffer (64 bits) ! : ! devdata= dakta passed to driver, e.g., media address !  ! . EXTERNAL LONG FUNCTION SYS$IO_PERFORM & ( &.! BASIC$QUADWORD BY VALUE, &$ WORD BY VALUE, &.! BASIC$OCTAWORD BY VALUE, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &-! BASIC$QUADWORD BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$IO_PERFORMW & ( &.! BASICl$QUADWORD BY VALUE, &$ WORD BY VALUE, &.! BASIC$OCTAWORD BY VALUE, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &-! BASIC$QUADWORD BY VALUE & ) ! $IO_SETUP !  ! Set up a fast I/O ! D ! $IO_SETUP func, bufobj, iosobj, astadr, flags, return_fandle !  ! func = function code ! B ! bufobj = data buffer object (address of (vector of 2 mints)) ! B ! iosobj = IOSA buffer object (address of (vector of 2 ints)) ! 9 ! astadr = completion AST address (address of entry) !  ! flags = flags ! 1 ! return_fandle = address of returned fandle ! , EXTERNAL LONG FUNCTION SYS$IO_SETUP & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &+n BASIC$QUADWORD BY REF & ) ! $IPC ! , ! Interprocess Communication Request ! 9 ! $IPC [efn] ,func ,ipcb ,[astadr] ,[astprm] ! ($IPCW) ! = ! efn = number of event flag to set on completion ! C ! func = function code specifying action to be performed ! ? ! ipcb = address of Interprocess Communication Block ! 8 ! astadr = address of entry mask of AST routione ! A ! astprm = value to be passed to AST routine as argument !  ! ' EXTERNAL LONG FUNCTION SYS$IPC & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION SYS$IPCW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" p LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $LCKPAG !  ! Lock Pages in Memory ! - ! $LCKPAG inadr ,[retadr] ,[acmode] ! G ! inadr = address of 2-longword array containing starting and: ! ending addresses of pages to be locked ! G ! retadr = address of 2-longword array to receive addresses of) ! pages actually locked q ! G ! acmode = access mode to check against the owner of the pages ! * EXTERNAL LONG FUNCTION SYS$LCKPAG & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $LCKPAG_64 !  ! Lock Pages in Memory ! U ! $LCKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 ! > ! start_va_64 = Starting address of address srpace to lock ! 7 ! length_64 = Byte length of addresses to lock ! G ! acmode = Access mode to be checked against the page owner ! 9 ! return_va_64 = Address of address space locked ! 9 ! return_length_64 = Length of address space locked ! - EXTERNAL LONG FUNCTION SYS$LCKPAG_64 & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &, s BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $LFS ! " ! Call the LFS file system ! 8 ! $LFS [efn] ,func ,fsb ,[astadr] ,[astprm] ! = ! efn = number of event flag to set on completion ! C ! func = function code specifying action to be performed ! 0 ! fsb = address of File System Block ! 8 ! astadr = address of entry mask of AST routine ! tA ! astprm = value to be passed to AST routine as argument ! ' EXTERNAL LONG FUNCTION SYS$LFS & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $LKWSET ! # ! Lock Pages in Working Set ! - ! $LKWSET inadr ,[retadr] ,[acmode] ! G ! inadr = address of 2-l uongword array containing starting andB ! ending virtual addresses of pages to be locked ! I ! retadr = address of a 2-longword array to receive starting andE ! ending virtual addresses of pages actually locked ! D ! acmode = access mode to be checked against the page owner ! * EXTERNAL LONG FUNCTION SYS$LKWSET & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# v LONG BY VALUE & ) ! $LKWSET_64 ! # ! Lock Pages in Working Set ! U ! $LKWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 ! > ! start_va_64 = Starting address of address space to lock ! 7 ! length_64 = Byte length of addresses to lock ! G ! acmode = Access mode to be checked against the page owner ! 9 ! return_va_64 = Address of address space locked ! 9w ! return_length_64 = Length of address space locked ! - EXTERNAL LONG FUNCTION SYS$LKWSET_64 & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) !  ! $LOOKUP_MAPPING ! 8 ! Find single Mapping record in Mapping database ! 0 ! $LOOKUP_MAPPING ixnitmlst ,[outitmlst] ! O ! initmlst = address of a list of item descriptors for the operationO ! outitmlst = address of a list of item descriptors for the operation ! 2 EXTERNAL LONG FUNCTION SYS$LOOKUP_MAPPING & ( &! ANY BY REF, & ANY BY REF & ) ! $MGBLSC !  ! Map Global Section ! Q ! $MGBLSC inadr ,[retadr] ,[acmode] ,[flags] ,gsdnam ,[ident] ,[relpagy] ! G ! inadr = address of 2-longword array containing starting and: ! ending addresses of pages to be mapped ! B ! retadr = address of 2-longword array to receive virtual- ! addresses of pages mapped ! 8 ! acmode = access mode of owner of mapped pages ! D ! flags = flags overriding default section characteristics ! " ! Flag Meaning ! . ! SEC$M_WRT Read/write szection1 ! SEC$M_SYSGBL System global section6 ! SEC$M_EXPREG Find first available space ! = ! gsdnam = address of global section name descriptor ! O ! ident = address of quadword containing version id and match control ! > ! relpag = relative page number within global section ! * EXTERNAL LONG FUNCTION SYS$MGBLSC & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &${ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &# LONG BY VALUE & ) ! $MGBLSC_64 ! . ! Map Global Page or Disk File Section ! L ! $MGBLSC_64 gsdnam_64, ident_64, region_id_64, section_offset_64,C ! length_64, acmode, flags, return_va_64, return_length_64' ! [, start_va_64[, page_prot]] ! D ! | gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! T ! ident_64 = Address of quadword containing version id and match control ! 4 ! region_id_64 = Address of quadword region id ! O ! section_offset_64 = Relative byte within global section to start mapping ! 4 ! length_64 = Byte length of section to map ! ; ! acmode = Access mode of owner of mapped pages ! G ! }flags = Flags overriding default section characteristics ! $ ! Flag Meaning ! 7 ! SEC$M_EXPREG Find first available space? ! SEC$M_NO_OVERMAP Do not overmap existing address space2 ! SEC$M_SYSGBL System global section; ! SEC$M_WRT Read/write mapping of section ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! @ ! s~tart_va_64 = Starting address of address space to create ! 5 ! page_prot = Desired page protection (optional) ! - EXTERNAL LONG FUNCTION SYS$MGBLSC_64 & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &,  BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! $MGBLSC_GPFN_64 ! ' ! Map Global Page Frame Section ! Y ! $MGBLSC_GPFN_64 gsdnam_64, ident_64, region_id_64, relative_page, page_count,6 ! acmode, flags, return_va_64, return_length_64% ! [, start_va_64[, page_prot]] ! D ! gsdnam_64 = Address of global section name string descriptor) ! (32-bit or 64-bit descriptor) ! T ! ident_64 = Address of quadword containing version id and match control ! 4 ! region_id_64 = Address of quadword region id ! L ! relative_page = Relative page within global section to start mapping ! 0 ! page_count = Number of page frames to map ! ; ! acmode = Access mode of owner of mapped pages ! G ! flags = Flags overriding default section characteristics ! $ ! Flag Meaning ! 7 ! SEC$M_EXPREG Find first available space? ! SEC$M_NO_OVERMAP Do not overmap existing address space2 ! SEC$M_SYSGBL System global section; ! SEC$M_WRT Read/write mapping of section ! : ! return_va_64 = Address of address space created ! : ! return_length_64 = Length of address space created ! @ ! start_va_64 = Starting address of address space to create ! 5 ! page_prot = Desired page protection (optional) ! 2 EXTERNAL LONG FUNCTION SYS$MGBLSC_GPFN_64 & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) !  ! $MODIFY !  ! Modify File ! % ! $MODIFY fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$MODIFY & ( &!  ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $MODIFY_MAPPING ! 3 ! Modify Mapping record in Mapping database ! . ! $MODIFY_MAPPING initmlst, moditmlst ! O ! initmlst = address of a list of item descriptors for the operationO ! moditmlst = address of a list of item descriptors for the operation ! 2 EXTERNAL LONG FUNCTION SYS$MODIFY_MAPPING & ( &! ANY BY REF, & ANY BY REF & ) !  ! $MOD_HOLDER ! 1 ! Modify Holder Record In Rights Database ! 9 ! $MOD_HOLDER id, holder, [set_attrib], [clr_attrib] ! " ! id = identifier longword< ! holder = address of the holder identifier quadword= ! set_attrib = longword containing the attributes to set# ! into the holder record? ! clr_attrib = longword containing the attributes to clear! ! in the holder record ! . EXTERNAL LONG FUNCTION SYS$MOD_HOLDER & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $MOD_IDENT ! 5 ! Modify Identifier Record In Rights Database ! I ! $MOD_IDENT id, [set_attrib], [clr_attrib], [new_name], [new_value]  ! " ! id = identifier longword6 ! set_attrib = longword containing the attributes. ! to set into the identifier record6 ! clr_attrib = longword containing the attributes. ! to clear in the identifier record@ ! new_name = address of the new identifier name character* ! string descriptor1 ! new_value = new identifier value longword ! - EXTERNAL LONG FUNCTION SYS$MOD_IDENT & ( &$  LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &# LONG BY VALUE & ) ! $MOUNT !  ! Mount Volume !  ! $MOUNT itmlst ! 9 ! itmlst = Address of a list of item identifiers ! ) EXTERNAL LONG FUNCTION SYS$MOUNT & ( & ANY BY REF & ) ! $MTACCESS ! 5 !  Installation specific accessibility routine ! > ! $MTACCESS lblnam, [uic], [std_version], [access_char], ! [access_spec],type ! ? ! lblnam = On input this field is the address of the; ! VOL1 or HDR1 label read off the magnetic tape. On7 ! output of labels this field is zero. The type3 ! of label is determined by the TYPE field.F ! uic = This field contains the longword volme UIC passed ! by value.@ !  std_version = This field contains a byte value of the5 ! decimal equivalent of the version number9 ! gotten from the VOL1 label, passed by value.A ! access_char = This field contins the byte value of the; ! accessibility character specified by the user,8 ! passed by value. For output of labels only.F ! access_spec = This field determines if the character passed: ! in ACCESS_CHAR was specified by user, passed< !  by value. It must contain one of the following ! values: ! MTA$K_CHARVALID = YES ! MTA$K_NOCHAR = NO( ! For output of labels only.J ! type = This field contains the type of accessibility to process,A ! 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 ! , EXTERNAL LONG FUNCTION SYS$MTACCESS & ( &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $NUMTIM ! - ! Convert Binary Time to Numeric Time ! $ ! $NUMTIM timbuf ,[timadr] ! F ! timbuf = address of a 7-word buffer to receive numeric time ! information ! I ! timadr = address of a quadword containing the 64-bit time. If' ! 0, use current time ! * EXTERNAL LONG FUNCTION SYS$NUMTIM & ( &' WORD DIM() BY REF, &+ BASIC$QUADWORD BY REF & ) !  ! $NUMUTC ! 1 ! Convert UTC Binary Time to Numeric Time ! $ ! $NUMUTC timbuf ,[utcadr] ! G  ! timbuf = address of a 11-word buffer to receive numeric time ! information !  ! 31 0, ! +---------------+---------------+E ! | 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 |. ! +---------------+---------------+D ! | imins | ihours | 6 word Inaccuracy. ! +---------------+---------------+. ! | ihund of sec | isecs |. ! +---------------+---------------+ ! | TDF in Min | ! +---------------+ ! : ! utcadr = address of a utc_date_time to convert.' ! 0, use current time ! * EXTERNAL LONG FUNCTION SYS$NUMUTC &  ( &' WORD DIM() BY REF, &+ BASIC$OCTAWORD BY REF & ) !  ! $NXTVOL !  ! Go to Next Volume ! % ! $NXTVOL rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$NXTVOL & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! ! $OPEN !  ! Open File ! # ! $OPEN fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine( EXTERNAL LONG FUNCTION SYS$OPEN & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $PARSE !  ! Parse File Name ! $ ! $PARSE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$PARSE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &!  LONG BY REF & ) !  ! $PARSE_ACL ! , ! Parse an Access Control list Entry ! : ! $PARSE_ACL acl-string ,acl-entry ,[error-position], ! [bit-names], [routin] ! = ! acl-string = address of a descriptor of a buffer which) ! contains the text to be parsed ! ; ! acl-entry = address of a descriptor of a buffer into3 ! which the converted ACE is to be written ! B ! error-position = address of a word to receive the number of8 ! characters actually processed by the service.5 ! If the service fails, this count points to1 ! the failing point in the input string. ! B ! bit-names = address of a access bit name table (32 entries) ! A ! routin = address of routine to be executed in kernel mode ! - EXTERNAL LONG FUNCTION SYS$PARSE_ACL & ( &% STRING BY DESC, &% STRING BY DESC, &" WORD BY REF, &! ANY BY REF, &! LONG BY REF & )% ! $PARSE_CLASS itmlst, [routin] ! $ ! Parse access class strings ! 9 ! itmlst = address of a list of item descriptors ! D ! routin = address of routine to be executed in kernel mode !  ! / EXTERNAL LONG FUNCTION SYS$PARSE_CLASS & ( &! ANY BY REF, &! LONG BY REF & ) ! $PERSONA_CREATE !  ! Create Persona ! K ! $PERSONA_CREATE persona, [usrnam], [flags], [usrpro], [itmlst] ! E ! persona = address of longword holding persona identifier ! 6 ! usrnam = address of user name descriptor ! & ! flags = bitvector value ! f ! usrpro = address of a descriptor pointing to a user profile block (TLV structure) ! O ! itmlst = address of item list for modifications to persona ! 2 EXTERNAL LONG FUNCTION SYS$PERSONA_CREATE & ( &" LONG BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &- OPTIONAL STRING BY DESC, &! LONG BY REF & ) ! $PERSONA_CREATE_INT ! * ! Create Persona Internal Service ! 0 ! $PERSONA_CREATE_INT persona, itmlst ! L ! persona = address of longword holding persona identifier ! J ! itmlst = address of item list containing persona data ! 6 EXTERNAL LONG FUNCTION SYS$PERSONA_CREATE_INT & ( &" LONG BY REF, & ANY BY REF & ) ! $PERSONA_ASSUME !  ! Assume Persona ! C ! $PERSONA_ASSUME persona, [flags], [previous], [acmode] ! L ! persona  = address of longword holding persona identifier ! , ! flags = longword value ! X ! previous = address of longword to receive previous persona identifier ! B ! acmode = access mode of code assuming persona !  ! 2 EXTERNAL LONG FUNCTION SYS$PERSONA_ASSUME & ( &" LONG BY REF, &$ LONG BY VALUE, &* OPTIONAL LONG BY REF, &#  LONG BY VALUE & ) ! $PERSONA_DELETE !  ! Delete Persona ! $ ! $PERSONA_DELETE persona ! L ! persona = address of longword holding persona identifier ! 2 EXTERNAL LONG FUNCTION SYS$PERSONA_DELETE & ( &! LONG BY REF & ) ! $PERSONA_EXPORT_ARB ! . ! Move Persona data to ARB structures ! ( ! $PERSONA_EXPORT_ARB [level]  ! A ! level = level of ARB_SUPPORT to be provided ! 6 EXTERNAL LONG FUNCTION SYS$PERSONA_EXPORT_ARB & ( &# LONG BY VALUE & ) ! $PERSONA_IMPORT_ARB ! 6 ! Load Persona Block with ARB structures data ! ( ! $PERSONA_IMPORT_ARB [level] ! A ! level = level of ARB_SUPPORT to be provided ! 6 EXTERNAL LONG FUNCTION SYS$PERSONA_IMPORT_ARB &  ( &# LONG BY VALUE & ) ! $PERSONA_CLONE ! ) ! Create duplicate Persona block ! # ! $PERSONA_CLONE persona ! R ! persona = address of location in which to store the persona id+ ! of the clone. ! T ! input_id = address of location containing the persona ID to clone' ! OPTIONAL? ! 1 EXTERNAL LONG FUNCTION SYS$PERSONA_CLONE & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) !  ! $PROCESS_AFFINITY ! ! ! Modify process affinity ! n ! $PROCESS_AFFINITY [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags],[mask_length] ! J ! pidadr = address of process identification of process for4 ! which affinity is to be changed> ! prcnam = address o f process name string descriptorE ! select_mask = address of bitmask indicating which capabilities6 ! are to be involved in the specified operation> ! modify_mask = address of bitmask indicating final state6 ! of those capabilities specified in select_mask> ! prev_mask = address of user quadword that will hold the6 ! previous states of the individual capabilities= ! flags = address of behavioral flags for this operation@ ! mask_length = address of user longword that will hold the9 ! common length of all bitmaps - select,modify,prev ! 4 EXTERNAL LONG FUNCTION SYS$PROCESS_AFFINITY & ( &" LONG BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &) OPTIONAL LONG BY REF & ) !  ! $PROCESS_CAPABILITIES ! * ! Modify process user capabilities ! d ! $PROCESS_CAPABILITIES [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags] ! J ! pidadr = address of process identification of process for: ! which capabilities are to be modified> ! prcnam = address of process name string descriptorE ! select_mask = address of bitmask indicating which capabilities6 ! are to be involved in the speci fied operation> ! modify_mask = address of bitmask indicating final state6 ! of those capabilities specified in select_mask> ! prev_mask = address of user quadword that will hold the6 ! previous states of the individual capabilities= ! flags = address of behavioral flags for this operation ! 8 EXTERNAL LONG FUNCTION SYS$PROCESS_CAPABILITIES & ( &" LONG BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $PROCESS_SCAN ! ) ! Initialize Process_scan context ! , ! $Process_scan pidctx , [itmlst ] ! - ! pidctx = address of process ctx id ! 9 ! itmlst = address of a list of item descriptors !  ! 0 EXTERNAL LONG FUNCTION SYS$PROCESS_SCAN &  ( &" LONG BY REF, & ANY BY REF & ) ! $PSHARED_REGISTER ! / ! Register a process and global section ! " ! $PSHARED_REGISTER addr ! I ! addr = base address of the global section to be registered ! $PURGE_WS !  ! Purge Working Set ! , ! $PURGE_WS start_va_64, length_64 ! ? ! start_va_64 = Starting address of address space to purge ! 8 ! length_64 = Byte length of addresses to purge !  ! , EXTERNAL LONG FUNCTION SYS$PURGE_WS & ( &$ LONG BY VALUE, &-! BASIC$QUADWORD BY VALUE & ) ! $PURGWS !  ! Purge Working Set !  ! $PURGWS inadr ! G ! inadr = address of 2-longword array containing starting and; ! ending addresses of pages to be removed ! * EXTERNAL LONG FUNCTION SYS$PURGWS & ( && LONG DIM() BY REF & ) ! ! $PUT !  ! Put Record to File ! " ! $PUT rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ' EXTERNAL LONG FUNCTION SYS$PUT & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $PUTMSG !  ! Put Message ! 8 ! $PUTMSG msgvec ,[actrtn] ,[facnam], [actprm] ! 6 ! msgvec = address of message argument vector ! ; ! actrtn = address of entry mask of action routine ! > ! facnam = address of facility name string descriptor ! 7 ! actprm = parameter to pass to action routine ! * EXTERNAL LONG FUNCTION SYS$PUTMSG & ( &! ANY BY REF, &" LONG BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! $QIO !  ! Queue I/O Request ! A ! $QIO [efn] ,chan ,func ,[iosb] ,[astadr] ,[astprm]7 ! ($QIOW) ,[p1] ,[p2] ,[p3] ,[p4] ,[p5] ,[p6] ! = ! efn = number of event flag to set on completion ! > ! chan = number of channel on which I/O is directed ! C ! func = function code specifying action to be performed ! I ! iosb = address of quadword I/O status block to receive final% ! completion status ! 8 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as argument ! E ! p1... = optional device- and function-specific parameters ! ' EXTERNAL LONG FUNCTION SYS$QIO &  ( &$ LONG BY VALUE, &$ WORD BY VALUE, &$ WORD BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION SYS$QIOW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &$ WORD BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! ! $READ !  ! Read Block from File ! # ! $READ rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ( EXTERNAL LONG FUNCTION SYS$READ & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $READEF !  ! Read Event Flag !  ! $READEF efn ,state ! @ ! efn = event flag number of any flag in the cluster ! I ! state = address of a longword to receive current state of all( ! flags in the cluster ! * EXTERNAL LONG FUNCTION SYS$READEF & ( &$ LONG BY VALUE, &! LONG BY REF & ) !  ! $READ_THREAD_UNQ ! " !  Read thread unique value ! # ! $READ_THREAD_UNQ contxt ! ? ! contxt = address of quadword in which to return the ! thread unique value ! 3 EXTERNAL LONG FUNCTION SYS$READ_THREAD_UNQ & ( &! LONG BY REF & ) !  ! $REGISTRY ! , ! Interface to the Registry Database ! > ! $REGISTRY [efn], func, [ntcredentials], itmlst, [iosb] ' ! [,astadr] [,astprm] [,timeout] ! ($REGISTRYW) ! 0 ! efn = event flag to be set at completion ! > ! func = function code specifying action to be performed ! F ! ntcredentials = address of an NT user credentials buffer ! 6 ! itmlst = address of a list of item descriptors ! 5 ! iosb = address of a quadword I/O status block ! 5 ! astadr = address of entry mask of AST routine ! 2 ! astprm = value to be passed to AST routine ! ' !  timeout = request timeout value ! , EXTERNAL LONG FUNCTION SYS$REGISTRY & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )- EXTERNAL LONG FUNCTION SYS$REGISTRYW &  ( &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $RELEASE !  ! Release Record ! & ! $RELEASE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! + EXTERNAL LONG FUNCTION SYS$RELEASE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $RELEASE_LICENSE ! C ! Release authorization to execute licensed software product. ! ! $RELEASE_LICENSE context ! 7 ! contxt = address of context buffer returned by& ! $grant_license (4 longwords) ! 3 EXTERNAL LONG FUNCTION SYS$RELEASE_LICENSE & ( & ANY BY REF & ) !  ! $RELEASE_VP ! & ! Release the Vector Processor !  ! $RELEASE_VP ! , EXTERNAL LONG FUNCTION SYS$RELEASE_VP !  ! $RELEASE_VP_INT ! 5 ! Release the Vector Processor, internal form !  ! $RELEASE_VP_INT  ! 0 EXTERNAL LONG FUNCTION SYS$RELEASE_VP_INT !  ! $REMOVE !  ! Remove File ! % ! $REMOVE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$REMOVE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $REM_HOLDER ! 3 ! Remove Holder Record From Rights Database !  ! $REM_HOLDER id, holder !  ! id = identifier longword9 ! holder = address of the holder identifier quadword ! . EXTERNAL LONG FUNCTION SYS$REM_HOLDER & ( &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) !  ! $REM_IDENT ! 0 ! Remove Identifier From Rights Database !  ! $REM_IDENT id !  ! id = identifier longword ! - EXTERNAL LONG FUNCTION SYS$REM_IDENT & ( &# LONG BY VALUE & ) !  ! $RENAME !  ! Rename File ! 0 ! $RENAME oldfab, [err], [suc], newfab ! & ! oldfab = address of oldfab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! " ! newfab = address of new fab* EXTERNAL LONG FUNCTION SYS$RENAME & ( &! ANY BY REF, &" LONG BY REF, &" LONG BY REF, & ANY BY REF & ) !  ! $RESTORE_VP_EXCEPTION ! 2 ! Restore Vector Processor Exception State ! " ! $RESTORE_VP_EXCEPTION excid ! - ! excid = address of a context longword ! 8 EXTERNAL LONG FUNCTION SYS$RESTORE_VP_EXCEPTION & ( &! LONG BY REF & ) !  ! $RESTORE_VP_EXC_INT ! 2 ! Restore Vector Processor Exception State ! ! $RESTORE_VP_EXC_INT excid ! - ! excid = address of a context longword ! 6 EXTERNAL LONG FUNCTION SYS$RESTORE_VP_EXC_INT & ( &! LONG BY REF & ) !  ! $RESTORE_VP_STATE ! ' !  Restore Mainline Vector State !  ! $RESTORE_VP_STATE ! 2 EXTERNAL LONG FUNCTION SYS$RESTORE_VP_STATE ! $RESUME ! " ! Resume Suspended Process ! & ! $RESUME [pidadr] ,[prcnam] ! B ! pidadr = address of process id of process to be resumed ! = ! prcnam = address of process name string descriptor ! * EXTERNAL LONG FUNCTION SYS$RESUME & ( &" LONG BY REF, &$  STRING BY DESC & ) !  ! $REVOKID ! ( ! Revoke Identifier from Process ! E ! $REVOKID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] ! 3 ! pidadr = address of PID of affected process= ! prcnam = address of string descriptor of process name> ! id = address of quadword identifier and attributes@ ! name = address of string descriptor of identifier name= ! prvatr = address to store attributes of superseded id1 ! segment = optional segment index, by value ! + EXTERNAL LONG FUNCTION SYS$REVOKID & ( &" LONG BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $REWIND !  ! Rewind File ! % ! $REWIND rab, [err], [suc] !  ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$REWIND & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $RMSRUNDWN ! @ ! RMS rundown (close all files opened by OpenVMS RMS for6 ! the image or process and halts  I/O activity. ! + ! $RMSRUNDWN buf-addr, type-value ! ? ! buf-addr = a descriptor pointing to a 22-byte bufferB ! that is to receive the device identificationF ! (16 bytes) and the file identification (6 bytes)A ! bytes) of an improperly closed output file.E ! type-value = a single byte code that specifies the type of4 ! I/O rundown to be performed.- EXTERNAL LONG FUNCTION SYS$RMSRUNDWN & ( &% STRING BY DESC, &# BYTE BY VALUE & ) ! $RUNDWN !  ! Rundown Process !  ! $RUNDWN [acmode] ! = ! acmode = access mode to rundown; this and all less+ ! privileged access modes are rundown ! * EXTERNAL LONG FUNCTION SYS$RUNDWN & ( &# LONG BY VALUE & ) !  ! $SAVE_VP_EXCEPTION ! / ! Save Vector Processor Exception State ! ( ! $SAVE_VP_EXCEPTION excid ,[flags] ! - ! excid = address of a context longword ! ! ! flags = noallocation flag2 ! 0 -> allocate 1 -> don't allocate ! 5 EXTERNAL LONG FUNCTION SYS$SAVE_VP_EXCEPTION & ( &" LONG BY REF, &# LONG BY VALUE & ) !  ! $SAVE_VP_EXC_INT ! > ! Save Vector Processor Exception State, internal form ! & ! $SAVE_VP_EXC_INT excid ,[flags] ! - ! excid = address of a context longword ! ! ! flags = noallocation flag2 ! 0 -> allocate 1 -> don't allocate ! 3 EXTERNAL LONG FUNCTION SYS$SAVE_VP_EXC_INT & ( &" LONG BY REF, &# LONG BY VALUE & ) !  ! $SCAN_INTRUSION ! ! ! Scan intrusion database ! F !  $SCAN_INTRUSION logfail_status, failed_user, job_type,L ! [source_terminal], [source_node], [source_user], [source_addr],C ! [failed_password], [parent_user], [parent_id], [flags] ! 2 ! logfail_status in login failure status@ ! failed_user in address of failed username descriptor& ! job_type in job type indexD ! source_terminal in address of source terminal descriptor@ ! source_node in address of source nodename de scriptor@ ! source_user in address of source username descriptor> ! source_address in address of source DECnet addressQ ! failed_password in address of failed password (breakin attempts only)5 ! parent_user in address of parent username# ! parent_id in parent PID- ! flags in intrusion service flags ! 2 EXTERNAL LONG FUNCTION SYS$SCAN_INTRUSION & ( &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $SCAN_MAPPING ! 4 ! Locate Mapping records in Mapping database ! 6 ! $SCAN_MAPPING initmlst. outitmlst [,contxt] ! N ! initmlst = address of a list of item descriptors for the operationN ! outitmlst = address of a list of item descriptors for the operation5 ! contxt = address of a context long word ! 0 EXTERNAL LONG FUNCTION SYS$SCAN_MAPPING & ( &! ANY BY REF, &! ANY BY REF, &! LONG BY REF & ) ! $SCHDWK !  ! Schedule Wakeup ! 8 ! $SCHDWK [pidadr] ,[prcnam] ,daytim ,[reptim] ! C ! pidadr = address of process id of process to be awakened ! = ! prcnam = address of process name string descriptor ! ? ! daytim = address of quadword containing time to wake ! G ! reptim = address of quadword containing repeat time interval ! * EXTERNAL LONG FUNCTION SYS$SCHDWK & ( &" LONG BY REF, &%  STRING BY DESC, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) !  ! $SEARCH !  ! Search for File Name ! % ! $SEARCH fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$SEARCH & ( &!  ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $SETCLUEVT ! ( ! Set Cluster Event Notification ! A ! $SETCLUEVT event, astadr, [astprm], [acmode], [handle] ! 2 ! event = code indicating type of event ! 8 ! astadr = address of entry mask of AST routine ! D ! astprm = value to be passed to AST routine as an argument ! & ! acmode = access mode of AST ! % ! handle = address of handle ! - EXTERNAL LONG FUNCTION SYS$SETCLUEVT & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) ! $SETDDIR ! D ! Read and set the default directory string for the process. ! B ! $SETDDIR [new-dir-addr] ,[length-addr] ,[cur-dir-addr] ! D ! new-dir-addr = a descriptor of the new default directory. ! D ! length-addr = a word that is to receive the length of the3 ! current default directory. ! C ! cur-dir-addr = descriptor of a buffer that is to receive8 ! the current default directory.+ EXTERNAL LONG FUNCTION SYS$SETDDIR & ( &% STRING BY DESC, &" WORD BY REF, &$  STRING BY DESC & ) ! $SETDFPROT ! E ! Read and write the default file protection for the process. ! ? ! $SETDFPROT [new-def-prot-addr] ,[cur-def-prot-addr] ! I ! new-def-prot-addr = a word that specifies the new default file8 ! protection specification. ! Q ! cur-def-prot-addr = a word that is to receive the current default file8 ! protection specification.- EXTERNAL LONG FUNCTION SYS$SETDFPROT & ( &" WORD BY REF, &! WORD BY REF & ) ! $SET_RETURN_VALUE ! 8 ! Set return value/status in the Mechanism array ! J ! $SET_RETURN_VALUE [mechanism_arg], [return_type], return_value ! 6 ! mechanism_arg = Address of mechanism vector ! M ! return_type = Address of a longword containing one of the valuesB !  specified in the Function Return Signature Encoding tables( ! of the OpenVMS calling standard. ! K ! return_value = Address of a value of the type specified by the @ ! return_type argument. The referenced value will be read> ! as a longword, quadword, or octaword, depending on the ! return_type value. !  ! 4 EXTERNAL LONG FUNCTION SYS$SET_RETURN_VALUE & ( &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) ! $SET_SYSTEM_EVENT ! ' ! Set System Event Notification ! F ! $SET_SYSTEM_EVENT event, astadr, [astprm], [acmode], handle ! 2 ! event = code indicating type of event ! 8 ! astadr = address of entry mask of AST routine ! D ! astprm = value to be passed to AST routine as an argument ! & ! acmode = access mode of AST ! W ! flags = flags longword (one example is to indicate whether the notificationE ! of the event should be done only once or should be repeated) ! + ! event_handle = address of handle ! 4 EXTERNAL LONG FUNCTION SYS$SET_SYSTEM_EVENT & ( &$ LONG BY VALUE, &" LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF &  ) !  ! $SET_IMPLICIT_AFFINITY ! * ! Modify process implicit affinity ! Q ! $SET_IMPLICIT_AFFINITY [pidadr],[prcnam],[state],[cpu_id],[prev_mask] ! J ! pidadr = address of process identification of process for4 ! which affinity is to be changed> ! prcnam = address of process name string descriptorC ! cpu_id = CPUID number process is to be assigned to initially> ! prev_mask = address of user quadword that will hold the6 ! previous states of the individual capabilities ! 9 EXTERNAL LONG FUNCTION SYS$SET_IMPLICIT_AFFINITY & ( &" LONG BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! $SET_RESOURCE_DOMAIN !  ! Set Resource Domain ! W ! $SET_RESOURCE_DOMAIN func ,rsdm_id ,uic_group ,[nullarg] ,[access] ,[acmode] ! 4 ! 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) ! 2 ! rsdm_id = address of the Resource Domain Id ! @ ! domain_number = number identifying target Resource Domain ! 0 ! nullarg = Placeholder reserved to Digital ! 7 ! access = Access desired (defined by RSDM$M macro ! % ! acmode = requested access mode !  ! 7 EXTERNAL LONG FUNCTION SYS$SET_RESOURCE_DOMAIN & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $SET_SECURITY ! % ! Set Object Security Profile ! ] !  $SET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] ! 0 EXTERNAL LONG FUNCTION SYS$SET_SECURITY & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &! LONG BY REF & ) ! $SET_UNWIND_TABLE ! > ! Register or extend and unwind table (UT) information ! F ! $SET_UNWIND_TABLE code_base_va, code_size, ut_base_va, ut_size,1 ! handler_base_va, unwind_info_base, name ! S ! code_base_va = The process virtual address of the start of the code region ! 0 ! code_size = Size of code region in bytes ! G ! ut_base_va = Quadword aligned process virtual address of the UT ! . ! ut_size = The size of the UT in bytes ! [ ! handler_base_va = The handler_ base_va plus the unwind information block's conditionN ! handler procedure value must add up to the process virtual address6 ! of the condition handler's function value. ! Y ! unwind_info_base = The unwind_info_base plus a particular unwind table entry (UTE)M ! unwind info block (UIB) offset must add up to the process virtual ! address of that UIB. ! : ! name = Fixed length string, passed by descriptor. ! 0 ! flags = MUTE flags, mask word, optional ! 4 EXTERNAL LONG FUNCTION SYS$SET_UNWIND_TABLE & ( &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &% STRING BY DESC, &+ OPTIONAL WORD BY VALUE & ) ! $SETAST !  ! Set AST Enable !  ! $SETAST enbflg ! @ ! enbflg = AST enable indicator for current access mode1 ! 0 -> disable 1 -> enable ! * EXTERNAL LONG FUNCTION SYS$SETAST & ( &# BYTE BY VALUE & ) ! $SETEF !  ! Set Event Flag !  ! $SETEF efn ! 4 ! efn = event flag number of flag to set ! ) EXTERNAL LONG FUNCTION SYS$SETEF & ( &# LONG BY VALUE & ) ! $GETENV ! % ! Get an environment variable !  ! $GETENV ItemList ! < ! ItemList = address of a zero terminated item list. !  ! * EXTERNAL LONG FUNCTION SYS$GETENV & ( & ANY BY REF & ) ! $SETENV ! % ! Set an environment variable !  ! $SETENV ItemList ! < ! ItemList = address of a zero terminated item list. !  ! * EXTERNAL LONG FUNCTION SYS$SETENV & ( & ANY BY REF & ) ! $SETEVTAST ! ( ! Establish an Event AST Routine ! L ! $SETEVTAST evtnam, evtadr, [evtfac], [acmode], [flags], [reqid]C ! (SETEVTASTW) ,[evtid], [evtcrd], [efn], [iosb], [astadr] ! ,[astprm], [nullarg] ! 7 ! evtnam = address of descriptor of event name ! > ! evtadr = address of entry mask of event AST routine ! 2 ! evtfac = address of event facility code ! 4 ! acmode = access mode of event declaration ! " ! flags = optional flags ! @ ! reqid = user provided identification of this request ! L ! 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 ! : ! iosb = address of a quadword I/O status block ! C ! astadr = address of entry mask of completion AST routine ! @ ! astprm = value to be passed to completion AST routine ! - EXTERNAL LONG FUNCTION SYS$SETEVTAST & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ). EXTERNAL LONG FUNCTION SYS$SETEVTASTW & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $SETEXV !  ! Set Exception Vector  ! : ! $SETEXV [vector] ,[addres] ,[acmode] ,[prvhnd] ! ! ! vector = vector numberN ! 0 -> primary vector 1 -> secondary 2 -> last chance ! K ! addres = exception handler address (0 indicates deassign vector) ! 7 ! acmode = access mode for which vector is set ! K ! prvhnd = address of longword to receive previous handler address ! * EXTERNAL LONG FUNCTION SYS$SETEXV & ( &$  LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! $SETFLT ! , ! Set Fault Characteristics on Pages ! 9 ! $SETFLT inadr ,[retadr] ,[acmode] ,fault_flag ! G ! inadr = address of 2-longword array containing starting and? ! ending virtual addresses of pages to change ! G ! retadr = address of 2-longword array containing starting and@ ! ending addresses of pages which were changed ! * ! acmode = access mode of request ! W ! fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) ! * EXTERNAL LONG FUNCTION SYS$SETFLT & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $SETFLT_64 ! , ! Set Fault Characteristics on Pages ! a ! $SETLFT_64 start_va_64, length_64, acmode, fault_flag, return_va_64, return_length_64 ! H ! start_va_64 = Starting address of address space to set protection ! A ! length_64 = Byte length of addresses to set protection ! - ! acmode = Access mode of request ! S ! fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) ! K ! return_va_64 = Address of address space whose protection was set ! K ! return_length_64 = Length of address space whose protection was set ! - EXTERNAL LONG FUNCTION SYS$SETFLT_64 & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $SETIME !  ! Set System Time !  ! $SETIME [timadr] ! I ! timadr = address of quadword containing new system time inI ! 64-bit format. If 0, recalibrate system time using0 ! hardware time-of-year clock. ! * EXTERNAL LONG FUNCTION SYS$SETIME & ( &+ BASIC$QUADWORD BY REF & ) ! $SETIMR !  ! Set Timer ! > ! $SETIMR [efn] ,daytim ,[astadr] ,[reqidt] ,[flags] ! 8 ! efn = event flag to set when timer expires ! D ! daytim = address of quadword containing 64-bit time value ! 8 ! astadr = address of entry mask of AST routine ! @ ! reqidt = request identification of this timer request ! ; ! flags = only bit 0 used right now. If bit 0 is set,9 ! then this timer request is in terms of CPU time. ! * EXTERNAL LONG FUNCTION SYS$SETIMR &  ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $SETPFM ! # ! Set Page Fault Monitoring ! : ! $SETPFM [pfmflg] ,[astadr] ,[astprm] ,[acmode] ! ) ! pfmflg = function/subfunction bits ! 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 ! > ! bufcntadr = address of longword for which the number ofE ! page fault monitoring buffers allocated is stored. ! * EXTERNAL LONG FUNCTION SYS$SETPFM & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $SETPRA ! ! Set Power Recovery AST ! $ ! $SETPRA astadr ,[acmode] ! 9 ! astadr = address of power recovery AST routine ! & ! acmode = access mode of AST ! * EXTERNAL LONG FUNCTION SYS$SETPRA & ( &" LONG BY REF, &# LONG BY VALUE & ) ! $SETPRI !  ! Set Priority ! D ! $SETPRI [pidadr] ,[prcnam] ,pri ,[prvpri],[pol],[prvpol] ! > ! pidadr = address of process id of process to be set ! = ! prcnam = address of process name string descriptor ! 5 ! pri = new base priority for the process ! I ! prvpri = address of longword to receive previous base priority ! D ! pol = address of new scheduling policy for the process ! H ! prvpol = address of longword to receive previous sched policy ! * EXTERNAL LONG FUNCTION SYS$SETPRI & ( &" LONG BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! $SETPRN !  ! Set Process Name !  ! $SETPRN [prcnam] ! A ! prcnam = address of the process name string descriptor ! * EXTERNAL LONG FUNCTION SYS$SETPRN &  ( &$ STRING BY DESC & ) ! $SETPRT ! ! ! Set Protection on Pages ! = ! $SETPRT inadr ,[retadr] ,[acmode] ,prot ,[prvprt] ! G ! inadr = address of 2-longword array containing starting and? ! ending virtual addresses of pages to change ! G ! retadr = address of 2-longword array containing starting and@ ! ending addresses of pages which were changed  ! * ! acmode = access mode of request ! " ! prot = new protection ! E ! prvprt = address of byte to receive previous protection of% ! last page changed ! * EXTERNAL LONG FUNCTION SYS$SETPRT & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &! BYTE BY REF & ) !  $SETPRT_64 ! ! ! Set Protection on Pages ! \ ! $SETPRT_64 start_va_64, length_64, acmode, prot, return_va_64, return_length_64, ! return_prot_64 ! H ! start_va_64 = Starting address of address space to set protection ! A ! length_64 = Byte length of addresses to set protection ! - ! acmode = Access mode of request ! % ! prot = New protection ! K ! return_va_64 = Address of address space whose protection was set ! K ! return_length_64 = Length of address space whose protection was set ! S ! return_prot_64 = Address of longword to receive previous protection of% ! last page changed ! - EXTERNAL LONG FUNCTION SYS$SETPRT_64 & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! $SETPRV !  ! Set privileges.9 ! $SETPRV [enbflg] ,[prvadr] ,[prmflg] ,[prvprv] ! $ ! enbflg = enable indicator0 ! 0 -> disable 1 -> enable ! H ! prvadr = 64-bit mask defining the privileges to be enabled or ! disabled ! ' ! prmflg = permanent indicatorE !  0 -> temporary (for this image) 1 -> permanent ! M ! prvprv = address of quadword buffer to receive previous privileges ! * EXTERNAL LONG FUNCTION SYS$SETPRV & ( &$ BYTE BY VALUE, &, BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! $SETRWM ! ! Set Resource Wait Mode !  ! $SETRWM [watflg] ! " ! watflg = wait indicatorH ! 0 -> wait for resources 1 -> return failure immediately? ! (type is NUMBER rather than BOOLEAN since WATFLG=TRUEC ! means don't wait, which is the opposite of what is seems) ! * EXTERNAL LONG FUNCTION SYS$SETRWM & ( &# BYTE BY VALUE & ) ! $SETSFM ! ) ! Set System Service Failure Mode !  ! $SETSFM [enbflg] ! $ !  enbflg = enable indicatorO ! 0 -> disable generation of exceptions on service failuresJ ! 1 -> generate exceptions for system service failures ! * EXTERNAL LONG FUNCTION SYS$SETSFM & ( &# BYTE BY VALUE & ) ! $SETSSF ! # ! Set System Service Filter !  ! $SETSSF [mask] ! / ! mask = flags for services to inhibit ! * EXTERNAL LONG FUNCTION SYS$SETSSF & ( &# LONG BY VALUE & ) ! $SETSHLV ! 2 ! Modify process default unshelving action ! 2 ! $SETSHLV [pidadr] ,[prcnam], [shlvflg] ! 4 ! pidadr = address of process id of process ! @ ! prcnam = address of name string descriptor of process ! C ! shlvflg = longword containing the desired shelving modeB ! in the bottom bit. If the bottom bit is set,G ! then the default is not to automatically unshelveE ! shelved files. If the bottom bit is clear, thenF ! the default is to automatically unshelve shelved ! files. ! + EXTERNAL LONG FUNCTION SYS$SETSHLV & ( &" LONG BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! $SETSTK ! " ! SET VIRTUAL STACK LIMITS ! , ! $SETSTK inadr ,[retadr] ,[acmode] ! I ! inadr = address of 2-longword array containing starting andA ! ending virtual address of stack limits to set ! I ! retadr = address of a 2-longword array to receive starting andA ! ending virtual address of stack limits to set ! ; ! acmode = access mode for the stack to change ! * EXTERNAL LONG FUNCTION SYS$SETSTK &  ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $SETSTK_64 ! " ! SET VIRTUAL STACK LIMITS ! W ! $SETSTK_64 start_va, length, acmode, flags, prev_start_va_64, prev_length_64 ! < ! start_va_64 = lowest address for new stack limits ! E ! length_64 = length of address range for new stack limits ! @ ! acmode = access  mode for the stack to change ! U ! flags = VA$M_SETSTK_REGISTER - set register stack limits (IA64 only) ! Q ! prev_start_va_64 = pointer to lowest address for previous stack limits ! F ! prev_length_64 = pointer to length of previous stack limits ! - EXTERNAL LONG FUNCTION SYS$SETSTK_64 & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$  LONG BY VALUE, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $SETSWM !  ! Set Process Swap Mode !  ! $SETSWM [swpflg] ! " ! swpflg = swap indicatorB ! 0 -> enable swapping 1 -> disable swapping ! * EXTERNAL LONG FUNCTION SYS$SETSWM & ( &# BYTE BY VALUE & ) !  ! $SETDTI ! 1 ! Set Distributed Transaction Information ! A ! $SETDTI [efn], [flags], iosb, [astadr], [astprm], context,! ! ($SETDTIW) func, itmlst ! , ! efn = event flag to set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block; ! astadr = address of the entry mask of an AST routine1 ! astprm = value to be passed to AST routine3 ! context = address of longword search context+ ! func = function code to be performed5 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$SETDTI & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ WORD BY VALUE, & ANY BY REF & )+ EXTERNAL LONG FUNCTION SYS$SETDTIW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ WORD BY VALUE, & ANY BY REF & ) ! $SETUAI ! / ! Modify User Authorization Information ! E ! $SETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] ! ,[astprm] ! 6 ! efn = event flag to be set at completion ! A ! contxt = address of a context longword (UAF IFI ? ISI) ! 3 ! usrnam = address of user name descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine !  ! * EXTERNAL LONG FUNCTION SYS$SETUAI & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $SHOW_INTRUSION !  ! Show intrusion record ! h ! $SHOW_INTRUSION user_criteria, intruder, intru der_len, breakin_block, [flags], [context] ! @ ! user_criteria in address of user criteria descriptor6 ! intruder in out address of intruder descriptorM ! intruder_len out address of word to receive intruder string length9 ! breakin_block out address of intrusion block- ! flags in intrusion service flags< ! context in out address of optional longword context ! 2 EXTERNAL LONG FUNCTION SYS$SHOW_INTRUSION & ( &%  STRING BY DESC, &% STRING BY DESC, &" WORD BY REF, &! ANY BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! $SNDACC ! , ! Send Message to Accounting Manager ! " ! $SNDACC msgbuf ,[chan] ! ? ! msgbuf = address of message buffer string descriptor ! J ! chan = number of channel assigned to mailbox to receive reply ! * EXTERNAL LONG FUNCTION SYS$SNDACC & ( &% STRING BY DESC, &# WORD BY VALUE & ) ! $SNDERR ! & ! Send Message to Error Logger !  ! $SNDERR msgbuf ! ? ! msgbuf = address of message buffer string descriptor ! * EXTERNAL LONG FUNCTION SYS$SNDERR & ( &$ STRING BY DESC & ) ! $SNDOPR ! " ! Send Message to Operator ! " ! $SNDOPR msgbuf ,[chan] ! ? ! msgbuf = address of message buffer string descriptor ! J ! chan = number of channel assigned to mailbox to receive reply ! * EXTERNAL LONG FUNCTION SYS$SNDOPR & ( &% STRING BY DESC, &# WORD BY VALUE & ) ! $SNDSMB ! * ! Send Message to Symbiont Manager ! " ! $SNDSMB msgbuf ,[chan] ! ? ! msgbuf = address of message buffer string descriptor ! J ! chan = number of channel assigned to mailbox to receive reply ! * EXTERNAL LONG FUNCTION SYS$SNDSMB & ( &% STRING BY DESC, &# WORD BY VALUE & ) ! $SNDJBC ! ( ! Send Message to Job Controller ! 6 ! $SNDJBC [efn], func, [nullarg], [itmlst],/ ! ($SNDJBCW) [iosb], [as tadr], [astprm] ! @ ! efn = event flag to be set when request completes= ! func = code specifying function to be performedK ! nullarg = reserved argument for similarity with $getxxx servicesL ! itmlst = address of a list of item descriptors for the operationS ! iosb = address of a quadword status block to receive the final statusR ! astadr = address of an ast routine to be called when request completes) ! astprm = 32-bit ast parameter ! * EXTERNAL LONG FUNCTION SYS$SNDJBC & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$SNDJBCW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $SPACE ! ! ! Space to Record in File ! $ ! $SPACE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$SPACE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $SSIO_FSYNC ! J ! Synchronize file changes with the storage device for a file that> ! has been opened for Shared Stream I/O (SSIO) access. ! 6 ! $SSIO_FSYNC chan, iosa ,[ast] ,[astprm] ! ($SSIO_FSYNCW) ! : ! chan = channel number for SSIO accessed file  ! M ! iosa = address of I/O status area (4 quadwords) to receive final7 ! completion status (64-bit address)  ! ; ! ast = address of AST routine (64-bit address) ! P ! astprm = value to be passed to AST routine as argument (64-bit value) ! . EXTERNAL LONG FUNCTION SYS$SSIO_FSYNC & ( &$ LONG BY VALUE, &" LONG BY REF, &"  LONG BY REF, &# LONG BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$SSIO_FSYNCW & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $SSIO_GETFL ! K ! Get the current file status flags for a file that has been openedI ! for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with$ !  F_SETFL command parameter. ! 6 ! $SSIO_GETFL chan ,iosa ,[ast] ,[astprm] ! ($SSIO_GETFLW) ! : ! chan = channel number for SSIO accessed file  ! M ! iosa = address of I/O status area (4 quadwords) to receive finalM ! completion status and file status flags (64-bit address)  ! ; ! ast = address of AST routine (64-bit address) ! P ! astprm = value to be passed to AST routine as argument (64-bit value) ! . EXTERNAL LONG FUNCTION SYS$SSIO_GETFL & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$SSIO_GETFLW & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $SSIO_ LSEEK ! H ! Set the current file offset to a file that has been opened for* ! Shared Stream I/O (SSIO) access. ! I ! $SSIO_LSEEK chan ,offset_in ,whence ,iosa ,[ast] ,[astprm] ! ($SSIO_LSEEKW) ! : ! chan = channel number for SSIO accessed file  ! G ! offset_in = signed offset value used in conjunction with the= ! whence parameter to determine a new resultant file ! offset (64-bit value) ! C ! whence = value that controls interpretation of offset_in ! Must be one of:8 ! SSIO$C_SEEK_SET: Resultant offset is offset_in< ! SSIO$C_SEEK_CUR: Resultant offset is current value ! plus offset_in> ! SSIO$C_SEEK_END: Resultant offset is current end-of-) ! file position plus offset_in ! M ! iosa = address of I/O status area (4 quadwords) to receive final7 ! completion status (64-bit address)  ! ;   ! ast = address of AST routine (64-bit address) ! P ! astprm = value to be passed to AST routine as argument (64-bit value) ! . EXTERNAL LONG FUNCTION SYS$SSIO_LSEEK & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$SSIO _LSEEKW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $SSIO_READ ! J ! Read a byte stream from the current file offset from a file that= ! has been opened for Shared Stream I/O (SSIO) access ! E ! $SSIO_READ chan ,buffer ,bufsiz ,iosa ,[a st] ,[astprm] ! ($SSIO_READW) ! : ! chan = channel number for SSIO accessed file  ! K ! buffer = address of data buffer to receive data (64-bit address) ! ? ! bufsiz = size of data buffer in bytes (64-bit value) ! M ! iosa = address of I/O status area (4 quadwords) to receive final7 ! completion status (64-bit address)  ! ; ! ast = address of AST routine (64-bit address) ! P ! astprm = value to be passed to AST routine as argument (64-bit value) ! - EXTERNAL LONG FUNCTION SYS$SSIO_READ & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ). EXTERNAL LONG FUNCTION SYS$SSIO_READW & ( &$ LONG BY VALUE, &"  LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $SSIO_SETFL ! K ! Set the current file status flags for a file that has been openedI ! for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with$ ! F_SETFL command parameter. ! E ! $SSIO_SETFL chan ,file_sts_flgs ,iosa ,[ast] ,[astprm] ! ($SSI O_SETFLW) ! : ! chan = channel number for SSIO accessed file  ! 9 ! file_sts_flgs = desired file status flag valueF ! Only mask value that can be changed is SSIO$M_O_APPEND. ! M ! iosa = address of I/O status area (4 quadwords) to receive final7 ! completion status (64-bit address)  ! ; ! ast = address of AST routine (64-bit address) ! P ! astprm = value to be passed to AST routine as argument (64-bit value) ! . EXTERNAL LONG FUNCTION SYS$SSIO_SETFL & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$SSIO_SETFLW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $SSIO_SYNC ! I ! Synchronize file changes that have been made via prior calls toJ ! the $SSIO_WRITE and $SSIO_TRUNCATE services to all files on thisK ! system that have been opened for Shared Stream I/O (SSIO) access.J ! The file changes are synchronized with the corresponding storage ! device. !  ! $SSIO_SYNC  ! + EXTERNAL LONG FUNCTION SYS$SSIO_SYNC ! $SSIO_TRUNCATE ! E ! Truncate (or extend) a file that has been opened for Shared# ! Stream I/O (SSIO) access. ! F ! $SSIO_TRUNCATE chan ,file_length ,iosa ,[ast] ,[astprm] ! ($SSIO_TRUNCATEW) ! : ! chan = channel number for SSIO accessed file  ! > ! file_length = new end-of-file length (64-bit value) ! M ! iosa = address of I/O status area (4 quadwords) to receive final7 !  completion status (64-bit address)  ! ; ! ast = address of AST routine (64-bit address) ! P ! astprm = value to be passed to AST routine as argument (64-bit value) ! 1 EXTERNAL LONG FUNCTION SYS$SSIO_TRUNCATE & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )2 EXTERNAL LONG FUNCTION SYS$SSIO_TRUNCATEW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $SSIO_WRITE ! G ! Write a byte stream to the current file offset to a file that= ! has been opened for Shared Stream I/O (SSIO) access ! F ! $SSIO_WRITE chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] ! ($SSIO_WRITEW) ! : ! chan = channel number for SSIO accessed file  ! K ! buffer = address of data buffer to receive data (64-bit address) ! ? ! bufsiz = size of data buffer in bytes (64-bit value) ! M ! iosa = address of I/O status area (4 quadwords) to receive final7 ! completion status (64-bit address)  ! ; ! ast = address of AST routine (64-bit address) ! P ! astprm = value to be passed to AST routine as argument (64-bit value) ! . EXTERNAL LONG FUNCTION SYS$SSIO_WRITE & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$SSIO_WRITEW & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $SUSPND !  ! Suspend Process ! / ! $SUSPND [pidadr] ,[prcnam], [flags] ! D ! pidadr = address of process id of process to be suspended ! @ ! prcnam = address of name string descriptor of process ! A ! flags = longword of bit flags, of which only bit 0 is5 ! currently used. If bit 0 is set, then this5 ! is a hard suspend request; if clear this is! ! a soft suspend request. ! * EXTERNAL LONG FUNCTION SYS$SUSPND & ( &" LONG BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! $SYNCH ! & ! Synchronize Event Completion !  ! $SYNCH [iosb] ,[efn] ! 6 ! efn = event flag to be set at completion ! : ! iosb = address of a quadword I/O status block ! ) EXTERNAL LONG FUNCTION SYS$SYNCH & ( &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! $SUBSYSTEM ! / ! Modify Protected Subsystem Attributes !  ! $SUBSYSTEM enbflg ! $ ! enbflg = enable indicator2 ! 0 => disable image identifiers& ! 1 => restore image identifiers ! - EXTERNAL LONG FUNCTION SYS$SUBSYSTEM & ( &# LONG BY VALUE & ) !  ! $TIMCON ! : ! Convert between binary UTC and Smithsonian times ! ) ! $TIMCON smntim, utctim, cvtflg ! 2 ! For cvtflg = 0 (Convert UTC to Smithsonian)< ! smnadr = Address of the output quadword to be written1 ! with the UTC time converted to date_timeB ! utcadr = Address of the input 128 bit utc_date_time time to ! be converted ! cvtflg = 0 ! 2 ! For cvtflg = 1 (Convert Smithsonian to UTC)> ! smnadr = Address of input Smithsonian binary time to be% ! converted (VMS Binabs time).< ! utcadr = Address of the output 128 bit binary time to+ ! be written with the converted time ! cvtflg = 1 ! * EXTERNAL LONG FUNCTION SYS$TIMCON & ( &, BASIC$QUADWORD BY REF, &, BASIC$OCTAWORD BY REF, &# BYTE BY VALUE & ) ! $TRNLNM ! ! Translate Logical Name ! B ! $TRNLNM [attr], tabnam, [lognam], [acmode], [itemlist] ! @ ! attr = address of logical name translation attributes !  ! Attribute Meaning< ! LNM$M_CASE_BLIND Search of string is case insensitive ! H ! tabnam = address of logical name table name string descriptor ! = ! lognam = address of logical name string descriptor ! ; ! acmode = address of access mode for logical name ! 9 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$TRNLNM & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" BYTE BY REF, & ANY BY REF & ) ! $TRNLOG ! ! Translate Logical Name  ! I ! $TRNLOG lognam ,[rsllen] ,rslbuf ,[table] ,[acmode] ,[dsbmsk] ! = ! lognam = address of logical name string descriptor ! G ! rsllen = address of word to receive length of resultant name ! I ! rslbuf = address of descriptor for buffer to receive resultant ! string ! H ! table = address of byte to receive logical name table number ! C ! acmode = address of byte to receive access mode of entr y( ! (process table only) ! - ! dsbmsk = table search disable mask !  ! Bit Set Meaning ! 2 ! 0 Do not search system table1 ! 1 Do not search group table3 ! 2 Do not search process table ! * EXTERNAL LONG FUNCTION SYS$TRNLOG & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" ! BYTE BY REF, &" BYTE BY REF, &# LONG BY VALUE & ) !  ! $TRUNCATE !  ! Truncate Record ! ' ! $TRUNCATE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! , EXTERNAL LONG FUNCTION SYS$TRUNCATE & ( &! ANY BY" REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $ULKPAG ! " ! Unlock Pages From Memory ! - ! $ULKPAG inadr ,[retadr] ,[acmode] ! G ! inadr = address of 2-longword array containing starting andD ! ending virtual addresses of pages to be unlocked ! I ! retadr = address of a 2-longword array to receive starting andG ! ending virtual addresses# of pages actually unlocked ! G ! acmode = access mode to check against the owner of the pages ! * EXTERNAL LONG FUNCTION SYS$ULKPAG & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $ULKPAG_64 ! ! Unlock Pages in Memory ! U ! $ULKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 ! @ ! start_va_$64 = Starting address of address space to unlock ! 7 ! length_64 = Byte length of addresses to lock ! G ! acmode = Access mode to be checked against the page owner ! ; ! return_va_64 = Address of address space unlocked ! ; ! return_length_64 = Length of address space unlocked ! - EXTERNAL LONG FUNCTION SYS$ULKPAG_64 & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ % LONG BY VALUE, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $ULWSET ! ' ! Unlock Pages From Working Set ! - ! $ULWSET inadr ,[retadr] ,[acmode] ! G ! inadr = address of 2-longword array containing starting andD ! ending virtual addresses of pages to be unlocked ! I ! retadr = address of a 2-longword array to receive starting andG &! ending virtual addresses of pages actually unlocked ! G ! acmode = access mode to check against the owner of the pages ! * EXTERNAL LONG FUNCTION SYS$ULWSET & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $ULWSET_64 ! ' ! Unlock Pages from Working Set ! U ! $ULWSET_64 start_va_64, length_64, acmode, return_va'_64, return_length_64 ! @ ! start_va_64 = Starting address of address space to unlock ! 7 ! length_64 = Byte length of addresses to lock ! G ! acmode = Access mode to be checked against the page owner ! ; ! return_va_64 = Address of address space unlocked ! ; ! return_length_64 = Length of address space unlocked ! - EXTERNAL LONG FUNCTION SYS$ULWSET_64 & ( &$ LONG BY VALUE, &.! ( BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $UNWIND !  ! Unwind Call Stack ! % ! $UNWIND [depadr] ,[newpc] ! K ! depadr = address of longword containing number of logical frames0 ! (depth) to unwind call stack ! K ! newpc = address to be given control when the unwind is c)omplete ! * EXTERNAL LONG FUNCTION SYS$UNWIND & ( &" LONG BY REF, &! LONG BY REF & ) !  ! $UPDATE !  ! Update Record ! % ! $UPDATE fab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$UPDATE & * ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $UPDSEC ! % ! Update Section File on Disk ! F ! $UPDSEC inadr ,[retadr] ,[acmode] ,[updflg] ,[efn] ,[iosb]* ! ($UPDSECW) ,[astadr] ,[astprm] ! G ! inadr = address of 2-longword array containing starting andI ! ending addresses of the pages to be potentially ! + written ! I ! retadr = address of 2-longword array to receive addresses ofI ! the first and last page queued in the first I/O ! request ! I ! acmode = access mode on behalf of which the service is ! performed ! C ! updflg = update indicator for read/write global sectionsD ! 0 -> write all read/write pages in the sectionU ! UPDFLG,$M_WRT_MODIFIED -> write all pages modified by the caller ! I ! efn = number of event flag to set when the section file is ! updated ! 8 ! iosb = address of quadword I/O status block ! C ! astadr = address of entry mask of an AST service routine ! I ! astprm = AST parameter to be passed to the AST service routine ! * EXTERNAL LONG FUNCTION SYS$UPDSEC & ( &' LONG DIM() BY- REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ BYTE BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$UPDSECW & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ . BYTE BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $UPDSEC_64 ! % ! Update Section File on Disk ! K ! $UPDSEC_64 start_va_64, length_64, acmode, updflg, efn, iosa_64> ! return_va_64, return_length_64[,astadr_64[, astprm_64]] ! @ ! start_va_64 = Starting address of address space to update ! 9 ! / length_64 = Byte length of addresses to update ! J ! acmode = access mode on behalf of which the service is ! performed ! D ! updflg = update indicator for read/write global sectionsD ! 0 -> write all read/write pages in the sectionU ! UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller ! J ! efn = number of event flag to set when the section file is ! 0 updated ! = ! iosa_64 = address of 4 quadword I/O status area ! F ! return_va_64 = Address of address space queued in the first ! I/O request ! F ! return_length_64 = Length of address space queued in the first ! I/O request ! F ! astadr_64 = address of entry mask of an AST service routine ! L ! astprm_64 = AST parameter to be passed to the AST service routine ! - EXTERNAL LONG FUNCTION SYS$UPDSEC_614 & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &-! BASIC$QUADWORD BY VALUE & ). EXTERNAL LONG FUNCTION SY2S$UPDSEC_64W & ( &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &-! BASIC$QUADWORD BY VALUE & ) !  ! $VERIF 3Y_PROXY !  ! Verify proxy record ! ` ! $VERIFY_PROXY rem_node, rem_user, [proposed_user], local_user, local_user_len, flags ! 4 ! rem_node in address of remote node descriptor4 ! rem_user in address of remote user descriptorF ! proposed_user in address of optional proposed user descriptorE ! local_user out address of descriptor to receive local userK ! local_user_len out address of word to receive local user length+ ! flags4 in proxy service flags ! 0 EXTERNAL LONG FUNCTION SYS$VERIFY_PROXY & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" WORD BY REF, &# LONG BY VALUE & ) ! ! $WAIT !  ! Wait on File !  ! $WAIT rab ! ! rab = address of rab !  5! ( EXTERNAL LONG FUNCTION SYS$WAIT & ( & ANY BY REF & ) ! $WAITFR ! $ ! Wait for Single Event Flag !  ! $WAITFR efn ! 1 ! efn = event flag number to wait for ! * EXTERNAL LONG FUNCTION SYS$WAITFR & ( &# LONG BY VALUE & ) ! $WAKE !  ! Wake ! $ ! $WAKE [pidadr] ,[prcnam] ! D ! 6 pidadr = address of process id of process to be awakened ! F ! prcnam = address of name string descriptor of process to be ! awakened ! ( EXTERNAL LONG FUNCTION SYS$WAKE & ( &" LONG BY REF, &$ STRING BY DESC & ) ! $WFLAND ! - ! Wait for Logical AND of Event Flags !  ! $WFLAND efn ,mask ! D ! efn = event flag number of any flag 7within the cluster ! 9 ! mask = 32-bit mask of flags that must be set ! * EXTERNAL LONG FUNCTION SYS$WFLAND & ( &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $WFLOR ! , ! Wait for Logical OR of Event Flags !  ! $WFLOR efn ,mask ! D ! efn = event flag number of any flag within the cluster ! B ! mask = 32-bit mask of flags, any of which mus8t be set ! ) EXTERNAL LONG FUNCTION SYS$WFLOR & ( &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $WRITE !  ! Write Block to File ! $ ! $WRITE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$WRITE 9& ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $WRITE_THREAD_UNQ ! # ! Write thread unique value ! % ! $WRITE_THREAD_UNQ contxt ! : ! contxt = address of quadword that contains the+ ! thread unique value to be written ! 4 EXTERNAL LONG FUNCTION SYS$WRITE_THREAD_UNQ & ( &! LON:G BY REF & ) ! $XFS_CLIENT !  ! Call the XFS client ! ? ! $XFS_CLIENT [efn] ,func ,fsb ,[astadr] ,[astprm] ! = ! efn = number of event flag to set on completion ! C ! func = function code specifying action to be performed ! 0 ! fsb = address of File System Block ! 8 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as; argument ! . EXTERNAL LONG FUNCTION SYS$XFS_CLIENT & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $XFS_SERVER !  ! Call the XFS server ! ? ! $XFS_SERVER [efn] ,func ,fsb ,[astadr] ,[astprm] ! = ! efn = number of event flag to set on completion ! <C ! func = function code specifying action to be performed ! 0 ! fsb = address of File System Block ! 8 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as argument ! . EXTERNAL LONG FUNCTION SYS$XFS_SERVER & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &" LONG BY REF, &# = LONG BY VALUE & ) ! $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 |- ! +-------------------------------+ ! * EXTERNAL LONG FUNCTION SYS$DCLRNH & ? ( & ANY BY REF & ) ! $CANRNH ! ! Cancel Restart Handler !  ! $CANRNH [desblk] ! ? ! desblk = address of handler control block describing0 ! handler to be deleted. If 0, delete all ! * EXTERNAL LONG FUNCTION SYS$CANRNH & ( & ANY BY REF & ) !  ! $ABORT_TRANS !  ! Abort a transaction ! @ ! $ABORT_TRANS [ef @n], [flags], iosb [, [astadr], [astprm],/ ! ($ABORT_TRANSW) [tid], [reason], [bid]] ! / ! 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 argument4 ! tid = identifier of transaction to be aborted4 ! reason = optional extended abort reason code; ! bid = identifier of transactionA branch to be aborted ! / EXTERNAL LONG FUNCTION SYS$ABORT_TRANS & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &$ LONG BY VALUE, &+ BASIC$OCTAWORD BY REF & )0 EXTERNAL LONG FUNCTION SYS$ABORT_TRANSW & B ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &$ LONG BY VALUE, &+ BASIC$OCTAWORD BY REF & ) !  ! $ACK_EVENT ! : ! Acknowledge a resource manager transaction event ! E ! $ACK_REPORT [flags], Creport_id, report_reply, [, [reason],= ! [beftime], [afttime], [part_name], [rm_context], ! [timout]] !  ! flags = operation flags' ! report_id = participant id value0 ! report_reply = value of completion status; ! reason = extended abort reason code (for veto vote)0 ! beftim = lower bound of commit timestamp5 ! afttim = upper bound of commit timestamp9 ! part_name = address of participant name descriptor< ! rm_contexDt = RM private value to be passed to evt_rtn5 ! timout = transaction execution time-out value ! - EXTERNAL LONG FUNCTION SYS$ACK_EVENT & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &" LONG BY REF, &+E BASIC$QUADWORD BY REF & ) !  ! $ADD_BRANCH ! " ! Add a transaction branch ! < ! $ADD_BRANCH [efn], [flags], iosb, [astadr], [astprm],( ! ($ADD_BRANCHW) tid, tm_name, bid ! / ! 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 Fargument+ ! tid = transaction id for this branch9 ! tm_name = address of commit domain name descriptor5 ! bid = address to receive new branch identifier ! . EXTERNAL LONG FUNCTION SYS$ADD_BRANCH & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &% G STRING BY DESC, &+ BASIC$OCTAWORD BY REF & )/ EXTERNAL LONG FUNCTION SYS$ADD_BRANCHW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &+ BASIC$OCTAWORD BY REF & ) H ! ^ ! *************** NOTE: $CREATE_BRANCH(W) service definitions are obsolete ************** !  ! $CREATE_BRANCH ! % ! Create a transaction branch ! D ! $CREATE_BRANCH = [efn], [flags], iosb, [astadr], [astprm],E ! ($CREATE_BRANCHW) tid, bid [,[timout], [acmode], [tx_class]] ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block7 ! astadr = address of an Ientry mask of AST routine@ ! astprm = value to be passed to AST routine as an argument+ ! tid = transaction id for this branch9 ! bid = address to receive new branch identifier4 ! timout = transaction execution time-out value3 ! acmode = access mode for $CREATE_BRANCH call, ! tx_class= user transaction class name ! 1 EXTERNAL LONG FUNCTION SYS$CREATE_BRANCH & ( &$ LONG BY VALUE, &$ LONG BY VALUE,J &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & )2 EXTERNAL LONG FUNCTION SYS$CREATE_BRANCHW & ( &$ LONG BY VALUE, &$ LONG BY VALUKE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & ) ! $CVT_FILENAME ! E ! Convert a string between RMS format and file-system format. ! L ! $CVT_FILENAME c Lvttyp, srcstr, inflags, outbuf, outlen, outflags ! K ! cvttyp = value indicating conversion type (RMS-to-filesys or' ! filesys-to-RMS)F ! srcstr = address of string descriptor for source stringE ! inflags = mask indicating source string characteristicsF ! outbuf = address of string descriptor for output stringI ! outlen = address to store length of returned output stringI ! outflags = address of aM longword to receive flags describing% ! output string ! 0 EXTERNAL LONG FUNCTION SYS$CVT_FILENAME & ( &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &% STRING BY DESC, &" WORD BY REF, &! LONG BY REF & ) ! > ! $DECLARE_RM [efn], [flags], iosb, [astadr], [astprm],= ! ($DECLARE_RMW) rm_id N, event_handler [, [part_name],; ! [rm_context], [acmode], [tm_log_id], [event_mask]] ! * ! Declare Resource Manager to DDTM ! 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 routineE ! rm_id = address of longword to receive resource manager idG ! event_rtn = address O of entry mask of transaction event routine@ ! part_name = address of resource manager name descriptor= ! rm_context = RM private value to be passed to evt_rtnC ! acmode = value of access mode in which to invoke evt_rtnE ! tm_log_id = transaction manager log id for validation checksE ! event_mask = mask of events required by this resource manager ! . EXTERNAL LONG FUNCTION SYS$DECLARE_RM & ( &$ LONG BY VALUE, &$ P LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ LONG BY VALUE, &$ BYTE BY VALUE, &, BASIC$OCTAWORD BY REF, &# LONG BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$DECLARE_RMW & Q ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ LONG BY VALUE, &$ BYTE BY VALUE, &, BASIC$OCTAWORD BY REF, &# LONG BY VALUE & R ) !  ! $END_BRANCH ! / ! End an active branch of a transaction ! < ! $END_BRANCH [efn], [flags], iosb, [astadr], [astprm], ! ($END_BRANCHW) tid, bid ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block> ! astadr = address of a completion AST routine entry mask< ! astprm = value to be passed to completion AST routine. ! tid = address of transaction idenStifier5 ! bid = address of transaction branch identifier ! . EXTERNAL LONG FUNCTION SYS$END_BRANCH & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & )/ EXTERNAL LONG FUNCTION SYS$END_BRANCHW & T ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & ) !  ! $END_TRANS !  ! Commit a transaction ! E ! $END_TRANS [efn], [flags], iosb [, [astadr], [astprm], [tid] ] ! ($END_TRANSW) ! / ! efn U = 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 argument6 ! tid = identifier of transaction to be committed ! - EXTERNAL LONG FUNCTION SYS$END_TRANS & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* V OPTIONAL LONG BY REF, &$ LONG BY VALUE, &+ BASIC$OCTAWORD BY REF & ). EXTERNAL LONG FUNCTION SYS$END_TRANSW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &+ BASIC$OCTAWORD BY REF & ) !  ! $FINISH_RMWOP ! = ! Finish resource manager transaction event operation ! = ! $FINISH_RMOP [efn], [flags], iosb, [astadr], [astprm],B ! ($FINISH_RMOPW) part_id, retsts [, [reason], ! [beftime], [afttime] ! . ! 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% ! part_id = p Xarticipant id value* ! retsts = value of completion status; ! reason = extended abort reason code (for veto vote)0 ! beftim = lower bound of commit timestamp5 ! afttim = upper bound of commit timestamp ! / EXTERNAL LONG FUNCTION SYS$FINISH_RMOP & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &Y$ LONG BY VALUE, &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & )0 EXTERNAL LONG FUNCTION SYS$FINISH_RMOPW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ Z LONG BY VALUE, &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & ) !  ! $FORGET_RM ! A ! Forget a resource manager previously declared to DECdtm ! A ! $FORGET_RM [efn], [flags], iosb, [astadr], [astprm], rm_id ! ($FORGET_RMW) ! . ! efn = event flag to set upon completion ! flags = opera[tion 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 ! - EXTERNAL LONG FUNCTION SYS$FORGET_RM & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VA\LUE & ). EXTERNAL LONG FUNCTION SYS$FORGET_RMW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $GET_DEFAULT_TRANS ! 5 ! Get the current process default transaction !  ! $GET_DEFAULT_TRANS tid ! : ! tid =] identifier of the process default transaction ! 5 EXTERNAL LONG FUNCTION SYS$GET_DEFAULT_TRANS & ( &+ BASIC$OCTAWORD BY REF & ) ! $GET_UNWIND_ENTRY_INFO ! / ! Get fixed-up unwind entry information ! 4 ! $GET_UNWIND_ENTRY_INFO pc, get_ue_block, name !  ! pc = target PC ! C ! get_ue_block = address of a 4-quadword block to be filled in ! @ ! name = Fixed le^ngth string, passed by descriptor. ! ! ...? ! flags = address of MUTE flags, mask word, optional.9 EXTERNAL LONG FUNCTION SYS$GET_UNWIND_ENTRY_INFO & ( &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &! LONG BY REF & ) !  ! $JOI _N_RM ! @ ! Join a resource manager previously started transaction ! 9 ! $JOIN_RM [efn], [flags], iosb, [astadr], [astprm],K ! ($JOIN_RMW) rm_id [, [tid], [part_name], [rm_context], [timout]] ! 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, ! rm_id = res`ource manager id value* ! tid = address of transaction id, ! part_name = participant name string> ! rm_context = RM private value to pass to event routine8 ! timout = transaction execution time-out value ! + EXTERNAL LONG FUNCTION SYS$JOIN_RM & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$a LONG BY VALUE, &4 OPTIONAL BASIC$OCTAWORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ), EXTERNAL LONG FUNCTION SYS$JOIN_RMW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ b LONG BY VALUE, &4 OPTIONAL BASIC$OCTAWORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) !  ! $RECOVER ! & ! Recover transaction state. ! 9 ! $RECOVER [efn], [flags], iosb, [astadr], [astprm],H ! ($RECOVERW) recovery_prefix, event_handler, tm_log_id [,= ! [tid], [node], [rm_context], [acmode], [max_events]] c ! 6 ! efn = event flag to set upon completion& ! flags = operation flags1 ! iosb = address of I/O status block< ! astadr = address of entry mask of AST routine9 ! astprm = value to be passed to AST routine? ! recovery_prefix = address of search name descriptorM ! event_handler = address of entry mask of recovery event routine7 ! tm_log_id = address TM log identifier? ! tid d = address of transaction identifier= ! node = address of node name descriptorQ ! rm_context = value to be passed via event block to event_handlerZ ! acmode = value of access mode in which event ASTs should be deliveredY ! max_events = value of maximum number of events to be queued concurrently ! + EXTERNAL LONG FUNCTION SYS$RECOVER & ( &$ LONG BY VALUE, &$ LONeG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &" LONG BY REF, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$OCTAWORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &$ BYTE BY VALUE, &# WORD BY VALUE & ), EXTERNAL LONG FUfNCTION SYS$RECOVERW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &" LONG BY REF, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$OCTAWORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &$ g BYTE BY VALUE, &# WORD BY VALUE & ) !  ! $SET_DEFAULT_TRANS ! 0 ! Set up the process default transaction ! E ! $SET_DEFAULT_TRANS [efn], [flags], iosb [, [astadr], [astprm],3 ! ($SET_DEFAULT_TRANSW) [new_tid], [old_tid]] ! / ! 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 rout hine@ ! astprm = value to be passed to AST routine as an argument> ! new_tid = identifier of new process default transactionE ! old_tid = identifier of superceded process default transaction ! 5 EXTERNAL LONG FUNCTION SYS$SET_DEFAULT_TRANS & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, i BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & )6 EXTERNAL LONG FUNCTION SYS$SET_DEFAULT_TRANSW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & ) !  ! j$START_BITMAP ! ) ! Create and start a write bitmap ! U ! $START_BITMAP handle_in, chan, devnam, name, cluster, flags, handle_out ! 0 EXTERNAL LONG FUNCTION SYS$START_BITMAP & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF k& ) !  ! $START_BRANCH ! $ ! Start a transaction branch ! B ! $START_BRANCH [efn], [flags], iosb, [astadr], [astprm],P ! ($START_BRANCHW) tid, tm_name, bid, [, [timout], [acmode], [tx_class]] ! / ! 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 routin le as an argument+ ! tid = transaction id for this branch@ ! tm_name = address of parent commit domain name descriptor, ! bid = address of branch identifier4 ! timout = transaction execution time-out value5 ! acmode = access mode for $READY_TO_COMMIT call, ! tx_class= user transaction class name ! 0 EXTERNAL LONG FUNCTION SYS$START_BRANCH & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BmASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & )1 EXTERNAL LONG FUNCTION SYS$START_BRANCHW & ( &$ LONG BY VALUE, &$ n LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & ) !  ! $START_TRANS ! ! ! Start a new transaction ! C o ! $START_TRANS [efn], [flags], iosb [, [astadr], [astprm],A ! ($START_TRANSW) [tid], [timout], [acmode], [tx_class]] ! / ! 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 started4 ! timout = transaction execution time-out vpalueD ! acmode = outermost access mode allowed to end the transaction, ! tx_class= user transaction class name ! / EXTERNAL LONG FUNCTION SYS$START_TRANS & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$QUADWORD BY REF, &$ q BYTE BY VALUE, &$ STRING BY DESC & )0 EXTERNAL LONG FUNCTION SYS$START_TRANSW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ r STRING BY DESC & ) !  ! $TRANS_EVENT ! ! ! Start a new transaction ! ? ! $TRANS_EVENT [efn], [flags], iosb, [astadr], [astprm],2 ! ($TRANS_EVENTW) tid, rm_id, tx_event ! < ! efn = event flag to be set at completion) ! flags = operation flags@ ! iosb = address of a quadword I/O status blockA ! astadr = address of an entry mask of AST routineJ ! astprm s = value to be passed to AST routine as an argument@ ! tid = identifier of transaction just startedV ! rm_id = value of resource manager identifier returned by $DECLARE_RM6 ! tx_event = transaction transition event ! / EXTERNAL LONG FUNCTION SYS$TRANS_EVENT & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ t LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )0 EXTERNAL LONG FUNCTION SYS$TRANS_EVENTW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &$ LuONG BY VALUE, &# LONG BY VALUE & ) ! $TSTCLUEVT ! ) ! Test Cluster Event Notification ! 1 ! $TSTCLUEVT [handle], [acmode], [event] ! % ! handle = address of handle ! & ! acmode = access mode of AST ! 2 ! event = code indicating type of event ! - EXTERNAL LONG FUNCTION SYS$TSTCLUEVT & ( &" LONG BY REF, &$ LONG BY VALUvE, &# LONG BY VALUE & ) ! PTD$CREATE !  ! Create a pseudo terminal ! E ! PTD$CREATE CHAN, [ACMODE], [CHARBUFF], [BUFLEN], [HANGUP_AST],- ! [HANGUP_ASTPRM], [AST_ACMODE], INADR ! F ! CHAN = Address of word to receive channel number assigned9 ! ACMODE = Access mode associated with channelI ! CHARBUFF = Address ofa 3 - 5 longword array containing device ! characteristics.F ! BUF wLEN = Length of characteristics buffer in bytes either ! 12, 16, or 20: ! ASTADR = Address of entry mask of AST routine7 ! ASTPRM = Value to be passed to AST routineL ! AST_ACMODE = Access mode for whjich the AST is to be deliveredH ! INADR = Address of 2-longword array containing starting and6 ! ending virtual address of pages to be used as ! I/O buffers* EXTERNAL LONG FUNCTION PTD$CREATE & ( &" x WORD BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, && LONG DIM() BY REF & ) ! PTD$READ ! ) ! Read data from the pseudo terminal ! H ! PTD$READ(W) [EFN], CHAN, [ASTADR], [ASTPRM], READBUF, READBUF_LEN< ! EFN = Number of event flag to y set on completionU ! CHAN = Word containing number of channel on which I/O is to be performed: ! ASTADR = Address of entry mask of AST routine7 ! ASTPRM = Value to be passed to AST routineG ! READBUF = Address character string to hold characters readJ ! READBUF_LEN = Number of character to be read from pseudo terminal( EXTERNAL LONG FUNCTION PTD$READ & ( &$ LONG BY VALUE, &$ WORD BY VAzLUE, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &# LONG BY VALUE & )) EXTERNAL LONG FUNCTION PTD$READW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &# LONG BY VALUE & ) ! PTD$WRITE ! ( { ! Write data to the pseudo terminal ! > ! PTD$WRITE CHAN, [ASTADR], [ASTPRM], WRTBUF, WRTBUF_LEN, ! [ECHOBUF], ECHOBUF_LEN]U ! CHAN = Word containing number of channel on which I/O is to be performed: ! ASTADR = Address of entry mask of AST routine7 ! ASTPRM = Value to be passed to AST routineR ! WRTBUF = Address of character string containing character to write to ! pseudo terminalG ! WRTBUF_LEN = Number of character |s to write to pseudo terminalG ! ECHOBUF = Address character string to hold characters readJ ! ECHOBUF_LEN = Number of character to be read from pseudo terminal) EXTERNAL LONG FUNCTION PTD$WRITE & ( &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &! ANY BY REF, &# LONG BY VALUE & } )! ! PTD$SET_EVENT_NOTIFICATION ! 9 ! Enable or disable terminal event notification ASTs ! C ! PTD$SET_EVENT_NOTIFICATION CHAN, ASTADR, [ASTPRM], [ACMODE], ! TYPEU ! CHAN = Word containing number of channel on which I/O is to be performed: ! ASTADR = Address of entry mask of AST routine7 ! ASTPRM = Value to be passed to AST routineK ! ACMODE = Access mode for whjich the AST is to be delivered' ~! TYPE = Longword containing: EXTERNAL LONG FUNCTION PTD$SET_EVENT_NOTIFICATION & ( &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! PTD$CANCEL ! 7 ! Cancel queued control connection read request(s) !  ! PTD$CANCEL CHAN ! U ! CHAN = Word containing number of channel on which I/O is to be performed* EXTERNAL LONG FUNCTION PTD$CANCEL & ( &# WORD BY VALUE & ) ! PTD$DELETE !  ! Delete a pseudo terminal !  ! PTD$DELETE CHAN ! U ! CHAN = Word containing number of channel on which I/O is to be performed* EXTERNAL LONG FUNCTION PTD$DELETE & ( &# WORD BY VALUE & ) ! PTD$DECTERM_SET_PAGE_SIZE ! ,  ! Change terminal page length and width ! ; ! PTD$DECTERM_SET_PAGE_SIZE CHAN, PAGE_LEN, PAGE_WIDTH ! U ! CHAN = Word containing number of channel on which I/O is to be performedF ! PAGE_LEN = Longword containing new page length of terminalE ! PAGE_WIDTH = Longword containing new page width of terminal9 EXTERNAL LONG FUNCTION PTD$DECTERM_SET_PAGE_SIZE & ( &$ WORD BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $POSIX_FORK_CONTROL ! ' ! Control POSIX fork() operations ! K ! $POSIX_FORK_CONTROL cntrl , [when] , [handler] , [arg] , [ac ! C ! cntrl = constant defining what control routine is to do ! = ! when = bit array of when handler is to be called ! # ! handler= handler address ! @ ! arg = arg value that is passed back to the handler ! G  ! acmode = access mode at which to make the specified callback6 EXTERNAL LONG FUNCTION SYS$POSIX_FORK_CONTROL & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )! ! $START_ALIGN_FAULT_REPORT ! 2 ! Start user-image alignment fault reporting ! N ! $START_ALIGN_FAULT_REPORT report_method, [report_buffer, buffer_length] ! ? ! report_method = either AFR$C_EXCEPTION or AFR$C_BUFFERED ! < ! report_buffer = buffer to use to save alignment fault4 ! data if the BUFFERED method is specified. ! < ! buffer_length = the size in bytes of the user buffer< EXTERNAL LONG FUNCTION SYS$START_ALIGN_FAULT_REPORT & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE &  ) ! $GET_ALIGN_FAULT_DATA ! 4 ! Get alignment fault data from the collector. ! = ! $GET_ALIGN_FAULT_DATA buffer, buffer_size, return_size ! < ! buffer = Buffer in which to save the alignment fault ! data. ! 9 ! buffer_size = The size in bytes of the user buffer ! A ! return_size = Address of a longword in which to return the2 ! size of the alignment fault data found.8 EXTERNAL LONG FUNCTION SYS$GET_ALIGN_FAULT_DATA & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $STOP_ALIGN_FAULT_REPORT ! 1 ! Stop user-image alignment fault reporting !  ! $STOP_ALIGN_FAULT_REPORT ! 9 EXTERNAL LONG FUNCTION SYS$STOP_ALIGN_FAULT_REPORT ! $PERM_REPORT_ALIGN_FAULT ! : ! Start process permanent alignment fault reporting. !  ! $PERM_REPORT_ALIGN_FAULT ! 9 EXTERNAL LONG FUNCTION SYS$PERM_REPORT_ALIGN_FAULT$ ! $PERM_DIS_ALIGN_FAULT_REPORT ! : ! Start process permanent alignment fault reporting. ! # ! $PERM_DIS_ALIGN_FAULT_REPORT ! = EXTERNAL LONG FUNCTION SYS$PERM_DIS_ALIGN_FAULT_REPORT$ ! $INIT_SYS_ALIGN_FAULT_REPORT ! 4 ! Start system wide alignment fault reporting. ! C ! $INIT_SYS_ALIGN_FAULT_REPORT match_table, buffer_size, flags ! 8 ! match_table = Array of longwords used to restrict( ! the alignment faults reported ! A ! buffer_size = The number of bytes to use to save alignment ! fault data.2 ! flags = can be either 0 or AFR$M_USER_INFO ! ? EXTERNAL LONG FUNCTION SYS$INIT_SYS_ALIGN_FAULT_REPORT & ( &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )! ! $GET_SYS_ALIGN_FAULT_DATA ! @ ! Get alignment fault data from the system wide collector. ! A ! $GET_SYS_ALIGN_FAULT_DATA buffer, buffer_size, return_size ! ; ! buffer = Buffer in which to save the alignment fault ! data. ! 9 ! buffer_size = The size in bytes of the user buffer ! A ! return_size = Address of a longword in which to return the2 ! size of the alignment fault data found.< EXTERNAL LONG FUNCTION SYS$GET_SYS_ALIGN_FAULT_DATA & ( &$  LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & )$ ! $STOP_SYS_ALIGN_FAULT_REPORT ! 2 ! Stop system-wide alignment fault reporting ! # ! $STOP_SYS_ALIGN_FAULT_REPORT ! = EXTERNAL LONG FUNCTION SYS$STOP_SYS_ALIGN_FAULT_REPORT ! $RESCHED ! 7 ! Request voluntary preemption of current process !  ! $RESCHED ! ) EXTERNAL LONG FUNCTION SYS$RESCHED !  ! $SCHED ! ! ! Control class scheduler ! $ ! $SCHED func, P1, P2, P3 ! < ! func = function code (see CSHDEFS in STARLET) ! C ! P1 = buffer address, AST entry point address, or 0 ! E ! P2 = buffer length address or AST acmode or PID or 0 ! @ ! P3 = entry size of a single buffer element or 0) EXTERNAL LONG FUNCTION SYS$SCHED & ( &$ LONG BY VALUE, &! ANY BY REF, &! ANY BY REF, & ANY BY REF & ) !  ! $SIGNAL_ARRAY_64 ! 0 ! Return address of 64-bit signal array. ! / ! $SIGNAL_ARRAY_64 mcharg, sigarg_64 ! 3 ! mcharg = address of the mechanism array ! > ! sigarg_64 = 64-bit pointer to which the address of( ! 64-bit signal array is written.3 EXTERNAL LONG FUNCTION SYS$SIGNAL_ARRAY_64 & ( &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! $AVOID_PREEMPT ! - ! Enable/disable preemption avoidance ! ! ! $AVOID_PREEMPT enbflg ! 2 ! enbflg = Avoid preempt enable indicator1 ! 0 -> disable 1 -> enable ! 1 EXTERNAL LONG FUNCTION SYS$AVOID_PREEMPT & ( &# BYTE BY VALUE & ) ! $SETUP_AVOID_PREEMPT ! ; ! Enable/disable preemption avoidance underpinnings ! ' ! $SETUP_AVOID_PREEMPT enbflg ! 2 ! enbflg = Avoid preempt enable indicator1 ! 0 -> disable 1 -> enable ! 7 EXTERNAL LONG FUNCTION SYS$SETUP_AVOID_PREEMPT & ( &# BYTE BY VALUE & ) !  ! $ICC_ACCEPT ! " ! Accept an ICC connection ! > ! $ICC_ACCEPT Conn_Handle ,[Accept_Buf] ,[Accept_Len]! ! ,[User_Context] ,[Flags] ! D ! Conn_Handle = Handle value associated with the Connection4 ! Accept_Buf = Address of user Accept data1 ! Accept_Len = Length of the accept data- ! User_Context = User context value" ! Flags = Flags argument ! . EXTERNAL LONG FUNCTION SYS$ICC_ACCEPT & ( &$ LONG BY VALUE, &" LONG BY REF, &$  LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $ICC_CLOSE_ASSOC ! " ! Close an ICC association ! ( ! $ICC_CLOSE_ASSOC Assoc_Handle ! F ! Assoc_Handle = Handle representing the Association to close ! 3 EXTERNAL LONG FUNCTION SYS$ICC_CLOSE_ASSOC & ( &# LONG BY VALUE & ) !  ! $ICC_CONNECT[W]  ! , ! Initiate an ICC Connection attempt ! D ! $ICC_CONNECT[W] IOS_ICC ,[astadr] ,[astprm] ,assoc_handle2 ! ,conn_hndl_A ,remote_assoc ,[remote_node]4 ! ,[user_context] ,[conn_buf] ,[conn_buf_len]7 ! ,[return_buf] ,[return_buf_len] ,[retlen_addr] ! ,[flags] ! B ! ios_icc = address of a IOS_ICC (Connect version)I ! astadr = address of entry mask of users' completion AST ! routineF ! a stprm = value to be passed to the AST routine as an ! argumentH ! Assoc_Handle = Handle representing the Association to closeE ! Conn_Hndl_A = Address to return the handle value of the ! opened ConnectionI ! Remote_Assoc = Pointer to a descriptor describing the remote ! association name stringI ! Remote_Node = Pointer to a descriptor describing the remote ! node name string. ! User_Context = User conte xt valueG ! Conn_Buf = Address of a buffer containing Connect dataB ! Conn_Buf_Len = Length of the connect data in Conn_Buf? ! Return_Buf = Address of a buffer for return dataJ ! Return_Buf_Len = Length of the buffer available for return dataG ! Retlen_Addr = Address to receive the actual length of any ! return data' ! Flags = Flags argument ! / EXTERNAL LONG FUNCTION SYS$ICC_CONNECT & ( &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &#  LONG BY VALUE & )0 EXTERNAL LONG FUNCTION SYS$ICC_CONNECTW & ( &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_DISCONNECT[W] ! ' ! Initiate an ICC Disconnection ! C ! $ICC_DISCONNECT[W] conn_handle ,IOSB ,[astadr] ,[astprm]% ! ,[disc_buf] ,[disc_buf_len] ! K ! Conn_Handle = Handle representing the Connection to terminateA ! iosb = Address of a quadword I/O status blockI  ! astadr = Address of entry mask of users' completion AST ! routineF ! astprm = Value to be passed to the AST routine as an ! argumentD ! Disc_Buf = Address of an optional buffer containing ! Disconnect dataE ! Disc_Buf_Len = Length of the disconnect data in Disc_Buf ! 2 EXTERNAL LONG FUNCTION SYS$ICC_DISCONNECT & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )3 EXTERNAL LONG FUNCTION SYS$ICC_DISCONNECTW & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_REJECT ! " ! Reject an ICC connection ! B ! $ICC_REJECT Conn_Handle ,[Reject_Buf] ,[Reject_Buf_Len] ! ,[Reason] ! D ! Conn_Handle = Handle value associated with the Connection< ! Reject_Buf = Address of optional user Reject data5 ! Reject_Buf_Len = Length of the reject data- ! Reason = Reason for the rejection ! . EXTERNAL LONG FUNCTION SYS$ICC_REJECT & ( &$  LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $ICC_OPEN_ASSOC ! ! ! Open an ICC association ! E ! $ICC_OPEN_ASSOC assoc_handle ,[assoc_name] ,[logical_name]1 ! ,[logical_table] ,[conn_rtn] ,[disc_rtn]- ! ,[recv_rtn] ,[maxflowbufcnt] ,[prot] ! B ! Assoc_Handle = Address to return the handlevalue of the !  opened AssociationC ! Assoc_Name = Pointer to a descriptor describing the" ! association name stringI ! Logical_Name = Pointer to a descriptor describing a logical2 ! name for use by the ICC simple registryJ ! Logical_Table = Pointer to a descriptor describing a logical8 ! name table for use by the ICC simple registry@ ! Conn_Rtn = Address of the User's Connect AST routineC ! Disc_Rtn = Address of the User's Dis connect AST routine@ ! Recv_Rtn = Address of the User's receive AST routineF ! Maxflowbufcnt = Maximum number of pending inbound message ! buffers5 ! Prot = Default protection for association ! 2 EXTERNAL LONG FUNCTION SYS$ICC_OPEN_ASSOC & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $ICC_RECEIVE[W] ! - ! Receive data over an ICC connection ! C ! $ICC_RECEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,recv_buf ,recv_buf_len ! G ! conn_handle = Handle representing the Connection the data" ! is being transferred overF ! ios_icc  = Address of an I/O status block (16-byte ICC" ! RECEIVE layout)I ! astadr = Address of entry mask of users' completion AST ! routineF ! astprm = Value to be passed to the AST routine as an ! argumentC ! recv_buf = Address of a buffer to receive the dataC ! recv_buf_len = Length of the buffer receiving the data ! / EXTERNAL LONG FUNCTION SYS$ICC_RECEIVE & ( &$  LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )0 EXTERNAL LONG FUNCTION SYS$ICC_RECEIVEW & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &#  LONG BY VALUE & ) !  ! $ICC_REPLY[W] ! - ! Send a reply over an ICC connection ! A ! $ICC_REPLY[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,reply_buf ,reply_len ! G ! conn_handle = Handle representing the Connection the data is# ! being transferred overC ! ios_icc = Address of an I/O status block (8-byte ICC ! REPLY layout)F ! astadr = Address of entry mask of users' completion AST ! routineC ! astprm = Value to be passed to the AST routine as an ! argument@ ! reply_buf = Address of a buffer containing the data8 ! reply_len = Length of the data in reply_buf ! - EXTERNAL LONG FUNCTION SYS$ICC_REPLY & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &"  LONG BY REF, &# LONG BY VALUE & ). EXTERNAL LONG FUNCTION SYS$ICC_REPLYW & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_TRANSCEIVE[W] ! " ! ICC transceive operation ! G ! $ICC_TRANSCEIVE[W] con n_handle ,ios_icc ,[astadr] ,[astprm] ! ,send_buf ,send_len ! G ! conn_handle = Handle representing the Connection the data is# ! being transferred overF ! ios_icc = Address of an I/O status block (20-byte ICC% ! TRANSCEIVE layout )F ! astadr = Address of entry mask of users' completion AST ! routineC ! astprm = Value to be passed to the AST routine as an ! argumentB ! send_buf = Address of a buffer conta in ing the data7 ! send_len = Length of the data in send_buf ! 2 EXTERNAL LONG FUNCTION SYS$ICC_TRANSCEIVE & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )3 EXTERNAL LONG FUNCTION SYS$ICC_TRANSCEIVEW &  ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_TRANSMIT[W] ! . ! Transmit data over an ICC connection ! D ! $ICC_TRANSMIT[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,send_buf ,send_len ! G ! conn_handle = Handle repres enting the Connection the data is# ! being transferred over> ! ios_icc = Address of a quadword I/O status blockF ! astadr = Address of entry mask of users' completion AST ! routineC ! astprm = Value to be passed to the AST routine as an ! argumentB ! send_buf = Address of a buffer conta in ing the data7 ! send_len = Length of the data in send_buf ! 0 EXTERNAL LONG FUNCTION SYS$ICC_TRANSMIT & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )1 EXTERNAL LONG FUNCTION SYS$ICC_TRANSMITW & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) ! $PERSONA_QUERY ! $ ! Query Persona Information ! + ! $PERSONA_QUERY persona, itmlst ! L ! persona = address of longword holding persona identifier ! ; ! itmlst = address of list of item descriptors !  ! 1 EXTERNAL LONG FUNCTION SYS$PERSONA_QUERY & ( &" LONG BY REF, & ANY BY REF & ) ! $PERSONA_FIND ! - ! Locate Persona With Characteristic ! * ! $PERSONA_FIND persona, itmlst ! L ! persona = address of longword holding persona identifier ! ; ! itmlst = address of list of item descriptors ! B ! contxt = address of a context long word (used for iterative* ! calls or a multi-entry item list) !  !  ! 0 EXTERNAL LONG FUNCTION SYS$PERSONA_FIND & ( &" LONG BY REF, &! ANY BY REF, &! LONG BY REF & ) ! $PERSONA_RESERVE ! . ! Reserve Persona Slot For Delegation ! 0 ! $PERSONA_RESERVE clientPID, persona ! F ! clientPID = address of longword holding client's PID ! L ! persona = address of longword holding persona identifier !  ! 3 EXTERNAL LONG FUNCTION SYS$PERSONA_RESERVE & ( &" LONG BY REF, &! LONG BY REF & ) ! $PERSONA_DELEGATE ! . ! Delegate Persona To Another Process ! ; ! $PERSONA_DELEGATE serverPID, persona, input_id ! F ! serverPID = address of longword holding server's PID ! _ ! persona = address of longword holding persona identifier reserved by server ! X ! input_id = address of longword holding persona identifier to delegate ! 4 EXTERNAL LONG FUNCTION SYS$PERSONA_DELEGATE & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )" ! $PERSONA_EXTENSION_LOOKUP ! ( ! Find Extension on the system ! A ! $PERSONA_EXTENSION_LOOKUP extensionName, extensionID ! B ! extensionName = address of string descriptor of name ! F ! extensionID = address of longword the ID is written to !  ! < EXTERNAL LONG FUNCTION SYS$PERSONA_EXTENSION_LOOKUP & ( &% STRING BY DESC, &! LONG BY REF & )" ! $PERSONA_CREATE_EXTENSION ! # ! Create Persona Extension ! R ! $PERSONA_CREATE_EXTENSION persona, extensionID, buffer, length, flags ! L ! persona = address of longword holding persona identifier ! M ! extensionID = address of longword holding extension to create ! 3 ! buffer = address of TLV buffer ! N ! length = address of longword containing TLV size in bytes ! 9 ! flags = address of a flags longword !  ! < EXTERNAL LONG FUNCTION SYS$PERSONA_CREATE_EXTENSION & ( &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )" ! $PERSONA_DELETE_EXTENSION ! . ! Delete An Extension From A Persona ! ; ! $PERSONA_DELETE_EXTENSION persona, extensionID ! L ! persona = address of longword holding persona identifier ! M ! extensionID = address of longword holding extension to delete !   ! < EXTERNAL LONG FUNCTION SYS$PERSONA_DELETE_EXTENSION & ( &" LONG BY REF, &! LONG BY REF & ) ! $PERSONA_MODIFY !  ! Modify Persona ! , ! $PERSONA_MODIFY persona, itmlst ! L ! persona = address of longword holding persona identifier ! ; ! itmlst = address of list of item descriptors !  ! 2 EXTERNAL LONG FUNCTION SYS$PERSONA_MODIFY & ( &" LONG BY REF, & ANY BY REF & ) ! " ! $SET_PROCESS_PROPERTIES[W] ! 6 ! Set a simple value associated with a process ! D ! $SET_PROCESS_PROPERTIES[W] mbz1 ,pidadr ,prcnam ,property/ ! ,value, prev_value [,bufsiz] [,bufcnt] ! A ! mbz1 = Reserved for future use by Digital. Must ! be specified as 0.G ! pidadr = For system servi ce logging, the address of 5 ! the PID of the target process. Otherwise, 0.F ! prcnam = For system service logging, the address of2 ! the process name descriptor of the target' ! process. Otherwise, must be 0.I ! property = A constant that selects which property to set@ ! value = A quadword value to set the property toL ! prev_value = The address of a quadword which will receive the' ! previous value of the pro pertyR ! bufsiz = For PPROP$C_SS_ENABLE, the size in bytes of a log bufferL ! bufcnt = For PPROP$C_SS_ENABLE, the number of log buffersG ! flags = for PPROP$C_SS_ENABLE, the associated flags ! : EXTERNAL LONG FUNCTION SYS$SET_PROCESS_PROPERTIES & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &.! BASIC$QUADWORD BY VALUE, &.!  BASIC$QUADWORD BY VALUE, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ); EXTERNAL LONG FUNCTION SYS$SET_PROCESS_PROPERTIESW & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &, BASIC$QUADWORD BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! SYS$ACQUIRE_GALAXY_LOCK ! 5 ! $ACQUIRE_GALAXY_LOCK lock_handle,timeout,flags ! " ! lock_handle - GLOCK handle; ! timeout - timeout value in 10 microsecond units ! flags - flags7 EXTERNAL LONG FUNCTION SYS$ACQUIRE_GALAXY_LOCK & ( &.!  BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! SYS$CREATE_GALAXY_LOCK ! O ! $CREATE_GALAXY_LOCK lcktbl_handle,name,size,timeout,ipl,rank,lock_handle ! G ! lcktbl_handle - handle of lock table in which to create the lockJ ! name - pointer to name of lock; 16 bytes. ASCIZ or Descriptor ! size - size of lockB ! timeout - wait timeout value in 10 micro second unitsK ! ipl - IPL to raise to when lock is acquired (kernel mode only) ! rank - rank of lock" ! lock_handle - lock handle !  ! 6 EXTERNAL LONG FUNCTION SYS$CREATE_GALAXY_LOCK & ( &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &+ B ASIC$QUADWORD BY REF & )$ ! SYS$CREATE_GALAXY_LOCK_TABLE ! d ! $CREATE_GALAXY_LOCK_TABLE name,accmode,section_size,section_type,prot,lock_size,lcktbl_handle ! O ! name - pointer to name of section; 16 bytes. ASCIZ or Descriptor ! accmode - access mode9 ! section_size - virtual size of the section (bytes)= ! section_type - glcktbl$c_process | glcktbl$c_system ! prot - page protection0 ! lock_size - size of locks in the section+ ! lcktbl_handle - handle of lock table ! < EXTERNAL LONG FUNCTION SYS$CREATE_GALAXY_LOCK_TABLE & ( &% STRING BY DESC, &$ LONG BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! SYS$DELETE_GALAXY_LOCK ! & ! $DELETE_GALAXY_LOCK lock_handle ! " ! lock_handle - lock handle ! 6 EXTERNAL LONG FUNCTION SYS$DELETE_GALAXY_LOCK & ( &-! BASIC$QUADWORD BY VALUE & )$ ! SYS$DELETE_GALAXY_LOCK_TABLE ! . ! $DELETE_GALAXY_LOCK_TABLE lcktbl_handle ! + ! lcktbl_handle - handle of lock table ! < EXTERNAL LONG FUNCTION SYS$DELETE_GALAXY_LOCK_TABLE & ( &# LONG BY VALUE &  ) ! SYS$GET_GALAXY_LOCK_INFO ! ^ ! $GET_GALAXY_LOCK_INFO lcktbl_handle,name,timeout,size,ipl,rank,lock_handle, name_length ! " ! lock_handle - lock handleF ! name - pointer to name of lock; 16 bytes, zero terminatedB ! timeout - wait timeout value in 10 micro second units ! size - size of lockK ! ipl - IPL to raise to when lock is acquired (kernel mode only) ! rank - rank of lock$ ! flags - flags  from lockV ! name_length - pointer to a word where the length of the name will be returned ! 8 EXTERNAL LONG FUNCTION SYS$GET_GALAXY_LOCK_INFO & ( &.! BASIC$QUADWORD BY VALUE, &$ STRING BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &3  OPTIONAL BASIC$QUADWORD BY REF & ) ! SYS$GET_GALAXY_LOCK_SIZE ! / ! $GET_GALAXY_LOCK_SIZE min_size, max_size ! / ! min_size - minimum size of a galaxy lock/ ! max_size - maximum size of a galaxy lock ! 8 EXTERNAL LONG FUNCTION SYS$GET_GALAXY_LOCK_SIZE & ( &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! SYS$INIT_GALAXY_LOCK ! B ! $INIT_GALAXY_LOCK va,name,size,timeout,ipl,rank,lock_handle ! 6 ! va - local va of memory to be initializedF ! name - pointer to name of lock; 16 bytes, zero terminated ! size - size of lockB ! timeout - wait timeout value in 10 micro second unitsK ! ipl - IPL to raise to when lock is acquired (kernel mode only) ! rank - rank of lock" ! lock_handle - lock handle !  ! 4 EXTERNAL LONG FUNCTION SYS$INIT_GALAXY_LOCK & ( &, BASIC$QUADWORD BY REF, &$ STRING BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & )" ! SYS$INIT_GALAXY_LOCK_TABLE ! i ! $INIT_GALAXY_LOCK_TABLE region_va,reg_phys_size,reg_virt_size,section_type,lock_size,lcktbl_handle ! J ! regio n_va - local va of shared memory region where the locks reside: ! reg_phys_size - physical size of the region (bytes)9 ! reg_virt_size - virtual size of the region (bytes)= ! section_type - glcktbl$c_process | glcktbl$c_system0 ! lock_size - size of locks in the section+ ! lcktbl_handle - handle of lock table ! : EXTERNAL LONG FUNCTION SYS$INIT_GALAXY_LOCK_TABLE & ( &, BASIC$QUADWORD BY REF, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! SYS$RELEASE_GALAXY_LOCK ! ' ! $RELEASE_GALAXY_LOCK lock_handle ! " ! lock_handle - lock handle ! 7 EXTERNAL LONG FUNCTION SYS$RELEASE_GALAXY_LOCK & ( &-! BASIC$QUADWORD BY VALUE & ) ! SYS$RESET_GALAXY_LOCK ! % ! $RESET_GALAXY_LOCK lock_handle ! " ! lock_handle - lock handle, ! lock_va - local address of lock ! 5 EXTERNAL LONG FUNCTION SYS$RESET_GALAXY_LOCK & ( &.! BASIC$QUADWORD BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! SYS$WAIT_ON_GLOCK ! ) ! $WAIT_ON_GLOCK lock_handle,timeout ! ! lock_handle - lock handleC ! timeout - timeout value; overrides the value in the lock ! 1 EXTERNAL LONG FUNCTION SYS$WAIT_ON_GLOCK & ( &.! BASIC$QUADWORD BY VALUE, &# LONG BY VALUE & ) ! SYS$NOTIFY_GLOCK_WAITERS ! 0 ! $NOTIFY_GLOCK_WAITERS lock_handle,waiters ! ! lock_handle - lock handleG ! waiters - bitmask of galaxy nodes with waiters for this lock ! 8 EXTERNAL LONG FUNCTION SYS$NOTIFY_GLOCK_WAITERS &  ( &.! BASIC$QUADWORD BY VALUE, &-! BASIC$QUADWORD BY VALUE & ) ! $QIOSERVER ! + ! QIOserver Control and Information ! 9 ! $QIOSERVER [efn], func, [context], [itmlst],2 ! ($QIOSERVERW) [iosb], [astadr], [astprm] ! @ ! efn = event flag to be set when request completes= ! func = code specifying function to be performedF ! context = address of a longword containing a context numberL ! itmlst = address of a list of item descriptors for the operationS ! iosb = address of a quadword status block to receive the final statusR ! astadr = address of an ast routine to be called when request completesB ! astprm = 32-bit (VAX) or 64-bit (ALPHA) ast parameter  ! - EXTERNAL LONG FUNCTION SYS$QIOSERVER & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &"  LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ). EXTERNAL LONG FUNCTION SYS$QIOSERVERW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $DEVICE_PATH_SCAN ! & ! SCAN Device Path Information ! K ! $DEVICE_PATH_SCAN [chan] ,[devnam] ,itmlst ,[contxt] ,[nullarg] ! A ! chan = number of a channel assigned to the device orD ! 0 if device is specified by the devnam parameter ! E ! devnam = address of device name or logical name descriptor ! 9 ! itmlst = address of a list of item descriptors ! _ ! contxt = address of long word used to indicate current position of $DEVICE_PATH_SCAN ! & ! nullarg = reserved argument !  ! 4 EXTERNAL LONG FUNCTION SYS$DEVICE_PATH_SCAN & ( &$ WORD BY VALUE, &% STRING BY DESC, &! ANY BY REF, &" LONG BY REF, &+ BASIC$QUADWORD BY REF & ) ! $SET_DEVICE ! $SET_DEVICEW ! ! SET Device Information ! O ! $SET_DEVICE [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr],3 ! $SET_DEVICEW [astprm] ,[nullarg] ! 6 ! efn = event flag to be set at completion ! A ! chan = number of a channel assigned to the device orD ! 0 if device is specified by the devnam parameter ! E ! devnam = address of device name or logical name descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine ! & ! nullarg = reserved argument !  ! . EXTERNAL LONG FUNCTION SYS$SET_DEVICE & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & )/ EXTERNAL LONG FUNCTION SYS$SET_DEVICEW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$  LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) !  ! $IO_TRANSITION ! $IO_TRANSITIONW !  ! IO State Transitions ! _ ! $IO_TRANSITION tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm_ ! $IO_TRANSITIONW tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm !  ! Parameters:F ! tran_code - Transition code of operation to be initiated= ! devnam - CPU ID of processor to affected= ! nodename - ASCII descriptor name equivalent to node ID. ! node_id - Galactic node IDK ! flags - Quadword pointer to longword behavioral flagsK ! efn - Event flag number for completion notificationL ! iosb - IOSB block address for completion notificationG ! astadr - Address of AST routine name on completionK ! astprm  - AST parameter to be passed back on completion& ! contxt - Context longword ! 1 EXTERNAL LONG FUNCTION SYS$IO_TRANSITION & ( &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &! LONG BY REF & )2 EXTERNAL LONG FUNCTION SYS$IO_TRANSITIONW & ( &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &! LONG BY REF & ) ! SYS$MAP_UIC ! ! ! $MAP_UIC uic, uid, gid ! : ! uic - address of the UIC to look up mapping for; ! uid - address of cell to write matching UID into; ! gid - address of cell to write matching GID into ! + EXTERNAL LONG FUNCTION SYS$MAP_UIC & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SYS$MAP_UID ! . ! $MAP_UIC uid, uic, username, retlen ! : ! uid - address of the UID to look up mapping for; ! uid - address of cell to write matching UIC intoT ! username - address of a string descriptor to write matching username intoN ! retlen - address of a word to write the length of the username into ! + EXTERNAL LONG FUNCTION SYS$MAP_UID & ( &" LONG BY REF, &"  LONG BY REF, &% STRING BY DESC, &! WORD BY REF & )7 ! SYS$SET_SESSION_ID - Create new POSIX session !  ! $SET_SESSION_ID sid ! P ! sid - address of a longword written with the newly created Session ID. ! 2 EXTERNAL LONG FUNCTION SYS$SET_SESSION_ID & ( &! LONG BY REF & )F ! SYS$SET_PROCESS_GROUP - Create or change P OSIX process group ! / ! $SET_PROCESS_GROUP pid, pgid, retpgid ! @ ! pid - address of a PID that is the target of this callX ! pgid - address of a longword Process Group ID (also a PID) to have target joinW ! retpgid - address of a longword written with PGID of a new group (also a PID) ! 5 EXTERNAL LONG FUNCTION SYS$SET_PROCESS_GROUP & ( &" LONG BY REF, &" LONG BY REF, &!  LONG BY REF & ): ! SYS$SET_POSIX_IDS - Set POSIX UID and GID values ! & ! $SET_POSIX_IDS itmlst, flags ! F ! itlmst - address of an item list 3 of POSIX ID values to set1 ! flags - flags signed longword, by value ! 1 EXTERNAL LONG FUNCTION SYS$SET_POSIX_IDS & ( &" LONG BY REF, &# LONG BY VALUE & )= ! SYS$LOG_SYSTEM_SERVICE - Log system serv ice request ! ` ! $LOG_SYSTEM_SERVICE logtype, [bufseqnum], [logentry], [service_status], [service_ra], 3 ! [arglist_add],[vector_index], [prev_mode] ! = ! logtype - type of log entry, e.g., SSLOG$C_SS_ENTRYM ! bufseqnum - address to store/fetch longword sequence number assoc.  ! with log's bufferK ! logentry - address to fetch/store 64-bit log buffer entry addressD ! service_status - completion status of service being loggedL  ! service_ra - address corresponding to return address from call to  ! service being loggedR ! arglist_add - address of VAX-style argument list to service being loggedT ! vector_index - position of system service vector in SYS$PUBLIC_VECTORS of  ! service being loggedE ! prev_mode - mode from which service being logged was called6 EXTERNAL LONG FUNCTION SYS$LOG_SYSTEM_SERVICE & ( &$ LONG BY VALUE, &*  OPTIONAL LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $GETLMI ! $GETLMIW ! , ! Get License Management Information ! B ! $GETLMI efn, contxt, 0, itmlst, iosb, astadr, astprmB ! $GETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm ! Inputs:> ! efn - Event flag number. (optional, by value)l ! contxt - Context block used for subsequent calls for wildcard license type. (optional by reference)p ! reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor)u ! itmlst - Item list containing information to fully describe the requested function. (required, by reference)< ! iosb - I/O status block. (optional, by reference)i ! ast adr - AST routine to be delivered and executed in the caller's mode. (optional, by reference)I ! astprm - AST parameter for the AST routine. (optional, by value) ! * EXTERNAL LONG FUNCTION SYS$GETLMI & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &-! BASIC$QUADWORD BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETLMIW & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &-! BASIC$QUADWORD BY VALUE & ) !  ! $SETLMI ! $SETLMIW ! , ! Set License Management Information ! B ! $SETLMI efn, contxt, 0, itmlst, iosb, astadr, astprmB ! $SETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm ! Inputs:> ! efn - Event flag number. (optional, by value)l ! contxt - Context block used for subsequent calls for wildcard license type. (optional by reference)p ! reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor)u ! itmlst - Item list containing information to fully desc ribe the requested function. (required, by reference)< ! iosb - I/O status block. (optional, by reference)i ! astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference)I ! astprm - AST parameter for the AST routine. (optional, by value) ! * EXTERNAL LONG FUNCTION SYS$SETLMI & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &!  ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &-! BASIC$QUADWORD BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$SETLMIW & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &-! BASIC$QUADWORD BY VALUE & ) !  ! $IEEE_SET_ROUNDING_MODE ! $IEEE_SET_PRECISION_MODE ! Y ! Set and retrieve the IEEE rounding/precision mode for the current kernel thread ! 7 ! $IEEE_SET_ROUNDING_MODE( value, prev_value ) ! X ! value = A longword constant specifying the rounding mode for the threadL ! prev_value = The address of a longword which will receive the ! previous rounding mode ! : EXTERNAL LONG FUNCTION SYS$IEEE_SET_ROUNDING_MODE & ( &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ); EXTERNAL LONG FUNCTION SYS$IEEE_SET_PRECISION_MODE & ( &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! $DEBUG_BREAK ! - ! Manipulate hardware debug resources ! M ! $DEBUG_BREAK func, handle, addr, addr_mask, mode_mask, access_mask ! * ! func = what function to perform ! % ! handle = address of handle ! ( ! addr = address to be debugged ! @ ! addr_mask = which bits in the address are significant ! A ! mode_mask = which mode(s) are to generate an exception ! ; ! access_mask = are we monitoring reads or writes?/ EXTERNAL LONG FUNCTION SYS$DEBUG_BREAK & ( &.! BASIC$QUADWORD BY VALUE, &,  BASIC$QUADWORD BY REF, &" LONG BY REF, &.! BASIC$QUADWORD BY VALUE, &.! BASIC$QUADWORD BY VALUE, &# LONG BY VALUE & ) ! $POWER_CONTROL ! B ! Manipulate the platform's power and performance settings ! 4 ! $DEBUG_BREAK power_setting, current_value ! X ! power_setting = a quadword value to specify the new power/performance setting ! [ !  current_value = the address of a quadword for the service to return the current ! ! setting (optional)1 EXTERNAL LONG FUNCTION SYS$POWER_CONTROL & ( &.! BASIC$QUADWORD BY VALUE, &3 OPTIONAL BASIC$QUADWORD BY REF & )ww" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *3 ! COPYRIGHT (c) 1988, 1994, 1995 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHU SETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! 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 *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! *************************************************************************** ! STR$ADD ! ! ! Add Two Decimal Strings ! - ! The Add Two Decimal Strings routine- ! adds two decimal strings of digits. ! ' EXTERNAL LONG FUNCTION str$add & ( &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &%  STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$ANALYZE_SDESC ! # ! Analyze String Descriptor ! = ! The Analyze String Descriptor routine extracts the 1 ! length and starting address of the data6 ! for a variety of string descriptor classes. ! 1 EXTERNAL WORD FUNCTION str$analyze_sdesc &  ( &% STRING BY DESC, &" WORD BY REF, &! LONG BY REF & ) ! STR$ANALYZE_SDESC_64 ! @ ! Analyze String Descriptor (quadword output parameters) ! = ! The Analyze String Descriptor routine extracts the 1 ! length and starting address of the data6 ! for a variety of string descriptor classes. ! 4 EXTERNAL LONG FUNCTION str$analyze_sdesc_64 &  ( &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &) OPTIONAL WORD BY REF & ) ! STR$APPEND !  ! Append String ! K ! The Append String routine appends a source string to the end of aJ ! destination string. The destination string must be a dynamic or! ! varying-length string. ! * EXTERNAL LONG FUNCTION str$append & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$CASE_BLIND_COMPARE ! 0 ! Compare Strings Without Regard to Case ! P ! The Compare Strings Without Regard to Case routine compares two input P ! strings of any supported class and data type without regard to whether? ! the alphabetic characters are uppercase or lowercase. ! 6 EXTERNAL LONG FUNCTION str$case_blind_compare & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$COMPARE !  ! Compare Two Strings ! 7 ! The Compare Two Strings routine compares the $ ! contents of two strings. ! + EXTERNAL LONG FUNCTION str$compare & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$COMPARE_EQL ! * ! Compare Two Strings for Equality ! E ! The Compare Two Strings for Equality routine, compares two C ! strings to see if they have the same length and contents.F ! Uppercase and lowercase characters are not considered equal. ! / EXTERNAL LONG FUNCTION str$compare_eql & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$COMPARE_MULTI !  L ! Compare Two Strings for Equality Using Multinational Character Set ! L ! The Compare Two Strings for Equality Using Multinational CharacterK ! Set routine compares two character strings for equality using the* ! DEC Multinational character set. ! 1 EXTERNAL LONG FUNCTION str$compare_multi & ( &% STRING BY DESC, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &#  LONG BY VALUE & ) ! STR$CONCAT ! ) ! Concatenate Two or More Strings ! P ! The Concatenate Two or More Strings routine concatenates all specified< ! source strings into a single destination string. ! * EXTERNAL LONG FUNCTION str$concat & ( &% STRING BY DESC, & STRING BY DESC, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! STR$COPY_DX ! K ! Copy a Source String Passed by Descriptor to a Destination String ! ; ! The Copy a Source String Passed by Descriptor to A ! a Destination String routine copies a source string to 0 ! a destination string. Both strings are! ! passed by descriptor. ! + EXTERNAL LONG FUNCTION str$copy_dx & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$COPY_R ! J ! Copy a Source String Passed by Reference to a Destination String ! N ! The Copy a Source String Passed by Reference to a Destination StringM ! routine copies a source string passed by reference to a destination ! string. ! * EXTERNAL LONG FUNCTION str$copy_r & ( &% STRING BY DESC, &" WORD BY REF, &# STRING BY REF & ) ! STR$COPY_R_64 ! J ! Copy a Source String Passed by Reference to a Destination String ! N ! The Copy a Source String Passed by Reference to a Destination StringM ! routine copies a source string passed by reference to a destination ! string. ! - EXTERNAL LONG FUNCTION str$copy_r_64 & ( &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &# STRING BY REF & ) ! STR$DIVIDE ! $ ! Divide Two Decimal Strings ! M ! The Divide Two Decimal Strings routine divides two decimal strings. ! * EXTERNAL LONG FUNCTION str$divide & ( &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$DUPL_CHAR ! $ ! Duplicate Character Times ! H ! The Duplicate Character empty Times routine generates a stringM ! containing n duplicates of the input character. If the destinationJ ! string is an empty dynamic string descriptor, STR$DUPL_CHAR will- ! allocate and initialize the string. ! - EXTERNAL LONG FUNCTION str$dupl_char & ( &% STRING BY DESC, &* OPTIONAL LONG BY REF, &# STRING BY REF & ) ! STR$ELEMENT ! - ! Extract Delimited Element Substring ! E ! The Extract Delimited Element Substring routine extracts anD ! element from a string in which the elements are separated # ! by a specified delimiter. ! + EXTERNAL LONG FUNCTION str$element & ( &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC &  ) ! STR$FIND_FIRST_IN_SET ! 5 ! Find First Character in a Set of Characters ! L ! The Find First Character in a Set of Characters routine searches aL ! string one character at a time, from left to right, comparing eachJ ! character in the string to every character in a specified set of0 ! characters for which it is searching. ! 5 EXTERNAL LONG FUNCTION str$find_first_in_set & ( &%  STRING BY DESC, &$ STRING BY DESC & )# ! STR$FIND_FIRST_NOT_IN_SET ! 9 ! Find First Character that Does Not Occur in Set ! N ! The Find First Character that Does Not Occur in Set routine searchesM ! a string, comparing each character to the characters in a specifiedL ! set of characters. The string is searched character by character,P ! from left to right. STR$FIND_FIRST_NOT_IN_SET returns the position ofJ ! the first character in the string that does not match any of the8 ! characters in the selected set of characters. ! 9 EXTERNAL LONG FUNCTION str$find_first_not_in_set & ( &% STRING BY DESC, &$ STRING BY DESC & )" ! STR$FIND_FIRST_SUBSTRING ! . ! Find First Substring in Input String ! : ! The Find First Substring in Input St ring routine: ! finds the first substring (in a provided list of3 ! substrings) occurring in a given string. ! 8 EXTERNAL LONG FUNCTION str$find_first_substring & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, & OPTIONAL STRING BY DESC,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &) ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! STR$FREE1_DX ! ! ! Free One Dynamic String ! M ! The Free One Dynamic String routine deallocates one dynamic string. ! , EXTERNAL LONG FUNCTION str$free1_dx & ( &$ STRING BY DESC & ) ! STR$GET1_DX ! % ! Allocate One Dynamic String ! N ! The Allocate One Dynamic String routine allocates a specified numberJ ! of bytes of dynamic virtual memory to a specified dynamic string ! descriptor. ! + EXTERNAL LONG FUNCTION str$get1_dx & ( &" WORD BY REF, &$ STRING BY DESC & ) ! STR$GET1_DX_64 ! : ! Allocate One Dynamic String (quadword parameter) ! N ! The Allocate One Dynamic String routine allocates a specified numberJ ! of bytes of dynamic virtual memory to a specified dynamic string ! descriptor. ! . EXTERNAL LONG FUNCTION str$get1_dx_64 & ( &, BASIC$QUADWORD BY REF, &$ STRING BY DESC & ) ! STR$LEFT ! ) ! Extract a Substring of a String ! N ! The Extract a Substring of a String routine copies a substring of a H ! source string into a destination string. The relative starting- ! position in the source string is 1. ! ( EXTERNAL LONG FUNCTION str$left & ( &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! STR$LEN_EXTR ! ) ! Extract a Substring of a String ! K ! The Extract a Substring of a String routine copies a substring of 4 ! a source string into a destination string. ! , EXTERNAL LONG FUNCTION str$len_extr & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! STR$MATCH_WILD ! & ! Match Wildcard Specification ! O ! The Match Wildcard Specification routine is used to compare a patternO ! string that includes wildcard characters with a candidate string. ItK ! returns a condition value of STR$_MATCH if the strings match and 8 ! line_break STR$_NOMATCH if they do not match. ! . EXTERNAL LONG FUNCTION str$match_wild & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$MUL ! & ! Multiply Two Decimal Strings ! R ! The Multiply Two Decimal Strings routine multipl ies two decimal strings. ! ' EXTERNAL LONG FUNCTION str$mul & ( &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$POSITION ! / ! Return R  elative Position of Substring ! L ! The Return Relative Position of Substring routine searches for theL ! first occurrence of a single substring within a source string. IfL ! STR$POSITION finds the substring, it returns the relative positionI ! of that substring. If the substring is not found, STR$POSITION ! returns a zero. ! , EXTERNAL LONG FUNCTION str$position & ( &% STRING BY DESC, &%  STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! STR$POS_EXTR ! ) ! Extract a Substring of a String ! M ! The Extract a Substring of a String routine copies a substring of a2 ! source string into a destination string. ! , EXTERNAL LONG FUNCTION str$pos_extr & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! STR$PREFIX !  ! Prefix a String ! D ! The Prefix a String routine inserts a source string at theC ! beginning of a destination string. The destination string, ! must be dynamic or varying length. ! * EXTERNAL LONG FUNCTION str$prefix & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$RE CIP ! ( ! Reciprocal of a Decimal String ! P ! The Reciprocal of a Decimal String routine takes the reciprocal of theM ! first decimal string to the precision limit specified by the secondE ! decimal string and returns the result as a decimal string. ! ) EXTERNAL LONG FUNCTION str$recip & ( &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &"  LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$REPLACE !  ! Replace a Substring ! E ! The Replace a Substring routine copies a source string to aG ! destination string, replacing part of the string with anotherL ! string. The substring to be replaced is s pecified by its starting ! and ending positions. ! + EXTERNAL LONG FUNCTION str$replace & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$RIGHT ! ) ! Extract a Substring of a String ! H ! The Extract a Substring of a String routine copies a substri ng9 ! of a source string into a destination string. ! ) EXTERNAL LONG FUNCTION str$right & ( &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! STR$ROUND ! , ! Round or Truncate a Decimal String ! N ! The Round or Truncate a Decimal String routine rounds or truncates aO ! decimal string to a specified number of significan t digits and places0 ! the result in another decimal string. ! ) EXTERNAL LONG FUNCTION str$round & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$TRANSLATE ! & ! Translate Matched Characters ! M ! The Translate Matched Characters routine successively compares eachK ! character in a source string to all characters in a match string.O ! If a source character has a match, the destination character is takenO ! from the translate string. Otherwise, STR$TRANSLATE moves the source. ! character to the destination string. ! - EXTERNAL LONG FUNCTION str$translate & ( &%  STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$TRIM ! ' ! Trim Trailing Blanks and Tabs ! J ! The Trim Trailing Blanks and Tabs routine copies a source stringH ! to a destination string and deletes the trailing blank and tab ! characters. ! ( EXTERNAL LONG FUNCTION str$trim & ( &%  STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! STR$UPCASE ! 4 ! Convert String to All Uppercase Characters ! A ! The Convert String to All Uppercase Characters routine 0 ! converts a source string to uppercase. ! * EXTERNAL LONG FUNCTION str$upcase & ( &% STRING BY DESC, &$ STRING BY DESC & )ww y" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.76 ! & ! FILE: STRMSG.MSG EDIT: JWN2008 ! R ! **************************************************************  ************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIAB  ILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM STRMSG.MSG( ! VERSION 1-004. SBL 22-APR-19816 ! 2-005 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982V ! 2-002 - DON'T DEFINE STR$_NORMAL HERE, DO IT IN STRMSGDEF.MAR. SBL 27-APR-19  81? ! 2-003 - ADD STR$_MATCH AND STR$_NOMATCH. RKR 2-JUL-1982< ! 2-004 - NOW DEFINE STR$_NORMAL HERE. SBL 24-AUG-1982I ! 2-006 - ADD DEFINITIONS FOR STR$_INVDELIM (INVALID DELIMITER) AND D ! STR$_NOELEM (NO ELEMENT FOUND), TWO NEW STATUS VALUES TO BE4 ! USED BY STR$ELEMENT. ROW 03-NOV-1986J ! 2-007 - ADD STR$_ERRFREDYN, USED WHEN LIB$FREE_VM BARFS ON A STRINGI ! WE ARE TRYING TO FREE. IE. THE USER HAS A CLASS_D DESCR POINTING" ! AT SOME ARBIT RARY MEMORY.H ! 2-008 - REMOVE FIRST LETTER CAPITALIZATION FROM ERROR MESSAGES.  ! JWN 26-APR-1987 ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! STR$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. !  !  ! MACRO-32 PROGRAMMING:  !  ! THE MACRO CALL: !  ! $STRDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - ! 8 ! THE FOLLOWING SEVERE ERRORS ARE ALWAYS SIGNALLED. ! = ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES???. DECLARE LONG CONSTANT STR$_FACILITY = 364 DECLARE LONG CONSTANT STR$_FATINTE  RR = 23921324 DECLARE LONG CONSTANT STR$_DIVBY_ZER = 23921404 DECLARE LONG CONSTANT STR$_ILLSTRCLA = 23921484 DECLARE LONG CONSTANT STR$_STRIS_INT = 23921564 DECLARE LONG CONSTANT STR$_WRONUMARG = 23921644 DECLARE LONG CONSTANT STR$_INSVIRMEM = 23921724 DECLARE LONG CONSTANT STR$_STRTOOLON = 23921804 DECLARE LONG CONSTANT STR$_ERRFREDYN = 2392188 ! ( ! THE FOLLOWING ARE WARNING ERRORS. !  ! ; GO IN STEPS OF 8.. DECLARE LONG CONSTAN T STR$_TRU = 23925762 DECLARE LONG CONSTANT STR$_NOMATCH = 23925843 DECLARE LONG CONSTANT STR$_INVDELIM = 23925921 DECLARE LONG CONSTANT STR$_NOELEM = 2392600 ! 3 ! THE FOLLOWING ARE QUALIFIED SUCCESS MESSAGES !  ! ; GO IN STEPS OF 8.4 DECLARE LONG CONSTANT STR$_NEGSTRLEN = 23930894 DECLARE LONG CONSTANT STR$_ILLSTRPOS = 23930974 DECLARE LONG CONSTANT STR$_ILLSTRSPE = 23931050 DECLARE LONG CONSTANT STR$_MATCH = 2393113 ! 7 !  DEFINE STR$_NORMAL TO BE THE SAME AS SS$_NORMAL. ! + DECLARE LONG CONSTANT STR$_NORMAL = 1 ! ww R0" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED  ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF >  %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  1 EXTERNAL LONG FUNCTION TBK$I64_SYMBOLIZE & ( & ANY BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &) ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & )ww  SMB$ROUTINES  SMG$ROUTINES SNAPEVTDEF  SOR$ROUTINESISTARLET STR$ROUTINES  TBK$ROUTINES!  TPU$ROUTINES UTIL$ROUTINES  VERSION_INFO" F" ! *** PREDECLARED TYPES : %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD* %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF : %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD* %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF < %IF %DECLARED # ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN$ G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > % %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF   ! - ! Text Processing Utility (TPU) Routines !  ! B ! TPU$CLEANUP - Free System Resources Used During TPU Session ! # ! status = TPU$CLEANUP (flags) !  ! flags - Cleanu& p options ! + EXTERNAL LONG FUNCTION TPU$CLEANUP & ( &! LONG BY REF & ) ! * ! TPU$CLIPARSE - Parse a command line ! 8 ! status = TPU$CLIPARSE (string, fileio, call_user) ! , ! string - Command line to be parsed= ! fileio - Bound Procedure Value for File I/O routine? ! call_user - Bound Procedure Value for call-user routine ! , EXTERNAL LONG FUNCTION TPU$CLIPARSE & ' ( &% STRING BY DESC, &! ANY BY REF, & ANY BY REF & ) ! 5 ! TPU$CLOSE_TERMINAL - Close Channel to Terminal ! % ! status = TPU$CLOSE_TERMINAL () ! 0 EXTERNAL LONG FUNCTION TPU$CLOSE_TERMINAL ! ( ! TPU$CONTROL - Pass Control to TPU !  ! status = TPU$CONTROL () ! ) EXTERNAL LONG FUNCTION TPU$CONTROL !  ! TPU$EDIT - Edit a file ! ( ! s( tatus = TPU$EDIT (input, output) ! ! input - Input file name! ! output - Output file name ! ( EXTERNAL LONG FUNCTION TPU$EDIT & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! ? ! TPU$EXECUTE_COMMAND - Execute One or More TPU Statements ! , ! status = TPU$EXECUTE_COMMAND (string) ! , ! string - TPU statement(s) to execute ! 3 EXTERNAL LONG FUNCTION TPU$EXEC) UTE_COMMAND & ( &$ STRING BY DESC & ) ! 9 ! TPU$EXECUTE_INIFILE - Execute Initialization Files ! & ! status = TPU$EXECUTE_INIFILE () ! 1 EXTERNAL LONG FUNCTION TPU$EXECUTE_INIFILE ! + ! TPU$FILEIO - Perform File Operations ! / ! status = TPU$FILEIO (code, stream, data) ! 4 ! code - Item code specifying a TPU function! ! stream - File description ! data - Stream data*  ! * EXTERNAL LONG FUNCTION TPU$FILEIO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 2 ! TPU$FILE_PARSE - Parse a File Specification ! ? ! status = TPU$FILE_PARSE (result_string, flags, filespec,? ! [default_spec], [related_spec]) ! 4 ! result_string - Resultant file specification; ! flags - Specifies components t+ o be returned3 ! filespec - File specification to parse2 ! default_spec - Default file specification2 ! related_spec - Related file specification ! . EXTERNAL LONG FUNCTION TPU$FILE_PARSE & ( &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & ) ! 8 ! TPU$FILE_SEARCH - Sea , rch for a File Specification ! @ ! status = TPU$FILE_SEARCH (result_string, flags, filespec,? ! [default_spec], [related_spec]) ! 4 ! result_string - Resultant file specification; ! flags - Specifies components to be returned3 ! filespec - File specification to parse2 ! default_spec - Default file specification2 ! related_spec - Related file specification ! / EXTERNAL LONG FUNCTION TPU$FILE_SEARCH - & ( &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & ) ! * ! TPU$HANDLER - TPU Condition Handler ! = ! status = TPU$HANDLER (signal_vector, mechanism_vector) ! ( ! signal_vector - Signal vector+ ! mechanism_vector - Mechanism vector ! + EXTERNAL LONG FUNCTION TPU$. HANDLER & ( &' LONG DIM() BY REF, && LONG DIM() BY REF & ) ! 2 ! TPU$INITIALIZE - Initialize TPU for Editing ! 5 ! status = TPU$INITIALIZE (callback [, user_arg) ! 9 ! callback - Callback routine bound procedure value ! user_arg - User argument ! . EXTERNAL LONG FUNCTION TPU$INITIALIZE & ( &! ANY BY REF, &) OPTIONAL LONG BY / REF & ) ! ) ! TPU$MESSAGE - Write Message String ! $ ! status = TPU$MESSAGE (string) ! " ! string - Formatted message ! + EXTERNAL LONG FUNCTION TPU$MESSAGE & ( &$ STRING BY DESC & ) ! = ! TPU$PARSEINFO - Parse Command Line and Build Item List ! 1 ! status = TPU$PARSEINFO (fileio, call_user) ! 9 ! fileio - Bound Procedure Value File I/O routine? ! 0 call_user - Bound Procedure Value for call-user routine ! - EXTERNAL LONG FUNCTION TPU$PARSEINFO & ( &! ANY BY REF, & ANY BY REF & ) ! ' ! TPU$SIGNAL - Signal a TPU Status ! + ! status = TPU$SIGNAL (condition_code) ! 1 ! condition_code - Condition code to signal ! * EXTERNAL LONG FUNCTION TPU$SIGNAL & ( &# LONG BY VALUE & 1 ) ! A ! TPU$SPECIFY_ASYNC_ACTION - Register an Asynchronous Action ! K ! status = TPU$SPECIFY_ASYNC_ACTION (facility_index [, tpu_statement]) ! 4 ! facility_index - Index number of this action< ! tpu_statement - TPU statement to execute for action ! 8 EXTERNAL LONG FUNCTION TPU$SPECIFY_ASYNC_ACTION & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) !  ! TPU$TPU - I2 nvoke TPU ! ! ! status = TPU$TPU (command) ! ! command - Command string ! ' EXTERNAL LONG FUNCTION TPU$TPU & ( &$ STRING BY DESC & ) ! @ ! TPU$TRIGGER_ASYNC_ACTION - Trigger an Asynchronous Action ! 9 ! status = TPU$TRIGGER_ASYNC_ACTION (facility_index) ! 4 ! facility_index - Index number of this action ! 8 EXTERNAL LONG FUNCTION TPU$TRIGGER_ASYNC_ACTION &  ( &! LONG BY REF & )ww4 ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD, %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF @ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART! SINGLE IMAGINARY_PART END RECORD0 %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$D_FLOATIN5 G_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART! DOUBLE IMAGINARY_PART END RECORD0 %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF @ %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN( RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART! GFLOAT IMAGINARY_PART END RECORD0 %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF > 6 %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN, RECORD BASIC$H_FLOATING_COMPLEX_AXP& BASIC$HFLOAT_AXP REAL_PART+ BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD. %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF  Q ! *************************************************************************** ! *( ! COPYRIGHT (c) 1998 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 7 *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ' ! TRANSFER 8 RED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! **********************9 ***************************************************** !  ! UTIL$CQUAL_FILE_PARSE ! 5 EXTERNAL LONG FUNCTION util$cqual_file_parse & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! UTIL$CQUAL_FILE_MATCH ! 5 EXTERNAL LONG FUNCTION util$cqual_file_match & ( &" : LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) !  ! UTIL$CQUAL_FILE_END ! 3 EXTERNAL LONG FUNCTION util$cqual_file_end & ( &! LONG BY REF & ) ! ! UTIL$CQUAL_CONFIRM_ACT ! 6 EXTERNAL LONG FUNCTION util$cqual_confirm_act & ( &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &! LONG BY REF & )ww